programa_cobranca/ucadCampanha - Copy.pas

mb_log.Lines.Clear;
    mb_log.Lines.Add(DateTimetostr(Now));
    mb_log.Lines.Add('');
    mb_log.Lines.Add('Adicionando PontoVendas.');
    mb_log.Lines.Add('');
    mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
      'log_PontoVenda.txt');
    with dtmSystem do
    begin
      zqryPontoVendaZerado.Open;
      if zqryPontoVendaZerado.RecordCount = 0 then
      begin
        zroqryPontoVenda1.Open;
        zroqryPontoVenda1.First;
        mb_log.Lines.Add('---------------------Banco #1---------------------');
        mb_log.Lines.Add('');
        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
          'log_PontoVenda.txt');
        while not zroqryPontoVenda1.Eof do
        begin
          try
            zqryPontoVendaZerado.Append;
            for i := 1 to zroqryPontoVenda1.Fields.Count - 1 do
            begin
              excptPontoVenda := zroqryPontoVenda1.Fields[i].FieldName;
              zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda1.Fields
                [i].AsString;
              mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda1.RecNo) +
                ' - Campo: ' + excptPontoVenda);
              Application.ProcessMessages;
            end;
            zroqryUsuario1.Locate('ID_USUARIO',
              zroqryPontoVenda1ID_USUARIO.AsInteger, []);
            zqryUsuarioZerado.Locate('TX_NOME',
              zroqryUsuario1TX_NOME.AsString, []);
            zqryPontoVendaZeradoID_USUARIO.AsString :=
              zqryUsuarioZeradoID_USUARIO.AsString;
            zroqryEstoque1.Locate('ID_ESTOQUE',
              zroqryPontoVenda1ID_ESTOQUE.AsInteger, []);
            zqryEstoqueZerado.Locate('TX_DESCRICAO',
              zroqryEstoque1TX_DESCRICAO.AsString, []);
            zqryPontoVendaZeradoID_ESTOQUE.AsString :=
              zqryEstoqueZeradoID_ESTOQUE.AsString;
            zqryPontoVendaZerado.Post;
            zroqryPontoVenda1.Next;
          except
            mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda1.RecNo) +
              ' - Campo: ' + excptPontoVenda);
            zqryPontoVendaZerado.Cancel;
            zroqryPontoVenda1.Next;
          end;
          Application.ProcessMessages;
        end;
        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
          'log_PontoVenda.txt');

        zroqryPontoVenda2.Open;
        zroqryPontoVenda2.First;
        mb_log.Lines.Add('');
        mb_log.Lines.Add('---------------------Banco #2---------------------');
        mb_log.Lines.Add('');
        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
          'log_PontoVenda.txt');
        while not zroqryPontoVenda2.Eof do
        begin
          try
            zqryPontoVendaZerado.Append;
            for i := 1 to zroqryPontoVenda2.Fields.Count - 1 do
            begin
              excptPontoVenda := zroqryPontoVenda2.Fields[i].FieldName;
              zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda2.Fields
                [i].AsString;
              mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) +
                ' - Campo: ' + excptPontoVenda);
            end;
            excptPontoVenda := 'ID_USUARIO';
            zroqryUsuario2.Locate('ID_USUARIO',
              zroqryPontoVenda2ID_USUARIO.AsInteger, []);
            zqryUsuarioZerado.Locate('TX_NOME',
              zroqryUsuario2TX_NOME.AsString, []);
            zqryPontoVendaZeradoID_USUARIO.AsString :=
              zqryUsuarioZeradoID_USUARIO.AsString;
            mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) +
              ' - Campo: ' + excptPontoVenda);
            zroqryEstoque2.Locate('ID_ESTOQUE',
              zroqryPontoVenda2ID_ESTOQUE.AsInteger, []);
            zqryEstoqueZerado.Locate('TX_DESCRICAO',
              zroqryEstoque2TX_DESCRICAO.AsString, []);
            zqryPontoVendaZeradoID_ESTOQUE.AsString :=
              zqryEstoqueZeradoID_ESTOQUE.AsString;
            zqryPontoVendaZerado.Post;
            zroqryPontoVenda2.Next;
          except
            mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda2.RecNo) +
              ' - Campo: ' + excptPontoVenda);
            zqryPontoVendaZerado.Cancel;
            zroqryPontoVenda2.Next;
          end;
          Application.ProcessMessages;
        end;
        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
          'log_PontoVenda.txt');

        zroqryPontoVenda3.Open;
        zroqryPontoVenda3.First;
        mb_log.Lines.Add('');
        mb_log.Lines.Add('---------------------Banco #3---------------------');
        mb_log.Lines.Add('');
        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
          'log_PontoVenda.txt');
        while not zroqryPontoVenda3.Eof do
        begin
          try
            zqryPontoVendaZerado.Append;
            for i := 1 to zroqryPontoVenda3.Fields.Count - 1 do
            begin
              excptPontoVenda := zroqryPontoVenda3.Fields[i].FieldName;
              zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda3.Fields
                [i].AsString;
              mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda3.RecNo) +
                ' - Campo: ' + excptPontoVenda);
            end;
            excptPontoVenda := 'ID_USUARIO';
            zroqryUsuario3.Locate('ID_USUARIO',
              zroqryPontoVenda3ID_USUARIO.AsInteger, []);
            zqryUsuarioZerado.Locate('TX_NOME',
              zroqryUsuario3TX_NOME.AsString, []);
            zqryPontoVendaZeradoID_USUARIO.AsString :=
              zqryUsuarioZeradoID_USUARIO.AsString;
            mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) +
              ' - Campo: ' + excptPontoVenda);
            zroqryEstoque3.Locate('ID_ESTOQUE',
              zroqryPontoVenda3ID_ESTOQUE.AsInteger, []);
            zqryEstoqueZerado.Locate('TX_DESCRICAO',
              zroqryEstoque3TX_DESCRICAO.AsString, []);
            zqryPontoVendaZeradoID_ESTOQUE.AsString :=
              zqryEstoqueZeradoID_ESTOQUE.AsString;
            zqryPontoVendaZerado.Post;
            zroqryPontoVenda3.Next;
          except
            mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda3.RecNo) +
              ' - Campo: ' + excptPontoVenda);
            zqryPontoVendaZerado.Cancel;
            zroqryPontoVenda3.Next;
          end;
          Application.ProcessMessages;
        end;
      end;
      mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
        'log_PontoVenda.txt');
    end;