OC001INI Ponto de Entrada antes da chamada da tela de consulta de peças da rotina Orc. Por Fases (OFIXA011)

Descrição:

Ponto de entrada antes da chamada da tela de consulta de peças.

Eventos:

aAdd(aVetInfo,{STR0006 , "OC001RCLAS()" , NIL , "@!" })

aAdd(aVetInfo,{"'"+RetTitle("B5_CODCAI")+"'", "SB5->B5_CODCAI" , NIL , "@!" })

if GetNewPar("MV_CUSBAL","S") == "S"

aAdd(aVetInfo,{"'"+RetTitle("B2_CM1")+"'" , "SB2->B2_CM1" , NIL , SB2->(X3PICTURE("B2_CM1")) })

Endif

aAdd(aVetInfo,{"'"+RetTitle("B1_PRV1")+"'" , 'FM_PRODSBZ(SB1->B1_COD,"SB1->B1_PRV1")' , NIL , SB1->(X3PICTURE("B1_PRV1")) })

aAdd(aVetInfo,{"'"+RetTitle("B1_QE")+"'" , "SB1->B1_QE" , NIL , SB1->(X3PICTURE("B1_QE")) })

aAdd(aVetInfo,{"'"+RetTitle("B1_PESO")+"'" , "SB1->B1_PESO" , NIL , SB1->(X3PICTURE("B1_PESO")) })

aAdd(aVetInfo,{"'"+RetTitle("B1_GRUDES")+"'", "SB1->B1_GRUDES" , NIL , "@!" })

aAdd(aVetInfo,{"'"+RetTitle("B1_DTREFP1")+"'", "SB1->B1_DTREFP1" , NIL , "@D" })

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

// # Montagem do vetor com informacoes adicionais #

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

// PONTO DE ENTRADA PARA ALTERACAO DO VETOR aVetInfo

If ExistBlock("OC001AVI")

ExecBlock("OC001AVI",.f.,.f.)

EndIf

If ExistBlock("OC001INI")

If !ExecBlock("OC001INI",.f.,.f.)

Return

EndIf

EndIf

Função:

OFIXC001()