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 usuario usuário queira alterar 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. Esses , que são armazenados em variáveis de memória e devem ser gravados utilizando o -se do ponto de entrada TM200DT6.

No Ponto de Entrada, os Os campos a serem alterados deverão 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.