FiveTech Software tech support forums

... 1: O Class: TMDIFRAME Local 2: U NIL Local 3: U NIL Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX ADORDD DataBases in use ================ 1: CONCEP RddName: ADORDD ============================== RecNo RecCount BOF EOF 1 57 .F. .F. Indexes in use TagName => CP_CODI CONIND01 Relations in ...

... 1: O Class: TMDIFRAME Local 2: U NIL Local 3: U NIL Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX ADORDD DataBases in use ================ 1: CONCEP RddName: ADORDD ============================== RecNo RecCount BOF EOF 1 57 .F. .F. Indexes in use TagName => CP_CODI CONIND01 Relations in ...

... Function AbmCon(oWnd) ccp_codi:=space(3) ccp_desc:=space(25) ccp_sign:=space(1) ccp_tipo:=space(1) Set deleted on USE "CONCEP" ALIAS Con SHARED NEW If !NetErr() SET INDEX TO "conind01" Else Return NIL EndIf DEFINE ICON oIconAbm RESOURCE "WorkAreas" ...

"TIPO+LTRIM(STR(NUMPOL,5))" should work if TIPO and NUMPOL are field names. Better use expression like this instead of a codeblock. Instead of ALIAS (S08)->(ALIAS()) simply use ALIAS "S08" Hello Nages, sorry my english... Hola Nages, disculpame mi ingles, que no se escribir m...

... *Adel(aDatos2,1,.t.) AADD( aDatos2, { S91->TIPO , ; //Llena datos a elementos S91->NUMPOL , ; S91->FHAMOV , ; S91->REFERE , ; S91->CONCEP , ; S91->SALCARG , ; S91->SALCRED , ; S91->SALDOS } ) ENDIF S91->(DbSkip()) ENDDO ENDIF ENDIF ENDIF oBrw2:SetArray(aDatos2) oBrw2:Refresh() ...

Estoy probando como me aconsejan, quité el "LEFT(A_CONCEP,35)" puse el alias a los campos, y me sigue dando el mismo error de syntaxis... el cosigo quedó asi: REDEFINE XBROWSE oLbxAlmacenes ID 112 OF oDlgTraslado ; ALIAS "FTAlmacenes" ; HEADERS "FL","Co","...

Gracias por responder Jose Luis he puesto este codigo, con recursos, a partir de uno de los ejemplos de \Samples REDEFINE XBROWSE oLbxAlmacenes ID 112 OF oDlgTraslado ; ALIAS "FTAlmacenes" ; HEADERS "Tipo", "Número","Fecha","Concepto","Cargo&qu...

Prueba este campo asi "A_CONCEP", como definistes el xbrowse en tu recurso.? debe ser de tipo custom, verifica y avisa...saludos...

Gracias por responder Jose Luis he puesto este codigo, con recursos, a partir de uno de los ejemplos de \Samples REDEFINE XBROWSE oLbxAlmacenes ID 112 OF oDlgTraslado ; ALIAS "FTAlmacenes" ; HEADERS "Tipo", "Número","Fecha","Concepto","Cargo&quo...

... hBmpText1 USE LB INDEX LB NEW REPORT oReport TITLE "test" ; CAPTION "teat" ; PREVIEW COLUMN TITLE "cod" DATA LB->concep COLUMN TITLE "desc" DATA LB->Descri hBmpText1 = LoadBitmap( GetResources(), aLabBitmap[LB->TIPO] ) COLUMN TITLE "Tipo" ...

I have a simply dbf with 3 field concep c 4 descr c 60 tipo n 1 why I cannot converte it on excel from this command directly ? oApp():oGrid:ToExcel() Error description: Error BASE/2022 Error de argumento: ALLTRIM Args: [ 1] = N 3 Stack Calls ...

... I wanted show any field and not the oGrid:bitmap do case case cKey == 'A' oCol:= oApp():oGrid:AddCol() oCol:bStrData := { || (oDTab)->Concep} // 6 oCol:cHeader := "Codice" oCol:nWidth := 80 oCol:= oApp():oGrid:AddCol() oCol:bStrData := { || (oDTab)->Descri} // 50 oCol:cHeader ...

Nages your sample run ok and I insert it on my application but I have another problem On table dbf I have many field concep Descri TipMov DesCor CtaCon Sueldo Viatic Importe cantidad Bitmap and for the akey "A" I must use only the fields concep Descri whil e for the akey ...

I have a table dbf with I saved some information it have some field as CveTab , Concep, desc, bitmap On Field cveTab I insert only a Caracter and I set an array aKey:={"A","T","G","S"} sample : all records have field CveTab="T" ...

... := A->nomdbf DO WHILE l1_file == A->nomdbf mcampo := ALLTRIM(A->nomcam) mFil_ntx := ALLTRIM(A->nomntx) mConcep := ALLTRIM(A->concep) // mEmpaque := A->empaque SELECT B MSGMETER( { | oMeter, oText, oDlg, lEnd | ; CreaIndex( oMeter, oText, oDlg, @lEnd,mfil_ntx ) },; "Tabla ...