Ponto de Entrada
Descrição: | Ponto de Entrada na rotina de Conferência de Saída (Orçamentos) via Coletor, executado no momento da seleção do Orçamento, pode ser utilizado para possibilitar ou não a seleção do mesmo. | ||||||
Localização: | Conferencia de Saida (Orçamentos) via Coletor (SIGAACD) | ||||||
Eventos: | ... DbSelectArea("VS1") DbSetOrder(1) If DbSeek(xFilial("VS1")+substr(aLinhas[nPos,1],5,nTamOrc)) // If ExistBlock("OA070SEL") If !ExecBlock("OA070SEL",.f.,.f.,{ VS1->VS1_NUMORC }) // Pode selecionar o Orçamento ? lPergOrc := !Empty(cNroOrc) Loop EndIf EndIf // ... | ||||||
Programa Fonte: | OFIA070.PRW | ||||||
Função: | OA0700011_TELAORCAMENTOS() | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Exemplo:
Include totvs.ch
// Ponto de Entrada na rotina de Conferência de Saida (Orçamentos) via Coletor,
// executado no momento da seleção do Orçamento, pode ser utilizado para
// possibilitar ou não a seleção do mesmo.
User Function OA070SEL()
Local lRet := .t.
Local cOrc := ParamIXB[1] // VS1->VS1_NUMORC ( Nro. do Orçamento )
VtAlert("Ponto de entrada OA070SEL executado com sucesso!")
Return lRet