phanet

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.

Agora o problema é de avanço, pois estou alterando o valor e mesmo assim não está deixando de avançar o papel!

Realmente era isso mesmo! Resolvi aqui! Obrigado sossystem..

Sim amigo, estou tentando achar uma combinação que fique boa, porem queria saber exatamente qual parâmetro que eu tenho que alterar par diminuir o tamanho da fonte.... Mas já entendi o que quis dizer...

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

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?

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

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

Me desculpe, mas em qual botão está esta opção?

Boa tarde! Teria como me mandar um exemplo por favor! Obrigado.

Obrigado Juliomar por responder. Ok! E é possível pré-visualizar o DANFE a partir de um XML sem que crie o arquivo do PDF? Obrigado.

Olá pessoal. Gostaria em saber se é possível pré-visualizar o DANFE sem a necessidade de antes gerar um XML? Obrigado

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

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

Esse esta com o mesmo erro, que seria o mesmo lançamento do meu xml de teste, porem esse aqui foi feito no cliente de minas! 31130409203871000187550010000009801000009806-nfe.xml

A sim amigo, pois na verdade esse segundo xml é de minhas e o primeiro é meu de teste, porem fiz os mesmos lançamentos no cliente de minas, que seria o primeiro xml, e deu o mesmo erro! Por isso tentei fazer o teste aqui!

Boa tarde! Obrigado pela resposta, então cheguei a verificar isso, mas tenho um xml de uma nota já emitida, na qual essa tag está zerada, olha ele em anexo, por favor! 31130409203871000187550010000009791000009791-nfe.xml

Xml a verificar! 35130410886933000181550010000009841000009840-nfe.xml 35130410886933000181550010000009841000009840-nfe.xml

Estou com um problema na emissão de uma nota com o CFOP 5401 e CST 10! Pois está dando erro "total da bc icms-st difere do somatório dos itens" Conforme XML em anexo, são sei aonde eu errei na geração de nota! O iCMS é 18% ! o percentual do ST é de 81% a ser calculado no valor da nota!

Basta atualizar o repositório e verificar no arquivo AcbrSintegra, que esse cara "wregistro:= wregistro + padL('',8) " estará lá!na procedure TACBrSintegra.GerarRegistros85! Obrigado

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.

Bom dia! Realmente você tinha razão, como não foi em quem desenvolvi, tinha um condição feita por um outro desenvolvedor que fazia zerar! Muito obrigado pela atenção! <>

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

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

Bom dia, o gp é o CLiSiTef! Att