514 lines
17 KiB
Plaintext
514 lines
17 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_contabilitate.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS frm_date_rap_balpart_temp AS _frmbase OF "..\comun\clase\_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="ed_explicatii_filtru" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_reset2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 302
|
|
Name = "frm_date_rap_balpart_temp"
|
|
Width = 562
|
|
_shape1.Height = 29
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 564
|
|
_shape2.Height = 29
|
|
_shape2.Left = 439
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 125
|
|
Lb_titlu_alb_b121.Caption = "RAPORT BAZAT PE BALANTE PARTENERI"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
BUT_TERMIN1.Left = 533
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Name = "Gridsort1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_label1' AS _label WITH ;
|
|
Caption = "Alegeti criteriile de cautare (butonul binoclu) si apasati pe butonul Export XLS", ;
|
|
Left = 15, ;
|
|
Name = "_label1", ;
|
|
Top = 39
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
|
Anchor = 9, ;
|
|
Left = 503, ;
|
|
Name = "But_excel1", ;
|
|
TabIndex = 6, ;
|
|
Top = 1, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_reset2' AS but_reset WITH ;
|
|
Anchor = 9, ;
|
|
caction = do_reset_filtru, ;
|
|
Left = 443, ;
|
|
Name = "But_reset2", ;
|
|
TabIndex = 9, ;
|
|
ToolTipText = "Reseteaza filtru", ;
|
|
Top = 1, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
|
|
Anchor = 9, ;
|
|
lcautare = .F., ;
|
|
Left = 473, ;
|
|
Name = "But_start_criterii1", ;
|
|
TabIndex = 13, ;
|
|
Top = 1, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'ed_explicatii_filtru' AS _editbox WITH ;
|
|
Anchor = 13, ;
|
|
ControlSource = "Thisform.filtru_pretty_ro", ;
|
|
Height = 228, ;
|
|
Left = 12, ;
|
|
Name = "ed_explicatii_filtru", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 12, ;
|
|
Top = 60, ;
|
|
Width = 540, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="editbox" />
|
|
|
|
PROCEDURE do_excel
|
|
Local lcFileName,lcSql,lcCursor, lcCursorExport, lnSucces, lcFiltruPerioada, lcCondSoldInitial
|
|
lcFileName = ""
|
|
lcCursor = [crsRaport]
|
|
lcCursorExport = [crsExport]
|
|
|
|
If Used(lcCursor)
|
|
Use In (lcCursor)
|
|
Endif
|
|
|
|
lcFiltru = [AND ] + Thisform.filtru_pretty + [ AND]
|
|
lnPozitie = 1
|
|
lcFiltruPerioada = []
|
|
Do While .T.
|
|
lcElement = Strextract(lcFiltru,[AND],[AND],lnPozitie)
|
|
If Empty(lcElement)
|
|
Exit
|
|
Endif
|
|
If Upper(Substr(Alltrim(lcElement),1,10)) = [AN*12+LUNA]
|
|
lcFiltruPerioada = lcFiltruPerioada + [ AND ] + lcElement
|
|
Endif
|
|
lnPozitie = lnPozitie + 1
|
|
ENDDO
|
|
IF EMPTY(m.lcFiltruPerioada)
|
|
AMESSAGEBOX('Completati perioada de raportare!',0+48,_screen.Caption)
|
|
RETURN
|
|
ENDIF
|
|
lcFiltruPerioada = Substr(lcFiltruPerioada,5)
|
|
|
|
lcSql = [select pivot_gen.build_sql_complex2('VRAPOARTE_BALPART',] + ;
|
|
['GROUPING_ID(CONT,ACONT,DENUMIRE,COD_FISCAL) AS GID,CONT,ACONT,DENUMIRE,COD_FISCAL',] + ;
|
|
['SUM(debit) as Rulaj_debitor,SUM(credit) as Rulaj_creditor,SUM(soldluna) as Diferenta_rulaje',] + ;
|
|
['LUNAAN',] + ;
|
|
['ANLUNA',] + ;
|
|
['soldinit',] + ;
|
|
['Sold_initial',] + ;
|
|
['debit|credit|soldluna|soldfinal|',] + ;
|
|
['Rulaj_debitor|Rulaj_creditor|Diferenta_rulaje|Sold_final',] + ;
|
|
[null,] + ;
|
|
[null,] + ;
|
|
['] + lcFiltruPerioada + [',] + ;
|
|
['SUM',] + ;
|
|
['0',] + ;
|
|
['1=2',] + ;
|
|
[0,] + ;
|
|
['ROLLUP(CONT,ACONT,(DENUMIRE,COD_FISCAL)) ',] + ;
|
|
['CONT,ACONT,GID,CONT,ACONT,DENUMIRE,COD_FISCAL',] + ;
|
|
['|') as sir_sql from dual]
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.cEroare,16,"Atentie")
|
|
Return
|
|
Else
|
|
If Reccount(lcCursor) > 0
|
|
Select (lcCursor)
|
|
lcSql = Alltrim(sir_sql)
|
|
Endif
|
|
Use In (lcCursor)
|
|
Endif
|
|
|
|
lcSql = Strtran(lcSql,[WHERE 1=2],Iif(!Empty(Thisform.filtru_pretty),[WHERE ] + Thisform.filtru_pretty + gcCondSucursala,;
|
|
[] + Substr(gcCondSucursala,5)))
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
|
|
Return
|
|
Endif
|
|
|
|
If Used(lcCursor) And Reccount(lcCursor)<>0
|
|
If Used(lcCursorExport)
|
|
Use In (lcCursorExport)
|
|
Endif
|
|
Dimension aColoane[1]
|
|
lcSelect = [SELECT Iif(gid<>0,'TOTAL',Space(5)) As explicatie]
|
|
Afields(aColoane,lcCursor)
|
|
lcColoaneFiltru = []
|
|
lnOptiune = aMessagebox("Doriti ca raportul sa includa si partenerii cu sold initial 0 si fara rulaje in perioada?",4+32,"Confirmare")
|
|
For i = 1 To Alen(aColoane,1)
|
|
If Upper(Alltrim(aColoane[i,1])) <> 'GID'
|
|
lcNumeColoana = Upper(Alltrim(aColoane[i,1]))
|
|
lcSelect = lcSelect + [,] + Iif(aColoane[i,2] = 'T', [TTOD(] + lcNumeColoana + [) as ] + ;
|
|
lcNumeColoana, lcNumeColoana)
|
|
If Between(i,6,9) And lnOptiune = 7
|
|
lcColoaneFiltru = lcColoaneFiltru + [ or ] + lcNumeColoana + [ <> 0]
|
|
Endif
|
|
Endif
|
|
Endfor
|
|
If !Empty(lcColoaneFiltru)
|
|
lcSelect = lcSelect + [ From ] + lcCursor + [ where gid=0 and (] + Substr(lcColoaneFiltru,4) + [) Into Cursor ] + lcCursorExport
|
|
Else
|
|
lcSelect = lcSelect + [ From ] + lcCursor + [ Into Cursor ] + lcCursorExport
|
|
Endif
|
|
&lcSelect
|
|
Endif
|
|
If Used(lcCursor)
|
|
Use In (lcCursor)
|
|
Endif
|
|
|
|
If Used(lcCursorExport)
|
|
lcFileName = strtranx([Raport bazat pe balante parteneri], "([^a-zA-Z0-9])", [_] )
|
|
export_xls(lcCursorExport, lcFileName)
|
|
Use In (lcCursorExport)
|
|
Else
|
|
amessagebox("Nu exista rezultate pentru export in Excel!",0+48,"Atentie")
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE But_start_criterii1.initform
|
|
Lparameters tlShowForm
|
|
DoDefault(tlShowForm)
|
|
Thisform.ed_explicatii_filtru.Refresh()
|
|
This.SetFocus()
|
|
ENDPROC
|
|
|
|
PROCEDURE But_start_criterii1.loadcriterii
|
|
Parameters tacriterii
|
|
External Array tacriterii
|
|
#Define crlf Chr(13)+Chr(10)
|
|
lcStringCriterii="Denumire\denumire\T\ID_PART\nom_parteneri" + crlf + ;
|
|
"Cont\cont\C\none\" + crlf + ;
|
|
"Analitic\acont\C\none\" + crlf + ;
|
|
"Perioada\an*12+luna\D1\none\"
|
|
DoDefault()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_date_rapoarte_balpart AS frm_date_rapoarte_gen OF "..\comun\clase\orapoarte.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_debit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldinit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldluna" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cod_fiscal" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_denumire" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_credit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_acont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_anluna" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldfinal" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
ctitluraportinitial = Rapoarte bazate pe balante parteneri
|
|
DoCreate = .T.
|
|
Height = 572
|
|
Name = "frm_date_rapoarte_balpart"
|
|
nidformularraport = 3
|
|
Width = 696
|
|
_memberdata = <VFPData>
|
|
<memberdata name="craport" type="property" display="cRaport" favorites="True"/>
|
|
<memberdata name="lreadonly" type="property" display="lReadOnly" favorites="True"/>
|
|
</VFPData>
|
|
_shape1.Height = 29
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 696
|
|
_shape1.ZOrderSet = 2
|
|
_shape2.Height = 29
|
|
_shape2.Left = 604
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 90
|
|
_shape2.ZOrderSet = 3
|
|
Lb_titlu_alb_b121.FontBold = .T.
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.TabIndex = 14
|
|
Lb_titlu_alb_b121.ZOrderSet = 4
|
|
GRIDSORT1.Left = 480
|
|
GRIDSORT1.Name = "GRIDSORT1"
|
|
GRIDSORT1.Top = 36
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 9
|
|
BUT_TERMIN1.ZOrderSet = 5
|
|
But_listare1.Name = "But_listare1"
|
|
But_listare1.TabIndex = 8
|
|
But_excel1.Name = "But_excel1"
|
|
But_excel1.TabIndex = 7
|
|
But_excel1.Visible = .T.
|
|
But_help1.Name = "But_help1"
|
|
But_help1.TabIndex = 2
|
|
But_cautare1.Name = "But_cautare1"
|
|
But_cautare1.TabIndex = 4
|
|
But_nou1.Name = "But_nou1"
|
|
But_nou1.TabIndex = 3
|
|
But_sterge1.Name = "But_sterge1"
|
|
But_sterge1.TabIndex = 6
|
|
Ct_selectie1.cnumetabela = vrapoarte_balpart
|
|
Ct_selectie1.Ct_grupare1.Height = 187
|
|
Ct_selectie1.Ct_grupare1.lblAtentie.Name = "lblAtentie"
|
|
Ct_selectie1.Ct_grupare1.lb_grupare.Name = "lb_grupare"
|
|
Ct_selectie1.Ct_grupare1.Left = 6
|
|
Ct_selectie1.Ct_grupare1.Name = "Ct_grupare1"
|
|
Ct_selectie1.Ct_grupare1.TabIndex = 9
|
|
Ct_selectie1.Ct_grupare1.Top = 331
|
|
Ct_selectie1.Ct_grupare1.Width = 360
|
|
Ct_selectie1.Ct_grupare1.ZOrderSet = 11
|
|
Ct_selectie1.Ct_grupare1._scrollcontainer1.But_jos1.Name = "But_jos1"
|
|
Ct_selectie1.Ct_grupare1._scrollcontainer1.But_sus1.Name = "But_sus1"
|
|
Ct_selectie1.Ct_grupare1._scrollcontainer1.Name = "_scrollcontainer1"
|
|
Ct_selectie1.Ct_ordonare1.Height = 176
|
|
Ct_selectie1.Ct_ordonare1.lb_ordonare.Name = "lb_ordonare"
|
|
Ct_selectie1.Ct_ordonare1.Left = 6
|
|
Ct_selectie1.Ct_ordonare1.Name = "Ct_ordonare1"
|
|
Ct_selectie1.Ct_ordonare1.TabIndex = 10
|
|
Ct_selectie1.Ct_ordonare1.Top = 156
|
|
Ct_selectie1.Ct_ordonare1.Width = 360
|
|
Ct_selectie1.Ct_ordonare1.ZOrderSet = 12
|
|
Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_jos1.Name = "But_jos1"
|
|
Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_sus1.Name = "But_sus1"
|
|
Ct_selectie1.Ct_ordonare1._scrollcontainer1.Name = "_scrollcontainer1"
|
|
Ct_selectie1.Height = 527
|
|
Ct_selectie1.lb_coloane.Name = "lb_coloane"
|
|
Ct_selectie1.lb_coloane.TabIndex = 11
|
|
Ct_selectie1.lb_coloane.ZOrderSet = 13
|
|
Ct_selectie1.Left = 12
|
|
Ct_selectie1.ltitlucoloanesuma = .T.
|
|
Ct_selectie1.Name = "Ct_selectie1"
|
|
Ct_selectie1.TabIndex = 1
|
|
Ct_selectie1.Top = 36
|
|
Ct_selectie1.Width = 372
|
|
ed_explicatii_filtru.Height = 500
|
|
ed_explicatii_filtru.Left = 396
|
|
ed_explicatii_filtru.Name = "ed_explicatii_filtru"
|
|
ed_explicatii_filtru.TabIndex = 11
|
|
ed_explicatii_filtru.Top = 63
|
|
ed_explicatii_filtru.Width = 288
|
|
But_salveaza1.lvizibil = .F.
|
|
But_salveaza1.Name = "But_salveaza1"
|
|
But_salveaza1.TabIndex = 5
|
|
But_reset2.Name = "But_reset2"
|
|
But_reset2.TabIndex = 10
|
|
LB_RAPORT_PREDEFINIT.Name = "LB_RAPORT_PREDEFINIT"
|
|
LB_RAPORT_PREDEFINIT.TabIndex = 13
|
|
But_start_criterii1.Name = "But_start_criterii1"
|
|
But_start_criterii1.TabIndex = 12
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_acont' AS ct_selectie_camp WITH ;
|
|
ccamp = acont, ;
|
|
cnumecamp = Analitic, ;
|
|
Left = 2, ;
|
|
Name = "Ct_selectie_acont", ;
|
|
nid_container = 4, ;
|
|
TabIndex = 4, ;
|
|
Top = 56, ;
|
|
ZOrderSet = 9, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Analitic", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_anluna' AS ct_selectie_camp WITH ;
|
|
ccamp = anluna, ;
|
|
cidcamp = lunaan, ;
|
|
cnumecamp = Luna, ;
|
|
Height = 19, ;
|
|
Left = 2, ;
|
|
Name = "Ct_selectie_anluna", ;
|
|
nid_container = 5, ;
|
|
TabIndex = 5, ;
|
|
Top = 71, ;
|
|
Width = 140, ;
|
|
ZOrderSet = 20, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Luna", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_cod_fiscal' AS ct_selectie_camp WITH ;
|
|
ccamp = cod_fiscal, ;
|
|
cnumecamp = Cod fiscal, ;
|
|
Left = 2, ;
|
|
Name = "Ct_selectie_cod_fiscal", ;
|
|
nid_container = 2, ;
|
|
TabIndex = 2, ;
|
|
Top = 28, ;
|
|
ZOrderSet = 5, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Cod fiscal", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_cont' AS ct_selectie_camp WITH ;
|
|
ccamp = cont, ;
|
|
cnumecamp = Cont, ;
|
|
Height = 19, ;
|
|
Left = 2, ;
|
|
Name = "Ct_selectie_cont", ;
|
|
nid_container = 3, ;
|
|
TabIndex = 3, ;
|
|
Top = 42, ;
|
|
Width = 131, ;
|
|
ZOrderSet = 10, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.AutoSize = .T., ;
|
|
ck_camp.Caption = "Cont", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_credit' AS ct_selectie_camp WITH ;
|
|
ccamp = credit, ;
|
|
cnumecamp = Rulaj creditor, ;
|
|
Height = 19, ;
|
|
Left = 101, ;
|
|
lgrupare = .F., ;
|
|
lordine = .F., ;
|
|
lsuma = .T., ;
|
|
Name = "Ct_selectie_credit", ;
|
|
nid_container = 8, ;
|
|
TabIndex = 7, ;
|
|
Top = 42, ;
|
|
Width = 140, ;
|
|
ZOrderSet = 30, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Rulaj creditor", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_debit' AS ct_selectie_camp WITH ;
|
|
ccamp = debit, ;
|
|
cnumecamp = Rulaj debitor, ;
|
|
Height = 19, ;
|
|
Left = 101, ;
|
|
lgrupare = .F., ;
|
|
lordine = .F., ;
|
|
lsuma = .T., ;
|
|
Name = "Ct_selectie_debit", ;
|
|
nid_container = 7, ;
|
|
TabIndex = 6, ;
|
|
Top = 28, ;
|
|
Width = 140, ;
|
|
ZOrderSet = 0, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Rulaj debitor", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_denumire' AS ct_selectie_camp WITH ;
|
|
ccamp = denumire, ;
|
|
cnumecamp = Denumire, ;
|
|
Left = 2, ;
|
|
Name = "Ct_selectie_denumire", ;
|
|
nid_container = 1, ;
|
|
TabIndex = 1, ;
|
|
Top = 14, ;
|
|
ZOrderSet = 6, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Denumire", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldfinal' AS ct_selectie_camp WITH ;
|
|
ccamp = soldfinal, ;
|
|
cnumecamp = Sold final, ;
|
|
Height = 19, ;
|
|
Left = 101, ;
|
|
lgrupare = .F., ;
|
|
lordine = .F., ;
|
|
lsuma = .T., ;
|
|
Name = "Ct_selectie_soldfinal", ;
|
|
nid_container = 10, ;
|
|
TabIndex = 8, ;
|
|
Top = 71, ;
|
|
Width = 140, ;
|
|
ZOrderSet = 29, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Sold final", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldinit' AS ct_selectie_camp WITH ;
|
|
ccamp = soldinit, ;
|
|
cnumecamp = Sold initial, ;
|
|
Height = 19, ;
|
|
Left = 101, ;
|
|
lgrupare = .F., ;
|
|
lordine = .F., ;
|
|
lsuma = .T., ;
|
|
Name = "Ct_selectie_soldinit", ;
|
|
nid_container = 6, ;
|
|
TabIndex = 5, ;
|
|
Top = 14, ;
|
|
Width = 140, ;
|
|
ZOrderSet = 20, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Sold initial", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldluna' AS ct_selectie_camp WITH ;
|
|
ccamp = soldluna, ;
|
|
cnumecamp = Diferenta rulaje, ;
|
|
Height = 19, ;
|
|
Left = 101, ;
|
|
lgrupare = .F., ;
|
|
lordine = .F., ;
|
|
lsuma = .T., ;
|
|
Name = "Ct_selectie_soldluna", ;
|
|
nid_container = 9, ;
|
|
TabIndex = 8, ;
|
|
Top = 56, ;
|
|
Width = 140, ;
|
|
ZOrderSet = 29, ;
|
|
ck_camp.Alignment = 0, ;
|
|
ck_camp.Caption = "Diferenta rulaje", ;
|
|
ck_camp.Name = "ck_camp"
|
|
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
|
|
|
|
PROCEDURE But_start_criterii1.loadcriterii
|
|
Parameters tacriterii
|
|
External Array tacriterii
|
|
#Define crlf Chr(13)+Chr(10)
|
|
lcStringCriterii="Denumire\denumire\T\ID_PART\nom_parteneri" + crlf + ;
|
|
"Cod fiscal\cod_fiscal\C\none\" + crlf + ;
|
|
"Cont\cont\C\none\" + crlf + ;
|
|
"Analitic\acont\C\none\"
|
|
DoDefault()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|