DT_OC001AVI_Cabecalho_da_Consulta_do_Orçamento

Descrição:

Ponto de Entrada para alteração do vetor aVetInfo com as informaçoes de cabeçalho da consulta.

Eventos:

// ########################################################################

// # 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