Depois da aplicação de algum patch que não identifiquei meu ponto de entrada PE01NFESEFAZ começou a gerar problemas sendo necessário desabilitar, não consegui encontrar o erro nele apesar da documentação e ele ser um fonte bem simples. Exemplos dos erros é no faturamento indo com a TAG vTroco preenchida mesmo sem ter valor nele.
#Include ‘Protheus.ch’
/*/{Protheus.doc} PE01NFESEFAZ
…
@since 03/10/2013
@version 1.0
@return aProd,cMensCli,cMensFis,aDest,aNota,aInfoItem,aDupl,aTransp,aEntrega,aRetirada,aVeiculo,aReboque
@description
Manipulação dados NfeSefaz
@see http://tdn.totvs.com/pages/releaseview.action?pageId=6077191
/*/
User Function PE01NFESEFAZ()
Local aProd := PARAMIXB[1]
Local cMensCli := PARAMIXB[2]
Local cMensFis := PARAMIXB[3]
Local aDest := PARAMIXB[4]
Local aNota := PARAMIXB[5]
Local aInfoItem := PARAMIXB[6]
Local aDupl := PARAMIXB[7]
Local aTransp := PARAMIXB[8]
Local aEntrega := PARAMIXB[9]
Local aRetirada := PARAMIXB[10]
Local aVeiculo := PARAMIXB[11]
Local aReboque := PARAMIXB[12]
Local aNfVincRur := PARAMIXB[13]
Local aEspVol := PARAMIXB[14]
Local aNfVinc := PARAMIXB[15]
Local aDetPag := PARAMIXB[16]
Local aObsCont := PARAMIXB[17]
Local aProcRef := PARAMIXB[18]
Local aMed := PARAMIXB[19]
Local aLote := PARAMIXB[20]
If Len(aNota)>0
If Len(aNota)>=4 .and. aNota[4]==“1”
dbSelectArea(“SC6”)
dbSetOrder(4)
If dbSeek( xFilial(“SC6”) + aNota[2] + aNota[1] )
cMensCli += "Pedido: " + AllTrim( SC6->C6_NUM )
EndIf
EndIf
EndIf
Return {aProd,cMensCli,cMensFis,aDest,aNota,aInfoItem,aDupl,aTransp,aEntrega,aRetirada,aVeiculo,aReboque,aNfVincRur,aEspVol,aNfVinc,aDetPag,aObsCont,aProcRef,aMed,aLote}