marcionicolao

Realmente, arrumei e agora foi Falha nossa, de não verificar com o usuário a nota antes, as vezes pensamos que é o processo, os erros nos direcionam para outros lados, muito obrigado Renato e a todos os Moderadores. Boa noite

43220727309524000115550010000086121687472108-nfe.xml

Boa tarde Renato Ele não esta gerando o XML, o sistema é proprio e utilizo o ACBR para validar, o envio mostra esse erro Rejeicao: Falha no Schema XML do lote de NFe Desculpe nossa falha do XML, realmente aquele ali esta valido Ele começou a travar as 15hs att marcio

Boa tarde, Tbm estou com esse problema, Rejeicao: Falha no Schema XML do lote de NFe * Já atualizei o windows 7 32b * ja atualizei o schemas * ja alterei o fonte de envio incluido a tag subsituicao, mas tag da anvisa, olhei na NF é diz q é facultativo para empresas que não vendem medicamentos. alguem tem uma luz? Obrigado Marcio 43220727309524000115550010000086111249689109-nfe.xml

Bom dia, Retomando o assunto, não tem algum projeto ACBR para geração desse arquivo FCI ou geração dessa string para envio na NFe. Obrigado

Ver manual de orientação - ver o Manual de Orientação Contribuinte v 6.00 - Minuta - pag 187 cNF = Código Numérico que compõe a Chave de Acesso Código numérico que compõe a Chave de Acesso. Número aleatório gerado pelo emitente para cada NF-e para evitar acessos indevidos da NF-e. (v2.0). No meu caso eu não informo, ele gera um numero aleatorio que fica no xml, mais uma proteção para consultas indevidas.

Boa noite, PARA: Rejeição: Grupos Veiculo Transporte e Reboque não devem ser informados if TbNotaFiscal.FieldByName('CFOP').AsString[1] in ['2', '6'] then begin // não informar nada, testado e homologado end else begin Transp.Transporta.xNome := TbNotaFiscal.FieldByName('NOMETRANSPORTADOR').AsString; Transp.Transporta.CNPJCPF := DeixaSoNumero(TbNotaFiscal.FieldByName('CNPJ_TRANSP').AsString); Transp.Transporta.xEnder := TbNotaFiscal.FieldByName('ENDERECOTRANSPORTADOR').AsString; Transp.Transporta.IE := TbNotaFiscal.FieldByName('CNPJCPF').AsString; Transp.Transporta.xMun := TbNotaFiscal.FieldByName('MUNICIPIOTRANSPORTADOR').AsString; Transp.Transporta.UF := TbNotaFiscal.FieldByName('UF1TRANSPORTADOR').AsString; Transp.Vol.Add.qVol := TbNotaFiscal.FieldByName('qUANTIDADE').asInteger; Transp.Vol.Add.esp := TbNotaFiscal.FieldByName('ESPECIE').asString; Transp.Vol.Add.marca := TbNotaFiscal.FieldByName('MARCA').asString; If TbNotaFiscal.FieldByName('PESOLIqUIDO').asString <> '' then Transp.Vol.Add.pesoL := strtocurr(DeixaSoNumero(TbNotaFiscal.FieldByName('PESOLIqUIDO').asString)); If TbNotaFiscal.FieldByName('PESOBRUTO').asString <> '' then Transp.Vol.Add.pesoB := strtocurr(DeixaSoNumero(TbNotaFiscal.FieldByName('PESOBRUTO').asString)); Transp.veicTransp.placa := TbNotaFiscal.FieldByName('PLACAVEICULO').AsString; Transp.veicTransp.placa := TiraEspacos(Transp.veicTransp.placa); Transp.veicTransp.UF := TbNotaFiscal.FieldByName('UF1TRANSPORTADOR').AsString; end; Function TiraEspacos(X1: String): String; Var f: integer; aux1, aux2, aux3: String; begin aux2 := ''; aux3 := TrimLeft(X1); For f := 1 to Length(aux3) do Begin if aux3[f] = ' ' then continue; aux2 := aux2 + aux3[f]; End; result := aux2; End;

Atualizei mas ainda da erro [dcc32 Error] unt_Principal.pas(530): E2003 Undeclared identifier: 'PathCan' [dcc32 Error] unt_Principal.pas(531): E2003 Undeclared identifier: 'PathCCe' [dcc32 Error] unt_Principal.pas(533): E2003 Undeclared identifier: 'SalvarCCeCanEvento' [dcc32 Error] unt_Principal.pas(555): E2003 Undeclared identifier: 'PathSalvar' [dcc32 Warning] unt_Principal.pas(938): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] unt_Principal.pas(942): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] unt_Principal.pas(946): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Error] unt_Principal.pas(1403): E2003 Undeclared identifier: 'SaveToFile' [dcc32 Warning] unt_Principal.pas(1414): W1057 Implicit string cast from 'RawByteString' to 'string' [dcc32 Error] unt_Principal.pas(1415): E2003 Undeclared identifier: 'PathSalvar' [dcc32 Error] unt_Principal.pas(1440): E2003 Undeclared identifier: 'SaveToFile'

http://www.flexdocs.com.br/guianfe/gerarNFe.detalhe.imp.ICMS.html

Cancelamento NFe - Erro: Desativado de acordo com ajuste SINIEF 16/12. Usar o evento do cancelamento (NT 2011/006) Fiz a atualização na pasta c:\Program Files\Borland\BDS\3.0\lib\ACBR e depois compilei o projeto e na hora de cancelar ele da uma mensagem assim. Tenho um software proprio e essa chamada: ======================================================================= procedure TForm_NotaFiscal.BitBtn61Click(Sender: TObject); var lMotivo : string; begin // busca a nota certa no banco TbTabela.Locate('codigo',QryPesquisa.fieldbyname('codigo').asinteger,[]); if Application.MessageBox(pchar('Cancelamenta NF-e enviada a SEFAZ ?'),pchar('Aviso'),4+32+0)=Idno then exit; lMotivo := InputBox('Cancelamento de NFe','Informe a Justificativa:',''); if (lMotivo <> EmptyStr)then begin if Application.MessageBox('Deseja realmente cancelar esta NFe ?','Cancelamento de NFe',mb_yesno + MB_ICONQUESTION) = idYes then begin AquaNFe.CancelarNFe(TbTabelaNFE_CHAVEACESSO.AsString, TbTabelaNFE_PROTOCOLO.AsString, lMotivo); end; end else begin showmessage('Indentificar o motivo porque foi cancelada a NFE.'); exit; end; end; ======================================================================= SEMPRE FUNCIONOU SEM PROBLEMAS, MAS AGORA DA ESSA MENSAGEM, QUE POSTEI NO INICIO.... ALGUEM TEM A SOLUÇÃO