ECF não vende item

Delphi

17/03/2003

Em meu programa, não consigo vender item. Ele emite Leitura X, Reducao Z, abre gaveta, abre cupom, muda horário de verao, sangria, suprimento, mas no momento de vender um item, neca de pitibiriba.
A minha a dúvida está em passar o parâmetro DESCONTO. O programa não pode dar desconto nenhum, em nenhuma hipótese. Eu tentei de várias formas(0000, 00000000, 0000¬, R$0,00) mas não deu certo. Não sei se o erro está nos desconto não. Eu é quem acho isso. Aí vai meu código para vender item.

procedure TfrmVenda.Edit1Exit(Sender: TObject);
var
total, cont, preco: double;
cod, desc, icm, valor, tot1, desco, qtde, de: String;
iRetorno : integer;
begin


if StatusBar1.Panels[3].Text = ´1´ then begin
inicia;

preco:=strtofloat(edit1.text);
cod:=inttostr(Dm.EstoqueCod.AsInteger);
desc:=Dm.EstoqueDescricao.asstring;
icm:=´01´;
qtde:=StrZeros(edQde.Text, 4);
valor:=floattostrf(preco, ffCurrency, 12, 2);
desco:=´0000´;//Tentei de várias formas, esta é a última q fiz. Eu não quero colocar um campo para descontos, pois eles não vão existir, por isso quero passar os valores diretos para o ECF.

Buffer := #27+´|09|´+cod+´|´+desc+´|´+icm+´|´+qtde+´|´+valor+´|´+desco+´|´+ 27;//venda de itens

encerra;

// Abaixo as procedures inicia e encerra. Fiz assim, para evitar de escrever os mesmos códigos, sempre.

procedure TfrmVenda.encerra;
var
iRetorno: integer;
begin
iRetorno := FormataTX(Buffer);
if iRetorno = 1 then
ShowMessage(´Erro de comunucação física.´);

iRetorno := FechaPorta();
if iRetorno = 0 then
ShowMessage(´Erro ao tentar liberar porta.´);
end;

procedure TfrmVenda.inicia;
var
iRetorno: integer;
begin
iRetorno := IniPortaStr(ComboBox1.Items[ComboBox1.ItemIndex]);
if iRetorno = 0 then
ShowMessage(´Erro ao inicializar porta.´);
end;

Buffer é global.


Anonymous

Anonymous

Curtidas 0
POSTAR