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

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 são armazenados em variáveis de memória e devem ser gravados utilizando o ponto TM200DT6.

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