Search the Community

Bom dia, estou fazendo uns testes configurando emissão da nota. Alguns valores não estão batendo ai estou testando emitindo a nota em homologação... Mas ai sempre gero varias notas seguidas no decorrer do teste e cancelo na sefaz. No contexto, gostaria de saber se vocês tem alguma forma de efetuar os testes desconsiderando o envio para sefaz.. Ou seja testar os valores, configurações de impressão sem realmente enviar para sefaz.

Boa tarde, estou com problema na impressão de SAT pela impressora SWEDA SI 300s, estava há muito tempo sem atualizar o ACBR e depois de atualizar em alguns clientes com essa impressora começaram a dar problema na impressão. Segue a imagem de antes e depois da atualização. Testamos varias configurações de linhas da impressora e também desabilitamos o qrcodelateral porém mesmo assim não deu certo. A impressão está sendo feita pelo ESCPOS.

Boa tarde, Estou tendo dificuldades para gerar boleto, estou recebendo o erro "Not enough timers available", logo após a chamada de "ACBrBoleto1.Imprimir" Debuguei o ACBRBoleto.pas mas não identifiquei o momento da falha, o debug passa por duas funções após a chamada de "Imprimir" dentro delas não ocorre parada Logo que finaliza ele retorna esse erro: Segue a baixo o código de tentativa de impressão: procedure TFrmBoletos.IMPRIMIRClick(Sender: TObject); var Titulo : TACBrTitulo; begin Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := Now; DataDocumento := Now; NumeroDocumento := '123'; EspecieDoc := '1234'; if 'SIM' = 'SIM' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; NossoNumero := '1245'; Carteira := '12456'; ValorDocumento := 1.40; Sacado.NomeSacado := '12456'; Sacado.CNPJCPF := '12456'; Sacado.Logradouro := '12456'; Sacado.Numero := '12456'; Sacado.Bairro := '12456'; Sacado.Cidade := '12456'; Sacado.UF := '12456'; Sacado.CEP := '12456'; ValorAbatimento := 0; LocalPagamento := '12456'; ValorMoraJuros := 0; ValorDesconto := 0; ValorAbatimento := 0; DataMoraJuros := 0; DataDesconto := 0; DataAbatimento := 0; DataProtesto := Now; PercentualMulta := 0; Mensagem.Text := '12456'; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := '12456'; Instrucao2 := '12456'; Parcela := 1; end; // grava o nosso numero na conta // Atualiza a consulta ACBrBoleto1.ACBrBoletoFC.DirLogo := 'C:\Users\Trial\Desktop\B.Texte\LogoColorido'; ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao; ACBrBoleto1.Banco.Digito := 123456; ACBrBoleto1.Banco.Numero := 12345; ACBrBoleto1.Cedente.Nome := 'Fulano'; ACBrBoleto1.Cedente.CodigoCedente := 'Fulanoteste'; ACBrBoleto1.Cedente.Agencia := 'Fulanoteste'; ACBrBoleto1.Cedente.AgenciaDigito := 'Fulanoteste'; ACBrBoleto1.Cedente.Conta := 'Fulanoteste'; ACBrBoleto1.Cedente.ContaDigito := 'Fulanoteste'; ACBrBoleto1.Cedente.UF := 'Fulanoteste'; ACBrBoleto1.NomeArqRemessa := 'TESTE'; ACBrBoleto1.Imprimir; end;

Boa tarde. Gostaria de relatar um problema que ocorreu com nosso sistema emissor, com relação ao preview/impressão da Carta de Correção da NF-e. O que acontece é que após exibir um DANFE e depois tentar exibir o preview de uma Carta de Correção ocorre um Access Violation, nesse caso testei apenas usando a engine FastReport. Percebi que o erro ocorre nos métodos "PrepareReport" e "frxReportBeforePrint" da unit "Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast\ACBrNFeDANFEFRDM.pas". Ao que parece o objeto NFe (FNFe) que é usado dentro deles está assigned mas suas propriedades estão nil, ele passa na verificação do Assigned(), mas ao acessar as propriedades elas estão nil. Se carregar uma NF-e no componente ACBrNFe e emitir um DANFE ele fica com referências apontadas internamente no DANFE associado ao ACBrNFe, então mesmo se der um ACBrNFe.NotasFiscais.Clear e carregar somente o XML do evento de CCe o erro ocorre. O que eu fiz foi apenas passar nil para as variáveis FNFe e FEvento ao final de cada método "ImprimirDANFE", "ImprimirDANFEResumido", "ImprimirDANFEPDF", "ImprimirEVENTO", "ImprimirEVENTOPDF", "ImprimirINUTILIZACAO", "ImprimirINUTILIZACAOPDF", para assim não apontar para uma referência inválida e a verificação funcionar corretamente em "PrepareReport" e "frxReportBeforePrint". // Está em "ImprimirDANFE", "ImprimirDANFEResumido", "ImprimirDANFEPDF", "ImprimirEVENTO", "ImprimirEVENTOPDF", "ImprimirINUTILIZACAO", "ImprimirINUTILIZACAOPDF": { DONE -oLeandro : (03/09/2019) - Alteração para não causar AccessViolation após: 1 - Imprimir um DANFE; 2 - Imprimir um Evento (Carta de Correção); AccessViolation ocorre nos métodos: * PrepareReport * frxReportBeforePrint Provável motivo: Objeto NFe (FNFe) está assigned mas suas propriedades estão nil. } FNFe := nil; FEvento := nil; Segue o arquivo ACBrNFeDANFEFRDM.pas em anexo, as alterações estão marcadas com um "DONE -oLeandro :" , se a alteração proceder e for útil, peço aos administradores que adicionem a alteração no svn. Muito obrigado. ACBrNFeDANFEFRDM.pas

