Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Hercilio Henning Neto

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Hercilio Henning Neto

Gravado em

Chave

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

GFEA1183 - 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 função que realiza a validação, antes do processamento de importação padrão do GFEde qualquer validação 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 deve ou não continuar o processamento e importação do arquivo XMLo tipo do documento de frete utilizado será o definido no PE ou pelo programa padrão

.T. -> Continua a importação do arquivo XMLAssumir o tipo do documento de frete do PE
.F. -> Aborta a importação do arquivo XML 

Sim

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 GFEA1183GFEA1184()
	
	Local _oXMLcTPDF := "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 := .TF.
	Local _cTpCteIf XmlChildEx(_oCte:_INFCTE,"_COMPL") != Nil .And. XmlChildEx(_oCte:_INFCTE:_COMPL,"_XCARACAD") != Nil
		_cXCaracAd := U_XmlValid(_oXMLoCte,{"_INFCTE","_IDECOMPL"},"_TPCTEXCARACAD")
	EndIf
	
	If _cTpCte $== '2;3'
		// CT-e de anulação/substituição não devem ser importados.1' .And. _cTpServ == '0' .And. Upper(_cXCaracAd) $ 'SERVICO'
		_cTPDF := '10'
		_lRet := .FT.
	EndIf
Return {_lRet, _cTPDF}