kapiaba

Dear friend, look this:

// http://forums.fivetechsupport.com/viewtopic.php?f=6&t=38029    DayOfWeek := STRTRAN( cdow( Date() ), "á", "a"    DayOfWeek := STRTRAN( OemToAnsi( cdow(fe ) ), "á", "a" ) //** "Days in month..:", DaysInMonth( dDate ) //** "Day of year....:", DoY( dDate ) //** "Begin of month.:", BoM( dDate ) //** "End of month...:", EoM( dDate ) //** "Week of month..:", WoM( dDate ) //** "Week of year...:", WoY( dDate ) //** "Begin of year..:", BoY( dDate ) //** "End of year....:", EoY( dDate ) FUNCTION Fecha( dFecha )    LOCAL cLeyenda, aDias, aMeses    DEFAULT dFecha := Date()    aDias := { "Domingo, ", "Lunes, ", "Martes, ", "Miercoles, ", "Jueves, ", "Viernes, ", "Sabado, " }    aMeses := { "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre" }    cLeyenda := aDias[ DoW( dFecha ) ] + Str( Day( dFecha ), 2 ) + " de " + aMeses[ Month( dFecha ) ] + ;       " de " + Str( Year( dFecha ), 4 ) RETURN cLeyenda FUNCTION FechaLet()    LOCAL cMes := { 'Enero     ', 'Febrero   ', 'Marzo     ', 'Abril     ', ;                    'Mayo      ', 'Junio     ', 'Julio     ', 'Agosto    ', ;                    'Septiembre', 'Octubre   ', 'Noviembre ', 'Diciembre ' }    LOCAL cDia     := { 'Domingo', 'Lunes', 'Martes', 'Miércoles', ;                        'Jueves', 'Viernes', 'Sábado' }    LOCAL FechaLet := cDia[ DoW(Date( ) ) ] + ', '       + ;                      Str( Day( Date( ) ) ) + ' de '     + ;                      AllTrim( cMes[ Month(Date( ) ) ] ) + ;           IF( Year( Date() ) > 2000, ' del ', ' de ' )  + ;               Str( Year( Date( ) ) ) RETURN FechaLet FUNCTION Dias( dDate ) RETURN cDow( dDate ) + ", " + str( day( dDate ) ) + " de " + cMonth( dDate ) + " del " + str( year( dDate ) )
Regards, saludos.

Como disse o Rochinhasssss, em alguns provedores de Emails(novos), esse efeito colateral, pode ocorrer, más nos que eu citei acima, eu corto um dedo do Rochinhasssss, se não funcionar. Funciona de boas... Más vai que.... kkkkkkkkkkkkkkkkkkkkkkkkkkk
Abs.
 
Regards, saludos.

Eu acho a solucao do Ariston, excelente! Many thanks. Regards, saludos.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=39772&p=237203&hilit=color+en+header+xbrowse&sid=eadcb552505be4b58e93fb6bd4047e75#p237203
 
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32593&p=197620&hilit=color+en+header+xbrowse&sid=eadcb552505be4b58e93fb6bd4047e75#p197620
 
Regards, saludos.

Se alguém precisar de Técnico de Computador:
 
(11) 9 5929-4782
 
Falar com Glauber Vinicius.
 
Abs.

Nao tenho certeza, mas acho que o caminho e por aqui:
 
http://www.otc.pl/index.asp?s=81&l=2
 
Regards, saludos

Fala João querido,
Sim, eu também prefiro usar via código mesmo... É que via linha de comando é util para alguns outros cenários.

Olá, já testou com esse que eu modifiquei?
 
Regards, saludos.

kkkkkkkkkkkkk, Minha mariposa esvoaçantyyyyyyyy predileta. kkkkkkkkkkkkkkkkkkkkkk

Veja se ajuda:
Só pra brincar com as cores:

