[QUOTE]ocs wrote
Revin cu o problema pe care nu am reusit sa o rezolv. Ca sa fiu mai explicit de aceasta data, postez toata procedura (test.prg). La rularea acestui program toate articolele adaugate intr-o tabela (miscari.dbf) sunt dublate si nu imi dau seama unde este greseala mea. Daca poate cineva sa ma ajute ii multumesc anticipat !

PUBLIC k,grt,xf

PUBLIC eva

oPB = CREATEOBJECT("PROGRESSBAR","Asteapta..","Caption ",eva)

oPB.Show

FOR xf = 1 TO 100 STEP +.01

IF TYPE('oPB.ButtonCancel')<>'U' THEN &&A fost apasat butonul Anulare?

oPB.counter = xf

ELSE

xf=101

ENDIF

IF TYPE('oPB.ButtonCancel')<>'U' THEN && se testeaza existenta

oPB.Release

DEFINE CLASS "Progressbar" AS "FORM"

ALWAYSONTOP = .T.

AUTOCENTER = .T.

SHOWWINDOW = 2 && Formular Top Level

WINDOWTYPE = 1 && Modal

DRAWMODE = 9

TITLEBAR = 1

CONTROLBOX = .F.

HEIGHT = 183

WIDTH = 294+24

ADD OBJECT "oTxt" AS "TEXTBOX" WITH ;

HEIGHT = 25, LEFT =12, WIDTH = 294, ALIGNMENT = 2, ;

TOP = 96, BACKCOLOR = RGB(255,0,255), ; && albastru

DISABLEDBACKCOLOR = RGB(255,255,255), ; && alb

DISABLEDFORECOLOR = RGB(0,0,0) , ; && verde

ENABLED = .F., FONTBOLD = .T.

ADD OBJECT "olab" as "LABEL" WITH ;

HEIGHT = 25, LEFT =12, WIDTH = 294, ALIGNMENT = 2, ;

TOP = 46, CAPTION = 'Se preiau facturile de intrare', fontsize = 12, FONTBOLD = .T.

ADD OBJECT "oShp" AS "SHAPE" WITH ;

BORDERSTYLE = 0, DRAWMODE = 14, FILLSTYLE = 1, backcolor = RGB(0,0,255)

PARAMETER cCaption, cBarCaption,eva

IF EMPTY(cCaption) THEN

cCaption = ""

ENDIF

IF EMPTY(cBarCaption) THEN

cBarCaption = ""

ENDIF

ThisForm.oshp.Left=ThisForm.oTxt.left+1

ThisForm.oshp.top=thisform.oTxt.top +1

ThisForm.oshp.height=thisform.oTxt.height-2

ThisForm.oshp.Visible = .T.

ThisForm.BorderStyle = 2

ThisForm.Caption = cCaption

ThisForm.BarCaption = cBarCaption

PROCEDURE Counter_assign

LPARAMETERS vNewVal

IF vNewVal <> thisform.counter THEN

IF vNewVal > 100 THEN

vNewVal = 100

ENDIF

ThisForm.Counter = vNewVal

xf = thisform.counter

ThisForm.oShp.width = xf*thisform.oTxt.width/100

ThisForm.oTxt.value = ALLTRIM(STR(xf))+"% "

ThisForm.Refresh

DO WHILE EVA=.F.

sele ff_a

COUNT TO grt

IF MOD(k,int(grt/100)+1)=0

thisform.counter=thisform.counter+EVENIMENT

xf=thisform.counter

ThisForm.oShp.width = (xf*thisform.oTxt.width/100)

ThisForm.oTxt.value = ALLTRIM(STR(xf))+"% "

ThisForm.Refresh

XACTn=ALLT(ACT)+allt(cod)

xact=allt(act)

xnir=VAL(nir)

SELE ff_p

SCAN FOR ALLT(ACT)+allt(cod)=XACTn

xcontm=allt(cod)

xcod=allt(codm)

xpreti=pret

xtva=val(proc_tva)

if xnir>=xnr and xnir<=xnr3

sele miscari

repl codPROD with xcod

repl nrdoc with val(xact)

REPL CANTITATE WITH xcant

REPL TVA WITH XTVA

REPL NRNIR WITH XNIR

REPL PRETINTR WITH XPRETI

REPL UMC1 WITH XUMC

REPL CONTM WITH XCONTM

REPL PRETVANZ WITH XPRETV

REPL VALF WITH XPRET_T+XTVA_T

ENDIF

IF MDOWN() OR CHRSAW() THEN