FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda con un error en xbrowse
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Ayuda con un error en xbrowse
Posted: Tue Mar 28, 2023 07:08 PM

Buenas tardes.

Estoy tratando de generar un xBrowse con datos de una DBF.

Necesito editar el contenido del campo DESDENEW y al hacerlo actulizar con una SUMA el campo HASTANEW.

Al querer generarlo da este error "Error BASE/1005 message not found: NIL:_NEDITTYPE

asi es como lo tengo definido:

 DEFINE DIALOG oDlg FROM 1, 30 TO 650, 1050 FONT oFont TITLE 'Renumerción de Formularios' PIXEL



 @ 4,5 XBROWSE oBrw  ;

           COLUMNS "Articulo", "ArtFor->Detalle", "ArtFor->Abrevia", "Cantidad", "Desde", "Hasta", "DesdeNew","HastaNew" ;

           HEADERS "Cód.", "Detalle", "Abr.", "Cant", "Desde", "Hasta", "Nuevo D", "Nuevo H";

           COLSIZES 50,150,45,80,55,55,55,55 OF oDlg ;

           SIZE 500,283 PIXEL ;

           JUSTIFY .T.,.f.,.f.,.t.,.t.,.t.,.t.,.t. ;

           ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ;

           BACKGROUND aGrad VERTICAL



 oBrw:nStretchCol   := 2

 oBrw:nRowHeight    := 30

 oBrw:nMarqueeStyle := 4

 // anulo el doble color d los registros

 oBrw:lContrastClr  := .f.



 // quitar barra horizontal

 oBrw:lHScroll := .f.

 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)}

**** en esta linea se produce el error

 oBrw:oCol( "DesdeNew" ):nEditType  := 1





 oBrw:oCol( "DesdeNew" ):bEditValue := { || 1*1 }

 oBrw:aCols[ 7 ]:lAutoSave          := .T.

 oBrw:oCol( "DesdeNew" ):bOnChange  := { || _DetComF->HastaNew:=oBrw:oCol( "DesdeNew" ):Value + (oBrw:oCol( "Cantidad" ):Value-1),oBrw:Refresh() }



 oBrw:oCol( "HastaNew" ):bEditValue := { || oBrw:oCol( "DesdeNew" ):Value + ((oBrw:oCol( "Cantidad" ):Value)-1) }

 oBrw:aCols[ 8 ]:lAutoSave          := .T.

los nombres de los campos son correctos.

No entiendo por que da el error, lo compare con otra funcion similar y no veo diferencia.

Gracias

José Camilo

Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Ayuda con un error en xbrowse
Posted: Tue Mar 28, 2023 10:28 PM
Jose Camilo:
Y si cambias los oCol por aCol con su subindice?
Code (fw): Select all Collapse
//1) "Articulo", 2)"ArtFor->Detalle", 3)"ArtFor->Abrevia", 4)"Cantidad", 5)"Desde", 6)"Hasta", 7)"DesdeNew",8)"HastaNew" ;
oBrw:aCols[ 7 ]:nEditType := 1
oBrw:aCols[ 7 ]:bEditValue := { || 1*1 }
oBrw:aCols[ 7 ]:lAutoSave := .T.
oBrw:aCols[ 7 ]:bOnChange := { || _DetComF->HastaNew:=oBrw:aCols[ 7 ]:Value + (aCols[ 4 ]:Value-1),oBrw:Refresh() }

oBrw:aCols[ 8 ]:bEditValue := { || oBrw:aCols[ 7 ]Value + ((oBrw:aCols[ 4 ]:Value)-1) }
oBrw:aCols[ 8 ]:lAutoSave := .T.
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Re: Ayuda con un error en xbrowse
Posted: Wed Mar 29, 2023 12:03 AM

Muchisimas gracias Cesar!!! funcionó perfecto!!!

Gracias por tu tiempo.

Continue the discussion