chico_lopes

Boa tarde o método de impressão usa o GAP da impressora, com isso faça a calibragem da impressora conforme o manual, dai vc não precisa configurar o tamanho da etiqueta. Obs.: se a etiqueta tiver 5 linhas e vc mandar impressão de 7 linhas ou quantidade maior que o GAP a impressora vai entender que não quer respeitar o GAP, veja se vc não está estourando o tamanho da linha.

Eu tenho q procurar o manual desse EscLabel mas pelo visto ele está fazendo o cálculo do tamanho da etiqueta? Vou tentar replicar ele dentro do ACBrETQPpla e sobre o TACBrETQPpla.ComandosFinalizarEtiqueta você consegue dar uma analisada.

Bom dia eu li já no fórum que o ACBrETQ não é compatível com etiqueta contínua (sem o gap), porém estou conseguindo imprimir em uma Argox com linguagem PPLA. Somente tive que fazer duas alteração, uma adição de comando <STX>cxxxx<CR> dizendo o tamanho da etiqueta e retirar o comando <STX>fxxx<CR> que informa o backfeed. Estive lendo o componente TACBrETQPpla.ComandosFinalizarEtiqueta que diz que é obrigatório passar o comando <STX>fxxx<CR> e vi em tópico no forum que outros usuários tiveram problemas sem esse comando <STX>fxxx<CR>. function TACBrETQPpla.ComandosFinalizarEtiqueta(NumCopias: Integer; aAvancoEtq: Integer): AnsiString; var wAvanco: Integer; begin if (aAvancoEtq < 0) or (aAvancoEtq > 779) then raise Exception.Create('Avanço de Etiquetas deve ser de 0 a 779'); // Valor mínimo para Back-feed é 220 (Manual "PPLA&PPLB.pdf" ... pág. 18) wAvanco := aAvancoEtq + 220; Result := Inherited ComandosFinalizarEtiqueta(NumCopias, wAvanco); end; Mas sobre esse assunto tem dois pontos 1º pelo manual no avanço o mínimo é 220 e não o avanço mais 220 2º no componente tem o campo backfeed e pelo que eu vi não está sendo usando em nenhum momento e o correto não seria ser usado com o seguir ? function TACBrETQPpla.ComandosFinalizarEtiqueta(NumCopias: Integer; aAvancoEtq: Integer): AnsiString; var wAvanco: Integer; begin if (aAvancoEtq < 0) or (aAvancoEtq > 779) then raise Exception.Create('Avanço de Etiquetas deve ser de 0 a 779'); // Valor mínimo para Back-feed é 220 (Manual "PPLA&PPLB.pdf" ... pág. 18) if BackFeed = bfOn then if aAvancoEtq < 220 then wAvanco := 220 else wAvanco := aAvancoEtq; Result := Inherited ComandosFinalizarEtiqueta(NumCopias, wAvanco); end;

