Linha Microsiga Protheus

Árvore de páginas

Descrição

Este Ponto de Entrada foi disponibilizado para permitir a troca de condição de pagamento, por outras condições de pagamento válidas.

Observações

Este Ponto de Entrada está localizado na rotina Calculo de Frete (TMSA200), é executado na função TMSA200NfC no botão Calcular.

É passado o parâmetro PARAMIXB para uso no ponto de entrada. Explicado na sessão variáveis deste documento.

Exemplos

User Function TM200CPG()

Local cCliente    := PARAMIXB[1]
Local cLoja        := PARAMIXB[2]
Local cCondPg := PARAMIXB[3] 
Local cServi      := PARAMIXB[4]
Local cCodNeg := PARAMIXB[5]

If cCliente == '000019' .And. cLoja == '01' 
  If cCondPg == 'SEM'  
       cCondPg := '000' 
   Endif
Endif

Return cCondPg

Preview

Veja também


Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

cCondPag (caracter)

  • Retornar a nova condição de pagamento.
Eventos de chamada do Ponto de EntradaAo clicar na opção Calcular, na tela de Calculo de Documentos, o PE TM200CPG() é chamado.

Sintaxe

TM200CPG - Altera Condição de Pagamento ( < cCliente> , < cLoja> , < cCondPg> , <cServi> , <cCodNeg> ) --> cCondPg

Variáveis

Passado por parâmetros o Array PARAMIXB contendo os seguintes dados:

ElementoDescrição
PARAMIXB[1]Informação do código do cliente
PARAMIXB[2]Informação da Loja do Cliente
PARAMIXB[3]

Informação da Condição de Pagamento

PARAMIX[4]Informação do Serviço
PARAMIX[5]

Informação do Código Negociação

Programa Fonte

TMSA200.PRW