Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TM200TES - Altera o TES Retornado pela Regra de Tributação
Abrangências: Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Este Ponto de Entrada está localizado na rotina de calculo de Frete (TMSA200).Este Ponto de Entrada tem como finalidade alterar o TES retornado pela Regra de Tributação.
Eventos


 

Programa Fonte 
TMSA200.PRW
Sintaxe

TM200TES - Altera o TES Retornado pela Regra de Tributação ( [ aNFCTRC ], [ cCliRem ], [ cLojRem ], [ cTes ], [ cComp ], [ cCliDev ], [ cLojDev ] ) --> cTesEsp

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aNFCTRC Array of Record Array de Notas Fiscais
cCliRem Caracter Cliente Remetente
cLojRem Caracter Loja do Cliente Remetente
cTes Caracter Codigo do TES
cComp Caracter Codigo do Componente
cCliDev Caracter Código do Cliente Devedor
cLojDev Caracter Loja do Devedor do Frete
Retorno
    cTesEsp(caracter)
  • Número da TES que será utilizada.
Observações

Os parametros passados para este Ponto de Entrada são :

1. Array contendo as Notas fiscais / Serie.

2. Cliente Remetente.

3. Loja Cliente Remetente.

4. Código do Tipo de Entrada e Saida.

5. Código do Componente da Composição do Frete.

6. Código do Cliente Devedor.

7. Loja do Devedor do Frete.

O Retorno deste Ponto de Entrada deverá ser o novo TES

Exemplos 
#Include "Protheus.ch" User Function TM200TES()Local aNFCTRC			:= PARAMIXB[1] Local cCliRem 			:= PARAMIXB[2]Local cLojRem			:= PARAMIXB[3]Local cRegra			:= PARAMIXB[4]Local cFrete			        := PARAMIXB[5]Local cCliDev 			:= PARAMIXB[6]Local cLojDev			:= PARAMIXB[7]MSGALERT("Passou pelo Ponto de entrada TM200TES")If(cCliDev != "SPO001")	cRegra := "501"EndIfReturn (cRegra)
Preview