FiveTech Software tech support forums

... funcion muy simple que arma un dialogo con un browse y unos botones para las acciones. prove asi: use consorc index consorc1, consorc2 new alias (cAlias) y sacando cAlias := cGetNewAlias( "CONSORC" ) y da el mismo error y si dejo los 2 me muestra el dialogo con el browse y fijate que ...

... * * * function AbmConsor() local napu local aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "CONSORC" ) local oBr, oFont local aGrad := ; { ; { 0.5, RGB( 193, 182, 174 ), RGB( 237, 234, 109 ) }, ; { 0.5, RGB( ...

... "ImpAPag", "Monto", "Pagado" ; COLSIZES -10,-10,-10,-10,-10,-10 OF oDlg ; SIZE 510,289 PIXEL ; JUSTIFY .T. ; ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER

... := "DESCRIÇÃO" oCol:= Lista10:AddCol() oCol:bStrData := { || PLANO->DC} oCol:cHeader := "D/C" Lista10:l2007:=.t. Lista10:cAlias := "PLANO" Lista10:nStretchCol := STRETCHCOL_LAST Lista10:lSeekBar := .T. Lista10:lIncrFilter := .T. Lista10:lSeekWild := .T. Lista10:lAutoSort ...

... // his will change data from the selected rows FOR I = 1 TO LEN(oBRWT2:aSELECTED) // obrw:aSELECTED is an array containing recnos marked (oBrwT2:cAlias)->(dbgoto(oBRWT2:aSELECTED[I])) oBrwT2:&nVeldID:Varput( mem_var ) NEXT

Ahora lo estoy manejando de esta forma DO WHILE ( lForever .OR. ( nSeconds > 0 ) ) If dbUseArea( .T.,, cDatabase, ( cAlias ), lOpenMode, .F. ) RETURN ( .T. ) ENDIF MsgAlert( OemToAnsi( "Archivo " + cFileName( cDatabase ) + " bloqueado por otro Usuario" ), ; ...

... duro y toda anda bien los derechos de usuario en la carpeta tambien. DO WHILE ( lForever .OR. ( nSeconds > 0 ) ) dbUseArea( .T.,, cDatabase, ( cAlias ), lOpenMode, .F. ) IF ! NETERR() RETURN ( .T. ) ENDIF If nIntentos>3 MsgAlert( OemToAnsi( "Archivo " + cFileName( cDatabase ) + ...

... oemtoansi("Vend."),; "Lista",; "IVA",; "CUIT",; oemtoansi("Condici¢n de pago"); ALIAS cAlias AUTOSORT CELL LINES NOBORDER font ofont1 Saludos.

This way it should work: 'salary' => Alltrim(transform( (cAlias)->salary,"@Z 999999.99" ) ) }) look into the console F!2 for ( n = 0; n < data.length; n++) { console.log( parseFloat( data[n].salary ) ); console.log("--"); console.log(parseFloat( ...

Como declaras Lista y los demás Alias? Porquê nos hace? LOCAL cAlias, cAlias2, cAlias3    cAlias   := ALIAS()   cAlias2 := ALIAS()   cAlias3 := ALIAS()  ...REPORT... ... ...ENDREPORT...   ...

... incremental search with TDatabase since it is object based ... and there is no 'like' or 'filter' in traditional DbfCdx .. but there is (::cAlias )->(OrdsetFocus("Fetcha")) .. the use of OrdScope ?? in tDatabase .. Appreciate your help!! Thanks Rick Lipkin

... Case !empty( cLname1 ) .and. Empty( cCid1 ) .and. Empty( cSceis1 ) * oDbf->OrdSetFocus( cLname1 ) * Set Scope to ( cLname1 ) * return ( ::cAlias )->( OrdScope( nScopeType, uValue ) ) * oRsCust:Filter := "[CustomerName] like '"+cLname1+"%'" // this works GREAT using ...

... at first I create the array for the xbrowse aItems := ( oPartres:cAlias )->( FW_DbfToArray( cItemFlds, { || AllTrim( FIELD->INVNUM ) = alltrim(nInvoice) }) ) If I delete a record on xbrowse I use ADel( oBrowse:aArrayData, ...

... "GenPrecio", "SaldoAct" ; COLSIZES-10,-10,-10,-10,-10,-10,-10 OF oDlg ; SIZE 712,285 PIXEL ; JUSTIFY .T. ; ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ; BACKGROUND aGrad VERTICAL y por ultimo como agrego espacios al inicio del contenido de un campo? ejemplo. ...

oDbf := TDatabase():Open(,cAlias)

This syntax is wrong. The DBF is already open.

Correct:

Code: Select all  Expand view

oDbf := TDatabase():New( SELECT( cAlias ) )