Xailer & OZ Software

METHOD CreateForm() CLASS TFormOfertas
Super:CreateForm()
::SetBounds( 615, 260, 867, 519 )
::SetClientSize( 851, 483 )
::cText := "Ofertas"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::lCentered := .T.
::nFormType := ftMDICHILD
::OnClose := "FormClose"
::Create()
WITH OBJECT ::oAds := TAdsDataSource():New( Self )
:cConnect := ".Datos"
:nServerType := asANY
:lConnected := .T.
:OnCreate := "AdsCreate"
:Create()
END
WITH OBJECT ::oDbfOfertas := TDbfDataSet():New( Self )
:cName := "Ofertas.DBF"
:oDataSource := ::oAds
:cProcess := "GENERAL"
:lOpen := .T.
:OnCreate := "DbfOfertasCreate"
:Create()
END
WITH OBJECT ::oExplorerBar1 := TExplorerBar():New( Self )
:SetBounds( 0, 0, 162, 483 )
:AddItem( "Ofertas" )
:Create()
END
WITH OBJECT ::oOptionList1 := TOptionList():New( ::oExplorerBar1 )
:SetBounds( 11, 36, 140, 150 )
:nHotStyle := hsMENUXP
WITH OBJECT :oImageList
:nWidth := 24
:nHeight := 24
:Add( "BNuevo" )
:Add( "BEditar" )
:Add( "BBorrar" )
END
WITH OBJECT :AddItem( "Añadir", 1 )
:OnClick := "Append"
END
WITH OBJECT :AddItem( "Editar", 2 )
:OnClick := "Edit"
END
WITH OBJECT :AddItem( "Suprimir", 3 )
:OnClick := "Del"
END
:AddSeparator()
WITH OBJECT :AddItem( " Filtros de búsqueda",, otCHECK )
:OnClick := {|| ::oDbBrowse1:lFilterBar:=!::oDbBrowse1:lFilterBar}
END
:AddItem( "Informes" )
:Create()
END
WITH OBJECT ::oSplitter1 := TSplitter():New( Self )
:SetBounds( 162, 0, 5, 483 )
:nAlign := alLEFT
:Create()
END
WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( Self )
:SetBounds( 167, 0, 684, 483 )
:nAlign := alCLIENT
:lRecordSelector := .F.
:oDataSet := ::oDbfOfertas
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Código"
:nWidth := 74
:oDataField := "CODIGO"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Empresa"
:nWidth := 253
:oDataField := "EMPRESA"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Fecha"
:nWidth := 54
:oDataField := "FECHALTA"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Nº Personas"
:nWidth := 73
:oDataField := "PERSONAS"
:Create()
END
:lAutoOrder := .T.
:OnDblClick := "Edit"
:Create()
END
RETURN Self
--

