tDolphin, método delete

[Biel EA6DD]

Cuando la sentencia SQL contiene un JOIN, aTables guarda el nombre de la tabla más todo la cadena JOIN.
pe
?::aTables[1] --> ctFraCab LEFT JOIN ctCuenta ON ctFraCab.EmpCod=ctCuenta.EmpCod AND ctFraCab.MayCod=ctCuenta.MayCod AND ...

Esto genera un problema al usar el método delete, ya que el comando creado es erroneo.
DELETE FROM tabla LEFT JOIN .... WHERE ...

Una solución es cambiar en el método delete

Code: Select all  Expand view

cTable := ::aTables[ 1 ] //Original

por

Code: Select all  Expand view

cTable := IIf(At(' ',::aTables[1])>0,SubStr(::aTables[1],1,At(' ',::aTables[1])),::aTables[1]) //Biel 1409

De esta forma queda funcional, aunque el fondo del problema quizás sea cuando se procesa el comando SQL en el método BuildDatas.

[Daniel Garcia-Gil]

Gracias Biel

puedes contribuir con TDolphin haciendo un FORK del repositorio y despues de generar tus cambios solicitas un "PULL REQUEST"

[Biel EA6DD]

Hola Daniel, no estoy muy puesto con Git, me documento y lo intento actualizar.

[joseluisysturiz]

Nose si sera lo mismo sobre el tema, tratando borrar un registro de 2 tablas relacionadas con oQry:Delete(), ejemplo borrar un cliente relacionado con la tabla clasificacion de clientes, me arrojo error que no se pueden borrar registros en tablas relacionadas, revisando manual de MySql lo resolvi asi:

Code: Select all  Expand view

      cSqlDel := "DELETE LOW_PRIORITY " +;
         "FROM " + cTabla + " " +;
         "WHERE " + cCampoWhere + " = " + ClipValue2SQL( cVar ) + " " +;
         "ORDER BY " + cCampoWhere + " "

      TRY
         oDatos:oConex:Execute( cSqlDel )

         MsgInfo( "Registro " + ALLTRIM( cValToChar( cVar ) ) +;
            " Eliminado Correctamente.", oDatos:cTitMsg )

      CATCH oError
         ShowError( oError, "delete_tablas_relacionadas", "general.prg" )

      END
 

saludos...