Histórico da Página

Ponto de Entrada

Descrição:

Informe o Menu em que estará localizada a rotina

Localização:

Informe o Submenu em que estará localizada a rotina

Eventos:

Informe o Título da rotina

Programa Fonte:

Informe o Fonte da rotina

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Retorno:

Exemplo:

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab

Este ponto de entrada serve para que o usuário possa inserir campos na tela de listagens dos orçamentos.
Parametros:	N/A
Eventos:	aIntCab := {} aIntIte := {} aAdd(aIntCab,{STR0005 ,"C",60,"@!" }) aAdd(aIntCab,{STR0006 ,"C",60,"@!" }) aAdd(aIntCab,{STR0007 ,"D",35,"@D" }) aAdd(aIntCab,{STR0008 ,"N",55,"@E 999,999,999.99"}) aAdd(aTotais,{STR0014,0,0}) // TOTAL GERAL aAdd(aTotais,{STR0015,0,0}) // TOTAL SELECIONADO nPosVet := 1 while !((cQryAl001)->(eof())) aAdd(aIntIte,{; (cQryAl001)->(VS1_NUMORC),; (cQryAl001)->(VS1_TIPORC),; stod((cQryAl001)->(VS1_DATORC)),; (cQryAl001)->(VS1_VTOTNF) }) // Ponto de entrada para inclusão de campo no listbox da tela If ExistBlock("OX021TEL") ExecBlock("OX021TEL",.f.,.f.,{nPosVet}) EndIf aTotais[1,2] ++ aTotais[1,3] += (cQryAl001)->(VS1_VTOTNF) aTotais[2,2] ++ aTotais[2,3] += (cQryAl001)->(VS1_VTOTNF) nPosVet++ (cQryAl001)->(dbSkip()) enddo
Programa Fonte:	OFIXA021.PRW
Função:	OFIXA021
Retorno:	N/A

Exemplo:

User Function OX021TEL()

nPosVet := ParamIxb[01] // Posicao do vetor

if nPosVet == 1

aAdd(aIntCab,{"Vendedor","C",60,"@!" })

aAdd(aIntCab,{"Cliente","C",60,"@!" })

Endif

dbSelectArea("VS1")

dbSetOrder(1)

dbSeek(xFilial("VS1")+(cQryAl001)->(VS1_NUMORC))

aAdd(aIntIte[nPosVet],VS1->VS1_CODVEN)

aAdd(aIntIte[nPosVet],VS1->VS1_CLIFAT)

Return