Bingen,
Por aquí no da ningún problema. Tan sólo se queja de que no ecuentra un
fichero DBF, pero sigue adelante sin problemas.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=4680c766@ozsrv2.ozlan.local...]4680c766@ozsrv2.ozlan.local...[/email]
> Para volverme loco.
>
> En una aplicación que todo iba de cine de repente un día de la semana
> pasada se me bloqueo el ide y lo tuve que sacar a la brava.
>
> Desde este momento ya no podía entrar en el IDE por que cada vez que
> entraba se bloqueaba. Lo que hice fue salir del IDE, borrar del XDT los
> PRG que abría y así al entrar no me dio problemas y así hasta hoy que he
> tenido que abrir un PRG que es el que me vuelve a bloquear todo.
>
> O el PRG o el XFM pero algo me bloquea el IDE, no se si con estos podéis
> probar algo.
>
> Salu2.
>
------------------------------------------------------------ --------------------
> /*
> * Proyecto: Behargintza
> * Fichero: FormOfertas.prg
> * Descripción:
> * Autor:
> * Fecha: 21/03/2007
> */
>
> #include "Xailer.ch"
>
> CLASS TFormOfertas FROM TForm
>
> Data lOpen Init .T.
>
> COMPONENT oExplorerBar1
> COMPONENT oOptionList1
> COMPONENT oSplitter1
> COMPONENT oDbfOfertas
> COMPONENT oDBBrowse1
> COMPONENT oDBBrowse1Column1
> COMPONENT oAds
>
> METHOD CreateForm()
> METHOD Append( oSender )
> METHOD Edit( oSender, nKeys, nCol, nRow )
> METHOD Del( oSender )
> METHOD FormClose( oSender, @lClose )
> METHOD AdsCreate( oSender )
> METHOD DbfOfertasCreate( oSender )
>
> ENDCLASS
>
> #include "FormOfertas.xfm"
>
> //---------------------------------------------------------- --------------------
>
> METHOD AdsCreate( oSender ) CLASS TFormOfertas
> ::oAds:=AppData:oAds
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD DbfOfertasCreate( oSender ) CLASS TFormOfertas
> ::oDbfOfertas:=HDbf("Ofertas")
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Append( oSender ) CLASS TFormOfertas
> Local oFrm
>
> WITH OBJECT oFrm := TFormEditOfertas()
> :New()
> :cText:="Añadir datos de Oferta"
> ::oDBFOfertas:AddNew()
> :ShowModal()
>
> if :nModalResult == mrOK
> ::oDBFOfertas:Update()
> else
> ::oDBFOfertas:Cancel()
> endif
> :End()
> END WITH
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Edit( oSender, nKeys, nCol, nRow ) CLASS TFormOfertas
> Local oFrm
>
> WITH OBJECT oFrm := TFormEditOfertas()
> :cIDOferta:=::oDBFOfertas:Codigo
> :New()
> :cText:="Editando datos de Oferta
> " +Alltrim(::oDBFOfertas:Codigo)+Alltrim(::oDBFOfertas:Empresa )
> ::oDBFOfertas:Edit()
> :ShowModal()
>
> if :nModalResult == mrOK
> ::oDBFOfertas:Update()
> else
> ::oDBFOfertas:Cancel()
> endif
> :End()
> END WITH
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Del( oSender ) CLASS TFormOfertas
> Local oFrm
>
> If !MsgNoYes("Esta completamente seguro de eliminar al
> Oferta:"+CRLF+CRLF+;
>
> +Alltrim(::oDBFOfertas:Codigo)+Alltrim(::oDBFOfertas:Empresa ))
> MsgInfo("El registro NO HA SIDO ELIMINADO")
> Return .F.
> Endif
>
> //Eliminar registro y datos de archivos auxiliares
> CursorWait()
> WITH OBJECT oFrm := TFormEditOfertas()
> :cText:="Borrando datos de Oferta
> " +Alltrim(::oDBFOfertas:Codigo)+Alltrim(::oDBFOfertas:Empresa )
> :cIDOferta:=::oDBFOfertas:CIF
> :New()
> :Delete()
> :End()
> END WITH
> CursorArrow()
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD FormClose( oSender, lClose ) CLASS TFormOfertas
> ::lOpen:=.F.
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
------------------------------------------------------------ --------------------
> METHOD CreateForm() CLASS TFormOfertas
>
> Super:CreateForm()
> ::SetBounds( 615, 260, 867, 519 )
> ::SetClientSize( 851, 483 )
> ::cText := "Ofertas"
> ::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
> ::lCentered := .T.
> ::nFormType := ftMDICHILD
> ::OnClose := "FormClose"
> ::Create()
>
> WITH OBJECT ::oAds := TAdsDataSource():New( Self )
> :cConnect := ".Datos"
> :nServerType := asANY
> :lConnected := .T.
> :OnCreate := "AdsCreate"
> :Create()
> END
>
> WITH OBJECT ::oDbfOfertas := TDbfDataSet():New( Self )
> :cName := "Ofertas.DBF"
> :oDataSource := ::oAds
> :cProcess := "GENERAL"
> :lOpen := .T.
> :OnCreate := "DbfOfertasCreate"
> :Create()
> END
>
> WITH OBJECT ::oExplorerBar1 := TExplorerBar():New( Self )
> :SetBounds( 0, 0, 162, 483 )
> :AddItem( "Ofertas" )
> :Create()
> END
>
> WITH OBJECT ::oOptionList1 := TOptionList():New( ::oExplorerBar1 )
> :SetBounds( 11, 36, 140, 150 )
> :nHotStyle := hsMENUXP
> WITH OBJECT :oImageList
> :nWidth := 24
> :nHeight := 24
> :Add( "BNuevo" )
> :Add( "BEditar" )
> :Add( "BBorrar" )
> END
> WITH OBJECT :AddItem( "Añadir", 1 )
> :OnClick := "Append"
> END
> WITH OBJECT :AddItem( "Editar", 2 )
> :OnClick := "Edit"
> END
> WITH OBJECT :AddItem( "Suprimir", 3 )
> :OnClick := "Del"
> END
> :AddSeparator()
> WITH OBJECT :AddItem( " Filtros de búsqueda",, otCHECK )
> :OnClick := {||
> ::oDbBrowse1:lFilterBar:=!::oDbBrowse1:lFilterBar}
> END
> :AddItem( "Informes" )
> :Create()
> END
>
> WITH OBJECT ::oSplitter1 := TSplitter():New( Self )
> :SetBounds( 162, 0, 5, 483 )
> :nAlign := alLEFT
> :Create()
> END
>
> WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( Self )
> :SetBounds( 167, 0, 684, 483 )
> :nAlign := alCLIENT
> :lRecordSelector := .F.
> :oDataSet := ::oDbfOfertas
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "Código"
> :nWidth := 74
> :oDataField := "CODIGO"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "Empresa"
> :nWidth := 253
> :oDataField := "EMPRESA"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "Fecha"
> :nWidth := 54
> :oDataField := "FECHALTA"
> :Create()
> END
>
> WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
> :cHeader := "Nº Personas"
> :nWidth := 73
> :oDataField := "PERSONAS"
> :Create()
> END
>
> :lAutoOrder := .T.
> :OnDblClick := "Edit"
> :Create()
> END
>
> RETURN Self
>

