Ir para conteúdo
  • Cadastre-se

Germano Solter

Membros
  • Total de ítens

    18
  • Registro em

  • Última visita

Posts postados por Germano Solter

  1. 2 horas atrás, Germano Solter disse:

    Consegui dessa forma (não tenho certeza se é a forma mais limpa ou correta) mas nao consegui achar o ANO para enviar. O que ainda faço de errado? Obrigado.   

    DmAcBr.ACBrNFe1.NotasFiscais.LoadFromString(fdqXMLARQUIVO_XML.AsAnsiString);
    ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF);
    ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.serie.ToString);
    ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.modelo.ToString);
    ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.nNF.ToString);
    ShowMessage(DateToStr(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dhCont));

    Andre, esquece a pergunta. Era falta de lógica minha mesmo (Burrice, heheheheheeh). Fiz pegando as informaçoes da Base mesmo e já esta resolvido.

    Abraço,

    Obrigado Mesmo!

  2. Em 19/06/2018 at 22:05, André Ferreira de Moraes disse:

    O comando LerXMLFromString lê um XML de inutilização, não de uma venda.

    Consegui dessa forma (não tenho certeza se é a forma mais limpa ou correta) mas nao consegui achar o ANO para enviar. O que ainda faço de errado? Obrigado.   

    DmAcBr.ACBrNFe1.NotasFiscais.LoadFromString(fdqXMLARQUIVO_XML.AsAnsiString);
    ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF);
    ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.serie.ToString);
    ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.modelo.ToString);
    ShowMessage(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.nNF.ToString);
    ShowMessage(DateToStr(DmAcBr.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dhCont));

  3. Amigos, boa noite.

    Estou tentando trazer da base um XML em Blob para inutilizar a numeracao mas os campos para ACBrNFe1.WebServices.Inutiliza() estao todos em branco. Acredito esta usando o componente de forma errada. Poderiam me ajudar?

    Obrigado a todos.

     

        begin
          NFCeCHAVE:= 'NFe' + trim(fdqCancVendaCHAVE_NFE.AsString);
          with fdqXML do
          begin
            Close;
            SQL.Clear;
            SQL.Text:='select * from nfe_xml';
            SQL.Add('where chave_nfe = :pChave');
            Params[0].AsString:= NFCeCHAVE;
            Open();
          end;
          if fdqXML.RecordCount = 0 then
          begin
            ShowMessage('Nfe' + fdqCancVendaCHAVE_NFE.AsString + '. Nota não encontrada' );
            Abort;
          end;
          DmAcBr.ACBrNFe1.InutNFe.LerXMLFromString(fdqXMLARQUIVO_XML.AsAnsiString);
          with DmAcBr.ACBrNFe1 do
          begin
          DmAcBr.ACBrNFe1.WebServices.Inutiliza(InutNFe.CNPJ, 'Cliente cancelou a compra.', InutNFe.ano, InutNFe.modelo, InutNFe.Serie, InutNFe.nNFIni, InutNFe.nNFFin);
          end;
          DmAcBr.ACBrNFe1.ImprimirInutilizacao;
        end;

     

  4. Prezados,

    Preciso que o codigo mande a impressao para 2 impressoras em momentos diferentes: 1 quando for tirar preconta e outro quando for fazer pedido pra cozinha.

    as impressoras estao compartilhadas assim: uma elgin i9 em outra maquina (com compartilhamento do windows) e um impressora de rede da bematech (4000th tcp/ip)

    Meu Código:

    Para Contas:

        frxComanda.PrintOptions.Printer := fdqConfigIMPRESSORA.AsString;
        frxComanda.PrepareReport;
        frxComanda.PrintOptions.ShowDialog := False;
        frxComanda.Print;

    Para Cozinha:

     

        frxImpRemota.PrintOptions.Printer := fdqProdutosIMPRESSORAREMOTANOME.AsString;
        frxImpRemota.PrepareReport(True);
        frxImpRemota.PrintOptions.ShowDialog:= False;
        frxImpRemota.Print;

     

    ele funciona para imprimir as contas na elgin porem se eu lancar para a cozinha, TODOS AS IMPRESSOES VAO PARA LA E NUNCA MAIS IMPRIME DA ELGIN.

    O que estou fazendo de errado?

    Obrigado a todos.,

     

     

  5. 6 minutos atrás, André Ferreira de Moraes disse:

    Não está atualizado, pois nos fontes atuais não existe a chave URL-QRCode_4.00

    [NFCe_BA_P]
    Usar=NFCe_SVRS_P
    URL-QRCode=http://nfe.sefaz.ba.gov.br/servicos/nfce/modulos/geral/NFCEC_consulta_chave_acesso.aspx
    URL-ConsultaNFCe=http://nfe.sefaz.ba.gov.br/servicos/nfce/default.aspx
    URL-QRCode_2.00=http://www.sefaz.ba.gov.br/nfce/consulta
    URL-ConsultaNFCe_2.00=http://www.sefaz.ba.gov.br/nfce/consulta
    URL-QRCode_1.00=http://nfe.sefaz.ba.gov.br/servicos/nfce/qrcode.aspx
    URL-ConsultaNFCe_1.00=http://www.sefaz.ba.gov.br/nfce/consulta
     

    Não funciona pois conforme já falado acima, a versão 2.00 do QrCode ainda não está disponível na SEFAZ.

     

    O que devo fazer entao? retornar para a versao 3.1 da nfce para o cliente nao parar?

  6. 1 hora atrás, André Ferreira de Moraes disse:

    Verifique se realmente está com a última versão dos fontes e se seus schema estão atualizados.

    Atualizado Acbr

     

    [NFCe_BA_P]

    Usar=NFCe_SVRS_P
    URL-QRCode=http://nfe.sefaz.ba.gov.br/servicos/nfce/modulos/geral/NFCEC_consulta_chave_acesso.aspx
    URL-ConsultaNFCe=http://nfe.sefaz.ba.gov.br/servicos/nfce/default.aspx
    URL-QRCode_2.00=http://www.sefaz.ba.gov.br/nfce/consulta
    URL-ConsultaNFCe_2.00=http://www.sefaz.ba.gov.br/nfce/consulta
    URL-QRCode_4.00=http://nfe.sefaz.ba.gov.br/servicos/nfce/qrcode.aspx
    URL-ConsultaNFCe_4.00=http://www.sefaz.ba.gov.br/nfce/consulta

    Substituido

    [NFCe_BA_P]
    Usar=NFCe_SVRS_P
    URL-QRCode=http://nfe.sefaz.ba.gov.br/servicos/nfce/modulos/geral/NFCEC_consulta_chave_acesso.aspx
    URL-ConsultaNFCe=http://nfe.sefaz.ba.gov.br/servicos/nfce/default.aspx
    URL-QRCode_2.00=http://nfe.sefaz.ba.gov.br/servicos/nfce/qrcode.aspx
    URL-ConsultaNFCe_2.00=http://www.sefaz.ba.gov.br/nfce/consulta
    URL-QRCode_4.00=http://nfe.sefaz.ba.gov.br/servicos/nfce/qrcode.aspx
    URL-ConsultaNFCe_4.00=http://nfe.sefaz.ba.gov.br/servicos/nfce/modulos/geral/NFCEC_consulta_chave_acesso.aspx

     

    O Problema agora: 

    1) Sefaz Bahia: Só retorna a mensagem de Rejeicao: Falha no SChema XML do Lote da NFe. Fiz testes com NCM valido e sem NCM a rejeicao é sempre a mesma: Falha no SChema XML do Lote da NFe.

    2) Peguei os XMLs e fui validar no RS e eles (exceto oq removi o NCM) Validaram perfeitamente. Estao em anexo (TODOS FORAM REJEITADOS AQUI NA BAHIA)...

     

    29180529227572000190650100000014681000578206-nfe.xml

    29180529227572000190650100000014691000578220-nfe.xml

    29180529227572000190650100000014701000578247-nfe.xml

    29180529227572000190650100000014711000578260-nfe.xml

  7. 2 minutos atrás, André Ferreira de Moraes disse:

    Verifique se realmente está com a última versão dos fontes e se seus schema estão atualizados.

    Na vdd eu tive que colocar a nova informacao de VersaoQrCode = 2 para funcionar. Agora esta apresentando o erro: Endereco do site da UF da consulta via QR-Code diverge do previsto (tem ideia do que é? (o arquivo ACBrNFeServicos.ini esta atualizado).

    Posso deixar o POST aberto até concluir de marcar como resolvido depois de resolver esse erro?

    Abraço.

  8. Prezados, fiz um update do componente e agora estou tendo erro de schema no QRCODE. Salvo engano acredito que seja os MODES ('|') mas nao tenho certeza. estou fazendo os teste com a NFCe 4.0, Sefaz BA.

    Estou mandando em anexo 3 XMLs para verificacao.

    Agradeço a todos.

     

    image.thumb.png.09af47b1fd944b9a63af333b81b92d69.pngimage.png.bcf1480db72f22a9b4a0dcf3ad134817.png

     

    29180529227572000190650100000014701000578247-nfe.xml

    29180529227572000190650100000014711000578260-nfe.xml

    29180529227572000190650100000014721000578284-nfe.xml

  9. Em 19/11/2017 at 02:08, Solivan disse:

    O que ocorre é que o seu XML não está sendo lido, por isso acontece o erro de "Argumento fora da faixa...", verifique o motivo de não ler o XML debugando o código...

    Obrigado Solivan, verificando o armazenamento na tabela percebi que o XML deveria ser salvo com:

    BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1252

    e eu estava salvando com binary.

    Obrigado Irmao.

  10. Amigos, boa noite.

    Estou salvando um XML offLine em tabela e tentando reenviar. Uso o seguinte processo:

    Variaveis:

    sXMLOFF : AnsiString;

    IDLote : Integer;

    1) Faco a pesquisa na base com a chave

    2) seto idlote com o campo da tabela onde foi armazenado na montagem do XML

    3) Faco a leitura do XML na base assim:

        ACBrNFe1.NotasFiscais.Clear;
        ACBrNFe1.NotasFiscais.LoadFromString(sXML_OFFLine, True);
        ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine;
        ACBrNFe1.Configuracoes.Geral.FormaEmissao:= teOffLine;
     

    4) envio assim:

        ACBrNFe1.Enviar(iNumero_Lote, False, True);
     

    O erro ja acontece no ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine, dizendo: ARGUMENT OUT OFF RANGE e se eu comentar a linha apresenta erro no Enviar: Nenhuma NF-e Adicionada ao lote.

     

    Alguem pode me dizer em que momento estou errando?

     

    Obrigado a Todos.

     

    Germano Solter

     

     

     

  11. Prezados, bom dia.

    Estou tentando fazer um cancelamento via XML e não consigo.

    O DEMO do componente utiliza o webservice e/ou um edit para pegar a informação do protocolo.

    Se é um 'Cancelamento por XML'  como faço para extrair o NUMERO DE PROTOCOLO do XML sem ter que usar a consulta do webservice ou a base de dados?

    No caso da chave da NFe utilizei o comando: Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,4,44); existe para o Protocolo?

    Att,

    Germano

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.