Sigelman Araujo

sim, me diga apenas o arquivo onde eu acho essa classe para eu estudar direitinho

tenho uma nota de devolução que quando gera o XML fica da seguinte maneira: <ICMSTot> <vBC>239.13</vBC> <vICMS>9.57</vICMS> <vICMSDeson>0.00</vICMSDeson> <vFCP>0.00</vFCP> <vBCST>0.00</vBCST> <vST>0.00</vST> <vFCPST>0.00</vFCPST> <vFCPSTRet>0.00</vFCPSTRet> <vProd>239.13</vProd> <vFrete>0.00</vFrete> <vSeg>0.00</vSeg> <vDesc>0.00</vDesc> <vII>0.00</vII> <vIPI>19.21</vIPI> <vIPIDevol>0.00</vIPIDevol> <vPIS>0.00</vPIS> <vCOFINS>0.00</vCOFINS> <vOutro>0.00</vOutro> <vNF>258.34</vNF> </ICMSTot> perceba que o VIPI tem valor e o VIPIDevol fica zerado, como faço para que o valor seja colocado em vIPIDevol e não em vIPI, em caso de nota de devolução?

eu descobri o que era, na verdade é que eu não usei as bandeiras de cartão, usei o bcOutros, então não precisei informar o CNPJReceb := PontoDeVenda.Empresa.cpfCnpj; e o idTermPag := fmCaixa.CAIXA; então ele funcionou certinho. pode fechar o tópico.

tPag := fpCartaoCredito; tpIntegra := tiPagIntegrado; CNPJ := '00301452000103'; tBand := bcOutros; cAut := fmCaixa.NSU; //CNPJReceb := PontoDeVenda.Empresa.cpfCnpj; idTermPag := fmCaixa.CAIXA; meu caro, estou buscando o NSU e todos os outros dados certinho, mas ainda continua dando esse erro na tag card, pode dar alguma luz ?

o componente ACBR envia a nota 10000 : // Proximo comando a ser executado case iComando of 0 : case iTipoCampo of 102 : // Retorna para 'a aplicação a forma de Pagamento // para uso de impressao begin cFormaPagtoTef := cMensagem; iSituacao := iContinuaSitef; end; 121 : // Retorna para 'a aplicação o Cupom do cliente begin cCupomDoCliente := cCupomDoCliente + cMensagem; NM_MontaMsg( 5000, cMensagem, '' ); iSituacao := iContinuaSitef end; 122 : // Retorna para 'a aplicação o Cupom não Fiscal begin cCupomDoCaixa := cCupomDoCaixa + cMensagem; NM_MontaMsg( 5000, cMensagem, '' ); iSituacao := iContinuaSitef end; 135: //Retorna o NSU da trasação begin ValorFormatado := cMensagem; QNSU:= ValorFormatado; iSituacao := iContinuaSitef end na transação eu programei desta forma e segundo informação da Software express, o código de retorno para o NSU seria 135, mas acabou dando um erro olhei no XML e a tag cAut não apareceu <pag> <detPag> <tPag>03</tPag> <vPag>20.67</vPag> <card> <tpIntegra>1</tpIntegra> <CNPJ>00301452000103</CNPJ> <tBand>99</tBand> <CNPJReceb>01432141000146</CNPJReceb> <idTermPag>20</idTermPag> </card> </detPag> </pag> <infAdic>

usamos a software express, o clisitef

não mas só percebi depois, por isso perguntei. estou analisando o sistema ainda. rsrsrs mas se tivesse, qual seria o componente?

InfoPgto.cAut := existe algum componente da ACBR onde eu possa pegar esse dado de autorização?

Pessoal, postei, mas depois vi que já tinha um tópico que resolvia essa questão e deu tudo certo. pode fechar o tópico

Pessoal ao enviar uma NF-e a receita me enviou esta mensagem

pessoal, instalei o modulo NFE no meu computador e funcionava tudo certinho, porém, alterei meu windows para 11 e uso os mesmos certificados e o sistema me dá a informação "o conjunto de chaves não existem". Alguém sabe me dizer o que pode estar acontecendo?