Por eso es "muy curioso" por que no tiene ningún problema.
He aislado el error quitando trozos del PRG y del Xfm hasta que he
llegado a este trozo del Xfn que es el que hace que la aplicación se
bloquee totalmente, un simple DBBrowse en el que no veo nada extraño
dirí­a yo pero.....
He borrado este bloque y he probado, salido y entrado en Xailer y me ha
funcionado, entonces he vuelto a diseñar el objeto oDBBrowse desde cero
y me funciona pero salgo de Xailer y al volver a entrar se me bloquea de
nuevo, es sencillamente "increible".
WITH OBJECT ::oDBBrowse1 := TDBBrowse():New( Self )
:SetBounds( 167, 0, 684, 483 )
:nAlign := alCLIENT
:lRecordSelector := .F.
:oDataSet := ::oDbfOfertas
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Código"
:nWidth := 74
:oDataField := "CODIGO"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Empresa"
:nWidth := 253
:oDataField := "EMPRESA"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Fecha"
:nWidth := 54
:oDataField := "FECHALTA"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Nº Personas"
:nWidth := 73
:oDataField := "PERSONAS"
:Create()
END
:lAutoOrder := .T.
:OnDblClick := "Edit"
:Create()
END

Ignacio, creo que ya se que es lo que falla, en el DBF que ha de mostrar
el DBBrowse tení­a antes 5 registros y ahora he borrado todos menos 1.
Al haber solo un registro se bloquea y si voy al editor de DBFs y meto
otro a mano funciona 100% OK.
Te enví­o el DBF y CDX para que los pruebes si quieres.
De hecho ya me ha pasado también que el los DBBrowses de los folder de
las ventanas de la aplicación si solo tienen un registro me los muestra
sin la lí­nea de alrededor del control DBBrowse.
Gracias por tu atención.
--

Bingen,
Te importa mandarme un proyecto completo (incluido DBF) que muestre el
problema. Te quedo muy agradecido.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=4681354d@ozsrv2.ozlan.local...]4681354d@ozsrv2.ozlan.local...[/email]
> Ignacio, creo que ya se que es lo que falla, en el DBF que ha de mostrar
> el DBBrowse tenía antes 5 registros y ahora he borrado todos menos 1.
>
> Al haber solo un registro se bloquea y si voy al editor de DBFs y meto
> otro a mano funciona 100% OK.
>
> Te envío el DBF y CDX para que los pruebes si quieres.
>
> De hecho ya me ha pasado también que el los DBBrowses de los folder de
> las ventanas de la aplicación si solo tienen un registro me los muestra
> sin la línea de alrededor del control DBBrowse.
>
> Gracias por tu atención.
>

Ok, te lo enví­o por correo con explicaciones de donde falla y como probarlo.
Salu2.
Ignacio Ortiz de Zúñiga escribió:
> Bingen,
>
> Te importa mandarme un proyecto completo (incluido DBF) que muestre el
> problema. Te quedo muy agradecido.
>
> Un saludo,
>