*************************************************************************
#Include "Fivewin.ch"
//-----------------------------------------------------------------------
Function Main()
Private oSay1, oSay2, oSay3, oSay4, oSay5, oSay6
DEFINE FONT oFONT1 NAME "MS Sans Serif" SIZE 0, -24
Define DIALOG oDlg TITLE "Cores - CLIQUE COM O BOTÃO DIREITO DO MOUSE" ;
FROM 0, 0 to 400, 700 PIXEL COLOR 0, 16777215
ACTIVATE DIALOG oDlg ON INIT Inicio() Center
Return NIL
//----------------------------------------------------------------------------
Function Inicio()
@ 20, 22 SAY oSay1 VAR "Cor do Texto:" SIZE 152, 24 PIXEL;
OF oDlg COLOR 0, 16777215 FONT oFont1
@ 20, 209 SAY oSay2 VAR "0" SIZE 142, 28 PIXEL;
OF oDlg COLOR 0, 16777215 FONT oFont1
@ 20, 371 SAY oSay3 VAR RRGB(0) SIZE 200, 28 PIXEL;
OF oDlg COLOR 0, 16777215 FONT oFont1
@ 80, 20 SAY oSay4 VAR "Cor da Janela:" SIZE 175, 33 PIXEL;
OF oDlg COLOR 0, 16777215 FONT oFont1
@ 80, 209 SAY oSay5 VAR "0" SIZE 141, 39 PIXEL;
OF oDlg COLOR 0, 16777215 FONT oFont1
@ 80, 371 SAY oSay6 VAR RRGB(0) SIZE 200, 39 PIXEL;
OF oDlg COLOR 0, 16777215 FONT oFont1
oDlg:bRClicked := {|nRow, nCol| RPopup( nRow, nCol, oDlg, {oSay1, oSAy2, oSay3, oSay4, oSay5, oSay6} ) }
Return NIL
//---------------------------------------------------------------------------
function RPopup( nRow, nCol, oDlg, aSays )
Local oMenu
oMenu := MenuPopUp( oDlg, aSays )
ACTIVATE POPUP oMenu WINDOW oDlg AT nRow, nCol
return nil
//---------------------------------------------------------------------------
Function MenuPopUp( oDlg, aSays )
Local oMenu
Local nClrTxt := oSay1:nClrText
Local nClrDlg := oDlg:nClrPane
Menu oMenu PopUp
MenuItem "Cor do Texto" Action ( nClrTxt := ChooseColor( nClrTxt ), AplicaCores(oDlg, aSays, nClrTxt, nClrDlg) )
MenuItem "Cor da Janela" Action( nClrDlg := ChooseColor( nClrDlg ), AplicaCores(oDlg, aSays, nClrTxt, nClrDlg) )
endmenu
Return oMenu
//-------------------------------------------------------------------------------
Function AplicaCores( oDlg, aSays, nClrTxt, nClrDlg )
Local i, cRgbTxt, cRgbDlg
oDlg:SetColor( nClrTxt, nClrDlg )
oDlg:Refresh()
for i := 1 to 6
aSays:SetColor( nClrTxt, nClrDlg )
aSays:Refresh()
next
cRgbTxt := RRGB( nClrTxt )
cRgbDlg := RRGB( nClrDlg )
aSays[2]:SetText( nClrTxt )
aSays[3]:SetText( cRgbTxt )
aSays[5]:SetText( nClrDlg )
aSays[6]:SetText( cRgbDlg )
Return NIL
//----------------------------------------------------------------------------
Function RRGB( nCor )
Local cRGB := "{ "+StrZero( nRGBRed( nCor ), 3 )+", "+;
StrZero( nRGBGreen( nCor ), 3 )+", "+;
StrZero( nRGBBlue( nCor ), 3 )+" }"
Return cRGB
*************************************************************************
Brincanco com degrade.
**-----------------------------------------------------------------------------------------------------------**
** Pintar o fundo de uma tela( Dlg,Folder,Wnd) **
**-----------------------------------------------------------------------------------------------------------**
** Parametros : oDlg : Onde vai pintar **
** : Cor1 : Cor incial na parte de cima da tela **
** : Cor2 : Cor Final na parte de baixo da tela **
** Exemplo : oDlg[1]:bPainted:={|| PCS_Pinta_Tela(oDlg[1],GetSysColor(15),GetSysColor(16) )} **
**-----------------------------------------------------------------------------------------------------------**
FUNCTION PCS_Pinta_Tela(oDlgTxt,aCor1,aCor2)
LOCAL hWnd:=oDlgTxt:hWnd
LOCAL aRec:=GetClientRect(hWnd)
LOCAL oBrush,nX,nStp:=(aRec[3]-aRec[1])/2
LOCAL nColor1:=IF(Empty(aCor1),GetSysColor(15),aCor1)
LOCAL nColor2:=IF(Empty(aCor2),GetSysColor(15),aCor2)
LOCAL nColorR1:=nRgbRed(nColor1),nColorG1:=nRgbGreen(nColor1),nColorB1:=nRgbBlue(nColor1)
LOCAL nColorR2:=nRgbRed(nColor2),nColorG2:=nRgbGreen(nColor2),nColorB2:=nRgbBlue(nColor2)
LOCAL nSomaR:=ABS(nColorR2-nColorR1),nSomaG:=ABS(nColorG2-nColorG1),nSomaB:=ABS(nColorB2-nColorB1)
nSomaR:=IIF(nSomaR<0,0,(nSomaR/((aRec[3])/2)))
nSomaG:=IIF(nSomaG<0,0,(nSomaG/((aRec[3])/2)))
nSomaB:=IIF(nSomaB<0,0,(nSomaB/((aRec[3])/2)))
oDlgTxt:GetDC()
aRec[3]:=0
FOR nX:=1 TO nStp
aRec[3]+=2
DEFINE BRUSH oBrush COLOR nRgb(nColorR1,nColorG1,nColorB1)
FillRect(oDlgTxt:hDC,aRec,oBrush:hBrush)
RELEASE BRUSH oBrush
aRec[1]+=2
nColorR1:=IIF(nColorR2>=nColorR1,nColorR1+nSomaR,nColorR1-nSomaR)
nColorG1:=IIF(nColorG2>=nColorG1,nColorG1+nSomaG,nColorG1-nSomaG)
nColorB1:=IIF(nColorB2>=nColorB1,nColorB1+nSomaB,nColorB1-nSomaB)
NEXT
oDlgTxt:ReleaseDC()
RETURN(NIL)
**-----------------------------------------------------------------------------------------------------------**
***********************************************************
#include "fivewin.ch"
Static nCor1 := 16777215
Static nCor2 := 16777215
//----------------------------------------------------------------------------------------------------------
Function Main()
Private oBt1
Define dialog oDlg Title "Teste Degrade - CLIQUE COM O BOTÃO DIREITO DO MOUSE" From 0,0 to 400,600 Pixel
Activate Dialog oDlg On Init Inicio() ON PAINT PCS_Pinta_Tela() CENTER
Return NIL
**-----------------------------------------------------------------------------------------------------------**
** Pintar o fundo de uma tela( Dlg,Folder,Wnd) **
**-----------------------------------------------------------------------------------------------------------**
** Parametros : oDlg : Onde vai pintar **
** : Cor1 : Cor incial na parte de cima da tela **
** : Cor2 : Cor Final na parte de baixo da tela **
** Exemplo : oDlg[1]:bPainted:={|| PCS_Pinta_Tela(oDlg[1],GetSysColor(15),GetSysColor(16) )} **
**-----------------------------------------------------------------------------------------------------------**
FUNCTION PCS_Pinta_Tela()
LOCAL hWnd:=oDlg:hWnd
LOCAL aRec:=GetClientRect(hWnd)
LOCAL oBrush,nX,nStp:=(aRec[3]-aRec[1])/2
LOCAL nColorR1:=nRgbRed(nCor1),nColorG1:=nRgbGreen(nCor1),nColorB1:=nRgbBlue(nCor1)
LOCAL nColorR2:=nRgbRed(nCor2),nColorG2:=nRgbGreen(nCor2),nColorB2:=nRgbBlue(nCor2)
LOCAL nSomaR:=ABS(nColorR2-nColorR1),nSomaG:=ABS(nColorG2-nColorG1),nSomaB:=ABS(nColorB2-nColorB1)
nSomaR:=IIF(nSomaR<0,0,(nSomaR/((aRec[3])/2)))
nSomaG:=IIF(nSomaG<0,0,(nSomaG/((aRec[3])/2)))
nSomaB:=IIF(nSomaB<0,0,(nSomaB/((aRec[3])/2)))
oDlg:GetDC()
aRec[3]:=0
FOR nX:=1 TO nStp
aRec[3]+=2
DEFINE BRUSH oBrush COLOR nRgb(nColorR1,nColorG1,nColorB1)
FillRect(oDlg:hDC,aRec,oBrush:hBrush)
RELEASE BRUSH oBrush
aRec[1]+=2
nColorR1:=IIF(nColorR2>=nColorR1,nColorR1+nSomaR,nColorR1-nSomaR)
nColorG1:=IIF(nColorG2>=nColorG1,nColorG1+nSomaG,nColorG1-nSomaG)
nColorB1:=IIF(nColorB2>=nColorB1,nColorB1+nSomaB,nColorB1-nSomaB)
NEXT
oDlg:ReleaseDC()
RETURN(NIL)
**-----------------------------------------------------------------------------------------------------------**
//----------------------------------------------------------------------------
Function Inicio()
@ 340, 250 Button "Código da Cores" Size 100,20 Pixel;
Action MsgInfo( "1ª COR = "+Str(nCor1)+" - "+RRgb(nCor1)+CRLF+;
"2ª COR = "+Str(nCor2)+" - "+RRgb(nCor2) )
oDlg:bRClicked := {|nRow, nCol| RPopup( nRow, nCol) }
Return NIL
//---------------------------------------------------------------------------
function RPopup( nRow, nCol )
Local oMenu
oMenu := MenuPopUp( oDlg )
ACTIVATE POPUP oMenu WINDOW oDlg AT nRow, nCol
return nil
//---------------------------------------------------------------------------
Function MenuPopUp()
Local oMenu
Menu oMenu PopUp
MenuItem "Primeira Cor" Action ( nCor1 := ChooseColor( nCor1 ), oDlg:Refresh() )
MenuItem "Segunda Cor" Action( nCor2 := ChooseColor( nCor2 ), oDlg:Refresh() )
endmenu
Return oMenu
//----------------------------------------------------------------------------
Function RRGB( nCor )
Local cRGB := "{ "+StrZero( nRGBRed( nCor ), 3 )+", "+;
StrZero( nRGBGreen( nCor ), 3 )+", "+;
StrZero( nRGBBlue( nCor ), 3 )+" }"
Return cRGB
***********************************************************
#include "fivewin.ch"
static oWnd
static nZoom := 2
static oColor
function main()
local oTimer
DEFINE WINDOW oWnd TITLE "Prueba de ventana" MENU mimenu()
DEFINE TIMER oTimer OF oWnd ;
INTERVAL 70 ACTION GetColor()
oTimer:Activate()
ACTIVATE WINDOW oWnd
oTimer:DeActivate()
return nil
function mimenu()
local oMenu
MENU oMenu
MENUITEM "Zoom"
MENU
MENUITEM "1" ACTION ( nZoom := 1 )
MENUITEM "2" ACTION ( nZoom := 2 )
MENUITEM "3" ACTION ( nZoom := 3 )
MENUITEM "4" ACTION ( nZoom := 4 )
MENUITEM "5" ACTION ( nZoom := 5 )
ENDMENU
ENDMENU
return oMenu
function GetColor()
local hDeskTop := GetDC(0)
local a := GetCursorPos()
local nColor := GetPixel( hDeskTop, a[2], a[1] )
local hDC := oWnd:GetDC()
local hPen := CreatePen( PS_SOLID,1,CLR_HRED )
local hOldPen
local nTop, nLeft
local nWidth, nHeight
nTop := 10
nLeft := 100
nWidth := 300
nHeight := 200
SetBkColor( hDC, nColor )
TextOut( hDC, 10, 10, " " )
TextOut( hDC, 25, 10, " " )
TextOut( hDC, 40, 10, " " )
TextOut( hDC, 60, 10, " " + corTOrgb( nColor ) + " " )
Moveto( hDC, nLeft-1, nTop-1)
Lineto( hDC, nLeft + nWidth+1, nTop-1 )
Lineto( hDC, nLeft + nWidth+1, nTop+nHeight+1 )
Lineto( hDC, nLeft -1, nTop+nHeight+1 )
Lineto( hDC, nLeft-1, nTop-1)
StretchBlt( hDC, nLeft, nTop, nWidth, nHeight, hDeskTop, a[2]-(nWidth/(nZoom*2)), a[1]-(nHeight/(2*nZoom)), nWidth/nZoom, nHeight/nZoom, 13369376 )
hOldPen := SelectObject( hDC, hPen )
Moveto( hDC, nLeft+nWidth/2+1, nTop-1 )
Lineto( hDC, nLeft+nWidth/2+1, nTop+nHeight+1 )
Moveto( hDC, nLeft+1, nTop+nHeight/2+1 )
Lineto( hDC, nLeft+nWidth+1, nTop+nHeight/2+1 )
SelectObject( hDC, hOldPen )
DeleteObject( hPen )
oWnd:ReleaseDC()
ReleaseDC( 0, hDeskTop )
return nil
*****************
function corTOrgb( Cor1 )
*****************
local Cor2, Cor3
Cor3 := int(Cor1 / 65536)
Cor2 := int( ( Cor1 - ( Cor3 * 65536 ) ) / 256 )
Cor1 := Cor1 - ( Cor3 * 65536 ) - ( Cor2 * 256 )
return strzero(Cor1,3) + "," + strzero(Cor2,3) + "," + strzero(Cor3,3)
#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"
HB_FUNC( STRETCHBLT )
{
hb_retl( StretchBlt( (HDC) hb_parnl( 1 ) ,
hb_parni( 2 ) ,
hb_parni( 3 ) ,
hb_parni( 4 ) ,
hb_parni( 5 ) ,
(HDC) hb_parnl( 6 ) ,
hb_parni( 7 ) ,
hb_parni( 8 ) ,
hb_parni( 9 ) ,
hb_parni( 10 ) ,
(DWORD) hb_parnl( 11 )
) ) ;
}
#pragma ENDDUMP

