ACBrNFeMonitor

[Flavio]

Li bastante aqui no forum e to com uma duvidas:
Qual a sequencia que devo seguir pra gerar os arquivos textos?
Ou gero apenas um que já cria a nota e envia?

[anacatacombs]

Boa Tarde Flávio..
Eu prefiro gerar os arquivos separadamente para tratar os erros depois.
Primeiro eu gero um que cria a nota fiscal (Nfe.CriaNfe), depois eu valido (Nfe.validarNfe), depois eu assino (Nfe.assinarNfe) depois eu envio (Nfe.EnviarNfe), e só depois eu imprimo o DANFE ...


[]'s

Ana

[Flavio]

Ana, Obrigado e muito Obrigado mesmo, era isso que eu queria saber.
Se não for te atrapahar tem como me mandar um modelo de cada um desses.
flavioadriano@flavioadriano.com.br

Qual versão do ACBrNFeMonitor VC TA USANDO?

[mbrigatti]

Ana,

estou com o erro: Erro: '' Is Not A Valid Date

Poderia me dizer o que estou fazendo de errado ?

NFE.CriarEnviarNFe("[Identificacao]
NaturezaOperacao=Rem. de Vasilhame
Modelo=55
Serie=1
Codigo=004213
Numero=004213
Serie=1
Emissao=30/07/2009
Saida=30/07/2009
Tipo=1
FormaPag=1
[Emitente]
CNPJ=07591645000187
IE=359059973135
Razao=XAXAX - INJECAO DE PECAS PLASTICAS LTDA
Fantasia=XAXAX
Fone=1935371252
CEP=13537000
Logradouro=AV 06
Numero=184
Complemento=
Bairro=CENTRO
CidadeCod=3521101
Cidade=IPEUNA
UF=SP
[Destinatario]
CNPJ=68149228000183
IE=587060992115
NomeRazao=XUXUX COMP. ELETRICOS ELETRON. LTDA
Fone=1935225122
CEP=13505600
Logradouro=AV. BRASIL
Numero=3464
Complemento=
Bairro=DISTRITO INDUSTRIAL
CidadeCod=3543907
Cidade=RIO CLARO
UF=SP
[Produto001]
CFOP=5920
Codigo=1
Descricao=CAIXA PRETA XXXXXX
Unidade=UN
Quantidade=5.0000
ValorUnitario=10.0000
ValorTotal=50.00
[ICMS001]
CST=40
ValorBase=0
Aliquota=0
Valor=0
[Total]
BaseICMS=0.00
ValorICMS=0.00
ValorProduto=50.00
ValorIPI=0.00
ValorPIS=0.00
ValorCOFINS=0.00
ValorNota=50.00",1,0)

[anacatacombs]

Estranho, parece tudo certo.
Veja se não tem espaços depois das datas...
normalmente ele não aceita espaços antes e depois.

Flávio.. tem como sim.. estou preparando um arquivo as funções detalhadas.. amanhã eu devo postar novamente.

[]'s

[mbrigatti]

Ana,

Já verifiquei, não há espaços, e também já alterei para a data de hoje, para verificar se o monitor não aceitava.
O erro persiste !
Poderia me enviar um comando para analisar ?

[anacatacombs]

Eu crio o arquivo da seguinte forma..

Código: Selecionar todos

Nfe_Handle := FCreate("C:\NFE\NFE.TXT")
FWRITELINE(Nfe_Handle,'Nfe.CriarNfe("[Identificacao]')
FWRITELINE(Nfe_Handle,"NaturezaOperacao="+ALLTRIM(Nt_Oper))
FWRITELINE(Nfe_Handle,"Modelo="+ALLTRIM(cMode))
FWRITELINE(Nfe_Handle,"Serie="+ALLTRIM(Serie))
FWRITELINE(Nfe_Handle,"Codigo="+ALLTRIM(STR(Codigonota)))
FWRITELINE(Nfe_Handle,"Numero="+ALLTRIM(STR(CodigoNota)))
FWRITELINE(Nfe_Handle,"Emissao="+DTOC(Emissao))
FWRITELINE(Nfe_Handle,"Saida="+DTOC(Saida))
FWRITELINE(Nfe_handle,"Tipo=1") // FORMATO DO DANFE
FWRITELINE(Nfe_Handle,"FormaPag="+cForma) // forma de pagamento
FWRITELINE(Nfe_Handle,"[Emitente]")
FWRITELINE(Nfe_Handle,"CNPJ="+si_cgc)
FWRITELINE(Nfe_Handle,"IE="+si_IE)
FWRITELINE(Nfe_Handle,"Razao="+ALLTRIM(si_raza))
FWRITELINE(Nfe_Handle,"Fantasia="+ALLTRIM(si_fant))
FWRITELINE(Nfe_Handle,"Fone="+RIGHT(si_fon1,10))
FWRITELINE(Nfe_handle,"CEP="+si_cep)
FWRITELINE(Nfe_Handle,"Logradouro="+si_ende)
FWRITELINE(Nfe_Handle,"Numero="+si_nume)
FWRITELINE(Nfe_Handle,"Complemento=")
FWRITELINE(Nfe_Handle,"Bairro="+ALLTRIM(si_bair))
FWRITELINE(Nfe_Handle,"CidadeCod="+ALLTRIM(si_ibge))
FWRITELINE(Nfe_Handle,"Cidade="+si_nomc)
FWRITELINE(Nfe_Handle,"UF="+ALLTRIM(si_esta))
FWRITELINE(Nfe_Handle,"[Destinatario]")
FWRITELINE(Nfe_Handle,"CNPJ="+de_cgc)
FWRITELINE(Nfe_Handle,"IE="+de_insc)
FWRITELINE(Nfe_Handle,"ISUF=")
FWRITELINE(Nfe_Handle,"NomeRazao="+ALLTRIM(de_raza))
FWRITELINE(Nfe_Handle,"Fone="+RIGHT(de_fon1,10))
FWRITELINE(Nfe_Handle,"CEP="+de_cep)
FWRITELINE(Nfe_Handle,"Logradouro="+de_ende)
FWRITELINE(Nfe_Handle,"Numero="+de_nume)
FWRITELINE(Nfe_Handle,"Complemento=")
FWRITELINE(Nfe_Handle,"Bairro="+de_bair)
FWRITELINE(Nfe_Handle,"CidadeCod="+ALLTRIM(de_ibge))
FWRITELINE(Nfe_Handle,"Cidade="+ALLTRIM(de_nome))
FWRITELINE(Nfe_Handle,"UF="+de_esta)
nProdu := 1
SELECT Tabela
SET ORDER TO 1
SEEK n_tipo+STRZERO(n_Codi,6)
DO WHILE !EOF() .AND. n_tipo == t_tipo .AND. n_codi == t_nota
   FWRITELINE(Nfe_Handle,"[Produto"+STRZERO(nProdu,3)+"]")
   FWRITELINE(Nfe_Handle,"CFOP="+ALLTRIM(t_cfop))
   FWRITELINE(Nfe_Handle,"Codigo="+alltrim(STR(t_prod)))
   FWRITELINE(Nfe_Handle,"Descricao="+ALLTRIM(t_nome))
   FWRITELINE(Nfe_Handle,"Unidade="+IIF(t_unid))
   FWRITELINE(Nfe_Handle,"Quantidade="+ALLTRIM(STR(t_quan,10,2)))
   FWRITELINE(Nfe_Handle,"ValorUnitario="+ALLTRIM(STR(t_valo,10,2)))
   FWRITELINE(Nfe_Handle,"ValorTotal="+ALLTRIM(STR(t_quan*t_valo,10,2)))
   FWRITELINE(Nfe_Handle,"[ICMS"+STRZERO(nProdu,3)+"]")
   FWRITELINE(Nfe_Handle,"CST="+t_cts)
   FWRITELINE(Nfe_Handle,"ValorBase="+ALLTRIM(STR(t_quan*t_valo,10,2)))
   FWRITELINE(Nfe_Handle,"Aliquota="+ALLTRIM(STR(t_icm,2),10,2))
   nIcms := (((t_quan*t_valo)*t_icm)/100)
   FWRITELINE( Nfe_Handle,"Valor="+ALLTRIM(STR(((t_quan*t_valo)*t_icm)/100),10,2) )
   nProdu ++
   SKIP
ENDDO
vbasecalc:=t_totp+t_fret-(t_desv+t_stro)
if t_base>0
   vbasecalc:=round((vbasecalc*t_base)/100,2)
endif
nBase := IIF(t_icm>0,((vbasecalc/100)*t_icm),0)
FWRITELINE(Nfe_Handle,"[Total]")
FWRITELINE(Nfe_Handle,"BaseICMS="+ALLTRIM(str(vBaseCalc,10,2)))
FWRITELINE(Nfe_Handle,"ValorICMS="+ALLTRIM(str(nBase,10,2)))
FWRITELINE(Nfe_Handle,"ValorProduto="+ALLTRIM(str(t_totp,10,2)))
FWRITELINE(Nfe_Handle,"ValorFrete="+ALLTRIM(str(t_fret,10,2)))
FWRITELINE(Nfe_Handle,"ValorNota="+ALLTRIM(str(t_totp)))
IF t_tran > 0
   FWRITELINE(Nfe_Handle,"[Transportador]")
   FWRITELINE(Nfe_Handle,"Freteporconta="+IIF(t_sifr=="1","0","1"))
   FWRITELINE(Nfe_Handle,"CnpjCpf="+(r_cgc),{".","/","-"})
   FWRITELINE(Nfe_Handle,"NomeRazao="+ALLTRIM(r_raza))
   FWRITELINE(Nfe_Handle,"IE="+ALLTRIM(r_insc))
   FWRITELINE(Nfe_Handle,"Endereco="+ALLTRIM(r_ende))
   FWRITELINE(Nfe_Handle,"Cidade="+r_nome)
   FWRITELINE(Nfe_Handle,"UF="+r_esta)
   FWRITELINE(Nfe_Handle,"ValorServico="+ALLTRIM(str(r_fret,10,2)))
   FWRITELINE(Nfe_Handle,"CidadeCod="+r_ibge)
   FWRITELINE(Nfe_Handle,"CFOP="+r_CFO)
   FWRITELINE(Nfe_Handle,"Placa="+ALLTRIM(tira_char(r_plac,{"-"})))
   FWRITELINE(Nfe_Handle,"ufplaca="+r_ufpl)
   FWRITELINE(Nfe_Handle,"[Volume001]")
   FWRITELINE(Nfe_Handle,"quantidade="+ALLTRIM(STR(r_volu,5)))
   FWRITELINE(Nfe_Handle,"Especie="+ALLTRIM(r_espe))
   FWRITELINE(Nfe_Handle,"Marca="+r_marc)
   FWRITELINE(Nfe_Handle,"Numeracao="+ALLTRIM(STR(r_nume,5)))
   FWRITELINE(Nfe_Handle,"PesoLiquido="+STR(r_liqu,10,2))
   FWRITELINE(Nfe_Handle,"PesoBruto="+STR(r_brut,10,2))
ENDIF
FOR Parc :=1 TO LEN(aRParc)
    FWRITELINE(Nfe_Handle,"[DUPLICATA"+strzero(Parc,3)+"]")
    FWRITELINE(Nfe_Handle,"Numero="+aRTipo[parc]+"-"+strzero(aRdocu[parc],6)+"/"+STRZERO(aRparc[parc]))
    FWRITELINE(Nfe_Handle,"DataVencimento="+DTOC(aRvenc[parc]))
    FWRITELINE(Nfe_Handle,"Valor="+ALLTRIM(STR(aRvalo[parc],10,2)))
NEXT parc
IF !EMPTY(nf_obs1)
   FWRITELINE(nfe_handle,"[InfAdic001]")
   FWRITELINE(nfe_handle,"Campo=Obs:")
   FWRITELINE(nfe_handle,"Texto="+t_obs1)
ENDIF
IF !EMPTY(nf_obs2)
   FWRITELINE(nfe_handle,"[InfAdic002]")
   FWRITELINE(nfe_handle,"Campo=Obs:")
   FWRITELINE(nfe_handle,"Texto="+t_obs2)
ENDIF
IF !EMPTY(nf_obs3)
   FWRITELINE(nfe_handle,"[InfAdic003]")
   FWRITELINE(nfe_handle,"Campo=Obs:")
   FWRITELINE(nfe_handle,"Texto="+t_obs3)
ENDIF
IF !EMPTY(nf_obs4)
   FWRITELINE(nfe_handle,"[InfAdic004]")
   FWRITELINE(nfe_handle,"Campo=Obs:")
   FWRITELINE(nfe_handle,"Texto="+t_obs4)
ENDIF
IF !EMPTY(nf_obs5)
   FWRITELINE(nfe_handle,"[InfAdic005]")
   FWRITELINE(nfe_handle,"Campo=Obs:")
   FWRITELINE(nfe_handle,"Texto="+t_obs5)
ENDIF
IF !EMPTY(nf_obs6)
   FWRITELINE(nfe_handle,"[InfAdic006]")
   FWRITELINE(nfe_handle,"Campo=Obs:")
   FWRITELINE(nfe_handle,"Texto="+t_obs6)
ENDIF
FWRITELINE(nFE_hANDLE,",1)")
FCLOSE(Nfe_Handle)

Alterei algumas coisas pra melhorar a compreensão do código fonte.
Espero que entenda.

[Flavio]

Perfeito Ana, Meu sistema já ta emitindo NFE obrigado mesmo se precisar de algo to a disposição.

[SandroBelarmino]

estou com o erro: Erro: '' Is Not A Valid Date

Verifique o formato da data do windows no painel de controle -> opções regionais e de idioma, o formato da data deve estar no mesmo formato que voce está mandando no arquito texto. Pode ser isso.

[mbrigatti]

Colega,

Já fiz isso. O erro permanece

[anacatacombs]

Vc ta usando SET DATE TO... ?

[SandroBelarmino]

Pelo exemplo do arquivo texto que voce postou, a data está como:30/07/2009, portanto nas opções regionais do painel de controle, o formato da data abreviada tem que estar como: "dd/mm/aaaa". Eu tive o mesmo problema quando fui testar o nfemonitor pela 1ª vez, e tambem, hoje de manhã no forum do projeto acbr, o André, um dos desenvolvedores do projeto, respondeu essa mesma questão, e a resposta foi exatamente essa que eu te passei.
Aprioveitando, já tem a versao 0.5.2b do acbrnfemonitor: Versão CAPICOM - http://djsystem.sytes.net/ccount/click.php?id=6 (Compatível com A3)
Versão OpenSSL - http://djsystem.sytes.net/ccount/click.php?id=7

[mbrigatti]

Ana e Sergio,

Grato pela colaboração. Finalmente encontrei o problema.
Percebi isso graças ao comando da Ana.
O que acontecia é que estava criando uma String com o conteúdo e passando para o monitor. Então passei a gerar uma arquivo com várias linhas como a Ana fez e resolveu.
Gerou o XML.

Sem mais cordialmente,

Marcelo Brigatti
Sistemas IES

[mbrigatti]

E ai pessoal, Ana...

Quem é que já colocou em produção ?
Está tudo correndo bem ?

Vocês saberiam como enviar email com xml anexo para dois destinatários ?

[]s Marcelo
Sistemas IES

[SandroBelarmino]

Quem é que já colocou em produção ?
Está tudo correndo bem ?

Vocês saberiam como enviar email com xml anexo para dois destinatários ?

Eu já estou usando o acbrnfemonitor em 4 clientes em produção desde 01/09/09 e nao estou tendo problemas.
Quanto ao email, experimente separar os endereços dos destinatários com ; pra ver se dá certo, pra ser honesto eu nunca tentei, pois meus clientes optaram por enviar os xml manualmente pelo outlook pois assim fica registrado na caixa de saída que o email foi enviado, o que não acontece usando o monitor.

Sandro.