Search the Community

Na impressão do boleto usando Fast Report (unit ACBrBoletoFCFR), a logo do banco é carregada sempre pelo diretório de logos, através do método ImprimeLogoMarca. Anexei a unit com as alterações para chamar o método CarregaLogo da TACBrBoletoFCClass no ImprimeLogoMarca, com o objetivo de disparar primeiro o evento OnObterLogo e, se não tratado, daí carregar a imagem do diretório de logos. Olhei os fontes da impressão usando Fortes Report e lá é usado o CarregaLogo. ACBrBoletoFCFR.pas

Saudações Estou tendo problemas para imprimir o evento do Cancelamento da NFE. Revisei os exemplos, mas nada de encontrar o problema. Estou usando o seguinte código para carregar. var vPathXmlEvento: String; vAnoMes: String; begin vAnoMes := FormatDateTime('yyyymm', now); vPathXmlEvento := ACBrNFe1.Configuracoes.Arquivos.PathNFe + vAnoMes + '\110111' + copy(qvndvnsnomenfe.AsString, 27, 44) + '01-procEventoNFe.xml'; ACBrNFe1.EventoNFe.LerXMLFromString(vPathXmlEvento); ACBrNFe1.ImprimirEvento; Ao imprimir, porém, ele me traz isso na tela. A impressão que tenho é que ele não carregou o evento, mas também não deu erro na carga. Imagem do erro abaixo. Evento anexado. Xml da Nfe Homologação Anexado Qualquer ideia é apreciada. Gastei o dia nisso e não sai do lugar. Claudiomir 1101115119061191112300010955001000000610138619122601-procEventoNFe.xml 51190611911123000109550010000006101386191226-nfe.xml

Analisei o projeto de exemplo, os fontes do componente e pesquisei no fórum, mas não ficou claro como editar a impressão do boleto usando o designer do FastReport. Também, considerando que o layout editado (FR3) seja salvo no banco de dados, como posso carregá-lo para o componente usando Report.LoadFromStream? Analisei o método imprimir e parece ser necessário alterá-lo ou criar outro método passando a Stream por parâmetro.

Boa Tarde, Estou enfrentando alguns problemas com clientes "exigentes" e não estou conseguindo uma solução rápida. Na impressão do DANFE no formato RETRATO, layout 2019, a coluna de registro de duplicatas estão fora de layout, podem verificar nos anexos que ela esta um pouco maior que as demais colunas. Tem um outro porem também na linha que finaliza a descrição dos produtos, tem um pontinho a mais de linha, ficando fora de padrão. Caso alguem tenha corrigido isto, ou tenha mais experiencia no Fast para me auxiliar ficaria muito grato. Muito Obrigado. Atenciosamente. Thiago Costa. A.xml

Bom dia, depois de atualizar os fontes minha impressão a4 com fortes ficou assim

Boa tarde. Não estou conseguindo imprimir a NFSe, isso acontece apenas em um cliente. Já fiz e refiz instalação mas o problema persiste. Já tentei com várias extensões de arquivo

Bom dia pessoal! Estou com problemas no envio de NFSe do provedor Abase, o envio é feito normalmente porém não estou tendo retorno do xml corretamente (creio eu que este seja o problema) e na impressão as informações referentes ao prestador do serviço e também o número da NFSe saem em branco e, além deste problema, no cancelamento da mesma nota, também está ocorrendo um problema, até onde consegui verificar o problema no cancelamento está na procedure DefinirDadosMsg dentro da unit ACBrDFeWebService, porém, estranhamente nenhum log ou showmessage caem dentro desta procedure. Alguém poderia me fornecer alguma orientação de como proceder? Seguem as prints tanto da impressão, quanto do erro ocorrido no cancelamento.

[Geral] DANFE=0 FormaEmissao=0 Logomarca= LogoMarcaNFCeSAT= Salvar=1 PathSalvar=C:\NFETEMP\ Impressora=HP LaserJet Professional M1132 MFP Isto está gravado no arquivo INI Mas seguidamente a impressora some e não se consegue imprimir as notas Demais aplicativos imprimem normalmente Ai se abre o monitor e vai até a aba DFE impressão e não tem nenhum impressora carregada na lista de impressoras É necessário fechar o monitor e ebrir novamente para a lista ser preenchida Não consigo identificar porque falha em carregar as impressoras

