Claudinei Camargo

Ola preciso de ajuda pra desenvolver um consumo de API no delhi 7 [email protected] watsapp +595 985215591

Por favor, alguém teria um exemplo de como gerar etiquetas de barras 3 colunas na Argox OS-2140, eu sempre usei o padrão da Zebra e não conheço este padrão da Argox. Abaixo estou passando como estou fazendo atualmente: vetq := TStringList.create; vetq.clear; vetq.Add('L'); vetq.Add('H12'); vetq.Add('D11'); { 12110000000050 1 = orintacao 2 = fonte 1 = Multiplicador horizontal 1 = Multiplicador vertical 000 = Subtipo da fonte 0100 = Coordenadas no eixo x 0050 - Coordenadas no eixo y } with tabResult do begin first; item:=0; vQtMov:=0; vInImpFinal:=False; while not eof do begin if (fieldbyname('selecao').AsBoolean) and (fieldbyname('qtfisica').AsInteger > 0) then begin if (FieldByName('moedacompra').AsString <> null) and (FieldByName('moedacompra').AsString <> '') then vCodMoeda:=FieldByName('moedacompra').AsInteger else begin Application.MessageBox(pchar('Código Moéda de compra não informado para o Produto : '+FieldByName('codprod').AsString),'Aviso',Mb_Ok); vCodMoeda:=vGlbCodMoeda; exit; end; // p_busca_dados_prod; vetq.Add('121102000650015REF.:' + FieldByName('CODPROD').AsString); if (vGlbCodMoeda <> 3) then vetq.Add('121102000550015' + '"'+vSimbolo + vVlVenda+'"') else vetq.Add('121102000550015' + '"'+vSimbolo + vVlVenda+'"'); vetq.Add('121102000450015' + copy(vdescrProd,1,25) + '"'); vetq.Add('1F3202500100008' + FieldByName('CODBAR').AsString); next; if not eof then begin p_busca_dados_prod; vetq.Add('121102000650155REF.:' + FieldByName('CODPROD').AsString); if (vGlbCodMoeda <> 3) then vetq.Add('121102000550155' + '"'+vSimbolo + vVlVenda+'"') else vetq.Add('121102000550155' + '"'+vSimbolo + vVlVenda+'"'); vetq.Add('121102000450155' + copy(vdescrProd,1,25) + '"'); vetq.Add('1F3202500100150' + FieldByName('CODBAR').AsString); end; next; if not eof then begin p_busca_dados_prod; vetq.Add('121102000650290REF.:' + FieldByName('CODPROD').AsString); if (vGlbCodMoeda <> 3) then vetq.Add('121102000550290' + '"'+vSimbolo + vVlVenda+'"') else vetq.Add('121102000550290' + '"'+vSimbolo + vVlVenda+'"'); vetq.Add('121102000450290' + copy(vdescrProd,1,25) + '"'); vetq.Add('1F3202500100290' + FieldByName('CODBAR').AsString); // { Sintaxe 1, A, 5, 2, 000, 0100, 0200 1 = orientacao 1 para retrato a = Tipo de codigo de barras 5 = largura da barra larga 2 = largura da barra fina 000 = altura do cod barra 000 padrao 0100 = coordenada eixo y |^ 0200 = coordenada eixo x ----------> } end; next; vetq.Add('P'+fieldByName('qtfisica').AsString); vetq.Add('E'); end else next; end; end; // vetq.SaveToFile(vGlbPathEtiq + '\Arg3Col.txt'); vetq.Free; if not FileExists(vGlbPathEtiq + '\PRINTLBL.BAT') then begin AssignFile(Arquivo, vGlbPathEtiq + '\PRINTLBL.BAT'); try Rewrite(Arquivo); Writeln(Arquivo, 'TYPE ' + vGlbPathEtiq + '\Arg3Col.TXT > '+vLpt); finally CloseFile(Arquivo); end end; ShellExecute(0, 'Open', PChar(vGlbPathEtiq + '\PRINTLBL.BAT'), nil,nil, Ord(SW_SHOW));