Reputation from cnavarro - Fivewin Brasil

cnavarro got a reaction from Jmsilva in Rotina para gravar backup Google Drive - Resolvido November 2, 2019

GOOGLE.LIB
// TGGoogle -->
// TGCalendar
// TGCalendarList -->
// TGEventCalc
// TGMail
// TGTasks
// TGDrive --->
// TGSpread --->
// TGSheet
// TGSlides --->
// TGTranslate ( also for Cloud )
and more classes not included in previous list

cnavarro got a reaction from Jmsilva in Rotina para gravar backup Google Drive - Resolvido November 1, 2019

I create slack for Googe lib
https://join.slack.com/t/googlelib/shared_invite/enQtODA0NTYzODA1NTU0LTYxZDYxNGMxNGIwMmIzNTg4MTAyYjI1N2E5MmJhY2U2M2QxNDg2YTE5MDdjMzg5OTgzNDk3ZDNhYjU3YTNkZTc
New version of lib in slack

cnavarro got a reaction from kapiaba in Luto no grupo October 11, 2019

Si puedo ayudar técnicamente con temas de Fivewin, no duden en contactar conmigo.

cnavarro got a reaction from kapiaba in Interfaces feitas usando Fivewin March 18, 2019

http://wiki.fivetechsoft.com/doku.php?id=fiveui_support

cnavarro got a reaction from kapiaba in Browse, Grid, ou outra forma de fazer uma tela parecida com esta, para atendimento March 6, 2019

fwh\samples\xbrimag2.prg

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33235&start=0

cnavarro got a reaction from kapiaba in Peço Ajuda aos bons - RichEdit February 8, 2019

Search Testrtf5.prg in folder samples

cnavarro got a reaction from rochinha in Visual de Windowns 10 na aplicação August 7, 2018

http://wiki.fivetechsoft.com/doku.php?id=fiveui_soporte

cnavarro got a reaction from Eduardo Bilato in Visual de Windowns 10 na aplicação August 6, 2018

http://wiki.fivetechsoft.com/doku.php?id=fiveui_soporte

cnavarro got a reaction from kapiaba in Rotina para gravar backup Google Drive - Resolvido June 7, 2018

Ya está corregido
https://bitbucket.org/fivetech/fivewin-contributions/downloads/Googlex.lib

cnavarro got a reaction from Jmsilva in Qual nome da classe usado em variável lógica o EDITVARS May 16, 2018

Use class TSwitch

cnavarro got a reaction from kapiaba in Qual nome da classe usado em variável lógica o EDITVARS May 16, 2018

Use class TSwitch

cnavarro got a reaction from Jmsilva in Rotina para gravar backup Google Drive - Resolvido May 8, 2018

---------------------------- NEW VERSION ----------------
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903&start=30#p211934

cnavarro got a reaction from kapiaba in Rotina para gravar backup Google Drive - Resolvido May 7, 2018

---------------------------- NEW VERSION ----------------
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903&start=30#p211934

cnavarro reacted to kapiaba in Tooltip em um combo box? April 19, 2018

