MAMP2 Posted November 22, 2018 Report Share Posted November 22, 2018 Bom dia pessoal estou precisando usar aquela tela que tem uma "orelhinha" em cima que voce escolhe a tela que voce consegue colocar em varias telas, qual a classe que faz isto?, tem exemplos quero colocar uma tela de cadastra e cada "orelhinha", seria um tripo de dados: -cadastrais, financeiro, comercial, etc. obrigado Quote Link to comment Share on other sites More sharing options...
CIACPD Posted November 22, 2018 Report Share Posted November 22, 2018 Olá MAMP2 Verifique na pasta samples o arquivo testfld7.prg. Daniel Segura Quote Link to comment Share on other sites More sharing options...
MAMP2 Posted November 22, 2018 Author Report Share Posted November 22, 2018 ESTE EXEMPLO É USANDO O WORKSHOPP, EU NAO USO TEM OUTRO EXEMPLO? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 22, 2018 Report Share Posted November 22, 2018 Use FOLDEREX, incrivelmente melhor que FOLDER comum. veja \samples: Pasta de C:\FWH1701\samples 31/01/2017 13:19 6.502 testfx1.prg 31/01/2017 13:19 2.667 testfx3.prg 31/01/2017 13:19 2.218 testfx4.prg 08/10/2018 14:18 1.521 TESTFX5.PRG 31/01/2017 13:19 670 testfx8.prg Quote Link to comment Share on other sites More sharing options...
CIACPD Posted November 22, 2018 Report Share Posted November 22, 2018 Sem criar as variáveis não irá funcionar. MemoWrit( cdirlocal + 'foto_cli\FU'+ncodfun+'.JPG', cadfun->FOTO ) lsalva:=.F. DEFINE BRUSH oBrush_pr000016 FILENAME cdirlocal + "TELAS\T600_560.bmp" DEFINE DIALOG pr000016 ; FROM 0,0 TO 560, 600 ; TITLE if(tip_fun=1,'Inclui novo funcionário','Edita funcionário') ; PIXEL TRANSPARENT BRUSH oBrush_pr000016 // STYLE WS_POPUP pr000016:lhelpIcon := .F. @ 5, 4 SAY "Código:" SIZE 28,10 PIXEL OF pr000016 FONT oftgeral @ 5, 41 GET ocodfun VAR ncodfun SIZE 27,10 PIXEL OF pr000016 readonly FONT oftget @ 5, 73 SAY "Nome:" SIZE 20,10 PIXEL OF pr000016 FONT oftgeral @ 5, 93 GET onomfun VAR cnomfun SIZE 201,10 PIXEL OF pr000016 FONT oftget @ 20, 1 FOLDER oFld PROMPT "&1 - Principal", "&2 - Trabalho", "&3 - Cônjuge" , "&4 - Foto"; OF pr000016 SIZE 300, 212 PIXEL // Início Dados principais do funcionário @ 05, 3 SAY "CPF:" SIZE 29, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 5, 40 GET oiefun VAR ciefun SIZE 90, 10 PIXEL OF oFld:aDialogs[ 1 ] PICTURE [@R XXX.XXX.XXX-XX] FONT oftget @ 05, 135 SAY "RG:" SIZE 12, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 5, 148 GET ocgcfun VAR ccgcfun SIZE 90, 10 PIXEL OF oFld:aDialogs[ 1 ] PICTURE [@R XX.XXX.XXX-XX] FONT oftget @ 05, 244 SAY "Orgão:" SIZE 23, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 5, 270 GET oorgemi VAR corgemi SIZE 24, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 17, 3 SAY "Pai:" SIZE 16, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 17, 40 GET opaifun VAR cpaifun SIZE 152, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 29, 4 SAY "Mãe:" SIZE 16, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 29, 40 GET omaefun VAR cmaefun SIZE 152, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 17, 230 SAY "Sexo:" SIZE 19, 8 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 17, 249 GET osexfun VAR csexfun SIZE 45, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 29, 197 SAY "Estado Civil:" SIZE 52, 8 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 29, 249 GET oescfun VAR cescfun SIZE 45, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 41, 3 SAY "Data Nascimento:" SIZE 65, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 41, 70 GET onasfun VAR dnasfun SIZE 40, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 41, 118 SAY "Natural de:" SIZE 45, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 41, 164 GET onatfun VAR cnatfun SIZE 130, 10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 53, 3 SAY "Endereço:" SIZE 37,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 53, 40 GET oruafun VAR cruafun SIZE 187,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 53, 233 SAY "Cep:" SIZE 16,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 53, 249 GET ocepfun VAR ccepfun SIZE 45,10 PIXEL OF oFld:aDialogs[ 1 ] picture [@R 99.999-999] FONT oftget @ 65, 3 SAY "Bairro:" SIZE 27,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 65, 40 GET obaifun VAR cbaifun SIZE 95,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 65, 139 SAY "Cidade:" SIZE 27,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 65, 167 GET ocidfun VAR ccidfun SIZE 95,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 65, 266 SAY "UF:" SIZE 13,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 65, 279 GET oestfun VAR cestfun SIZE 15,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 77, 3 SAY "Cod.Spc:" SIZE 32,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 77, 40 GET ocdspcfun VAR ccdspcfun SIZE 55,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 77, 103 SAY "Residente a:" SIZE 49,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 77, 153 GET oanores VAR canores SIZE 14,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 77, 172 SAY "Ano(s) e:" SIZE 36,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 77, 228 SAY "meses" SIZE 22,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 77, 213 GET omesres VAR cmesres SIZE 14,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 89, 3 SAY "Fone:" SIZE 20,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 89, 40 GET ofonfun VAR cfonfun SIZE 55,10 PIXEL OF oFld:aDialogs[ 1 ] PICTURE [@R (XXX)X XXXX-XXXX] FONT oftget @ 89, 103 SAY "Ramal:" SIZE 23,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 89, 128 GET oramfun VAR cramfun SIZE 25,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 89, 166 SAY "Contato:" SIZE 32,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 89, 200 GET oconfun VAR cconfun SIZE 94,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 101, 3 SAY "Fone:" SIZE 21,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 101, 40 GET ofonfunex VAR cfonfunex SIZE 55,10 PIXEL OF oFld:aDialogs[ 1 ] PICTURE [@R (XXX)X XXXX-XXXX] FONT oftget @ 101, 103 SAY "Ramal:" SIZE 24,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 101, 128 GET oramfunex VAR cramfunex SIZE 25,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 101, 166 SAY "Contato:" SIZE 32,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 101, 200 GET oconfunex VAR cconfunex SIZE 94,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 119, 3 SAY "Referencias comerciais:" SIZE 97,9 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 130, 3 GET orc1fun VAR crc1fun SIZE 290,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 142, 3 GET orc2fun VAR crc2fun SIZE 290,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 154, 3 GET orc3fun VAR crc3fun SIZE 290,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 172, 3 SAY "Data do cadastro:" SIZE 68,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 172, 72 GET odtcad VAR ddtcad SIZE 45,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 172, 140 SAY "Data da última atualização:" SIZE 108,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 172, 249 GET odatatu VAR ddatatu SIZE 45,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget @ 184, 3 SAY "Observação:" SIZE 68,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftgeral @ 184, 72 GET oobsspc VAR cobsspc SIZE 222,10 PIXEL OF oFld:aDialogs[ 1 ] FONT oftget // Final Dados principais do funcionário // Inicio Dados do trabalho do funcionário / pode estar vinculado a outro cnpj @ 5, 3 SAY "Digite abaixo os dados referente ao trabalho deste funcionário" SIZE 250, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 17, 3 SAY "Empresa:" SIZE 31, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 17, 42 GET oxnomemp VAR cxnomemp SIZE 252, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 29, 3 SAY "Atividade:" SIZE 39, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 29, 42 GET oatifun VAR catifun SIZE 252, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 41, 3 SAY "Endereço:" SIZE 37, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 41, 42 GET oruaemp VAR cruaemp SIZE 185, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 41, 233 SAY "Cep:" SIZE 16, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 41, 249 GET ocepemp VAR ccepemp SIZE 45, 10 PIXEL OF oFld:aDialogs[ 2 ] picture [@R 99.999-999] FONT oftget @ 53, 3 SAY "Bairro:" SIZE 29, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 53, 42 GET obaiemp VAR cbaiemp SIZE 93, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 53, 139 SAY "Cidade:" SIZE 29, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 53, 167 GET ocidemp VAR ccidemp SIZE 95, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 53, 266 SAY "UF:" SIZE 11, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 53, 279 GET oestemp VAR cestemp SIZE 15, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 65, 3 SAY "Fone:" SIZE 25, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 65, 42 GET ofonemp VAR cfonemp SIZE 55, 10 PIXEL OF oFld:aDialogs[ 2 ] PICTURE [@R (XXX)X XXXX-XXXX] FONT oftget @ 65, 103 SAY "Ramal:" SIZE 25, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 65, 128 GET oramemp VAR cramemp SIZE 25, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 65, 166 SAY "Contato:" SIZE 34, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 65, 200 GET oconemp VAR cconemp SIZE 94, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 77, 3 SAY "Renda:" SIZE 27, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 77, 42 GET orenmen VAR nrenmen SIZE 55, 10 PIXEL OF oFld:aDialogs[ 2 ] right FONT oftget @ 77, 103 SAY "Trabalha a:" SIZE 49, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 77, 153 GET oanotra VAR canotra SIZE 14, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 77, 172 SAY "Ano(s) e:" SIZE 36, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 77, 213 GET omestra VAR cmestra SIZE 14, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 77, 228 SAY "meses" SIZE 22, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 89, 3 SAY "Admissão:" SIZE 38, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 89, 42 GET oadmissao VAR dadmissao SIZE 55, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget @ 89, 103 SAY "Comissão (%):" SIZE 49, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 89, 153 GET ocomissao VAR ncomissao SIZE 55, 10 PIXEL OF oFld:aDialogs[ 2 ] right FONT oftget @ 101, 3 SAY "Demissão:" SIZE 38, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftgeral @ 101, 42 GET odemissao VAR ddemissao SIZE 55, 10 PIXEL OF oFld:aDialogs[ 2 ] FONT oftget // Final Dados do trabalho do funcionário // Inicio Dados do cônjuge @ 5, 3 SAY "Digite abaixo os dados do cônjuge" SIZE 150, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 17, 3 SAY "Nome:" SIZE 21, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 17, 40 GET onomcon VAR cnomcon SIZE 254,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 29, 3 SAY "Pai:" SIZE 19, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 29, 40 GET opaicon VAR cpaicon SIZE 254,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 41, 3 SAY "Mãe:" SIZE 18, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 41, 40 GET omaecon VAR cmaecon SIZE 254,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 53, 3 SAY "CPF:" SIZE 20,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 53, 40 GET oiecon VAR ciecon SIZE 112,10 PIXEL OF oFld:aDialogs[ 3 ] PICTURE [@R XXX.XXX.XXX-XX] FONT oftget @ 53, 162 SAY "RG:" SIZE 14,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 53, 182 GET orgcon VAR crgcon SIZE 112,10 PIXEL OF oFld:aDialogs[ 3 ] PICTURE [@R XX.XXX.XXX-XX] FONT oftget @ 65, 3 SAY "Data Nascimento:" SIZE 65, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 65, 69 GET onascon VAR dnascon SIZE 49,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 65, 130 SAY "Código SPC:" SIZE 45, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 65, 182 GET ocdspccon VAR ccdspccon SIZE 112,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 77, 3 SAY "Endereço:" SIZE 37,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 77, 40 GET oruacon VAR cruacon SIZE 187,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 77, 233 SAY "Cep:" SIZE 16,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 77, 249 GET ocepcon VAR ccepcon SIZE 45,10 PIXEL OF oFld:aDialogs[ 3 ] picture [@R 99.999-999] FONT oftget @ 89, 3 SAY "Bairro:" SIZE 29,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 89, 40 GET obaicon VAR cbaicon SIZE 95,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 89, 139 SAY "Cidade:" SIZE 29,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 89, 167 GET ocidcon VAR ccidcon SIZE 95,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 89, 266 SAY "UF:" SIZE 11,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 89, 279 GET oestcon VAR cestcon SIZE 15,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 101, 3 SAY "Fone:" SIZE 25,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 101, 40 GET ofoncon VAR cfoncon SIZE 55,10 PIXEL OF oFld:aDialogs[ 3 ] PICTURE [@R (XXX)X XXXX-XXXX] FONT oftget @ 101, 103 SAY "Ramal:" SIZE 25,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 101, 128 GET oramcon VAR cramcon SIZE 25,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 101, 166 SAY "Contato:" SIZE 33,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 101, 200 GET oconfcon VAR cconfcon SIZE 94,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 113, 3 SAY "Infome abaixo o local de trabalho do cônjuge" SIZE 184, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 125, 4 SAY "Empresa:" SIZE 31, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 125, 40 GET ococemp VAR ccocemp SIZE 254,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 137, 3 SAY "Fone:" SIZE 25,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 137, 40 GET ofocemp VAR cfocemp SIZE 55,10 PIXEL OF oFld:aDialogs[ 3 ] PICTURE [@R (XXX)X XXXX-XXXX] FONT oftget @ 137, 103 SAY "Ramal:" SIZE 25,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 137, 128 GET orecemp VAR crecemp SIZE 25,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 137, 166 SAY "Contato:" SIZE 34,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 137, 200 GET ocecemp VAR ccecemp SIZE 94,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 149, 3 SAY "Renda:" SIZE 27, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 149, 40 GET orecmen VAR nrecmen SIZE 55,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget @ 161, 3 SAY "Obs.:" SIZE 26, 10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftgeral @ 161, 40 GET oobscon VAR cobscon SIZE 254,10 PIXEL OF oFld:aDialogs[ 3 ] FONT oftget // Final Dados de cônjuge // Inicio Foto @ 150, 67 BTNBMP oBtnL4_pr000016 PIXEL RESOURCE "BLIG4" 2007 LEFT CANCEL UPDATE SIZE 42,35 OF oFld:aDialogs[ 4 ] action oWC:Connect() @ 150, 129 BTNBMP oBtnL5_pr000016 PIXEL RESOURCE "BFOT5" 2007 LEFT CANCEL UPDATE SIZE 42,35 OF oFld:aDialogs[ 4 ] action ( IF(g_tip_fun=1,(f_inc_kdfuncionario(),g_tip_fun:=2),f_edi_kdfuncionario()), ; oWC:Clipboard(oImg), oWC:Save(oImg,cdirlocal + 'foto_cli\FU'+ncodfun+'.JPG',80), ; oImg:LoadBmp( cdirlocal + 'foto_cli\FU'+ncodfun+'.JPG' ), oImg:refresh() ) // oWC:Clipboard(oImg) @ 150, 191 BTNBMP oBtnL6_pr000016 PIXEL RESOURCE "BDES6" 2007 LEFT CANCEL UPDATE SIZE 42,35 OF oFld:aDialogs[ 4 ] action oWC:Disconnect() @ 45, 190 IMAGE oImg OF oFld:aDialogs[ 4 ] SIZE 80,60 PIXEL ADJUST oImg:nProgress:=0 oImg:LoadBmp( cdirlocal + 'foto_cli\FU'+ncodfun+'.JPG' ) oImg:refresh() // Final Foto @ 242, 98 BTNBMP oBtn2_pr000016 PIXEL RESOURCE "BCON2" 2007 LEFT CANCEL UPDATE SIZE 42,35 OF pr000016 action ( lsalva:=.T., pr000016:end() ) @ 242, 160 BTNBMP oBtn8_pr000016 OF pr000016 SIZE 42, 35 PIXEL RESOURCE "BVLT8" 2007 LEFT CANCEL UPDATE action ( lsalva:=.F., pr000016:end() ) @ 1000, 1000 button "&1" size 10,10 OF pr000016 PIXEL action ( oFld:SetOption( 1 ) , xsetfocus(oFld) ) // para facilitar trocar de aba (janela) @ 1000, 1000 button "&2" size 10,10 OF pr000016 PIXEL action ( oFld:SetOption( 2 ) , xsetfocus(oFld) ) @ 1000, 1000 button "&3" size 10,10 OF pr000016 PIXEL action ( oFld:SetOption( 3 ) , xsetfocus(oFld) ) @ 1000, 1000 button "&4" size 10,10 OF pr000016 PIXEL action ( oFld:SetOption( 4 ) , xsetfocus(oFld) ) ACTIVATE DIALOG pr000016 CENTERED ON INIT ( oWC:CreateWnd(oFld:aDialogs[ 4 ],30,10,320,240) ) oBrush_pr000016:End() If lsalva .and. g_tip_fun=1 f_inc_kdfuncionario() ElseIf lsalva f_edi_kdfuncionario() EndIf Daniel Segura Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 22, 2018 Report Share Posted November 22, 2018 Usando FOLDEREX: Abs. Quote Link to comment Share on other sites More sharing options...
MAMP2 Posted November 22, 2018 Author Report Share Posted November 22, 2018 Oi CIACPD onde eu defino a aDialogs, pois quando uso a aDialog[2] ele dis que estourou o array. Quote Link to comment Share on other sites More sharing options...
MAMP2 Posted November 22, 2018 Author Report Share Posted November 22, 2018 oi Kapiaba nao tenho estes testFx1,2,3,4, pode me mandar pra eu ver se consigo usar? Quote Link to comment Share on other sites More sharing options...
Theotokos Posted November 22, 2018 Report Share Posted November 22, 2018 aDialog é referente a esta linha @ 20, 1 FOLDER oFld PROMPT "&1 - Principal", "&2 - Trabalho", "&3 - Cônjuge" , "&4 - Foto"; OF pr000016 SIZE 300, 212 PIXEL Cada posição do vetor é referente a uma aba... aDialog[1] = Principal aDialog[2] = Trabalho aDialog[3] = Conjuge aDialof[4] = Foto Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 22, 2018 Report Share Posted November 22, 2018 oi Kapiaba nao tenho estes testFx1,2,3,4, pode me mandar pra eu ver se consigo usar? MAMP2 Qual a versão do seu FIVEWIN, se não tem no \samples, não adianta eu enviar, pois não conseguirás compilar. Deveis entrar em contato com o Gilmer, e atualizar(altamente recomendável), o seu FIVEWIN junto ao Gilmer. Email: gilmer@fivewin.com.br Se tiver skype, eu passo o skype da "cabeleira" do Gilmer. kkkkkkkkkkkkkkk Abs. 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.