Gerando um unico xml da tabela

[karlosrapanui]

Estou usando o componente acbresocial para gerar xml de uma tabela ado do meu sistema......

 

ACBreSocial1.Eventos.SaveToFiles;

  frmDM_eSocial.ADOqrS1030.First;

    with frmDM_eSocial.ADOqrS1030 do
    begin

      { AQUI ELE ESTA UNINDO }  // ACHO EU
      ACBreSocial1.Enviar(TESocialGrupo(rdgGrupo.ItemIndex + 1));

      MemoResp.Lines.Text := ACBreSocial1.WebServices.EnvioLote.RetWS;

      with ACBreSocial1.WebServices.EnvioLote.RetEnvioLote do
      begin
        { ENVIADO COM SUCESSO }
        if Status.cdResposta in [201, 202] then
        begin
          with frmDM_eSocial.ADOqrS1030_update DO
          begin
            Close;
            SQL.Text := '';
            SQL.Text := 'UPDATE ESOCIAL_S1030 SET XML = '''+MemoXmlEnvio.Lines.Text+''' WHERE CODS1030 =  '+IntToStr(idTabela)+'';  // AQUI ELE ESTA GRAVANDO NO CAMPO XML UM UNICO XML COM OS 2 REGISTROS
            ExecSQL;
          end;
        end
        else
        begin
          for i := 0 to Status.Ocorrencias.Count - 1 do
          begin
            with Status.Ocorrencias.Items do
            begin
              { ERRO }
              with frmDM_eSocial.ADOqrS1030_update DO
              begin
                Close;
                SQL.Text := '';
                SQL.Text := 'UPDATE ESOCIAL_S1030 SET MENSAGEMERROINTEGRIDADE = '''+msgErro+''' WHERE CODS1030 =  '+IntToStr(idTabela)+'';
                ExecSQL;
              end;

            end;
          end;
        end;
      end;
      frmDM_eSocial.ADOqrS1030.Next;
    end;
    frmDM_eSocial.ADOqrS1030_update.Close;
    frmDM_eSocial.ADOqr_lote.Close;

 Como ainda não estou muito familiarizado com o componente, peço a ajuda de vocês para ver o que acontece...

 

Eu preciso gerar um xml para cada registro.

 

Valeu e obrigado

Editado 4 Outubro, 2018 por karlosrapanui

[Juliana Tamizou]

Boa tarde.

Tópico está sendo fechado devido a estar inativo a algum tempo. caso necessário, por favor crie um novo tópico.

Att.