duvida com duas funcoes para o Acbr

[porter]

olá pessoal, estou usando exemplos aqui do forum para gerar arquivo para AcbrMonitoPlus, existe uma chamada para uma função assim:
NFe_Aux_StatusNota("ENVIADA")

Gostaria de saber se tem como me passar essas funções para eu ver o que elas fazem porque so tenho aqui no exemplo, a chamada da função, portanto nao tenho como saber qual a função delas.

essa também
cChaveNFe := NFe_Aux_PegaChave()

xHarbour
obrigado.

[Jairo Maia]

Olá Porter,

Onde você encontrou essas funções? No manual distribuído junto com o ACBr (arquivo ACBrMonitor.chm que está na pasta do ACBr) elas não existem.

[porter]

olá Jairo, a rotina abaixo, peguei em um exemplo que o fladimir postou aqui no forum, eu acho que a função dela é gravar "VALIDADA" no campo Status do Arquivo Notas.dbf, mas gostaria de confirmar.

Código: Selecionar todos

if "OK:" $ cNFeLog
         lErro:=.F.
         NFe_Aux_StatusNota("VALIDADA") [b]<-- o que faz essa função ?[/b]
         return
elseif "ERRO" $ cNFeLog
         lErro:=.T.
         vcr = 2
         Alert(Hb_UTF8ToStr('Atenção!!! Não foi possível Validar a NF-e;' + ' Verifique o Retorno da SEFAZ;' + ' Será necessário validar a NF-e!;;' , {' Pressione Enter '},vcr ) )
         Aux_NFe_MostraRetACBr()
endif

Código: Selecionar todos

if ("REJEICAO" $ cNFeLog) .or. ('DENEGADO' $ cNFeLog) .or. ('IRREGULARIDADE FISCAL DO DESTINATARIO' $ cNFeLog)
   	lErro:=.T.
	vcr := 2
   	if 'DUPLICIDADE' $ cNFeLog
   	    Alert( "Atencão!!! Foi verificado DUPLICIDADE no retorno do SEFAZ;"+ " Verifique o Retorno da SEFAZ;"+ " Será necessário Corrigir a NF-e ou Tentar novamente!;;" , {"Pressione Enter "},vcr)
   	    NFe_Aux_StatusNota("DUPLICIDADE")
   	else
   	    Alert( "Atenção!!! Não foi Autorizada a NF-e;"+ " Verifique o Retorno da SEFAZ;"+ " Será necessário Corrigir a NF-e ou Tentar novamente!;;" , {"Pressione Enter "},vcr)
   	    Aux_NFe_MostraRetACBr()
        endif
else
        lErro:=.F.
        Nota->STATUS  := "AUTORIZADA"
[b]        cChaveNFe := NFe_Aux_PegaChave()[/b] <-- o que faz essa função ?
        NFe_ImprimirDANFE() // Imprimir DANFE
        NFe_EnviarEmail( cChaveNFe+'-NFe.XML', cEmailx )
endif

obrigado.

[fladimir]

A função NFe_Aux_PegaChave() pega a chave do nome do arquivo do ACBr vc pode bolar como achar melhor... inclusive tem uma função no ACBr q devolve a chave da NFe, mas como surgiu depois de eu ter implementado eu ainda uso assim

segue fonte dela...

Código: Selecionar todos

********************************************************************************
function NFe_Aux_PegaChave(cChaveNFe)
********************************************************************************
    default cChaveNFe To NFe->NomeArqXML

 *-- Devolve a ChaveNFe
 
	cChaveNFe:= StrTran(cChaveNFe, Alltrim(Path->CaminhACBr),"")
	cChaveNFe:= UPPER(Alltrim(cChaveNFe))
	cChaveNFe:= StrTran(cChaveNFe,"-","")
	cChaveNFe:= StrTran(cChaveNFe,"\","")
	cChaveNFe:= StrTran(cChaveNFe,"NFE","")
	cChaveNFe:= StrTran(cChaveNFe,"CTE","")
	cChaveNFe:= StrTran(cChaveNFe,"RESPOSTA","")
	cChaveNFe:= StrTran(cChaveNFe,"C:","")
	cChaveNFe:= StrTran(cChaveNFe,"ACBR","")
	cChaveNFe:= StrTran(cChaveNFe,".","")
	cChaveNFe:= StrTran(cChaveNFe,"XML","")
	cChaveNFe:= StrTran(cChaveNFe,'OK:','')

return cChaveNFe

E a NFe_Aux_StatusNota() muda o status da NFe na tabela minha q armazeno o ultimo status da NFe

Código: Selecionar todos

//------------------------------------------------------------------------------

function NFe_Aux_StatusNota(cStatusNota)
   NFe->STATUS    := cStatusNota		
return nil

[porter]

ola Fladimir, obrigado por responder, não estou conseguindo compilar o comando abaixo, o que ele faz, ele grava no NFe->NomeArqXML o valor de cChaveNFe ?

function NFe_Aux_PegaChave(cChaveNFe)
default cChaveNFe To NFe->NomeArqXML <-- esse comando

xHarbour.

obrigado.

[fladimir]

acrescenta no inicio do teu código o seguinte:

Código: Selecionar todos

#xcommand DEFAULT <uVar1> To <uVal1>  [, <uVarN> To <uValN> ] ;
	          => ;
	            <uVar1> := IF( <uVar1> == NIL, <uVal1>, <uVar1> ) ;;
	          [ <uVarN> := IF( <uVarN> == NIL, <uValN>, <uVarN> ); ]