import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: FT400VCP - Tela do contrato de parceria
Descrição:
O ponto de entrada FT400VCP será executado antes da abertura da tela do contrato de parceria e tem como finalidade permitir ao usuário manipular os valores do cabeçalho (ADA) e itens (ADB) através das rotinas de Alteração, Exclusão, Cópia e Encerramento.
Programa Fonte
FATA400.PRW
Sintaxe
FT400VCP - Tela do contrato de parceria ( [ nRotMnu ], [ lNewCP ] ) --> Nil
Parâmetros:
Retorno
Exemplos
User Function FT400VCP()Local _nRotMnu := ParamIxb[1] //Rotina do menuLocal _lNewCP := ParamIxb[2] //Se irá gerar novo contrato no encerramentoLocal _nPosQtd := aScan(aHeader,{|x| AllTrim(x[2])=="ADB_QUANT"})If _nRotMnu == 7 .And. _lNewCP Alert("Passou pelo PE: FT400VCP") M->ADA_MOEDA := 2 aCols[1][_nPosQtd] := 100EndIfReturn
Variáveis
|