Histórico da Página
Descrição | EIC - Manipulação de despesas | ||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Observações | Utilizado para a rotina de despesas do Desembaraço, para não deletar a despesa 102 se não tiver preenchido o valor do frete na capa do desembaraço | ||||||||||||||||||||||||
Exemplos | User Function EIC() Local cParam:= "" IF Type("ParamIXB") == "C" cParam:= PARAMIXB Else cParam:= PARAMIXB[1] Endif IF cParam == "ATUALIZA_DESPESAS_GRVDDI" msginfo("Entrou no ponto de entrada 'ATUALIZA_DESPESAS_GRVDDI'") IF (Empty(PData) .OR. Pvalor # 0) .AND. PDespesa == "102" Pdata := dDataBase PValor := 500// Recebe o valor da despesa Else Pdata := dDataBase Pvalor := 0 //Se o Pvalor estiver zerado, ele deleta a despesa que esta trazendo na PDespesa EndIF ENDIF Return Nil | ||||||||||||||||||||||||
Preview | |||||||||||||||||||||||||
Veja também | |||||||||||||||||||||||||
Idioma | Português(Brasil) | ||||||||||||||||||||||||
Versões | Microsiga_Protheus11 | ||||||||||||||||||||||||
Sistemas Operacionais Suportados | Todos | ||||||||||||||||||||||||
Compatível com as Bases de Dados | Todas | ||||||||||||||||||||||||
Updates | |||||||||||||||||||||||||
Parâmetros |
| ||||||||||||||||||||||||
Retorno | () | ||||||||||||||||||||||||
Eventos de chamada do Ponto de Entrada | |||||||||||||||||||||||||
Variáveis |
| ||||||||||||||||||||||||
Programa Fonte | EIC.PRW |