Gostaria de saber porque não é possível mais escolher a impressora do Windows para mandar imprimir a DANFE. Agora ao clicar em imprimir ele solicita que seja salvo um arquivo em PDF. O que é necessário para voltar ao padrão anterior? Nossos clientes tem reclamado muito dessa mudança. Obrigado!

Bom Dia. Preciso urgente de uma ajuda. Depois que instalei o Delphi Rio, comecei a ter alguns problemas com ACBr. Não estou mais conseguindo imprimir a nota de serviço. Preciso urgente de ajuda. Obrigado.

Boa tarde. Quero compartilhar com vocês um Form para impressão da Nota Fiscal de Serviço de Goiânia pelo sistema. Muitos devem esta usando o Navegador para visualizar e imprimir, então eu resumi isso em um Form. procedure ImprimirGyn(pXML: string; Visualizar: Boolean); var NumeroNota: string; CodVerificacao: string; InscricaoMunicipal: string; strLink: string; TemImpressoraPadrao: Boolean; EscolherImpressora: Boolean; const URLNFSeGoianiaImpressao = 'http://www2.goiania.go.gov.br/sistemas/snfse/asp/snfse00200w0.asp?inscricao=<Inscricao_municipal>&nota=<Numero_da_nota>&verificador=<Codigo_de_verificacao>'; begin ACBrNFSe.NotasFiscais.Clear; ACBrNFSe.NotasFiscais.LoadFromString(pXML); NumeroNota := ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero; CodVerificacao := ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; InscricaoMunicipal := ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal; strLink := URLNFSeGoianiaImpressao; strLink := StringReplace( strLink, '<Inscricao_municipal>', InscricaoMunicipal, [rfIgnoreCase] ); strLink := StringReplace( strLink, '<Numero_da_nota>', NumeroNota, [rfIgnoreCase] ); strLink := StringReplace( strLink, '<Codigo_de_verificacao>', CodVerificacao, [rfIgnoreCase] ); if not(pVisualizar) then begin TemImpressoraPadrao := ACBrNFSe.DANFSE.Impressora <> ''; EscolherImpressora := ACBrNFeDANFECFE.MostraSetup; end; ImprimirLink(strLink, pVisualizar, TemImpressoraPadrao, EscolherImpressora); end; PAS_DFM.zip

Atualizei para a ultima versão do acbr e fiz mais alguns ajustes conforme meus clientes solicitaram e homologuei em alguns bancos e todos foram aceitos. em anexo arquivos alterados. Favor analisarem. ACBrBoletoFCFortesFr.dfm ACBrBoletoFCFortesFr.pas ACBrBoleto.pas

Bom dia pessoal. Estive passando por dificuldades na impressão de NFC-e quando era salva em PDF pelo Fortes Report. Quando é feita a impressão normal direto pelo NFC-e a impressão sai certinha, porém ela não possui quebra de página e, quando tento salvar em PDF para imprimir direto pelo arquivo PDF, por ser uma única página, imprime de forma incorreta como na imagem abaixo (obs: isso vai ocorrer quando houver muitos itens na nota, no meu caso foi com aproximadamente 200 itens). A solução que encontrei foi criar uma propriedade dentro da unit ACBrNFeDANFEClass e setar o valor da propriedade UnlimitedHeight dentro da unit ACBrDANFCeFortesFr que vem de padrão como TRUE para o valor desta nova propriedade criada, para que o próprio usuário possa estar configurando já que não são todos que vão imprimir via PDF. Caso eu tenha me equivocado na alteração por favor me avisem. Vou anexar as units alteradas para que possam ser analisadas. ACBrNFeDANFEClass.pas ACBrDANFCeFortesFr.pas

Bom dia pessoal, tudo bem? Gostaria de sugerir uma mudança na impressão de MDF-e via fortes report quando o mesmo tem mais do que 100 documentos referenciados. Segue imagem de como está sendo impresso na forma atual e depois com a mudança da propriedade IntegralHeight para false.

