-
Total de ítens
85 -
Registro em
-
Última visita
Sobre IgorAcertSoft
Contact Methods
-
Website URL
http://www.acertsoft.com.br
Últimos Visitantes
IgorAcertSoft's Achievements
-
Instalação PGWebLib 4.1.25.x com atualizador automático e proteção contra fraudes
um tópico no fórum postou IgorAcertSoft Dúvidas sobre TEF
Bom dia, seguimos as instruções relativas a instalação em modo silencioso do novo pgweb, e constatamos mesmo em modo /verysilent a exibição de telas de instalação inclusive pedindo a tela para informar os dados para instalação do ponto de captura, tem alguma instrução diferente que precisa ser executada para evitar a exibição destas telas? estouprocurando aqui no formum mas ainda não localizei algo a respeito, pode ser que estaja fazendo a pergunta errada. se tiver alguma instrução ou forum que fale a respeito, desde já agradeço. -
NFSeX - LoadFromString
IgorAcertSoft replied to IgorAcertSoft's tópico in DFe - Documentos Fiscais Eletrônicos
Muito obrigado pela ajuda, deu certo trocar ChaveAcesso por InfID.id, a nota foi cancelada perfeitamente. -
NFSeX - LoadFromString
IgorAcertSoft replied to IgorAcertSoft's tópico in DFe - Documentos Fiscais Eletrônicos
Acabei de testar mudar ChNFSe := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.ChaveAcesso; para ChNFSe := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; e o mesmo trouxe o valor certo do código de verificação, estou testando para ver porque a chave não esta trazendo. -
NFSeX - LoadFromString
IgorAcertSoft replied to IgorAcertSoft's tópico in DFe - Documentos Fiscais Eletrônicos
Ele entra na validação do if (ACBrNFSeX1.Configuracoes.Geral.Provedor = proInfisc), mas quando ele faz isso ChNFSe := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.ChaveAcesso; o valor vem em branco -
NFSeX - LoadFromString
IgorAcertSoft replied to IgorAcertSoft's tópico in DFe - Documentos Fiscais Eletrônicos
Boa tarde Diego, O trecho que estou com dificuldade seria: Seria nesta linha em especifico -> ACBrNFSeX1.NotasFiscais.LoadFromString(NFSE_NOTASARQUIVO.Value, False), Posso garantir que o mesmo XML que te enviei esta na variável NFSE_NOTASARQUIVO.Value. with Dados do begin ACBrNFSeX1.NotasFiscais.Clear; //CARREGA O XML DA NOTA PELO BANCO NFSE_NOTAS.Close; NFSE_NOTAS.ParamByName('NUMERONOTA').Value := CodNota; NFSE_NOTAS.Open; //procura no banco, se não achar procura no arquivo .xml if not NFSE_NOTAS.IsEmpty then ACBrNFSeX1.NotasFiscais.LoadFromString(NFSE_NOTASARQUIVO.Value, False) else begin MessageBox(0, 'Não foi possível localizar o xml da nota.', 'Aviso', MB_OK+MB_ICONERROR); Exit; end; // Os Provedores da lista requerem que seja informado a chave e o código // de cancelamento if (ACBrNFSeX1.Configuracoes.Geral.Provedor = proInfisc) and (ACBrNFSeX1.Configuracoes.Geral.Versao <> ve201) then begin { A Chave é composta por: 2 | N |Código IBGE para UF do prestador 14 | N |CNPJ do prestador 2 | N |Modelo da nota (valor 98 por padrão) 3 | C |Série da nota (em maiúsculas, com zeros à direita) 9 | N |Número da nota (com zeros à esquerda) 9 | N |Código numérico aleatório } ChNFSe := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.ChaveAcesso; // Codigo de Cancelamento // 1 - Erro de emissão // 2 - Serviço não concluido // 3 - RPS Cancelado na Emissão if not(InputQuery('Cancelar NFSe', 'Informe o Código de Cancelamento'+ #13+ '1 - Erro de emissão'+ #13+ '2 - Serviço não concluido'+ #13+ '3 - RPS Cancelado na Emissão'+ #13+ 'Digite apenas o número:' +#13, Codigo)) then exit; end -
NFSeX - LoadFromString
IgorAcertSoft replied to IgorAcertSoft's tópico in DFe - Documentos Fiscais Eletrônicos
Bom dia Italo, O xml é o retorno do webservice ao emitir a nota, o provedor é a INFISC, na cidade de Canoas / RS, o momento que estou tentando usar o LoadFromString é antes de cancelar a nota, pois estou tentando ler o xml da nota validada, para ai sim passar para o InfCancelamento todas as informações que ele precisa, e por fim executar o ACBrNFSeX1.CancelarNFSe(InfCancelamento), mas como o LoadFromString não me retorna nada os valores do InfCancelamento estão em branco. E para chegar a reposta do cancelamento estou usando a função ChecarResposta. Mas desse jeito que eu faço funciona para todos os outros provedores que trabalho, mas sei que isso pode variar de provedor para provedor. -
NFSeX - LoadFromString
IgorAcertSoft replied to IgorAcertSoft's tópico in DFe - Documentos Fiscais Eletrônicos
Bom dia Juliomar... Meu componente já esta configurado, até porque a emissão da nota já esta funcionando normalmente, mas quando eu tento fazer o cancelamento da nota, que a função LoadFromString não me retorna os valores do XML. -
Boa tarde... Estou usando a função LoadFromString para carregar um xml para o componente ACBrNFSeX mas o mesmo não esta me retornando as variáveis de dentro do xml. Teria alguma coisa que posso fazer? xml exemplo.xml
-
Estávamos com o mesmo problema em um cliente, no meu caso o cliente estava tentando emitir a nota como indFinal = 0 e gerando a rejeição, no nosso caso como foi uma venda para consumidor final, foi alterado o indFinal e emitido a nota. Pelo que percebi essa validação está sendo feita somente quando for material para revenda, mesmo sendo do Simples.
-
Resolvido, foi alterado para qrUTF8oBOM. Pode fechar o tópico. Obrigado.
-
Boa tarde pessoal, Estou com um problema a alguns dias sobre a visualização do QRCode na tela, acaba que alguns bancos ele funciona e outros não. Gostaria de ver com vocês se teriam algum outro relato sobre isso ou se meu código estaria com algum parâmetro incorreto, segue o código a baixo: procedure TDadosTefApi.ACBrTEFAPI1QuandoExibirQRCode( const DadosQRCode: String); var QRCode: TDelphiZXingQRCode; QRCodeBitmap: TBitmap; Row, Column: Integer; begin if not (StatusVenda in [stsAguardandoTEF, stsOperacaoTEF]) then StatusVenda := stsAguardandoTEF; if (TefConfiguracaoQRCODE.AsInteger = 4) then // 4 - Imprimir begin if (DadosQRCode <> '') then ImprimirRelatorio( '</ce>'+ '<qrcode_largura>8</qrcode_largura>'+ '<qrcode>'+DadosQRCode+'</qrcode>'+ '</lf>'); Exit; end; if (DadosQRCode = '') and (FProcessando.pQRCode.Visible) then begin FProcessando.pQRCode.Visible := False; FProcessando.Pix := False; FProcessando.AjustaTela; Application.ProcessMessages; Exit; end; QRCode := TDelphiZXingQRCode.Create; QRCodeBitmap := TBitmap.Create; try QRCode.Encoding := qrUTF8NoBOM; QRCode.QuietZone := 2; QRCode.Data := widestring(DadosQRCode); QRCodeBitmap.Width := QRCode.Columns; QRCodeBitmap.Height := QRCode.Rows; for Row := 0 to QRCode.Rows - 1 do begin for Column := 0 to QRCode.Columns - 1 do begin if (QRCode.IsBlack[Row, Column]) then QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack else QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite; end; end; FProcessando.LabValorPix.Caption := FormatFloat('R$ 0.00',DadosVendaBalcao.VendasVALOR1.AsCurrency); FProcessando.imgQRCode.Picture.Bitmap.Assign(QRCodeBitmap); FProcessando.pQRCode.Visible := True; FProcessando.Pix := True; FProcessando.AjustaTela; finally QRCode.Free; QRCodeBitmap.Free; end; Abaixo segue uma foto do erro:
-
NFS-eX alteração no DANFE com Fortes
IgorAcertSoft replied to IgorAcertSoft's tópico in DFe - Documentos Fiscais Eletrônicos
Perfeito @Italo Giurizzato Junior, muito obrigado pela sua atenção neste caso. Podemos encerrar o tópico... -
NFS-eX alteração no DANFE com Fortes
IgorAcertSoft replied to IgorAcertSoft's tópico in DFe - Documentos Fiscais Eletrônicos
Bom dia @Italo Giurizzato Junior posso sim, vou anexar os xmls. Segue em anexo xml e pdf de antes e depois. 4323013515830700010856000000000000399-nfse.xml-nfse.xml 4323013515830700010856000000000000402-nfse.xml-nfse.xml NFS-e 399.pdf NFSE_402.pdf