Histórico da Página

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 usuário queira alterar permite efetuar alterações nas opções de Devolução, Reentrega e Complemento de CTRC.

TMSA500.PRW

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

(nulo)
• Nil

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:

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.