IgorAcertSoft

apos instalação ele pede para informar cnpj e ponto de captura ai apresenta este erro Apos clicar em ok abre a tela abaixo, como devo proceder? os passos foram realizados conforme manual da paygo.

Não existe outra forma?? Pois hoje se torna inviável termos de passar cliente por cliente, tendo de fazer ativação.

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.

Muito obrigado pela ajuda, deu certo trocar ChaveAcesso por InfID.id, a nota foi cancelada perfeitamente.

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.

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

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

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.

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:

Perfeito @Italo Giurizzato Junior, muito obrigado pela sua atenção neste caso. Podemos encerrar o tópico...

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