Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Hercilio Henning Neto

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Hercilio Henning Neto

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
GFEA1183

GFEA1184 - Possibilita a inclusão de novas condições para definição do tipo de documento de frete na importação do CT-e

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA1183

Descrição:

Recebe o objeto XML do CT-e que está sendo importado.

Localização:

Será executado no início da na função que realiza a validaçãoatribuição do Tipo do Documento de Frete, antes de qualquer validação das regras do fonte padrão.

Programa Fonte:

GFEA118 - Importação de CT-e

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]ArrayObjeto completo do XMLSim

Retorno:

NomeTipoDescriçãoObrigatório
lRetBooleano

Indica se o tipo do documento de frete utilizado será o definido no PE ou pelo programa padrão

.T. -> Assumir o tipo do documento de frete do PE
.F. -> Realiza as regras do fonte padrão para definição do tipo do documento de frete

Sim
cTpDFCaracterTipo do Documento de Frete que será atribuido.Não

 

Bloco de código
languagedelphi
titleExemplo: GFEA1183
linenumberstrue
User Function GFEA1184()
	
	Local _cTPDF := "1"
	Local _oCte := PARAMIXB[1]
	Local _cTpCte := U_XmlValid(_oCte,{"_INFCTE","_IDE"},"_TPCTE")
	Local _cTpServ 	:= U_XmlValid(_oCte,{"_INFCTE","_IDE"},"_TPSERV") 
	Local _cXCaracAd := ""
	Local _lRet := .F.
	If XmlChildEx(_oCte:_INFCTE,"_COMPL") != Nil .And. XmlChildEx(_oCte:_INFCTE:_COMPL,"_XCARACAD") != Nil
		_cXCaracAd := U_XmlValid(_oCte,{"_INFCTE","_COMPL"},"_XCARACAD")
	EndIf
	
	If _cTpCte == '1' .And. _cTpServ == '0' .And. Upper(_cXCaracAd) $ 'SERVICO'
		_cTPDF := '10'
		_lRet := .T.
	EndIf
Return {_lRet, _cTPDF}