kapiaba

Tudo que é novo, é melhor:
https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&sid=633bd6c9289881bf6095b9f1458d5079&start=30
 
Regards, saludos.

Explique melhor o intuito disso, pls.
Regards, saludos.

KKKKKKKKKKKKKK, Thanks friend! 

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.

HBCOMPAT.CH?
Xeiro! kkkkkkkkkkkkkkk

show de bola, mas é estranho pois o sqlrdd precisa do BISON pra gerar o parse de comandos sql.
vc conseguiu conectar no banco de dados e executar os comandos, por exemplo: :exec ou :execute ?
 

Faça uma busca aqui:
 
http://www.pctoledo.com.br/forum/viewtopic.php?f=57&t=27034&p=160878&hilit=POSTGRESQL#p160878
 
Regards, saludos.

Aqui Ricardo, os Links para usar o WORKSHOP.exe the best.
 
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43426&sid=e424e6f31fb5d164ebb9f43f3eb8cd0f&start=30#p261753
 
Abs.
Saludos.

Fechado!! 6 brejas(para iniciar... kkkkk) no centro de Sampa, bora? Não vale copiar o meu exemplo. kkkkkkkkkkkkkk
Regards, saludos.

Já consegui uma vaga, obrigado a todos que enviaram mensagens 

Ariston? Tais vivo ainda? Faz a pergunta e some kralho! kkkkkkkkkk abs.
 

https://vivaclipper.wordpress.com/tag/writefile/
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=12514&hilit=https+patrick&start=30
Regards, saludos.
 

Manual do Harbour em Português
https://sagierp.com.br/devel/aulas/Harbour2ed.pdf
 
Regards, saludos.

Como criar uma assinatura em HTML para email
https://www.oficinadanet.com.br/post/14907-como-criar-uma-assinatura-em-html-para-email
 
https://www.tecmundo.com.br/internet/125736-crie-assinatura-html-padronizada-contas-mail.htm
Regards, saludos.

Bom dia ,
Essa biblioteca tem várias funcionalidades interessantes. Uma vez usei ela pra assinar um arquivo usando um certificado. O código ficou assim:
 
crypt := CreateObject( "Chilkat_9_5_0.Crypt2" ) success := crypt:UnlockComponent( "Anything for 30-day trial" ) crypt:SetSigningCert(cert) crypt:HashAlgorithm := "sha256" // Indicate we want the opaque signature in base64 format: crypt:EncodingMode := "base64" // Sign the string using the "utf-8" byte representation: crypt:Charset := "utf-8" // Create the opaque signature: json_envio := crypt:OpaqueSignStringENC(req_json)  

Perfecto!!
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42911&p=258066&sid=603501e1f28b0456b0f25cc430b59eef#p258066
 
Agora eu posso substituir o DSAY.PRG tranquilamente diretamente usando FIVEWIN the best.
Abs.
Regards, saludos

ou:

