Histórico da Página

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Transferencia de Peças para possibilitar inserir campos adicionais na grid das peças (VS3).

Localização:

Atualizações / Mov.Peças / Transf. de Peças

Eventos:

...

cCampos := "VS3_FILIAL/VS3_GRUITE/VS3_CODITE/VS3_DESITE/VS3_QTDEST/VS3_QTDINI/VS3_QTD2UM/VS3_VALPEC/VS3_OPER/VS3_VALTOT/"

cCampos += "VS3_TESENT/VS3_TESSAI/VS3_ARMORI/VS3_FORMUL/VS3_CENCUS/VS3_CONTA/VS3_ITEMCT/VS3_CLVL/"

cCampos += "VS3_VALPIS/VS3_VALCOF/VS3_ICMCAL/VS3_VALCMP/VS3_VICMSB/VS3_DIFAL/" // Impostos Calculados

If lVS3_QE

cCampos += "VS3_QE/"

Endif

If ExistBlock("OM430CPO") // Campos Adicionais da tabela VS3 para montar a tela

cCpoAdicional := ExecBlock("OM430CPO",.f.,.f.,{ nOpcTela }) // 2-Visualizar / 3-Incluir / 4-Alterar / 5-Excluir

EndIf

...

Programa Fonte:

OFIOM430.PRW

Função:

MONTAAHEADER()

Parâmetros:

Nome	Tipo	Descrição
nOpcAux	Numérico	nOpc para montagem da Tela ( 2-Visualizar / 3-Incluir / 4-Alterar / 5-Excluir )

Retorno:

Nome	Tipo	Descrição
cRetCpos	Caracter	campos adicionais da tabela VS3 para inserir na grid de Peças

Exemplo:

Include totvs.ch

///////////////////////////////////////////////////////////////////

// Ponto de Entrada para inserir campos adicionais da tabela VS3 //

// na montagem da tela de Transferencia de Peças (OFIOM430) //

///////////////////////////////////////////////////////////////////

User Function OM430CPO()

Local nOpcAux := PARAMIXB[1] // 2-Visualizar / 3-Incluir / 4-Alterar / 5-Excluir

Local cRetCpos := "" // Campos Adicionais da Tabela VS3 para montagem da Tela

MsgAlert("Ponto de Entrada 'OM430CPO' executado com sucesso.")

// cRetCpos := "VS3_TESTE1/VS3_TESTE2/"

Return cRetCpos