id=code>id=code>
João Santos - São Paulo.
joao@pleno.com.br
Fone: (11) 3106-2832 / 5150-7341 - TIM
https://www.facebook.com/kapiaba
FWH 2.7 - xHARBOUR WorkShop.Exe

Noite, muda pouca coisa. Não é difícil migrar a Harbour. Usando o HBMK2.exe, fica bem mais simples a compilação. Veja:
 
http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=26149&start=0
 
Muito simples, precisa apenas estar com o HARBOUR completo. Dúvidas, thamus ai. O Ladinilson está aprendendo a migrar, vá trocando ideais com ele. E se precisar do HARBOUR completo, avise: Uso: HBCC74 e BCC74. Abs.

Boa tarde, nunca vi nada sobre isto, veja aqui, se tem alguma coisa a respeito:
 
https://github.com/FastReports/FastReport
 
Feliz ano novo. abs.

// ShowMenu.prg // Montagem e controle de menus. #Include "FiveWin.ch" #define KEYEVENTF_KEYUP 2 MEMVAR oWnd FUNCTION Main()    PRIVATE oWnd    DEFINE WINDOW oWnd TITLE "Teste de ShowMenu()" MDI FROM 0, 0 TO 15, 80    ;       MENU MenuGer()    ACTIVATE WINDOW oWnd CENTERED RETURN NIL // ** * Fim de Main() = Teste. STATIC FUNCTION SuaAcao()    MsgInfo( "Estou em " + oWnd:oMenu:LastItem():cPrompt )    ShowMenu() RETURN NIL // ** * Fim de SuaAcao = Teste. // Recupera mensagens dos itens do menu do resource/stringable. STATIC FUNCTION MenuGer()    LOCAL oMnu    MENU oMnu       MENUITEM "SubMenu 1"       MENU          MENUITEM "Item 1.1" ACTION SuaAcao()          MENUITEM "Item 1.2" ACTION SuaAcao()          SEPARATOR          MENUITEM "Item 1.3" ACTION SuaAcao()          MENUITEM "SubMenu 1.1"          MENU             MENUITEM "Item 1.1.1" ACTION SuaAcao()             MENUITEM "Item 1.1.2" ACTION SuaAcao()             MENUITEM "Item 1.1.3" ACTION SuaAcao()             MENUITEM "Item 1.1.4" ACTION SuaAcao()          ENDMENU          SEPARATOR          MENUITEM "Item 1.4" ACTION SuaAcao()       ENDMENU       SEPARATOR       MENUITEM "Item 1" ACTION SuaAcao()       MENUITEM "SubMenu 2"       MENU          MENUITEM "Item 2.1" ACTION SuaAcao()          SEPARATOR          MENUITEM "Item 2.2" ACTION SuaAcao()          MENUITEM "SubMenu 2.1"          MENU          MENUITEM "Item 2.1.1" ACTION SuaAcao()          MENUITEM "Item 2.1.2" ACTION SuaAcao()          MENUITEM "SubMenu 2.1.1"          MENU          MENUITEM "Item 2.1.1.1" ACTION SuaAcao()          MENUITEM "Item 2.1.1.2" ACTION SuaAcao()             SEPARATOR             MENUITEM "Item 2.1.1.3" ACTION SuaAcao()             MENUITEM "Item 2.1.1.4" ACTION SuaAcao()          ENDMENU          MENUITEM "Item 2.1.3" ACTION SuaAcao()             MENUITEM "Item 2.1.4" ACTION SuaAcao()          ENDMENU          MENUITEM "Item 2.3" ACTION SuaAcao()          SEPARATOR          MENUITEM "SubMenu 2.2"          MENU             MENUITEM "Item 2.2.1" ACTION SuaAcao()             MENUITEM "Item 2.2.2" ACTION SuaAcao()             MENUITEM "Item 2.2.3" ACTION SuaAcao()             MENUITEM "Item 2.2.4" ACTION SuaAcao()          ENDMENU          MENUITEM "Item 2.4" ACTION SuaAcao()       ENDMENU    ENDMENU RETURN oMnu // ** * Fim de MenuGer( oM ) = Teste. // ----------------------------------------------------------------------------- // Reabre o menu que chamou uma rotina. // 1§ Descobre o caminho para se chegar ate oM:LastItem() // 2§ Abre o menu simulando a tecla Alt e, em seguida, a // sequencia de setas para chegar ate oM:LastItem() FUNCTION ShowMenu( oM, nNiv )    LOCAL nItem, oLItM, cMov := "", cMv, nChr    DEFAULT oM := WndMain():oMenu    DEFAULT nNiv := 0    oLItM := oM:LastItem()    FOR nItem := 1 TO Len( oM:aItems )       IF ValType( oM:aItems[ nItem ]:bAction ) = 'O'          cMv := ShowMenu( oM:aItems[ nItem ]:bAction, nNiv + 1 )          IF Right( cMv, 1 ) == "x"             cMov += Chr( if( nNiv = 0, VK_DOWN, VK_RIGHT ) ) + cMv             IF nNiv == 0                cMov := Left( cMov, Len( cMov ) - 1 )                // MsgInfo( StrTran( StrTran( cMov,Chr(VK_DOWN),"V" ), Chr(VK_RIGHT), ">" ) )                keybd_event( VK_MENU, 0, 0, 0 )                keybd_event( VK_MENU, 0, KEYEVENTF_KEYUP, 0 )                FOR nChr := 1 TO Len( cMov )                   keybd_event( Asc( SubStr( cMov, nChr, 1 ) ), 0, 0, 0 )                   keybd_event( Asc( SubStr( cMov, nChr, 1 ) ), 0, KEYEVENTF_KEYUP, 0 )                NEXT                RETURN .T.             ENDIF             RETURN cMov          ENDIF       ELSE          IF oM:aItems[ nItem ]:nId == oLItM:nId             RETURN cMov + "x"          ENDIF       ENDIF       IF !Empt( oM:aItems[ nItem ]:cPrompt ) // se não for um separador          cMov += Chr( if( nNiv = 0, VK_RIGHT, VK_DOWN ) )       ENDIF    NEXT RETURN if( nNiv == 0, .F., "" ) // ** // *********************************************************** DLL32 FUNCTION keybd_event( bVk as _INT, bScan as _INT, dwFlags ;       as LONG, dwExtraInfo as LONG ) AS LONG PASCAL LIB "user32.dll" // *********************************************************** // ----------------------------------------------------------------------------- // ****   Fim de ShowMenu.prg
Regards, saludos.

