Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TM500CPO - Adiciona os Campos do DT6
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de Entrada localizado no programa TMSA500 (Manutenção de Documentos); Este Ponto de Entrada tem como objetivo adicionar os campos do DT6 que o usuario queira alterar nas opções de 'Devolução', 'Reentrega' e 'Complemento' de CTRC.
Eventos


 

Programa Fonte 
TMSA500.PRW
Sintaxe

TM500CPO - Adiciona os Campos do DT6 ( < ExpN1> ) --> Nil

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ExpN1 Array of Record Opcao Selecionada :
4 - Devolucao
5 - Reentrega
6 - Complemento		 X
Retorno
    Nil(nulo)
  • Nil
Observações

No Ponto de Entrada, os campos a serem alterados deverão ser adicionados no vetor aAltera, conforme exemplo a seguir
 

Exemplos 
User Function TM500CPO()Local nOpcx := ParamIXB[1]If nOpcx == 4  //-- Devolucao     AAdd(aAltera,'DT6_SERVIC')ElseIf nOpcx == 6  //-- Complemento     AAdd(aAltera,'DT6_SERVIC')     AAdd(aAltera,'DT6_CDRCAL')ElseIf nOpcx == 5 //-- Reentrega     AAdd(aAltera,'DT6_TIPTRA')EndIfReturn .T.