Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conferência de Nota Fiscal de Entrada via Coletor, executado no momento da seleção da Nota Fiscal de Entrada, pode ser utilizado para possibilitar ou não a seleção da mesma.

Localização:

Conferencia de Nota Fiscal de Entrada via Coletor (SIGAACD)

Eventos:

...

//

DbSelectArea("SF1")

SF1->(DbGoTo(aRecSF1[nPos]))

//lPodeSel := .t.

If ExistBlock("OA060SEL")

lPodeSel := If !ExecBlock("OA060SEL",.f.,.f.,{ SF1->F1_DOC , SF1->F1_SERIE , SF1->F1_FORNECE , SF1->F1_LOJA }) // Pode selecionar a NF ?

EndIf

//

lPergDias := .f.

lPergNF := !Empty(cNroNF)

Loop

EndIf

EndIfIf lPodeSel

...

Programa Fonte:

OFIA060.PRW

Função:

OA0600011_TELA1()

Parâmetros:
NomeTipoDescrição

cNF

Caracter

SF1->F1_DOC ( Nro. da NF de Entrada )

cSer

Caracter

SF1->F1_SERIE ( Série da NF de Entrada )

cFor

Caracter

SF1->F1_FORNECE ( Código do Fornecedor )

cLoj

Caracter

SF1->F1_LOJA ( Loja do Fornecedor )

Retorno:
NomeTipoDescrição

lPodeSel

Lógico

.t. = pode selecionar / .f. = não pode selecionar

Exemplo:

Include totvs.ch

// Ponto de Entrada na rotina de Conferência de Nota Fiscal de Entrada via Coletor,

// executado no momento da seleção da Nota Fiscal de Entrada, pode ser utilizado

// para possibilitar ou não a seleção da mesma.

User Function OA060SEL()


Local lRet := .t.

Local cNF := ParamIXB[1] // SF1->F1_DOC ( Nro. da NF de Entrada )

Local cSer := ParamIXB[2] // SF1->F1_SERIE ( Serie da NF de Entrada )

Local cFor := ParamIXB[3] // SF1->F1_FORNECE ( Codigo do Fornecedor )

Local cLoj := ParamIXB[4] // SF1->F1_LOJA ( Loja do Fornecedor )


VtAlert("Ponto de entrada OA060SEL executado com sucesso!")


Return lRet