FiveTech Software tech support forums

... any database/RDD/browse. [hRec := ] FW_CopyRecord( uSrcTable, [cFieldList] ) FW_EditHash( hRec ) // optional FW_PasteRecord( uDstTable, [hRec], [lAppend] ) These function work across all databases. Source table and destination tables can belong to different databases. Values are pasted to the ...

... instale con el paquete XAMPP no arroja error. Y por lo que veo el error es que quiere cargar de nuevo el primer registro. PROCEDURE DetaCobranza2(lAppend,vTipo1) Public oMatObj:=ARRAY(14), oImpoCta lSave:=.F. If lAppend oQryCob:GetBlankRow(.F.) Else oQryCob:GetRow() EndIf DEFINE DIALOG CobraDlg ...

Ahora mantenimiento     IF lAppend        oRsBan:AddNew()    ENDIF    oRsBan:Fields("BAN_CIA"):Value := oApp:nNumCia    oRsBan:Fields("BAN_BAN"):Value := oBan:BAN    oRsBan:Fields("BAN_NOM"):Value ...

... saved, the edit / append automatically carried to the RowSet automatically. Syntax: oRs:EditBaseRecord( [cFieldsList], // defaults to all fields [lAppend], // defaults to edit current record [bEditDialog], // Programmer's own dialog. Optional [oBrw] ) // In case the rowset is being browsed. bEditDilog: ...

... if index on "DELETED()" is availble by name "DELETED" * Enhanced: function FW_FieldsPut( aFields, aValues, ; nLockWaitSecs, lAppend/nRecNo, bTrigger ) in database.prg 4th param: If logical .T. indicates Append and .F. indicates replace current record. This param can now be ...

... OpenTable(cSql,lLoad,oDataBase) DEFAULT oDataBase:=oDb RETURN TTable():New(cSql,lLoad,oDataBase) CLASS Ttable DATA oDataBase DATA oCursor DATA lAppend INIT .T. DATA aBuffer INIT {} DATA cWhere INIT "" DATA cTable DATA cSql DATA cSqlExec INIT "" METHOD New(cSql,lLoad,oDataBase) ...

... sameway as for Btnbmp's. This enables dynamic popup menus. * New: database.prg: New functions: FW_FieldsPut( caFields, aValues, [nLockWaitSecs], [lAppend] ) --> nRecNo ( 0 if failure) caFields: Single field name/num, List of field names/nums, array of fieldnames/nums If ommitted, all fields ...

... // Page 1... REDEFINE GET aWr[01] VAR Mbookno ID 101 OF oFld:aDialogs[1] ; PICTURE "@!S20" ; VALID ( lPass := WrChk( "BOOK", lAppend, @Mbookno, @Mbookno2, @Mownid, @Mownchk, @Mownname, @Mpcs, @Mtotlbs, @Mtotkgs, Mserial, oDimBox, @Mconsid, @Mconschk, @Mconsname ), _GetRef( ...

Pois é...
Perguntei porque eu faço assim... (para não ter que ´andar´ pela base de dados)

If lAppend
cCod_Agen := space(len(Agen->Cod_Agen))
cNom_Agen := space(len(Agen->Nom_Agen))
Endif

Até mais...
Euclides

Euclides » acho que seja para ser automatico.
eu faço assim ex:

If lAppend
Agen->(DbGoBottom())
Agen->(DbSkip())
Endif
cCod_Agen := Agen->Cod_Agen
cNom_Agen := Agen->Nom_Agen

dessa maneira pega os valores automatico

daniel

cuando uso
:lappend=.t.
:save()

el puntero se queda en el anterior, como si faltara un dbappend(). inserta el registro pero el puntero se queda en el anterior. o sea el ultimo registro es 10, adiciono, se inserta el registro 11 pero el puntero sigue en el 10, una manito plis

Eduardo

... := If( ::lChanged, .T., ::lHasChanged ) EndIf ::oWnd:nLastKey := nKey If oCol:bEditEnd != Nil Eval( oCol:bEditEnd, uValue, Self, .T. ) EndIf ::lAppendMode := oCol:oEdit:lAppend ::lEditing := .F. oCol:oEdit:Hide() oCol:oEdit:End() oCol:oEdit := Nil ::PostEdit( uValue, nCol, bValid ) ::oWnd:bValid ...

... ToolTip "Guardar/Actualizar"; MESSAGE "Guardar / Actualizar Datos"; WHEN (nSALVAR > 1); ACTION ( IIF( oDatos:lAPPEND == .T. ,; (oDbfCONFIG:cfg_codalu := jlconfig->cfg_codalu + 1 ,; oDbfALUM:alu_codigo := oDbfCONFIG:cfg_codalu ,; nCodAlu := oDbfALUM:alu_codigo ...

can use Items numeric and numeric var in Combobox

@145, 10 DBCOMBO oNPOD VAR nNPOD;
items nTAB;
size 35,300 pixel;
list nTAB;
of oDlg update ;
WHEN lAPPEND


where
nNPOD - numeric
nTAB - {1,2,3,4,5}

best regerds
kajot

... 117 OF oMenu ACTION MsgInfo( "PRINT" ) REDEFINE MENUITEM ID 118 OF oMenu ACTION oDlgClient:End() return oMenu function EditClient( oLbx, lAppend ) local oDlg, oFld,oFont, oFont1 Local lSave :=.f. lFivePro = "F" $ Clientes->Productos lDialog = "D" $ Clientes->Productos ...