// By Matheus Farias - Dados da Máquina
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------//
function Main()
local oBar
DEFINE WINDOW oWnd TITLE "DadosdaMaquina"
DEFINE BUTTONBAR oBar _3D OF oWnd
DEFINE BUTTON OF oBar ACTION DadosdaMaquina()
SET MESSAGE OF oWnd TO "DadosdaMaquina" NOINSET CLOCK DATE KEYBOARD
ACTIVATE WINDOW oWnd
return nil
Function DadosdaMaquina()
LOCAL oDatos, oSrv, oJob, i
LOCAL nFree:= ""
LOCAL oLoc:= CreateObject( "wbemScripting.SwbemLocator" )
LOCAL objWMI:= oLoc:ConnectServer()
LOCAL oSistema:= objWMI:ExecQuery("Select * from Win32_PhysicalMedia")
LOCAL oDisco:= objWMI:ExecQuery("Select * from Win32_LogicalDisk")
LOCAL oParti:= objWMI:ExecQuery("Select * from CIM_DiskPartition")
LOCAL oDisket:= objWMI:ExecQuery("Select * From Win32_LogicalDisk Where DeviceID = 'A:'")
LOCAL objUnd:= objWMI:ExecQuery("Select * from Win32_MappedLogicalDisk")
LOCAL oUnd:= objWMI:ExecQuery("Select * from Win32_CDROMDrive")
LOCAL oResolu:= objWMI:ExecQuery("Select * from Win32_DesktopMonitor")
LOCAL oSistem:= objWMI:ExecQuery("Select * from Win32_OperatingSystem")
LOCAL oUsers:= objWMI:ExecQuery("Select * from Win32_Account")
LOCAL oServ:= objWMI:ExecQuery("Select * from Win32_Service Where Name = 'Themes'")
LOCAL oTime:= objWMI:ExecQuery("Select * from Win32_LocalTime")
LOCAL oProc:= objWMI:ExecQuery("Select * from Win32_Processor")
LOCAL oJbs:= objWMI:ExecQuery("SELECT Product, SerialNumber FROM Win32_BaseBoard")
LOCAL oIpSet:= objWMI:ExecQuery("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
LOCAL oList := objWMI:ExecQuery("Select * from Win32_ComputerSystem")
LOCAL oSoft := objWMI:ExecQuery("Select * from Win32_Product")
objWMI:= oLoc:ConnectServer()
oJbs := objWMI:ExecQuery( "select * from Win32_BaseBoard" )
tlin:=1
oExcel := CreateObject( "Excel.Application" ) //Start Excel OLE
oExcel:Workbooks:Add() //Open Excel with empty book
oSheet := oExcel:Get("ActiveSheet") //Get active sheet
oSheet:Name := "Dados da Maquina" //name your sheet method 2
oSheet:Cells:Font:Size := 10 //set font size for all cells in active sheet
oSheet:Cells:Font:Name := "Times New Roman"
oSheet:Cells( tlin, 1 ):Font:Size := 14 //set font size for a cell
oSheet:Cells( tlin, 1 ):Font:Bold := .t. //set bold on for a cell

//oSheet:Cells( tlin, 1 ):Font:Bold := .f. //set bold off for a cell
oSheet:Cells( tlin, 1 ):Font:Name := "Times New Roman" //set font for a cell in active sheet
nCol:=1
oSheet:Cells( tlin++ , nCol ):Value := "Dados do Acesso Remoto"
oSheet:Cells( tlin , nCol++ ):Value := "Empresa:"
oSheet:Cells( tlin++ , nCol-- ):Value := srasoemp
oSheet:Cells( tlin , nCol++ ):Value := "Local do Executavel:"
oSheet:Cells( tlin++ , nCol-- ):Value := CurDrive()+":\"+ curdir()
oSheet:Cells( tlin , nCol++ ):Value := "Usuario:"
oSheet:Cells( tlin++ , nCol-- ):Value := WNetGetUser()
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Inf. Fisicas da Maquina"
FOR Each oDatos In oSistema
oSheet:Cells( tlin , nCol++ ):Value := "Serial de Fabrica:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:SerialNumber))
NEXT
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Disco Logicos do Sistema"
FOR Each oDatos In oDisco
oSheet:Cells( tlin , nCol++ ):Value := "Unidade:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:Name))
oSheet:Cells( tlin , nCol++ ):Value := "Serial:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:VolumeSerialNumber))
NEXT
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Partiçoes da Maquina"
FOR Each oDatos in oParti
oSheet:Cells( tlin , nCol++ ):Value := "Partição:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:Name))
oSheet:Cells( tlin , nCol++ ):Value := "Tamanho:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:Size))
oSheet:Cells( tlin , nCol++ ):Value := "Em:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:SystemName))
oSheet:Cells( tlin , nCol++ ):Value := "Tipo:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:TYPE))
NEXT
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Unidade Mapeadas"
FOR Each oDatos In objUnd
oSheet:Cells( tlin , nCol++ ):Value := "Id:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:DeviceID)+" - "+cValToChar(oDatos:Name)+" - "+cValToChar(oDatos:ProviderName))
oSheet:Cells( tlin , nCol++ ):Value := "Livre:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:FreeSpace))
oSheet:Cells( tlin , nCol++ ):Value := "Tamanho:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:Size))
NEXT
// Resolução das Janelas
FOR Each oDatos in oResolu
oSheet:Cells( tlin , nCol++ ):Value := "Resolução da Maquina:"
oSheet:Cells( tlin++, nCol-- ):Value := ALLTRIM(cValToChar(oDatos:ScreenWidth)+" x "+cValToChar(oDatos:ScreenHeight))
NEXT
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Dados Do Processador"
FOR EACH oDatos IN oProc
oSheet:Cells( tlin , nCol++ ):Value := "Nome do Processador:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:Name))
oSheet:Cells( tlin , nCol++ ):Value := "Velocidade Atual:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:CurrentClockSpeed)) + " Mghz"
oSheet:Cells( tlin , nCol++ ):Value := "Velocidade Atual:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:MaxClockSpeed)) + " Mghz"
NEXT
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Dados Da Placa Mãe"
FOR EACH oDatos IN oJbs
oSheet:Cells( tlin , nCol++ ):Value := "Tipo da Placa Mãe:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:Product))
oSheet:Cells( tlin , nCol++ ):Value := "Numero de Serie:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:SerialNumber))
NEXT
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Configuraçoes de Rede"
FOR EACH oDatos IN oIPSet
oSheet:Cells( tlin , nCol++ ):Value := "Endereço de Ip:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:IPAddress(0)))
oSheet:Cells( tlin , nCol++ ):Value := "MacAdress:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:IPAddress(1)))
NEXT
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Dados Da Maquina"
FOR EACH oDatos IN oList
oSheet:Cells( tlin , nCol++ ):Value := "Nome do Computador:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:Name))
oSheet:Cells( tlin , nCol++ ):Value := "Nome da Maquina:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:Manufacturer))
oSheet:Cells( tlin , nCol++ ):Value := "Tipo do Sistema:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:SystemType))
oSheet:Cells( tlin , nCol++ ):Value := "Data da Instalação:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:InstallDate))
oSheet:Cells( tlin , nCol++ ):Value := "Nome do Usuario logado:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:UserName))
oSheet:Cells( tlin , nCol++ ):Value := "Total de Memoria Ram Fisica:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:TotalPhysicalMemory))
If oDatos:PartOfDomain
oSheet:Cells( tlin , nCol++ ):Value := "Dominio:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:Domain))
Else
oSheet:Cells( tlin , nCol++ ):Value := "Grupo:"
oSheet:Cells( tlin++, nCol-- ):Value := Alltrim(cValtoChar(oDatos:Domain))
EndIf
Next
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 14
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCol ):Value := "Software Instalados "
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin, nCoL1:=nCol++ ):Value := "Nome"
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin, nCoL2:=nCol++ ):Value := "Versão"
//--------- Cabeçalho-------------------------------//
oSheet:Cells( tlin, nCol ):Font:Size := 12
oSheet:Cells( tlin, nCol ):Font:Bold := .t.
//--------------------------------------------------//
oSheet:Cells( tlin++, nCoL3:=nCol++ ):Value := "Local da Instalação"
For Each oDatos in oSoft
oSheet:Cells( tlin, nCoL1 ):Value := Alltrim(cValtoChar(oDatos:Name))
oSheet:Cells( tlin, nCoL2 ):Value := Alltrim(cValtoChar(oDatos:Version))
oSheet:Cells( tlin++, nCoL3 ):Value := Alltrim(cValtoChar(oDatos:InstallLocation))
Next
oSheet:Columns( 1 ):AutoFit()
oSheet:Columns( 2 ):AutoFit()
oSheet:Columns( 3 ):AutoFit()
oSheet:Columns( 4 ):AutoFit()
cCaminho:= CurDrive()+":\"+ CurDir()+"\"+"PlanilhaRemota.xls"
oExcel:Get( "ActiveWorkbook" ):SaveAs(cCaminho)
oExcel:WorkBooks:Close()
oExcel:Quit()
Return Nil