File(".\Pvenda\Remessa\Protocolos\"+Chave+".xml")
 
Regards, saludos.

Completo:

// C:\FWH..\SAMPLES\SYSIDLE.PRG - By Jose Alvarez. // MOD. EN: 08/11/2022 By kapiabafwh@gmail.com - Sao Paulo - Brasil. #include "FiveWin.ch" /* // function to exit the app when default 'x' number of seconds pass with no activity // from the keyboard or mouse. // attention! IT IS NOT THE TIME without activity of our application, it is the inactive time of the PC // función para salir de la aplicación cuando pasan 'x' cantidad de segundos predeterminados sin actividad // del teclado o raton. // ¡atención! NO ES EL TIEMPO sin actividad de nuestra aplicacion, es el tiempo inactivo de la PC // função para sair do aplicativo quando o número padrão 'x' de segundos passa sem atividade // do teclado ou mouse. // atenção! NÃO É O TEMPO sem atividade do nosso aplicativo, é o tempo inativo do PC */ STATIC oDlg, oFont, oTimerExit STATIC nInterval MEMVAR nSecondsToOut FUNCTION Fnct_Prueba()    LOCAL oGet1, oBtnX2, cTitle, aGrad, oSay    LOCAL cVar1 :=  [SYSIDLE.PRG: BY JOSE ALVAREZ.     ]    HB_GCALL( .F. )    nSecondsToOut := 55 // (segundos)    nInterval := 1 * 60000  //(1 x 60000 = 1 minuto)    aGrad  := { { 0.30, CLR_WHITE, CLR_HCYAN },{ 0.30, CLR_WHITE, CLR_HCYAN } }    cTitle := "MOVE MOUSE: PRUEBA DE SYSIDLE.PRG: BY JOSE ALVAREZ"    DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 14    DEFINE DIALOG oDlg SIZE 600, 200  PIXEL TRUEPIXEL RESIZABLE  ;       TITLE cTitle GRADIENT aGrad FONT oFont    @ 050, 10 GET oGet1 VAR cVar1 bitmap "..\bitmaps\chkyes.bmp" ;       OF oDlg PIXEL SIZE 300, 24 FONT oFont                     ;       ACTION( NIL )        oGet1:lBtnTransparent := .T.       // transparent button get oGet1    oGet1:lAdjustBtn      := .T.       // Button Get Adjust Witdh oGet3    oGet1:lDisColors      := .F.       // Deactive disable color    oGet1:nClrTextDis     := CLR_WHITE // Color text disable status    oGet1:nClrPaneDis     := CLR_BLUE  // Color Pane disable status    @ 095, 10 SAY oSay PROMPT "This a Test: No Move Mouse Wait 1 Minute." ;       OF oDlg SIZE 150, 14 COLOR CLR_BLACK, CLR_WHITE PIXEL FONT oFont   ;       TRANSPARENT ADJUST    @ 120, 250 BTNBMP oBtnx2 SIZE 60, 60 PIXEL OF oDlg FLAT NOBORDER ;       PROMPT "Exit" FILENAME "..\bitmaps\16x16\Exit.bmp" BOTTOM     ;       COLOR CLR_BLACK, nRgb( 238, 236, 219 ) ACTION( oDlg:End() )    oBtnX2:lCancel := .T.    ACTIVATE DIALOG oDlg CENTERED ;       ON INIT ( oGet1:SetFocus(), Fnct_StartCounterTime() ) RETURN NIL FUNCTION Fnct_StartCounterTime ()    DEFINE TIMER oTimerExit OF oDlg INTERVAL nInterval ;       ACTION ( IIF( sysIdleSecs() > nSecondsToOut, fExit(), ) )    oTimerExit:Activate() RETURN NIL FUNCTION fExit()    oTimerExit:Deactivate()    oTimerExit:End()    MsgAlert( 'Tu Sesión Finalizó Por Inactividad.', 'Fin de Sesión' )    oDlg:End()    RELEASE FONT oFont    FreeResources()    Release All    SysRefresh()    HB_GCALL( .T. )    CLEAR MEMORY    PostQuitMessage( 0 )    QUIT RETURN NIL // typedef struct tagLASTINPUTINFO { //    UINT cbSize; //    DWORD dwTime; // } LASTINPUTINFO, *PLASTINPUTINFO; #pragma BEGINDUMP #define _WIN32_WINNT 0x0500 #define WINVER 0x0500 #include "windows.h" #include "hbapi.h" WINUSERAPI BOOL WINAPI GetLastInputInfo(PLASTINPUTINFO); typedef  BOOL (WINAPI *GETLASTINPUTINFO_)(PLASTINPUTINFO); HB_FUNC( SYSIDLESECS )    {    HINSTANCE handle = LoadLibrary("USER32.dll");    if ( handle)    {       GETLASTINPUTINFO_ pFunc;       pFunc = GetProcAddress( handle,"GetLastInputInfo" );       if (pFunc)       {          LASTINPUTINFO lpi;          lpi.cbSize = sizeof(LASTINPUTINFO);          if (!pFunc(&lpi))          {             hb_retni(0);          }          else          {             hb_retnd( ( DOUBLE ) ( GetTickCount() - lpi.dwTime ) * 0.001 );          }       }    else       {          hb_retni(0);       }    }    if (handle)       {          FreeLibrary( handle);       } } #pragma ENDDUMP // FIN / END
Regards, saludos.

Mira que simples:
 
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=42429&sid=4e043eeb6afc332310628e35560d3d7a
 
Se for a senha MASTER... Pimba!
 
Regards, saludos.

Mira que simples:
 
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=42429&sid=4e043eeb6afc332310628e35560d3d7a
 
Se for a senha MASTER... Pimba!
 
Regards, saludos.

Precisei agora, e realmente essa bagaça não funciona. Criei um tópico no inter aqui:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=42578&sid=103749f3da5feb59419686288a1a5dc7
Regards, saludos.

Ol,a pessoal, obrigado a todos 

Fiz algo que o Toya indicou e já resolve o que preciso

No evento   (OnBeforePrint)

 
procedure consulta_apostas_divulgacaoMILHAR_BRINDEOnBeforePrint(Sender: TfrxComponent); begin if (<consulta_apostas_divulgacao."PONTUACAO"> = 10) then consulta_apostas_divulgacaoMILHAR_BRINDE.Color := $FF0000; if (<consulta_apostas_divulgacao."PONTUACAO"> = 9) then consulta_apostas_divulgacaoMILHAR_BRINDE.Color := $0000FF; if (<consulta_apostas_divulgacao."PONTUACAO"> = 8) then consulta_apostas_divulgacaoMILHAR_BRINDE.Color := $000000; end; begin end. Resolveu o que precisava

https://imgur.com/DaFv3dX
 

 

Download completo com .PRG, .RES, CX.BAT y CX.LNK.
https://mega.nz/file/YMNBRSgC#jfY81jt-0SlsekeZARbohhIdOAN2tlVqrKE7r5PYuhA
 
Regards, saludos.

KKKKKKKKKKKKKK, Foi  mesmo. kkkkkkkkk Abraços meu baixinho querido.