Algo assim? eu criaria um banco de dados para armezenamento, se tiver um jeito de "baixar" de um site e gravar, melhor ainda.... Eu acho...
https://www.bcb.gov.br/conversao
 
abs.

Ficou super show()
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39824&hilit=twindow&sid=19048697257f4bd7c093b539750fc2fa
Abs.
Regards, saludos.

Perfeito meu Bolsonarista predileto. Único Bozolino que eu gosto. kkkkkkkkkkkkkk, Funciona dos dois modos. Muito obrigado. Forte abraço.

Minha humilde opinião, é que não se deve precisar nem de um nem do outro. Mas entendo que a experiência vem com o tempo. Legal mesmo, é abrir um programa, seja de quem seja, e só de "bater" os olhos no programa, dizer para si próprio: PUTZ, tá louco? E depois, tentar mostrar ao programador iniciante como deveria ser a melhor lógica. Gostoso, é abrir o ERROR.LOG, e ir na linha que o programa "quebrou", e dizer: PQP, como eu sou burro. kkkkkkkkkkk, eu faço isso a torto e a direito, mesmo porquê, não sou perfeito. Sou bom, mas não sou nem um VAGNER WIRTS, kkkkkkkk. Pelo que eu vi no forum inter, em breve, o fivewin terá um DEBUGADOR próprio, mas mesmo que tenha, prefiro confiar no meu taco. Mas, para os novos, tudo é válido e um aprendizado. Somo eternos aprendizes. Forte abraço a todos. Obg. abs.

