Ir para conteúdo
  • Cadastre-se

phanet

Membros
  • Total de ítens

    34
  • Registro em

  • Última visita

Posts postados por phanet

  1. Então amigo, você precisa ajustar uma condição na linha 1909 da unit ACBrNFeDANFEFRDM.pas:

    Atual:

    frxReport.FindObject('ReportTitle1').Visible  := ( cdsParametros.FieldByName('Imagem').AsString = '' );  -->> neste caso, quando você informa o path da sua imagem, o retorno será "false" deixando o oculto o seu Logo.

    Ajuste:

    frxReport.FindObject('ReportTitle1').Visible  := ( cdsParametros.FieldByName('Imagem').AsString <> '' ); 

    Nesse caso resolve,pois a condição será diferente de vazio e vai resultar "True"

    abs.

     

     

  2. Fiz os testes iniciais da seguinte forma:

     

      if Modelo = etqPpla then
          begin
            ImprimirTexto(orNormal, 2, 2, 2, 180, 5, 'BISCOITO MARILAN RECH 335G');
            ImprimirTexto(orNormal, 2, 2, 1, 140, 5, 'CHOC BRANCO');
            ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, '7896003701685', 90, becSIM);
            ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$');
            ImprimirTexto(orNormal, 3, 4, 4, 15, 450, '20.59');
          end
  3. Olá pessoal, estou tentando imprimir etiquetas com o componentes AcbrETQ porem sem sucesso, ela é serial compatível com PPLA e PPLB e resolução 203 dpi! Ao usar o exemplo do AcbrEtq, usando essas configurações, saiu a impressão porem com a fonte muito grande! Gostaria em saber como diminui as fontes para que saia certinho na etiqueta?

  4. Bom dia Ricardo, ok!

     

    if ACBRNfe.Enviar(vLote,False) then  
       begin
          vRecibo:='';
          vRecibo:=Trim(frmNotaFiscal.ACBRNfe.WebServices.Retorno.Recibo);
          frmNotaFiscal.ACBRNfe.NotasFiscais.SaveToFile;
     
          for vContNf:= 0 to High(NumNF) do ---->> NumNf é o n° de nfe que eu tenho a registrar em banco pela função fGeraRegNfe
             begin
                fGeraRegNfe(   ----Função que eu registro em banco os dados apos emissão
                NumNF[vContNf],
                IntToStr(vLote),
                frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.chNFe,
                frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.xMotivo,
                frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.nProt,
                vRecibo,
                Copy(vAmbiente,1,1),
                TipoOperacao,
                frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.dhRecbto,
                frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.cStat);
     
     
     
                ACBRNfe.NotasFiscais.Items[vContNf].EnviarEmail(  etc.....) ---Envio do email
             end;
       end; 
     
    Obs: só ocorre o problema, quando eu envio a nota em lote, pois quando passa a primeira vez pelo meu "for" com o indice vContNf = 0 não apresenta erro e nem envia o email, 
    e os valores da classe do acbr com indice 1, que é o próximo no meu "For" retorna vazio!!! O mais legal é que eu emito apenas uma nota, funciona tudo certinho!!!!
     
    Abs
  5. Estou tendo um problema ao enviar email aos clientes de notas por emissão em lote! a função que estou usando é a seguinte:

     

    AcbrNFe.NotasFiscais.Items[idxNf].EnviarEmail

     

    No meu índice quando uso apenas uma nota, eu passo o valor IDXNf = 0 funciona perfeitamente! Porem, tenho problemas quando envio por lote de mais de uma nota, na qual terei o meu índice IdxNf [0]  e [1]. Nesta situação,  ao passar no primeiro índice [0] não dá mensagem de erro e não envia o e-mail e a segunda nota perde a referencia.

     

    Exemplo 1 : Funcionando 100%

     

    Com apenas 1 nota

     

    tenho o meu for que vai rodar apenas uma vez!

     

     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.chNFe; -->tem valor
     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.xMotivo; -->tem valor
     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.nProt; -->tem valor
     
    AcbrNFe.NotasFiscais.Items[idxNf].EnviarEmail(etc....)
     
    Email enviado com sucesso!!!
     
     

    Exemplo 2 : Falha

     

    Com apenas 2 nota

     

    For rodando na primeira vez

     

     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.chNFe; -->tem valor 
     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.xMotivo;-->tem valor
     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.nProt;-->tem valor
     
    AcbrNFe.NotasFiscais.Items[idxNf].EnviarEmail(etc....) 
     
    quando eu passo pela função de enviar email ocasiona o problema, pois quando passará pela segunda vez  no meu For os valores dos campos abaixo perde a referencia da segunda nota
     
     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.chNFe; -->sem valor 
     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.xMotivo;-->sem valor
     frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.nProt;-->sem valor
     
     
    Não sei o que está acontecendo mais quando isso acontece ele nem chega a enviar o email ao cliente da primeira nota! 
     
    Abs
     
     
  6. Olá pessoal, estou começando a implementar o DPEC aqui no meu sistema e já estou com uma dúvida, já que o senhores já estão em um estado mais avançado que o meu, por favor me ajudem em uma coisa, hoje o meu sistema gera a nota em DPEC, porem quando eu mando gerar o danfe me apresenta um erro "Protocolo de registro no DPEC não informado" e com isso eu sei que está faltando informar esse protocolo no xml! A minha dúvida é a seguinte, como eu não tenho acesso a net para a emissão da nota, como eu faço para gerar esse número de protocolo? tem alguma regra para geração dele? E mudando um pouco do assunto, como eu faço para fazer a impressão de duas danfes no mesmo pdf, ficando a primeira folha com a página 1/2 e a segunda 2/2?

     

    Obrigado...

  7. Olá pessoal, estou começando a implementar o DPEC aqui no meu sistema e já estou com uma dúvida, já que o senhores já estão em um estado mais avançado que o meu, por favor me ajudem em uma coisa, hoje o meu sistema gera a nota em DPEC, porem quando eu mando gerar o danfe me apresenta um erro "Protocolo de registro no DPEC não informado" e com isso eu sei que está faltando informar esse protocolo no xml! A minha dúvida é a seguinte, como eu não tenho acesso a net para a emissão da nota, como eu faço para gerar esse número de protocolo? tem alguma regra para geração dele? E mudando um pouco do assunto, como eu faço para fazer a impressão de duas danfes no mesmo pdf, ficando a primeira folha com a página 1/2 e a segunda 2/2?

     

    Obrigado...

  8. Estou tendo problemas na validação do SINTEGRA por causa do campo "Número do Comprovante de exportação" pois o acbrSintegra está mandando 8 posições vazias e com isso ocorre o erro! Dei uma verificada no fonte e me deparei com a seguinte situação wregistro:= wregistro + padL('',8)!  Gostaria que o pessoal do Acbr efetuasse essa correção, pois eu fiz as alterações aqui no meu fonte e deu certo, porem seria interessante já efetuar o acerto no repositório do SVN!

     

    Obrigado.

  9. Bom dia!

    Então, fiz os testes debugando o sistema e os valores são passados corretamente para os campos mencionados:

    Total.ICMSTot.vBC := query_aux.FieldByName('XBC_ICMS').AsCurrency;

    Total.ICMSTot.vICMS := ((query_aux.FieldByName('XALIQUOTA_ICMS').AsCurrency*query_aux.FieldByName('XBC_ICMS').AsCurrency)/100);

    E mesmo assim vão zerados.

    Att

  10. Estou tendo um problema com um de nossos clientes, de regime “Lucro Real”, na geração de uma nota fiscal na qual eu tenho um item de valor de 175,00 com alíquota de 18% de ICMS e CST 010, porem no lançamento do cabeçalho da nota, este cliente informa 81% de IVA para ST que sua base fica em 316,75 e valor de 25,51 e de ICMS a base de 175,00 e valor 31,50 e o CFOP é 6401! Até ai tudo bem, mas o problema acontece é na hora de emitir a nota, pois o ACBRNfe está fazendo algum tipo de validação que ao gerar a nota ele exclui a base e o valor de ICMS automaticamente, que acaba causando o erro de rejeição! Como não entendo muito de lançamento de notas, não sei se o ACBrNfe está correto ou não em retirar esses valores! Pois queria saber se é possível tirar essa validação, para que os valores não sejam excluídos? E assim a nota podendo ser emitida normalmente!

    33120510886933000181550010000006501000006500-nfe.xml

    33120510886933000181550010000006501000006500.pdf

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