Olá Comunidade Sou novo no ACBr e estou tentando configurar minha aplicação. Preciso imprimir etiquetas em uma impressora Elgin L-42, mas infelizmente não estou conseguindo. Uso a última versão do ACBr Monitor, estou desenvolvendo em PHP e estou recebendo o seguinte erro : ETQ.Ativo ERRO: Comando invalido (ETQ.Ativo) ETQ.Ativar OK: Eu gostaria de uma luz na situação pois acredito que o comando esteja certo, não entendo como ele pode não existir. meu cód fonte é esse: namespace App\Http\Controllers; use Mike42\Escpos\Printer; use Mike42\Escpos\PrintConnectors\WindowsPrintConnector; use Mike42\Escpos\PrintConnectors\FilePrintConnector; use Mike42\Escpos\CapabilityProfile; use Mike42\Escpos\EscposImage; use Illuminate\Http\Request; use App\Classes\PHPSerial; use App\Classes\ClientSocket; class InicioController extends Controller { // public function index(){ return view('index'); } public function pesar(Request $request){ $file_path = public_path()."/acbr/entra/entra.txt"; //Ativo Balança? $data_to_write = "BAL.Ativo"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(1); $file_saida = public_path()."/acbr/sai/entra-resp.txt"; $data_saida = file($file_saida); $line_saida = $data_saida[count($data_saida)-1]; $ativo = substr($line_saida,4,4); if($ativo == "True"){ //Le peso $data_to_write = "BAL.LePeso(100)"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(2); unset($data_saida); $data_saida = file($file_saida); $line_saida = $data_saida[count($data_saida)-1]; $peso = substr($line_saida, 4, strlen($line_saida)-4); //$peso = substr($line_saida, -4, strlen($line_saida)-4); $peso = substr($peso, 0, -6); //$peso = (double)$peso /** 0.100*/; header("Content-type:application/json"); if(strlen($peso) == 7){ $peso = substr($peso, 0, 2); }else if(strlen($peso) == 8){ $peso = substr($peso, 0, 3); }else if(strlen($peso) == 9){ $peso = substr($peso, 0, 4); } echo $peso * 0.001; exit; }else{ //Ativar Balança $data_to_write = "BAL.Ativar"; $file_path = public_path()."/acbr/entra/entra.txt"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(1); //Le peso $data_to_write = "BAL.LePeso(100)"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(2); unset($data_saida); $data_saida = file($file_saida); $line_saida = $data_saida[count($data_saida)-1]; $peso = substr($line_saida, 4, strlen($line_saida)-4); $peso = substr($peso, 0, -6); //$peso = (double)$peso /** 0.100*/; header("Content-type:application/json"); if(strlen($peso) == 7){ $peso = substr($peso, 0, 2); }else if(strlen($peso) == 8){ $peso = substr($peso, 0, 3); }else if(strlen($peso) == 9){ $peso = substr($peso, 0, 4); } echo $peso * 0.001; exit; } } public function gerarEtiqueta(Request $request){ if(isset($request->peso) and $request->peso != "" and !empty($request->peso)){ if(isset($request->produto) and $request->produto != "" and !empty($request->produto)){ switch ($request->produto) { case "Long Drink": break; case "Caneca": break; case "Caldereta": break; case "Espiralado": break; case "Taças": break; default: // code... break; } }else{ $erro['erro'] = "Erro! Sem produto selecionado."; } $file_path = public_path()."/acbr/entra/entra.txt"; //Ativo etq? $data_to_write = "ETQ.Ativo"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(1); $file_saida = public_path()."/acbr/sai/entra-resp.txt"; $data_saida = file($file_saida); $line_saida = $data_saida[count($data_saida)-1]; $ativo = substr($line_saida,4,4); echo $ativo; if($ativo == "True"){ //Imprimir Etiqueta $data_to_write = "ETQ.ImprimirTexto(0,4,1,1, 50, 240, Produto: ".$request->produto." ".$request->ml.")"; $data_to_write .= "\n".'ETQ.ImprimirTexto(0,4,1,1, 100, 240, Cor: '.$request->cor.')'; $data_to_write .= "\n"."ETQ.ImprimirTexto(0,4,1,1, 150, 240, Op.: ".$request->operador.")"; $data_to_write .= "\n"."ETQ.ImprimirTexto(0,4,1,1, 200, 240, Data: ".Date("d/m/Y").")"; $data_to_write .= "\n".'ETQ.ImprimirTexto(0,3,2,2, 250, 240, "Peso: '.$request->peso.' Kg")'; $data_to_write .= "\n"."ETQ.SetAvanco(2)"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(1); $data_to_write = "ETQ.Imprimir(1,2)"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); echo $request->peso; }else{ //Ativar Etiqueta $data_to_write = "ETQ.Ativar"; $file_path = public_path()."/acbr/entra/entra.txt"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(1); //Ativo etq? $data_to_write = "ETQ.Ativo"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(1); $file_saida = public_path()."/acbr/sai/entra-resp.txt"; $data_saida = file($file_saida); $line_saida = $data_saida[count($data_saida)-1]; $ativo = substr($line_saida,4,4); if($ativo == "True"){ //Imprimir Etiqueta $data_to_write = "ETQ.ImprimirTexto(0,4,1,1, 50, 240, Produto: ".$request->produto." ".$request->ml.")"; $data_to_write .= "\n".'ETQ.ImprimirTexto(0,4,1,1, 100, 240, Cor: '.$request->cor.')'; $data_to_write .= "\n"."ETQ.ImprimirTexto(0,4,1,1, 150, 240, Op.: ".$request->operador.")"; $data_to_write .= "\n"."ETQ.ImprimirTexto(0,4,1,1, 200, 240, Data: ".Date("d/m/Y").")"; $data_to_write .= "\n".'ETQ.ImprimirTexto(0,3,2,2, 250, 240, "Peso: '.$request->peso.' Kg")'; $data_to_write .= "\n"."ETQ.SetAvanco(2)"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); sleep(1); $data_to_write = "ETQ.Imprimir(1,2)"; $file_handle = fopen($file_path, 'w'); fwrite($file_handle, $data_to_write); fclose($file_handle); echo $request->peso; }else{ echo $erro['erro'] = "Erro! Etiqueta desativada"; } } }else{ echo $erro['erro'] = "Erro! Sem Peso, por favor pese o produto antes."; } } }

Graças ao fórum e essa turma mais que competente consegui fazer a geração da venda. Porem a impressão ainda não. Associei o ACBrSATExtratoFortes1 mas não consigo imprimir Estou usando como linha para impressão ACBrSAT1.ImprimirExtrato; A impressora é uma Epson TM Gera o PDF normal, mas não imprime

Tópico criado a pedido de @Juliana Tamizou para continuar o Tópico anterior Problema: Na impressão do DACTE de CT-e complementar, não é impresso a chave de acesso do CT-e complementado. Vi que o componente chega a carregar as informações (tpCTe= tcComplemento, cdsAnuladoComple.FieldByName('Chave').AsString:= CTE.infCteComp.chave), porém nada é impresso. Estou usando o arquivo DACTE_RETRATO.fr3 mais recente. Existe alguma propriedade que devo alterar para que essa informação seja impressa?

Prezados, bom dia, Ao marcar configurar a propriedade "PosCanhoto" como "prRodape", e imprimir um DANFE com duas ou mais páginas, o canhoto esta sendo impresso no meio da segunda página, e não no rodapé. Conforme o Manual o mesmo deveria ser impresso no final do formulário. "Para a impressão de DANFE que não utilizar formulário de segurança, o bloco de canhoto poderá ser deslocado para a extremidade inferior do formulário, sem alterações nas demais dimensões e disposições de campos e quadros." (Manual de Orientacao Contribuinte v 6.00, 7.3.1 Bloco de Canhoto, pág. 140). Tem alguma outra configuração que eu possa realizar que corrija esse problema?

Bom dia pessoal, tudo certo? Estou tendo problemas na impressão das NFSe do provedor Thema, como segue na print abaixo, a seção referente aos dados do prestador de serviços está praticamente em branco, a única informação que está preenchida é o CNPJ do prestador. E verificando no XML da nota, essas informações estão preenchidas como segue na print abaixo. Estive verificando na unit do ACBrNFSeDANFSeRLRetrato e de fato a única informação que está sendo preenchida é do CNPJ, mas não encontrei o motivo de não estar preenchendo as demais informações. Alguém pode estar me auxiliando nesse problema? Vou deixar anexado o XML caso seja necessário. Obrigado pela atenção. 20182691-nfse.xml

Quando realiza a impressão de um lote de NFes, vou adicionando as notas desejadas no componente e executo ACBrNFe.NotasFiscais.Imprimir; ou ACBrNFe.NotasFiscais.ImprimirPDF; Dúvidas: 1) No método "Imprimir", quando é apenas uma cópia, tudo certo, imprime todas as notas na sequencia que adicionei. Quando é 3 copias, por exemplo, as notas são impressas na sequência e se repete quantas cópias foram solicitadas. Veja no exemplo a sequência das notas imprimindo 3 cópias (seria o número delas): 1001, 1002, 1003, 1004... 1001, 1002, 1003, 1004... 1001, 1002, 1003, 1004. Gostaria de saber se tem como imprimir agrupada como no exemplo a seguir: 1001, 1001, 1001... 1002, 1002, 1002... 1003, 1003, 1003... 1004, 1004, 1004. 2) Outra questão sobre a impressão, é quando utilizo o método "ImprimirPDF", se tem como imprimir várias notas em um mesmo arquivo PDF, pois mesmo adicionando várias notas, são gerados arquivos diferentes. Para a maioria dos meus clientes, da forma que está atente perfeitamente, mas se fosse possível configurar diferente para essa minoria de clientes, seria interessante. Caso alguém saiba como ajudar agradeço.

