Histórico da Página

Este Ponto de Entrada para permite a alteração do vetor aVetInfo com as informações de cabeçalho da consulta.

User Function OC001AVI()

MsgInfo(“Ponto de Entrada OC001AVI ",”Atencao”)

return

Português(Brasil)

Todas

Todos

Todas

N/A

N/A

// ########################################################################
// # Montagem do vetor com informacoes adicionais #
// ########################################################################
aVetInfo := \{\}
aAdd(aVetInfo,\{STR0001, 'FM_PRODSBZ(SB1->B1_COD,"SB5->B5_LOCALIZ")', NIL, "@!"\})
aAdd(aVetInfo,\{STR0002, "OC001RSIT()", NIL, "@!"\})
aAdd(aVetInfo,\{STR0003, "OC001RPRE()", "OC001BPRECO()" , "@E 999,999,999.99"\})
aAdd(aVetInfo,\{STR0004, "OC001REST()", "OC001BESTOQUE()", "@E 999999"\})
aAdd(aVetInfo,\{STR0005, "SB1->B1_ESTSEG", NIL, "@E 999999"\})
aAdd(aVetInfo,\{STR0006, "OC001RCLAS()", NIL, "@!"\})
aAdd(aVetInfo,\{STR0007, "SB5->B5_CODCAI", NIL, "@!"\})
if GetNewPar("MV_CUSBAL","S") == "S"
aAdd(aVetInfo,\{STR0008, "SB2->B2_CM1", NIL, "@E 999,999,999.99"\})
Endif
aAdd(aVetInfo,\{STR0009, "SB1->B1_PRV1", NIL, "@E 999,999,999.99"\})
aAdd(aVetInfo,\{STR0010, "SB1->B1_QE", NIL, "@E 999999"\})
aAdd(aVetInfo,\{STR0011, "SB1->B1_PESO", NIL, "@E 999,999.999"\})
aAdd(aVetInfo,\{STR0012, "SB1->B1_GRUDES", NIL, "@!"\})
// ########################################################################
// # Montagem do vetor com informacoes adicionais #
// ########################################################################
// PONTO DE ENTRADA PARA ALTERACAO DO VETOR aVetInfo
If ExistBlock("OC001AVI")
ExecBlock("OC001AVI",.f.,.f.)
EndIf
// ########################################################################
// # Montagem das informacoes de posicionamento da consulta #
// ########################################################################
aInfo := \{ aSizeHalf[ 1 ], aSizeHalf[ 2 ],aSizeHalf[ 3 ] ,aSizeHalf[ 4 ], 3, 3 \}// Tamanho total da tela
AAdd( aObjects, \{ 0, 04, .T., .f. \} )
AAdd( aObjects, \{ 0, 08, .T., .f. \} )
AAdd( aObjects, \{ 0, 08, .T., .f. \} )
for nCntFor := 1 to Len(aVetInfo) step 2
AAdd( aObjects, \{ 0, 08, .T., .f. \} )
next
AAdd( aObjects, \{ 0, 08, .T., .T. \} )
aPos := MsObjSize( aInfo, aObjects )
dyc := (aPos[1,4] - aPos[1,2])
dyc2 := (aPos[1,4] - aPos[1,2]) / 2 // step horizontal
_nSpc := 40
_nLarg := dyc2 - _nSpc - 10
nBtnSize := 25

OFIXC001.PRW