PC Toledo

PROCEDURE vendas1
local cvalor:=0
DEFINE WINDOW vendas_1 ;
AT 0,0 ;
WIDTH 600 HEIGHT 300 ;
TITLE 'VENDAS A VISTA' ;
MODAL;
FONT 'Arial Narrow' SIZE 14

@ 10,10 LABEL Label_venda ;
VALUE 'Valor da Venda:' ;
WIDTH 140 ;
HEIGHT 20 ;
FONT 'Arial' SIZE 14 ;
BACKCOLOR WHITE ;
FONTCOLOR BLUE BOLD

@ 10,150 textbox text1 numeric inputmask "9,999.99"
cvalor:=text1

* if cvalor=0
* textbox.text1.setfocus
* else
if cvalor<>0
@ 20,10 label label_paga;
value "Valor Recebido:";
width 240 height 20;
font 'arial' size 14
@ 20,150 textbox text2 numeric inputmask "9,999.99"
endif
*Abaixo está a linha 177 que apresenta erro
if text2.value >= text1.value
@ 30,10 label label_troco;
value "Troco a Pagar:";
width 240 height 20;
font 'arial' size 14

@ 20,150 label label_pagar;
value str(text2.value - text1.value);
width 240 height 20;
font 'arial' size 14 //linha 186
else
msginfo("Valor pago não pode ser menor que valor a pagar.")
endif

on key escape action fecha()
END WINDOW
CENTER window vendas_1
ACTIVATE window vendas_1
return nil

Erros na compilação:
Compiling 'vendas.prg'...
vendas.prg(177) Error E0030 Syntax error: "syntax error at '.'"
vendas.prg(186) Error E0030 Syntax error: "syntax error at '.'"
vendas.prg(187) Error E0030 Syntax error: "syntax error at 'ELSE'"
vendas.prg(189) Error E0030 Syntax error: "syntax error at 'ENDIF'"
vendas.prg(212) Error E0017 Unclosed control structure: 'IF'
Compiling module 'VENDAS0.prg'...
5 errors

Preciso comparar os valores a ser pago (cvalor) com o informado em textbox text1, para ver se há troco ou não. No summer eu sei como fazer mas aqui não consigo entender como deve ser feito.

Agradeço por alguma dica, mas penso que a coisa é bem "boba".

Júlio César

Amigo Julio,

Vc deve colocar assim: (exemplo)

If SeuFormulário.Text_01.Value != SeuFormulário.Text_02.Value

Seu código...

Endif

ou...

Valor:=SeuFormulario.Text_01.Value - SeuFormulario.Text_02.value

então...

Vendas_1.Text1.Value e,
vendas_1.Text2.Value

Valeu!

Bom dia,

Obrigado pela dica, mas ainda tenho muito que aprender no MINIGUI e emlinguagens orientadas a objeto, pois não consigo entender aquela tal de DELPHI. Meu filho já programa nela a um bom tempo.

Grato,

Júlio César

Olá Julio Cesar,
Seja Bem vindo ao Forum,
Qualquer duvida que vc venha a ter sobre Minigui ou outras LIB's graficas que podem ser usadas com xharbour, fique a vontade em postar. Você pode tmb. usar o sistema de busca do forum para procurar soluções antes de criar um post e nunca deixe de compilar os exemplos que acompanha a LIB Minigui, que não são poucos e que ajudam bastante no aprendizado de uso da mesma.