Histórico da Página
...
Linha de produto | Protheus | ||||
Segmento | ManufaturaServiços | ||||
Módulo | SIGAFIN - Financeiro | ||||
Rotina |
| ||||
Requisito / Story / Issue | DSERFINP-31006 |
Ponto de entrada
Descrição: | Ponto de entrada FI050POS, localizado no final da FINI050 permitindo que o retorno da rotina seja manipuladopara se informar taxa de cotação a ser utilizada no momento de baixa de Serviço, para uso no título de IR. | ||||||||
Eventos:O | ponto Ponto de entrada será executado ao final do recebimento da mensagem única de título a pagar (AccountPayableDocument)Entrada executado pela rotina FINA080 nas operações de: | ||||||||
Programa Fonte:FINI050.PRW | FINA080 - Baixa a Pagar Manual | ||||||||
Função: | FINA080FINI050 - adapter EAI para manipulação de título a pagar (AccountPayableDocument) utilizando o conceito de mensagem única. | ||||||||
Parâmetros: | ParamIXB[1] - Chave localização do Título - Corresponde ao X2_UNICO da tabela SE2. // E2 E2_FILIAL + E2_PREFIXO + E2_NUM + E2_PARCELA + E2_TIPO + E2_FORNECE + E2_LOJA | ||||||||
Retorno: | Será retornado um array com duas posições conforme tabela:
|
Exemplo
#INCLUDE "PROTHEUS.CH" | #INCLUDE #INCLUDE "PARMTYPE.CH"
| User FUNCTION F080TXIRUser FUNCTION F080TXIR() | Local nRet Local nRet := | 0 0 | ParamIXB ParamIXB[1] // E2_FILIAL + E2_PREFIXO + E2_NUM + E2_PARCELA + E2_TIPO + E2_FORNECE + E2_LOJA | Local dDataOp Local dDataOp := | ParamIXB ParamIXB[2] // Valor da Variável dDataBase qdo OP = 4 ou valor do campo SE2->E2_BAIXA qdo OP = 5 | Local nOpc Local nOpc := | ParamIXB ParamIXB[3] // 4 - Baixa Manual ; 5 - Cancelamento/Exclusão de Baixa | If
| Help Help("FINA080:F080TXIR",,"MESSAGE","PE: F080TXIR",; | 44, | 0 0) | nRet 4
| 4 |
|