Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada executado no momento da Classificação da Nota Fiscal de Entrada, utilizado para possibilitar validação se é possível classificar diferente do padrão.

Localização:

Atualizações / Movimentos / Documento Entrada (MATA103)

Eventos:

Function OA2900011_A103NFiscal_PodeClassificar( aParametros )

Local lRetorno := .f.

// Verifica se pode classificar a NF - Conferencia de Itens da NF de Entrada

If ExistBlock("OA290CLA")

lRetorno := ExecBlock("OA290CLA",.f.,.f.,{ aParametros[1] ,; // Variável cTipo do MATA103 ( N=Normal / D=Devolução )

aParametros[2] ,; // Variável cNFiscal do MATA103 ( Nro.NF )

aParametros[3] }) // Variável INCLUI do MATA103

Else

lRetorno := OM3900161_PermiteClassificarNFEntrada( aParametros[1] ,; // Variável cTipo do MATA103 ( N=Normal / D=Devolução )

aParametros[2] ,; // Variável cNFiscal do MATA103 ( Nro.NF )

aParametros[3] ) // Variável INCLUI do MATA103

EndIf

Return lRetorno

Programa Fonte:

OFIA290.PRW

Função:

OA2900011_A103NFISCAL_PODECLASSIFICAR()

Parâmetros:
NomeTipoDescrição

aParametros[1]

Caracter

Variável cTipo do MATA103 ( N=Normal / D=Devolução )

aParametros[2]

Caracter

Variável cNFiscal do MATA103 ( Nro.NF )

aParametros[3]

Lógico

Variável INCLUI do MATA103

Retorno:
NomeTipoDescrição

lRetorno

Lógico

.t. = permite classificar / .f. = não permite classificar

Exemplo:

Include totvs.ch


// Permite Classificar a Nota Fiscal?

User Function OA290CLA()

Local lRet := .t.

Local cTipMTA := ParamIXB[1] // Variável cTipo do MATA103 ( N=Normal / D=Devolução )

Local cNFiMTA := ParamIXB[2] // Variável cNFiscal do MATA103 ( Nro.NF )

Local lIncMTA := ParamIXB[3] // Variável INCLUI do MATA103


MsgAlert("Ponto de Entrada OA290CLA executado com sucesso!")


Return lRet