Ponto-de-Entrada: TM500CPO - Adiciona os campos do DT6
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| 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 permite efetuar alterações nas opções de Devolução, Reentrega e Complemento de CTRC.
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
O Ponto de Entrada não faz a gravação dos valores alterados, que são armazenados em variáveis de memória e devem ser gravados utilizando-se do ponto de entrada TM200DT6.
Os campos a serem alterados devem 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.