FiveTech Software tech support forums

Enrique,

Una solución sencilla sería usar la cláusula ACTION del GET:

... GET cClave PASSWORD ... ACTION MsgInfo( cClave )

... y copiarlo a c:\windows\system32 la orden a incluir en el fivewin es la siguiente. como ejemplo mi archivo se llama archivo.zip , cusuario y cclave es un usuario cualquier del linux con acceso a SSH ShellExecute(,"open","c:\windows\system32\pscp.exe"," -l "+cUsuario+" ...

Con indices NTX y aplicacion compilada con XHARBOUR trabaja muy bien llos filtros con ORDERSCOPE()

OrdScope(0, cClave )
OrdScope(1, cClave )

... '1'     Publicas:ltReemb    := .F.     Publicas:lObse      := .F.     Publicas:lgrupo     := .F.     Publicas:cNgrupo    := space(10)     Publicas:cClave     := space(5)     Publicas:nGImporte  := 0     Publicas:ngReembol  := 0     Publicas:nIreemb    := 0     Publicas:cObservaci := StrTran( "", ...

... necesito hacer esto. HB_SendMail( cMail,{cFile},, ; "Mensaje de error generado por el sistema", ; "Incos","wmormar@yahoo.com.mx", ; cUsuario, ; cClave, ; cSmtp,,lAutentifica,nSegundos ) cMail = ? Destinatario ? {cFile } = ? Fichero a enviar ? Incos = ??? cUsuario = ? cClave = ? csmtp = ? lAutentifica ...

... necesito hacer esto. HB_SendMail( cMail,{cFile},, ; "Mensaje de error generado por el sistema", ; "Incos","wmormar@yahoo.com.mx", ; cUsuario, ; cClave, ; cSmtp,,lAutentifica,nSegundos ) cMail = ? Destinatario ? {cFile } = ? Fichero a enviar ? Incos = ??? cUsuario = ? cClave = ? csmtp = ? lAutentifica ...

... STATIC fUNCTION pide_acceso() local caac := "caacay" local oEntrada,oCve local cClave local paso:=.f., okacerto:=.f. return .T. //---------------------------------------------------------------------------// static function indexa() ...

Cambia esta linea: @ 2.9,17 Get oGet3 Var cClave VALID(Busca(@cClave,oGet2,oGet3,oLbx,osay2,odlg6),.T.) Size 40,9 PICTURE "@!" FONT oFont65 Of oDlg6 UPDATE Por esta: @ 2.9,17 Get oGet3 Var cClave VALID(Busca(@cClave,oGet2,oGet3,oLbx,osay2,odlg6),.T., ...

... lBorrar1:=.F. regmodi:=0 nRegact:=Recno() nPar:=0 nProvedor:=0 cProvedor:=Space(60) dFecha:=Date() dFecharec:=Date() nDesc:=0 nDescFinal:=0 cClave:=Space(20) nCantidad:=0 SET 3DLOOK ON // Microsoft 3D Look DEFINE FONT oFont62 NAME "monospac821 bt" SIZE 0, -18 BOLD DEFINE FONT oFont61 NAME ...

... REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ; ACTION iif( ValidaUser(cClave, @oClave,"C" ) ,; (Seguir:=.T., SEAT1->(rlock()),SEAT1->Activo:=.t.,seat1->(dbUnlock()),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS ...

... REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ; ACTION iif( ValidaUser(cClave, @oClave,"C" ) ,; (Seguir:=.T., SEAT1->(rlock()),SEAT1->Activo:=.t.,seat1->(dbUnlock()),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS ...

... REDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE "Lamp1", "Lamp2",, "Lamp3", 'shape3' SHAPE PROMPT "Aceptar" TEXT ON_RIGHT ; ACTION iif( ValidaUser(cClave, @oClave,"C" ) ,; (Seguir:=.T., SEAT1->(rlock()),SEAT1->Activo:=.t.,dbUnlock(),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS ) ) Que puede ...

... , ::cConexion),250) ::lSeguro := oReg:Get("SECURE server", ::lSeguro) ::cUsuario := PadR(oReg:Get("User name" , ::cUsuario),250) ::cClave := PadR(DeCrypt(oReg:Get("User password",::cClave), "BlAt"),50) */ oReg:Close() RETURN Len(AllTrim( cDummy )) <> 0 /* Método no utilizado ...

LOCAL nSerie, cClave

nSerie := ALLTRIM( STR( nSerialHD( "C:\" ) ) )
cClave := ENCRYPT( nSerie,"HD" )