Ir para conteúdo
  • Cadastre-se

rrodrigoffernandes

Membros
  • Total de ítens

    194
  • Registro em

  • Última visita

Posts postados por rrodrigoffernandes

  1. Olá amigos, estou implementando o MDFE em meu sistema, e estou com algumas dúvidas, alguém poderia me ajudar a fazer a implementação do botão de encerramento?

     

    with ACBrMDFe.EventoMDFe.Evento.Add do
        begin
         infEvento.chMDFe   := Copy(ACBrMDFe.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);
         infEvento.CNPJ     := SomenteNumeros(DM_Principal.CDSParametrosPACNPJ.AsString);
         infEvento.dhEvento := now;
         infEvento.tpEvento   := teEncerramento;
         infEvento.nSeqEvento := 1;
     
         infEvento.detEvento.nProt := ACBrMDFe.Manifestos.Items[0].MDFe.procMDFe.nProt;
         infEvento.detEvento.dtEnc := Date;
         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;
     
         ACBrMDFe.EnviarEventoMDFe( 1 ); // 1 = Numero do Lote
    end;
     
    esse bloco foi extraído do exemplo do acbr. estou em dúvida sobre quais informações colocar nas linhas abaixo: 
         infEvento.detEvento.nProt := ACBrMDFe.Manifestos.Items[0].MDFe.procMDFe.nProt; 
    de onde devo pegar esse número de protocolo? é o protocolo de transmissão?
     
          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;
    percebi que devo informar o município de descarregamento, mas e se no caso o meu manifesto possui mais de um local de descarregamento? qual deverei informar? 
     
  2. Olá amigos, estou implementando o MDFE em meu sistema, e estou enfrentando alguns problemas.

    No do sefaz disponibilizado pelo governo para realizar os manifestos não existe a obrigatoriedade de informar os dados de Vale Pedágio, porém em minha aplicação não consigo validar o MDFe se esses campos não estiverem devidamente preenchidos, alguém sabe me dizer o que devo fazer para não preencher esses campos e obter sucesso ao validar o manifesto?

     

  3. Olá amigos, estou desenvolvendo uma rotina de impressão de etiquetas utilizando o ACBrETQ, hoje estou conseguindo imprimir os códigos de barras utilizando o padrão EAN13, porém não posso seguir esse modelo de código de barras, preciso imprimir em um formato que não calcule o dígito verificador.

     

    hoje imprimo da seguinte forma que está no padrão EAN13

    ACBrETQ.ImprimirBarras(orNormal, 'F', '2', '2', 85, 560, pchar(vtexto) , 90,becNAO);

     

    alguém sabe me dizer qual é o parametro que devo informar para imprimir meu códigod e barras no padrão EAN8 ou em algum outro padrão que não calcule o dígito verificador?

     

     

  4. Olá amigos, alguém sabe me dizer se do ACBrBal consegue efetuar a leitura do peso da balança TOLEDO modelo 9091? Estou efetuando meus testes com o exemplo mas não está funcionando, com outras balança menores da Toledo eu consegui obter o peso, porém nesse modelo não estou conseguindo, alguém tem alguma idéia do que devo fazer?

  5. Olá amigos, estou com problemas na rotina que envia o e-mail do acbrnfse, após fazer a nota de serviço, clico no botão que chama a função abaixo que envia o e-mail. Quando baixo os anexos, o arquivo PDF está gerado corretamente, porém o arquivo XML está zerado, totalmente limpo sem informações. o xml existe na pasta correta do sistema, tem conteúdo, abre normalmente, mas quando envio o e-mail o nome dele vai correto, porém ele vai em branco.

     

    o código usado para enviar o e-mail é o abaixo:

     

     

     

    //..Carregando a Nota
          ACBrNFSe1.NotasFiscais.Clear;
          ACBrNFSe1.NotasFiscais.LoadFromFile(vArquivo);
          Mens:= TMemo.Create(FNFSe);
          Mens.Parent:= FNFSe;
          Mens.Lines.Add(DM_Principal.CDSParametroSistemaPANFESMTPMENSAGEM.asString);
          CC:= TstringList.Create;
          CC.Add('[email protected]');      //..especifique um email válido
          CC.Add('[email protected]');      //..especifique um email válido
     
          ACBrNFSe1.NotasFiscais.Items[0].EnviarEmail(DM_Principal.CDSParametroSistemaPANFESMTPSERVIDOR.AsString
                                                 , DM_Principal.CDSParametroSistemaPANFESMTPPORTA.AsString
                                                 , DM_Principal.CDSParametroSistemaPANFESMTPUSUARIO.AsString
                                                 , vSenhaDecodificada
                                                 , DM_Principal.CDSParametroSistemaPANFESMTPUSUARIO.AsString
                                                 , Para
                                                 , DM_Principal.CDSParametroSistemaPANFESMTPASSUNTO.AsString
                                                 , Mens.Lines
                                                 , (DM_Principal.CDSParametroSistemaPANFESMTPCONEXAOSEGURA.Text = 'S')
                                                 , True          //..Enviar PDF junto
                                                 , nil           //..Lista com emails que serão enviado cópias - TStrings
                                                 , nil           //..Lista de anexos - TStrings
                                                 , False         //..Pede confirmação de leitura do email
                                                 , True         //..Aguarda Envio do Email(não usa thread)
                                                 , DM_Principal.CDSParametroSistemaPAFANTASIA.AsString //..Nome do Rementente
                                                 ,False // TLS
                                                 ,True// Usar Thread
                                                 ,false );//Formato html
          CC.Free;
          Mens.Free;
  6. Olá senhores moderadores, preciso que seja acrescentado nos fontes do ACBrNFSe o código referente a nota de servido de JALES/SP

     

    Provedor SimplISS
     
    CIDADE:JALES ESTADO:SP  CODIGO IBGE:3524808
     
    HOMOLOGAÇÃO
     
    Produção:  
     
    por favor, me avisem hora que já estiver acrescentado para que eu baixe novamente os fontes do acbr.
     
    Abraços!
  7. Ok, obrigado pelo exclarecimento dalpazie, vc conseguiu ajustar o fonte do ACBr para pegar esse novo campo do XML ? qual é o arquivo que vc mexou e qual método? poderia me passar para q eu faça o ajuste aqui tb? testei a impressão no Fast Report, no Fortes e no Quick e todos estão com esse mesmo problema, já verifiquei o XML está certinho.

  8. Olá amigos, estou com problemas ai informar a data+hora de saída na nota fiscal de saída versão 3.10

    estou informando da seguinte maneira para que o campo Data da Danfe seja impresso, porém a hora que estou passando não está batendo com a hora que é impressa na nota fiscal, abaixo segue o código do jeito que estou informando para alimentar o componente e em anexo está a impressão da danfe.

     

            Ide.dSaiEnt   := DM_NotaFiscal.CDSNotaFiscalNFDTSAIENT.AsDateTime + DM_NotaFiscal.CDSNotaFiscalNFHREMISSAO.AsDateTime;
            Ide.hSaiEnt   := DM_NotaFiscal.CDSNotaFiscalNFHRSAIENT.AsDateTime + DM_NotaFiscal.CDSNotaFiscalNFHRSAIENT.AsDateTime;
     
    Outro problema, a hora de saída é impresso somente na primeira vez que imprimo a Danfe, se clico no botão para fazer a impressão pela segunda vez a hora de saída não aparece mais, o campo mostra vazio, alguém sabe como resolver esses dois problemas?

    post-3469-0-49539000-1396285064_thumb.pn

    post-3469-0-73757700-1396285072_thumb.pn

  9. Hoje no sistema eu informo os dados para serem impressos no campo da Observação do CTE da maneira abaixo, gostaria de saber se estou informando da maneira correta ou tem outra forma para informar, pois os dados que coloco na observação estão saindo em outro campo, estão saindo no campo de USO EXCLUISO DO EMISSOR DO CTE, isso está certo? 

     

    with compl.ObsCont.Add do
    begin
      xCampo := 'Mensagem';
      xTexto := 'I-DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL. II-NÃO GERA DIREITO A CREDITO FISCAL DE ISS OU IPI.';
    end;

     

    Antes de trocar para impressão do QuickReport estava usando o FastReport e a versão 1.04, o qual o campo observação saia necessariamente dentro do campo observação.

     

    mais alguém está tendo esse problema ou sabe como devo fazer para resolver?

    post-3469-0-31942300-1396015774_thumb.pn

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