Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

joveci guedes de almeida

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    80

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por joveci guedes de almeida

    UF nao pode ser vaziz

    em ACBrMDFe

    Postado

    Bom dia ...

    No meu caso a UF estava vazia pq eu esqueci de colocar a TAG    UF do meu estado que e Alagoas

    with ACBrMDFe1.Manifestos.Add.MDFe do

      begin

       Ide.cUF := 27; ----> coloquei aqui o codigo do meu estado como eu so trabalho com cliente daqui coloquei direto o codigo se futuramente  aparacer cliente de outros estados

    ai eu vou buscar na minha tabela.

       Ide.tpEmit  :=  teTransportadora ; // QLancamanifesto.fieldbyname('codtranspmanifesto').AsString ;
       Ide.modelo  := '58';
       Ide.serie   := 1;
       Ide.nMDF    := StrToInt(QLancamanifestoCODIGOMANIFESTO.AsString);   //StrToIntDef(NumMDFe, 0);
       Ide.cMDF    := 1;  // Código Aleatório

     

     

     

    • Curtir 1

    UF nao pode ser vaziz

    em ACBrMDFe

    Postado

    Bom dia..

    segue a baixo a rotina ja depurei e nao estou conseguindo resolver o erro pq esta dando uf nao pode ser vazia..

    quando estou tentando fazer o encerramento da MDFe

    blz galera ..

    with ACBrMDFe1.EventoMDFe.Evento.Add do
            begin
              infEvento.chMDFe   := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);
              infEvento.CNPJ     := query3.fieldbyname('CNPJ').asstring;
              infEvento.dhEvento := now;
              infEvento.tpEvento   := teEncerramento;
              infEvento.nSeqEvento := 1;
              infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt;
              infEvento.detEvento.dtEnc := Date;
              infEvento.detEvento.cUF   := StrToInt(QLancamanifesto.fieldbyname('IBGE_ORIGEM').asstring) ;
              infEvento.detEvento.cMun  := StrToInt(QLancamanifesto.fieldbyname('COD_MUNICIPIO_IBGE_ORIGEM').asstring);

              //infEvento.detEvento.cUF   := StrToInt(Copy(IntToStr(ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga),1,2));
              //infEvento.detEvento.cMun  := ACBrMDFe1.Manifestos.Items[0].MDFe.infDoc.infMunDescarga.Items[0].cMunDescarga;

            end;

            ACBrMDFe1.EnviarEvento( 1 ); // 1 = Numero do Lote

     

    is not valid

    em ACBrMDFe

    Postado

    Estou gerando o xml da MDFe e nesta parte esta dando o erro..

     

     

    Emit.EnderEmit.cMun    := StrToInt(query3.fieldbyname('COD_MUNICIPIO_IBGE').asstring);

     

    is not a valid integer value

     

     

    vdesc

    em ACBrNFe

    Postado

    Bom dia galera..

     

    os schemas estao atualizados e mesmo assim nao aparece a tag vdesc no xml blz

    tambem nao consegui achar essa propriedade no acbnfe1ACBrNFe1.Configuracoes.Geral.CamposFatObrigatorios se foi isso que entendi aqui no forum pra habiliatar

     

    Nao esta imprimindo qtde valor unitario

    em ACBrNFe

    Postado

    Pessoal estou com um pequeno problema a danfe e autorizada o xml esta tudo certo ja peguei o xml e testei no danfe online e gera certinho o pdf so que no meu sistema ele gera  o danfe sem a quantidade e sem o valor unitario eu uso o fastreport 5 o trunk2 na propriedade acbrnfe1 ja olhei e esta com  ImprimirUnQtVlComercial e nada.

    Erro na validacao dos dados

    em ACBrNFe

    Postado · Editado por joveci guedes de almeida

    Entendi mais esse danfenfce eu peguei do svn trunck2 tem algum mais recente so

    Detalhe nao estou usando nenhuma imprssora to jogadando a venda pra um txt pq estou sem a imprssora depois ele eu gero o pdf tem aguma coisa haver pq nao estou usando a imprssora ele esta reclamando de problemas tecnicos

    Nao esta imprimindo qtde valor unitario

    em ACBrNFe

    Postado

    Pessoal a nota e autorizada pela sefaz gera o xml correto mais quando imprimi o danfe nao aparece a qtde e valor unitario na nota ja fui na propriedade e ja alterei e continua sem a paracer a qtde e o valor o unitario por favor alguem mim ajude ai. 

    Ai eu pego o xml abro ele pelo site danfe online e este site gera o danfe correto.

    desde ja agradeco

    Relatorio Fastreport

    em Object Pascal - Delphi & Lazarus

    Postado

    Pessaoal estou tentando impimir um relatorio por data mais quando coloco data inicial  e final sempre sair todos os registro nao sai somente a data que eu quero coloquei aqui em baixo 

    a minha rotina o que esta errado alguem pode mim ajudar.

    agradeco desde ja..

     

    if cbb_ordem.ItemIndex = 0 then ordem := 'data';
      if cbb_ordem.ItemIndex = 1 then ordem := 'codcliente';


      if cbb_relatorio.itemindex = 0 then

      begin
        qrrelorcamento.close;
        qrrelorcamento.sql.clear;
        qrrelorcamento.SQL.add('select * from c000056 where data BETWEEN :datai and :dataf order by ' + ordem);
        qrrelorcamento.params.ParamByName('datai').asdatetime := edtinicio.date;
        qrrelorcamento.params.ParamByName('dataf').asdatetime := edtfinal.date;
        qrrelorcamento.open;
        FRMMODULO.QRRELATORIO.FIELDBYNAME('LINHA2').ASSTRING := 'PERIODO: ' + edtinicio.TEXT + ' A ' + edtfinal.TEXT;
        frxrelorcamento.LoadFromFile('\Sac\server\rel\f00069A.fr3');
        frxrelorcamento.ShowReport;
      end;

    Instalar fastreport

    em ACBrNFe

    Postado

    Queria saber se posso instalar fastreport 5 sem remover o fastreport4 pq tenho muitos relatorios que usa o fast4 ou se vc s podem mim mandar o danfenfce.fr3 para fastreport 4 pq o que achei nao consegui instalar agradeco se alguem mim ajudar..

    Codigo de Hash no QR-Code difere do calculado

    em ACBrMonitor PLUS

    Postado

    Em 03/02/2017 at 22:50, LIDERNetwork disse:

    Boa Noite colegas,

    Estive acompanhando este problema desde do dia 01/02 quando a SEFAZ PB começou esta validação. Passei pelos mesmos problemas citados e procurando soluções eis que relato os seguintes acontecimentos:

    1 - Minha aplicação captura o CSC do banco de dados através da query diferente de alguns sistemas que capturam de um ini ou txt na pasta da aplicação. O que percebi é que em alguns momentos ao executar a query e preencher o componente este recebe o CSC mas em modo debug o mesmo CSC recebe caracteres ANSII #$AD no lugar do "-" o que gera o cstat 464.

    2 - O ACBR não tem nenhum problema uma vez que, para alguns clientes funciona e em outras não, provando que se fosse o mesmo não funcionaria em momento algum e em nenhum cliente.

    3 - Aplicações que usam o INI para passar o parâmetro ao componente não tem esse problema porque não gera o ASCII (Não sei explicar porque)

    Para contornar o problema e pode até ser considerada como uma "gabi" mas aqui resolveu 100% em todos meus clientes sendo eles com o "-" ou sem.

    Passos:

    1 - Armazeno a o CSC que vem na query do banco de dados em uma string

    2 - Uso uma função para retirar todos os caracteres ANSII inclusive o "-"

    3 - Com a string "Limpa" faço ainda um Uppercase para tornar tudo em caixa alta para garantir o padrão

    4 - Aplico a formatação nativa do CSC sendo 00000000-0000-0000-0000-000000000000 adicionando denovo o "-"

    4 - Agora o massete, preencho o componente com a string já formatada conforme padrão nativo da SEFAZ antes do GeraNFe, Valida, Assina etc...

    OBS: Não adianta preencher o componente na inicialização pois os códigos ANSII insistem estar junto com o CSC no mesmo e percebam que retiro e coloco o "-" mas também não obtive sucesso deixando ele no passo 2, então retirando e recolocando resolveu e além disso não preciso ter que ficar preocupado se o CSC do cliente está ou não no formato padrão e com ou sem o "-".

    Bem é isso, desculpe aos colegas se faltou alguma ressalva, mas por aqui resolveu assim. A quem quiser repasso as funções usadas é só pedir!

    Abraço aos amigos da PB!

    Espero ter ajudado!

     

    contigencia ajuda

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    // como faco pra colocar em contigencia alguem por favor pode ajudar ;;; 

    try
      ACBRNFCe.NotasFiscais.clear;
      Imprime_display('          AGUARDE...  GERANDO NFC-E', CLWHITE, tiLivre);
      grid.Repaint;
      GerarNFCe(vAux);
      Imprime_display('          AGUARDE...  ENVIANDO NFC-E', CLWHITE, tiLivre);
      grid.Repaint;

        ACBRNFCe.NotasFiscais.Assinar;
        ACBRNFCe.NotasFiscais.Validar;
        ACBRNFCe.Enviar(vNumLote, false, Sincrono);
      if ACBRNFCe.NotasFiscais.Items[0].Confirmada then
      begin
        If ACBRNFCe.WebServices.Enviar.cStat = 100 then
        begin
          cStatus := 100;
          ChaveNFCE := ACBRNFCe.NotasFiscais.Items[0].NFe.infNFe.Id;
          NumeroNFCe := strtoint(vAux);
        end;
      end
      else
      begin
        Imprime_display(ACBRNFCe.WebServices.Enviar.xMotivo, CLWHITE, tiLivre);
      end;

      Imprime_display('          AGUARDE...  GERANDO QRCODE DA NFC-E',
        CLWHITE, tiLivre);
      grid.Repaint;
      //GerarQrCode;
      ACBRNFCe.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True;
      Zint.Barcode.Data := MemoDados.text;
      bc := TBitmap.create;
      Zint.Barcode.GetBarcode(bc);
      bc.SaveToFile('C:\Sac\PDV\xml\qrcode' + copy(ChaveNFCE, 4, 47)
        + '.bmp');
      FreeAndNil(bc);
     // ACBRDANFENFCe.FastFile := 'C:\Sac\PDV\Schemas\DANFeNFCe.fr3';
      if FileExists(frmPrincipal.LerINi(sConfiguracoes, 'PDV',
        'CAMINHO_LOGO', '')) then
        ACBRDANFENFCe.Logo := frmPrincipal.LerINi(sConfiguracoes, 'PDV',
          'CAMINHO_LOGO', '');
      ACBRDANFENFCe.Detalhado := true;
      ACBRDANFENFCe.vTroco := ed_troco.value;
      ACBRNFCe.NotasFiscais.Imprimir;

      ACBRNFCe.NotasFiscais.clear;

      if cStatus = 100 then
        nfce_autorizada := true
      else
        nfce_autorizada := false;
    except
      on e: exception do
      begin
        application.messagebox(pwidechar('Erro na geração da NFCE' + #13 +
          'Erro: ' + e.Message), 'Erro', mb_ok + MB_ICONERROR);
        nfce_autorizada := false;
      end;

     

×
×
  • 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.

The popup will be closed in 10 segundos...