Ir para conteúdo
  • Cadastre-se

dev botao

Gerando um unico xml da tabela


  • Este tópico foi criado há 1946 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

Editado por karlosrapanui
Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
  • Administradores

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

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1946 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.