Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

Gerando um unico xml da tabela


karlosrapanui
  • Este tópico foi criado há 969 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

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

Edited by karlosrapanui
Link to comment
Share on other sites

  • 1 month later...
  • Consultores

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.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 969 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.