Moderador: Moderadores
IF MsgYesNo('Imprimir CUPOM NÃO FISCAL ?')
TRY
SELE fecha
fecha->(DBGoTop())
SET PRINTER ON
SET PRINTER TO COM5 //definido usando software porta virtual
SET CONSOLE OFF
? '------------------------------------------------'
? ' CUPOM PARA SIMPLES CONFERENCIA'
? ' NAO E DOCUMENTO FISCAL'
? ' COMA BEM RESTAURANTE E LANCHES'
? '================================================'
? 'DATA : '+dtoc(date())+' HORA: '+time()
? '------------------------------------------------'
? 'PRODUTO QTD UNIT. SUB-TOTAL'
? '------------------------------------------------'
WHILE .NOT. Eof()
? SubStr(fecha->nomeprod,1,25)+' '+Str(fecha->qtd,6,3)+' '+Str(fecha->unitario,5,2)+' '+Str(fecha->subtotal,8,2)
v_desconto := ( v_desconto + fecha->desc )
v_acrescimo := ( v_acrescimo + fecha->adic )
v_soma := ( v_soma + fecha->subtotal )
fecha->(DBSkip())
END
? '------------------------------------------------'
? ' SUB-TOTAL R$ ' + Str(v_soma,10,2)
? ' SUB-TOTAL R$ ' + Str(v_acrescimo,10,2)
? ' SUB-TOTAL R$ ' + Str(v_desconto,10,2)
? ' SUB-TOTAL R$ ' + Str((v_soma+v_acrescimo)-(v_desconto),10,2)
? '------------------------------------------------'
? 'Agradecemos a preferencia, Volte Sempre !'
? ''
? ''
? ''
? ''
? ''
SET CONSOLE ON
SET PRINTER TO
SET PRINTER OFF
// cortar o papel
v_comando = fcreate( "COM5",0 )
fwrite( v_comando, CHR(27)+"d"+CHR(3) )
fwrite( v_comando, CHR(27)+CHR(109) )
fclose( v_comando )
CATCH
Alerta('Falha na impressão','ATENÇÃO',3)
END
ENDIF
Usuários vendo este fórum: Bing [Bot], Google [Bot] e 9 visitantes