Veja se acha aqui:
 
http://forums.fivetechsupport.com/viewtopic.php?f=17&t=34973&start=0#p208655

Oremos... Em todo caso, tens as dicas que dei... É possível fazer um módulo bem mais enxuto. Use sempre o SYSREFRESH() no WHILEs... abs.

Veja se ajuda:
 
 

GASFW.PRG - GERADOR AUTOMÁTICO DE SISTEMAS EM FIVEWIN.
GASFW.PRG - GENERADOR DE SISTEMA AUTOMÁTICO EN FIVEWIN.
A idade está chegando, então, como não tenho mais tempo para modernizar este programa, estou disponibilizando para todos os FIVEWINNERS do Brasil e do Mundo, para que possam usar e melhorar. Espero que possa ajudar a comunidade de FIVEWINNERS.
Todos os FONTES usados, estão em anexo no arquivo .RAR.
Muito obrigado e abraços a todos os FIVEWINNERS.
En español:
Se acerca la era, así que, como no tengo tiempo para modernizar este programa, lo estoy poniendo a disposición de todos los FIVEWINNERS de Brasil y del mundo, para que puedan usarlo y mejorarlo. Espero que puedas ayudar a la comunidad FIVEWINNERS.
Todas las FUENTES utilizadas se adjuntan en el archivo .RAR.
Muchas gracias y un abrazo a todos los FIVEWINNERS.

