Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conferencia de Itens NF Entrada no desktop (OFIOM390) para possibilitar deixar passar a Entrada de uma determinada NF de Entrada mesmo que não houve a Conferência dos Itens.

Localização:

Atualizações \ Mov Peças \ Conf. Codigo Barra (OFIOM390)

Eventos:

...

lRet := .f. // NAO existe Conferencia APROVADA
If ExistBlock("OM390VLD")
lRet := ExecBlock("OM390VLD",.f.,.f.,{ cConfNF }) // Ponto de Entrada utilizado para validar se NF pode avançar a Classificação mesmo sem que houve a Conferencia realizada
EndIf

...

Programa Fonte:

OFIOM390.PRW

Função:

OFIOM390()

Parâmetros:
NomeTipoDescrição

cConfNF

Caracter

string, numero da NF Entrada + Serie + Fornecedor + Loja

Retorno:

NomeTipoDescrição

lRet

Lógico

lógico, se continua ou não o processo de entrada.


Exemplo:

Include totvs.ch

User Function OM390VLD()

Local lRet := .f.

Local cConfNF := ParamIXB[1] // DOC + SERIE + FORNECEDOR + LOJA

Local oSqlHlp := DMS_SqlHelper():New()


cQuery += " AND " + oSqlHlp:Concat({'D1_DOC', 'D1_SERIE', 'D1_FORNECE', 'D1_LOJA'}) + " = '" + cConfNF + "'"

MsgAlert("Ponto de Entrada OM390VLD executado com sucesso!","Atenção")


Return lRet