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.