cnavarro got a reaction from kapiaba in Menu Radial no Fivewin, existe algum exemplo? April 9, 2018

No, aún no está totalmente desarrollada la clase
Aún tardaré un poco en terminarla

cnavarro got a reaction from Jmsilva in Rotina para gravar backup Google Drive - Resolvido April 8, 2018

-------------------------------------- NEW VERSION 07/04/2018 --------------------------------
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903&start=30#p211287

cnavarro got a reaction from kapiaba in Say na vertical March 16, 2018

DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0,20 BOLD;
NESCAPEMENT 900
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=24696&p=133924&hilit=escapement#p133924

cnavarro got a reaction from kapiaba in FivEdit Instalação March 16, 2018

------------------------------------ New version 16/03/2018 -----------------------------

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24025&start=810#p210763

cnavarro got a reaction from kapiaba in FivEdit Instalação March 12, 2018

--------------------------------- 18/02/2018 Nueva version ---------------
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24025&start=795#p209997

cnavarro got a reaction from kapiaba in FivEdit Instalação March 12, 2018

--------------------------------- New version 11/03/2018 --------------------
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24025&start=795#p210593

cnavarro got a reaction from Theotokos in Ajuda com cGetFile() March 10, 2018

Una vez que tienes el fichero con cFile := cGetFile() , puedes utilizar las funciones
FSize( cfile ), FDate( cFile ) y FTime( cFile )

cnavarro got a reaction from Rogerio Figueira in Ajuda com cGetFile() March 9, 2018

Una vez que tienes el fichero con cFile := cGetFile() , puedes utilizar las funciones
FSize( cfile ), FDate( cFile ) y FTime( cFile )

cnavarro got a reaction from kapiaba in QRCODE coom Printer March 8, 2018

Utiliza la misma function que usas para imprimir en pantalla
local nX := 180 local nY := 180 local cCode := "20219719443 | 01 | F001 | 00045256 | 25/01/2018 | 18.00 | 118.00 | 6 | 10087302682 |" local oPrn PRINT oPrn NAME "Imprimir QrCode" PREVIEW PAGE hb_zebra_draw( hZebra, { | x, y, w, h | nWidth := x + w, nHeight := y + h, ; FillRect( oPrn:hDCOut, { y, x, y + h, x + w }, hBrush ) }, nX, nY, 11, 11 ) oFontText:Activate( oPrn:hDCOut ) DrawText( oPrn:hDCOut, cCode, { nHeight + 10 , nX - 4, nHeight + 24, nWidth + 4 }, 0 ) oFontText:DeActivate( oPrn:hDCOut ) ENDPAGE ENDPRINT

cnavarro got a reaction from kapiaba in Solução para indentação em programas February 21, 2018

Hay que modificar el codigo para que ese tipo de expresiones las pueda reconocer ( retu, do whil, etc )

cnavarro got a reaction from kapiaba in Solução para indentação em programas February 20, 2018

Disculpa, es hbformat.exe
Normalmente esa DLL está en la carpeta Bin, si no la tienes, dime para qué compilador ( version ) la necesitas

Sign In

cnavarro

Posts

Joined

Last visited

Days Won

Reputation Activity

Browse

Activity