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
