Sigelman Araujo

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?

O dado estava indo como string quando deveria ser PansiString (ansiString(dado))

Resolvido

alguém já passou por isso? envio o valor de 2,19 e o TEF cobra 0,02. Alguma dica?

Pessoal, obrigado pela dica do ANSI UNICODE, deu um certo trabalho, mas consegui, ficou tudo certinho. Resolvido.

Difícil compreender, com delphi 7 funciona, quando compilo com delphi 10 não funciona ele dá código de loja inválido meu código de loja 89000145 essa é a função chamada, já coloquei PAnsiChar e também não funcionou. function ConfiguraIntSiTefInterativoEx ( pEnderecoIP:PChar; pCodigoLoja:PChar; pNumeroTerminal:PChar; Reservado: smallint; ParamAdic: PChar integer; far; stdcall; external 'CliSiTef32I.dll';

meu caro, tem um how to use desses ACBrTEFD ou ACBrTEFAPI?

Não, acbr só uso para nota eletrônica

Gente não sei se é nesse tópico, mas tenho uma aplicação que roda certinho em Delphi 7 com essa dll, estou migrando para Delphi 10 e mesmo compilando para 32bits a dll não está funcionando. Alguém tem alguma dica?

já resolvido

sim sim tá informado

Pessoal boa tarde, como postei no tópico anterior que havia conseguido resolver o envio de nota em relação ao xPag, porém vez em quando o sistema me apresenta o seguinte erro.