Link para Dowload:

https://mega.nz/file/pZFkkRgZ#sjU10k75aMrhbFeJCsMs7k0pixobpsvRu87fZcdsv_w

Regards, saludos, Saudações. - João Santos - São Paulo - Brazil, 02/08/2021 - Quarentine Covid19.

abrir gaventa impr. nao fiscal: bematech oPrn:Command( "27, 118, 140" ) abrir gaventa impr. fiscal: bematech xDll := LoadLibrary("bemafi32.dll") DLL32 FUNCTION BmAbreGav ( ) AS LONG PASCAL ; FROM "Bematech_FI_AcionaGaveta" LIB xDll
 

Só se fizer via CÓDIGO, assim:
 

   @ 2, 2 GET oGet VAR cPassword OF oDlg PASSWORD

Se desejar, use minha tela(dialog) para pegar a senha, uso livre(free).

DLG_SENHA_PASSWORD DIALOG 239, 157, 238, 148 STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION CAPTION "PLENOIND - Acesso dos Usuários" FONT 8, "MS Sans Serif" {  EDITTEXT 20, 101, 63, 50, 14, ES_CENTER | ES_MULTILINE | ES_PASSWORD | WS_BORDER | WS_GROUP | WS_TABSTOP  PUSHBUTTON "&Confirme", 301, 68, 96, 70, 14  PUSHBUTTON "&Saida", 302, 140, 96, 50, 14  GROUPBOX "Digite a Senha Correta", 501, 69, 44, 122, 50, BS_GROUPBOX  CTEXT "Digite a Senha Master", 403, 69, 30, 122, 12, SS_CENTER | NOT WS_GROUP  LTEXT "<ESC> Sair", 404, 5, 96, 60, 14, NOT WS_GROUP  CONTROL "TBitMap", 121, "TBitMap", WS_CHILD | WS_VISIBLE, 4, 30, 60, 64  CTEXT "OBRIGATÓRIO SENHA MASTER.", 402, 1, 15, 236, 12, SS_CENTER | NOT WS_GROUP  CTEXT "ATENÇÃO: CHAME O SUPERVISOR.", 401, 1, 3, 236, 12, SS_CENTER | NOT WS_GROUP  CTEXT "GERENTE OU O DONO DA EMPRESA.", 406, 1, 127, 236, 14, SS_CENTER | NOT WS_GROUP  CONTROL "TBitMap", 122, "TBitMap", WS_CHILD | WS_VISIBLE, 194, 49, 40, 43  CTEXT "SOMENTE USUÁRIO MASTER.", 405, 2, 113, 236, 14, SS_CENTER | NOT WS_GROUP }
Regards, saludos.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40081&sid=ff10aef016ca53a397ad896abdff4bc6
 
Regards, saludos.