Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conferência de Solicitações de Peças Oficina via Coletor, executado no momento da seleção da Solicitação/OS, pode ser utilizado para possibilitar ou não a seleção da mesma.

Localização:

Conferencia de Solicitações de Peças Oficina via Coletor (SIGAACD)

Eventos:

...

//

DbSelectArea("VM3")

VM3->(DbGoTo(aRecVM3[nPos]))

//

If ExistBlock("OA220SEL")

If !ExecBlock("OA220SEL",.f.,.f.,{ VM3->VM3_CODIGO , VM3->VM3_NUMOSV }) // Pode selecionar a Solicitação de Peças / OS ?

lPergOS := .t.

Loop

EndIf

EndIf

//

...

Programa Fonte:

OFIA220.PRW

Função:

OA2200011_TELA1()

Parâmetros:
NomeTipoDescrição

cVM3

Caracter

VM3->VM3_CODIGO ( Código da Confencia )

cOS

Caracter

VM3->VM3_NUMOSV ( Nro. da OS )

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 Solicitações de Peças Oficina

// via Coletor, executado no momento da seleção da Solicitação/OS, pode ser

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

User Function OA220SEL()


Local lRet := .t.

Local cVM3 := ParamIXB[1] // VM3->VM3_CODIGO ( Código da Confencia )

Local cOS := ParamIXB[2] // VM3->VM3_NUMOSV ( Nro. da OS )


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


Return lRet