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 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 |
---|