Tela de PDV
Enviado: 23 Jul 2016 01:38
Ola a todos
Tenho um pdv em modo texto, e gostaria de saber qual biblioteca grafica usar
Tenho um pdv em modo texto, e gostaria de saber qual biblioteca grafica usar
prezado professor... mas, o fivewin é pago né?Kapiaba escreveu:W de Paula, pode ser em FiveWin?
... mandei lá na sua caixa de email.Kapiaba escreveu:me mande um email inbox se realmente quiser o código para leitura
show professor...Kapiaba escreveu:enviado ao seu email, não distribua por favor.
Bom dia Janio, não sei te informar o preço, pois não vendo Fivewin, sou apenas usuário desta ferramenta maravilhosa.
Podeis se informar sobre preço, no site oficial do Fivewin no Brasil, aqui:
http://fivewin.com.br/index.php
Na página principal, no rodapé, tem o "contato". Envie um email perguntando a equipe por favor.
Abraços.
hazael escreveu:
gostei... vc usou FIVEWIN?Kapiaba escreveu:Veja se ajuda também:
infelizmente eu tenho esse mesmo problema... gosto da coisa muito "papagaiada" parecendo "varal de cigano" rsrsrsMSDN escreveu:Já se imaginou usando um sistema de venda assim durante uma semana ?
mas gostei.Kapiaba escreveu: o usuário escolher a cor
eis a questão... tô bem no começo da coisa gráfica. Mas, a IDE da HMG 3.4.4. é bem simples, mas, funcional e uso apenas pra facilitar a edição dos PRGs e compilação via IDE, mas, não uso FORMs ainda.MSDN escreveu:MiniGUI oficial ( HMG ) ou a MiniGUI Extended ( HMGE )
nunca soube que existia "acrédito". Mas, se existe, soa mais positivo mesmo.MSDN escreveu: acréditos "....tem muito " adébito
REQUEST HB_CODEPAGE_PTISO
PROCEDURE Main
Set( _SET_CODEPAGE, "PTISO" )
SetMode(33,90)
CLS
wvt_DrawImage( 0, 0, MaxRow() + 1, MaxCol() + 1, "newpdv.jpg" )
SetColor( "W+/N" )
@ 2, 4 SAY "NOME DO PRODUTO"
@ 8, 20 SAY 5 PICTURE "@E 999.999"
@ 11, 20 SAY 10 PICTURE "@E 999.999"
@ 14, 20 SAY 50 PICTURE "@E 999.99"
@ 31, 60 SAY 50 PICTURE "@E 999.999"
SetColor("N/W")
@ 5, 40 SAY "NOME DO PRODUTO"
@ 6, 40 SAY "5 UN 10.00 = 50.00"
Inkey(0)
POR ISSO Qque concordo com o Quintas, que a GTWVG poderia ser o ponto de partida pra todas as outras LIBs gráficas. Se no momento da criação de todas as outras libs HMG, HWGUI, 5WIN, etc, tivessem padronizado, hoje não teríamos tantas LIBs com programação diferente.JoséQuintas escreveu:Não é a mesma coisa, mas é interessante.... quem não tem cão, caça com gtgatovg... rs
rubens escreveu:Agora o tanto que o Quintas é apaixonado pela GTWVG e a domina é impressionante !!!
microvolution escreveu:Agora só falta aprender a fazer com que eles sejam atualizados em tempo real e sem precisar ficar somando à matriz PAINT.
microvolution escreveu:POR ISSO Qque concordo com o Quintas, que a GTWVG poderia ser o ponto de partida pra todas as outras LIBs gráficas. Se no momento da criação de todas as outras libs HMG, HWGUI, 5WIN, etc, tivessem padronizado, hoje não teríamos tantas LIBs com programação diferente.
ops erro de digitação: wvg_Label() a gente consegue colocar do tamanho que quisermos. só não sei como fazer pra que seja trocado a cada ENTER.JoséQuintas escreveu:Funções WVG e não WVT
/* wvg_Label( nRow, nCol, aPxlOff, cLabel, nAlign,
nEscapement, nTextColor, nBkColor, cFontFace, nFontHeight,
nFontWidth, nFontWeight, nQuality, nCharSet, lItalics,
lUnderline, lStrikeOut ) */
/* wvg_LabelEx( nRow, nCol, aPxlOff, cLabel, nAlign, nTextColor, nBkColor, nSlotFont ) */
/* wvg_LabelEx2( nTop, nLeft, nBottom, nRight, aPxlOff, cLabel, nAlign,
nEscapement, nTextColor, nBkColor, cFontFace, nFontHeight,
nFontWidth, nFontWeight, nQuality, nCharSet, lItalics,
lUnderline, lStrikeOut ) */
sim... exatamente é o que pensei e já estava tentando fazer há muito tempo.JoséQuintas escreveu:A saída seria trocar esse elemento do array por um novo, com o novo texto.
AAdd( aPaint, { "Box_1_descricao_produto", {|| wvt_DrawColorRect( 00, 00, 02, 79 , , RGB( 063, 096, 150 ))}, { WVT_BLOCK_LABEL, 00, 00, 03, 79 } } )2 ) após desenhar a TELA:
AAdd( aPaint, { "Box_2_cupom_fiscal", {|| wvt_DrawColorRect( 03, 00, 20, 40 , , RGB( 255, 255, 206 ))}, { WVT_BLOCK_LABEL, 03, 00, 20, 40 } } )
AAdd( aPaint, { "Box_3_codigo_produto", {|| Wvt_DrawBoxGroup( 03, 41, 05, 79 ) }, { WVT_BLOCK_BOX, 03, 41, 05, 79 } } ) // box pra dentro (fundo) 26/2/18w
AAdd( aPaint, { "Box_4_quantidade", {|| Wvt_DrawBoxGroup( 07, 41, 09, 79 ) }, { WVT_BLOCK_BOX, 07, 41, 09, 79 } } ) // box alto relevo (pra fora) 26/2/18w
AAdd( aPaint, { "Box_5_preco_unitario", {|| Wvt_DrawBoxGroup( 11, 41, 13, 79 ) }, { WVT_BLOCK_BOX, 11, 41, 13, 79 } } ) // box só desenhado por fora (não tem relevo algum) 26/2/18w
AAdd( aPaint, { "Box_6_subtotal", {|| Wvt_DrawBoxGroup( 15, 41, 17, 79 ) }, { WVT_BLOCK_BOX, 15, 41, 17, 79 } } ) // desenha um box na cor selecionada (sem relevo algum) 26/2/18w
AAdd( aPaint, { "Label1_descricao_produto", {|| Wvt_DrawLabel( 00, 00, HB_AnsiToOem("DESCRIÇÃO DO PRODUTO") , 00, 00, RGB( 220, 220, 220 ) , RGB( 063, 096, 150 ), "Arial" , 20, , , , , .f., .f., .f. ) }, { WVT_BLOCK_LABEL, 00, 00, 03, 50 } } )
AAdd( aPaint, { "Label2_cupom_fiscal", {|| Wvt_DrawLabel( 03, 15, HB_AnsiToOem("CUPOM FISCAL") , 00, 00, RGB( 000, 000, 000 ) , RGB( 255, 255, 206 ), "VisualLib" , 24, , , , , .f., .f., .f. ) }, { WVT_BLOCK_LABEL, 03, 15, 03, 50 } } )
AAdd( aPaint, { "Label3_item_cod_descrica_qt_vrunit_vrtot", {|| Wvt_DrawLabel( 04, 00, HB_AnsiToOem("Ítem Código Descrição Qtd. Unitário R$ SubTotal R$") , 00, 00, RGB( 000, 000, 000 ) , RGB( 255, 255, 206 ), "VisualLib" , 11, 08, , , , .f., .f., .f. ) }, { WVT_BLOCK_LABEL, 04, 00, 03, 50 } } )
AAdd( aPaint, { "Label4_codigo_produto", {|| Wvt_DrawLabel( 03, 42, HB_AnsiToOem("CÓDIGO DO PRODUTO") , 00, 00, RGB( 078, 078, 078 ) , RGB( 192, 192, 192 ), "Lucida Console" , 14, , , , , .f., .f., .f. ) }, { WVT_BLOCK_LABEL, 03, 42, 03, 50 } } )
AAdd( aPaint, { "Label5_quantidade", {|| Wvt_DrawLabel( 07, 42, HB_AnsiToOem("QUANTIDADE") , 00, 00, RGB( 078, 078, 078 ) , RGB( 192, 192, 192 ), "Lucida Console" , 14, , , , , .f., .f., .f. ) }, { WVT_BLOCK_LABEL, 07, 42, 03, 50 } } )
AAdd( aPaint, { "Label6_preco_unitario", {|| Wvt_DrawLabel( 11, 42, HB_AnsiToOem("PREÇO UNITÁRIO R$") , 00, 00, RGB( 078, 078, 078 ) , RGB( 192, 192, 192 ), "Lucida Console" , 14, , , , , .f., .f., .f. ) }, { WVT_BLOCK_LABEL, 11, 42, 03, 50 } } )
AAdd( aPaint, { "Label7_subtotal", {|| Wvt_DrawLabel( 15, 42, HB_AnsiToOem("SUBTOTAL R$") , 00, 00, RGB( 078, 078, 078 ) , RGB( 192, 192, 192 ), "Lucida Console" , 16, , , , , .f., .f., .f. ) }, { WVT_BLOCK_LABEL, 15, 42, 03, 50 } } )
AAdd( aPaint, { "Gets" , {|| AEval( GetList, {| oGet | Wvt_DrawBoxGet( oGet:Row, oGet:Col, Len( Transform( oGet:VarGet(), oGet:Picture ) ) ) } ) }, NIL } )
ExecForm( aPaint )
AAdd( aPaint1, { "Label_preco_unitario" , {|| wvg_Label( 12, 64, , "210.0000" , 00, 00, RGB( 255, 255, 255 ) , RGB( 192, 192, 192 ), "Arial" , 36, , , , , .f., .f., .f. ) } , { WVT_BLOCK_LABEL, 12, 64, 12, 64 } } ) // aqui é o preço unitário
AAdd( aPaint1, { "Label_descricao_produto" , {|| Wvg_Label( 01, 00, , "KIT EMBREAGEM" , 00, 00, RGB( 255, 255, 255 ) , RGB( 063, 096, 150 ), "verdana" , 50, , , , , .f., .f., .f. ) } , { WVT_BLOCK_LABEL, 01, 00, 01, 00 } } ) // aqui desenha o título do produto após a primeira desenhada de telas
AAdd( aPaint1, { "Label_preco_total" , {|| wvg_Label( 16, 66, , "0,00" , 00, 00, RGB( 255, 255, 255 ) , RGB( 192, 192, 192 ), "Arial" , 36, , , , , .f., .f., .f. ) } , { WVT_BLOCK_LABEL, 12, 50, 12, 50 } } ) // esta linha é do preço de venda que está zerado, apenas pra teste
ExecForm1(aPaint1)
STATIC FUNCTION ExecForm( aPaint )
LOCAL cColor := SetColor()
LOCAL aPnt // sem estas 3 linhas não se consegue cancelar os gráficos da tela 12/3/18w
aPnt := WvtSetPaint( aPaint ) // sem estas 3 linhas não se consegue cancelar os gráficos da tela 12/3/18w
********
******** se não houver essas linhas, tudo que é feito fica por cima do que já existe. dependendo fica uma coisa horrível 26/2/18w
SetColor( "N/W" ) // cores básicas da tela
CLS
SetColor( "N/W,N/GR*,,,N/W*" ) // ativar cores após limpar a tela
******** se não houver essas linhas, tudo que é feito fica por cima do que já existe. dependendo fica uma coisa horrível 26/2/18w
********
CAD_PRODUTOS_WVG ()
WvtSetPaint( aPnt ) // esta função em conjunto a acima finaliza os gráficos da WVG 26/2/18w // se não for aplicada essas linhas, as imagens não desaparecem. // sem estas 3 linhas não se consegue cancelar os gráficos da tela 12/3/18w
RETURN NIL
STATIC FUNCTION ExecForm1( aPaint )
LOCAL cColor := SetColor() , aPnt
aPnt := WvtSetPaint( aPaint )
SetColor( "N/W" ) // cores básicas da tela
CLS
SetColor( "N/W,N/GR*,,,N/W*" ) // ativar cores após limpar a tela
GtSetupPalette() // funcionou só que preciso entender melhor 26/2/18w
SetColor( cColor ) // esta função em conjunto a abaixo finaliza os gráficos da WVG 26/2/18w //se não for aplicada essas linhas, as imagens não desaparecem.
WvtSetPaint( aPnt ) // esta função em conjunto a acima finaliza os gráficos da WVG 26/2/18w // se não for aplicada essas linhas, as imagens não desaparecem.
RETURN NIL
evaldo escreveu:esse PDV eu fiz em 2001 com clipper 5,2 (100%) sem usar lib de terceiro
microvolution escreveu:veja aí QUINTAS a tela de PDV com uso do CONSOLE com GTWVG:
{ WVT_BLOCK_BOX, 03, 41, 05, 79 }
cRichedit1 += "##"+STR(nCODPRO,13,0) + '# ' + SUBSTR(PRODUTOS->DESPRO,1,30) +" DEL"+ HB_EOL()
cRichedit1 += " " + STR(ITENS->QTDPRO,14,3) + " X " + STR(PRODUTOS->PREVEN,14,2)+ " = " + STR((PRODUTOS->PREVEN * ITENS->QTDPRO),14,2) + HB_EOL()
formVendas:oRichedit1:SETTEXT(cRichedit1)
Windev? Aí é covardia...
Rapaz não é inveja não mas vocês estão muito vaidosos, kkkkk
Estou comprando windev Mobile no inicio do mês que vem, com Adriano Boller e gostaria de saber se o processo de compra é tranquilo, confiável e o investimento é certo?