fabio.avila
Aprendiz
Registrado: Segunda-Feira, 11 de Junho de 2007
Mensagens: 292
|
 Enviada: Qua Dez 12, 2007 11:34 am Assunto: Duvida quantos a comandos no ecf - (Editado) |
 |
|
| Citação: | Topico Movido por: Borland_Linuxer
Motivo: Respeite a divisao do forum
Movido para: Automacao Comercial |
meu código está mais ou menos assim.
//BEMATECH ABRE CUPOM
//iRetorno := Bematech_FI_AbrePortaSerial();
if modeloimp = 'BEMATECH'then
begin
iRetorno := Bematech_FI_AbreCupom(Pchar(''));
Analisa_iRetorno();
Retorno_Impressora();
end;
//BEMATECH VENDE ITEM
if modeloimp = 'BEMATECH'then
begin
DescItemStr:=floattostr(DescItem);
AcresItemStr:=floattostr(AcresItem);
//Inicia fechamento
if (vAcreDescStr <> '0')and(vAcreDescStr <> '') then
begin
iRetorno := Bematech_FI_AcrescimoDescontoItemMFD(inttostr(ultimoitem),
sAcreDesc,TipoAcreDesc,vAcreDescStr);
Analisa_iRetorno();
Retorno_Impressora();
end;
//Vende Item //DecimalValorunit:= 2 inteiro
iRetorno := Bematech_FI_VendeItem(codbarras,nomeprod,aliq,'F',
qtdstr,2,unitariostr,'%',DescItemstr);
//variáveis retiradas da função VendeItem 'TipoAcreDesc' 'DescItemStr'
Analisa_iRetorno();
Retorno_Impressora();
end;
procedure TFRecebe.FechaCupom;
var formapagto:string;
begin
if modeloimp = 'BEMATECH'then
begin
//Inicia fechamento do cupom
iRetorno := Bematech_FI_IniciaFechamentoCupom(sAcreDesc,
TipoAcreDesc,VAcreDescStr);
//Efetua forma de pagamento
DMTabelas.IBVendaRec.first;
while DMTabelas.IBVendaRec.eof = false do
begin
formapagto:=DMTabelas.IBVendaRecLookupForma.Value;
iRetorno := Bematech_FI_EfetuaFormaPagamento(FormaPagto,
floattostr(Pago));
DMTabelas.IBVendaRec.next;
end;
//Termina fechamento do cupom
iRetorno := Bematech_FI_TerminaFechamentoCupom('Obrigado. Volte sempre!');
//iRetorno := Bematech_FI_FechaPortaSerial();
end;
end;
gostaria de programar de uma forma genérica. pô!!!
tem um monte de fecha cupom mais um monte de efetua forma de pagamento não tá funcionando nada aqui galeraaaaaaaaaaaaaa |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
