Linha Microsiga Protheus

Árvore de páginas

OMSM0111 - Ponto de Entrada - Conversão do código do tipo de frete (integração Protheus) na versão P12

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Distribuição e Logística

Módulo:

Gestão de Frete Embarcador

Versões/Release:

Release 12.1.6

 

Ponto de Entrada

Descrição:

O Ponto de entrada OMSM0111 foi criado na rotina de integração com o Microsiga Protheus®, para poder converter o código do tipo de frete da Nota Fiscal de Saída.

Localização:

Faturamento/Documento de Saída

Eventos:

OMSM0111( [cTpFrete], [cOpc], [nSeq], [cCodigo] ) --> cTpFrete

Programa Fonte:

OMSM011.PRW

Parâmetros:

PARAMIXB[1] - Caracter --> Tipo de frete da Nota Fiscal de Saída
PARAMIXB[2] - Caracter --> Momento em que o ponto é executado, sendo: "1" - Frete do cabeçalho do documento de carga (GW1_TPFRET) ou "2" - Trecho do Redespacho (GWU_PAGAR)
PARAMIXB[3] - Numérico --> Número da sequência do trecho
PARAMIXB[4] - Caracter --> Código do Transportador Principal ou do Redespacho

Retorno:

Nome

Tipo

Descrição

Obrigatório

cTpFrete

Caracter

Tipo de frete do documento de carga, com o código convertido para o SIGAGFE

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function OMSM0111()

Local _cRet := ""
Local _cTpFrete := PARAMIXB[1] //Tipo de frete da Nota Fiscal de Saída
Local _cOpc := PARAMIXB[2] //"1" - Frete do cabeçalho do documento de carga (GW1_TPFRET) ou "2" - Trecho do Redespacho (GWU_PAGAR)
Local _nSeq := PARAMIXB[3] //Número da sequencia do trecho
Local _cCodigo := PARAMIXB[4] //Código do Transportador Principal ou do Redespacho

If _cOpc == "1"
//Atualiza o campo: GW1_TPFRET
_cRet := _cTpFrete
ElseIf _cOpc == "2"
//Atualiza o campo: GWU_PAGAR onde: "C"- irá Pagar e "F"- não irá pagar
If _nSeq == 2 .And. _cCodigo == "000002"
_cRet := "F" //F-FOB
Else
_cRet := _cTpFrete
EndIf
EndIf

Return _cRet