utlrasen.tato
Aprendiz
Registrado: Quarta-Feira, 11 de Janeiro de 2012
Mensagens: 112
Localização: jundiai-sp
|
 Enviada: Qui Abr 18, 2013 12:59 pm Assunto: etiqueta para roupa |
 |
|
bom dia amigos
estou precisando de ajudar URGENTE, tenho uma rotina abaixo que imprimi as etiquetas conforme a quantidade cadastrada do produto, mas estou precisando que minha rotina imprima no rolo de etiqueta de duas carreiras automatico, ALGUEM PODE ME AJUDAR?????
SEGUE A ROTINA
| Código: | procedure TFrm_CadProduto.bt_salvaClick(Sender: TObject);
Var
i, QtdeEtiquetas:Integer;
cod,descricao,valor,qtde:PAnsiChar;
cod2,descricao2,valor2,qtde2:PAnsiChar;
begin
dbedit6.Text:=med_dataA.Text;
dbedit1.text:= label10.caption;
dbedit7.text:= mk_imagem.text;
Dm_BD.Ds_Prod.post;
Dm_BD.Ds_Prod.ApplyUpdates(-1);
Application.ProcessMessages;
Dm_BD.Ds_Prod.Open;
Close;
If Application.MessageBox('Deseja Imprimir as ETIQUETAS agora ?','Confirmação',MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON2)=idyes then
Begin
QtdeEtiquetas := (Dm_BD.Ds_ProdQtde_Atual).asInteger;
For i := 1 to QtdeEtiquetas do
begin
//**************** LIMPAR MEMORIA *********************//
cod:=PAnsiChar(Dm_BD.Ds_ProdCOD_BARRAS.AsString);
descricao:=PAnsiChar(Dm_BD.Ds_ProdDESCRICAO.AsString);
valor:=PAnsiChar('Valor 3x de R$ '+formatCurr('###0.00',Strtocurr(Dm_BD.Ds_ProdVALOR_PROMOCAO.AsString)));
{ Dm_BD.Ds_Prod.Next; }
cod2:=PAnsiChar(Dm_BD.Ds_ProdCOD_BARRAS.AsString);
descricao2:=PAnsiChar(Dm_BD.Ds_ProdDESCRICAO.AsString);
valor2:=PAnsiChar('Valor 3x de R$ '+formatCurr('###0.00',Strtocurr(Dm_BD.Ds_ProdVALOR_PROMOCAO.AsString)));
{ Dm_BD.Ds_Prod.Next;}
A_createPrn(FRM_LOGIN.PORTA,'');
//for i := 1 to StrToInt(edit1.Text) do begin
A_Clear_Memory;
// Primeira etiqueta
A_Prn_Barcode(20,02,1, 'E', 1, 1, 30, 'n', 1, cod);
A_Prn_Barcode(140,02,1, 'E', 1, 1, 30, 'n', 1, cod2);
{ A_Prn_Barcode(260,02,1, 'E', 1, 1, 25, 'n', 1, cod2);}
// Segunda
A_Prn_Text (20,39,1,1,1,1,1,'n',2,valor);
A_Prn_Text (140,39,1,1,1,1,1,'n',2,valor2);
{ A_Prn_Text (260,39,1,1,1,1,1,'n',2,valor2); }
// Terceira
A_Prn_Text (20,48,1,1,1,1,1,'n',2,descricao);
A_Prn_Text (140,48,1,1,1,1,1,'n',2,Descricao2);
{ A_Prn_Text (260,48,1,1,1,1,1,'n',2,Descricao2);}
// ***************************************
A_Print_Out(1,1, 1, 1); // Chamo ao final de cada etiqueta preenchida
A_Clear_Memory;
cod:='';
descricao:='';
valor:='';
qtde:='';
cod2:='';
descricao2:='';
valor2:='';
qtde2:='';
A_ClosePrn;
//********************************* etiqueta 2 direita
end;
Dm_BD.Ds_Prod.Open;
Close;
end else
Dm_BD.Ds_Prod.Open;
Close;
END; |
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