Boa tarde, Preciso atualizar o ACBrMonitorPlus nos meus clientes, mas estou com a seguinte situação: Até a versão 1.1.040 do ACBrMonitorPlus os itens do Extrato do SAT eram impressos conforme imagem abaixo: Após essa versão, até a atual (v1.2.0.11) os itens do Extrato estão sendo impressos em outra fonte e nao indentado, conforme abaixo. Também, dependendo da impressora que utilizo, (com 58mm de largura, por exemplo) os valores totais dos itens não são impressos, como se "não coubessem" no limite da bobina e do cabeçalho da fita. Mesmo configurando as margens nos limites disponíveis, os valores dos itens não aparecem impressos. Como fazer para voltar a imprimir os itens do cupom fiscal SAT na mesma fonte e no layout da versão 1.1.040? Obrigado

Ola. Estou com um contratempo em um cliente de SARANDI/RS. Provedor é Safeweb. A cliente me informou que houve mudanças na nfse da cidade e depois que lhe informaram isso na prefeitura sempre que tento emitir uma nfse recebo a seguinte exceção: class ESOAPHTTPException with message 'Received content of invalid Content-Type setting: text/html - SOAP expects "text/xml"' Erro Interno: 0 Erro HTTP: 6 URL: https://nfse.safeweb.com.br/Sarandi/webservices/eNotaNFSeWSv2_RecepcionarLoteRps.asmx Received content of invalid Content-Type setting: text/html - SOAP expects "text/xml Erro Interno: 0 Erro HTTP: 500 URL: https://nfse.safeweb.com.br/Sarandi/webservices/eNotaNFSeWSv2_RecepcionarLoteRps.asmx Grato por sua atenção.

Bom dia! utilizo o ACBrMonitorPLUs via comando .txt Na impressão da DANFE, na parte dos produtos a primeira coluna que se refere ao código interno do produto está com um espaço muito pequeno para o código, onde o código imprime cortado. O nossos códigos aqui são de tamanho 3 Ex: 183, 10, 201 Existe alguma configuração para que este campo fique maior na DANFE? Ver anexo Se alguém puder ajudar agradeço. Bom trabalho a todos! Obrigado

Boa tarde Atualizei a versão do ACBr PLUS de 1.1.0.37 para 1.1.0.60 porem a impressão de NFC-e sai cortada ja alterei as configurações de margens e não houve mudança nenhuma deu entender que não respeita os valores setados.

Boa tarde, Eu utilizo o AcbrMonitor compilado na última versão juntamente com o C#. Estou enfrentando problemas com a impressão de boletos que fica travada. No arquivo log em anexo vejam que tudo transcorre perfeito até o comendo de incluir título. Ao executar o comando de IncluirTitulos o Monitor não responde mais, fica travado. Alguém pode me dar uma ajuda? LOG.TXT