romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
53d9f1c64ade901ee2deeca7f778bf86c6c840d2
comun/clase/rulaje.vc2

8854 lines
276 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="rulaje.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cus_odata_rulaje AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_rulaje"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
Local lcActiune, lcCant, lcCante, lcId, lcIdGestiune, lcIdJtva, lcProcTVA, lcSql, lcTaxCode
lcActiune = Alltrim(This.cActiune)
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
Return .F.
Endif
IF INLIST(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
*!* lcnom = [gest_nom_grupe]
*!* lc_camp_id = [id_grupe]
*!* lc_copil_lookup = [vgest_coresp_util_grupe]
*!* lc_camp_id_lookup = [id_grupe]
*!* lc_copil_del = [gest_coresp_grupe_gestiuni]
*!* lc_camp_id_del = [id_grupe]
ENDIF
If Inlist(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcIdGestiune = Nvl(Alltrim(STR(toRec.id_gestiune)),'')
lcCant = TRANSFORM(NVL(toRec.cant,0))
lcCante = TRANSFORM(NVL(toRec.cante,0))
lcTaxCode = TRANSFORM(NVL(toRec.taxcode, 'NULL'))
lcIdJtva = TRANSFORM(NVL(toRec.id_jtva_coloana, 'NULL'))
lcProcTVA = TRANSFORM(NVL(toRec.proc_tva,0))
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = []
Case lcActiune = "UPDATE"
lcSql = [UPDATE ] + gcS + [.rul SET id_gestiune = ] + lcIdGestiune + [, cant = ] + lcCant + [, cante = ] + lcCante + ;
[, taxcode = ] + m.lcTaxCode + [, id_jtva_coloana = ] + m.lcIdJtva + [, proc_tva = ] + m.lcProcTVA + ;
[ where id_rul = ] + lcId
Case lcActiune = "DELETE"
lcSql = []
Endcase
This.csql = lcSql
ENDPROC
PROCEDURE salvare
Lparameters toRec,tnId
Private llSucces, lnSucces
llSucces = .T.
lnSucces = -1
lcActiune = Upper(Alltrim(This.cactiune))
lcMesaj = ''
lcTitlu = ''
Do Case
Case lcActiune = "INSERT"
lcMesaj = "Doriti sa adaugati inregistrarea?"
lcTitlu = "Adaugare"
Case lcActiune = "UPDATE"
lcMesaj = "Doriti sa salvati modificarile?"
lcTitlu = "Modificare"
Case lcActiune = "DELETE"
lcMesaj = "Doriti sa stergeti inregistrarea?"
lcTitlu = "Stergere"
ENDCASE
lcimagine = [intreb.ico]
lctip = [Intrebare]
ofrm_intreb = CREATEOBJECT('frm_mesaj',lctitlu,lcimagine,lctip,lcmesaj)
ofrm_intreb.show(1)
RELEASE ofrm_intreb
IF buton = 1
PNIESIRE=1
If This.validare()
This.make_sql(toRec,tnId)
lcSql = Upper(Alltrim(This.csql))
llConditie = 'INSERT'$lcSql Or 'UPDATE'$lcSql Or 'DELETE'$lcSql Or 'BEGIN'$lcSql
If llConditie
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
lcTextEroare = goExecutor.cEroare
Do Case
CASE LIKE('*ORA-20???:*',lcTextEroare)
lnPozi=At("ORA-20",lcTextEroare)+11
lnPozf=At("ORA",lcTextEroare,2)
lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
lcTitlu="Eroare"
*!* Case "ORA-20000"$lcTextEroare
*!* lnPozi=At("ORA-20000",lcTextEroare)+11
*!* lnPozf=At("ORA",lcTextEroare,2)
*!* lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
*!* lcTitlu="Eroare"
*!* Case "ORA-20001"$lcTextEroare
*!* lnPozi=At("ORA-20001",lcTextEroare)+11
*!* lnPozf=At("ORA",lcTextEroare,2)
*!* lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
*!* lcTitlu="Eroare"
Case lcActiune = "INSERT"
lcMesaj = "Inregistrarea nu a fost adaugata." + Chr(13) + Chr(10) + lcTextEroare
lcTitlu = "Adaugare"
Case lcActiune = "UPDATE"
lcMesaj = "Inregistrarea nu a fost modificata." + Chr(13) + Chr(10) + lcTextEroare
lcTitlu = "Modificare"
Case lcActiune = "DELETE"
lcMesaj = "Inregistrarea nu a fost stearsa." + Chr(13) + Chr(10) + lcTextEroare
lcTitlu = "Stergere"
Endcase
lcimagine = [info_c.ico]
lctip = [Informare]
ofrm_info = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
ofrm_info.show(1)
RELEASE ofrm_info
llSucces = .F.
ENDIF
If lnSucces >=1 And lcActiune = "DELETE"
lcTitlu = "Stergere"
lctip = [Informare]
lcimagine = [info_c.ico]
lcMesaj = "Inregistrarea a fost stearsa."
ofrm_mesaj = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
ofrm_mesaj.show(1)
RELEASE ofrm_mesaj
Endif
Endif
Endif
Else
PNIESIRE=2
Endif
Return llSucces
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_rulaje_obinv AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_rulaje_obinv"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
lcActiune = Alltrim(This.cActiune)
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
Return .F.
Endif
IF INLIST(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
*!* lcnom = [gest_nom_grupe]
*!* lc_camp_id = [id_grupe]
*!* lc_copil_lookup = [vgest_coresp_util_grupe]
*!* lc_camp_id_lookup = [id_grupe]
*!* lc_copil_del = [gest_coresp_grupe_gestiuni]
*!* lc_camp_id_del = [id_grupe]
ENDIF
If Inlist(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcIdGestiune = Nvl(Alltrim(STR(toRec.id_gestiune)),'')
lcCant = TRANSFORM(NVL(toRec.cant,0))
lcCante = TRANSFORM(NVL(toRec.cante,0))
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = []
Case lcActiune = "UPDATE"
lcSql = [UPDATE ] + gcS + [.rul_obinv SET id_gestiune = ] + lcIdGestiune + [, cant = ] + lcCant + [, cante = ] + lcCante + [ where id_rul_obinv = ] + lcId
Case lcActiune = "DELETE"
lcSql = []
Endcase
This.csql = lcSql
ENDPROC
PROCEDURE salvare
Lparameters toRec,tnId
Private llSucces, lnSucces
llSucces = .T.
lnSucces = -1
lcActiune = Upper(Alltrim(This.cactiune))
lcMesaj = ''
lcTitlu = ''
Do Case
Case lcActiune = "INSERT"
lcMesaj = "Doriti sa adaugati inregistrarea?"
lcTitlu = "Adaugare"
Case lcActiune = "UPDATE"
lcMesaj = "Doriti sa salvati modificarile?"
lcTitlu = "Modificare"
Case lcActiune = "DELETE"
lcMesaj = "Doriti sa stergeti inregistrarea?"
lcTitlu = "Stergere"
ENDCASE
lcimagine = [intreb.ico]
lctip = [Intrebare]
ofrm_intreb = CREATEOBJECT('frm_mesaj',lctitlu,lcimagine,lctip,lcmesaj)
ofrm_intreb.show(1)
RELEASE ofrm_intreb
IF buton = 1
PNIESIRE=1
If This.validare()
This.make_sql(toRec,tnId)
lcSql = Upper(Alltrim(This.csql))
llConditie = 'INSERT'$lcSql Or 'UPDATE'$lcSql Or 'DELETE'$lcSql Or 'BEGIN'$lcSql
If llConditie
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
lcTextEroare = goExecutor.cEroare
Do Case
CASE LIKE('*ORA-20???:*',lcTextEroare)
lnPozi=At("ORA-20",lcTextEroare)+11
lnPozf=At("ORA",lcTextEroare,2)
lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
lcTitlu="Eroare"
*!* Case "ORA-20000"$lcTextEroare
*!* lnPozi=At("ORA-20000",lcTextEroare)+11
*!* lnPozf=At("ORA",lcTextEroare,2)
*!* lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
*!* lcTitlu="Eroare"
*!* Case "ORA-20001"$lcTextEroare
*!* lnPozi=At("ORA-20001",lcTextEroare)+11
*!* lnPozf=At("ORA",lcTextEroare,2)
*!* lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
*!* lcTitlu="Eroare"
Case lcActiune = "INSERT"
lcMesaj = "Inregistrarea nu a fost adaugata." + Chr(13) + Chr(10) + lcTextEroare
lcTitlu = "Adaugare"
Case lcActiune = "UPDATE"
lcMesaj = "Inregistrarea nu a fost modificata." + Chr(13) + Chr(10) + lcTextEroare
lcTitlu = "Modificare"
Case lcActiune = "DELETE"
lcMesaj = "Inregistrarea nu a fost stearsa." + Chr(13) + Chr(10) + lcTextEroare
lcTitlu = "Stergere"
Endcase
lcimagine = [info_c.ico]
lctip = [Informare]
ofrm_info = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
ofrm_info.show(1)
RELEASE ofrm_info
llSucces = .F.
ENDIF
If lnSucces >=1 And lcActiune = "DELETE"
lcTitlu = "Stergere"
lctip = [Informare]
lcimagine = [info_c.ico]
lcMesaj = "Inregistrarea a fost stearsa."
ofrm_mesaj = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
ofrm_mesaj.show(1)
RELEASE ofrm_mesaj
Endif
Endif
Endif
Else
PNIESIRE=2
Endif
Return llSucces
ENDPROC
ENDDEFINE
DEFINE CLASS frm_rulaje AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="pgframe" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrCrt.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrCrt.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNnir.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNnir.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUM.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPret.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPret.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCant.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCant.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCante.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCante.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCod.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCod.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAcont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAcont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGest.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGest.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCurs.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCurs.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProcent.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProcent.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAdaos.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAdaos.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretv.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretv.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTvav.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTvav.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretvtva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretvtva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProc_tva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProc_tva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtil.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtil.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataora.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataora.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSectie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSectie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDatain.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDatain.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataOut.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataOut.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNresp.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNresp.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGestC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGestC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrespC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrespC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTipRulaj.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTipRulaj.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column34.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column34.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column35.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column35.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGrupa.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGrupa.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNract.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNract.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSubgrupa.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSubgrupa.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtils.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtils.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataoras.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataoras.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNume_val.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNume_val.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column43.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column43.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie_act.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie_act.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmatF.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmatF.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cLot.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cLot.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataExpirare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataExpirare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSucursala.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSucursala.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPart_rez.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPart_rez.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord_rez.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord_rez.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdArticol.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdArticol.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodBare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodBare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFurnizor.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFurnizor.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdFurnizor.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdFurnizor.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodNC8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodNC8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGreutate.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGreutate.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTaraOrigine.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTaraOrigine.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cExplicatieTVA.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cExplicatieTVA.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTaxName.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTaxName.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdSet.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdSet.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFelDoc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFelDoc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAles.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAles.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAles._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdFact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdFact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.cboValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cNrcrt.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cNrcrt.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCodMat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCodMat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cUM.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cPret.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cPret.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCant.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCant.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cValoare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cValoare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTotal.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTotal.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCod.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCod.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cResponsabil.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cResponsabil.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cSerie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cSerie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtDataact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtNract" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtNnir" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtValoare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtFurnizor" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.but_modifica_furnizor" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtSerieAct" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtDataIreg" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtReponsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtLucrare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.txtSectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.but_modifica_responsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.but_modifica_lucrare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.but_modifica_sectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNrcrt.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNrcrt.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDataact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDataact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNract.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNract.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cUM.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cPretv.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cPretv.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cCante.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cCante.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cValoare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cValoare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cResponsabil.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cResponsabil.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cSerie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cSerie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.txtDataact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.txtNnir" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.txtLucrare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.txtSectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.but_modifica_responsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.but_modifica_lucrare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.but_modifica_sectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.txtValoare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.txtReponsabil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Xresize1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="but_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_filtru_tiprulaj" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: calculeazatotaluri
*m: do_listare3
*m: do_listare4
*m: editeaza_antet
*m: modifica_articole
*m: modifica_id_fact
*m: modifica_inregistrare
*m: salveaza_antet
*m: se_modifica_assign
*p: cfiltruinitial
*p: cfiltruinitial_ro
*p: cmonedanationala
*p: cod
*p: cvalutatotal
*p: dataact
*p: dataireg
*p: id_lucrare
*p: id_partener
*p: id_responsabil
*p: id_sectie
*p: lmodificareinregistrare && Modificare inregistrare curenta - dublu click pe un loc liber din pagina 1 si parola AAAALLZZ
*p: lnoua && Specifica daca s-a trecut pe alta inregistrare in rulaje.
*p: lucrare
*p: ncanti && Intoarce cantitate intrari.
*p: ncantie && Intoarce cantitate iesiri.
*p: nidmonedanationala
*p: nidvalutatotal
*p: nnir
*p: nnr_pag
*p: nract
*p: nsumi && Intoarce valoarea intrarilor.
*p: nsumie && Intoarce valoarea iesirilor.
*p: nsumiev
*p: nsumiv
*p: oactoriginal && NULL
*p: partener
*p: responsabil
*p: sectie
*p: serie_act
*p: se_modifica
*p: valoare
*</DefinedPropArrayMethod>
*<PropValue>
cbuton2 = but_listare1;but_listare2
cfiltruinitial =
cfiltruinitial_ro =
cgridsortlist = thisform.pgframe.page1.grdrulaje
cmonedanationala =
cod = 0
cvalutatotal =
dataact = {}
dataireg = {}
DoCreate = .T.
Height = 500
id_lucrare = NULL
id_partener = NULL
id_responsabil = NULL
id_sectie = NULL
lmodificareinregistrare = .F.
lucrare =
Name = "frm_rulaje"
ncanti = 0
ncantie = 0
nidmonedanationala = 0
nidvalutatotal = 0
nnir = 0
nnr_pag = 0
nract = 0
nsumi = 0
nsumie = 0
nsumiev = 0
nsumiv = 0
oactoriginal = .F.
partener =
responsabil =
sectie =
serie_act =
se_modifica = .F.
valoare = 0
Width = 750
WindowState = 2
_shape1.Height = 28
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Tag = "RESIZABLE, NOVERTICAL_RESIZE"
_shape1.Top = 0
_shape1.Width = 756
_shape1.ZOrderSet = 3
_shape2.Height = 29
_shape2.Left = 628
_shape2.Name = "_shape2"
_shape2.Tag = "MOVABLE,NOVERTICAL_MOVE"
_shape2.Top = -1
_shape2.Width = 209
_shape2.ZOrderSet = 4
Lb_titlu_alb_b121.Caption = "RULAJE *"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 31
Lb_titlu_alb_b121.Top = 1
Lb_titlu_alb_b121.ZOrderSet = 5
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 720
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 26
BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE"
BUT_TERMIN1.Top = 0
BUT_TERMIN1.ZOrderSet = 6
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 689, ;
Name = "But_excel1", ;
TabIndex = 27, ;
Top = 0, ;
Visible = .T., ;
ZOrderSet = 8
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 660, ;
Name = "But_listare1", ;
TabIndex = 28, ;
Top = 0, ;
Visible = .T., ;
ZOrderSet = 9
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'but_modifica1' AS but_modifica WITH ;
Anchor = 9, ;
Enabled = .T., ;
Height = 27, ;
Left = 630, ;
Name = "but_modifica1", ;
TabIndex = 29, ;
Top = 0, ;
Width = 29, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
Anchor = 9, ;
Left = 544, ;
Name = "But_reset_criterii1", ;
Top = 0
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
Left = 573, ;
Name = "But_start_criterii1", ;
Top = 0
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'ck_filtru_tiprulaj' AS ck_filtru_nom WITH ;
Alignment = 0, ;
Caption = "Tip rulaj", ;
ctraducere = Tip rulaj este 'INTRARE/IESIRE REALA', ;
filtru = and (id_tip_rulaj=0), ;
Left = 525, ;
Name = "ck_filtru_tiprulaj", ;
Top = 30, ;
Value = 0, ;
Visible = .F.
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
gridexpression = thisform.pgframe.page1.grdrulaje, ;
Height = 17, ;
Left = 287, ;
Name = "Gridextra1", ;
Top = 45, ;
Width = 33
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
Caption = "ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
Left = 6, ;
Name = "Lb_shortcuts1", ;
Top = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'pgframe' AS _pageframe WITH ;
ErasePage = .T., ;
Height = 467, ;
Left = 12, ;
Name = "pgframe", ;
PageCount = 3, ;
TabIndex = 30, ;
TabStyle = 1, ;
Tag = "RESIZABLE", ;
Top = 31, ;
Width = 732, ;
ZOrderSet = 2, ;
Page1.BackColor = 255,255,255, ;
Page1.Caption = "Rulaje", ;
Page1.Name = "Page1", ;
Page2.BackColor = 255,255,255, ;
Page2.Caption = "NIR - Intrari", ;
Page2.Name = "Page2", ;
Page3.BackColor = 255,255,255, ;
Page3.Caption = "Bon - Iesiri", ;
Page3.FontCharSet = 238, ;
Page3.FontSize = 10, ;
Page3.Name = "Page3"
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />
ADD OBJECT 'pgframe.Page1.cboValuta' AS _cbbase WITH ;
Anchor = 9, ;
ControlSource = "thisform.cValutaTotal", ;
Height = 24, ;
Left = 633, ;
Name = "cboValuta", ;
RowSource = "cValuteRulTemp.nume_val", ;
RowSourceType = 2, ;
Top = 41, ;
Width = 73
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'pgframe.Page1.grdrulaje' AS _grdrow WITH ;
ColumnCount = 63, ;
DeleteMark = .F., ;
GridLineColor = 128,128,128, ;
Height = 351, ;
Left = 10, ;
Name = "grdrulaje", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "crsrulX", ;
TabIndex = 1, ;
Tag = "RESIZABLE", ;
Top = 83, ;
Width = 708, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "nrcrt", ;
Column1.FontName = "Arial", ;
Column1.Format = "R", ;
Column1.InputMask = "999 999", ;
Column1.Name = "cNrCrt", ;
Column1.ReadOnly = .T., ;
Column1.Width = 44, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "nnir", ;
Column2.FontName = "Arial", ;
Column2.Name = "cNnir", ;
Column2.ReadOnly = .T., ;
Column2.Width = 97, ;
Column3.ColumnOrder = 7, ;
Column3.ControlSource = "dataact", ;
Column3.FontName = "Arial", ;
Column3.Name = "cDataact", ;
Column3.ReadOnly = .T., ;
Column3.Width = 73, ;
Column4.ColumnOrder = 8, ;
Column4.ControlSource = "codmat", ;
Column4.FontName = "Arial", ;
Column4.Name = "cCodmat", ;
Column4.ReadOnly = .T., ;
Column5.ColumnOrder = 9, ;
Column5.ControlSource = "denumire", ;
Column5.FontName = "Arial", ;
Column5.Name = "cDenumire", ;
Column5.ReadOnly = .T., ;
Column5.Width = 191, ;
Column6.ColumnOrder = 11, ;
Column6.ControlSource = "um", ;
Column6.FontName = "Arial", ;
Column6.Name = "cUM", ;
Column6.ReadOnly = .T., ;
Column6.Width = 39, ;
Column7.ColumnOrder = 14, ;
Column7.ControlSource = "pret", ;
Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column7.FontName = "Arial", ;
Column7.Format = "R", ;
Column7.InputMask = (get_mask(12,gnPPRET)), ;
Column7.Name = "cPret", ;
Column7.ReadOnly = .T., ;
Column7.Width = 78, ;
Column8.ColumnOrder = 15, ;
Column8.ControlSource = "cant", ;
Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
Column8.FontName = "Arial", ;
Column8.Format = "R", ;
Column8.InputMask = (get_mask(12,gnPCANT)), ;
Column8.Name = "cCant", ;
Column8.ReadOnly = .T., ;
Column8.Width = 68, ;
Column9.ColumnOrder = 16, ;
Column9.ControlSource = "cante", ;
Column9.FontName = "Arial", ;
Column9.Format = "R", ;
Column9.InputMask = (get_mask(12,gnPCANT)), ;
Column9.Name = "cCante", ;
Column9.ReadOnly = .T., ;
Column9.Width = 68, ;
Column10.ColumnOrder = 17, ;
Column10.ControlSource = "cont", ;
Column10.FontName = "Arial", ;
Column10.Name = "cCont", ;
Column10.ReadOnly = .T., ;
Column10.Width = 46, ;
Column11.ColumnOrder = 62, ;
Column11.ControlSource = "cod", ;
Column11.FontName = "Arial", ;
Column11.Name = "cCod", ;
Column11.ReadOnly = .T., ;
Column12.ColumnOrder = 18, ;
Column12.ControlSource = "acont", ;
Column12.FontName = "Arial", ;
Column12.Name = "cAcont", ;
Column12.ReadOnly = .T., ;
Column12.Width = 46, ;
Column13.ColumnOrder = 22, ;
Column13.ControlSource = "cgest", ;
Column13.FontName = "Arial", ;
Column13.Name = "cGest", ;
Column13.ReadOnly = .T., ;
Column13.Width = 80, ;
Column14.ColumnOrder = 23, ;
Column14.ControlSource = "nrord", ;
Column14.FontName = "Arial", ;
Column14.Name = "cNrord", ;
Column14.ReadOnly = .T., ;
Column14.Width = 174, ;
Column15.ColumnOrder = 20, ;
Column15.ControlSource = "curs", ;
Column15.FontName = "Arial", ;
Column15.Format = "R", ;
Column15.InputMask = (get_mask(12,gnPcurs)), ;
Column15.Name = "cCurs", ;
Column15.ReadOnly = .T., ;
Column15.Width = 65, ;
Column16.ColumnOrder = 19, ;
Column16.ControlSource = "pretd", ;
Column16.FontName = "Arial", ;
Column16.Format = "R", ;
Column16.InputMask = (get_mask(14,gnPPretVal)), ;
Column16.Name = "cPretd", ;
Column16.ReadOnly = .T., ;
Column16.Width = 69, ;
Column17.ColumnOrder = 24, ;
Column17.ControlSource = "procent", ;
Column17.FontName = "Arial", ;
Column17.Format = "R", ;
Column17.InputMask = "999 999.99", ;
Column17.Name = "cProcent", ;
Column17.ReadOnly = .T., ;
Column17.Width = 50, ;
Column18.ColumnOrder = 25, ;
Column18.ControlSource = "iif(pretv#0,pretv-pret,0)", ;
Column18.FontName = "Arial", ;
Column18.Format = "R", ;
Column18.InputMask = (get_mask(12,gnPPRET)), ;
Column18.Name = "cAdaos", ;
Column18.ReadOnly = .T., ;
Column18.Width = 56, ;
Column19.ColumnOrder = 26, ;
Column19.ControlSource = "tva", ;
Column19.FontName = "Arial", ;
Column19.Format = "R", ;
Column19.InputMask = (get_mask(12,gnPPRET)), ;
Column19.Name = "cTva", ;
Column19.ReadOnly = .T., ;
Column19.Width = 75, ;
Column20.ColumnOrder = 27, ;
Column20.ControlSource = "round((cant+cante)*(pret+tva),gnPc)", ;
Column20.FontName = "Arial", ;
Column20.Format = "R", ;
Column20.InputMask = (get_mask(12,gnPa)), ;
Column20.Name = "cValoare", ;
Column20.ReadOnly = .T., ;
Column20.Width = 93, ;
Column21.ColumnOrder = 29, ;
Column21.ControlSource = "pretv", ;
Column21.FontName = "Arial", ;
Column21.Format = "R", ;
Column21.InputMask = (get_mask(14,gnPPretV)), ;
Column21.Name = "cPretv", ;
Column21.ReadOnly = .T., ;
Column22.ColumnOrder = 30, ;
Column22.ControlSource = "tvav", ;
Column22.FontName = "Arial", ;
Column22.Format = "R", ;
Column22.InputMask = (get_mask(14,gnPPretV)), ;
Column22.Name = "cTvav", ;
Column22.ReadOnly = .T., ;
Column22.Width = 109, ;
Column23.ColumnOrder = 31, ;
Column23.ControlSource = "pretv+tvav", ;
Column23.FontName = "Arial", ;
Column23.Format = "R", ;
Column23.InputMask = (get_mask(14,gnPPretV)), ;
Column23.Name = "cPretvtva", ;
Column23.ReadOnly = .T., ;
Column23.Width = 111, ;
Column24.ColumnOrder = 32, ;
Column24.ControlSource = "proc_tvav", ;
Column24.FontName = "Arial", ;
Column24.Format = "R", ;
Column24.InputMask = "9.99", ;
Column24.Name = "cProc_tva", ;
Column24.ReadOnly = .T., ;
Column24.Width = 54, ;
Column25.ColumnOrder = 49, ;
Column25.ControlSource = "util", ;
Column25.FontName = "Arial", ;
Column25.Name = "cUtil", ;
Column25.ReadOnly = .T., ;
Column25.Width = 117, ;
Column26.ColumnOrder = 50, ;
Column26.ControlSource = "dataora", ;
Column26.FontName = "Arial", ;
Column26.Name = "cDataora", ;
Column26.ReadOnly = .T., ;
Column26.Width = 112, ;
Column27.ColumnOrder = 33, ;
Column27.ControlSource = "sectie", ;
Column27.FontName = "Arial", ;
Column27.Name = "cSectie", ;
Column27.ReadOnly = .T., ;
Column27.Width = 127, ;
Column28.ColumnOrder = 34, ;
Column28.ControlSource = "datain", ;
Column28.FontName = "Arial", ;
Column28.Name = "cDatain", ;
Column28.ReadOnly = .T., ;
Column28.Width = 96, ;
Column29.ColumnOrder = 35, ;
Column29.ControlSource = "dataout", ;
Column29.FontName = "Arial", ;
Column29.Name = "cDataOut", ;
Column29.ReadOnly = .T., ;
Column29.Width = 95, ;
Column30.ColumnOrder = 36, ;
Column30.ControlSource = "nresp", ;
Column30.FontName = "Arial", ;
Column30.Name = "cNresp", ;
Column30.ReadOnly = .T., ;
Column30.Width = 137, ;
Column31.ColumnOrder = 37, ;
Column31.ControlSource = "cgestc", ;
Column31.FontName = "Arial", ;
Column31.Name = "cGestC", ;
Column31.ReadOnly = .T., ;
Column31.Width = 127, ;
Column32.ColumnOrder = 38, ;
Column32.ControlSource = "nrespc", ;
Column32.FontName = "Arial", ;
Column32.Name = "cNrespC", ;
Column32.ReadOnly = .T., ;
Column32.Width = 126, ;
Column33.ColumnOrder = 46, ;
Column33.ControlSource = "tip_rulaj", ;
Column33.FontName = "Arial", ;
Column33.Name = "cTipRulaj", ;
Column33.ReadOnly = .T., ;
Column33.Width = 164, ;
Column34.ColumnOrder = 12, ;
Column34.ControlSource = "cant_bax", ;
Column34.FontName = "Arial", ;
Column34.Name = "Column34", ;
Column34.ReadOnly = .T., ;
Column34.Width = 41, ;
Column35.ColumnOrder = 13, ;
Column35.ControlSource = "um2", ;
Column35.FontName = "Arial", ;
Column35.Name = "Column35", ;
Column35.ReadOnly = .T., ;
Column35.Width = 35, ;
Column36.ColumnOrder = 39, ;
Column36.ControlSource = "grupa", ;
Column36.FontName = "Arial", ;
Column36.Name = "cGrupa", ;
Column36.ReadOnly = .T., ;
Column36.Width = 116, ;
Column37.ColumnOrder = 6, ;
Column37.ControlSource = "nract", ;
Column37.FontName = "Arial", ;
Column37.Name = "cNract", ;
Column37.ReadOnly = .T., ;
Column37.Width = 76, ;
Column38.ColumnOrder = 40, ;
Column38.ControlSource = "subgrupa", ;
Column38.FontName = "Arial", ;
Column38.Name = "cSubgrupa", ;
Column38.ReadOnly = .T., ;
Column38.Width = 114, ;
Column39.ColumnOrder = 51, ;
Column39.ControlSource = "utils", ;
Column39.FontName = "Arial", ;
Column39.Name = "cUtils", ;
Column39.ReadOnly = .T., ;
Column39.Width = 100, ;
Column40.ColumnOrder = 52, ;
Column40.ControlSource = "dataoras", ;
Column40.FontName = "Arial", ;
Column40.Name = "cDataoras", ;
Column40.ReadOnly = .T., ;
Column40.Width = 105, ;
Column41.ColumnOrder = 10, ;
Column41.ControlSource = "serie", ;
Column41.FontName = "Arial", ;
Column41.Name = "cSerie", ;
Column41.ReadOnly = .T., ;
Column41.Width = 122, ;
Column42.ColumnOrder = 21, ;
Column42.ControlSource = "nume_val", ;
Column42.FontName = "Arial", ;
Column42.Name = "cNume_val", ;
Column42.ReadOnly = .T., ;
Column42.Width = 52, ;
Column43.ColumnOrder = 28, ;
Column43.ControlSource = "round((cant+cante)*(pretd),gnPval)", ;
Column43.FontName = "Arial", ;
Column43.Name = "Column43", ;
Column43.ReadOnly = .T., ;
Column44.ColumnOrder = 5, ;
Column44.ControlSource = "serie_act", ;
Column44.FontName = "Arial", ;
Column44.Name = "cSerie_act", ;
Column44.ReadOnly = .T., ;
Column44.Width = 56, ;
Column45.ColumnOrder = 41, ;
Column45.ControlSource = "codmatf", ;
Column45.FontName = "Arial", ;
Column45.Name = "cCodmatF", ;
Column45.ReadOnly = .T., ;
Column46.ColumnOrder = 42, ;
Column46.ControlSource = "lot", ;
Column46.FontName = "Arial", ;
Column46.Name = "cLot", ;
Column46.ReadOnly = .T., ;
Column47.ColumnOrder = 43, ;
Column47.ControlSource = "adata_expirare", ;
Column47.FontName = "Arial", ;
Column47.Name = "cDataExpirare", ;
Column47.ReadOnly = .T., ;
Column47.Width = 125, ;
Column48.ColumnOrder = 48, ;
Column48.ControlSource = "sucursala", ;
Column48.FontName = "Arial", ;
Column48.Name = "cSucursala", ;
Column48.ReadOnly = .T., ;
Column48.Width = 146, ;
Column49.ColumnOrder = 44, ;
Column49.ControlSource = "part_rez", ;
Column49.FontName = "Arial", ;
Column49.Name = "cPart_rez", ;
Column49.ReadOnly = .T., ;
Column49.Width = 117, ;
Column50.ColumnOrder = 45, ;
Column50.ControlSource = "nrord_rez", ;
Column50.FontName = "Arial", ;
Column50.Name = "cNrord_rez", ;
Column50.ReadOnly = .T., ;
Column50.Width = 120, ;
Column51.ColumnOrder = 53, ;
Column51.ControlSource = "id_articol", ;
Column51.FontName = "Arial", ;
Column51.Name = "cIdArticol", ;
Column51.ReadOnly = .T., ;
Column51.Width = 96, ;
Column52.ColumnOrder = 54, ;
Column52.ControlSource = "codbare", ;
Column52.FontName = "Arial", ;
Column52.Name = "cCodBare", ;
Column52.ReadOnly = .T., ;
Column52.Width = 130, ;
Column53.ColumnOrder = 55, ;
Column53.ControlSource = "furnizor", ;
Column53.FontName = "Arial", ;
Column53.Name = "cFurnizor", ;
Column53.ReadOnly = .T., ;
Column53.Width = 186, ;
Column54.ColumnOrder = 56, ;
Column54.ControlSource = "id_furnizor", ;
Column54.FontName = "Arial", ;
Column54.Name = "cIdFurnizor", ;
Column54.ReadOnly = .T., ;
Column55.ColumnOrder = 57, ;
Column55.ControlSource = "codnc8", ;
Column55.Name = "cCodNC8", ;
Column55.ReadOnly = .T., ;
Column55.Width = 159, ;
Column56.ColumnOrder = 58, ;
Column56.ControlSource = "greutate", ;
Column56.Name = "cGreutate", ;
Column56.ReadOnly = .T., ;
Column57.ColumnOrder = 59, ;
Column57.ControlSource = "tara_origine", ;
Column57.Name = "cTaraOrigine", ;
Column57.ReadOnly = .T., ;
Column57.Width = 167, ;
Column58.ColumnOrder = 60, ;
Column58.ControlSource = "explicatie_tva", ;
Column58.Name = "cExplicatieTVA", ;
Column58.ReadOnly = .T., ;
Column58.Width = 146, ;
Column59.ColumnOrder = 61, ;
Column59.ControlSource = "taxname", ;
Column59.Name = "cTaxName", ;
Column59.ReadOnly = .T., ;
Column59.Width = 156, ;
Column60.ColumnOrder = 47, ;
Column60.ControlSource = "id_set", ;
Column60.Name = "cIdSet", ;
Column60.ReadOnly = .T., ;
Column60.Width = 78, ;
Column61.ColumnOrder = 4, ;
Column61.ControlSource = "fdoc", ;
Column61.Name = "cFelDoc", ;
Column61.ReadOnly = .T., ;
Column61.Width = 99, ;
Column62.ColumnOrder = 1, ;
Column62.ControlSource = "ales", ;
Column62.CurrentControl = "_checkbox1", ;
Column62.Name = "cAles", ;
Column62.ReadOnly = .F., ;
Column62.Sparse = .F., ;
Column62.Width = 28, ;
Column63.ColumnOrder = 63, ;
Column63.ControlSource = "id_fact", ;
Column63.Name = "cIdFact", ;
Column63.ReadOnly = .T.
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAcont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAcont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAdaos.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Adaos", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAdaos.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAles._checkbox1' AS _checkbox WITH ;
Alignment = 2, ;
Caption = "", ;
Left = 18, ;
Name = "_checkbox1", ;
ReadOnly = .F., ;
Top = 59
*< END OBJECT: ClassLib="..\..\..\roacont\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAles.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Ales", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAles.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCant.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Intrari", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCant.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCante.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Iesiri", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCante.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCod.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCod.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodBare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod bare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodBare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod material", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmatF.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod furnizor", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmatF.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodNC8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod NC8", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodNC8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCurs.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs valutar", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCurs.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataExpirare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data expirare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataExpirare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDatain.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data intrare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDatain.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataora.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora introducerii", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataora.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataoras.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data / ora stergerii", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataoras.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataOut.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data iesire", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataOut.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cExplicatieTVA.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie TVA", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cExplicatieTVA.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cFelDoc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cFelDoc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cFurnizor.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Furnizor", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cFurnizor.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGest.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiunea", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGest.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGestC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune C", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGestC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGreutate.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Greutate (Kg)", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGreutate.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGrupa.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Grupa", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGrupa.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdArticol.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id articol", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdArticol.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdFact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id Fact", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdFact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdFurnizor.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id furnizor", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdFurnizor.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdSet.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip operatie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdSet.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cLot.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lot", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cLot.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNnir.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. NIR/Bon", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNnir.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNract.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.act", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNract.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrCrt.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.crt.", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrCrt.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNresp.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNresp.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrespC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil C", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrespC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare/Comanda", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord_rez.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare rez.", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord_rez.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNume_val.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNume_val.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column34.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cant 2", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column34.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column35.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM 2", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column35.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column43.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column43.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPart_rez.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Part. rez.", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPart_rez.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPret.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPret.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret in valuta", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretv.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret vanzare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretv.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretvtva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret vanzare cu TVA", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretvtva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cProc_tva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cota TVA", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cProc_tva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cProcent.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cProcent.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSectie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSectie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie_act.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie act", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie_act.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSubgrupa.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Subgrupa", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSubgrupa.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSucursala.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSucursala.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTaraOrigine.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tara origine", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTaraOrigine.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTaxName.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Taxa SAFT", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTaxName.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTipRulaj.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip rulaj", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTipRulaj.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA achizitie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTvav.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA vanzare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTvav.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUM.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUtil.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator introducere", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUtil.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUtils.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Utilizator stergere", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUtils.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cValoare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare achizitie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cValoare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Label1' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Cantitate intrari", ;
Height = 18, ;
Left = 11, ;
Name = "Label1", ;
TabIndex = 9, ;
Top = 17, ;
Width = 90, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label2' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Cantitate iesiri", ;
Height = 18, ;
Left = 11, ;
Name = "Label2", ;
TabIndex = 8, ;
Top = 46, ;
Width = 85, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label3' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Val. intrari fara TVA", ;
Height = 34, ;
Left = 218, ;
Name = "Label3", ;
TabIndex = 10, ;
Top = 10, ;
Width = 60, ;
WordWrap = .T., ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label4' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Val. iesiri fara TVA", ;
Height = 34, ;
Left = 218, ;
Name = "Label4", ;
TabIndex = 11, ;
Top = 39, ;
Width = 55, ;
WordWrap = .T., ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label5' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Valuta", ;
Height = 18, ;
Left = 633, ;
Name = "Label5", ;
TabIndex = 10, ;
Top = 17, ;
Width = 39, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label6' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Val. vz. iesiri cu TVA", ;
Height = 34, ;
Left = 421, ;
Name = "Label6", ;
TabIndex = 11, ;
Top = 39, ;
Width = 75, ;
WordWrap = .T., ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label7' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Val. vz .intrari cu TVA", ;
Height = 34, ;
Left = 421, ;
Name = "Label7", ;
TabIndex = 10, ;
Top = 10, ;
Width = 80, ;
WordWrap = .T., ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Shape1' AS shape WITH ;
Anchor = 9, ;
BackColor = 255,255,255, ;
Height = 69, ;
Left = 9, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 8, ;
Width = 709, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'pgframe.Page1.Text1' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.ncanti", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPCANT)), ;
Left = 103, ;
Name = "Text1", ;
ReadOnly = .T., ;
TabIndex = 4, ;
TabStop = .F., ;
Top = 14, ;
Width = 110, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Text2' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.ncantie", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPCANT)), ;
Left = 103, ;
Name = "Text2", ;
ReadOnly = .T., ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 42, ;
Width = 110, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Text3' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nsumi", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 293, ;
Name = "Text3", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 14, ;
Width = 120, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Text4' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nsumie", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 293, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 42, ;
Width = 120, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Text5' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nsumiv", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 506, ;
Name = "Text5", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 14, ;
Width = 120, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Text6' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nsumiev", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 506, ;
Name = "Text6", ;
ReadOnly = .T., ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 42, ;
Width = 120, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.but_modifica_furnizor' AS but_modifica WITH ;
Anchor = 0, ;
Height = 27, ;
Left = 688, ;
Name = "but_modifica_furnizor", ;
TabIndex = 29, ;
Top = 8, ;
Width = 29, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pgframe.Page2.but_modifica_lucrare' AS but_modifica WITH ;
Anchor = 0, ;
Height = 27, ;
Left = 688, ;
Name = "but_modifica_lucrare", ;
TabIndex = 29, ;
Top = 60, ;
Width = 29, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pgframe.Page2.but_modifica_responsabil' AS but_modifica WITH ;
Anchor = 0, ;
Height = 27, ;
Left = 688, ;
Name = "but_modifica_responsabil", ;
TabIndex = 29, ;
Top = 34, ;
Width = 29, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pgframe.Page2.but_modifica_sectie' AS but_modifica WITH ;
Anchor = 0, ;
Height = 27, ;
Left = 688, ;
Name = "but_modifica_sectie", ;
TabIndex = 29, ;
Top = 86, ;
Width = 29, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pgframe.Page2.grdnir' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 12, ;
DeleteMark = .F., ;
GridLineColor = 128,128,128, ;
Height = 308, ;
Left = 11, ;
Name = "grdnir", ;
Panel = 1, ;
RecordSource = "crsnir", ;
TabIndex = 3, ;
Tag = "RESIZABLE", ;
Top = 121, ;
Width = 708, ;
Column1.ControlSource = "nrcrt", ;
Column1.FontName = "Arial", ;
Column1.Name = "cNrcrt", ;
Column1.Width = 44, ;
Column2.ControlSource = "codmat", ;
Column2.FontName = "Arial", ;
Column2.Name = "cCodMat", ;
Column2.Width = 76, ;
Column3.ControlSource = "denumire", ;
Column3.FontName = "Arial", ;
Column3.Name = "cDenumire", ;
Column3.Width = 156, ;
Column4.ColumnOrder = 5, ;
Column4.ControlSource = "um", ;
Column4.FontName = "Arial", ;
Column4.Name = "cUM", ;
Column4.Width = 39, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "pret", ;
Column5.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column5.FontName = "Arial", ;
Column5.Format = "R", ;
Column5.InputMask = (get_mask(12,gnPpret)), ;
Column5.Name = "cPret", ;
Column5.Width = 70, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "cant", ;
Column6.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column6.FontName = "Arial", ;
Column6.Format = "R", ;
Column6.InputMask = (get_mask(12,gnPcant)), ;
Column6.Name = "cCant", ;
Column6.Width = 68, ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "round(pret*cant,gnPc)", ;
Column7.FontName = "Arial", ;
Column7.Format = "R", ;
Column7.InputMask = (get_mask(12,gnPA)), ;
Column7.Name = "cValoare", ;
Column8.ColumnOrder = 9, ;
Column8.ControlSource = "round(tva*cant,gnPc)", ;
Column8.FontName = "Arial", ;
Column8.Format = "R", ;
Column8.InputMask = (get_mask(12,gnPA)), ;
Column8.Name = "cTva", ;
Column8.Width = 55, ;
Column9.ColumnOrder = 10, ;
Column9.ControlSource = "round(cant*(pret+tva),gnPc)", ;
Column9.FontName = "Arial", ;
Column9.Format = "R", ;
Column9.InputMask = (get_mask(12,gnPA)), ;
Column9.Name = "cTotal", ;
Column9.Width = 83, ;
Column10.ColumnOrder = 12, ;
Column10.ControlSource = "cod", ;
Column10.FontName = "Arial", ;
Column10.Name = "cCod", ;
Column11.ColumnOrder = 11, ;
Column11.FontName = "Arial", ;
Column11.Name = "cResponsabil", ;
Column11.Width = 120, ;
Column12.ColumnOrder = 4, ;
Column12.ControlSource = "serie", ;
Column12.FontName = "Arial", ;
Column12.Name = "cSerie", ;
Column12.Width = 86
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'pgframe.Page2.grdnir.cCant.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Intrari", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cCant.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cCod.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cCod.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cCodMat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod material", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cCodMat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cNrcrt.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.crt.", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cNrcrt.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cPret.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret achizitie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cPret.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cResponsabil.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cResponsabil.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cSerie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cSerie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cTotal.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total achizitie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cTotal.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cTva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cUM.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cValoare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cValoare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.Label1' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Factura seria", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label1", ;
TabIndex = 12, ;
Top = 14, ;
Width = 85, ;
ZOrderSet = 7
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label10' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Sectie", ;
FontBold = .T., ;
Height = 18, ;
Left = 482, ;
Name = "Label10", ;
TabIndex = 10, ;
Top = 91, ;
Width = 42, ;
ZOrderSet = 17
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label2' AS _label WITH ;
Alignment = 2, ;
AutoSize = .F., ;
BackColor = 255,255,255, ;
Caption = "/", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 17, ;
Left = 304, ;
Name = "Label2", ;
TabIndex = 13, ;
Top = 15, ;
Width = 11, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label3' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Valoare NIR", ;
FontBold = .T., ;
Height = 18, ;
Left = 12, ;
Name = "Label3", ;
TabIndex = 10, ;
Top = 66, ;
Width = 78, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label4' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "NIR nr.", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Label4", ;
TabIndex = 9, ;
Top = 40, ;
Width = 45, ;
ZOrderSet = 5
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label5' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Furnizor", ;
FontBold = .T., ;
Height = 18, ;
Left = 469, ;
Name = "Label5", ;
TabIndex = 10, ;
Top = 13, ;
Width = 55, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label6' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "nr.", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 167, ;
Name = "Label6", ;
TabIndex = 12, ;
Top = 14, ;
Width = 19, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label7' AS _label WITH ;
Alignment = 2, ;
AutoSize = .F., ;
BackColor = 255,255,255, ;
Caption = "/", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 17, ;
Left = 303, ;
Name = "Label7", ;
TabIndex = 13, ;
Top = 41, ;
Width = 11, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label8' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Responsabil", ;
FontBold = .T., ;
Height = 18, ;
Left = 445, ;
Name = "Label8", ;
TabIndex = 10, ;
Top = 39, ;
Width = 79, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label9' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Lucrare", ;
FontBold = .T., ;
Height = 18, ;
Left = 473, ;
Name = "Label9", ;
TabIndex = 10, ;
Top = 65, ;
Width = 51, ;
ZOrderSet = 17
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.txtDataact' AS _textbox WITH ;
Alignment = 2, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.dataact", ;
FontName = "Arial", ;
Height = 23, ;
Left = 314, ;
Name = "txtDataact", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 8, ;
TabStop = .F., ;
Top = 12, ;
Value = ({}), ;
Width = 112, ;
ZOrderSet = 2
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtDataIreg' AS _textbox WITH ;
Alignment = 2, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.dataireg", ;
FontName = "Arial", ;
Height = 23, ;
Left = 314, ;
Name = "txtDataIreg", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 8, ;
TabStop = .F., ;
Top = 38, ;
Value = ({}), ;
Width = 112, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtFurnizor' AS _textbox WITH ;
BackColor = 255,255,255, ;
ControlSource = "thisform.partener", ;
FontName = "Arial", ;
Height = 23, ;
Left = 530, ;
Name = "txtFurnizor", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 10, ;
Width = 151, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtLucrare' AS _textbox WITH ;
BackColor = 255,255,255, ;
ControlSource = "thisform.lucrare", ;
FontName = "Arial", ;
Height = 23, ;
Left = 530, ;
Name = "txtLucrare", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 62, ;
Width = 151, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtNnir' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nnir", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = "999 999 999 999", ;
Left = 192, ;
Name = "txtNnir", ;
ReadOnly = .T., ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 38, ;
Value = 0, ;
Width = 112, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtNract' AS _textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nract", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = "999 999 999 999", ;
Left = 192, ;
Name = "txtNract", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 12, ;
Value = 0, ;
Visible = .T., ;
Width = 112, ;
ZOrderSet = 3
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtReponsabil' AS _textbox WITH ;
BackColor = 255,255,255, ;
ControlSource = "thisform.responsabil", ;
FontName = "Arial", ;
Height = 23, ;
Left = 530, ;
Name = "txtReponsabil", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 36, ;
Width = 151, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtSectie' AS _textbox WITH ;
BackColor = 255,255,255, ;
ControlSource = "thisform.sectie", ;
FontName = "Arial", ;
Height = 23, ;
Left = 530, ;
Name = "txtSectie", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 88, ;
Width = 151, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtSerieAct' AS _textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.serie_act", ;
FontName = "Arial", ;
Height = 23, ;
Left = 101, ;
Name = "txtSerieAct", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 12, ;
Value = 0, ;
Visible = .T., ;
Width = 64, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.txtValoare' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.valoare", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 192, ;
Name = "txtValoare", ;
ReadOnly = .T., ;
TabIndex = 4, ;
TabStop = .F., ;
Top = 63, ;
Value = 0, ;
Visible = .T., ;
Width = 112, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.but_modifica_lucrare' AS but_modifica WITH ;
Height = 27, ;
Left = 653, ;
Name = "but_modifica_lucrare", ;
TabIndex = 29, ;
Top = 42, ;
Width = 29, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pgframe.Page3.but_modifica_responsabil' AS but_modifica WITH ;
Height = 27, ;
Left = 653, ;
Name = "but_modifica_responsabil", ;
TabIndex = 29, ;
Top = 16, ;
Width = 29, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pgframe.Page3.but_modifica_sectie' AS but_modifica WITH ;
Height = 27, ;
Left = 653, ;
Name = "but_modifica_sectie", ;
TabIndex = 29, ;
Top = 68, ;
Width = 29, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pgframe.Page3.grdbon' AS _grdrow WITH ;
ColumnCount = 10, ;
DeleteMark = .F., ;
GridLineColor = 128,128,128, ;
Height = 326, ;
Left = 11, ;
Name = "grdbon", ;
Panel = 1, ;
RecordSource = "crsbon", ;
TabIndex = 3, ;
Tag = "RESIZABLE", ;
Top = 101, ;
Width = 708, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "nrcrt", ;
Column1.FontName = "Arial", ;
Column1.Name = "cNrcrt", ;
Column1.Width = 44, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "dataact", ;
Column2.FontName = "Arial", ;
Column2.Name = "cDataact", ;
Column2.Width = 60, ;
Column3.ControlSource = "nnir", ;
Column3.FontName = "Arial", ;
Column3.Name = "cNract", ;
Column3.Width = 65, ;
Column4.ControlSource = "denumire", ;
Column4.FontName = "Arial", ;
Column4.Name = "cDenumire", ;
Column4.Width = 156, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "um", ;
Column5.FontName = "Arial", ;
Column5.Name = "cUM", ;
Column5.Width = 39, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "pretv", ;
Column6.DynamicForeColor = "IIF(pretv>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column6.FontName = "Arial", ;
Column6.Format = "R", ;
Column6.InputMask = (get_mask(14,gnPPretV)), ;
Column6.Name = "cPretv", ;
Column6.Width = 100, ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "cante", ;
Column7.DynamicForeColor = "IIF(cante>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column7.FontName = "Arial", ;
Column7.Format = "R", ;
Column7.InputMask = (get_mask(12,gnPcant)), ;
Column7.Name = "cCante", ;
Column7.Width = 90, ;
Column8.ColumnOrder = 9, ;
Column8.ControlSource = "round(cante*pretv,gnPc)", ;
Column8.FontName = "Arial", ;
Column8.Format = "R", ;
Column8.InputMask = (get_mask(12,gnPA)), ;
Column8.Name = "cValoare", ;
Column8.Width = 110, ;
Column9.ColumnOrder = 10, ;
Column9.ControlSource = "nresp", ;
Column9.FontName = "Arial", ;
Column9.Name = "cResponsabil", ;
Column9.Width = 106, ;
Column10.ColumnOrder = 5, ;
Column10.ControlSource = "serie", ;
Column10.FontName = "Arial", ;
Column10.Name = "cSerie", ;
Column10.Width = 86
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'pgframe.Page3.grdbon.cCante.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Iesiri", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cCante.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cDataact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cDataact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cNract.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. act", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cNract.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cNrcrt.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.crt.", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cNrcrt.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cPretv.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cPretv.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cResponsabil.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cResponsabil.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cSerie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cSerie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cUM.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cValoare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cValoare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.Label1' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Bon nr.", ;
FontBold = .T., ;
Height = 18, ;
Left = 18, ;
Name = "Label1", ;
TabIndex = 12, ;
Top = 18, ;
Width = 48, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label10' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Sectie", ;
FontBold = .T., ;
Height = 18, ;
Left = 397, ;
Name = "Label10", ;
TabIndex = 10, ;
Top = 71, ;
Width = 42, ;
ZOrderSet = 17
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label2' AS _label WITH ;
Alignment = 2, ;
AutoSize = .F., ;
BackColor = 255,255,255, ;
Caption = "/", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 17, ;
Left = 213, ;
Name = "Label2", ;
TabIndex = 13, ;
Top = 18, ;
Width = 11, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label3' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Valoare bon", ;
Height = 18, ;
Left = 18, ;
Name = "Label3", ;
TabIndex = 9, ;
Top = 72, ;
Visible = .T., ;
Width = 71, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label4' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Destinatie", ;
Height = 18, ;
Left = 18, ;
Name = "Label4", ;
TabIndex = 10, ;
Top = 45, ;
Width = 60, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label8' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Responsabil", ;
FontBold = .T., ;
Height = 18, ;
Left = 360, ;
Name = "Label8", ;
TabIndex = 10, ;
Top = 19, ;
Width = 79, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label9' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Lucrare", ;
FontBold = .T., ;
Height = 18, ;
Left = 388, ;
Name = "Label9", ;
TabIndex = 10, ;
Top = 45, ;
Width = 51, ;
ZOrderSet = 17
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Text4' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Height = 23, ;
Left = 96, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 43, ;
Width = 215, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.txtDataact' AS _textbox WITH ;
Alignment = 2, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.dataact", ;
FontName = "Arial", ;
Height = 23, ;
Left = 224, ;
Name = "txtDataact", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 8, ;
TabStop = .F., ;
Top = 15, ;
Value = ({}), ;
Width = 87
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.txtLucrare' AS _textbox WITH ;
BackColor = 255,255,255, ;
ControlSource = "thisform.lucrare", ;
FontName = "Arial", ;
Height = 23, ;
Left = 446, ;
Name = "txtLucrare", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 42, ;
Width = 206, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.txtNnir' AS _textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nnir", ;
FontName = "Arial", ;
Height = 23, ;
InputMask = "999 999 999 999", ;
Left = 96, ;
Name = "txtNnir", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 15, ;
Value = 0, ;
Visible = .T., ;
Width = 112
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.txtReponsabil' AS _textbox WITH ;
BackColor = 255,255,255, ;
ControlSource = "thisform.responsabil", ;
FontName = "Arial", ;
Height = 23, ;
Left = 446, ;
Name = "txtReponsabil", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 16, ;
Width = 206, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.txtSectie' AS _textbox WITH ;
BackColor = 255,255,255, ;
ControlSource = "thisform.sectie", ;
FontName = "Arial", ;
Height = 23, ;
Left = 446, ;
Name = "txtSectie", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 68, ;
Width = 206, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.txtValoare' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.valoare", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 96, ;
Name = "txtValoare", ;
ReadOnly = .T., ;
TabIndex = 4, ;
TabStop = .F., ;
Top = 69, ;
Value = 0, ;
Visible = .T., ;
Width = 112, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'Xresize1' AS xresize WITH ;
Left = 732, ;
Name = "Xresize1", ;
Top = 48
*< END OBJECT: ClassLib="xresize.vcx" BaseClass="custom" />
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru
lcFiltru=tcFiltru
If Empty(lcFiltru)
lcFiltru=porulaje.ca_baza1.cfiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform.pgframe.page1.grdrulaje)
porulaje.ca_baza1.cfiltru=lcFiltru
porulaje.ca_baza1.afisare()
restore_grid_tag(Thisform.pgframe.page1.grdrulaje)
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
this.CalculeazaTotaluri(.T.)
Thisform.Refresh
ENDPROC
PROCEDURE calculeazatotaluri
Lparameters tlRefreshValute
Local lcSelect, lcFilter
lcSelect = Select()
&& tlRefreshValute = .T. din this.actualizeazagrid1 - sa reconstruiasca cursorul cu valutele existente in selectie
&& tlRefreshValute = .F. - doar schimb valuta din cboValute - recalculez totalurile fara sa reconstruiesc cursorul cu valute
lcFilter = FILTER('crsRulX')
If Reccount('crsRulX')>0
Select crsRulX
If tlRefreshValute
*!* cursor valute pentru calcul totaluri intr-o valuta
Select This.nIdMonedaNationala As id_valuta, This.cMonedaNationala As nume_val ;
FROM dual ;
UNION ;
SELECT Distinct id_valuta, nume_val;
FROM crsRulX ;
WHERE id_valuta <> This.nIdMonedaNationala ;
INTO Cursor cValuteRulTemp
Endif
&& daca am ales moneda nationala pentru calcul total - cant*pret
&& daca am ales o valuta - total = cant*pretd si id_valuta aleasa
If This.nIdValutaTotal = This.nIdMonedaNationala Or Inlist(Upper(Alltrim(This.cValutaTotal)),'LEI','RON','ROL')
lcWhere = "2=2"
lcPret = "pret"
lcPrecizieSuma = gnPc
Else
lcWhere = "id_valuta = " + Alltrim(Str(This.nIdValutaTotal))
lcPret = "pretd"
lcPrecizieSuma = gnPVal
ENDIF
lcWhere = lcWhere + IIF(!EMPTY(m.lcFilter), [ and ] + m.lcFilter, [])
Select Sum(Round(cant*&lcPret,lcPrecizieSuma)) As valintrari, ;
SUM(Round(cante*&lcPret,lcPrecizieSuma)) As valiesiri, ;
Sum(Round(cant*(pretv+tvav),gnPc)) As valvintrari, ;
SUM(Round(cante*(pretv+tvav),gnPc)) As valviesiri, ;
SUM(cant) As intrari, ;
SUM(cante) As iesiri;
FROM crsRulX ;
WHERE &lcWhere ;
INTO Cursor cTotaluriTemp
Select cTotaluriTemp
Scatter Name loTotal
Use In cTotaluriTemp
With loTotal
Thisform.nsumi = .valintrari
Thisform.nsumie = .valiesiri
Thisform.nsumiv = .valvintrari
Thisform.nsumiev = .valviesiri
Thisform.ncanti = .intrari
Thisform.ncantie = .iesiri
Endwith
Thisform.lnoua=.T.
Else
Thisform.nsumi = 0
Thisform.nsumie = 0
Thisform.nsumiv = 0
Thisform.nsumiev = 0
Thisform.ncanti=0
Thisform.ncantie=0
Endif
This.pgframe.page1.cboValuta.Requery()
This.pgframe.page1.Refresh()
Select (lcSelect)
ENDPROC
PROCEDURE do_cauta
Lparameters tcFiltru
LOCAL loMonedaNationala
Local lcFiltru
If !Empty(tcFiltru)
lcFiltru = [ and ] + tcFiltru
Else
lcFiltru = []
Endif
If !Empty(Thisform.nnr_pag)
lcFiltru = lcFiltru + [ and nr_pag = ] + Alltrim(Str(Thisform.nnr_pag))
Endif
&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
IF !'PERIOADA'$UPPER(THISFORM.filtru_pretty_ro_full)
lcFiltru = [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) + lcFiltru
ENDIF
&& DACA FILTRUL NU CONTINE INREGISTRARILE STERSE, SELECTEZ DOAR INREGISTRARILE STERS = 0
IF !'STERS'$UPPER(THISFORM.filtru_pretty_ro_full)
lcFiltru = [ AND STERS = 0] + lcFiltru
ENDIF
*!* 10.06.2008
*!* && DACA FILTRUL NU CONTINE TIP RULAJ, IAU DOAR TIPUL "INTRARI/IESIRI REALE"
*!* IF 'TIP RULAJ'$UPPER(THISFORM.filtru_pretty_ro)
*!* WITH This.ck_filtru_tiprulaj
*!* .Value = 0
*!* .Filtru = ""
*!* .cTraducere = ""
*!* ENDWITH
*!* ENDIF
*!* 10.06.2008 ^
THISFORM.but_start_criterii1.refreshstatus()
*!* 10.06.2008
*!* If Thisform.ck_filtru_tiprulaj.Value = 1
*!* lcFiltru = This.ck_filtru_tiprulaj.filtru + lcFiltru
*!* Endif
*!* 10.06.2008 ^
IF LEN(THISFORM.filtru_pretty)>0
filtrutext = THISFORM.filtru_pretty
lcFiltru = lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
ENDIF
lcFiltru = lcFiltru + gcCondSucursala
IF LEN(lcfiltru)>0
lcFiltru = SUBSTR(lcFiltru, 6)
ENDIF
&& ACTUALIZEZ PERIOADA DIN TITLUL REGISTRULUI JURNAL
lcTitlu = THISFORM.lb_titlu_alb_b121.CAPTION
IF !'PERIOADA'$UPPER(THISFORM.filtru_pretty_ro_full)
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) + " " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
ELSE
IF TYPE('this.ocriterii') = 'O'
loCollection = THIS.oCriterii.GetCriteriu("perioada")
i = 0
lcValoare1 = ""
lcValoare2 = ""
FOR EACH criteriu IN loCollection
i = i + 1
IF i = 1
lcValoare1 = criteriu.valoare
ELSE
lcValoare2 = criteriu.valoare
ENDIF
IF i = 2
EXIT
ENDIF
ENDFOR
IF EMPTY(STRTRAN(lcValoare1,'/','')) AND EMPTY(STRTRAN(lcValoare2,'/',''))
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) + " " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
ELSE
IF EMPTY(STRTRAN(lcValoare2,'/',''))
lcValoare2 = lcValoare1
ENDIF
ENDIF
IF lcValoare1 = lcValoare2
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1
ELSE
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1 + " - " + lcValoare2
ENDIF
ENDIF
ENDIF
THIS.lb_titlu_alb_b121.CAPTION = lcTitlu
IF (THIS.filtru_pretty#"none")
Thisform.actualizeaza_grid1(lcFiltru)
Select crsRulX
If Reccount()>0
Go Top
If cant#0
Thisform.pgframe.page2.Enabled=.T.
Thisform.pgframe.page3.Enabled=.F.
Else
Thisform.pgframe.page2.Enabled=.F.
Thisform.pgframe.page3.Enabled=.T.
Endif
Else
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
Thisform.pgframe.page2.Enabled=.F.
Thisform.pgframe.page3.Enabled=.F.
Endif
With Thisform.pgframe
If .ActivePage!=1
.Pages(.ActivePage).Deactivate()
.page1.Activate()
.page1.SetFocus()
Endif
.page1.grdrulaje.SetFocus()
*!* .page1.grdrulaje.SetFocus()
*!* .page1.grdrulaje.refresh
Endwith
ENDIF
THISFORM.but_start_criterii1.SETFOCUS
ENDPROC
PROCEDURE do_excel
*!* DO export_excel WITH this.pgframe.page1.grdrulaje,this.lb_titlu_alb_b121.Caption
LOCAL lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
lcAlias = THIS.pgframe.page1.grdrulaje.RECORDSOURCE
lcFiltru = FILTER(lcAlias)
lcOrder = 'dataact,codmat,denumire'
lcTitlu = "Rulaje"
IF RECCOUNT(lcAlias) > 0
DO export_excel_grid WITH THIS.pgframe.page1.grdrulaje, lcOrder, lcFiltru, lcTitlu IN proceduri_excel.prg
ELSE
amessagebox("Nu exista inregistrari pentru export!",0+48,"Atentie")
ENDIF
ENDPROC
PROCEDURE do_listare
PRIVATE pcSubtitlu
pcSubtitlu = this.filtru_pretty_ro_full
lcCursor = Thisform.pgframe.page1.grdrulaje.RecordSource
If Reccount(lcCursor) > 0
Select (lcCursor)
lnIdGestiune = id_gestiune
If Inlist(GetTipGestiune(lnIdGestiune),-1,6)
X=XMENU("Listare \<selectie;\<Fisa magazie;\<Istoric articol")
Else
X=XMENU("Listare \<selectie;\<Fisa magazie;\<Istoric articol;\-;Fisa magazie ( cu preturi in \<valuta )")
Endif
Do Case
Case X = 1
&& listare selectie
Thisform.AlwaysOnTop=.F.
pcperioada='LUNA: '+pcnl+' '+pcan
pctitlu = 'JURNAL RULAJE'
pcDataOra = get_ora(2)
Select (lcCursor)
*Keyboard '{CTRL+F10}'
*Report Form rap_rulajesimple To Printer Prompt Preview
goExport.export2frx(m.lcCursor,[rap_rulajesimple],.T., , , , , .T.)
Thisform.AlwaysOnTop=.T.
Case X = 2
&& fisa magazie
Private PcCodul,pcdenumire,pcondper,pcNumeGestiune,pcSerie
Store '' To pcondper
Local ldata1,ldata2,lcd1,lcd2
Thisform.AlwaysOnTop=.F.
Select (lcCursor) && crsRulX
PcCodul=Val(Alltrim(Str(id_articol)))
pcdenumire=Upper(Alltrim(denumire))
pnIdGestiune = id_gestiune
pcNumeGestiune = Alltrim(nume_gestiune)
pcSerie = Alltrim(serie)
Do fisa_magazie_fifo With gnTipGest,pnIdGestiune,pcNumeGestiune,PcCodul,pcSerie In orapoarte.prg
Thisform.AlwaysOnTop=.T.
Case X = 3
&& istoric articol
This.do_listare3()
Case X = 5
This.do_listare4()
Endcase
Else
amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
Endif
ENDPROC
PROCEDURE do_listare3
lcCursorRaport = [crsraport]
Private lnAn1, lnLuna1, lnAn2, lnLuna2
Private pnIdArticol, pnPerInceput, pnPerSfarsit
Private pcTitlu,pcPerioada,pcDataOra
Store 0 To lnAn1, lnLuna1, lnAn2, lnLuna2, pnIdArticol, pnPerInceput, pnPerSfarsit
Store '' To pcTitlu, pcPerioada
Select (lcCursor)
pnIdArticol = id_articol
pcSerie = Alltrim(Nvl(serie,'+_'))
pcTitlu = [ISTORIC ARTICOL ] + Alltrim(denumire) + [ (] + Alltrim(Nvl(codmat,'')) + [)]
loLuna = get_oluna(gnAn, gnLuna)
lcLuna1 = Padl(loLuna.lunamin,2,'0') + Padl(loLuna.anmin,4,'0')
lcLuna2 = Padl(loLuna.lunamax,2,'0') + Padl(loLuna.anmax,4,'0')
pcondper=""
ofrmperioada=Createobject('frm_perioada_luni')
With ofrmperioada
._textbox1.Value=lcLuna1
._textbox2.Value=lcLuna2
._optiongrup1.Value = 2
._optiongrup1.Valid()
Endwith
ofrmperioada.Show(1)
If gnButon=2
Return
Endif
plPerioada=.F.
lnPoz=At('_',pcondper)
If lnPoz>0
plPerioada=.T.
Endif
If plPerioada
lnAn1 = Val(Substr(pcondper,3,4))
lnLuna1 = Val(Substr(pcondper,1,2))
lnAn2 = Val(Substr(pcondper,10,4))
lnLuna2 = Val(Substr(pcondper,8,2))
pnPerInceput = lnAn1 * 12 + lnLuna1
pnPerSfarsit = lnAn2 * 12 + lnLuna2
pcPerioada = [Perioada : ] + Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4) + ' - ' + Substr(pcondper,8,2)+'/'+Substr(pcondper,10,4)
Else
lnAn1 = Val(Substr(pcondper,3,4))
lnLuna1 = Val(Substr(pcondper,1,2))
lnAn2 = Val(Substr(pcondper,3,4))
lnLuna2 = Val(Substr(pcondper,1,2))
pnPerInceput = lnAn1 * 12 + lnLuna1
pnPerSfarsit = lnAn2 * 12 + lnLuna2
pcPerioada = [Luna : ] + Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4)
Endif
If Used(lcCursorRaport)
Use In (lcCursorRaport)
Endif
pcDataOra = get_ora(2)
lcSql = [select c.codmat, c.denumire as nume_articol,a.serie, c.um, c.cant_bax, c.um2, d.sectie,] + ;
[d.csectie, e.nrord, f.nume_gestiune, ] + ;
[f.cgest, g.nume_gestiune as nume_gestiunec, g.cgest as cgestc,] + ;
[(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end) as pret, a.cant, a.cante, ] + ;
[ROUND(a.cant*(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end),?gnPc) as val_intrari,] + ;
[ROUND(a.cante*(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end),?gnPc) as val_iesiri,] + ;
[a.pretd, v.nume_val, a.curs, ] + ;
[b.dataact, b.nnir,decode(b.nract,b.nnir,null,b.serie_act) as serie_act,decode(b.nract,b.nnir,null,b.nract) as nract,] + ;
[b.explicatia, h.denumire, i.fel_document, j.descriere as tip_rulaj ] + ;
[from rul a left join ] + ;
[(select distinct cod,dataact,max(nnir) over(partition by cod) as nnir,id_fdoc,serie_act,nract,] + ;
[max(id_partd) over(partition by cod) as id_partd,] + ;
[first_value(explicatia) over(partition by cod order by explicatia ASC) as explicatia ] + ;
[from act where sters = 0 and cod in (select cod ] + ;
[from rul where id_articol = ?pnIdArticol and NVL(serie,'+_') = ?pcSerie and sters = 0] + ;
gcCondSucursala + [) ] + ;
[and scc not in ('4427', '4111', '667')) b on a.cod = b.cod ] + ;
[left join nom_articole c on a.id_articol = c.id_articol ] + ;
[left join nom_sectii d on a.id_sectie = d.id_sectie ] + ;
[left join vnom_lucrari e on a.id_lucrare = e.id_lucrare ] + ;
[left join nom_gestiuni f on a.id_gestiune = f.id_gestiune ] + ;
[left join nom_gestiuni g on a.id_gestiunec = g.id_gestiune ] + ;
[left join nom_parteneri h on b.id_partd = h.id_part ] + ;
[left join nom_fdoc i on b.id_fdoc = i.id_fdoc ] + ;
[left join nom_tip_rulaj j on a.id_tip_rulaj = j.id_tip_rulaj ] + ;
[left join vnom_valute v on a.id_valuta = v.id_valuta ] + ;
[where a.sters = 0 and a.id_articol = ?pnIdArticol and NVL(a.serie,'+_') = ?pcSerie ] + ;
[and a.luna + a.an * 12 between ?pnPerInceput and ?pnPerSfarsit ] + ;
Strtran(gcCondSucursala,[id_sucursala],[a.id_sucursala]) + [ ] + ;
[order by b.dataact]
lnSucces = goExecutor.oExecute(lcSql,lcCursorRaport)
If lnSucces < 0
amessagebox(goExecutor.oPrelucrareEroare(),0+16,"Eroare")
Else
If Reccount(lcCursorRaport)>0
Thisform.AlwaysOnTop=.F.
Select (lcCursorRaport)
*Keyboard '{CTRL+F10}'
*Report Form istoric_Articol To Printer Prompt Preview
goExport.export2frx(m.lcCursorRaport,[istoric_Articol],.T., , , , , .T.)
Thisform.AlwaysOnTop=.T.
Else
amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
Endif
Endif
If Used(lcCursorRaport)
Use In (lcCursorRaport)
Endif
ENDPROC
PROCEDURE do_listare4
Private pnIdArticol,pcDenumire,pnId_gestiune,pcNumeGestiune,pcSerie,pcUm,pcCodMaterial,pcTitlu, pcPerioada, pcDataOra,pnIdValuta,pcValuta
Store '' To pcTitlu,pcNumeGestiune,pcSerie,pcUm,pcCodMaterial,pcDataOra,pcValuta
If Used('crstemp')
Use In crstemp
Endif
Select (lcCursor) && crsRulX
pnIdArticol = id_articol
pnIdGestiune = id_gestiune
pcDenumire = Upper(Alltrim(denumire))
pcUm = Upper(Alltrim(um))
pcCodMaterial = Upper(Alltrim(codmat))
pcSerie = Upper(Alltrim(serie))
pcNumeGestiune = Upper(Alltrim(nume_gestiune))
pnIdValuta = Nvl(id_valuta,0)
pcValuta = ALLTRIM(nume_val)
Thisform.AlwaysOnTop=.F.
do fisa_magazie_FIFO_valuta WITH gnTipGest, pnIdGestiune , pcNumeGestiune, pnIdArticol , pcSerie ,pnIdValuta ,pcValuta
Thisform.AlwaysOnTop=.t.
*!* *!* perioada raport
*!* Private pnAnI, pnLunaI, pnAnLunaI, pnAnLunaF
*!* Store 0 To pnAnI, pnLunaI, pnAnLunaI, pnAnLunaF
*!* loLuna = get_oluna(gnAn, gnLuna)
*!* lcLuna1 = Padl(loLuna.lunamin,2,'0') + Padl(loLuna.anmin,4,'0')
*!* lcLuna2 = Padl(loLuna.lunamax,2,'0') + Padl(loLuna.anmax,4,'0')
*!* pcondper=""
*!* ofrmperioada=Createobject('frm_perioada_luni')
*!* With ofrmperioada
*!* ._textbox1.Value=lcLuna1
*!* ._textbox2.Value=lcLuna2
*!* ._optiongrup1.Value = 2
*!* ._optiongrup1.Valid()
*!* Endwith
*!* ofrmperioada.Show(1)
*!* If gnButon=2
*!* Return
*!* Endif
*!* plPerioada=.F.
*!* lnPoz=At('_',pcondper)
*!* If lnPoz>0
*!* plPerioada=.T.
*!* Endif
*!* If plPerioada
*!* pnAnI = Val(Substr(pcondper,3,4))
*!* pnLunaI = Val(Substr(pcondper,1,2))
*!* pnAnF = Val(Substr(pcondper,10,4))
*!* pnLunaF = Val(Substr(pcondper,8,2))
*!* pnAnLunaI = pnAnI * 12 + pnLunaI
*!* pnAnLunaF = pnAnF * 12 + pnLunaF
*!* pcPerioada = Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4) + ' - ' + Substr(pcondper,8,2)+'/'+Substr(pcondper,10,4)
*!* Else
*!* pnAnI = Val(Substr(pcondper,3,4))
*!* pnLunaI = Val(Substr(pcondper,1,2))
*!* pnAnLunaI = pnAnI * 12 + pnLunaI
*!* pnAnLunaF = pnAnLunaI
*!* pcPerioada = Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4) + ' - ' + Substr(pcondper,1,2)+'/'+Substr(pcondper,3,4)
*!* Endif
*!* lcSql = [select a.dataact,a.nnir,a.pret,a.pretd,a.nume_valuta_a,a.cant,a.pretv,a.pretdv,a.nume_valuta_v,] + ;
*!* [a.cante,sum(nvl(a.cant, 0) - nvl(a.cante, 0)) over(order by a.dataact,a.dataora) as cants ] + ;
*!* [from (select last_day(to_date(a.an || a.luna, 'YYYYMM')) as dataact, ] + ;
*!* [null as nnir,a.pret,a.pretd,decode(b.moneda_nationala, 0, b.nume_val, null) as nume_valuta_a,] + ;
*!* [a.cants + a.cant - a.cante as cant,null as pretv,0 as pretdv,null as nume_valuta_v,null as cante,null as dataora ] + ;
*!* [from ] + gcS + [.stoc a ] + ;
*!* [left join ] + gcS + [.nom_valute b on a.id_valuta = b.id_valuta ] +;
*!* [where a.id_articol = ?pnIdArticol and NVL(a.id_valuta,0) = ?pnIdValuta and a.luna = ?pnLunaI and a.an = ?pnAnI ] + ;
*!* [and NVL(a.serie,'+_') = ?NVL(pcSerie,'+_') and a.id_gestiune = ?pnIdGestiune ] + ;
*!* STRTRAN(gcCondSucursala,[id_sucursala],[a.id_sucursala]) + ;
*!* [union all ] + ;
*!* [select a.dataact,a.nnir,a.pret,] + ;
*!* [a.pretd,decode(d.moneda_nationala, 0, d.nume_val, null) as nume_valuta_a,] + ;
*!* [decode(a.cante, 0, a.cant, null) as cant,decode(a.cant, 0, a.pretv, null) as pretv,] + ;
*!* [decode(e.moneda_nationala,0,decode(c.pret_cu_tva,0,c.pret,1,round(c.pret / c.proc_tvav,] + ;
*!* [pack_sesiune.getoptiunefirma('PVAL'))),0) as pretdv,] + ;
*!* [decode(e.moneda_nationala, 0, e.nume_val, null) as nume_valuta_v,decode(a.cant, 0, a.cante, null) as cante,a.dataora ] + ;
*!* [from ] + gcS + [.rul a ] + ;
*!* [left join ] + gcS + [.vanzari b on a.cod = b.cod and b.sters = 0 and NVL(a.id_sucursala,-99) = NVL(b.id_sucursala,-99) ] + ;
*!* [left join ] + gcS + [.vanzari_Detalii c on a.id_articol = c.id_articol ] + ;
*!* [and a.id_gestiune = c.id_gestiune and a.cont = c.cont and nvl(a.serie, '+_') = nvl(c.serie, '+_') ] + ;
*!* [and b.id_vanzare = c.id_vanzare ] + ;
*!* [left join ] + gcS + [.nom_valute d on a.id_valuta = d.id_valuta ] + ;
*!* [left join ] + gcS + [.nom_valute e on c.id_valuta = e.id_valuta ] + ;
*!* [where a.id_articol = ?pnIdArticol and NVL(a.id_valuta,0) = ?pnIdValuta and a.sters = 0 ] + ;
*!* [and NVL(a.serie,'+_') = ?NVL(pcSerie,'+_') and a.id_gestiune = ?pnIdGestiune ] + ;
*!* Strtran(gcCondSucursala,[id_sucursala],[a.id_sucursala]) + ;
*!* [and a.id_tip_rulaj <> 3 and a.luna + a.an * 12 between ?pnAnLunaI and ?pnAnLunaF order by 1) a ]
*!* lnSucces = goExecutor.oExecute(lcSql,[crstemp])
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,16,"Eroare")
*!* Else
*!* If Reccount('crstemp')>0
*!* Thisform.AlwaysOnTop=.F.
*!* pcDataOra = get_ora(2)
*!* Select crstemp
*!* Keyboard '{CTRL+F10}'
*!* Report Form fisa_magazie_fifo_val To Printer Prompt Preview
*!* Thisform.AlwaysOnTop=.T.
*!* Else
*!* amessagebox("Nu exista inregistrari pentru perioada selectata!",0+48,"Atentie")
*!* Endif
*!* Endif
*!* If Used('crstemp')
*!* Use In crstemp
*!* Endif
ENDPROC
PROCEDURE do_modifica
Local lnOptiune, llEditMode, lnIdSet, llIesiri
Local llSucces
Local lcMeniu1, lcMeniu2, lcMeniu3, llLunaCurenta, lnActivePage
If !(This.but_modifica1.Visible And This.but_modifica1.Enabled)
Return
Endif
IF EMPTY(NVL(crsRulX.nract,0))
RETURN
ENDIF
If m.glLunaInchisa
aMESSAGEBOX('Luna este inchisa!', 0 + 48)
Return
ENDIF
llEditMode = Thisform.se_modifica
lnIdSet = crsRulX.id_set
llIesiri = (crsRulX.cante <> 0)
llIntrari = (crsRulX.cant <> 0)
llLunaCurenta = (crsRulX.an = m.gnAn And crsRulX.luna = m.gnLuna)
If !m.llLunaCurenta
aMESSAGEBOX("Nu puteti modifica inregistrari din alta luna!", 0 + 48, "Atentie")
Return
Endif
lnActivePage = This.pgframe.ActivePage
lcMeniu1 = Iif(m.lnActivePage = 1 And This.lModificareInregistrare, '', '\')
lcMeniu2 = Iif(INLIST(m.lnActivePage, 2, 3), '', '\')
lcMeniu3 = Iif(m.lnActivePage = 1 And This.lModificareInregistrare and m.llIntrari, '', '\')
If !m.llEditMode && se trece in modul de editare
* Modificare document cu articole
*!* lnOptiune = 1
If Between(m.lnIdSet, 43, 51) Or Inlist(m.lnIdSet, 53, 54, 61, 92, 104, 247, 267, 99999) Or ;
(Inlist(m.lnIdSet, 74, 75, 76, 207, 237, 55, 273) And m.llIesiri) Or Inlist(m.lnIdSet, 81, 83) OR ;
INLIST(m.lnIdSet, 100, 219) OR ;
INLIST(m.lnIdSet, 217, 54, 88, 263) OR ;
INLIST(m.lnIdSet, 78,80,90) OR ;
INLIST(m.lnIdSet, 78,80,90) OR ;
INLIST(m.lnIdSet, 79, 83, 271, 225, 272, 99999)
* 43 - 51 : NIR
* 53, 54 : bon consum
* 61 : Vanzare marfa la pret de achizitie - en-detail
* 62 : Vanzare marfa en-gros
* 104 : NIR import materiale
* 92 : NIR import marfa
* 247 : NIR lista preturi
* 267 : aviz retur clienti in custodie valoric
* La transferuri doar daca ma pozitionez pe iesire
* 74 : mf ach. - transfer catre o gest ach
* 75 : mf ach. - transfer catre o gest vz
* 76 : mv vz. - transfer catre o gest ach
* 207 : mf vz. - transfer catre o gest vz
* 237: mf vz. - Intrare din transfer de la gestiune valorica la pret de vanzare
* !!! 89 : ob inv - transfer intre persoane - are bug-uri - la modificare pune doar iesirea, fara intrare
* 55,273 : ob inv - dare in folosinta
* 81 : produse - Intrare in gestiune produse pe baza de PV
* 83 : produse - vanzare produse en-detail
* 100, 219 : produse > intrare in gestiune - productie proprie
* 217, 54, 88, 263 : produse > bon consum
* 78,80,90 : produse > vanzare cost productie
* 79, 83, 271, 225, 272 : produse > vanzare (initializeaza_vanzare_din_stoc)
lnOptiune = xmenu(m.lcMeniu2 + "Editare antet;" + m.lcMeniu2 + "Modificare NIR/Bon;" + m.lcMeniu1 + "Modificare inregistrare curenta;" + m.lcMeniu3 + "Asociere ID_FACT rulaje NIR cu alt document tip Factura (SAFT)")
Else
* Modificare direct in rulaj
lnOptiune = xmenu(m.lcMeniu2 + "Editare antet;" + "\Modificare NIR/Bon;" + m.lcMeniu1 + "Modificare inregistrare curenta;" + m.lcMeniu3 + "Asociere ID_FACT rulaje NIR cu alt document tip Factura (SAFT)")
Endif
Do Case
Case lnOptiune = 1
Thisform.editeaza_antet()
Case m.lnOptiune = 2
Thisform.modifica_articole()
Case m.lnOptiune = 3
Thisform.modifica_inregistrare()
Case m.lnOptiune = 4
Thisform.modifica_id_fact()
Endcase
Else
llSucces = Thisform.salveaza_antet()
Endif && !llEditMode
ENDPROC
PROCEDURE do_reset
*!* 10.06.2008
*!* am scos filtrul tip rulaj = intrare/iesire reala
*!* WITH This.ck_filtru_tiprulaj
*!* .Value = 1
*!* .Filtru = " and (id_tip_rulaj = 0)"
*!* .cTraducere = "Tip rulaj este 'INTRARE/IESIRE REALA'"
*!* ENDWITH
*!* 10.06.2008 ^
DODEFAULT()
ENDPROC
PROCEDURE editeaza_antet
LPARAMETERS tlAnulareEditare
&& se trece in modul editare antet NIR
IF PCOUNT() = 0
Thisform.se_modifica = .T. && se_modifica_assign
ELSE
Thisform.se_modifica = .F. && se_modifica_assign
ENDIF
ENDPROC
PROCEDURE grid_sort_bind
*!*
ENDPROC
PROCEDURE Init
LPARAMETERS tnNrPag
DODEFAULT()
thisform.nnr_pag = tnNrPag
thisform.pgframe.page2.Enabled=.F.
thisform.pgframe.page3.Enabled=.F.
IF glLunaInchisa
this.but_modifica1.Visible = !glLunaInchisa
this.but_modifica1.Enabled = !glLunaInchisa
ENDIF
* SAFT
This.pgframe.page1.grdrulaje.cTaxName.Visible = m.gl406
*!* 10.05.2010
this.gridextra1.setup()
*!* 10.05.2010 ^
ENDPROC
PROCEDURE Load
LOCAL loMonedaNationala
LOCAL lcSelect
lcSelect = SELECT()
loMonedaNationala = GetMonedaNationala() && updateserver.prg
this.nIdMonedaNationala = loMonedaNationala.id_valuta
this.cMonedaNationala = loMonedaNationala.nume_val
SELECT this.nIdMonedaNationala as id_valuta, this.cMonedaNationala as nume_val ;
FROM dual ;
INTO CURSOR cValuteRulTemp
this.nIdvalutatotal = this.nIdMonedaNationala
this.cValutaTotal = this.cMonedaNationala
SELECT (lcSelect)
DODEFAULT()
ENDPROC
PROCEDURE modifica_articole
Local llSucces
this.AlwaysOnTop = .F.
this.nract = crsRulX.nract
this.dataact = crsRulX.dataact
lnIdSet = thisform.oactoriginal.id_set
IF m.lnIdSet = 99999 && import efactura achizitie
lnIdSet = 46 && achizitie factura neplatita ? poate sa fie si altceav
ENDIF
llSucces = modificare_articole_gestiune(Thisform.oactoriginal.cod, m.lnIdSet) && pmenu.prg
if m.llSucces
Thisform.pgframe.ActivePage = 1
thisform.pgframe.page1.grdrulaje.SetFocus()
Thisform.actualizeaza_grid1()
SELECT crsRulX
LOCATE FOR nract = thisform.nract AND dataact = thisform.dataact
IF !FOUND()
GO TOP
ENDIF
endif
this.AlwaysOnTop = .T.
ENDPROC
PROCEDURE modifica_id_fact
* Asociaza rulajele cu alta factura (Ex: asociere ID_FACT rulaje la Invoice materii prime in curs de aprovizionare.
* Invoice-ul este introdus anterior, doar in contabilitate, iar rulajele odata cu Declaratia Vamala, si rulajele trebuie asociate cu Invoice pentru SAFT
Local lcSelect, lcSql, llLunaCurenta, llSucces, lnIdRul, lnOptiune, loFactura, loRul, ldData1, ldData2
Private pnIdRul
If m.glLunaInchisa
aMESSAGEBOX('Luna este inchisa!',0+48)
Return
Endif
lcSelect = This.pgframe.page1.grdrulaje.RecordSource
If Reccount(lcSelect)=0
aMESSAGEBOX("Nu exista inregistrari pentru modificare!",0+48,"Atentie")
Return
Endif
Select (lcSelect)
Scatter Name loRul
lnIdRul = loRul.id_rul
llLunaCurenta = (loRul.an = m.gnAn And loRul.luna = m.gnLuna)
If !m.llLunaCurenta
aMESSAGEBOX("Nu puteti modifica inregistrari din alta luna!",0+48,"Atentie")
Select (m.lcSelect)
Return
Endif
Select id_rul From (m.lcSelect) With (Buffering = .T.) Where ales = 1 And an = m.gnAn And luna = m.gnLuna Into Cursor crsAles
If Reccount('crsAles') = 0
aMESSAGEBOX('Nu ati ales nici o inregistrare! Bifati inregistrarile din rulaje pe care doriti sa le modificati!',0+48,_Screen.Caption)
Use In (Select('crsAles'))
Select (m.lcSelect)
Return
ENDIF
* caut in ultimele 12 luni
ldData1 = Gomonth(Date()-Day(Date()),-12)
ldData2 = Date()
loFactura = caut_factura('401,404,408,462,473', m.ldData1, m.ldData2 ) && caut doar facturi de achizitie
If Type('loFactura.id_fact') = "N" And !Empty(Nvl(loFactura.id_fact,0))
If aMESSAGEBOX('Doriti sa modificati ID_FACT ' + Alltrim(STR(Nvl(loFactura.id_fact,''))) + ' in ' + Alltrim(Str(Reccount('crsAles'))) + ' inregistrari alese?',4+32,_Screen.Caption) = 6
lcSql = [UPDATE rul SET id_fact = ] + Alltrim(Str(loFactura.id_fact)) + [ where id_rul = ?pnIdRul]
Select crsAles
Scan
pnIdRul = id_rul
llSucces = goExecutor.oExecuta(m.lcSql)
If !m.llSucces
Exit
Endif
Endscan
Thisform.actualizeaza_grid1()
Try
Select (m.lcSelect)
Locate For id_rul = m.lnIdRul
Catch
Select (m.lcSelect)
Locate
Endtry
This.pgframe.page1.grdrulaje.Refresh()
aMESSAGEBOX('S-a modificat ID_FACT!',0+48,_Screen.Caption)
Endif
Endif
Use In (Select('crsAles'))
ENDPROC
PROCEDURE modifica_inregistrare
Local lcSelect, lcSql, llLunaCurenta, llSucces, lnIdRul, lnOptiune, loCauta, loRul
PRIVATE pnIdRul
If m.glLunaInchisa
aMESSAGEBOX('Luna este inchisa!',0+48)
Return
Endif
lcSelect = This.pgframe.page1.grdrulaje.RecordSource
If Reccount(lcSelect)=0
aMESSAGEBOX("Nu exista inregistrari pentru modificare!",0+48,"Atentie")
else
lnOptiune = xmenu('Modifica gestiune si cantitate inregistrarea curenta;Modifica gestiune pentru inregistrarile alese')
IF EMPTY(m.lnOptiune)
RETURN
ENDIF
Select (lcSelect)
Scatter Name loRul
lnIdRul = loRul.id_rul
llLunaCurenta = (loRul.an = m.gnAn And loRul.luna = m.gnLuna)
IF !m.llLunaCurenta
AMESSAGEBOX("Nu puteti modifica inregistrari din alta luna!",0+48,"Atentie")
ELSE
IF m.lnOptiune = 1
Do Adauga_Modifica_Inregistrare With "rulaje",loRul,lnIdRul,[UPDATE]
If gnButon = 1
Thisform.actualizeaza_grid1()
TRY
SELECT (m.lcSelect)
LOCATE FOR id_rul = m.lnIdRul
CATCH
SELECT (m.lcSelect)
LOCATE
ENDTRY
This.pgframe.page1.grdrulaje.Refresh()
AMESSAGEBOX('ATENTIE! Trebuie sa actualizati manual stocul din butonul Refacere!',0+48,_screen.Caption)
ENDIF
ELSE
loCauta = caut_gestiune()
IF TYPE('loCauta.id_gestiune') = "N" AND !EMPTY(NVL(loCauta.id_gestiune,0))
SELECT id_rul FROM (m.lcSelect) WITH (buffering = .T.) WHERE ales = 1 AND an = m.gnAn AND luna = m.gnLuna INTO CURSOR crsAles
IF RECCOUNT('crsAles') = 0
AMESSAGEBOX('Nu ati ales nici o inregistrare!',0+48,_screen.Caption)
ELSE
IF AMESSAGEBOX('Doriti sa completati gestiunea ' + ALLTRIM(NVL(loCauta.nume_gestiune,'')) + ' in ' + ALLTRIM(STR(RECCOUNT('crsAles'))) + ' inregistrari alese?',4+32,_screen.Caption) = 6
lcSql = [UPDATE rul SET id_gestiune = ] + ALLTRIM(STR(loCauta.id_gestiune)) + [ where id_rul = ?pnIdRul]
SELECT crsAles
SCAN
pnIdRul = id_rul
llSucces = goExecutor.oExecuta(m.lcSql)
IF !m.llSucces
EXIT
ENDIF
ENDSCAN
USE IN (SELECT('crsAles'))
Thisform.actualizeaza_grid1()
TRY
SELECT (m.lcSelect)
LOCATE FOR id_rul = m.lnIdRul
CATCH
SELECT (m.lcSelect)
LOCATE
ENDTRY
This.pgframe.page1.grdrulaje.Refresh()
AMESSAGEBOX('ATENTIE! Trebuie sa actualizati manual stocul din butonul Refacere!',0+48,_screen.Caption)
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
Endif
ENDPROC
PROCEDURE Release
this.pgframe.page1.cboValuta.RowSource = ""
USE IN (SELECT('cValuteRulTemp'))
ENDPROC
PROCEDURE salveaza_antet
*** se trece in modul vizualizare antet si se salveaza modificarea
Local loAct As "empty"
Local llSucces, lnIdRul
SELECT crsRulX
lnIdRul = id_rul
loAct = Createobject("empty")
With Thisform
AddProperty(loAct, "cod", .cod)
AddProperty(loAct, "nract", .nract)
AddProperty(loAct, "dataact", .dataact)
AddProperty(loAct, "nnir", .nnir)
AddProperty(loAct, "dataireg", .dataireg)
AddProperty(loAct, "id_partener", .id_partener)
AddProperty(loAct, "id_sectie", .id_sectie)
AddProperty(loAct, "id_lucrare", .id_lucrare)
AddProperty(loAct, "id_responsabil", .id_responsabil)
Endwith
llSucces = modificare_antet_gestiune(m.loAct) && oproceduri_rulaje.prg
If m.llSucces
Thisform.se_modifica = .F.
Thisform.do_cauta()
SELECT crsRulX
LOCATE FOR nract = thisform.nract AND dataact = thisform.dataact
IF !FOUND()
GO TOP
ENDIF
thisform.pgframe.page1.grdrulaje.SetFocus()
Endif
ENDPROC
PROCEDURE se_modifica_assign
Lparameters vNewVal
*To do: Modify this routine for the Assign method
Local llReadOnly, llVisible, llEditMode
llEditMode = m.vNewVal
llReadOnly = !m.vNewVal
llVisible = m.vNewVal
With Thisform.pgframe.page2
.txtNrAct.ReadOnly = m.llReadOnly
.txtDataAct.ReadOnly = m.llReadOnly
.txtNnir.ReadOnly = m.llReadOnly
.txtDataIreg.ReadOnly = m.llReadOnly
.but_modifica_furnizor.Visible = m.llVisible
.but_modifica_responsabil.Visible = m.llVisible
.but_modifica_lucrare.Visible = m.llVisible
.but_modifica_sectie.Visible = m.llVisible
.refresh()
Endwith
With Thisform.pgframe.page3
.txtNnir.ReadOnly = m.llReadOnly
.txtDataAct.ReadOnly = m.llReadOnly
.but_modifica_responsabil.Visible = m.llVisible
.but_modifica_lucrare.Visible = m.llVisible
.but_modifica_sectie.Visible = m.llVisible
.refresh()
Endwith
If m.llEditMode && TREC IN MODUL EDITARE
With Thisform.but_modifica1
.cpicturedown = "save_jos.bmp"
.cpictureup = "save_sus.bmp"
.Picture = "save_sus.bmp"
.ToolTipText = "Salvare"
.Enabled = .T.
.Refresh()
Endwith
Else
Thisform.pgframe.page1.grdrulaje.Refresh()
Thisform.pgframe.page2.grdnir.Refresh()
Thisform.pgframe.page3.grdbon.Refresh()
With Thisform.but_modifica1
.cpicturedown = "MODIFICA2.BMP"
.cpictureup = "MODIFICA1.BMP"
.Picture = "MODIFICA1.BMP"
.ToolTipText = "Modificare"
.Enabled = .T.
.Refresh()
ENDWITH
Endif
This.se_modifica = m.vNewVal
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
PARAMETERS tacriterii
EXTERNAL ARRAY tacriterii
#DEFINE crlf CHR(13)+CHR(10)
lcStringCriterii="Denumire articol\a.denumire\T\a.id_articol\nom_articol"+ crlf + ;
"Cod material\a.codmat\T\none\" + crlf + ;
"Serie articol\a.serie\T\none\" + crlf + ;
"Grupa articol\a.grupa\T\a.id_grupa\nom_grupa_articol"+ crlf + ;
"Subgrupa articol\a.subgrupa\T\a.id_subgrupa\nom_subgrupa_articol"+ crlf + ;
"Cod bare\codbare\T\none\"+ crlf + ;
"Nr. document\a.nract\N\none\" + crlf + ;
"Tip doc.\fdoc\T\id_fdoc\nom_feldoc"+ crlf + ;
"Serie document\a.serie_act\T\none\" + crlf + ;
"Data document\a.dataact\D\none\" + crlf + ;
"Nr. NIR/bon\a.nnir\N\none\" + crlf + ;
"Pret achizitie\a.pret\N|get_mask(12,gnPpret)\none\"+ crlf + ;
"Pret vz.\a.pretv\N|get_mask(12,gnPpret)\none\"+ crlf + ;
"Pret vz. TVA\(a.pretv + a.tvav)\N|get_mask(12,gnPpret)\none\"+ crlf + ;
"Pret valuta\a.pretd\N|get_mask(12,gnPPretval)\none\" + crlf + ;
"Valuta\a.nume_val\T\a.ID_VALUTA\nom_valuta" + crlf + ;
"Intrari\a.cant\N|get_mask(12,gnPCant)\none\" + crlf + ;
"Iesiri\a.cante\N|get_mask(12,gnPCant)\none\" + crlf + ;
"Cont\a.cont\T\none\"+ crlf + ;
"Cont analitic\a.acont\T\none\"+ crlf + ;
"Grupe gestiuni\|E|" + ;
[a.id_gestiune in ( ] + ;
[ select ID_GESTIUNE ] + ;
[ from vgest_coresp_grupe_gestiuni c ] + ;
[ join (select id_grupe ] + ;
[ from gest_nom_grupe ] + ;
[ where sters = 0 ] + ;
[ start with id_grupe = <<VALOARE>> ] + ;
[ connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe )\I\none\nom_grupa_gestiune] + crlf + ;
"Gestiune\none\I\a.id_gestiune\nom_gestiune" + crlf + ;
"Grupe gest. coresp.\|E|" + ;
[a.id_gestiunec in ( ] + ;
[ select ID_GESTIUNE ] + ;
[ from vgest_coresp_grupe_gestiuni c ] + ;
[ join (select id_grupe ] + ;
[ from gest_nom_grupe ] + ;
[ where sters = 0 ] + ;
[ start with id_grupe = <<VALOARE>> ] + ;
[ connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe )\I\none\nom_grupa_gestiune] + crlf + ;
"Gestiune coresp.\none\I\a.id_gestiunec\nom_gestiune" + crlf + ;
"Sectie\a.sectie\T\a.ID_SECTIE\nom_sectie" + crlf + ;
"Lucrare/Comanda\nrord\T\a.ID_LUCRARE\nom_lucrare" + crlf + ;
"Lucrare rezervare\a.nrord_rez\T\a.ID_LUCRARE_REZ\nom_lucrare" + crlf + ;
"Partener rezervare\a.part_rez\T\a.id_part_rez\nom_parteneri" + crlf + ;
"Furnizor\a.furnizor\T\a.id_furnizor\nom_parteneri" + crlf + ;
IIF(EMPTY(gcCondSucursala) and glEMama,"Sucursala\Sucursala\C\none" + crlf,[]) +;
"Tip rulaj\none\I\a.id_tip_rulaj\nom_tip_rulaj" + crlf + ;
"Cod\cod\N\none\" + crlf + ;
"Tip operatie\id_set\N\none\" + crlf + ;
"Operator introducere\util\T\A.ID_UTIL\nom_utilizator" + crlf + ;
"Data introducerii\trunc(a.dataora)\D\none\" + crlf + ;
"Perioada\a.an*12+a.luna\D1\none\" + crlf + ;
"Sterse\nofiled\E\(1=1)\"
DODEFAULT()
ENDPROC
PROCEDURE Gridextra1.applyfilter
DODEFAULT()
thisform.CalculeazaTotaluri(.T.)
ENDPROC
PROCEDURE Gridextra1.clearfilter
DODEFAULT()
thisform.CalculeazaTotaluri(.T.)
ENDPROC
PROCEDURE pgframe.AddObject
Lparameters cName, cClass
*!* modificare ROAGEST v 2.0.51
If gnButon = 1
Thisform.actualizeaza_grid1()
Endif
*!* modificare ROAGEST v 2.0.51 ^
ENDPROC
PROCEDURE pgframe.Page1.Activate
DODEFAULT()
this.FontBold=.T.
*!* Thisform.but_modifica1.Enabled = .T.
*!* Thisform.but_modifica1.Visible = .T.
ENDPROC
PROCEDURE pgframe.Page1.cboValuta.Valid
thisform.nIdValutaTotal = cValuteRulTemp.id_valuta
thisform.calculeazatotaluri()
ENDPROC
PROCEDURE pgframe.Page1.DblClick
IF AMESSAGEBOX('Doriti sa activati modificarea inregistrarilor?' + CHR(13)+CHR(10) + 'Atentie trebuie refacut stocul dupa modificare!',4+32,_screen.Caption) = 6
IF INPUTBOX('Parola','Parola') = DTOS(DATE())
thisform.lModificareinregistrare = .T.
ENDIF
ENDIF
ENDPROC
PROCEDURE pgframe.Page1.Deactivate
this.FontBold=.F.
ENDPROC
PROCEDURE pgframe.Page1.grdrulaje.AfterRowColChange
Lparameters nColIndex
If This.RowColChange = 1 Or This.RowColChange= 3
thisform.lnoua=.T.
Select crsRulX
If cant#0
Thisform.pgframe.page2.Enabled=.T.
Thisform.pgframe.page3.Enabled=.F.
Else
Thisform.pgframe.page2.Enabled=.F.
Thisform.pgframe.page3.Enabled=.T.
Endif
Endif
DoDefault()
ENDPROC
PROCEDURE pgframe.Page1.grdrulaje.Init
This.SetAll("DynamicForeColor", "IIF(sters=1, RGB(255,0,0), RGB(0,0,0))", "Column")
ENDPROC
PROCEDURE pgframe.Page1.Text1.Refresh
*THIS.FORECOLOR=IIF(M.PRECDEB-M.PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page1.Text2.Refresh
*THIS.FORECOLOR=IIF(TINCASARI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page1.Text3.Refresh
*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page1.Text4.Refresh
*THIS.FORECOLOR=IIF(TINCASARI-TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page1.Text5.Refresh
*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page1.Text6.Refresh
*THIS.FORECOLOR=IIF(TINCASARI-TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page2.Activate
*!* 12.12.2014
*!* marius.mutu
*!* selectie rulaje dupa cod in loc de nnir
Private pntotal, pnCod, pnid_fact, pnnnir
Local lcSql, llEditMode, lnSucces
Local llDeleted, llLunaCurenta
Local loRul
pntotal = 0
DoDefault()
If This.Enabled
This.FontBold = .T.
ENDIF
llEditMode = Thisform.se_modifica
llLunaCurenta = .F.
llDeleted = .F.
If Thisform.lnoua And !m.llEditMode
Select crsRulX
SCATTER NAME loRul
pnCod = cod
thisform.cod = cod
llDeleted = !EMPTY(NVL(sters,0))
llLunaCurenta = (an = m.gnAn And luna = m.gnLuna)
With Thisform
.nnir = loRul.nnir
.nract = loRul.nract
.dataact = loRul.dataact
.partener = []
.id_partener = 0
.sectie = ALLTRIM(NVL(loRul.sectie, ''))
.id_sectie = loRul.id_sectie
.lucrare = Alltrim(NVL(loRul.nrord, ''))
.id_lucrare = loRul.id_lucrare
.responsabil = Alltrim(NVL(loRul.nresp,''))
.id_responsabil = loRul.id_responsabil
.serie_act = Alltrim(NVL(loRul.serie_act,''))
.oActOriginal = Null
Endwith
If m.pnCod > 0
Use In (SELECT('crsact'))
* achizitii de la furnizor sau id_set 100,219 - produse > intrare in gestiune productie proprie (fara furnizor)
lcSql = [select partc as partener, id_partc as id_partener, dataireg, id_set, cod from vact where an = ] + ALLTRIM(STR(m.gnAn)) + [ and luna = ] + ALLTRIM(STR(m.gnLuna)) + [ and cod = ] + ALLTRIM(STR(m.pnCod)) + [ and (NVL(id_partc,0) <> 0 or id_set in (100,219))]
lnSucces = goExecutor.oExecute(lcSql, 'crsact')
If m.lnSucces < 0
aMessagebox(goExecutor.cEroare, 0 + 16, 'Eroare')
Else
Select crsact
GO TOP
SCATTER NAME thisform.oactoriginal
With Thisform
.partener = Alltrim(NVL(partener,''))
.id_partener = NVL(id_partener, 0)
.dataireg = TTOD(dataireg)
Endwith
Use In (Select('crsact'))
Endif && lnSucces
Endif && m.pnid_fact > 0
save_grid_tag(This.grdnir)
ponir.ca_baza1.cfiltru = [a.cod=] + Alltrim(Str(m.pnCod))
ponir.ca_baza1.afisare()
restore_grid_tag(This.grdnir)
Select crsnir
Calculate Sum(Round(cant * (Pret + tva), gnPC)) To pntotal
Thisform.valoare = m.pntotal
Go Top
This.Refresh()
Thisform.lnoua = .F.
Endif
IF !m.llEditMode
Thisform.but_modifica1.Enabled = m.llLunaCurenta And !m.llDeleted && permit modificari doar in luna curenta si doar pe inregistrarile nesterse
Thisform.but_modifica1.Visible = .T.
ENDIF
ENDPROC
PROCEDURE pgframe.Page2.but_modifica_furnizor.Click
loCaut = caut_partener()
IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
thisform.partener = ALLTRIM(loCaut.denumire)
thisform.id_partener = loCaut.id_part
ENDIF
this.Parent.txtFurnizor.Refresh()
ENDPROC
PROCEDURE pgframe.Page2.but_modifica_lucrare.Click
loCaut = caut_lucrare()
IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
thisform.lucrare = ALLTRIM(loCaut.nrord)
thisform.id_lucrare = loCaut.id_lucrare
ENDIF
this.Parent.txtLucrare.Refresh()
ENDPROC
PROCEDURE pgframe.Page2.but_modifica_responsabil.Click
loCaut = caut_responsabil()
IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
thisform.responsabil = ALLTRIM(loCaut.nume)
thisform.id_responsabil = loCaut.id_responsabil
ENDIF
this.Parent.txtReponsabil.Refresh()
ENDPROC
PROCEDURE pgframe.Page2.but_modifica_sectie.Click
loCaut = caut_sectie()
IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
thisform.sectie = ALLTRIM(loCaut.sectie)
thisform.id_sectie = loCaut.id_sectie
ENDIF
this.Parent.txtSectie.Refresh()
ENDPROC
PROCEDURE pgframe.Page2.Deactivate
DODEFAULT()
This.FontBold=.F.
Local llEditMode, llRaspuns
llEditMode = THISFORM.se_modifica
IF m.llEditMode
llRaspuns = AMESSAGEBOX('Aveti modificari nesalvate.' + CHR(13) + CHR(10) + 'Doriti sa salvati?',4+32, _Screen.Caption)
IF m.llRaspuns = 6
thisform.salveaza_antet()
ELSE
thisform.editeaza_antet(.F.)
ENDIF
ENDIF
*!* thisform.but_modifica1.visible = .F.
*!* Thisform.but_modifica1.Enabled = .F.
ENDPROC
PROCEDURE pgframe.Page3.Activate
Private pntotal
Local lcSql, llDeleted, llEditMode, llLunaCurenta, lnSucces, loRul
PRIVATE pncod
pntotal=0
DoDefault()
If This.Enabled
This.FontBold=.T.
ENDIF
llEditMode = Thisform.se_modifica
llLunaCurenta = .F.
llDeleted = .F.
thisform.oActOriginal = NULL
If Thisform.lnoua And !m.llEditMode
Select crsRulX
SCATTER NAME loRul
pncod = cod
thisform.cod = cod
llDeleted = !EMPTY(NVL(sters,0))
llLunaCurenta = (an = m.gnAn And luna = m.gnLuna)
With Thisform
.nnir = loRul.nnir
.nract = loRul.nract
.dataact = loRul.dataact
.partener = []
.id_partener = 0
.sectie = ALLTRIM(NVL(loRul.sectie, ''))
.id_sectie = loRul.id_sectie
.lucrare = Alltrim(NVL(loRul.nrord, ''))
.id_lucrare = loRul.id_lucrare
.responsabil = Alltrim(NVL(loRul.nresp,''))
.id_responsabil = loRul.id_responsabil
.serie_act = Alltrim(NVL(loRul.serie_act,''))
.oActOriginal = Null
Endwith
If m.pncod > 0
lcSql = [SELECT * FROM act WHERE cod= ?pnCod]
lnSucces = goExecutor.oExecute(lcSql, 'crsact')
If m.lnSucces < 0
aMessagebox(goExecutor.cEroare, 0 + 16, 'Eroare')
ELSE
SELECT crsAct
IF RECCOUNT() > 0
GO TOP
SCATTER NAME thisform.oActOriginal
ENDIF
USE IN (SELECT('crsAct'))
ENDIF && lnSucces
save_grid(This.grdbon)
pobon.ca_baza1.cfiltru=[a.cod=] + Alltrim(Str(pncod))
pobon.ca_baza1.afisare()
restore_grid(This.grdbon)
Select crsbon
Calculate Sum(ROUND(cante*pretv,gnPC)) To pntotal
Thisform.valoare = m.pntotal
Else
Thisform.valoare = 0
Endif
Go Top
This.Refresh()
Thisform.lnoua = .F.
ENDIF
IF !m.llEditMode
Thisform.but_modifica1.Enabled = m.llLunaCurenta And !m.llDeleted && permit modificari doar in luna curenta si doar pe inregistrarile nesterse
Thisform.but_modifica1.Visible = .T.
ENDIF
ENDPROC
PROCEDURE pgframe.Page3.but_modifica_lucrare.Click
loCaut = caut_lucrare()
IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
thisform.lucrare = ALLTRIM(loCaut.nrord)
thisform.id_lucrare = loCaut.id_lucrare
ENDIF
this.Parent.txtLucrare.Refresh()
ENDPROC
PROCEDURE pgframe.Page3.but_modifica_responsabil.Click
loCaut = caut_responsabil()
IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
thisform.responsabil = ALLTRIM(loCaut.nume)
thisform.id_responsabil = loCaut.id_responsabil
ENDIF
this.Parent.txtReponsabil.Refresh()
ENDPROC
PROCEDURE pgframe.Page3.but_modifica_sectie.Click
loCaut = caut_sectie()
IF TYPE('loCaut') = 'O' AND !ISNULL(loCaut)
thisform.sectie = ALLTRIM(loCaut.sectie)
thisform.id_sectie = loCaut.id_sectie
ENDIF
this.Parent.txtSectie.Refresh()
ENDPROC
PROCEDURE pgframe.Page3.Deactivate
DODEFAULT()
This.FontBold=.F.
Local llEditMode, llRaspuns
llEditMode = THISFORM.se_modifica
IF m.llEditMode
llRaspuns = AMESSAGEBOX('Aveti modificari nesalvate.' + CHR(13) + CHR(10) + 'Doriti sa salvati?',4+32, _Screen.Caption)
IF m.llRaspuns = 6
thisform.salveaza_antet()
ELSE
thisform.editeaza_antet(.F.)
ENDIF
ENDIF
*!* thisform.but_modifica1.visible = .F.
*!* Thisform.but_modifica1.Enabled = .F.
ENDPROC
ENDDEFINE
DEFINE CLASS frm_rulaje_nou AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="shp_saft" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="img_parinte" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_gestiune" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_cant" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_cante" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboTVA" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_saft" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_saft" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_rulaje" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_gestiune
*p: ncant
*p: ncante
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 211
Name = "frm_rulaje_nou"
ncant = 0
ncante = 0
Width = 361
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 387
_shape1.ZOrderSet = 1
_shape2.Height = 29
_shape2.Left = 326
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 61
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.Caption = "Rulaj"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 8
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Left = 331
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_shape3' AS _shape WITH ;
BackStyle = 0, ;
Height = 29, ;
Left = 13, ;
Name = "_shape3", ;
Top = 144, ;
Width = 312, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\..\..\roacont\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 301, ;
Name = "But_renunt1", ;
TabIndex = 7, ;
Top = 1, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cbo_saft' AS combobox WITH ;
BorderColor = 128,128,128, ;
BorderStyle = 1, ;
BoundColumn = 4, ;
BoundTo = .T., ;
ColumnCount = 3, ;
ColumnLines = .F., ;
ColumnWidths = "500,150,50", ;
ControlSource = "poRec.taxcode", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 20, ;
InputMask = "", ;
Left = 84, ;
Name = "cbo_saft", ;
RowSource = "Select taxname, tip, procent_taxa, taxcode From saft_taxtable where tva = 1 order by taxcode Into Cursor crsTaxTableX", ;
RowSourceType = 3, ;
SpecialEffect = 1, ;
Style = 2, ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 177, ;
Visible = .F., ;
Width = 236, ;
ZOrderSet = 12
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'cboTVA' AS combobox WITH ;
BorderColor = 128,128,128, ;
BorderStyle = 1, ;
BoundColumn = 3, ;
BoundTo = .T., ;
ColumnCount = 2, ;
ColumnLines = .F., ;
ColumnWidths = "500,50", ;
ControlSource = "poRec.id_jtva_coloana", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 20, ;
InputMask = "", ;
Left = 84, ;
Name = "cboTVA", ;
RowSource = "select denumire, cota_tva, id_jtva_coloana From crsTVATemp order by denumire Into Cursor crsTVAX", ;
RowSourceType = 3, ;
SpecialEffect = 1, ;
Style = 2, ;
TabIndex = 4, ;
TabStop = .T., ;
Top = 149, ;
Visible = .T., ;
Width = 236, ;
ZOrderSet = 12
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'clb_gestiune' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "clb_gestiune", ;
TabIndex = 1, ;
TabStop = .F., ;
ToolTipText = "Pentru modificare, faceti dublu-click!", ;
Top = 55, ;
Width = 313, ;
ZOrderSet = 8, ;
Text_simplu1.ControlSource = "porec.cgest", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Value = , ;
Text_simplu1.Width = 206, ;
Lb_simplu1.Caption = "Gestiune", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_cant' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_cant", ;
TabIndex = 2, ;
Top = 83, ;
Width = 312, ;
ZOrderSet = 10, ;
Text_simplu1.ControlSource = "porec.cant", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 165, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 141, ;
Lb_simplu1.Caption = "Cantitate intrata:", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_cante' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_cante", ;
TabIndex = 3, ;
Top = 111, ;
Width = 312, ;
ZOrderSet = 11, ;
Text_simplu1.ControlSource = "porec.cante", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 165, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 141, ;
Lb_simplu1.Caption = "Cantitate iesita:", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_rulaje' AS cus_odata_rulaje WITH ;
Left = 120, ;
Name = "Cus_odata_rulaje", ;
Top = 24
*< END OBJECT: ClassLib="rulaje.vcx" BaseClass="custom" />
ADD OBJECT 'img_parinte' AS _image WITH ;
Height = 24, ;
Left = 331, ;
Name = "img_parinte", ;
Picture = ..\grafice\alege.bmp, ;
Stretch = 2, ;
ToolTipText = "Alegeti valuta", ;
Top = 57, ;
Width = 24, ;
ZOrderSet = 7
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 22, ;
Name = "Label1", ;
TabIndex = 9, ;
Top = 150, ;
Visible = .T., ;
Width = 27, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lb_saft' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Cod taxa", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 22, ;
Name = "lb_saft", ;
TabIndex = 10, ;
Top = 178, ;
Visible = .F., ;
Width = 54, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'shp_saft' AS _shape WITH ;
BackStyle = 0, ;
Height = 29, ;
Left = 13, ;
Name = "shp_saft", ;
Top = 172, ;
Width = 312, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\..\..\roacont\comun\clase\_baza.vcx" BaseClass="shape" />
PROCEDURE Destroy
USE IN (SELECT('crsTVATemp'))
ENDPROC
PROCEDURE do_alege_gestiune
Local loCauta
loCauta = caut_gestiune()
IF !EMPTY(loCauta.id_gestiune)
poRec.id_gestiune = loCauta.id_gestiune
poRec.cgest = loCauta.cgest
ENDIF
this.clb_gestiune.text_simplu1.Refresh()
ENDPROC
PROCEDURE inainte_de_do_termin
LOCAL PLRETURN
lccontrol = UPPER(this.ActiveControl.BaseClass )
IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
lcval=This.Activecontrol.controlsource
&lcval=thisform.ActiveControl.value
ENDIF
IF EMPTY(porec.id_gestiune)
lcTitlu=[Atentie]
lcMesaj=[Nu ati ales gestiunea!]
lcimagine = [exclam.ico]
lctip = [Avertizare]
ofrm_av = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
ofrm_av.show(1)
RELEASE ofrm_av
This.clb_gestiune.SetFocus()
plreturn=.F.
ELSE
IF (this.ncant # 0 AND poRec.cante # 0) OR (this.ncante # 0 AND poRec.cant # 0)
lcTitlu=[Atentie]
lcMesaj=[Nu puteti schimba decat cantitatea intrata/iesita !]
lcimagine = [exclam.ico]
lctip = [Avertizare]
ofrm_av = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
ofrm_av.show(1)
RELEASE ofrm_av
plreturn=.F.
RETURN plreturn
ENDIF
PLRETURN=This.cus_odata_rulaje.salvare(This.OREC,This.NID)
ENDIF
Return PLRETURN
ENDPROC
PROCEDURE Init
LPARAMETERS toRec, tnId, tcActiune
DODEFAULT()
this.orec= toRec
this.nid = tnId
this.cus_odata_rulaje.cactiune = tcActiune
this.nCant = toRec.cant
this.nCante = toRec.Cante
IF toRec.cant # 0
this.clb_tx_cante.text_simplu1.ReadOnly= .T.
ELSE
this.clb_tx_cant.text_simplu1.ReadOnly= .T.
ENDIF
This.cbo_saft.Visible = m.gl406
this.lb_saft.Visible = m.gl406
this.shp_saft.Visible = m.gl406
ENDPROC
PROCEDURE Load
If !Used('saft_taxtable')
update_saft_taxtable()
ENDIF
update_jtva_coloane([],[jtva_temp])
Select space(100) as denumire, cast(null as N(5)) as cota_tva, cast(null as I) as id_jtva_coloana, -1 as ordine from dual ;
UNION ;
select denumire, cota_tva, id_jtva_coloana, ordine ;
From jtva_temp ;
where afisat = 1 ;
order by denumire ;
Into Cursor crsTVATemp
USE IN (SELECT('jtva_temp'))
ENDPROC
PROCEDURE cboTVA.LostFocus
poRec.proc_tva = 1 + ROUND(NVL(crsTvaX.cota_tva,0)/100,2)
ENDPROC
PROCEDURE cbo_saft.LostFocus
This.ForeColor = Rgb(0, 0, 0)
ENDPROC
PROCEDURE clb_gestiune.Text_simplu1.DblClick
Thisform.do_alege_gestiune()
ENDPROC
PROCEDURE img_parinte.Click
Thisform.do_alege_gestiune()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_rulaje_obinv AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="but_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrCrt.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrCrt.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNnir.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNnir.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCodmat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUM.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPret.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPret.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCant.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCant.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCante.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCante.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCod.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCod.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAcont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAcont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGest.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGest.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrord.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCurs.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cCurs.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProcent.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProcent.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAdaos.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cAdaos.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cValoare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretv.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretv.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTvav.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTvav.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretvtva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cPretvtva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProc_tva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cProc_tva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtil.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cUtil.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataora.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataora.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSectie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSectie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDatain.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDatain.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataOut.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cDataOut.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNresp.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNresp.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGestC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cGestC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrespC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrespC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTipRulaj.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cTipRulaj.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column34.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column34.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column35.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column35.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column36.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column36.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column37.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column37.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSucursala.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSucursala.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cRespMarca.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cRespMarca.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cRespCMarca.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cRespCMarca.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdSet.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cIdSet.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFdoc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cFdoc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrAct.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cNrAct.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.cSerie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column45.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.grdrulaje.Column45.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page1.Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cNrcrt.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cNrcrt.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCodMat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCodMat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cUM.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cPret.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cPret.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCant.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCant.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cValoare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cValoare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTotal.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cTotal.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCod.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cCod.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cResponsabil.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.grdnir.cResponsabil.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.ck_nrcrt" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.ck_valoare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page2.Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNrcrt.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNrcrt.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDataact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDataact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNract.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cNract.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cUM.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cUM.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cPretv.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cPretv.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cCante.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cCante.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cValoare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cValoare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cResponsabil.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.grdbon.cResponsabil.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.ck_nrcrt" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.ck_valoare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgframe.Page3.Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Xresize1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_filtru_tiprulaj" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: calculeazatotaluri
*m: do_listare3
*p: lnoua && Specifica daca s-a trecut pe alta inregistrare in rulaje.
*p: ncanti && Intoarce cantitate intrari.
*p: ncantie && Intoarce cantitate iesiri.
*p: nsumi && Intoarce valoarea intrarilor.
*p: nsumie && Intoarce valoarea iesirilor.
*</DefinedPropArrayMethod>
*<PropValue>
cbuton2 = but_listare1;but_listare2
cgridsortlist = pgframe.page1.grdrulaje
DoCreate = .T.
Height = 500
Name = "frm_rulaje_obinv"
ncanti = 0
ncantie = 0
nsumi = 0
nsumie = 0
Width = 750
WindowState = 2
_shape1.Height = 28
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Tag = "RESIZABLE, NOVERTICAL_RESIZE"
_shape1.Top = 0
_shape1.Width = 756
_shape2.Height = 29
_shape2.Left = 564
_shape2.Name = "_shape2"
_shape2.Tag = "MOVABLE,NOVERTICAL_MOVE"
_shape2.Top = -1
_shape2.Width = 186
Lb_titlu_alb_b121.Caption = "RULAJE *"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 21
Lb_titlu_alb_b121.Top = 0
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 720
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 15
BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE"
BUT_TERMIN1.Top = 0
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 689, ;
Name = "But_excel1", ;
TabIndex = 16, ;
Top = 0, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 658, ;
Name = "But_listare1", ;
TabIndex = 18, ;
Top = 0, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'but_modifica1' AS but_modifica WITH ;
Anchor = 9, ;
Height = 27, ;
Left = 629, ;
Name = "but_modifica1", ;
TabIndex = 19, ;
Top = 0, ;
Width = 29
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
Anchor = 9, ;
Left = 542, ;
Name = "But_reset_criterii1", ;
Top = 0
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
Left = 572, ;
Name = "But_start_criterii1", ;
Top = 0
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'ck_filtru_tiprulaj' AS ck_filtru_nom WITH ;
Alignment = 0, ;
Caption = "Tip rulaj", ;
ctraducere = Tip rulaj este 'INTRARE/IESIRE REALA', ;
filtru = and (id_tip_rulaj=0), ;
Left = 533, ;
Name = "ck_filtru_tiprulaj", ;
Top = 38, ;
Value = 1, ;
Visible = .F.
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
gridexpression = thisform.pgframe.page1.grdrulaje, ;
Height = 17, ;
Left = 295, ;
Name = "Gridextra1", ;
Top = 53, ;
Width = 33
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
Caption = "ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
Left = 7, ;
Name = "Lb_shortcuts1", ;
Top = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'pgframe' AS _pageframe WITH ;
ErasePage = .T., ;
Height = 456, ;
Left = 12, ;
Name = "pgframe", ;
PageCount = 3, ;
TabIndex = 20, ;
TabStyle = 1, ;
Tag = "RESIZABLE", ;
Top = 36, ;
Width = 732, ;
Page1.BackColor = 255,255,255, ;
Page1.Caption = "Rulaje", ;
Page1.Name = "Page1", ;
Page2.BackColor = 255,255,255, ;
Page2.Caption = "NIR - Intrari", ;
Page2.Name = "Page2", ;
Page3.BackColor = 255,255,255, ;
Page3.Caption = "Bon - Iesiri", ;
Page3.Name = "Page3"
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />
ADD OBJECT 'pgframe.Page1.grdrulaje' AS _grdrow WITH ;
ColumnCount = 45, ;
DeleteMark = .F., ;
GridLineColor = 128,128,128, ;
Height = 342, ;
Left = 11, ;
Name = "grdrulaje", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "crsrul", ;
TabIndex = 1, ;
Tag = "RESIZABLE", ;
Top = 80, ;
Width = 708, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "nrcrt", ;
Column1.FontName = "Arial", ;
Column1.Format = "R", ;
Column1.InputMask = "999 999", ;
Column1.Name = "cNrCrt", ;
Column1.ReadOnly = .T., ;
Column1.Width = 44, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "nnir", ;
Column2.FontName = "Arial", ;
Column2.Name = "cNnir", ;
Column2.ReadOnly = .T., ;
Column2.Width = 76, ;
Column3.ColumnOrder = 5, ;
Column3.ControlSource = "dataact", ;
Column3.FontName = "Arial", ;
Column3.Name = "cDataact", ;
Column3.ReadOnly = .T., ;
Column3.Width = 79, ;
Column4.ColumnOrder = 6, ;
Column4.ControlSource = "codmat", ;
Column4.FontName = "Arial", ;
Column4.Name = "cCodmat", ;
Column4.ReadOnly = .T., ;
Column5.ColumnOrder = 7, ;
Column5.ControlSource = "denumire", ;
Column5.FontName = "Arial", ;
Column5.Name = "cDenumire", ;
Column5.ReadOnly = .T., ;
Column5.Width = 196, ;
Column6.ColumnOrder = 8, ;
Column6.ControlSource = "um", ;
Column6.FontName = "Arial", ;
Column6.Name = "cUM", ;
Column6.ReadOnly = .T., ;
Column6.Width = 39, ;
Column7.ColumnOrder = 11, ;
Column7.ControlSource = "pret", ;
Column7.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column7.FontName = "Arial", ;
Column7.Format = "R", ;
Column7.InputMask = (get_mask(12,gnPPRET)), ;
Column7.Name = "cPret", ;
Column7.ReadOnly = .T., ;
Column7.Width = 70, ;
Column8.ColumnOrder = 37, ;
Column8.ControlSource = "ttod(data_expirare)", ;
Column8.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(0,0,255))", ;
Column8.FontName = "Arial", ;
Column8.Format = "", ;
Column8.InputMask = "", ;
Column8.Name = "cCant", ;
Column8.ReadOnly = .T., ;
Column8.Width = 81, ;
Column9.ColumnOrder = 36, ;
Column9.ControlSource = "dns_luni", ;
Column9.FontName = "Arial", ;
Column9.Format = "", ;
Column9.InputMask = "", ;
Column9.Name = "cCante", ;
Column9.ReadOnly = .T., ;
Column9.Width = 83, ;
Column10.ColumnOrder = 17, ;
Column10.ControlSource = "cont", ;
Column10.FontName = "Arial", ;
Column10.Name = "cCont", ;
Column10.ReadOnly = .T., ;
Column10.Width = 46, ;
Column11.ColumnOrder = 33, ;
Column11.ControlSource = "cod", ;
Column11.FontName = "Arial", ;
Column11.Name = "cCod", ;
Column11.ReadOnly = .T., ;
Column12.ColumnOrder = 18, ;
Column12.ControlSource = "acont", ;
Column12.FontName = "Arial", ;
Column12.Name = "cAcont", ;
Column12.ReadOnly = .T., ;
Column12.Width = 47, ;
Column13.ColumnOrder = 14, ;
Column13.ControlSource = "cgest", ;
Column13.FontName = "Arial", ;
Column13.Name = "cGest", ;
Column13.ReadOnly = .T., ;
Column13.Width = 111, ;
Column14.ColumnOrder = 19, ;
Column14.ControlSource = "nrord", ;
Column14.FontName = "Arial", ;
Column14.Name = "cNrord", ;
Column14.ReadOnly = .T., ;
Column14.Width = 100, ;
Column15.ColumnOrder = 20, ;
Column15.ControlSource = "curs", ;
Column15.FontName = "Arial", ;
Column15.Format = "R", ;
Column15.InputMask = (get_mask(12,gnPcurs)), ;
Column15.Name = "cCurs", ;
Column15.ReadOnly = .T., ;
Column16.ColumnOrder = 21, ;
Column16.ControlSource = "pretd", ;
Column16.FontName = "Arial", ;
Column16.Format = "R", ;
Column16.InputMask = (get_mask(12,gnPPretVal)), ;
Column16.Name = "cPretd", ;
Column16.ReadOnly = .T., ;
Column16.Width = 63, ;
Column17.ColumnOrder = 22, ;
Column17.ControlSource = "procent", ;
Column17.FontName = "Arial", ;
Column17.Format = "R", ;
Column17.InputMask = "999 999.99", ;
Column17.Name = "cProcent", ;
Column17.ReadOnly = .T., ;
Column17.Width = 50, ;
Column18.ColumnOrder = 23, ;
Column18.ControlSource = "iif(pretv#0,pretv-pret,0)", ;
Column18.FontName = "Arial", ;
Column18.Format = "R", ;
Column18.InputMask = (get_mask(12,gnPPRET)), ;
Column18.Name = "cAdaos", ;
Column18.ReadOnly = .T., ;
Column18.Width = 56, ;
Column19.ColumnOrder = 24, ;
Column19.ControlSource = "tva", ;
Column19.FontName = "Arial", ;
Column19.Format = "R", ;
Column19.InputMask = (get_mask(12,gnPPRET)), ;
Column19.Name = "cTva", ;
Column19.ReadOnly = .T., ;
Column19.Width = 75, ;
Column20.ColumnOrder = 25, ;
Column20.ControlSource = "round((cant+cante)*(pret+tva),gnPc)", ;
Column20.FontName = "Arial", ;
Column20.Format = "R", ;
Column20.InputMask = (get_mask(12,gnPa)), ;
Column20.Name = "cValoare", ;
Column20.ReadOnly = .T., ;
Column21.ColumnOrder = 26, ;
Column21.ControlSource = "pretv", ;
Column21.FontName = "Arial", ;
Column21.Format = "R", ;
Column21.InputMask = (get_mask(14,gnPPretV)), ;
Column21.Name = "cPretv", ;
Column21.ReadOnly = .T., ;
Column22.ColumnOrder = 27, ;
Column22.ControlSource = "tvav", ;
Column22.FontName = "Arial", ;
Column22.Format = "R", ;
Column22.InputMask = (get_mask(14,gnPPretV)), ;
Column22.Name = "cTvav", ;
Column22.ReadOnly = .T., ;
Column23.ColumnOrder = 28, ;
Column23.ControlSource = "pretv+tvav", ;
Column23.FontName = "Arial", ;
Column23.Format = "R", ;
Column23.InputMask = (get_mask(14,gnPPretV)), ;
Column23.Name = "cPretvtva", ;
Column23.ReadOnly = .T., ;
Column24.ColumnOrder = 29, ;
Column24.ControlSource = "proc_tvav", ;
Column24.FontName = "Arial", ;
Column24.Format = "R", ;
Column24.InputMask = "9.99", ;
Column24.Name = "cProc_tva", ;
Column24.ReadOnly = .T., ;
Column24.Width = 47, ;
Column25.ColumnOrder = 44, ;
Column25.ControlSource = "util", ;
Column25.FontName = "Arial", ;
Column25.Name = "cUtil", ;
Column25.ReadOnly = .T., ;
Column25.Width = 117, ;
Column26.ColumnOrder = 45, ;
Column26.ControlSource = "dataora", ;
Column26.FontName = "Arial", ;
Column26.Name = "cDataora", ;
Column26.ReadOnly = .T., ;
Column26.Width = 113, ;
Column27.ColumnOrder = 30, ;
Column27.ControlSource = "sectie", ;
Column27.FontName = "Arial", ;
Column27.Name = "cSectie", ;
Column27.ReadOnly = .T., ;
Column28.ColumnOrder = 31, ;
Column28.ControlSource = "datain", ;
Column28.FontName = "Arial", ;
Column28.Name = "cDatain", ;
Column28.ReadOnly = .T., ;
Column29.ColumnOrder = 32, ;
Column29.ControlSource = "dataout", ;
Column29.FontName = "Arial", ;
Column29.Name = "cDataOut", ;
Column29.ReadOnly = .T., ;
Column30.ColumnOrder = 15, ;
Column30.ControlSource = "nresp", ;
Column30.FontName = "Arial", ;
Column30.Name = "cNresp", ;
Column30.ReadOnly = .T., ;
Column30.Width = 116, ;
Column31.ColumnOrder = 38, ;
Column31.ControlSource = "cgestc", ;
Column31.FontName = "Arial", ;
Column31.Name = "cGestC", ;
Column31.ReadOnly = .T., ;
Column32.ColumnOrder = 39, ;
Column32.ControlSource = "nrespc", ;
Column32.FontName = "Arial", ;
Column32.Name = "cNrespC", ;
Column32.ReadOnly = .T., ;
Column32.Width = 91, ;
Column33.ColumnOrder = 41, ;
Column33.ControlSource = "tip_rulaj", ;
Column33.FontName = "Arial", ;
Column33.Name = "cTipRulaj", ;
Column33.ReadOnly = .T., ;
Column34.ColumnOrder = 12, ;
Column34.ControlSource = "cant", ;
Column34.FontName = "Arial", ;
Column34.Format = "R", ;
Column34.InputMask = (get_mask(12,gnPCANT)), ;
Column34.Name = "Column34", ;
Column34.ReadOnly = .T., ;
Column34.Width = 45, ;
Column35.ColumnOrder = 13, ;
Column35.ControlSource = "cante", ;
Column35.FontName = "Arial", ;
Column35.Format = "R", ;
Column35.InputMask = (get_mask(12,gnPCANT)), ;
Column35.Name = "Column35", ;
Column35.ReadOnly = .T., ;
Column35.Width = 40, ;
Column36.ColumnOrder = 34, ;
Column36.ControlSource = "ttod(datapif)", ;
Column36.FontName = "Arial", ;
Column36.Name = "Column36", ;
Column36.ReadOnly = .T., ;
Column36.Width = 53, ;
Column37.ColumnOrder = 35, ;
Column37.ControlSource = "dnf", ;
Column37.FontName = "Arial", ;
Column37.Name = "Column37", ;
Column37.ReadOnly = .T., ;
Column37.Width = 63, ;
Column38.ColumnOrder = 43, ;
Column38.ControlSource = "sucursala", ;
Column38.FontName = "Arial", ;
Column38.Name = "cSucursala", ;
Column38.ReadOnly = .T., ;
Column38.Width = 93, ;
Column39.ColumnOrder = 16, ;
Column39.ControlSource = "resp_marca", ;
Column39.Name = "cRespMarca", ;
Column39.ReadOnly = .T., ;
Column39.Width = 106, ;
Column40.ColumnOrder = 40, ;
Column40.ControlSource = "respc_marca", ;
Column40.Name = "cRespCMarca", ;
Column40.ReadOnly = .T., ;
Column40.Width = 118, ;
Column41.ColumnOrder = 42, ;
Column41.ControlSource = "id_set", ;
Column41.Name = "cIdSet", ;
Column41.ReadOnly = .T., ;
Column42.ColumnOrder = 3, ;
Column42.ControlSource = "fdoc", ;
Column42.Name = "cFdoc", ;
Column42.ReadOnly = .T., ;
Column43.ColumnOrder = 4, ;
Column43.ControlSource = "nract", ;
Column43.Name = "cNrAct", ;
Column43.ReadOnly = .T., ;
Column43.Width = 81, ;
Column44.ColumnOrder = 9, ;
Column44.ControlSource = "serie", ;
Column44.Name = "cSerie", ;
Column44.ReadOnly = .T., ;
Column45.ColumnOrder = 10, ;
Column45.ControlSource = "lot", ;
Column45.Name = "Column45", ;
Column45.ReadOnly = .T.
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAcont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAcont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAdaos.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Adaos", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cAdaos.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCant.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data expirare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCant.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCante.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Durata ramasa", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCante.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCod.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCod.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod material", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCodmat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCurs.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs valutar", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cCurs.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDatain.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data intrare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDatain.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataora.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora introducere", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataora.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataOut.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data iesire", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDataOut.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cFdoc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel document", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cFdoc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGest.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiunea", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGest.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGestC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Gestiune C", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cGestC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdSet.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip operatie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cIdSet.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNnir.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. NIR/Bon", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNnir.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrAct.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. act", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrAct.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrCrt.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.crt.", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrCrt.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNresp.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNresp.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrespC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil C", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrespC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare/Comanda", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cNrord.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column34.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Primit", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column34.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column35.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Retur", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column35.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column36.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data PIF", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column36.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column37.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "DNF", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column37.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column45.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lot", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.Column45.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPret.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPret.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret in valuta", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretv.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret vanzare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretv.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretvtva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret vanzare cu TVA", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cPretvtva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cProc_tva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cota TVA", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cProc_tva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cProcent.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cProcent.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cRespCMarca.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Marca responsabil C", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cRespCMarca.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cRespMarca.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Marca responsabil", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cRespMarca.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSectie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSectie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSerie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSucursala.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cSucursala.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTipRulaj.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip rulaj", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTipRulaj.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA achizitie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTvav.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA vanzare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cTvav.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUM.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUtil.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operator introducere", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cUtil.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cValoare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare achizitie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page1.grdrulaje.cValoare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Label1' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Cantitate intrari", ;
Height = 18, ;
Left = 190, ;
Name = "Label1", ;
TabIndex = 27, ;
Top = 17, ;
Visible = .T., ;
Width = 90, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label2' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Cantitate iesiri", ;
Height = 18, ;
Left = 190, ;
Name = "Label2", ;
TabIndex = 26, ;
Top = 45, ;
Visible = .T., ;
Width = 85, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label3' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Valoare intrari", ;
Height = 18, ;
Left = 431, ;
Name = "Label3", ;
TabIndex = 28, ;
Top = 17, ;
Visible = .T., ;
Width = 82, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Label4' AS _label WITH ;
Anchor = 9, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Valoare iesiri", ;
Height = 18, ;
Left = 431, ;
Name = "Label4", ;
TabIndex = 29, ;
Top = 45, ;
Visible = .T., ;
Width = 77, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page1.Shape1' AS shape WITH ;
Anchor = 9, ;
BackColor = 255,255,255, ;
Height = 65, ;
Left = 179, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 8, ;
Visible = .T., ;
Width = 530, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'pgframe.Page1.Text1' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.ncanti", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPCANT)), ;
Left = 290, ;
Name = "Text1", ;
ReadOnly = .T., ;
TabIndex = 20, ;
TabStop = .F., ;
Top = 14, ;
Visible = .T., ;
Width = 110, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Text2' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.ncantie", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPCANT)), ;
Left = 290, ;
Name = "Text2", ;
ReadOnly = .T., ;
TabIndex = 21, ;
TabStop = .F., ;
Top = 42, ;
Visible = .T., ;
Width = 110, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Text3' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nsumi", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 515, ;
Name = "Text3", ;
ReadOnly = .T., ;
TabIndex = 22, ;
TabStop = .F., ;
Top = 14, ;
Visible = .T., ;
Width = 168, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page1.Text4' AS _textbox WITH ;
Alignment = 1, ;
Anchor = 9, ;
BackColor = 255,255,255, ;
ControlSource = "thisform.nsumie", ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 515, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 23, ;
TabStop = .F., ;
Top = 42, ;
Visible = .T., ;
Width = 168, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.ck_nrcrt' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Numere de ordine", ;
Left = 13, ;
Name = "ck_nrcrt", ;
TabIndex = 1, ;
Top = 20, ;
Value = 1
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'pgframe.Page2.ck_valoare' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Valoare factura", ;
Left = 13, ;
Name = "ck_valoare", ;
TabIndex = 2, ;
Top = 43
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'pgframe.Page2.grdnir' AS _grdrow WITH ;
ColumnCount = 11, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 128,128,128, ;
Height = 342, ;
Left = 11, ;
Name = "grdnir", ;
Panel = 1, ;
RecordSource = "crsnir", ;
TabIndex = 3, ;
Tag = "RESIZABLE", ;
Top = 80, ;
Width = 708, ;
Column1.ControlSource = "nrcrt", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cNrcrt", ;
Column1.Width = 44, ;
Column2.ControlSource = "codmat", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cCodMat", ;
Column2.Width = 76, ;
Column3.ControlSource = "denumire", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "cDenumire", ;
Column3.Width = 156, ;
Column4.ControlSource = "um", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "cUM", ;
Column4.Width = 39, ;
Column5.ControlSource = "pret", ;
Column5.DynamicForeColor = "IIF(pret>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column5.FontName = "Arial Narrow", ;
Column5.Format = "R", ;
Column5.InputMask = (get_mask(12,gnPpret)), ;
Column5.Name = "cPret", ;
Column5.Width = 70, ;
Column6.ColumnOrder = 6, ;
Column6.ControlSource = "cant", ;
Column6.DynamicForeColor = "IIF(cant>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column6.FontName = "Arial Narrow", ;
Column6.Format = "R", ;
Column6.InputMask = (get_mask(12,gnPcant)), ;
Column6.Name = "cCant", ;
Column6.Width = 68, ;
Column7.ColumnOrder = 7, ;
Column7.ControlSource = "round(pret*cant,gnPc)", ;
Column7.FontName = "Arial Narrow", ;
Column7.Format = "R", ;
Column7.InputMask = (get_mask(12,gnPA)), ;
Column7.Name = "cValoare", ;
Column8.ControlSource = "round(tva*cant,gnPc)", ;
Column8.FontName = "Arial Narrow", ;
Column8.Format = "R", ;
Column8.InputMask = (get_mask(12,gnPA)), ;
Column8.Name = "cTva", ;
Column8.Width = 55, ;
Column9.ControlSource = "round(cant*(pret+tva),gnPc)", ;
Column9.FontName = "Arial Narrow", ;
Column9.Format = "R", ;
Column9.InputMask = (get_mask(12,gnPA)), ;
Column9.Name = "cTotal", ;
Column9.Width = 83, ;
Column10.ColumnOrder = 11, ;
Column10.ControlSource = "cod", ;
Column10.FontName = "Arial Narrow", ;
Column10.Name = "cCod", ;
Column11.ColumnOrder = 10, ;
Column11.FontName = "Arial Narrow", ;
Column11.Name = "cResponsabil", ;
Column11.Width = 120
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'pgframe.Page2.grdnir.cCant.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Intrari", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cCant.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cCod.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cCod.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cCodMat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod material", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cCodMat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cNrcrt.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.crt.", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cNrcrt.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cPret.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret achizitie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cPret.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cResponsabil.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cResponsabil.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cTotal.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total achizitie", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cTotal.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cTva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cUM.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.grdnir.cValoare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page2.grdnir.cValoare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.Label1' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Factura seria", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 146, ;
Name = "Label1", ;
TabIndex = 12, ;
Top = 20, ;
Width = 85, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label2' AS _label WITH ;
Alignment = 2, ;
AutoSize = .F., ;
BackColor = 255,255,255, ;
Caption = "/", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 17, ;
Left = 420, ;
Name = "Label2", ;
TabIndex = 13, ;
Top = 21, ;
Width = 11, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label3' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Valoare factura", ;
Height = 18, ;
Left = 146, ;
Name = "Label3", ;
TabIndex = 11, ;
Top = 48, ;
Visible = .F., ;
Width = 89, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label4' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "NIR nr.", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 511, ;
Name = "Label4", ;
TabIndex = 9, ;
Top = 20, ;
Width = 45, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label5' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Furnizor", ;
Height = 18, ;
Left = 511, ;
Name = "Label5", ;
TabIndex = 10, ;
Top = 48, ;
Width = 49, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Label6' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "nr.", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 289, ;
Name = "Label6", ;
TabIndex = 12, ;
Top = 20, ;
Width = 19, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page2.Shape1' AS shape WITH ;
BackColor = 255,255,255, ;
Height = 65, ;
Left = 143, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 8, ;
Width = 576, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'pgframe.Page2.Text1' AS _textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = "999 999 999 999", ;
Left = 309, ;
Name = "Text1", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 18, ;
Value = 0, ;
Visible = .T., ;
Width = 112
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.Text2' AS _textbox WITH ;
Alignment = 2, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Height = 23, ;
Left = 429, ;
Name = "Text2", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 8, ;
TabStop = .F., ;
Top = 18, ;
Value = ({}), ;
Width = 81
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.Text3' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 234, ;
Name = "Text3", ;
ReadOnly = .T., ;
TabIndex = 4, ;
TabStop = .F., ;
Top = 45, ;
Value = 0, ;
Visible = .F., ;
Width = 163, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.Text4' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = "999 999 999 999", ;
Left = 562, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 18, ;
Value = 0, ;
Width = 151, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.Text5' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Height = 23, ;
Left = 562, ;
Name = "Text5", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 45, ;
Width = 151, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page2.Text6' AS _textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Height = 23, ;
Left = 231, ;
Name = "Text6", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 18, ;
Value = 0, ;
Visible = .T., ;
Width = 56
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.ck_nrcrt' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Numere de ordine", ;
Left = 23, ;
Name = "ck_nrcrt", ;
TabIndex = 1, ;
Top = 27, ;
Value = 1
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'pgframe.Page3.ck_valoare' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Valoare bon", ;
Left = 23, ;
Name = "ck_valoare", ;
TabIndex = 2, ;
Top = 50
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'pgframe.Page3.grdbon' AS _grdrow WITH ;
ColumnCount = 9, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 128,128,128, ;
Height = 342, ;
Left = 11, ;
Name = "grdbon", ;
Panel = 1, ;
RecordSource = "crsbon", ;
TabIndex = 3, ;
Tag = "RESIZABLE", ;
Top = 80, ;
Width = 708, ;
Column1.ColumnOrder = 1, ;
Column1.ControlSource = "nrcrt", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cNrcrt", ;
Column1.Width = 44, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "dataact", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cDataact", ;
Column2.Width = 60, ;
Column3.ControlSource = "nnir", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "cNract", ;
Column3.Width = 65, ;
Column4.ControlSource = "denumire", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "cDenumire", ;
Column4.Width = 156, ;
Column5.ControlSource = "um", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "cUM", ;
Column5.Width = 39, ;
Column6.ControlSource = "pretv", ;
Column6.DynamicForeColor = "IIF(pretv>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column6.FontName = "Arial Narrow", ;
Column6.Format = "R", ;
Column6.InputMask = (get_mask(14,gnPPretV)), ;
Column6.Name = "cPretv", ;
Column6.Width = 100, ;
Column7.ControlSource = "cante", ;
Column7.DynamicForeColor = "IIF(cante>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column7.FontName = "Arial Narrow", ;
Column7.Format = "R", ;
Column7.InputMask = (get_mask(12,gnPcant)), ;
Column7.Name = "cCante", ;
Column7.Width = 90, ;
Column8.ControlSource = "round(cante*pretv,gnPc)", ;
Column8.FontName = "Arial Narrow", ;
Column8.Format = "R", ;
Column8.InputMask = (get_mask(12,gnPA)), ;
Column8.Name = "cValoare", ;
Column8.Width = 110, ;
Column9.ControlSource = "nresp", ;
Column9.FontName = "Arial Narrow", ;
Column9.Name = "cResponsabil", ;
Column9.Width = 106
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'pgframe.Page3.grdbon.cCante.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Iesiri", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cCante.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cDataact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cDataact.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cNract.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. act", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cNract.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cNrcrt.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.crt.", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cNrcrt.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cPretv.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cPretv.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cResponsabil.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cResponsabil.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cUM.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "UM", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cUM.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.grdbon.cValoare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pgframe.Page3.grdbon.cValoare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.Label1' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Bon nr.", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 18, ;
Left = 266, ;
Name = "Label1", ;
TabIndex = 12, ;
Top = 2, ;
Width = 48, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label2' AS _label WITH ;
Alignment = 2, ;
AutoSize = .F., ;
BackColor = 255,255,255, ;
Caption = "/", ;
FontBold = .T., ;
FontSize = 10, ;
Height = 17, ;
Left = 451, ;
Name = "Label2", ;
TabIndex = 13, ;
Top = 5, ;
Width = 11, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label3' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Valoare bon", ;
Height = 18, ;
Left = 216, ;
Name = "Label3", ;
TabIndex = 9, ;
Top = 27, ;
Visible = .F., ;
Width = 71, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label4' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Destinatie", ;
Height = 18, ;
Left = 372, ;
Name = "Label4", ;
TabIndex = 10, ;
Top = 27, ;
Width = 60, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Label5' AS _label WITH ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Responsabil", ;
Height = 18, ;
Left = 523, ;
Name = "Label5", ;
TabIndex = 11, ;
Top = 27, ;
Width = 73, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgframe.Page3.Shape1' AS shape WITH ;
BackColor = 255,255,255, ;
Height = 65, ;
Left = 170, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 11, ;
Width = 477, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'pgframe.Page3.Text1' AS _textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Height = 23, ;
InputMask = "999 999 999 999", ;
Left = 338, ;
Name = "Text1", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 2, ;
Value = 0, ;
Visible = .T., ;
Width = 112
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.Text2' AS _textbox WITH ;
Alignment = 2, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Height = 23, ;
Left = 463, ;
Name = "Text2", ;
ReadOnly = .T., ;
SpecialEffect = 0, ;
TabIndex = 8, ;
TabStop = .F., ;
Top = 2, ;
Value = ({}), ;
Width = 112
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.Text3' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Format = "R", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 184, ;
Name = "Text3", ;
ReadOnly = .T., ;
TabIndex = 4, ;
TabStop = .F., ;
Top = 46, ;
Value = 0, ;
Visible = .F., ;
Width = 133, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.Text4' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Height = 23, ;
Left = 329, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 46, ;
Width = 144, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'pgframe.Page3.Text5' AS _textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
FontName = "Arial", ;
Height = 23, ;
Left = 484, ;
Name = "Text5", ;
ReadOnly = .T., ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 46, ;
Width = 151, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'Xresize1' AS xresize WITH ;
Left = 732, ;
Name = "Xresize1", ;
Top = 48
*< END OBJECT: ClassLib="xresize.vcx" BaseClass="custom" />
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru
lcFiltru=tcFiltru
If Empty(lcFiltru)
lcFiltru=porulaje.ca_baza1.cfiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform.pgframe.page1.grdrulaje)
porulaje.ca_baza1.cfiltru=lcFiltru
porulaje.ca_baza1.afisare()
restore_grid_tag(Thisform.pgframe.page1.grdrulaje)
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Thisform.CalculeazaTotaluri()
Thisform.Refresh
ENDPROC
PROCEDURE calculeazatotaluri
If Reccount('crsrul')>0
Select crsrul
Sum ROUND(cant*Pret,gnPc),ROUND(cante*Pret,gnPc) To Thisform.nsumi,Thisform.nsumie
Sum cant,cante To Thisform.ncanti,Thisform.ncantie
Thisform.lnoua=.T.
Else
Thisform.nsumi=0
Thisform.nsumie=0
Thisform.ncanti=0
Thisform.ncantie=0
ENDIF
ENDPROC
PROCEDURE do_cauta
*!* 01.04.2021
*!* marius.mutu
*!* nu stiu de ce punea filtru pe tip_rulaj = 0. am scos filtrul pentru ca nu arata toate inregistrarile
LPARAMETERS tcFiltru
LOCAL lcFiltru
IF !EMPTY(tcFiltru)
lcFiltru = [ and ] + tcFiltru
ELSE
lcFiltru = []
ENDIF
&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
IF !'PERIOADA'$UPPER(THISFORM.filtru_pretty_ro_full)
lcFiltru = [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) + lcFiltru
ENDIF
&& DACA FILTRUL NU CONTINE INREGISTRARILE STERSE, SELECTEZ DOAR INREGISTRARILE STERS = 0
IF !'STERS'$UPPER(THISFORM.filtru_pretty_ro_full)
lcFiltru = [ AND STERS = 0] + lcFiltru
ENDIF
&& DACA FILTRUL NU CONTINE TIP RULAJ, IAU DOAR TIPUL "INTRARI/IESIRI REALE"
*!* IF 'TIP RULAJ'$UPPER(THISFORM.filtru_pretty_ro)
*!* WITH THIS.ck_filtru_tiprulaj
*!* .VALUE = 0
*!* .Filtru = ""
*!* .cTraducere = ""
*!* ENDWITH
*!* ENDIF
THISFORM.but_start_criterii1.refreshstatus()
*!* IF THISFORM.ck_filtru_tiprulaj.VALUE = 1
*!* lcFiltru = THIS.ck_filtru_tiprulaj.Filtru + lcFiltru
*!* ENDIF
IF LEN(THISFORM.filtru_pretty)>0
filtrutext = THISFORM.filtru_pretty
lcFiltru = lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
ENDIF
lcFiltru = lcFiltru + gcCondSucursala
IF LEN(lcFiltru)>0
lcFiltru = SUBSTR(lcFiltru, 6)
ENDIF
&& ACTUALIZEZ PERIOADA DIN TITLUL REGISTRULUI JURNAL
lcTitlu = THISFORM.lb_titlu_alb_b121.CAPTION
IF !'PERIOADA'$UPPER(THISFORM.filtru_pretty_ro_full)
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) + " " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
ELSE
IF TYPE('this.ocriterii') = 'O'
loCollection = THIS.oCriterii.GetCriteriu("perioada")
i = 0
lcValoare1 = ""
lcValoare2 = ""
FOR EACH criteriu IN loCollection
i = i + 1
IF i = 1
lcValoare1 = criteriu.valoare
ELSE
lcValoare2 = criteriu.valoare
ENDIF
IF i = 2
EXIT
ENDIF
ENDFOR
IF EMPTY(STRTRAN(lcValoare1,'/','')) AND EMPTY(STRTRAN(lcValoare2,'/',''))
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu, 1)) + " " + PADL(ALLTRIM(STR(gnluna)),2,"0") + "/" + ALLTRIM(STR(gnan))
ELSE
IF EMPTY(STRTRAN(lcValoare2,'/',''))
lcValoare2 = lcValoare1
ENDIF
ENDIF
IF lcValoare1 = lcValoare2
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1
ELSE
lcTitlu = SUBSTR(lcTitlu, 1, AT("*", lcTitlu,1)) + " " + lcValoare1 + " - " + lcValoare2
ENDIF
ENDIF
ENDIF
THIS.lb_titlu_alb_b121.CAPTION = lcTitlu
IF (THIS.filtru_pretty#"none")
THISFORM.actualizeaza_grid1(lcFiltru)
SELECT crsrul
IF RECCOUNT()>0
GO TOP
IF cant#0
THISFORM.pgframe.page2.ENABLED=.T.
THISFORM.pgframe.page3.ENABLED=.F.
ELSE
THISFORM.pgframe.page2.ENABLED=.F.
THISFORM.pgframe.page3.ENABLED=.T.
ENDIF
ELSE
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
THISFORM.pgframe.page2.ENABLED=.F.
THISFORM.pgframe.page3.ENABLED=.F.
ENDIF
WITH THISFORM.pgframe
IF .ACTIVEPAGE!=1
.PAGES(.ACTIVEPAGE).DEACTIVATE()
.page1.ACTIVATE()
.page1.SETFOCUS()
ENDIF
.page1.grdrulaje.SETFOCUS()
*!* .page1.grdrulaje.SetFocus()
*!* .page1.grdrulaje.refresh
ENDWITH
ENDIF
ENDPROC
PROCEDURE do_excel
*!* DO export_excel WITH this.pgframe.page1.grdrulaje,this.lb_titlu_alb_b121.Caption
Local lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
lcAlias = This.pgframe.page1.grdrulaje.RecordSource
lcFiltru = Filter(lcAlias)
If Empty(lcFiltru)
lcFiltru = '.T.'
Endif
If Reccount(lcAlias) > 0
lcColumnList = ''
lcHeaderList = ''
lcSelect = ''
llSelect = .T.
lcType = 'CURSOR'
lcFrom = lcAlias
lcWhere = lcFiltru
lcOrder = 'dataact,codmat,denumire'
lcOutput = 'crsStoc'
If Used(lcOutput)
Use In (lcOutput)
Endif
get_schema_grid(This.pgframe.page1.grdrulaje,@lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput)
&lcSelect
If Used(lcOutput)
Do export_xls With lcOutput In oproceduri_comune.prg
Use In (lcOutput)
Endif
Else
amessagebox("Nu exista inregistrari pentru export!",0+48,"Atentie")
Endif
ENDPROC
PROCEDURE do_listare
PRIVATE pcSubtitlu
pcSubtitlu = THIS.filtru_pretty_ro_full
pcperioada='LUNA: '+pcnl+' '+pcan
pctitlu = 'JURNAL RULAJE'
pcDataOra = get_ora(2)
lcCursor = THISFORM.pgframe.page1.grdrulaje.RECORDSOURCE
IF RECCOUNT(lcCursor) > 0
X = XMENU("Listare \<selectie;\<Fisa magazie;\<Istoric articol")
THISFORM.ALWAYSONTOP=.F.
DO CASE
CASE X = 1
SELECT (lcCursor)
*KEYBOARD '{CTRL+F10}'
*REPORT FORM rap_rulajesimple TO PRINTER PROMPT PREVIEW
goExport.export2frx(m.lcCursor,[rap_rulajesimple],.T., , , , , .T.)
CASE X = 2
LOCAL ldata1,ldata2,lcd1,lcd2
SELECT (lcCursor) && crsrul
PcCodul=VAL(ALLTRIM(STR(id_articol)))
pcdenumire=UPPER(ALLTRIM(denumire))
pnIdGestiune = id_gestiune
pcNumeGestiune = ALLTRIM(nume_gestiune)
DO fisa_magazie_fifo WITH gnTipGest,pnIdGestiune,pcNumeGestiune,PcCodul IN orapoarte.prg
CASE X = 3
lcCursorRaport = [crsraport]
LOCAL lnAn1, lnLuna1, lnAn2, lnLuna2
PRIVATE pnIdArticol, pnPerInceput, pnPerSfarsit
PRIVATE pctitlu,pcperioada,pcDataOra
STORE 0 TO lnAn1, lnLuna1, lnAn2, lnLuna2, pnIdArticol, pnPerInceput, pnPerSfarsit
STORE '' TO pctitlu, pcperioada
SELECT (lcCursor)
pnIdArticol = id_articol
pctitlu = [ISTORIC ARTICOL ] + ALLTRIM(denumire) + [ (] + ALLTRIM(NVL(codmat,'')) + [)]
loLuna = get_oluna(gnAn, gnLuna)
lcLuna1 = PADL(loLuna.lunamin,2,'0') + PADL(loLuna.anmin,4,'0')
lcLuna2 = PADL(loLuna.lunamax,2,'0') + PADL(loLuna.anmax,4,'0')
pcondper=""
ofrmperioada=CREATEOBJECT('frm_perioada_luni')
WITH ofrmperioada
._textbox1.VALUE=lcLuna1
._textbox2.VALUE=lcLuna2
._optiongrup1.VALUE = 2
._optiongrup1.VALID()
ENDWITH
ofrmperioada.SHOW(1)
IF gnButon=2
RETURN
ENDIF
plPerioada=.F.
lnPoz=AT('_',pcondper)
IF lnPoz>0
plPerioada=.T.
ENDIF
IF plPerioada
lnAn1 = VAL(SUBSTR(pcondper,3,4))
lnLuna1 = VAL(SUBSTR(pcondper,1,2))
lnAn2 = VAL(SUBSTR(pcondper,10,4))
lnLuna2 = VAL(SUBSTR(pcondper,8,2))
pnPerInceput = lnAn1 * 12 + lnLuna1
pnPerSfarsit = lnAn2 * 12 + lnLuna2
pcperioada = [Perioada : ] + SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,8,2)+'/'+SUBSTR(pcondper,10,4)
ELSE
lnAn1 = VAL(SUBSTR(pcondper,3,4))
lnLuna1 = VAL(SUBSTR(pcondper,1,2))
lnAn2 = VAL(SUBSTR(pcondper,3,4))
lnLuna2 = VAL(SUBSTR(pcondper,1,2))
pnPerInceput = lnAn1 * 12 + lnLuna1
pnPerSfarsit = lnAn2 * 12 + lnLuna2
pcperioada = [Luna : ] + SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4)
ENDIF
IF USED(lcCursorRaport)
USE IN (lcCursorRaport)
ENDIF
lcSql = [select c.codmat, c.denumire as nume_articol, c.um, c.cant_bax, c.um2, a.serie, a.curs, a.pretd, V.nume_val, d.sectie, d.csectie,] + ;
[e.nrord, f.nume_gestiune, ] + ;
[f.cgest, g.nume_gestiune as nume_gestiunec, g.cgest as cgestc,] + ;
[(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end) as pret, a.cant, a.cante, ] + ;
[ROUND(a.cant*(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end),?gnPc) as val_intrari,] + ;
[ROUND(a.cante*(case when g.nr_pag = 6 then a.pretv + a.tvav else a.pret end),?gnPc) as val_iesiri,] + ;
[b.dataact, b.nnir,decode(b.nract,b.nnir,null,b.serie_act) as serie_act,decode(b.nract,b.nnir,null,b.nract) as nract,] + ;
[b.explicatia, h.denumire, i.fel_document, j.descriere as tip_rulaj ] + ;
[from rul a left join ] + ;
[(select distinct cod,dataact,max(nnir) over(partition by cod) as nnir,id_fdoc,serie_act,nract,] + ;
[max(id_partd) over(partition by cod) as id_partd,] + ;
[first_value(explicatia) over(partition by cod order by explicatia ASC) as explicatia ] + ;
[from act where sters = 0 and cod in (select cod ] + ;
[from rul where id_articol = ?pnIdArticol and sters = 0] + gcCondSucursala + [)] + ;
[and scc not in ('4427', '4111', '667')) b on a.cod = b.cod ] + ;
[left join nom_articole c on a.id_articol = c.id_articol ] + ;
[left join nom_sectii d on a.id_sectie = d.id_sectie ] + ;
[left join vnom_lucrari e on a.id_lucrare = e.id_lucrare ] + ;
[left join nom_gestiuni f on a.id_gestiune = f.id_gestiune ] + ;
[left join nom_gestiuni g on a.id_gestiunec = g.id_gestiune ] + ;
[left join nom_parteneri h on b.id_partd = h.id_part ] + ;
[left join nom_fdoc i on b.id_fdoc = i.id_fdoc ] + ;
[left join nom_tip_rulaj j on a.id_tip_rulaj = j.id_tip_rulaj ] + ;
[LEFT JOIN NOM_VALUTE V ON V.ID_VALUTA = A.ID_VALUTA ] + ;
[where a.sters = 0 and a.id_articol = ?pnIdArticol ] + STRTRAN(gcCondSucursala,[id_sucursala],[a.id_sucursala]) + [ ] + ;
[and a.luna + a.an * 12 between ?pnPerInceput and ?pnPerSfarsit order by b.dataact]
lnSucces = goExecutor.oExecute(lcSql,lcCursorRaport)
IF lnSucces < 0
amessagebox(goExecutor.oPrelucrareEroare(),0+16,"Eroare")
ELSE
IF RECCOUNT(lcCursorRaport)>0
SELECT (lcCursorRaport)
*KEYBOARD '{CTRL+F10}'
*REPORT FORM istoric_Articol TO PRINTER PROMPT PREVIEW
goExport.export2frx(m.lcCursorRaport,[istoric_Articol],.T., , , , , .T.)
ELSE
amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
ENDIF
ENDIF
IF USED(lcCursorRaport)
USE IN (lcCursorRaport)
ENDIF
ENDCASE
THISFORM.ALWAYSONTOP=.T.
ELSE
amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
ENDIF
ENDPROC
PROCEDURE do_listare3
ENDPROC
PROCEDURE do_modifica
If glLunaInchisa
aMESSAGEBOX('Luna este inchisa!',0+48)
Return
Endif
lcSelect = This.pgframe.page1.grdrulaje.RecordSource
If Reccount(lcSelect)>0
Select (lcSelect)
Scatter Name loRul
lnIdRul = loRul.id_rul_obinv
Do Adauga_Modifica_Inregistrare With "rulaje_obinv",loRul,lnIdRul,[UPDATE]
AMESSAGEBOX('Trebuie sa apelati "Refacere de stoc obiecte inventar in folosinta" pentru a actualiza stocul' + CHR(13) +CHR(10) + ;
'si sa actualizati sumele de pe nota contabila aferenta din Registrul Jurnal!',0+48,_screen.Caption)
Else
aMESSAGEBOX("Nu exista inregistrari pentru modificare!",0+48,"Atentie")
Endif
ENDPROC
PROCEDURE do_reset
*!* WITH This.ck_filtru_tiprulaj
*!* .Value = 1
*!* .Filtru = " and (id_tip_rulaj = 0)"
*!* .cTraducere = "Tip rulaj este 'INTRARE/IESIRE REALA'"
*!* ENDWITH
DODEFAULT()
ENDPROC
PROCEDURE grid_sort_bind
*!* *!* 26.01.2011
*!* marius.mutu
*!* se foloseste gridextras pentru ordonare grid in loc de gridsort
*!*
*!* 26.01.2011 ^
ENDPROC
PROCEDURE Init
DODEFAULT()
thisform.pgframe.page2.Enabled=.F.
thisform.pgframe.page3.Enabled=.F.
IF glLunaInchisa
this.but_modifica1.Visible = !glLunaInchisa
ENDIF
*!* 26.01.2011
this.gridextra1.setup()
*!* 26.01.2011 ^
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
PARAMETERS tacriterii
EXTERNAL ARRAY tacriterii
#DEFINE crlf CHR(13)+CHR(10)
lcStringCriterii="Denumire articol\a.denumire\T\id_articol\nom_articol"+ crlf + ;
"Cod material\a.codmat\T\none\" + crlf + ;
"Serie articol\a.serie\T\none\" + crlf + ;
"Grupa articol\a.grupa\T\id_grupa\nom_grupa_articol"+ crlf + ;
"Subgrupa articol\a.subgrupa\T\id_subgrupa\nom_subgrupa_articol"+ crlf + ;
"Nr. document\a.nract\N\none\" + crlf + ;
"Serie document\a.serie_act\T\none\" + crlf + ;
"Data act\a.dataact\D\none\" + crlf + ;
"Nr. NIR/bon\nnir\N\none\" + crlf + ;
"Pret\a.pret\N|get_mask(12,gnPpret)\none\"+ crlf + ;
"Pret valuta\a.pretd\N|get_mask(12,gnPPretval)\none\" + crlf + ;
"Valuta\nume_val\T\a.ID_VALUTA\nom_valuta" + crlf + ;
"Intrari\a.cant\N|get_mask(12,gnPCant)\none\" + crlf + ;
"Iesiri\a.cante\N|get_mask(12,gnPCant)\none\" + crlf + ;
"Cont\a.cont\T\none\"+ crlf + ;
"Cont analitic\a.acont\T\none\"+ crlf + ;
"Grupe gestiuni\|E|" + ;
[a.id_gestiune in ( ] + ;
[ select ID_GESTIUNE ] + ;
[ from vgest_coresp_grupe_gestiuni c ] + ;
[ join (select id_grupe ] + ;
[ from gest_nom_grupe ] + ;
[ where sters = 0 ] + ;
[ start with id_grupe = <<VALOARE>> ] + ;
[ connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe )\I\none\nom_grupa_gestiune] + crlf + ;
"Gestiune\none\I\a.id_gestiune\nom_gestiune" + crlf + ;
"Responsabil\a.nresp\T\id_responsabil\nom_responsabil"+ crlf + ;
"Marca resp.\resp_marca\N\none\" + crlf + ;
"Responsabil C\a.nrespc\T\id_responsabilc\nom_responsabil"+ crlf + ;
"Marca resp. C\respc_marca\N\none\" + crlf + ;
"Sectie\a.sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
"Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
IIF(EMPTY(gcCondSucursala) and glEMama,"Sucursala\Sucursala\C\none" + crlf,[]) +;
"Tip rulaj\none\I\a.id_tip_rulaj\nom_tip_rulaj" + crlf + ;
"Perioada\an*12+luna\D1\none\" + crlf + ;
"Sterse\nofiled\E\(1=1)\"
DODEFAULT()
ENDPROC
PROCEDURE Gridextra1.applyfilter
DODEFAULT()
Thisform.calculeazatotaluri()
ENDPROC
PROCEDURE Gridextra1.clearfilter
DODEFAULT()
Thisform.calculeazatotaluri()
ENDPROC
PROCEDURE pgframe.Page1.Activate
DODEFAULT()
this.FontBold=.T.
SELECT crsrul
ENDPROC
PROCEDURE pgframe.Page1.Deactivate
this.FontBold=.F.
ENDPROC
PROCEDURE pgframe.Page1.grdrulaje.AfterRowColChange
Lparameters nColIndex
If This.RowColChange = 1 Or This.RowColChange= 3
thisform.lnoua=.T.
Select crsrul
If cant#0
Thisform.pgframe.page2.Enabled=.T.
Thisform.pgframe.page3.Enabled=.F.
Else
Thisform.pgframe.page2.Enabled=.F.
Thisform.pgframe.page3.Enabled=.T.
Endif
Endif
DoDefault()
ENDPROC
PROCEDURE pgframe.Page1.grdrulaje.Init
This.SetAll("DynamicForeColor", "IIF(sters=1, RGB(255,0,0), RGB(0,0,0))", "Column")
ENDPROC
PROCEDURE pgframe.Page1.Text1.Refresh
*THIS.FORECOLOR=IIF(M.PRECDEB-M.PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page1.Text2.Refresh
*THIS.FORECOLOR=IIF(TINCASARI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page1.Text3.Refresh
*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page1.Text4.Refresh
*THIS.FORECOLOR=IIF(TINCASARI-TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page2.Activate
Private pntotal
pntotal=0
DoDefault()
If This.Enabled
This.FontBold=.T.
Endif
If Thisform.lnoua
Select crsrul
pnnnir=nnir
pnid_fact=id_fact
this.text4.Value=pnnnir
IF pnid_fact>0
IF USED('crsact')
USE IN crsact
ENDIF
lcSql=[select serie_act,nract,dataact,nume from ] + gcS + [.vireg_parteneri where an = ?gnAn and luna = ?gnLuna and id_fact=?pnid_fact]
lnSucces = goExecutor.oExecute(lcSql,'crsact')
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,'Eroare')
Return
Endif
SELECT crsact
This.text1.Value=nract
This.text2.Value=TTOD(dataact)
This.text5.Value=nume
this.text6.value=ALLTRIM(serie_act)
USE IN crsact
ELSE
This.text1.Value=0
This.text2.Value={}
This.text5.Value=""
this.text6.value=[]
ENDIF
save_grid_tag(This.grdnir)
ponir.ca_baza1.cfiltru=[ a.nnir=] + ALLTRIM(STR(pnnnir))
ponir.ca_baza1.afisare()
restore_grid_tag(This.grdnir)
SELECT crsnir
CALCULATE sum(ROUND(cant*(pret+tva),gnPC)) TO pntotal
This.text3.Value=pntotal
Go Top
This.Refresh()
Thisform.lnoua=.F.
Endif
*!* go top
*!* this.grid2.refresh
*!* thisform.check1.enabled=.f.
*!* thisform.check6.enabled=.f.
*!* thisform.check7.enabled=.f.
*!* thisform.CMDLIST3.enabled=.f.
*!* SELE ACTAN
*!* loca for cod=codfix
*!* SCATTER FIEL EXCEPT SCD MEMVAR
*!* this.text1.refresh
*!* this.text2.refresh
*!* this.text3.refresh
*!* this.text4.refresh
*!* this.text5.refresh
ENDPROC
PROCEDURE pgframe.Page2.ck_nrcrt.Click
If This.Value=1
This.Parent.grdnir.cNrCrt.Visible=.T.
Else
This.Parent.grdnir.cNrCrt.Visible=.F.
Endif
Thisform.Refresh
ENDPROC
PROCEDURE pgframe.Page2.ck_valoare.Click
If This.Value=1
This.Parent.text3.Visible=.T.
This.Parent.label3.Visible=.T.
Else
This.Parent.text3.Visible=.F.
This.Parent.label3.Visible=.F.
Endif
This.Parent.Refresh
ENDPROC
PROCEDURE pgframe.Page2.Deactivate
DODEFAULT()
This.FontBold=.F.
ENDPROC
PROCEDURE pgframe.Page2.Text1.GotFocus
*!* if bdataact==.f. then
*!* m.dataact1=""
*!* endif
*!* this.refresh
ENDPROC
PROCEDURE pgframe.Page2.Text2.GotFocus
*!* if bdataact==.f. then
*!* m.dataact2=""
*!* endif
*!* this.refresh
ENDPROC
PROCEDURE pgframe.Page2.Text3.Refresh
*THIS.FORECOLOR=IIF(M.PRECDEB-M.PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page2.Text4.Refresh
*THIS.FORECOLOR=IIF(TINCASARI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page2.Text5.Refresh
*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page2.Text6.GotFocus
*!* if bdataact==.f. then
*!* m.dataact1=""
*!* endif
*!* this.refresh
ENDPROC
PROCEDURE pgframe.Page3.Activate
Private pntotal
pntotal=0
DoDefault()
If This.Enabled
This.FontBold=.T.
Endif
If Thisform.lnoua
Select crsrul
pncod=cod
This.text1.Value=nnir
This.text2.Value=dataact
This.text4.Value=nrord
This.text5.Value=nresp
If pncod>0
save_grid(This.grdbon)
pobon.ca_baza1.cfiltru=[a.cod=] + Alltrim(Str(pncod))
pobon.ca_baza1.afisare()
restore_grid(This.grdbon)
Select crsbon
Calculate Sum(ROUND(cante*pretv,gnPC)) To pntotal
This.text3.Value=pntotal
Else
This.text3.Value=0
Endif
Go Top
This.Refresh()
Thisform.lnoua=.F.
Endif
ENDPROC
PROCEDURE pgframe.Page3.ck_nrcrt.Click
If This.Value=1
This.Parent.grdbon.cNrCrt.Visible=.T.
Else
This.Parent.grdbon.cNrCrt.Visible=.F.
Endif
Thisform.Refresh
ENDPROC
PROCEDURE pgframe.Page3.ck_valoare.Click
If This.Value=1
This.Parent.text3.Visible=.T.
This.Parent.label3.Visible=.T.
Else
This.Parent.text3.Visible=.F.
This.Parent.label3.Visible=.F.
Endif
This.Parent.Refresh
ENDPROC
PROCEDURE pgframe.Page3.Deactivate
DODEFAULT()
this.FontBold=.F.
ENDPROC
PROCEDURE pgframe.Page3.Text1.GotFocus
*!* if bdataact==.f. then
*!* m.dataact1=""
*!* endif
*!* this.refresh
ENDPROC
PROCEDURE pgframe.Page3.Text2.GotFocus
*!* if bdataact==.f. then
*!* m.dataact2=""
*!* endif
*!* this.refresh
ENDPROC
PROCEDURE pgframe.Page3.Text3.Refresh
*THIS.FORECOLOR=IIF(M.PRECDEB-M.PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page3.Text4.Refresh
*THIS.FORECOLOR=IIF(TINCASARI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE pgframe.Page3.Text5.Refresh
*THIS.FORECOLOR=IIF(TPLATI>=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
ENDDEFINE
DEFINE CLASS frm_rulaje_obinv_nou AS _frmbase OF "_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="img_parinte" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_gestiune" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_rulaje_obinv" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_cant" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_cante" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_gestiune
*p: ncant
*p: ncante
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 152
Name = "frm_rulaje_obinv_nou"
ncant = 0
ncante = 0
Width = 387
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 387
_shape2.Height = 29
_shape2.Left = 326
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 61
Lb_titlu_alb_b121.Caption = "Rulaj"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 4
BUT_TERMIN1.Left = 357
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 327, ;
Name = "But_renunt1", ;
TabIndex = 3, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'clb_gestiune' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "clb_gestiune", ;
TabIndex = 6, ;
TabStop = .F., ;
ToolTipText = "Pentru modificare, faceti dublu-click!", ;
Top = 55, ;
Width = 313, ;
Text_simplu1.ControlSource = "porec.cgest", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Value = , ;
Text_simplu1.Width = 206, ;
Lb_simplu1.Caption = "Gestiune", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_cant' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_cant", ;
TabIndex = 2, ;
Top = 83, ;
Width = 312, ;
Text_simplu1.ControlSource = "porec.cant", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 165, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 141, ;
Lb_simplu1.Caption = "Cantitate intrata:", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_cante' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_cante", ;
TabIndex = 3, ;
Top = 111, ;
Width = 312, ;
Text_simplu1.ControlSource = "porec.cante", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 165, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 141, ;
Lb_simplu1.Caption = "Cantitate iesita:", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_rulaje_obinv' AS cus_odata_rulaje_obinv WITH ;
Left = 367, ;
Name = "Cus_odata_rulaje_obinv", ;
Top = 77
*< END OBJECT: ClassLib="rulaje.vcx" BaseClass="custom" />
ADD OBJECT 'img_parinte' AS _image WITH ;
Height = 24, ;
Left = 331, ;
Name = "img_parinte", ;
Picture = ..\grafice\alege.bmp, ;
Stretch = 2, ;
ToolTipText = "Alegeti valuta", ;
Top = 57, ;
Width = 24
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
PROCEDURE do_alege_gestiune
Local loCauta
loCauta = caut_gestiune()
IF !EMPTY(loCauta.id_gestiune)
poRec.id_gestiune = loCauta.id_gestiune
poRec.cgest = loCauta.cgest
ENDIF
this.clb_gestiune.text_simplu1.Refresh()
ENDPROC
PROCEDURE inainte_de_do_termin
LOCAL PLRETURN
lccontrol = UPPER(this.ActiveControl.BaseClass )
IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
lcval=This.Activecontrol.controlsource
&lcval=thisform.ActiveControl.value
ENDIF
IF EMPTY(porec.id_gestiune)
lcTitlu=[Atentie]
lcMesaj=[Nu ati ales gestiunea!]
lcimagine = [exclam.ico]
lctip = [Avertizare]
ofrm_av = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
ofrm_av.show(1)
RELEASE ofrm_av
This.clb_gestiune.SetFocus()
plreturn=.F.
ELSE
IF (this.ncant # 0 AND poRec.cante # 0) OR (this.ncante # 0 AND poRec.cant # 0)
lcTitlu=[Atentie]
lcMesaj=[Nu puteti schimba decat cantitatea intrata/iesita !]
lcimagine = [exclam.ico]
lctip = [Avertizare]
ofrm_av = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
ofrm_av.show(1)
RELEASE ofrm_av
plreturn=.F.
RETURN plreturn
ENDIF
PLRETURN=This.cus_odata_rulaje_obinv.salvare(This.OREC,This.NID)
ENDIF
Return PLRETURN
ENDPROC
PROCEDURE Init
LPARAMETERS toRec, tnId, tcActiune
DODEFAULT()
this.orec= toRec
this.nid = tnId
this.cus_odata_rulaje_obinv.cactiune = tcActiune
this.nCant = toRec.cant
this.nCante = toRec.Cante
IF toRec.cant # 0
this.clb_tx_cante.text_simplu1.ReadOnly= .T.
ELSE
this.clb_tx_cant.text_simplu1.ReadOnly= .T.
ENDIF
ENDPROC
PROCEDURE clb_gestiune.Text_simplu1.DblClick
Thisform.do_alege_parinte()
ENDPROC
PROCEDURE img_parinte.Click
Thisform.do_alege_gestiune()
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink