-
Posts
24,540 -
Joined
-
Last visited
-
Days Won
282
Everything posted by kapiaba
-
Jorge, novidades sobre isto? Este problema foi passado com quem usa ACBR? Regards, saludos.
-
Boa tarde, alguém me indicou para um PET-SHOP em Osasco/SP de nome: CASA DOS CÃES. Porém eu não tenho tudo o que o dono: Eduardo necessita, além da área financeira Contas a Pagar/Receber/estoque do sistema e cadastros, etc,. ele necessita que o sistema controle o HOTELZINHO(Hospedagem do animal) e também, a área de CRECHE(não faço nem ideia). Então, se alguém tiver pronto ou disposto a desenvolver, por favor entrar em contato com ele, ou se souber de alguém que tenha um programa COMPLETO que atenda HOSPEDAGEM/ESTÉTICA/ADESTRAMENTO/BANHO/TOSA/CRECHE, FINANCEIRO, NOTA FISCAL ELETRÔNICA, sei lá mais o que... kkkkkkk Gentileza entrar em contato com o senhor Eduardo(super simpático). CASA DOS CÃES: Endereço: R. Paulo Lício Rizzo, 328 - Centro, Osasco - SP, 06018-010. Celular: +55 (11) 9. 8976-7667 - Eduardo, Horário comercial. Obg. abs. Regards, saludos.
-
Existe uma forma de enviar "arquivos" para whatsapp
kapiaba replied to marcioe's topic in Programação
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43787&sid=0f464580d5ab9ec3c61103fa30d34ea7 "amarrando"... Regards, saludos. -
https://www.teamviewer.com/pt-br/ Xato pra kralho para configurar. É pago também, más tem a parte grátis para usar de vez em quando. Bem melhor que este que falastes. Outro pohha xato do kcte. kkkkkkkkkkkkkkkkkkkkk Abs. Regards, saludos.
-
Preste atenção ao forum: Regards, saludos.
-
Se for no PROGRAMA DE FOLHA DE PAGAMENTOS, salvo engano, isso é permitido. Pero, como faz 150 anos que não trabalho mais nesta área, não tenho certeza, agora NO PONTO ELETRÔNICO, NEM A PAU JUVENAL. abs. Abs. Regards, saludos.
-
Então, se o contador está pedindo este relatório ESPECÍFICO, ele dentro das normas da LGPD(não é LGBT-kkkkkk), é que tem que passar para TI como deve se feito, certo? E na dúvida, SEMPRE consulte aquele "Kara" o OAB. Abs. Regards, saludos.
-
HARBOUR para BCC7.60: https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43685&sid=86c1f2d72d1a88d3f56467bfc5857668&start=30#p264092 Abs. Regards, saludos.
-
Fácil: https://www.fivetechsoft.com/forums/viewtopic.php?f=6&t=39337 Regards, saludos.
-
A discussão ficou pesada: https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43749&sid=2fd483281fa4f2c23032f260761291c3 kkkkkkkkkkk abs. Regards, saludos.
-
Não sou o Wanderson, más eu acho que usando xBrowse(), as possiblidades são bem maiores do que usar METRO. Abs. Regards, saludos.
-
Daniel, eu faria o seu exemplo assim: // C:\FWH..\SAMPLES\GRADHOR3.PRG #include "FiveWin.ch" #define CLR_MSPURPLE RGB( 0, 120, 215 ) #define CLR_MSRED RGB( 232, 17, 35 ) #define CLR_MSGRAY RGB( 229, 229, 229 ) #translate TRUE => .T. #translate FALSE => .F. FUNCTION FitcadExe() // (tip_fun) LOCAL itcadexe, oFont LOCAL lsalva := .F. LOCAL ncodexe, cdesexe, ocodexe, odesexe LOCAL oBtn2_itcadexe, oBtn8_itcadexe LOCAL oCursorBtn := TCursor():New(, 'HAND' ) ncodexe := Space( 04 ) cdesexe := Space( 50 ) DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -16 // BOLD DEFINE DIALOG itcadexe FROM 0, 0 TO 216, 513 TITLE 'Inclui novo exemplo' ; PIXEL TRANSPARENT FONT oFont STYLE nOR( DS_MODALFRAME, WS_POPUP, ; WS_CAPTION, WS_SYSMENU, WS_MINIMIZEBOX ) itcadexe:lhelpIcon := .F. // tgradtela( itcadexe, ( 46 ) ) // altura faixa do BTNBMP /* // DENTRO DO LOOPING NAO E LEGAL. PODE EXPLODIR O DIALOGO ncodexe := Space( 04 ) cdesexe := Space( 50 ) */ @ 20, 3 SAY "Codigo do exemplo:" SIZE 86, 10 PIXEL OF itcadexe UPDATE ; COLOR CLR_WHITE, CLR_BLACK @ 33, 3 SAY "Descricao do exemplo:" SIZE 86, 10 PIXEL OF itcadexe UPDATE ; COLOR CLR_WHITE, CLR_BLACK @ 19, 89 GET ocodexe VAR ncodexe SIZE 24, 12 PIXEL OF itcadexe ; READONLY UPDATE COLOR CLR_MSPURPLE, CLR_BLACK ocodexe:lBtnTransparent := .T. // transparent button get oGet3 ocodexe:lAdjustBtn := .T. // Button Get Adjust Witdh oGet3 ocodexe:lDisColors := .F. // Deactive disable color ocodexe:nClrTextDis := CLR_WHITE // Color text disable status ocodexe:nClrPaneDis := CLR_BLUE // Color Pane disable status @ 32, 89 GET odesexe VAR cdesexe SIZE 162, 12 PIXEL OF itcadexe ; PICTURE "@!" UPDATE COLOR CLR_MSPURPLE, CLR_BLACK @ 70, 76 BTNBMP oBtn2_itcadexe PROMPT "Confirma" FLAT 2007 CENTER UPDATE ; OF itcadexe PIXEL SIZE 42, 35 action ( lsalva := .T., itcadexe:end() ) oBtn2_itcadexe:lCancel := .T. oBtn2_itcadexe:nClrBorder := iif( oBtn2_itcadexe:lMOver, RGB( 219, 230, 244 ), RGB( 219, 230, 244 ) ) oBtn2_itcadexe:oCursor := oCursorBtn @ 70, 138 BTNBMP oBtn8_itcadexe PROMPT "Voltar" FLAT 2007 CENTER UPDATE ; OF itcadexe PIXEL SIZE 42, 35 action ( lsalva := .F., itcadexe:end() ) oBtn8_itcadexe:lCancel := .T. oBtn8_itcadexe:nClrBorder := iif( oBtn8_itcadexe:lMOver, RGB( 219, 230, 244 ), RGB( 219, 230, 244 ) ) oBtn8_itcadexe:oCursor := oCursorBtn tGradtela( itcadexe, ( 46 ) ) // altura faixa do BTNBMP ACTIVATE DIALOG itcadexe CENTERED // ON INIT( odesexe:setfocus() ) //?? IF lsalva // .and. tip_fun=1 // inclui_cadexe( ncodexe , cdesexe ) ELSEIF lsalva // altera_cadexe( ncodexe , cdesexe ) ENDIF // RELEASE ncodexe, cdesexe, ocodexe, odesexe, itcadexe //?? oFont:End() RETURN NIL // .T. // ----------------------------------------------------------------------------// FUNCTION tGradtela( par_obj, par_percent ) LOCAL naltura_BTN := par_percent * 2 LOCAL npercent_par_obj := Round( ( naltura_BTN / par_obj:nHeight ), 2 ) par_obj:aGradcolors := { { ( 1 - npercent_par_obj ), nRGB( 110, 193, 248 ), nRGB( 0, 64, 254 ) }, ; { npercent_par_obj, nRGB( 255, 255, 255 ), nRGB( 255, 255, 255 ) } } RETURN .T. // FIN / END - kapiabafwh@gmail.com Regards, saludos.
-
Inicie um tópico e termine aqui. Ele pergunta aqui, e depois vai para o inter e: https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43749&p=264029&sid=7fe8dc243c37086d6cbb921f4a2b4010#p264029 // C:\FWH..\SAMPLES\GRADHOR2.PRG #include "fivewin.ch" FUNCTION Main() LOCAL oDlg, aGrad, oBrush, oBrush1, oBrush2 aGrad := { { 0.4, CLR_GREEN, CLR_HGREEN }, ; { 0.6, CLR_HGREEN, CLR_GREEN } } DEFINE BRUSH oBrush GRADIENT aGrad STYLE HORIZONTAL // or VERTICAL DEFINE BRUSH oBrush1 COLOR nRGB( 250, 213, 174 ) STYLE HORIZONTAL DEFINE BRUSH oBrush2 COLOR nRGB( 192, 192, 192 ) STYLE HORIZONTAL DEFINE DIALOG oDlg TITLE "- Gradient Horizontal -" SIZE 350, 350 ; PIXEL TRUEPIXEL RESIZABLE BRUSH oBrush // OR GRADIENT aGrad oDlg:lhelpIcon := .F. ACTIVATE DIALOG oDlg CENTERED RELEASE BRUSH oBrush RETURN NIL // FIN / END Deve ser GEMINIANO. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk Regards, saludos.
-
Wanderson: https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43722&sid=5c9bd1e5ee8b75a75785af5bb811fd2e Regards, saludos.
-
Veja também: c:\fwh..\source\function\msglogo.prg Regards, saludos.
-
Veja se ajuda: // C:\FWH..\SAMPLES\SKIN5.PRG #include "FiveWin.ch" MEMVAR mover, nRounder function Main() local oDlg, oBrush, oFont local nVar := 100 /* public mover := .t. public nRounder := 20 // Change this value betwen 0 and 250 to see a results */ mover := .T. nRounder := 20 SkinButtons() DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 DEFINE BRUSH oBrush FILENAME "\fwh1905\bitmaps\olga1.jpg" DEFINE DIALOG oDlg SIZE 300,400 PIXEL TITLE "Image Dialog" ; STYLE WS_POPUP BRUSH oBrush FONT oFont TRANSPARENT @ 000,000 BITMAP resource "" NOBORDER OF oDlg PIXEL SIZE 80,21 ; ON LEFT CLICK Click(oDlg) @ 010,010 SAY "This is some Text" SIZE 80,12 PIXEL OF oDlg ; COLOR CLR_WHITE,CLR_BLACK TRANSPARENT @ 030,010 GET nVar PICTURE "999,999.99" SIZE 80,12 PIXEL OF oDlg RIGHT @ 180,100 BUTTON "Close" SIZE 40,14 PIXEL OF oDlg ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED ON INIT RoundCorners( oDlg ) RELEASE BRUSH oBrush RELEASE FONT oFont return nil static function Click(yvent) LOCAL nGCPos If !mover return nil Endif While GetKeyState(VK_LBUTTON) SysRefresh() nGCPos := GetCursorpos() MoveWindow( yvent:hWnd, nGCPos[1],nGCPos[2], yvent:nWidth,yvent:nHeight,.t. ) Sysrefresh() If !GetKeyState(VK_LBUTTON) Exit Endif Enddo nGCPos := GetCursorpos() return nil static function RoundCorners( oDlg ) local aRect, hRgn aRect := GetClientRect( oDlg:hWnd ) hRgn := CreateRoundRectRgn( aRect, nRounder, nRounder ) SetWindowRgn( oDlg:hWnd, hRgn ) DeleteObject( hRgn ) return nil #pragma BEGINDUMP #include <Windows.h> // #include <ClipApi.h> #include <hbApi.h> HB_FUNC( SETWINDOWRGN ) { hb_retnl( SetWindowRgn( ( HWND ) hb_parnl( 1 ), ( HRGN ) hb_parnl( 2 ), TRUE ) ); } #pragma ENDDUMP \regards, saludos.
-
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43499&p=262082&hilit=gradient&sid=5c9bd1e5ee8b75a75785af5bb811fd2e#p262068 // \SAMPLES\ALVAREZ.PRG - 23/01/2022. #Include "FiveWin.ch" //-> The Best... FUNCTION Espera_Alvarez() LOCAL oDlg, oFld, oFont, aGrad, oBrush1, oBrush2, oBtn LOCAL aBitmaps := { "..\bitmaps\alphabmp\facebook.bmp", ; "..\bitmaps\alphabmp\windows.bmp" } LOCAL nTempo_espera, cNome_funcao, lTimercontinua // -> 1 hora tem 3600 segundos. nTempo_espera := 15 // segundos. cNome_funcao := "LOGOFF()" lTimercontinua := .F. aGrad := { { 0.30, CLR_WHITE, CLR_HBLUE },{ 0.50, CLR_HBLUE, CLR_WHITE } } DEFINE BRUSH oBrush1 COLOR nRGB( 250, 213, 174 ) STYLE HORIZONTAL DEFINE BRUSH oBrush2 COLOR nRGB( 192, 192, 192 ) STYLE HORIZONTAL DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD DEFINE DIALOG oDlg TITLE "- TFolderex - Testing -" SIZE 350, 350 ; PIXEL TRUEPIXEL RESIZABLE GRADIENT aGrad @ 1, 0 FOLDEREX oFld PIXEL ADJUST OF oDlg ; PROMPT "Prenotazioni", "Pagamenti" ; BITMAPS aBitmaps ; TAB HEIGHT 26 OPTION 1 ROUND 5 FONT oFont COLOR CLR_HGREEN TOP oFld:aEnable = { .T., .T., .F. } @ 245, 10 BTNBMP oBtn CENTER SIZE 100, 100 PIXEL OF oDlg NOROUND 2007 oBtn:bClrGrad := {| lInvert | If( lInvert, oBrush2:hBrush, oBrush1:hBrush ) } oBtn:Disable() ACTIVATE DIALOG oDlg CENTERED ; ON INIT( oFld:Resize(), TINATIVO():NEW( nTempo_espera, cNome_funcao, ; lTimerContinua ) ) RETURN NIL // tinativo.prg - By William Adami // exemplo do uso da classe Tinativo // Apos um tempo de inatividade do mouse // e do teclado chama uma funcao qualquer. //#include "fivewin.ch" // STATIC oWnd //************ /* FUNCTION Main() LOCAL nTempo_espera, cNome_funcao, lTimercontinua // Tempo a ser esperado ate chamar a funcao // -> 1 hora tem 3600 segundos. nTempo_espera := 10 // segundos. // nome da funcao a ser chamada quando // chegar no tempo de espera cNome_funcao := "LOGOFF()" // se apos executar a funcao , continua // monitorando a inatividade do mouse e teclado. lTimercontinua := .F. define window oWnd title "Teste de teclado e mouse" activate window oWnd ; ON INIT tinativo():new( nTempo_espera, cNome_funcao, lTimerContinua ) RETURN NIL */ FUNCTION LOGOFF() // msgalert( "AQUI ENTRA SUA FUNCAO DE LOGOFF !", "AVISO" ) IF MsgYesNo( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ; OemToAnsi( "PROTEJA OS BANCOS DE DADOS DO PROGRAMA." )+CRLF+ ; OemToAnsi( "SE NÇO ESTIVER USANDO O ALVAREZ.EXE, " )+CRLF+ ; OemToAnsi( "DESLIGUE-O PARA NÇO CORRER RISCOS. " )+CRLF+ ; OemToAnsi( "POSSO DESLIGAR O PROGRAMA? <S> ou <N>??" ), ; OemToAnsi( "AVISO PARA DESLIGAR O ALVAREZ.EXE... " ) ) HB_GCALL( .T. ) CLEAR MEMORY PostQuitMessage( 0 ) QUIT ENDIF RETURN NIL // tinativo.prg -> By William Adami // #include "fivewin.ch" CLASS TINATIVO DATA nTimeInpAntes DATA nTimeInpDepois DATA cTimeAtu DATA nTempo DATA oTimerTime DATA cFunc DATA lContinuar METHOD NEW( nTime, cFuncao, lContinua ) CONSTRUCTOR METHOD ver_tempo() ENDCLASS METHOD new( ntime, cFuncao, lContinua ) CLASS TINATIVO ::cfunc := cfuncao ::ntempo := ntime ::lContinuar := lContinua ::oTimerTime := TTimer():New( 1000, { || ::VER_TEMPO() } ) ::oTimerTime:Activate() ::cTimeAtu := time() ::nTimeInpAntes := getInputState() // 0 = erro RETURN self METHOD VER_TEMPO CLASS TINATIVO LOCAL AUX ::nTimeInpDepois := getInputState() IF ( ::nTimeInpDepois - ::nTimeInpAntes ) > 0 ::nTimeInpAntes := getInputState() ::cTimeAtu := time() ENDIF IF ( CONVTIME( time() ) - CONVTIME( ::cTimeAtu ) ) > ::ntempo ::oTimerTime:DeActivate() aux := ::cfunc // aqui executa a funcao &aux if ::lContinuar ::oTimerTime:Activate() ::cTimeAtu := time() ENDIF ENDIF RETURN NIL FUNCTION CONVTIME( ZZ ) LOCAL Z Z := ( VAL( LEFT(ZZ,2 ) ) * 360 ) + ( VAL( SUBSTR(ZZ,4,2 ) ) * 60 ) + ; VAL( RIGHT( ZZ,2 ) ) RETURN Z //*---------------------------------------------------------------------- #pragma BEGINDUMP #define _WIN32_WINNT 0x0500 #define WINVER 0x0500 #include "windows.h" #include "hbapi.h" HB_FUNC( GETINPUTSTATE ) { LASTINPUTINFO lpi; lpi.cbSize = sizeof(LASTINPUTINFO); if (!GetLastInputInfo(&lpi)) { hb_retni(0); } hb_retni(lpi.dwTime); } #pragma ENDDUMP // fin / end Regards, saludos.
-
Tarde. Olhem a surra que eu levei da TIPSSL.LIB: Como eu ia saber que a "ORDEM" é essa? https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&p=263846&sid=5a0a724b3a1b261ea880711c879e3354#p263846 echo %hdirl%\libcrypto.lib + >> b32.bc echo %hdirl%\libssl.lib + >> b32.bc echo %hdirl%\tipssl.lib + >> b32.bc echo %hdirl%\tip.lib + >> b32.bc Regard, saludos.
-
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=41174&sid=dd684ee2aa42aae7fbf3c2053f5f46df https://forums.fivetechsupport.com/viewtopic.php?f=3&t=37727&p=225549&hilit=metropanel&sid=a36c5d10303f817182546d74d75a25a2#p225549 Regards, saludos.
-
Tarde: Gentileza Reportar diretamente o Enrico Maria Giordano aqui: https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&sid=246a5d831c74bb3dfd6b44c29fb55526&start=60 Como não uso a SQLRDD, não saberia reportar o erro e em qual momento, ok? Reporte em Inglês ou Espanhol que ele entende, se bem que ele é fluente em Inglês e Italiano. Obg. abs. Regards, saludos.
-
Dear friends, esse novo compilador é simplesmente PHODA!! Muito bom. abs. Regards, saludos.
-
Problema resolvido: https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&sid=a8488fb156d32664054985be72342b9c&start=45 Notei que as janelas filhas, ficam um pouco MENOR que a compilada com a versão do BCC74. Nada que eu não resolva. abs. Regards, saludos.
-
https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&sid=ffb43ef8f6fb6b750880ce6fab76a0c8&start=30#p263687 xHarbour builds updated! Version 10275: http://xharbour.org/index.asp?page=download/windows/binaries_win https://github.com/ronpinkas/xharbour/blob/main/ChangeLog http://xharbour.org/index.asp?page=download/sources http://xharbour.org/index.asp?page=download/windows/required_win Enrico Maria Giordano
-
Pode mostrar os .CFG do BCC76 para eu ver se "batem" com os meus?
-
Comigo me vem este erro: Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023 Embarcadero Technologies, Inc. WINORCAM.c: Warning W8027 C:\bcc76\include\windows\sdk\shobjidl_core.h 16821: Functions containing for are not expanded inline Warning W8027 C:\bcc76\include\windows\sdk\shlobj_core.h 3504: Functions containing while are not expanded inline *** 1 errors in Compile *** abs.