Estou conseguindo revolver parcialmente a minha conexão com o Lazarus + RESTRequest4D (https://github.com/viniciussanchez/RESTRequest4Delphi). Porém ainda estou procurando uma solução para usar no Delphi7 aonde aplicação foi feita. mas pelo visto vc está usando o Delphi 10 dai RESTRequest4D acho que vai funcionar corretamente.

Sim estou usando Delphi 7 estou tentando consumir uma API da qualp.com.br que é para cálculo rodoviários, tenho q passar o json com as requisições que eu preciso e ele irá retornar um json com as informações. nos parâmetros tenho q passar o Json dos parâmetros da consulta Desculpa mas queryparams seria um parâmetro do Get, porém tentei passar o Json por lá mas dá erro, não sei se é eu q não estou sabendo interpretar o Get. Pois pelo componente delphi-rest-client-api tem esses três tipo de get function Get: string;overload; procedure Get(AHandler: TRestResponseHandler);overload; function Get(EntityClass: TClass): TObject;overload; tentei usar o 3º Get conforme no exemplo, porem no exemplo ele usa uma Type mas preciso passar um Json, porém dá seguinte erro >> [Error] API.pas(285): There is no overloaded version of 'Get' that can be called with these arguments Jsonretorno := Tjson(RestClient.Resource('http://api.qualp.com.br/rotas/v4') .ContentType(RestUtils.MediaType_Json) .Accept(RestUtils.MediaType_Json) //.GetContentTypes(); .Header('Access-Token', 'kCSSeyXsjXutqKzs3y5f2SevzGe1h4No') .get(TJson, Json)); exemplo do Get type TPerson = class(TObject) {$IFDEF DELPHI_7} private FId: Integer; FEmail: String; FName: String; FCreateDate: TDateTime; published property id: Integer read FId write FId; property name: String read FName write FName; property email: String read FEmail write FEmail; property createDate: TDateTime read FCreateDate write FCreateDate; {$ELSE} public id: Integer; name: String; email: String; createDate: TDateTime; {$ENDIF} class function NewFrom(Id: Integer; Name, EMail: String): TPerson; end; procedure TFrm_PersonList.btnUpdateClick(Sender: TObject); var vPerson: TPerson; begin if ListView1.ItemIndex >= 0 then begin vPerson := TPerson(ListView1.Items[ListView1.ItemIndex].Data); if TFrm_Person.Modify(vPerson) then begin DM.RestClient.Resource(CONTEXT_PATH + 'person') .Accept(RestUtils.MediaType_Json) .ContentType(RestUtils.MediaType_Json) .Put(vPerson) .Free; RefreshList; end; end; end;

Boa noite @Juliomar Marchetti eu vi um post seu que você faz uso do delphi-rest-client-api para consumir API. estou precisando fazer um consumo conforme a imagem abaixo o Json já consegui criar usando o json4delphi, porém não sei se não estou sabendo como inserir isso no componente ou se estou inserido corretamente. retorno := RestClient.Resource('http://api.qualp.com.br/rotas/v4' + ',params: {json: '+Json.Stringify+'}') .ContentType(RestUtils.MediaType_Json) .Accept(RestUtils.MediaType_Json) .Header('Access-Token', 'kCSSafswrwerwerwe2341h4No') .get; se puder me dar uma luz para onde deve ir agradeço. pois pelo erro acho que estou montando o comando errado.

Boa tarde, Ítalo nenhum consumo desnecessário é visto como bom, porém é o que está no manual não seria o correto a ser adotado ? Levando em ponto de consumo, como as caixas são tons estilo marca d'agua eu vejo que o consumo seria quase igual as linhas já impressas, pois as linhas irá dar lugar as caixa. Mas não tenho um conhecimento suficiente para apontar de qual seria o consumo entre os dois layouts.

Boa noite fizemos atualização no do DACTe para o Fortes conforme layout contido no MOC 3.00a, tentamos chegar o mais próximo que possível do manual. Favor validarem se o mesmo está correto. ACBrCTeDACTeRLRetrato.pas ACBrCTeDACTeRLRetrato.dfm

Boa tarde Marcos, infelizmente não conseguimos resolver, deixamos como o pessoal que cuida do servidor, pois pelo q vimos é uma incompatibilidade de drive. Mas no seu caso vc está imprimindo o MDF-e em impressora termica? Você está usando código direto para impressão (zpl/PPla/PPlb)?

Boa noite hoje passei a tarde com o suporte do servidor in loco no cliente e não conseguimos resolver o problema, desinstalamos os drivers e instalamos novamente e toda a vez q imprimimos diretamente do programa sai borrado o QrCode, já testamos com versão do delphi 7 e delphi 2010 ambos com FortesReport. Porém ao savar em PDF e mandar imprimir o mesmo sai corretamente, estamos desconfiando se pode ser uma falha do Fortes + winserver2012 + brother se alguém puder me enviar o programa exemplo do AcbrMdf-e em FastReport (o qual não possuo) compilado, agradeço para eu realizar mais um teste.

Boa tarde Italo, mas o estranho é que é a mesma impressora q já era utilizada quando o sistema estava instalada na estação de trabalho. Já instalei os drive da impressora no servidor e mesmo assim continua embaçado. Pedi para o pessoal, que dá manutenção no servidor, se há alguma coisa q pode ser feita por eles mas ate o momento não me responderam. agradeço pela atenção.

Bom dia em um cliente nosso eles já utilizavam o MDF-e com o sistema instalado na estação de trabalho e jogamos o sistema de MDF-e em um servidor 2012 R2, para logar por TS, e ao imprimir o MDF-e está saindo com o Qr Code embaçado impossibilitando a leitura, na impressora Brother HL 1210W SERIES e na impressora Brother DCP-8157DN saiu embaçado conforme imagem abaixo e fizemos o teste imprimindo em duas outras HP saiu correto. Salvamos em PDF o MDF-e e imprimimos nas impressoras impressoras borther e saíram normais. Estamos deduzindo que uma relação TS+Brother+sistema pois antes funcionava quando era instalada na estação de trabalho. Alguém já passou por isso ? ou tem alguma ideia do que pode ser ?

Bom dia fizemos a atualização para o Fortes / Delphi no Layout do MDF-e, tentamos deixar o mais próximo do manual. Somente o Código de barras que não conseguimos aumentar para deixar a disposição igual esta no manual, alguém saberia como fazer essa mudança ? Pois toda mudança que realizávamos ao tentar fazer a leitura da impressão não reconhecia. Poderiam validar se está totalmente correto, fazendo um favor segue os fontesACBrMDFeDAMDFeRLRetrato.dfmACBrMDFeDAMDFeRLRetrato.pas

Bom dia Pessoal, conseguir resolver o problemas, segue as soluções: - o primeiro caso foi que a linguagem da zebra TLP 2844 deve ser etqEpl2 - e segundo a Origem tive que deixar como ogTop, e após isso fazer as rotações necessárias - sobre o tamanho da etiqueta, pelo que eu entendi, ele vai pegar a horizontal, do ponto zero definido pela origem acima até o máximo da etiqueta, e a vertical vai pegar do ponto zero ate o gap(que eu entendi é o final da etiqueta) , se for superior a isso a impressora nem aceita o comando do texto.

Bom dia fiz teste nesta manhã, na linguagem etqPplb, porém percebemos que a zebra TLP2844 utiliza a ligagem EPL conforme o site http://zebramaster.blogspot.com/2013/04/linguagem-de-programacao-zebra-epl.html nos teste usando a etqEpl2 vimos que exemplo que está no ACBRSerial está com erro na passagem dos parametros mutiplicadorH e V, abaixo segue o código corrigido, se puderem upar no servidor. Porém mesmo assim, esta saindo um pagina em branco porém agora no incio , Por usarmos a linguagem EPL2 pode ser o motivo da EPL estar saltando? Mas vamos continuar mais teste assim q conseguir achar mais alguma coisa irei reportando. with ACBrETQ do begin if Modelo in [etqPpla, etqPplb] then begin ImprimirTexto(orNormal, 2, 2, 2, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True); ImprimirTexto(orNormal, 2, 2, 1, 8, 3, 'CHOC BRANCO'); ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM); ImprimirTexto(orNormal, 3, 3, 2, 18, 32, 'R$'); ImprimirTexto(orNormal, 3, 4, 4, 15, 50, '20,59'); end else //if Modelo = etqZPLII then begin ImprimirTexto(orNormal, '0', 1, 1, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True); ImprimirTexto(orNormal, '0', 1, 1, 8, 3, 'CHOC BRANCO'); ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM); ImprimirTexto(orNormal, 'A', 1, 1, 18, 32, 'R$'); ImprimirTexto(orNormal, 'A', 1, 1, 15, 50, '20,59'); end;