Histórico da Página
...
Não se aplica.
08. EXEMPLO
...
---
#INCLUDE
...
"PROTHEUS.CH"
...
User
...
Function
...
OM200AdC()
...
Local aRet := {}
Local aArray := PARAMIXB[1]
...
//--
...
Conteúdo
...
do
...
campo.
...
Local
...
aHeaders
...
:=
...
PARAMIXB[2]
...
//--
...
Cabeçalho
...
do
...
campo.
...
Local bLine :=
...
PARAMIXB[3]
...
//--
...
Condição
...
para
...
inserir
...
conteúdo
...
no
...
campo
...
.
//--
...
Objetos
...
de
...
Status.
...
Local
...
oLiberado
...
:=
...
PARAMIXB[4]
...
Local oCalend :=
...
PARAMIXB[5]
...
Local oHorario :=
...
PARAMIXB[6]
...
Local oVeiculo :=
...
PARAMIXB[7]
...
Local oPedMan :=
...
PARAMIXB[8]
...
Local oDown :=
...
LoadBitmap(
...
GetResources(),
...
"TRIDOWN"
...
)
...
Local oUp := LoadBitmap( GetResources(),
...
"TRIUP"
...
)
Local aAreaPE := GetArea()
...
Local
...
nX
...
:=
...
0
...
For
...
nX
...
:=
...
1
...
To
...
Len(aArray)
...
SA1->(DbSetOrder(1))
...
If SA1->(DbSeek(xFilial("SA1")+aArray[nX][6]+aArray[nX][7]))
...
AAdd(aArray[nX],Alltrim(
...
SA1→A1_INSCR))
...
AAdd(aArray[nX],Alltrim(
...
SA1→A1_CEP))
...
EndIF
Next nX
AAdd(aHeaders,
...
RetTitle("A1_INSCR"))
...
AAdd(aHeaders,
...
RetTitle("A1_CEP"))
...
bLine:={||{Iif(oPedMan:aArray[oPedMan:nAT,18]==1,oLiberado,;
...
Iif(oPedMan:aArray[oPedMan:nAT,18]==2,oVeiculo,;
...
Iif(oPedMan:aArray[oPedMan:nAT,18]==3,oHorario,;
...
Iif(oPedMan:aArray[oPedMan:nAT,18]==4,oCalend,oLiberado)))),;
...
oDown, oUp,;
oPedMan:aArray[oPedMan:nAT,1
...
],;
...
oPedMan:aArray[oPedMan:nAT,2
...
],;
...
oPedMan:aArray[oPedMan:nAT,5
...
],;
...
oPedMan:aArray[oPedMan:nAT,19],;
...
oPedMan:aArray[oPedMan:nAT,16],;
...
oPedMan:aArray[oPedMan:nAT,17],;
...
oPedMan:aArray[oPedMan:nAT,20],;
...
oPedMan:aArray[oPedMan:nAT,6
...
],;
...
oPedMan:aArray[oPedMan:nAT,7
...
],;
...
oPedMan:aArray[oPedMan:nAT,8
...
],;
...
oPedMan:aArray[oPedMan:nAT,9
...
],;
...
oPedMan:aArray[oPedMan:nAT,10],;
...
oPedMan:aArray[oPedMan:nAT,11],;
...
oPedMan:aArray[oPedMan:nAT,30],;
...
//
...
Referência para
...
exibição
...
da
...
Inscrição
...
Estadual.
...
Deve
...
se
...
iniciar
...
a
...
partir
...
do
...
30,
...
pois
...
o
...
array
...
padrão
...
possui
...
29
...
posições.
oPedMan:aArray[oPedMan:nAT,31]}}
...
//
...
Referência para
...
exibição
...
do
...
CEP
...
.
AAdd(aRet,
...
aArray)
...
AAdd(aRet,
...
aHeaders)
...
AAdd(aRet,
...
bLine)
...
RestArea(aAreaPE)
...
Return(aRet)
---
Templatedocumentos |
---|
HTML |
---|