Boa Noite pessoal Estou tendo o seguinte problema: Após várias impressoes da nota saírem normalmente, após determinanda venda as impressoes ficam presas no buffer do windows, e daí somente cancelando as pendentes ou reiniciando o pc, daí imprime tudo de uma vez. Acontece mais em windows 10 com Daruma DR-800 Já testei usando diretamente a porta, tipo COM3, ou pelo spooler do windows, tipo \\computador\impressora compartilhada Agradeço a ajuda

Boa tarde. Senhores preciso de um help de vocês, estou com problema na impressão da danfe Modelo 55 em modo Retrato. Utilizo o Fortes Report. No preview a danfe aparece normal, porém quando sai na impressora na parte do cabeçalho sai com fundo todo preto. Já enviei para três impressoras diferentes, e nas três saíram da mesma forma. Segue o print da foto que tirei. Desde já agradeço pelo apoio.

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

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.

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

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

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

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, segue abaixo sugestão de alteração no arquivo "ACBrBoleto.pas", para corrigir mensagem de Juros no boleto, quando portador for Sicredi: procedure TACBrBoleto.AdicionarMensagensPadroes(Titulo: TACBrTitulo; AStringList: TStrings); // if ValorMoraJuros <> 0 then // begin // if DataMoraJuros <> 0 then // AStringList.Add(ACBrStr('Cobrar juros de ' + // ifthen(CodigoMora = '2', FloatToStr(ValorMoraJuros) + '%', // FormatCurr('R$ #,##0.00',ValorMoraJuros)) + // ' por dia de atraso para pagamento a partir de ' + // FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros, // IncDay(DataMoraJuros,1),DataMoraJuros)))) // else // AStringList.Add(ACBrStr('Cobrar juros de ' + // ifthen(CodigoMora = '2', FloatToStr(ValorMoraJuros) + '%', // FormatCurr('R$ #,##0.00',ValorMoraJuros)) + // ' por dia de atraso')); // end; if ValorMoraJuros <> 0 then begin if DataMoraJuros <> 0 then AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%', FormatCurr('R$ #,##0.00',ValorMoraJuros)) + ' por dia de atraso para pagamento a partir de ' + FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros, IncDay(DataMoraJuros,1),DataMoraJuros)))) else AStringList.Add(ACBrStr('Cobrar juros de ' + ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%', FormatCurr('R$ #,##0.00',ValorMoraJuros)) + ' por dia de atraso')); end;

[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

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.

Bom dia, anteriormente conseguíamos imprimir todos os xmls carregados no componente ACBrNFSe1 com apenas um comando, mas isto parou de funcionar, agora para cada danfse abre uma tela solicitando a impressão de uma danfse por vez. Como poderia resolver isto? Carrego todas as Danfses que desejo imprimir em um loop com - ACBrNFSe1.NotasFiscais.LoadFromFile(DtSrc.DataSet.FieldByName('NF_XML').AsString); anteriormente enviava para a impressão de uma única vez para a impressora padrão do computador com o comando - ACBrNFSe1.NotasFiscais.Imprimir; Alguém poderia me ajudar?

Boa noite pessoal criei uma aplicação NFe / NFCe em Firemonkey + ACBR, porém estou com dificuldades na hora de imprimir pois os fontes de impressão do acbr são todos em VCL alguém tem eles em firemonkey? pode ser para fastreport ou fortesreport. Obrigado!

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

Ola, Gostaria de compartilhar um novo layout de boleto com detalhamento para o FortesReport, este é semelhante a faturas de telefones ou cartão, com detalhamento da fatura. Para disponibilizar eu baixei os fontes ontem dia 23/06/15 e apliquei as mudanças que estou repassando estou disponibilizando aqui. Criei no ACBrBoleto.pas um novo property Detalhamento, este será utilizado para detalhar produto e/ou serviço prestado, ainda foi acrescentado para no novo layout o ‘lFaturaDetal’ na constante TACBrBolLayOut = (lPadrao, lCarne, lFatura, lPadraoEntrega, lFaturaDetal) ; LayoutFaturaDetal foi implementado no FortesReport dentro do ACBrBoletoFCFortesFr.pas e ACBrBoletoFCFortesFr.dfm Em anexo seque a mudança para o novo layout uma pequena mudança para o DEMO para exemplificar o uso e um PDF do boleta detalhada de exemplo. Obs. Esta boleta foi feita para um cliente de nossa cidade que já esta em produção com o Sicoob. Este modelo esta funcional e foi recebido sem problema pelo banco. Desde já agradeço e já peço desculpas se caso estou fazendo este compartilhamento de forma errada. Novo boleto com forteReport.zip uDemo.zip boleto.pdf

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

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."; } } }