caros colega, meu sistema de frente de loja em delphi 7 imprimia o cupom na impressora corretamente, porém fiz uma alteração no sistema, que não tem nada a ver com a impressão do cupom, mas ao levantar a nova versão, a impressora passou a imprimir o cupom corretamente, mas imprime também cupons antigos, discriminadamente. alguém já passou por isso e pode dar uma dica?

sim, gerou erro de ncm

procedure NotaFiscal.Validar; var Erro, AXML: String; NotaEhValida, ok: Boolean; ALayout: TLayOut; VerServ: Real; Modelo: TpcnModeloDF; cUF: Integer; begin AXML := FXMLAssinado; if AXML = '' then AXML := XMLOriginal; with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin VerServ := FNFe.infNFe.Versao; Modelo := StrToModeloDF(ok, IntToStr(FNFe.Ide.modelo)); cUF := FNFe.Ide.cUF; if EhAutorizacao( DblToVersaoDF(ok, VerServ), Modelo, cUF) then ALayout := LayNfeAutorizacao else ALayout := LayNfeRecepcao; // Extraindo apenas os dados da NFe (sem nfeProc) AXML := ObterDFeXML(AXML, 'NFe', ACBRNFE_NAMESPACE); if EstaVazio(AXML) then begin Erro := ACBrStr('NFe não encontrada no XML'); NotaEhValida := False; end else NotaEhValida := SSL.Validar(AXML, GerarNomeArqSchema(ALayout, VerServ), Erro); if not NotaEhValida then begin FErroValidacao := ACBrStr('Falha na validação dos dados da nota: ') + IntToStr(NFe.Ide.nNF) + sLineBreak + FAlertas; FErroValidacaoCompleto := FErroValidacao + sLineBreak + Erro; raise EACBrNFeException.CreateDef( IfThen(Configuracoes.Geral.ExibirErroSchema, ErroValidacaoCompleto, ErroValidacao)); end; end; end; fmNFce.btnCriarEnviarNFCeClick(Sender); deixe ver se eu sou mais claro, a procedure acima trata o erro na validação da nota. no meu formulário eu chamo o btncriarenviarNFCeClick porém se na validação der algum erro, nada mais abaixo do btncriarenviarNFCeClick será executado. meu problema é a procedure não retorna valores para que eu possa tratar após o btncriarenviarNFCeClick tem alguma forma de pegar esse retorno?

veja, eu forcei um erro no envio de uma nota, coloquei o NCM errado, o sistema me retornou isso. eu gostaria de pegar o código de retorno para guardar essa nota rejeitada no banco, entende? neste momento de rejeição, como pego aqueles códigos? e se nesse momento, ele já gerou a chave da nota.

Entendi, minha pergunta é como pego isso, exemplo (ACBrNFe1.WebServices.Retorno.RetornoWS) esse retorno me dá esses códigos?

bom dia, estou precisando pegar o código de retorno da sefaz, andei lendo sobre os códigos e obtive esses acima. meu propósito é saber se a nota foi aceita tudo correto ou rejeitada. se rejeitada, guardo o XML no computador para enviar por contingência, porém quero acrescentar algumas informações ao nome do arquivo XML. minha pergunta é, em que momento sei que foi aceita ou não?

amigo, pode fechar o tópico, consegui resolver tudo por aqui. obrigado pela atenção

amigo, estou quase chegando lá, com paciência... ao enviar a nota, o sistema me retornou a seguinte mensagem

enviei uma nota e o sistema me deu três respostas: as telas estão em sequência das respostas após teclar <ENTER> porém a última deu erro. ps: coloquei tpEmis := teOffLine;

existe uma tabela de retorno das mensagens da SEFAZ em algum módulo da ACBR?

fiz um teste com o validador da sefaz no meu xml e não deu erro, usei o app da acbr e me retornou o erro já reportado acima. o app que estou usando da acbr é este da imagem. opção da validar XML

ao enviar nota de contingencia obtive esse erro, alguém pode dar alguma dica?

coo estou engatinhando nisso, gostaria de saber se muda alguma configuração no XML para fazer esse envio? vi que em um tópico tem um curso sobre isso, como adquirí-lo?

Gostaria de saber o módulo que envia Nota de Contingência para a SEFAZ?