Bug 2.5.1 En Memdataset
Publicado: Mar Ene 03, 2012 8:54 pm
Hola,
En una edición de un TDBBROWSE con un MEMDATASET cuando edito una
columna no guarda el valor que se captura en en campo, al recorrer el
memdataset no muestra el valor que se capturo en la columna editable.me
toca manualmente hacerle un Omendataset:Update.
En la versión 2.5 lo hace correctamente.
asi esta definido el TDBBROWSE
WITH OBJECT ::oBrwParticipa := TDBBrowse():New( ::oGroupParticpa )
:SetBounds( 8, 16, 530, 154 )
WITH OBJECT TDBBrwColumn():New( ::oBrwParticipa )
:cHeader := "Pais"
:nAlignment := taLEFTHEADERCENTER
:nWidth := 122
:oDataField := "Pais"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oBrwParticipa )
:cHeader := "Participante"
:nAlignment := taLEFTHEADERCENTER
:nWidth := 271
:oDataField := "Nompar"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oBrwParticipa )
:cHeader := "Valor"
:cPicture := "@Z 999,999,999,999.99"
:nAlignment := taRIGHTHEADERCENTER
:nWidth := 117
:nEditType := beGET
:uDefaultValue := 0
:oDataField := "valor"
:OnPostEdit := "BrwParticipaColumn3PostEdit"
:Create()
END
:nHeaderHeight := 36
:lRecordSelector := .F.
:lFilterBar := .T.
:lVScroll := bsYES
:lHScroll := bsNO
:oDataSet := ::oMem_parti
:Create()
END
Saludos,
--
*José**David Angulo Urzola.*
*Auditoria y Sistemas Ltda.*
jose.angulo@auditoriaysistemas.com <mailto:Gerencia@microexpressltda.com>
*Tel. (57) 5-6643022 -- 6644555*
*Cartagena -- Colombia*
--
En una edición de un TDBBROWSE con un MEMDATASET cuando edito una
columna no guarda el valor que se captura en en campo, al recorrer el
memdataset no muestra el valor que se capturo en la columna editable.me
toca manualmente hacerle un Omendataset:Update.
En la versión 2.5 lo hace correctamente.
asi esta definido el TDBBROWSE
WITH OBJECT ::oBrwParticipa := TDBBrowse():New( ::oGroupParticpa )
:SetBounds( 8, 16, 530, 154 )
WITH OBJECT TDBBrwColumn():New( ::oBrwParticipa )
:cHeader := "Pais"
:nAlignment := taLEFTHEADERCENTER
:nWidth := 122
:oDataField := "Pais"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oBrwParticipa )
:cHeader := "Participante"
:nAlignment := taLEFTHEADERCENTER
:nWidth := 271
:oDataField := "Nompar"
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oBrwParticipa )
:cHeader := "Valor"
:cPicture := "@Z 999,999,999,999.99"
:nAlignment := taRIGHTHEADERCENTER
:nWidth := 117
:nEditType := beGET
:uDefaultValue := 0
:oDataField := "valor"
:OnPostEdit := "BrwParticipaColumn3PostEdit"
:Create()
END
:nHeaderHeight := 36
:lRecordSelector := .F.
:lFilterBar := .T.
:lVScroll := bsYES
:lHScroll := bsNO
:oDataSet := ::oMem_parti
:Create()
END
Saludos,
--
*José**David Angulo Urzola.*
*Auditoria y Sistemas Ltda.*
jose.angulo@auditoriaysistemas.com <mailto:Gerencia@microexpressltda.com>
*Tel. (57) 5-6643022 -- 6644555*
*Cartagena -- Colombia*
--