English
Español
DocumentoOrigem
Retornar a chave do documento origem conforme a lançamento origem.
Sintaxe: DocumentoOrigem(Numero pCodEmp, Numero pNumLct, Alfa pOriLct, Alfa End pChaveOrigem)
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pCodEmp | Numero | Variável que indica o código da empresa. |
| pNumLct | Numero | Variável que indica o número do lançamento. |
| pOriLct | Alfa | Variável que indica a origem do lançamento. |
| pChaveOrigem | Alfa | Variável que retorna a chave do documento origem. |
Tipo de retorno: pChaveOrigem: Variável alfanumérica que retorna a chave do documento origem;
Exemplo:
- Caso o lançamento seja de origem 'COM' a chave do documento origem será buscada da tabela E644LCO e será concatenado os seguintes campos: CODEMP, CODFIL, CODREP, SEQCOM, SEQRAT, separados com ';'.
- Caso o lançamento seja de origem 'EST' a chave do documento origem será buscada da tabela E644LES e será concatenado os seguintes campos: CODEMP, CODPRO, CODDER, CODDEP, DATMOV, SEQMOV, SEQRAT, separados com ';'.
- Caso o lançamento seja de origem 'COF' a chave do documento origem será buscada da tabela E644LFF e será concatenado os seguintes campos: CODEMP, CODFIL, NUMNFF, CODFOR, SEQRAT, separados com ';'.
- Caso o lançamento seja de origem 'IMP' a chave do documento origem será buscada da tabela E644LIC e será concatenado os seguintes campos: CODEMP, CODFIL, CODIMP, DATAPI, separados com ';'.
- Caso o lançamento seja de origem 'IVE' a chave do documento origem será buscada da tabela E644LIM e será concatenado os seguintes campos: CODEMP, CODFIL, CODCLI, NUMNFI, NUMNFF, CODSNF, CODTNS, SEQITM, separados com ';'.
- Caso o lançamento seja de origem 'ICO' a chave do documento origem será buscada da tabela E644LIM e será concatenado os seguintes campos: CODEMP, CODFIL, CODFOR, NUMNFI, NUMNFF, CODSNF, CODTNS, SEQITM, separados com ';'.
- Caso o lançamento seja de origem 'IVZ' a chave do documento origem será buscada da tabela E644LRZ e será concatenado os seguintes campos: CODEMP, CODFIL, CODEQU, DATREF, SEQREZ, separados com ';'.
- Caso o lançamento seja de origem 'CPR' a chave do documento origem será buscada da tabela E644LNF e será concatenado os seguintes campos: CODEMP, CODFIL, CODFOR, NUMNFI, CODSNF, SEQRAT, SEQIPR, SEQISE, separados com ';'.
- Caso o lançamento seja de origem 'PAT' a chave do documento origem será buscada da tabela E644LPA e será concatenado os seguintes campos: CODEMP, CODBEM, DATMOV, SEQMOV, SEQRAT, separados com ';'.
- Caso o lançamento seja de origem 'PRJ' a chave do documento origem será buscada da tabela E644LPR e será concatenado os seguintes campos: CODEMP, DATGER, SEQGER, SEQRAT, separados com ';'.
- Caso o lançamento seja de origem 'TES' a chave do documento origem será buscada da tabela E644LTE e será concatenado os seguintes campos: CODEMP, NUMCCO, DATMOV, SEQMOV, SEQRAT, separados com ';'.
- Caso o lançamento seja de origem 'PAG' a chave do documento origem será buscada da tabela E644LTI e será concatenado os seguintes campos: CODEMP, CODFIL, NUMTIT, CODTPT, CODFOR, SEQMOV, SEQRAT, separados com ';'.
Exemplo de regra:
Definir alfa vchave;
Definir numero vcodemp;
Definir numero vNumLct;
Definir alfa vOriLct;
vCodemp=1;
vNumLct=0807000040;
vOriLct="IMP";
vchave="";
DocumentoOrigem(vCodEmp,vNumLct,vOriLct,vchave);
A variável vChave vai retornar os campos: CODEMP, CODFIL, CODIMP, DATAPI,
separados com ';'.
Observações: Caso não encontre o documento origem a variável vChave retorna vazia.
English
Español
