Olá, Kapiaba!
Obrigado pela sugestão, mas a princípio não houve mudança no preenchimento desta tag!.. No meu caso, o código é bem simples:
Chamada da função Fxml_Ide()
//cTpEmis só um dos seguintes valores: 1 ou 7
Fxml_Ide(@cXml,;
'26',; // cUF
StrZero(Val(NFSAI->SEQ_PEDVDA),8),; // cNF
CFOP->DESCRICAO,; // natOp
cIndPag,; // indPag
'55',; // mod
Alltrim(NFSAI->SERIE),; // serie
Trim(Str(Val(NFSAI->NUMERO),6)),; // nNF
NFSAI->EMISSAO,; // dhEmi
NFSAI->XML_HRGER,; // cTimeE
NFSAI->XML_DTGER,; // dhSaiEnt,;
NFSAI->XML_HRGER,; // cTimeS,;
'1',; // tpNF
IF(FILI->UF = CLI->UF,'1','2') ,; // idDest
cMunFG,; // cMunFG
'1',; // tpImp
cTpEmis,; // tpEmis
Right(cChaveNFe,1),; // cDv
CTL->TPAMB_NFE,; // cAmbiente
IF(NFSAI->NATOPER$'1,3,5','1','4'),; // finNFe
cIndFinal,; // indFinal
'9',; // indPres
'3',; // procEmi:
'4.00_b002') // verProc:
Corpo da função :
Static Function Fxml_Ide(pXml,cUF,cNF,natOp,indPag,mod,serie,nNF,dhEmi,cTimeE,dhSaiEnt,cTimeS,tpNF,idDest,cMunFG,tpImp,tpEmis,cDV,cAmbiente,finNFe,indFinal,indPres,procEmi,verProc)
Local cDtCont:=CTL->DTCONT_NFE,;
cHrCont:=CTL->HRCONT_NFE,;
cJust:=CTL->MTCONT_NFE
pXml+='<ide>' // Início da TAG (ide)
pXml+=FxmlTag('cUF', cUF)
pXml+=FxmlTag('cNF', cNF)
pXml+=FxmlTag('natOp', natOp)
// pXml+=FxmlTag('indPag', indPag) // Na ver 4.0 este campo foi retirado.
pXml+=FxmlTag('mod', mod)
pXml+=FxmlTag('serie', serie)
pXml+=FxmlTag('nNF', nNF)
pXml+=FxmlTag('dhEmi', Transform( Dtos( dhEmi ) , "@R 9999-99-99" ) + "T" + cTimeE + "-03:00")
pXml+=FxmlTag('dhSaiEnt', Transform( Dtos( dhSaiEnt), "@R 9999-99-99" ) + "T" + cTimeS + "-03:00")
pXml+=FxmlTag('tpNF', tpNF)
pXml+=FxmlTag('idDest', idDest)
pXml+=FxmlTag('cMunFG', cMunFG)
pXml+=FxmlTag('tpImp', tpImp)
pXml+=FxmlTag('tpEmis', tpEmis)
pXml+=FxmlTag('cDV', cDV)
pXml+=FxmlTag('tpAmb', cAmbiente)
pXml+=FxmlTag('finNFe', finNFe)
pXml+=FxmlTag('indFinal', indFinal)
pXml+=FxmlTag('indPres', indPres)
pXml+=FxmlTag('procEmi', procEmi)
pXml+=FxmlTag('verProc', verProc)
If tpEmis="7"
pXml+=FxmlTag('dhCont', Transform( Dtos( cDtCont ) , "@R 9999-99-99" ) + "T" + cHrCont + "-03:00")
pXml+=FxmlTag('xJust', FsanearDados(@cJust))
Endif
// BA. Documento Fiscal Referenciado
If NFSAI->NATOPER='8'
pXml+='<NFref>'
pXml+=FxmlTag('refNFe', NFSAI->XML_NFREF)
pXml+='</NFref>'
Endif
pXml+='</ide>'
Return Nil
O arquivo é importado normalmente pelo emissor e depois executo os passos de: validar, assinar e transmitir!...
Além disso, submeti o arquivo xml ao validador do sefaz-RS, sendo a assinatura digital o único ponto de inconsistência identificado. O que é estranho, visto que foi assinado pelo emissor.
Já acionei o suporte do sebrae-sp, mas ainda não obtive retorno.
O que você sugere?!..
Obrigado pela ajuda.