Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
FT400VCP - Tela do contrato de parceria
FT400VCP - Tela do contrato de parceria

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
nRotMnuNuméricoRotina do menu. Ex: (4- Alterar, 5- Excluir, 6- Cópia e 7- Encerrar)
lNewCPArray of RecordIndica 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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão