FiveTech Software tech support forums

... mEmpresa := ALLTRIM(E->Nom_Cli) mUbica1 := ALLTRIM(E->UBICA1)+" "+ALLTRIM(E->UBICA2)+" "+ALLTRIM(E->DESCRIP) MPLAZO3 := E->PLAZO mPlazo := E->PLAZO mFecha := DTOC(E->FEC_INI) mFecha1 := DTOC(E->FEC_FIN) // mFecha3 := E->FEC_INI // mFecha4 ...

... 88: RUBRO RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 0 .T. .T. Indexes in use TagName => RUBRO->DESCRIP RUBTMPIN2 Relations in use 89: => LINEA RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 5 .F. .F. Indexes in use ...

Hola; tengo un reporte y necesito que agrupe los datos, pero que muestre 2 renglones en lo que seria la cabecere de cada grupo. Ej. cuenta descrip debe haber asiento 1, fecha 25/03/2008 concepto: asiento de ventas marzo 110010 cuenta caja 1500 120010 a cuenta banco 500 130010 a cuenta banco ...

... //------------------------------- FUNCTION xxx local oRadio,uGet, nVAR := 1 local xuGet :={|| if(nVar==3,uGet:=0,uGet:=space(len(movprodt->descrip)))} REDEFINE RADIO oRadio VAR nVar ID 103,112,104,105,110,111,113 OF oDlg ON CHANGE EVAL(XUGET) Saludos

Te anexo el ejemplo espero que te sirva REDEFINE XBROWSE oLbx ; COLUMNS "referen", "descrip","present","refabri","um","sto_max","sto_min","Status" ; HEADERS "Referecia", "Descripcion","Presentacion","R.Fabricacion","U.Medida","Stock ...

... ODLG:END() } ) use &empre\CONLIQ index &empre\conliq alias BUSQ shared go top REDEFINE LISTBOX olbx FIELDS BUSQ->CODCPT,BUSQ->DESCRIP ; HEADERS "Concepto","Descripcion" ; FIELDSIZES 80, 200 ; ID 101 OF oDlg ; ON DBLCLICK ( xrta:=BUSQ->CODCPT, xok:=1, ...

... tarda varios minutos en efectuar la busqueda. ¿se les ocurre como hacer esto mas rapido? SET FILTER TO RAT(UPPER(ALLTRIM(XFILTRO)),UPPER(BUSQ->DESCRIP))<>0 XFILTRO lo escribe el usuario, y la accion se ejecuta al apretar un boton; BUSQ es la base que muestro en el listbox. sobre la base ...

... ) nRow ++ oPrnCmp:Say( nRow, 00, PADL(CFECHA(dFecAct,'E')+' '+TIME(),40), nCompress ) nRow ++ oPrnCmp:Say( nRow, 00, 'Cantidad CodigoUniversal Descrip Importe', nCompress ) nRow ++ Select("IFacturas") IF IFacturas->( DbSeek( cCodDoc+cNroSer+'-'+cNroTik ) ) WHILE IFacturas->CARGO=cCodDoc.and.IFacturas->TIKET=cNroSer+'-'+cNroTik ...

... ON MAEPRODT->MODELO FOOTER "TOTAL MODELO" endif COLUMN TITLE "No. DE PARTE"; DATA MAEPRODT->CODIGO; SIZE 16; TOTAL; GRID 2 COLUMN TITLE " DESCRIPCION"; DATA SUBSTR(MAEPRODT->DESCRIP,1,35); SIZE 34; GRID 2 COLUMN TITLE "MODELO "; DATA MAEPRODT->MODELO; SIZE 10; GRID 2 COLUMN TITLE ...

... at 'DBCOMBO'" El codigo es: REDEFINE DBCOMBO oCbx VAR oEnc:Estado ID 1005 OF oDlg; ALIAS oEnc:cAlias ; ITEMSFIELD 'Cod' ; LISTFIELD 'Descrip' ; UPDATE Disculpa la intromision, pero... no seria esto: REDEFINE DBCOMBO oCbx VAR oEnc:Estado ID 1005 OF oDlg; ALIAS oEnc:cAlias ; ITEMFIELD ...

... say "º Detalle Factura º" ; @16,00 say "ÌÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍËÍÍÍÍÍÍÍËÍÍÍÍÍÍ͹"; @17,00 say "º Items º Descripcion Servicio ºNeto $ º Iva $ ºTotal $º"; @18,00 say "ÌÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÎÍÍÍÍÍÍ͹"; @19,00 ...

... oChild, oBrw, oCol, cOldSele:=Select() local n:=0 local cAlias:=cGetNewAlias("CDIAR") local aCampos := {"CTA","SCTA","SSCTA","SSSCTA","SSSSCTA","DESCRIP","DEBE","HABER","CONCEPTO"} local aHeaders:= {"CTA","SCT1","SCT2","SCT3","SCTA4","DESCRIPCION DE LA CUENTA","DEBITOS","CREDITOS","CONCEPTO"} ...

... xSUPER <> 'Y' IF cLEVEL2 = "N" cSQL := "SELECT * from PROJECT order by Projname" ELSE cSQL := "SELECT proj.PROJECTEID, proj.PROJNAME, proj.DESCRIP, proj.START_DATE, proj.END_DATE, "+; "proj.EST_BUDGET, proj.FUNDED, proj.USEREID, proj.PROJMGR, "+; "proj.REPORTING, proj.FREQUENCYEID, proj.FREQUENCY, ...

... try to execute this query, my computer locks up .. any ideas here ?? Rick Lipkin //---------- cSQL := "SELECT proj.PROJECTEID, proj.PROJNAME, proj.DESCRIP, proj.START_DATE, proj.END_DATE, "+; "proj.EST_BUDGET, proj.FUNDED, proj.USEREID, proj.PROJMGR, "+; "proj.REPORTING, proj.FREQUENCYEID, proj.FREQUENCY, ...

Hola., Añade la linea de color


ON LEFT DBLCLICK alm_bajoBuscar(alm_diaBuscar,almacen->descrip); // Al doble click se editar el registro
OF alm_diaBuscar


alm_ListBox:bKeyDown := { |nKey,nFlags|If(nKey=13,alm_bajoBuscar(alm_diaBuscar,almacen->descrip) }


Salu2