Wellington Vieira Posted April 6, 2021 Report Share Posted April 6, 2021 (edited) Boa tarde, Alguém já passou por isso: Quando chamo a dialog com o brush uma imagem ela vem com a função radio normal conforme a imagem abaixo: Quando pressione a tecla "ALT" a função radio SOME ALGEM SABERIA O PORQUE ?? Edited April 8, 2021 by Wellington Vieira RESOLVIDO Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted April 6, 2021 Report Share Posted April 6, 2021 Boa tarde. Não sei se é o caso, mas eu já tive problemas com botões radio definidos como BS_AUTORADIOBUTTON no arquivo .RC Alterei para BS_RADIOBUTTON e funcionou normal. Sds. Quote Link to comment Share on other sites More sharing options...
macs Posted April 6, 2021 Report Share Posted April 6, 2021 Amigo... gostei destas bordas arredondadas. Que classe é essa? Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 6, 2021 Author Report Share Posted April 6, 2021 macs, é um bitmap inserido em um brush. define brush obrushpedidoTela file "emissao_pedido.bmp" define dialog pedido title "" from 000,000 to 650,1020 Pixel brush obrushpedidoTela transparent activate dialog pedido Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 6, 2021 Author Report Share Posted April 6, 2021 Esqueci de mencionar que o sumiço da RADIO só ocorre quando uso no meu ".RC" o WindowsXP.Manifest. Quote Link to comment Share on other sites More sharing options...
macs Posted April 6, 2021 Report Share Posted April 6, 2021 31 minutos atrás, Wellington Vieira disse: macs, é um bitmap inserido em um brush. define brush obrushpedidoTela file "emissao_pedido.bmp" define dialog pedido title "" from 000,000 to 650,1020 Pixel brush obrushpedidoTela transparent activate dialog pedido Show de bola... gostei! Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted April 7, 2021 Report Share Posted April 7, 2021 21 horas atrás, Wellington Vieira disse: Esqueci de mencionar que o sumiço da RADIO só ocorre quando uso no meu ".RC" o WindowsXP.Manifest. Buenas! Tente com o Windows10.Manifest . []´s Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 8, 2021 Author Report Share Posted April 8, 2021 15 horas atrás, Rogerio Figueira disse: Buenas! Tente com o Windows10.Manifest . []´s Desculpe-me acho que me expressei mal, com qualquer arquivo de MANIFET isso ocorre seja WindowXP.Manifest, Windows10.Manifest, WindowsXP.Manifet64 etc.. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2021 Report Share Posted April 8, 2021 Bom dia. Retire o TRANSPARENT do Dialogo para ver o que ocorre. Abs. Quote Link to comment Share on other sites More sharing options...
macs Posted April 8, 2021 Report Share Posted April 8, 2021 Você está utilizando RESOURCE ou posicionando os componentes via @ linha, coluna? Caso for RESOURCE, verifica se "Tab Index" do RADIO está maior que o da imagem. Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 8, 2021 Author Report Share Posted April 8, 2021 Bom dia, Este é o código. @ 17,244 RADIO oPtipopreco VAR mPtipopreco OF pedido color corfrtsay,corfdosay PIXEL oradioPreco1 := TRadio():New( 17,244, "ECO-TROCA", ; .T., ; // sempre o primeiro elemento recebe .t. .T., ; // .t. = selecionado (Checked) 1, pedido, oPtipopreco, , , , , .F., , ; 50, 8, , .F., .T. ) oPtipopreco:AddRadio( oradioPreco1 ) oradioPreco2 := TRadio():New( 17,295, "A PRAZO", ; .F. , ; .F. , ; 2, pedido, oPtipopreco, , , , , .F., , ; 50, 8, , .F., .T. ) oPtipopreco:AddRadio( oradioPreco2 ) Quando chamo a DIALOG e assim que pressiono a TECLA "ALT", tudo que é RADIO, CHECKBOX some, se eu passar o MOUSE em cima destes componentes ai eles voltam na DIALOG e não somem mais. Se eu não usar qualquer MANIFEST, fica tudo normal. Essa anormalidade acontece somente usando o MANIFEST. Já tirei o Transparent da dialog e acontece a mesma coisa. Abaixo o código completo. #include "FiveWin.ch" #include "common.ch" #include "postgres.ch" #include "Folder.ch" #include "dtpicker.ch" #include "report.ch" #include "Image.ch" #define btn_width 12 #define btn_height 10 #define SRCPAINT 15597702 // 0xEE0086 #define SRCAND 8913094 //***************************************************************************** // OBS. EM idformapagamento ESTA GRAVANDO OS MEIOS DE PAGAMENTO quando a venda // for A VISTA // OBS. EM idmeiospagamento ESTA GRAVANDO OS MEIOS DE PAGAMENTO quando a venda // FOR A PRAZO e tiver o valor de ENTRADA //***************************************************************************** function pedido(objetpedido,objetipodetela) if ver_senha("000550") = .f. return .t. endif // Quando for T e de venda e P ‚ de pedidod........................... objettela = objetipodetela // Quando objetpedido = "S" -> Saida // Quando objetpedido = "E" -> Entrada... if objetpedido = "S" oTitlePedido = "Emissão de pedidos" elseif objetpedido = "E" oTitlePedido = "Entrada de pedidos" endif define dialog pedido title oTitlePedido from 000,000 to 650,1020 Pixel brush iif(objetpedido = "S",iif( objettela = "T",obrushpedidoPDV,iif(objettela = "P",obrushpedidoTela,)),) transparent // variaveis do pedido......................................... nlivraget = 1 mTcaminhodaimagem = "" mtotalpedido = 0 if objetpedido = "S" mPnumerodopedido = 0 elseif objetpedido = "E" mPnumerodopedido = 0 endif mPidpedido = 0 mPsituacaopedido = 1 mPnomedasituacao = "Digitação" mPnumeronotafiscal = 0 mPnumerocupomfiscal = 0 mPtipopreco = zadmprecopadrao mXtipopreco = zadmprecopadrao mPtipovenda = 1 //tadmnomepreco1 = alltrim(zadmnomepreco1) //tadmnomepreco2 = alltrim(zadmnomepreco2) tadmnomepreco1 = iif(!empty(zadmnomepreco1),alltrim(zadmnomepreco1),"Preco_1") tadmnomepreco2 = iif(!empty(zadmnomepreco2),alltrim(zadmnomepreco2),"Preco_2") mPidcliente = 0 mPnomedocliente = space(60) rproc_procura_consumidor(1) mPcnpjcpf = space(14) mPdatapedido = ldate mPdataemissao = ctod("") asamplzPEDpedido = {""} arecPEDpedido = {} // variaveis para o produto.................................... mAcodigoproduto = space(20) // c¢digo do produto mAnomedoproduto = space(100) // descri‡Æo do produto mAtotalvenda = 0 // total do item mAqtdpedida = 1 // quantidade mPseqproduto = 0 mPcodigoproduto = space(20) mPestoquedisponivel = 0 mPnomedoproduto = space(100) mPtamanho = 0 mPcor = 0 mPtamanhocor = space(30) mPqtdpedida = 0 mPqtdunidade = 0 mPvalorvendaunitario = 0 mPcustounitariocontabil = 0 mPcustounitarionf = 0 mPtotaldoproduto = 0 mPestoque = 0 mPreserva = 0 mPconsignado = 0 mPprecovenda1 = 0 mPprecovenda2 = 0 mPdescontomaximoitem = 0 mPtermovimentacao = .f. mfracaoqtd = .f. mqtddecimais = 0 mvlrdecimais = 0 asamplzcontroleproduto = {""} areccontroleproduto = {} // variaveis do pedido......................................... mPtotaldeitens = 0 mPsubotaldositens = 0 mPdescontoacrescimo = 1 mPvaloroupercentualdesconto = 0 mPtotaldopedido = 0 mptotaladividir := mptotalareceber := 0 msairESC := "N" mPdescontototalpermitido = 0 mPdescontototaldado = 0 mAchaProcuraPedido = "N" // plano de contas............................................. maad = 0 pega_grau() mPdescricaoplanodecontas = space(150) mPadescricaoplanodecontas = {} aadd(mPadescricaoplanodecontas,space(150)) cQuery := "select seqcontas,descricao,contacontabil from fnplanoconta "+; " order by descricao asc;" oQuery := oServer:Query(cQuery) DO WHILE ! oQuery:Eof() a = oQuery:Fieldget(oQuery:Fieldpos('descricao')) b = oQuery:Fieldget(oQuery:Fieldpos('seqcontas')) c = oQuery:Fieldget(oQuery:Fieldpos('contacontabil')) if val(substr(c,1,1)) = 2 oQuery:Skip() loop endif if val(right(alltrim(c),len(maad))) <= 0 oQuery:Skip() loop endif if !empty(a) aadd(mPadescricaoplanodecontas,a) endif oQuery:Skip() END oQuery:destroy() // variaveis para o tipo de movimento.......................... if ztipodeempresa = "Bateria" mPtipomovimento = 9 cwQuery := "select * from estipomovimento where "+; "seqtpmov = " + alltrim(str(mPtipomovimento)) cwQuery += " order by seqtpmov asc;" owQuery := oServer:Query(cwQuery) mPdescricaotipodemovimento = owQuery:Fieldget(owQuery:Fieldpos('descricao')) owQuery:destroy() mPdescricaoplanodecontas = "VENDAS A PRAZO" + space(136) else mPtipomovimento = 0 mPdescricaotipodemovimento = space(50) endif tmovimentaestoque = .f. // se movimenta o estoque tgeracontas = .f. // se gera cts a pagar ou receber tmovimentocompravenda = .f. // se movimento de compra ou venda tabatemovimento = .f. // se abate no valor do movimento tcomporcustomedio = .f. // se compoe custo medio tcomporcustocontabil = .f. // se compoe custo contabil texigirmargemlucro = .f. // se exige margem de lucro tmovimentoconsignado = .f. // se o movimento e consignado tprazoacertoconsignado = 0 // se tem prazo ou acerto consignado tcodigocancelamento = 0 // codigo para o cancelamento // se não estiver vazio o tipo de saída para venda............................. if !empty(zfintiposaidapdv) mPtipomovimento = zfintiposaidapdv cwquery := "select * from estipomovimento where seqtpmov = " +; alltrim(str(mPtipomovimento))+ " order by seqtpmov asc;" owquery := oserver:query(cwquery) mPdescricaotipodemovimento = owQuery:Fieldget(owQuery:Fieldpos('descricao')) tmovimentaestoque = owQuery:Fieldget(owQuery:Fieldpos('movimentaestoque')) tgeracontas = owQuery:Fieldget(owQuery:Fieldpos('geracontas')) tmovimentocompravenda = owQuery:Fieldget(owQuery:Fieldpos('movimentocompravenda')) tabatemovimento = owQuery:Fieldget(owQuery:Fieldpos('abatemovimento')) tcomporcustomedio = owQuery:Fieldget(owQuery:Fieldpos('comporcustomedio')) tcomporcustocontabil = owQuery:Fieldget(owQuery:Fieldpos('comporcustocontabil')) texigirmargemlucro = owQuery:Fieldget(owQuery:Fieldpos('exigirmargemlucro')) tmovimentoconsignado = owQuery:Fieldget(owQuery:Fieldpos('movimentoconsignado')) tprazoacertoconsignado = owQuery:Fieldget(owQuery:Fieldpos('prazoacertoconsignado')) tcodigocancelamento = owQuery:Fieldget(owQuery:Fieldpos('codigocancelamento')) owquery:destroy() endif // se não tiver vazio o tipo de conta para a venda....... if !empty(zfincontavendasvista) cwQuery := "select * from fnplanoconta where "+; "seqcontas = " + alltrim(str(zfincontavendasvista)) cwQuery += " order by seqcontas asc;" owQuery := oServer:Query(cwQuery) mPdescricaoplanodecontas = owQuery:Fieldget(owQuery:Fieldpos('descricao')) owQuery:destroy() endif // pega o tipo de caixa........................................ mPidtipodecaixa = 1 mPdescricaotipodecaixa = space(50) // descricao do tipo de caixa quando o pedido for a vista. mRdescricaotipodecaixa = space(50) // descricao do tipo de caixa na entrada do recebimento mPadescricaotipodecaixa = {} cquery := "select * from fncaixas"+; " order by descricaocaixa asc;" oquery := oServer:Query(cquery) aadd(mPadescricaotipodecaixa,space(50)) nncaixa = 0 do while ! oquery:eof() b = oquery:Fieldget(oquery:Fieldpos('descricaocaixa')) if !empty(b) aadd(mPadescricaotipodecaixa,b) endif ++nncaixa oquery:skip() end oquery:destroy() if nncaixa = 1 for ttcaixa = 1 to len(mPadescricaotipodecaixa) mPdescricaotipodecaixa = mPadescricaotipodecaixa[ttcaixa] next else if ztipodeempresa = "Bateria" for ttcaixa = 1 to len(mPadescricaotipodecaixa) if upper(alltrim(mPadescricaotipodecaixa[ttcaixa])) = "FINANCEIRO" mPdescricaotipodecaixa = mPadescricaotipodecaixa[ttcaixa] endif next endif endif nPassa_a_liberar_na_tela_venda = "N" // meio de pagamento quando for a vista............................... mPdescricaoformapagamento = space(50) mPadescricaoformapagamento = {} aadd(mPadescricaoformapagamento,space(50)) cquery := "select * from fnmeiospagamento where"+; " loja = " + alltrim(str(zseqloja))+; " and avistaaprazo = 1"+; " order by descricaomeiospagamento asc;" oquery := oServer:Query(cquery) do while ! oquery:eof() b = oquery:Fieldget(oquery:Fieldpos('descricaomeiospagamento')) if !empty(b) aadd(mPadescricaoformapagamento,b) endif oquery:skip() end oquery:destroy() // Variaveis somente para a saida.............................. mPidvendedor = 0 mPvendedor = space(50) mPavendedor := {} mPrecvendedor := {} mPidvendedoratendeu = 0 mPvendedoratendeu = space(50) mPavendedoratendeu := {} mPrecvendedoratendeu := {} mPlocalentrega = space(100) mPidtabeladeprecos = 0 mPtabeladeprecos = space(50) mPatabeladeprecos := {} mPobservacao = "" mlimitedecreditoCliente = 0 // Retorna o valor do limite de crédito do cliente. mlimitesaldo = 0 // Retorno o valor que o cliente ainda tem de saldo para comprar. mlimiteLiberou = "N" // Se já foi liberado pelo menos uma vez o restante da compra do cliente. msairESCconta = "N" // Joga os representantes em um array.......................... cQuery := "select * from fnrepresentante where"+; " ativo = 'y'" cQuery += " order by razaosocial asc;" oquery := oServer:Query(cquery) aadd( mPavendedor,space(50) ) aadd( mPavendedoratendeu,space(50) ) aadd( mPrecvendedor,0) aadd( mPrecvendedoratendeu,0) DO WHILE ! oquery:Eof() a = oquery:Fieldget(oquery:Fieldpos('seqrepresentante')) b = oquery:Fieldget(oquery:Fieldpos('razaosocial')) aadd( mPavendedor,b ) aadd( mPavendedoratendeu,b ) aadd( mPrecvendedor,a) aadd( mPrecvendedoratendeu,a) oquery:Skip() END oquery:destroy() if objettela = "T" @ 270,020 get oPnumerodopedido var mPnumerodopedido picture "@e 999999999" valid ( pega_dados_pedido(objetpedido) ) font mtahomagrande size 63,15 of pedido color corfrtsayds,corfdogetnotafiscal pixel right noborder @ 270,105 say oPnomedasituacao var mPnomedasituacao font mtahomagrandeletra size 65,15 of pedido color RGB(255,255,255),RGB(007,102,148) pixel if objetpedido = "S" @ 305,018 say oPnumeronotafiscal var mPnumeronotafiscal font mtahomagrandeletra size 65,15 of pedido color RGB(255,255,255),RGB(007,102,148) pixel right @ 305,112 say oPnumerocupomfiscal var mPnumerocupomfiscal font mtahomagrandeletra size 65,15 of pedido color RGB(255,255,255),RGB(007,102,148) pixel right endif @ 003.5,198 say "Tipo de preço" of pedido font mtahomabold size 65,8.5 color corfrtsay,corfdosay pixel @ 003,244 RADIO oPtipopreco VAR mPtipopreco OF pedido color corfrtsay,corfdosay PIXEL SIZE 40,8 oradioPreco1 := TRadio():New( 003,244, tadmnomepreco1, ; .T., ; // sempre o primeiro elemento recebe .t. .T., ; // .t. = selecionado (Checked) 1, pedido, oPtipopreco, , , , , .F., , ; 50, 8, , .F., .T. ) oPtipopreco:AddRadio( oradioPreco1 ) oradioPreco2 := TRadio():New( 003,295, tadmnomepreco2, ; .F. , ; .F. , ; 2, pedido, oPtipopreco, , , , , .F., , ; 50, 8, , .F., .T. ) oPtipopreco:AddRadio( oradioPreco2 ) @ 021,005 get oPidcliente var mPidcliente valid ( procura_cliente_fornecedor(objetpedido) ) font mtahoma size 44,10 of pedido color corfrtsayds,corfdosay pixel right noborder when .f. if objetpedido = "S" @ 022,052 btnbmp opedidobut01 size btn_width, btn_height name "search" noborder of pedido action ( rproc_fornecedor(2,"C",mPnumerodopedido,"S")) opedidobut01:lTransparent := .t. elseif objetpedido = "E" @ 022,052 btnbmp opedidobut01 size btn_width, btn_height name "search" noborder of pedido action ( rproc_fornecedor(2,"F") ) opedidobut01:lTransparent := .t. endif //@ 021,065 say oPnomedocliente var mPnomedocliente picture "@!" font mtahomapequena size 225,15 of pedido color RGB(255,255,255),RGB(007,102,148) pixel @ 021,065 say oPnomedocliente var mPnomedocliente picture "@!" font mtahomapequena size 225,15 of pedido color corfrtsayds,corfdosay pixel //@ 021,378 say oPcnpjcpf var mPcnpjcpf; // picture "@!" font mtahomapequena size 070,15 of pedido color RGB(255,255,255),RGB(007,102,148); // pixel @ 021,378 say oPcnpjcpf var mPcnpjcpf; picture "@!" font mtahomapequena size 070,15 of pedido color corfrtsayds,corfdosay; pixel @ 022,465 get oPdatapedido var mPdatapedido font mtahoma size 30,09 of pedido color corfrtget,corfdogetnotafiscal pixel noborder //@ 022,465 dtpicker oPdatapedido var mPdatapedido font mtahoma size 50,10 of pedido color corfrtget,corfdoget pixel if objetpedido = "S" @ 046,005 btnbmp opedidobut02 size btn_width, btn_height name "search" noborder of pedido action ( rproc_tipodemovimento(4,"S",mPnumerodopedido) ) opedidobut02:lTransparent := .t. @ 046,018 get oPdescricaotipodemovimento var mPdescricaotipodemovimento picture "@!" font mtahoma size 105,10 of pedido color corfrtget,corfdogetnotafiscal pixel noborder elseif objetpedido = "E" @ 046,005 btnbmp opedidobut02 size btn_width, btn_height name "search" noborder of pedido action ( rproc_tipodemovimento(4,"E",mPnumerodopedido) ) opedidobut02:lTransparent := .t. //@ 055,018 get oPdescricaotipodemovimento var mPdescricaotipodemovimento picture "@!" font mtahoma size 425,10 of pedido color corfrtget,corfdogetnotafiscal pixel @ 046,018 get oPdescricaotipodemovimento var mPdescricaotipodemovimento picture "@!" font mtahoma size 425,10 of pedido color corfrtget,corfdoget pixel noborder endif if objetpedido = "S" @ 046,131 combobox oPvendedor var mPvendedor items mPavendedor valid( compoe_vendedor_atendeu() ) font mtahoma size 155,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 046,292 combobox oPvendedoratendeu var mPvendedoratendeu items mPavendedoratendeu font mtahoma size 155,100 of pedido color corfrtget,corfdogetnotafiscal pixel //@ 046,465 say oPdataemissao var mPdataemissao font mtahomapequena size 30,15 of pedido color RGB(255,255,255),RGB(007,102,148) pixel @ 046,465 say oPdataemissao var mPdataemissao font mtahomapequena size 30,15 of pedido color corfrtsayds,corfdosay pixel @ 110,005 get oPlocalentrega var mPlocalentrega picture "@!" valid( local_entrega_atualiza() ) font mtahoma size 280,10 of pedido color corfrtget,corfdogetnotafiscal pixel noborder @ 110,292 combobox oPtabeladeprecos var mPtabeladeprecos items mPatabeladeprecos font mtahoma size 211,100 of pedido color corfrtget,corfdogetnotafiscal pixel oPlocalentrega:disable() oPtabeladeprecos:disable() endif @ 081,005 get oPcodigoproduto var mPcodigoproduto picture "@!" valid ( rproc_produto_entradasaida(objetpedido,"") ) font mtahomagrande size 120,19 of pedido color corfrtget,corfdogetnotafiscal pixel noborder //@ 083,135 say oPnomedoproduto var mPnomedoproduto picture "@!" font mtahomagrande size 400,19 of pedido color RGB(255,255,255),RGB(007,102,148) pixel @ 083,135 say oPnomedoproduto var mPnomedoproduto picture "@!" font mtahomagrande size 400,19 of pedido color corfrtsayds,corfdosay pixel @ 105,005 listbox obrzPEDpedido fields asamplzPEDpedido[obrzPEDpedido:nat,1],asamplzPEDpedido[obrzPEDpedido:nat,2],; asamplzPEDpedido[obrzPEDpedido:nat,3],asamplzPEDpedido[obrzPEDpedido:nat,4],asamplzPEDpedido[obrzPEDpedido:nat,5],; asamplzPEDpedido[obrzPEDpedido:nat,6]; headers "Código","Produto","Und","Quantidade","Unitário","Total"; FIELDSIZES 130,350,50,155,160,135 on dblclick escolha_opcao_exc_alt(objetpedido); size 500,85 font mcourierGra; pixel of pedido color rgb(000,000,000),rgb(245,235,223) obrzPEDpedido:nClrPane := {|| iif((obrzPEDpedido:nat/2) = int(obrzPEDpedido:nat/2),corfdogetnotafiscal,corlstbxnormal) } obrzPEDpedido:aJustify := { .F.,.F.,.F.,.T.,.T.,.T. } obrzPEDpedido:nLineStyle := 3 obrzPEDpedido:lCellStyle = .f. obrzPEDpedido:lAutoSkip = .t. obrzPEDpedido:SetArray(asamplzPEDpedido) obrzPEDpedido:bGoTop = { || obrzPEDpedido:nat := 1 } obrzPEDpedido:bGoBottom = { || obrzPEDpedido:nat := Eval( obrzPEDpedido:bLogicLen ) } obrzPEDpedido:bSkip = { | nWant, nOld | nOld := obrzPEDpedido:nat, obrzPEDpedido:nat += nWant,; obrzPEDpedido:nat := Max( 1, Min( obrzPEDpedido:nat, Eval( obrzPEDpedido:bLogicLen ) ) ),; obrzPEDpedido:nat - nOld } obrzPEDpedido:bLogicLen = { || Len( asamplzPEDpedido ) } obrzPEDpedido:cAlias = "Array" obrzPEDpedido:nColAct := 1 obrzPEDpedido:lMChange := .F. obrzPEDpedido:SetFocus() obrzPEDpedido:Refresh() obrzPEDpedido:bgotfocus = { || oPcodigoproduto:setfocus() } //@ 209,010 say oPtotaldeitens var mPtotaldeitens picture zmascqtdinteiro font mtahomagrande of pedido size 085,15 color RGB(255,255,255),RGB(007,102,148) pixel right @ 209,010 say oPtotaldeitens var mPtotaldeitens picture zmascqtdinteiro font mtahomagrande of pedido size 085,15 color corfrtsayds,corfdosay pixel right //@ 209,122 say oPsubotaldositens var mPsubotaldositens picture "@e 999,999,999,999.99" font mtahomagrande of pedido size 108,15 color RGB(255,255,255),RGB(007,102,148) pixel right @ 209,122 say oPsubotaldositens var mPsubotaldositens picture "@e 999,999,999,999.99" font mtahomagrande of pedido size 108,15 color corfrtsayds,corfdosay pixel right @ 207,233 radio oPdescontoacrescimo var mPdescontoacrescimo of pedido color corfrtsay,corfdosay pixel size 35,10 oRadio1 := TRadio():New( 207,233, '', ; .T., ; .T., ; 1, pedido, oPdescontoacrescimo, , , , , .F., , ; 35, 10, , .F., .T. ) oPdescontoacrescimo:AddRadio( oRadio1 ) oRadio2 := TRadio():New( 207,275, '', ; .F. , ; .F. , ; 2, pedido, oPdescontoacrescimo, , , , , .F., , ; 25, 10, , .F., .T. ) oPdescontoacrescimo:AddRadio( oRadio2 ) @ 209,317 get oPvaloroupercentualdesconto var mPvaloroupercentualdesconto picture zmascvalor valid( calcula_desconto_pedido() ) font mtahoma size 55,10 of pedido color corfrtget,corfdogetnotafiscal pixel right noborder //@ 209,398 say oPtotaldopedido var mPtotaldopedido picture "@e 999,999,999,999.99" font mtahomagrande of pedido size 108,15 color RGB(255,255,255),RGB(007,102,148) pixel right @ 209,398 say oPtotaldopedido var mPtotaldopedido picture "@e 999,999,999,999.99" font mtahomagrande of pedido size 108,15 color corfrtsayds,corfdosay pixel right @ 236,005 combobox oPdescricaoplanodecontas var mPdescricaoplanodecontas items mPadescricaoplanodecontas valid( grava_planocontas() ) font mtahoma size 090,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 239,120 RADIO oPtipovenda VAR mPtipovenda OF pedido color corfrtsayds,corfdosay PIXEL SIZE 40,8 on change( altera_tipo_venda("PEDIDO") ) oradio_1 := TRadio():New( 239,099, "", ; .T., ; // sempre o primeiro elemento recebe .t. .T., ; // .t. = selecionado (Checked) 1, pedido, oPtipovenda, , , , , .F., , ; 20, 8, , .F., .T. ) oPtipovenda:AddRadio( oradio_1 ) oradio_2 := TRadio():New( 239,130, "", ; .F. , ; .F. , ; 2, pedido, oPtipovenda, , , , , .F., , ; 20, 8, , .F., .T. ) oPtipovenda:AddRadio( oradio_2 ) oradio_3 := TRadio():New( 239,164, "", ; .F. , ; .F. , ; 3, pedido, oPtipovenda, , , , , .F., , ; 20, 8, , .F., .T. ) oPtipovenda:AddRadio( oradio_3 ) oradio_4 := TRadio():New( 239,190, "", ; .F. , ; .F. , ; 4, pedido, oPtipovenda, , , , , .F., , ; 20, 8, , .F., .T. ) oPtipovenda:AddRadio( oradio_4 ) @ 236,246 combobox oPdescricaoformapagamento var mPdescricaoformapagamento items mPadescricaoformapagamento valid( grava_meio_a_vista() ) font mtahoma size 120,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 236,385 combobox oPdescricaotipodecaixa var mPdescricaotipodecaixa items mPadescricaotipodecaixa valid( grava_caixa_a_vista() ) font mtahoma size 120,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 254,201 buttonbmp onota01 bitmap "pdv_nfe.bmp" left size 045,19 font obotaof of pedido pixel action ( iif(ver_senha("000553") = .t.,notafiscal("pedido","eletronica",objetpedido,"S","N"),"") ) @ 254,252 buttonbmp onot01a bitmap "pdv_nfce.bmp" left size 045,19 font obotaof of pedido pixel action ( iif(ver_senha("000553") = .t.,notafiscal("pedido","eletronica",objetpedido,"S","C"),"") ) if zfatnotapapeleoueletronica = 1 onota01:disable() onot01a:disable() elseif zfatnotapapeleoueletronica = 2 onota01:enable() onot01a:disable() elseif zfatnotapapeleoueletronica = 3 onota01:disable() onot01a:enable() elseif zfatnotapapeleoueletronica = 4 onota01:enable() onot01a:enable() endif @ 254,302 buttonbmp onota02 bitmap "pdv_cupom.bmp" left size 045,19 font obotaof of pedido pixel action ( cupom_fiscal("pedido") ) @ 254,353 buttonbmp onota03 bitmap "pdv_obs.bmp" left size 045,19 font obotaof of pedido pixel action ( nfpedido_obs() ) @ 254,403 buttonbmp onota04 bitmap "pdv_importar.bmp" left size 045,19 font obotaof of pedido pixel action ( importa_produto_pedido_orcamento(objetpedido) ) @ 254,454 buttonbmp onota05 bitmap "pdv_corrente.bmp" left size 045,19 font obotaof of pedido pixel action ( junta_conta_corrente() ) @ 278,201 buttonbmp opedido01 bitmap "pdv_procurar.bmp" left size 045,19 font obotaof of pedido pixel action( iif(objetpedido = "E",rproc_pedido_entrada(),rproc_pedido_saida(objetpedido)) ) @ 278,252 buttonbmp opedido00 bitmap "pdv_clientes.bmp" left size 045,19 font obotaof of pedido pixel action( tablet_listbox_clientes() ) @ 278,302 buttonbmp opedido02 bitmap "pdv_produtos.bmp" left size 045,19 font obotaof of pedido pixel action( listbox_produto() ) @ 278,353 buttonbmp opedido03 bitmap "pdv_novo.bmp" left size 045,19 font obotaof of pedido pixel action( novo_pedido(objetpedido) ) @ 278,403 buttonbmp opedido04 bitmap "pdv_excluir.bmp" left size 045,19 font obotaof of pedido pixel action( iif(ver_senha("000552") = .t.,exclui_pedido(objetpedido),"") ) @ 278,454 buttonbmp opedido06 bitmap "pdv_troco.bmp" left size 045,19 font obotaof of pedido pixel action( gera_boleto_nf_pedido("Ped") ) @ 302,201 buttonbmp opedido05 bitmap "pdv_liberar.bmp" left size 045,19 font obotaof of pedido pixel action( iif(ver_senha("000551") = .t.,libera_pedido_entrada_venda(objetpedido,"PEDIDO"),"") ) @ 302,252 buttonbmp opedido07 bitmap "pdv_imprimir.bmp" left size 045,19 font obotaof of pedido pixel action( rel_pedido(objetpedido,"S") ) @ 302,302 buttonbmp opedido08 bitmap "pdv_cancelar.bmp" left size 045,19 font obotaof of pedido pixel action( iif(ver_senha("000549") = .t.,cancela_pedido(objetpedido,mPnumerodopedido,"Pedido"),"") ) @ 302,353 buttonbmp opedido09 bitmap "pdv_receber.bmp" left size 045,19 font obotaof of pedido pixel action( lanca_pedido_cts_receber(objetpedido,1) ) @ 302,403 buttonbmp opedido10 bitmap "pdv_manual.bmp" left size 045,19 font obotaof of pedido pixel action( notafiscal("pedido","manual",objetpedido) ) @ 302,454 buttonbmp opedido11 bitmap "pdv_sair.bmp" left size 045,19 font obotaof of pedido pixel action( pedido:end() ) else @ 001,090 get oPnumerodopedido var mPnumerodopedido picture "@e 999999999" valid ( pega_dados_pedido(objetpedido) ) font mtahomagrande size 63,15 of pedido color corfrtsayds,corfdogetnotafiscal pixel right noborder @ 2,226 say oPnomedasituacao var mPnomedasituacao font mtahomagrandeletra size 65,15 of pedido color corfrtsayds,corfdosay pixel if objetpedido = "S" @ 2,393 say oPnumeronotafiscal var mPnumeronotafiscal font mtahomagrandeletra size 65,15 of pedido color corfrtsayds,corfdosay pixel @ 2,464 say oPnumerocupomfiscal var mPnumerocupomfiscal font mtahomagrandeletra size 65,15 of pedido color corfrtsayds,corfdosay pixel endif @ 017.5,198 say "Tipo de preço" of pedido font mtahomabold size 65,8.5 color corfrtsay,corfdosay pixel //@ 17,244 RADIO oPtipopreco VAR mPtipopreco OF pedido color corfrtsay,corfdosay PIXEL SIZE 40,8 @ 17,244 RADIO oPtipopreco VAR mPtipopreco OF pedido color corfrtsay,corfdosay PIXEL oradioPreco1 := TRadio():New( 17,244, tadmnomepreco1, ; .T., ; // sempre o primeiro elemento recebe .t. .T., ; // .t. = selecionado (Checked) 1, pedido, oPtipopreco, , , , , .F., , ; 50, 8, , .F., .T. ) oPtipopreco:AddRadio( oradioPreco1 ) oradioPreco2 := TRadio():New( 17,295, tadmnomepreco2, ; .F. , ; .F. , ; 2, pedido, oPtipopreco, , , , , .F., , ; 50, 8, , .F., .T. ) oPtipopreco:AddRadio( oradioPreco2 ) @ 035,005 get oPidcliente var mPidcliente valid ( procura_cliente_fornecedor(objetpedido) ) font mtahoma size 44,10 of pedido color corfrtget,corfdogetnotafiscal pixel right when .f. noborder if objetpedido = "S" @ 035,052 btnbmp opedidobut01 size btn_width, btn_height name "search" noborder of pedido action ( rproc_fornecedor(2,"C",mPnumerodopedido,"S")) opedidobut01:lTransparent := .t. elseif objetpedido = "E" @ 035,052 btnbmp opedidobut01 size btn_width, btn_height name "search" noborder of pedido action ( rproc_fornecedor(2,"F") ) opedidobut01:lTransparent := .t. endif @ 034,065 say oPnomedocliente var mPnomedocliente picture "@!" font mtahomapequena size 225,15 of pedido color corfrtsayds,corfdosay pixel @ 035,378 say oPcnpjcpf var mPcnpjcpf; picture "@!" font mtahomapequena size 070,15 of pedido color corfrtsayds,corfdosay; pixel @ 035,465 get oPdatapedido var mPdatapedido font mtahoma size 30,10 of pedido color corfrtget,corfdogetnotafiscal pixel noborder //@ 035,453 dtpicker oPdatapedido var mPdatapedido font mtahoma size 50,10 of pedido color corfrtget,corfdoget pixel if objetpedido = "S" @ 055,005 btnbmp opedidobut02 size btn_width, btn_height name "search" noborder of pedido action ( rproc_tipodemovimento(4,"S",mPnumerodopedido) ) opedidobut02:lTransparent := .t. @ 055,018 get oPdescricaotipodemovimento var mPdescricaotipodemovimento picture "@!" font mtahoma size 105,10 of pedido color corfrtget,corfdogetnotafiscal pixel noborder elseif objetpedido = "E" @ 055,005 btnbmp opedidobut02 size btn_width, btn_height name "search" noborder of pedido action ( rproc_tipodemovimento(4,"E",mPnumerodopedido) ) opedidobut02:lTransparent := .t. //@ 055,018 get oPdescricaotipodemovimento var mPdescricaotipodemovimento picture "@!" font mtahoma size 425,10 of pedido color corfrtget,corfdogetnotafiscal pixel @ 055,018 get oPdescricaotipodemovimento var mPdescricaotipodemovimento picture "@!" font mtahoma size 425,10 of pedido color corfrtget,corfdoget pixel noborder endif if objetpedido = "S" @ 055,131 combobox oPvendedor var mPvendedor items mPavendedor valid( compoe_vendedor_atendeu() ) font mtahoma size 155,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 055,292 combobox oPvendedoratendeu var mPvendedoratendeu items mPavendedoratendeu font mtahoma size 155,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 056,465 say oPdataemissao var mPdataemissao font mtahomapequena size 30,15 of pedido color corfrtsayds,corfdosay pixel @ 076,005 get oPlocalentrega var mPlocalentrega picture "@!" valid( local_entrega_atualiza() ) font mtahoma size 280,10 of pedido color corfrtget,corfdogetnotafiscal pixel noborder @ 076,292 combobox oPtabeladeprecos var mPtabeladeprecos items mPatabeladeprecos font mtahoma size 211,100 of pedido color corfrtget,corfdogetnotafiscal pixel endif if objettela = "T" @ 111,005 get oPcodigoproduto var mPcodigoproduto picture "@!" valid ( rproc_produto_entradasaida(objetpedido,"") ) font mtahomagrande size 120,19 of pedido color corfrtget,corfdogetnotafiscal pixel noborder @ 114,130 say oPnomedoproduto var mPnomedoproduto picture "@!" font mtahomagrande size 400,19 of pedido color corfrtsayds,corfdosay pixel else @ 104,005 btnbmp opedidobut03 size btn_width, btn_height name "search" noborder of pedido action ( rproc_produto("Pedido") ) opedidobut03:lTransparent := .t. @ 104,018 get oPcodigoproduto var mPcodigoproduto picture "@!" valid ( rproc_produto_entradasaida(objetpedido,"") ) font mtahoma size 75,10 of pedido color corfrtget,corfdogetnotafiscal pixel noborder @ 104,098 say oPtamanhocor var mPtamanhocor picture "@!" font mtahoma size 105,10 of pedido color corfrtsayds,corfdosay pixel @ 104,209 get oPestoquedisponivel var mPestoquedisponivel picture zmascqtdinteiro font mtahomameiogrande size 46,11 of pedido color corfrtsayds,RGB(007,102,148) pixel right noborder when .f. @ 101,263 say oPnomedoproduto var mPnomedoproduto picture "@!" font mtahomagrande size 400,19 of pedido color corfrtsayds,corfdosay pixel //@ 103,401 combobox oPdetalhe var mPdetalhe items mPadetalhe font mtahomapequenaMinb size 105,100 of pedido color corfrtget,corfdogetnotafiscal pixel when iif(!empty(nnttdetalhe),.t.,.f.) @ 128,038 get oPqtdpedida var mPqtdpedida valid( pega_qtdvalor_analisa(1,objetpedido) ) picture zmascqtdinteiro font mtahoma size 55,10 of pedido color corfrtget,corfdogetnotafiscal pixel right noborder if objetpedido = "S" @ 128,121 get oPvalorvendaunitario var mPvalorvendaunitario valid( pega_qtdvalor_analisa(2,objetpedido) ) picture zmascvalor font mtahoma size 75,10 of pedido color corfrtget,corfdogetnotafiscal pixel right noborder @ 128,239 say oPtotaldoproduto var mPtotaldoproduto picture zmascvalor font mtahoma size 55,10 of pedido color corfrtsayds,corfdosay pixel right elseif objetpedido = "E" @ 128,121 get oPvalorvendaunitario var mPvalorvendaunitario picture zmascvalor font mtahoma size 75,10 of pedido color corfrtget,corfdogetnotafiscal pixel right noborder when .f. @ 128,219 get oPtotaldoproduto var mPtotaldoproduto valid( pega_qtdvalor_analisa(2,objetpedido) ) picture zmascvalor font mtahoma size 75,10 of pedido color corfrtsayds,corfdosay pixel right noborder endif @ 121,300 buttonbmp opedidobut05 bitmap "pedido_lancar.bmp" left size 045,17 font obotaof of pedido pixel action( lanca_itens_saida_entrada(objetpedido) ) endif @ 145,005 listbox obrzPEDpedido fields asamplzPEDpedido[obrzPEDpedido:nat,1],asamplzPEDpedido[obrzPEDpedido:nat,2],; asamplzPEDpedido[obrzPEDpedido:nat,3],asamplzPEDpedido[obrzPEDpedido:nat,4],asamplzPEDpedido[obrzPEDpedido:nat,5],; asamplzPEDpedido[obrzPEDpedido:nat,6]; headers "Código","Produto","Und","Quantidade","Unitário","Total"; FIELDSIZES 130,350,50,155,160,135 on dblclick escolha_opcao_exc_alt(objetpedido); size 500,85 font mcourierGra color rgb(000,000,000),rgb(245,235,223); pixel of pedido obrzPEDpedido:nClrPane := {|| iif((obrzPEDpedido:nat/2) = int(obrzPEDpedido:nat/2),corfdogetnotafiscal,corlstbxnormal) } obrzPEDpedido:aJustify := { .F.,.F.,.F.,.T.,.T.,.T. } obrzPEDpedido:nLineStyle := 3 obrzPEDpedido:lCellStyle = .f. obrzPEDpedido:lAutoSkip = .t. obrzPEDpedido:SetArray(asamplzPEDpedido) obrzPEDpedido:bGoTop = { || obrzPEDpedido:nat := 1 } obrzPEDpedido:bGoBottom = { || obrzPEDpedido:nat := Eval( obrzPEDpedido:bLogicLen ) } obrzPEDpedido:bSkip = { | nWant, nOld | nOld := obrzPEDpedido:nat, obrzPEDpedido:nat += nWant,; obrzPEDpedido:nat := Max( 1, Min( obrzPEDpedido:nat, Eval( obrzPEDpedido:bLogicLen ) ) ),; obrzPEDpedido:nat - nOld } obrzPEDpedido:bLogicLen = { || Len( asamplzPEDpedido ) } obrzPEDpedido:cAlias = "Array" obrzPEDpedido:nColAct := 1 obrzPEDpedido:lMChange := .F. obrzPEDpedido:SetFocus() obrzPEDpedido:Refresh() obrzPEDpedido:bgotfocus = { || oPcodigoproduto:setfocus() } //@ 120,370 buttonbmp opedidobut06 bitmap "" left prompt "Importa produtos" textright size 060,20 font obotaof of pedido pixel @ 254,010 say oPtotaldeitens var mPtotaldeitens picture zmascqtdinteiro font mtahomagrande of pedido size 085,15 color corfrtsayds,corfdosay pixel right @ 254,122 say oPsubotaldositens var mPsubotaldositens picture "@e 999,999,999,999.99" font mtahomagrande of pedido size 108,15 color corfrtsayds,corfdosay pixel right @ 251,233 radio oPdescontoacrescimo var mPdescontoacrescimo of pedido color corfrtsay,corfdosay pixel size 35,10 oRadio1 := TRadio():New( 251,233, '', ; .T., ; .T., ; 1, pedido, oPdescontoacrescimo, , , , , .F., , ; 35, 10, , .F., .T. ) oPdescontoacrescimo:AddRadio( oRadio1 ) oRadio2 := TRadio():New( 251,275, '', ; .F. , ; .F. , ; 2, pedido, oPdescontoacrescimo, , , , , .F., , ; 25, 10, , .F., .T. ) oPdescontoacrescimo:AddRadio( oRadio2 ) @ 255,317 get oPvaloroupercentualdesconto var mPvaloroupercentualdesconto picture zmascvalor valid( calcula_desconto_pedido() ) font mtahoma size 55,10 of pedido color corfrtget,corfdogetnotafiscal pixel right noborder @ 254,398 say oPtotaldopedido var mPtotaldopedido picture "@e 999,999,999,999.99" font mtahomagrande of pedido size 108,15 color corfrtsayds,corfdosay pixel right @ 277,005 combobox oPdescricaoplanodecontas var mPdescricaoplanodecontas items mPadescricaoplanodecontas valid( grava_planocontas() ) font mtahoma size 090,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 279,120 RADIO oPtipovenda VAR mPtipovenda OF pedido color corfrtsayds,corfdosay PIXEL SIZE 40,8 on change( altera_tipo_venda("PEDIDO") ) oradio_1 := TRadio():New( 279,099, "", ; .T., ; // sempre o primeiro elemento recebe .t. .T., ; // .t. = selecionado (Checked) 1, pedido, oPtipovenda, , , , , .F., , ; 20, 8, , .F., .T. ) oPtipovenda:AddRadio( oradio_1 ) oradio_2 := TRadio():New( 279,130, "", ; .F. , ; .F. , ; 2, pedido, oPtipovenda, , , , , .F., , ; 20, 8, , .F., .T. ) oPtipovenda:AddRadio( oradio_2 ) oradio_3 := TRadio():New( 279,164, "", ; .F. , ; .F. , ; 3, pedido, oPtipovenda, , , , , .F., , ; 20, 8, , .F., .T. ) oPtipovenda:AddRadio( oradio_3 ) oradio_4 := TRadio():New( 279,190, "", ; .F. , ; .F. , ; 4, pedido, oPtipovenda, , , , , .F., , ; 20, 8, , .F., .T. ) oPtipovenda:AddRadio( oradio_4 ) @ 277,246 combobox oPdescricaoformapagamento var mPdescricaoformapagamento items mPadescricaoformapagamento valid( grava_meio_a_vista() ) font mtahoma size 120,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 277,385 combobox oPdescricaotipodecaixa var mPdescricaotipodecaixa items mPadescricaotipodecaixa valid( grava_caixa_a_vista() ) font mtahoma size 120,100 of pedido color corfrtget,corfdogetnotafiscal pixel @ 293,007 BTNBMP onota01 center size 045,010 font obotaof noborder of pedido pixel action ( iif(ver_senha("000553") = .t.,notafiscal("pedido","eletronica",objetpedido,"S","N"),"") ) onota01:SetFile("pedido_nfe.bmp") onota01:lTransparent = .t. //@ 293,007 buttonbmp onota01 bitmap "pedido_nfe.bmp" left size 045,10 font obotaof of pedido pixel action ( iif(ver_senha("000553") = .t.,notafiscal("pedido","eletronica",objetpedido,"S","N"),"") ) @ 293,057 BTNBMP onota01a center size 045,010 font obotaof noborder of pedido pixel action ( iif(ver_senha("000553") = .t.,notafiscal("pedido","eletronica",objetpedido,"S","C"),"") ) onota01a:SetFile("pedido_nfce.bmp") onota01a:lTransparent = .t. //@ 293,057 buttonbmp onot01a bitmap "pedido_nfce.bmp" left size 045,10 font obotaof of pedido pixel action ( iif(ver_senha("000553") = .t.,notafiscal("pedido","eletronica",objetpedido,"S","C"),"") ) //if zfatnotapapeleoueletronica = 1 // onota01:disable() // onot01a:disable() //elseif zfatnotapapeleoueletronica = 2 // onota01:enable() // onot01a:disable() //elseif zfatnotapapeleoueletronica = 3 // onota01:disable() // onot01a:enable() //elseif zfatnotapapeleoueletronica = 4 // onota01:enable() // onot01a:enable() //endif @ 293,107 BTNBMP onota02 center size 095,010 font obotaof noborder of pedido pixel action ( cupom_fiscal("pedido") ) onota02:SetFile("pedido_cupom.bmp") onota02:lTransparent = .t. //@ 293,107 buttonbmp onota02 bitmap "pedido_cupom.bmp" left size 095,10 font obotaof of pedido pixel action ( cupom_fiscal("pedido") ) @ 293,207 BTNBMP onota03 center size 095,010 font obotaof noborder of pedido pixel action ( nfpedido_obs() ) onota03:SetFile("pedido_observacao.bmp") onota03:lTransparent = .t. //@ 293,207 buttonbmp onota03 bitmap "pedido_observacao.bmp" left size 095,10 font obotaof of pedido pixel action ( nfpedido_obs() ) @ 293,307 BTNBMP onota04 center size 095,010 font obotaof noborder of pedido pixel action ( importa_produto_pedido_orcamento(objetpedido) ) onota04:SetFile("pedido_importar.bmp") onota04:lTransparent = .t. //@ 293,307 buttonbmp onota04 bitmap "pedido_importar.bmp" left size 095,10 font obotaof of pedido pixel action ( importa_produto_pedido_orcamento(objetpedido) ) @ 293,407 BTNBMP onota05 center size 095,010 font obotaof noborder of pedido pixel action ( junta_conta_corrente() ) onota05:SetFile("pedido_conta.bmp") onota05:lTransparent = .t. //@ 293,407 buttonbmp onota05 bitmap "pedido_conta.bmp" left size 095,10 font obotaof of pedido pixel action ( junta_conta_corrente() ) @ 310,005 BTNBMP opedido01 center size 037,010 font obotaof noborder of pedido pixel action( iif(objetpedido = "E",rproc_pedido_entrada(),rproc_pedido_saida(objetpedido)) ) opedido01:SetFile("pedido_procurar.bmp") opedido01:lTransparent = .t. //@ 310,005 buttonbmp opedido01 bitmap "pedido_procurar.bmp" left size 037,10 font obotaof of pedido pixel action( iif(objetpedido = "E",rproc_pedido_entrada(),rproc_pedido_saida(objetpedido)) ) if objetpedido = "S" @ 310,047 BTNBMP opedido00 center size 037,010 font obotaof noborder of pedido pixel action( listbox_clientes() ) opedido00:SetFile("pedido_clientes.bmp") opedido00:lTransparent = .t. //@ 310,047 buttonbmp opedido00 bitmap "pedido_clientes.bmp" left size 037,10 font obotaof of pedido pixel action( listbox_clientes() ) elseif objetpedido = "E" @ 310,047 BTNBMP opedido00 center size 037,010 font obotaof noborder of pedido pixel action ( listbox_fornecedores() ) opedido00:SetFile("pedido_fornecedor.bmp") opedido00:lTransparent = .t. //@ 310,047 buttonbmp opedido00 bitmap "" left prompt "pedido_fornecedor.bmp" textright size 037,10 font obotaof of pedido pixel action ( listbox_fornecedores() ) endif @ 310,089 BTNBMP opedido02 center size 037,010 font obotaof noborder of pedido pixel action( listbox_produto() ) opedido02:SetFile("pedido_produtos.bmp") opedido02:lTransparent = .t. //@ 310,089 buttonbmp opedido02 bitmap "pedido_produtos.bmp" left size 037,10 font obotaof of pedido pixel action( listbox_produto() ) @ 310,131 BTNBMP opedido03 center size 037,010 font obotaof noborder of pedido pixel action( novo_pedido(objetpedido) ) opedido03:SetFile("pedido_novo.bmp") opedido03:lTransparent = .t. //@ 310,131 buttonbmp opedido03 bitmap "pedido_novo.bmp" left size 037,10 font obotaof of pedido pixel action( novo_pedido(objetpedido) ) @ 310,173 BTNBMP opedido04 center size 037,010 font obotaof noborder of pedido pixel action( iif(ver_senha("000552") = .t.,exclui_pedido(objetpedido),"") ) opedido04:SetFile("pedido_excluir.bmp") opedido04:lTransparent = .t. //@ 310,173 buttonbmp opedido04 bitmap "pedido_excluir.bmp" left size 037,10 font obotaof of pedido pixel action( iif(ver_senha("000552") = .t.,exclui_pedido(objetpedido),"") ) @ 310,215 BTNBMP opedido06 center size 037,010 font obotaof noborder of pedido pixel action( gera_boleto_nf_pedido("Ped") ) opedido06:SetFile("pedido_troco.bmp") opedido06:lTransparent = .t. //@ 310,215 buttonbmp opedido06 bitmap "pedido_troco.bmp" left size 037,10 font obotaof of pedido pixel action( gera_boleto_nf_pedido("Ped") ) @ 310,257 BTNBMP opedido05 center size 037,010 font obotaof noborder of pedido pixel action( iif(ver_senha("000551") = .t.,libera_pedido_entrada_venda(objetpedido,"PEDIDO"),"") ) opedido05:SetFile("pedido_liberar.bmp") opedido05:lTransparent = .t. //@ 310,257 buttonbmp opedido05 bitmap "pedido_liberar.bmp" left size 037,10 font obotaof of pedido pixel action( iif(ver_senha("000551") = .t.,libera_pedido_entrada_venda(objetpedido,"PEDIDO"),"") ) @ 310,299 BTNBMP opedido07 center size 037,010 font obotaof noborder of pedido pixel action( rel_pedido(objetpedido,"S") ) opedido07:SetFile("pedido_imprimir.bmp") opedido07:lTransparent = .t. //@ 310,299 buttonbmp opedido07 bitmap "pedido_imprimir.bmp" left size 037,10 font obotaof of pedido pixel action( rel_pedido(objetpedido,"S") ) @ 310,341 BTNBMP opedido08 center size 037,010 font obotaof noborder of pedido pixel action( iif(ver_senha("000549") = .t.,cancela_pedido(objetpedido,mPnumerodopedido,"Pedido"),"") ) opedido08:SetFile("pedido_cancelar.bmp") opedido08:lTransparent = .t. //@ 310,341 buttonbmp opedido08 bitmap "pedido_cancelar.bmp" left size 037,10 font obotaof of pedido pixel action( iif(ver_senha("000549") = .t.,cancela_pedido(objetpedido,mPnumerodopedido,"Pedido"),"") ) @ 310,381 BTNBMP opedido09 center size 037,010 font obotaof noborder of pedido pixel action( lanca_pedido_cts_receber(objetpedido,1) ) opedido09:SetFile("pedido_receber.bmp") opedido09:lTransparent = .t. //@ 310,381 buttonbmp opedido09 bitmap "pedido_receber.bmp" left size 037,10 font obotaof of pedido pixel action( lanca_pedido_cts_receber(objetpedido,1) ) @ 310,422 BTNBMP opedido10 center size 037,010 font obotaof noborder of pedido pixel action( notafiscal("pedido","manual",objetpedido) ) opedido10:SetFile("pedido_manual.bmp") opedido10:lTransparent = .t. //@ 310,422 buttonbmp opedido10 bitmap "pedido_manual.bmp" left size 037,10 font obotaof of pedido pixel action( notafiscal("pedido","manual",objetpedido) ) @ 310,463 BTNBMP opedido11 center size 037,010 font obotaof noborder of pedido pixel action( pedido:end() ) opedido11:SetFile("pedido_sair.bmp") opedido11:lTransparent = .t. //@ 310,463 buttonbmp opedido11 bitmap "pedido_sair.bmp" left size 037,10 font obotaof of pedido pixel action( pedido:end() ) endif pedido:bRClicked = { | nRow, nCol, nFlags | ProdObjet( nRow, nCol ) } if objettela = "T" oPcodigoproduto:bKeyDown := {|nKey| IIf( nKey == VK_F2,rproc_produto("Touch_1"),0),; IIf( nKey == VK_F3,consulta_produto_aleatorio(1),0),; IIf( nKey == VK_F4,consulta_produto_aleatorio(2),0),; IIf( nKey == VK_F5,Calend(),0),; IIf( nKey == VK_F6,lanca_avulso(objetpedido),0),; IIf( nKey == VK_F7,tablet_listbox_clientes(),0),; IIf( nKey == VK_F8,lanca_produto_detalhado(),0) } else oPcodigoproduto:bKeyDown := {|nKey| IIf( nKey == VK_F2,rproc_produto("Ped"),0),; IIf( nKey == VK_F3,consulta_produto_aleatorio(1),0),; IIf( nKey == VK_F4,consulta_produto_aleatorio(2),0),; IIf( nKey == VK_F5,Calend(),0),; IIf( nKey == VK_F6,lanca_avulso(objetpedido),0),; IIf( nKey == VK_F7,tablet_listbox_clientes(),0),; IIf( nKey == VK_F8,lanca_produto_detalhado(),0) } endif pedido:bKeyDown := {|nKey| IIf( nKey == VK_F3,consulta_produto_aleatorio(1),0),; IIf( nKey == VK_F4,consulta_produto_aleatorio(2),0),; IIf( nKey == VK_F5,Calend(),0),; IIf( nKey == VK_F6,lanca_avulso(objetpedido),0),; IIf( nKey == VK_F7,tablet_listbox_clientes(),0),; IIf( nKey == VK_F8,lanca_produto_detalhado(),0) } // no init colocar RoundRect( pedido:hWnd, 6 ), para cantos arredondados. activate dialog pedido valid sairpedido() center on init ( livra_get(10),status_radio_preco(),iif(zfatverpedidosdigitacao = .t.,mostra_digitacao_pedido(objetpedido,"E"),),novo_pedido(objetpedido) ) if zfatverpedidosdigitacao = .t. mostra_digitacao_pedido(objetpedido,"S") endif zwindowstelapedido = .f. zwindowstelabarras = .f. return nil Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2021 Report Share Posted April 8, 2021 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=38603&p=230373&hilit=radio&sid=b6de991ad0190197c4016c736ae91a8d#p230373 Ou, faça um DEMO e ponha no: https://mega.nz/ Para a gente testar. Mande completo. Abs. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2021 Report Share Posted April 8, 2021 Qual a versão do Five usas? http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19491&p=102729&hilit=fwh+10+06+radio Abs. Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 8, 2021 Author Report Share Posted April 8, 2021 Fivewin 6.12 e xharbour 1.2.3 Intl (simplex) Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 8, 2021 Author Report Share Posted April 8, 2021 Obrigado Kapiaba, A partir do link que me informou, eu alterei Na classe "CONTROL" No método HandleEvent, acrescentei: #define WM_UPDATEUISTATE 296 // 0x0128 case nMsg == WM_UPDATEUISTATE // buttons, radios and checkboxes were erased when pressing ALT if ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" ) ::oWnd:Refresh( .F. ) endif return ::Super:HandleEvent( nMsg, nWParam, nLParam ) que foi corrigido nas versões posteriores, como a minha versão do fivewin ainda é muita antiga, consegui resolver assim. Obrigado a todos. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 8, 2021 Report Share Posted April 8, 2021 Muito bem. Parabéns. Quote Link to comment Share on other sites More sharing options...
Marca Posted April 9, 2021 Report Share Posted April 9, 2021 Wellington. Bom dia Quem fez este bitmap pra vc. Muito bonito. Poderia dizer ? Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 9, 2021 Author Report Share Posted April 9, 2021 Boa tarde Marca, Sou eu mesmo quem faço, uso o "Adobe Dreamweaver CS6". Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 9, 2021 Report Share Posted April 9, 2021 3 horas atrás, Wellington Vieira disse: Boa tarde Marca, Sou eu mesmo quem faço, uso o "Adobe Dreamweaver CS6". É difícil de usar? podeis dar uma geral para nós meros mortais, porfa? Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 10, 2021 Author Report Share Posted April 10, 2021 Bom dia, Adobe Fireworks CS6 é um editor de imagens de bitmap e desenho vetorial desenvolvido pela Macromedia, posteriormente adquirido pela Adobe. Suas funcionalidades focam a publicação gráfica na Internet, por isso inclui suporte a GIF animado, PNG e imagens fatiadas, além de possuir ótima compressão de imagens. Ele é pago, mas pode se usar/baixar "Fireworks portable", que é a versão portátil que não necessita instalação para rodar. Assim, tu podes colocar em um pen drive e ligar em qualquer outro computador. ... São programas completos que não necessitam de instalação, basta baixar, descompactar, clicar no executável e pronto. Se precisar envio o "portable" em PASTA COMPACTADA. No https://www.youtube.com/ há inúmero vídeos sobre o assunto, ensinando como utilizar o Fireworks. Eu, crio 02 arquivos do mesmo gráfico, um salvo no formato .png e outro no formato .bmp que utilizo como "BRUSH" na dialogs para tela e o outro no formato .png para ser alterado quando for preciso. Alguns exemplos de tela Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.