Código: Selecionar todos
Pasta de d:\wwwjpa\arquivos
26/07/2021 12:43 3.513.264 JPA.EXE
Pasta de d:\fontes\integra
26/07/2021 20:32 3.502.512 jpa.exe
Código: Selecionar todos
STATIC FUNCTION AtualizaBinary()
LOCAL cnInternet := ADOClass():New( AppcnInternet() )
LOCAL cnSQL := ADOClass():New( AppConexao() )
SayScroll( "Atualizando referências" )
cnInternet:cSQL := "SELECT * FROM WEBBINARY"
cnInternet:Execute()
DO WHILE ! cnInternet:Eof()
cnSQL:cSQL := "SELECT BINDATE FROM JPBINARY WHERE BINNAME = " + StringSQL( cnInternet:String( "BINNAME" ) )
cnSQL:Execute()
IF cnSQL:Date( "BINDATE" ) < cnInternet:Date( "BINDATE" )
cnSQL:QueryCreate()
cnSQL:QueryAdd( "BINDATE", cnInternet:Date( "BINDATE" ) )
cnSQL:QueryAdd( "BINTYPE", cnInternet:String( "BINTYPE" ) )
cnSQL:QueryAdd( "BINVALUE", cnInternet:String( "BINVALUE" ) )
IF cnSQL:Eof()
cnSQL:QueryAdd( "BINNAME", cnInternet:String( "BINNAME" ) )
cnSQL:QueryExecuteInsert( "JPBINARY" )
ELSE
cnSQL:QueryExecuteUpdate( "JPBINARY", "BINNAME = " + StringSQL( cnInternet:String( "BINNAME" ) ) )
ENDIF
ENDIF
cnInternet:MoveNext()
ENDDO
cnInternet:CloseRecordset()
RETURN Nil
Código: Selecionar todos
STATIC FUNCTION AtualizaBinary()
LOCAL cnInternet := ADOClass():New( AppcnInternet() )
LOCAL cnSQL := ADOClass():New( AppConexao() )
LOCAL aList := {}, aItem
SayScroll( "Atualizando referências" )
WITH OBJECT cnInternet
:cSQL := "SELECT BINNAME, BINDATE, BINTYPE FROM WEBBINARY"
:Execute()
DO WHILE ! cnInternet:Eof()
AAdd( aList, { :String( "BINNAME" ), :Date( "BINDATE" ), :String( "BINTYPE" ) } )
:MoveNext()
ENDDO
:CloseRecordset()
FOR EACH aItem IN aList
cnSQL:cSQL := "SELECT BINDATE FROM JPBINARY WHERE BINNAME = " + StringSQL( aItem[ 1 ] )
cnSQL:Execute()
IF cnSQL:Date( "BINDATE" ) < aItem[ 2 ]
cnInternet:cSQL := "SELECT * FROM WEBBINARY WHERE BINNAME = " + StringSQL( aItem[ 1 ] )
cnInternet:Execute()
cnSQL:ExecuteCmd( "DELETE FROM JPBINARY WHERE BINNAME = " + StringSQL( aItem[ 1 ] ) )
cnSQL:ExecuteCmd( "INSERT INTO JPBINARY ( BINNAME, BINDATE, BINTYPE, BINVALUE ) VALUES ( " + ;
StringSQL( aItem[ 1 ] ) + ", " + DateSQL( aItem[ 2 ] ) + ", " + StringSQL( aItem[ 3 ] ) + ", " + ;
StringSQL( cnInternet:String( "BINVALUE" ) ) + " )" )
cnInternet:CloseRecordset()
ENDIF
NEXT
ENDWITH
cnInternet:CloseConnection()
RETURN Nil
??Código: Selecionar todos
FUNCTION BinaryFromSQL( cName )
LOCAL cTxt
LOCAL cnSQL := ADOClass():New( AppConexao() )
WITH OBJECT cnSQL
:cSQL := "SELECT * FROM JPBINARY WHERE BINNAME = " + StringSQL( cName )
:Execute()
cTxt := :String( "BINVALUE" )
:CloseRecordset()
ENDWITH
RETURN cTxt
Código: Selecionar todos
#include "inkey.ch"
PROCEDURE pTesRemSony
LOCAL aList, nOpc, aHash
LOCAL oAparelho, nOpcAparelho := 1
LOCAL oFabricante, nOpcFabricante := 1
LOCAL oCode
aHash := hb_JsonDecode( BinaryFromSQL( "sonyremote" ) )
DO WHILE .T.
Cls()
aList := {}
FOR EACH oAparelho IN aHash[ "devices" ]
AAdd( aList, oAparelho[ "device" ] )
NEXT
wAchoiceNoClose( 1, 1, aList, @nOpcAparelho, "Device" )
IF Lastkey() == K_ESC
EXIT
ENDIF
DO WHILE .T.
@ 0, 60 CLEAR TO MaxRow(), MaxCol()
aList := {}
FOR EACH oFabricante IN aHash[ "devices", nOpcAparelho, "brandCodes" ]
AAdd( aList, oFabricante[ "brand" ] )
NEXT
wAchoiceNoClose( 5, 30, aList, @nOpcFabricante, aHash[ "devices", nOpcAparelho, "device" ] )
IF LastKey() == K_ESC
EXIT
ENDIF
aList := {}
FOR EACH oCode IN aHash[ "devices", nOpcAparelho, "brandCodes", nOpcFabricante, "codes" ]
AAdd( aList, oCode )
NEXT
wAchoice( 10, 60, aList, @nOpc, aHash[ "devices", nOpcAparelho, "brandCodes", nOpcFabricante, "brand" ] )
( nOpc )
Inkey(0)
wClose()
ENDDO
wClose()
ENDDO
//ShowJson( aHash, "aHash" )
//Inkey(0)
RETURN
Código: Selecionar todos
aHash := hb_JsonDecode( BinaryFromSQL( "sonyremote" ) )