FiveTech Software tech support forums

... ACTION oDlgMa:End() oAceptar:lTransparent = .t. oCancelar:lTransparent = .t. ACTIVATE DIALOG oDlgMa CENTERED if lSave if agrega Materia->(DbAppend()) Materia->Codigo := nCodigo endif Materia->Detalle := cDetalle Materia->Abrevia := cAbrevia Materia->Ramo := nRamo Materia->Costo ...

Solucionado nLen := Len( oSire:jsonPeriodo ) hJson:= oSire:jsonPeriodo If !Empty( nLen ) FOR EACH o IN hJson eje->(DBAppend()) eje->ejercicio := o["numEjercicio"] eje->desestado := o["desEstado"] FOR EACH e IN o["lisPeriodos"] per->(DbAppend()) ...

... new use _ArtFor index _ArtFor1, _ArtFor2 new zap select ArtFor ArtFor->(DbGoTop()) While !ArtFor->(Eof()) select _ArtFor _ArtFor->(DbAppend()) _ArtFor->Articulo := ArtFor->Articulo _ArtFor->Detalle := ArtFor->Detalle _ArtFor->Abrevia := ArtFor->Abrevia _ArtFor->Costo ...

... RollBack with more than one record in the same work area. While programming we need to remember this carefully. 2) RollBack does not work with DBAPPEND(). In real time applications, we need to use some work arounds. We already know the functions: dbCommit() // works on current work area and ...

... is different than target and make some note of it (array for xbrowse for example) 3 write the hash h := FW_RecToHash() select temp //temp->(dbappend()) not in this case // locate correct item and change = No problem FW_HashToRec( h ) select target

... la informacion con la funcion Extrae() cFileXml := op:temp+"xml\"+aDir[a][1] cXml:=MEMOREAD( cFileXml ) && lee xml tmp->( DbAppend()) tmp->voucher := a tmp->orden := "1" tmp->fecha := Extrae("cbc:IssueDate",,.F.,cXml) tmp->vence := Extrae("cbc:IssueDate",,.F.,cXml) ...

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

Buenos dias, El programa se queda colgado, no siempre, solo en algunas ocasiones cuando se ejecuta la funcion dboto   (cAlias)->(dbAppend(lUnLock))   If !NetErr() // Si no hay error      (cAlias)->(dbgoto( (cAlias)->(RECNO())))  ...

... me funciona... Aqui un ejemplo de como quiero grabar los archivos seleccionados en la base de datos. do while !eof() cArchDoc := aFiles dbeseek() dbappend() replace ARCHDOC1 WITH cArchdoc DbSkip() enddo Es un pequeño trozo de codigo... Ya que me manda nil o array.... Gracias Ing. Cristobal. Saludos.

... IF lNew IF (oDCli) -> (DbSeek (cCli)) (ODCli) -> (DbGoBottom ()) CCLI: = StrZero (Val ((oDCli) -> NumCli) +1.4) ENDIF (ODCli) -> (DbAppend ()) (ODCli) - NumCli>: = CCLI (ODCli) -> Priven: = Date () ENDIF IF! Rlock (oDCli) here the other rescues of the other fields It seems ...

... 2. .T.. If set to .t., DBFAPPEND() will always try to recycle deleted records. 3. .F.. If set to .t., DBFAPPEND() does not recycle. Same as DBAPPEND() 4. NIL. If set to NIL, DBFAPPEND() adopts default behavior explained later. Use DBFAPPEND() instead of DBAPPEND() to use this feature. This ...

... recién agregado o reciclado, 0 en caso de error) . Ejemplo de uso: if DBFAPPEND() > 0 // assign values to fields DBUNLOCK() endif en lugar de DBAPPEND() if !NetErr() // assign values ti fields DBUNLOCK() endif - Nueva función: FW_SetRecycleDeleted( uSet ) --> Configuración anterior Valores ...

... (Newly appended or recycled record. 0 on failure) Example usage: if DBFAPPEND() > 0 // assign values to fields DBUNLOCK() endif instead of DBAPPEND() if !NetErr() // assign values ti fields DBUNLOCK() endif - New function FW_SetRecycleDeleted( uSet ) --> Previous setting Possible values ...

... el Codigo que toma Este Tiempo. Sele GENEFAC Seek dtos(cFecha_exa) Do While (Fec_rec=dtoc(cFecha_exa).and.!eof()) Sele b // PasoGral do while .t. Dbappend() If !neterr() repl Nro_bon with a->Nro_bon,Nom_pac with a->Nom_pac Dbcommit() Dbunlock() Exit Else // Do ocupado Endif Enddo Sele d ...

... , .T. ) DBG DbStruct() // gives ID , + , 4 , 0 ? FieldLen("ID") // 4 WHY TRUNCATED TO 4 ????????????????????????? FOR i := 1 TO 10001 DBAPPEND() NEXT ? Recno() , FIELD->ID // 10001 , 10001 FIELD->ID accepts a number with length 5 , DSTRUCT seems to give a wrong result !!! What ...