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

 NomeTipoDescriçãoDefaultObrigatórioReferência
 ATUALIZA_DESPESAS_GRVDDICaracter

Permite a customização da 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

   

Retorno

()

Eventos de chamada do Ponto de Entrada

 

Variáveis

 NomeTipoEscopoPode AlterarDescrição
  PDespesa  String Private SimVariável que recebe a despesa do processo salva na SWD 
  PValor NuméricoPrivateSim

Variável responsável por controlar se vai atualizar o valor do frete na capa do desembaraço, ou se vai deletar a despesa.

Caso o PValor estiver vazio, a validação de despesa vai deletar aquela despesa posicionada na variável PDespesa, para manter, será necessário passar para essa variável o valor da despesa posicionada(SWD)

 Pdata DataPrivateSimData recebida da despesa posicionada na variável PDespesa.

Programa Fonte

EIC.PRW