Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: FT400VCP - Tela do contrato de parceria
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
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:
Nome Tipo Descrição Default Obrigatório Referência
nRotMnu Numérico Rotina do menu. Ex: (4- Alterar, 5- Excluir, 6- Cópia e 7- Encerrar)
lNewCP Array of Record Indica se será gerado novo contrato de parceria. (.T.) - Será gerado novo contrato de parceria e (.F.) - Não será gerado novo contrato.
Retorno
    Nil()
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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não