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 IF cParam == "ALT_GRUPO_APROV" 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 |