Jump to content

dev botao

Continuar Inserção no mesmo Bloco - 0150


ronluis
Go to solution Solved by Juliomar Marchetti,
  • Este tópico foi criado há 482 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link to comment
Share on other sites

  • Administradores

Obrigado por reportar.

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

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 to comment
Share on other sites

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