PC Toledo

Código: Selecionar todos

*************************
FUNCTION SalvarDoc(cFile)
*************************
*
*
LOCAL oFont, oDlg, cArq, cEncode
LOCAL cDirDoc := hb_GetEnv("USERPROFILE") + "\Documents" 

cArq := HWG_SelectFile( "Arquivos ( *.* )", "*.*", cDirDoc,"Escolha o documento para guardar." )

cEncode := hb_base64encode( hb_ZCompress(hb_memoread(cArq)) )
cSufixo := Upper( SubStr(cArq,RAt('.',cArq)+1) )

DirChange( "\MeuSistema" )

   IF Empty( cEncode )
      hwg_Msginfo("Não achou o arquivo.")
      RETURN .T.
   ENDIF
   
TravaRegistro('cx')
//hb_MemoWrit(cx->arquivo,cEncode,.F.)
cx->arquivo := cEncode
cx->sufixo := cSufixo
cx->(dbUnlock())
Hwg_msginfo("Documento salvo no banco de dados." + hb_eol() + cx->historico + hb_eol() + "Valor lcto: " + transform(cx->valor,"9999,999.99") ) 

//hwg_Shellexecute(cArq,"open",,cDirSist,1)   

RETURN cEncode

Código: Selecionar todos

***************
FUNCTION DocVer
***************
*
*
LOCAL cAno := Str(Year(cx->data),4), cMes := CMonth(cx->data), hOutPut
LOCAL cNumDoc := iif(Empty(cx->controle),StrZero(cx->(RecNo()),10),cx->controle)
LOCAL cPS := hb_ps()
LOCAL cOutFIleName := cDirSist + "Documentos" + cPS + cAno + cPS + cMes + cPS + "XYZ_DOC_"+cNumDoc+"."+cx->sufixo
LOCAL cDecode := hb_ZUncompress(hb_base64Decode(cx->arquivo))
IF Empty(cDecode)
   hwg_msgstop("Arquivo não está anexado.")
   RETURN .T.
ENDIF

IF hb_vfDirExists( cDirSist + "Documentos" )
ELSE   
   IF hb_vfDirMake( cDirSist + "Documentos"  ) == 0
   ELSE   
      hwg_MsgYesNo("Sem autorização para criar diretório. Não foi salvo !")      
      RETURN .T.
   ENDIF      
ENDIF

IF hb_vfDirExists( cDirSist + "Documentos" + cPS + cAno )
ELSE   
   IF hb_vfDirMake( cDirSist + "Documentos" + cPS + cAno ) == 0
   ELSE   
      hwg_MsgYesNo("Sem autorização para criar diretório. Não foi salvo !")      
      RETURN .T.
   ENDIF      
ENDIF

IF hb_vfDirExists( cDirSist + "Documentos" + cPS + cAno + cPS + cMes )
ELSE   
   IF hb_vfDirMake( cDirSist + "Documentos" + cPS + cAno + cPS + cMes ) == 0
   ELSE   
      hwg_MsgYesNo("Sem autorização para criar diretório. Não foi salvo !")      
      RETURN .T.
   ENDIF      
ENDIF

hb_MemoWrit( cOutFileName,cDecode,.F.)
//hOutput := FCreate( '\XYZ\Documentos\' + cOutFileName )

//FWrite( hOutput, cDecode)
//FClose( hOutput )

hwg_Shellexecute(cOutFileName,"open",,cDirSist + "Documentos",1)
//wapi_shellexecute(,"Open",cOutFileName)
RETURN .T.