Árvore de páginas

Ponto-de-Entrada: TM700PRC - Geração de Novo Contrato de Clientes Mantendo o Preço
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11
Descrição:

Este Ponto de Entrada, localizado no TMSA700 (Geração de Contrato de Prestação de Serviços), é executado no momento de selecionar quais clientes ao gerar novo contrato será mantido o preço. Vale lembrar que o Ponto de Entrada só é executado se nos parâmetros no momento de Gerar o Contrato a opção Preço do Cliente estiver  “Modifica”. Se não tiver nenhum registro no array de retorno ou não existir o Pontro de Entrada no repositório o sistema mostra a markbrowse para escolher quais clientes no momento de gerar novo contrato será mantido o preço. No exemplo abaixo o cliente 000001-01 manteremos o preço.

 

Exemplo

User Function TM700PRC()

 

Local aNovoPrc   := {}

 

aAdd(aNovoPrc,{'000001','01'})

 

Return aNovoPrc

Programa Fonte
.PRW
Sintaxe

TM700PRC - Geração de Novo Contrato de Clientes Mantendo o Preço ( < Nill> ) --> aNovoPrc

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Nill Array of Record X
Retorno
    aNovoPrc(vetor)
  • Array com os clientes que serão mantidos os preços, desta forma a MarkBrowse não aparece para escolha dos clientes, o sistema utilizará este array de retorno.