tela multipla

MAMP2 · 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

CIACPD · November 22, 2018

Olá MAMP2

Verifique na pasta samples o arquivo testfld7.prg.

Daniel Segura

MAMP2 · November 22, 2018

ESTE EXEMPLO É USANDO O WORKSHOPP, EU NAO USO TEM OUTRO EXEMPLO?

kapiaba · 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

CIACPD · 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

kapiaba · November 22, 2018

Usando FOLDEREX:

Abs.

MAMP2 · November 22, 2018

Oi CIACPD

onde eu defino a aDialogs, pois quando uso a aDialog[2] ele dis que estourou o array.

MAMP2 · November 22, 2018

oi Kapiaba nao tenho estes testFx1,2,3,4, pode me mandar pra eu ver se consigo usar?

Theotokos · 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

kapiaba · 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.

Sign In

tela multipla

Recommended Posts

MAMP2

Link to comment

Share on other sites

CIACPD

Link to comment

Share on other sites

MAMP2

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

CIACPD

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

MAMP2

Link to comment

Share on other sites

MAMP2

Link to comment

Share on other sites

Theotokos

Link to comment

Share on other sites

kapiaba

MAMP2

Link to comment

Share on other sites

Join the conversation

Browse

Activity