Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
715
clase/bon_fisc.vc2
Normal file
715
clase/bon_fisc.vc2
Normal file
@@ -0,0 +1,715 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="bon_fisc.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS bon_fisc AS checkbox
|
||||
*< CLASSDATA: Baseclass="checkbox" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
Alignment = 0
|
||||
Caption = "Check1"
|
||||
Height = 17
|
||||
Name = "bon_fisc"
|
||||
Width = 60
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_tichete AS frm_termin_renunt OF "_frm_child.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Clb_bon" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_nr" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_numerar" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_valoare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_total" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_linie1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_linie2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_discount" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_procent" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_procent._lbbase2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_diminuat" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="cbo_tva_vanzare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: verificare
|
||||
*p: bon
|
||||
*p: diminuat
|
||||
*p: discount
|
||||
*p: nr
|
||||
*p: numerar
|
||||
*p: procent
|
||||
*p: total
|
||||
*p: tva
|
||||
*p: valoare
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
bon = 0
|
||||
diminuat = 0
|
||||
discount = 0
|
||||
DoCreate = .T.
|
||||
Height = 231
|
||||
Name = "frm_tichete"
|
||||
nr = 0
|
||||
numerar = 0
|
||||
procent = 0
|
||||
total = 0
|
||||
tva = 0.00
|
||||
valoare = 0
|
||||
Width = 571
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 576
|
||||
_shape1.ZOrderSet = 1
|
||||
_shape2.Height = 29
|
||||
_shape2.Left = 511
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = 0
|
||||
_shape2.Width = 63
|
||||
_shape2.ZOrderSet = 2
|
||||
Lb_titlu_alb_b121.Caption = "Bon"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
Lb_titlu_alb_b121.TabIndex = 10
|
||||
Lb_titlu_alb_b121.ZOrderSet = 3
|
||||
BUT_TERMIN1.Left = 542
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.TabIndex = 5
|
||||
BUT_TERMIN1.Top = 1
|
||||
BUT_TERMIN1.ZOrderSet = 4
|
||||
Gridsort1.Left = 12
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
Gridsort1.Top = 36
|
||||
But_renunt1.Left = 513
|
||||
But_renunt1.Name = "But_renunt1"
|
||||
But_renunt1.TabIndex = 6
|
||||
But_renunt1.Top = 1
|
||||
But_renunt1.ZOrderSet = 6
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT '_linie1' AS _linie WITH ;
|
||||
Height = 0, ;
|
||||
Left = 345, ;
|
||||
Name = "_linie1", ;
|
||||
Top = 170, ;
|
||||
Width = 10, ;
|
||||
ZOrderSet = 13
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="line" />
|
||||
|
||||
ADD OBJECT '_linie2' AS _linie WITH ;
|
||||
Height = 0, ;
|
||||
Left = 345, ;
|
||||
Name = "_linie2", ;
|
||||
Top = 176, ;
|
||||
Width = 10, ;
|
||||
ZOrderSet = 14
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="line" />
|
||||
|
||||
ADD OBJECT 'cbo_tva_vanzare' AS combobox WITH ;
|
||||
BorderColor = 128,128,128, ;
|
||||
BorderStyle = 1, ;
|
||||
ColumnCount = 3, ;
|
||||
ColumnLines = .F., ;
|
||||
ColumnWidths = "200,10,0", ;
|
||||
Comment = "A", ;
|
||||
ControlSource = "", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 20, ;
|
||||
InputMask = "", ;
|
||||
Left = 419, ;
|
||||
Name = "cbo_tva_vanzare", ;
|
||||
RowSource = "jtva_vanzare.denumire,cota_tva,id_jtva_coloana", ;
|
||||
RowSourceType = 6, ;
|
||||
SpecialEffect = 1, ;
|
||||
Style = 2, ;
|
||||
TabIndex = 14, ;
|
||||
TabStop = .F., ;
|
||||
Top = 88, ;
|
||||
Visible = .T., ;
|
||||
Width = 149
|
||||
*< END OBJECT: BaseClass="combobox" />
|
||||
|
||||
ADD OBJECT 'Clb_bon' AS clb_tx_simplu WITH ;
|
||||
Left = 228, ;
|
||||
Name = "Clb_bon", ;
|
||||
TabIndex = 11, ;
|
||||
Top = 36, ;
|
||||
ZOrderSet = 7, ;
|
||||
Text_simplu1.ControlSource = "thisform.bon", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "999 999 999.99", ;
|
||||
Text_simplu1.Left = 136, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 148, ;
|
||||
Lb_simplu1.Caption = "Valoare Bon", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_diminuat' AS clb_tx_simplu WITH ;
|
||||
Left = 228, ;
|
||||
Name = "Clb_diminuat", ;
|
||||
TabIndex = 8, ;
|
||||
Top = 120, ;
|
||||
ZOrderSet = 19, ;
|
||||
Text_simplu1.ControlSource = "thisform.diminuat", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "999 999 999.99", ;
|
||||
Text_simplu1.Left = 135, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 149, ;
|
||||
Lb_simplu1.Caption = "Total", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_discount' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 168, ;
|
||||
Name = "Clb_discount", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 80, ;
|
||||
Width = 246, ;
|
||||
ZOrderSet = 15, ;
|
||||
Text_simplu1.ControlSource = "thisform.discount", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "999 999 999.99", ;
|
||||
Text_simplu1.Left = 91, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .F., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 149, ;
|
||||
Lb_simplu1.Caption = "Valoare", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_nr' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 12, ;
|
||||
Name = "Clb_nr", ;
|
||||
TabIndex = 3, ;
|
||||
Top = 160, ;
|
||||
Width = 152, ;
|
||||
ZOrderSet = 8, ;
|
||||
Text_simplu1.ControlSource = "thisform.nr", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 113, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 35, ;
|
||||
Lb_simplu1.Caption = "Tichete de masa", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_numerar' AS clb_tx_simplu WITH ;
|
||||
Left = 228, ;
|
||||
Name = "Clb_numerar", ;
|
||||
TabIndex = 9, ;
|
||||
Top = 196, ;
|
||||
ZOrderSet = 9, ;
|
||||
Text_simplu1.ControlSource = "thisform.numerar", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "999 999 999.99", ;
|
||||
Text_simplu1.Left = 135, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 149, ;
|
||||
Lb_simplu1.Caption = "Numerar", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_procent' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 12, ;
|
||||
Name = "Clb_procent", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 80, ;
|
||||
Width = 144, ;
|
||||
ZOrderSet = 16, ;
|
||||
Text_simplu1.ControlSource = "thisform.procent", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "99.99", ;
|
||||
Text_simplu1.Left = 76, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .F., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 44, ;
|
||||
Lb_simplu1.Caption = "Discount", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||
Lb_simplu1.Top = 6
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_procent._lbbase2' AS _lbbase WITH ;
|
||||
Caption = "%", ;
|
||||
Left = 126, ;
|
||||
Name = "_lbbase2", ;
|
||||
Top = 6
|
||||
*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Clb_total' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 361, ;
|
||||
Name = "Clb_total", ;
|
||||
TabIndex = 7, ;
|
||||
Top = 160, ;
|
||||
Width = 158, ;
|
||||
ZOrderSet = 12, ;
|
||||
Text_simplu1.ControlSource = "thisform.total", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 5, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 146, ;
|
||||
Lb_simplu1.Caption = "(total)", ;
|
||||
Lb_simplu1.Left = 114, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||
Lb_simplu1.Top = 6, ;
|
||||
Lb_simplu1.Visible = .F.
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_valoare' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 181, ;
|
||||
Name = "Clb_valoare", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 160, ;
|
||||
Width = 158, ;
|
||||
ZOrderSet = 10, ;
|
||||
Text_simplu1.ControlSource = "thisform.valoare", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "999 999 999.99", ;
|
||||
Text_simplu1.Left = 8, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 85, ;
|
||||
Lb_simplu1.Caption = "(valoare)", ;
|
||||
Lb_simplu1.Left = 105, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||
Lb_simplu1.Top = 6
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Explicatie TVA", ;
|
||||
FontName = "Comic Sans MS", ;
|
||||
Height = 19, ;
|
||||
Left = 450, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 13, ;
|
||||
Top = 69, ;
|
||||
Visible = .T., ;
|
||||
Width = 87, ;
|
||||
ZOrderSet = 18
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
|
||||
Caption = "X", ;
|
||||
Left = 170, ;
|
||||
Name = "Lb_simplu1", ;
|
||||
TabIndex = 12, ;
|
||||
Top = 166, ;
|
||||
ZOrderSet = 11
|
||||
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
|
||||
|
||||
PROCEDURE Activate
|
||||
*
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_termin
|
||||
Thisform.verificare('0')
|
||||
Local lcStringTichet,lcStringDisc
|
||||
Store '' To lcStringTichet,lcStringDisc
|
||||
pcStringImprim = ''
|
||||
pcStringImprim = [2;] + [NUMERAR;0;] + Alltrim(Str(Thisform.numerar,9,3)) + [;] + CRLF
|
||||
|
||||
*!* THISFORM.tva=VAL(THISFORM.cotaTVA.VALUE)
|
||||
If Thisform.nr>0 And Thisform.valoare>0
|
||||
If Thisform.discount>0
|
||||
lcProc = Alltrim(Str(Thisform.procent,5,2))
|
||||
Else
|
||||
lcProc = 0.00
|
||||
Endif
|
||||
lcStringmp500= [T,1,______,_,__;0;]+ Alltrim(Str(Thisform.numerar*100,8,3))+[;;;;]+CRLF+;
|
||||
[T,1,______,_,__;3;]+ Alltrim(Str(Thisform.Total*100,8,3))+[;;;;]+CRLF+;
|
||||
IIF(Thisform.discount > 0,[T,1,______,_,__;4;] + CRLF + [C,1,______,_,__;1;]+lcProc+[;;;;] + CRLF,'')+;
|
||||
[F,1,______,_,__;]+CRLF
|
||||
|
||||
|
||||
|
||||
lcStringTichet = [2;] + [TICHET;0;] + Alltrim(Str(Thisform.Total,9,3)) + [;] + CRLF
|
||||
Select actactan
|
||||
Locate For Alltrim(scd)='5311'
|
||||
If Found()
|
||||
Scatter Name lmp500
|
||||
Replace suma With Thisform.numerar
|
||||
Append Blank
|
||||
Gather Name lmp500
|
||||
Replace suma With Min(Thisform.Total,Thisform.bon),scd With '5323'
|
||||
Select actactan
|
||||
Go Top
|
||||
Endif
|
||||
Else
|
||||
lcStringmp500=[T,1,______,_,__;]+CRLF+[F,1,______,_,__;]+CRLF
|
||||
Endif
|
||||
|
||||
If Thisform.discount>0
|
||||
lcStringDisc = [2;] + [DISCOUNT;0;] + Alltrim(Str(Thisform.procent,2)) + [;] + CRLF
|
||||
lctvad = (-1)*Round(Thisform.tva*Thisform.discount/(Thisform.tva+100),gnPc)
|
||||
lcbazad = Thisform.discount+lctvad
|
||||
Select actactan
|
||||
Locate For Alltrim(scd)='4111'
|
||||
If Found()
|
||||
Scatter Name lmp500
|
||||
Append Blank
|
||||
Gather Name lmp500
|
||||
Replace scd With '667',ascd With '',scc With '4111',ascc With '5',suma With lcbazad,id_partc With id_partd,partc With partd,partd With '',id_partd With 0
|
||||
Select jtva_coloane
|
||||
Locate For id_jtva_coloana = lmp500.id_jtva_coloana
|
||||
If Found()
|
||||
lnIdTva = id_tva
|
||||
Select actactan
|
||||
Append Blank
|
||||
Gather Name lmp500
|
||||
Replace scc With '4427',ascc With '',suma With lctvad,id_jtva_coloana With lnIdTva
|
||||
Endif
|
||||
Select actactan
|
||||
Go Top
|
||||
Endif
|
||||
Endif
|
||||
|
||||
pcStringImprim = pcStringImprim + lcStringTichet + lcStringDisc
|
||||
|
||||
Return .T.
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
Parameters tnsuma
|
||||
Thisform.bon=tnsuma
|
||||
Thisform.numerar=tnsuma
|
||||
Thisform.clb_procent.SetFocus()
|
||||
*!* Select cote_tva
|
||||
*!* Go Top
|
||||
*!* Thisform.tva=procent
|
||||
*!* Thisform.cotaTVA.Value=Alltrim(Str(Thisform.tva))
|
||||
*!* Thisform.cotaTVA.Refresh()
|
||||
Select actactan
|
||||
Locate For Alltrim(scd)='5311'
|
||||
If Found()
|
||||
lnIdJtva = id_jtva_coloana
|
||||
Select jtva_vanzare
|
||||
Locate For id_jtva_coloana = lnIdJtva
|
||||
If !Found()
|
||||
Go Top
|
||||
Endif
|
||||
Else
|
||||
Select jtva_vanzare
|
||||
Go Top
|
||||
Endif
|
||||
Thisform.tva = cota_tva
|
||||
Thisform.cbO_TVA_VANZARE.Value = Alltrim(denumire)
|
||||
DoDefault()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE verificare
|
||||
LPARAMETERS tcPar
|
||||
DO CASE
|
||||
CASE tcPar = 'thisform.procent'
|
||||
thisform.discount = ROUND(thisform.bon*thisform.procent/100,gnPc)
|
||||
thisform.clb_discount.Refresh
|
||||
CASE tcPar = 'thisform.discount'
|
||||
IF thisform.discount>thisform.bon
|
||||
thisform.discount=0
|
||||
thisform.procent=0
|
||||
thisform.clb_procent.Refresh
|
||||
thisform.clb_discount.Refresh
|
||||
ELSE
|
||||
thisform.procent = ROUND(thisform.discount*100/thisform.bon,2)
|
||||
thisform.clb_procent.Refresh
|
||||
|
||||
ENDIF
|
||||
OTHERWISE
|
||||
ENDCASE
|
||||
|
||||
|
||||
thisform.diminuat=thisform.bon-thisform.discount
|
||||
thisform.total=thisform.nr*thisform.valoare
|
||||
IF thisform.total>thisform.diminuat
|
||||
thisform.numerar=0
|
||||
ELSE
|
||||
thisform.numerar=thisform.diminuat-thisform.total
|
||||
ENDIF
|
||||
thisform.clb_total.Refresh
|
||||
thisform.clb_numerar.Refresh
|
||||
thisform.clb_diminuat.Refresh
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE cbo_tva_vanzare.InteractiveChange
|
||||
Thisform.tva = jtva_vanzare.cota_tva
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Clb_discount.Text_simplu1.Valid
|
||||
thisform.verificare(this.ControlSource)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Clb_nr.Text_simplu1.Valid
|
||||
thisform.verificare(this.ControlSource)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Clb_procent.Text_simplu1.Valid
|
||||
thisform.verificare(this.ControlSource)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Clb_valoare.Text_simplu1.Valid
|
||||
thisform.verificare(this.ControlSource)
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_tichete1408 AS frm_termin_renunt OF "_frm_child.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Clb_bon" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_nr" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_numerar" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_valoare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_total" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_linie1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_linie2" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: verificare
|
||||
*p: bon
|
||||
*p: nr
|
||||
*p: numerar
|
||||
*p: total
|
||||
*p: valoare
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
bon = 0
|
||||
BorderStyle = 1
|
||||
DoCreate = .T.
|
||||
Height = 144
|
||||
Name = "frm_tichete"
|
||||
nr = 0
|
||||
numerar = 0
|
||||
total = 0
|
||||
valoare = 0
|
||||
Width = 525
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 524
|
||||
_shape2.Height = 29
|
||||
_shape2.Left = 460
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = 0
|
||||
_shape2.Width = 63
|
||||
Lb_titlu_alb_b121.Caption = "Bon"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
Lb_titlu_alb_b121.TabIndex = 7
|
||||
BUT_TERMIN1.Left = 491
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.TabIndex = 3
|
||||
BUT_TERMIN1.Top = 1
|
||||
Gridsort1.Left = 24
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
Gridsort1.Top = 108
|
||||
But_renunt1.Left = 462
|
||||
But_renunt1.Name = "But_renunt1"
|
||||
But_renunt1.TabIndex = 4
|
||||
But_renunt1.Top = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT '_linie1' AS _linie WITH ;
|
||||
Height = 0, ;
|
||||
Left = 344, ;
|
||||
Name = "_linie1", ;
|
||||
Top = 82, ;
|
||||
Width = 10
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="line" />
|
||||
|
||||
ADD OBJECT '_linie2' AS _linie WITH ;
|
||||
Height = 0, ;
|
||||
Left = 344, ;
|
||||
Name = "_linie2", ;
|
||||
Top = 88, ;
|
||||
Width = 10
|
||||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="line" />
|
||||
|
||||
ADD OBJECT 'Clb_bon' AS clb_tx_simplu WITH ;
|
||||
Left = 228, ;
|
||||
Name = "Clb_bon", ;
|
||||
TabIndex = 8, ;
|
||||
Top = 36, ;
|
||||
Text_simplu1.ControlSource = "thisform.bon", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "999 999 999.99", ;
|
||||
Text_simplu1.Left = 136, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 148, ;
|
||||
Lb_simplu1.Caption = "Valoare Bon", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_nr' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 11, ;
|
||||
Name = "Clb_nr", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 72, ;
|
||||
Width = 152, ;
|
||||
Text_simplu1.ControlSource = "thisform.nr", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 113, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 35, ;
|
||||
Lb_simplu1.Caption = "Tichete de masa", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_numerar' AS clb_tx_simplu WITH ;
|
||||
Left = 228, ;
|
||||
Name = "Clb_numerar", ;
|
||||
TabIndex = 6, ;
|
||||
Top = 108, ;
|
||||
Text_simplu1.ControlSource = "thisform.numerar", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "999 999 999.99", ;
|
||||
Text_simplu1.Left = 135, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 149, ;
|
||||
Lb_simplu1.Caption = "Numerar", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_total' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 360, ;
|
||||
Name = "Clb_total", ;
|
||||
TabIndex = 5, ;
|
||||
Top = 72, ;
|
||||
Width = 158, ;
|
||||
Text_simplu1.ControlSource = "thisform.total", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 5, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 146, ;
|
||||
Lb_simplu1.Caption = "(total)", ;
|
||||
Lb_simplu1.Left = 114, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||
Lb_simplu1.Top = 6, ;
|
||||
Lb_simplu1.Visible = .F.
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_valoare' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 181, ;
|
||||
Name = "Clb_valoare", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 72, ;
|
||||
Width = 158, ;
|
||||
Text_simplu1.ControlSource = "thisform.valoare", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.InputMask = "999 999 999.99", ;
|
||||
Text_simplu1.Left = 8, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 85, ;
|
||||
Lb_simplu1.Caption = "(valoare)", ;
|
||||
Lb_simplu1.Left = 105, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1", ;
|
||||
Lb_simplu1.Top = 6
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
|
||||
Caption = "X", ;
|
||||
Left = 169, ;
|
||||
Name = "Lb_simplu1", ;
|
||||
TabIndex = 9, ;
|
||||
Top = 78
|
||||
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
|
||||
|
||||
PROCEDURE Activate
|
||||
*
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_termin
|
||||
thisform.verificare()
|
||||
IF thisform.nr>0 AND thisform.valoare>0
|
||||
lcStringmp500= [T,1,______,_,__;0;]+ ALLTRIM(STR(thisform.numerar*100,8,3))+[;;;;]+CRLF+;
|
||||
[T,1,______,_,__;3;]+ ALLTRIM(STR(thisform.total*100,8,3))+[;;;;]+CRLF+;
|
||||
[F,1,______,_,__;]+CRLF
|
||||
|
||||
SELECT actactan
|
||||
LOCATE FOR ALLTRIM(scd)='5311'
|
||||
IF FOUND()
|
||||
SCATTER NAME lmp500
|
||||
replace suma WITH thisform.numerar
|
||||
APPEND BLANK
|
||||
GATHER NAME lmp500
|
||||
replace suma WITH MIN(thisform.total,thisform.bon),scd WITH '5323'
|
||||
SELECT actactan
|
||||
GO TOP
|
||||
ENDIF
|
||||
|
||||
ELSE
|
||||
lcStringmp500=[T,1,______,_,__;]+CRLF+[F,1,______,_,__;]+CRLF
|
||||
ENDIF
|
||||
|
||||
|
||||
RETURN .t.
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
PARAMETERS tnsuma
|
||||
thisform.bon=tnsuma
|
||||
thisform.numerar=tnsuma
|
||||
thisform.clb_nr.setfocus()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE verificare
|
||||
thisform.total=thisform.nr*thisform.valoare
|
||||
IF thisform.total>thisform.bon
|
||||
thisform.numerar=0
|
||||
ELSE
|
||||
thisform.numerar=thisform.bon-thisform.total
|
||||
ENDIF
|
||||
thisform.clb_total.Refresh
|
||||
thisform.clb_numerar.Refresh
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Clb_nr.Text_simplu1.Valid
|
||||
thisform.verificare()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Clb_valoare.Text_simplu1.Valid
|
||||
thisform.verificare()
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user