Continuar Inserção no mesmo Bloco - 0150

[ronluis]

Boa Noite, tenho tabelas diferentes de fornecedor e clientes e de notas de entrada e saída preciso ler os clientes e depois fornecedores, mas qdo faço o fornecedor apaga os clientes tem como fazer sem apagar...Parcial do Código:

....

                             With Registro0150New do
                                Begin
                                   COD_PART := l_strcodPartic;
                                   NOME := Trim(CDS_ClienteDESCRICAO.AsString);
                                   COD_PAIS := '1058';
                                   CNPJ := CNPJ;
                                   CPF := CPF;
                                   IE := l_strInsEstadual;
                                   COD_MUN := CDS_CidadeCODIGO_IBGE.AsInteger;
                                   SUFRAMA := '';
                                   ENDERECO := Trim(CDS_ClienteLOGRADOURO.AsString);
                                   NUM := CDS_ClienteNUMERO.AsString;
                                   COMPL := TrimRight(CDS_ClienteCOMPLEMENTO.AsString);
                                   BAIRRO := CDS_ClienteBAIRRO.AsString;
                                End;
                          End;
                        CDS_Cliente.Next
Fim cliente inicio fornecedor

                              With Registro0150New do
                                 Begin
                                    COD_PART := l_strcodPartic;
                                    NOME := Trim(CDS_FornDESCRICAO.AsString);
                                    COD_PAIS := '1058';
                                    CNPJ := CNPJ;
                                    CPF := CPF;
                                    IE := l_strInsEstadual;
                                    COD_MUN := CDS_CidadeCODIGO_IBGE.AsInteger;
                                    SUFRAMA := '';
                                    ENDERECO := Trim(CDS_FornLOGRADOURO.AsString);
                                    NUM := CDS_FornNUMERO.AsString;
                                    COMPL := TrimRight(CDS_FornCOMPLEMENTO.AsString);
                                    BAIRRO := CDS_FornBAIRRO.AsString;
                                 End;
                              End;
                       CDS_Forn.Next

Obrigado.

[Renato Rubinho]

Bom dia,

O l_strcodPartic pode ser o mesmo nas tabelas de clientes e fornecedores?

Esse deve ser o problema, uma sugestão é centralizar o cadastro no SPED pelo CNPJ/CPF no campo COD_PART.

[ronluis]

Obrigado mas não é o problema o problema, e a continuidade ou seja são tabelas diferentes.

[Renato Rubinho]

Esses fragmentos de códigos mostram que está incremental, adicionando os fornecedores sem apagar os clientes.

Deve ter algum lugar no seu fonte que está zerando a lista antes de incluir os fornecedores.

[Juliomar Marchetti]

pegue o exemplo teste com ele e se preciso for altere o mesmo para trazer

[ronluis]

Boa tarde, gostaria de agradecer ao Renato e o Juliomar, realmente o erro era de logica, estavam sendo ignorados os clientes no select q fiz, consertei a logica esta funcionando. 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.