LOCAL M.cDB
	
M.cDB = addbs(oJson.cBddNamePd)

IF !FILE (oJson.cBddNamePd)
	IF oApp.registrar()
		LOCAL oObj as "adodb.recordset"
		
		IF pd.Open(M.cDB) THEN
			cmd = FILETOSTR('sql/pd.sql')
			oObj = pd.Execute(cmd)
			IF !empty(pd.LastError) or isnull(oObj)
		      = MessageBox ( "Ha ocurrido un error al ejecutar: " + ;
		      	chr(13)+ pd.LastError +chr(13)+ ;
			    chr(13)+ M.cDB )
			    RETURN
			ENDIF	
		ENDIF
		pd.Close()
	ENDIF
ENDIF
