VM190CPO - Disponibilizar Campos Personalizados na Rotina Pedido Máquinas JD (VEIVM190)

Descrição:

Este ponto de entrada está localizado na rotina Pedido Máquinas JD (VEIVM190) e é utilizado para disponibilizar campos personalizados da tabela VQ0 para serem apresentados e preenchidos pelo usuário na própria rotina Pedido Máquinas JD (VEIVM190).

Eventos:

{'X3_TIPO' , "C" },;

{'X3_TAMANHO' , TamSX3("VQ0_FILATE")[1] },;

{'X3_CAMPO' , 'MV_PAR13' },;

{'X3_TITULO' , STR0017 },;

{'X3_PICTURE' , "@!" },;

{'X3_RELACAO' , aAux[1,13] },;

{'X3_WHEN' , ".F." } ;

})

oIHelp:AddMGetTipo({;

{'X3_TIPO' , "C" },;

{'X3_TAMANHO' , TamSX3("VQ0_NUMATE")[1] },;

{'X3_CAMPO' , 'MV_PAR14' },;

{'X3_TITULO' , STR0018 },;

{'X3_PICTURE' , "@!" },;

{'X3_RELACAO' , aAux[1,14] },;

{'X3_WHEN' , ".F." } ;

})

oIHelp:AddMGetTipo({;

{'X3_TIPO' , "M" },;

{'X3_TAMANHO' , 47 },;

{'X3_CAMPO' , 'MV_PAR21' },;

{'X3_TITULO' , RetTitle("VQ0_OBSMEM") },;

{'X3_RELACAO' , aAux[1,21] },;

{'X3_WHEN' , IIf(nOpcVQ0==2.or.nOpcVQ0>=5,".F.",".T.") } ;

})

If ExistBlock("VM190CPO")

aCposUser := ExecBlock("VM190CPO",.f.,.f.)

For ni := 1 to len(aCposUser)

SX3->(DbSetOrder(2))

If !Empty(aCposUser[ni]) .and. SX3->(DbSeek(aCposUser[ni]))

oIHelp:AddMGetTipo({;

{'X3_TIPO' , SX3->X3_TIPO },;

{'X3_TAMANHO' , SX3->X3_TAMANHO },;

{'X3_DECIMAL' , SX3->X3_DECIMAL },;

{'X3_CAMPO' , SX3->X3_CAMPO },;

{'X3_TITULO' , SX3->X3_TITULO },;

{'X3_PICTURE' , SX3->X3_PICTURE },;

{'X3_VALID' , SX3->X3_VALID },;

{'X3_RELACAO' , SX3->X3_RELACAO },;

{'X3_CBOX' , SX3->X3_CBOX },;

{'X3_WHEN' , IIf(nOpcVQ0==2.or.nOpcVQ0>=5,".F.",".T.") } ;

})

&("M->"+aCposUser[ni]) := IIf(nOpcVQ0==3,SX3->X3_RELACAO,&("VQ0->"+aCposUser[ni]))

Else

aCposUser[ni] := ""

EndIf

Next

SX3->(DbSetOrder(1))

EndIf

Função:

FS_VQ0()