FiveTech Software tech support forums

Esta es la rutina donde genero los registros: function generoreci() xtotal = xefectivo + xtotche + ximpretiva + ximpretgan + ximpretrg + ximpretibr + acuenta if xtotal = 0 msginfo( "Monto abonado en cero" ) retu .f. endif wtxt = "errorecib.txt" ferase( wtxt ) cHande = FCREATE ( w...

Francisco, gracias por responder, pero lo que me dices es con COMBOBOX que usa un solo campo y lo que quiero es con DBCOMBO uso 2 campo, 1 que es lo qe muestro y otro que es lo que voy a guardar en mi tabla, ejemplo: codigo de producto y nombre producto, con DBCOMBO puedo mostrar ...

... La misma tiene cargado los siguientes datos: codigo nombre ------ -------------------------------- 4 ALGO XXXXXXXXXXXXXXXXXXXXXXXX 9 CAJA AHORO BCO PROVINCIA 2 CHEQUES PROPIOS 6 CODIGO 10 CODIGO AZUL 1 EFECTIVO 5 OTRO 7 SUBLIME Busca bien en todos los casos excepto cuando escribo "CH", ...

... ) } :bOnPostEdit := { | oCol, xVal, nKey | If( nKey <> VK_ESCAPE ,; ( oCol:value := xVal ,; totalinea( oBrw, aVar, aGet ) ,; graba_movbco( lNew, aVar, oDlg, oBrw, oQryBancos ) ,; addrow( oBrw, oQryBancos, lNew ) ), ) } :bEditWhen := {|| !EMPTY( aItems[oBrw:nArrayAt, 1] ) } END WITH ...

... ) } :bOnPostEdit := { | oCol, xVal, nKey | If( nKey <> VK_ESCAPE ,; ( oCol:value := xVal ,; totalinea( oBrw, aVar, aGet ) ,; graba_movbco( lNew, aVar, oDlg, oBrw, oQryBancos ) ,; addrow( oBrw, oQryBancos, lNew ) ), ) } :bEditWhen := {|| !EMPTY( aItems[oBrw:nArrayAt, 1] ) } END WITH ...

Hola Si lo quieres hace como lo tenías al principio IF lNuevo oDbf:GOBOTTOM() BCO_CODIGO := StrZero((VAL(oDbf:BCO_CODIGO) +1), 12) oDbf:BLANK() oDbf:BCO_CODIGO := BCO_CODIGO ELSE oDbf:LOAD() ENDIF Una vez rellenado los campos haces el oDbf:Append() y el oDbf:Save() El tema está en que cuando traes e...

La secuencia sería:

1. Calculas el nuevo código:

oDbf:GOBOTTOM()
cBCO_CODIGO := StrZero((VAL(oDbf:BCO_CODIGO) +1), 12)

2. Añades un nuevo registro

oDbf:Append()
oDbf:BCO_CODIGO = cBCO_CODIGO

3. El usuario rellena los datos

Antonio, Gracias por tu valiosa sugerencia. Ya lo intente y al invertir las lineas el comportamiento es que deja de generar el correlativo, es decir oDbf:BCO_CODIGO := StrZero((VAL(oDbf:BCO_CODIGO) +1), 12) no es capaz de continuar con el siguiente numero. Genera la numeracion en 1. Aparentemente oD...

Saludos grupo, Estoy usando la clase Tdatabase para mantener un archivo oDbf:=tDatabase():New() Al llamar el dialogo de carga uso este codigo IF lNuevo oDbf:BLANK() oDbf:GOBOTTOM() oDbf:BCO_CODIGO := StrZero((VAL(oDbf:BCO_CODIGO) +1), 12) ELSE oDbf:LOAD() ENDIF Si el registro es nuevo, agrega uno en...

Estimados, No logro conseguir la forma de ajustar un browse en una ventana a solo las columnas que quiero mostrar. Aca el codigo que utilizo DEFINE WINDOW oWndBCO MDICHILD OF oWndPrinc ; FROM 0, 0 TO 0, 0 ; SET MESSAGE OF oWndBCO oWndBCO:Hide() oBrw := TXBrowse():New( oWndBCO ) oCol = oBrw:AddCol() ...

La puse local, tampoco funciono. Ya de hecho la variable estaba como STATIC al inicio del PRG. Aca el codigo STATIC FUNCTION RBancos() LOCAL oRpt USE BANCO BANCO->(ORDSETFOCUS(1)) BANCO->(DBGOTOP()) REPORT oRpt PREVIEW COLUMN TITLE "Codigo" DATA BANCO->BCO_CODIGO COLUMN TITLE &quo...

Tomando un reporte ejemplo de la carpeta samples armen uno parecido pero me lanza un error que aparentemente busca crear un Dialogo. Es necesario un Dialogo desde recurso para que funcione un reporte muy basico?? Esto fue el error Application =========== Path and name: C:\FWH\test\prueba.exe (32 bit...

Estimados, Estoy abriendo un DBF con xbrowse y quiero que solo me muestre 2 columnas en el mismo, pero al ejecutarlo me muestra todos los campos de la misma, y coloca las 2 columnas que quiero mostrar al final del registro. Aca el codigo que estoy utilizando oCol = oBrw:AddCol() oCol:nEditType := ED...

Disculpa, puse CODBCO, que es tu variable, para que tu pusieras ahí el nombre del campo, que veo que es BCO_CODIGO Más o menos así STATIC FUNCTION BCONUEVO(TNUEVO)IF TNUEVONREG:=BANCO->(RECNO())BANCO->(DBGOBOTTOM()) //-----> ir al final de la tablaCOD...

Pedro, siguiendo tu sugerencia deberia quedar asi,. STATIC FUNCTION BCONUEVO(TNUEVO) IF TNUEVO NREG:=BANCO->(RECNO()) BANCO->(DBGOBOTTOM()) //-----> ir al final de la tabla CODBCO := VAL(BANCO->CODBCO) +1 CODBCO := SPACE (12) NOMBCO := SPACE(30) CTABCO := SPACE(30) ELSE NREG:=BANCO->(...