romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
6cf769762479b07296bb09197cd5a0c6b2a87ae2
comun/clase/ointroduceri.vc2

18185 lines
594 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="ointroduceri.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS container_valoare_decontata AS container
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*<PropValue>
BackColor = 255,255,255
BorderColor = 255,255,255
Height = 28
Name = "container_valoare_decontata"
Width = 245
*</PropValue>
ADD OBJECT 'Label1' AS label WITH ;
BackStyle = 0, ;
Caption = "Valoare decontatã", ;
FontCharSet = 238, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 7,118,177, ;
Height = 17, ;
Left = 3, ;
Name = "Label1", ;
Top = 6, ;
Width = 108
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text1' AS textbox WITH ;
ControlSource = "pnValoareDecontata", ;
FontCharSet = 238, ;
FontName = "Arial", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(12,gnPC)), ;
Left = 113, ;
Name = "Text1", ;
SpecialEffect = 1, ;
Top = 3, ;
Width = 129
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Text1.LostFocus
IF pnValoareDecontata > thisform.nTotal
pnValoareDecontata = thisform.nTotal
this.Refresh
ENDIF
pnCheltuieliDirecte = thisform.nTotal - pnValoareDecontata
ENDPROC
ENDDEFINE
DEFINE CLASS facturi_retur 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="Ct_grid_order1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column2.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.cSerie_act.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1._GRID1.cSerie_act.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_n1n2_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Resizable1" UniqueID="" Timestamp="" />
#INCLUDE "..\include\foxpro.h"
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 460
Name = "facturi_retur"
Width = 662
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 662
_shape1.ZOrderSet = 1
_shape2.Height = 29
_shape2.Left = 599
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 63
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.Caption = "Selectati facturile pentru retur"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Left = 631
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 601, ;
Name = "But_renunt1", ;
TabIndex = 4, ;
Top = 1, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_n1n2_simplu1' AS clb_n1n2_simplu WITH ;
BorderColor = 7,118,177, ;
BorderWidth = 2, ;
Height = 30, ;
Left = 362, ;
Name = "Clb_n1n2_simplu1", ;
TabIndex = 1, ;
Top = 68, ;
Width = 290, ;
ZOrderSet = 5, ;
tx_n1.ControlSource = "pdDatai", ;
tx_n1.Left = 130, ;
tx_n1.Name = "tx_n1", ;
tx_n1.Top = 3, ;
Lb_simplu1.Caption = "Facturi din perioada:", ;
Lb_simplu1.Left = 8, ;
Lb_simplu1.Name = "Lb_simplu1", ;
Lb_simplu1.Top = 7, ;
tx_n2.ControlSource = "pdDataf", ;
tx_n2.Left = 210, ;
tx_n2.Name = "tx_n2", ;
tx_n2.Top = 3
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_order1' AS ct_grid_order WITH ;
cnumecursor = crs_facturi_emise, ;
Height = 418, ;
Left = 7, ;
Name = "Ct_grid_order1", ;
TabIndex = 2, ;
Top = 41, ;
Width = 648, ;
ZOrderSet = 0, ;
_GRID1.Column1.ControlSource = "nrcrt()", ;
_GRID1.Column1.FontName = "Arial Narrow", ;
_GRID1.Column1.Name = "Column1", ;
_GRID1.Column1.Width = 24, ;
_GRID1.Column10.ColumnOrder = 11, ;
_GRID1.Column10.ControlSource = "totdebit-totcredit", ;
_GRID1.Column10.FontName = "Arial Narrow", ;
_GRID1.Column10.InputMask = (get_mask(12,gnPc)), ;
_GRID1.Column10.Name = "Column10", ;
_GRID1.Column10.Width = 81, ;
_GRID1.Column11.ColumnOrder = 3, ;
_GRID1.Column11.ControlSource = "serie_act", ;
_GRID1.Column11.FontName = "Arial Narrow", ;
_GRID1.Column11.Name = "cSerie_act", ;
_GRID1.Column11.Width = 53, ;
_GRID1.Column2.Alignment = 2, ;
_GRID1.Column2.ControlSource = "ceck", ;
_GRID1.Column2.FontName = "Arial Narrow", ;
_GRID1.Column2.Name = "Column2", ;
_GRID1.Column2.Sparse = .F., ;
_GRID1.Column2.Width = 31, ;
_GRID1.Column3.ColumnOrder = 4, ;
_GRID1.Column3.ControlSource = "nract", ;
_GRID1.Column3.FontName = "Arial Narrow", ;
_GRID1.Column3.Name = "Column3", ;
_GRID1.Column4.ColumnOrder = 5, ;
_GRID1.Column4.ControlSource = "dataact", ;
_GRID1.Column4.FontName = "Arial Narrow", ;
_GRID1.Column4.Name = "Column4", ;
_GRID1.Column4.Width = 63, ;
_GRID1.Column5.ColumnOrder = 6, ;
_GRID1.Column5.ControlSource = "datascad", ;
_GRID1.Column5.FontName = "Arial Narrow", ;
_GRID1.Column5.Name = "Column5", ;
_GRID1.Column5.Width = 70, ;
_GRID1.Column6.ColumnOrder = 7, ;
_GRID1.Column6.ControlSource = "cont", ;
_GRID1.Column6.FontName = "Arial Narrow", ;
_GRID1.Column6.Name = "Column6", ;
_GRID1.Column6.Width = 31, ;
_GRID1.Column7.ColumnOrder = 8, ;
_GRID1.Column7.ControlSource = "acont", ;
_GRID1.Column7.FontName = "Arial Narrow", ;
_GRID1.Column7.Name = "Column7", ;
_GRID1.Column7.Width = 33, ;
_GRID1.Column8.ColumnOrder = 9, ;
_GRID1.Column8.ControlSource = "totdebit", ;
_GRID1.Column8.FontName = "Arial Narrow", ;
_GRID1.Column8.InputMask = (get_mask(12,gnPc)), ;
_GRID1.Column8.Name = "Column8", ;
_GRID1.Column8.Width = 89, ;
_GRID1.Column9.ColumnOrder = 10, ;
_GRID1.Column9.ControlSource = "totcredit", ;
_GRID1.Column9.FontName = "Arial Narrow", ;
_GRID1.Column9.InputMask = (get_mask(12,gnPc)), ;
_GRID1.Column9.Name = "Column9", ;
_GRID1.Column9.Width = 88, ;
_GRID1.ColumnCount = 11, ;
_GRID1.FontName = "Arial Narrow", ;
_GRID1.Height = 348, ;
_GRID1.Left = 6, ;
_GRID1.Name = "_GRID1", ;
_GRID1.Panel = 1, ;
_GRID1.RecordSource = "crs_facturi_emise", ;
_GRID1.Top = 62, ;
_GRID1.Width = 639, ;
Titlu.Left = 9, ;
Titlu.Name = "Titlu", ;
Titlu.Top = 3, ;
Cb_tx_cautare1.Criteriu.Name = "Criteriu", ;
Cb_tx_cautare1.Name = "Cb_tx_cautare1", ;
Cb_tx_cautare1.Text.Name = "Text"
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column1.Header1' AS header WITH ;
Caption = "Nr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sold", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column2.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
FontName = "Arial Narrow", ;
Height = 17, ;
Left = 9, ;
Name = "Check1", ;
Top = 40, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Alege", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.factura", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data factura", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data scadenta", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total factura", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Achitat", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Ct_grid_order1._GRID1.cSerie_act.Header1' AS header WITH ;
Alignment = 0, ;
Caption = "Serie factura", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Ct_grid_order1._GRID1.cSerie_act.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Resizable1' AS resizable_class WITH ;
Left = 271, ;
Name = "Resizable1", ;
repositionlist = _shape Urmator But_termin But_renunt Clb_n1n2_simplu Titlufrumos Ct_grid_order, ;
resizelist = _shape Urmator But_termin But_renunt Clb_n1n2_simplu Titlufrumos Ct_grid_order, ;
Top = 31
*< END OBJECT: ClassLib="solution.vcx" BaseClass="custom" />
PROCEDURE inainte_de_do_termin
lcSel = this.ct_grid_order1.cnumecursor
SELECT (lcSel)
COUNT FOR ceck = 1 TO lnAlese
IF lnAlese = 0
amessagebox('Alegeti o factura!',0+16,'Atentie')
RETURN .f.
ENDIF
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
this.ct_grid_order1.initializare(.t.)
i = 0
For Each loColumn In Thisform.ct_grid_order1._GRID1.Columns
i = i + 1
With loColumn
If !Empty(loColumn.ControlSource)
* Save default caption, color and font
lcOldCaption = loColumn.Header1.Caption
lcOldFontName = loColumn.Header1.FontName
lnOldForeColor = loColumn.Header1.ForeColor
llOldFontUnderline = loColumn.Header1.FontUnderline
* Name Header Obj after ControlSource
lcControlSrc = loColumn.ControlSource
lnControlSrc = Rat(".", lcControlSrc) + 1
lcControlSrc = Substr(lcControlSrc, lnControlSrc)
* Metoda dupa care se face ordonarea relativa la grid
lcMethodName = 'parent.corderby_assign'
lcPropColOrder = 'parent.cOrder'
lcPropSensOrder = 'parent.cAsc'
* Remove old and create new header
.RemoveObject("Header1")
.AddObject("grh"+ALLTRIM(STR(i)), ;
"PSHeader", ;
lcOldCaption, lcOldFontName,lnOldForeColor,llOldFontUnderline,lcMethodName,lcControlSrc)
If Upper(Alltrim(lcControlSrc)) = Upper(Alltrim(this.ct_grid_order1.corder))
lcCuloare = [locolumn.grh] + ALLTRIM(STR(i)) + [.forecolor = RGB(0,0,255)]
&lcCuloare
lcUnderline = [locolumn.grh] + ALLTRIM(STR(i)) + [.FontUnderline = .t.]
&lcUnderline
Endif
Endif
Endwith
ENDFOR
ENDPROC
PROCEDURE Clb_n1n2_simplu1.tx_n1.Valid
IF EMPTY(this.Parent.tx_n2.value)
this.Parent.tx_n2.value=this.value
this.Parent.tx_n2.Refresh
ENDIF
ENDPROC
PROCEDURE Clb_n1n2_simplu1.tx_n2.LostFocus
thisform.LockScreen = .t.
thisform.ct_grid_order1.initializare(.t.)
thisform.ct_grid_order1.SetFocus
thisform.LockScreen = .f.
ENDPROC
PROCEDURE Ct_grid_order1.initializare
PARAMETERS tlNumerotare
llNrOrd = tlNumerotare
*** CREEZ CURSORUL INITIAL
lcTitlu = This.cTitlu
lcOrder = this.corder
lcNumeCursor = this.cnumecursor
lcSql = This.cSelect
lnSucces = goExecutor.oExecute(lcSql,'crs_temp')
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
save_grid(This._grid1)
IF USED(lcNumeCursor)
USE IN &lcNumeCursor
ENDIF
SELECT ceck, serie_act, nract, TTOD(dataact) as dataact,TTOD(datascad) as datascad,cont,acont,totdebit,totcredit,totdebit-totcredit,id_fact ;
FROM crs_temp INTO CURSOR (lcNumeCursor) READWRITE
USE IN crs_temp
IF llNrOrd
DO nrord WITH lcNumeCursor
this._griD1.LockColumns = 1
ENDIF
restore_grid(This._grid1)
SELECT (lcNumeCursor)
GO TOP
ENDPROC
PROCEDURE _shape1.DblClick
IF thisform.WindowState = 2
thisform.WindowState = 0
ELSE
thisform.WindowState = 2
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_alege_prod_cant 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="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txt_produs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtCant" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_gestiune" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_produs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtLot" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSerie" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_cauta_gestiune
*m: do_cauta_produs
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
Caption = "Form"
DoCreate = .T.
Height = 188
Name = "frm_alege_prod_cant"
Width = 353
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Height = 29
_SHAPE2.Left = 292
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 61
LB_TITLU_ALB_B121.Caption = "Productie"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 8
BUT_TERMIN1.Left = 322
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
GRIDSORT1.Left = 240
GRIDSORT1.Name = "GRIDSORT1"
GRIDSORT1.Top = 12
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 292, ;
Name = "But_renunt1", ;
TabIndex = 7, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Cauta articol", ;
Height = 27, ;
Left = 25, ;
Name = "Command1", ;
TabIndex = 9, ;
Top = 257, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Ct_clb_gestiune' AS ct_clb_cautare_var WITH ;
cconditie = EMPTY(NVL(pnId_gestiune,0)), ;
cprocedura = thisform.do_cauta_gestiune, ;
cvar_afisata = pcGestiune, ;
Height = 31, ;
Left = 12, ;
Name = "Ct_clb_gestiune", ;
TabIndex = 5, ;
Top = 150, ;
Width = 337, ;
shape_cautare.Height = 29, ;
shape_cautare.Left = 1, ;
shape_cautare.Name = "shape_cautare", ;
shape_cautare.Top = 1, ;
shape_cautare.Width = 305, ;
img_cautare.Left = 310, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Gestiune destinatie", ;
lb_cautare.Name = "lb_cautare", ;
tx_cautare.Left = 119, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'Ct_clb_produs' AS ct_clb_cautare_var WITH ;
cconditie = EMPTY(NVL(pnId_articol,0)), ;
cprocedura = thisform.do_cauta_produs, ;
cvar_afisata = pcDenumire, ;
Height = 31, ;
Left = 11, ;
Name = "Ct_clb_produs", ;
TabIndex = 1, ;
Top = 43, ;
Width = 337, ;
shape_cautare.Height = 29, ;
shape_cautare.Left = 1, ;
shape_cautare.Name = "shape_cautare", ;
shape_cautare.Top = 1, ;
shape_cautare.Width = 305, ;
img_cautare.Left = 309, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Produs", ;
lb_cautare.Name = "lb_cautare", ;
tx_cautare.Left = 119, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Cantitate", ;
FontSize = 10, ;
Height = 18, ;
Left = 17, ;
Name = "Label1", ;
TabIndex = 11, ;
Top = 78, ;
Width = 54
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Lot", ;
FontSize = 10, ;
Height = 18, ;
Left = 17, ;
Name = "Label2", ;
TabIndex = 13, ;
Top = 103, ;
Width = 20
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Serie", ;
FontSize = 10, ;
Height = 18, ;
Left = 17, ;
Name = "Label3", ;
TabIndex = 12, ;
Top = 128, ;
Width = 32
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'txt_produs' AS textbox WITH ;
Height = 23, ;
Left = 120, ;
Name = "txt_produs", ;
TabIndex = 10, ;
Top = 259, ;
Width = 120
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtCant' AS textbox WITH ;
ControlSource = "pnCant", ;
FontSize = 10, ;
Format = "rk", ;
Height = 23, ;
InputMask = (get_mask(10,gnPcant)), ;
Left = 84, ;
Name = "txtCant", ;
TabIndex = 2, ;
Top = 75, ;
Width = 131
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtLot' AS textbox WITH ;
ControlSource = "pcLot", ;
FontSize = 10, ;
Format = "!K", ;
Height = 23, ;
Left = 60, ;
Name = "txtLot", ;
TabIndex = 3, ;
Top = 100, ;
Width = 155
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'txtSerie' AS textbox WITH ;
ControlSource = "pcSerie", ;
FontSize = 10, ;
Format = "!K", ;
Height = 23, ;
Left = 60, ;
Name = "txtSerie", ;
TabIndex = 4, ;
Top = 125, ;
Width = 155
*< END OBJECT: BaseClass="textbox" />
PROCEDURE do_cauta_gestiune
Local loCauta
loCauta = caut_gestiune(4,gnidUtil)
If !Empty(Nvl(loCauta.id_gestiune,0))
pnid_gestiune = loCauta.id_gestiune
pcGestiune = loCauta.nume_gestiune
Thisform.but_teRMIN1.SetFocus()
Else
pnid_gestiune = Null
pcGestiune = []
Endif
ENDPROC
PROCEDURE do_cauta_produs
Store "" To loCauta
lcFiltru = []
lcSchema = []
lcOrder = [nume_articol]
lccoloane = [nume_articol,codmat,um,cont]
lcTitlu = [Alegeti produsul]
lcTitluColoane = [Denumire,Cod Material,UM,Cont]
llMultipleArticles = .F.
*lcSelect = [select a.denumire,a.codmat,a.um, a.grupa, a.subgrupa, a.id_grupa, a.id_subgrupa,a.dnf,a.cont, a.acont, a.inactiv, a.id_articol from ] + gcS + [.vnom_articole a ]
*!* lcSelect = [select id_articol,id_pol,pret,um,nume_articol,codmat, cont ] + ;
*!* [ from com_vpreturi_utilizator where id_util = ?gnIdUtil and id_pol in ] + ;
*!* [ (select varvalue as id_pol from optiuni where vartype = 'NUMERIC' AND varname = ?pcOptiune ) ]
*!* modificare ROAPRODUCTIE v 2.0.2
*!* pcOptiune = 'ID_LISTA_PRETURI_PV_PRODUCTIE'
*!* lcSelect = [select id_articol,id_pol,pret,um,nume_articol,codmat, cont ] + ;
*!* [ from com_vpreturi_utilizator ]
*!* lcFiltruOriginal = [ id_util = ?gnIdUtil and id_pol in ] + ;
*!* [ (select varvalue as id_pol from optiuni where vartype = 'NUMERIC' AND varname = ?pcOptiune ) ]
lcSelect = [select id_articol,id_pol,pret,um,nume_articol,codmat, cont, in_crm, in_stoc ] + ;
[ from com_vpreturi_utilizator ]
lcFiltruOriginal = [ in_stoc = 1 and id_util = ?gnIdUtil and id_pol = ?gnId_lista_preturi_pv ]
*!* modificare ROAPRODUCTIE v 2.0.2 ^
lcNumeProc = []
llToateIreg = .F.
lcPrimaColoana = []
lnPornire = 1
lnTipReturn = Iif(llMultipleArticles, 1, 0)
lcIdColumn = "id_articol"
llModParam = .T.
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn , lcIdColumn,,,,,llModParam) && 11.07.2007
***------------------------------
pnId_articol = loCauta.id_articol
pcDenumire = loCauta.nume_articol
pcCont_articol = loCauta.cont
*!* modificare ROAPRODUCTIE v 2.0.2
pnInStoc = loCauta.in_stoc
pnInCrm = loCauta.in_crm
pcUm = loCauta.um
*!* modificare ROAPRODUCTIE v 2.0.2 ^
Thisform.txtCant.SetFocus()
ENDPROC
PROCEDURE inainte_de_do_termin
IF EMPTY(pnId_articol)
AMESSAGEBOX('Nu ati ales produsul!')
RETURN .F.
ENDIF
IF EMPTY(pnId_gestiune)
AMESSAGEBOX('Nu ati ales gestiunea!')
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Command1.Click
Store "" To loCauta
lcFiltru = [1=2]
lcSchema = []
lcOrder = [nume_articol]
lccoloane = [nume_articol,codmat,um,cont]
lcTitlu = [Alegeti produsul (mouse-click pe denumire sau apasati SPACE)]
lcTitluColoane = [Denumire,Cod Material,UM,Cont]
llMultipleArticles = .T.
*lcSelect = [select a.denumire,a.codmat,a.um, a.grupa, a.subgrupa, a.id_grupa, a.id_subgrupa,a.dnf,a.cont, a.acont, a.inactiv, a.id_articol from ] + gcS + [.vnom_articole a ]
*!* modificare ROAPRODUCTIE v 2.0.2
*!* pcOptiune = 'ID_LISTA_PRETURI_PV_PRODUCTIE'
*!* lcSelect = [select id_articol,id_pol,pret,um,nume_articol,codmat, cont ] + ;
*!* [from com_vpreturi_utilizator where id_util = ?gnIdUtil and id_pol in ] + ;
*!* [(select varvalue as id_pol from optiuni where varname = ?pcOptiune and vartype = 'NUMERIC') ]
lcSelect = [select id_articol,id_pol,pret,um,nume_articol,codmat,cont ] + ;
[from com_vpreturi_utilizator where id_util = ?gnIdUtil and id_pol = ?gnID_LISTA_PRETURI_PV ]
*!* modificare ROAPRODUCTIE v 2.0.2 ^
lcFiltruOriginal = []
lcNumeProc = []
llToateIreg = .F.
lcPrimaColoana = [denumire]
lnPornire = 1
lnTipReturn = Iif(llMultipleArticles, 1, 0)
lcIdColumn = "id_articol"
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn , lcIdColumn) && 11.07.2007
***------------------------------
pnId_articol = loCauta.id_articol
pcDenumire = nume_articol
pcCont_articol = cont
thisform.txt_produs.Value = pcDenumire
ENDPROC
ENDDEFINE
DEFINE CLASS frm_alege_sectie 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="Ct_clb_grup" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_cauta_sectie
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 89
Name = "frm_alege_sectie"
Width = 352
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 291
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "Sectia beneficiara"
Lb_titlu_alb_b121.Left = 11
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
Lb_titlu_alb_b121.Top = 6
BUT_TERMIN1.Left = 322
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Left = 228
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 7
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 292, ;
Name = "But_renunt1", ;
TabIndex = 4, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ct_clb_grup' AS ct_clb_cautare_var WITH ;
cconditie = EMPTY(NVL(pnId_sectie,0)), ;
cprocedura = thisform.do_cauta_sectie, ;
cvar_afisata = pcSectie, ;
Height = 31, ;
Left = 11, ;
Name = "Ct_clb_grup", ;
TabIndex = 1, ;
Top = 40, ;
Width = 337, ;
shape_cautare.Height = 29, ;
shape_cautare.Left = 1, ;
shape_cautare.Name = "shape_cautare", ;
shape_cautare.Top = 1, ;
shape_cautare.Width = 305, ;
img_cautare.Left = 310, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Sectia beneficiara", ;
lb_cautare.Name = "lb_cautare", ;
tx_cautare.Left = 119, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
PROCEDURE do_cauta_sectie
Local loCauta
loCauta = caut_sectie()
If !Empty(Nvl(loCauta.id_sectie,0))
pnid_sectie = loCauta.id_sectie
pcSectie = loCauta.sectie
Thisform.but_TERMIN1.SetFocus()
Else
pnid_sectie = Null
pcSectie = []
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
IF EMPTY(NVL(pnId_sectie,0))
AMESSAGEBOX('Nu ati ales sectia!',48,"Atentie")
THISFORM.CT_clb_grup.SetFocus()
RETURN .F.
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_alege_sectie_comanda 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="Ct_clb_grup" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_comanda" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_cauta_comanda
*m: do_cauta_sectie
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 119
Name = "frm_alege_sectie_comanda"
Width = 352
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 291
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "Sectia - comanda"
Lb_titlu_alb_b121.Left = 11
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
Lb_titlu_alb_b121.Top = 6
BUT_TERMIN1.Left = 322
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Left = 228
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 7
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 292, ;
Name = "But_renunt1", ;
TabIndex = 4, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ct_clb_comanda' AS ct_clb_cautare_var WITH ;
cconditie = EMPTY(NVL(pnId_comanda,0)), ;
cprocedura = thisform.do_cauta_comanda, ;
cvar_afisata = pcNr_comanda, ;
Height = 31, ;
Left = 11, ;
Name = "Ct_clb_comanda", ;
TabIndex = 2, ;
Top = 68, ;
Width = 337, ;
shape_cautare.Height = 29, ;
shape_cautare.Left = 1, ;
shape_cautare.Name = "shape_cautare", ;
shape_cautare.Top = 1, ;
shape_cautare.Width = 305, ;
img_cautare.Left = 310, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Comanda", ;
lb_cautare.Name = "lb_cautare", ;
tx_cautare.Left = 119, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'Ct_clb_grup' AS ct_clb_cautare_var WITH ;
cconditie = EMPTY(NVL(pnId_sectie,0)), ;
cprocedura = thisform.do_cauta_sectie, ;
cvar_afisata = pcSectie, ;
Height = 31, ;
Left = 11, ;
Name = "Ct_clb_grup", ;
TabIndex = 1, ;
Top = 40, ;
Width = 337, ;
shape_cautare.Height = 29, ;
shape_cautare.Left = 1, ;
shape_cautare.Name = "shape_cautare", ;
shape_cautare.Top = 1, ;
shape_cautare.Width = 305, ;
img_cautare.Left = 310, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Sectia beneficiara", ;
lb_cautare.Name = "lb_cautare", ;
tx_cautare.Left = 119, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
PROCEDURE do_cauta_comanda
Local lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn , lcIdColumn, llModParam
Store "" To loCauta
lcSchema = []
lcOrder = [nr_comanda]
lccoloane = [nr_comanda,data_comanda]
lcTitlu = [Alegeti comanda]
lcTitluColoane = [Nr comanda,Data comanda]
llMultipleArticles = .F.
*!* lcSelect = [select id_comanda,nr_comanda,data_comanda ] + ;
*!* [ from vcomenzi where id_sectie2= ] + ALLTRIM(STR(pnId_sectie))
lcSelect = [select id_comanda,nr_comanda,data_comanda from vcomenzi ]
lcFiltru = []
lcFiltruOriginal = [data_livrat is null and inchisa = 0 and id_sectie2= ] + Alltrim(Str(pnId_sectie))
lcNumeProc = []
llToateIreg = .F.
lcPrimaColoana = []
lnPornire = 1
lnTipReturn = Iif(llMultipleArticles, 1, 0)
lcIdColumn = "id_comanda"
llModParam = .F.
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lcPrimaColoana, lnPornire, lnTipReturn , lcIdColumn,,,,,llModParam) && 11.07.2007
***------------------------------
If !Empty(Nvl(loCauta.id_comanda,0))
pnId_comanda = loCauta.id_comanda
pcNr_comanda = loCauta.nr_comanda
Thisform.but_TERMIN1.SetFocus()
Else
pnId_comanda = 0
pcNr_comanda = []
Endif
ENDPROC
PROCEDURE do_cauta_sectie
Local loCauta
loCauta = caut_sectie()
If !Empty(Nvl(loCauta.id_sectie,0))
pnid_sectie = loCauta.id_sectie
pcSectie = loCauta.sectie
Thisform.ct_clb_comanda.SetFocus()
Else
pnid_sectie = Null
pcSectie = []
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
IF EMPTY(NVL(pnId_sectie,0))
AMESSAGEBOX('Nu ati ales sectia!',48,"Atentie")
THISFORM.CT_clb_grup.SetFocus()
RETURN .F.
ENDIF
IF EMPTY(NVL(pnId_comanda,0))
AMESSAGEBOX('Nu ati ales comanda!',48,"Atentie")
thisform.ct_clb_comanda.SetFocus()
RETURN .F.
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_conversie 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="_pgfrmbase1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.Clb_volum" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.Clb_densitate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.Clb_masa" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.cb_um_volum" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.cb_um_masa_d" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.cb_um_volum_d" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.cb_um_masa" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.LB_SIMPLU1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.Clb_pret" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page1.Clb_prettr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page2.Clb_pret" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page2.Clb_pret_tr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page2.Clb_cantitate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page2.cb_um" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page2.cb_um_orig" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page2.Clb_cantitate_tr" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_actualizeaza_um
*m: do_calculeaza_pret
*m: do_conversie
*p: calias
*p: ccursor
*p: cum
*p: ncantitate
*p: npret
*p: ntip
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
calias =
ccursor =
cum =
DoCreate = .T.
Height = 270
Name = "frm_conversie"
ncantitate = 0
npret = 0
ntip = 0
Width = 480
_memberdata = <VFPData>
<memberdata name="ccursor" display="cCursor"/>
<memberdata name="ntip" display="nTip"/>
</VFPData>
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 480
_shape2.Height = 29
_shape2.Left = 443
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 39
Lb_titlu_alb_b121.Caption = "Conversie"
Lb_titlu_alb_b121.FontName = "Comic Sans MS"
Lb_titlu_alb_b121.FontSize = 10
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 2
BUT_TERMIN1.Left = 448
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_pgfrmbase1' AS _pgfrmbase WITH ;
ErasePage = .T., ;
Height = 215, ;
Left = 14, ;
Name = "_pgfrmbase1", ;
PageCount = 2, ;
TabIndex = 1, ;
Top = 43, ;
Width = 454, ;
Page1.BackColor = 255,255,255, ;
Page1.Caption = "\<Volum -> masa", ;
Page1.Name = "Page1", ;
Page1.PageOrder = 2, ;
Page2.BackColor = 255,255,255, ;
Page2.Caption = "\<Conversii", ;
Page2.Name = "Page2", ;
Page2.PageOrder = 1
*< END OBJECT: ClassLib="_frm_base.vcx" BaseClass="pageframe" />
ADD OBJECT '_pgfrmbase1.Page1.cb_um_masa' AS _cbbase WITH ;
Height = 24, ;
Left = 351, ;
Name = "cb_um_masa", ;
TabIndex = 6, ;
Top = 121, ;
Width = 60
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT '_pgfrmbase1.Page1.cb_um_masa_d' AS _cbbase WITH ;
Height = 24, ;
Left = 325, ;
Name = "cb_um_masa_d", ;
TabIndex = 4, ;
Top = 54, ;
Width = 48
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT '_pgfrmbase1.Page1.cb_um_volum' AS _cbbase WITH ;
Height = 24, ;
Left = 351, ;
Name = "cb_um_volum", ;
TabIndex = 2, ;
Top = 26, ;
Width = 60
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT '_pgfrmbase1.Page1.cb_um_volum_d' AS _cbbase WITH ;
Height = 24, ;
Left = 390, ;
Name = "cb_um_volum_d", ;
TabIndex = 5, ;
Top = 54, ;
Width = 48
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT '_pgfrmbase1.Page1.Clb_densitate' AS clb_tx_simplu WITH ;
Left = 18, ;
Name = "Clb_densitate", ;
TabIndex = 3, ;
Top = 52, ;
TEXT_SIMPLU1.Alignment = 3, ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.InputMask = "999 999.999", ;
TEXT_SIMPLU1.Left = 131, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Value = 0, ;
TEXT_SIMPLU1.Width = 154, ;
LB_SIMPLU1.Caption = "Densitate", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT '_pgfrmbase1.Page1.Clb_masa' AS clb_tx_simplu WITH ;
Enabled = .F., ;
Left = 18, ;
Name = "Clb_masa", ;
TabIndex = 8, ;
Top = 119, ;
TEXT_SIMPLU1.Alignment = 3, ;
TEXT_SIMPLU1.Enabled = .F., ;
TEXT_SIMPLU1.InputMask = "999 999 999.999", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Value = 0, ;
LB_SIMPLU1.Caption = "Masa", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT '_pgfrmbase1.Page1.Clb_pret' AS clb_tx_simplu WITH ;
Left = 18, ;
Name = "Clb_pret", ;
TabIndex = 7, ;
Top = 80, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.ControlSource = "Thisform.npret", ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(12,gnPpret)), ;
Text_simplu1.Left = 131, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Value = 0, ;
Text_simplu1.Width = 154, ;
Lb_simplu1.Caption = "Pret", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT '_pgfrmbase1.Page1.Clb_prettr' AS clb_tx_simplu WITH ;
Enabled = .F., ;
Left = 18, ;
Name = "Clb_prettr", ;
TabIndex = 9, ;
Top = 147, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.Enabled = .F., ;
Text_simplu1.Format = "rK", ;
Text_simplu1.InputMask = (get_mask(12,gnPpret)), ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Value = 0, ;
Lb_simplu1.Caption = "Pret transformat", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT '_pgfrmbase1.Page1.Clb_volum' AS clb_tx_simplu WITH ;
Left = 18, ;
Name = "Clb_volum", ;
TabIndex = 1, ;
Top = 24, ;
TEXT_SIMPLU1.Alignment = 3, ;
TEXT_SIMPLU1.InputMask = "999 999 999.999", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Value = 0, ;
LB_SIMPLU1.Caption = "Volum", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT '_pgfrmbase1.Page1.LB_SIMPLU1' AS lb_simplu WITH ;
Caption = "/", ;
Left = 379, ;
Name = "LB_SIMPLU1", ;
TabIndex = 10, ;
Top = 57
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT '_pgfrmbase1.Page2.cb_um' AS _cbbase WITH ;
Height = 24, ;
Left = 331, ;
Name = "cb_um", ;
TabIndex = 4, ;
Top = 99, ;
Width = 84
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT '_pgfrmbase1.Page2.cb_um_orig' AS _cbbase WITH ;
Height = 24, ;
Left = 331, ;
Name = "cb_um_orig", ;
TabIndex = 2, ;
Top = 26, ;
Width = 84
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT '_pgfrmbase1.Page2.Clb_cantitate' AS clb_tx_simplu WITH ;
Left = 18, ;
Name = "Clb_cantitate", ;
TabIndex = 1, ;
Top = 24, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(14,gnPCant)), ;
Text_simplu1.Left = 123, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Value = 0, ;
Text_simplu1.Width = 162, ;
Lb_simplu1.Caption = "Cantitate impach.", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT '_pgfrmbase1.Page2.Clb_cantitate_tr' AS clb_tx_simplu WITH ;
Enabled = .F., ;
Left = 18, ;
Name = "Clb_cantitate_tr", ;
TabIndex = 6, ;
Top = 97, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.Enabled = .F., ;
Text_simplu1.InputMask = "999 999 999.999", ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Value = 0, ;
Lb_simplu1.Caption = "Cantitate transf.", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT '_pgfrmbase1.Page2.Clb_pret' AS clb_tx_simplu WITH ;
Left = 18, ;
Name = "Clb_pret", ;
TabIndex = 3, ;
Top = 52, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.ControlSource = "Thisform.npret", ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(12,gnPpret)), ;
Text_simplu1.Left = 123, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Value = 0, ;
Text_simplu1.Width = 162, ;
Lb_simplu1.Caption = "Pret", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT '_pgfrmbase1.Page2.Clb_pret_tr' AS clb_tx_simplu WITH ;
Enabled = .F., ;
Left = 18, ;
Name = "Clb_pret_tr", ;
TabIndex = 5, ;
Top = 125, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.Enabled = .F., ;
Text_simplu1.Format = "rK", ;
Text_simplu1.InputMask = (get_mask(12,gnPpret)), ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Value = 0, ;
Lb_simplu1.Caption = "Pret transformat", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
PROCEDURE Destroy
If Used(This.cCursor)
Use In (This.cCursor)
Endif
Select (This.cAlias)
ENDPROC
PROCEDURE do_actualizeaza_um
Lparameters tcIdUm
Local lnIdUm
lnIdUm = Val(tcIdUm)
Select (This.cCursor)
Set Filter To
Locate For id_um = lnIdUm
If Found()
lnTip = tip
Else
lnTip = 0
Endif
If This.nTip <> lnTip
With Thisform._pgfrmbase1.page2.cb_um
.Clear()
.Refresh()
This.nTip = lnTip
Select (This.cCursor)
Set Filter To tip = lnTip
Scan
.AddItem(um)
.List[.NewIndex,2] = Alltrim(Str(id_um))
Endscan
.ListIndex = 1
Endwith
Endif
ENDPROC
PROCEDURE do_calculeaza_pret
lnPaginaActiva = Thisform._pgfrmbase1.ActivePage
With Thisform._pgfrmbase1
Do Case
Case lnPaginaActiva = 1
With .page2
lnCantitateTr = .clb_cantitate_tr.text_simplu1.Value
lnPret = .clb_pret.text_simplu1.Value
If lnCantitateTr <> 0
lnPretTr = Round(lnPret / lnCantitateTr,gnPPret)
Else
lnPretTr = 0
Endif
.clb_pret_tr.text_simplu1.Value = lnPretTr
.clb_pret_tr.text_simplu1.Refresh()
Endwith
*!* Case lnPaginaActiva = 2
*!* With .page3
*!* lnCantitateTr = .clb_cantitate.text_simplu1.Value
*!* lnPret = .clb_pret.text_simplu1.Value
*!* If lnCantitateTr <> 0
*!* lnPretTr = Round(lnPret / lnCantitateTr,gnPPret)
*!* Else
*!* lnPretTr = 0
*!* Endif
*!* .clb_pret_tr.text_simplu1.Value = lnPretTr
*!* .clb_pret_tr.text_simplu1.Refresh()
*!* Endwith
Case lnPaginaActiva = 2
With .page1
lnVolum=.clb_volum.text_simplu1.Value
lnDensitate=.clb_densitate.text_simplu1.Value
lnUmVolum=Val(.cb_um_volum.List[.cb_um_volum.listindex,2])
lnUmVolumD=Val(.cb_um_volum_d.List[.cb_um_volum_d.listindex,2])
lnUmMasaD=Val(.cb_um_masa_d.List[.cb_um_masa_d.listindex,2])
lnUmMasa=Val(.cb_um_masa.List[.cb_um_masa.listindex,2])
lnMasa=Round(lnVolum*lnUmVolum*lnDensitate*lnUmMasaD/(lnUmVolumD*lnUmMasa),3)
.clb_masa.text_simplu1.Value=lnMasa
.clb_masa.text_simplu1.Refresh()
lnPret = .clb_pret.text_simplu1.Value
lnValoare = lnPret * lnVolum
lnPretTr = 0
If lnMasa <> 0
lnPretTr = Round(lnValoare/lnMasa,gnPPret)
Endif
.clb_prettr.text_simplu1.Value=lnPretTr
.clb_prettr.text_simplu1.Refresh()
Endwith
Endcase
Endwith
ENDPROC
PROCEDURE do_conversie
lnPaginaActiva = Thisform._pgfrmbase1.ActivePage
llDespachetare = .F.
With Thisform._pgfrmbase1
Do Case
Case lnPaginaActiva = 1
With .page2
lnIdUM = Val(.cb_um_orig.List[.cb_um_orig.listindex,2])
lnIdUM2 = Val(.cb_um.List[.cb_um.listindex,2])
lnCantitate = .Clb_cantitate.text_simplu1.Value
Select (This.cCursor)
Set Filter To
Locate For id_um = lnIdUM
If Found()
If tip <> -1
llDespachetare = .T.
Else
lnCantitate = (Nvl(multiplicator,1) ^ Nvl(putere,1)) * lnCantitate
Endif
Else
lnCantitate = 0
Endif
If !llDespachetare
Locate For id_um = lnIdUM2
If Found()
lnCantitate = lnCantitate / (Nvl(multiplicator,1) ^ Nvl(putere,1))
Else
lnCantitate = 0
Endif
Endif
.Clb_cantitate_tr.text_simplu1.Value = lnCantitate
.Clb_cantitate_tr.text_simplu1.Refresh()
Endwith
Thisform.do_calculeaza_pret()
Case lnPaginaActiva = 2
With .page1
lnVolum=.clb_volum.text_simplu1.Value
lnDensitate=.clb_densitate.text_simplu1.Value
lnUmVolum=Val(.cb_um_volum.List[.cb_um_volum.listindex,2])
lnUmVolumD=Val(.cb_um_volum_d.List[.cb_um_volum_d.listindex,2])
lnUmMasaD=Val(.cb_um_masa_d.List[.cb_um_masa_d.listindex,2])
lnUmMasa=Val(.cb_um_masa.List[.cb_um_masa.listindex,2])
lnMasa=Round(lnVolum*lnUmVolum*lnDensitate*lnUmMasaD/(lnUmVolumD*lnUmMasa),3)
.clb_masa.text_simplu1.Value=lnMasa
.clb_masa.text_simplu1.Refresh()
Endwith
Endcase
Endwith
ENDPROC
PROCEDURE inainte_de_do_termin
lnPaginaActiva = Thisform._pgfrmbase1.ActivePage
With Thisform._pgfrmbase1
Do Case
Case lnPaginaActiva = 1
pnTransformat = .page2.clb_cantitate_tr.text_simplu1.Value * Thisform.ncantitate
pnPretTr = .page2.clb_pret_tr.text_simplu1.Value
*!* Case lnPaginaActiva = 2
*!* pnTransformat = .page3.clb_cantitate.text_simplu1.Value * Thisform.ncantitate
*!* pnPretTr = .page3.clb_pret_tr.text_simplu1.Value
Case lnPaginaActiva = 2
pnTransformat = .page1.clb_masa.text_simplu1.Value
pnPretTr = .page1.clb_prettr.text_simplu1.Value
Endcase
Endwith
ENDPROC
PROCEDURE Init
Lparameters tnPret,tcUm,tnCantitate && ,tnCantImpach
DoDefault()
Thisform.cum = UPPER(Alltrim(Nvl(tcUm,[])))
Thisform.npret = tnPret
Thisform.ncantitate = tnCantitate
&& Thisform._pgfrmbase1.page3.clb_cantitate.text_simplu1.Value = tnCantImpach
This.cAlias = Alias()
This.cCursor = Sys(2015)
Create Cursor (This.cCursor) (id_um N(1),tip N(1),um c(100),multiplicator N(10,4) Null,putere N(2) Null,id_um_fund N(1) Null)
Insert Into (This.cCursor) (id_um,tip,um,multiplicator,putere,id_um_fund) ;
VALUES (1,-1,'BUC',Null,Null,Null)
Insert Into (This.cCursor) (id_um,tip,um,multiplicator,putere,id_um_fund) ;
VALUES (2,1,'KG',Null,Null,Null)
Insert Into (This.cCursor) (id_um,tip,um,multiplicator,putere,id_um_fund) ;
VALUES (3,1,'G',10,-3,2)
Insert Into (This.cCursor) (id_um,tip,um,multiplicator,putere,id_um_fund) ;
VALUES (4,1,'T',10,3,2)
Insert Into (This.cCursor) (id_um,tip,um,multiplicator,putere,id_um_fund) ;
VALUES (5,2,'L',Null,Null,Null)
Insert Into (This.cCursor) (id_um,tip,um,multiplicator,putere,id_um_fund) ;
VALUES (6,2,'ML',10,-3,5)
Insert Into (This.cCursor) (id_um,tip,um,multiplicator,putere,id_um_fund) ;
VALUES (7,2,'CL',10,-2,5)
Select (This.cCursor)
Locate For um = This.cum
If Found()
lnTip = tip
This.nTip = lnTip
With Thisform._pgfrmbase1.page2.Cb_um
.AddItem(This.cum)
.List[.NewIndex,2] = Alltrim(Str(id_um))
.ListIndex = 1
Endwith
Select (This.cCursor)
Set Filter To tip = lnTip
Else
This.nTip = 0
Endif
Select (This.cCursor)
With Thisform._pgfrmbase1.page2.cb_um_orig
Scan
.AddItem(um)
.List[.NewIndex,2] = Alltrim(Str(id_um))
Endscan
.ListIndex = 1
Endwith
Thisform._pgfrmbase1.page2.Clb_cantitate.SetFocus()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.cb_um_masa.Init
This.AddItem([g])
This.List[1,2]=[0.001]
This.AddItem([kg])
This.List[2,2]=[1]
This.ListIndex=1
ENDPROC
PROCEDURE _pgfrmbase1.Page1.cb_um_masa.InteractiveChange
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.cb_um_masa_d.Init
This.AddItem([g])
This.List[1,2]=[0.001]
This.AddItem([kg])
This.List[2,2]=[1]
This.ListIndex=2
ENDPROC
PROCEDURE _pgfrmbase1.Page1.cb_um_masa_d.InteractiveChange
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.cb_um_volum.Init
This.AddItem([l])
This.List[1,2]=[0.001]
This.AddItem([cl])
This.List[2,2]=[0.00001]
This.AddItem([ml])
This.List[3,2]=[0.000001]
This.AddItem([m^3])
This.List[4,2]=[1]
This.ListIndex=1
ENDPROC
PROCEDURE _pgfrmbase1.Page1.cb_um_volum.InteractiveChange
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.cb_um_volum_d.Init
This.AddItem([l])
This.List[1,2]=[0.001]
This.AddItem([cl])
This.List[2,2]=[0.00001]
This.AddItem([ml])
This.List[3,2]=[0.000001]
This.AddItem([m^3])
This.List[4,2]=[1]
This.ListIndex=4
ENDPROC
PROCEDURE _pgfrmbase1.Page1.cb_um_volum_d.InteractiveChange
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.Clb_densitate.TEXT_SIMPLU1.InteractiveChange
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.Clb_pret.Text_simplu1.InteractiveChange
Thisform.do_calculeaza_pret()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.Clb_pret.Text_simplu1.Valid
Thisform.do_calculeaza_pret()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.Clb_volum.TEXT_SIMPLU1.InteractiveChange
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page2.cb_um.InteractiveChange
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page2.cb_um_orig.InteractiveChange
Thisform.do_actualizeaza_um(This.List[This.ListIndex,2])
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page2.Clb_cantitate.Text_simplu1.InteractiveChange
Thisform.do_conversie()
ENDPROC
PROCEDURE _pgfrmbase1.Page2.Clb_pret.Text_simplu1.InteractiveChange
Thisform.do_calculeaza_pret()
ENDPROC
PROCEDURE _pgfrmbase1.Page2.Clb_pret.Text_simplu1.Valid
Thisform.do_calculeaza_pret()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_introd8039 AS frm_introdnir OF "ointroduceri.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="Shape2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ItemGradUzura" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item14" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nprocentuzura
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 354
Name = "frm_introd8039"
nprocentuzura = 0
Width = 670
Item2.Label_item1.Name = "Label_item1"
Item2.Left = 17
Item2.Lineo1.Name = "Lineo1"
Item2.Lineo2.Name = "Lineo2"
Item2.Lineo3.Name = "Lineo3"
Item2.Lineo4.Name = "Lineo4"
Item2.Lineo5.Name = "Lineo5"
Item2.Name = "Item2"
Item2.TabIndex = 2
Item2.Text_item1.Name = "Text_item1"
Item2.Top = 87
Item2.ZOrderSet = 3
Item14.Label_item1.Name = "Label_item1"
Item14.Lineo1.Name = "Lineo1"
Item14.Lineo2.Name = "Lineo2"
Item14.Lineo3.Name = "Lineo3"
Item14.Lineo4.Name = "Lineo4"
Item14.Lineo5.Name = "Lineo5"
Item14.Name = "Item14"
Item14.Text_item1.Name = "Text_item1"
Item14.Text_item2.Name = "Text_item2"
Item13.Label_item1.Name = "Label_item1"
Item13.Left = 17
Item13.Lineo1.Name = "Lineo1"
Item13.Lineo2.Name = "Lineo2"
Item13.Lineo3.Name = "Lineo3"
Item13.Lineo4.Name = "Lineo4"
Item13.Lineo5.Name = "Lineo5"
Item13.Name = "Item13"
Item13.Text_item1.Name = "Text_item1"
Item13.Top = 40
Item1.Label_item1.Name = "Label_item1"
Item1.Left = 17
Item1.Lineo1.Name = "Lineo1"
Item1.Lineo2.Name = "Lineo2"
Item1.Lineo3.Name = "Lineo3"
Item1.Lineo4.Name = "Lineo4"
Item1.Lineo5.Name = "Lineo5"
Item1.Name = "Item1"
Item1.TabIndex = 1
Item1.Text_item1.Name = "Text_item1"
Item1.Top = 64
Item1.ZOrderSet = 6
Item15.Label_item1.Name = "Label_item1"
Item15.Lineo1.Name = "Lineo1"
Item15.Lineo2.Name = "Lineo2"
Item15.Lineo3.Name = "Lineo3"
Item15.Lineo4.Name = "Lineo4"
Item15.Lineo5.Name = "Lineo5"
Item15.Name = "Item15"
Item15.Text_item1.Name = "Text_item1"
Item16.Label_item1.Name = "Label_item1"
Item16.Lineo1.Name = "Lineo1"
Item16.Lineo2.Name = "Lineo2"
Item16.Lineo3.Name = "Lineo3"
Item16.Lineo4.Name = "Lineo4"
Item16.Lineo5.Name = "Lineo5"
Item16.Name = "Item16"
Item16.Text_item1.Name = "Text_item1"
But_renunt1.Left = 570
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 13
But_renunt1.Top = 1
But_renunt1.ZOrderSet = 11
Item3.Label_item1.Name = "Label_item1"
Item3.Left = 17
Item3.Lineo1.Name = "Lineo1"
Item3.Lineo2.Name = "Lineo2"
Item3.Lineo3.Name = "Lineo3"
Item3.Lineo4.Name = "Lineo4"
Item3.Lineo5.Name = "Lineo5"
Item3.Name = "Item3"
Item3.TabIndex = 3
Item3.Text_item1.Name = "Text_item1"
Item3.Top = 111
Item3.ZOrderSet = 12
Item4.Label_item1.Name = "Label_item1"
Item4.Left = 17
Item4.Lineo1.Name = "Lineo1"
Item4.Lineo2.Name = "Lineo2"
Item4.Lineo3.Name = "Lineo3"
Item4.Lineo4.Name = "Lineo4"
Item4.Lineo5.Name = "Lineo5"
Item4.Name = "Item4"
Item4.TabIndex = 4
Item4.Text_item1.Name = "Text_item1"
Item4.Top = 135
Item4.ZOrderSet = 13
Item5.Label_item1.Name = "Label_item1"
Item5.Left = 17
Item5.Lineo1.Name = "Lineo1"
Item5.Lineo2.Name = "Lineo2"
Item5.Lineo3.Name = "Lineo3"
Item5.Lineo4.Name = "Lineo4"
Item5.Lineo5.Name = "Lineo5"
Item5.Name = "Item5"
Item5.TabIndex = 5
Item5.Text_item1.Name = "Text_item1"
Item5.Top = 159
Item5.ZOrderSet = 14
Item6.Label_item1.Name = "Label_item1"
Item6.Left = 16
Item6.Lineo1.Name = "Lineo1"
Item6.Lineo2.Name = "Lineo2"
Item6.Lineo3.Name = "Lineo3"
Item6.Lineo4.Name = "Lineo4"
Item6.Lineo5.Name = "Lineo5"
Item6.Name = "Item6"
Item6.TabIndex = 14
Item6.Text_item1.Name = "Text_item1"
Item6.Top = 357
Item6.ZOrderSet = 15
Item7.Comment = ""
Item7.Label_item1.Name = "Label_item1"
Item7.Left = 14
Item7.Lineo1.Name = "Lineo1"
Item7.Lineo2.Name = "Lineo2"
Item7.Lineo3.Name = "Lineo3"
Item7.Lineo4.Name = "Lineo4"
Item7.Lineo5.Name = "Lineo5"
Item7.Name = "Item7"
Item7.TabIndex = 16
Item7.Text_item1.Name = "Text_item1"
Item7.Top = 377
Item7.Visible = .F.
Item7.ZOrderSet = 16
Item8.Comment = ""
Item8.Label_item1.Name = "Label_item1"
Item8.Left = 14
Item8.Lineo1.Name = "Lineo1"
Item8.Lineo2.Name = "Lineo2"
Item8.Lineo3.Name = "Lineo3"
Item8.Lineo4.Name = "Lineo4"
Item8.Lineo5.Name = "Lineo5"
Item8.Name = "Item8"
Item8.TabIndex = 17
Item8.Text_item1.Name = "Text_item1"
Item8.Top = 400
Item8.Visible = .F.
Item8.ZOrderSet = 17
Item9.Comment = ""
Item9.Label_item1.Name = "Label_item1"
Item9.Left = 14
Item9.Lineo1.Name = "Lineo1"
Item9.Lineo2.Name = "Lineo2"
Item9.Lineo3.Name = "Lineo3"
Item9.Lineo4.Name = "Lineo4"
Item9.Lineo5.Name = "Lineo5"
Item9.Name = "Item9"
Item9.TabIndex = 18
Item9.Text_item1.Name = "Text_item1"
Item9.Top = 423
Item9.Visible = .F.
Item9.ZOrderSet = 18
Item17.Label_item1.Name = "Label_item1"
Item17.Left = 17
Item17.Lineo1.Name = "Lineo1"
Item17.Lineo2.Name = "Lineo2"
Item17.Lineo3.Name = "Lineo3"
Item17.Lineo4.Name = "Lineo4"
Item17.Lineo5.Name = "Lineo5"
Item17.Name = "Item17"
Item17.Text_item1.Name = "Text_item1"
Item17.Top = 324
Item12.Label_item1.Name = "Label_item1"
Item12.Left = 5
Item12.Lineo1.Name = "Lineo1"
Item12.Lineo2.Name = "Lineo2"
Item12.Lineo3.Name = "Lineo3"
Item12.Lineo4.Name = "Lineo4"
Item12.Lineo5.Name = "Lineo5"
Item12.Name = "Item12"
Item12.Text_item1.Name = "Text_item1"
Item12.Top = 230
Item10.camp_lista = nume
Item10.Comment = "B"
Item10.fis_lista = Vnom_responsabili
Item10.id_fisier = id_responsabil
Item10.label_item = Nume responsabil
Item10.Label_item1.Caption = "Responsabil"
Item10.Label_item1.Name = "Label_item1"
Item10.Left = 17
Item10.Lineo1.Name = "Lineo1"
Item10.Lineo2.Name = "Lineo2"
Item10.Lineo3.Name = "Lineo3"
Item10.Lineo4.Name = "Lineo4"
Item10.Lineo5.Name = "Lineo5"
Item10.Name = "Item10"
Item10.TabIndex = 11
Item10.TabStop = .T.
Item10.Text_item1.Comment = "thisform.cobj.nresp"
Item10.Text_item1.Name = "Text_item1"
Item10.Text_item1.ReadOnly = .T.
Item10.Top = 299
Item10.ZOrderSet = 20
Item11.Label_item1.Name = "Label_item1"
Item11.Left = 17
Item11.Lineo1.Name = "Lineo1"
Item11.Lineo2.Name = "Lineo2"
Item11.Lineo3.Name = "Lineo3"
Item11.Lineo4.Name = "Lineo4"
Item11.Lineo5.Name = "Lineo5"
Item11.Name = "Item11"
Item11.TabIndex = 10
Item11.TabStop = .F.
Item11.Text_item1.Name = "Text_item1"
Item11.Text_item1.ReadOnly = .T.
Item11.Top = 324
Item11.ZOrderSet = 19
lb_modparam.Left = 486
lb_modparam.Name = "lb_modparam"
lb_modparam.Top = 139
_shape1.Name = "_shape1"
_shape1.ZOrderSet = 7
_shape2.Name = "_shape2"
_shape2.ZOrderSet = 8
Gridsort1.Left = 1
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 42
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 19
Lb_titlu_alb_b121.ZOrderSet = 10
BUT_TERMIN1.Left = 639
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 12
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 25
Clb_ITEM_adaos.Comment = ""
Clb_ITEM_adaos.Lb_simplu1.Name = "Lb_simplu1"
Clb_ITEM_adaos.Left = 472
Clb_ITEM_adaos.Name = "Clb_ITEM_adaos"
Clb_ITEM_adaos.TabIndex = 15
Clb_ITEM_adaos.Text_simplu1.Name = "Text_simplu1"
Clb_ITEM_adaos.Top = 379
Clb_ITEM_adaos.Visible = .F.
Clb_ITEM_adaos.ZOrderSet = 26
But_modiparam1.Left = 492
But_modiparam1.Name = "But_modiparam1"
But_modiparam1.Top = 156
Image1.Height = 16
Image1.Left = 461
Image1.Name = "Image1"
Image1.Top = 232
Image1.Width = 16
Opt_imputare.Left = 483
Opt_imputare.Name = "Opt_imputare"
Opt_imputare.Option1.Left = 5
Opt_imputare.Option1.Name = "Option1"
Opt_imputare.Option1.Top = 5
Opt_imputare.Option2.Left = 5
Opt_imputare.Option2.Name = "Option2"
Opt_imputare.Option2.Top = 20
Opt_imputare.Top = 265
lb_imputare.Left = 489
lb_imputare.Name = "lb_imputare"
lb_imputare.Top = 255
cbo_tva_achizitie.Left = 480
cbo_tva_achizitie.Name = "cbo_tva_achizitie"
cbo_tva_achizitie.Top = 112
lb_tva_achizitie.Name = "lb_tva_achizitie"
cbo_tva_vanzare.Left = 475
cbo_tva_vanzare.Name = "cbo_tva_vanzare"
cbo_tva_vanzare.Top = 371
lb_tva_vanzare.Left = 480
lb_tva_vanzare.Name = "lb_tva_vanzare"
lb_tva_vanzare.Top = 354
But_renunt2.Name = "But_renunt2"
cmdTVA1.Name = "cmdTVA1"
cmdTVA2.Name = "cmdTVA2"
cmdTVA3.Name = "cmdTVA3"
cmdTVA4.Name = "cmdTVA4"
cmdTVA5.Name = "cmdTVA5"
cbo_saft.Name = "cbo_saft"
lb_saft.Name = "lb_saft"
*</PropValue>
ADD OBJECT 'Item12' AS item WITH ;
Comment = "T", ;
Left = 17, ;
Name = "Item12", ;
TabIndex = 9, ;
tip = F, ;
Top = 265, ;
ZOrderSet = 4, ;
Label_item1.Caption = "Durata de folosinta ramasa(luni)", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.DNS_LUNI", ;
Text_item1.InputMask = (get_mask(4,0)), ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item13' AS item WITH ;
Comment = "T", ;
Left = 17, ;
Name = "Item13", ;
TabIndex = 6, ;
tip = F, ;
Top = 198, ;
ZOrderSet = 5, ;
Label_item1.Caption = "Data trecerii in folosinta", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Alignment = 3, ;
Text_item1.Comment = "thisform.cobj.DATAPIF", ;
Text_item1.Format = "k", ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item14' AS item WITH ;
Comment = "T", ;
Left = 17, ;
Name = "Item14", ;
TabIndex = 8, ;
tip = F, ;
Top = 243, ;
ZOrderSet = 27, ;
Label_item1.Caption = "Durata normata de folosinta", ;
Label_item1.Name = "Label_item1", ;
Label_item1.TabIndex = 2, ;
Text_item1.Comment = "thisform.cobj.DNF", ;
Text_item1.InputMask = (get_mask(3,0)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Text_item1.TabIndex = 1, ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'ItemGradUzura' AS item WITH ;
Comment = "T", ;
Left = 17, ;
Name = "ItemGradUzura", ;
TabIndex = 7, ;
tip = F, ;
Top = 220, ;
ZOrderSet = 27, ;
LABEL_ITEM1.Caption = "Grad uzura (%)", ;
LABEL_ITEM1.Name = "LABEL_ITEM1", ;
LABEL_ITEM1.TabIndex = 2, ;
TEXT_ITEM1.Comment = "thisform.nProcentUzura", ;
TEXT_ITEM1.ControlSource = "thisform.nProcentUzura", ;
TEXT_ITEM1.InputMask = (get_mask(3,0)), ;
TEXT_ITEM1.Name = "TEXT_ITEM1", ;
TEXT_ITEM1.TabIndex = 1, ;
LINEO1.Name = "LINEO1", ;
LINEO3.Name = "LINEO3", ;
LINEO4.Name = "LINEO4", ;
LINEO5.Name = "LINEO5", ;
LINEO2.Name = "LINEO2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Shape1' AS shape WITH ;
BackColor = 255,255,255, ;
BorderColor = 128,128,128, ;
Height = 154, ;
Left = 13, ;
Name = "Shape1", ;
Top = 38, ;
Width = 464, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape2' AS shape WITH ;
BackColor = 255,255,255, ;
BorderColor = 128,128,128, ;
Height = 101, ;
Left = 13, ;
Name = "Shape2", ;
Top = 190, ;
Width = 464, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape3' AS shape WITH ;
BackColor = 255,255,255, ;
BorderColor = 128,128,128, ;
Height = 60, ;
Left = 13, ;
Name = "Shape3", ;
Top = 290, ;
Width = 464, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
PROCEDURE Show
Lparameters nStyle
thisform.cobj.DATAPIF = thisform.cobj.DATAACT
lnDNF = thisform.cobj.DNF
IF thisform.cobj.DNS_LUNI = 0
thisform.cobj.DNS_LUNI = thisform.cobj.DNF
ENDIF
lnDNSRamas = thisform.cobj.DNS_LUNI
IF lnDNF = 0
THISFORM.nProcentuzura = 0
ELSE
THISFORM.nProcentuzura = ROUND((lnDNF - lnDNSRamas)/lnDNF*100,0)
ENDIF
this.itemgradUzura.text_item1.ControlSource = "thisform.nProcentUzura"
DODEFAULT(nStyle)
ENDPROC
PROCEDURE Item12.Text_item1.Valid
DODEFAULT()
lnDNF = thisform.cobj.DNF
lnDNSRamas = thisform.cobj.DNS_LUNI
IF lnDNF = 0
THISFORM.nProcentuzura = 0
ELSE
THISFORM.nProcentuzura = ROUND((lnDNF - lnDNSRamas)/lnDNF*100,0)
ENDIF
thisform.Refresh
ENDPROC
PROCEDURE Item14.Init
IF INLIST(oset.id_set, 55, 273) && dare in folosinta
this.tEXT_ITEM1.ReadOnly = .f.
ENDIF
ENDPROC
PROCEDURE ItemGradUzura.TEXT_ITEM1.Valid
DODEFAULT()
thisform.cobj.DNS_LUNI = ROUND(thisform.cobj.DNF*(100 - thisform.nprocentuzura)/100,0)
thisform.Refresh()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_introdnir 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="Item2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item14" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item14.Text_item2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item15" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item16" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_modparam" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_ITEM_adaos" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Opt_imputare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_imputare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_tva_achizitie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_tva_achizitie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_tva_vanzare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_tva_vanzare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdTVA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdTVA2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdTVA3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdTVA4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdTVA5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_saft" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_saft" UniqueID="" Timestamp="" />
#INCLUDE "..\include\foxpro.h"
*<DefinedPropArrayMethod>
*m: actualizeaza_explicatie_saft
*m: aplicatva
*m: calculeaza_tva_ach
*m: calculeaza_valori_ach
*m: do_alege_reteta
*m: do_alege_tvaach
*m: do_alege_tvavanz
*m: do_modiparam
*m: updateexplicatiesaft
*m: updatelabelsaft
*m: updatepaymentsaft
*p: blochezpretv
*p: cobj
*p: cparentobj
*p: cpaymentcode && Cod Taxa SAFT
*p: ctitlu
*p: lmonedanationala && .T. - daca id_valuta este moneda nationala
*p: ncant_iesita
*p: ncant_stoc
*p: ncurs
*p: npretvoriginal
*p: npretv_nat
*p: npretv_val
*p: npret_nat
*p: npret_val
*p: ntaxcodeachizitie && Cod taxa SAFT achizitie
*p: ntaxcodevanzare && Cod taxa SAFT vanzare
*p: omemopref && Obiect in care se memoreaza datele care sa fie folosite ca implicite cand se apeleaza formularul.
*p: pretu_factura
*p: pretvtva
*p: proc_adaos
*p: proc_discount
*p: proc_tvav
*p: valoare
*p: valoaretva
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
bvizualizare =
cobj =
cpaymentcode =
ctitlu =
DoCreate = .T.
FontCharSet = 238
Height = 466
lmonedanationala = .T.
Name = "frm_introdnir"
ncant_iesita = .F.
ncant_stoc = .F.
ncurs = 0
npretvoriginal = 0
npretv_nat = 0
npretv_val = 0
npret_nat = 0
npret_val = 0
ntaxcodeachizitie = NULL
ntaxcodevanzare = NULL
omemopref = .NULL.
pretu_factura = 0
pretvtva = 0
proc_adaos = 0
proc_discount = 0
proc_tvav = 0
valoare = 0
valoaretva = 0
Width = 670
WindowType = 1
_memberdata = <VFPData>
<memberdata name="aplicatva" display="AplicaTVA"/>
<memberdata name="updatepaymentsaft" display="UpdatePaymentSAFT"/>
<memberdata name="cpaymentcode" display="cPaymentCode"/>
<memberdata name="updateexplicatiesaft" display="UpdateExplicatieSAFT"/>
<memberdata name="ntaxcodeachizitie" display="nTaxCodeAchizitie"/>
<memberdata name="ntaxcodevanzare" display="nTaxCodeVanzare"/>
<memberdata name="updatelabelsaft" display="UpdateLabelSaft"/>
</VFPData>
_shape1.Height = 30
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = -1
_shape1.Width = 676
_shape1.ZOrderSet = 2
_shape2.Height = 29
_shape2.Left = 601
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 70
_shape2.ZOrderSet = 3
Lb_titlu_alb_b121.FontName = "Comic Sans MS"
Lb_titlu_alb_b121.FontSize = 10
Lb_titlu_alb_b121.Left = 8
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 21
Lb_titlu_alb_b121.Top = 4
Lb_titlu_alb_b121.ZOrderSet = 4
BUT_TERMIN1.Left = 640
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 17
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 5
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
Left = 532, ;
Name = "But_modiparam1", ;
TabIndex = 22, ;
TabStop = .F., ;
ToolTipText = "Conversie", ;
Top = 233
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 571, ;
Name = "But_renunt1", ;
TabIndex = 18, ;
Top = 1, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_renunt2' AS but_renunt WITH ;
Left = 608, ;
Name = "But_renunt2", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cbo_saft' AS combobox WITH ;
BorderColor = 128,128,128, ;
BorderStyle = 1, ;
ColumnLines = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 20, ;
InputMask = "", ;
Left = 475, ;
Name = "cbo_saft", ;
RowSourceType = 3, ;
SpecialEffect = 1, ;
Style = 2, ;
TabIndex = 27, ;
TabStop = .F., ;
Top = 207, ;
Visible = .F., ;
Width = 190
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'cbo_tva_achizitie' AS _combobox WITH ;
BorderColor = 128,128,128, ;
BorderStyle = 1, ;
Comment = "F", ;
ControlSource = "", ;
FontSize = 10, ;
Height = 24, ;
InputMask = "", ;
Left = 475, ;
Name = "cbo_tva_achizitie", ;
SpecialEffect = 1, ;
Style = 2, ;
TabIndex = 28, ;
TabStop = .F., ;
Top = 164, ;
Visible = .T., ;
Width = 190
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'cbo_tva_vanzare' AS _combobox WITH ;
BorderColor = 128,128,128, ;
BorderStyle = 1, ;
Comment = "A", ;
ControlSource = "", ;
Left = 475, ;
Name = "cbo_tva_vanzare", ;
SpecialEffect = 1, ;
Style = 2, ;
TabIndex = 27, ;
TabStop = .F., ;
Top = 378, ;
Visible = .T., ;
Width = 190
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'Clb_ITEM_adaos' AS clb_tx_simplu WITH ;
BorderColor = 255,255,255, ;
Comment = "A", ;
Height = 23, ;
Left = 472, ;
Name = "Clb_ITEM_adaos", ;
TabIndex = 13, ;
Top = 333, ;
Width = 77, ;
TEXT_SIMPLU1.Alignment = 1, ;
TEXT_SIMPLU1.BackColor = 224,224,224, ;
TEXT_SIMPLU1.BorderStyle = 0, ;
TEXT_SIMPLU1.Comment = "thisform.cobj.procent", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.InputMask = (get_mask(12,2)), ;
TEXT_SIMPLU1.Left = 2, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.SpecialEffect = 1, ;
TEXT_SIMPLU1.Top = 2, ;
TEXT_SIMPLU1.Width = 53, ;
LB_SIMPLU1.Caption = "%", ;
LB_SIMPLU1.Left = 61, ;
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
LB_SIMPLU1.Top = 5
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'cmdTVA1' AS cmd_executa WITH ;
Caption = "19%", ;
Left = 471, ;
Name = "cmdTVA1", ;
Top = 115, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdTVA2' AS cmd_executa WITH ;
Caption = "9%", ;
Left = 501, ;
Name = "cmdTVA2", ;
Top = 115, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdTVA3' AS cmd_executa WITH ;
Caption = "5%", ;
Left = 531, ;
Name = "cmdTVA3", ;
Top = 115, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdTVA4' AS cmd_executa WITH ;
Caption = "5%", ;
Left = 561, ;
Name = "cmdTVA4", ;
Top = 115, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdTVA5' AS cmd_executa WITH ;
Caption = "5%", ;
Left = 591, ;
Name = "cmdTVA5", ;
Top = 115, ;
Visible = .F., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Image1' AS image WITH ;
Height = 16, ;
Left = 472, ;
Name = "Image1", ;
Picture = ..\grafice\alege.bmp, ;
ToolTipText = "Alege fisa tehnologica alternativa (R)", ;
Top = 263, ;
Width = 16
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Item1' AS item WITH ;
Comment = "F", ;
Left = 14, ;
Name = "Item1", ;
TabIndex = 4, ;
tip = F, ;
Top = 117, ;
ZOrderSet = 1, ;
Label_item1.Caption = "Pret unitar pe factura", ;
Label_item1.FontCharSet = 238, ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.pretu_factura", ;
Text_item1.InputMask = (get_mask(12,gnPpret)), ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item10' AS item WITH ;
camp_lista = nume_gestiune,cgest, ;
Comment = "N", ;
fis_lista = Vnom_gestiuni , ;
id_fisier = id_gestiune, ;
label_item = Nume gestiune destinatie, ;
Left = 14, ;
Name = "Item10", ;
pcobj = orul, ;
TabIndex = 11, ;
TabStop = .F., ;
tip = N, ;
Top = 286, ;
ZOrderSet = 14, ;
Label_item1.Caption = "Gestiunea", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.gestin", ;
Text_item1.ControlSource = "", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item11' AS item WITH ;
camp_lista = sectie, ;
Comment = "T", ;
fis_lista = Vnom_sectii, ;
id_fisier = id_sectie, ;
label_item = Denumire sectie, ;
Left = 14, ;
Name = "Item11", ;
pcobj = orul, ;
TabIndex = 12, ;
TabStop = .F., ;
tip = , ;
Top = 309, ;
ZOrderSet = 14, ;
Label_item1.Caption = "Sectia", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.sectie", ;
Text_item1.ControlSource = "", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item12' AS item WITH ;
camp_lista = reteta, ;
Comment = "N", ;
fis_lista = , ;
id_fisier = id_reteta, ;
label_item = Fisa tehnologica, ;
Left = 13, ;
Name = "Item12", ;
pcobj = orul, ;
TabIndex = 10, ;
TabStop = .T., ;
tip = N, ;
Top = 261, ;
ZOrderSet = 14, ;
Label_item1.Caption = "Fiºa tehnologica", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.reteta", ;
Text_item1.ControlSource = "", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item13' AS item WITH ;
Comment = "T", ;
Left = 14, ;
Name = "Item13", ;
TabIndex = 1, ;
tip = T, ;
Top = 40, ;
ZOrderSet = 1, ;
Label_item1.Caption = "Serie", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.serie", ;
Text_item1.Format = "K!", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item14' AS item WITH ;
Comment = "T", ;
Height = 21, ;
Left = 478, ;
Name = "Item14", ;
TabIndex = 19, ;
TabStop = .F., ;
tip = T, ;
Top = 40, ;
Width = 136, ;
ZOrderSet = 1, ;
LABEL_ITEM1.Caption = "Cont", ;
LABEL_ITEM1.Height = 18, ;
LABEL_ITEM1.Left = 3, ;
LABEL_ITEM1.Name = "LABEL_ITEM1", ;
LABEL_ITEM1.Top = 2, ;
LABEL_ITEM1.Width = 45, ;
TEXT_ITEM1.Comment = "thisform.cobj.cont", ;
TEXT_ITEM1.Format = "K!", ;
TEXT_ITEM1.Height = 18, ;
TEXT_ITEM1.Left = 52, ;
TEXT_ITEM1.MaxLength = 4, ;
TEXT_ITEM1.Name = "TEXT_ITEM1", ;
TEXT_ITEM1.ReadOnly = .T., ;
TEXT_ITEM1.Top = 1, ;
TEXT_ITEM1.Width = 35, ;
LINEO1.Name = "LINEO1", ;
LINEO3.Name = "LINEO3", ;
LINEO4.Name = "LINEO4", ;
LINEO5.Name = "LINEO5", ;
LINEO2.Name = "LINEO2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item14.Text_item2' AS text_item WITH ;
BackStyle = 1, ;
BorderColor = 226,226,226, ;
BorderStyle = 1, ;
Comment = "thisform.cobj.acont", ;
FontName = "Arial", ;
Format = "K!", ;
Height = 18, ;
Left = 92, ;
MaxLength = 4, ;
Name = "Text_item2", ;
ReadOnly = .T., ;
Top = 1, ;
Width = 35
*< END OBJECT: ClassLib="baza.vcx" BaseClass="textbox" />
ADD OBJECT 'Item15' AS item WITH ;
Comment = "T", ;
Left = 14, ;
Name = "Item15", ;
TabIndex = 2, ;
tip = T, ;
Top = 63, ;
ZOrderSet = 1, ;
Label_item1.Caption = "Numar lot", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.lot", ;
Text_item1.Format = "K!", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item16' AS item WITH ;
Comment = "T", ;
Left = 14, ;
Name = "Item16", ;
TabIndex = 3, ;
tip = T, ;
Top = 88, ;
ZOrderSet = 1, ;
Label_item1.Caption = "Data expirare", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.adata_expirare", ;
Text_item1.Format = "K!", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item17' AS item WITH ;
camp_lista = nrord, ;
Comment = "T", ;
fis_lista = Vnom_lucrari, ;
id_fisier = id_lucrare, ;
label_item = Lucrarea/Comanda, ;
Left = 14, ;
Name = "Item17", ;
pcobj = orul, ;
TabIndex = 13, ;
TabStop = .F., ;
tip = , ;
Top = 333, ;
ZOrderSet = 14, ;
Label_item1.Caption = "Lucrare", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.nrord", ;
Text_item1.ControlSource = "", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item2' AS item WITH ;
Comment = "T", ;
Left = 14, ;
Name = "Item2", ;
TabIndex = 5, ;
tip = , ;
Top = 140, ;
ZOrderSet = 0, ;
Label_item1.Caption = "Pret unitar de intrare NIR", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.pret", ;
Text_item1.InputMask = (get_mask(12,gnPpret)), ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item3' AS item WITH ;
Comment = "F", ;
Left = 14, ;
Name = "Item3", ;
TabIndex = 6, ;
tip = F, ;
Top = 164, ;
ZOrderSet = 7, ;
Label_item1.Caption = "TVA (unitara)", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.tva", ;
Text_item1.InputMask = (get_mask(12,gnPpret)), ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item4' AS item WITH ;
Comment = "T", ;
Left = 14, ;
Name = "Item4", ;
TabIndex = 7, ;
tip = , ;
Top = 188, ;
ZOrderSet = 8, ;
Label_item1.Caption = "Cantitate", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.cant", ;
Text_item1.InputMask = (get_mask(12,gnPcant)), ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item5' AS item WITH ;
Comment = "T", ;
Left = 14, ;
Name = "Item5", ;
TabIndex = 8, ;
tip = , ;
Top = 212, ;
ZOrderSet = 9, ;
Label_item1.Caption = "Valoare ", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.valoare", ;
Text_item1.InputMask = (get_mask(12,gnPc)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item6' AS item WITH ;
Comment = "F", ;
Left = 14, ;
Name = "Item6", ;
TabIndex = 9, ;
tip = F, ;
Top = 236, ;
ZOrderSet = 10, ;
Label_item1.Caption = "Valoare TVA", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.valoaretva", ;
Text_item1.InputMask = (get_mask(12,gnPc)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item7' AS item WITH ;
Comment = "A", ;
Left = 14, ;
Name = "Item7", ;
TabIndex = 14, ;
tip = A, ;
Top = 355, ;
ZOrderSet = 11, ;
Label_item1.Caption = "Pret de vânzare cu TVA", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.PretvTva", ;
Text_item1.InputMask = (get_mask(12,gnPPretV)), ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item8' AS item WITH ;
Comment = "A", ;
Left = 14, ;
Name = "Item8", ;
TabIndex = 15, ;
tip = A, ;
Top = 378, ;
ZOrderSet = 12, ;
Label_item1.Caption = "TVA vânzare", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.tvav", ;
Text_item1.InputMask = (get_mask(12,gnPPretV)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item9' AS item WITH ;
Comment = "X", ;
Left = 14, ;
Name = "Item9", ;
TabIndex = 16, ;
tip = A, ;
Top = 401, ;
ZOrderSet = 13, ;
Label_item1.Caption = "Pret de vânzare fara TVA", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.pretv", ;
Text_item1.InputMask = (get_mask(12,gnPPretV)), ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'lb_imputare' AS _label WITH ;
BackStyle = 0, ;
Caption = "Se imputa:", ;
FontCharSet = 238, ;
FontSize = 10, ;
Height = 18, ;
Left = 480, ;
Name = "lb_imputare", ;
TabIndex = 26, ;
ToolTipText = "Se imputa", ;
Top = 285, ;
Width = 65
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_modparam' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Conversie", ;
Comment = "F", ;
FontCharSet = 238, ;
FontName = "Arial", ;
Height = 18, ;
Left = 475, ;
Name = "lb_modparam", ;
TabIndex = 23, ;
Top = 238, ;
Width = 58, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_saft' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Cod taxa", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 18, ;
Left = 475, ;
Name = "lb_saft", ;
TabIndex = 25, ;
Top = 191, ;
Visible = .F., ;
Width = 54
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lb_tva_achizitie' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA achizitie", ;
Comment = "F", ;
FontCharSet = 238, ;
FontName = "Arial", ;
Height = 18, ;
Left = 475, ;
Name = "lb_tva_achizitie", ;
TabIndex = 25, ;
Top = 147, ;
Visible = .T., ;
Width = 79
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_tva_vanzare' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA vânzare", ;
Comment = "A", ;
FontCharSet = 238, ;
Height = 18, ;
Left = 475, ;
Name = "lb_tva_vanzare", ;
TabIndex = 24, ;
Top = 361, ;
Visible = .T., ;
Width = 75
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'Opt_imputare' AS optiongroup WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
BorderStyle = 0, ;
ButtonCount = 2, ;
Height = 43, ;
Left = 474, ;
Name = "Opt_imputare", ;
TabIndex = 20, ;
Top = 295, ;
Value = 1, ;
Width = 72, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "procent", ;
Option1.FontCharSet = 238, ;
Option1.FontName = "Arial", ;
Option1.FontSize = 10, ;
Option1.Height = 18, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.ToolTipText = "procentul de durata ramasa din durata de folosinta", ;
Option1.Top = 5, ;
Option1.Value = 1, ;
Option1.Width = 62, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "integral", ;
Option2.FontCharSet = 238, ;
Option2.FontName = "Arial", ;
Option2.FontSize = 10, ;
Option2.Height = 18, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.ToolTipText = "integral", ;
Option2.Top = 20, ;
Option2.Width = 61
*< END OBJECT: BaseClass="optiongroup" />
PROCEDURE actualizeaza_explicatie_saft
Local lcWhere, llAchizitie, llVisible
If !m.gl406
Return
Endif
llAchizitie = (oset.model = 2) && 2 = NIR
lcWhere = [.T.]
IF m.llAchizitie
lcWhere = [tva_achizitii=1]
IF this.cbo_tva_achizitie.Visible
lcWhere = lcWhere + [ and procent_taxa = jtva_achizitie.cota_tva]
ENDIF
ELSE
lcWhere = [tva_livrari=1]
IF this.cbo_Tva_vanzare.Visible
lcWhere = lcWhere + [ and procent_taxa = jtva_vanzare.cota_tva]
ENDIF
ENDIF
* Pentru o factura de vanzare mut cbo_Saft sub cbo_tva_vanzare
* Daca cbo_tva_vanzare este vizibil (ex: la vanzarea en-gros, cbo_tva_vanzare nu este vizibil)
IF !m.llAchizitie AND This.cbo_tva_vanzare.Visible
this.lb_saft.Top = this.cbo_tva_vanzare.Top + this.cbo_tva_vanzare.Height + 5
this.cbo_saft.Top = this.lb_saft.Top + this.lb_saft.Height
ENDIF
With This
llVisible = .cbo_saft.Visible
* Cod taxa SAFT
.cbo_saft.RowSourceType = 3 && sql
.cbo_saft.RowSource = [Select descriere, taxcode, procent_taxa From saft_taxtable where ] + m.lcWhere + [ Order by taxcode Into Cursor crsTaxTableX]
.cbo_saft.ControlSource = [Thisform.cobj.taxcode]
.cbo_saft.BoundColumn = 2
.cbo_saft.BoundTo = .T.
.cbo_saft.ColumnCount = 3
.cbo_saft.ColumnWidths = "500,50,50"
.cbo_saft.Visible = m.llVisible && se pune Visible = .T. cand se face BoundTo = .T.
Endwith
This.UpdateExplicatieSAFT()
ENDPROC
PROCEDURE aplicatva
LPARAMETERS tcButonCaption && 24%
Local lcCaption, lnCotaTva, lnPretCuTVA, lnPretFaraTVA, lnPretTVA
lcCaption = m.tcButonCaption && 24%
lnCotaTva = Val(Left(m.lcCaption, Len(m.lcCaption) - 1)) && 24
If m.gnNeplatitoare_tva = 1
lnPretFaraTVA = Thisform.item1.text_item1.Value
lnPretTVA = 0
lnPretCuTVA = Round(m.lnPretFaraTVA * (100 + m.lnCotaTva) / 100, m.gnPpret)
* firma neplatitoare TVA. Presupun ca este pretul fara TVA si aplic TVA unitar la pretul fara TVA
Thisform.item1.text_item1.Value = m.lnPretCuTVA
Thisform.item2.text_item1.Value = m.lnPretCuTVA
Thisform.item3.text_item1.Value = m.lnPretTVA
Else
* firma platitoare TVA. Presupun ca este pretul cu TVA si scad TVA unitar din pretul cu TVA
lnPretCuTVA = Thisform.item1.text_item1.Value
lnPretTVA = Round(lnPretCuTVA * m.lnCotaTva / (100 + m.lnCotaTva), m.gnPpret)
lnPretFaraTVA = lnPretCuTVA - lnPretTVA
Thisform.item1.text_item1.Value = m.lnPretFaraTVA
Thisform.item2.text_item1.Value = m.lnPretFaraTVA
Thisform.item3.text_item1.Value = m.lnPretTVA
Endif
* Schimb cota de TVA din cbo_tva_achizitie si cbo_tva_vanzare doar daca firma este platitoare TVA
If m.gnNeplatitoare_tva = 0
* Daca cota TVA achizitie <> cota TVA apasat, schimb TVA achizitie
If Thisform.cbo_tva_achizitie.Visible
Select jtva_achizitie
lcColoanaAch = LEFT(coloana_jc,2) && RO[19NB]
lnCotaTVAAch = cota_tva && 19
lnIdJtvaAch = id_jtva_coloana
IF m.lnCotaTVAAch <> m.lnCotaTVA
LOCATE FOR cota_tva = m.lnCotaTVA AND LEFT(coloana_jc,2) = m.lcColoanaAch
IF !FOUND()
LOCATE FOR id_jtva_coloana = m.lnIdJtvaAch
ENDIF
ENDIF
lnIdJtvaAch = id_jtva_coloana
thisform.cbo_tva_achizitie.Value = m.lnIdJtvaAch
Thisform.do_alege_tvaach()
ENDIF
* Daca cota TVA vz <> cota TVA apasat, schimb TVA vz
If Thisform.cbo_tva_vanzare.Visible
Select jtva_vanzare
lcColoanaVz = LEFT(coloana_jc,2) && RO[19NB]
lnCotaTVAVz = cota_tva && 19
lnIdJtvaVz = id_jtva_coloana
IF m.lnCotaTVAVz <> m.lnCotaTVA
LOCATE FOR cota_tva = m.lnCotaTVA AND LEFT(coloana_jv,2) = m.lcColoanaVz
IF !FOUND()
LOCATE FOR id_jtva_coloana = m.lnIdJtvaVz
ENDIF
ENDIF
lnIdJtvaVz = id_jtva_coloana
Thisform.cbo_tva_vanzare.Value = m.lnIdJtvaVz
Thisform.do_alege_tvavanz()
ENDIF
ENDIF && m.gnNeplatitoare_tva
Thisform.item1.text_item1.Refresh()
Thisform.item2.text_item1.Refresh()
Thisform.item3.text_item1.Refresh()
Thisform.item1.text_item1.SetFocus()
ENDPROC
PROCEDURE calculeaza_tva_ach
Thisform.cobj.tva = Round(Thisform.cobj.Pret * (Thisform.cobj.proc_tva - 1),gnPpret)
Thisform.item3.Refresh()
ENDPROC
PROCEDURE calculeaza_valori_ach
Lparameters tnCantitate
Local lnCantitate, lnPret, lnTva, lnProcTva, lnValoareACTva, lnValoareATva, lnValoareACTva
lnCantitate = tnCantitate
If !Thisform.blochezPretV And poact.id_set <> 104 && (la imputare, sa ma lase sa pun cu mana pretv)
Thisform.cobj.TVAV = Round(Thisform.PRETVTVA * (Thisform.cobj.proc_tvav-1)/Iif(Thisform.cobj.proc_tvav <> 0, Thisform.cobj.proc_tvav,1), gnPPretV)
Thisform.cobj.PRETV = Thisform.PRETVTVA - Thisform.cobj.TVAV
Endif
If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
Thisform.cobj.procent=Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
Endif
Thisform.item8.Refresh
Thisform.item9.Refresh
Thisform.clb_item_adaos.Refresh
*!* v 2.0.24
lnPret = Thisform.cobj.Pret
lnTva = Thisform.cobj.TVA
lnProcTva = Iif(Thisform.cobj.PROC_TVA <> 0, Thisform.cobj.PROC_TVA, TVA2PROCTVA(lnTva, lnPret))
*!* in stoc nu exista coloana proc_tva !!! o calculez si o pun in rulaj
Thisform.cobj.PROC_TVA = lnProcTva
If !plNIRBONPretCuTVA
lnValoareAFTva = Round(lnCantitate*lnPret, gnPc)
lnValoareATva = Round(lnValoareAFTva * (lnProcTva-1), gnPc)
lnValoareACTva = lnValoareAFTva + lnValoareATva
Else
lnValoareACTva = Round(lnCantitate*(lnPret+lnTva), gnPc)
lnValoareATva = Round(lnValoareACTva * (lnProcTva - 1) / lnProcTva, gnPc)
lnValoareAFTva = lnValoareACTva - lnValoareATva
Endif
Thisform.valoare = lnValoareAFTva
Thisform.VALOAREtva = lnValoareATva
*!* v 2.0.24 ^
Thisform.item5.Refresh
Thisform.item6.Refresh
ENDPROC
PROCEDURE do_alege_reteta
LOCAL lcselect,lcFiltru,lcSchema,lcOrder,lccoloane,lcTitlu,lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal, lnPornire, llDesktop
lcselect = [select id_reteta, reteta from vnom_retetar]
lcSchema = []
lcOrder = [reteta]
lccoloane = [reteta]
lcTitlu = [Alegeti fisa tehnologica]
lcTitluColoane = [Fisa tehnologica]
lcFiltru = []
lcFiltruOriginal = [principala=0 and id_articol=]+ALLTRIM(STR(thisform.cobj.id_articol))
lcNumeProc = []
llToateIreg = .F.
lnPornire = 1
llDesktop = .F.
locauta = cauta_alfa(lcselect,lcFiltru,lcSchema,lcOrder,lccoloane,lcTitlu,lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal,,lnPornire,,,llDesktop) && 11.07.2007
IF buton = 2
RETURN
ENDIF
thisform.cobj.id_reteta = locauta.id_reteta
thisform.cobj.reteta = locauta.reteta
ENDPROC
PROCEDURE do_alege_tvaach
Thisform.COBJ.PROC_TVA = (jtva_achizitie.cota_tva + 100 ) / 100
Thisform.COBJ.id_jtva_coloana = jtva_achizitie.id_jtva_coloana
This.actualizeaza_explicatie_saft()
*!* modificare ROAFACTURARE v 2.2.20
*!* Thisform.item1.teXT_ITEM1.Valid
Thisform.calculeaza_tva_ach()
Thisform.calculeaza_valori_ach(Thisform.item4.text_item1.Value)
*!* modificare ROAFACTURARE v 2.2.20 ^
ENDPROC
PROCEDURE do_alege_tvavanz
If !('F' $ Thisform.bVizualizare)
Thisform.COBJ.id_jtva_coloana = jtva_vanzare.id_jtva_coloana
Endif
If !Thisform.blochezPretV
Thisform.COBJ.PROC_TVAv = (jtva_vanzare.cota_tva + 100)/100
Thisform.PROC_TVAv = (jtva_vanzare.cota_tva + 100)/100
Thisform.item7.teXT_ITEM1.InteractiveChange
ENDIF
This.actualizeaza_explicatie_saft()
ENDPROC
PROCEDURE do_executa
*!* this.cobj.pretv = ROUND(this.cobj.pret * (1 + this.cobj.procent/100), gnPpret)
*!* this.cobj.TVAV = ROUND(this.cobj.PRETV*(this.cobj.proC_TVAV-1), gnPpret)
If !plNIRBONPretCuTVA
This.cobj.pretv = Round(This.cobj.Pret * (1 + This.cobj.procent/100), gnPPretV)
This.cobj.TVAV = Round(This.cobj.pretv*(This.cobj.proC_TVAV-1), gnPPretV)
This.PRETVTVA = This.cobj.pretv + This.cobj.TVAV
Else
This.cobj.pretv = Round(This.cobj.Pret * (1 + This.cobj.procent/100), gnPPretV)
thisform.pretvtva = Round((This.cobj.Pret + This.cobj.Tva) * (1 + This.cobj.procent/100), gnPPretV)
This.cobj.TVAV = thisform.pretvtva - This.cobj.pretv
EndIf
This.item7.Refresh
This.item8.Refresh
This.item9.Refresh
ENDPROC
PROCEDURE do_modiparam
Private pnTransformat, pnPretTr, ofrmconversie
Store 0 To pnTransformat, pnPretTr
ofrmconversie=Createobject('frm_conversie',Thisform.cobj.Pret,Thisform.cobj.um,Thisform.cobj.cant)
ofrmconversie.Show(1)
Release ofrmconversie
If gnButon=1
*!* modificare v 2.0.150
*!* Thisform.pretu_factura = pnPretTr
*!* Thisform.cobj.Pret = pnPretTr
*!* Thisform.item1.Refresh()
*!* Thisform.item1.SetFocus()
*!* Thisform.item2.Refresh()
*!* Thisform.item2.SetFocus()
*!* Thisform.cobj.cant = pnTransformat
*!* Thisform.item4.Refresh()
*!* Thisform.item4.SetFocus()
Thisform.item1.text_item1.Value = pnPretTr
Thisform.item2.text_item1.Value = pnPretTr
Thisform.item4.text_item1.Value = pnTransformat
Thisform.item1.Refresh()
Thisform.item1.SetFocus()
Thisform.item2.Refresh()
Thisform.item2.SetFocus()
Thisform.item4.Refresh()
Thisform.item4.SetFocus()
*!* modificare v 2.0.150 ^
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
Local llReturn
Store .T. To llReturn
If oset.model = 2
Thisform.cobj.Cont = Thisform.item14.text_item1.Value
lcCont = Thisform.cobj.Cont
If Empty(Nvl(lcCont,[]))
amessagebox("Nu ati completat contul!",48,"Atentie")
Thisform.item14.SetFocus()
llReturn = .F.
Else
lcSql = [begin ] + gcS + [.verifica_plcont_sintetic(?gnAn,'] + Alltrim(lcCont) + ['); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
Thisform.item14.SetFocus()
llReturn = .F.
Endif
Endif
ENDIF
*!* 27.05.2009 - cantitatea introdusa plus cantitatea iesita nu trebuie sa depaseasca cantitatea din stoc.
*!* marius.felecanu
IF thisform.ncant_stoc <> 0
IF thisform.ncant_iesita + thisform.item4.text_item1.Value > thisform.ncant_stoc
AMESSAGEBOX("Cantitatea maxima existenta este: " + ALLTRIM(STR(thisform.ncant_stoc - thisform.ncant_iesita,18,4)),0+48,_screen.Caption)
llReturn = .F.
thisform.item4.SetFocus()
ENDIF
ENDIF
*!* 27.05.2009 ^
*!* 09.06.2008
*!* id_set = 231 nir mf la pv cu modificarea listei de preturi
If Type('poPreturi') = 'O'
poPreturi.pretv = this.cobj.pretv
poPreturi.tvav = this.cobj.tvav
poPreturi.pretvtva = this.PretvTva
EndIf
*!* 09.06.2008 ^
*!* modificare ROAGEST v 2.0.53
If InList(oset.id_set,238,239,259,260,267)
Thisform.COBJ.id_jtva_coloana = jtva_vanzare.id_jtva_coloana
EndIf
*!* modificare ROAGEST v 2.0.53 ^
*!* modificare ROAGEST v 2.2.29
If llReturn And !Isnull(Thisform.omemopref)
Thisform.omemopref.id_jtva_ach = jtva_achizitie.id_jtva_coloana
Thisform.omemopref.proc_tva = (jtva_achizitie.cota_tva + 100)/100
Thisform.omemopref.id_jtva_vanz = jtva_vanzare.id_jtva_coloana
Thisform.omemopref.proc_tvav = (jtva_vanzare.cota_tva + 100)/100
Endif
*!* modificare ROAGEST v 2.2.29 ^
Return llReturn
ENDPROC
PROCEDURE Init
*!* modificare ROAGEST v 2.2.29
LPARAMETERS toDatePref
DODEFAULT()
Thisform.omemopref = IIF(TYPE("toDatePref")="O",toDatePref,NULL)
*!* modificare ROAGEST v 2.2.29 ^
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
Do Case
Case nKeyCode = 19 And nShiftAltCtrl = 4 And Thisform.item12.Visible && ALT + R
Nodefault
Thisform.do_alege_reteta()
Case nKeyCode=13 And nShiftAltCtrl=2
Nodefault
If Pemstatus(This,"do_modiparam",5)
This.do_modiparam()
Endif
Otherwise
DoDefault(nKeyCode, nShiftAltCtrl)
Endcase
ENDPROC
PROCEDURE Load
If !Used('saft_taxtable')
update_saft_taxtable()
Endif
ENDPROC
PROCEDURE Show
*!* 01.07.2010
*!* MARIUS.MUTU
*!* folosesc GetIdJtvaStandard - este relativa la luna contabila
*!* 09.03.2014
*!* marius.mutu
*!* Fac vizibile maxim 4 butoane cmdCotaTVA - pentru aplicarea cotei tva la pretul unitar de achizitie fara TVA
*!* In cazul firmelor neplatitoare de TVA, pretul unitar de achizite fara TVA include si TVA unitar
*!* 12.06.2015
*!* marius.mutu
*!* setare explicatie tva 24% sau 9% pentru fct. achizitie cu politica de preturi, dupa cota de tva din politica de preturi
*!* 03.01.2016
*!* marius.mutu
*!* jtva_achizitie - setare TVA achizitie independent de xsets.id_jtax
*!* 20.11.2017
*!* marius.mutu
*!* jtva_achizitie - setare TVA achizitie preluand id_jtva de la articolul anterior
Lparameters nStyle
lnHeight = 0
* DARE IN FOLOSINTA OBIECTE DE INVENTAR. POT SA COMPLETEZ SERIA (NR INVENTAR) PENTRU CA INTRA IN RUL_OBINV CA INTRARE NOUA
* schimb thisform.cobj.serie in thisform.cobj_serie_obinv, ca sa o pot modifica
IF INLIST(oset.id_set , 55, 273) && dare in folosinta
thisform.item13.text_item1.Comment = 'thisform.cobj.serie_obinv'
* In caz ca este deja completata seria, o preiau pe serie_obinv
thisform.cobj.serie_obinv = thisform.cobj.serie
thisform.item13.text_item1.ReadOnly = .F.
ENDIF
For Each loControl In This.Controls
With loControl
If !Empty(loControl.Comment)
If .Comment $ This.bVizualizare
.Visible = .T.
If 'ITEM' $ Upper(.Name)
For Each loCtrSecund In loControl.Controls
If 'TEXT' $ Upper(loCtrSecund.Name)
lcControlSource = Alltrim(loCtrSecund.Comment)
loCtrSecund.ControlSource = lcControlSource
Endif
Endfor
*!* lcControlSource = ALLTRIM(.text_item1.comment)
*!* .text_item1.controlsource = lcControlSource
.pcobj = 'orul'
Endif
lnTop = .Top
If lnTop > lnHeight
lnHeight = lnTop
Endif
Else
.Visible = .F.
Endif
Endif
Endwith
Endfor
SET STEP ON
IF m.gnNeplatitoare_tva <> 1 AND this.cbo_tva_achizitie.Visible
*!* modificare 21.02.2007
*** Daca sunt la al doilea articol, preiau id_jtva_coloana de la articolul anterior
llFound = .F.
If !Empty(Thisform.cobj.id_jtva_coloana)
Select jtva_achizitie
Locate For id_jtva_coloana = Thisform.cobj.id_jtva_coloana
llFound = Found()
Endif
If !m.llFound
Select jtva_achizitie
Do Case
*!* modificare ROAGEST v 2.0.53
Case Inlist(oset.id_set,238,239,259,260,267)
&& Mf pv - Aviz retur marfa (valoric);Mf pv - Factura retur marfa (valorica);Mf pv - Factura retur marfa (valorica);Aviz retur marfa (valoric)
*!* 01.07.2010
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE') && modificare v 2.2.0 : conditia de dupa or && 103
*!* 01.07.2010 ^
*!* modificare ROAGEST v 2.0.53 ^
Case Type('poAct.id_pol') = 'N' And Type('poAct.proc_tvav') = 'N' And !Empty(Nvl(poAct.id_pol,0)) And !Empty(Nvl(poAct.PROC_TVAv,0))
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_VANZARE', poAct.PROC_TVAv) Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_VANZARE', poAct.PROC_TVAv) Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_MATERII', poAct.PROC_TVAv)
Case Alltrim(This.cobj.Cont) = '371' And Inlist(oset.id_jtax, 137, 139, 141, 162, 186,216) && taxare inversa 19%, 162 = 24%, 186 = 20%, 216=21%
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_TI_VANZARE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_TI_VANZARE') && 139
Case Alltrim(This.cobj.Cont) = '371' And Inlist(oset.id_jtax, 101, 103,105, 156, 176,208) && marfa 19 %, 156 = 24%, 176 = 20%, 208=21%
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_VANZARE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_VANZARE') && 103
If !Found()
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_MATERII') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_MATERII') && 105
Endif
Case Alltrim(This.cobj.Cont) = '371'
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_VANZARE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_VANZARE')
If !Found()
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_MATERII') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_MATERII') && 105
Endif
Case Inlist(Left(Alltrim(This.cobj.Cont),2), '30', '31', '32')
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE')
If !Found()
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_VANZARE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_VANZARE') && 103
Endif
Otherwise
Locate For id_jtva_coloana = oset.id_jtax Or id_jtva_ex = oset.id_jtax && modificare v 2.2.0 : conditia de dupa or
Endcase
ENDIF && !m.llFound
If Found()
*!* This.cbo_tva_achizitie.Value = Alltrim(denumire) v 2.2.29
Thisform.cobj.id_jtva_coloana = id_jtva_coloana
This.cobj.proc_tva = (COTA_TVA + 100)/100
Endif
*!* SELECT cote_tva
*!* GO TOP
*!* modificare 21.02.2007 ^
Endif
SET STEP ON
If 'F' $ This.bVizualizare And Empty(This.cobj.proc_tva) AND this.cbo_tva_achizitie.Visible
*!* modificare 21.02.2007
Select jtva_achizitie
Do Case
Case Type('poAct.id_pol') = 'N' And Type('poAct.proc_tvav') = 'N' And !Empty(Nvl(poAct.id_pol,0)) And !Empty(Nvl(poAct.PROC_TVAv,0))
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_VANZARE', poAct.PROC_TVAv) Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_VANZARE', poAct.PROC_TVAv) Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_MATERII', poAct.PROC_TVAv)
Case Alltrim(This.cobj.Cont) = '371' And Inlist(oset.id_jtax, 137, 139, 141, 162, 186,216) && taxare inversa 19%, 162 = 24%, 186 = 20%
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_TI_VANZARE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_TI_VANZARE') && 139
Case Alltrim(This.cobj.Cont) = '371' And Inlist(oset.id_jtax, 101,103,105, 156, 176,208) && marfa 19 %, 156 = 24%, 176 = 20%
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_VANZARE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_VANZARE') && 103
Case Alltrim(This.cobj.Cont) = '371'
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE_VANZARE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE_VANZARE')
Case Inlist(Left(Alltrim(This.cobj.Cont),2), '30', '31', '32')
Locate For id_jtva_coloana = GetIdJtvaStandard('ACHIZITIE') Or id_jtva_ex = GetIdJtvaStandard('ACHIZITIE')
Otherwise
Locate For id_jtva_coloana = oset.id_jtax Or id_jtva_ex = oset.id_jtax && modificare v 2.2.0 : conditia de dupa or
Endcase
If Found()
*!* This.cbo_tva_achizitie.Value = Alltrim(denumire) v 2.2.29
Thisform.cobj.id_jtva_coloana = id_jtva_coloana
This.cobj.proc_tva = (COTA_TVA + 100)/100
Endif
*!* SELECT cote_tva
*!* * GO top
*!* lnProc_tva = proc_tva
*!* lnproc = procent
*!* THIS.cotaTVA_achizitie.VALUE = ALLTRIM(STR(lnproc))
*!* THIS.cobj.proc_tva = lnProc_tva
*!* modificare 21.02.2007 ^
Endif
SET STEP ON
If 'A' $ This.bVizualizare
If This.blochezPretV
This.item7.Enabled = .F.
This.item8.Enabled = .F.
This.item9.Enabled = .F.
This.Clb_ITEM_adaos.Visible = .F.
*!* modificare 21.02.2007
lcFiltru = [cota_tva = ] + Alltrim(Str(Thisform.cobj.PROC_TVAv * 100 - 100))
Select jtva_vanzare
Set Filter To &lcFiltru
Go Top
*!* This.cbo_tva_VANZARE.Value = Alltrim(denumire) v 2.2.29
If !('F' $ This.bVizualizare)
This.cobj.id_jtva_coloana = id_jtva_coloana
Endif
*!* THIS.CotaTVA_vanzare.ENABLED = .F.
*!* THIS.CotaTVA_vanzare.VALUE = ALLTRIM(STR(THIS.proc_tvav *100 - 100))
*!* modificare 21.02.2007 ^
Else
*!* modificare 21.02.2007
Select jtva_vanzare
Go Top
*!* 01.07.2010
If Type('poAct.id_pol') = 'N' And Type('poAct.proc_tvav') = 'N' And !Empty(Nvl(poAct.id_pol,0)) And !Empty(Nvl(poAct.PROC_TVAv,0))
Locate For id_jtva_coloana = GetIdJtvaStandard('VANZARE', poAct.PROC_TVAv) Or id_jtva_ex = GetIdJtvaStandard('VANZARE', poAct.PROC_TVAv)
Else
*!* Locate For id_jtva_coloana = Iif(oset.tipjurnal=[JV],oset.id_jtax,1)
Locate For id_jtva_coloana = Iif(oset.tipjurnal=[JV],oset.id_jtax,GetIdJtvaStandard('VANZARE')) Or id_jtva_ex = Iif(oset.tipjurnal=[JV],oset.id_jtax,GetIdJtvaStandard('VANZARE')) && modificare v 2.2.0 : conditia de dupa or
Endif
*!* 01.07.2010 ^
If Found()
*!* This.cbo_tva_VANZARE.Value = id_jtva_coloana v 2.2.29
This.cobj.PROC_TVAv = (COTA_TVA + 100)/100
If !('F' $ This.bVizualizare)
This.cobj.id_jtva_coloana = id_jtva_coloana
Endif
Endif
*!* SELECT cote_tva
*!* * GO top
*!* lnProc_tva = proc_tva
*!* lnproc = procent
*!* THIS.CotaTVA_vanzare.VALUE = ALLTRIM(STR(lnproc))
*!* THIS.cobj.proc_tvav = lnProc_tva
*!* modificare 21.02.2007 ^
Endif
This.cobj.procent = Thisform.proc_adaos
Endif
*!* modificare ROAGEST v 2.2.29
Local lnIdJtvaAles
If Inlist(oxset.id_set, 232, 235, 244, 262) && protocol fara TVA, sponsorizare
Select jtva_vanzare
lnIdJtvaAles = id_jtva_coloana
Set Filter To COTA_TVA = 0
Locate For id_jtva_coloana = lnIdJtvaAles
If !Found()
Go Top
Endif
Endif
* se tine cont de cota de la ultimul articol ales, dar nu si pentru achizitiile cu lista preturi de vanzare, la care am luat cota de tva din lista de preturi
If !Isnull(Thisform.omemopref) And !(Type('poAct.id_pol') = 'N' And Type('poAct.proc_tvav') = 'N' And !Empty(Nvl(poAct.id_pol,0)) And !Empty(Nvl(poAct.PROC_TVAv,0)))
Select jtva_achizitie
lnIdJtvaAles = id_jtva_coloana
Locate For id_jtva_coloana = Evl(Thisform.omemopref.id_jtva_ach,lnIdJtvaAles)
If !Found()
Locate For id_jtva_coloana = lnIdJtvaAles
Endif
If Thisform.cbo_tva_achizitie.Visible
Thisform.do_alege_tvaach()
Endif
Select jtva_vanzare
lnIdJtvaAles = id_jtva_coloana
Locate For id_jtva_coloana = Evl(Thisform.omemopref.id_jtva_vanz,lnIdJtvaAles)
If !Found()
Locate For id_jtva_coloana = lnIdJtvaAles
Endif
If Thisform.cbo_tva_vanzare.Visible
Thisform.do_alege_tvavanz()
Endif
Endif
Release lnIdJtvaAles
*!* modificare ROAGEST v 2.2.29 ^
* 31.08.2020
* Fac vizibile maxim 4 butoane cmdCotaTVA - pentru aplicarea/scaderea cotei tva la pretul unitar de achizitie fara/cu TVA
* In cazul firmelor neplatitoare de TVA, se scrie pretul fara TVA, iar cand se apasa butonul se va include si TVA unitar
* In cazul firmelor platitoare de TVA, se scrie pretul cu TVA de pe bonul fiscal, iar cand se apasa butonul se defalca in pret fara TVA si TVA unitar
IF this.item1.Visible && pret unitar pe factura
Select Distinct COTA_TVA From jtva_achizitie Where COTA_TVA <> 0 Order By COTA_TVA Desc Into Array laCoteTVA
lnCoteTVA = _Tally
For lnCotaIdx = 1 To Min(m.lnCoteTVA, 5) && 5 cote maxim
lcControl = 'thisform.cmdTVA' + Alltrim(Str(m.lnCotaIdx))
lnCotaTVA = laCoteTVA[m.lnCotaIdx]
lcCaption = Alltrim(Str(m.lnCotaTVA)) + '%'
&lcControl..Caption = m.lcCaption
&lcControl..ToolTipText = IIF(m.gnNeplatitoare_tva = 1, 'Aplica TVA la pretul fara TVA', 'Scade TVA din pretul cu TVA')
&lcControl..Visible = .T. && este deja vizibil
ENDFOR
ENDIF
*!* firmele neplatitoare de TVA sunt intitializate cu cota TVA 0%
If m.gnNeplatitoare_tva = 1
*!* modificare 21.02.2007
Select jtva_achizitie
Locate For id_jtva_coloana = 113
If Found()
*!* This.cbo_tva_achizitie.Value = Alltrim(denumire) v 2.2.29
Thisform.cobj.id_jtva_coloana = id_jtva_coloana
This.cobj.proc_tva = (COTA_TVA + 100)/100
Endif
Select jtva_vanzare
Locate For id_jtva_coloana = 11
If Found()
*!* This.cbo_tva_VANZARE.Value = Alltrim(denumire) v 2.2.29
Thisform.cobj.PROC_TVAv = (jtva_vanzare.COTA_TVA + 100)/100
Thisform.PROC_TVAv = (jtva_vanzare.COTA_TVA + 100)/100
If !('F' $ This.bVizualizare)
This.cobj.id_jtva_coloana = id_jtva_coloana
Endif
Endif
ENDIF
*!* modificare 21.02.2007 ^
* Factura vanzare si nu este vizibil cbo_tva_vanzare
llAchizitie = (oset.model = 2) && 2 = NIR
IF oset.factura AND !m.llAchizitie AND !this.cbo_tva_vanzare.Visible AND TYPE('poAct.id_jtva_coloana') = 'N'
SELECT jtva_vanzare
LOCATE FOR id_jtva_coloana = poAct.id_jtva_coloana
IF FOUND()
Thisform.cobj.id_jtva_coloana = id_jtva_coloana
This.cobj.proc_tva = (COTA_TVA + 100)/100
ENDIF
ENDIF
If 'B' $ This.bVizualizare
This.item4.SetFocus
ENDIF
* 55,273 Dare in folosinta, ma pozitionez pe serie
IF INLIST(oset.id_set, 55,273)
this.item13.SetFocus
ENDIF
*!* 29.09.2006
*!* MARIUS.MUTU
*!* RETETA VIZIBILA DOAR IN ROAPRODUCTIE.pv_productie (FOARTE POSIBIL SI IN ROAGEST - PV PRODUCTIE)
If Inlist(poAct.id_set,26001)
This.ITEM12.Visible = .T.
This.IMAGE1.Visible = .T.
Else
This.ITEM12.Visible = .F.
This.IMAGE1.Visible = .F.
Endif
&& opt_imputare
If Inlist(poAct.id_set,104) And gnImputare = 1
This.lb_imputare.Visible = .T.
This.opt_imputare.Visible= .T.
Else
This.lb_imputare.Visible = .F.
This.opt_imputare.Visible = .F.
Endif
If poAct.id_set = 105 && NIR de marfa la pret de vanzare
This.item7.text_item1.ReadOnly = .T.
This.item9.text_item1.ReadOnly = .T.
This.Clb_ITEM_adaos.text_simplu1.ReadOnly = .T.
Endif
*!* modificare 22.06
This.but_modiparam1.Visible=This.item4.Visible
This.lb_modparam.Visible=This.item4.Visible
*!* ^
This.Height = lnHeight + 90 && ultimul item + 90 (pentru lbs_saft si cbo_saft)
This.lb_titlu_alb_b121.Caption = This.cTitlu
*!* modificare 20.08.2007
If oset.model = 2
This.item13.text_item1.ReadOnly = .F.
This.item14.text_item1.ReadOnly = .F.
this.item14.text_item2.ReadOnly = .F.
*!* modificare 18.01.2008
This.item15.text_item1.ReadOnly = .F.
This.item16.text_item1.ReadOnly = .F.
*!* modificare 18.01.2008 ^
Endif
*!* modificare 20.08.2007 ^
*!* modificare v 2.2.29 : le-am initializat aici pentru ca s-a intamplat uneori sa imi apara formularul,
*!* dar sa nu am selectata nicio valoare in combo, iar daca inchideam fereastra si o lansam din nou,
*!* de abia atunci imi aparea valoarea selectata
With Thisform.cbo_tva_achizitie
If .Visible
.ColumnCount = 3
.ColumnLines = .F.
.ColumnWidths = [200,10,0]
.RowSource = [jtva_achizitie.denumire,cota_tva,id_jtva_coloana]
.RowSourceType = 6
.BoundColumn = 3
.BoundTo = .T.
.Value = jtva_achizitie.id_jtva_coloana && Substr(jtva_achizitie.denumire,1,200)
Endif
Endwith
With Thisform.cbo_tva_vanzare
If .Visible
.ColumnCount = 3
.ColumnLines = .F.
.ColumnWidths = [200,10,0]
.RowSource = [jtva_vanzare.denumire,cota_tva,id_jtva_coloana]
.RowSourceType = 6
.BoundColumn = 3
.BoundTo = .T.
.Value = jtva_vanzare.id_jtva_coloana && Substr(jtva_achizitie.denumire,1,200)
Endif
ENDWITH
IF m.gl406 AND oset.factura AND (this.cbo_tva_achizitie.Visible OR this.cbo_tva_vanzare.Visible)
* FACTURA + MODEL = 2 (NIR)
* Factura vanzare en-gros nu are vizibila cbo_tva_vanzare
This.cbo_saft.Visible = .T.
this.lb_saft.Visible = .T.
This.actualizeaza_explicatie_saft()
ELSE
IF m.gl406 AND oset.factura
* Daca este factura , dar nu este vizibil cbo_saft (ex: vanzare en-gros)
This.UpdateExplicatieSAFT()
ENDIF
ENDIF
*!* modificare v 2.2.29 ^
If oset.id_set = 85 && MATERIALE RECUPERATE
Thisform.cobj.PROC_TVA = 1 && ORUL.PROC_TVA = 1 nu are procent TVA
ENDIF
DoDefault()
ENDPROC
PROCEDURE updateexplicatiesaft
LOCAL llAchizitie, laNesosit[1]
Local llN100, llN50, llNeexigibil
* tlAchizitie: .T. = factura achizitie
Local ldDataAct, lnIdJtva, lnIdPart, llFurnizorRTVAI, lcProcentTaxa, lnTaxCode
If !m.gl406
Return
ENDIF
llAchizitie = (oset.model = 2) && 2 = NIR
ldDataAct = poAct.dataact
If m.llAchizitie
lnIdJtva = jtva_achizitie.id_jtva_coloana
Else
lnIdJtva = jtva_vanzare.id_jtva_coloana
ENDIF
llFurnizorRTVAI = .F.
IF TYPE('pcobj.oPartenerRTVAI') = 'O'
llFurnizorRTVAI = IIF(m.llAchizitie, IIF(PEMSTATUS(pcobj.oPartenerRTVAI, 'leinRtvai',5), pcobj.oPartenerRTVAI.leinRtvai, .F.), .F.) && poAct
ENDIF
* llN50/llN100 = .T. doar pentru linia cu Explicatie TVA = "Limitare deducere TVA"
llN50 = .F. && (m.lnIdSet = 10609) && limitare deducere 50%
llN100 = .F. && (m.lnIdSet = 10647) && limitare deducere 100%
SELECT COUNT(*) as nr FROM xnote WHERE id_set = oset.id_set AND (LEFT(xscd,3) = '418' OR LEFT(xscc,3) = '408') INTO ARRAY laNesosit
llNeexigibil = (laNesosit[1] > 0) && factura neintocmita/nesosita
lnTaxCode = GetTaxCode(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.llFurnizorRTVAI, m.llN50, m.llN100, m.llNeexigibil)
Thisform.cobj.taxcode = m.lnTaxCode
This.UpdateLabelSaft(m.lnTaxCode)
This.cbo_saft.Refresh()
ENDPROC
PROCEDURE updatelabelsaft
LPARAMETERS lnTaxCode
Local lcProcentTaxa
lcProcentTaxa = ''
IF SEEK(m.lnTaxCode, 'saft_taxtable', 'taxcode')
lcProcentTaxa = Alltrim(Transform(saft_taxtable.procent_taxa)) + '%'
ENDIF
This.lb_saft.Caption = 'Taxa SAFT' + Iif(!Empty(NVL(m.lnTaxCode,0)), ' (' + Alltrim(Transform(m.lnTaxCode)) + ' ' + m.lcProcentTaxa + ')', '')
* Schimb in culoarea rosie pentru a atentiona utilizatorul ca valoarea a fost schimbata
This.lb_saft.ForeColor = Rgb(255, 0, 0)
This.lb_saft.Refresh()
ENDPROC
PROCEDURE updatepaymentsaft
If !m.gl406
Return
Endif
lnIdFdoc = Nvl(poAct.id_fdoc,0)
If !Empty(m.lnIdFdoc)
This.cPaymentCode = GetPaymentCode(m.lnIdFdoc)
Else
This.cPaymentCode = ''
Endif
This.cbo_plata_saft.Refresh()
ENDPROC
PROCEDURE cbo_saft.LostFocus
This.ForeColor = Rgb(0, 0, 0)
ENDPROC
PROCEDURE cbo_saft.Valid
Thisform.UpdateLabelSaft(Thisform.cobj.taxcode)
ENDPROC
PROCEDURE cbo_tva_achizitie.Valid
Thisform.do_alege_tvaach()
ENDPROC
PROCEDURE cbo_tva_vanzare.Valid
Thisform.do_alege_tvavanz()
ENDPROC
PROCEDURE Clb_ITEM_adaos.TEXT_SIMPLU1.InteractiveChange
lcAtribuieValoare = This.ControlSource + [ = ] + Alltrim(Str(This.Value,12,2))
&lcAtribuieValoare
Thisform.do_executa()
ENDPROC
PROCEDURE Clb_ITEM_adaos.TEXT_SIMPLU1.Valid
*!* modificare ROAGEST v 2.0.53
*!* If Val(This.Text)=0
If Val(This.Text) = 0 Or Thisform.pretvtva = 0
*!* modificare ROAGEST v 2.0.53 ^
Thisform.do_executa()
Endif
ENDPROC
PROCEDURE cmdTVA1.Click
Thisform.AplicaTVA(this.Caption)
ENDPROC
PROCEDURE cmdTVA2.Click
Thisform.AplicaTVA(this.Caption)
ENDPROC
PROCEDURE cmdTVA3.Click
Thisform.AplicaTVA(this.Caption)
ENDPROC
PROCEDURE cmdTVA4.Click
Thisform.AplicaTVA(this.Caption)
ENDPROC
PROCEDURE cmdTVA5.Click
Thisform.AplicaTVA(this.Caption)
ENDPROC
PROCEDURE Image1.Click
thisform.do_alege_reteta()
ENDPROC
PROCEDURE Item1.Text_item1.InteractiveChange
If Thisform.proc_discount <> 0
Thisform.cobj.Pret = Round(This.Value*(100-Thisform.proc_discount)/100,gnPpret)
Else
Thisform.cobj.Pret = This.Value
Endif
*!* modificare ROAFACTURARE v 2.2.20
*!* *!* *!* CALCULEZ tva doar pentru seturile in afara de 231,234 (NIR mf pret de lista, NIR RATC)
*!* *!* *!* la 231, 234 se ia pretul de pe ultimul NIR
*!* *!* If !((poact.id_set = 231 or plNIRBONPretCuTVA) AND !Empty(Thisform.cobj.tva))
*!* Thisform.cobj.tva = Round(Thisform.cobj.Pret * (Thisform.cobj.proc_tva - 1),gnPpret)
*!* *!* EndIf
*!* Thisform.item3.Refresh
Thisform.calculeaza_tva_ach()
*!* modificare ROAFACTURARE v 2.2.20 ^
ENDPROC
PROCEDURE Item1.Text_item1.ProgrammaticChange
If Thisform.proc_discount <> 0
Thisform.cobj.Pret = Round(This.Value*(100-Thisform.proc_discount)/100,gnPpret)
Else
Thisform.cobj.Pret = This.Value
Endif
*!* *!* CALCULEZ tva doar pentru seturile in afara de 231,234 (NIR mf pret de lista, NIR RATC)
*!* *!* la 231, 234 se ia pretul de pe ultimul NIR
*!* If !((poact.id_set = 231 or plNIRBONPretCuTVA) AND !Empty(Thisform.cobj.tva))
*Thisform.cobj.tva = Round(Thisform.cobj.Pret * (Thisform.cobj.proc_tva - 1),gnPpret)
*!* EndIf
Thisform.item3.Refresh
ENDPROC
PROCEDURE Item1.Text_item1.Valid
*!* modificare ROAFACTURARE v 2.2.20
*!* Thisform.item4.text_item1.Valid()
Thisform.calculeaza_valori_ach(Thisform.item4.text_item1.Value)
*!* modificare ROAFACTURARE v 2.2.20 ^
ENDPROC
PROCEDURE Item2.Text_item1.InteractiveChange
If 'F' $ Thisform.bvizualizare
*!* modificare ROAFACTURARE v 2.2.20
*!* *!* If !((poact.id_set = 231 or plNIRBONPretCuTVA) AND !Empty(Thisform.cobj.tva))
*!* Thisform.cobj.tva = Round(Thisform.cobj.Pret * (Thisform.cobj.proc_tva - 1),gnPpret)
*!* *!* EndIf
*!* Thisform.item3.Refresh
Thisform.calculeaza_tva_ach()
*!* modificare ROAFACTURARE v 2.2.20 ^
Endif
If Thisform.cobj.procent <> 0 And !INLIST(oset.id_set, 105, 231, 247, 266) && procent adaos - Achizitie fact. neplatita- marfa la pret de vanzare/achizitie
Thisform.do_executa && calculeaza pretul de vanzare inclusiv Tva
Endif
ENDPROC
PROCEDURE Item2.Text_item1.ProgrammaticChange
If 'F' $ Thisform.bvizualizare
*!* modificare ROAFACTURARE v 2.2.20
*!* *!* If !((poact.id_set = 231 or plNIRBONPretCuTVA) AND !Empty(Thisform.cobj.tva))
*!* Thisform.cobj.tva = Round(Thisform.cobj.Pret * (Thisform.cobj.proc_tva - 1),gnPpret)
*!* *!* EndIf
*!* Thisform.item3.Refresh
Thisform.calculeaza_tva_ach()
*!* modificare ROAFACTURARE v 2.2.20 ^
Endif
If Thisform.cobj.procent <> 0 And !INLIST(oset.id_set, 105, 231, 247, 266) && procent adaos - Achizitie fact. neplatita- marfa la pret de vanzare/achizitie
Thisform.do_executa && calculeaza pretul de vanzare inclusiv Tva
Endif
ENDPROC
PROCEDURE Item2.Text_item1.Valid
If 'F' $ Thisform.bvizualizare
*!* modificare ROAFACTURARE v 2.2.20
*!* Thisform.item4.text_item1.Valid()
Thisform.calculeaza_valori_ach(Thisform.item4.text_item1.Value)
*!* modificare ROAFACTURARE v 2.2.20 ^
EndIf
ENDPROC
PROCEDURE Item4.Text_item1.Valid
*!* modificare ROAFACTURARE v 2.2.20
*!* Local lnCantitate, lnPret, lnTva, lnProcTva, lnValoareACTva, lnValoareATva, lnValoareACTva
*!* If !Thisform.blochezPretV AND poact.id_set <> 104 && (la imputare, sa ma lase sa pun cu mana pretv)
*!* Thisform.cobj.TVAV = Round(Thisform.PRETVTVA * (Thisform.cobj.proc_tvav-1)/Iif(Thisform.cobj.proc_tvav <> 0, Thisform.cobj.proc_tvav,1), gnPPretV)
*!* Thisform.cobj.PRETV = Thisform.PRETVTVA - Thisform.cobj.TVAV
*!* Endif
*!* If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
*!* Thisform.cobj.procent=Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
*!* Endif
*!* Thisform.item8.Refresh
*!* Thisform.item9.Refresh
*!* Thisform.clb_item_adaos.Refresh
*!* *!* v 2.0.24
*!*
*!* lnCantitate = this.Value
*!* lnPret = thisform.cobj.PRET
*!* lnTVA = thisform.cobj.TVA
*!* lnProcTVA = Iif(Thisform.cobj.PROC_TVA <> 0, Thisform.cobj.PROC_TVA, TVA2PROCTVA(lnTVA, lnPret))
*!* *!* in stoc nu exista coloana proc_tva !!! o calculez si o pun in rulaj
*!* Thisform.cobj.PROC_TVA = lnProcTva
*!* If !plNIRBONPretCuTVA
*!* lnValoareAFTva = Round(lnCantitate*lnPret, gnPC)
*!* lnValoareATva = Round(lnValoareAFTva * (lnProcTVA-1), gnPC)
*!* lnValoareACTva = lnValoareAFTva + lnValoareATva
*!* Else
*!* lnValoareACTva = Round(lnCantitate*(lnPret+lnTVA), gnPC)
*!* lnValoareATva = Round(lnValoareACTva * (lnProcTva - 1) / lnProcTva, gnPC)
*!* lnValoareAFTva = lnValoareACTva - lnValoareATva
*!* EndIf
*!* Thisform.valoare = lnValoareAFTva
*!* Thisform.VALOAREtva = lnValoareATva
*!* *!* v 2.0.24 ^
*!* Thisform.item5.Refresh
*!* Thisform.item6.Refresh
Thisform.calculeaza_valori_ach(This.Value)
*!* modificare ROAFACTURARE v 2.2.20 ^
ENDPROC
PROCEDURE Item7.Text_item1.InteractiveChange
Thisform.PRETVTVA = This.Value
Thisform.cobj.PRETV = Round(Thisform.PRETVTVA / Thisform.cobj.proc_tvav, gnPPretV)
Thisform.cobj.TVAV = Thisform.PRETVTVA - Thisform.cobj.PRETV
If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
Thisform.cobj.procent=Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
Endif
Thisform.item8.Refresh
Thisform.item9.Refresh
Thisform.clb_item_adaos.Refresh
ENDPROC
PROCEDURE Item7.Text_item1.Valid
*!* thisform.cobj.TVAV = ROUND(thisform.PRETVTVA * (thisform.cobj.proc_tvav-1)/thisform.cobj.proc_tvav, gnPpret)
*!* thisform.cobj.PRETV = thisform.PRETVTVA - thisform.cobj.TVAV
ENDPROC
PROCEDURE Item8.Text_item1.Valid
*!* *!* thisform.cobj.TVAV = ROUND(thisform.cobj.PRETV*(thisform.cobj.proc_tvaV-1), gnPpret)
*!* Thisform.cobj.TVAV = Round(Thisform.cobj.PRETV*(Thisform.cobj.proc_tvaV-1), gnPc)
*!* Thisform.PRETVTVA = Thisform.cobj.PRETV + Thisform.cobj.TVAV
*!* If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
*!* Thisform.cobj.procent=Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
*!* Endif
ENDPROC
PROCEDURE Item9.Text_item1.InteractiveChange
*!* nu stiu de ce atunci cand mai trec prin cantitate si apoi in pret vanzare fara tva intra in interactivechange fara sa modific valoare
If thisform.nPretvOriginal = This.Value
Return
EndIf
Thisform.cobj.PRETV = This.Value
Thisform.cobj.TVAV = Round(Thisform.cobj.PRETV*(Thisform.cobj.proc_TVAV-1), gnPPretV)
Thisform.PRETVTVA = Thisform.cobj.PRETV + Thisform.cobj.TVAV
If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
Thisform.cobj.procent = Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
Endif
Thisform.item7.Refresh
Thisform.item8.Refresh
Thisform.clb_item_adaos.Refresh
ENDPROC
PROCEDURE Item9.Text_item1.Valid
*!* thisform.cobj.TVAV = ROUND(thisform.cobj.PRETV*(thisform.cobj.proc_TVAV-1), gnPpret)
ENDPROC
PROCEDURE Item9.Text_item1.When
thisform.nPretvOriginal = This.Value
ENDPROC
PROCEDURE Opt_imputare.Init
pnImputare = this.Value
ENDPROC
PROCEDURE Opt_imputare.InteractiveChange
pnImputare = this.Value
ENDPROC
PROCEDURE Opt_imputare.Valid
pnImputare = this.Value
ENDPROC
ENDDEFINE
DEFINE CLASS frm_introdnir_val 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="Item2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_valuta_ach" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_explicatie_curs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Item12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_valuta_vanz1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_valuta_vanz2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_valuta_vanz3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_valuta_ach_c" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_valuta_vanz_c" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_ITEM_adaos" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_tva_vanzare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_tva_vanzare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="tx_curs_ach" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="tx_curs_vanz" UniqueID="" Timestamp="" />
#INCLUDE "..\include\foxpro.h"
*<DefinedPropArrayMethod>
*m: do_modiparam
*p: blochezpretv
*p: cobj
*p: cparentobj
*p: ctitlu
*p: ncant_iesita
*p: ncant_stoc
*p: ncursach
*p: ncursvanz
*p: omemopref
*p: pretvtva
*p: pretvtvaval
*p: proc_adaos
*p: proc_discount
*p: proc_tvav
*p: valoare
*p: valoaretva
*</DefinedPropArrayMethod>
*<PropValue>
bvizualizare =
cobj =
ctitlu =
DoCreate = .T.
Height = 371
Name = "frm_introdnir_val"
ncant_iesita = .F.
ncant_stoc = .F.
ncursach = 0
ncursvanz = 0
omemopref = NULL
pretvtva = 0
pretvtvaval = 0
proc_adaos = 0
proc_discount = 0
proc_tvav = 0
valoare = 0
valoaretva = 0
Width = 634
WindowType = 1
_shape1.Height = 30
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = -1
_shape1.Width = 636
_shape1.ZOrderSet = 2
_shape2.Height = 29
_shape2.Left = 567
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 67
_shape2.ZOrderSet = 3
Lb_titlu_alb_b121.FontName = "Comic Sans MS"
Lb_titlu_alb_b121.FontSize = 10
Lb_titlu_alb_b121.Left = 8
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 17
Lb_titlu_alb_b121.Top = 4
Lb_titlu_alb_b121.ZOrderSet = 4
BUT_TERMIN1.Left = 601
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 15
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 5
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 571, ;
Name = "But_renunt1", ;
TabIndex = 16, ;
Top = 1, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
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 = "", ;
InputMask = "", ;
Left = 475, ;
Name = "cbo_tva_vanzare", ;
RowSource = "jtva_vanzare.denumire,cota_tva,id_jtva_coloana", ;
RowSourceType = 6, ;
SpecialEffect = 1, ;
Style = 2, ;
TabIndex = 26, ;
TabStop = .F., ;
Top = 261, ;
Visible = .T., ;
Width = 149
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'Clb_ITEM_adaos' AS clb_tx_simplu WITH ;
BorderColor = 255,255,255, ;
Comment = "A", ;
Height = 29, ;
Left = 472, ;
Name = "Clb_ITEM_adaos", ;
TabIndex = 8, ;
Top = 216, ;
Width = 83, ;
TEXT_SIMPLU1.Alignment = 1, ;
TEXT_SIMPLU1.BackColor = 224,224,224, ;
TEXT_SIMPLU1.BorderStyle = 0, ;
TEXT_SIMPLU1.Comment = "thisform.cobj.procent", ;
TEXT_SIMPLU1.ControlSource = "", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.InputMask = (get_mask(12,2)), ;
TEXT_SIMPLU1.Left = 2, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.SpecialEffect = 1, ;
TEXT_SIMPLU1.Top = 2, ;
TEXT_SIMPLU1.Width = 58, ;
LB_SIMPLU1.Caption = "%", ;
LB_SIMPLU1.FontName = "Comic Sans MS", ;
LB_SIMPLU1.Left = 66, ;
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
LB_SIMPLU1.Top = 5
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Item1' AS item WITH ;
Comment = "T", ;
Left = 13, ;
Name = "Item1", ;
TabIndex = 2, ;
tip = F, ;
Top = 67, ;
ZOrderSet = 1, ;
Label_item1.Caption = "Pret achizitie in valuta", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.pretd", ;
Text_item1.InputMask = (get_mask(12,gnPpretVal)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item10' AS item WITH ;
Comment = "A", ;
Left = 13, ;
Name = "Item10", ;
TabIndex = 13, ;
TabStop = .F., ;
tip = A, ;
Top = 309, ;
ZOrderSet = 12, ;
LABEL_ITEM1.Caption = "TVA vanzare in valuta", ;
LABEL_ITEM1.Name = "LABEL_ITEM1", ;
TEXT_ITEM1.Comment = "thisform.cobj.tvaval", ;
TEXT_ITEM1.InputMask = (get_mask(12,gnPVal)), ;
TEXT_ITEM1.Name = "TEXT_ITEM1", ;
TEXT_ITEM1.ReadOnly = .T., ;
LINEO1.Name = "LINEO1", ;
LINEO3.Name = "LINEO3", ;
LINEO4.Name = "LINEO4", ;
LINEO5.Name = "LINEO5", ;
LINEO2.Name = "LINEO2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item11' AS item WITH ;
camp_lista = sectie, ;
Comment = "T", ;
fis_lista = Vnom_sectii, ;
id_fisier = id_sectie, ;
label_item = Denumire sectie, ;
Left = 13, ;
Name = "Item11", ;
pcobj = orul, ;
TabIndex = 7, ;
TabStop = .F., ;
tip = , ;
Top = 189, ;
ZOrderSet = 14, ;
Label_item1.Caption = "Sectie", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.sectie", ;
Text_item1.ControlSource = "", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item12' AS item WITH ;
Comment = "X", ;
Left = 13, ;
Name = "Item12", ;
TabIndex = 14, ;
tip = A, ;
Top = 332, ;
ZOrderSet = 13, ;
LABEL_ITEM1.Caption = "Pret de vanzare fara TVA", ;
LABEL_ITEM1.Name = "LABEL_ITEM1", ;
TEXT_ITEM1.Comment = "thisform.cobj.pretvval", ;
TEXT_ITEM1.InputMask = (get_mask(14,gnPVal)), ;
TEXT_ITEM1.Name = "TEXT_ITEM1", ;
LINEO1.Name = "LINEO1", ;
LINEO3.Name = "LINEO3", ;
LINEO4.Name = "LINEO4", ;
LINEO5.Name = "LINEO5", ;
LINEO2.Name = "LINEO2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item13' AS item WITH ;
Comment = "T", ;
Left = 13, ;
Name = "Item13", ;
TabIndex = 1, ;
tip = T, ;
Top = 40, ;
ZOrderSet = 1, ;
Label_item1.Caption = "Serie", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.serie", ;
Text_item1.Format = "K!", ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item2' AS item WITH ;
Comment = "T", ;
Left = 13, ;
Name = "Item2", ;
TabIndex = 3, ;
tip = , ;
Top = 90, ;
ZOrderSet = 0, ;
Label_item1.Caption = "Pret achizitie", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.pret", ;
Text_item1.InputMask = (get_mask(12,gnPpret)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item3' AS item WITH ;
Left = 13, ;
Name = "Item3", ;
TabIndex = 4, ;
tip = F, ;
Top = 114, ;
ZOrderSet = 7, ;
Label_item1.Caption = "Pret achizitie la cursul zilei", ;
Label_item1.Name = "Label_item1", ;
Text_item1.InputMask = (get_mask(12,gnPpret)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item4' AS item WITH ;
Comment = "T", ;
Left = 13, ;
Name = "Item4", ;
TabIndex = 5, ;
tip = , ;
Top = 138, ;
ZOrderSet = 8, ;
Label_item1.Caption = "Cantitate", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.cant", ;
Text_item1.InputMask = (get_mask(12,gnPcant)), ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item5' AS item WITH ;
Comment = "T", ;
Left = 13, ;
Name = "Item5", ;
TabIndex = 6, ;
tip = , ;
Top = 162, ;
ZOrderSet = 9, ;
Label_item1.Caption = "Valoare ", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.valoare", ;
Text_item1.InputMask = (get_mask(12,gnPc)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item6' AS item WITH ;
Comment = "A", ;
Left = 13, ;
Name = "Item6", ;
TabIndex = 12, ;
tip = A, ;
Top = 286, ;
ZOrderSet = 11, ;
LABEL_ITEM1.Caption = "Pret de vanzare cu TVA in valuta", ;
LABEL_ITEM1.Name = "LABEL_ITEM1", ;
TEXT_ITEM1.Comment = "thisform.Pretvtvaval", ;
TEXT_ITEM1.InputMask = (get_mask(14,gnPVal)), ;
TEXT_ITEM1.Name = "TEXT_ITEM1", ;
LINEO1.Name = "LINEO1", ;
LINEO3.Name = "LINEO3", ;
LINEO4.Name = "LINEO4", ;
LINEO5.Name = "LINEO5", ;
LINEO2.Name = "LINEO2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item7' AS item WITH ;
Comment = "A", ;
Left = 13, ;
Name = "Item7", ;
TabIndex = 9, ;
TabStop = .F., ;
tip = A, ;
Top = 216, ;
ZOrderSet = 11, ;
Label_item1.Caption = "Pret de vanzare cu TVA", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.PretvTva", ;
Text_item1.InputMask = (get_mask(12,gnPPretV)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item8' AS item WITH ;
Comment = "A", ;
Left = 13, ;
Name = "Item8", ;
TabIndex = 10, ;
TabStop = .F., ;
tip = A, ;
Top = 239, ;
ZOrderSet = 12, ;
Label_item1.Caption = "TVA vanzare", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.tvav", ;
Text_item1.InputMask = (get_mask(12,gnPPretV)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'Item9' AS item WITH ;
Comment = "X", ;
Left = 13, ;
Name = "Item9", ;
TabIndex = 11, ;
TabStop = .F., ;
tip = A, ;
Top = 262, ;
ZOrderSet = 13, ;
Label_item1.Caption = "Pret de vanzare fara TVA", ;
Label_item1.Name = "Label_item1", ;
Text_item1.Comment = "thisform.cobj.pretv", ;
Text_item1.InputMask = (get_mask(12,gnPPretV)), ;
Text_item1.Name = "Text_item1", ;
Text_item1.ReadOnly = .T., ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
ADD OBJECT 'lb_explicatie_curs' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Curs valutar", ;
FontName = "Comic Sans MS", ;
ForeColor = 0,0,128, ;
Height = 20, ;
Left = 488, ;
Name = "lb_explicatie_curs", ;
TabIndex = 18, ;
Top = 107, ;
Width = 75, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_tva_vanzare' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA vanzare", ;
Comment = "A", ;
Height = 18, ;
Left = 477, ;
Name = "lb_tva_vanzare", ;
TabIndex = 25, ;
Top = 244, ;
Visible = .T., ;
Width = 75
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_valuta_ach' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "[Valuta]", ;
Height = 18, ;
Left = 474, ;
Name = "lb_valuta_ach", ;
TabIndex = 20, ;
Top = 68, ;
Width = 47, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_valuta_ach_c' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "[Valuta]", ;
FontName = "Comic Sans MS", ;
ForeColor = 0,0,128, ;
Height = 20, ;
Left = 482, ;
Name = "lb_valuta_ach_c", ;
TabIndex = 24, ;
Top = 132, ;
Width = 50, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_valuta_vanz1' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "[Valuta]", ;
Left = 479, ;
Name = "lb_valuta_vanz1", ;
TabIndex = 21, ;
Top = 287, ;
Width = 47, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_valuta_vanz2' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "[Valuta]", ;
Left = 479, ;
Name = "lb_valuta_vanz2", ;
TabIndex = 19, ;
Top = 310, ;
Width = 47, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_valuta_vanz3' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "[Valuta]", ;
Left = 479, ;
Name = "lb_valuta_vanz3", ;
TabIndex = 23, ;
Top = 333, ;
Width = 47, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lb_valuta_vanz_c' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "[Valuta]", ;
FontName = "Comic Sans MS", ;
ForeColor = 0,0,128, ;
Height = 20, ;
Left = 482, ;
Name = "lb_valuta_vanz_c", ;
TabIndex = 22, ;
Top = 156, ;
Width = 50, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'tx_curs_ach' AS _txbase WITH ;
Alignment = 0, ;
BorderStyle = 0, ;
ControlSource = "thisform.ncursach", ;
FontName = "Comic Sans MS", ;
Height = 18, ;
InputMask = (get_mask(6,4)), ;
Left = 540, ;
Name = "tx_curs_ach", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 27, ;
TabStop = .F., ;
Top = 132, ;
Value = 0, ;
Width = 84
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'tx_curs_vanz' AS _txbase WITH ;
Alignment = 0, ;
BorderStyle = 0, ;
ControlSource = "thisform.ncursvanz", ;
FontName = "Comic Sans MS", ;
Height = 18, ;
InputMask = (get_mask(6,4)), ;
Left = 540, ;
Name = "tx_curs_vanz", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 28, ;
TabStop = .F., ;
Top = 156, ;
Value = 0, ;
Width = 84
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
PROCEDURE do_executa
This.cobj.pretv = Round(This.cobj.Pret * (1 + This.cobj.procent/100), gnPPretV)
This.cobj.TVAV = Round(This.cobj.pretv*(This.cobj.proC_TVAV-1), gnPPretV)
This.PRETVTVA = This.cobj.pretv + This.cobj.TVAV
This.item7.Refresh
This.item8.Refresh
This.item9.Refresh
thisform.cobj.pretvval = Round(Thisform.cobj.pretv / thisform.cobj.curs,gnPVal)
thisform.cobj.tvaval = Round(Thisform.cobj.TVAV / thisform.cobj.curs,gnPVal)
Thisform.pretvtvaval = thisform.cobj.pretvval + thisform.cobj.tvaval
Thisform.item6.Refresh
Thisform.item10.Refresh
Thisform.item12.Refresh
ENDPROC
PROCEDURE do_modiparam
ENDPROC
PROCEDURE inainte_de_do_termin
*!* 27.05.2009 - cantitatea introdusa plus cantitatea iesita nu trebuie sa depaseasca cantitatea din stoc.
*!* marius.felecanu
Local llReturn
Store .T. To llReturn
IF thisform.ncant_stoc <> 0
IF thisform.ncant_iesita + thisform.item4.text_item1.Value > thisform.ncant_stoc
AMESSAGEBOX("Cantitatea maxima existenta este: " + ALLTRIM(STR(thisform.ncant_stoc - thisform.ncant_iesita,18,4)),0+48,_screen.Caption)
llReturn = .F.
thisform.item4.SetFocus()
ENDIF
ENDIF
RETURN llReturn
*!* 27.05.2009 ^
ENDPROC
PROCEDURE Init
LPARAMETERS toDatePref
DODEFAULT()
Thisform.omemopref = IIF(TYPE("toDatePref")="O",toDatePref,NULL)
ENDPROC
PROCEDURE Show
Lparameters nStyle
lnHeight = 0
With Thisform.lb_explicatie_curs
.Caption = [Curs valutar ] + Dtoc(poAct.v8)
.AutoSize = .T.
Endwith
Select crscursuri
If !Empty(Nvl(Thisform.cobj.id_valuta,0))
Locate For id_valuta = Thisform.cobj.id_valuta
If Found()
Thisform.ncursach = Curs / multiplicator
lcNumeValuta = Upper(Alltrim(nume_val))
With Thisform.lb_valuta_ach
.Caption = lcNumeValuta
.AutoSize = .T.
Endwith
With Thisform.lb_valuta_ach_c
.Caption = lcNumeValuta
.AutoSize = .T.
Endwith
Endif
Thisform.item3.text_item1.Value = Round(Thisform.cobj.pretd*Thisform.ncursach,gnPPret)
Else
Thisform.ncursach = 0
Thisform.lb_valuta_ach.Visible = .F.
Thisform.lb_valuta_ach_c.Visible = .F.
Thisform.tx_curs_ach.Visible = .F.
Thisform.item1.Visible = .F.
Thisform.item3.Visible = .F.
Thisform.lb_valuta_vanz_c.Top = Thisform.lb_valuta_ach_c.Top
Thisform.tx_curs_vanz.Top = Thisform.tx_curs_ach.Top
Endif
If Nvl(Thisform.cobj.id_valuta,0) <> poAct.id_valuta_vanz
*!* Locate For id_valuta = poAct.id_valuta_vanz
*!* If Found()
*!* Thisform.ncursvanz = Curs
*!* lcNumeValuta = Upper(Alltrim(nume_val))
Thisform.ncursvanz = Thisform.cobj.Curs
lcNumeValuta = poAct.nume_val_vanz
*!* Endif
Else
Thisform.lb_valuta_vanz_c.Visible = .F.
Thisform.tx_curs_vanz.Visible = .F.
Endif
With Thisform.lb_valuta_vanz1
.Caption = lcNumeValuta
.AutoSize = .T.
Endwith
With Thisform.lb_valuta_vanz2
.Caption = lcNumeValuta
.AutoSize = .T.
Endwith
With Thisform.lb_valuta_vanz3
.Caption = lcNumeValuta
.AutoSize = .T.
Endwith
With Thisform.lb_valuta_vanz_c
.Caption = lcNumeValuta
.AutoSize = .T.
Endwith
Thisform.proc_adaos = 0
For Each loControl In This.Controls
With loControl
If !Empty(loControl.Comment)
If .Comment $ This.bVizualizare
.Visible = .T.
If 'ITEM' $ Upper(.Name)
For Each loCtrSecund In loControl.Controls
If 'TEXT' $ Upper(loCtrSecund.Name)
lcControlSource = Alltrim(loCtrSecund.Comment)
loCtrSecund.ControlSource = lcControlSource
Endif
Endfor
*!* lcControlSource = ALLTRIM(.text_item1.comment)
*!* .text_item1.controlsource = lcControlSource
.pcobj = 'orul'
Endif
lnTop = .Top
If lnTop > lnHeight
lnHeight = lnTop
Endif
Else
.Visible = .F.
Endif
Endif
Endwith
Endfor
If gnNeplatitoare_tva = 1
*!* modificare 21.02.2007
Select jtva_achizitie
Locate For id_jtva_coloana = 113
If Found()
This.cbo_tva_achizitie.Value = Alltrim(denumire)
Thisform.cobj.id_jtva_coloana = id_jtva_coloana
This.cobj.proc_tva = (cota_tva + 100)/100
Endif
Select jtva_vanzare
Locate For id_jtva_coloana = 11
If Found()
This.cbo_tva_VANZARE.Value = Alltrim(denumire)
Thisform.cobj.PROC_TVAv = (jtva_vanzare.cota_tva + 100)/100
Thisform.PROC_TVAv = (jtva_vanzare.cota_tva + 100)/100
If !('F' $ This.bVizualizare)
This.cobj.id_jtva_coloana = id_jtva_coloana
Endif
Endif
*!* SELECT cote_tva
*!* LOCATE FOR proc_tva = 1.00
*!* IF !FOUND()
*!* SELECT cote_tva
*!* GO TOP
*!* ENDIF
*!* modificare 21.02.2007 ^
Else
*!* modificare 21.02.2007
Select jtva_achizitie
Do Case
Case This.cobj.Cont = '371' And oset.id_jtax = 141 && taxare inversa 19 %
Locate For id_jtva_coloana = 139
Case This.cobj.Cont = '371' And oset.id_jtax = 105 && marfa 19 %
Locate For id_jtva_coloana = 103
Otherwise
Locate For id_jtva_coloana = oset.id_jtax or id_jtva_ex = oset.id_jtax && modificare v 2.2.0 : conditia de dupa or
Endcase
If Found()
This.cbo_tva_achizitie.Value = Alltrim(denumire)
Thisform.cobj.id_jtva_coloana = id_jtva_coloana
This.cobj.proc_tva = (cota_tva + 100)/100
Endif
*!* SELECT cote_tva
*!* GO TOP
*!* modificare 21.02.2007 ^
Endif
If 'F' $ This.bVizualizare And Empty(This.cobj.proc_tva)
*!* modificare 21.02.2007
Select jtva_achizitie
Do Case
Case This.cobj.Cont = '371' And oset.id_jtax = 141 && taxare inversa 19 %
Locate For id_jtva_coloana = 139
Case This.cobj.Cont = '371' And oset.id_jtax = 105 && marfa 19 %
Locate For id_jtva_coloana = 103
Otherwise
Locate For id_jtva_coloana = oset.id_jtax or id_jtva_ex = oset.id_jtax && modificare v 2.2.0 : conditia de dupa or
Endcase
If Found()
This.cbo_tva_achizitie.Value = Alltrim(denumire)
Thisform.cobj.id_jtva_coloana = id_jtva_coloana
This.cobj.proc_tva = (cota_tva + 100)/100
Endif
*!* SELECT cote_tva
*!* * GO top
*!* lnProc_tva = proc_tva
*!* lnproc = procent
*!* THIS.cotaTVA_achizitie.VALUE = ALLTRIM(STR(lnproc))
*!* THIS.cobj.proc_tva = lnProc_tva
*!* modificare 21.02.2007 ^
Endif
If 'A' $ This.bVizualizare
If This.blochezPretV
This.item7.Enabled = .F.
This.item8.Enabled = .F.
This.item9.Enabled = .F.
This.Clb_ITEM_adaos.Visible = .F.
*!* modificare 21.02.2007
lcFiltru = [cota_tva = ] + Alltrim(Str(Thisform.cobj.PROC_TVAv * 100 - 100))
Select jtva_vanzare
Set Filter To &lcFiltru
Go Top
This.cbo_tva_VANZARE.Value = Alltrim(denumire)
If !('F' $ This.bVizualizare)
This.cobj.id_jtva_coloana = id_jtva_coloana
Endif
*!* THIS.CotaTVA_vanzare.ENABLED = .F.
*!* THIS.CotaTVA_vanzare.VALUE = ALLTRIM(STR(THIS.proc_tvav *100 - 100))
*!* modificare 21.02.2007 ^
Else
*!* modificare 21.02.2007
Select jtva_vanzare
Locate For id_jtva_coloana = Iif(oset.tipjurnal=[JV],oset.id_jtax,GetIdJtvaStandard('VANZARE')) or id_jtva_ex = Iif(oset.tipjurnal=[JV],oset.id_jtax,GetIdJtvaStandard('VANZARE')) && modificare v 2.2.0 : conditia de dupa or
If Found()
This.cbo_tva_VANZARE.Value = Alltrim(denumire)
This.cobj.PROC_TVAv = (cota_tva + 100)/100
If !('F' $ This.bVizualizare)
This.cobj.id_jtva_coloana = id_jtva_coloana
Endif
Endif
*!* SELECT cote_tva
*!* * GO top
*!* lnProc_tva = proc_tva
*!* lnproc = procent
*!* THIS.CotaTVA_vanzare.VALUE = ALLTRIM(STR(lnproc))
*!* THIS.cobj.proc_tvav = lnProc_tva
*!* modificare 21.02.2007 ^
Endif
This.cobj.procent = Thisform.proc_adaos
Endif
This.lb_titlu_alb_b121.Caption = This.cTitlu
This.item4.SetFocus
*!* modificare ROAFACTURARE v 2.0.90
If Thisform.ncursach <> Round(Thisform.ncursach,4)
Thisform.tx_curs_ach.InputMask = get_mask(8,6)
Endif
If Thisform.ncursvanz <> Round(Thisform.ncursvanz,4)
Thisform.tx_curs_vanz.InputMask = get_mask(8,6)
Endif
*!* modificare ROAFACTURARE v 2.0.90 ^
DoDefault()
ENDPROC
PROCEDURE cbo_tva_vanzare.Valid
If !('F' $ Thisform.bVizualizare)
Thisform.COBJ.id_jtva_coloana = jtva_vanzare.id_jtva_coloana
Endif
If !Thisform.blochezPretV
Thisform.COBJ.PROC_TVAv = (jtva_vanzare.cota_tva + 100)/100
Thisform.PROC_TVAv = (jtva_vanzare.cota_tva + 100)/100
Thisform.item7.teXT_ITEM1.InteractiveChange
Endif
ENDPROC
PROCEDURE Clb_ITEM_adaos.TEXT_SIMPLU1.Valid
thisform.do_executa
ENDPROC
PROCEDURE Item12.TEXT_ITEM1.InteractiveChange
thisform.cobj.pretvval = This.Value
thisform.cobj.tvaval = Round(thisform.cobj.pretvval * (Thisform.cobj.proc_tvav-1),gnPVal)
Thisform.pretvtvaval = thisform.cobj.pretvval + thisform.cobj.tvaval
Thisform.item6.Refresh
Thisform.item10.Refresh
Thisform.cobj.PRETV = Round(thisform.cobj.pretvval * thisform.cobj.curs , gnPPretV)
Thisform.cobj.TVAV = Round(thisform.cobj.tvaval * thisform.cobj.curs, gnPPretV)
Thisform.PRETVTVA = Thisform.cobj.PRETV + Thisform.cobj.TVAV
If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
Thisform.cobj.procent = Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
Endif
Thisform.item7.Refresh
Thisform.item8.Refresh
Thisform.item9.Refresh
Thisform.clb_item_adaos.Refresh
ENDPROC
PROCEDURE Item4.Text_item1.Valid
If !Thisform.blochezPretV AND poact.id_set <> 104 && (la imputare, sa ma lase sa pun cu mana pretv)
*!* thisform.cobj.TVAV = ROUND(thisform.PRETVTVA * (thisform.cobj.proc_tvav-1)/IIF(thisform.cobj.proc_tvav <> 0, thisform.cobj.proc_tvav,1), gnPpret)
Thisform.cobj.TVAV = Round(Thisform.PRETVTVA * (Thisform.cobj.proc_tvav-1)/Iif(Thisform.cobj.proc_tvav <> 0, Thisform.cobj.proc_tvav,1), gnPPretV)
Thisform.cobj.PRETV = Thisform.PRETVTVA - Thisform.cobj.TVAV
Endif
If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
Thisform.cobj.procent=Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
Endif
Thisform.item8.Refresh
Thisform.item9.Refresh
Thisform.clb_item_adaos.Refresh
Thisform.valoare = Round(This.Value * Thisform.cobj.Pret,gnPc)
Thisform.VALOAREtva = Round(Thisform.valoare*(Thisform.cobj.PROC_TVA-1),gnPc)
Thisform.item5.Refresh
Thisform.item6.Refresh
ENDPROC
PROCEDURE Item6.TEXT_ITEM1.InteractiveChange
Thisform.pretvtvaval = This.Value
thisform.cobj.pretvval = Round(Thisform.pretvtvaval / Thisform.cobj.proc_tvav,gnPVal)
thisform.cobj.tvaval = Thisform.pretvtvaval - thisform.cobj.pretvval
Thisform.item10.Refresh
Thisform.item12.Refresh
Thisform.PRETVTVA = Round(Thisform.pretvtvaval * thisform.cobj.curs, gnPPretV)
Thisform.cobj.PRETV = Round(thisform.cobj.pretvval * thisform.cobj.curs, gnPPretV)
Thisform.cobj.TVAV = Thisform.PRETVTVA - Thisform.cobj.PRETV
If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
Thisform.cobj.procent=Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
Endif
Thisform.item7.Refresh
Thisform.item8.Refresh
Thisform.item9.Refresh
Thisform.clb_item_adaos.Refresh
ENDPROC
PROCEDURE Item6.TEXT_ITEM1.Valid
*!* thisform.cobj.TVAV = ROUND(thisform.PRETVTVA * (thisform.cobj.proc_tvav-1)/thisform.cobj.proc_tvav, gnPpret)
*!* thisform.cobj.PRETV = thisform.PRETVTVA - thisform.cobj.TVAV
ENDPROC
PROCEDURE Item7.Text_item1.InteractiveChange
Thisform.PRETVTVA = This.Value
Thisform.cobj.PRETV = Round(Thisform.PRETVTVA / Thisform.cobj.proc_tvav, gnPPretV)
Thisform.cobj.TVAV = Thisform.PRETVTVA - Thisform.cobj.PRETV
If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
Thisform.cobj.procent=Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
Endif
Thisform.item8.Refresh
Thisform.item9.Refresh
Thisform.clb_item_adaos.Refresh
Thisform.pretvtvaval = Round(Thisform.PRETVTVA / thisform.cobj.curs,gnPVal)
thisform.cobj.pretvval = Round(Thisform.cobj.PRETV / thisform.cobj.curs,gnPVal)
thisform.cobj.tvaval = Thisform.pretvtvaval - thisform.cobj.pretvval
Thisform.item6.Refresh
Thisform.item10.Refresh
Thisform.item12.Refresh
ENDPROC
PROCEDURE Item9.Text_item1.InteractiveChange
Thisform.cobj.PRETV = This.Value
Thisform.cobj.TVAV = Round(Thisform.cobj.PRETV*(Thisform.cobj.proc_TVAV-1), gnPPretV)
Thisform.PRETVTVA = Thisform.cobj.PRETV + Thisform.cobj.TVAV
If !Empty(Thisform.cobj.Pret) And !Empty(Thisform.cobj.PRETV)
Thisform.cobj.procent = Round((Thisform.cobj.PRETV/Thisform.cobj.Pret-1)*100, gnPc)
Endif
Thisform.item7.Refresh
Thisform.item8.Refresh
Thisform.clb_item_adaos.Refresh
thisform.cobj.pretvval = Round(Thisform.cobj.PRETV / thisform.cobj.curs,gnPVal)
thisform.cobj.tvaval = Round(Thisform.cobj.TVAV / thisform.cobj.curs,gnPVal)
Thisform.pretvtvaval = thisform.cobj.pretvval + thisform.cobj.tvaval
Thisform.item6.Refresh
Thisform.item10.Refresh
Thisform.item12.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS import_adauga_factura 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="shpDvi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblFelDoc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtFelDoc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdFelDoc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblSerie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSerie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblNr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblData" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblPartener" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtPartener" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdPartener" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtFelDocDVI" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblSuma" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSuma" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblCurs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtCurs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkParticipaValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkInValutaCont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="optTipTva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblExplicatieTva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtExplicatieTva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdExplicatieTva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblPedagogieDvi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblDviNr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDviNr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblDviData" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDviData" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblDviPartener" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDviPartener" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdDviPartener" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblDviTvaVal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDviTvaVal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblDviTvaLei" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDviTvaLei" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblProcentTva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtProcentTva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdFelDocDVI" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSumaLei" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblSumaLei" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: actualizeaza_stare_dvi
*m: actualizeaza_stare_valuta
*m: actualizeaza_tabstop
*m: arata_valuta_curs
*m: construieste_todlg
*m: recalc_tva
*m: seteaza_masti
*m: valideaza
*p: cdvipartener
*p: cdviserie
*p: cexplicatia
*p: cexplicatietva
*p: cfeldoc
*p: cfeldocdvi
*p: cpartener
*p: cserieact
*p: cseriedvi
*p: cvaluta
*p: ddata
*p: ddataact
*p: ddvidata
*p: lcursdirty
*p: linvalutadirty && bifa "in valuta" schimbata explicit de utilizator - nu o mai fortez
*p: lsumaleidirty && suma in lei a fost editata manual - recalc_tva nu o mai suprascrie
*p: lsuprimadirty
*p: ncurs
*p: ndviidpartener
*p: ndvitvalei
*p: ndvitvaval
*p: nidexplicatietva
*p: nidfdoc
*p: nidfdocdvi
*p: nidpartener
*p: nidvaluta
*p: nnract
*p: nnractdvi
*p: nprocenttva
*p: nsuma
*p: nsumalei && suma fara TVA in lei (calculata, doar afisare)
*p: oparinte && referinta catre import_nota care a deschis dialogul
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cdvipartener = ""
cdviserie = ""
cexplicatia = ""
cexplicatietva = ""
cfeldoc = ""
cfeldocdvi = ""
cpartener = ""
cserieact = ""
cseriedvi = ""
cvaluta = ""
ddata = {}
ddataact = {}
ddvidata = {}
DoCreate = .T.
Height = 406
lcursdirty = .F.
linvalutadirty = .F.
lsumaleidirty = .F.
lsuprimadirty = .F.
Name = "import_adauga_factura"
ncurs = 0
ndviidpartener = 0
ndvitvalei = 0
ndvitvaval = 0
nidexplicatietva = 0
nidfdoc = 0
nidfdocdvi = 0
nidpartener = 0
nidvaluta = 0
nnract = 0
nnractdvi = 0
nprocenttva = 0
nsuma = 0
nsumalei = 0
oparinte =
Width = 616
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 642
_shape1.ZOrderSet = 3
_shape2.Left = 549
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.ZOrderSet = 4
Lb_titlu_alb_b121.Caption = "Adauga factura"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.ZOrderSet = 5
BUT_TERMIN1.Left = 586
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 27
BUT_TERMIN1.Top = 1
BUT_TERMIN1.Visible = .T.
BUT_TERMIN1.ZOrderSet = 6
Gridsort1.Left = 5
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 31
*</PropValue>
ADD OBJECT '_label1' AS _label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Fel doc", ;
FontBold = .T., ;
Height = 17, ;
Left = 25, ;
Name = "_label1", ;
Top = 305, ;
Width = 50, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_label2' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "completati TVA% si apoi alegeti Explicatie TVA", ;
FontBold = .F., ;
FontItalic = .T., ;
FontSize = 9, ;
Height = 17, ;
Left = 20, ;
Name = "_label2", ;
Top = 252, ;
Width = 257, ;
ZOrderSet = 32
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_shape3' AS _shape WITH ;
BackColor = 240,225,255, ;
BackStyle = 0, ;
Height = 157, ;
Left = 12, ;
Name = "_shape3", ;
SpecialEffect = 0, ;
Top = 36, ;
Width = 592, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shape4' AS _shape WITH ;
BackColor = 197,197,226, ;
BackStyle = 0, ;
Height = 83, ;
Left = 12, ;
Name = "_shape4", ;
SpecialEffect = 0, ;
Top = 191, ;
Width = 592, ;
ZOrderSet = 2
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 556, ;
Name = "But_renunt1", ;
TabIndex = 28, ;
Top = 1, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'chkInValutaCont' AS _checkbox WITH ;
Alignment = 0, ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Suma in valuta in contabilitate", ;
Height = 31, ;
Left = 491, ;
Name = "chkInValutaCont", ;
TabIndex = 14, ;
TabStop = .F., ;
Top = 117, ;
Value = 1, ;
Width = 102, ;
WordWrap = .T., ;
ZOrderSet = 30
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'chkParticipaValuta' AS _checkbox WITH ;
Alignment = 0, ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Participa la pretul de intrare", ;
Height = 34, ;
Left = 491, ;
Name = "chkParticipaValuta", ;
TabIndex = 13, ;
TabStop = .F., ;
Top = 150, ;
Value = 1, ;
Width = 107, ;
WordWrap = .T., ;
ZOrderSet = 29
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'cmdDviPartener' AS _commandbutton WITH ;
Caption = "...", ;
Enabled = .F., ;
FontBold = .T., ;
FontName = "Arial", ;
Left = 558, ;
Name = "cmdDviPartener", ;
TabIndex = 24, ;
Top = 332, ;
Width = 24, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdExplicatieTva' AS _commandbutton WITH ;
Caption = "...", ;
FontBold = .T., ;
FontName = "Arial", ;
Left = 475, ;
Name = "cmdExplicatieTva", ;
TabIndex = 18, ;
Top = 225, ;
Width = 24, ;
ZOrderSet = 34
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdFelDoc' AS _commandbutton WITH ;
Caption = "...", ;
FontBold = .T., ;
Left = 228, ;
Name = "cmdFelDoc", ;
TabIndex = 2, ;
Top = 38, ;
Width = 24, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdFelDocDVI' AS _commandbutton WITH ;
Caption = "...", ;
FontBold = .T., ;
Left = 235, ;
Name = "cmdFelDocDVI", ;
TabIndex = 20, ;
Top = 300, ;
Width = 24, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdPartener' AS _commandbutton WITH ;
Caption = "...", ;
FontBold = .T., ;
Height = 21, ;
Left = 558, ;
Name = "cmdPartener", ;
TabIndex = 7, ;
Top = 70, ;
Width = 24, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdValuta' AS _commandbutton WITH ;
Caption = "...", ;
FontBold = .T., ;
Left = 339, ;
Name = "cmdValuta", ;
TabIndex = 11, ;
Top = 120, ;
Width = 24, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'lblCurs' AS _label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Curs", ;
FontBold = .T., ;
Height = 17, ;
Left = 368, ;
Name = "lblCurs", ;
Top = 125, ;
Width = 30, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblData' AS _label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Data", ;
FontBold = .T., ;
Height = 17, ;
Left = 456, ;
Name = "lblData", ;
Top = 43, ;
Width = 30, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblDviData' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data", ;
FontBold = .T., ;
Height = 18, ;
Left = 445, ;
Name = "lblDviData", ;
Top = 304, ;
Width = 31, ;
ZOrderSet = 38
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblDviNr' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr", ;
FontBold = .T., ;
Height = 18, ;
Left = 287, ;
Name = "lblDviNr", ;
Top = 304, ;
Width = 16, ;
ZOrderSet = 36
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblDviPartener' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Partener", ;
FontBold = .T., ;
Height = 18, ;
Left = 25, ;
Name = "lblDviPartener", ;
Top = 335, ;
Width = 57, ;
ZOrderSet = 40
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblDviTvaLei' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA lei", ;
FontBold = .T., ;
Height = 18, ;
Left = 206, ;
Name = "lblDviTvaLei", ;
Top = 365, ;
Width = 48, ;
ZOrderSet = 45
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblDviTvaVal' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA valuta", ;
FontBold = .T., ;
Height = 18, ;
Left = 25, ;
Name = "lblDviTvaVal", ;
Top = 365, ;
Width = 71, ;
ZOrderSet = 43
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblExplicatieTva' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Explicatie TVA", ;
FontBold = .T., ;
Height = 18, ;
Left = 118, ;
Name = "lblExplicatieTva", ;
Top = 230, ;
Width = 95, ;
ZOrderSet = 32
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblFelDoc' AS _label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Fel doc", ;
FontBold = .T., ;
Height = 17, ;
Left = 20, ;
Name = "lblFelDoc", ;
Top = 43, ;
Width = 50, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblNr' AS _label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Nr", ;
FontBold = .T., ;
Height = 17, ;
Left = 350, ;
Name = "lblNr", ;
Top = 43, ;
Width = 20, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblPartener' AS _label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Partener", ;
FontBold = .T., ;
Height = 17, ;
Left = 20, ;
Name = "lblPartener", ;
Top = 73, ;
Width = 60, ;
ZOrderSet = 17
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblPedagogieDvi' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "DVI", ;
FontBold = .T., ;
ForeColor = 0,0,25, ;
Height = 18, ;
Left = 25, ;
Name = "lblPedagogieDvi", ;
Top = 279, ;
Width = 24, ;
ZOrderSet = 35
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblProcentTva' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA %", ;
FontBold = .T., ;
Height = 18, ;
Left = 18, ;
Name = "lblProcentTva", ;
Top = 230, ;
Width = 42, ;
ZOrderSet = 48
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblSerie' AS _label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Serie", ;
FontBold = .T., ;
Height = 17, ;
Left = 260, ;
Name = "lblSerie", ;
Top = 43, ;
Width = 34, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblSuma' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Suma fara TVA", ;
FontBold = .T., ;
Height = 18, ;
Left = 20, ;
Name = "lblSuma", ;
Top = 125, ;
Width = 98, ;
ZOrderSet = 22
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblSumaLei' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Suma lei", ;
FontBold = .T., ;
Height = 18, ;
Left = 59, ;
Name = "lblSumaLei", ;
Top = 154, ;
Width = 59, ;
ZOrderSet = 50
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'lblValuta' AS _label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "Valuta", ;
FontBold = .T., ;
Height = 17, ;
Left = 221, ;
Name = "lblValuta", ;
Top = 125, ;
Width = 40, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'optTipTva' AS _optiongrup WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
ButtonCount = 3, ;
Height = 28, ;
Left = 16, ;
Name = "optTipTva", ;
TabIndex = 15, ;
Top = 196, ;
Value = 1, ;
Width = 289, ;
ZOrderSet = 31, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "TVA Furnizor", ;
Option1.FontBold = .T., ;
Option1.FontSize = 10, ;
Option1.Height = 18, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option1.Width = 102, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "TVA DVI", ;
Option2.FontBold = .T., ;
Option2.FontSize = 10, ;
Option2.Height = 18, ;
Option2.Left = 116, ;
Option2.Name = "Option2", ;
Option2.Top = 5, ;
Option2.Width = 71, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Fara TVA", ;
Option3.FontBold = .T., ;
Option3.FontSize = 10, ;
Option3.Height = 18, ;
Option3.Left = 206, ;
Option3.Name = "Option3", ;
Option3.Top = 5, ;
Option3.Width = 78
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT 'shpDvi' AS _shape WITH ;
BackColor = 217,217,236, ;
BackStyle = 1, ;
Height = 121, ;
Left = 12, ;
Name = "shpDvi", ;
SpecialEffect = 0, ;
Top = 273, ;
Width = 592, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT 'txtCurs' AS _textbox WITH ;
Alignment = 1, ;
ControlSource = "Thisform.nCurs", ;
Format = "RK", ;
InputMask = "9999.9999", ;
Left = 402, ;
Name = "txtCurs", ;
TabIndex = 12, ;
Top = 122, ;
Width = 80, ;
ZOrderSet = 28
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtData' AS _textbox WITH ;
ControlSource = "Thisform.dDataAct", ;
Format = "K", ;
Left = 490, ;
Name = "txtData", ;
TabIndex = 5, ;
Top = 40, ;
Width = 94, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtDviData' AS _textbox WITH ;
ControlSource = "Thisform.dDviData", ;
Enabled = .F., ;
Format = "K", ;
Left = 485, ;
Name = "txtDviData", ;
TabIndex = 22, ;
Top = 302, ;
Width = 90, ;
ZOrderSet = 39
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtDviNr' AS _textbox WITH ;
ControlSource = "Thisform.nNractDvi", ;
Enabled = .F., ;
Format = "RK", ;
Height = 23, ;
InputMask = "9999999999", ;
Left = 312, ;
Name = "txtDviNr", ;
TabIndex = 21, ;
Top = 302, ;
Width = 112, ;
ZOrderSet = 37
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtDviPartener' AS _textbox WITH ;
ControlSource = "Thisform.cDviPartener", ;
Enabled = .F., ;
Format = "K", ;
Height = 23, ;
Left = 98, ;
Name = "txtDviPartener", ;
TabIndex = 23, ;
Top = 332, ;
Width = 452, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtDviTvaLei' AS _textbox WITH ;
Alignment = 1, ;
ControlSource = "Thisform.nDviTvaLei", ;
Enabled = .F., ;
Format = "RK", ;
InputMask = "9999999.9999", ;
Left = 260, ;
Name = "txtDviTvaLei", ;
TabIndex = 26, ;
Top = 362, ;
Width = 90, ;
ZOrderSet = 46
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtDviTvaVal' AS _textbox WITH ;
Alignment = 1, ;
ControlSource = "Thisform.nDviTvaVal", ;
Enabled = .F., ;
Format = "RK", ;
InputMask = "9999999.9999", ;
Left = 98, ;
Name = "txtDviTvaVal", ;
TabIndex = 25, ;
Top = 362, ;
Width = 90, ;
ZOrderSet = 44
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtExplicatieTva' AS _textbox WITH ;
ControlSource = "Thisform.cExplicatieTva", ;
Enabled = .T., ;
Format = "K", ;
Left = 215, ;
Name = "txtExplicatieTva", ;
ReadOnly = .T., ;
TabIndex = 17, ;
Top = 227, ;
Width = 254, ;
ZOrderSet = 33
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtFelDoc' AS _textbox WITH ;
ControlSource = "Thisform.cFelDoc", ;
Enabled = .T., ;
Format = "K", ;
Left = 74, ;
Name = "txtFelDoc", ;
ReadOnly = .T., ;
TabIndex = 1, ;
Top = 40, ;
Width = 150, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtFelDocDVI' AS _textbox WITH ;
ControlSource = "Thisform.cFelDocDVI", ;
Enabled = .T., ;
Format = "K", ;
Left = 81, ;
Name = "txtFelDocDVI", ;
ReadOnly = .T., ;
TabIndex = 19, ;
Top = 302, ;
Width = 150, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtNr' AS _textbox WITH ;
ControlSource = "Thisform.nNract", ;
Format = "RK", ;
Height = 23, ;
InputMask = "9999999999", ;
Left = 371, ;
Name = "txtNr", ;
TabIndex = 4, ;
Top = 40, ;
Width = 79, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtPartener' AS _textbox WITH ;
ControlSource = "Thisform.cPartener", ;
Enabled = .T., ;
Format = "K", ;
Height = 23, ;
Left = 92, ;
Name = "txtPartener", ;
ReadOnly = .T., ;
TabIndex = 6, ;
Top = 70, ;
Width = 462, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtProcentTva' AS _textbox WITH ;
Alignment = 1, ;
ControlSource = "Thisform.nProcentTva", ;
Format = "RK", ;
InputMask = "999.99", ;
Left = 62, ;
Name = "txtProcentTva", ;
TabIndex = 16, ;
Top = 227, ;
Width = 44, ;
ZOrderSet = 49
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtSerie' AS _textbox WITH ;
ControlSource = "Thisform.cSerieAct", ;
Format = "K", ;
Height = 23, ;
Left = 298, ;
Name = "txtSerie", ;
TabIndex = 3, ;
Top = 40, ;
Width = 44, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtSuma' AS _textbox WITH ;
Alignment = 1, ;
ControlSource = "Thisform.nSuma", ;
Format = "RK", ;
Height = 23, ;
InputMask = "9999999999.9999", ;
Left = 125, ;
Name = "txtSuma", ;
TabIndex = 9, ;
Top = 122, ;
Width = 80, ;
ZOrderSet = 23
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtSumaLei' AS _textbox WITH ;
Alignment = 1, ;
ControlSource = "Thisform.nSumaLei", ;
Format = "RK", ;
InputMask = "9999999999.99", ;
Left = 125, ;
Name = "txtSumaLei", ;
TabIndex = 29, ;
Top = 151, ;
Width = 80, ;
ZOrderSet = 51
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtValuta' AS _textbox WITH ;
ControlSource = "Thisform.cValuta", ;
Enabled = .T., ;
Format = "K", ;
Left = 265, ;
Name = "txtValuta", ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 122, ;
Width = 70, ;
ZOrderSet = 25
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
PROCEDURE actualizeaza_stare_dvi
*!* Arata/ascunde subrandul DVI dupa radio-ul TVA; pre-completeaza din memoria DVI
*!* a lui import_nota si pune data DVI = data facturii principale daca lipseste.
Local llDvi, loCtl
llDvi = (This.optTipTva.Value = 2)
For Each loCtl In This.Controls
If At('DVI', Upper(loCtl.Name)) > 0
loCtl.Visible = llDvi
If Pemstatus(loCtl, 'Enabled', 5)
loCtl.Enabled = llDvi
Endif
Endif
Endfor
This._label1.Visible = llDvi
If llDvi
If !Empty(This.oParinte.cDviSerie) Or This.oParinte.nDviIdPartener <> 0 Or !Empty(Nvl(This.oParinte.nDviIdFdoc, 0)) Or Val(Nvl(This.oParinte.cDviNr, '0')) <> 0
This.cDviSerie = This.oParinte.cDviSerie
This.cDviPartener = This.oParinte.cDviPartener
This.dDviData = This.oParinte.dDviData
This.nDviIdPartener = This.oParinte.nDviIdPartener
This.nNractDvi = Val(Nvl(This.oParinte.cDviNr, '0'))
This.cFelDocDvi = Nvl(This.oParinte.cDviFelDoc, '')
This.nIdFdocDVI = Nvl(This.oParinte.nDviIdFdoc, 0)
Endif
If Vartype(This.dDviData) <> 'D' Or Empty(This.dDviData)
This.dDviData = This.dDataAct
Endif
This.txtDviNr.Value = This.nNractDvi
This.txtDviData.Value = This.dDviData
This.txtDviPartener.Value = This.cDviPartener
Endif
This.Refresh()
ENDPROC
PROCEDURE actualizeaza_stare_valuta
*!* Propune cursul BNR (onom_curs.vc2 / clasa "curs") pentru valuta si data curente.
*!* Daca valuta e RON, cursul e fixat la 1 si nu se mai cere suma in valuta.
*!* Daca utilizatorul a editat manual cursul (lCursDirty), nu il mai suprascriu.
Local loCurs, lnCurs
If Empty(This.cValuta) Or Upper(Alltrim(This.cValuta)) == 'RON'
This.nCurs = 1
This.txtCurs.Value = 1
This.txtCurs.Enabled = .F.
This.chkInValutaCont.Value = 0
This.chkInValutaCont.Enabled = .F.
This.arata_valuta_curs(.T.)
Else
This.txtCurs.Enabled = .T.
This.chkInValutaCont.Enabled = .T.
If !This.lInValutaDirty
This.chkInValutaCont.Value = 1
Endif
This.arata_valuta_curs(This.chkInValutaCont.Value = 1)
Endif
This.seteaza_masti()
This.Refresh()
ENDPROC
PROCEDURE actualizeaza_tabstop
*!* Butoanele "..." ies din ordinea de tab cand valoarea lor e deja completata,
*!* ca Tab/Enter sa nu se mai opreasca pe ele (cautarea ramane pe dublu-click/GotFocus).
This.cmdFelDoc.TabStop = Empty(Nvl(This.nIdFdoc, 0)) And Empty(Alltrim(Nvl(This.cFelDoc, '')))
This.cmdPartener.TabStop = Empty(Nvl(This.nIdPartener, 0))
This.cmdExplicatieTva.TabStop = Empty(Nvl(This.nIdExplicatieTva, 0))
This.cmdFelDocDVI.TabStop = Empty(Nvl(This.nIdFdocDVI, 0)) And Empty(Alltrim(Nvl(This.cFelDocDvi, '')))
This.cmdDviPartener.TabStop = Empty(Nvl(This.nDviIdPartener, 0))
This.cmdValuta.TabStop = Empty(Nvl(This.nIdValuta, 0)) And Empty(Alltrim(Nvl(This.cValuta, '')))
ENDPROC
PROCEDURE arata_valuta_curs
*!* Arata/ascunde selectorul de valuta si cursul (bifa "Suma in valuta in contabilitate").
Lparameters tlArata
This.lblValuta.Visible = tlArata
This.txtValuta.Visible = tlArata
This.cmdValuta.Visible = tlArata
This.lblCurs.Visible = tlArata
This.txtCurs.Visible = tlArata
ENDPROC
PROCEDURE construieste_todlg
*!* Construieste obiectul toDlg pentru import_nota.do_adauga_factura().
*!* Contract populabil programatic (nu doar din UI) - vezi docs M2.
Local loT
loT = Createobject('Empty')
Addproperty(loT, 'serie_act', Alltrim(Nvl(This.cSerieAct, '')))
Addproperty(loT, 'nract', This.nNract)
Addproperty(loT, 'dataact', This.dDataAct)
Addproperty(loT, 'fdoc', This.cFelDoc)
Addproperty(loT, 'id_fdoc', This.nIdFdoc)
Addproperty(loT, 'id_partc', This.nIdPartener)
Addproperty(loT, 'partc', This.cPartener)
Addproperty(loT, 'explicatia', Alltrim(Nvl(This.cExplicatia, '')))
Addproperty(loT, 'suma', Iif(This.chkInValutaCont.Value = 1 And This.nCurs <> 0, Iif(This.nSumaLei <> 0, This.nSumaLei, Round(This.nSuma * This.nCurs, m.gnPC)), This.nSuma))
Addproperty(loT, 'suma_val', Iif(This.chkInValutaCont.Value = 1 And This.nCurs <> 0, This.nSuma, 0))
Addproperty(loT, 'in_valuta', This.chkInValutaCont.Value)
Addproperty(loT, 'participa_valuta', (This.chkParticipaValuta.Value = 1))
Addproperty(loT, 'id_valuta', Iif(This.chkInValutaCont.Value = 1, This.nIdValuta, 0))
Addproperty(loT, 'curs', Iif(This.chkInValutaCont.Value = 1, This.nCurs, 0))
Addproperty(loT, 'nume_val', Iif(This.chkInValutaCont.Value = 1, Alltrim(Nvl(This.cValuta, '')), ''))
Addproperty(loT, 'cTipTva', Iif(This.optTipTva.Value = 1, 'F', Iif(This.optTipTva.Value = 2, 'D', 'N')))
Addproperty(loT, 'id_jtva_coloana', This.nIdExplicatieTva)
If This.optTipTva.Value = 2
Addproperty(loT, 'dvi_serie', Chrtran(Alltrim(Nvl(This.cSerieDvi, '')), Chr(34), ''))
Addproperty(loT, 'dvi_nract', This.nNractDvi)
Addproperty(loT, 'dvi_dataact', This.dDviData)
Addproperty(loT, 'dvi_id_fdoc', This.nIdFdocDVI)
Addproperty(loT, 'dvi_fdoc', This.cFelDocDvi)
Addproperty(loT, 'dvi_id_partc', This.nDviIdPartener)
Addproperty(loT, 'dvi_partc', This.cDviPartener)
Addproperty(loT, 'dvi_scc', '401')
Addproperty(loT, 'dvi_tva_lei', This.nDviTvaLei)
Addproperty(loT, 'dvi_tva_val', This.nDviTvaVal)
Endif
Return loT
ENDPROC
PROCEDURE inainte_de_do_termin
*!* Hook standard _frmbase (apelat de do_termin, _frm_base.vc2:363): valideaza + adauga
*!* perechea (baza+TVA) prin import_nota.do_adauga_factura() +, daca reuseste, permite
*!* inchiderea dialogului (Return .T.). Return .F. tine dialogul deschis pentru corectare.
Local loFelDviCauta, llOk
If !Thisform.valideaza()
Return .F.
Endif
* la prima trecere pe "prin DVI" in aceasta sesiune, cer felul documentului DVI
* (devine cheia sesiunii pentru M1/memoria DVI - docs M2, autoplan #37)
If Thisform.optTipTva.Value = 2 And Empty(Nvl(Thisform.nIdFdocDVI, 0)) And Empty(Alltrim(Nvl(Thisform.cFelDocDvi, '')))
loFelDviCauta = caut_fdoc(.F., .T.)
If Vartype(loFelDviCauta) <> 'O' Or Empty(Nvl(loFelDviCauta.id_fdoc, 0))
Amessagebox('Alegeti felul documentului pentru DVI.', 0 + 48, 'Adauga factura')
Return .F.
Endif
Thisform.oParinte.nDviIdFdoc = loFelDviCauta.id_fdoc
Thisform.nIdFdocDVI = loFelDviCauta.id_fdoc
Thisform.cFelDocDvi = loFelDviCauta.fel_document
Thisform.oParinte.cDviFelDoc = loFelDviCauta.fel_document
Endif
Thisform.LockScreen = .T.
Wait Window 'Se adauga factura...' Nowait
llOk = Thisform.oParinte.do_adauga_factura(Thisform.construieste_todlg())
Wait Clear
If llOk And Thisform.optTipTva.Value = 2
* memoria DVI (identitate document) traieste pe import_nota
Thisform.oParinte.cDviSerie = Chrtran(Alltrim(Nvl(Thisform.cSerieDvi, '')), Chr(34), '')
Thisform.oParinte.cDviNr = Alltrim(Str(Thisform.nNractDvi, 14))
Thisform.oParinte.dDviData = Thisform.dDviData
Thisform.oParinte.nDviIdPartener = Thisform.nDviIdPartener
Thisform.oParinte.cDviPartener = Thisform.cDviPartener
Thisform.oParinte.cDviFelDoc = Thisform.cFelDocDvi
Thisform.oParinte.nDviIdFdoc = Thisform.nIdFdocDVI
Endif
Thisform.LockScreen = .F.
Return llOk
ENDPROC
PROCEDURE Init
Lparameters toParinte
DoDefault()
This.oParinte = toParinte
This.dData = Iif(Vartype(toParinte.oact.dataact) = 'D' And !Empty(toParinte.oact.dataact), toParinte.oact.dataact, Date())
This.dDataAct = This.dData
This.nIdValuta = Nvl(toParinte.oact.id_valuta, 0)
This.cValuta = Alltrim(Nvl(toParinte.oact.nume_val, ''))
This.nCurs = Nvl(toParinte.oact.curs, 1)
This.cExplicatia = ''
* pre-completare din antetul notei (toParinte.oact = Scatter din vact) - Marius alege
* felul documentului, furnizorul si cursul la deschiderea notei; dialogul le mosteneste,
* editabile. Guard Type() ca sa nu crape Init daca vreun camp lipseste din vact.
If Type('toParinte.oact.id_fdoc') <> 'U'
This.nIdFdoc = Nvl(toParinte.oact.id_fdoc, 0)
This.cFelDoc = Alltrim(Nvl(toParinte.oact.fdoc, ''))
Endif
If Type('toParinte.oact.id_partc') <> 'U'
This.nIdPartener = Nvl(toParinte.oact.id_partc, 0)
This.cPartener = Alltrim(Nvl(toParinte.oact.partc, ''))
Endif
If Type('toParinte.oact.serie_act') <> 'U'
This.cSerieAct = Alltrim(Nvl(toParinte.oact.serie_act, ''))
Endif
* memoria DVI, daca a mai fost folosita in aceasta sesiune a formularului import_nota
This.cDviSerie = toParinte.cDviSerie
This.cDviPartener = toParinte.cDviPartener
This.dDviData = toParinte.dDviData
This.nDviIdPartener = toParinte.nDviIdPartener
This.cFelDocDvi = Nvl(toParinte.cDviFelDoc, '')
This.nIdFdocDVI = Nvl(toParinte.nDviIdFdoc, 0)
This.nNractDvi = Val(Nvl(toParinte.cDviNr, '0'))
* explicatia TVA default: iau din randul 1 (baza) al perechii - baza defineste
* documentul (ex. "Ach. CE"); randul 2 e TVA ("TVA Ach. CE"). Daca introdc e goala
* (prima factura) iau din introdc_sablon, altfel din prima pereche din introdc.
Local lnSelIni
lnSelIni = Select()
This.nIdExplicatieTva = 0
This.cExplicatieTva = ''
This.nProcentTva = 0
If Used('introdc') And Reccount('introdc') >= 2
Select introdc
Go TOP
This.nIdExplicatieTva = Nvl(id_jtva_coloana, 0)
This.cExplicatieTva = Alltrim(Nvl(explicatie_tva, ''))
This.nProcentTva = Nvl(ptva, 0)
Else
If Used('introdc_sablon') And Reccount('introdc_sablon') >= 2
Select introdc_sablon
Go TOP
This.nIdExplicatieTva = Nvl(id_jtva_coloana, 0)
This.cExplicatieTva = Alltrim(Nvl(explicatie_tva, ''))
This.nProcentTva = Nvl(ptva, 0)
Endif
Endif
Select (lnSelIni)
This.optTipTva.Value = 1
This.actualizeaza_stare_valuta()
This.actualizeaza_stare_dvi()
This.actualizeaza_tabstop()
This.Refresh()
ENDPROC
PROCEDURE recalc_tva
*!* Precompleteaza TVA-ul DVI din baza facturii si cota (This.nProcentTva):
*!* in valuta: TVA_val = baza_val * cota/100, TVA_lei = TVA_val * curs;
*!* in lei (RON): TVA_lei = baza_lei * cota/100. Utilizatorul poate corecta.
Local lnCota, lnBazaVal, lnTvaVal, lnTvaLei
lnCota = Nvl(This.nProcentTva, 0)
* suma fara TVA in lei (editabila): o recalculez doar daca nu a fost editata manual
If !This.lSumaLeiDirty
If This.chkInValutaCont.Value = 1 And This.nCurs <> 0
This.nSumaLei = Round(This.nSuma * This.nCurs, m.gnPC)
Else
This.nSumaLei = Round(This.nSuma, m.gnPC)
Endif
This.txtSumaLei.Refresh()
Endif
If This.optTipTva.Value = 2 And lnCota > 0 And This.nSuma <> 0
If This.chkInValutaCont.Value = 1 And This.nCurs <> 0
lnBazaVal = This.nSuma
lnTvaVal = Round(lnBazaVal * lnCota / 100, m.gnPval)
lnTvaLei = Round(lnTvaVal * This.nCurs, m.gnPC)
Else
lnTvaVal = 0
lnTvaLei = Round(This.nSuma * lnCota / 100, m.gnPC)
Endif
This.nDviTvaVal = lnTvaVal
This.nDviTvaLei = lnTvaLei
This.txtDviTvaVal.Value = lnTvaVal
This.txtDviTvaLei.Value = lnTvaLei
Endif
ENDPROC
PROCEDURE seteaza_masti
*!* Masti de precizie pe sumele din dialog: valorile in valuta cu m.gnPval,
*!* valorile in lei cu m.gnPC - acelasi mecanism ca in grid (get_mask).
Local llValuta
llValuta = (This.chkInValutaCont.Value = 1 And This.nCurs <> 0)
This.txtSuma.InputMask = get_mask(12, Iif(llValuta, m.gnPval, m.gnPC))
This.txtSumaLei.InputMask = get_mask(12, m.gnPC)
This.txtDviTvaVal.InputMask = get_mask(12, m.gnPval)
This.txtDviTvaLei.InputMask = get_mask(12, m.gnPC)
ENDPROC
PROCEDURE valideaza
*!* Validari la "Termin", numite explicit, fara crash (docs/propuneri_ergonomie_import.md, M2).
If Empty(Nvl(This.nIdFdoc, 0)) And Empty(Alltrim(Nvl(This.cFelDoc, '')))
Amessagebox('Alegeti felul documentului.', 0 + 48, 'Adauga factura')
Return .F.
Endif
If This.nNract = 0
Amessagebox('Completati numarul actului.', 0 + 48, 'Adauga factura')
Return .F.
Endif
If Vartype(This.dDataAct) <> 'D' Or Empty(This.dDataAct)
Amessagebox('Completati data documentului.', 0 + 48, 'Adauga factura')
Return .F.
Endif
If Year(This.dDataAct) <> m.gnAn Or Month(This.dDataAct) <> m.gnLuna
Amessagebox('Data documentului nu este in perioada de lucru (' + Alltrim(Str(m.gnLuna)) + '/' + Alltrim(Str(m.gnAn)) + ').', 0 + 48, 'Adauga factura')
Return .F.
Endif
If Empty(Nvl(This.nIdPartener, 0))
Amessagebox('Alegeti partenerul.', 0 + 48, 'Adauga factura')
Return .F.
Endif
If This.nSuma = 0
Amessagebox('Suma nu poate fi zero.', 0 + 48, 'Adauga factura')
Return .F.
Endif
If This.optTipTva.Value = 1 And Empty(Nvl(This.nIdExplicatieTva, 0))
Amessagebox('Alegeti explicatia TVA.', 0 + 48, 'Adauga factura')
Return .F.
Endif
If This.optTipTva.Value = 2
If This.nNractDvi = 0 Or Vartype(This.dDviData) <> 'D' Or Empty(This.dDviData)
Amessagebox('Completati numarul si data DVI-ului.', 0 + 48, 'Adauga factura')
Return .F.
Endif
If Empty(Nvl(This.nDviIdPartener, 0))
Amessagebox('Alegeti partenerul vamal (DVI).', 0 + 48, 'Adauga factura')
Return .F.
Endif
If This.nDviTvaLei = 0
Amessagebox('TVA in lei (DVI) trebuie sa fie mai mare decat zero.', 0 + 48, 'Adauga factura')
Return .F.
Endif
Endif
Return .T.
ENDPROC
PROCEDURE chkInValutaCont.InteractiveChange
*!* bifa scoasa = suma NU se inregistreaza in valuta: valuta si cursul nu au sens,
*!* le ascund; valorile raman memorate pe forma si revin la re-bifare.
Thisform.lInValutaDirty = .T.
Thisform.arata_valuta_curs(This.Value = 1)
Thisform.seteaza_masti()
Thisform.recalc_tva()
ENDPROC
PROCEDURE cmdDviPartener.Click
Local loCauta
loCauta = caut_partener(-2, 'Alegeti partenerul DVI', .F., .T.)
If Vartype(loCauta) = 'O' And !Empty(Nvl(loCauta.id_part, 0))
Thisform.nDviIdPartener = loCauta.id_part
Thisform.cDviPartener = Alltrim(loCauta.denumire)
Thisform.txtDviPartener.Refresh()
Endif
Thisform.actualizeaza_tabstop()
ENDPROC
PROCEDURE cmdExplicatieTva.Click
*!* Cauta explicatia TVA filtrata dupa procentul ales (Thisform.nProcentTva) - acelasi
*!* mecanism ca in grid (do_modifica_explicatie_tva): cauta_alfa direct pe vjtva_coloane
*!* cu filtru pe cota_tva. Procent 0/gol => toate cotele.
Local loCauta, lnCota, lcFiltru
lnCota = Nvl(Thisform.nProcentTva, 0)
lcFiltru = [id_jtva_coloana > 0]
If lnCota > 0
lcFiltru = lcFiltru + [ and cota_tva = ] + Alltrim(Str(lnCota, 10, 2))
Endif
loCauta = cauta_alfa([select id_jtva_coloana, denumire, cota_tva FROM vjtva_coloane], [1=2], [], ;
[denumire], [denumire,cota_tva], [Alegeti explicatia TVA], [Explicatie TVA,Cota TVA], ;
[], .F., lcFiltru)
If Vartype(loCauta) <> 'O' Or Empty(Nvl(loCauta.id_jtva_coloana, 0))
Return
Endif
Thisform.nIdExplicatieTva = loCauta.id_jtva_coloana
Thisform.cExplicatieTva = Alltrim(loCauta.denumire)
Thisform.nProcentTva = Nvl(loCauta.cota_tva, 0)
Thisform.txtExplicatieTva.Refresh()
If Pemstatus(Thisform, 'txtProcentTva', 5)
Thisform.txtProcentTva.Refresh()
Endif
Thisform.recalc_tva()
Thisform.actualizeaza_tabstop()
ENDPROC
PROCEDURE cmdFelDoc.Click
Local loCauta
loCauta = caut_fdoc(.F., .T.)
If Vartype(loCauta) = 'O' And !Empty(Nvl(loCauta.id_fdoc, 0))
Thisform.nIdFdoc = loCauta.id_fdoc
Thisform.cFelDoc = loCauta.fel_document
Thisform.txtFelDoc.Refresh()
Thisform.txtSerie.SetFocus()
Endif
Thisform.actualizeaza_tabstop()
ENDPROC
PROCEDURE cmdFelDocDVI.Click
Local loCauta
loCauta = caut_fdoc(.F., .T.)
If Vartype(loCauta) = 'O' And !Empty(Nvl(loCauta.id_fdoc, 0))
Thisform.nIdFdocDVI = loCauta.id_fdoc
Thisform.cFelDocDVI = loCauta.fel_document
Thisform.txtFelDocDVI.Refresh()
Thisform.txtDVINr.SetFocus()
Endif
Thisform.actualizeaza_tabstop()
ENDPROC
PROCEDURE cmdPartener.Click
Local loCauta
loCauta = caut_partener(-2, 'Alegeti furnizorul', .F., .T.)
If Vartype(loCauta) = 'O' And !Empty(Nvl(loCauta.id_part, 0))
Thisform.nIdPartener = loCauta.id_part
Thisform.cPartener = Alltrim(loCauta.denumire)
Thisform.txtPartener.Refresh()
Thisform.txtSuma.SetFocus()
Endif
Thisform.actualizeaza_tabstop()
ENDPROC
PROCEDURE cmdValuta.Click
Local loCauta
loCauta = caut_valuta(, .F., .F.)
If Vartype(loCauta) = 'O' And !Empty(Nvl(loCauta.id_valuta, 0))
Thisform.nIdValuta = loCauta.id_valuta
Thisform.cValuta = Alltrim(loCauta.nume_val)
Thisform.txtValuta.Refresh()
Thisform.lCursDirty = .F.
Thisform.lInValutaDirty = .F.
Thisform.actualizeaza_stare_valuta()
Thisform.recalc_tva()
Endif
Thisform.actualizeaza_tabstop()
ENDPROC
PROCEDURE optTipTva.InteractiveChange
Thisform.actualizeaza_stare_dvi()
Thisform.recalc_tva()
ENDPROC
PROCEDURE txtCurs.Valid
If !Thisform.lSuprimaDirty
Thisform.lCursDirty = .T.
Endif
Thisform.nCurs = This.Value
Thisform.recalc_tva()
ENDPROC
PROCEDURE txtData.Valid
This.Parent.dDataAct = This.Value
This.Parent.actualizeaza_stare_valuta()
ENDPROC
PROCEDURE txtDviPartener.DblClick
Thisform.cmddviPartener.Click()
ENDPROC
PROCEDURE txtDviPartener.GotFocus
If This.Tag == 'SKIP'
This.Tag = ''
Return
Endif
If Thisform.optTipTva.Value = 2 And Empty(Nvl(Thisform.nDviIdPartener, 0))
This.Tag = 'SKIP'
Thisform.cmdDviPartener.Click()
Endif
ENDPROC
PROCEDURE txtDviPartener.InteractiveChange
Thisform.cmddviPartener.Click()
This.Value = Thisform.cDviPartener
ENDPROC
PROCEDURE txtExplicatieTva.DblClick
Thisform.cmdExplicatieTva.Click()
ENDPROC
PROCEDURE txtExplicatieTva.InteractiveChange
Thisform.cmdExplicatieTva.Click()
this.Value = Thisform.cExplicatieTva
ENDPROC
PROCEDURE txtFelDoc.DblClick
thisform.cmdfelDoc.Click()
ENDPROC
PROCEDURE txtFelDoc.GotFocus
If This.Tag == 'SKIP'
This.Tag = ''
Return
Endif
If Empty(Nvl(Thisform.nIdFdoc, 0)) And Empty(Alltrim(Nvl(Thisform.cFelDoc, '')))
This.Tag = 'SKIP'
Thisform.cmdFelDoc.Click()
Endif
ENDPROC
PROCEDURE txtFelDoc.InteractiveChange
thisform.cmdfelDoc.Click()
This.Value = Thisform.cFelDoc
ENDPROC
PROCEDURE txtFelDocDVI.DblClick
thisform.cmdfelDocDVI.Click()
ENDPROC
PROCEDURE txtFelDocDVI.GotFocus
If This.Tag == 'SKIP'
This.Tag = ''
Return
Endif
If Thisform.optTipTva.Value = 2 And Empty(Nvl(Thisform.nIdFdocDVI, 0)) And Empty(Alltrim(Nvl(Thisform.cFelDocDvi, '')))
This.Tag = 'SKIP'
Thisform.cmdFelDocDVI.Click()
Endif
ENDPROC
PROCEDURE txtFelDocDVI.InteractiveChange
Thisform.cmdFelDocDVI.Click()
This.Value = Thisform.cFelDocDVI
ENDPROC
PROCEDURE txtPartener.DblClick
Thisform.cmdPartener.Click()
ENDPROC
PROCEDURE txtPartener.GotFocus
If This.Tag == 'SKIP'
This.Tag = ''
Return
Endif
If Empty(Nvl(Thisform.nIdPartener, 0))
This.Tag = 'SKIP'
Thisform.cmdPartener.Click()
Endif
ENDPROC
PROCEDURE txtPartener.InteractiveChange
Thisform.cmdPartener.Click()
This.Value = Thisform.cPartener
ENDPROC
PROCEDURE txtProcentTva.Valid
Thisform.nProcentTva = This.Value
Thisform.recalc_tva()
ENDPROC
PROCEDURE txtSuma.Valid
If This.Value <> Thisform.nSuma
* suma s-a schimbat: reiau calculul automat al sumei in lei
Thisform.lSumaLeiDirty = .F.
Endif
Thisform.nSuma = This.Value
Thisform.recalc_tva()
ENDPROC
PROCEDURE txtSumaLei.Valid
If This.Value <> Thisform.nSumaLei
Thisform.nSumaLei = This.Value
Thisform.lSumaLeiDirty = .T.
Endif
ENDPROC
PROCEDURE txtValuta.DblClick
Thisform.cmdvaluta.Click()
ENDPROC
ENDDEFINE
DEFINE CLASS import_nir 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="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_leiftva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_leiadaos" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_leitva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_valftva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_valadaos" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_valtva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblLei" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblValuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cDenumire.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cDenumire.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cCodMat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cCodMat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cCant.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cCant.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPretFactura.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPretFactura.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPretValutaCalculat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPretValutaCalculat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPretLeiCalculat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPretLeiCalculat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cValoareValutaFactura.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cValoareValutaFactura.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cValoareValutaCalculat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cValoareValutaCalculat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cValoareLeiCalculat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cValoareLeiCalculat.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cCont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cCont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cAcont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cAcont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSerie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSerie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cLot.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cLot.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cAdata_expirare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cAdata_expirare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_diferente_lei" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_diferente_valuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_adauga1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_adauga2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: assign_analitic
*m: do_calculeaza_diferente
*m: do_modiparam
*p: lintern && Achizitie din import (.F.) / din intern (.T.)
*p: nbaza_lei
*p: nbaza_val
*p: ncurs
*p: ndif_lei
*p: ndif_val
*p: ntva_lei
*p: ntva_val
*p: oact
*p: procent_lei
*p: procent_val
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
FontCharSet = 238
Height = 432
lintern = .F.
Name = "import_nir"
nbaza_lei = 0
nbaza_val = 0
ncurs = 0
ndif_lei = 0
ndif_val = 0
ntva_lei = 0
ntva_val = 0
oact = .F.
procent_lei = 0
procent_val = 0
Width = 768
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = -12
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 797
_shape2.Height = 29
_shape2.Left = 673
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Visible = .F.
_shape2.Width = 194
Lb_titlu_alb_b121.Caption = "INTRARE IN GESTIUNE MARFÃ/MATERIALE IMPORT"
Lb_titlu_alb_b121.FontSize = 11
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 1
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 738
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Anchor = 8
But_renunt1.Left = 707
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 3
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
Anchor = 8, ;
Left = 677, ;
Name = "But_modiparam1", ;
ToolTipText = "Import fisier XLS", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_diferente_lei' AS clb_tx_simplu WITH ;
Anchor = 12, ;
Height = 29, ;
Left = 543, ;
Name = "Clb_diferente_lei", ;
TabIndex = 15, ;
TabStop = .F., ;
Top = 392, ;
Width = 219, ;
Text_simplu1.ControlSource = "thisform.ndif_lei", ;
Text_simplu1.DisabledBackColor = 230,242,255, ;
Text_simplu1.FontName = "Arial Narrow", ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(10,gnPc)), ;
Text_simplu1.Left = 79, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 135, ;
Lb_simplu1.Caption = "Diferenþe lei", ;
Lb_simplu1.Comment = "", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_diferente_valuta' AS clb_tx_simplu WITH ;
Anchor = 12, ;
Height = 29, ;
Left = 318, ;
Name = "clb_diferente_valuta", ;
TabIndex = 16, ;
TabStop = .F., ;
Top = 392, ;
Width = 226, ;
Text_simplu1.ControlSource = "thisform.ndif_val", ;
Text_simplu1.DisabledBackColor = 240,248,255, ;
Text_simplu1.FontName = "Arial Narrow", ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(10,gnPval)), ;
Text_simplu1.Left = 98, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 125, ;
Lb_simplu1.Caption = "Diferenþe valutã", ;
Lb_simplu1.Comment = "", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_leiadaos' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 615, ;
Name = "Clb_leiadaos", ;
TabIndex = 7, ;
TabStop = .F., ;
Top = 51, ;
Width = 146, ;
Text_simplu1.ControlSource = "thisform.procent_lei", ;
Text_simplu1.FontName = "Arial Narrow", ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = "9999.99", ;
Text_simplu1.Left = 93, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 49, ;
Lb_simplu1.Caption = "Procent adaos", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_leiftva' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 69, ;
Name = "Clb_leiftva", ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 51, ;
Width = 270, ;
Text_simplu1.ControlSource = "thisform.nbaza_lei", ;
Text_simplu1.FontName = "Arial Narrow", ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(10,gnPc)), ;
Text_simplu1.Left = 131, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 135, ;
Lb_simplu1.Caption = "Total facturat fãrã TVA", ;
Lb_simplu1.Comment = "", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_leitva' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 342, ;
Name = "Clb_leitva", ;
TabIndex = 8, ;
TabStop = .F., ;
Top = 51, ;
Width = 270, ;
Text_simplu1.ControlSource = "thisform.ntva_lei", ;
Text_simplu1.FontName = "Arial Narrow", ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(10,gnPc)), ;
Text_simplu1.Left = 131, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 135, ;
Lb_simplu1.Caption = "Total facturat TVA", ;
Lb_simplu1.Comment = "", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_valadaos' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 615, ;
Name = "Clb_valadaos", ;
TabIndex = 10, ;
TabStop = .F., ;
Top = 79, ;
Width = 146, ;
Text_simplu1.ControlSource = "thisform.procent_val", ;
Text_simplu1.FontName = "Arial Narrow", ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = "9999.99", ;
Text_simplu1.Left = 93, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 49, ;
Lb_simplu1.Caption = "Procent adaos", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_valftva' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 69, ;
Name = "Clb_valftva", ;
TabIndex = 9, ;
TabStop = .F., ;
Top = 79, ;
Width = 270, ;
Text_simplu1.ControlSource = "thisform.nbaza_val", ;
Text_simplu1.FontName = "Arial Narrow", ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(10,gnPval)), ;
Text_simplu1.Left = 131, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 135, ;
Lb_simplu1.Caption = "Total facturat fãrã TVA", ;
Lb_simplu1.Comment = "", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_valtva' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 342, ;
Name = "Clb_valtva", ;
TabIndex = 11, ;
TabStop = .F., ;
Top = 79, ;
Width = 270, ;
Text_simplu1.ControlSource = "thisform.ntva_val", ;
Text_simplu1.FontName = "Arial Narrow", ;
Text_simplu1.FontSize = 10, ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(10,gnPval)), ;
Text_simplu1.Left = 131, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 135, ;
Lb_simplu1.Caption = "Total facturat TVA", ;
Lb_simplu1.Comment = "", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_adauga1' AS cmd_adauga WITH ;
Anchor = 4, ;
Caption = "\<Adaugã repere", ;
FontBold = .F., ;
Height = 27, ;
Left = 10, ;
Name = "Cmd_adauga1", ;
TabIndex = 17, ;
Top = 393, ;
Width = 96
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_adauga2' AS cmd_adauga WITH ;
Anchor = 4, ;
caction = do_copie, ;
Caption = "\<Copiazã reper", ;
FontBold = .F., ;
Height = 27, ;
Left = 118, ;
Name = "Cmd_adauga2", ;
TabIndex = 17, ;
Top = 393, ;
Width = 96
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
Anchor = 4, ;
caction = do_Reface, ;
Caption = "\<Recalculeazã", ;
FontBold = .F., ;
Height = 27, ;
Left = 224, ;
Name = "Cmd_executa1", ;
TabIndex = 5, ;
Top = 393, ;
Width = 89
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Grid1' AS grid WITH ;
Anchor = 15, ;
ColumnCount = 15, ;
FontSize = 10, ;
Height = 273, ;
Left = 7, ;
Name = "Grid1", ;
Panel = 1, ;
RecordSource = "rul_temp", ;
RowHeight = 19, ;
TabIndex = 14, ;
Top = 115, ;
Width = 756, ;
Column1.ControlSource = "denumire", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "cDenumire", ;
Column1.ReadOnly = .T., ;
Column1.Width = 181, ;
Column2.ControlSource = "codmat", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "cCodMat", ;
Column2.ReadOnly = .T., ;
Column2.Width = 84, ;
Column3.BackColor = 240,248,255, ;
Column3.ColumnOrder = 6, ;
Column3.ControlSource = "cant", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.InputMask = (get_mask(10,gnPcant)), ;
Column3.Name = "cCant", ;
Column3.Width = 67, ;
Column4.BackColor = 230,242,255, ;
Column4.ColumnOrder = 7, ;
Column4.ControlSource = "pret_val", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.InputMask = (get_mask(10,gnPpretval)), ;
Column4.Name = "cPretFactura", ;
Column4.Width = 108, ;
Column5.BackColor = 240,248,255, ;
Column5.ColumnOrder = 9, ;
Column5.ControlSource = "pretd", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.InputMask = (get_mask(10,gnPPretval)), ;
Column5.Name = "cPretValutaCalculat", ;
Column5.Width = 114, ;
Column6.BackColor = 230,242,255, ;
Column6.ColumnOrder = 10, ;
Column6.ControlSource = "pret", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.InputMask = (get_mask(10,gnPpret)), ;
Column6.Name = "cPretLeiCalculat", ;
Column6.Width = 83, ;
Column7.ColumnOrder = 11, ;
Column7.ControlSource = "round(pret_val*cant, gnPval)", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.InputMask = (get_mask(16,gnPval)), ;
Column7.Name = "cValoareValutaFactura", ;
Column7.Width = 128, ;
Column8.ColumnOrder = 12, ;
Column8.ControlSource = "round(pretd*cant, gnPval)", ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.InputMask = (get_mask(16,gnPval)), ;
Column8.Name = "cValoareValutaCalculat", ;
Column8.Width = 97, ;
Column9.ColumnOrder = 13, ;
Column9.ControlSource = "round(pret*cant, gnPc)", ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.InputMask = (get_mask(10,gnPc)), ;
Column9.Name = "cValoareLeiCalculat", ;
Column9.Width = 104, ;
Column10.BackColor = 240,248,255, ;
Column10.ColumnOrder = 4, ;
Column10.ControlSource = "cont", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.Name = "cCont", ;
Column10.ReadOnly = .F., ;
Column10.Width = 43, ;
Column11.BackColor = 240,248,255, ;
Column11.ColumnOrder = 5, ;
Column11.ControlSource = "acont", ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.Name = "cAcont", ;
Column11.ReadOnly = .F., ;
Column11.Width = 47, ;
Column12.BackColor = 240,248,255, ;
Column12.ColumnOrder = 3, ;
Column12.ControlSource = "serie", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.Format = "!K", ;
Column12.Name = "cSerie", ;
Column12.Width = 123, ;
Column13.BackColor = 240,248,255, ;
Column13.ColumnOrder = 14, ;
Column13.ControlSource = "lot", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.Name = "cLot", ;
Column14.BackColor = 240,248,255, ;
Column14.ColumnOrder = 15, ;
Column14.ControlSource = "adata_expirare", ;
Column14.FontName = "Arial", ;
Column14.FontSize = 10, ;
Column14.Name = "cAdata_expirare", ;
Column14.Width = 79, ;
Column15.BackColor = 240,248,255, ;
Column15.ColumnOrder = 8, ;
Column15.ControlSource = "proc_disc", ;
Column15.FontName = "Arial", ;
Column15.FontSize = 10, ;
Column15.InputMask = (get_mask(3,2)), ;
Column15.Name = "Column1", ;
Column15.Width = 50
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'Grid1.cAcont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cAcont.Text1' AS textbox WITH ;
BackColor = 240,248,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cAdata_expirare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data expirare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cAdata_expirare.Text1' AS textbox WITH ;
BackColor = 240,248,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cCant.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cantitate", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cCant.Text1' AS textbox WITH ;
BackColor = 240,248,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cCodMat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod material", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cCodMat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cCont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cCont.Text1' AS textbox WITH ;
BackColor = 240,248,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cDenumire.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cDenumire.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cLot.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lot", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cLot.Text1' AS textbox WITH ;
BackColor = 240,248,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
Caption = "Disc. %", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
BackColor = 240,248,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cPretFactura.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret valuta factura", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cPretFactura.Text1' AS textbox WITH ;
BackColor = 230,242,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cPretLeiCalculat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret unitar", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cPretLeiCalculat.Text1' AS textbox WITH ;
BackColor = 230,242,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cPretValutaCalculat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Pret valuta calculat", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cPretValutaCalculat.Text1' AS textbox WITH ;
BackColor = 240,248,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cSerie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cSerie.Text1' AS textbox WITH ;
BackColor = 240,248,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cValoareLeiCalculat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cValoareLeiCalculat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cValoareValutaCalculat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cValoareValutaCalculat.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cValoareValutaFactura.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare valuta factura", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cValoareValutaFactura.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Moneda", ;
FontBold = .T., ;
Height = 17, ;
Left = 7, ;
Name = "Label3", ;
TabIndex = 4, ;
Top = 35, ;
Width = 45, ;
WordWrap = .T.
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblLei' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Naþionalã", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 12, ;
Name = "lblLei", ;
TabIndex = 12, ;
Top = 57, ;
Width = 53, ;
WordWrap = .T.
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblValuta' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Valutã", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 12, ;
Name = "lblValuta", ;
TabIndex = 13, ;
Top = 85, ;
Width = 33, ;
WordWrap = .T.
*< END OBJECT: BaseClass="label" />
PROCEDURE assign_analitic
PARAMETERS tcCont,pcAct,pcRul
PRIVATE pcCont,pcAct,pcRul,pParamP,pParamS
STORE 0 TO pParamP,pParamS
lcAnalitic = ''
lcAlias = ALIAS()
pcCont = ALLTRIM(tcCont)
lcSel = [SELECT * from ] + gcs + [.config_analitice WHERE cont = ?pcCont]
lcCursor = 'crs_cfg_ana'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
IF lnSucces > 0
IF RECCOUNT('crs_cfg_ana')=0
USE IN crs_cfg_ana
lnSucces = -1
ENDIF
ENDIF
IF lnSucces > 0
SELECT crs_cfg_ana
SCATTER NAME ocfg
lcCampPrefix = NVL(ALLTRIM(ocfg.camp_leg_prefix),'')
lcCampSufix = NVL(ALLTRIM(ocfg.camp_leg_sufix),'')
IF !EMPTY(lcCampPrefix)
IF TYPE('&pcRul..'+lcCampPrefix) # 'U'
pParamP = &pcRul..&lcCampPrefix
ELSE
IF TYPE('&pcAct..'+lcCampPrefix) # 'U'
pParamP = &pcAct..&lcCampPrefix
ENDIF
ENDIF
ENDIF
IF !EMPTY(lcCampSufix)
IF TYPE('&pcRul..'+lcCampSufix) # 'U'
pParamS = &pcRul..&lcCampSufix
ELSE
IF TYPE('&pcAct..'+lcCampSufix) # 'U'
pParamS = &pcAct..&lcCampSufix
ENDIF
ENDIF
ENDIF
lcSel = [{call fconturi_analitice(?gcs,?pcCont,0,?pParamP,?pParamS)}]
lcCursor = 'crs_analitice'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
ENDIF
ENDIF
&& iau Primul Simbol Analitic din Tabel - ordonat pt ca e selectat cu Distinct
IF lnSucces > 0
SELECT crs_analitice
GO top
lcAnalitic = ALLTRIM(acont)
ENDIF
&& verificare analiticului cu Planul de Conturi
IF lnSucces > 0
lcSel = [SELECT cont,acont from ] + gcs + [.vplcont_analitic WHERE cont = ?pcCont and acont = ?lcAnalitic and an = ?gnAn ]
lcCursor = 'crs_verific'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
ENDIF
ENDIF
IF lnSucces > 0
IF RECCOUNT('crs_verific')=0
lnSucces = -1
ENDIF
ENDIF
IF USED('crs_cfg_ana')
USE IN crs_cfg_ana
ENDIF
IF USED('crs_verific')
USE IN crs_verific
ENDIF
IF USED('crs_analitice')
USE IN crs_analitice
ENDIF
IF USED('crs_verific')
USE IN crs_verific
ENDIF
IF lnSucces < 0
lcAnalitic = ''
ENDIF
SELECT (lcAlias)
RETURN lcAnalitic
****
ENDPROC
PROCEDURE do_adauga
lcLista = ['-1']
SELECT DISTINCT scd FROM actactan WHERE suma <> 0 INTO CURSOR tconturi
SELECT tconturi
SCAN
lcLista = lcLista + [,'] + ALLTRIM(scd) + [']
ENDSCAN
LOCAL lcXMLArticole, lcFiltru, lcCrsArt, lcCrsNir
lcFiltru = [a.cont in (] + lcLista + [)]
lcXMLArticole = cauta_nom_articole(lcFiltru) && ocautare.prg - selectie multipla (click/SPACE); adauga singura a.inactiv = 0
IF gnButon = 1 AND !EMPTY(lcXMLArticole)
lcCrsArt = [crsArtAlese]
XMLTOCURSOR(lcXMLArticole, lcCrsArt)
lcCrsNir = THIS.grid1.RECORDSOURCE
loAct = THIS.oact
SELECT (lcCrsArt)
SCAN
SCATTER NAME loArt
SELECT (lcCrsNir)
APPEND BLANK
GATHER NAME loAct
GATHER NAME loArt
REPLACE id_gestiune WITH loAct.id_gestin
SCATTER NAME lorul && pentru id_gestiune
lcAcont = THISFORM.assign_analitic(lorul.CONT,THISFORM.oact,'lorul')
SELECT (lcCrsNir)
REPLACE acont WITH lcAcont, tva WITH ROUND(pret * (proc_tva-1), gnPpret)
SELECT (lcCrsArt)
ENDSCAN
USE IN (lcCrsArt)
THIS.grid1.REFRESH
ENDIF
THIS.GRid1.cserie.SetFocus()
ENDPROC
PROCEDURE do_calculeaza_diferente
PARAMETERS tnRecNo, tcCursor && modificare v 2.1.3 : am adaugat tcCursor
*!* modificare v 2.1.3
*!* lcSel = Thisform.grid1.RecordSource
If Empty(tcCursor)
lcSel = Thisform.grid1.RecordSource
Else
lcSel = tcCursor
Endif
*!* modificare v 2.1.3 ^
SELECT (lcSel)
SUM ROUND(Pret*cant,gnPc) TO lnLeiTot
SUM ROUND(Pretd*cant,gnPval) TO lnValTot
thisform.ndif_lei = thisform.nbaza_lei - lnLeiTot
thisform.ndif_val = thisform.nbaza_val - lnValTot
thisform.clb_diferente_lei.Refresh
thisform.clb_diferente_valuta.Refresh
SELECT (lcSel)
IF tnRecNo = 1
LOCATE
ELSE
GO tnRecNo
ENDIF
ENDPROC
PROCEDURE do_copie
lcSelect = this.grid1.RecordSource
SELECT (lcSelect)
SCATTER NAME loRec
INSERT INTO (lcSelect) FROM NAME loRec
this.do_reface()
this.grid1.SetFocus()
ENDPROC
PROCEDURE do_executa
PARAMETERS tnNivel, tRecNo, tnValue, tcCursor && modificare v 2.1.3 : am adaugat tcCursor
*!* DEBUG
*!* SUSPEND
*!* modificare v 2.1.3
*!* lcSel = Thisform.grid1.RecordSource
If Empty(tcCursor)
lcSel = Thisform.grid1.RecordSource
Else
lcSel = tcCursor
Endif
*!* modificare v 2.1.3 ^
SELECT (lcSel)
IF tnNivel <= 2
*WAIT WINDOW STR(tnValue,16,4)
IF this.lIntern
IF tnNivel <= 1
lnPretLei = ROUND(tnValue*thisform.procent_lei/100,gnPPret) && modificare v 2.1.39 : gnPPret in loc de gnPVal
ELSE
lnPretLei = tnValue
ENDIF
&& modificare v 2.1.39 : gnPPret in loc de gnPVal
lnPretLei = ROUND(lnPretLei - (lnPretLei * proc_disc/100 ),gnPPret) && modificare v 2.1.37
REPLACE pret WITH lnPretLei
ELSE
IF tnNivel <= 1
lnPretVal = ROUND(tnValue*thisform.procent_val/100,gnPPretval) && modificare v 2.1.39 : gnPPretval in loc de gnPVal
ELSE
lnPretval = tnValue
ENDIF
lnPretVal = ROUND(lnPretVal - (lnPretVal * proc_disc/100 ),gnPPretval) && modificare v 2.1.39 : gnPPretval in loc de gnPVal
REPLACE pretd WITH lnPretval
lnPretLei = ROUND(ROUND(lnPretval*thisform.ncurs,gnPpret)*thisform.procent_lei/100,gnPpret)
REPLACE pret WITH lnPretLei
ENDIF
ENDIF
this.do_calculeaza_diferente(tRecNo,tcCursor) && modificare v 2.1.3 : am adaugat tcCursor
ENDPROC
PROCEDURE do_modiparam
Local lcSelect, lcFisier, lnIdArticol, lcCursor, lcCont, loAct, lnInregistrari
LOCAL loEx as Exception
Local lcAcont, lcDenumire, lcSelect2, lcSql, llSucces, lnSucces, loArticol
Local lcMesaj
Local lnRec
Local lnInStoc
Private pnIdArticol, lorul
loAct = This.oact
CALCULATE CNT() FOR !DELETED() TO lnInregistrari IN rul_temp
If m.lnInregistrari > 0
IF AMESSAGEBOX('Doriti sa stergeti reperele deja existente?',4+32,_screen.Caption) = 6
SELECT rul_temp
DELETE ALL
ENDIF
*!* amessagebox("Nu puteti face import daca ati adaugat deja repere pe nir!",48,"Atentie")
*!* Return
Endif
amessagebox("Fisierul XLS trebuie sa contina campurile (in aceasta ordine si fara capul de tabel): " + CHR(13) + CHR(10) + ;
[COD PRODUS, DENUMIRE, UM, CANTITATE, PRET IN VALUTA FARA TVA (de pe factura)] + Chr(13) + Chr(10) + Chr(13) + Chr(10) + ;
[Fisierul trebuie sa fie salvat cu formatul "Microsoft Excel 5.0/95 Workbook (*.xls)"] ,48,"Atentie")
lcFisier = Getfile("xls","Fisier factura","Alegeti",0,"Import fisier factura - format XLS")
If Empty(m.lcFisier) Or !File(m.lcFisier)
Return
ENDIF
lcSelect = "rul_temp"
llSucces = .F.
TRY
SELECT 0
Import From (lcFisier) Type Xls
lcSelect2 = Alias()
SELECT ALLTRIM(UPPER(TRANSFORM(a))) as codmat, UPPER(ALLTRIM(TRANSFORM(b))) as denumire, UPPER(ALLTRIM(TRANSFORM(c))) as um, ROUND(d,6) as cant, ROUND(e,6) as pret_val ;
FROM &lcSelect2 ;
INTO CURSOR crsImport
llSucces = .T.
Catch To loEx
lcMesaj = 'Fisierul ' + m.lcFisier + ' nu a putut fi importat.' + Chr(13) + Chr(10) + TRANSFORM(loEx.ErrorNo) + " "
IF loEx.ErrorNo = 1661
lcMesaj = m.lcMesaj + [Salvati fisierul in formatul "Microsoft Excel 5.0/95 Workbook (*.xls)"]
ELSE
lcMesaj = m.lcMesaj + loEx.Message
ENDIF
amessagebox(m.lcMesaj, 0+48, _Screen.Caption)
ENDTRY
IF !m.llSucces
RETURN
ENDIF
USE IN (SELECT(m.lcSelect2))
lcSelect2 = "crsImport"
*!* A = codmat
*!* B = denumire
*!* C = um
*!* D = cantitate
*!* E = pret achizitie in valuta
save_grid_tag(Thisform.grid1)
Select Distinct scd From actactan Where Inlist(Left(Alltrim(scd),1),'2','3') And suma <> 0 Into Cursor tconturi
If Reccount('tconturi') = 1
Select tconturi
lcCont = Alltrim(scd)
Else
lcCont = []
Endif
Use In tconturi
If Reccount(m.lcSelect2) > 0
lcCursor = [crstmpimpart]
Select (lcSelect2)
Scan
Scatter Name loArticol
If !Empty(Nvl(loArticol.cant,0))
pnIdArticol = 0
lcSql = [select id_articol,denumire,in_stoc,cont from nom_articole where UPPER(codmat) = '] + loArticol.codmat + [' and sters = 0]
If !goExecutor.oExecuta(lcSql,lcCursor)
amessagebox("A fost inregistrata o eroare la cautarea articolului " + loArticol.denumire + " pe nir!" + crlf + ;
"Iesiti din acest nir si reincercati operatia de preluare a fisierului!",48,"Atentie")
Exit
Else
Select (lcCursor)
If Reccount(lcCursor) > 0
Locate For Upper(Alltrim(denumire)) = loArticol.denumire
If !Found()
Go Top
Endif
lcDenumire = Upper(Alltrim(denumire))
If lcDenumire <> loArticol.denumire
If amessagebox("Articolul " + loArticol.denumire + " a fost gasit in baza de date dupa cod material, dar are denumirea de "+;
lcDenumire + ".Doriti sa pastrati denumirea din baza de date?" + crlf + ;
"( Daca apasati nu, atunci se va crea un articol nou cu denumirea din fisier )",4+32,"Denumire diferita") = 6
lnIdArticol = id_articol
lnInStoc = Nvl(in_stoc,1)
loArticol.denumire = m.lcDenumire
Else
*!*adauga_articol
If Empty(m.lcCont)
lcCont = Inputbox("Introduceti contul pentru articolul " + loArticol.denumire, "Cont articol ", m.lcCont, 5000,[371],[371])
Endif
lcSql = [begin pack_preturi.adauga_articol(?gnAn,'] + loArticol.codmat + [',NULL,NULL,] + ;
['] + loArticol.denumire + [','] + loArticol.um + [',] + ;
['] + Upper(Alltrim(m.lcCont)) + [',Null,0,0,NULL,NULL,0,NULL,1,0,0,?gnIdUtil,] + ;
ALLTRIM(Str(loAct.id_partc)) + [,0,0,?@pnIdArticol); end;]
goExecutor.oExecuta(lcSql)
lnIdArticol = m.pnIdArticol
lnInStoc = 1
Endif
Else
lnIdArticol = id_articol
lnInStoc = Nvl(in_stoc,1)
Endif
Else
*!* adauga articol
If Empty(m.lcCont)
lcCont = Inputbox("Introduceti contul pentru articolul " + loArticol.denumire, "Cont articol ", m.lcCont, 5000,[371],[371])
Endif
lcSql = [begin pack_preturi.adauga_articol(?gnAn,'] + loArticol.codmat + [',NULL,NULL,] + ;
['] + loArticol.denumire + [','] + loArticol.um + [',] + ;
['] + Upper(Alltrim(m.lcCont)) + [',Null,0,0,NULL,NULL,0,NULL,1,0,0,?gnIdUtil,] + ;
ALLTRIM(Str(loAct.id_partc)) + [,0,0,?@pnIdArticol); end;]
goExecutor.oExecuta(lcSql)
lnIdArticol = m.pnIdArticol
lnInStoc = 1
Endif
If lnIdArticol = 0
amessagebox("A fost inregistrata o eroare la adaugarea articolului " + loArticol.denumire + " pe NIR!" + crlf + ;
"Iesiti din acest nir si reincercati operatia de preluare a fisierului!",48,"Atentie")
Exit
Use In (lcCursor)
Else
*!* completez in rul_temp
Select (lcSelect)
Append Blank
Gather Name loAct
Replace Cont With m.lcCont, id_gestiune With loAct.id_gestin, id_articol With m.lnIdArticol,;
denumire With loArticol.denumire, codmat With loArticol.codmat,;
um With loArticol.um, cant With loArticol.cant, pret_val With loArticol.pret_val,;
in_stoc With m.lnInStoc
Scatter Name lorul
lcAcont = Thisform.assign_analitic(lorul.Cont, Thisform.oact, 'lorul')
Select (m.lcSelect)
Replace acont With m.lcAcont, tva With Round(Pret * (proc_tva-1), m.gnPpret)
Thisform.do_executa(1, Recno(), pret_val, m.lcSelect)
Use In (m.lcCursor)
Endif
Endif
Endif
Select (m.lcSelect2)
Endscan
Endif
Use In (select(lcSelect2))
Select (lcSelect)
GO TOP
lnRec = RECNO()
thisform.Do_calculeaza_diferente(m.lnRec, m.lcSelect)
restore_grid_tag(Thisform.grid1)
this.grid1.SetFocus()
ENDPROC
PROCEDURE do_reface
lcSel = Thisform.grid1.RecordSource
Select (lcSel)
lnNrIreg = Reccount(lcSel)
lnRec = Recno()
lnLeiTot = 0
lnValTot = 0
i = 0
Scan
i = i + 1
Scatter Name orul
*!* modificare v 2.1.37
*!* lnPretval = Round(orul.pret_val*Thisform.procent_val/100,gnPval)
*!* lnPretval = Round(lnPretval - (lnPretval * orul.proc_disc/100 ),gnPval)
*!* lnPretLei = Round(Round(lnPretval*Thisform.ncurs,gnPpret)*Thisform.procent_lei/100,gnPpret)
If Thisform.lIntern
lnPretlei = Round(orul.pret_lei*Thisform.procent_lei/100,gnPPret) && modificare v 2.1.39 : gnPPret in loc de gnPVal
lnPretlei = Round(lnPretlei - (lnPretlei * orul.proc_disc/100 ),gnPPret) && modificare v 2.1.39 : gnPPret in loc de gnPVal
lnPretval = 0
Else
lnPretval = Round(orul.pret_val*Thisform.procent_val/100,gnPPretVal) && modificare v 2.1.39 : gnPPretVal in loc de gnPVal
lnPretval = Round(lnPretval - (lnPretval * orul.proc_disc/100 ),gnPPretVal) && modificare v 2.1.39 : gnPPretVal in loc de gnPVal
lnPretlei = Round(Round(lnPretval*Thisform.ncurs,gnPpret)*Thisform.procent_lei/100,gnPpret)
Endif
*!* modificare v 2.1.37 ^
Replace pretd With lnPretval
Replace Pret With lnPretlei
lnLeiTot = lnLeiTot + Round(lnPretlei*cant,gnPc)
lnValTot = lnValTot + Round(lnPretval*cant,gnPval)
*!* IF i = lnNrIreg
*!* REPLACE pret WITH pret + (thisform.nbaza_lei - lnPretTot)
*!* ENDIF
Endscan
Thisform.Do_calculeaza_diferente(lnRec)
*GO lnRec
ENDPROC
PROCEDURE inainte_de_do_termin
*** copiez actactan sa pot sa il restaurez pentru cazul in care se apasa butonul <Formularul Precedent> in formularul de verificare
Local lcScd, lcScd1, lcSerieAct, lnIdpartd, lnNnir, lnNract, lnSucces, lnDiferenta
Local lnRec
SELECT rul_temp
lnRec = RECNO()
thisform.Do_calculeaza_diferente(m.lnRec, "rul_temp")
&& calcularea diferentelor
Select * From actactan Into Cursor crsActactanTemp READWRITE NOFILTER
lnDiferenta = This.ndif_lei
If lnDiferenta <> 0
Select actactan
locate
lcScd = scd
lnIdpartd = actactan.id_partd
Append Blank
*!* modificare migrare v 1.0 > v 2.0
*!* Gather Name poact Fields Except Curs, pretd, nume_val, id_valuta, nnir, proc_tva
Gather Name poAct Fields Except Curs, pretd, nume_val, id_valuta, nnir, proc_tva
*!* modificare migrare v 1.0 > v 2.0 ^
If Substr(lcScd,1,2)='34'
*!* modificare migrare v 1.0 > v 2.0
*!* Replace suma With lnDiferenta, ;
*!* scd With '711', scc With lcScd, explicatia With 'DIFERENTE'
Replace suma With lnDiferenta, ;
scd With '711', scc With lcScd, explicatia With 'DIFERENTE',ID_JTVA_coloana With Null
*!* modificare migrare v 1.0 > v 2.0 ^
Else
lcScd = Alltrim(lcScd)
Do Case
Case lcScd = "371"
lcScd1 = "607"
Case Inlist(lcScd, "381", "388")
lcScd1 = "608"
Otherwise
lcScd1 = '60' + Substr(lcScd,3,2)
Endcase
*!* modificare migrare v 1.0 > v 2.0
*!* Replace suma With lnDiferenta, ;
*!* scd With lcScd1, scc With lcScd, explicatia With 'DIFERENTE'
Replace suma With lnDiferenta, ;
scd With lcScd1, scc With lcScd,id_partc With lnIdpartd, explicatia With 'DIFERENTE',ID_JTVA_coloana With Null
*!* modificare migrare v 1.0 > v 2.0 ^
Endif
Endif
Select actactan
Locate
Do Form verificare With .T. , .T.
If gnButon = 2
Use In (Select('actactan'))
Select * From crsActactanTemp Into Cursor actactan READWRITE NOFILTER
Use In (Select('crsActactanTemp'))
RETURN .F.
Else
Use In (Select('crsActactanTemp'))
*!* modificare v 2.1.41
Select actactan
Go Top
lnNrAct = nract
lcSerieAct = serie_act
* completex TVA si TAXCODE cu datele de pe prima factura
lnIdJtvaColoana = id_jtva_coloana
lnTaxCode = taxcode
If Used('rul_temp')
Select rul_temp
Replace ALL nract With lnNrAct,serie_act With lcSerieAct, id_jtva_coloana WITH m.lnIdJtvaColoana, taxcode WITH m.lnTaxCode
Endif
If Used('rul_temp_obinv')
Select rul_temp_obinv
Replace ALL nract With lnNrAct,serie_act With lcSerieAct
Endif
*!* Select Distinct serie_Act,nract,nnir From actactan Where nract <> nnir Into Cursor crsRulComplet
*!* If Used('rul_temp')
*!* Select crsRulComplet
*!* Scan
*!* lnNnir = nnir
*!* lnNract = nract
*!* lcSerieAct = serie_Act
*!* Select rul_temp
*!* Replace nract With lnNract,serie_Act With lcSerieAct For nnir = lnNnir
*!* Select crsRulComplet
*!* Endscan
*!* Endif
*!* If Used('rul_temp_obinv')
*!* Select crsRulComplet
*!* Scan
*!* lnNnir = nnir
*!* lnNract = nract
*!* lcSerieAct = serie_Act
*!* Select rul_temp_obinv
*!* Replace nract With lnNract,serie_Act With lcSerieAct For nnir = lnNnir
*!* Select crsRulComplet
*!* Endscan
*!* Endif
*!* If Used('crsRulComplet')
*!* Use In crsRulComplet
*!* Endif
*!* modificare v 2.1.41 ^
*!* modificare 13.08.2007 ^
***** articolele negestionabile nu intra in rulaje/stoc (acelasi model ca la NIR normal)
* le pastrez intr-un cursor temporar ca sa le pot readauga daca scrierea esueaza
Select * From rul_temp Where Nvl(in_stoc,1) = 0 And !Deleted() Into Cursor crsNegest NOFILTER Readwrite
Delete From rul_temp Where Nvl(in_stoc,1) = 0
lnSucces = oscrie_in_fisiere(0,.F.,.T.)
If lnSucces > 0
Use In (Select('crsNegest'))
this.AlwaysOnTop = .F.
Do listare_nir With poAct.nnir, gnTipGest In oproceduri_listari
this.AlwaysOnTop = .T.
RETURN .T.
Else
* scrierea a esuat - readaug articolele negestionabile, ca grila sa ramana completa la reincercare
Select rul_temp
Append From Dbf('crsNegest')
Use In (Select('crsNegest'))
Endif
Endif
ENDPROC
PROCEDURE Init
Lparameters tlIntern
This.lIntern = tlIntern
If This.lIntern
This.grid1.cPretFactura.ControlSource = "pret_lei"
This.grid1.cPretFactura.Header1.Caption = "Pret lei factura"
*!* modificare v 2.1.39
This.grid1.cPretFactura.InputMask = get_mask(10,gnPPret)
*!* modificare v 2.1.39 ^
This.grid1.cPretValutaCalculat.Visible = .F.
This.grid1.cValoareValutaFactura.Visible = .F.
This.grid1.cValoareValutaCalculat.Visible = .F.
This.clb_diferente_valuta.Visible = .F.
*!* modificare v 2.1.3
Thisform.but_modiparam1.Visible = .F.
Thisform._shape2.Left = Thisform.but_renunt1.Left - (Thisform.but_modiparam1.Left - Thisform._shape2.Left)
*!* modificare v 2.1.3 ^
ENDIF
this.WindowState = 2
DoDefault()
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
this.do_reface
ENDPROC
PROCEDURE Grid1.cCant.Text1.InteractiveChange
DODEFAULT()
this.LostFocus(.T.)
ENDPROC
PROCEDURE Grid1.cCant.Text1.LostFocus
PARAMETERS tlCalcul
IF tlCalcul
REPLACE cant WITH this.Value
lnRec = RECNO()
thisform.do_executa(3,lnRec,this.value)
ENDIF
ENDPROC
PROCEDURE Grid1.Column1.Text1.LostFocus
Parameters tlCalcul
*IF tlCalcul
* REPLACE pret_val WITH this.Value
lnRec = Recno()
*!* thisform.do_executa(3,lnRec,this.Value)
*!* modificare v 2.1.37
*!* thisform.do_executa(1,lnRec,pret_val)
If Thisform.lIntern
Thisform.do_executa(1,lnRec,pret_lei)
Else
Thisform.do_executa(1,lnRec,pret_val)
Endif
*!* modificare v 2.1.37 ^
*ENDIF
ENDPROC
PROCEDURE Grid1.cPretFactura.Text1.InteractiveChange
*!* DODEFAULT()
*!* this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.cPretFactura.Text1.LostFocus
PARAMETERS tlCalcul
*IF tlCalcul
* REPLACE pret_val WITH this.Value
lnRec = RECNO()
thisform.do_executa(1,lnRec,this.Value)
*ENDIF
ENDPROC
PROCEDURE Grid1.cPretLeiCalculat.Text1.InteractiveChange
DODEFAULT()
this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.cPretLeiCalculat.Text1.LostFocus
PARAMETERS tlCalcul
IF tlCalcul
REPLACE pret WITH this.Value
lnRec = RECNO()
thisform.do_executa(3,lnRec,this.Value)
ENDIF
ENDPROC
PROCEDURE Grid1.cPretValutaCalculat.Text1.InteractiveChange
DODEFAULT()
this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.cPretValutaCalculat.Text1.LostFocus
PARAMETERS tlCalcul
IF tlCalcul
lnRec = RECNO()
thisform.do_executa(2,lnRec,this.value)
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS import_nota 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="Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cNract.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cNract.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPartC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPartC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatieTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatieTva.Combo1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatieTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatia4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatia4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cScd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cScd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cScc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cScc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSuma.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSuma.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSumaVal.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSumaVal.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cInValuta.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cInValuta.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatia5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cExplicatia5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPartD.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPartD.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cAscd.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cAscd.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cAscc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cAscc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPtva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cPtva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cParticipaValuta.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cParticipaValuta.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSerie_act.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSerie_act.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cDataAct.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cDataAct.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cFDoc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cFDoc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSe_scrie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cSe_scrie._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cTaxCode.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cTaxCode.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cTaxCode._combobox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_curs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_pas_flux" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cCurs.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cCurs.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cValuta.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.cValuta.Text1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: aplica_explicatie_tva
*m: copiaza_valoare
*m: do_adauga
*m: do_adauga_factura
*m: do_calculeaza_suma
*m: do_modifica_explicatie_tva
*m: do_modifica_fdoc
*m: refac_culori_documente
*m: updateexplicatiesaft
*p: cdvifeldoc && memoria DVI: textul felului de document al DVI (pt. redeschidere dialog)
*p: cdvinr && memoria DVI (M2): numarul DVI, ca sir - vezi contract mai jos
*p: cdvipartener && memoria DVI: denumirea partenerului vamal
*p: cdviserie && memoria DVI: seria DVI (de regula goala)
*p: ddvidata && memoria DVI: data DVI
*p: ldialogaratat && dialogul "Adauga factura" a fost deschis automat la Activate (o singura data)
*p: lintern && Formularul este folosit pentru Import (.T.) sau pentru achizitii interne (.F.)
*p: ndviidfdoc && memoria DVI: id_fdoc ales prima data prin caut_fdoc - cheia sesiunii DVI
*p: ndviidpartener && memoria DVI: id_part al partenerului vamal
*p: nid_part_finalizarenir
*p: oact
*p: tprocente
*p: tsuma
*</DefinedPropArrayMethod>
*<PropValue>
cdvifeldoc = ""
cdvinr = ""
cdvipartener = ""
cdviserie = ""
ddvidata = {}
DoCreate = .T.
Height = 405
ldialogaratat = .F.
lintern = .F.
Name = "import_nota"
ndviidfdoc = 0
ndviidpartener = 0
nid_part_finalizarenir =
oact =
tprocente = 0
tsuma = 0
Width = 794
_memberdata = <VFPData>
<memberdata name="updateexplicatiesaft" display="UpdateExplicatieSAFT"/>
</VFPData>
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 800
_shape2.Anchor = 8
_shape2.Left = 734
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 60
Lb_titlu_alb_b121.Caption = "ACHIZIÞIE DIN IMPORT MARFÃ/MATERIALE"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.cpicturedown = urmator2.bmp
BUT_TERMIN1.cpictureup = urmator1.bmp
BUT_TERMIN1.Left = 765
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Picture = ..\grafice\urmator1.bmp
BUT_TERMIN1.ToolTipText = "Urmator (CTRL+F)"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Anchor = 8
But_renunt1.Left = 736
But_renunt1.Name = "But_renunt1"
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 8, ;
Left = 704, ;
Name = "But_nou1", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 8, ;
Left = 672, ;
Name = "But_sterge1", ;
ToolTipText = "Stergere nota curenta (baza + TVA)", ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
Anchor = 12, ;
Caption = "\<Recalculare", ;
FontBold = .T., ;
Height = 27, ;
Left = 684, ;
Name = "Cmd_executa1", ;
Top = 373, ;
Width = 99
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Grid1' AS grid WITH ;
Anchor = 15, ;
BackColor = 255,255,255, ;
ColumnCount = 23, ;
DeleteMark = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
HeaderHeight = 49, ;
Height = 302, ;
Left = 4, ;
Name = "Grid1", ;
Panel = 1, ;
RecordSource = "introdc", ;
RecordSourceType = 1, ;
RowHeight = 19, ;
TabIndex = 2, ;
Top = 60, ;
Width = 776, ;
ZOrderSet = 5, ;
Column1.BackColor = 255,255,255, ;
Column1.ColumnOrder = 4, ;
Column1.ControlSource = "nract", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "cNract", ;
Column1.Visible = .T., ;
Column1.Width = 71, ;
Column2.BackColor = 255,255,255, ;
Column2.ColumnOrder = 5, ;
Column2.ControlSource = "partc", ;
Column2.CurrentControl = "Text1", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "cPartC", ;
Column2.Sparse = .T., ;
Column2.Visible = .T., ;
Column2.Width = 109, ;
Column3.BackColor = 255,255,255, ;
Column3.ColumnOrder = 6, ;
Column3.ControlSource = "explicatia", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.Name = "cExplicatie", ;
Column3.Visible = .T., ;
Column3.Width = 92, ;
Column4.BackColor = 255,255,255, ;
Column4.ColumnOrder = 8, ;
Column4.ControlSource = "explicatie_tva", ;
Column4.CurrentControl = "Text1", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.Name = "cExplicatieTva", ;
Column4.ReadOnly = .F., ;
Column4.Sparse = .F., ;
Column4.Width = 134, ;
Column5.BackColor = 255,255,255, ;
Column5.ColumnOrder = 21, ;
Column5.ControlSource = "explicatia4", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.Name = "cExplicatia4", ;
Column5.Visible = .T., ;
Column5.Width = 46, ;
Column6.BackColor = 255,255,255, ;
Column6.ColumnOrder = 9, ;
Column6.ControlSource = "scd", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.Name = "cScd", ;
Column6.Visible = .T., ;
Column6.Width = 46, ;
Column7.BackColor = 255,255,255, ;
Column7.ColumnOrder = 11, ;
Column7.ControlSource = "scc", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.Name = "cScc", ;
Column7.Visible = .T., ;
Column7.Width = 41, ;
Column8.Alignment = 1, ;
Column8.BackColor = 255,255,255, ;
Column8.ColumnOrder = 14, ;
Column8.ControlSource = "suma", ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.Format = "R", ;
Column8.InputMask = (get_mask(12,gnPc)), ;
Column8.Name = "cSuma", ;
Column8.Visible = .T., ;
Column8.Width = 75, ;
Column9.BackColor = 255,255,255, ;
Column9.ColumnOrder = 15, ;
Column9.ControlSource = "suma_val", ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.InputMask = (get_mask(12,gnPval)), ;
Column9.Name = "cSumaVal", ;
Column9.Width = 76, ;
Column10.BackColor = 255,255,255, ;
Column10.ColumnOrder = 18, ;
Column10.ControlSource = "in_valuta", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.Name = "cInValuta", ;
Column10.Sparse = .F., ;
Column10.Width = 84, ;
Column11.BackColor = 255,255,255, ;
Column11.ColumnOrder = 22, ;
Column11.ControlSource = "explicatia5", ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.Name = "cExplicatia5", ;
Column11.Visible = .T., ;
Column11.Width = 45, ;
Column12.BackColor = 255,255,255, ;
Column12.ColumnOrder = 20, ;
Column12.ControlSource = "PARTD", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.Name = "cPartD", ;
Column12.Visible = .T., ;
Column12.Width = 91, ;
Column13.BackColor = 255,255,255, ;
Column13.ColumnOrder = 10, ;
Column13.ControlSource = "ascd", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.Name = "cAscd", ;
Column13.Width = 40, ;
Column14.BackColor = 255,255,255, ;
Column14.ColumnOrder = 12, ;
Column14.ControlSource = "ascc", ;
Column14.FontName = "Arial", ;
Column14.FontSize = 10, ;
Column14.Name = "cAscc", ;
Column14.Width = 44, ;
Column15.BackColor = 255,255,255, ;
Column15.ColumnOrder = 7, ;
Column15.ControlSource = "ptva", ;
Column15.FontName = "Arial", ;
Column15.FontSize = 10, ;
Column15.InputMask = "999", ;
Column15.Name = "cPtva", ;
Column15.Width = 41, ;
Column16.BackColor = 255,255,255, ;
Column16.ColumnOrder = 19, ;
Column16.ControlSource = "participa_valuta", ;
Column16.CurrentControl = "Check1", ;
Column16.FontName = "Arial", ;
Column16.FontSize = 10, ;
Column16.Name = "cParticipaValuta", ;
Column16.Sparse = .F., ;
Column16.Width = 76, ;
Column17.BackColor = 255,255,255, ;
Column17.ColumnOrder = 3, ;
Column17.ControlSource = "serie_act", ;
Column17.FontName = "Arial", ;
Column17.FontSize = 10, ;
Column17.Name = "cSerie_act", ;
Column17.Width = 70, ;
Column18.BackColor = 255,255,255, ;
Column18.ColumnOrder = 1, ;
Column18.ControlSource = "dataact", ;
Column18.FontName = "Arial", ;
Column18.FontSize = 10, ;
Column18.Name = "cDataAct", ;
Column19.BackColor = 255,255,255, ;
Column19.ColumnOrder = 2, ;
Column19.ControlSource = "fdoc", ;
Column19.FontName = "Arial", ;
Column19.FontSize = 10, ;
Column19.Name = "cFDoc", ;
Column19.ReadOnly = .F., ;
Column20.BackColor = 255,255,255, ;
Column20.ColumnOrder = 23, ;
Column20.ControlSource = "se_scrie", ;
Column20.FontName = "Arial", ;
Column20.FontSize = 10, ;
Column20.Name = "cSe_scrie", ;
Column20.Sparse = .F., ;
Column20.Visible = .T., ;
Column20.Width = 87, ;
Column21.BackColor = 255,255,255, ;
Column21.Bound = .F., ;
Column21.ColumnOrder = 13, ;
Column21.ControlSource = "Iif(Seek(introdc.taxcode,'saft_taxtable','taxcode'),saft_taxtable.taxname,'')", ;
Column21.CurrentControl = "_combobox1", ;
Column21.FontName = "Arial", ;
Column21.FontSize = 10, ;
Column21.Name = "cTaxCode", ;
Column21.Sparse = .F., ;
Column21.Width = 176, ;
Column22.BackColor = 255,255,255, ;
Column22.ColumnOrder = 16, ;
Column22.ControlSource = "nume_val", ;
Column22.FontName = "Arial", ;
Column22.FontSize = 10, ;
Column22.Name = "cValuta", ;
Column22.ReadOnly = .F., ;
Column22.Visible = .T., ;
Column22.Width = 55, ;
Column23.Alignment = 1, ;
Column23.BackColor = 255,255,255, ;
Column23.ColumnOrder = 17, ;
Column23.ControlSource = "curs", ;
Column23.FontName = "Arial", ;
Column23.FontSize = 10, ;
Column23.InputMask = (get_mask(12,gnPCurs)), ;
Column23.Name = "cCurs", ;
Column23.ReadOnly = .F., ;
Column23.Visible = .T., ;
Column23.Width = 70
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'Grid1.cAscc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "ASCC", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cAscc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cAscd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "ASCD", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cAscd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cCurs.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Curs", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cCurs.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cDataAct.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data doc.", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cDataAct.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cExplicatia4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent lei", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cExplicatia4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cExplicatia5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent valuta", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cExplicatia5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cExplicatie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cExplicatie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cExplicatieTva.Combo1' AS combobox WITH ;
BoundColumn = 1, ;
BoundTo = .T., ;
ColumnCount = 1, ;
ColumnLines = .F., ;
ColumnWidths = "250,0,0", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 10, ;
Left = 17, ;
Name = "Combo1", ;
RowSource = "jtva_coloane2.denumire,cota_tva,id_jtva_coloana", ;
RowSourceType = 2, ;
SpecialEffect = 1, ;
Style = 2, ;
Top = 23, ;
Visible = .T., ;
Width = 10
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Grid1.cExplicatieTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie TVA", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cExplicatieTva.Text1' AS textbox WITH ;
BorderStyle = 0, ;
Height = 23, ;
Left = 104, ;
Name = "Text1", ;
ReadOnly = .F., ;
Top = 87, ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cFDoc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc.", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cFDoc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cInValuta.Check1' AS checkbox WITH ;
Alignment = 2, ;
Caption = "", ;
Centered = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 17, ;
Left = 49, ;
Name = "Check1", ;
TabStop = .F., ;
Top = 83, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Grid1.cInValuta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta in contabilitate", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cNract.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr factura", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cNract.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cPartC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener credit", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cPartC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cPartD.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener debit", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cPartD.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cParticipaValuta.Check1' AS checkbox WITH ;
Alignment = 2, ;
Caption = "", ;
FontName = "Arial", ;
FontSize = 10, ;
Height = 17, ;
Left = 21, ;
Name = "Check1", ;
Top = 71, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Grid1.cParticipaValuta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Participa la pret valuta", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cPtva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA %", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cPtva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cScc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "SCC", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cScc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cScd.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "SCD", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cScd.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cSe_scrie._checkbox1' AS _checkbox WITH ;
Alignment = 2, ;
AutoSize = .F., ;
Caption = "", ;
Centered = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Left = 41, ;
Name = "_checkbox1", ;
Top = 47
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Grid1.cSe_scrie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Se scrie nota chiar daca suma este 0", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cSerie_act.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie factura", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cSerie_act.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Format = "!", ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cSuma.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cSuma.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cSumaVal.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma valuta", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cSumaVal.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cTaxCode._combobox1' AS _combobox WITH ;
BorderStyle = 0, ;
BoundColumn = 3, ;
BoundTo = .T., ;
ColumnCount = 2, ;
ColumnLines = .F., ;
ColumnWidths = "450,100", ;
ControlSource = "introdc.taxcode", ;
FontName = "Arial", ;
FontSize = 10, ;
Left = 84, ;
Name = "_combobox1", ;
RowSource = "select taxname, procent_taxa, taxcode from saft_taxtable where tva_achizitii=1 into cursor crsTaxTableX", ;
RowSourceType = 3, ;
Top = 87
*< END OBJECT: ClassLib="..\..\..\roacont\comun\clase\_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'Grid1.cTaxCode.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Taxa SAFT", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cTaxCode.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.cValuta.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valuta", ;
FontBold = .T., ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.cValuta.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Label1' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "SUMA", ;
FontBold = .T., ;
FontName = "Arial", ;
Height = 17, ;
Left = 254, ;
Name = "Label1", ;
TabIndex = 13, ;
Top = 378, ;
Width = 36, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "PROCENTE", ;
Enabled = .T., ;
FontBold = .T., ;
FontName = "Arial", ;
Height = 17, ;
Left = 98, ;
Name = "Label2", ;
TabIndex = 14, ;
Top = 378, ;
Width = 64, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "SUMA VALUTÃ", ;
FontBold = .T., ;
FontCharSet = 238, ;
FontName = "Arial", ;
Height = 17, ;
Left = 417, ;
Name = "Label3", ;
TabIndex = 13, ;
Top = 378, ;
Width = 85, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TOTAL", ;
Enabled = .T., ;
FontBold = .T., ;
FontName = "Arial", ;
Height = 17, ;
Left = 12, ;
Name = "Label4", ;
TabIndex = 14, ;
Top = 378, ;
Width = 40, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lb_curs' AS label WITH ;
Anchor = 3, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "CURS VALUTAR :", ;
Enabled = .T., ;
FontBold = .T., ;
FontName = "Arial", ;
Height = 17, ;
Left = 16, ;
Name = "lb_curs", ;
TabIndex = 14, ;
Top = 35, ;
Visible = .F., ;
Width = 97, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Lb_pas_flux' AS label WITH ;
AutoSize = .F., ;
BackStyle = 0, ;
Caption = "1.Nota > 2.Articole > 3.Verificare", ;
FontName = "Arial", ;
FontSize = 8, ;
ForeColor = 0,0,25, ;
Height = 14, ;
Left = 420, ;
Name = "Lb_pas_flux", ;
Top = 8, ;
Width = 230
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text1' AS textbox WITH ;
Anchor = 6, ;
BackStyle = 0, ;
ControlSource = "", ;
Enabled = .F., ;
FontBold = .T., ;
FontName = "Arial", ;
ForeColor = 0,64,128, ;
Height = 23, ;
Left = 169, ;
Name = "Text1", ;
TabIndex = 11, ;
Top = 375, ;
Value = , ;
Width = 72, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
Alignment = 1, ;
Anchor = 6, ;
BackStyle = 0, ;
ControlSource = "", ;
Enabled = .F., ;
FontBold = .T., ;
FontName = "Arial", ;
ForeColor = 0,64,128, ;
Format = "r", ;
Height = 23, ;
InputMask = (get_mask(12,gnPc)), ;
Left = 297, ;
Name = "Text2", ;
TabIndex = 12, ;
Top = 375, ;
Value = 0, ;
Width = 103, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
Alignment = 1, ;
Anchor = 6, ;
BackStyle = 0, ;
ControlSource = "", ;
Enabled = .F., ;
FontBold = .T., ;
FontName = "Arial", ;
ForeColor = 0,64,128, ;
Format = "r", ;
Height = 23, ;
InputMask = (get_mask(12,gnPVAL)), ;
Left = 512, ;
Name = "Text3", ;
TabIndex = 12, ;
Top = 375, ;
Value = 0, ;
Width = 107, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Activate
*!* Deschid automat dialogul "Adauga factura" la prima activare (numai pe modul
*!* import), dupa ce formularul e deja vizibil in spatele dialogului.
DoDefault()
If !This.lIntern And !This.lDialogAratat
This.lDialogAratat = .T.
This.do_adauga()
Endif
ENDPROC
PROCEDURE aplica_explicatie_tva
*!* Extrasa din do_modifica_explicatie_tva si Grid1.cExplicatieTva.Combo1.Valid
*!* (comutarea 4426=4427/401 + UpdateExplicatieSAFT), ca sa nu se duplice logica intre
*!* editarea in grid si frm_adauga_factura (docs/propuneri_ergonomie_import.md, M2).
*!* CONTRACT: se apeleaza cu randul curent din introdc pozitionat pe linia de BAZA
*!* (impara) a perechii; metoda comuta ea insasi pe linia de TVA (para) cu Skip.
Lparameters tnIdJtvaColoana
Local lnRec, lnPtva, lcExplicatieTva, lnId_tva, lnId_jtva_coloanaTVA, lnCota_tva, lcExplicatie_TVA
Select jtva_coloane2
Locate For id_jtva_coloana = tnIdJtvaColoana
If !Found()
Return .F.
Endif
lnPtva = jtva_coloane2.cota_Tva
lcExplicatieTva = jtva_coloane2.denumire
lnId_tva = jtva_coloane2.id_Tva
Select introdc
lnRec = Recno()
Replace id_jtva_coloana With tnIdJtvaColoana, ptva With lnPtva, explicatie_tva With lcExplicatieTva
If Mod(lnRec,2)<>0 && linie impara BAZA
Thisform.UpdateExplicatieSAFT()
If lnPtva = 0
Select introdc
Replace cu_tva With 0
Skip
Replace id_jtva_coloana With 0, ptva With 0, explicatie_tva With '', cu_tva With 0
Else && linia para TVA
Select jtva_coloane2
Locate For id_jtva_coloana = lnId_tva
If Found()
lnId_jtva_coloanaTVA = jtva_coloane2.id_jtva_coloana
lnCota_tva = jtva_coloane2.cota_Tva
lcExplicatie_TVA = jtva_coloane2.denumire
* PENTRU TAXARE INVERSA SI COMUNITATEA EUROPEANA: 4426 = 4427 PE LINIA DE TVA, ALTFEL 4426 = 401
Select introdc
Replace cu_tva With 1
Skip
Replace id_jtva_coloana With lnId_jtva_coloanaTVA, ptva With lnCota_tva, ;
explicatie_tva With lcExplicatie_TVA, cu_tva With 1
If Seek(lnId_jtva_coloanaTVA, "cJtvaCol4427", "id_jtva")
Replace scc With '4427' In introdc
Else
Replace scc With '401' In introdc
Endif
Thisform.UpdateExplicatieSAFT()
Endif
Endif
Endif
Return .T.
ENDPROC
PROCEDURE copiaza_valoare
Lparameters tcCamp
Local lcSelect, lcCursor, luValoare
lcCursor = Thisform.grid1.RecordSource
lcSelect = Select()
Select (lcCursor)
If Mod(Recno(),2) = 1 And Recno() <> Reccount()
luValoare = &tcCamp
Skip
Replace (tcCamp) With luValoare
Skip -1
Endif
Select (lcSelect)
Release lcSelect, lcCursor, luValoare
ENDPROC
PROCEDURE Destroy
USE IN (SELECT('cJtvaCol4427'))
ENDPROC
PROCEDURE do_adauga
*!* Pas 3: deschide dialogul modal frm_adauga_factura. Memoria DVI (cDviSerie/cDviNr/
*!* dDviData/nDviIdPartener/cDviPartener/nDviIdFdoc) traieste pe Thisform (import_nota)
*!* si e citita/scrisa de dialog prin Thisform.oParinte - vezi frm_adauga_factura.Init
*!* si cmdAdauga.Click in pas3_frm_class.txt.
Local loDlg
loDlg = Createobject('import_adauga_factura', Thisform)
loDlg.Show(1)
Release loDlg
ENDPROC
PROCEDURE do_adauga_factura
*!* Directia A: cloneaza perechea-sablon (baza + TVA) din introdc_sablon,
*!* o adauga in introdc si o populeaza cu datele documentului (toDlg).
*!* Paritatea Recno se pastreaza (introdc pornit gol; append baza apoi TVA).
*!* toDlg.cTipTva in {'F' furnizor, 'D' DVI, 'N' fara} decide randul de TVA -
*!* vezi docs/propuneri_ergonomie_import.md, M2, "Ramura TVA".
Lparameters toDlg
Local lnSel, loBaza, loTva
lnSel = Select()
If !Used('introdc_sablon') Or Reccount('introdc_sablon') < 2
Messagebox('Lipseste perechea-sablon (introdc_sablon).', 0+16, 'Adauga factura')
Select (lnSel)
Return .F.
Endif
* --- rand BAZA (clona recordului 1 din sablon) ---
Select introdc_sablon
Go Top
Scatter Name loBaza Memo
Select introdc
Append Blank
Gather Name loBaza Memo
Replace serie_act With toDlg.serie_act, ;
nract With toDlg.nract, ;
dataact With toDlg.dataact, ;
fdoc With toDlg.fdoc, ;
id_fdoc With toDlg.id_fdoc, ;
id_partc With toDlg.id_partc, ;
partc With toDlg.partc, ;
explicatia With toDlg.explicatia, ;
suma With toDlg.suma, ;
suma_val With toDlg.suma_val, ;
in_valuta With toDlg.in_valuta, ;
participa_valuta With toDlg.participa_valuta, ;
id_valuta With toDlg.id_valuta, ;
curs With toDlg.curs, ;
nume_val With toDlg.nume_val
* --- rand TVA (clona recordului 2 din sablon; suma TVA o pune do_executa) ---
Select introdc_sablon
Go 2
Scatter Name loTva Memo
Select introdc
Append Blank
Gather Name loTva Memo
Replace serie_act With toDlg.serie_act, ;
nract With toDlg.nract, ;
dataact With toDlg.dataact, ;
fdoc With toDlg.fdoc, ;
id_fdoc With toDlg.id_fdoc, ;
id_partc With toDlg.id_partc, ;
partc With toDlg.partc, ;
in_valuta With toDlg.in_valuta, ;
participa_valuta With toDlg.participa_valuta, ;
id_valuta With toDlg.id_valuta, ;
curs With toDlg.curs, ;
nume_val With toDlg.nume_val
Do Case
Case toDlg.cTipTva = 'F'
* explicatia TVA + comutarea 4426=4427/401, ca la editarea in grid (aplica_explicatie_tva);
* metoda asteapta randul curent pe BAZA (impara) - repozitionez pe baza; aplica_explicatie_tva
* comuta ea insasi pe TVA cu Skip. do_executa() face Go Top, deci pozitia finala nu conteaza.
Skip -1
Thisform.aplica_explicatie_tva(toDlg.id_jtva_coloana)
Case toDlg.cTipTva = 'D'
* explicatia TVA in tandem (baza + linia de TVA), ca la editarea in grid (aplica_explicatie_tva);
* apoi Replace-ul de mai jos suprascrie pe linia de TVA campurile proprii DVI-ului
Skip -1
Thisform.aplica_explicatie_tva(toDlg.id_jtva_coloana)
Select introdc
Go Bottom && linia de TVA e ultimul record (perechea abia adaugata)
* TVA platit in vama: randul de TVA devine "al DVI-ului" - alt document/partener/conturi
Replace serie_act With toDlg.dvi_serie, ;
nract With toDlg.dvi_nract, ;
dataact With toDlg.dvi_dataact, ;
fdoc With toDlg.dvi_fdoc, ;
id_fdoc With toDlg.dvi_id_fdoc, ;
id_partc With toDlg.dvi_id_partc, ;
partc With toDlg.dvi_partc, ;
scd With '4426', ;
scc With toDlg.dvi_scc, ;
suma With toDlg.dvi_tva_lei, ;
suma_val With toDlg.dvi_tva_val, ;
in_valuta With Iif(toDlg.dvi_tva_val <> 0, toDlg.in_valuta, 0), ;
participa_valuta With toDlg.participa_valuta, ;
id_valuta With Iif(toDlg.dvi_tva_val <> 0, toDlg.id_valuta, 0), ;
curs With Iif(toDlg.dvi_tva_val <> 0, toDlg.curs, 0), ;
nume_val With Iif(toDlg.dvi_tva_val <> 0, toDlg.nume_val, '')
Case toDlg.cTipTva = 'N'
* fara TVA: randul pereche ramane gol fiscal, ca la cota 0 in logica existenta
Replace id_jtva_coloana With 0, ptva With 0, cu_tva With 0, explicatie_tva With ''
Endcase
Thisform.do_executa()
Select (lnSel)
Return .T.
ENDPROC
PROCEDURE do_calculeaza_suma
aMESSAGEBOX("Eroare calculeaza suma!")
*!* Local lnSuma1, lnSuma2, Tsuma, Tprocent, lnRec
*!* Store 0 To lnSuma1, lnSuma2, Tsuma, Tprocent, lnRec
*!* lcSel = Thisform.grid1.RecordSource
*!* Select (lcSel)
*!* lnRec = Recno(lcSel)
*!* Go Top
*!* lnSuma1 = suma
*!* If in_valuta = 1
*!* lnBazaVal = suma_val
*!* Endif
*!* Sum suma For in_valuta = 1 To lnBazaLei
*!* Sum suma_val For in_valuta = 1 To tSumaVal
*!* If Mod(Recno(),2)<>0 && rand impar
*!* lnSuma2 = suma
*!* lnSuma_val = suma_val
*!* If in_valuta = 0
*!* Replace explicatia4 With Allt(Str(lnSuma2/lnBazaLei*100,8,4)), explicatia5 With ''
*!* Else
*!* Replace explicatia5 With Allt(Str(lnSuma_val/lnBazaVal*100,8,4)), explicatia4 With ''
*!* Endif
*!* Else
*!* If ptva <> 0
*!* Repl suma With Round(lnSuma2*ptva/100,gnZvama)
*!* If in_valuta = 1
*!* Replace suma_val With Round(lnSuma_val*ptva/100,gnPval)
*!* Endif
*!* Else
*!* If Recno()>1 And !Eof()
*!* Repl suma With 0, suma_val With 0
*!* Endif
*!* Endif
*!* Endif
*!* Tprocent = Tprocent + Round(lnSuma2/lnSuma1*100,2)
*!* Tsuma = Tsuma + suma
*!* Goto lnRec
*!* Thisform.text1.Value = Allt(Str(Tprocent,8,2))+'%'
*!* Thisform.text2.Value = Tsuma
*!* Thisform.text3.Value = tSumaVal
*!* Thisform.Refresh
ENDPROC
PROCEDURE do_executa
Local lnSuma1, lnSuma2, Tsuma, Tprocent, lnRec
Store 0 To lnSuma1, lnSuma2, Tsuma, Tprocent, lnRec
LOCAL lnBazaVal, tSumaVal
lnBazaVal = 0
tSumaVal = 0
Sele introdc
lnRec = Recno()
Go Top
lnSuma1 = suma
&& baza in valuta pentru facturile din import este pe prima linie
If in_valuta = 1
lnBazaVal = suma_val
Endif
&& baza lei pentru facturile interne este pe prima linie
IF this.lIntern
lnBazaLei = IIF(participa_valuta, suma, 0)
ELSE
Sum suma For participa_valuta AND in_valuta = 1 AND scd <> '4426' To lnBazaLei
ENDIF
Sum suma_val For in_valuta = 1 To tSumaVal
*!*lnBazaLei = suma && adaugata 06.09.2007 marius.mutu - mi-e neclar fata de ce suma se calculeaza procentele
&& procentele se recalculeaza oricum in ointroduceri.prg
Scan
If Mod(Recno(),2)<>0 && rand impar
lnSuma2 = suma
lnSuma_val = suma_val
*REPL explicatia4 WITH ALLT(STR(lnSuma2/lnSuma1*100,6,2))+'%'
*!* If in_valuta = 0
If !participa_valuta OR (this.lIntern AND participa_valuta)
Replace explicatia4 With Allt(Str(IIF(lnBazaLei <> 0, lnSuma2/lnBazaLei*100, 0),6,2)), explicatia5 With ''
ELSE
&& daca participa la valoarea in valuta, dar are doar valoarea in lei
&& calculez valoarea in valuta virtual
IF in_valuta = 0
Replace explicatia5 With Allt(Str(IIF(lnBazaVal <> 0, ROUND(lnSuma2/thisform.oact.curs, gnPVal)/lnBazaVal*100, 0),6,2)), explicatia4 With ''
ELSE
Replace explicatia5 With Allt(Str(IIF(lnBazaVal <> 0, lnSuma_val/lnBazaVal*100, 0),6,2)), explicatia4 With ''
ENDIF
Endif
*!* modificare v 2.1.39
Tprocent = Tprocent + Round(IIF(lnSuma1 <> 0, lnSuma2/lnSuma1*100, 0),2)
*!* modificare v 2.1.39 ^
Else
If ptva <> 0
IF lnSuma2 <> 0
Repl suma With Round(lnSuma2*ptva/100,gnPC)
ENDIF
If in_valuta = 1 AND lnSuma_val <> 0
Replace suma_val With Round(lnSuma_val*ptva/100,gnPval)
Endif
Else
If Recno()>1 And !Eof()
Repl suma With 0, suma_val With 0
Endif
Endif
Endif
*!* modificare v 2.1.39
*!* Tprocent = Tprocent + Round(IIF(lnSuma1 <> 0, lnSuma2/lnSuma1*100, 0),2)
*!* modificare v 2.1.39 ^
Tsuma = Tsuma + suma
Endscan
*!* IF MOD(RECNO(),2)<>0
*!* suma2=suma
*!* REPLACE explicatia4 WITH ALLT(STR(suma2/suma1*100,6,3)+'%')
*!* SKIP 1
*!* IF ptva # 0
*!* REPLACE suma WITH ROUND(suma2*ptva /100,gnPc)
*!* REPLACE suma_val WITH ROUND(suma_val*ptva /100,gnPval)
*!* ELSE
*!* REPLACE suma WITH 0, suma_val WITH 0
*!* ENDIF
*!* *!* ENDIF
*!* ENDIF
If lnRec=1
Go Top
Else
Goto lnRec
Endif
Thisform.text1.Value = Allt(Str(Tprocent,8,2))+'%'
Thisform.text2.Value = Tsuma
Thisform.text3.Value = tSumaVal
Thisform.refac_culori_documente()
Thisform.Refresh
ENDPROC
PROCEDURE do_modifica_explicatie_tva
*!* cautare explicatie TVA prin formular (model: frm_modific2024 din omodificari.vcx);
*!* logica de aplicare pe cursor e extrasa in aplica_explicatie_tva() - comuna cu
*!* Grid1.cExplicatieTva.Combo1.Valid si cu frm_adauga_factura (ramura furnizor).
LOCAL lnId, loCauta, lnCotaFiltru, lcFiltruTva
Select introdc
* filtrez explicatiile dupa procentul de TVA al liniei (coloana "TVA %");
* fara procent (0/gol) se afiseaza toate, ca sa nu ramana lista goala
lnCotaFiltru = Nvl(introdc.ptva, 0)
lcFiltruTva = [id_jtva_coloana > 0]
If lnCotaFiltru > 0
lcFiltruTva = lcFiltruTva + [ and cota_tva = ] + Alltrim(Str(lnCotaFiltru,10,2))
Endif
* lista contine si liniile de baza si perechile de TVA, ca vechiul dropdown (jtva_coloane2) -
* caut_explicatie_tva cu tlTipEx intoarce doar perechile de TVA, deci apelez direct cauta_alfa
loCauta = cauta_alfa([select id_jtva_coloana, denumire, cota_tva FROM vjtva_coloane], [1=2], [], ;
[denumire], [denumire,cota_tva], [Alegeti explicatia TVA], [Explicatie TVA,Cota TVA], ;
[], .F., lcFiltruTva)
If Vartype(loCauta) <> 'O' Or Empty(Nvl(loCauta.id_jtva_coloana,0))
Return
Endif
lnId = loCauta.id_jtva_coloana
Select introdc
Thisform.aplica_explicatie_tva(lnId)
Thisform.grid1.cSuma.teXT1.Valid
ENDPROC
PROCEDURE do_modifica_fdoc
Local loCauta
loCauta = caut_fdoc(.F.,.T.)
If !Isnull(loCauta)
Select (Thisform.grid1.RecordSource)
Replace id_fdoc With loCauta.id_fdoc,fdoc With loCauta.fel_document
Thisform.copiaza_valoare([id_fdoc])
Thisform.copiaza_valoare([fdoc])
Endif
ENDPROC
PROCEDURE do_sterge
*!* Butonul de stergere note: sterge nota curenta (perechea baza + TVA) din introdc.
*!* Perechile sunt identificate prin paritatea Recno (impar = baza, par = TVA), asa ca
*!* sterg logic (Delete) ambele linii: cu SET DELETED ON dispar din grid si din
*!* Scan/Sum-urile din flux, iar Recno-urile ramase nu se schimba => paritatea se
*!* pastreaza. Nu se face Zap + refacere: introdc e sursa grid-ului, iar Zap inchide
*!* si recreeaza cursorul, deci grid-ul ar ramane fara sursa (blank).
Local lnSel, lnBaza, lnRaspuns, lcDoc
lnSel = Select()
Select introdc
If Reccount() = 0 Or Eof() Or Bof()
Select (lnSel)
Return
Endif
lnBaza = Recno() - Iif(Mod(Recno(),2) = 0, 1, 0)
Go lnBaza
lcDoc = Alltrim(Nvl(fdoc,'')) + ' ' + Alltrim(Nvl(serie_act,'')) + ' ' + ;
Alltrim(Str(Nvl(nract,0),14)) + ' - ' + Alltrim(Nvl(partc,''))
lnRaspuns = amessagebox('Stergeti nota ' + Alltrim(lcDoc) + Chr(13) + Chr(10) + ;
'(linia de baza si linia de TVA pereche)?', 4+32, 'Stergere nota')
If lnRaspuns <> 6
Select (lnSel)
Return
Endif
Delete Next 2
Go Top
Thisform.do_executa()
Select (lnSel)
ENDPROC
PROCEDURE inainte_de_do_termin
*!* 14.08.2014
*!* marius.mutu
*!* S-a tratat cazul in care contul de TVA este 4428 (TVA incasare), nu numai 4426
Local onir as 'import_nir'
Local lcCursor, lcSel, lcSql, llAlegPartener, llRet, llVerificAnalitic, lnBazaLei, lnBazaVal
Local lnBazaVal2, lnNract, lnProcLei, lnProcVal, lnSucces, lnTvaLei, lnTvaVal, lnTvaVal2, loFact
Local llRulTempPlin
lnNract = 0
llRet = .F.
lcSel = Thisform.grid1.RecordSource
Select (lcSel)
Locate For Empty(nract) And suma<>0
If Found()
amessagebox('Nu ati completat numarul actului!',0+48,"Atentie")
Return m.llRet
Endif
*!* modificare v 2.1.42
Go Top
Locate For Empty(Nvl(id_fdoc,0)) And suma <> 0
If Found()
amessagebox("Nu ati completat tipul documentului!",0+48,"Atentie")
Return m.llRet
Endif
*!* modificare v 2.1.42 ^
llVerificAnalitic = .T.
llAlegPartener = .F.
llRet = verificare_note_contabile(lcSel,llVerificAnalitic,llAlegPartener)
If !m.llRet
Return m.llRet
Endif
SELECT actactan
DELETE ALL
Thisform.nid_part_finalizarenir = 0 && modificare v 2.1.39
*!* modificare v 2.1.39 : am adaugat "or se_scrie = 1"
Select introdc
Scan For suma <> 0 Or se_scrie = 1
Scatter Name loFact
Select actactan
Append Blank
Gather Name poAct
*!* modificare v 2.1.41 : am adaugat id_fdoc, fdoc, dataact
Gather Name loFact Fields id_fdoc, fdoc, dataact, serie_Act,nract, partc, id_partc,partd, id_partd, suma, explicatia, explicatia4, explicatia5, scd, ascd, scc, ascc, ID_JTVA_coloana, taxcode, id_valuta, curs, nume_val
Replace proc_tva With Round((loFact.ptva+100)/100,2)
If loFact.in_valuta = 1
Replace SUMA_val With loFact.SUMA_val
Else
Replace Curs With 0,id_valuta With 0, nume_val With ''
Endif
*!* 30.08.2007
*!* MARIUS.MUTU
*!* LAS NNIR DOAR PE PRIMA FACTURA (DE ACHIZITIE)
*!* ALTFEL SE SCRIE IN RUL.NRACT ULTIMUL NUMAR DE DOCUMENT CU NNIR-UL RESPECTIV
If nract <> 0 And lnNract <> nract And lnNract <> 0
Replace nnir With 0
Else
lnNract = nract
Endif
*!* modificare v 2.1.39
If Thisform.nid_part_finalizarenir = 0 And loFact.cu_tva = 0
Select actactan
Append Blank
Gather Name poAct
Gather Name loFact Fields serie_Act, nract, explicatia, explicatia4, explicatia5
Replace scd With "", ascd With "", scc With "401", ascc With "",suma With 0,proc_tva With 0,id_jtva_coloana WITH Null
loCauta = caut_partener([-2],[Alegeti furnizorul])
If !Isnull(loCauta)
Thisform.nid_part_finalizarenir = loCauta.id_part
Select actactan
Replace partc With loCauta.denumire,id_partc With loCauta.id_part
Endif
Endif
*!* modificare v 2.1.39 ^
Select introdc
Endscan
*!* 30.08.2007
*!* marius.mutu
*!* calculez pretul in valuta incluzand si facturile in lei / curs care participa la pretul in valuta
*!* 20.09.2012
*!* marius.atanasiu
*!* am scos conditia "cu_tva=1" de la toate SUM-urile de mai jos
Select introdc
If tlIntern
Sum suma For !INLIST(scd, '4426', '4428') AND !EMPTY(id_jtva_coloana) And participa_valuta To lnBazaLei
Sum suma For INLIST(scd, '4426', '4428') AND !EMPTY(id_jtva_coloana) And participa_valuta To lnTvaLei
Else
Sum suma For !INLIST(scd, '4426', '4428') AND !EMPTY(id_jtva_coloana) To lnBazaLei
Sum suma For INLIST(scd, '4426', '4428') AND !EMPTY(id_jtva_coloana) To lnTvaLei
Endif
*!* suma_valuta + suma_lei/curs
*!* Sum SUMA_val For scd <> '4426' And cu_tva = 1 And in_valuta = 1 To lnBazaVal
Sum SUMA_val For !INLIST(scd, '4426', '4428') AND !EMPTY(id_jtva_coloana) And in_valuta = 1 And participa_valuta To lnBazaVal
Sum Round(suma/poAct.Curs, gnPval) For !INLIST(scd, '4426', '4428') AND !EMPTY(id_jtva_coloana) And in_valuta = 0 And participa_valuta To lnBazaVal2
lnBazaVal = lnBazaVal + lnBazaVal2
*!* Sum SUMA_val For scd = '4426' And cu_tva = 1 And in_valuta = 1 To lnTvaVal
Sum SUMA_val For INLIST(scd, '4426', '4428') AND !EMPTY(id_jtva_coloana) And in_valuta = 1 And participa_valuta To lnTvaVal
Sum Round(suma/poAct.Curs, gnPval) For INLIST(scd, '4426', '4428') AND !EMPTY(id_jtva_coloana) And in_valuta = 0 And participa_valuta To lnTvaVal2
lnTvaVal = lnTvaVal + lnTvaVal2
*!* 20.09.2012 ^
Sum Val(explicatia4) To lnProcLei
Sum Val(explicatia5) To lnProcVal
Locate
poAct.proc_tva = (100 + ptva)/100
llRulTempPlin = .F.
IF USED('RUL_TEMP')
llRulTempPlin = (RECCOUNT('RUL_TEMP') > 0)
ENDIF
IF !m.llRulTempPlin
USE IN (SELECT('RUL_TEMP'))
llRet = .T.
lcSql = [select r.*, r.pret as pret_lei, r.pretd as pret_val from ] + gcs + [.vrul r where 1=2 ]
lcCursor = [rul_temp]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
llRet = .F.
amessagebox(goExecutor.cEroare,0+16,"Eroare")
RETURN m.llRet
ENDIF
ENDIF && !m.llRulTempPlin
this.AlwaysOnTop = .F.
Select rul_temp
onir = Createobject('import_nir', tlIntern)
With onir
If tlIntern
.lb_titlu_alb_b121.Caption = "INTRARE IN GESTIUNE MARFA/MATERIALE INTERN"
.lblValuta.Visible = .F.
.clb_valftva.Visible = .F.
.clb_valtva.Visible = .F.
.clb_valadaos.Visible = .F.
Else
.lb_titlu_alb_b121.Caption = "INTRARE IN GESTIUNE MARFA/MATERIALE IMPORT"
Endif
.lhide = .T.
.oact = poAct
.nbaza_lei = lnBazaLei
.nbaza_val = lnBazaVal
.ntva_lei = lnTvaLei
.ntva_val = lnTvaVal
.procent_lei = lnProcLei + Iif(tlIntern, 0, 100)
.procent_val = lnProcVal
.ncurs = poAct.Curs
Endwith
onir.Show()
llRet = (m.gnButon = 1)
this.AlwaysOnTop = !llRet
RETURN m.llRet
ENDPROC
PROCEDURE Init
Lparameters tlIntern
&& tlIntern - default formularul este folosit pentru import (.F.), daca este .T. atunci nu apar coloanele legate de valuta
This.lIntern = Iif(Pcount() = 0 Or Type('tlIntern') <> 'L', .F., tlIntern)
This.lactiv4 = .T. && acces la do_sterge (butonul de stergere note)
This.cDviSerie = ''
This.cDviPartener = ''
This.cDviFelDoc = ''
If This.lIntern
Select introdc
Replace All suma_val With 0, in_valuta With 0
Go Top && modificare v 2.1.37
This.grid1.cInValuta.Visible = .F.
This.grid1.cParticipaValuta.Visible = .F.
&& this.grid1.cParticipaValuta.Header1.Caption = "Participa la pret lei"
This.grid1.cSumaVal.Visible = .F.
This.grid1.cExplicatia5.Visible = .F.
This.lb_titlu_alb_b121.Caption = "ACHIZIÞIE INTERNÃ MARFÃ/MATERIALE"
*!* modificare v 2.1.40
Else
This.lb_curs.Visible = .T.
This.lb_curs.Caption = [CURS VALUTAR : 1 ] + ALLTRIM(poAct.nume_val) + [ = ] + formateaza(poAct.curs,14,gnPCurs) + [ RON]
*!* modificare v 2.1.40 ^
Endif
This.WindowState = 2
this.grid1.HeaderHeight = 49 && se micsoreaza singur la afisare; refacut si in Show()
*SAFT
this.grid1.cTaxCode.Visible = m.gl406
* Creez cursor cu Id-uri de TVA Taxare inversa si Comunitate Europeana pentru notele 4426 = 4426, la alegerea Explicatie TVA
lcSql = "select ID_JTVA_COLOANA from JTVA_COLOANE t where (coloana_jc LIKE 'TI%T' or coloana_jc like 'XX%TIT') or (coloana_jc LIKE 'CE%T' and coloana_jc not LIKE 'CE%FTT') "
lcCursor = 'cJtvaCol4427'
llSucces = goExecutor.oExecuta(m.lcSql, lcCursor)
IF m.llSucces
SELECT cJtvaCol4427
INDEX on ID_JTVA_COLOANA TAG ID_JTVA
ENDIF
DoDefault()
Thisform.refac_culori_documente()
ENDPROC
PROCEDURE refac_culori_documente
* M1: culoare fundal + eticheta document, precalculate pe cursorul introdc.
* Cheia document = serie_act + nract + id_fdoc (id_fact e mereu 0 pe aceasta forma).
* Rand impar = baza (defineste documentul); randul par (TVA) mosteneste culoarea/eticheta.
Local lcSel, lnRec, lnDocCount, lnIdx, i, lcCheie, lnPrevColor, lcPrevLabel
Local laCol[6], laKeys[100]
If !Used('introdc')
Return
Endif
laCol[1] = Rgb(221,235,247)
laCol[2] = Rgb(226,239,218)
laCol[3] = Rgb(255,242,204)
laCol[4] = Rgb(237,225,247)
laCol[5] = Rgb(252,228,214)
laCol[6] = Rgb(255,221,221)
lcSel = Select()
Select introdc
lnRec = Recno()
lnDocCount = 0
lnPrevColor = 16777215
lcPrevLabel = '-'
Go Top
Scan
If Mod(Recno(),2) <> 0
lcCheie = Upper(Alltrim(Nvl(serie_act,''))) + '|' + Alltrim(Str(Nvl(nract,0),14)) + '|' + Alltrim(Str(Nvl(id_fdoc,0),14))
If Empty(Alltrim(Nvl(serie_act,''))) And Nvl(nract,0) = 0
Replace doc_color With 16777215, doc_label With '-'
Else
lnIdx = 0
For i = 1 To lnDocCount
If laKeys[i] == lcCheie
lnIdx = i
Exit
Endif
Endfor
If lnIdx = 0 And lnDocCount < 100
lnDocCount = lnDocCount + 1
laKeys[lnDocCount] = lcCheie
lnIdx = lnDocCount
Endif
If lnIdx = 0
lnIdx = 1
Endif
Replace doc_color With laCol[Mod(lnIdx - 1, 6) + 1], doc_label With 'F' + Alltrim(Str(lnIdx))
Endif
lnPrevColor = doc_color
lcPrevLabel = Alltrim(doc_label)
Else
Replace doc_color With lnPrevColor, doc_label With Iif(lcPrevLabel == '-', '-', lcPrevLabel + ' TVA')
Endif
Endscan
If lnRec >= 1 And lnRec <= Reccount()
Go lnRec
Endif
Select (lcSel)
ENDPROC
PROCEDURE Show
Lparameters tnStyle
*!* HeaderHeight se micsoreaza singur la afisare si taie liniile din capul
*!* coloanelor - il refac la valoarea din design.
If Pcount() = 0
DoDefault()
Else
DoDefault(tnStyle)
Endif
This.grid1.HeaderHeight = 49
ENDPROC
PROCEDURE updateexplicatiesaft
* Daca nu este activata SAFT 406 nu fac nimic
IF !m.gl406
RETURN
ENDIF
Local loPartenerRTVAI As "empty"
Local loPartenerRTVAIX As "empty"
Local lcCodFiscal, lcNumePart, ldDataAct, llFurnizorRTVAI, lnIdJtva, lnIdPart, lnTaxCode, lcSelect
lcSelect = SELECT()
ldDataAct = poAct.dataact
lnIdJtva = introdc.id_jtva_coloana
llFurnizorRTVAI = .F.
lnIdPart = Nvl(introdc.id_partc, introdc.id_partd)
lnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.lnIdPart)
Replace taxcode With m.lnTaxCode In introdc
*This.grid1.cTaxCode._combobox1.Refresh()
SELECT (m.lcSelect)
ENDPROC
PROCEDURE Grid1.cAscc.Text1.Click
this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.cAscc.Text1.LostFocus
PARAMETERS PlClick
lcSel = thisform.grid1.RecordSource
SELECT (lcSel)
lcCont = scc
lcAcont = ascc
llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascc', lcSel) && in oOperatii_comune.prg
ENDPROC
PROCEDURE Grid1.cAscd.Text1.Click
this.LostFocus(.t.)
ENDPROC
PROCEDURE Grid1.cAscd.Text1.LostFocus
PARAMETERS PlClick
lcSel = thisform.grid1.RecordSource
SELECT (lcSel)
lcCont = scd
lcAcont = ascd
llReturn = verific_analitic(plClick, lcCont, lcAcont,'ascd', lcSel) && in oOperatii_comune.prg
ENDPROC
PROCEDURE Grid1.cCurs.Text1.Valid
*!* cursul editat se scrie explicit (ca la cSumaVal.Valid - dupa amessagebox grid-ul
*!* nu-l mai scria in camp) si se copiaza pe randul de TVA pereche; apoi ofer
*!* recalcularea sumei in lei din suma in valuta, ca la modificarea sumei in valuta
Local lnSumaDinVal, lnRaspuns
If This.Value # 0
Select introdc
Replace curs With This.Value
Thisform.copiaza_valoare([curs])
If in_valuta = 1 And suma_val # 0
lnSumaDinVal = Round(suma_val * This.Value, gnPC)
lnRaspuns = 6
If suma <> 0 And suma <> lnSumaDinVal
lnRaspuns = amessagebox("Suma in lei difera de suma in valuta transformata in lei!" + CHR(13) + CHR(10) + ;
"Doriti recalcularea sumei in lei?",4+32,"Diferente sume")
Endif
If lnRaspuns = 6
Replace suma With lnSumaDinVal
Endif
Thisform.do_executa
Endif
Endif
ENDPROC
PROCEDURE Grid1.cDataAct.Text1.Valid
Thisform.copiaza_valoare(This.Parent.ControlSource)
ENDPROC
PROCEDURE Grid1.cExplicatieTva.Combo1.Valid
*!* 14.07.2016
*!* marius.mutu
*!* inlocuiesc 4426 = 401 cu 4426 = 4427 pt ach tx inversa/CE 20%
LOCAL lnId, lnPtva, lnId_tva, lnId_jtva_coloanaTVA, lnCota_tva, lcExplicatie_TVA
lnId = jtva_coloane2.id_jtva_coloana
lnPtva = jtva_coloane2.cota_Tva
lnId_tva = jtva_coloane2.id_Tva
Select introdc
lnRec = Recno()
Select introdc
Replace id_jtva_coloana With lnId, ptva With lnPtva
If Mod(lnRec,2)<>0 && linie impara BAZA
Thisform.UpdateExplicatieSAFT()
If lnPtva = 0
Select introdc
Replace cu_tva With 0
Skip
Replace id_jtva_coloana With 0, ptva With 0, explicatie_tva With '', cu_tva with 0
ELSE && line para TVA
Select jtva_coloane2
Locate For id_jtva_coloana = lnId_tva
If Found()
lnId_jtva_coloanaTVA = jtva_coloane2.id_jtva_coloana
lnCota_tva = jtva_coloane2.cota_Tva
lcExplicatie_TVA = jtva_coloane2.denumire
* PENTRU TAXARE INVERSA SI COMUNITATEA EUROPEANA, TREBUIE 4426 = 4427 PE LINIA DE TVA, ALTFEL 4426 = 401
Select introdc
Replace cu_tva With 1
Skip
Replace id_jtva_coloana With lnId_jtva_coloanaTVA, ptva With lnCota_tva, explicatie_tva With lcExplicatie_TVA, cu_tva with 1
*!* If Inlist(lnId_jtva_coloanaTVA, 138, 140, 142, 144, 146, 163,128,130,134,149,151,153,161,165,167,169,183,185,187) && TVA ACH TX INV, TVA ACH CE-> 4426 = 4427
*!* Replace scc With '4427'
*!* Else
*!* Replace scc With '401'
*!* ENDIF
IF SEEK(lnId_jtva_coloanaTVA, "cJtvaCol4427","id_jtva")
Replace scc With '4427' IN introdc
ELSE
Replace scc With '401' IN introdc
ENDIF
Thisform.UpdateExplicatieSAFT()
Endif
Endif
* Actualizez Cod Taxa SAFT in functie de Cota TVA
ENDIF
Thisform.grid1.cSuma.teXT1.Valid
*!* lnId = jtva_coloane.id_jtva_coloana
*!* lnPtva = jtva_coloane.cota_Tva
*!* Select introdc
*!* Replace id_jtva_coloana With lnId,ptva With lnPtva
*!* Thisform.grid1.coluMN8.teXT1.Valid
ENDPROC
PROCEDURE Grid1.cExplicatieTva.Text1.DblClick
thisform.do_modifica_explicatie_tva()
ENDPROC
PROCEDURE Grid1.cExplicatieTva.Text1.InteractiveChange
thisform.do_modifica_explicatie_tva()
This.Value = introdc.explicatie_tva
ENDPROC
PROCEDURE Grid1.cFDoc.Text1.DblClick
Thisform.do_modifica_fdoc()
ENDPROC
PROCEDURE Grid1.cFDoc.Text1.InteractiveChange
Thisform.do_modifica_fdoc()
This.Value = introdc.fdoc
ENDPROC
PROCEDURE Grid1.cInValuta.Check1.Valid
thisform.do_executa
ENDPROC
PROCEDURE Grid1.cNract.Text1.Valid
*!* modificare v 2.1.39
Thisform.copiaza_valoare(This.Parent.ControlSource)
*!* IF MOD(RECNO(),2) = 1 AND RECNO() <> RECCOUNT()
*!* LOCAL lcSelect
*!* lcSelect = SELECT()
*!*
*!* SELECT introdc
*!* lnNract = nract
*!* SKIP
*!* REPLACE nract WITH lnNract
*!* SKIP -1
*!*
*!* SELECT (lcSelect)
*!* ENDIF
*!* modificare v 2.1.39 ^
ENDPROC
PROCEDURE Grid1.cPartC.Text1.Click
* single click nu mai declanseaza cautarea partenerului (golea partenerul la
* anulare). Re-alegerea se face pe dublu click - vezi DblClick.
ENDPROC
PROCEDURE Grid1.cPartC.Text1.DblClick
* re-alegerea partenerului creditor; daca se anuleaza, pastrez valoarea veche
Local lcSel, lnOldId, lcOldNume
lcSel = Thisform.grid1.RecordSource
lnOldId = &lcSel..id_partc
lcOldNume = &lcSel..partc
This.LostFocus(.t.)
If Empty(&lcSel..id_partc) And lnOldId <> 0
Select (lcSel)
Replace id_partc With lnOldId, partc With lcOldNume
Thisform.grid1.Refresh()
Endif
ENDPROC
PROCEDURE Grid1.cPartC.Text1.InteractiveChange
* nu mai fortez cautarea la tastare (vezi Click/DblClick)
ENDPROC
PROCEDURE Grid1.cPartC.Text1.LostFocus
PARAMETERS PlClick
lcSel = thisform.grid1.RecordSource
IF plClick OR EMPTY(&lcSel..id_partc)
lcCont = &lcSel..scc
llReturn = verific_partener(lcCont, 'partc','id_partc', lcSel) && in oOperatii_comune.prg
ELSE
DODEFAULT()
ENDIF
ENDPROC
PROCEDURE Grid1.cPartC.Text1.Valid
IF MOD(RECNO(),2) = 1 AND RECNO() <> RECCOUNT()
LOCAL lcSelect
lcSelect = SELECT()
SELECT introdc
lnIdPart = id_partc
lcPart = partc
lcCont = scc
SKIP
IF scc = lcCont AND EMPTY(id_partc)
REPLACE id_partc WITH lnIdPart, partc WITH lcPart
ENDIF
SKIP -1
SELECT (lcSelect)
ENDIF
ENDPROC
PROCEDURE Grid1.cPartD.Text1.Click
* single click nu mai declanseaza cautarea partenerului (vezi DblClick)
ENDPROC
PROCEDURE Grid1.cPartD.Text1.DblClick
* re-alegerea partenerului debitor; daca se anuleaza, pastrez valoarea veche
Local lcSel, lnOldId, lcOldNume
lcSel = Thisform.grid1.RecordSource
lnOldId = &lcSel..id_partd
lcOldNume = &lcSel..partd
This.LostFocus(.t.)
If Empty(&lcSel..id_partd) And lnOldId <> 0
Select (lcSel)
Replace id_partd With lnOldId, partd With lcOldNume
Thisform.grid1.Refresh()
Endif
ENDPROC
PROCEDURE Grid1.cPartD.Text1.InteractiveChange
* la tastare deschid cautarea de partener debitor - acelasi mecanism ca
* re-alegerea pe dublu-click (pastreaza valoarea veche la anulare)
This.DblClick()
This.Value = Evaluate(Thisform.grid1.RecordSource + '.partd')
ENDPROC
PROCEDURE Grid1.cPartD.Text1.LostFocus
PARAMETERS PlClick
lcSel = thisform.grid1.RecordSource
IF plClick OR EMPTY(&lcSel..id_partd)
lcCont = &lcSel..scd
llReturn = verific_partener(lcCont, 'partd','id_partd', lcSel) && in oOperatii_comune.prg
ELSE
DODEFAULT()
ENDIF
ENDPROC
PROCEDURE Grid1.cPartD.Text1.Valid
IF MOD(RECNO(),2) = 1 AND RECNO() <> RECCOUNT()
LOCAL lcSelect
lcSelect = SELECT()
SELECT introdc
lnIdPart = id_partd
lcPart = partd
lcCont = scd
SKIP
IF scd = lcCont AND EMPTY(id_partd)
REPLACE id_partd WITH lnIdPart, partd WITH lcPart
ENDIF
SKIP -1
SELECT (lcSelect)
ENDIF
ENDPROC
PROCEDURE Grid1.cParticipaValuta.Check1.Valid
thisform.do_executa
ENDPROC
PROCEDURE Grid1.cSerie_act.Text1.Valid
*!* modificare v 2.1.39
Thisform.copiaza_valoare(This.Parent.ControlSource)
*!* IF MOD(RECNO(),2) = 1 AND RECNO() <> RECCOUNT()
*!* LOCAL lcSelect
*!* lcSelect = SELECT()
*!*
*!* SELECT introdc
*!* lnSerie_act = serie_act
*!* SKIP
*!* REPLACE serie_act WITH lnSerie_act
*!* SKIP -1
*!*
*!* SELECT (lcSelect)
*!* ENDIF
*!* modificare v 2.1.39 ^
ENDPROC
PROCEDURE Grid1.cSuma.Text1.Valid
thisform.do_executa
ENDPROC
PROCEDURE Grid1.cSumaVal.Text1.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF NKEYCODE=13 OR nKeyCode = 4 &&ENTER
NODEFAULT
KEYBOARD '{DNARROW}'
ENDIF
ENDPROC
PROCEDURE Grid1.cSumaVal.Text1.Valid
*!* Mutat din LostFocus: acolo valoarea tastata se pierdea (dupa amessagebox
*!* grid-ul nu o mai scria in camp) - aici o scriu explicit din This.Value.
Local lnSumaDinVal, lnRaspuns
If This.Value # 0
Select introdc
Replace suma_val With This.Value
* runda 13: folosesc cursul randului (editabil in grid) cand exista; altfel cursul
* facturii principale, ca inainte
lnSumaDinVal = Round(This.Value * Iif(introdc.in_valuta = 1 And Nvl(introdc.curs, 0) <> 0, introdc.curs, Thisform.oact.Curs), gnPC)
lnRaspuns = 6
If suma <> 0 And suma <> lnSumaDinVal
lnRaspuns = amessagebox("Suma in lei difera de suma in valuta transformata in lei!" + CHR(13) + CHR(10) + ;
"Doriti recalcularea sumei in lei?",4+32,"Diferente sume")
Endif
If lnRaspuns = 6
Replace suma With lnSumaDinVal
Endif
Endif
Thisform.do_executa
ENDPROC
PROCEDURE Grid1.cTaxCode.Text1.InteractiveChange
If tact.cu_tva = 1
*!* modificare ROACONT v 2.4.4
If TYPE('tact.tipnota') = 'N' AND tact.tipnota = 1
*!* explicatii TVA exigibile din JC ( 1 ), JV ( 3 ) sau toate ( 5 )
locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1),,,iif(tact.scc=[4428],1,iif(tact.scd=[4428],3,5)))
Else
locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
Endif
*!* locauta = caut_explicatie_tva(Nvl(tact.id_jtva_coloana,-1))
*!* modificare ROACONT v 2.4.4 ^
If !Empty(locauta.id_jtva_coloana)
Select tact
Replace id_jtva_coloana With locauta.id_jtva_coloana,explicatie_Tva With locauta.denumire,proc_tva With (locauta.cota_tva + 100) / 100
Endif
* Actualizez Cod Taxa SAFT in functie de Cota TVA
Thisform.UpdateExplicatieSAFT()
ENDIF
ENDPROC
PROCEDURE Grid1.cValuta.Text1.DblClick
* alegerea valutei pe rand (caut_valuta, ca in dialogul Adauga factura);
* la anulare raman valorile vechi; valoarea se copiaza pe randul de TVA pereche
Local loCauta
loCauta = caut_valuta(, .F., .F.)
If Vartype(loCauta) = 'O' And !Empty(Nvl(loCauta.id_valuta, 0))
Select introdc
Replace id_valuta With loCauta.id_valuta, nume_val With Alltrim(loCauta.nume_val)
Thisform.copiaza_valoare([id_valuta])
Thisform.copiaza_valoare([nume_val])
Thisform.grid1.Refresh()
Endif
ENDPROC
PROCEDURE Grid1.cValuta.Text1.InteractiveChange
* la tastare deschid cautarea de valuta - acelasi mecanism ca dublu-click
This.DblClick()
This.Value = introdc.nume_val
ENDPROC
PROCEDURE Grid1.Init
thisform.grid1.SetAll("dynamicbackcolor", "", "Column")
thisform.grid1.SetAll("dynamicforecolor", "", "Column")
thisform.grid1.SetAll("DynamicBackColor", "introdc.doc_color", "Column")
thisform.grid1.SetAll("DynamicFontItalic", "Mod(Recno('introdc'),2)=0", "Column")
ENDPROC
ENDDEFINE
DEFINE CLASS nir 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="_shapeSus" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura1.txfTotal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura1.txfBaza" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura1.txfTva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_discount1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shapeDr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Urmator1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lbTotal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txNir" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_adaos1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1.lb_listePreturi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1.cboListe" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1.Cb_tx_gestout" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1.Cb_tx_gestin" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura2.lb_curs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura2.lb_valuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="tx_totalctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_totalctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container_valoare_decontata1" UniqueID="" Timestamp="" />
#INCLUDE "..\include\foxpro.h"
*<DefinedPropArrayMethod>
*m: aleg_cont_transfer
*m: analiza_cmp
*m: assign_analitic
*m: assign_values
*m: bon_fiscal
*m: calcul_pret_vanzare
*m: calcul_sume
*m: caut_gestiune
*m: compensare
*m: do_verifica_sume
*m: intrare_produs
*m: modificare_lista_preturi
*p: cfrm_ceredate
*p: cobj
*p: ctip_frm
*p: nftotctva
*p: nftotftva
*p: nftottva
*p: nidresponsabil
*p: nresp
*p: ntotal
*p: ntvaincasare
*p: omemopref && Obiectul in care se retin preferintele : id_jtva_ach, proc_tva, id_jtva_vanz, proc_tvav
*p: osel_dr
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cbuton3 =
cbuton4 = Ct_grid_order1.But_sterge1;but_reface1
cfrm_ceredate =
cobj =
ctip_frm = NIR
DoCreate = .T.
Height = 572
lactiv3 = .T.
lactiv4 = .T.
Name = "nir"
nftotctva = 0.00
nftotftva = 0.00
nftottva = 0.00
nidresponsabil = 0
nresp =
ntotal = 0
ntvaincasare = 0
omemopref = .NULL.
osel_dr =
Width = 793
WindowType = 1
_memberdata = <VFPData>
<memberdata name="nidresponsabil" display="nIdResponsabil"/>
<memberdata name="nresp" display="nResp"/>
</VFPData>
_shape1.Anchor = 11
_shape1.Height = 30
_shape1.Left = -1
_shape1.Name = "_shape1"
_shape1.Tag = ""
_shape1.Top = -1
_shape1.Width = 726
_shape1.ZOrderSet = 4
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 724
_shape2.Name = "_shape2"
_shape2.Tag = "MOVABLE"
_shape2.Top = 0
_shape2.Width = 69
_shape2.ZOrderSet = 7
Lb_titlu_alb_b121.Anchor = 3
Lb_titlu_alb_b121.FontName = "Comic Sans MS"
Lb_titlu_alb_b121.FontSize = 10
Lb_titlu_alb_b121.Height = 20
Lb_titlu_alb_b121.Left = 10
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
Lb_titlu_alb_b121.Top = 3
Lb_titlu_alb_b121.Width = 41
Lb_titlu_alb_b121.ZOrderSet = 9
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Height = 27
BUT_TERMIN1.Left = 757
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Tag = ""
BUT_TERMIN1.Top = 1
BUT_TERMIN1.Width = 32
BUT_TERMIN1.ZOrderSet = 13
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_shape3' AS _shape WITH ;
Anchor = 135, ;
BackStyle = 0, ;
BorderColor = 7,118,177, ;
BorderWidth = 2, ;
Height = 408, ;
Left = 9, ;
Name = "_shape3", ;
Tag = "", ;
Top = 156, ;
Width = 361, ;
ZOrderSet = 3
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shapeDr' AS _shape WITH ;
Anchor = 45, ;
BackStyle = 0, ;
BorderColor = 7,118,177, ;
BorderWidth = 2, ;
Height = 408, ;
Left = 406, ;
Name = "_shapeDr", ;
Tag = "", ;
Top = 156, ;
Width = 381, ;
ZOrderSet = 5
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shapeSus' AS _shape WITH ;
Anchor = 11, ;
BackStyle = 0, ;
BorderColor = 7,118,177, ;
BorderWidth = 2, ;
Height = 123, ;
Left = 9, ;
Name = "_shapeSus", ;
Tag = "RESIZABLE, MOVABLE", ;
Top = 32, ;
Width = 778, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 727, ;
Name = "But_renunt1", ;
TabIndex = 4, ;
Tag = "", ;
Top = 1, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Container_valoare_decontata1' AS container_valoare_decontata WITH ;
Left = 15, ;
Name = "Container_valoare_decontata1", ;
Top = 81, ;
Visible = .F., ;
ZOrderSet = 20, ;
Label1.Name = "Label1", ;
Text1.Name = "Text1"
*< END OBJECT: ClassLib="ointroduceri.vcx" BaseClass="container" />
ADD OBJECT 'Ct_adaos1' AS ct_adaos WITH ;
Anchor = 9, ;
Left = 538, ;
Name = "Ct_adaos1", ;
TabIndex = 8, ;
Tag = "", ;
Top = 38, ;
ZOrderSet = 14, ;
LBBAZA_ADAOS.Name = "LBBAZA_ADAOS", ;
LBTVA_ADAOS.Name = "LBTVA_ADAOS", ;
LBPROC_ADAOS.Name = "LBPROC_ADAOS", ;
TXBAZA_ADAOS.ControlSource = "this.parent.baza_adaos", ;
TXBAZA_ADAOS.Name = "TXBAZA_ADAOS", ;
TXTVA_ADAOS.Name = "TXTVA_ADAOS", ;
TXPROC_ADAOS.Name = "TXPROC_ADAOS"
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_discount1' AS ct_discount WITH ;
Anchor = 3, ;
Height = 112, ;
Left = 286, ;
Name = "Ct_discount1", ;
TabIndex = 10, ;
Tag = "", ;
Top = 37, ;
Width = 284, ;
ZOrderSet = 2, ;
COMBOGRID3.Name = "COMBOGRID3", ;
LBBAZA_DISCOUNT.Name = "LBBAZA_DISCOUNT", ;
LBTVA_DISCOUNT.Name = "LBTVA_DISCOUNT", ;
LBPROC_DISCOUNT.Name = "LBPROC_DISCOUNT", ;
TXBAZA_DISCOUNT.Name = "TXBAZA_DISCOUNT", ;
TXTVA_DISCOUNT.Name = "TXTVA_DISCOUNT", ;
TXPROC_DISCOUNT.Format = "r", ;
TXPROC_DISCOUNT.InputMask = (get_mask(12,2)), ;
TXPROC_DISCOUNT.Name = "TXPROC_DISCOUNT", ;
CotaTVA.HideSelection = .F., ;
CotaTVA.Name = "CotaTVA", ;
lbTva.Name = "lbTva", ;
lb_explicatie_tva.Left = 1, ;
lb_explicatie_tva.Name = "lb_explicatie_tva", ;
lb_explicatie_tva.Top = 91
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_factura1' AS ct_factura WITH ;
Anchor = 131, ;
Height = 71, ;
Left = 14, ;
Name = "Ct_factura1", ;
TabIndex = 9, ;
Tag = "", ;
Top = 61, ;
Width = 292, ;
ZOrderSet = 1, ;
lbBaza.Left = 4, ;
lbBaza.Name = "lbBaza", ;
lbBaza.Top = 27, ;
LbTva.Left = 4, ;
LbTva.Name = "LbTva", ;
LbTva.Top = 50, ;
txBaza.ControlSource = "this.parent.totftva", ;
txBaza.Height = 23, ;
txBaza.Left = 99, ;
txBaza.Name = "txBaza", ;
txBaza.ToolTipText = "Valoarea fara TVA calculata", ;
txBaza.Top = 25, ;
txBaza.Width = 91, ;
txTva.ControlSource = "this.parent.tva", ;
txTva.Height = 23, ;
txTva.Left = 99, ;
txTva.Name = "txTva", ;
txTva.ToolTipText = "Valoarea TVA calculata", ;
txTva.Top = 48, ;
txTva.Width = 91, ;
lbExplic.AutoSize = .F., ;
lbExplic.Left = 6, ;
lbExplic.Name = "lbExplic", ;
lbExplic.Top = 14, ;
txTotal.Height = 23, ;
txTotal.Left = 99, ;
txTotal.Name = "txTotal", ;
txTotal.ToolTipText = "Valoarea cu TVA calculata", ;
txTotal.Top = 1, ;
txTotal.Width = 91, ;
lbTotal.AutoSize = .F., ;
lbTotal.Left = 3, ;
lbTotal.Name = "lbTotal", ;
lbTotal.Top = 3
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_factura1.txfBaza' AS _txbase WITH ;
BackColor = 206,231,255, ;
ControlSource = "thisform.nfTotftva", ;
Format = "KR", ;
Height = 23, ;
InputMask = (get_mask(9,gnPC)), ;
Left = 192, ;
Name = "txfBaza", ;
ToolTipText = "Valoarea fara TVA de pe factura - modificati daca este diferita de valoarea calculata", ;
Top = 25, ;
Visible = .F., ;
Width = 96
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Ct_factura1.txfTotal' AS _txbase WITH ;
ControlSource = "thisform.nfTotctva", ;
DisabledBackColor = 255,255,255, ;
Format = "RK", ;
Height = 23, ;
InputMask = (get_mask(9,gnPC)), ;
Left = 192, ;
Name = "txfTotal", ;
ReadOnly = .T., ;
ToolTipText = "Valoarea cu TVA de pe factura", ;
Top = 1, ;
Visible = .F., ;
Width = 96
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Ct_factura1.txfTva' AS _txbase WITH ;
BackColor = 206,231,255, ;
ControlSource = "thisform.nfTottva", ;
Format = "KR", ;
Height = 23, ;
InputMask = (get_mask(9,gnPC)), ;
Left = 192, ;
Name = "txfTva", ;
ToolTipText = "Valoarea TVA de pe factura - modificati daca este diferita de valoarea calculata", ;
Top = 48, ;
Visible = .F., ;
Width = 96
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Ct_factura2' AS ct_factura WITH ;
Anchor = 3, ;
Height = 96, ;
Left = 285, ;
Name = "Ct_factura2", ;
TabIndex = 9, ;
Tag = "", ;
Top = 45, ;
Width = 270, ;
ZOrderSet = 17, ;
LBBAZA.Left = 51, ;
LBBAZA.Name = "LBBAZA", ;
LBBAZA.Top = 52, ;
LBTVA.Left = 51, ;
LBTVA.Name = "LBTVA", ;
LBTVA.Top = 72, ;
TXBAZA.Height = 23, ;
TXBAZA.InputMask = (get_mask(14,gnPVal)), ;
TXBAZA.Left = 130, ;
TXBAZA.Name = "TXBAZA", ;
TXBAZA.Top = 50, ;
TXBAZA.Width = 138, ;
TXTVA.Height = 23, ;
TXTVA.InputMask = (get_mask(14,gnPVal)), ;
TXTVA.Left = 130, ;
TXTVA.Name = "TXTVA", ;
TXTVA.Top = 70, ;
TXTVA.Width = 138, ;
LBEXPLIC.Left = 1, ;
LBEXPLIC.Name = "LBEXPLIC", ;
LBEXPLIC.Top = 52, ;
TXTOTAL.ControlSource = "this.parent.totctva", ;
TXTOTAL.Height = 23, ;
TXTOTAL.InputMask = (get_mask(14,gnPVal)), ;
TXTOTAL.Left = 130, ;
TXTOTAL.Name = "TXTOTAL", ;
TXTOTAL.Top = 28, ;
TXTOTAL.Width = 138, ;
LBTOTAL.Height = 18, ;
LBTOTAL.Left = 3, ;
LBTOTAL.Name = "LBTOTAL", ;
LBTOTAL.Top = 19, ;
LBTOTAL.Width = 106
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_factura2.lb_curs' AS lb_titlu_albastru_b12 WITH ;
Alignment = 2, ;
AutoSize = .F., ;
Caption = "[Curs]", ;
FontBold = .T., ;
Height = 22, ;
Left = 19, ;
Name = "lb_curs", ;
Top = 2, ;
Width = 201
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Ct_factura2.lb_valuta' AS lb_titlu_albastru_b12 WITH ;
Caption = "[Valuta]", ;
FontBold = .F., ;
FontSize = 9, ;
ForeColor = 7,118,177, ;
Height = 17, ;
Left = 58, ;
Name = "lb_valuta", ;
Top = 35, ;
Width = 42
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Ct_grid_order1' AS ct_grid_order WITH ;
Anchor = 45, ;
cnumecursor = rul_temp1, ;
Height = 425, ;
Left = 409, ;
Name = "Ct_grid_order1", ;
TabIndex = 11, ;
Top = 139, ;
Width = 375, ;
ZOrderSet = 16, ;
_GRID1.Height = 325, ;
_GRID1.Left = 6, ;
_GRID1.Name = "_GRID1", ;
_GRID1.TabIndex = 2, ;
_GRID1.Top = 93, ;
_GRID1.Width = 364, ;
Titlu.Left = 9, ;
Titlu.Name = "Titlu", ;
Titlu.TabIndex = 3, ;
Titlu.Top = 28, ;
Cb_tx_cautare1.Criteriu.Name = "Criteriu", ;
Cb_tx_cautare1.Left = 7, ;
Cb_tx_cautare1.Name = "Cb_tx_cautare1", ;
Cb_tx_cautare1.TabIndex = 1, ;
Cb_tx_cautare1.Text.Name = "Text", ;
Cb_tx_cautare1.Top = 65
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_order1.But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
Left = 310, ;
Name = "But_sterge1", ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 65, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ct_grid_order1.Cb_tx_gestin' AS cb_tx_simplu WITH ;
BackStyle = 0, ;
BorderColor = 255,255,255, ;
Height = 24, ;
Left = 7, ;
Name = "Cb_tx_gestin", ;
TabIndex = 4, ;
Top = 40, ;
Width = 366, ;
_CBBASE1.BorderStyle = 0, ;
_CBBASE1.ColumnCount = 2, ;
_CBBASE1.ColumnLines = .F., ;
_CBBASE1.ColumnWidths = "220,40", ;
_CBBASE1.ControlSource = "poact.gestin", ;
_CBBASE1.FontItalic = .F., ;
_CBBASE1.FontName = "Arial Narrow", ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 130, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.RowSource = "nom_gestiuni.nume_gestiune,cgest", ;
_CBBASE1.RowSourceType = 6, ;
_CBBASE1.Sorted = .F., ;
_CBBASE1.Top = 0, ;
_CBBASE1.Width = 229, ;
_LBBASE1.Caption = "Gestiunea destinatie", ;
_LBBASE1.FontItalic = .T., ;
_LBBASE1.Left = 3, ;
_LBBASE1.Name = "_LBBASE1", ;
_LBBASE1.Top = 4
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_search1' AS ct_grid_search WITH ;
Anchor = 135, ;
cnumecursor = cursor_curent1, ;
Height = 418, ;
Left = 11, ;
Name = "Ct_grid_search1", ;
TabIndex = 1, ;
Top = 140, ;
Width = 357, ;
ZOrderSet = 15, ;
_GRID1.Comment = "grd_st", ;
_GRID1.Height = 324, ;
_GRID1.Left = 6, ;
_GRID1.Name = "_GRID1", ;
_GRID1.RecordSource = "cursor_curent", ;
_GRID1.TabIndex = 3, ;
_GRID1.Top = 94, ;
_GRID1.Width = 347, ;
_GRID1.ZOrderSet = 0, ;
Titlu.Left = 9, ;
Titlu.Name = "Titlu", ;
Titlu.TabIndex = 4, ;
Titlu.Top = 24, ;
Titlu.ZOrderSet = 1, ;
Cb_tx_cautare1.Criteriu.Comment = "criteriu_st", ;
Cb_tx_cautare1.Criteriu.Name = "Criteriu", ;
Cb_tx_cautare1.Height = 27, ;
Cb_tx_cautare1.Left = 7, ;
Cb_tx_cautare1.Name = "Cb_tx_cautare1", ;
Cb_tx_cautare1.TabIndex = 2, ;
Cb_tx_cautare1.Text.Comment = "text_st", ;
Cb_tx_cautare1.Text.Height = 25, ;
Cb_tx_cautare1.Text.Left = 103, ;
Cb_tx_cautare1.Text.Name = "Text", ;
Cb_tx_cautare1.Text.Top = 1, ;
Cb_tx_cautare1.Text.Width = 207, ;
Cb_tx_cautare1.Top = 66, ;
Cb_tx_cautare1.Width = 312, ;
Cb_tx_cautare1.ZOrderSet = 2
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_search1.But_nou1' AS but_nou WITH ;
Anchor = 9, ;
Height = 27, ;
Left = 322, ;
Name = "But_nou1", ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 65, ;
ZOrderSet = 3
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ct_grid_search1.Cb_tx_gestout' AS cb_tx_simplu WITH ;
BackStyle = 0, ;
BorderColor = 255,255,255, ;
Height = 24, ;
Left = 7, ;
Name = "Cb_tx_gestout", ;
TabIndex = 5, ;
Top = 38, ;
Width = 346, ;
ZOrderSet = 6, ;
_CBBASE1.BorderStyle = 0, ;
_CBBASE1.ColumnCount = 2, ;
_CBBASE1.ColumnLines = .F., ;
_CBBASE1.ColumnWidths = "180,30", ;
_CBBASE1.ControlSource = "poact.gestout", ;
_CBBASE1.FontItalic = .F., ;
_CBBASE1.FontName = "Arial Narrow", ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 101, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.RowSource = "nom_gestiuni.nume_gestiune,cgest", ;
_CBBASE1.RowSourceType = 6, ;
_CBBASE1.Sorted = .F., ;
_CBBASE1.Top = 1, ;
_CBBASE1.Width = 243, ;
_LBBASE1.Caption = "Gestiunea sursa", ;
_LBBASE1.FontItalic = .T., ;
_LBBASE1.Left = 3, ;
_LBBASE1.Name = "_LBBASE1", ;
_LBBASE1.Top = 3
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_search1.cboListe' AS combobox WITH ;
Anchor = 3, ;
BorderStyle = 0, ;
ColumnCount = 4, ;
ColumnLines = .F., ;
ColumnWidths = "200,65,60,0", ;
Format = "", ;
Height = 23, ;
Left = 104, ;
Name = "cboListe", ;
RowSource = "cListePret.nume_lista_preturi,datai,datas,id_pol", ;
RowSourceType = 2, ;
Style = 2, ;
TabIndex = 1, ;
Top = 39, ;
Visible = .F., ;
Width = 247, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Ct_grid_search1.lb_listePreturi' AS label WITH ;
Anchor = 3, ;
BackStyle = 0, ;
Caption = "Lista de preturi:", ;
FontItalic = .T., ;
Height = 17, ;
Left = 11, ;
Name = "lb_listePreturi", ;
TabIndex = 7, ;
Top = 42, ;
Visible = .F., ;
Width = 84, ;
ZOrderSet = 4
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lb_totalctva' AS lb_simplu WITH ;
Anchor = 9, ;
Caption = "Total val.vânz. cu TVA", ;
ForeColor = 7,118,177, ;
Left = 542, ;
Name = "lb_totalctva", ;
Top = 119, ;
Visible = .F., ;
ZOrderSet = 19
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'lbTotal' AS titlufrumos WITH ;
Anchor = 3, ;
AutoSize = .F., ;
Caption = "TOTAL NIR:", ;
ForeColor = 7,118,177, ;
Height = 20, ;
Left = 17, ;
Name = "lbTotal", ;
TabIndex = 6, ;
Top = 40, ;
Width = 77, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="baza.vcx" BaseClass="label" />
ADD OBJECT 'tx_totalctva' AS _txbase WITH ;
Alignment = 3, ;
Anchor = 9, ;
Height = 23, ;
InputMask = (get_mask(12,gnPc)), ;
Left = 665, ;
Name = "tx_totalctva", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabStop = .F., ;
Top = 117, ;
Value = 0, ;
Visible = .F., ;
Width = 113, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'txNir' AS _txbase WITH ;
Anchor = 3, ;
BackStyle = 1, ;
ControlSource = "thisform.ntotal", ;
DisabledBackColor = 255,255,255, ;
FontCharSet = 238, ;
Height = 21, ;
InputMask = (get_mask(12,gnPc)), ;
Left = 114, ;
Name = "txNir", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Tag = "", ;
Top = 39, ;
Width = 147, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Urmator1' AS urmator WITH ;
Anchor = 240, ;
Left = 373, ;
Name = "Urmator1", ;
TabIndex = 2, ;
Tag = "", ;
Top = 324, ;
ZOrderSet = 10, ;
Imbuton1.Height = 27, ;
Imbuton1.Name = "Imbuton1", ;
Imbuton1.Width = 30, ;
Command1.Name = "Command1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
PROCEDURE Activate
this.WindowState = 2
ENDPROC
PROCEDURE aleg_cont_transfer
PARAMETERS tnIdGest
lcSql = [select (case when p.explicatie is null then s.explicatie else p.explicatie end) as explicatie,] +;
[c.cont, p.acont from VCORESP_CONT_TIPGEST c ] +;
[left join vplcont_analitic p on c.cont = p.cont and p.an = ?gnAn ] +;
[left join vplcont_sintetic s on c.cont = s.cont and s.an = ?gnAn]
pcFiltruOrig = [c.id_tipgest in (select nr_pag from vnom_gestiuni where id_gestiune = ?tnIdGest)]
pcfiltru = [1=2]
pcschema = []
pcorder = [cont,acont]
pccoloane = [cont,acont,explicatie]
pcTitlu = [Alegeti Contul de Transfer]
pcTitluColoane = [Cont,Analitic,Explicatie cont]
locauta = cauta_alfa(lcSql,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'',.F.,pcFiltruOrig) && 11.07.2007
RETURN loCauta
ENDPROC
PROCEDURE analiza_cmp
PARAMETERS tcRul, tcAct
*!* 14.10.2006
*!* mutu.marius
*!* tratare achizitie articol cu mai multe preturi
LOCAL lcSql, lcCursor, lnSucces
PRIVATE poArticol
*** alocare numar NIR pt rulajele generate de CMP
*** dezaloc in caz ca trece de mai multe ori prin metoda asta
IF THISFORM.numar_plaja1.id_numar # 0
THISFORM.numar_plaja1.dezalocare_numar()
ENDIF
lnIdEnt = 0
THIS.numar_plaja1.id_entitate = lnIdEnt
THIS.numar_plaja1.tip = 4 && NIR PT CMP
THIS.numar_plaja1.serie = 2 && Asa transmit paramerii la procedura viz_config_serii din oproceduri_configurare.prg
THIS.numar_plaja1.alocare_numar()
lnNnir = THIS.numar_plaja1.numar_curent
***
SELECT * ;
FROM (tcRul) WITH (BUFFERING = .T.) ;
INTO CURSOR crsTempRul
SELECT DISTINCT ID_ARTICOL, CONT FROM crsTempRul ;
INTO CURSOR crsArticoleTemp
&& pentru fiecare articol - se poate sa am acelasi articol cu mai multe preturi
SELECT crsArticoleTemp
SCAN
SCATTER NAME poArticol
&& selectez din stoc cantitatea si pretul existente pentru articolul curent
&& posibil mai multe gestiuni ???
lcSql = [SELECT cants+cant-cante as cante, pret, id_articol, id_gestiune, id_gestiune as id_gestout, cont,] + ;
[acont FROM stoc where an = ?gnAn and luna = ?gnluna and id_articol = ?poArticol.id_articol ] + ;
[and (cants+cant-cante)<>0 and TRIM(cont) = ?ALLTRIM(poArticol.cont)] + gcCondSucursala
lcCursorStoc = [tmpVer]
lnSucces = goExecutor.oExecute(lcSql, lcCursorStoc)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
&& pentru fiecare pozitie articol achizitionat din articolul curent
SELECT crsTempRul
SCAN FOR cant <> 0 AND id_articol = poArticol.id_articol
SCATTER NAME orul
&& scot articolul curent din rulaj la pretul de achizitie
*!* IF RECCOUNT(lcCursorStoc) > 0
&& il scot chiar daca nu il am in stoc - pentru ca s-ar putea sa fie achizitionat cu mai multe preturi
SELECT (tcRul)
APPEND BLANK
GATHER NAME orul
REPLACE cante WITH orul.cant, cant WITH 0, nnir WITH lnNnir, tva WITH 0
REPLACE id_tip_rulaj WITH 2 && RULAJ ARTIFICIAL CMP
*!* ENDIF
SELECT crsTempRul
ENDSCAN
*** scot din stoc articolul curent - cantitatea si pretul existente - inainte de achizitia curenta
IF USED(lcCursorStoc)
SELECT (lcCursorStoc)
SCAN
SCATTER NAME ointr
SELECT (tcRul)
APPEND BLANK
GATHER NAME orul
REPLACE cant WITH 0, cante WITH 0
GATHER NAME ointr
REPLACE nnir WITH lnNnir
REPLACE id_tip_rulaj WITH 2 && RULAJ ARTIFICIAL CMP
SELECT (lcCursorStoc)
ENDSCAN
USE IN (lcCursorStoc)
ENDIF
&& aflu pretul mediu ponderat - selectez toate iesirile din rul_temp (articolele achizitionate si stocul precedent)
&& pentru articol, cont curente
&& un singur pret mediu ponderat pe articol, indiferent de gestiune
*!* 05.12.2006
*!* MARIUS.MUTU
*!* LA RETUR FACTURA FURNIZOR CANTITATE NEGATIVA, DACA E RETUR LA TOATA CANTITATEA DIN STOC,
*!* CANTITATEA TOTALA = 0, NUMERIC OVERFLOW LA CALCUL CMP
*!* AM FACUT ABS(CANTE)
SELECT SUM(ROUND(PRET*ABS(cante),gnPc)) AS valoare, SUM(ABS(cante)) AS cantitate, ID_ARTICOL, CONT ;
FROM (tcRul) WITH (BUFFERING = .T.) ;
WHERE cante <> 0 AND ID_ARTICOL = poArticol.ID_ARTICOL AND CONT = poArticol.CONT ;
GROUP BY ID_ARTICOL, CONT ;
INTO CURSOR tCmp
SELECT tCmp
SCAN
SCATTER NAME ocmp
&& pretul mediu ponderat
lnCMP = ROUND(ocmp.valoare/ocmp.cantitate, gnPpret)
&& articol, gestiune, cantitate_totala (cantitate achizitionata cu toate preturile + stoc)
SELECT id_articol, id_gestiune, SUM(cante) AS cant ;
FROM (tcRul) WITH (BUFFERING = .T.) ;
WHERE ID_ARTICOL = ocmp.ID_ARTICOL AND cante <> 0 AND CONT = ocmp.CONT ;
GROUP BY id_gestiune, ID_ARTICOL ;
INTO CURSOR crsCantGest
&& adaug in rulaj intrarea cu toata cantitatea (achizitionata + stoc) la noul pret mediu ponderat
SELECT crsCantGest
SCAN
SCATTER NAME ocant
SELECT (tcRul)
APPEND BLANK
GATHER NAME orul
REPLACE PRET WITH lnCMP, cant WITH 0, cante WITH 0, tva WITH 0
GATHER NAME ocant
REPLACE nnir WITH lnNnir
REPLACE id_tip_rulaj WITH 2 && RULAJ ARTIFICIAL CMP
SELECT crsCantGest
ENDSCAN
USE IN crsCantGest
&& diferente de pret din rotunjiri
IF ROUND(lnCMP * ocmp.cantitate, gnPc) - ocmp.valoare <> 0
SELECT (tcAct)
APPEND BLANK
GATHER NAME poact
REPLACE nnir WITH lnNnir
REPLACE scd WITH ocmp.CONT, scc WITH IIF(LEFT(ocmp.cont,3) = '371', '378', '308'), ascd WITH '', ascc WITH ''
REPLACE suma WITH ROUND(lnCMP*ocmp.cantitate,gnPc) - ocmp.valoare
ENDIF
SELECT tCmp
ENDSCAN
USE IN tCmp
ENDSCAN && crsArticoleTemp
USE IN crsArticoleTemp
SELECT (tcRul)
&& program vechi
*!* PARAMETERS tcRul, tcAct
*!* *** alocare numar NIR pt rulajele generate de CMP
*!* *** dezaloc in caz ca trece de mai multe ori prin metoda asta
*!* IF thisform.numar_plaja1.id_numar # 0
*!* thisform.numar_plaja1.dezalocare_numar()
*!* ENDIF
*!* lnIdEnt = 0
*!* this.numar_plaja1.id_entitate = lnIdEnt
*!* this.numar_plaja1.tip = 4 && NIR PT CMP
*!* this.numar_plaja1.serie = 2 && Asa transmit paramerii la procedura viz_config_serii din oproceduri_configurare.prg
*!* this.numar_plaja1.alocare_numar()
*!* lnNnir = this.numar_plaja1.numar_curent
*!* ***
*!* SELECT * FROM (tcRul) WITH (BUFFERING = .T.) INTO CURSOR crsTempRul
*!* SELECT crsTempRul
*!* SCAN FOR cant <> 0
*!* SCATTER NAME orul
*!* lcCont = ALLTRIM(orul.cont)
*!* lcsql = [SELECT cants+cant-cante as cante, pret, id_articol, id_gestiune, id_gestiune as id_gestout, cont, acont FROM stoc where an = ?gnAn and luna = ?gnluna and id_articol = ?orul.id_articol and (cants+cant-cante)<>0 and TRIM(cont) =?lcCont]
*!* lcCursor = [tmpVer]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* IF RECCOUNT(lcCursor) > 0
*!* SELECT (tcRul)
*!* APPEND BLANK
*!* GATHER NAME orul
*!* REPLACE cante WITH orul.cant, cant WITH 0, nnir WITH lnNnir
*!* ENDIF
*!* SELECT (lcCursor)
*!* SCAN
*!* SCATTER NAME ointr
*!* SELECT (tcRul)
*!* APPEND BLANK
*!* GATHER NAME orul
*!* REPLACE cant WITH 0, cante WITH 0
*!* GATHER NAME ointr
*!* REPLACE nnir WITH lnNnir
*!* SELECT (lcCursor)
*!* ENDSCAN
*!* USE IN (lcCursor)
*!*
*!* *!* SELECT (tcRul)
*!* *!* LOCATE
*!* && aflu pretul mediu ponderat
*!* SELECT SUM(ROUND(pret*cante,gnPc)) as valoare, SUM(cante) as cantitate, id_articol, cont ;
*!* FROM (tcRul) WITH (BUFFERING = .T.) ;
*!* WHERE cante <> 0 AND id_articol = orul.id_articol ;
*!* GROUP BY id_articol, cont ;
*!* INTO CURSOR tCmp
*!*
*!* SELECT tCmp
*!* SCAN
*!* SCATTER NAME ocmp
*!* lnCMP = ROUND(ocmp.valoare/ocmp.cantitate,gnPc)
*!*
*!* SELECT id_gestiune, SUM(cante) as cant FROM (tcRul) WITH (BUFFERING = .T.) ;
*!* WHERE id_articol = ocmp.id_articol AND cante <> 0 AND cont = ocmp.cont ;
*!* GROUP BY id_gestiune, id_articol ;
*!* INTO CURSOR crsCantGest
*!*
*!* SELECT crsCantGest
*!* SCAN
*!* SCATTER NAME ocant
*!* SELECT (tcRul)
*!* APPEND BLANK
*!* GATHER NAME orul
*!* REPLACE pret WITH lnCMP, cant WITH 0, cante WITH 0
*!* GATHER NAME ocant
*!* REPLACE nnir WITH lnNnir
*!* SELECT crsCantGest
*!* ENDSCAN
*!* USE IN crsCantGest
*!* IF ROUND(lnCMP*ocmp.cantitate,gnPc) - ocmp.valoare <> 0
*!* SELECT (tcAct)
*!* APPEND BLANK
*!* GATHER NAME poact
*!* REPLACE nnir WITH lnNnir
*!* REPLACE scd WITH ocmp.cont, scc WITH '308 ', ascd WITH '', ascc WITH ''
*!* REPLACE suma WITH ROUND(lnCMP*ocmp.cantitate,gnPc) - ocmp.valoare
*!* ENDIF
*!* SELECT tCmp
*!* ENDSCAN
*!* USE IN tCmp
*!* SELECT crsTempRul
*!* ENDSCAN
*!* USE IN crsTempRul
*!* SELECT (tcRul)
ENDPROC
PROCEDURE assign_analitic
PARAMETERS tcCont,pcAct,pcRul
PRIVATE pcCont,pcAct,pcRul,pParamP,pParamS
STORE 0 TO pParamP,pParamS
lcAnalitic = ''
lcAlias = ALIAS()
pcCont = ALLTRIM(tcCont)
lcSel = [SELECT * from ] + gcs + [.config_analitice WHERE cont = '] + ALLTRIM(pcCont) + [']
lcCursor = 'crs_cfg_ana'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
IF lnSucces > 0
IF RECCOUNT('crs_cfg_ana')=0
USE IN crs_cfg_ana
lnSucces = -1
ENDIF
ENDIF
IF lnSucces > 0
SELECT crs_cfg_ana
SCATTER NAME ocfg
lcCampPrefix = NVL(ALLTRIM(ocfg.camp_leg_prefix),'')
lcCampSufix = NVL(ALLTRIM(ocfg.camp_leg_sufix),'')
IF !EMPTY(lcCampPrefix)
IF TYPE('&pcRul..'+lcCampPrefix) # 'U'
pParamP = &pcRul..&lcCampPrefix
ELSE
IF TYPE('&pcAct..'+lcCampPrefix) # 'U'
pParamP = &pcAct..&lcCampPrefix
ENDIF
ENDIF
ENDIF
IF !EMPTY(lcCampSufix)
IF TYPE('&pcRul..'+lcCampSufix) # 'U'
pParamS = &pcRul..&lcCampSufix
ELSE
IF TYPE('&pcAct..'+lcCampSufix) # 'U'
pParamS = &pcAct..&lcCampSufix
ENDIF
ENDIF
ENDIF
lcSel = [{call fconturi_analitice('] + ALLTRIM(gcs) + [','] + ALLTRIM(pcCont) + [',0,] + TRANSFORM(pParamP) + [,] + TRANSFORM(pParamS) + [)}]
lcCursor = 'crs_analitice'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
ENDIF
ENDIF
&& iau Primul Simbol Analitic din Tabel - ordonat pt ca e selectat cu Distinct
IF lnSucces > 0
SELECT crs_analitice
GO top
lcAnalitic = ALLTRIM(acont)
ENDIF
&& verificare analiticului cu Planul de Conturi
IF lnSucces > 0
lcSel = [SELECT cont,acont from ] + gcs + [.vplcont_analitic WHERE cont = '] + ALLTRIM(pcCont) + [' and acont = '] + ALLTRIM(lcAnalitic) + [' and an = ] + TRANSFORM(gnAn)
lcCursor = 'crs_verific'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
ENDIF
ENDIF
IF lnSucces > 0
IF RECCOUNT('crs_verific')=0
lnSucces = -1
ENDIF
ENDIF
IF USED('crs_cfg_ana')
USE IN crs_cfg_ana
ENDIF
IF USED('crs_verific')
USE IN crs_verific
ENDIF
IF USED('crs_analitice')
USE IN crs_analitice
ENDIF
IF USED('crs_verific')
USE IN crs_verific
ENDIF
IF lnSucces < 0
lcAnalitic = ''
ENDIF
SELECT (lcAlias)
RETURN lcAnalitic
ENDPROC
PROCEDURE assign_values
PARAMETERS tcObjDestinatie, tcObjSursa1, tcObjSursa2
lcSelRul = this.ct_grid_order1.cnumecursor
lcOdest = ALLTRIM(tcObjDestinatie)
lcOsursa1 = ALLTRIM(tcObjSursa1)
lcOsursa2 = ALLTRIM(tcObjSursa2)
SELECT (lcSelRul)
FOR i = 1 TO FCOUNT()
lcNumeCol = FIELD(i)
IF TYPE('&lcOsursa1..'+lcNumeCol) # 'U'
&lcodest..&lcNumeCol = &lcosursa1..&lcNumeCol
ENDIF
IF TYPE('&lcOsursa2..'+lcNumeCol) # 'U'
IF EMPTY(&lcodest..&lcNumeCol)
&lcodest..&lcNumeCol = &lcosursa2..&lcNumeCol
ENDIF
ENDIF
ENDFOR
ENDPROC
PROCEDURE bon_fiscal
PRIVATE pnSumaMp500
pnSumaMp500 = thisform.ct_factura1.txTotal.Value
ocasamp500 = CREATEOBJECT('frm_tichete',pnSumaMp500)
ocasamp500.show(1)
RELEASE ocasamp500
ENDPROC
PROCEDURE calcul_pret_vanzare
PARAMETERS tcTabel
LOCAL lnPretv, lnTvav, lnCoefAdaos, lnSuma, lcTabel
STORE 0 TO lnPretv, lnTvav, lnCoefAdaos, lnSuma
IF EMPTY(tcTabel)
lcTabel = this.ct_grid_order1.cnumecursor
ELSE
lcTabel = ALLTRIM(tcTabel)
ENDIF
SELECT (lcTabel)
SUM ROUND(ABS(cante*pret),gnPc) TO lnSuma
IF lnSuma <> 0
lnCoefAdaos = (pcobj.totftva-lnSuma)/lnSuma && coeficientul mediu de adaos
ELSE
lnCoefAdaos = 1
ENDIF
SELECT (lcTabel)
SET FILTER TO
REPLACE ALL proc_tvav WITH pcobj.proc_tva, procent WITH ROUND(lnCoefAdaos*100,2)
CALCULATE cnt() TO lnRecords
i = 0
SCAN
i = i + 1
REPLACE pretv WITH ROUND(pret + ROUND(pret*lnCoefAdaos,gnPPretV),gnPPretV) && modificare 14.09.2007
REPLACE tvav WITH ROUND(pretv*(proc_tvav-1),gnPPretV)
lnPretv = lnPretv + ROUND(pretv*cante,gnPC)
lnTvav = lnTvav + ROUND(tvav*cante,gnPC)
IF i = lnRecords
IF lnPretv # pcobj.totftva
REPLACE pretv WITH pretv + ROUND((pcobj.totftva - lnPretv)/cante,gnPPretV)
ENDIF
IF lnTvav # pcobj.tottva
REPLACE tvav WITH tvav + ROUND((pcobj.tottva - lnTvav)/cante,gnPPretV)
ENDIF
ENDIF
ENDSCAN
ENDPROC
PROCEDURE calcul_sume
Parameters tcTabel
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* Model =-1 : Nota fara contabilizare
*!* Model = 1 : Nota simpla cu contabilizare
*!* Model = 2 : NIR
*!* Model = 3 : BON/FACTURA VANZARE
*!* Model = 4 : Retur BON/FACTURA VANZARE
*!* Model = 5 : Transfer
*!* Model = 6 : Retur Transfer
*!* Model = 7 : Diferenta de pret
*!* Param1 = 1 : En-detail
*!* Param1 = 2 : En-gros
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* v 2.0.28 calculez valorile de achizitie in functie de gnTipGest
*!* ACHIZITIE
*!* !plNIRBONPretCuTVA : valoarea fara tva achizitie = cant*pret
*!* : valoarea tva achizitie = valoarea fara tva achizitie * proc_tva
*!* : valoarea cu tva achizitie = valoarea fara tva achizitie + valoarea tva achizitie
*!*
*!* plNIRBONPretCuTVA : valoarea tva achizitie = valoarea cu tva achizitie * (proc_tva - 1) / proc_tva
*!* BILETE RATC : valoarea fara tva achizitie = valoarea cu tva achizitie - valoarea tva achizitie
*!* : valoarea cu tva achizitie = cant*(pret+tva)
*!* VANZARE
*!* gnTipGest <> 6 : valoarea fara tva vanzare = cant*pretv
*!* : valoarea tva vanzare = valoarea fara tva vanzare * proc_tvav
*!* : valoarea cu tva vanzare = valoarea fara tva vanzare + valoarea tva vanzare
*!* : adaosul = valoarea fara tva vanzare - valoarea fara tva achizitie
*!*
*!* gnTipGest = 6 : valoarea fara tva vanzare = valorea cu tva vanzare - valoarea tva vanzare
*!* : valoarea tva vanzare = valoarea cu tva vanzare * (proc_tvav-1)/proc_tvav
*!* : valoarea cu tva vanzare = cant*(pretv+tvav)
*!* : adaosul = valoarea fara tva vanzare - valoarea fara tva achizitie
*!* v 2.0.28 ^
Store 0 To lnTotBaza, lnTotTva, lnBazaDiscount, lnBazaAdaos, lnTvaDiscount, lnTvaAdaos
If Pcount() = 0
tcTabel = Alltrim(This.ct_grid_order1.cnumecursor)
Endif
*lcCant = [cant] + IIF(INLIST(oset.model, 3, 4),[e],[]) && 3 = bon, bon retur
lcCant = This.osel_dr.cantitate
llCalculFact = Iif(oset.param1 = 2, .F., .T.) && daca e En-gros (vanzare) nu mai recalculez Total factura
If This.ct_discount1.Visible = .T.
lnBazaDiscount = This.ct_discount1.baza_discount
lnTvaDiscount = This.ct_discount1.tva_discount
Endif
If oset.adaos
Do Case
Case oset.param1 = 1 && factura de vanzare en-detail
Select (tcTabel)
Sum Round(&lcCant*Pret,gnPc) To Thisform.ntotal
*!* modificare ROAGEST v 2.0.94 : am adaugat conditia AND oset.id_set <> 75
If !INLIST(gnTipGest, 6,7) AND oset.id_set <> 75
Sum Round(pretv*&lcCant,gnPc) To lnTotBaza
Sum Round(Round(pretv*&lcCant,gnPc)*(proc_tvav-1),gnPc) To lnTotTva
lnBazaAdaos = lnTotBaza - Thisform.ntotal
Else
Sum Round(Round(pretv+tvav,gnPPretV)*&lcCant,gnPc) To lnTotctva
Sum Round(Round((pretv+tvav)*&lcCant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) To lnTotTva
lnTotBaza = lnTotctva - lnTotTva
lnBazaAdaos = lnTotBaza - Thisform.ntotal
Endif
If oset.id_set = 75 && Transfer catre gestiune la pret de vanzare
*!* modificare ROAGEST v 2.0.94
*!* If gnTipGest <> 6
*!* *!* Sum Round(tvav*&lcCant,gnPc) To lnTotTvav && nu stiu de ce pornea de la tvav unitar ???
*!* Sum Round(Round(pretv*&lcCant,gnPc)*(proc_tvav-1),gnPc) To lnTotTvav
*!* Else
Sum Round(Round((pretv+tvav)*&lcCant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) To lnTotTvav
*!* Endif
*!* modificare ROAGEST v 2.0.94 ^
Thisform.tx_totalctva.Value = lnTotTvav + lnTotBaza
Endif
Case oset.param1 = 2 && factura de vanzare en-gros
This.ct_factura1.totctva = pcobj.totctva
This.ct_factura1.totftva = pcobj.totftva
This.ct_factura1.tva = pcobj.tottva
Select (tcTabel)
If !plNIRBONPretCuTVA
Sum Round(&lcCant*Pret,gnPc) To Thisform.ntotal
Else
Sum Round(&lcCant*(Pret+Tva),gnPc) - Round(Round(&lcCant*(Pret+Tva),gnPc)*(proc_tva - 1)/proc_tva, gnPC) To Thisform.ntotal
EndIf
lnTotBaza = This.ntotal
lnBazaAdaos = This.ct_factura1.totftva - Thisform.ntotal
This.ct_adaos1.baza_adaos = lnBazaAdaos
Otherwise && NIR MARFA LA PRET DE VANZARE
Select (tcTabel)
If !plNIRBONPretCuTVA
Sum Round(&lcCant*Pret,gnPc) To Thisform.ntotal
Sum Round(Round(&lcCant*Pret,gnPc) * (proc_tva-1),gnPc) To lnTotTva
Else
Sum Round(&lcCant*(Pret+Tva),gnPc) - Round(Round(&lcCant*(Pret+Tva),gnPc)*(proc_tva - 1)/proc_tva, gnPC) To Thisform.ntotal
Sum Round(Round(&lcCant*(Pret+Tva),gnPc)*(proc_tva - 1)/proc_tva, gnPC) To lnTotTva
Endif
lnTotBaza = This.ntotal
If gnTipGest <> 6
Sum Round(&lcCant*pretv, gnPc) - m.lnTotBaza To lnBazaAdaos
Else
Sum Round(Round(pretv+tvav,gnPPretV)*&lcCant,gnPc) To lnTotctvaOther
Sum Round(Round((pretv+tvav)*&lcCant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) To lnTotTvaOther
lnTotfTvaOhter = m.lnTotctvaOther - m.lnTotTvaOther
lnBazaAdaos = m.lnTotfTvaOhter - m.lnTotBaza
Endif
Endcase
Select (tcTabel)
Sum procent To lnProcent
Calculate Cnt() To lnNrRecord
lnProcent = lnProcent/lnNrRecord
This.ct_adaos1.baza_adaos = lnBazaAdaos
This.ct_adaos1.proc_adaos = lnProcent
Else
Select (tcTabel)
If !plNIRBONPretCuTVA
Sum Round(&lcCant*Pret,gnPc) To Thisform.ntotal
Sum Round(Round(&lcCant*Pret,gnPc) * (proc_tva-1),gnPc) To lnTotTva
Else
Sum Round(&lcCant*(Pret+Tva),gnPc) - Round(Round(&lcCant*(Pret+Tva),gnPc)*(proc_tva - 1)/proc_tva, gnPC) To Thisform.ntotal
Sum Round(Round(&lcCant*(Pret+Tva),gnPc)*(proc_tva - 1)/proc_tva, gnPC) To lnTotTva
EndIf
lnTotBaza = Thisform.ntotal
Endif
If oset.factura And llCalculFact
If oset.cursval
Select (tcTabel)
If gnTipGest <> 6 && calculez valftva si valtva pornind de la pretv in loc de (pretv+tvav)
Sum Round(&lcCant*pretvval,gnPc),Round(Round(&lcCant*pretvval,gnPc)*(proc_tvav-1),gnPc) To lnTotalFTvaVal,lnTotalTvaVal
Else
Sum Round(Round(pretvval*proc_tvav,gnPVal)*&lcCant,gnPVal) To lnTotalCTvaVal
Sum Round(Round(Round(pretvval*proc_tvav,gnPVal)*&lcCant,gnPVal)*(proc_tvav-1),gnPVal) To lnTotalTvaVal
lnTotalFTvaVal = m.lnTotalCTvaVal - m.lnTotalTvaVal
Endif
With Thisform.ct_factura2
.totftva = lnTotalFTvaVal
.tva = lnTotalTvaVal
.totctva = lnTotalFTvaVal + lnTotalTvaVal
.Refresh()
Endwith
lnTotBaza = Round(lnTotalFTvaVal * poAct.Curs,gnPc)
lnTotTva = Round(lnTotalTvaVal * poAct.Curs,gnPc)
Endif
With This.ct_factura1
If oset.model = 2 && NIR
lnBazaAdaos = 0
lnTvaAdaos = 0
Endif
.totftva = lnTotBaza - lnBazaDiscount
.tva = lnTotTva - lnTvaDiscount
.totctva = .totftva + .tva
Endwith
Endif
*!* modificare v 2.0.6
Do Case
Case oset.id_set = 216 && Intrare din transfer de la gest. valorica la pret de vanz.
Select (tcTabel)
If gnTipGest <> 6 && calculez valftva si valtva pornind de la pretv in loc de (pretv+tvav)
Sum Round(pretv*cant,gnPc) To lnTotBaza216
Sum Round(Round(pretv*cant,gnPc)*(proc_tvav-1), gnPc) To lnTotTvav
Else
Sum Round(Round(pretv+tvav,gnPc)*&lcCant,gnPc) To lnTotctva216
Sum Round(Round((pretv+tvav)*&lcCant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) To lnTotTvav
lnTotBaza216 = lnTotctva216 - lnTotTvav
Endif
Thisform.tx_totalctva.Value = lnTotTvav + lnTotBaza216
Case Inlist(oset.id_set, 230, 232, 233, 235, 261) && protocol, sponsorizare
Select (tcTabel)
*!* modificare conditie if v 2.0.94
If !INLIST(gnTipGest, 6,7) &&gnTipGest <> 6
*!* modificare conditie if v 2.0.94 ^
Sum Round(pretv*&lcCant,gnPc) + Round(Round(pretv*&lcCant,gnPc)*(proc_tvav-1),gnPc) To lnTotal230
Else
Sum Round((pretv+tvav)*cante,gnPc) To lnTotal230
EndIf
Thisform.tx_totalctva.Value = lnTotal230
*!* modificare ROAFACTURARE v 2.2.20
CASE oset.id_set = 267
SELECT (tcTabel)
If !INLIST(gnTipGest, 6,7)
Sum Round(pretv*cant,gnPc) + Round(Round(pretv*cant,gnPc)*(proc_tvav-1),gnPc) To lnTotal230
Else
Sum Round((pretv+tvav)*cant,gnPc) To lnTotal230
EndIf
Thisform.tx_totalctva.Value = lnTotal230
*!* modificare ROAFACTURARE v 2.2.20 ^
ENDCASE
IF thisform.ntotal#0
lnProcentDiscount=(thisform.ct_discount1.baza_discount/thisform.ntotal)*100
ELSE
lnProcentDiscount=0
ENDIF
if(thisform.ct_discount1.combogrid3.Value=2)
thisform.ct_discount1.txProc_discount.Value=lnProcentDiscount
ENDIF
*!* modificare v 2.0.6 ^
This.txNir.Refresh
This.ct_factura1.Refresh
This.ct_factura2.Refresh
This.ct_adaos1.Refresh
ENDPROC
PROCEDURE caut_gestiune
PARAMETERS tnFel
IF EMPTY(tnFel)
tnFel = 0
ENDIF
IF tnFel = 1 && pret vanzare
lcCond = [nr_pag = 6]
ELSE
lcCond = [nr_pag in (2,3,4,5)]
ENDIF
pcselect = [select * from vnom_GESTIUNI]
pcFiltruOrig = [inactiv = 0 and ] + lcCond
pcfiltru = [1=2]
pcschema = []
pcorder = [NUME_gestiune]
pccoloane = [nume_gestiune,cgest]
pcTitlu = [Nume Gestiune Destinatie]
pcTitluColoane = [Gestiune,Indicativ]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'',.F.,pcFiltruOrig) && 11.07.2007
RETURN locauta
ENDPROC
PROCEDURE compensare
*!* 24.08.2011
*!* marius.mutu
*!* suma platita = suma modificata de utilizator, nu suma calculata din rulaj
*!* 30.08.2011
*!* marius.mutu
*!* suma platita = suma modificata de utilizator daca este diferita de 0, nu suma calculata din rulaj
IF USED('xcont')
SELECT xcont
LOCATE FOR Pozitie # Fel_Cont AND Cu_Inregistrari = 1
IF FOUND()
pcContul = ALLTRIM(cont_part)
pnIdPart = idPart
pcNume = numepart
pnFelCont = Fel_Cont
pcDenumire = ALLTRIM(explic_cont)
pcCond = [ an = ?gnAn and luna = ?gnluna]
llval = .F. && Deocamdata e doar in lei
IF llval
pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ] + ALLTRIM(STR(&lcObj..id_valuta))
ELSE
pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
ENDIF
pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
pcschema = ['']
pcorder = ['']
PRIVATE podateintrod
STORE '' TO podateintrod
gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
lcFis = 'actcv' + ALLTRIM(pcContul)
IF USED(lcFis)
USE IN &lcFis
ENDIF
IF pnFelCont = 0
lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
ELSE
lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
ENDIF
&lcsel
SELECT (lcFis)
OPLATA=CREATEOBJECT('ocompensari')
* oplata.txtNume.value =lcNume
OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
OPLATA.pcFis = lcFis
*!* 24.08.2011
*!* OPLATA.SUMA = THIS.ct_factura1.totctva
OPLATA.SUMA = IIF(thisform.nfTotctva<> 0, thisform.nfTotctva, THIS.ct_factura1.totctva)
*!* 24.08.2011 ^
OPLATA.pnFelCont = pnFelCont
OPLATA.SHOW(1)
*!* SELECT (lcfis)
*!* CALCULATE cnt() FOR ales TO LnBife
*!* IF LnBife=1
*!* LOCATE FOR ALES
*!* &M=nract
*!* ELSE
*!* &M=0
*!* ENDIF
ENDIF
ENDIF
ENDPROC
PROCEDURE do_adauga
PRIVATE pnpretvtva
pnpretvtva = 0
PRIVATE poCote_tva
STORE '' TO poCote_tva
local lnId
lnId = 0
llSucces = nom_articole_nou(@lnId)
this.ct_grid_search1.actualizeaza_grid
ENDPROC
PROCEDURE do_modifica
lcNomArt = this.ct_grid_search1.cnumecursor
SELECT (lcNomArt)
SCATTER NAME lorec
PRIVATE poCote_tva
STORE '' TO poCote_tva
lnId = lorec.id_articol
DO Adauga_Modifica_Inregistrare WITH [catalog_articole],lorec,lnId,[UPDATE]
this.ct_grid_search1.actualizeaza_grid
ENDPROC
PROCEDURE do_sterge
Local lnRecno, lcSelRul
lcSelRul = This.ct_grid_order1.cnumecursor
Select (lcSelRul)
Scatter Name osterg && modificare ROAGEST v 2.1.19
lnRecno = Recno()
*!* modificare ROAGEST v 2.1.19
LOCATE FOR !DELETED()
IF !FOUND()
MESSAGEBOX("Nu exista inregistrari de sters!",48,"Atentie")
RETURN
ENDIF
*!* modificare ROAGEST v 2.1.25 : am adaugat conditia legata de oset.id_set ( ob. de inv. )
If oset.model = 3 AND INLIST(gnFifoLifo,1,2) AND !INLIST(oset.id_set,70,72,104)
Locate For id_articol = osterg.id_articol And id_gestout = osterg.id_gestout ;
AND !DELETED() AND nrordine > osterg.nrordine
*!* And Nvl(serie,'') = Nvl(osterg.serie,'') AND Pret = osterg.Pret And Iif(Inlist(gnTipGest,6,7),pretv,1) = Iif(Inlist(gnTipGest,6,7),osterg.pretv,1)
If Found()
amessagebox("Nu puteti sterge acest articol deoarece nu se mai respecta metoda "+IIF(gnFifoLifo=1,"FIFO","LIFO")+" !",48,"Atentie")
Go lnRecno
RETURN
Endif
Endif
Select (lcSelRul)
GO lnRecno
*!* modificare ROAGEST v 2.1.19 ^
Delete
*!* MODIFICAT 11.04.2006
*!* MARIUS.MUTU - AM PUS RECNO('RUL_TEMP') IN CURSORUL DE TRANSFER - LA STERGERE SA POT STERGE SI LINIA CORESPONDENTA DIN CRSTRANSFER
If Inlist(oset.model,5,6,7) And Used('crsTransfer')
Select crsTransfer
Goto lnRecno
Delete
This.ct_grid_order1.cb_tx_gestin.SetFocus()
Endif
This.ct_grid_order1.actualizeaza_grid
This.calcul_sume
*!* modificare ROAGEST v 2.1.19
Select (lcSelRul)
Go lnRecno
If oset.model = 3
SELECT (This.ct_grid_search1.cnumecursor)
lnRecno = Recno()
*!* modificare ROAGEST v 2.1.25 : am inlocuit datain = osterg.datain cu cond. daca exista osterg.datain si coloana datain in this.ct_grid_search1.cnumecursor
Locate For id_articol = osterg.id_articol And id_gestiune = osterg.id_gestout And Nvl(serie,'') = Nvl(osterg.serie,'') ;
AND Pret = osterg.Pret And Iif(Inlist(gnTipGest,6,7),pretv,1) = Iif(Inlist(gnTipGest,6,7),osterg.pretv,1) ;
AND IIF(INLIST(TYPE('osterg.datain'),'T','D') AND INLIST(TYPE(This.ct_grid_search1.cnumecursor+'.datain'),'T','D'),datain,datapif) = ;
IIF(INLIST(TYPE('osterg.datain'),'T','D') AND INLIST(TYPE(This.ct_grid_search1.cnumecursor+'.datain'),'T','D'),osterg.datain,osterg.datapif)
If Found()
Replace stoc_actual With stoc_actual + osterg.cante
Endif
Go lnRecno
Endif
*!* modificare ROAGEST v 2.1.19 ^
ENDPROC
PROCEDURE do_termin
If This.inainte_de_do_termin()
lcSelRul = This.ct_grid_order1.cnumecursor
lcSelSt = This.ct_grid_search1.cnumecursor
gnButon = 1
pnButon = 1
Buton = 1
pnIesire = 1
*this.Hide
If Type('pnTipCasaMarcat') = 'U'
pnTipCasaMarcat = 1
Endif
If Type('glListareBonFiscal')<>'U' And glListareBonFiscal And pnTipCasaMarcat#1
lcStringmp500 = ''
Thisform.bon_fiscal()
If gnButon<>1
Return
Endif
Endif
Select actactan
*!* modificare ROAPRODUCTIE v 2.0.2
*!* If !Inlist(poact.id_set, 26001) && PV de productie
llVerificare = verificare_note_contabile('actactan', .T.,.T., .F.)
If !llVerificare
*!* modificare ROAPRODUCTIE v 2.0.2 ^
This.AlwaysOnTop = .F.
Do Form verificare With .T.,.T.,3 && cu buton de precedent
This.AlwaysOnTop = .T.
Endif
Do Case
Case gnButon = 3
*onirbon.visible = .t.
Do nrord With lcSelRul
Otherwise
This.Release
Endcase
Endif
ENDPROC
PROCEDURE do_verifica_sume
tcTabel = Alltrim(This.ct_grid_order1.cnumecursor)
Select (tcTabel)
Replace id_valuta_vanz With poAct.id_valuta_vanz All
Calculate Sum(Round(pretvval*cante,gnPVal)),Sum(Round(pretv*cante,gnPc)) To lnTotalVal,lnTotalLei
lnTotalVal = Round(lnTotalVal*poAct.Curs,gnPc)
If lnTotalVal <> lnTotalLei
lnDiferenta = lnTotalVal - lnTotalLei
lnSemn = Sign(lnDiferenta)
*!* lnDiferenta = Abs(lnDiferenta)
lnDiferenta = lnDiferenta
lnDiferentaPretU = Exp((-1)*gnPPretV*Log(10))
lnModificari = 1
Do While lnModificari <> 0
lnModificari = 0
Select (tcTabel)
Scan
lnDiferentaPret = Round(lnDiferentaPretU*cante,gnPc)
lnSemnPret = Sign(lnDiferentaPret)
If Abs(lnDiferentaPret) <= Abs(lnDiferenta)
lnDiferenta = lnDiferenta - lnSemn * lnDiferentaPret
Replace pretv With pretv + lnSemn * lnSemnPret * lnDiferentaPretU
lnModificari = lnModificari + 1
Endif
Endscan
Enddo
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* Model =-1 : Nota fara contabilizare
*!* Model = 1 : Nota simpla cu contabilizare
*!* Model = 2 : NIR
*!* Model = 3 : BON/FACTURA VANZARE
*!* Model = 4 : Retur BON/FACTURA VANZARE
*!* Model = 5 : Transfer
*!* Model = 6 : Retur Transfer
*!* Model = 7 : Diferenta de pret
*!* Param1 = 1 : En-detail
*!* Param1 = 2 : En-gros
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* v 2.0.28 calculez valorile de achizitie in functie de gnTipGest
*!* ACHIZITIE
*!* !plNIRBONPretCuTVA : valoarea fara tva achizitie = cant*pret
*!* : valoarea tva achizitie = valoarea fara tva achizitie * proc_tva
*!* : valoarea cu tva achizitie = valoarea fara tva achizitie + valoarea tva achizitie
*!*
*!* plNIRBONPretCuTVA : valoarea tva achizitie = valoarea cu tva achizitie * (proc_tva - 1) / proc_tva
*!* BILETE RATC : valoarea fara tva achizitie = valoarea cu tva achizitie - valoarea tva achizitie
*!* : valoarea cu tva achizitie = cant*(pret+tva)
*!* VANZARE
*!* gnTipGest <> 6 : valoarea fara tva vanzare = cant*pretv
*!* : valoarea tva vanzare = valoarea fara tva vanzare * proc_tvav
*!* : valoarea cu tva vanzare = valoarea fara tva vanzare + valoarea tva vanzare
*!* : adaosul = valoarea fara tva vanzare - valoarea fara tva achizitie
*!*
*!* gnTipGest = 6 : valoarea fara tva vanzare = valorea cu tva vanzare - valoarea tva vanzare
*!* : valoarea tva vanzare = valoarea cu tva vanzare * (proc_tvav-1)/proc_tvav
*!* : valoarea cu tva vanzare = cant*(pretv+tvav)
*!* : adaosul = valoarea fara tva vanzare - valoarea fara tva achizitie
*!* v 2.0.28 ^
***-----------------------------------
*!* Ordinea coloanelor in tabelul din stanga
*!* salvata pe server in optiuni_util, varname = 'GEST_SELECTII' - pt. fiecare utilizator - pt. operatiile in care a intrat
*!* 19.02.2010
*!* marius.mutu
*!* id_set 264, 265 finalizare aprovizionare din 3xx = 401 => 3xx = 32x din coresp_cont_venchelt.cont_aprovizionare
*!* 06.09.2011
*!* marius.mutu
*!* pnTotalFactura,pnBazaFactura,pnTvaFactura = valorile modificate de utilizator
*!* 05.02.2014
*!* marius.mutu
*!* diferente baza, tva la NIR - x = 401; x se completeaza cu CORESP_CONT_VENCHELT.cont_diferente daca este completat, altfel 6588
*!* #4132
*!* 12.07.2016
*!* marius.mutu
*!* nu se mai inlocuieste scd cu 4426 pentru tva ach. neex. in cazul in care scc = 408. Trebuie sa ramana 4428 = 408
*!* 23.01.2017
*!* marius.mutu
*!* vanzare produse en-detail (firma TVA Incasare) nu se schimba contul 4111 = 4428 in 4111 = 4427 19%
*!* 28.11.2018
*!* marius.mutu
*!* Achizitii din CE, modific 4426 = 401 in 4426 = 4427
*!* 12.11.2019
*!* marius.mutu
*!* id_set = 267 EDUARD AVIZ RETUR CLIENTI CUSTODIE VALORIC - am corectat valoarea 357 si tva vanzare
*!* daca era impartita pe mai multe gestiuni, sectii nu se completa corect
*!* modificare ROAPRODUCTIE v 2.0.2
If Reccount(This.ct_grid_order1.cnumecursor) = 0
amessagebox("Nu ati ales articolele!",48,"Atentie")
Return .F.
Endif
*!* modificare ROAPRODUCTIE v 2.0.2 ^
Local lnNrCols, lcHeader, lcHeader2, lcTitlu_col, lcControlSource, lcControlSource2, lcNume_col, lcOrdine, lcWidth_col, lcSql, lnPornire
Store 0 To lnNrCols
Store 1 To lnPornire
Store '' To lcHeader, lcHeader2, lcTitlu_col, lcControlSource, lcControlSource2, lcNume_col, lcWidth_col, lcOrdine
Create Cursor crsGrid (ordine N(3), ctrSource C(100), titlu C(100), width_col C(100))
lnNrCols = This.ct_GRID_SEARCH1._GRID1.ColumnCount
llNrOrd = This.ct_GRID_SEARCH1.lNumerotare
lnPornire = Val(This.ct_GRID_SEARCH1.cb_tx_cautare1.criteriu.Value)
For I=1 To lnNrCols
If llNrOrd And I<>1 && ce se intampla daca nu e llNrOrd ??????
lcColOrd = [this.ct_grid_search1._grID1.column] + Alltrim(Str(I))+[.columnorder]
lnColOrd = &lcColOrd
*!* modificare v 2.1.19
*!* lcHeader = [this.ct_grid_search1._grid1.column] + Alltrim(Str(I))+ [.grh]+Alltrim(Str(I))+[.]+[Caption]
lcHeader = [This.ct_grid_search1._GRID1.column] + Alltrim(Str(I)) + [.grh] +Alltrim(Str(I))
IF TYPE(lcHeader) = 'O'
lcHeader = lcHeader + [.Caption]
ELSE
*!* daca nu se poate ordona dupa coloana respectiva, atunci am Header1 in loc de grhI
lcHeader = [This.ct_grid_search1._GRID1.column] + Alltrim(Str(I)) + [.header1.Caption]
endif
*!* modificare v 2.1.19 ^
lcHeader2 = &lcHeader
lcControlSource = [this.ct_grid_search1._grid1.column] + Alltrim(Str(I))+ [.ControlSource]
lcControlSource2 = &lcControlSource
lcWidthColumn = [this.ct_grid_search1._grid1.column] + Alltrim(Str(I))+ [.width]
lcWidthColumn2 = Alltrim(Str(&lcWidthColumn))
Insert Into crsGrid (ordine, titlu, ctrSource, width_col) Values (lnColOrd, lcHeader2, lcControlSource2, lcWidthColumn2)
Endif
Endfor
Select * From crsGrid Order By ordine Into Cursor crsGridOrd
Use In crsGrid
Select crsGridOrd
Scan
lcTitlu_col = lcTitlu_col + Alltrim(titlu) + ","
lcNume_col = lcNume_col + Alltrim(ctrSource) + ";"
lcWidth_col = lcWidth_col + Alltrim(width_col)+ ";"
Select crsGridOrd
Endscan
lcTitlu_col = Substr(lcTitlu_col,1,Len(lcTitlu_col)-1)
lcNume_col = Substr(lcNume_col,1,Len(lcNume_col)-1)
lcWidth_col = Substr(lcWidth_col,1,Len(lcWidth_col)-1)
lcOrd = [this.ct_grid_search1.corder]
lcOrdine = &lcOrd
*!* v 2.0.87 - gestselectii - coloane ordonate din optiuni utilizator
lnid_sel = oSet.id_selSt
If Type('crsGestSelectiiUtilizator.pornire')='U' && ver. 2.0.90
Alter Table crsGestSelectiiUtilizator Add Column pornire N(2)
Endif
Select crsGestSelectiiUtilizator
Locate For id_sel = oSet.id_selSt
If Found()
Update crsGestSelectiiUtilizator ;
Set titlu_col = lcTitlu_col, nume_col = lcNume_col, ordine = lcOrdine, width_col = lcWidth_col, pornire = lnPornire ;
WHERE id_sel = oSet.id_selSt
Else
Insert Into crsGestSelectiiUtilizator (id_sel, titlu_col, nume_col, ordine, width_col, pornire) ;
VALUES (oSet.id_selSt, lcTitlu_col, lcNume_col, lcOrdine, lcWidth_col, lnPornire )
Endif
lcCursorXML = ''
Cursortoxml("crsGestSelectiiUtilizator", "lcCursorXML", 2, 0+2+8, 0, "1")
scrie_optiune_utilizator("GEST_SELECTII", lcCursorXML, "Ordinea coloanelor in tabelul din stanga in formularele de nir, bon, etc.")
*!* v 2.0.87 - gestselectii ^
***-----------------------------------
Private poRec
poRec = Null
Local loRec
Local lcSelRul, lcSelRulGr,lcContTr, lcAcontTr, lcRul, lcCursor, lnSucces, llSucces, lcCant, lnIdGestiuneTr
Store '' To lcContTr, lcAcontTr
lnIdGestiuneTr = 0
lcSelRulGr = This.ct_grid_order1.cnumecursor
Local lnRecno
lnRecno = 0
pnBazaV341 = 0
pnBazaV346 = 0
pnBazaVProd = 0
pnBazaVAmb = 0
pnBazaVal341 = 0
pnBazaVal346 = 0
pnBazaValProd = 0
pnBazaValAmb = 0
*!* 15.03.2007
Local llY
llY = .F.
*!* 15.03.2007 ^
*!* modificare facturare in valuta 24.09.2007
If oSet.cursval
Thisform.do_verifica_sume()
Endif
*!* modificare facturare in valuta 24.09.2007 ^
Thisform.compensare && PT 542 ; se completeaza actactanul in adunadate
*** completez tabela ACTACTAN
If Type('oitem') = 'O'
If Pemstatus(oitem,'adunadate',5)
oitem.adunadate()
*!* modificare ROAGEST v 2.2.0 : repun conturile modificate in actbaza2007
select actactan
replace all scc with '4427' for inlist(id_jtva_coloana,22,24,26,30,32,38,42) and scc = '4428'
replace all scd with '4426' for inlist(id_jtva_coloana,171,173,175,179,189,211,215) and scd = '4428' AND scc <> '408' && aviz 4428 = 408
*!* modificare ROAGEST v 2.2.0
Endif
Endif
***
If Used('rul_temp')
Use In rul_temp
ENDIF
&& completez RUL_TEMP
lcRul = Alltrim(This.osel_dr.cfrom)
lcSql = [select v.*,0 as pretvval,0 as curs,0 as id_valuta_vanz,0 as id_jtva_coloana,0 as taxcode, v.id_gestiune as id_gestin, v.nume_gestiune as gestin, v.id_gestiune as id_gestout, v.nume_gestiune as gestout, 0 as nuInConturiX]
&& VRUL_OBINV NU ARE CODMATF, LOT, ADATA_EXPIRARE SI NU SE MAI SALVEAZA LOT, ADATA_EXPIRARE IN RUL
If 'obinv'$Lower(lcRul)
lcSql = lcSql + [,rpad(' ',50,' ') as codmatf, rpad(' ',50,' ') as lot, to_date('') as adata_expirare, rpad(' ',50,' ') as serie_obinv]
Endif
lcSql = lcSql + [ from ] + lcRul + [ where 1=2]
lcCursor = [rul_temp]
llSucces = goExecutor.oExecuta(lcSql,lcCursor)
If !m.llSucces
Return .F.
Endif
Select rul_temp
Append From Dbf(lcSelRulGr)
lcSelRul = 'rul_temp'
*!* v 2.0.39
*!* modificare ROAGEST v 2.0.51
*!* If oset.id_set = 236 && retur din transfer de la gestiune valorica mf pv - aviz expeditie
*!* 240 && retur din transfer de la gestiune valorica (cantitativ) mf pv - aviz expeditie
*!* 241 = 236 la mf pret ach
*!* 242 = 240 la mf pret ach
If Inlist(oSet.id_set,236,238,239,240,241,242,255,256,259,260) && retur din transfer de la gestiune valorica mf pv - aviz expeditie
*!* modificare ROAGEST v 2.0.51 ^
*!* il introduc ca NIR, dar vreau sa apara ca intrare din retur (cante < 0)
Select rul_temp
Scan
Scatter Name loRec
Replace cante With -loRec.cant, cant With 0, id_gestiunec With poAct.id_gestout, id_gestin With poAct.id_gestout, id_gestout With poAct.id_gestin, datain With loRec.dataout, dataout With {}
Endscan
Select ACTACTAN
Replace id_gestin With poAct.id_gestout, id_gestout With poAct.id_gestin, id_partc With 0, partc With ""
Endif
*!* modificare ROAFACTURARE v 2.0.96
pnDisctV = 0
pnTvaDiscV = 0
IF oSet.id_set = 267
lnProcDiscount = Iif(oset.discount And Thisform.ct_discount1.Combogrid3.Value=3,Thisform.ct_discount1.proc_discount ,0) / 100
Select rul_temp
Scan
Scatter Name loRec
Replace cante With -loRec.cant, cant With 0, id_gestiunec With poAct.id_gestout, id_gestin With poAct.id_gestout, id_gestout With poAct.id_gestin, datain With loRec.dataout, dataout With {},;
discunitar WITH ROUND((loRec.pretv+loRec.tvav)*lnProcDiscount,gnPPretV)
Endscan
Calculate Sum(Round(discunitar * Abs(cante),gnPc)-Round(Round(discunitar * Abs(cante),gnPc) * (proc_tvav-1)/proc_tvav,gnPc)),;
SUM(Round(Round(discunitar * Abs(cante),gnPc) * (proc_tvav-1)/proc_tvav,gnPc)) To pnDiscV,pnTvaDiscV
Select ACTACTAN
Replace id_gestin With poAct.id_gestout, id_gestout With poAct.id_gestin, id_partc With 0, partc With ""
ENDIF
*!* modificare ROAFACTURARE v 2.0.96 ^
If Inlist(oSet.id_set, 215, 216, 237,257) && intrare din transfer de la gestiune valorica
Replace All id_gestiunec With poAct.id_gestout, id_gestout With poAct.id_gestout
Endif
*!* v 2.0.39
If oSet.productie
Do Case
Case Alltrim(Upper(oSet.formproduc))='FRM_ALEGE_PROD_CANT'
Thisform.intrare_produs()
Case Inlist(Alltrim(Upper(oSet.formproduc)),'FRM_ALEGE_SECTIE_COMANDA','FRM_ALEGE_SECTIE')
Select ACTACTAN
*!* modificare 03.09.2007
*!* Replace id_sectie With pnId_sectie, sectie With pcSectie For Inlist(nr_nota,1,2,5)
Replace id_sectie With 0, sectie With '' For Inlist(nr_nota,4)
Endcase
Endif
*!* 15.03.2007
*!* pentru intrare dintr-o gestiune tinuta doar valoric - trebuie contul
*!* daca exista Y (trebuie sa aleaga contul de transfer)
Select xscd As SCD, xscc As scc From XNOTE Where id_set = oSet.id_set ;
AND (Inlist(Upper(Alltrim(xscd)),'Y') Or Inlist(Upper(Alltrim(xscc)),'Y'));
INTO Cursor crsY
If _Tally > 0 Or Inlist(oSet.model, 5, 6, 7)
llY = .T.
Endif
Use In crsY
*!* 15.03.2007 ^
If Inlist(oSet.model, 5, 6, 7) && TRANSFER, RETUR TRANSFER
Select (lcSelRul)
lnRecno = Recno()
If oSet.id_set = 211 && TRANSFER GESTIUNE OB INV IN FOLOSINTA PE PERSOANA CATRE O MAGAZIE OB INV IN FOLOSINTA
Replace id_responsabil With 0, nresp With ''
Endif
If Used('crsTransfer')
Append From Dbf('crsTransfer')
If oSet.id_set = 210 && TRANSFER MAGAZIE OB INV IN FOLOSINTA CATRE O GESTIUNE OB INV IN FOLOSINTA PE PERSOANA
Replace id_responsabil With 0, nresp With '' For Recno() > lnRecno
Endif
*!* modificare 22.05.2007
*** se modifica pretul de ach. pentru intrari
If oSet.id_set = 218 && Diferenta pret la produse
Replace Pret With pretv For cant <> 0
Endif
*!* modificare 22.05.2007 ^
Endif
If !Inlist(oSet.id_set,89, 210, 211, 212) && (FARA TRANSFER INTRE PERSOANE)
*!* If Inlist(oset.id_seldr,11,16,18) && achizitie
*!* poGestTr = This.caut_gestiune()
*!* Endif
*!* If oset.id_seldr = 12 && vanzare
*!* poGestTr = This.caut_gestiune(1)
*!* Endif
*!* If Empty(poGestTr.Id_gestiune) && renunt
*!* Return .F.
*!* Endif
*!* && Dc poGestTr.Id_gestiune nu e empty aleg contul de transfer si analiticul
*!* loCont = This.aleg_cont_transfer(poGestTr.Id_gestiune)
*!* If Empty(loCont.Cont) && renunt
*!* Return .F.
*!* Endif
&& oset.id_seldr = 12 : catre o gestiune de marfa la pret de vanzare
loCauta = caut_gestiune_dest(0,Iif(oSet.id_seldr = 12, [6],[2,3,4,5]),0)
If Nvl(loCauta.id_gestiune,0) = 0
Return .F.
Else
poGestTr = Createobject("custom")
poGestTr.AddProperty("id_gestiune", loCauta.id_gestiune)
poGestTr.AddProperty("nume_gestiune", loCauta.nume_gestiune)
loCont = Createobject("custom")
loCont.AddProperty("cont", loCauta.Cont)
loCont.AddProperty("acont", Nvl(loCauta.acont,""))
Endif
Select (lcSelRul)
Replace All id_gestin With poGestTr.id_gestiune, gestin With poGestTr.nume_gestiune &&FOR cant <> 0
Do Case
Case Inlist(oSet.model,5,7) && transfer
Replace All id_gestiune With poGestTr.id_gestiune, nume_gestiune With poGestTr.nume_gestiune For cant <> 0
Case oSet.model = 6 && retur
Replace All id_gestiune With poGestTr.id_gestiune, nume_gestiune With poGestTr.nume_gestiune For cante <> 0
Endcase
lcContTr = loCont.Cont
lcAcontTr = loCont.acont
Select ACTACTAN
Replace All SCD With lcContTr, ascd With lcAcontTr, id_gestin With poGestTr.id_gestiune, gestin With poGestTr.nume_gestiune For Upper(Alltrim(SCD)) = 'Y'
Select (lcSelRul)
If oSet.model = 6
lcCant = Thisform.osel_dr.cantitate
Else
lcCant = [cant]
Endif
Replace All Cont With lcContTr, acont With lcAcontTr For &lcCant <> 0
*!* REPLACE ALL id_gestiunec WITH id_gestout FOR cant <> 0
*!* REPLACE ALL id_gestiunec WITH id_gestin FOR cante <> 0
*!* REPLACE ALL nuInConturiX WITH 1 FOR cant <> 0
Endif
Select (lcSelRul)
Replace All id_gestiunec With id_gestout For cant <> 0
Replace All id_gestiunec With id_gestin For cante <> 0
Replace All nuInConturiX With 1 For cant <> 0
Endif
Select (lcSelRul)
If oSet.param1 = 2 And oSet.factura && factura en-gros
This.calcul_pret_vanzare(lcSelRul)
*!* modificare 31.10.2006
pnTotalFactura = This.ct_factura1.totctva
pnBazaFactura = This.ct_factura1.totftva
pnTvaFactura = This.ct_factura1.tva
Select rul_temp
If gnTipGest <> 6
Calculate Sum(Round(Round(pretv,gnPPretV)*cante,gnPc)),;
SUM(Round(Round(Round(pretv,gnPPretV)*cante,gnPc)*(proc_tvav-1),gnPc)) ;
TO lnBazaFactura,lnTvaFactura
Else
Calculate Sum(Round(Round(pretv+tvav,gnPPretV)*cante,gnPc)) To lnTotFactura
Calculate Sum(Round(Round(Round(pretv+tvav,gnPPretV)*cante,gnPc)*(proc_tvav-1)/proc_tvav,gnPc)) To lnTvaFactura
lnBazaFactura = lnTotFactura - lnTvaFactura
Endif
Do Case
Case lnBazaFactura <> pnBazaFactura And lnTvaFactura <> pnTvaFactura
lcMesaj = [Diferenta intre sumele introduse si cele rezultate din calcul:] + CRLF + ;
SPACE(23) + [Baza] + Space(18) + [TVA] + CRLF + ;
[Introduse:] + Space(5) + Str(pnBazaFactura,20,gnPc) + [ ] + Str(pnTvaFactura,20,gnPc) + ;
CRLF +;
[Calculate:] + Space(5) + Str(lnBazaFactura,20,gnPc) + [ ] + Str(lnTvaFactura,20,gnPc) + ;
CRLF + CRLF + ;
[Doriti sa continuati?]
Case lnBazaFactura <> pnBazaFactura
lcMesaj = [Diferenta intre sumele introduse si cele rezultate din calcul:] + CRLF + ;
SPACE(23) + [Baza] + CRLF + ;
[Introduse:] + Space(5) + Str(pnBazaFactura,20,gnPc) + CRLF+;
[Calculate:] + Space(5) + Str(lnBazaFactura,20,gnPc) + CRLF + CRLF + ;
[Doriti sa continuati?]
Case lnTvaFactura <> pnTvaFactura
lcMesaj = [Diferenta intre sumele introduse si cele rezultate din calcul:] + CRLF + ;
SPACE(24) + [TVA] + CRLF + ;
[Introduse:] + Space(5) + Str(pnTvaFactura,20,gnPc) + CRLF +;
[Calculate:] + Space(5) + Str(lnTvaFactura,20,gnPc) + CRLF + CRLF + ;
[Doriti sa continuati?]
Otherwise
lcMesaj = []
Endcase
If !Empty(lcMesaj)
If amessagebox(lcMesaj,4+32+256,"Confirmare")==7
Return .F.
Else
pnBazaFactura = lnBazaFactura
pnTvaFactura = lnTvaFactura
pnTotalFactura = lnBazaFactura + lnTvaFactura
Endif
Endif
Else
*!* 06.09.2011
*!* pnTotalFactura = This.ct_factura1.totctva
*!* pnBazaFactura = This.ct_factura1.totftva
*!* pnTvaFactura = This.ct_factura1.tva
pnTotalFactura = IIF(thisform.nfTotctva<> 0, thisform.nfTotcTva, THIS.ct_factura1.totctva)
pnBazaFactura = IIF(thisform.nfTotfTva <> 0, thisform.nfTotfTva, This.ct_factura1.totftva)
pnTvaFactura = IIF(thisform.nfTotTva<> 0, thisform.nfTotTva, This.ct_factura1.tva)
*!* modificare 31.10.2006 ^
*!* 06.09.2011 ^
Endif
pnDiscount = This.ct_discount1.baza_discount
pnTVADiscount = -This.ct_discount1.tva_discount
pnProcDiscount = This.ct_discount1.pnTva
pnIdJtvaDiscount = This.ct_discount1.nid_jtva_coloana
pnIdTvaDiscount = This.ct_discount1.nid_tva
*!* pnTotalFactura = THIS.ct_factura1.totctva
*!* pnBazaFactura = THIS.ct_factura1.totftva
*!* pnTvaFactura = THIS.ct_factura1.tva
pnBazaNir = [pret*cant]
pnBazaBon = [pret*cante]
pnTotalBon = This.ntotal
pnTotalNir = This.ntotal
lcCant = Lower(Alltrim(This.osel_dr.cantitate))
*!* ROAGEST V 2.0.61
*!* modificare ROAGEST v 2.0.53
*!* If Inlist(oset.model, 5, 6, 7) && transfer
*!* 236,240,241,242 - RETUR DE LA GESTIUNE VALORICA (-CANTE)
*!* 267 retur valoric din custodie
If Inlist(oSet.model, 5, 6, 7) Or Inlist(oSet.id_set,238,239,236,240,241,242,255,256,259,260,267 )
lcCant = [cante]
Endif
*!* modificare ROAGEST v 2.0.53 ^
*!* ROAGEST V 2.0.61 ^
If !plNIRBONPretCuTVA
pcTvaNirFormula = [ROUND(ROUND(cant*pret,gnPc)*(proc_tva-1),gnPc)]
pcBazaNirFormula = [Round(cant*pret,gnPc)]
pcBazaBonFormula = [Round(cante*pret,gnPc)]
Else
pcTvaNirFormula = [Round(ROUND(cant*(pret+tva),gnPc) * (proc_tva-1)/proc_tva, gnPC)]
pcBazaNirFormula = [Round(cant*(pret+tva),gnPc) - Round(ROUND(cant*(pret+tva),gnPc) * (proc_tva-1)/proc_tva, gnPC)]
pcBazaBonFormula = [Round(cante*(pret+tva),gnPc) - Round(ROUND(cante*(pret+tva),gnPc) * (proc_tva-1)/proc_tva, gnPC)]
Endif
*!* modificare ROAGEST v 2.0.94 : am adaugat conditia AND oset.id_set <> 75
If !Inlist(gnTipGest, 6, 7) And oSet.id_set <> 75
pnBazaVanz = [ROUND(pretv*cante,gnPc)]
pnBazaVal = [ROUND(pretvval*cante,gnPVal)]
pnBazaValVanz = [ROUND(ROUND(pretvval*curs,gnPPretV)*cante,gnPC)]
pnTvaVanzOut2 = [Round(ROUND(pretv*cante,gnPc)*(proc_tvav-1),gnPc)] && PROTOCOL
pnTvaVal = [ROUND(ROUND(pretvval*cante,gnPVal)*(proc_tvav-1),gnPVal)]
pnTvaValVanz = [ROUND(ROUND(ROUND(pretvval*curs,gnPPretV)*cante,gnPC)*(proc_tvav-1),gnPC)]
pcBazaVanzFormula = [ROUND(pretv*cante,gnPc)]
pnTvaVanzIn = [Round(ROUND(pretv*cant,gnPc) * (proc_tvav-1), gnPC)]
pnTvaVanzOut = [Round(ROUND(pretv*cante,gnPc) * (proc_tvav-1), gnPC)]
If !plNIRBONPretCuTVA
pnAdaos = [Round(] + lcCant+ [ * pretv, gnPc) - Round(] + lcCant+ [ * pret, gnPc)]
Else
pnAdaos = [Round(] + lcCant+ [ * pretv, gnPc) - (ROUND((pret+tva)*] + lcCant + [,gnPc) - Round(ROUND((pret+tva)*] + lcCant + [,gnPc) * (proc_tva-1)/proc_tva, gnPC))]
Endif
*!* modificare ROAGEST v 2.0.45
pnVanzOutCuTva = pnBazaVanz + [+] + pnTvaVanzOut
*!* modificare ROAGEST v 2.0.45 ^
Else
pnBazaVanz = [ROUND((pretv+tvav)*cante,gnPc) - Round(ROUND((pretv+tvav)*cante,gnPc) * (proc_tvav-1)/proc_tvav, gnPc)]
pnBazaVal = [ROUND(Round(pretvval*proc_tvav,gnPVal)*cante,gnPVal) - Round(ROUND(Round(pretvval*proc_tvav,gnPVal)*cante,gnPVal) * (proc_tvav-1)/proc_tvav, gnPVal)]
pnBazaValVanz = [ROUND(Round(ROUND(pretvval*curs,gnPPretV)*proc_tvav,gnPPretV)*cante, gnPc) - Round(ROUND(Round(ROUND(pretvval*curs,gnPPretV)*proc_tvav, gnPPretV)*cante, gnPc) * (proc_tvav-1)/proc_tvav, gnPc)]
pnTvaVanzOut2 = [Round(Round((pretv+tvav)*cante,gnPc)*(proc_tvav-1)/proc_tvav, gnPc)] && PROTOCOL
pnTvaVal = [Round(ROUND(Round(pretvval*proc_tvav,gnPVal)*cante,gnPVal) * (proc_tvav-1)/proc_tvav, gnPVal)]
pnTvaValVanz = [Round(ROUND(Round(ROUND(pretvval*curs,gnPPretV)*proc_tvav, gnPPretV)*cante, gnPc) * (proc_tvav-1)/proc_tvav, gnPc)]
pcBazaVanzFormula = [ROUND((pretv+tvav)*cante,gnPc) - Round(ROUND((pretv+tvav)*cante,gnPc) * (proc_tvav-1)/proc_tvav, gnPC)]
pnTvaVanzIn = [Round(ROUND((pretv+tvav)*cant,gnPc)* (proc_tvav-1)/proc_tvav, gnPC)]
pnTvaVanzOut = [Round(ROUND((pretv+tvav)*cante,gnPc)* (proc_tvav-1)/proc_tvav, gnPC)]
If !plNIRBONPretCuTVA
pnAdaos = [ROUND((pretv+tvav)*] + lcCant + [,gnPc) - Round(ROUND((pretv+tvav)*] + lcCant + [,gnPc) * (proc_tvav-1)/proc_tvav, gnPC) - ] + ;
[Round(] + lcCant+ [ * pret, gnPc)]
Else
pnAdaos = [ROUND((pretv+tvav)*] + lcCant + [,gnPc) - Round(ROUND((pretv+tvav)*] + lcCant + [,gnPc) * (proc_tvav-1)/proc_tvav, gnPC) - ] + ;
[(ROUND((pret+tva)*] + lcCant + [,gnPc) - Round(ROUND((pret+tva)*] + lcCant + [,gnPc) * (proc_tva-1)/proc_tva, gnPC))]
Endif
*!* modificare ROAGEST v 2.0.45
pnVanzOutCuTva = [Round((pretv+tvav)*cante,gnPc)]
*!* modificare ROAGEST v 2.0.45 ^
Endif
If oSet.id_set = 104 And gnImputare = 1
pnBazaVanz = [ROUND(pret_imputare*cante,gnPc)]
pnTvaVanzOut = [ROUND(ROUND(pret_imputare*cante,gnPc)*(proc_tvav-1),gnPc)]
Endif
pnAdaosTotal = This.ct_adaos1.baza_adaos
pnBazaPlusAdaos = pnTotalBon + pnAdaosTotal
Select * From XNOTE Where id_set = oSet.id_set Into Cursor crsNota
lcField = ''
Select xact
Go Top
For I = 1 To Fcount()
If Upper(Alltrim(Evaluate(Field(I)))) = 'SUMA'
lcField = Field(I)
Exit
Endif
Endfor
If Empty(lcField)
Return .T.
Endif
Select Distinct xscd As SCD, xscc As scc, Padr(&lcField,100,' ') As eticheta,x34,x37 From crsNota ;
WHERE Inlist(Upper(Alltrim(xscd)),'X') Or Inlist(Upper(Alltrim(xscc)),'X');
INTO Cursor crsIcsi
If _Tally > 0
Select crsIcsi
Scan
lcEticheta = Lower(Alltrim(eticheta))
If Empty(lcEticheta)
amessagebox('NECONFIGURAT xnote.dbf !',48,'Atentie!')
Loop
Endif
lcSCD = Upper(Alltrim(SCD))
lcSCC = Upper(Alltrim(scc))
lcIDJtva = Upper(Alltrim(x34)) && ID_JTAX/ID_TVA/pnIdJTvaDiscount/pnIdTvaDiscount
lcTaxCode = UPPER(ALLTRIM(x37)) && STAXCODE
If Inlist(oSet.model, 5, 6, 7) && TRANSFER, RETUR TRANSFER
If lcSCD = 'Y'
lcSCD = lcContTr
Endif
If lcSCC = 'Y'
lcSCC = lcContTr
Endif
Endif
&& despart sumele pe gestiuni si sectii - pt formarea corecta a analiticelor
If 'pntvavanz' $ lcEticheta Or 'pnadaos' $ lcEticheta
*!* IF 'pnadaos'$lcEticheta
If Type('&lcEticheta') <> 'N'
lcEticheta = &lcEticheta
Endif
lcSuma = [SUM(ROUND(&lcEticheta,gnPc))]
*!* ELSE
*!* lcEticheta = &lcEticheta
*!* lcSuma = [SUM(ROUND(ROUND(&lcEticheta,gnPc)*(proc_tvav-1),gnPc))]
*!* ENDIF
lcSelect = [SELECT CONT,ACONT,id_gestiune,id_sectie,sectie,id_lucrare,nrord,] + ;
IIF(Type(lcSelRul+'.id_jtva_coloana')#'U',[id_jtva_coloana],[NULL]) + [ as id_jtva_coloana,] + ;
IIF(Type(lcSelRul+'.taxcode')#'U',[taxcode],[NULL]) + [ as taxcode,] + ;
IIF(Type(lcSelRul+'.proc_tvav')#'U',[proc_tvav],[0000]) + [ as proc_tva,] +;
IIF(Type(lcSelRul+'.id_gestin')#'U',[id_gestin],[000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ AS suma ] + ;
[FROM ] + lcSelRul + [ where nuInConturiX = 0 into cursor crsConturiX ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14]
&lcSelect
Else
*!* v 2.0.24 valoarea baza achizitie = diferenta intre valoarea cu tva si valoarea tva
Do Case
Case 'pnbazanir' $ Lower(lcEticheta)
lcSuma = [Sum(&pcBazaNirFormula)]
Case 'pnbazabon' $ Lower(lcEticheta)
lcSuma = [Sum(&pcBazaBonFormula)]
Otherwise
If Type('&lcEticheta') <> 'N'
lcEticheta = &lcEticheta
Endif
lcSuma = [SUM(ROUND(&lcEticheta,gnPc))]
Endcase
*!* v 2.0.24
*!* lcSuma = [SUM(ROUND(]+ALLTRIM(STR(lcEticheta,20,6))+[,gnPc))]
lcSelect = [SELECT CONT,ACONT,id_gestiune,id_sectie,sectie,id_lucrare,nrord,] + ;
IIF(Type(lcSelRul+'.id_jtva_coloana')#'U',[id_jtva_coloana],[NULL]) + [ as id_jtva_coloana,] + ;
IIF(Type(lcSelRul+'.taxcode')#'U',[taxcode],[NULL]) + [ as taxcode,] + ;
IIF(Type(lcSelRul+'.proc_tva')#'U',[proc_tva],[0000]) + [ as proc_tva,] +;
IIF(Type(lcSelRul+'.id_gestin')#'U',[id_gestin],[000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ AS suma ] + ;
[FROM ] + lcSelRul + [ where nuInConturiX = 0 into cursor crsConturiX ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14]
&lcSelect
Endif
Select crsConturiX
Scan For suma*0 = 0 && sa evit cazurile in care suma este ******
Scatter Name loCX
Select ACTACTAN
Locate For Upper(Alltrim(SCD)) = lcSCD And Upper(Alltrim(scc)) = lcSCC
If Found()
Scatter Name loActactan
With loActactan
If Upper(Alltrim(.SCD)) = 'X'
.SCD = loCX.Cont
.ascd = Nvl(loCX.acont,'')
.suma = loCX.suma
If !Empty(lcIDJtva) && AND !INLIST(oset.model,5,6)
.id_jtva_coloana = loCX.id_jtva_coloana
.proc_tva = loCX.proc_tva
Else
.id_jtva_coloana = Null
.proc_tva = 0
Endif
.taxcode = IIF(!Empty(m.lcTaxCode), loCX.taxcode, NULL)
.id_gestin = loCX.id_gestin
.gestin = loCX.gestin
.id_gestout = loCX.id_gestout
.gestout = loCX.gestout
.id_sectie = loCX.id_sectie
.sectie = loCX.sectie
.id_lucrare = loCX.id_lucrare
.nrord = loCX.nrord
Endif
If Upper(Alltrim(.scc)) = 'X'
.scc = loCX.Cont
.ascc = Nvl(loCX.acont,'')
.suma = loCX.suma
*!* modificare 04.10.2007
*!* If Left(.scd,1) = '6' And Alltrim(.scd) # '607' And Inlist(oset.model, 3, 4) && BON, RETUR
*!* If .scc = '381'
*!* .scd = '608'
*!* Else
*!* .scd = Strtran(.scc, '3', '6', 1, 1)
*!* Endif
*!* Endif
If Inlist(oSet.model,3,4)
Select crsconfigcvc
Locate For Cont = Upper(Alltrim(.scc))
If Found() And (Empty(.SCD) Or Inlist(Left(.SCD,1), '6','7'))
.SCD = Alltrim(cont_chelt)
Else
If Left(.SCD,1) = '6' And Alltrim(.SCD) # '607'
IF LEFT(.scc,1) = '8' && clasa 8 nu are corespondent (obiecte inventar in folosinta)
.scd = ''
Else
If .scc = '381'
.SCD = '608'
ELSE
.SCD = Strtran(.scc, '3', '6', 1, 1)
ENDIF
ENDIF
Endif
Endif
Select ACTACTAN
Endif
*!* modificare 04.10.2007 ^
If !Empty(lcIDJtva) && AND !INLIST(oset.model,5,6)
.id_jtva_coloana = loCX.id_jtva_coloana
.proc_tva = loCX.proc_tva
Else
.id_jtva_coloana = Null
.proc_tva = 0
ENDIF
.taxcode = IIF(!Empty(m.lcTaxCode), loCX.taxcode, NULL)
.id_gestin = loCX.id_gestin
.gestin = loCX.gestin
.id_gestout = loCX.id_gestout
.gestout = loCX.gestout
.id_sectie = loCX.id_sectie
.sectie = loCX.sectie
.id_lucrare = loCX.id_lucrare
.nrord = loCX.nrord
Endif
Endwith
Append Blank
Gather Name loActactan
Endif && IF FOUND()
Select crsConturiX
Endscan
Select crsIcsi
Endscan
Delete From ACTACTAN Where Inlist(Upper(Alltrim(SCD)),'X') Or Inlist(Upper(Alltrim(scc)),'X')
Endif
*!* 15.03.2007 ^
*!* inlocuiesc Y - la notele care nu sunt transfer sau retur transfer (intrare dintr-o gestiune tinuta valoric - trebuie contul)
If !Inlist(oSet.model, 5, 6, 7) And llY
Select rul_temp
Go Top
lnIdGestiuneTr = id_gestiune
If !Empty(lnIdGestiuneTr)
loCont = This.aleg_cont_transfer(lnIdGestiuneTr)
lcContTr = loCont.Cont
lcAcontTr = loCont.acont
Select ACTACTAN
Replace All SCD With lcContTr, ascd With lcAcontTr For Upper(Alltrim(SCD)) = 'Y'
Replace All scc With lcContTr, ascc With lcAcontTr For Upper(Alltrim(scc)) = 'Y'
Endif
*!* 20.03.2007
*!* cont de transfer - cont din nomenclator
*!* in rul aj trebuie sa am pe intrari contul din debit (contul de transfer)
If oSet.model = 2 Or Upper(Alltrim(oSet.formgest)) = 'NIR'
Select rul_temp
Replace All Cont With lcContTr
Endif
Endif
*!* 15.03.2007 ^
Select crsNota
Scan For !(Inlist(Upper(Alltrim(xscd)),'X') Or Inlist(Upper(Alltrim(xscc)),'X'))
Scatter Name loNota
lcVariabila = Lower(Alltrim(loNota.&lcField))
lcIDJtva = Upper(Alltrim(x34))
If Inlist(oSet.model, 5, 6, 7) Or llY && TRANSFER, RETUR TRANSFER
If loNota.xscd = 'Y'
loNota.xscd = lcContTr
loNota.xAscd = lcAcontTr
Endif
If loNota.xscc = 'Y'
loNota.xscc = lcContTr
loNota.xAscc = lcAcontTr
Endif
Endif
Do Case
Case 'pntvanir' $ lcVariabila
lcSuma = [SUM(&pcTvaNirFormula)]
lcSelect = [SELECT b.id_tva as id_jtva_coloana,a.proc_tva,CAST(] + IIF(Type(lcSelRul+'.taxcode')#'U',[a.taxcode],[NULL]) + [ as I) as taxcode,a.id_sectie,a.id_gestiune,a.sectie,a.id_lucrare,a.nrord,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a LEFT JOIN jtva_coloane b ON a.id_jtva_coloana = b.id_jtva_coloana ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12]
*!* v 2.0.24 ^
&lcSelect
Select crsTva
I = 0
Scan For suma*0 = 0 && sa evit cazurile in care suma este ******
I = I + 1
If I = 1
Select ACTACTAN
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
Scatter Name loAct
Delete
Else
Scatter Name loAct Blank
Endif
Endif
Select crsTva
Scatter Name loTva
Select ACTACTAN
Append Blank
Gather Name loAct
Gather Name loTva
If Empty(lcIDJtva)
Replace id_jtva_coloana With Null,proc_tva With 0
Endif
Endscan
Case 'pnbazavanz'$lcVariabila Or 'pntvavanz'$lcVariabila
lcVariabilatemp = lcVariabila
lcVariabila = &lcVariabila
lcSuma = [sum(ROUND(&lcVariabila,gnPc))]
DO CASE
CASE 'pnbazavanz'$lcVariabilatemp
lcSuma = [Sum(&pcBazaVanzFormula)]
lcSelect = [SELECT a.id_jtva_coloana,a.proc_tvav,a.taxcode,a.id_sectie,a.id_gestiune,a.sectie,a.id_lucrare,a.nrord,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12]
CASE 'pntvavanz'$lcVariabilatemp
lcSelect = [SELECT b.id_tva as id_jtva_coloana,a.proc_tvav,CAST(] + IIF(Type(lcSelRul+'.taxcode')#'U',[a.taxcode],[NULL]) + [ as I) as taxcode,a.id_sectie,a.id_gestiune,a.sectie,a.id_lucrare,a.nrord,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a LEFT JOIN jtva_coloane B ON A.ID_JTVA_COLOANA = B.ID_JTVA_COLOANA ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12]
ENDCASE
&lcSelect
Select crsTva
I = 0
Scan For suma*0 = 0 && sa evit cazurile in care suma este ******
I = I + 1
If I = 1
Select ACTACTAN
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
Scatter Name loAct
Delete
Else
Scatter Name loAct Blank
Endif
Endif
Select crsTva
Scatter Name loTva
Select ACTACTAN
Append Blank
Gather Name loAct
Gather Name loTva
Replace proc_tva With loTva.proc_tvav
If Empty(lcIDJtva)
Replace id_jtva_coloana With Null
Endif
Endscan
*!* modificare facturare in valuta 21.09.2007
Case 'pnbazaval'$lcVariabila Or 'pntvaval'$lcVariabila
lcVariabilatemp = lcVariabila
lcVariabila = &lcVariabila
lcSumaVal = [sum(&lcVariabila)]
If 'pnbazaval'$lcVariabilatemp
*!* lcSuma = [SUM(]+pnBazaValVanz+[)]
lcSuma = [ROUND(SUM(]+pnBazaVal+[)*a.curs,gnPc)]
lcSelect = [SELECT a.id_jtva_coloana,a.proc_tvav,a.taxcode,a.id_sectie,a.id_gestiune,a.sectie,a.id_lucrare,a.nrord,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
[NVL(a.id_valuta_vanz,0) as id_valuta,] + ;
IIF(Type(lcSelRul+'.curs') #'U',[a.curs],[0]) + [ as curs,] + ;
lcSumaVal + [ as suma_val,] + lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14]
Else
*!* lcSuma = [SUM(]+pnTvaValVanz+[)]
lcSuma = [ROUND(SUM(]+pnTvaVal+[)*a.curs,gnPc)]
lcSelect = [SELECT b.id_tva as id_jtva_coloana,a.proc_tvav,CAST(] + IIF(Type(lcSelRul+'.taxcode')#'U',[a.taxcode],[NULL]) + [ as I) as taxcode,a.id_sectie,a.id_gestiune,a.sectie,a.id_lucrare,a.nrord,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
[NVL(a.id_valuta_vanz,0) as id_valuta,] + ;
IIF(Type(lcSelRul+'.curs') #'U',[a.curs],[0]) + [ as curs,] + ;
lcSumaVal + [ as suma_val,] + lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a LEFT JOIN jtva_coloane B ON A.ID_JTVA_COLOANA = B.ID_JTVA_COLOANA ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12,13,14]
Endif
&lcSelect
Select crsTva
I = 0
Scan For suma_val*0 = 0 && sa evit cazurile in care suma este ******
I = I + 1
If I = 1
Select ACTACTAN
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
Scatter Name loAct
Delete
Else
Scatter Name loAct Blank
Endif
Endif
Select crsTva
Scatter Name loTva
AddProperty(loTva,[nume_val],poAct.nume_val_vanz)
Select ACTACTAN
Append Blank
Gather Name loAct
Gather Name loTva
Replace proc_tva With loTva.proc_tvav
If Empty(lcIDJtva)
Replace id_jtva_coloana With Null
Endif
Endscan
*!* modificare facturare in valuta 21.09.2007 ^
Case 'pnbazabon'$lcVariabila
*!* v 2.0.24
*!* lcSuma = [SUM(ROUND(&lcEticheta,gnPc))]
lcSuma = [Sum(&pcBazaBonFormula)]
*!* v 2.0.24 ^
lcSelect = [SELECT a.id_jtva_coloana,a.proc_tvav,CAST(null as I) as taxcode,a.id_sectie,a.id_gestiune,a.sectie,a.id_lucrare,a.nrord,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11,12]
&lcSelect
Select crsTva
I = 0
Scan For suma*0 = 0 && sa evit cazurile in care suma este ******
I = I + 1
If I = 1
Select ACTACTAN
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
Scatter Name loAct
Delete
Else
Scatter Name loAct Blank
Endif
Endif
Select crsTva
Scatter Name loTva
Select ACTACTAN
Append Blank
Gather Name loAct
Gather Name loTva
Replace proc_tva With loTva.proc_tvav
If Empty(lcIDJtva)
Replace id_jtva_coloana With Null
Endif
Endscan
Otherwise
Select ACTACTAN
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
If !Empty(lcVariabila)
Replace suma With &lcVariabila
Endif
Endif
If 'discount' $ lcVariabila
Replace proc_tva With pnProcDiscount,id_jtva_coloana With &lcIDJtva, taxcode WITH GetTaxCode(m.gnAn, m.gnLuna, dataact, &lcIDJtva, (Thisform.nTvaincasare=1))
Endif
Endcase
Endscan
If Used('crsIcsi')
Use In crsIcsi
Endif
If Used('crsConturiX')
Use In crsConturiX
Endif
If Used('crsNota')
Use In crsNota
Endif
*!* IF USED('rul_temp')
*!* USE IN rul_temp
*!* ENDIF
*!* && completez RUL_TEMP
*!* lcRul = ALLTRIM(THIS.osel_dr.cfrom)
*!* lcSql = [select * from ] + gcS + [.] + lcRul + [ where 1=2]
*!* lcCursor = [rul_temp]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* IF lnSucces < 0
*!* RETURN .F.
*!* ENDIF
*!* lcCant = LOWER(ALLTRIM(this.osel_dr.cantitate))
*!* lcCantTransf = [cant] + iif(lcCant = [cante],[],[e])
*!* IF INLIST(oset.model, 5, 6) && TRANSFER, RETUR TRANSFER
*!* SELECT * FROM (lcSelRul) INTO CURSOR crsTransf NOFILTER READWRITE
*!* REPLACE ALL &lcCantTransf WITH &lcCant FOR !EMPTY(&lcCant)
*!* REPLACE ALL &lcCant WITH 0
*!* APPEND FROM DBF(lcSelRul)
*!* IF oset.id_set <> 89 && TRANSFER INTRE PERSOANE
*!* REPLACE ALL cont WITH lcContTr, acont WITH lcAcontTr FOR &lcCantTransf # 0
*!* ELSE
*!* SELECT (this.ct_grid_search1.cnumecursor)
*!* SCATTER NAME loStg
*!* SELECT crsTransf
*!* REPLACE ALL id_gestin WITH id_gestout
*!* REPLACE ALL id_responsabil WITH loStg.id_responsabil, nresp WITH loStg.nresp FOR cante <> 0
*!* ENDIF
*!* REPLACE ALL id_gestiune WITH id_gestin,nume_gestiune WITH gestin FOR &lcCantTransf <> 0
*!* REPLACE ALL id_gestiune WITH id_gestout, nume_gestiune WITH gestout FOR &lcCant <> 0
*!*
*!* SELECT rul_temp
*!* APPEND FROM DBF('crsTransf')
*!* IF USED('crsTransf')
*!* USE IN crsTransf
*!* ENDIF
*!*
*!* lcSel = [SELECT id_gestiune from ] + gcs + [.vnom_gestiuni WHERE nr_pag = 6]
*!* lcCursor = 'crsIdVanzare'
*!* lnSucces = goExecutor.oExecute(lcSel,lcCursor)
*!* IF lnSucces < 0
*!* MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* ENDIF
*!*
*!* IF lnSucces > 0
*!* UPDATE rul_temp SET pretv = 0, tvav = 0, proc_tvav = 0 WHERE id_gestiune NOT in (select id_gestiune from crsIdVanzare)
*!* USE IN crsIdVanzare
*!* ENDIF
*!* ELSE
*!* SELECT rul_temp
*!* APPEND FROM DBF(lcSelRul)
*!* ENDIF
*!* IF INLIST(oset.model, 5, 6) AND USED('crsTransfer') && TRANSFER, RETUR TRANSFER
*!* SELECT rul_temp
*!* APPEND FROM DBF('crsTransfer')
*!* ENDIF
*!* SELECT rul_temp
*!* APPEND FROM DBF(lcSelRul)
*!* modificare 20.04.2007 & 04.05.2007 & 09.05.2007
Do Case
Case Inlist(oSet.id_set,61,62,63,226,258,260) && modificare ROAGEST v 2.0.188 : am sters 261
Select ACTACTAN
If oSet.cursval
Calculate Sum(suma) To pnBazaValProd For Alltrim(scc)= '345'
Calculate Sum(suma) To pnBazaVal341 For Alltrim(scc)= '341'
Calculate Sum(suma) To pnBazaVal346 For Alltrim(scc)= '346'
Calculate Sum(suma) To pnBazaValAmb For Alltrim(scc) = '381'
pnBazaVProd = pnBazaValProd
pnBazaVAmb = pnBazaValAmb
pnBazaV341 = pnBazaVal341
pnBazaV346 = pnBazaVal346
Else
Calculate Sum(suma) To pnBazaVProd For Alltrim(scc)= '345'
Calculate Sum(suma) To pnBazaVAmb For Alltrim(scc) = '381'
Calculate Sum(suma) To pnBazaV341 For Alltrim(scc)= '341'
Calculate Sum(suma) To pnBazaV346 For Alltrim(scc)= '346'
Endif
Replace suma With suma - pnBazaVProd - pnBazaVAmb - pnBazaV341 - pnBazaV346 For Alltrim(SCD) = '4111' And Alltrim(scc) = '707'
*!* 19.01.2015: 701-> 7015
*!* Replace suma With pnBazaVProd + pnBazaV341 + pnBazaV346 For Alltrim(SCD) = '4111' And Alltrim(scc) = '701'
Replace suma With pnBazaVProd + pnBazaV341 + pnBazaV346 For Alltrim(SCD) = '4111' And Alltrim(scc) = '7015'
*!* 19.01.2015: 701-> 7015 ^
Replace SCD With '711',suma With pnBazaVProd For Alltrim(SCD) = '607' And Alltrim(scc) = '345'
Replace SCD With '711',suma With pnBazaV341 For Alltrim(SCD) = '607' And Alltrim(scc) = '341'
Replace SCD With '711',suma With pnBazaV346 For Alltrim(SCD) = '607' And Alltrim(scc) = '346'
Replace scc With '348' For Inlist(Alltrim(SCD),'341','345','346') And Alltrim(scc) = '378'
Replace SCD With '348',scc With '711' For Alltrim(SCD) = '378' And Inlist(Alltrim(scc),'341','345','346')
Replace suma With pnBazaVAmb For Alltrim(SCD) = '4111' And Alltrim(scc) = '708'
Replace SCD With '608' For Alltrim(SCD) = '607' And Alltrim(scc) = '381'
Replace scc With '388' For Alltrim(SCD) = '381' And Alltrim(scc) = '378'
Replace SCD With '388' For Alltrim(SCD) = '378' And Alltrim(scc) = '381'
Delete For suma = 0
Case Inlist(oSet.id_set,79,83,206,225)
Select ACTACTAN
Replace scc With '711' For Alltrim(SCD) = '348'
*!* modificare 22.05.2007
Case oSet.id_set = 218 && diferenta de pret
Select (lcSelRul)
Replace All pretv With 0,tvav With 0,proc_tvav With 0,procent With 0
Select ACTACTAN
Replace id_gestin With 0,gestin With '' For nr_nota = 2
*!* Replace id_gestin With id_gestout, gestin With gestout,id_gestout With 0,gestout With '',scc WITH '711' For nr_nota = 4
*!* Replace scc WITH '711' For nr_nota = 4
Replace SCD With '348' For nr_nota = 2 And SCD <> '381'
Replace SCD With '388' For nr_nota = 2 And SCD = '381'
Replace scc With '388' For nr_nota = 1 And SCD = '381'
*!* modificare 22.05.2007 ^
Case Inlist(oSet.id_set,53,213,57,58)
Select ACTACTAN
Replace SCD With '607' For scc = '371'
Replace SCD With '711' For scc = '345' && modificare 03.10.2007
Case Inlist(oSet.id_set, 230, 232, 233, 235,243,244,261,262,270) && protocol, sponsorizare
Select ACTACTAN
Replace suma With suma * (-1) For nr_nota = 1
*!* modificare v 2.2.29
IF INLIST(oSet.id_set, 232, 235, 244, 262)
Replace proc_tva WITH 0 FOR nr_nota = 1
Endif
*!* modificare v 2.2.29 ^
Endcase
*!* modificare ^
&& ordonez notele contabile in ACTACTANSELECT actactan
Select ACTACTAN
Sum suma To lnSume
If lnSume <> 0
lcCondDele = [!(suma = 0 and !(((left(scd,1) = '3' and left(scc,2) = '40') OR (left(scd,2) = '41' and left(scc,1) = '7')) AND proc_tva # 1))]
Else
*!* modificare ROAGEST v 2.0.55
*!* lcCondDele = [suma = 0 AND nr_nota = 1 ]
lcCondDele = [(suma = 0 and nr_nota = 1) or suma <> 0]
*!* modificare ROAGEST v 2.0.55 ^
Endif
*!* 19.02.2010
*!* 230,232,233,235 = protocol, sponsorizare
*!* 264,265 = finalizare aprovizionare - are o nota nimic = 401 cu suma 0 care trebuie sa ramana pentru numele furnizorului
Select * From ACTACTAN Into Cursor crsActActan Where &lcCondDele Or Inlist(id_set, 89, 210, 211, 212, 230, 232, 233, 235,261,264,265) Order By nr_nota NOFILTER Readwrite
*!* 19.02.2010 ^
Select ACTACTAN
Delete From ACTACTAN
Append From Dbf('crsactactan')
If Used('crsactactan')
Use In crsActActan
Endif
*** && completare analitice
*!* 2.0.85
*!* sterg analiticele puse datorita lui X = 378 si X = 4428 (X este de la gestiunea destinatie, nu sursa)
If Inlist(oSet.id_set, 255, 256) && retur de la gestiune valorica - mf pa *
Replace All ascd With "" For Inlist(Alltrim(scc), '378', '4428')
Endif
*!* 2.0.85 ^
Select ACTACTAN
Scan For Empty(Nvl(ascd,''))
Scatter Name loActactan
If Type('loActactan.cont') = 'U'
x = AddProperty(loActactan,'cont',loActactan.SCD)
Endif
If oSet.model = 2 And Type('loActactan.id_gestiune') = 'U' And !Inlist(oSet.id_set,215,216,237,257) && NIR, fara intrare din gestiune valorica
x = AddProperty(loActactan,'id_gestiune',loActactan.id_gestin)
Endif
If (Inlist(oSet.model, 3, 4) Or Inlist(oSet.id_set,215,216,237,257)) And Type('loActactan.id_gestiune') = 'U' && BON, RETUR, intrare din gestiune valorica
x = AddProperty(loActactan,'id_gestiune',loActactan.id_gestout)
Endif
loActactan.ascd = This.assign_analitic(loActactan.SCD,This.cobj,'loActactan')
Replace ascd With loActactan.ascd
Select ACTACTAN
Endscan
Select ACTACTAN
Scan For Empty(Nvl(ascc,''))
Scatter Name loActactan
If Type('loActactan.cont') = 'U'
x = AddProperty(loActactan,'cont',loActactan.scc)
Endif
If oSet.model = 2 And Type('loActactan.id_gestiune') = 'U' And !Inlist(oSet.id_set,215,216,237,257) && NIR, fara intrare din gestiune valorica
x = AddProperty(loActactan,'id_gestiune',loActactan.id_gestin)
Endif
If (Inlist(oSet.model, 3, 4) Or Inlist(oSet.id_set,215,216,237,257)) And Type('loActactan.id_gestiune') = 'U' && BON, RETUR, intrare din gestiune valorica
x = AddProperty(loActactan,'id_gestiune',loActactan.id_gestout)
Endif
loActactan.ascc = This.assign_analitic(loActactan.scc,This.cobj,'loActactan')
Replace ascc With loActactan.ascc
Select ACTACTAN
Endscan
**********************************************
* OBIECTE DE INVENTAR IN FOLOSINTA
Use In (SELECT('RUL_TEMP_OBINV'))
**********************************************
DO CASE
CASE oSet.id_set = 55
* DARE IN FOLOSINTA 8039 cu inregistrarea cheltuielii 603 = 303
* Mut inregistrarea cant<>0 in rul_temp_obinv
* id_set = 55 dare in folosinta cu schimbarea contului in 8039
* schimb contul in 8039
Update rul_temp Set Cont = gcContObinv, acont = '', serie = serie_obinv Where cant <> 0
CASE oSet.id_set = 273
* DARE IN FOLOSINTA 303 fara inregistrarea cheltuielii 303 = 303
* Nu schimb contul
Select * From rul_temp Where cant <> 0 And !Deleted() Into Cursor RUL_TEMP_OBINV NOFILTER Readwrite
UPDATE rul_temp_obinv SET serie = serie_obinv
Delete all FOR cant<>0 IN rul_temp
CASE INLIST(oset.id_set, 70,71,89,104,210,211,212,274)
* casare 70, retur din folosinta 71, 89 transfer intre persoane, 104 imputare, 210-212 transfer persoane-magazie, 274 = inregistrare cheltuiala ob inv in fol.
* operatii cu ob. inv. in folosinta nu mai tin seama de contul 8039, intrucat pot fi ob inv in folos si cu contul 303 (id_Set = 274)
Select * From rul_temp Where !Deleted() Into Cursor RUL_TEMP_OBINV NOFILTER Readwrite
IF oset.id_set = 71
* 71 retur din folosinta, trebuie sa existe iesirea si in rul_temp, ca sa reintre in stoc
Delete all FOR Left(Cont,2) = '80' IN rul_temp
Delete all FOR Left(Cont,2) <> '80' IN rul_temp_obinv
ELSE
Delete all IN rul_temp
ENDIF
ENDCASE
IF !USED('RUL_TEMP_OBINV')
Select * From rul_temp Where Left(Cont,2) = '80' And !Deleted() Into Cursor RUL_TEMP_OBINV NOFILTER Readwrite
Delete all FOR Left(Cont,2) = '80' IN rul_temp
ELSE
Select * From rul_temp Where Left(Cont,2) = '80' And !Deleted() Into Cursor RUL_TEMP_OBINV2 NOFILTER Readwrite
Delete all FOR Left(Cont,2) = '80' IN rul_temp
SELECT rul_temp_obinv
APPEND FROM DBF('rul_temp_obinv2')
USE IN (SELECT('rul_temp_obinv2'))
ENDIF
**********************************************
If gnCMP = 1 And oSet.model = 2 && NIR
Thisform.analiza_cmp('rul_temp', 'actactan')
*!* modificare 24.11.2006
Else
If Inlist(oSet.id_set, 215,216,236,237,238,239,240,241,242,255,256,257,259,260) && intrare din gestiune valorica, retur din gestiune valorica
Replace All id_tip_rulaj With oSet.id_tip_rul
Else
Select rul_temp
Replace id_tip_rulaj With oSet.id_tip_rul For id_tip_rulaj = 0
*!* modificare 24.11.2006 ^
ENDIF
IF INLIST(oSet.id_set, 55,89,210,211,212,273,274) && obiecte inventar in folosinta
SELECT rul_temp_obinv
Replace All id_tip_rulaj With oSet.id_tip_rul
ENDIF
Endif
If Type('loActactan') = 'O'
Release loActactan
Endif
Do Case
*!* modificare ROAFACTURARE v 2.0.96
CASE oSet.id_set = 267 && EDITURA EDUARD AVIZ RETUR MARFA DIN CUSTODIE VALORIC
Select rul_temp
Replace All id_tip_rulaj With oSet.id_tip_rul
* Atentie! pot fi mai multe randuri tva vanzare si marfa custodie (357) datorita impartirii pe gestiuni, sectii
* TVA discount este calculat pe total, nu pe gestiuni, sectii. Trebuie sa il pun doar pe prima linie
* nr_nota = 1 357 = 371 pot fi de asemenea mai multe randuri datorita impartirii pe gestiuni, sectii
* nu trebuie sa pun suma totala pe toate randurile nr_nota = 1, ci doar pe o singura nota
SELECT actactan
*!* replace suma WITH suma+pnTvaDiscV FOR INLIST(nr_nota,4,6) && adun tva discount la tva vanzare (-)
LOCATE FOR nr_nota = 4
IF FOUND()
replace suma WITH suma+pnTvaDiscV && adun tva discount la tva vanzare (-) doar pe primul rand 4
ENDIF
LOCATE FOR nr_nota = 6
IF FOUND()
replace suma WITH suma+pnTvaDiscV && adun tva discount la tva vanzare (-) doar pe primul rand 6
ENDIF
CALCULATE SUM(suma) FOR INLIST(nr_nota,2,3,4) TO lnSumaCont357 && valoarea marfa custodie (357) = marfa la pret de achizitie (2) + adaos (3) + tva (4)
CALCULATE SUM(suma) FOR nr_nota = 1 TO lnSumaCont357b && valoare bon pret achizitie
LOCATE FOR nr_nota = 1 && completez pe primul rand nr_nota = 1 cu diferenta dintre valoare 357 si valoarea bon de pe toate randurile nr_nota = 1
IF FOUND()
replace suma WITH suma + (lnSumaCont357 - m.lnSumaCont357b)
ENDIF
*!* modificare ROAFACTURARE v 2.0.96 ^
Case oSet.id_set=69
*!* modificare 07.03.2006 && 24.02.2007
Select ACTACTAN
Calculate Max(proc_tva) To lnMaxProcTva
Calculate Min(id_jtva_coloana) For proc_tva = lnMaxProcTva To lnIdJtvaColoana
Scan For Left(SCD,3)='411' Or Left(scc,3)='411'
If proc_tva=0
Replace proc_tva With lnMaxProcTva,id_jtva_coloana With lnIdJtvaColoana
Endif
Endscan
*!* sfarsit modificare 07.03.2006
Case oSet.id_set = 213
*!* modificare 12.02.2007 (bon de consum pe lucrari in curs de executie la Materii prime si materiale)
Select rul_temp
Replace All pretv With Round(Pret,gnPPretV) && modificare 14.09.2007
*!* modificare 12.02.2007 ^
*!* modificare v 2.0.6
Case Inlist(oSet.id_set,215,216,257)
Select (lcSelRul)
Replace All id_gestiunec With poAct.id_gestout,id_gestout With poAct.id_gestout,gestout With poAct.gestout
Select ACTACTAN
Replace All id_gestout With poAct.id_gestout,gestout With poAct.gestout
*!* modificare v 2.0.6 ^
Case Inlist(oSet.id_set, 240, 242,256) && Retur din transfer de la gestiune valorica (cantitativ) la pret de vanzare - aviz expeditie
&& e facut ca un nir cu cante < 0 in depozit, adaug inca o inregistrare cu cant < 0 de la magazin
Select * From rul_temp Into Cursor cReturTemp Readwrite
Select cReturTemp
Scan
Scatter Name poRec
Replace cant With poRec.cante, cante With 0, id_gestiune With poRec.id_gestiunec, id_gestiunec With poRec.id_gestiune
poRec.id_gestiune = cReturTemp.id_gestiune
poRec.id_gestiunec = cReturTemp.id_gestiunec
poRec.acont = Thisform.assign_analitic(poRec.Cont,Thisform.cobj,'poRec')
Replace acont With poRec.acont
Endscan
Select rul_temp
Append From Dbf('cReturTemp')
Use In (Select('cReturTemp'))
*!* modificare ROAGEST v 2.0.56
Case oSet.id_set = 229
Select rul_temp
Replace id_part_rez With poAct.vid_part_rez,id_lucrare_rez With poAct.id_lucrare For cant <> 0
* Nu mai sterg id_part_rez din iesire, pentru ca daca fac un transfer pe un alt client/inapoi in depozit,
* de pe un articol deja rezervat, se sterge id_part_rez de pe linia originala si nu se mai imperecheaza in stoc
* Replace id_part_rez With Null,id_lucrare_rez With Null For cante <> 0
*!* modificare ROAGEST v 2.0.56 ^
*!* 19.02.2010
*!* 3xx = 401 => 3xx = 32x
Case Alltrim(Upper(oSet.explicatia)) = 'FINALIZARE APROVIZIONARE'
Select ACTACTAN
Scan For Left(SCD,1) = '3' And Alltrim(scc) = '401'
lcContD = Alltrim(SCD)
Select crsconfigcvc
Locate For Alltrim(Cont) = m.lcContD And !Empty(Nvl(cont_aprovizionare, ''))
If Found()
lcContC = Alltrim(cont_aprovizionare)
Replace scc With m.lcContC In ACTACTAN
Endif
Endscan && actactan
*!* 19.02.2010 ^
Endcase
Select rul_temp
Locate For Empty(id_gestiune)
If Found()
amessagebox('Nu ati ales gestiunea!',48,"Atentie")
Return .F.
Endif
Select RUL_TEMP_OBINV
Locate For Empty(id_gestiune)
If Found()
amessagebox('Nu ati ales gestiunea!',48,"Atentie")
Return .F.
Endif
If oSet.productie
If Alltrim(Upper(oSet.formproduc))='FRM_ALEGE_PROD_CANT'
Select a.*, Recno() As ninreg ;
FROM ACTACTAN a ;
WHERE Substr(scc,1,1)='3' And !INLIST(Alltrim(scc), '301', '341', '345') ;
INTO Cursor cModificari
Select cModificari
Scan
Scatter Name loLinie
lcSCC = Alltrim(scc)
lnInreg = ninreg
Select ACTACTAN
Replace scc With lcSCC, SCD With '301' For Recno() = lnInreg
Append Blank
loLinie.SCD = '601'
loLinie.scc = '301'
Gather Name loLinie
Select cModificari
Endscan
If Used('cModificari')
Use In cModificari
Endif
Endif
Endif
*!* v 2.0.23 diferente baza, tva la NIR
*!* daca sunt diferente intre valoarea calculata si valoarea de pe factura inregistrez diferentele
If oSet.model = 2 && NIR
loRec = Null
lnDiferentaValftva = Thisform.nfTotftva - This.ct_factura1.totftva
lnDiferentaValTva = Thisform.nfTottva - This.ct_factura1.tva
If lnDiferentaValftva <> 0 And Thisform.nfTotftva <> 0
Select ACTACTAN
Locate For Left(scc,2) = '40'
If Found()
Scatter Name loRec
loRec.suma = lnDiferentaValftva
loRec.explicatia5 = 'Diferente calcul Valoare fara TVA'
*!* modificare ROAGEST v 2.0.101 : "ALTE CHELTUIELI DE EXPLOATARE"
* Las cont debit = contul original, nu cu 6588 daca nu eset configurare
IF .F.
Select crsconfigcvc
Locate For Cont = Upper(Alltrim(loRec.scd)) && 301, 302...
If Found() AND !Empty(NVL(cont_diferente, ''))
loRec.scd = Alltrim(cont_diferente)
ELSE
loRec.SCD='6588'
ENDIF
loRec.ascd=''
ENDIF
*!* modificare ROAGEST v 2.0.101 ^
Insert Into ACTACTAN From Name loRec
Release loRec
Else
amessagebox('Nu s-a gasit nici o inregistrare x = 40x pentru distribuirea diferentei la valoarea fara tva',0+48,'Diferente')
Endif
Endif
If lnDiferentaValTva <> 0 And Thisform.nfTottva <> 0
Select ACTACTAN
Locate For Inlist(SCD, '4426', '4428')
If Found()
Scatter Name loRec
loRec.suma = lnDiferentaValTva
loRec.explicatia5 = 'Diferente calcul TVA'
Insert Into ACTACTAN From Name loRec
Release loRec
Else
amessagebox('Nu s-a gasit nici o inregistrare x = 4426/4428 pentru distribuirea diferentei la valoarea tva',0+48,'Diferente')
Endif
Endif
Endif
*!* v 2.0.23 ^
Do completare_parteneri_gestiune In ointroduceri.prg
Do completare_gruputil_analitice In oproceduri_comune.prg
Do completare_tva_analitice In oproceduri_comune.prg
* Achizitii din CE, modific 4426 = 401 in 4426 = 4427
Select ACTACTAN
Replace All scc With '4427', ascc WITH '', id_partc WITH 0, partc WITH '' For scd = '4426' AND LEFT(scc,1) = '4' AND IsJCJtvaCE(id_jtva_coloana) IN ACTACTAN
Select ACTACTAN
*!* modificare ROAGEST v 2.2.0
If Thisform.ntvaincasare = 1
Replace All scc With '4428',ascc WITH '' For Inlist(id_jtva_coloana,22,24,26,30,32,38,42) And scc = '4427'
Replace All scd With '4428',ascd WITH '' For Inlist(id_jtva_coloana,171,173,175,179,189,211,215) And scd = '4426'
If Upper(Alltrim(Nvl(oSet.tipJurnal, ''))) = 'JC' && FURNIZORI / PASIV
lcSCTrez = 'scc'
lcSCTVA = 'scd'
Else
lcSCTrez = 'scd'
lcSCTVA = 'scc'
ENDIF
*!* 15.04.2013 - dupa ce puneam la loc 4428, ramanea cu analiticele de pe 4426 sau 4427
Do completare_gruputil_analitice In oproceduri_comune.prg
Do completare_tva_analitice In oproceduri_comune.prg
*!* ^15.04.2013
*** caut linia cu PLATA 401 = 5XX / INCASAREA 5XX = 411
Select actactan
Locate For Inlist(Alltrim(&lcSCTrez),'5121','5124','5311','5314', '542') && scc = '5xx' / scd = '5xx'
If Found()
*lnNrChitanta = evaluate(Thisform.cobj + [.nrchitanta])
lnNrChitanta = IIF(Type(Thisform.cobj +[.nrchitanta])<>'U',Evaluate(Thisform.cobj +[.nrchitanta]),Evaluate(Thisform.cobj +[.nract]))
lnIdFdoc = IIF(Type(Thisform.cobj+[.id_fdoc2])<>'U',Evaluate(Thisform.cobj+[.id_fdoc2]),Evaluate(Thisform.cobj+[.id_fdoc]))
lcFdoc = IIF(Type(Thisform.cobj+[.fdocpl])<>'U',Evaluate(Thisform.cobj+[.fdocpl]),Evaluate(Thisform.cobj+[.fdoc]))
Insert Into actactan(nr_nota,luna,an,nract,scd,ascc,scc,;
suma,suma_val,pereched,perechec,explicatia4,explicatia5,Curs,id_util,;
id_responsabil,nresp,id_venchelt,dst_chlt,id_lucrare,nrord,;
id_ctr,contract,id_sectie,sectie,proc_tva,id_set,id_fact,;
id_factd,id_factc,id_partd,partd,id_partc,partc,;
id_sucursala,sucursala,id_fdoc,fdoc,id_gestin,id_jtva_coloana,taxcode,;
gestin,id_gestout,gestout,id_valuta,nume_val,dataact,dataireg);
Select a.nr_nota, a.luna, a.an, lnNrChitanta As nract,'4426' As scd,a.ascd As ascc,'4428' As scc,;
a.suma, a.suma_val,a.nract As pereched,a.perechec,a.explicatia4,a.explicatia5,a.Curs,a.id_util,;
a.id_responsabil,a.nresp,a.id_venchelt,a.dst_chlt,a.id_lucrare,a.nrord,;
a.id_ctr,a.contract,a.id_sectie,a.sectie,a.proc_tva,a.id_set,-5 As id_fact,;
0 As id_factd,0 As id_factc,0 As id_partd,'' As partd, 0 As id_partc, '' As partc,;
a.id_sucursala,a.sucursala,;
lnIdFdoc as id_fdoc, lcFdoc as fdoc,;
0 As id_gestin,;
c.id_tva As id_jtva_coloana,;
CAST(GetTaxCode(m.gnAn, m.gnLuna, a.dataact, c.id_tva) as N(6) NULL) as taxcode,;
'' As gestin,0 As id_gestout,'' As gestout,a.id_valuta,a.nume_val,a.dataact,a.dataireg ;
FROM actactan a ;
Left Join jtva_coloane b On a.id_jtva_coloana = b.id_tva ;
left Join jtva_coloane c On b.id_jtva_ex = c.id_jtva_coloana ;
Where a.scd = '4428' And Like('4*',a.scc) And !Isnull(b.id_jtva_ex)
Insert Into actactan(nr_nota,luna,an,nract,scc,ascd,scd,;
suma,suma_val,pereched,perechec,explicatia4,explicatia5,Curs,id_util,;
id_responsabil,nresp,id_venchelt,dst_chlt,id_lucrare,nrord,;
id_ctr,contract,id_sectie,sectie,proc_tva,id_set,id_fact,;
id_factd,id_factc,id_partd,partd,id_partc,partc,;
id_sucursala,sucursala,id_fdoc,fdoc,id_gestin,id_jtva_coloana,taxcode,;
gestin,id_gestout,gestout,id_valuta,nume_val,dataact,dataireg);
Select a.nr_nota, a.luna, a.an, lnNrChitanta As nract,'4427' As scc,a.ascc As ascd,'4428' As scd,;
a.suma, a.suma_val, a.pereched,a.nract As perechec,a.explicatia4,a.explicatia5,a.Curs,a.id_util,;
a.id_responsabil,a.nresp,a.id_venchelt,a.dst_chlt,a.id_lucrare,a.nrord,;
a.id_ctr,a.contract,a.id_sectie,a.sectie,a.proc_tva,a.id_set,-5 As id_fact,;
0 As id_factd,0 As id_factc,0 As id_partd,'' As partd, 0 As id_partc, '' As partc,;
a.id_sucursala,a.sucursala,;
lnIdFdoc as id_fdoc, lcFdoc as fdoc,;
0 As id_gestin,;
c.id_tva As id_jtva_coloana,;
CAST(GetTaxCode(m.gnAn, m.gnLuna, a.dataact, c.id_tva) as N(6) NULL) as taxcode,;
'' As gestin,0 As id_gestout,'' As gestout,a.id_valuta,a.nume_val,a.dataact,a.dataireg ;
FROM actactan a ;
Left Join jtva_coloane b On a.id_jtva_coloana = b.id_tva ;
left Join jtva_coloane c On b.id_jtva_ex = c.id_jtva_coloana ;
Where a.scc = '4428' And Like('4*',a.scd) And !Isnull(b.id_jtva_ex)
Endif
Endif
*!* modificare ROAGEST v 2.2.0 ^
DO completare_taxname IN oproceduri_comune.prg
DO completare_paymentname IN oproceduri_comune.prg
DO completare_explicatie_tva IN oproceduri_comune.prg
Go TOP IN actactan
***** articolele negestionabile nu intra in stoc 2009.02.17
Delete From (lcSelRul) Where in_stoc = 0
***** 2009.02.17 ^
Return .T.
ENDPROC
PROCEDURE intrare_produs
Select rul_temp
Append Blank
Replace id_articol With m.pnId_articol, ;
denumire With m.pcDenumire, ;
cant With m.pnCant, ;
lot WITH m.pcLot, ;
serie WITH m.pcSerie, ;
pret With ROUND(Thisform.ntotal/pnCant,gnPPret), ;
id_gestiune With pnId_gestiune, nume_gestiune With pcGestiune, ;
id_gestin With pnId_gestiune, gestout With pcGestiune, ;
cont With pcCont_articol, ;
nnir With poact.nnir, ;
dataact With poact.dataact, ;
datain With poact.dataact, ;
id_set With poact.id_set, ;
in_stoc WITH pnInStoc,;
in_crm WITH pnInCrm ;
um WITH pcUm ;
nract WITH poAct.nract
*!* modificare ROAPRODUCTIE v 2.0.2 : am adaugat ce este sub id_set
*!* proc_tva ?
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL lcCtrGrid, lcCtrCriteriu, lcControl
lcCtrGrid = []
lcCtrCriteriu = []
lcControl = UPPER(THIS.ACTIVECONTROL.NAME)
IF lcControl = '_GRID1'
lcCtrGrid = UPPER(THIS.ACTIVECONTROL.COMMENT)
ENDIF
IF lcControl = 'CRITERIU'
lcCtrCriteriu = UPPER(THIS.ACTIVECONTROL.COMMENT)
ENDIF
DO CASE
CASE nKeyCode = 13 AND 'GRD_ST' $ lcCtrGrid
NODEFAULT
THISFORM.urmator1.comMAND1.SETFOCUS
CASE nKeyCode = 13 AND 'GRD_DR' $ lcCtrGrid
NODEFAULT
THISFORM.ct_grid_search1.Cb_tx_cautare1.TEXT.SETFOCUS
CASE (nKeyCode >=33 AND nKeyCode <=122) AND ('CRITERIU_ST' $ lcCtrCriteriu OR 'GRD_ST' $ lcCtrGrid)
NODEFAULT
THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE = ALLTRIM(THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE) + CHR(nKeyCode)
THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.SETFOCUS
KEYBOARD '{END}'
CASE (nKeyCode = 127) AND ('CRITERIU_ST' $ lcCtrCriteriu OR 'GRD_ST' $ lcCtrGrid) && backspace
NODEFAULT
THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE = LEFT(ALLTRIM(THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE),LEN(ALLTRIM(THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE))-1)
THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.SETFOCUS
KEYBOARD '{END}'
CASE (nKeyCode >=33 AND nKeyCode <=122) AND ('CRITERIU_DR' $ lcCtrCriteriu OR 'GRD_DR' $ lcCtrGrid)
NODEFAULT
THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE = ALLTRIM(THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE) + CHR(nKeyCode)
THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.SETFOCUS
KEYBOARD '{END}'
CASE (nKeyCode = 127) AND ('CRITERIU_DR' $ lcCtrCriteriu OR 'GRD_DR' $ lcCtrGrid) && backspace
NODEFAULT
THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE = LEFT(ALLTRIM(THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE),LEN(ALLTRIM(THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE))-1)
THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.SETFOCUS
KEYBOARD '{END}'
CASE INLIST(nKeyCode, 13, 9, 4, 24) AND '_CBBASE1'$lcControl
NODEFAULT
thisform.ct_grid_search1.cb_tx_cautare1.text.SetFocus
OTHERWISE
DODEFAULT(nKeyCode, nShiftAltCtrl)
ENDCASE
ENDPROC
PROCEDURE modificare_lista_preturi
Lparameters tnIdPol, tnIdArticol, tnPretftvaLista, tnPretvtvaLista, tnPretLista, tnProcTvav, tnPretListaVechi
&& tnPretListaVechi - apare doar la operatiile de retur
&& la NIR se modifica automat pretul de lista
If Type('tnPretListaVechi') = 'N' and Nvl(tnIdPol,0) <> 0
If aMessagebox(Alltrim(OSTG.denumire)+" are pretul " + ;
Alltrim(Str(tnPretListaVechi,16, gnPPretV)) + [ in politicile de preturi.] + Alltrim(Str(tnIdPol)) + Chr(13) + Chr(10) + ;
[Doriti sa il schimbati cu ]+Alltrim(Str(tnPretLista,16, gnPPretV))+[?],4+32) <> 6
Return
Endif
Endif
*!* MODIFICARE PRETURI IN LISTA DE PRETURI PENTRU NIR-UL CU MODIFICAREA LISTEI DE PRETURI (ID_SET = 231 NIR MF PV LISTA DE PRETURI)
Local lcSql, lcSelect
lcSelect = Select()
*!* verific daca exista articolul in politica de preturi
lcSql = [Select id_pol_art, id_venchelt, proc_tvav from crm_politici_pret_art where id_pol = ] + Alltrim(Str(tnIdPol)) + [ and id_articol = ] + Alltrim(Str(tnIdArticol))
lnSucces = goExecutor.oExecute(m.lcSql, "cPoliticiPretArt")
If lnSucces < 0
aMessageBox(goExecutor.cEroare,0+16, 'Eroare')
Select (lcSelect)
Return
Endif
Select cPoliticiPretArt
Scatter Name loPoliticaPretArt
Use In (Select('cPoliticiPretArt'))
&& TRANZACTIE MANUALA (MODIFICARE CRM_POLITICI_PRET_ART, CRM_POLITICI_PRETURI)
lnSucces = SQLSetprop(gnHandle,"Transactions",2)
If lnSucces < 0
aMessageBox("Programul nu a trecut pe tranzactie manuala",4+48,'Lista preturi')
Select (lcSelect)
Return
Endif
*!* ADAUGARE ARTICOL NOU IN LISTA DE PRETURI SAU MODIFICARE ARTICOL EXISTENT
If Nvl(loPoliticaPretArt.id_pol_art,0) = 0
lcSql = [begin pack_preturi.adauga_politica_pret_art(] + ;
ALLTRIM(Str(tnIdPol)) + [,] + ; && id_pol
Alltrim(Str(tnIdArticol)) + [,] + ; && id_articol
Alltrim(Str(tnPretLista,20,4)) + [,] + ; && pret
Alltrim(Str(tnPretftvaLista,20,4)) + [,] + ; && pretftva
Alltrim(Str(tnPretvtvaLista ,20,4)) + [,] + ; && pretctva
[NULL, ] + ; && id_valuta
Alltrim(Str(tnProcTvav,20,4)) + [,] + ; && proc_tvav
[NULL, ] + ; && procent
[NULL, ] + ; && id_venchelt
Alltrim(Str(gnIdUtil)) + ; && id_util
[); end;]
Else
lcSql = [begin pack_preturi.modifica_pret_pol_pret_art(] + ;
ALLTRIM(Str(loPoliticaPretArt.id_pol_art)) + [,] + ; && id_pol_art
Alltrim(Str(tnPretLista,20,4)) + [,] + ; && pret
Alltrim(Str(tnPretftvaLista,20,4)) + [,] + ; && pretftva
Alltrim(Str(tnPretvtvaLista ,20,4)) + [,] + ; && pretctva
Iif(Isnull(loPoliticaPretArt.id_venchelt), 'NULL',Alltrim(Str(loPoliticaPretArt.id_venchelt))) + [,] + ; && id_venchelt
Iif(Isnull(loPoliticaPretArt.proc_tvav), 'NULL', Alltrim(Str(loPoliticaPretArt.proc_tvav,20,4))) + ; && proc_tvav
[); end;]
Endif && Nvl(lnIdPolArt,0) = 0
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
aMessageBox(goExecutor.cEroare,0+16, 'Eroare')
Else
*!* MODIFICARE DATAORA, UTIL in CRM_POLITICI_PRETURI
lcSql = [begin pack_preturi.modifica_politica_dataora(] + ;
ALLTRIM(Str(tnIdPol)) + [,] + ; && id_pol
Alltrim(Str(gnIdUtil)) + ; && id_util
[); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
aMessageBox(goExecutor.cEroare,0+16, 'Eroare')
Endif
Endif
*!* COMMIT / ROLLBACK
If lnSucces > 0
lnSucces = goExecutor.oExecute("COMMIT")
If lnSucces < 0
aMessageBox(goExecutor.cEroare,0+16, 'Eroare')
Endif
Else
lnSucces = goExecutor.oExecute("ROLLBACK")
If lnSucces < 0
aMessageBox(goExecutor.cEroare,0+16, 'Eroare')
Endif
Endif
SQLSetprop(gnHandle,"Transactions",1)
Select (lcSelect)
ENDPROC
PROCEDURE Release
lcSelRul = this.ct_grid_order1.cnumecursor
lcSelSt = this.ct_grid_search1.cnumecursor
IF USED(lcSelRul)
USE IN (lcSelRul)
ENDIF
IF USED(lcSelSt)
USE IN (lcSelSt)
ENDIF
IF USED('crsTransfer')
USE IN crsTransfer
ENDIF
ENDPROC
PROCEDURE Show
*!* 18.08.2017
*!* marius.mutu
*!* Completare tabel dreapta pentru MODIFICARE NIR/BON
Lparameters nStyle
Local lcObj, lcSelRul, lcSql
private pnCod
lcObj = Thisform.cobj
lcSelRul = This.ct_grid_order1.cnumecursor
This.lbTotal.Caption = 'TOTAL ' + This.CTip_frm
This.ct_grid_order1.initializare(.T.)
*!* modificare v 2.1.19 : la bon/factura nu-l las sa ordoneze dupa alte coloane
If oset.model = 3
This.ct_grid_search1.ccoloanepermise = [codmat,denumire,serie,pret]
Endif
*!* modificare v 2.1.19 ^
This.ct_grid_search1.initializare(.T.)
* MODIFICARE NIR/BON
If Pemstatus(This, 'lCorectie', 5) And Pemstatus(This, 'nCod', 5) And Type('this.nCod') = 'N' And This.lCorectie And This.nCod > 0
pnCod = This.nCod
lcSql = [select * from vrul where cod = ?pnCod]
lnSucces = goExecutor.oExecute(m.lcSql, 'cRulTemp')
IF lnSucces > 0
Select (m.lcSelRul)
Append From Dbf('cRulTemp')
ELSE
AMESSAGEBOX(goExecutor.cEroare,0+48,_screen.Caption)
ENDIF
USE IN (SELECT('cRulTemp'))
ENDIF
This.calcul_sume(lcSelRul)
This.ct_grid_search1.cb_tx_cautare1.SetFocus
*!* modificare v 2.1.34
If Type(Thisform.ct_grid_search1.cnumecursor + ".in_stoc") <> "U"
If oset.model >= 3
Thisform.ct_grid_search1._GRID1.SetAll("DynamicForeColor", "IIF(in_stoc=0,RGB(255,0,0),RGB(0,0,0))", "Column")
Else
Thisform.ct_grid_search1._GRID1.SetAll("DynamicForeColor", "IIF(in_stoc=0,RGB(0,128,128),RGB(0,0,0))", "Column")
Endif
Endif
*!* modificare v 2.1.34 ^
*!* v 2.0.22 diferente de calcul NIR
*!* doar pe nir afisez texboxurile pentru diferente
If oset.model = 2 && NIR
This.ct_factura1.txfTotal.Visible = .T.
This.ct_factura1.txfBaza.Visible = .T.
This.ct_factura1.txfTva.Visible = .T.
Endif
*!* v 2.0.22 ^
If Inlist(poact.id_set, 105, 106)
Thisform.ct_grid_search1.cboListe.Visible = .T.
Thisform.ct_grid_search1.lb_listePreturi.Visible = .T.
Endif
If oxset.cursval
With Thisform.ct_factura2
.lb_valuta.Caption = [(] + &lcObj..nume_val_vanz + [)]
With .lb_curs
.Caption = [Curs ] + Dtoc(&lcObj..v8) + [ : ] + Alltrim(Str(&lcObj..Curs, 14, 4))
.AutoSize = .T.
Endwith
Endwith
Endif
If oset.productie And Inlist(oset.id_set, 26003, 26004) && modificare 17.10.2007
Thisform.container_valoare_decontata1.Visible = .T.
Endif
&& transfer catre gest la pret vz, Intrare din transfer de la gest. valorica la pret de vanz.,
&& protocol, sponsorizare
If Inlist(oset.id_set, 75, 216, 230, 232, 233, 235, 257, 261, 267)
Thisform.lb_totalctva.Visible = .T.
Thisform.tx_totalctva.Visible = .T.
Endif
*!* modificare v 2.2.0
Thisform.nTvaincasare = &lcObj..tva_incasare
*!* modificare v 2.2.0 ^
*!* modificare v 2.2.29
Thisform.omemopref = Createobject("Custom")
AddProperty(Thisform.omemopref, "id_jtva_ach", 0)
AddProperty(Thisform.omemopref, "proc_tva", 0.01)
AddProperty(Thisform.omemopref, "id_jtva_vanz", 0)
AddProperty(Thisform.omemopref, "proc_tvav", 0.01)
*!* modificare v 2.2.29 ^
DoDefault(nStyle)
ENDPROC
PROCEDURE Ct_discount1.Init
*!* 19.10.2017
*!* marius.mutu
*!* s-a tratat cazul in care firma este cu TVA Incasare si trebuie id_jtax neexigibil in loc de exigibil
*!* modificare 2.2.4 : am inlocuit jtva_coloane cu crsjtax
Local lnIdJtva, lnProc_tva, lnproc, loTVA
lnIdJtva = oSet.id_jtax && achizitii int. 19%
loTVA = GeJtvaColoana(m.lnIdJtva, poAct.tva_incasare, NVL(oSet.tipjurnal, 'JC'))
lnIdJtva = loTVA.id_jtva_coloana
Select crsjtax
Locate For id_jtva_coloana = m.lnIdJtva
If !Found()
Go Top
Endif
This.lb_explicatie_tva.Caption = Alltrim(Upper(denumire))
lnProc_tva = (cota_tva + 100) / 100
lnproc = cota_tva
This.pntva = lnProc_tva
This.nid_jtva_coloana = id_jtva_coloana
This.nid_tva = id_tva
This.cotaTva.ListIndex = Recno()
ENDPROC
PROCEDURE Ct_discount1.Refresh
DODEFAULT()
lcSelRul = thisform.ct_grid_order1.cnumecursor
this.Parent.calcul_sume(lcSelRul)
ENDPROC
PROCEDURE Ct_factura1.txfBaza.Valid
thisform.nftotctva = thisform.nftotftva + thisform.nftottva
thisform.ct_factura1.txftotal.Refresh
ENDPROC
PROCEDURE Ct_factura1.txfTva.Valid
thisform.nftotctva = thisform.nftotftva + thisform.nftottva
thisform.ct_factura1.txftotal.Refresh
ENDPROC
PROCEDURE Ct_grid_order1.Cb_tx_gestin._CBBASE1.LostFocus
SELECT nom_gestiuni
pcobj.id_gestin = id_GESTiune
pcobj.gestin = nume_gestiune
pcObj.cgest = cgest
pcobj.id_GESTiune = id_GESTiune
pcobj.nume_gestiune = nume_gestiune
ENDPROC
PROCEDURE Ct_grid_search1.actualizeaza_grid
*!* 12.06.2017
*!* marius.mutu
*!* am pus conditii suplimentare la dynamicbackcolor sa nu mai dea invalid expression, sper
*!* modificare ROAGEST v 2.1.19
Lparameters pcFiltru
DoDefault(pcFiltru)
If oSet.model = 3
poLog.Log('recordsource/tooltiptext inainte de This._GRID1.salveaza_grid() ' + ALLTRIM(TRANSFORM(this._griD1.RecordSource)) + '/' + ALLTRIM(TRANSFORM(This._grid1.ToolTipText)), PROGRAM())
This._GRID1.salveaza_grid()
poLog.Log('recordsource/tooltiptext dupa This._GRID1.salveaza_grid() ' + ALLTRIM(TRANSFORM(this._griD1.RecordSource)) + '/' + ALLTRIM(TRANSFORM(This._grid1.ToolTipText)), PROGRAM())
lcCursor1 = Thisform.ct_grid_search1.cnumecursor
lcCursor2 = Thisform.ct_grid_order1.cnumecursor
lcCursor3 = [crsTempCurent]
copiaza_structura_cursor(lcCursor1,lcCursor3)
Insert Into (lcCursor3) Select * From (lcCursor1)
If Used(lcCursor1)
Use In (lcCursor1)
Endif
If !Inlist(gnTipGest , 6,7)
Select a.*,a.cantitate-Nvl(b.cantitate,0) As stoc_actual From (lcCursor3) a ;
Left Join (Select Sum(cante) As cantitate, id_articol, Nvl(serie,'') As serie,Pret,id_gestout ;
From (lcCursor2) ;
WITH (Buffering = .T.) Group By id_gestout,id_articol,serie,Pret) b On a.id_articol = b.id_articol ;
And a.Pret = b.Pret ;
AND a.id_gestiune = b.id_gestout ;
And Nvl(a.serie,'') = Nvl(b.serie,'') ;
Into Cursor (lcCursor1) Readwrite
Else
Select a.*,a.cantitate-Nvl(b.cantitate,0) As stoc_actual From (lcCursor3) a ;
Left Join (Select Sum(cante) As cantitate, id_articol, Nvl(serie,'') As serie,Pret,pretv,id_gestout ;
From (lcCursor2) ;
WITH (Buffering = .T.) Group By id_gestout,id_articol,serie,Pret,pretv) b On a.id_articol = b.id_articol ;
And a.Pret = b.Pret ;
AND a.id_gestiune = b.id_gestout ;
And Nvl(a.serie,'') = Nvl(b.serie,'') ;
and a.pretv = b.pretv ;
Into Cursor (lcCursor1) Readwrite
Endif
If Used(lcCursor3)
Use In (lcCursor3)
ENDIF
poLog.Log('recordsource/tooltiptext inainte de This._GRID1.incarca_grid() ' + ALLTRIM(TRANSFORM(this._griD1.RecordSource)) + '/' + ALLTRIM(TRANSFORM(This._grid1.ToolTipText)), PROGRAM())
This._GRID1.incarca_grid()
poLog.Log('recordsource/tooltiptext dupa This._GRID1.incarca_grid() ' + ALLTRIM(TRANSFORM(this._griD1.RecordSource)) + '/' + ALLTRIM(TRANSFORM(This._grid1.ToolTipText)), PROGRAM())
*!* modificare ROAGEST v 2.1.19
*!* If oSet.model = 3
This._GRID1.SetAll("DynamicBackColor","IIF(USED('" + m.lcCursor1 + "') and TYPE('" + + m.lcCursor1 + ".stoc_actual') = 'N' and " + m.lcCursor1 + ".stoc_actual=0,RGB(128,128,128),RGB(255,255,255))","Column")
*!* Endif
*!* modificare ROAGEST v 2.1.19 ^
Endif
*!* modificare ROAGEST v 2.1.19 ^
ENDPROC
PROCEDURE Ct_grid_search1.cboListe.Init
IF INLIST(poact.id_set,105,106)
SELECT cListePret
LOCATE FOR id_pol = poact.id_pol
this.Value = cListePret.nume_lista_preturi
this.Refresh
ENDIF
ENDPROC
PROCEDURE Ct_grid_search1.cboListe.Valid
pnId_lista = cListePret.id_pol
SELECT cListePret
pcobj.id_pol = cListePret.id_pol
thisform.ct_GRID_SEARCH1.initializare(.T.)
thisform.ct_grid_search1.cb_tx_cautare1.text.SetFocus
ENDPROC
PROCEDURE Ct_grid_search1.Cb_tx_gestout._CBBASE1.Valid
Select nom_gestiuni
pcobj.id_gestout = id_GESTiune
pcobj.gestout = nume_gestiune
pcobj.cgest = cgest
pcobj.id_GESTiune = id_GESTiune
pcobj.nume_gestiune = nume_gestiune
Thisform.ct_GRID_SEARCH1.initializare(.T.,.T.)
*!* modificare ROAGEST v 2.1.33
*!* This.Parent.Parent.cb_tx_cautare1.Text.SetFocus()
Return This.Parent.Parent.cb_tx_cautare1.Text
*!* modificare ROAGEST v 2.1.33 ^
ENDPROC
PROCEDURE Lb_titlu_alb_b121.Init
If Type('oxset.nume_set') # 'U'
This.Caption = Proper(Alltrim(oxset.nume_set))
Endif
This.Caption = This.Caption + [ ( Nr. document : ] + Alltrim(Nvl(poAct.serie_act,[])) + [ ] + ;
TRANSFORM(poAct.nract,get_mask(14,0)) + [ ) ]
ENDPROC
PROCEDURE Urmator1.Command1.Click
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* Model =-1 : Nota fara contabilizare
*!* Model = 1 : Nota simpla cu contabilizare
*!* Model = 2 : NIR
*!* Model = 3 : BON/FACTURA VANZARE
*!* Model = 4 : Retur BON/FACTURA VANZARE
*!* Model = 5 : Transfer
*!* Model = 6 : Retur Transfer
*!* Model = 7 : Diferenta de pret
*!* Param1 = 1 : En-detail
*!* Param1 = 2 : En-gros
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* 11.05.2009 -ultimul pret de achizitie,vanzare este din ultimii 2 ani
*!* marius.felecanu
*!* 26.05.2009 - pentru transfer - sectia si lucrarea se inregistreaza in contabilitate
*!* marius.felecanu
*!* 27.05.2009 - se poate adauga acelasi articol de mai multe ori
*!* marius.felecanu
*!* 30.03.2010
*!* marius.mutu
*!* se citeste si rul.proc_tva de la ultima achizitie pentru NIR-urile din lista de preturi - completare automata preturi
*!* 13.09.2010
*!* marius.mutu
*!* ultimele preturi de achizitie, vanzare se citesc din RUL_ULTIMA_INTRARE daca este configurata optiunea RG_PRET_ULTIMA_INTRARE
*!* 20.01.2015
*!* marius.mutu
*!* se citesc ultimele preturi de achizitie pentru ID_SET = NIR + optiunea gnRG_NIR_ULTIMUL_PRET = 1
*!* 21.12.2015
*!* marius.mutu
*!* nu mai suprascriu pretul de vanzare din lista de preturi. de ce ar trebui sa il suprascriu?
*!* 22.09.2023
*!* marius.mutu
*!* transfer ob inv in folosinta + alte transferuri (oSet.model = 5) corectare gestiune intrare daca se schimba gestiunea sursa
Private poPreturi
poPreturi = Createobject("empty")
AddProperty(poPreturi,"pretv", 0)
AddProperty(poPreturi,"tvav", 0)
AddProperty(poPreturi,"pretvtva", 0)
Local lnNIRPRETLISTAMOD
If Type('gnNIRPRETLISTAMOD') <> 'U'
lnNIRPRETLISTAMOD = gnNIRPRETLISTAMOD
Else
lnNIRPRETLISTAMOD = 0
Endif
Local lnPretfTva, lnPretvTva, lnListaPreturiCuTva, lcAcont
Local loPoliticaPretArt
lnPretfTva = 0
lnPretvTva = 0
lnListaPreturiCuTva = 1 && daca lista de preturi are preturile cu tva id_set = 231 nir mf la pv cu modificarea listei de preturi
loPoliticaPretArt = Null
lcSelRul = Thisform.ct_grid_order1.cnumecursor
*!* modificare 22.08.2007
*!* La toate conditiile unde era id_articol, am adaugat si NVL(serie,'') , in afara de politicile de preturi si reteta.
lcIde = [T]
lcIde = lcIde + ',' + Iif(oset.factura And oset.model = 2, 'F', '') && 2/F = FACTURA DE ACHIZITIE SI NIR
lcIde = lcIde + ',' + Iif(oset.adaos And (oset.param1 = 1 Or oset.model = 2), 'A,X','')
lcIde = lcIde + ',' + Iif(oset.discount, 'D','')
lcIde = lcIde + ',' + Iif(Inlist(oset.model,2), 'N', Iif(Inlist(oset.model, 3, 4, 5, 6, 7), 'B', '')) && 2/N = NIR, B = BON/TRANSFER
lcIde = Iif(oset.model = 7, lcIde + ',X' , lcIde) && 7 = DIFERENTA DE PRET PRODUSE
lnProcDisc = Iif(oset.discount And Thisform.ct_discount1.Combogrid3.Value=3,Thisform.ct_discount1.proc_discount ,0)
*!* modificare ROAFACTURARE v 2.0.96
If oset.id_set = 267
lnProcDisc = 0
Endif
*!* modificare ROAFACTURARE v 2.0.96 ^
*!* modificare 22.06
*!* lnProcAdaos = IIF(oset.adaos,thisform.ct_adaos1.proc_adaos,0)
lnProcAdaos = Iif(oset.adaos,Iif(Thisform.ct_adaos1.proc_adaos<-9999999,0,Thisform.ct_adaos1.proc_adaos),0)
*!* ^
Select cursor_curent1
Scatter Name oStg
If Empty(oStg.Cont)
amessagebox('Nu s-a selectat niciun reper! Repetati selectia!',48,"Atentie")
Release oStg
Thisform.ct_grid_search1._GRID1.SetFocus
Return
Endif
*!* modificare v 2.1.34
If oset.model >= 3 And Type(Thisform.ct_grid_search1.cnumecursor+".in_stoc")<>"U"
IF oStg.in_stoc = 0
amessagebox("Acest articol este prezent in stoc, dar nu este definit ca fiind gestionabil!"+CHR(13)+CHR(10)+;
"Intrati pe acest articol in 'Gestiuni > Configurare > Catalog de materiale si marfuri' si bifati casuta 'Articol gestionabil'!",48,"Atentie")
RETURN
ENDIF
Endif
*!* modificare v 2.1.34 ^
*!* modificare ROAGEST v 2.1.19 :
*!* verific daca articolul ales respecta metoda FIFO / LIFO
*!* modificare ROAGEST v 2.1.25 : am adaugat conditia legata de oset.id_set ( ob. de inv. )
If oset.model = 3 AND INLIST(gnFifoLifo,1,2) AND !INLIST(oset.id_set,70,72,104)
*!* Select Min(a.nrordine) As nrordinemin From (Thisform.ct_grid_search1.cnumecursor) a ;
*!* Left Join (Select Sum(cante) As cantitate From (Thisform.ct_grid_order1.cnumecursor) ;
*!* WITH (Buffering = .T.) Where id_articol = oStg.id_articol ;
*!* AND id_gestout = oStg.id_gestiune And Nvl(serie,'') = Nvl(oStg.serie,'') And datain = oStg.datain ;
*!* GROUP By id_articol,serie) b On 1 = 1 ;
*!* Where a.cantitate - Nvl(b.cantitate,0) <> 0 Into Cursor crsComparatie
Select Min(nrordine) As nrordinemin From (Thisform.ct_grid_search1.cnumecursor) ;
Where id_articol = oStg.id_articol ;
AND id_gestiune = oStg.id_gestiune And Nvl(serie,'') = Nvl(oStg.serie,'') ;
AND stoc_actual > 0 Into Cursor crsComparatie
Select crsComparatie
lnNrOrdineMin = nrordinemin
If lnNrOrdineMin <> oStg.nrordine
amessagebox("Articolul ales nu respecta metoda "+Iif(gnFifoLifo=1,"FIFO","LIFO")+" !",48,"Atentie")
Select (Thisform.ct_grid_search1.cnumecursor)
lnRecno = Recno()
Locate For id_articol = oStg.id_articol ;
AND id_gestiune = oStg.id_gestiune And Nvl(serie,'') = Nvl(oStg.serie,'') And nrordine = lnNrOrdineMin
If !Found()
Go lnRecno
Endif
Thisform.ct_grid_search1.SetFocus()
Return
Endif
Endif
*!* modificare ROAGEST v 2.1.19 ^
*!* If oSet.model > 2 And !Empty(NVL(oStg.id_rul_aux,0))
*!* amessagebox("Operatiile asupra acestui reper se pot efectua doar din programul ROAVIN!",48,"Atentie")
*!* Release oStg
*!* Thisform.ct_grid_search1._GRID1.SetFocus
*!* Return
*!* Endif
*!* DNF
Select (lcSelRul)
Scatter Name orul BLANK MEMO
If !Pemstatus(orul,'dnf',5)
AddProperty(orul,'dnf',00000)
If Pemstatus(oStg,'dnf',5)
orul.DNF= oStg.DNF
Endif
ENDIF
*!* MODIFICAT 11.04.2006
*!* MARIUS.MUTU - SA SE POATA SCOATE DIN STOC DE MAI MULTE ORI ACEEASI CANTITATE LA OB INV IN FOLOSINTA CAND TRANSFER, CASARE DIN FOLOSINTA
*!* SET STEP ON
Local lnCantIesita, lnCantStoc
lnCantIesita = 0
lnCantStoc = 0
If !Inlist(oset.id_set,210,211,212,89,70)
If 'B' $ lcIde
Sele (lcSelRul)
If !Inlist(gnTipGest , 6,7)
Select Sum(cante) As cante, id_articol, Nvl(serie,'') As serie From (lcSelRul) ;
WITH (Buffering = .T.) Where id_articol = oStg.id_articol And Pret =oStg.Pret ;
AND id_gestout = oStg.id_gestiune And Nvl(serie,'') = Nvl(oStg.serie,'') ;
GROUP By id_articol,serie Into Cursor crsCant
*!* LOCATE FOR id_articol = ostg.id_articol AND pret =ostg.pret AND id_gestout = ostg.id_gestiune && id_gestout in loc de id_gestiune pt ca la transfer modific id_gestiune (inainte_de_do_termin)
Else
Select Sum(cante) As cante, id_articol,Nvl(serie,'') As serie From (lcSelRul) ;
WITH (Buffering = .T.) Where id_articol = oStg.id_articol And pretv =oStg.pretv ;
AND id_gestout = oStg.id_gestiune And Pret =oStg.Pret And Nvl(serie,'') = Nvl(oStg.serie,'') ;
GROUP By id_articol,serie Into Cursor crsCant
*!* LOCATE FOR id_articol = ostg.id_articol AND pretv =ostg.pretv AND id_gestout = ostg.id_gestiune AND pret =ostg.pret && id_gestout in loc de id_gestiune pt ca la transfer modific id_gestiune (inainte_de_do_termin)
Endif
*!* 27.05.2009
Select crsCant
Locate
lnCantIesita = cante
lnCantStoc = oStg.cantitate
If lnCantStoc <= lnCantIesita
amessagebox('Stoc epuizat',0+64,"Info")
Thisform.ct_grid_search1._GRID1.SetFocus
Use In crsCant
Return
Endif
*!* 27.05.2009 ^
Use In crsCant
Endif
Else
&& scoatere din stoc obiecte de inventar
If 'B' $ lcIde
Sele (lcSelRul)
*!* modificare v 2.1.25 : am pus nvl la id_responsabil = oStg.id_responsabil
Select Sum(cante) As cante, id_articol, Nvl(serie,'') As serie ;
FROM (lcSelRul) With (Buffering = .T.) ;
WHERE id_articol = oStg.id_articol And Pret =oStg.Pret And id_gestout = oStg.id_gestiune ;
AND NVL(id_responsabil,0) = NVL(oStg.id_responsabil,0) And datapif = oStg.datapif And Nvl(serie,'') = Nvl(oStg.serie,'') ;
GROUP By id_articol,serie Into Cursor crsCant
*!* 27.05.2009
Select crsCant
Locate
lnCantIesita = cante
lnCantStoc = oStg.cantitate
If lnCantStoc <= lnCantIesita
amessagebox('Stoc epuizat',0+64,"Info")
Thisform.ct_grid_search1.cb_tx_cautare1.Text.SetFocus
Use In crsCant
Return
Endif
*!* 27.05.2009 ^
Use In crsCant
Endif
Endif
*!* modificare 03.10.2007
If Inlist(oxset.model,4,6) && Retur
lcObiect = Thisform.cobj
&lcObiect..id_gestout = oStg.id_gestiune
&lcObiect..gestout = Alltrim(oStg.nume_gestiune)
Endif
*!* modificare 03.10.2007 ^
Thisform.assign_values('orul',Thisform.cobj,'oStg')
* La transfer, tabelul din dreapta rul_temp1 are cantitatile intrate, iar crsTransfer cantitatile iesite
* Daca se schimba gestiunea sursa, se schimba si pcObj.id_gestiune = pcObje.id_gestout (poAct) si in rul_temp1 (intrari) va intra gestiunea sursa, in loc de destinatie
* Modific gestiunea = gestiunea sursa in intrari
If Inlist(oSet.model, 5) AND TYPE('orul.id_gestiune') = 'N' AND !EMPTY(NVL(pcObj.id_gestin,0)) && TRANSFER
orul.id_gestiune = pcobj.id_gestin
orul.nume_gestiune = pcobj.gestin
ENDIF
* 01.04.2021 - repun responsabilul salvat dupa articolul anterior
IF !EMPTY(NVL(Thisform.nIdResponsabil,0))
orul.id_responsabil = thisform.nIdResponsabil
orul.nresp = thisform.nResp
ENDIF
If Type('orul.datapif') # 'U' And Type('orul.datapif') = 'T' && pentru ob. inv. in folosinta
orul.datapif = Ttod(orul.datapif)
Endif
If Inlist(oset.model,3,4) And oset.param1 = 1 && bon/retur + factura + en-detail
lnPretvTva = orul.pretv + orul.tvav && pret vanzare cu TVA
*!* modificare 22.06
lnProcAdaos = Iif(orul.procent<>0,orul.procent,lnProcAdaos)
*!* ^
Else
*!* 09.06.2008
*!* 231 - nir mf pretv cu modificarea listei de preturi
*!* 105,106 - roafacturare - NIR de marfa la pret de vanzare;
*!* 231 = roagest - nir marfa la pretv cu lista de preturi
*!* 236,240,241,243 - retur de la gestiune valorica - aviz expeditie - pret de lista
*!* 247 = roagest - nir marfa la pretv cu lista de preturi gestiune hibrid 23.10.2008
*!* 266 roagest - mf pret de ach * > factura nesosita - pret de lista ** 19.05.2010
If Inlist(oset.id_set,105,106,231,236,240,241,242,247,255,256,266)
lcSql = [ select pretftva, pretctva, (proc_tvav*100-100) as proc_tvav from vcrm_politici_pret_art where id_pol=] + Alltrim(Str(poact.id_pol))+;
[ and id_articol =] + Alltrim(Str(oStg.id_articol))
lnSucces=goExecutor.oExecute(lcSql,'crsPret')
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
Endif
Select crsPret
lnPretfTva = pretftva
lnPretvTva = pretctva
IF !PEMSTATUS(poAct, 'proc_tvav',5 )
ADDPROPERTY(poAct, 'proc_tvav', 24)
ENDIF
poAct.proc_tvav = crsPret.proc_tvav
Use In (SELECT('crsPret'))
Private pnReturnValue
pnReturnValue = 0
lnSucces = goExecutor.oSelect2Value("select preturi_cu_tva from vcrm_politici_preturi where id_pol = " + Alltrim(Str(poact.id_pol)), @pnReturnValue)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
Else
lnListaPreturiCuTva = pnReturnValue
Endif
Else
lnPretvTva = 0
Endif
*!* 09.06.2008
Endif
If oset.id_set = 104
Private pnImputare
Store 0 To pnImputare
If gnImputare = 1 && pretul maxim din stoc
lcSql=[select MAX(pret) as pretMax from (select pack_sesiune.suma_ron(pret, an, luna) as pret from ] + ;
[(select pret, an, luna from stoc where id_articol = ] + +Alltrim(Str(orul.id_articol))+ ;
[ and NVL(serie,'x_x_x') = '] + Nvl(orul.serie,'x_x_x') + [' ] + gcCondSucursala + [))]
lnSucces=goExecutor.oExecute(lcSql,'crsPretMax')
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
Endif
Select crsPretMax
orul.pretv = pretMax
If Isnull(orul.pretv)
orul.pretv = 0
Endif
If Used('crsPretMax')
Use In crsPretMax
Endif
Endif
Endif
If Empty(Thisform.cfrm_ceredate)
Return
Endif
If Inlist(oset.id_set,211) && TRANSFER MAGAZIE OB INV IN FOLOSINTA - CATRE GESTIUNE OB INV IN FOL PE UN RESPONSABIL
orul.id_responsabil = 0
orul.NRESP = ''
Endif
lcForm = Alltrim(Thisform.cfrm_ceredate)
onir = Createobject(lcForm,Thisform.omemopref) && modificare ROAGEST v 2.2.29 : am adaugat Thisform.omemopref
onir.bVizualizare = lcIde
onir.cobj = orul
*onir.cParentObj = thisform.cobj
onir.pretvtva = lnPretvTva
*!* 27.05.2009
onir.ncant_stoc = lnCantStoc
onir.ncant_iesita = lnCantIesita
*!* 27.05.2009 ^
*!* 11.09.2008 ROAGEST 2.0.61
*!* 105 Achizitie fact. neplatita- marfa la pret de vanzare
*!* 106 ?
*!* 231 Achizitie fact. neplatita- marfa la pret de vanzare - pret de lista
*!* 234 Achizitie fact. neplatita - bilete RATC - marfa la pret de vanzare -pret de list
*!* 236,240,241,242 - Retur de la gestiune valorica - lista preturi - aviz expeditie
*!* 247 = roagest - nir marfa la pretv cu lista de preturi gestiune hibrid 23.10.2008
*!* 248 Achizitie fact. neplatita - bilete RATC - marfa la pret de vanzare -pret de list - gestiune hibrid 23.10.2008
*!* 266 roagest - mf pret de ach * > factura nesosita - pret de lista ** 19.05.2010
If Inlist(oset.id_set,105,106,231,234,236,240,241,242,247,248,255,256,266)
onir.cobj.pretv = lnPretfTva
onir.cobj.tvav = lnPretvTva - lnPretfTva
Endif
*!* 11.09.2008 ROAGEST 2.0.61 ^
If oset.model = 2 And Type('ostg.cantitate') = 'N' And oset.id_selst = 30
onir.cobj.cant = oStg.cantitate
Endif
*!* 09.06.2008
*!* 231 - nir mf pretv cu modificarea listei de preturi
&& 247 = roagest - nir marfa la pretv cu lista de preturi gestiune hibrid 23.10.2008
*!* 248 Achizitie fact. neplatita - bilete RATC - marfa la pret de vanzare -pret de list - gestiune hibrid 23.10.2008
*!* 266 roagest - mf pret de ach * > factura nesosita - pret de lista ** 19.05.2010
*!* 267 modificare ROAFACTURARE v 2.2.2
If Inlist(oset.id_set,231,234,236,240,241,242,247,248,255,256,266,267) OR (m.gnRG_NIR_ULTIMUL_PRET = 1 AND INLIST(oset.id_set,43,44,45,46,47,48,49,50,51,101,94,85,246,249,250,251,264))
&& v 2.0.14 din 11iun2008 - preluare preturi din rul de pe ultima factura de achizitie/retur, cautarea se face in ultimele 2 luni
&& 231 - NIR LISTA PRETURI
&& 234 - NIR RATC
*!* v 2.0.18 (ordonare an desc, luna desc, dataora desc, cant <> 0)
*!* 11.05.2009 -ultimul pret de achizitie,vanzare este din ultimii 2 ani
*!* 30.03.2010 - se ia si proc_tva
*!* 13.09.2010
If Type('gnRG_PRET_ULTIMA_INTRARE') = 'N' And gnRG_PRET_ULTIMA_INTRARE = 1
lcSql = [select pret, tva, proc_tva, pretv, tvav, pretvtva, dataora ]+;
[ from rul_ultima_intrare where ID_ARTICOL = ]+Alltrim(Str(orul.id_articol))
Else
lcSql = [select a.* from (select a.dataora,a.pret,a.tva, a.proc_tva, a.tvav,a.pretv,a.PRETV+a.TVAV as pretvtva ]+;
[ from rul a where a.ID_ARTICOL = ]+Alltrim(Str(orul.id_articol)) + [ and a.sters = 0 and ] + ;
[((a.cant<>0 and a.id_tip_rulaj = 0) or (a.cante<0 and a.id_tip_rulaj = 1) )]+;
[ and an*12+luna between ]+ Alltrim(Str(gnAn*12+gnluna-23))+[ and ]+ Alltrim(Str(gnAn*12+gnluna)) +;
[ order by a.an desc, a.luna desc, a.dataora desc) a where rownum = 1]
Endif
*!* 13.09.2010 ^
*!* v 2.0.18 ^
lnSucces=goExecutor.oExecute(lcSql,'crsPretUltim')
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
Else
Select crsPretUltim
If Reccount() > 0
onir.pretu_factura = crsPretUltim.Pret
onir.cobj.Pret = crsPretUltim.Pret
onir.cobj.tva = crsPretUltim.tva
onir.cobj.proc_tva = crsPretUltim.proc_tva
&& suprascriu pretul de vanzare din lista doar daca pe nir am pretul <> 0
*!* 267 modificare ROAFACTURARE v 2.2.2
*!* If crsPretUltim.pretv <> 0 and oset.id_set <> 267
*!* 21.12.2015 nu mai suprascriu pretul de vanzare din lista de preturi. de ce ar trebui sa il suprascriu?
If crsPretUltim.pretv <> 0 and onir.cobj.pretv = 0 and oset.id_set <> 267
onir.cobj.pretv = crsPretUltim.pretv
onir.cobj.tvav = crsPretUltim.tvav
onir.pretvtva = crsPretUltim.pretvtva
Endif
Endif
Use In crsPretUltim
Endif
&& v 2.0.14 din 11iun2008 ^
Endif
*!* 09.06.2008 ^
onir.cTitlu = Alltrim(Nvl(oStg.denumire,'')) + [-] + Alltrim(Nvl(oStg.codmat,''))
onir.item2.text_item1.ReadOnly = Iif(oset.model = 2, .F., .T.)
If oset.param1 = 1 And (oset.model = 4 Or gnTipGest = 6 Or gnTipGest = 7) && facturi retur / vanzare marfa la pret de vanzare en-detail - blochez pretul de vanzare
onir.BlochezPretV = .T.
onir.proc_tvav = orul.proc_tvav
onir.proc_adaos = lnProcAdaos
Endif
Do Case
Case oset.model = 7 && ( oset.id_set = 218 )
onir.item9.label_item1.Caption = 'Pret nou fara TVA'
onir.item9.text_item1.InputMask = get_mask(12,gnPPret)
Case poact.id_set = 104 && RoaObInv - Imputare
onir.item7.label_item1.Caption = 'Pret imputare cu TVA'
onir.item8.label_item1.Caption = 'TVA imputare'
onir.item9.label_item1.Caption = 'Pret imputare fara TVA'
* onir.BlochezPretV = .T.
Case poact.id_set = 26001 && ROAPRODUCTIE.PV_PRODUCTIE
Local lnPret
Store 0 To lnPret
Private poPret
Store '' To poPret
Local lcschema, lcselect, lcFiltru, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal
lcschema = []
lcselect = [select pret from vcrm_politici_pret_art]
lcOrder = []
lcFiltru = []
llAfiseaza = .F.
lcgroup = ""
llModParam = .T.
lcFiltruOriginal = [id_pol=] + Alltrim(Str(poact.id_pol)) + [ and id_articol=] + Alltrim(Str(oStg.id_articol))
gencursor('poPret','crsPret',lcselect,lcFiltru,lcschema,lcOrder,llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poPret.ca_baza1.afisare()
Select crsPret
Go Top
lnPret = Pret
If Used('crsPret')
Use In crsPret
Endif
Release poPret
onir.cobj.Pret = lnPret
onir.item2.label_item1.Caption = 'Pret unitar'
onir.item2.text_item1.ReadOnly = .T.
onir.item2.text_item1.TabStop = .F.
Local lcReteta, lnId_reteta
Store 0 To lnId_reteta
Store '' To lcReteta
Private poReteta
Store '' To poReteta
lcschema = []
lcselect = [select id_reteta, reteta from vnom_retetar]
lcOrder = []
lcFiltru = []
llAfiseaza = .F.
lcgroup = ""
llModParam = .T.
lcFiltruOriginal = [principala=1 and id_articol=] + Alltrim(Str(onir.cobj.id_articol))
gencursor('poReteta','crsReteta',lcselect,lcFiltru,lcschema,lcOrder,llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poReteta.ca_baza1.afisare()
Select crsReteta
Go Top
lcReteta = Alltrim(reteta)
lnId_reteta = id_reteta
If Used('crsReteta')
Use In crsReteta
Endif
Release poReteta
onir.cobj.reteta = lcReteta
onir.cobj.id_reteta = lnId_reteta
Endcase
*onir.item4.text_item1.comment = onir.item4.text_item1.comment + IIF(INLIST(oset.model,3,4),[e],[]) && CANT sau CANTE
onir.item4.text_item1.Comment = onir.item4.text_item1.Comment + ;
Iif(Lower(Alltrim(Thisform.osel_dr.cantitate))=[cante],[e],[]) && CANT sau CANTE
onir.proc_discount = lnProcDisc
onir.proc_adaos = lnProcAdaos
*** modific lucrarea cu lucrarea asociata gestiunii, daca este configurata
lcSql = [select id_lucrare, nrord from vnom_gestiuni where id_gestiune = ] + alltrim(str(orul.id_gestiune))
llSucces = goExecutor.oExecuta(m.lcSql, "crsLucrareTemp")
if m.llSucces
go top in crsLucrareTemp
if !empty(nvl(crsLucrareTemp.nrord,''))
onir.cobj.id_lucrare = crsLucrareTemp.id_lucrare
onir.cobj.nrord = alltrim(crsLucrareTemp.nrord)
endif
use in (select('crsLucrareTemp'))
endif
onir.Show(1)
If gnButon = 1
lcCant = [orul.] + Alltrim(Thisform.osel_dr.cantitate)
If Type('ostg.cantitate') # 'U' And Inlist(oset.model, 3, 4, 5, 6, 7) &&: bon, retur, transfer, retur transfer
lnCantD = &lcCant
lnCantD1 = &lcCant
lnCantS = oStg.cantitate
*!* MODIFICAT 11.04.2006
*!* DOAR LA ID_SET = 210 (TRANSFER OB INV IN FOL CATRE MAI MULTI RESPONSABILI) AM PERMIS SA SE SCOATA DE MAI MULTE ORI ACELASI REPER
*!* ADUN CANTITATEA DEJA IESITA LA CEA CURENTA
lnCant = 0
If Inlist(oset.id_set,210,211,212,89)
Select Sum(Nvl(cant,0)) As cant ;
FROM (lcSelRul) With (Buffering = .T.);
WHERE id_articol = oStg.id_articol And Pret = oStg.Pret And ;
id_gestout = oStg.id_gestiune And Nvl(serie,'') = Nvl(oStg.serie,'') ;
INTO Cursor crsCant
Select crsCant
Calculate Sum(cant) To lnCant
lnCantD = lnCantD + lnCant
Use In crsCant
Endif
If Abs(lnCantD) > Abs(lnCantS) Or (Sign(lnCantD1) * Sign(lnCantS) < 0)
lcTitlu = [Atentie]
lcTip = [Avertizare]
lcImagine = [exclam.ico]
ofrm_eroare = Createobject('frm_mesaj',lcTitlu,lcImagine,lcTip,"Cantitatea maxima existenta este:",oStg.cantitate)
ofrm_eroare.Show(1)
Release ofrm_eroare
&lcCant = oStg.cantitate - lnCant
Endif
*!* MODIFICAT 11.04.2006
*!* NU ADAUG ARTICOLE FARA CANTITATE
If &lcCant = 0
Thisform.ct_grid_order1.cb_tx_gestin.SetFocus()
Return
Endif
Endif
Do Case
Case Inlist(oset.model, 4, 6) && retur BON, retur TRANSFER
&lcCant = -&lcCant
Case oset.model = 2 && NIR
Select (lcSelRul)
lcAcont = Thisform.assign_analitic(orul.Cont,Thisform.cobj,'orul')
IF !EMPTY(m.lcAcont)
orul.acont = m.lcAcont
ENDIF
Endcase
If Inlist(oset.model,5,6,7) && TRANSFER, RETUR TRANSFER, DIFERENTA DE PRET
lcCantDr = Lower(Alltrim(Thisform.osel_dr.cantitate))
lcCantTransf = [cant] + Iif(lcCantDr = [cante],[],[e])
If !Used('crsTransfer')
Select *, 0000 As rec, 0 As nuInConturiX From (lcSelRul) Into Cursor crsTransfer Where 1=2 NOFILTER Readwrite
Endif
Select crsTransfer
Append Blank
Gather Name pcObj
Gather Name oStg
Replace cant With 0, cante With 0
Replace &lcCantTransf With &lcCant
*!* v 2.0.24
lnProcTVA = Iif(proc_tva <> 0, proc_tva, TVA2PROCTVA(tva, Pret))
Replace proc_tva With lnProcTVA
*!* v 2.0.24 ^
*REPLACE nuInConturiX WITH 1
*!* modificare 26.02.2007
Do Case
Case Inlist(oset.id_set,75,218) && modificare 22.05.2007 : completez si pretv ca sa pot calcula adaosul
Replace pretv With orul.pretv,tvav With orul.tvav,proc_tvav With orul.proc_tvav
Case Inlist(oset.id_set, 207,254)
orul.pretv = oStg.pretv
orul.tvav = oStg.tvav
orul.proc_tvav = oStg.proc_tvav
Case oset.id_set = 89 && transfer intre persoane
pcObj.id_gestin = orul.id_gestout
pcObj.gestin = orul.id_gestout
orul.id_gestin = orul.id_gestout
orul.gestin = orul.gestout
Endcase
*!* IF oset.id_set = 89 && transfer intre persoane
*!* pcObj.id_gestin = orul.id_gestout
*!* pcObj.gestin = orul.id_gestout
*!* orul.id_gestin = orul.id_gestout
*!* orul.gestin = orul.gestout
*!* ENDIF
*!* modificare 26.02.2007 ^
Replace id_gestin With orul.id_gestin, gestin With orul.gestin
Replace id_gestout With orul.id_gestout, gestout With orul.gestout
*!* IF TYPE('orul.id_gestiune') = 'N' AND TYPE('crsTransfer.id_gestiunec') = 'N'
*!* REPLACE id_gestiunec WITH orul.id_gestiune
*!* ENDIF
If Type('orul.id_responsabil') = 'N' And Type('crsTransfer.id_responsabilc') = 'N'
Replace id_responsabilc With orul.id_responsabil
Endif
*!* nou 26.05.2009
Replace id_lucrare With orul.id_lucrare, nrord With orul.nrord
Replace id_sectie With orul.id_sectie, sectie With orul.sectie
*!* nou 26.05.2009 ^
Endif
If oset.id_set = 104
If gnImputare = 1
Select cursor_curent1
If DNF<>0
uzura = (DNF-(dns_luni-Iif(!Empty(datapif) And !Isnull(datapif),((gnAn*12+gnluna)-(Year(datapif)*12+Month(datapif))),0)))/DNF*100
Else
uzura = 0
Endif
Do Case
Case pnImputare = 1 && procent
orul.pret_imputare = Round((100 - uzura) * orul.pretv / 100,gnPPretV)
Case pnImputare = 2 && integral
orul.pret_imputare = orul.pretv
Otherwise
orul.pret_imputare = orul.pretv
Endcase
Else
orul.pret_imputare = orul.pretv
Endif
Endif
Select (lcSelRul)
Append Blank
Gather Name orul
Replace id_set With oset.id_set
lnRecno = Recno()
*!* IF TYPE('ostg.id_gestiune') = 'N'
*!* REPLACE id_gestiunec WITH ostg.id_gestiune
*!* ENDIF
If Type('ostg.id_responsabil') = 'N'
Replace id_responsabilc With oStg.id_responsabil
Endif
*!* MODIFICAT 11.04.2006
*!* MARIUS.MUTU - AM PUS RECNO('RUL_TEMP') IN CURSORUL DE TRANSFER - LA STERGERE SA POT STERGE SI LINIA CORESPONDENTA DIN CRSTRANSFER
If Inlist(oset.model,5,6,7) And Used('crsTransfer') && TRANSFER, RETUR TRANSFER, DIFERENTA DE PRET
Select crsTransfer
Replace rec With lnRecno
Endif
*!* 09.06.2008
*!* 231 - nir mf pretv cu modificarea listei de preturi
*!* daca pretul de vanzare este diferit de pretul de vanzare din lista
*!* modific pretul de vanzare din lista
*!* 247 = roagest - nir marfa la pretv cu lista de preturi gestiune hibrid 23.10.2008
*!* 266 roagest - mf pret de ach * > factura nesosita - pret de lista ** 19.05.2010
If Inlist(oset.id_set, 231, 247, 266) And poPreturi.pretvtva <> lnPretvTva And lnNIRPRETLISTAMOD = 1
lnPretftvaLista = poPreturi.pretv
lnPretvtvaLista = poPreturi.pretvtva
lnPretLista = Iif(lnListaPreturiCuTva = 1, lnPretvtvaLista, lnPretftvaLista)
Thisform.modificare_lista_preturi(poact.id_pol, oStg.id_articol, lnPretftvaLista, lnPretvtvaLista, lnPretLista, orul.proc_tvav)
Endif
*!* 09.06.2008 ^
*!* 10.09.2008 v 2.0.61
*!* 236, 240, 241, 242 = retur de la gestiune valorica
If Inlist(oset.id_set, 236, 240, 241, 242,255,256) And poPreturi.pretvtva <> lnPretvTva
lnPretftvaLista = poPreturi.pretv
lnPretvtvaLista = poPreturi.pretvtva
lnPretLista = Iif(lnListaPreturiCuTva = 1, lnPretvtvaLista, lnPretftvaLista)
Thisform.modificare_lista_preturi(poact.id_pol, oStg.id_articol, lnPretftvaLista, lnPretvtvaLista,lnPretLista, orul.proc_tvav,lnPretvTva)
Endif
*!* 10.09.2008 v 2.0.61 ^
* 01.04.2021 salvez responsabilul ales de utilizator si il folosesc pentru articolele urmatoare
thisform.nIdResponsabil = orul.id_responsabil
thisform.nResp = orul.nresp
If Thisform.ct_grid_order1.cb_tx_gestin.Visible
Thisform.ct_grid_order1.cb_tx_gestin._cbbase1.Value = orul.gestin
Thisform.ct_grid_order1.cb_tx_gestin._cbbase1.Refresh
Endif
Thisform.ct_grid_order1.actualizeaza_grid()
Thisform.ct_grid_order1._GRID1.AutoFit
Else
Thisform.ct_grid_search1._GRID1.SetFocus
Endif
Thisform.calcul_sume(lcSelRul)
*!* SELECT crsTransfer
*!* BROWSE
*!* SELECT (lcSelRul)
*!* BROWSE
If oset.productie And Inlist(oset.id_set,26003,26004) && modificare 17.10.2007 AND ALLTRIM(UPPER(oset.formproduc))='FRM_ALEGE_SECTIE_COMANDA'
pnValoareDecontata = Thisform.nTotal
pnCheltuieliDirecte = Thisform.nTotal - pnValoareDecontata
Thisform.container_valoare_decontata1.Refresh
Endif
If Thisform.nTotal#0
lnProcentDiscount=(Thisform.ct_discount1.baza_discount/Thisform.nTotal)*100
Else
lnProcentDiscount=0
Endif
If(Thisform.ct_discount1.Combogrid3.Value=2)
Thisform.ct_discount1.txProc_discount.Value=lnProcentDiscount
Endif
*!* modificare ROAGEST v 2.1.19
If oset.model = 3
Select (Thisform.ct_grid_search1.cnumecursor)
Replace stoc_actual With stoc_actual - orul.cante
Endif
*!* modificare ROAGEST v 2.1.19 ^
Release orul
Release oStg
ENDPROC
PROCEDURE _shape1.DblClick
IF thisform.WindowState = 2
thisform.WindowState = 0
ELSE
thisform.WindowState = 2
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS nir_orig 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="Ct_discount1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shapeDr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shapeSus" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Urmator1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lbTotal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txNir" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_adaos1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1.lb_listePreturi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1.cboListe" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_search1.Cb_tx_gestout" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1.Cb_tx_gestin" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_grid_order1.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Container_valoare_decontata1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura2.lb_curs" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_factura2.lb_valuta" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="tx_totalctva" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_totalctva" UniqueID="" Timestamp="" />
#INCLUDE "..\include\foxpro.h"
*<DefinedPropArrayMethod>
*m: aleg_cont_transfer
*m: analiza_cmp
*m: assign_analitic
*m: assign_values
*m: bon_fiscal
*m: calcul_pret_vanzare
*m: calcul_sume
*m: caut_gestiune
*m: compensare
*m: do_verifica_sume
*m: intrare_produs
*p: cfrm_ceredate
*p: cobj
*p: ctip_frm
*p: ntotal
*p: osel_dr
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cbuton3 =
cbuton4 = Ct_grid_order1.But_sterge1;but_reface1
cfrm_ceredate =
cobj =
ctip_frm = NIR
DoCreate = .T.
Height = 572
lactiv3 = .T.
lactiv4 = .T.
Name = "nir_orig"
ntotal = 0
osel_dr =
Width = 793
WindowType = 1
_shape1.Anchor = 11
_shape1.Height = 30
_shape1.Left = -1
_shape1.Name = "_shape1"
_shape1.Tag = ""
_shape1.Top = -1
_shape1.Width = 726
_shape1.ZOrderSet = 2
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 724
_shape2.Name = "_shape2"
_shape2.Tag = "MOVABLE"
_shape2.Top = 0
_shape2.Width = 69
_shape2.ZOrderSet = 4
Lb_titlu_alb_b121.Anchor = 3
Lb_titlu_alb_b121.FontName = "Comic Sans MS"
Lb_titlu_alb_b121.FontSize = 10
Lb_titlu_alb_b121.Height = 20
Lb_titlu_alb_b121.Left = 10
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
Lb_titlu_alb_b121.Top = 3
Lb_titlu_alb_b121.Width = 41
Lb_titlu_alb_b121.ZOrderSet = 8
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Height = 27
BUT_TERMIN1.Left = 757
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Tag = ""
BUT_TERMIN1.Top = 1
BUT_TERMIN1.Width = 32
BUT_TERMIN1.ZOrderSet = 12
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_shape3' AS _shape WITH ;
Anchor = 135, ;
BackStyle = 0, ;
BorderColor = 7,118,177, ;
BorderWidth = 2, ;
Height = 427, ;
Left = 9, ;
Name = "_shape3", ;
Tag = "", ;
Top = 137, ;
Width = 361, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shapeDr' AS _shape WITH ;
Anchor = 45, ;
BackStyle = 0, ;
BorderColor = 7,118,177, ;
BorderWidth = 2, ;
Height = 427, ;
Left = 406, ;
Name = "_shapeDr", ;
Tag = "", ;
Top = 137, ;
Width = 381, ;
ZOrderSet = 3
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shapeSus' AS _shape WITH ;
Anchor = 11, ;
BackStyle = 0, ;
BorderColor = 7,118,177, ;
BorderWidth = 2, ;
Height = 103, ;
Left = 8, ;
Name = "_shapeSus", ;
Tag = "RESIZABLE, MOVABLE", ;
Top = 32, ;
Width = 780, ;
ZOrderSet = 5
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 727, ;
Name = "But_renunt1", ;
TabIndex = 4, ;
Tag = "", ;
Top = 1, ;
ZOrderSet = 7
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Container_valoare_decontata1' AS container_valoare_decontata WITH ;
Left = 12, ;
Name = "Container_valoare_decontata1", ;
Top = 81, ;
Visible = .F., ;
ZOrderSet = 18, ;
Label1.Name = "Label1", ;
Text1.Name = "Text1"
*< END OBJECT: ClassLib="ointroduceri.vcx" BaseClass="container" />
ADD OBJECT 'Ct_adaos1' AS ct_adaos WITH ;
Anchor = 161, ;
Left = 556, ;
Name = "Ct_adaos1", ;
TabIndex = 8, ;
Tag = "", ;
Top = 38, ;
ZOrderSet = 13, ;
LBBAZA_ADAOS.Name = "LBBAZA_ADAOS", ;
LBTVA_ADAOS.Name = "LBTVA_ADAOS", ;
LBPROC_ADAOS.Name = "LBPROC_ADAOS", ;
TXBAZA_ADAOS.Name = "TXBAZA_ADAOS", ;
TXTVA_ADAOS.Name = "TXTVA_ADAOS", ;
TXPROC_ADAOS.Name = "TXPROC_ADAOS"
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_discount1' AS ct_discount WITH ;
Anchor = 161, ;
Left = 262, ;
Name = "Ct_discount1", ;
TabIndex = 10, ;
Tag = "", ;
Top = 37, ;
ZOrderSet = 0, ;
COMBOGRID3.Name = "COMBOGRID3", ;
LBBAZA_DISCOUNT.Name = "LBBAZA_DISCOUNT", ;
LBTVA_DISCOUNT.Name = "LBTVA_DISCOUNT", ;
LBPROC_DISCOUNT.Name = "LBPROC_DISCOUNT", ;
TXBAZA_DISCOUNT.Name = "TXBAZA_DISCOUNT", ;
TXTVA_DISCOUNT.Name = "TXTVA_DISCOUNT", ;
TXPROC_DISCOUNT.Name = "TXPROC_DISCOUNT", ;
CotaTVA.HideSelection = .F., ;
CotaTVA.Name = "CotaTVA", ;
lbTva.Name = "lbTva", ;
lb_explicatie_tva.Name = "lb_explicatie_tva"
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_factura1' AS ct_factura WITH ;
Anchor = 131, ;
Left = 14, ;
Name = "Ct_factura1", ;
TabIndex = 9, ;
Tag = "", ;
Top = 61, ;
ZOrderSet = 14, ;
lbBaza.Name = "lbBaza", ;
lbTva.Name = "lbTva", ;
txBaza.Name = "txBaza", ;
txTva.Name = "txTva", ;
lbExplic.Name = "lbExplic", ;
txTotal.Name = "txTotal", ;
lbTotal.Name = "lbTotal"
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_factura2' AS ct_factura WITH ;
Anchor = 131, ;
Height = 96, ;
Left = 260, ;
Name = "Ct_factura2", ;
TabIndex = 9, ;
Tag = "", ;
Top = 36, ;
Width = 238, ;
ZOrderSet = 19, ;
LBBAZA.Left = 51, ;
LBBAZA.Name = "LBBAZA", ;
LBBAZA.Top = 52, ;
LBTVA.Left = 51, ;
LBTVA.Name = "LBTVA", ;
LBTVA.Top = 72, ;
TXBAZA.InputMask = (get_mask(14,gnPVal)), ;
TXBAZA.Left = 130, ;
TXBAZA.Name = "TXBAZA", ;
TXBAZA.Top = 50, ;
TXTVA.InputMask = (get_mask(14,gnPVal)), ;
TXTVA.Left = 130, ;
TXTVA.Name = "TXTVA", ;
TXTVA.Top = 70, ;
LBEXPLIC.Left = 1, ;
LBEXPLIC.Name = "LBEXPLIC", ;
LBEXPLIC.Top = 52, ;
TXTOTAL.ControlSource = "this.parent.totctva", ;
TXTOTAL.InputMask = (get_mask(14,gnPVal)), ;
TXTOTAL.Left = 130, ;
TXTOTAL.Name = "TXTOTAL", ;
TXTOTAL.Top = 28, ;
LBTOTAL.Height = 17, ;
LBTOTAL.Left = 3, ;
LBTOTAL.Name = "LBTOTAL", ;
LBTOTAL.Top = 19, ;
LBTOTAL.Width = 97
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_factura2.lb_curs' AS lb_titlu_albastru_b12 WITH ;
Alignment = 2, ;
AutoSize = .F., ;
Caption = "[Curs]", ;
FontBold = .T., ;
Height = 22, ;
Left = 19, ;
Name = "lb_curs", ;
Top = 2, ;
Width = 201
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Ct_factura2.lb_valuta' AS lb_titlu_albastru_b12 WITH ;
Caption = "[Valuta]", ;
FontBold = .F., ;
FontSize = 9, ;
ForeColor = 7,118,177, ;
Height = 17, ;
Left = 58, ;
Name = "lb_valuta", ;
Top = 35, ;
Width = 42
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Ct_grid_order1' AS ct_grid_order WITH ;
Anchor = 45, ;
cnumecursor = rul_temp1, ;
Height = 425, ;
Left = 409, ;
Name = "Ct_grid_order1", ;
TabIndex = 11, ;
Top = 139, ;
Width = 375, ;
ZOrderSet = 16, ;
_GRID1.Height = 345, ;
_GRID1.Left = 6, ;
_GRID1.Name = "_GRID1", ;
_GRID1.TabIndex = 2, ;
_GRID1.Top = 73, ;
_GRID1.Width = 364, ;
Titlu.Left = 9, ;
Titlu.Name = "Titlu", ;
Titlu.TabIndex = 3, ;
Titlu.Top = 3, ;
Cb_tx_cautare1.Criteriu.Name = "Criteriu", ;
Cb_tx_cautare1.Left = 7, ;
Cb_tx_cautare1.Name = "Cb_tx_cautare1", ;
Cb_tx_cautare1.TabIndex = 1, ;
Cb_tx_cautare1.Text.Name = "Text", ;
Cb_tx_cautare1.Top = 46
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_order1.But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
Left = 310, ;
Name = "But_sterge1", ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 45, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ct_grid_order1.Cb_tx_gestin' AS cb_tx_simplu WITH ;
BackStyle = 0, ;
BorderColor = 255,255,255, ;
Height = 24, ;
Left = 7, ;
Name = "Cb_tx_gestin", ;
TabIndex = 4, ;
Top = 20, ;
Width = 366, ;
_CBBASE1.BorderStyle = 0, ;
_CBBASE1.ColumnCount = 2, ;
_CBBASE1.ColumnLines = .F., ;
_CBBASE1.ColumnWidths = "220,40", ;
_CBBASE1.ControlSource = "poact.gestin", ;
_CBBASE1.FontItalic = .F., ;
_CBBASE1.FontName = "Arial Narrow", ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 124, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.RowSource = "nom_gestiuni.nume_gestiune,cgest", ;
_CBBASE1.RowSourceType = 6, ;
_CBBASE1.Sorted = .F., ;
_CBBASE1.Top = 0, ;
_CBBASE1.Width = 237, ;
_LBBASE1.Caption = "gestiune destinatie:", ;
_LBBASE1.FontItalic = .T., ;
_LBBASE1.Left = 3, ;
_LBBASE1.Name = "_LBBASE1", ;
_LBBASE1.Top = 4
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_search1' AS ct_grid_search WITH ;
Anchor = 135, ;
cnumecursor = cursor_curent1, ;
Height = 425, ;
Left = 11, ;
Name = "Ct_grid_search1", ;
TabIndex = 1, ;
Top = 139, ;
Width = 357, ;
ZOrderSet = 15, ;
_GRID1.Comment = "grd_st", ;
_GRID1.FontName = "Arial Narrow", ;
_GRID1.Height = 345, ;
_GRID1.Left = 6, ;
_GRID1.Name = "_GRID1", ;
_GRID1.RecordSource = "cursor_curent", ;
_GRID1.TabIndex = 3, ;
_GRID1.Top = 73, ;
_GRID1.Width = 347, ;
_GRID1.ZOrderSet = 0, ;
Titlu.Left = 9, ;
Titlu.Name = "Titlu", ;
Titlu.TabIndex = 4, ;
Titlu.Top = 2, ;
Titlu.ZOrderSet = 1, ;
Cb_tx_cautare1.Criteriu.Comment = "criteriu_st", ;
Cb_tx_cautare1.Criteriu.Name = "Criteriu", ;
Cb_tx_cautare1.Height = 27, ;
Cb_tx_cautare1.Left = 7, ;
Cb_tx_cautare1.Name = "Cb_tx_cautare1", ;
Cb_tx_cautare1.TabIndex = 2, ;
Cb_tx_cautare1.Text.Comment = "text_st", ;
Cb_tx_cautare1.Text.Height = 25, ;
Cb_tx_cautare1.Text.Left = 103, ;
Cb_tx_cautare1.Text.Name = "Text", ;
Cb_tx_cautare1.Text.Top = 1, ;
Cb_tx_cautare1.Text.Width = 207, ;
Cb_tx_cautare1.Top = 46, ;
Cb_tx_cautare1.Width = 312, ;
Cb_tx_cautare1.ZOrderSet = 2
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_search1.But_nou1' AS but_nou WITH ;
Anchor = 9, ;
Height = 27, ;
Left = 322, ;
Name = "But_nou1", ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 45, ;
ZOrderSet = 3
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ct_grid_search1.Cb_tx_gestout' AS cb_tx_simplu WITH ;
BackStyle = 0, ;
BorderColor = 255,255,255, ;
Height = 24, ;
Left = 7, ;
Name = "Cb_tx_gestout", ;
TabIndex = 5, ;
Top = 20, ;
Width = 346, ;
ZOrderSet = 6, ;
_CBBASE1.BorderStyle = 0, ;
_CBBASE1.ColumnCount = 2, ;
_CBBASE1.ColumnLines = .F., ;
_CBBASE1.ColumnWidths = "180,30", ;
_CBBASE1.ControlSource = "poact.gestout", ;
_CBBASE1.FontItalic = .F., ;
_CBBASE1.FontName = "Arial Narrow", ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 101, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.RowSource = "nom_gestiuni.nume_gestiune,cgest", ;
_CBBASE1.RowSourceType = 6, ;
_CBBASE1.Sorted = .F., ;
_CBBASE1.Top = 1, ;
_CBBASE1.Width = 243, ;
_LBBASE1.Caption = "Gestiune sursa", ;
_LBBASE1.FontItalic = .T., ;
_LBBASE1.Left = 3, ;
_LBBASE1.Name = "_LBBASE1", ;
_LBBASE1.Top = 3
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_grid_search1.cboListe' AS combobox WITH ;
Anchor = 3, ;
BorderStyle = 0, ;
ColumnCount = 4, ;
ColumnLines = .F., ;
ColumnWidths = "200,65,60,0", ;
Format = "", ;
Height = 23, ;
Left = 104, ;
Name = "cboListe", ;
RowSource = "cListePret.nume_lista_preturi,datai,datas,id_pol", ;
RowSourceType = 2, ;
Style = 2, ;
TabIndex = 1, ;
Top = 21, ;
Visible = .F., ;
Width = 247, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Ct_grid_search1.lb_listePreturi' AS label WITH ;
Anchor = 3, ;
BackStyle = 0, ;
Caption = "Lista de preturi:", ;
FontItalic = .T., ;
Height = 17, ;
Left = 11, ;
Name = "lb_listePreturi", ;
TabIndex = 7, ;
Top = 25, ;
Visible = .F., ;
Width = 84, ;
ZOrderSet = 4
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lb_totalctva' AS lb_simplu WITH ;
Anchor = 41, ;
Caption = "Total val.vanz. cu TVA", ;
ForeColor = 7,118,177, ;
Left = 558, ;
Name = "lb_totalctva", ;
Top = 109, ;
Visible = .F.
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'lbTotal' AS titlufrumos WITH ;
Anchor = 3, ;
AutoSize = .T., ;
Caption = "TOTAL NIR:", ;
ForeColor = 7,118,177, ;
Height = 20, ;
Left = 20, ;
Name = "lbTotal", ;
TabIndex = 6, ;
Top = 40, ;
Width = 77, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="baza.vcx" BaseClass="label" />
ADD OBJECT 'tx_totalctva' AS _txbase WITH ;
Alignment = 3, ;
Anchor = 161, ;
FontName = "Comic Sans MS", ;
Height = 20, ;
InputMask = (get_mask(12,gnPa)), ;
Left = 678, ;
Name = "tx_totalctva", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabStop = .F., ;
Top = 107, ;
Value = 0, ;
Visible = .F.
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'txNir' AS _txbase WITH ;
Anchor = 3, ;
BackStyle = 1, ;
ControlSource = "thisform.ntotal", ;
DisabledBackColor = 255,255,255, ;
FontName = "Comic Sans MS", ;
Height = 21, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 98, ;
Name = "txNir", ;
ReadOnly = .T., ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Tag = "", ;
Top = 39, ;
Width = 152, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Urmator1' AS urmator WITH ;
Anchor = 240, ;
Left = 373, ;
Name = "Urmator1", ;
TabIndex = 2, ;
Tag = "", ;
Top = 324, ;
ZOrderSet = 9, ;
Imbuton1.Height = 27, ;
Imbuton1.Name = "Imbuton1", ;
Imbuton1.Width = 30, ;
Command1.Name = "Command1"
*< END OBJECT: ClassLib="baza.vcx" BaseClass="container" />
PROCEDURE Activate
this.WindowState = 2
ENDPROC
PROCEDURE aleg_cont_transfer
PARAMETERS tnIdGest
lcSql = [select (case when p.explicatie is null then s.explicatie else p.explicatie end) as explicatie,] +;
[c.cont, p.acont from VCORESP_CONT_TIPGEST c ] +;
[left join vplcont_analitic p on c.cont = p.cont and p.an = ?gnAn ] +;
[left join vplcont_sintetic s on c.cont = s.cont and s.an = ?gnAn]
pcFiltruOrig = [c.id_tipgest in (select nr_pag from vnom_gestiuni where id_gestiune = ?tnIdGest)]
pcfiltru = [1=2]
pcschema = []
pcorder = [cont,acont]
pccoloane = [cont,acont,explicatie]
pcTitlu = [Alegeti Contul de Transfer]
pcTitluColoane = [Cont,Analitic,Explicatie cont]
locauta = cauta_alfa(lcSql,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'',.F.,pcFiltruOrig) && 11.07.2007
RETURN loCauta
ENDPROC
PROCEDURE analiza_cmp
PARAMETERS tcRul, tcAct
*!* 14.10.2006
*!* mutu.marius
*!* tratare achizitie articol cu mai multe preturi
LOCAL lcSql, lcCursor, lnSucces
PRIVATE poArticol
*** alocare numar NIR pt rulajele generate de CMP
*** dezaloc in caz ca trece de mai multe ori prin metoda asta
IF THISFORM.numar_plaja1.id_numar # 0
THISFORM.numar_plaja1.dezalocare_numar()
ENDIF
lnIdEnt = 0
THIS.numar_plaja1.id_entitate = lnIdEnt
THIS.numar_plaja1.tip = 4 && NIR PT CMP
THIS.numar_plaja1.serie = 2 && Asa transmit paramerii la procedura viz_config_serii din oproceduri_configurare.prg
THIS.numar_plaja1.alocare_numar()
lnNnir = THIS.numar_plaja1.numar_curent
***
SELECT * ;
FROM (tcRul) WITH (BUFFERING = .T.) ;
INTO CURSOR crsTempRul
SELECT DISTINCT ID_ARTICOL, CONT FROM crsTempRul ;
INTO CURSOR crsArticoleTemp
&& pentru fiecare articol - se poate sa am acelasi articol cu mai multe preturi
SELECT crsArticoleTemp
SCAN
SCATTER NAME poArticol
&& selectez din stoc cantitatea si pretul existente pentru articolul curent
&& posibil mai multe gestiuni ???
lcSql = [SELECT cants+cant-cante as cante, pret, id_articol, id_gestiune, id_gestiune as id_gestout, cont,] + ;
[acont FROM stoc where an = ?gnAn and luna = ?gnluna and id_articol = ?poArticol.id_articol ] + ;
[and (cants+cant-cante)<>0 and TRIM(cont) = ?ALLTRIM(poArticol.cont)] + gcCondSucursala
lcCursorStoc = [tmpVer]
lnSucces = goExecutor.oExecute(lcSql, lcCursorStoc)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
RETURN
ENDIF
&& pentru fiecare pozitie articol achizitionat din articolul curent
SELECT crsTempRul
SCAN FOR cant <> 0 AND id_articol = poArticol.id_articol
SCATTER NAME orul
&& scot articolul curent din rulaj la pretul de achizitie
*!* IF RECCOUNT(lcCursorStoc) > 0
&& il scot chiar daca nu il am in stoc - pentru ca s-ar putea sa fie achizitionat cu mai multe preturi
SELECT (tcRul)
APPEND BLANK
GATHER NAME orul
REPLACE cante WITH orul.cant, cant WITH 0, nnir WITH lnNnir, tva WITH 0
REPLACE id_tip_rulaj WITH 2 && RULAJ ARTIFICIAL CMP
*!* ENDIF
SELECT crsTempRul
ENDSCAN
*** scot din stoc articolul curent - cantitatea si pretul existente - inainte de achizitia curenta
IF USED(lcCursorStoc)
SELECT (lcCursorStoc)
SCAN
SCATTER NAME ointr
SELECT (tcRul)
APPEND BLANK
GATHER NAME orul
REPLACE cant WITH 0, cante WITH 0
GATHER NAME ointr
REPLACE nnir WITH lnNnir
REPLACE id_tip_rulaj WITH 2 && RULAJ ARTIFICIAL CMP
SELECT (lcCursorStoc)
ENDSCAN
USE IN (lcCursorStoc)
ENDIF
&& aflu pretul mediu ponderat - selectez toate iesirile din rul_temp (articolele achizitionate si stocul precedent)
&& pentru articol, cont curente
&& un singur pret mediu ponderat pe articol, indiferent de gestiune
*!* 05.12.2006
*!* MARIUS.MUTU
*!* LA RETUR FACTURA FURNIZOR CANTITATE NEGATIVA, DACA E RETUR LA TOATA CANTITATEA DIN STOC,
*!* CANTITATEA TOTALA = 0, NUMERIC OVERFLOW LA CALCUL CMP
*!* AM FACUT ABS(CANTE)
SELECT SUM(ROUND(PRET*ABS(cante),gnPc)) AS valoare, SUM(ABS(cante)) AS cantitate, ID_ARTICOL, CONT ;
FROM (tcRul) WITH (BUFFERING = .T.) ;
WHERE cante <> 0 AND ID_ARTICOL = poArticol.ID_ARTICOL AND CONT = poArticol.CONT ;
GROUP BY ID_ARTICOL, CONT ;
INTO CURSOR tCmp
SELECT tCmp
SCAN
SCATTER NAME ocmp
&& pretul mediu ponderat
lnCMP = ROUND(ocmp.valoare/ocmp.cantitate, gnPpret)
&& articol, gestiune, cantitate_totala (cantitate achizitionata cu toate preturile + stoc)
SELECT id_articol, id_gestiune, SUM(cante) AS cant ;
FROM (tcRul) WITH (BUFFERING = .T.) ;
WHERE ID_ARTICOL = ocmp.ID_ARTICOL AND cante <> 0 AND CONT = ocmp.CONT ;
GROUP BY id_gestiune, ID_ARTICOL ;
INTO CURSOR crsCantGest
&& adaug in rulaj intrarea cu toata cantitatea (achizitionata + stoc) la noul pret mediu ponderat
SELECT crsCantGest
SCAN
SCATTER NAME ocant
SELECT (tcRul)
APPEND BLANK
GATHER NAME orul
REPLACE PRET WITH lnCMP, cant WITH 0, cante WITH 0, tva WITH 0
GATHER NAME ocant
REPLACE nnir WITH lnNnir
REPLACE id_tip_rulaj WITH 2 && RULAJ ARTIFICIAL CMP
SELECT crsCantGest
ENDSCAN
USE IN crsCantGest
&& diferente de pret din rotunjiri
IF ROUND(lnCMP * ocmp.cantitate, gnPc) - ocmp.valoare <> 0
SELECT (tcAct)
APPEND BLANK
GATHER NAME poact
REPLACE nnir WITH lnNnir
REPLACE scd WITH ocmp.CONT, scc WITH IIF(LEFT(ocmp.cont,3) = '371', '378', '308'), ascd WITH '', ascc WITH ''
REPLACE suma WITH ROUND(lnCMP*ocmp.cantitate,gnPc) - ocmp.valoare
ENDIF
SELECT tCmp
ENDSCAN
USE IN tCmp
ENDSCAN && crsArticoleTemp
USE IN crsArticoleTemp
SELECT (tcRul)
&& program vechi
*!* PARAMETERS tcRul, tcAct
*!* *** alocare numar NIR pt rulajele generate de CMP
*!* *** dezaloc in caz ca trece de mai multe ori prin metoda asta
*!* IF thisform.numar_plaja1.id_numar # 0
*!* thisform.numar_plaja1.dezalocare_numar()
*!* ENDIF
*!* lnIdEnt = 0
*!* this.numar_plaja1.id_entitate = lnIdEnt
*!* this.numar_plaja1.tip = 4 && NIR PT CMP
*!* this.numar_plaja1.serie = 2 && Asa transmit paramerii la procedura viz_config_serii din oproceduri_configurare.prg
*!* this.numar_plaja1.alocare_numar()
*!* lnNnir = this.numar_plaja1.numar_curent
*!* ***
*!* SELECT * FROM (tcRul) WITH (BUFFERING = .T.) INTO CURSOR crsTempRul
*!* SELECT crsTempRul
*!* SCAN FOR cant <> 0
*!* SCATTER NAME orul
*!* lcCont = ALLTRIM(orul.cont)
*!* lcsql = [SELECT cants+cant-cante as cante, pret, id_articol, id_gestiune, id_gestiune as id_gestout, cont, acont FROM stoc where an = ?gnAn and luna = ?gnluna and id_articol = ?orul.id_articol and (cants+cant-cante)<>0 and TRIM(cont) =?lcCont]
*!* lcCursor = [tmpVer]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* IF RECCOUNT(lcCursor) > 0
*!* SELECT (tcRul)
*!* APPEND BLANK
*!* GATHER NAME orul
*!* REPLACE cante WITH orul.cant, cant WITH 0, nnir WITH lnNnir
*!* ENDIF
*!* SELECT (lcCursor)
*!* SCAN
*!* SCATTER NAME ointr
*!* SELECT (tcRul)
*!* APPEND BLANK
*!* GATHER NAME orul
*!* REPLACE cant WITH 0, cante WITH 0
*!* GATHER NAME ointr
*!* REPLACE nnir WITH lnNnir
*!* SELECT (lcCursor)
*!* ENDSCAN
*!* USE IN (lcCursor)
*!*
*!* *!* SELECT (tcRul)
*!* *!* LOCATE
*!* && aflu pretul mediu ponderat
*!* SELECT SUM(ROUND(pret*cante,gnPc)) as valoare, SUM(cante) as cantitate, id_articol, cont ;
*!* FROM (tcRul) WITH (BUFFERING = .T.) ;
*!* WHERE cante <> 0 AND id_articol = orul.id_articol ;
*!* GROUP BY id_articol, cont ;
*!* INTO CURSOR tCmp
*!*
*!* SELECT tCmp
*!* SCAN
*!* SCATTER NAME ocmp
*!* lnCMP = ROUND(ocmp.valoare/ocmp.cantitate,gnPc)
*!*
*!* SELECT id_gestiune, SUM(cante) as cant FROM (tcRul) WITH (BUFFERING = .T.) ;
*!* WHERE id_articol = ocmp.id_articol AND cante <> 0 AND cont = ocmp.cont ;
*!* GROUP BY id_gestiune, id_articol ;
*!* INTO CURSOR crsCantGest
*!*
*!* SELECT crsCantGest
*!* SCAN
*!* SCATTER NAME ocant
*!* SELECT (tcRul)
*!* APPEND BLANK
*!* GATHER NAME orul
*!* REPLACE pret WITH lnCMP, cant WITH 0, cante WITH 0
*!* GATHER NAME ocant
*!* REPLACE nnir WITH lnNnir
*!* SELECT crsCantGest
*!* ENDSCAN
*!* USE IN crsCantGest
*!* IF ROUND(lnCMP*ocmp.cantitate,gnPc) - ocmp.valoare <> 0
*!* SELECT (tcAct)
*!* APPEND BLANK
*!* GATHER NAME poact
*!* REPLACE nnir WITH lnNnir
*!* REPLACE scd WITH ocmp.cont, scc WITH '308 ', ascd WITH '', ascc WITH ''
*!* REPLACE suma WITH ROUND(lnCMP*ocmp.cantitate,gnPc) - ocmp.valoare
*!* ENDIF
*!* SELECT tCmp
*!* ENDSCAN
*!* USE IN tCmp
*!* SELECT crsTempRul
*!* ENDSCAN
*!* USE IN crsTempRul
*!* SELECT (tcRul)
ENDPROC
PROCEDURE assign_analitic
PARAMETERS tcCont,pcAct,pcRul
PRIVATE pcCont,pcAct,pcRul,pParamP,pParamS
STORE 0 TO pParamP,pParamS
lcAnalitic = ''
lcAlias = ALIAS()
pcCont = ALLTRIM(tcCont)
lcSel = [SELECT * from ] + gcs + [.config_analitice WHERE cont = '] + ALLTRIM(pcCont) + [']
lcCursor = 'crs_cfg_ana'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
IF lnSucces > 0
IF RECCOUNT('crs_cfg_ana')=0
USE IN crs_cfg_ana
lnSucces = -1
ENDIF
ENDIF
IF lnSucces > 0
SELECT crs_cfg_ana
SCATTER NAME ocfg
lcCampPrefix = NVL(ALLTRIM(ocfg.camp_leg_prefix),'')
lcCampSufix = NVL(ALLTRIM(ocfg.camp_leg_sufix),'')
IF !EMPTY(lcCampPrefix)
IF TYPE('&pcRul..'+lcCampPrefix) # 'U'
pParamP = &pcRul..&lcCampPrefix
ELSE
IF TYPE('&pcAct..'+lcCampPrefix) # 'U'
pParamP = &pcAct..&lcCampPrefix
ENDIF
ENDIF
ENDIF
IF !EMPTY(lcCampSufix)
IF TYPE('&pcRul..'+lcCampSufix) # 'U'
pParamS = &pcRul..&lcCampSufix
ELSE
IF TYPE('&pcAct..'+lcCampSufix) # 'U'
pParamS = &pcAct..&lcCampSufix
ENDIF
ENDIF
ENDIF
lcSel = [{call fconturi_analitice('] + ALLTRIM(gcs) + [','] + ALLTRIM(pcCont) + [',0,] + TRANSFORM(pParamP) + [,] + TRANSFORM(pParamS) + [)}]
lcCursor = 'crs_analitice'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
ENDIF
ENDIF
&& iau Primul Simbol Analitic din Tabel - ordonat pt ca e selectat cu Distinct
IF lnSucces > 0
SELECT crs_analitice
GO top
lcAnalitic = ALLTRIM(acont)
ENDIF
&& verificare analiticului cu Planul de Conturi
IF lnSucces > 0
lcSel = [SELECT cont,acont from ] + gcs + [.vplcont_analitic WHERE cont = '] + ALLTRIM(pcCont) + [' and acont = '] + ALLTRIM(lcAnalitic) + [' and an = ] + TRANSFORM(gnAn)
lcCursor = 'crs_verific'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
ENDIF
ENDIF
IF lnSucces > 0
IF RECCOUNT('crs_verific')=0
lnSucces = -1
ENDIF
ENDIF
IF USED('crs_cfg_ana')
USE IN crs_cfg_ana
ENDIF
IF USED('crs_verific')
USE IN crs_verific
ENDIF
IF USED('crs_analitice')
USE IN crs_analitice
ENDIF
IF USED('crs_verific')
USE IN crs_verific
ENDIF
IF lnSucces < 0
lcAnalitic = ''
ENDIF
SELECT (lcAlias)
RETURN lcAnalitic
ENDPROC
PROCEDURE assign_values
PARAMETERS tcObjDestinatie, tcObjSursa1, tcObjSursa2
lcSelRul = this.ct_grid_order1.cnumecursor
lcOdest = ALLTRIM(tcObjDestinatie)
lcOsursa1 = ALLTRIM(tcObjSursa1)
lcOsursa2 = ALLTRIM(tcObjSursa2)
SELECT (lcSelRul)
FOR i = 1 TO FCOUNT()
lcNumeCol = FIELD(i)
IF TYPE('&lcOsursa1..'+lcNumeCol) # 'U'
&lcodest..&lcNumeCol = &lcosursa1..&lcNumeCol
ENDIF
IF TYPE('&lcOsursa2..'+lcNumeCol) # 'U'
IF EMPTY(&lcodest..&lcNumeCol)
&lcodest..&lcNumeCol = &lcosursa2..&lcNumeCol
ENDIF
ENDIF
ENDFOR
ENDPROC
PROCEDURE bon_fiscal
PRIVATE pnSumaMp500
pnSumaMp500 = thisform.ct_factura1.txTotal.Value
ocasamp500 = CREATEOBJECT('frm_tichete',pnSumaMp500)
ocasamp500.show(1)
RELEASE ocasamp500
ENDPROC
PROCEDURE calcul_pret_vanzare
PARAMETERS tcTabel
LOCAL lnPretv, lnTvav, lnCoefAdaos, lnSuma, lcTabel
STORE 0 TO lnPretv, lnTvav, lnCoefAdaos, lnSuma
IF EMPTY(tcTabel)
lcTabel = this.ct_grid_order1.cnumecursor
ELSE
lcTabel = ALLTRIM(tcTabel)
ENDIF
SELECT (lcTabel)
SUM ROUND(ABS(cante*pret),gnPc) TO lnSuma
IF lnSuma <> 0
lnCoefAdaos = (pcobj.totftva-lnSuma)/lnSuma && coeficientul mediu de adaos
ELSE
lnCoefAdaos = 1
ENDIF
SELECT (lcTabel)
SET FILTER TO
REPLACE ALL proc_tvav WITH pcobj.proc_tva, procent WITH ROUND(lnCoefAdaos*100,2)
CALCULATE cnt() TO lnRecords
i = 0
SCAN
i = i + 1
REPLACE pretv WITH ROUND(pret + ROUND(pret*lnCoefAdaos,gnPc),gnPc) && modificare 14.09.2007
REPLACE tvav WITH ROUND(pretv*(proc_tvav-1),gnPc)
lnPretv = lnPretv + ROUND(pretv*cante,gnPC)
lnTvav = lnTvav + ROUND(tvav*cante,gnPC)
IF i = lnRecords
IF lnPretv # pcobj.totftva
REPLACE pretv WITH pretv + ROUND((pcobj.totftva - lnPretv)/cante,gnPc)
ENDIF
IF lnTvav # pcobj.tottva
REPLACE tvav WITH tvav + ROUND((pcobj.tottva - lnTvav)/cante,gnPc)
ENDIF
ENDIF
ENDSCAN
ENDPROC
PROCEDURE calcul_sume
Parameters tcTabel
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* Model =-1 : Nota fara contabilizare
*!* Model = 1 : Nota simpla cu contabilizare
*!* Model = 2 : NIR
*!* Model = 3 : BON/FACTURA VANZARE
*!* Model = 4 : Retur BON/FACTURA VANZARE
*!* Model = 5 : Transfer
*!* Model = 6 : Retur Transfer
*!* Model = 7 : Diferenta de pret
*!* Param1 = 1 : En-detail
*!* Param1 = 2 : En-gros
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* v 2.0.18 - am calculat total cu tva, total tva, total fara tva = diferenta, adaos
*!* daca gnTipGest = 6 (marfa la pret de vanzare) - valoarea fara tva = valoarea cu tva - valoarea cu tva
Store 0 To lnTotBaza, lnTotTva, lnBazaDiscount, lnBazaAdaos, lnTvaDiscount, lnTvaAdaos
If Pcount() = 0
tcTabel = Alltrim(This.ct_grid_order1.cnumecursor)
Endif
*lcCant = [cant] + IIF(INLIST(oset.model, 3, 4),[e],[]) && 3 = bon, bon retur
lcCant = This.osel_dr.cantitate
llCalculFact = Iif(oset.param1 = 2, .F., .T.) && daca e En-gros (vanzare) nu mai recalculez Total factura
If This.ct_discount1.Visible = .T.
lnBazaDiscount = This.ct_discount1.baza_discount
lnTvaDiscount = This.ct_discount1.tva_discount
Endif
If oset.adaos
Do Case
Case oset.param1 = 1 && factura de vanzare en-detail
Select (tcTabel)
Sum Round(&lcCant*Pret,gnPc) To Thisform.ntotal
*!* v 2.0.18 - am calculat total cu tva, total tva, total fara tva = diferenta, adaos
If gnTipGest <> 6 && calculez valftva si valtva pornind de la pretv in loc de (pretv+tvav)
Sum Round(&lcCant*pretv - &lcCant*Pret,gnPc) To lnBazaAdaos
*!* modificare 31.10.2006
*!* SUM ROUND(ROUND((pretv+tvav)/proc_tvav,gnPc)*&lcCant,gnPc) TO lnTotBaza
*!* SUM ROUND(ROUND((pretv+tvav)*(proc_tvav-1)/proc_tvav,gnPc)*&lcCant,gnPc) TO lnTotTva
Sum Round(pretv*&lcCant,gnPc) To lnTotBaza
Sum Round(Round(pretv*&lcCant,gnPc)*(proc_tvav-1),gnPc) To lnTotTva
*!* modificare 31.10.2006 ^
Else
Sum Round(Round(pretv+tvav,gnPc)*&lcCant,gnPc) To lnTotctva
Sum Round(Round((pretv+tvav)*&lcCant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) To lnTotTva
lnTotBaza = lnTotctva - lnTotTva
lnBazaAdaos = lnTotBaza - thisform.nTotal
EndIf
*!* v 2.0.18 ^
*!* modificare v 2.0.6
If oset.id_set = 75 && Transfer catre gestiune la pret de vanzare
*!* v 2.0.18 - am calculat total cu tva, total tva, total fara tva = diferenta, adaos
If gnTipGest <> 6 && calculez valftva si valtva pornind de la pretv in loc de (pretv+tvav)
Sum Round(tvav*&lcCant,gnPc) To lnTotTvav
Else
Sum Round(Round(pretv*&lcCant,gnPc)*(proc_tvav-1),gnPc) To lnTotTvav
EndIf
Thisform.tx_totalctva.Value = lnTotTvav + lnTotBaza
Endif
*!* modificare v 2.0.6 ^
Case oset.param1 = 2 && factura de vanzare en-gros
This.ct_factura1.totctva = pcobj.totctva
This.ct_factura1.totftva = pcobj.totftva
This.ct_factura1.tva = pcobj.tottva
Select (tcTabel)
Sum Round(&lcCant*Pret,gnPc) To Thisform.ntotal
lnTotBaza = This.ntotal
lnBazaAdaos = This.ct_factura1.totftva - Thisform.ntotal
This.ct_adaos1.baza_adaos = lnBazaAdaos
Otherwise
Select (tcTabel)
Sum Round(&lcCant*Pret,gnPc) To Thisform.ntotal
lnTotBaza = This.ntotal
Sum Round(Round(&lcCant*Pret,gnPc) * (proc_tva-1),gnPc) To lnTotTva
*!* v 2.0.18 - am calculat total cu tva, total tva, total fara tva = diferenta, adaos
If gnTipGest <> 6
Sum Round(&lcCant*pretv - &lcCant*Pret,gnPc) To lnBazaAdaos
Else
Sum Round(Round(pretv+tvav,gnPc)*&lcCant,gnPc) To lnTotctvaOther
Sum Round(Round((pretv+tvav)*&lcCant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) To lnTotTvaOther
lnTotfTvaOhter = m.lnTotctvaOther - m.lnTotTvaOther
lnBazaAdaos = m.lnTotfTvaOhter - m.lnTotBaza
EndIf
*!* v 2.0.18 - am calculat total cu tva, total tva, total fara tva = diferenta, adaos
Endcase
Select (tcTabel)
Sum procent To lnProcent
Calculate Cnt() To lnNrRecord
lnProcent = lnProcent/lnNrRecord
This.ct_adaos1.baza_adaos = lnBazaAdaos
This.ct_adaos1.proc_adaos = lnProcent
Else
Select (tcTabel)
Sum Round(&lcCant*Pret,gnPc) To Thisform.ntotal
lnTotBaza = Thisform.ntotal
Sum Round(Round(&lcCant*Pret,gnPc) * (proc_tva-1),gnPc) To lnTotTva
Endif
If oset.factura And llCalculFact
*!* modificare facturare in valuta 21.09.2007
If oset.cursval
Select (tcTabel)
*!* v 2.0.18 - am calculat total cu tva, total tva, total fara tva = diferenta, adaos
If gnTipGest <> 6 && calculez valftva si valtva pornind de la pretv in loc de (pretv+tvav)
Sum Round(&lcCant*pretvval,gnPc),Round(Round(&lcCant*pretvval,gnPc)*(proc_tvav-1),gnPc) To lnTotalFTvaVal,lnTotalTvaVal
Else
Sum Round(Round(pretvval*proc_tvav,gnPVal)*&lcCant,gnPVal) to lnTotalCTvaVal
Sum Round(Round(Round(pretvval*proc_tvav,gnPVal)*&lcCant,gnPVal)*(proc_tvav-1),gnPVal) To lnTotalTvaVal
lnTotalFTvaVal = m.lnTotalCTvaVal - m.lnTotalTvaVal
EndIf
*!* v 2.0.18 ^
With Thisform.ct_factura2
.totftva = lnTotalFTvaVal
.tva = lnTotalTvaVal
.totctva = lnTotalFTvaVal + lnTotalTvaVal
.Refresh()
Endwith
lnTotBaza = Round(lnTotalFTvaVal * poAct.Curs,gnPc)
lnTotTva = Round(lnTotalTvaVal * poAct.Curs,gnPc)
Endif
*!* modificare facturare in valuta 21.09.2007 ^
With This.ct_factura1
If oset.model = 2 && NIR
lnBazaAdaos = 0
lnTvaAdaos = 0
Endif
.totftva = lnTotBaza - lnBazaDiscount
.tva = lnTotTva - lnTvaDiscount
.totctva = .totftva + .tva
Endwith
Endif
*!* modificare v 2.0.6
Do Case
Case INLIST(oset.id_set , 216,257) && Intrare din transfer de la gest. valorica la pret de vanz.
Select (tcTabel)
*!* v 2.0.18 - am calculat total cu tva, total tva, total fara tva = diferenta, adaos
If gnTipGest <> 6 && calculez valftva si valtva pornind de la pretv in loc de (pretv+tvav)
Sum Round(pretv*cant,gnPc) To lnTotBaza216
Sum Round(tvav*cant,gnPc) To lnTotTvav
Else
Sum Round(Round(pretv+tvav,gnPc)*&lcCant,gnPc) To lnTotctva216
Sum Round(Round((pretv+tvav)*&lcCant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) To lnTotTvav
lnTotBaza216 = lnTotctva216 - lnTotTvav
EndIf
*!* v 2.0.18 ^
Thisform.tx_totalctva.Value = lnTotTvav + lnTotBaza216
*!* modificare v 2.0.8
*!* modificare v 2.0.13
*!* modificare v 2.0.15 - protocol
Case Inlist(oset.id_set, 230, 232, 233,261) && protocol
Select (tcTabel)
Sum Round((pretv+tvav)*cante,gnPc) To lnTotal230
Thisform.tx_totalctva.Value = lnTotal230
*!* modificare v 2.0.15 ^
*!* modificare v 2.0.13 ^
*!* modificare v 2.0.8 ^
Endcase
*!* modificare v 2.0.6 ^
This.txNir.Refresh
This.ct_factura1.Refresh
This.ct_factura2.Refresh
This.ct_adaos1.Refresh
ENDPROC
PROCEDURE caut_gestiune
PARAMETERS tnFel
IF EMPTY(tnFel)
tnFel = 0
ENDIF
IF tnFel = 1 && pret vanzare
lcCond = [nr_pag = 6]
ELSE
lcCond = [nr_pag in (2,3,4,5)]
ENDIF
pcselect = [select * from vnom_GESTIUNI]
pcFiltruOrig = [inactiv = 0 and ] + lcCond
pcfiltru = [1=2]
pcschema = []
pcorder = [NUME_gestiune]
pccoloane = [nume_gestiune,cgest]
pcTitlu = [Nume Gestiune Destinatie]
pcTitluColoane = [Gestiune,Indicativ]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'',.F.,pcFiltruOrig) && 11.07.2007
RETURN locauta
ENDPROC
PROCEDURE compensare
IF USED('xcont')
SELECT xcont
LOCATE FOR Pozitie # Fel_Cont AND Cu_Inregistrari = 1
IF FOUND()
pcContul = ALLTRIM(cont_part)
pnIdPart = idPart
pcNume = numepart
pnFelCont = Fel_Cont
pcDenumire = ALLTRIM(explic_cont)
pcCond = [ an = ?gnAn and luna = ?gnluna]
llval = .F. && Deocamdata e doar in lei
IF llval
pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ] + ALLTRIM(STR(&lcObj..id_valuta))
ELSE
pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
ENDIF
pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
pcschema = ['']
pcorder = ['']
PRIVATE podateintrod
STORE '' TO podateintrod
gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
lcFis = 'actcv' + ALLTRIM(pcContul)
IF USED(lcFis)
USE IN &lcFis
ENDIF
IF pnFelCont = 0
lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
ELSE
lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
ENDIF
&lcsel
SELECT (lcFis)
OPLATA=CREATEOBJECT('ocompensari')
* oplata.txtNume.value =lcNume
OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
OPLATA.pcFis = lcFis
OPLATA.SUMA = THIS.ct_factura1.totctva
OPLATA.pnFelCont = pnFelCont
OPLATA.SHOW(1)
*!* SELECT (lcfis)
*!* CALCULATE cnt() FOR ales TO LnBife
*!* IF LnBife=1
*!* LOCATE FOR ALES
*!* &M=nract
*!* ELSE
*!* &M=0
*!* ENDIF
ENDIF
ENDIF
ENDPROC
PROCEDURE do_adauga
PRIVATE pnpretvtva
pnpretvtva = 0
lcNomArt = this.ct_grid_search1.cnumecursor
SELECT (lcNomArt)
SCATTER NAME lorec BLANK MEMO
*!* 18.050.2007
*!* marius.mutu
*!* articolul nou sa fie initializat ca gestionabil (orice program fara ROAPRETURI)
IF TYPE('gcNumeProgram') = 'C' AND gcNumeProgram <> 'ROAPRETURI'
loRec.in_stoc = 1
ELSE
loRec.in_crm = 1
ENDIF
*!* 18.050.2007 ^
PRIVATE poCote_tva
STORE '' TO poCote_tva
DO Adauga_Modifica_Inregistrare WITH [catalog_articole],lorec,,[INSERT]
this.ct_grid_search1.actualizeaza_grid
ENDPROC
PROCEDURE do_modifica
lcNomArt = this.ct_grid_search1.cnumecursor
SELECT (lcNomArt)
SCATTER NAME lorec
PRIVATE poCote_tva
STORE '' TO poCote_tva
lnId = lorec.id_articol
DO Adauga_Modifica_Inregistrare WITH [catalog_articole],lorec,lnId,[UPDATE]
this.ct_grid_search1.actualizeaza_grid
ENDPROC
PROCEDURE do_sterge
LOCAL lnRecno, lcSelRul
lcSelRul = this.ct_grid_order1.cnumecursor
SELECT (lcSelRul)
*SCATTER NAME osterg
lnRecno = RECNO()
DELETE
*!* MODIFICAT 11.04.2006
*!* MARIUS.MUTU - AM PUS RECNO('RUL_TEMP') IN CURSORUL DE TRANSFER - LA STERGERE SA POT STERGE SI LINIA CORESPONDENTA DIN CRSTRANSFER
IF INLIST(oset.model,5,6,7) AND USED('crsTransfer')
SELECT crsTransfer
GOTO lnRecno
DELETE
this.ct_grid_order1.cb_tx_gestin.SetFocus()
ENDIF
this.ct_grid_order1.actualizeaza_grid
this.calcul_sume
ENDPROC
PROCEDURE do_termin
If This.inainte_de_do_termin()
lcSelRul = This.ct_grid_order1.cnumecursor
lcSelSt = This.ct_grid_search1.cnumecursor
gnButon = 1
pnButon = 1
Buton = 1
pnIesire = 1
*this.Hide
If Type('pnTipCasaMarcat') = 'U'
pnTipCasaMarcat = 1
Endif
If Type('glListareBonFiscal')<>'U' And glListareBonFiscal And pnTipCasaMarcat#1
lcStringmp500 = ''
Thisform.bon_fiscal()
If gnButon<>1
Return
Endif
Endif
Select actactan
If !Inlist(poact.id_set, 26001) && PV de productie
This.AlwaysOnTop = .F.
Do Form verificare With .T.,.T.,3 && cu buton de precedent
This.AlwaysOnTop = .T.
Endif
Do Case
Case gnButon = 3
*onirbon.visible = .t.
Do nrord With lcSelRul
Otherwise
This.Release
Endcase
Endif
ENDPROC
PROCEDURE do_verifica_sume
tcTabel = Alltrim(This.ct_grid_order1.cnumecursor)
Select (tcTabel)
Replace id_valuta_vanz With poAct.id_valuta_vanz All
Calculate Sum(Round(pretvval*cante,gnPc)),Sum(Round(pretv*cante,gnPc)) To lnTotalVal,lnTotalLei
lnTotalVal = Round(lnTotalVal*poAct.Curs,gnPc)
If lnTotalVal <> lnTotalLei
lnDiferenta = lnTotalVal - lnTotalLei
lnSemn = Sign(lnDiferenta)
*!* lnDiferenta = Abs(lnDiferenta)
lnDiferenta = lnDiferenta
lnDiferentaPretU = Exp((-1)*gnPc*Log(10))
lnModificari = 1
Do While lnModificari <> 0
lnModificari = 0
Select (tcTabel)
Scan
lnDiferentaPret = Round(lnDiferentaPretU*cante,gnPc)
lnSemnPret = Sign(lnDiferentaPret)
If Abs(lnDiferentaPret) <= Abs(lnDiferenta)
lnDiferenta = lnDiferenta - lnSemn * lnDiferentaPret
Replace pretv With pretv + lnSemn * lnSemnPret * lnDiferentaPretU
lnModificari = lnModificari + 1
Endif
Endscan
Enddo
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
Local lcSelRul, lcSelRulGr,lcContTr, lcAcontTr, lcRul, lcSql, lcCursor, lnSucces, lcCant, lnIdGestiuneTr
Store '' To lcContTr, lcAcontTr
lnIdGestiuneTr = 0
lcSelRulGr = This.ct_grid_order1.cnumecursor
Local lnRecno
lnRecno = 0
pnBazaV341 = 0
pnBazaV346 = 0
pnBazaVProd = 0
pnBazaVAmb = 0
pnBazaVal341 = 0
pnBazaVal346 = 0
pnBazaValProd = 0
pnBazaValAmb = 0
*!* 15.03.2007
Local llY
llY = .F.
*!* 15.03.2007 ^
*!* modificare facturare in valuta 24.09.2007
If oset.cursval
Thisform.do_verifica_sume()
Endif
*!* modificare facturare in valuta 24.09.2007 ^
Thisform.compensare && PT 542 ; se completeaza actactanul in adunadate
*** completez tabela ACTACTAN
If Type('oitem') = 'O'
If Pemstatus(oitem,'adunadate',5)
oitem.adunadate()
Endif
Endif
***
If Used('rul_temp')
Use In rul_temp
Endif
&& completez RUL_TEMP
lcRul = Alltrim(This.osel_dr.cfrom)
lcSql = [select v.*,0 as pretvval,0 as curs,0 as id_valuta_vanz,0 as id_jtva_coloana, v.id_gestiune as id_gestin, v.nume_gestiune as gestin, v.id_gestiune as id_gestout, v.nume_gestiune as gestout, 0 as nuInConturiX]
&& VRUL_OBINV NU ARE CODMATF, LOT, ADATA_EXPIRARE SI NU SE MAI SALVEAZA LOT, ADATA_EXPIRARE IN RUL
IF 'obinv'$LOWER(lcRul)
lcSql = lcSql + [,rpad(' ',50,' ') as codmatf, rpad(' ',50,' ') as lot, to_date('') as adata_expirare]
ENDIF
lcSql = lcSql + [ from ] + lcRul + [ where 1=2]
lcCursor = [rul_temp]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
Return .F.
Endif
Select rul_temp
Append From Dbf(lcSelRulGr)
lcSelRul = 'rul_temp'
If oset.productie
Do Case
Case Alltrim(Upper(oset.formproduc))='FRM_ALEGE_PROD_CANT'
Thisform.intrare_produs()
Case INLIST(Alltrim(Upper(oset.formproduc)),'FRM_ALEGE_SECTIE_COMANDA','FRM_ALEGE_SECTIE')
Select actactan
*!* modificare 03.09.2007
*!* Replace id_sectie With pnId_sectie, sectie With pcSectie For Inlist(nr_nota,1,2,5)
Replace id_sectie With 0, sectie With '' For Inlist(nr_nota,4)
Endcase
Endif
*!* 15.03.2007
*!* pentru intrare dintr-o gestiune tinuta doar valoric - trebuie contul
*!* daca exista Y (trebuie sa aleaga contul de transfer)
Select xscd As SCD, xscc As scc From XNOTE Where id_set = oset.id_set ;
AND (Inlist(Upper(Alltrim(xscd)),'Y') Or Inlist(Upper(Alltrim(xscc)),'Y'));
INTO Cursor crsY
If _Tally > 0 Or Inlist(oset.model, 5, 6, 7)
llY = .T.
Endif
Use In crsY
*!* 15.03.2007 ^
If Inlist(oset.model, 5, 6, 7) && TRANSFER, RETUR TRANSFER
Select (lcSelRul)
lnRecno = Recno()
If oset.id_set = 211 && TRANSFER GESTIUNE OB INV IN FOLOSINTA PE PERSOANA CATRE O MAGAZIE OB INV IN FOLOSINTA
Replace id_responsabil With 0, nresp With ''
Endif
If Used('crsTransfer')
Append From Dbf('crsTransfer')
If oset.id_set = 210 && TRANSFER MAGAZIE OB INV IN FOLOSINTA CATRE O GESTIUNE OB INV IN FOLOSINTA PE PERSOANA
Replace id_responsabil With 0, nresp With '' For Recno() > lnRecno
Endif
*!* modificare 22.05.2007
*** se modifica pretul de ach. pentru intrari
If oset.id_set = 218
Replace Pret With pretv For cant <> 0
Endif
*!* modificare 22.05.2007 ^
Endif
If !Inlist(oset.id_set,89, 210, 211, 212) && (FARA TRANSFER INTRE PERSOANE)
If Inlist(oset.id_seldr,11,16,18) && achizitie
poGestTr = This.caut_gestiune()
Endif
If oset.id_seldr = 12 && vanzare
poGestTr = This.caut_gestiune(1)
Endif
If Empty(poGestTr.Id_gestiune) && renunt
Return .F.
Endif
&& Dc poGestTr.Id_gestiune nu e empty aleg contul de transfer si analiticul
loCont = This.aleg_cont_transfer(poGestTr.Id_gestiune)
If Empty(loCont.Cont) && renunt
Return .F.
Endif
Select (lcSelRul)
Replace All id_gestin With poGestTr.Id_gestiune, gestin With poGestTr.nume_gestiune &&FOR cant <> 0
Do Case
Case Inlist(oset.model,5,7) && transfer
Replace All Id_gestiune With poGestTr.Id_gestiune, nume_gestiune With poGestTr.nume_gestiune For cant <> 0
Case oset.model = 6 && retur
Replace All Id_gestiune With poGestTr.Id_gestiune, nume_gestiune With poGestTr.nume_gestiune For cante <> 0
Endcase
lcContTr = loCont.Cont
lcAcontTr = loCont.acont
Select actactan
Replace All SCD With lcContTr, ascd With lcAcontTr, id_gestin With poGestTr.Id_gestiune, gestin With poGestTr.nume_gestiune For Upper(Alltrim(SCD)) = 'Y'
Select (lcSelRul)
If oset.model = 6
lcCant = Thisform.osel_dr.cantitate
Else
lcCant = [cant]
Endif
Replace All Cont With lcContTr, acont With lcAcontTr For &lcCant <> 0
*!* REPLACE ALL id_gestiunec WITH id_gestout FOR cant <> 0
*!* REPLACE ALL id_gestiunec WITH id_gestin FOR cante <> 0
*!* REPLACE ALL nuInConturiX WITH 1 FOR cant <> 0
Endif
Select (lcSelRul)
Replace All id_gestiunec With id_gestout For cant <> 0
Replace All id_gestiunec With id_gestin For cante <> 0
Replace All nuInConturiX With 1 For cant <> 0
Endif
Select (lcSelRul)
If oset.param1 = 2 And oset.factura && factura en-gros
This.calcul_pret_vanzare(lcSelRul)
*!* modificare 31.10.2006
pnTotalFactura = This.ct_factura1.totctva
pnBazaFactura = This.ct_factura1.totftva
pnTvaFactura = This.ct_factura1.tva
Select rul_temp
Calculate Sum(Round(Round(pretv,gnPc)*cante,gnPc)),;
SUM(Round(Round(Round(pretv,gnPc)*cante,gnPc)*(proc_tvav-1),gnPc)) ;
TO lnBazaFactura,lnTvaFactura
Do Case
Case lnBazaFactura <> pnBazaFactura And lnTvaFactura <> pnTvaFactura
lcMesaj = [Diferenta intre sumele introduse si cele rezultate din calcul:] + CRLF + ;
SPACE(23) + [Baza] + Space(18) + [TVA] + CRLF + ;
[Introduse:] + Space(5) + Str(pnBazaFactura,20,gnPc) + [ ] + Str(pnTvaFactura,20,gnPc) + ;
CRLF +;
[Calculate:] + Space(5) + Str(lnBazaFactura,20,gnPc) + [ ] + Str(lnTvaFactura,20,gnPc) + ;
CRLF + CRLF + ;
[Doriti sa continuati?]
Case lnBazaFactura <> pnBazaFactura
lcMesaj = [Diferenta intre sumele introduse si cele rezultate din calcul:] + CRLF + ;
SPACE(23) + [Baza] + CRLF + ;
[Introduse:] + Space(5) + Str(pnBazaFactura,20,gnPc) + CRLF+;
[Calculate:] + Space(5) + Str(lnBazaFactura,20,gnPc) + CRLF + CRLF + ;
[Doriti sa continuati?]
Case lnTvaFactura <> pnTvaFactura
lcMesaj = [Diferenta intre sumele introduse si cele rezultate din calcul:] + CRLF + ;
SPACE(24) + [TVA] + CRLF + ;
[Introduse:] + Space(5) + Str(pnTvaFactura,20,gnPc) + CRLF +;
[Calculate:] + Space(5) + Str(lnTvaFactura,20,gnPc) + CRLF + CRLF + ;
[Doriti sa continuati?]
Otherwise
lcMesaj = []
Endcase
If !Empty(lcMesaj)
If aMessagebox(lcMesaj,4+32+256,"Confirmare")==7
Return .F.
Else
pnBazaFactura = lnBazaFactura
pnTvaFactura = lnTvaFactura
pnTotalFactura = lnBazaFactura + lnTvaFactura
Endif
Endif
Else
pnTotalFactura = This.ct_factura1.totctva
pnBazaFactura = This.ct_factura1.totftva
pnTvaFactura = This.ct_factura1.tva
*!* modificare 31.10.2006 ^
Endif
pnDiscount = This.ct_discount1.baza_discount
pnTVADiscount = -This.ct_discount1.tva_discount
pnProcDiscount = This.ct_discount1.pnTva
pnIdJtvaDiscount = This.ct_discount1.nid_jtva_coloana
pnIdTvaDiscount = This.ct_discount1.nid_tva
*!* pnTotalFactura = THIS.ct_factura1.totctva
*!* pnBazaFactura = THIS.ct_factura1.totftva
*!* pnTvaFactura = THIS.ct_factura1.tva
pnBazaNir = [pret*cant]
pnBazaBon = [pret*cante]
pnTotalBon = This.ntotal
pnTotalNir = This.ntotal
*pnTvaNir = [tva*cant]
pnTvaNir = [pret*cant]
*!* modificari 31.10.2006
*!* *pnBazaVanz = [pretv*cante]
*!* pnBazaVanz = [ROUND(ROUND((pretv+tvav)/proc_tvav,gnPc)*cante,gnPc)]
*!* *pnTvaVanzIn = [tvav*cant]
*!* *pnTvaVanzIn = [pretv*cant]
*!* pnTvaVanzIn = [ROUND(ROUND((pretv+tvav)*(proc_tvav-1)/proc_tvav,gnPc)*cant,gnPc)]
*!* *pnTvaVanzOut = [tvav*cante]
*!* *pnTvaVanzOut = [pretv*cante]
*!* pnTvaVanzOut = [ROUND(ROUND((pretv+tvav)*(proc_tvav-1)/proc_tvav,gnPc)*cante,gnPc)]
pnBazaVanz = [ROUND(pretv*cante,gnPc)]
pnBazaVal = [ROUND(pretvval*cante,gnPVal)]
pnBazaValVanz = [ROUND(ROUND(pretvval*curs,gnPC)*cante,gnPC)]
*** 04.07.2007 - modificat in calcul si raport rap_nirtransfer_vanz valoare tva
*pnTvaVanzIn = [ROUND(ROUND(pretv*cant,gnPc)*(proc_tvav-1),gnPc)]
*!* modificare 17.09.2007
pnTvaVanzIn = [ROUND(tvav*cant,gnPc)]
*!* pnTvaVanzIn = [ROUND(ROUND(pretv*cant,gnPc)*(proc_tvav-1),gnPc)]
*!* modificare 17.09.2007 ^
*pnTvaVanzOut = [ROUND(ROUND(pretv*cante,gnPc)*(proc_tvav-1),gnPc)]
*!* modificare 17.09.2007
*!* pnTvaVanzOut = [ROUND(tvav*cante,gnPc)]
pnTvaVanzOut = [ROUND(ROUND(pretv*cante,gnPc)*(proc_tvav-1),gnPc)]
pnTvaVanzOut2 = [Round(tvav*cante,gnPc)] && modificare v 2.0.8
pnTvaVal = [ROUND(ROUND(pretvval*cante,gnPVal)*(proc_tvav-1),gnPVal)]
pnTvaValVanz = [ROUND(ROUND(ROUND(pretvval*curs,gnPC)*cante,gnPC)*(proc_tvav-1),gnPC)]
*!* modificare 17.09.2007 ^
***
If oset.id_set = 104 And gnImputare = 1
pnBazaVanz = [ROUND(pret_imputare*cante,gnPc)]
pnTvaVanzOut = [ROUND(ROUND(pret_imputare*cante,gnPc)*(proc_tvav-1),gnPc)]
Endif
*!* modificari 31.10.2006 ^
pnAdaosTotal = This.ct_adaos1.baza_adaos
pnBazaPlusAdaos = pnTotalBon + pnAdaosTotal
lcCant = Lower(Alltrim(This.osel_dr.cantitate))
If Inlist(oset.model, 5, 6, 7) && transfer
lcCant = 'cante'
Endif
pnAdaos = [pretv*] + lcCant + [-pret*] + lcCant
Select * From XNOTE Where id_set = oset.id_set Into Cursor crsNota
lcField = ''
Select xact
Go Top
For i = 1 To Fcount()
If Upper(Alltrim(Evaluate(Field(i)))) = 'SUMA'
lcField = Field(i)
Exit
Endif
Endfor
If Empty(lcField)
Return .T.
Endif
Select Distinct xscd As SCD, xscc As scc, Padr(&lcField,100,' ') As eticheta,x34 From crsNota ;
WHERE Inlist(Upper(Alltrim(xscd)),'X') Or Inlist(Upper(Alltrim(xscc)),'X');
INTO Cursor crsIcsi
If _Tally > 0
Select crsIcsi
Scan
lcEticheta = Lower(Alltrim(eticheta))
If Empty(lcEticheta)
aMessagebox('NECONFIGURAT xnote.dbf !',48,'Atentie!')
Loop
Endif
lcSCD = Upper(Alltrim(SCD))
lcSCC = Upper(Alltrim(scc))
lcIDJtva = Upper(Alltrim(x34))
If Inlist(oset.model, 5, 6, 7) && TRANSFER, RETUR TRANSFER
If lcSCD = 'Y'
lcSCD = lcContTr
Endif
If lcSCC = 'Y'
lcSCC = lcContTr
Endif
Endif
&& despart sumele pe gestiuni si sectii - pt formarea corecta a analiticelor
If 'pntvavanz' $ lcEticheta Or 'pnadaos' $ lcEticheta
*!* IF 'pnadaos'$lcEticheta
If Type('&lcEticheta') <> 'N'
lcEticheta = &lcEticheta
Endif
lcSuma = [SUM(ROUND(&lcEticheta,gnPc))]
*!* ELSE
*!* lcEticheta = &lcEticheta
*!* lcSuma = [SUM(ROUND(ROUND(&lcEticheta,gnPc)*(proc_tvav-1),gnPc))]
*!* ENDIF
lcSelect = [SELECT CONT,ACONT,id_gestiune,id_sectie,sectie,] + ;
IIF(Type(lcSelRul+'.id_jtva_coloana')#'U',[id_jtva_coloana],[NULL]) + [ as id_jtva_coloana,] + ;
IIF(Type(lcSelRul+'.proc_tvav')#'U',[proc_tvav],[0000]) + [ as proc_tva,] +;
IIF(Type(lcSelRul+'.id_gestin')#'U',[id_gestin],[000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ AS suma ] + ;
[FROM ] + lcSelRul + [ where nuInConturiX = 0 into cursor crsConturiX ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11]
&lcSelect
Else
If Type('&lcEticheta') <> 'N'
lcEticheta = &lcEticheta
Endif
lcSuma = [SUM(ROUND(&lcEticheta,gnPc))]
*!* lcSuma = [SUM(ROUND(]+ALLTRIM(STR(lcEticheta,20,6))+[,gnPc))]
lcSelect = [SELECT CONT,ACONT,id_gestiune,id_sectie,sectie,] + ;
IIF(Type(lcSelRul+'.id_jtva_coloana')#'U',[id_jtva_coloana],[NULL]) + [ as id_jtva_coloana,] + ;
IIF(Type(lcSelRul+'.proc_tva')#'U',[proc_tva],[0000]) + [ as proc_tva,] +;
IIF(Type(lcSelRul+'.id_gestin')#'U',[id_gestin],[000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ AS suma ] + ;
[FROM ] + lcSelRul + [ where nuInConturiX = 0 into cursor crsConturiX ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11]
&lcSelect
Endif
Select crsConturiX
Scan For suma*0 = 0 && sa evit cazurile in care suma este ******
Scatter Name loCX
Select actactan
Locate For Upper(Alltrim(SCD)) = lcSCD And Upper(Alltrim(scc)) = lcSCC
If Found()
Scatter Name loActactan
With loActactan
If Upper(Alltrim(.SCD)) = 'X'
.SCD = loCX.Cont
.ascd = Nvl(loCX.acont,'')
.suma = loCX.suma
If !Empty(lcIDJtva) && AND !INLIST(oset.model,5,6)
.id_jtva_coloana = loCX.id_jtva_coloana
.proc_tva = loCX.proc_tva
Else
.id_jtva_coloana = Null
.proc_tva = 0
Endif
.id_gestin = loCX.id_gestin
.gestin = loCX.gestin
.id_gestout = loCX.id_gestout
.gestout = loCX.gestout
.id_sectie = loCX.id_sectie
.sectie = loCX.sectie
Endif
If Upper(Alltrim(.scc)) = 'X'
.scc = loCX.Cont
.ascc = Nvl(loCX.acont,'')
.suma = loCX.suma
*!* modificare 04.10.2007
*!* If Left(.scd,1) = '6' And Alltrim(.scd) # '607' And Inlist(oset.model, 3, 4) && BON, RETUR
*!* If .scc = '381'
*!* .scd = '608'
*!* Else
*!* .scd = Strtran(.scc, '3', '6', 1, 1)
*!* Endif
*!* Endif
If Inlist(oset.model,3,4)
Select crsconfigcvc
Locate For Cont = Upper(Alltrim(.scc))
If Found() AND (EMPTY(.scd) OR INLIST(LEFT(.scd,1), '6','7'))
.scd = ALLTRIM(cont_chelt)
Else
If Left(.scd,1) = '6' And Alltrim(.scd) # '607'
If .scc = '381'
.scd = '608'
Else
.scd = Strtran(.scc, '3', '6', 1, 1)
Endif
Endif
Endif
SELECT actactan
Endif
*!* modificare 04.10.2007 ^
If !Empty(lcIDJtva) && AND !INLIST(oset.model,5,6)
.id_jtva_coloana = loCX.id_jtva_coloana
.proc_tva = loCX.proc_tva
Else
.id_jtva_coloana = Null
.proc_tva = 0
Endif
.id_gestin = loCX.id_gestin
.gestin = loCX.gestin
.id_gestout = loCX.id_gestout
.gestout = loCX.gestout
.id_sectie = loCX.id_sectie
.sectie = loCX.sectie
Endif
Endwith
Append Blank
Gather Name loActactan
Endif && IF FOUND()
Select crsConturiX
Endscan
Select crsIcsi
Endscan
Delete From actactan Where Inlist(Upper(Alltrim(SCD)),'X') Or Inlist(Upper(Alltrim(scc)),'X')
Endif
*!* 15.03.2007 ^
*!* inlocuiesc Y - la notele care nu sunt transfer sau retur transfer (intrare dintr-o gestiune tinuta valoric - trebuie contul)
If !Inlist(oset.model, 5, 6, 7) And llY
Select rul_temp
Go Top
lnIdGestiuneTr = Id_gestiune
If !Empty(lnIdGestiuneTr)
loCont = This.aleg_cont_transfer(lnIdGestiuneTr)
lcContTr = loCont.Cont
lcAcontTr = loCont.acont
Select actactan
Replace All SCD With lcContTr, ascd With lcAcontTr For Upper(Alltrim(SCD)) = 'Y'
Replace All scc With lcContTr, ascc With lcAcontTr For Upper(Alltrim(scc)) = 'Y'
Endif
*!* 20.03.2007
*!* cont de transfer - cont din nomenclator
*!* in rul aj trebuie sa am pe intrari contul din debit (contul de transfer)
If oset.model = 2 Or Upper(Alltrim(oset.formgest)) = 'NIR'
Select rul_temp
Replace All Cont With lcContTr
Endif
Endif
*!* 15.03.2007 ^
Select crsNota
Scan For !(Inlist(Upper(Alltrim(xscd)),'X') Or Inlist(Upper(Alltrim(xscc)),'X'))
Scatter Name loNota
lcVariabila = Lower(Alltrim(loNota.&lcField))
lcIDJtva = Upper(Alltrim(x34))
If Inlist(oset.model, 5, 6, 7) Or llY && TRANSFER, RETUR TRANSFER
If loNota.xscd = 'Y'
loNota.xscd = lcContTr
loNota.xAscd = lcAcontTr
Endif
If loNota.xscc = 'Y'
loNota.xscc = lcContTr
loNota.xAscc = lcAcontTr
Endif
Endif
Do Case
Case 'pntvanir' $ lcVariabila
lcVariabila = &lcVariabila
lcSelect = [SELECT b.id_tva as id_jtva_coloana,a.proc_tva,a.id_sectie,a.id_gestiune,a.sectie,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
[SUM(ROUND(ROUND(&lcVariabila,gnPc)*(a.proc_tva-1),gnPc)) as suma ] + ;
[FROM ] + lcSelRul + [ a LEFT JOIN jtva_coloane b ON a.id_jtva_coloana = b.id_jtva_coloana ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9]
&lcSelect
Select crsTva
i = 0
Scan For suma*0 = 0 && sa evit cazurile in care suma este ******
i = i + 1
If i = 1
Select actactan
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
Scatter Name loAct
Delete
Else
Scatter Name loAct Blank
Endif
Endif
Select crsTva
Scatter Name loTva
Select actactan
Append Blank
Gather Name loAct
Gather Name loTva
If Empty(lcIDJtva)
Replace id_jtva_coloana With Null,proc_tva With 0
Endif
Endscan
Case 'pnbazavanz'$lcVariabila Or 'pntvavanz'$lcVariabila
*!* IF 'pnbazavanz'$lcVariabila
&& 05.09.2007
&& marius.mutu
&& linia If 'pnbazavanz'$lcVariabila intra mereu pe else si punea o baza cu id_jtva_coloana de tva
lcVariabilatemp = lcVariabila
lcVariabila = &lcVariabila
lcSuma = [sum(ROUND(&lcVariabila,gnPc))]
*!* ELSE
*!* lcVariabila = &lcVariabila
*!* lcSuma = [SUM(ROUND(ROUND(&lcVariabila,gnPc)*(proc_tvav-1),gnPc))]
*!* ENDIF
If 'pnbazavanz'$lcVariabilatemp
lcSelect = [SELECT a.id_jtva_coloana,a.proc_tvav,a.id_sectie,a.id_gestiune,a.sectie,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9]
Else
lcSelect = [SELECT b.id_tva as id_jtva_coloana,a.proc_tvav,a.id_sectie,a.id_gestiune,a.sectie,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a LEFT JOIN jtva_coloane B ON A.ID_JTVA_COLOANA = B.ID_JTVA_COLOANA ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9]
Endif
&lcSelect
Select crsTva
i = 0
Scan For suma*0 = 0 && sa evit cazurile in care suma este ******
i = i + 1
If i = 1
Select actactan
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
Scatter Name loAct
Delete
Else
Scatter Name loAct Blank
Endif
Endif
Select crsTva
Scatter Name loTva
Select actactan
Append Blank
Gather Name loAct
Gather Name loTva
Replace proc_tva With loTva.proc_tvav
If Empty(lcIDJtva)
Replace id_jtva_coloana With Null
Endif
Endscan
*!* modificare facturare in valuta 21.09.2007
Case 'pnbazaval'$lcVariabila Or 'pntvaval'$lcVariabila
lcVariabilatemp = lcVariabila
lcVariabila = &lcVariabila
lcSumaVal = [sum(&lcVariabila)]
If 'pnbazaval'$lcVariabilatemp
*!* lcSuma = [SUM(]+pnBazaValVanz+[)]
lcSuma = [ROUND(SUM(]+pnBazaVal+[)*a.curs,gnPc)]
lcSelect = [SELECT a.id_jtva_coloana,a.proc_tvav,a.id_sectie,a.id_gestiune,a.sectie,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
[NVL(a.id_valuta_vanz,0) as id_valuta,] + ;
IIF(TYPE(lcSelRul+'.curs') #'U',[a.curs],[0]) + [ as curs,] + ;
lcSumaVal + [ as suma_val,] + lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11]
Else
*!* lcSuma = [SUM(]+pnTvaValVanz+[)]
lcSuma = [ROUND(SUM(]+pnTvaVal+[)*a.curs,gnPc)]
lcSelect = [SELECT b.id_tva as id_jtva_coloana,a.proc_tvav,a.id_sectie,a.id_gestiune,a.sectie,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
[NVL(a.id_valuta_vanz,0) as id_valuta,] + ;
IIF(TYPE(lcSelRul+'.curs') #'U',[a.curs],[0]) + [ as curs,] + ;
lcSumaVal + [ as suma_val,] + lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a LEFT JOIN jtva_coloane B ON A.ID_JTVA_COLOANA = B.ID_JTVA_COLOANA ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9,10,11]
Endif
&lcSelect
Select crsTva
i = 0
Scan For suma_val*0 = 0 && sa evit cazurile in care suma este ******
i = i + 1
If i = 1
Select actactan
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
Scatter Name loAct
Delete
Else
Scatter Name loAct Blank
Endif
Endif
Select crsTva
Scatter Name loTva
AddProperty(loTva,[nume_val],poAct.nume_val_vanz)
Select actactan
Append Blank
Gather Name loAct
Gather Name loTva
Replace proc_tva With loTva.proc_tvav
If Empty(lcIDJtva)
Replace id_jtva_coloana With Null
Endif
Endscan
*!* modificare facturare in valuta 21.09.2007 ^
Case 'pnbazabon'$lcVariabila
lcSuma = [SUM(ROUND(&lcEticheta,gnPc))]
*!* lcSelect = [SELECT CONT,ACONT,id_gestiune,id_sectie,sectie,] + ;
*!* IIF(Type(lcSelRul+'.id_jtva_coloana')#'U',[id_jtva_coloana],[NULL]) + [ as id_jtva_coloana,] + ;
*!* IIF(Type(lcSelRul+'.proc_tva')#'U',[proc_tva],[0000]) + [ as proc_tva,] +;
*!* IIF(Type(lcSelRul+'.id_gestin')#'U',[id_gestin],[000000000]) + [ as id_gestin,] + ;
*!* IIF(Type(lcSelRul+'.id_gestout')#'U',[id_gestout],[000000000]) + [ as id_gestout,] + ;
*!* IIF(Type(lcSelRul+'.gestin')#'U',[gestin],[SPACE(50)]) + [ as gestin,] + ;
*!* IIF(Type(lcSelRul+'.gestout')#'U',[gestout],[SPACE(50)]) + [ as gestout,] + ;
*!* lcSuma + [ AS suma ] + ;
*!* [FROM ] + lcSelRul + [ where nuInConturiX = 0 into cursor crsTva ] + ;
*!* [GROUP BY 1,2,3,4,5,6,7,8,9,10,11]
lcSelect = [SELECT a.id_jtva_coloana,a.proc_tvav,a.id_sectie,a.id_gestiune,a.sectie,] + ;
IIF(Type(lcSelRul+'.id_gestin')#'U',[a.id_gestin],[0000000000]) + [ as id_gestin,] + ;
IIF(Type(lcSelRul+'.id_gestout')#'U',[a.id_gestout],[000000000]) + [ as id_gestout,] + ;
IIF(Type(lcSelRul+'.gestin')#'U',[a.gestin],[SPACE(50)]) + [ as gestin,] + ;
IIF(Type(lcSelRul+'.gestout')#'U',[a.gestout],[SPACE(50)]) + [ as gestout,] + ;
lcSuma + [ as suma ] + ;
[FROM ] + lcSelRul + [ a ] + ;
[INTO CURSOR crsTva ] + ;
[GROUP BY 1,2,3,4,5,6,7,8,9]
&lcSelect
Select crsTva
i = 0
Scan For suma*0 = 0 && sa evit cazurile in care suma este ******
i = i + 1
If i = 1
Select actactan
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
Scatter Name loAct
Delete
Else
Scatter Name loAct Blank
Endif
Endif
Select crsTva
Scatter Name loTva
Select actactan
Append Blank
Gather Name loAct
Gather Name loTva
Replace proc_tva With loTva.proc_tvav
If Empty(lcIDJtva)
Replace id_jtva_coloana With Null
Endif
Endscan
Otherwise
Select actactan
Locate For SCD = loNota.xscd And scc = loNota.xscc And suma = 0
If Found()
If !Empty(lcVariabila)
Replace suma With &lcVariabila
Endif
Endif
If 'discount' $ lcVariabila
Replace proc_tva With pnProcDiscount,id_jtva_coloana With &lcIDJtva
Endif
Endcase
Endscan
If Used('crsIcsi')
Use In crsIcsi
Endif
If Used('crsConturiX')
Use In crsConturiX
Endif
If Used('crsNota')
Use In crsNota
Endif
*!* IF USED('rul_temp')
*!* USE IN rul_temp
*!* ENDIF
*!* && completez RUL_TEMP
*!* lcRul = ALLTRIM(THIS.osel_dr.cfrom)
*!* lcSql = [select * from ] + gcS + [.] + lcRul + [ where 1=2]
*!* lcCursor = [rul_temp]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* IF lnSucces < 0
*!* RETURN .F.
*!* ENDIF
*!* lcCant = LOWER(ALLTRIM(this.osel_dr.cantitate))
*!* lcCantTransf = [cant] + iif(lcCant = [cante],[],[e])
*!* IF INLIST(oset.model, 5, 6) && TRANSFER, RETUR TRANSFER
*!* SELECT * FROM (lcSelRul) INTO CURSOR crsTransf NOFILTER READWRITE
*!* REPLACE ALL &lcCantTransf WITH &lcCant FOR !EMPTY(&lcCant)
*!* REPLACE ALL &lcCant WITH 0
*!* APPEND FROM DBF(lcSelRul)
*!* IF oset.id_set <> 89 && TRANSFER INTRE PERSOANE
*!* REPLACE ALL cont WITH lcContTr, acont WITH lcAcontTr FOR &lcCantTransf # 0
*!* ELSE
*!* SELECT (this.ct_grid_search1.cnumecursor)
*!* SCATTER NAME loStg
*!* SELECT crsTransf
*!* REPLACE ALL id_gestin WITH id_gestout
*!* REPLACE ALL id_responsabil WITH loStg.id_responsabil, nresp WITH loStg.nresp FOR cante <> 0
*!* ENDIF
*!* REPLACE ALL id_gestiune WITH id_gestin,nume_gestiune WITH gestin FOR &lcCantTransf <> 0
*!* REPLACE ALL id_gestiune WITH id_gestout, nume_gestiune WITH gestout FOR &lcCant <> 0
*!*
*!* SELECT rul_temp
*!* APPEND FROM DBF('crsTransf')
*!* IF USED('crsTransf')
*!* USE IN crsTransf
*!* ENDIF
*!*
*!* lcSel = [SELECT id_gestiune from ] + gcs + [.vnom_gestiuni WHERE nr_pag = 6]
*!* lcCursor = 'crsIdVanzare'
*!* lnSucces = goExecutor.oExecute(lcSel,lcCursor)
*!* IF lnSucces < 0
*!* MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
*!* ENDIF
*!*
*!* IF lnSucces > 0
*!* UPDATE rul_temp SET pretv = 0, tvav = 0, proc_tvav = 0 WHERE id_gestiune NOT in (select id_gestiune from crsIdVanzare)
*!* USE IN crsIdVanzare
*!* ENDIF
*!* ELSE
*!* SELECT rul_temp
*!* APPEND FROM DBF(lcSelRul)
*!* ENDIF
*!* IF INLIST(oset.model, 5, 6) AND USED('crsTransfer') && TRANSFER, RETUR TRANSFER
*!* SELECT rul_temp
*!* APPEND FROM DBF('crsTransfer')
*!* ENDIF
*!* SELECT rul_temp
*!* APPEND FROM DBF(lcSelRul)
*!* modificare 20.04.2007 & 04.05.2007 & 09.05.2007
Do Case
Case Inlist(oset.id_set,61,62,63,226,258)
Select actactan
If oset.cursval
Calculate Sum(suma) To pnBazaValProd For Alltrim(scc)= '345'
Calculate Sum(suma) To pnBazaVal341 For Alltrim(scc)= '341'
Calculate Sum(suma) To pnBazaVal346 For Alltrim(scc)= '346'
Calculate Sum(suma) To pnBazaValAmb For Alltrim(scc) = '381'
pnBazaVProd = pnBazaValProd
pnBazaVAmb = pnBazaValAmb
pnBazaV341 = pnBazaVal341
pnBazaV346 = pnBazaVal346
Else
Calculate Sum(suma) To pnBazaVProd For Alltrim(scc)= '345'
Calculate Sum(suma) To pnBazaVAmb For Alltrim(scc) = '381'
Calculate Sum(suma) To pnBazaV341 For Alltrim(scc)= '341'
Calculate Sum(suma) To pnBazaV346 For Alltrim(scc)= '346'
Endif
Replace suma With suma - pnBazaVProd - pnBazaVAmb - pnBazaV341 - pnBazaV346 For Alltrim(SCD) = '4111' And Alltrim(scc) = '707'
*!* 19.01.2015: 701-> 7015
*!* Replace suma With pnBazaVProd + pnBazaV341 + pnBazaV346 For Alltrim(SCD) = '4111' And Alltrim(scc) = '701'
Replace suma With pnBazaVProd + pnBazaV341 + pnBazaV346 For Alltrim(SCD) = '4111' And Alltrim(scc) = '7015'
*!* 19.01.2015: 701-> 7015 ^
Replace SCD With '711',suma With pnBazaVProd For Alltrim(SCD) = '607' And Alltrim(scc) = '345'
Replace SCD With '711',suma With pnBazaV341 For Alltrim(SCD) = '607' And Alltrim(scc) = '341'
Replace SCD With '711',suma With pnBazaV346 For Alltrim(SCD) = '607' And Alltrim(scc) = '346'
Replace scc With '348' For INLIST(Alltrim(SCD),'341','345','346') And Alltrim(scc) = '378'
Replace SCD With '348',scc With '711' For Alltrim(SCD) = '378' And INLIST(Alltrim(scc),'341','345','346')
Replace suma With pnBazaVAmb For Alltrim(SCD) = '4111' And Alltrim(scc) = '708'
Replace SCD With '608' For Alltrim(SCD) = '607' And Alltrim(scc) = '381'
Replace scc With '388' For Alltrim(SCD) = '381' And Alltrim(scc) = '378'
Replace SCD With '388' For Alltrim(SCD) = '378' And Alltrim(scc) = '381'
Delete For suma = 0
Case Inlist(oset.id_set,79,83,206,225)
Select actactan
Replace scc With '711' For Alltrim(SCD) = '348'
*!* modificare 22.05.2007
Case oset.id_set = 218 && diferenta de pret
Select (lcSelRul)
Replace All pretv With 0,tvav With 0,proc_tvav With 0,procent With 0
Select actactan
Replace id_gestin With 0,gestin With '' For nr_nota = 2
*!* Replace id_gestin With id_gestout, gestin With gestout,id_gestout With 0,gestout With '',scc WITH '711' For nr_nota = 4
*!* Replace scc WITH '711' For nr_nota = 4
Replace SCD With '348' For nr_nota = 2 And SCD <> '381'
Replace SCD With '388' For nr_nota = 2 And SCD = '381'
Replace scc With '388' For nr_nota = 1 And SCD = '381'
*!* modificare 22.05.2007 ^
*!* modificare 16.08.2007
Case INLIST(oset.id_set,53,213,57,58)
Select actactan
Replace scd With '607' For scc = '371'
Replace scd With '711' For scc = '345' && modificare 03.10.2007
*!* modificare 16.08.2007 ^
*!* modificare v 2.0.6
*!* modificare v 2.0.13
*!* modificare v 2.0.15 - protocol
Case InList(oset.id_set, 230, 232, 233,261)
Select actactan
Replace suma With suma * (-1) For nr_nota = 1
*!* modificare v 2.0.15 ^
*!* modificare v 2.0.13 ^
*!* modificare v 2.0.6 ^
Endcase
*!* modificare ^
&& ordonez notele contabile in ACTACTANSELECT actactan
Select actactan
Sum suma To lnSume
If lnSume <> 0
lcCondDele = [!(suma = 0 and !(((left(scd,1) = '3' and left(scc,2) = '40') OR (left(scd,2) = '41' and left(scc,1) = '7')) AND proc_tva # 1))]
Else
lcCondDele = [suma = 0 AND nr_nota = 1 ]
Endif
Select * From actactan Into Cursor crsActActan Where &lcCondDele Or Inlist(id_set, 89, 210, 211, 212) Order By nr_nota NOFILTER Readwrite
Select actactan
Delete From actactan
Append From Dbf('crsactactan')
If Used('crsactactan')
Use In crsActActan
Endif
*** && completare analitice
Select actactan
Scan For Empty(Nvl(ascd,''))
Scatter Name loActactan
If Type('loActactan.cont') = 'U'
x = AddProperty(loActactan,'cont',loActactan.SCD)
Endif
If oset.model = 2 And Type('loActactan.id_gestiune') = 'U' && NIR
x = AddProperty(loActactan,'id_gestiune',loActactan.id_gestin)
Endif
If Inlist(oset.model, 3, 4) And Type('loActactan.id_gestiune') = 'U' && BON, RETUR
x = AddProperty(loActactan,'id_gestiune',loActactan.id_gestout)
Endif
loActactan.ascd = This.assign_analitic(loActactan.SCD,This.cobj,'loActactan')
Replace ascd With loActactan.ascd
Select actactan
Endscan
Select actactan
Scan For Empty(Nvl(ascc,''))
Scatter Name loActactan
If Type('loActactan.cont') = 'U'
x = AddProperty(loActactan,'cont',loActactan.scc)
Endif
If oset.model = 2 And Type('loActactan.id_gestiune') = 'U' && NIR
x = AddProperty(loActactan,'id_gestiune',loActactan.id_gestin)
Endif
If Inlist(oset.model, 3, 4) And Type('loActactan.id_gestiune') = 'U' && BON, RETUR
x = AddProperty(loActactan,'id_gestiune',loActactan.id_gestout)
Endif
loActactan.ascc = This.assign_analitic(loActactan.scc,This.cobj,'loActactan')
Replace ascc With loActactan.ascc
Select actactan
Endscan
If Used('rul_temp_OBINV')
Use In RUL_TEMP_OBINV
Endif
Select * From rul_temp Where Cont = gcContObinv And !Deleted() Into Cursor RUL_TEMP_OBINV NOFILTER Readwrite
Select rul_temp
Delete All For Cont = gcContObinv
If gnCMP = 1 And oset.model = 2 && NIR
Thisform.analiza_cmp('rul_temp', 'actactan')
*!* modificare 24.11.2006
Else
Select rul_temp
Replace id_tip_rulaj With oset.id_tip_rul For id_tip_rulaj = 0
*!* modificare 24.11.2006 ^
Endif
If Type('loActactan') = 'O'
Release loActactan
Endif
Do Case
Case oset.id_set=69
*!* modificare 07.03.2006 && 24.02.2007
Select actactan
Calculate Max(proc_tva) To lnMaxProcTva
Calculate Min(id_jtva_coloana) For proc_tva = lnMaxProcTva To lnIdJtvaColoana
Scan For Left(SCD,3)='411' Or Left(scc,3)='411'
If proc_tva=0
Replace proc_tva With lnMaxProcTva,id_jtva_coloana With lnIdJtvaColoana
Endif
Endscan
*!* sfarsit modificare 07.03.2006
Case oset.id_set = 213
*!* modificare 12.02.2007 (bon de consum pe lucrari in curs de executie la Materii prime si materiale)
Select rul_temp
Replace All pretv With ROUND(Pret,gnPc) && modificare 14.09.2007
*!* modificare 12.02.2007 ^
*!* modificare v 2.0.6
Case Inlist(oset.id_set,215,216,257)
Select (lcSelRul)
Replace All id_gestiunec With poAct.id_gestout,id_gestout with poAct.id_gestout,gestout With poAct.gestout
Select actactan
Replace All id_gestout With poAct.id_gestout,gestout With poAct.gestout
*!* modificare v 2.0.6 ^
Endcase
Select rul_temp
Locate For Empty(Id_gestiune)
If Found()
aMessagebox('Nu ati ales gestiunea!',48,"Atentie")
Return .F.
Endif
Select RUL_TEMP_OBINV
Locate For Empty(Id_gestiune)
If Found()
aMessagebox('Nu ati ales gestiunea!',48,"Atentie")
Return .F.
Endif
If oset.productie
If Alltrim(Upper(oset.formproduc))='FRM_ALEGE_PROD_CANT'
Select a.*, Recno() As ninreg ;
FROM actactan a ;
WHERE Substr(scc,1,1)='3' And Alltrim(scc)<>'301' ;
INTO Cursor cModificari
Select cModificari
Scan
Scatter Name loLinie
lcSCC = Alltrim(scc)
lnInreg = ninreg
Select actactan
Replace scc With lcSCC, SCD With '301' For Recno() = lnInreg
Append Blank
loLinie.SCD = '601'
loLinie.scc = '301'
Gather Name loLinie
Select cModificari
Endscan
If Used('cModificari')
Use In cModificari
Endif
Endif
Endif
*!* 02.06.2008
*!* completez partenerii corespondenti pentru cont-gestin, cont-gestout
lcSql = [Select cont, id_gestiune, id_part, denumire from vasociere_parteneri_gestiuni]
lnSucces = goExecutor.oExecute(lcSql, "crsGestiuniParteneri")
If lnSucces < 0
AMessageBox(goExecutor.oExecute,0+16,"Eroare")
Else
Select actactan
Scan FOR Empty(ID_PARTD) OR Empty(ID_PARTC)
Scatter name loRec
If Empty(actactan.id_partd)
Select crsGestiuniParteneri
Locate for Alltrim(cont) == Alltrim(loRec.scd) and id_gestiune = Iif(!Empty(loRec.id_gestin), loRec.id_gestin, loRec.id_gestout)
If Found()
Replace id_partd with crsGestiuniParteneri.id_part, partd with crsGestiuniParteneri.denumire in actactan
EndIf
EndIf
If Empty(actactan.id_partc)
Select crsGestiuniParteneri
Locate for Alltrim(cont) == Alltrim(loRec.scc) and id_gestiune = Iif(!Empty(loRec.id_gestout), loRec.id_gestout, loRec.id_gestin)
If Found()
Replace id_partc with crsGestiuniParteneri.id_part, partc with crsGestiuniParteneri.denumire in actactan
EndIf
EndIf
EndScan
Use in (Select('crsGestiuniParteneri'))
EndIf
Select actactan
Go Top
Return .T.
ENDPROC
PROCEDURE intrare_produs
Select rul_temp
Append Blank
Replace id_articol With pnId_articol, ;
denumire With pcDenumire, ;
cant With pnCant, ;
pret With ROUND(Thisform.ntotal/pnCant,gnPPret), ;
id_gestiune With pnId_gestiune, nume_gestiune With pcGestiune, ;
id_gestin With pnId_gestiune, gestout With pcGestiune, ;
cont With pcCont_articol, ;
nnir With poact.nnir, ;
dataact With poact.dataact, ;
datain With poact.dataact, ;
id_set With poact.id_set
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL lcCtrGrid, lcCtrCriteriu, lcControl
lcCtrGrid = []
lcCtrCriteriu = []
lcControl = UPPER(THIS.ACTIVECONTROL.NAME)
IF lcControl = '_GRID1'
lcCtrGrid = UPPER(THIS.ACTIVECONTROL.COMMENT)
ENDIF
IF lcControl = 'CRITERIU'
lcCtrCriteriu = UPPER(THIS.ACTIVECONTROL.COMMENT)
ENDIF
DO CASE
CASE nKeyCode = 13 AND 'GRD_ST' $ lcCtrGrid
NODEFAULT
THISFORM.urmator1.comMAND1.SETFOCUS
CASE nKeyCode = 13 AND 'GRD_DR' $ lcCtrGrid
NODEFAULT
THISFORM.ct_grid_search1.Cb_tx_cautare1.TEXT.SETFOCUS
CASE (nKeyCode >=33 AND nKeyCode <=122) AND ('CRITERIU_ST' $ lcCtrCriteriu OR 'GRD_ST' $ lcCtrGrid)
NODEFAULT
THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE = ALLTRIM(THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE) + CHR(nKeyCode)
THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.SETFOCUS
KEYBOARD '{END}'
CASE (nKeyCode = 127) AND ('CRITERIU_ST' $ lcCtrCriteriu OR 'GRD_ST' $ lcCtrGrid) && backspace
NODEFAULT
THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE = LEFT(ALLTRIM(THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE),LEN(ALLTRIM(THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.VALUE))-1)
THIS.ct_grid_search1.Cb_tx_cautare1.TEXT.SETFOCUS
KEYBOARD '{END}'
CASE (nKeyCode >=33 AND nKeyCode <=122) AND ('CRITERIU_DR' $ lcCtrCriteriu OR 'GRD_DR' $ lcCtrGrid)
NODEFAULT
THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE = ALLTRIM(THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE) + CHR(nKeyCode)
THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.SETFOCUS
KEYBOARD '{END}'
CASE (nKeyCode = 127) AND ('CRITERIU_DR' $ lcCtrCriteriu OR 'GRD_DR' $ lcCtrGrid) && backspace
NODEFAULT
THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE = LEFT(ALLTRIM(THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE),LEN(ALLTRIM(THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.VALUE))-1)
THIS.ct_grid_order1.Cb_tx_cautare1.TEXT.SETFOCUS
KEYBOARD '{END}'
CASE INLIST(nKeyCode, 13, 9, 4, 24) AND '_CBBASE1'$lcControl
NODEFAULT
thisform.ct_grid_search1.cb_tx_cautare1.text.SetFocus
OTHERWISE
DODEFAULT(nKeyCode, nShiftAltCtrl)
ENDCASE
ENDPROC
PROCEDURE Release
lcSelRul = this.ct_grid_order1.cnumecursor
lcSelSt = this.ct_grid_search1.cnumecursor
IF USED(lcSelRul)
USE IN (lcSelRul)
ENDIF
IF USED(lcSelSt)
USE IN (lcSelSt)
ENDIF
IF USED('crsTransfer')
USE IN crsTransfer
ENDIF
ENDPROC
PROCEDURE Show
Lparameters nStyle
lcSelRul = This.ct_grid_order1.cnumecursor
This.lbTotal.Caption = 'TOTAL ' + This.CTip_frm
This.ct_grid_order1.initializare(.T.)
This.ct_grid_search1.initializare(.T.)
This.calcul_sume(lcSelRul)
This.ct_grid_search1.cb_tx_cautare1.SetFocus
If Inlist(poact.id_set,105,106)
Thisform.ct_grid_search1.cboListe.Visible = .T.
Thisform.ct_grid_search1.lb_listePreturi.Visible = .T.
Endif
If oxset.cursval
With Thisform.ct_factura2
lcObj = Thisform.cobj
.lb_valuta.Caption = [(] + &lcObj..nume_val_vanz + [)]
With .lb_curs
.Caption = [Curs ] + Dtoc(&lcObj..v8) + [ : ] + Alltrim(Str(&lcObj..Curs,14,4))
.AutoSize = .T.
Endwith
Endwith
Endif
If oset.productie And INLIST(oset.id_set,26003,26004) && modificare 17.10.2007
Thisform.container_valoare_decontata1.Visible = .T.
Endif
*!* modificare v 2.0.8
*!* modificare v 2.0.13
*!* modificare v 2.0.15 - protocol
If InList(oset.id_set,75,216,230,232,233,257,261)
thisform.lb_totalctva.Visible = .T.
thisform.tx_totalctva.Visible = .T.
EndIf
*!* modificare v 2.0.15 ^
*!* modificare v 2.0.13 ^
*!* modificare v 2.0.8 ^
DoDefault(nStyle)
ENDPROC
PROCEDURE Ct_discount1.Init
Select jtva_coloane
*!* Locate For proc_tva = 1.00 And procent = 0
Locate For id_jtva_coloana = oSet.id_jtax
If !Found()
Go Top
Endif
This.lb_explicatie_tva.Caption = Alltrim(Upper(denumire))
lnProc_tva = (cota_tva + 100)/ 100
lnproc = cota_tva
This.pntva = lnProc_tva
This.nid_jtva_coloana = id_jtva_coloana
This.nid_tva = jtva_coloane.id_tva
This.cotaTva.ListIndex = Recno()
ENDPROC
PROCEDURE Ct_discount1.Refresh
DODEFAULT()
lcSelRul = thisform.ct_grid_order1.cnumecursor
this.Parent.calcul_sume(lcSelRul)
ENDPROC
PROCEDURE Ct_grid_order1.Cb_tx_gestin._CBBASE1.LostFocus
SELECT nom_gestiuni
pcobj.id_gestin = id_GESTiune
pcobj.gestin = nume_gestiune
pcObj.cgest = cgest
pcobj.id_GESTiune = id_GESTiune
pcobj.nume_gestiune = nume_gestiune
ENDPROC
PROCEDURE Ct_grid_search1.cboListe.Init
IF INLIST(poact.id_set,105,106)
SELECT cListePret
LOCATE FOR id_pol = poact.id_pol
this.Value = cListePret.nume_lista_preturi
this.Refresh
ENDIF
ENDPROC
PROCEDURE Ct_grid_search1.cboListe.Valid
pnId_lista = cListePret.id_pol
SELECT cListePret
pcobj.id_pol = cListePret.id_pol
thisform.ct_GRID_SEARCH1.initializare(.T.)
thisform.ct_grid_search1.cb_tx_cautare1.text.SetFocus
ENDPROC
PROCEDURE Ct_grid_search1.Cb_tx_gestout._CBBASE1.Valid
Select nom_gestiuni
pcobj.id_gestout = id_GESTiune
pcobj.gestout = nume_gestiune
pcobj.cgest = cgest
pcobj.id_GESTiune = id_GESTiune
pcobj.nume_gestiune = nume_gestiune
Thisform.ct_GRID_SEARCH1.initializare(.T.,.T.)
This.Parent.Parent.cb_tx_cautare1.Text.SetFocus
ENDPROC
PROCEDURE Lb_titlu_alb_b121.Init
If Type('oxset.nume_set') # 'U'
This.Caption = Proper(Alltrim(oxset.nume_set))
Endif
This.Caption = This.Caption + [ ( Nr. document : ] + Alltrim(Nvl(poAct.serie_act,[])) + [ ] + ;
TRANSFORM(poAct.nract,get_mask(14,0)) + [ ) ]
ENDPROC
PROCEDURE Urmator1.Command1.Click
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
*!* Model =-1 : Nota fara contabilizare
*!* Model = 1 : Nota simpla cu contabilizare
*!* Model = 2 : NIR
*!* Model = 3 : BON/FACTURA VANZARE
*!* Model = 4 : Retur BON/FACTURA VANZARE
*!* Model = 5 : Transfer
*!* Model = 6 : Retur Transfer
*!* Model = 7 : Diferenta de pret
*!* Param1 = 1 : En-detail
*!* Param1 = 2 : En-gros
*!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!* *!*
Private poPreturi
poPreturi = CreateObject("empty")
AddProperty(poPreturi,"pretv", 0)
AddProperty(poPreturi,"tvav", 0)
AddProperty(poPreturi,"pretvtva", 0)
Local lnNIRPRETLISTAMOD
If Type('gnNIRPRETLISTAMOD') <> 'U'
lnNIRPRETLISTAMOD = gnNIRPRETLISTAMOD
Else
lnNIRPRETLISTAMOD = 0
EndIf
Local lnPretfTva, lnPretvTva, lnListaPreturiCuTva
lnPretfTva = 0
lnPretvTva = 0
lnListaPreturiCuTva = 1 && daca lista de preturi are preturile cu tva id_set = 231 nir mf la pv cu modificarea listei de preturi
lcSelRul = THISFORM.ct_grid_order1.cnumecursor
*!* modificare 22.08.2007
*!* La toate conditiile unde era id_articol, am adaugat si NVL(serie,'') , in afara de politicile de preturi si reteta.
lcIde = [T]
lcIde = lcIde + ',' + IIF(oset.factura AND oset.model = 2, 'F', '')
lcIde = lcIde + ',' + IIF(oset.adaos AND (oset.param1 = 1 OR oset.model = 2), 'A,X','')
lcIde = lcIde + ',' + IIF(oset.discount, 'D','')
lcIde = lcIde + ',' + IIF(INLIST(oset.model,2), 'N', IIF(INLIST(oset.model, 3, 4, 5, 6, 7), 'B', ''))
lcIde = IIF(oset.model = 7, lcIde + ',X' , lcIde)
lnProcDisc = IIF(oset.discount,THISFORM.ct_discount1.proc_discount ,0)
*!* modificare 22.06
*!* lnProcAdaos = IIF(oset.adaos,thisform.ct_adaos1.proc_adaos,0)
lnProcAdaos = IIF(oset.adaos,IIF(THISFORM.ct_adaos1.proc_adaos<-9999999,0,THISFORM.ct_adaos1.proc_adaos),0)
*!* ^
SELECT cursor_curent1
SCATTER NAME oStg
If Empty(oStg.Cont)
amessagebox('Nu s-a selectat nici un reper! Repetati selectia!',48,"Atentie")
Release oStg
Thisform.ct_grid_search1._GRID1.SetFocus
Return
Endif
*!* If oSet.model > 2 And !Empty(NVL(oStg.id_rul_aux,0))
*!* amessagebox("Operatiile asupra acestui reper se pot efectua doar din programul ROAVIN!",48,"Atentie")
*!* Release oStg
*!* Thisform.ct_grid_search1._GRID1.SetFocus
*!* Return
*!* Endif
*!* DNF
SELECT (lcSelRul)
SCATTER NAME orul BLANK
IF !PEMSTATUS(orul,'dnf',5)
ADDPROPERTY(orul,'dnf',00000)
IF PEMSTATUS(oStg,'dnf',5)
orul.DNF= oStg.DNF
ENDIF
ENDIF
*!* MODIFICAT 11.04.2006
*!* MARIUS.MUTU - SA SE POATA SCOATE DIN STOC DE MAI MULTE ORI ACEEASI CANTITATE LA OB INV IN FOLOSINTA CAND TRANSFER, CASARE DIN FOLOSINTA
IF !INLIST(oset.id_set,210,211,212,89,70)
IF 'B' $ lcIde
SELE (lcSelRul)
IF gnTipGest # 6
SELECT SUM(cante) AS cante, id_articol, NVL(serie,'') as serie FROM (lcSelRul) ;
WITH (BUFFERING = .T.) WHERE id_articol = oStg.id_articol AND PRET =oStg.PRET ;
AND id_gestout = oStg.id_gestiune AND NVL(serie,'') = NVL(oStg.serie,'') ;
GROUP BY id_articol,serie INTO CURSOR crsCant
*!* LOCATE FOR id_articol = ostg.id_articol AND pret =ostg.pret AND id_gestout = ostg.id_gestiune && id_gestout in loc de id_gestiune pt ca la transfer modific id_gestiune (inainte_de_do_termin)
ELSE
SELECT SUM(cante) AS cante, id_articol,NVL(serie,'') as serie FROM (lcSelRul) ;
WITH (BUFFERING = .T.) WHERE id_articol = oStg.id_articol AND pretv =oStg.pretv ;
AND id_gestout = oStg.id_gestiune AND PRET =oStg.PRET AND NVL(serie,'') = NVL(oStg.serie,'') ;
GROUP BY id_articol,serie INTO CURSOR crsCant
*!* LOCATE FOR id_articol = ostg.id_articol AND pretv =ostg.pretv AND id_gestout = ostg.id_gestiune AND pret =ostg.pret && id_gestout in loc de id_gestiune pt ca la transfer modific id_gestiune (inainte_de_do_termin)
ENDIF
SELECT crsCant
LOCATE
lnCant = cante
*!* IF FOUND()
IF RECCOUNT('crsCant') > 0
amessagebox('Daca doriti o cantitate diferita, stergeti acest reper si repetati selectia.',0+64,"Info")
THISFORM.ct_grid_search1._GRID1.SETFOCUS
USE IN crsCant
RETURN
ENDIF
USE IN crsCant
ENDIF
ELSE
&& scoatere din stoc obiecte de inventar
IF 'B' $ lcIde
SELE (lcSelRul)
SELECT SUM(cante) AS cante, id_articol, NVL(serie,'') as serie ;
FROM (lcSelRul) WITH (BUFFERING = .T.) ;
WHERE id_articol = oStg.id_articol AND PRET =oStg.PRET AND id_gestout = oStg.id_gestiune ;
AND id_responsabil = oStg.id_responsabil AND datapif = oStg.datapif AND NVL(serie,'') = NVL(oStg.serie,'') ;
GROUP BY id_articol,serie INTO CURSOR crsCant
SELECT crsCant
LOCATE
lnCant = cante
IF RECCOUNT('crsCant') > 0
amessagebox('Daca doriti o cantitate diferita, stergeti acest reper si repetati selectia.',64,"Info")
* THISFORM.ct_grid_search1._GRID1.SETFOCUS
thisform.ct_grid_search1.cb_tx_cautare1.text.SetFocus
USE IN crsCant
RETURN
ENDIF
USE IN crsCant
ENDIF
ENDIF
*!* modificare 03.10.2007
If Inlist(oxset.model,4,6) && Retur
lcObiect = Thisform.cobj
&lcObiect..id_gestout = oStg.id_gestiune
&lcObiect..gestout = ALLTRIM(oStg.nume_gestiune)
Endif
*!* modificare 03.10.2007 ^
THISFORM.assign_values('orul',THISFORM.cobj,'oStg')
IF TYPE('orul.datapif') # 'U' AND TYPE('orul.datapif') = 'T' && pentru ob. inv. in folosinta
orul.datapif = TTOD(orul.datapif)
ENDIF
IF INLIST(oset.model,3,4) AND oset.param1 = 1 && bon/retur + factura + en-detail
lnPretvTva = orul.pretv + orul.tvav && pret vanzare cu TVA
*!* modificare 22.06
lnProcAdaos = IIF(orul.procent<>0,orul.procent,lnProcAdaos)
*!* ^
Else
*!* 09.06.2008
*!* 231 = roagest - nir marfa la pretv cu lista de preturi
*!* 247 = roagest - nir marfa la pretv cu lista de preturi gestiune hibrid 23.10.2008
*!* 266 roagest - mf pret de ach * > factura nesosita - pret de lista ** 19.05.2010
IF INLIST(oset.id_set,105,106,231,247,266) && 105,106 - roafacturare - NIR de marfa la pret de vanzare
lcSql = [ select pretftva, pretctva from vcrm_politici_pret_art where id_pol=] + ALLTRIM(STR(poact.id_pol))+;
[ and id_articol =] + ALLTRIM(STR(oStg.id_articol))
lnSucces=goExecutor.oExecute(lcSql,'crsPret')
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
EndIf
SELECT crsPret
lnPretfTva = pretftva
lnPretvTva = pretctva
IF USED('crsPret')
USE IN crsPret
ENDIF
Private pnReturnValue
pnReturnValue = 0
lnSucces = goExecutor.oSelect2Value("select preturi_cu_tva from vcrm_politici_preturi where id_pol = " + ALLTRIM(STR(poact.id_pol)), @pnReturnValue)
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
Else
lnListaPreturiCuTva = pnReturnValue
EndIf
ELSE
lnPretvTva = 0
EndIf
*!* 09.06.2008
ENDIF
IF oset.id_set = 104
PRIVATE pnImputare
STORE 0 TO pnImputare
IF gnImputare = 1 && pretul maxim din stoc
lcSql=[select MAX(pret) as pretMax from (select pack_sesiune.suma_ron(pret, an, luna) as pret from ] + ;
[(select pret, an, luna from stoc where id_articol = ] + +ALLTRIM(STR(orul.id_articol))+ ;
[ and NVL(serie,'x_x_x') = '] + NVL(orul.serie,'x_x_x') + [' ] + gcCondSucursala + [))]
lnSucces=goExecutor.oExecute(lcSql,'crsPretMax')
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
ENDIF
SELECT crsPretMax
orul.pretv = pretMax
IF ISNULL(orul.pretv)
orul.pretv = 0
ENDIF
IF USED('crsPretMax')
USE IN crsPretMax
ENDIF
ENDIF
ENDIF
IF EMPTY(THISFORM.cfrm_ceredate)
RETURN
ENDIF
IF INLIST(oset.id_set,211) && TRANSFER MAGAZIE OB INV IN FOLOSINTA - CATRE GESTIUNE OB INV IN FOL PE UN RESPONSABIL
orul.id_responsabil = 0
orul.NRESP = ''
ENDIF
lcForm = ALLTRIM(THISFORM.cfrm_ceredate)
onir = CREATEOBJECT(lcForm)
onir.bVizualizare = lcIde
onir.cobj = orul
*onir.cParentObj = thisform.cobj
onir.pretvtva = lnPretvTva
*!* 09.06.2008
*!* 231 - nir mf pretv cu modificarea listei de preturi
*!* 247 = roagest - nir marfa la pretv cu lista de preturi gestiune hibrid 23.10.2008
*!* 266 roagest - mf pret de ach * > factura nesosita - pret de lista ** 19.05.2010
IF INLIST(oset.id_set,105,106,231,247,266)
onir.cobj.pretv = lnPretfTva
onir.cobj.tvav = lnPretvTva - lnPretfTva
&& v 2.0.14 din 11iun2008 - preluare preturi din rul de pe ultima factura de achizitie, cautarea se face in ultimele 2 luni
IF INLIST(oset.id_set,231,247,266)
*!* v 2.0.18 (ordonare an desc, luna desc, dataora desc, cant <> 0)
lcSql = [select a.* from (select a.dataora,a.pret,a.tva, a.tvav,a.pretv,a.PRETV+a.TVAV as pretvtva ]+;
[ from rul a where a.ID_ARTICOL = ]+Alltrim(Str(orul.id_articol)) + [ and a.sters = 0 and a.cant<>0 and a.id_tip_rulaj = 0]+;
[ and an*12+luna between ]+ Alltrim(Str(gnAn*12+gnluna-1))+[ and ]+ Alltrim(Str(gnAn*12+gnluna)) +;
[ order by a.an desc, a.luna desc, a.dataora desc) a where rownum = 1]
*!* v 2.0.18 ^
lnSucces=goExecutor.oExecute(lcSql,'crsPretUltim')
IF lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
Else
Select crsPretUltim
If Reccount() > 0
onir.pretu_factura = crsPretUltim.pret
onir.cobj.pret = crsPretUltim.pret
onir.cobj.tva = crsPretUltim.tva
&& suprascriu pretul de vanzare din lista doar daca pe nir am pretul <> 0
If crsPretUltim.pretv <> 0
onir.cobj.pretv = crsPretUltim.pretv
onir.cobj.tvav = crsPretUltim.tvav
onir.pretvtva = crsPretUltim.pretvtva
EndIf
EndIf
Use in crsPretUltim
EndIf
&& v 2.0.14 din 11iun2008 ^
EndIf
ENDIF
*!* 09.06.2008 ^
onir.cTitlu = ALLTRIM(NVL(oStg.denumire,'')) + [-] + ALLTRIM(NVL(oStg.codmat,''))
onir.item2.text_item1.READONLY = IIF(oset.model = 2, .F., .T.)
IF oset.param1 = 1 AND (oset.model = 4 OR gnTipGest = 6) && facturi retur / vanzare marfa la pret de vanzare en-detail - blochez pretul de vanzare
onir.BlochezPretV = .T.
onir.proc_tvav = orul.proc_tvav
onir.proc_adaos = lnProcAdaos
ENDIF
Do Case
CASE oset.model = 7 && ( oset.id_set = 218 )
onir.item9.label_item1.Caption = 'Pret nou fara TVA'
onir.item9.text_item1.inputmask = get_mask(12,gnPPret)
Case poact.id_set = 104 && RoaObInv - Imputare
onir.item7.label_item1.Caption = 'Pret imputare cu TVA'
onir.item8.label_item1.Caption = 'TVA imputare'
onir.item9.label_item1.Caption = 'Pret imputare fara TVA'
* onir.BlochezPretV = .T.
Case poact.id_set = 26001 && ROAPRODUCTIE.PV_PRODUCTIE
Local lnPret
Store 0 To lnPret
Private poPret
Store '' To poPret
Local lcschema, lcselect, lcFiltru, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal
lcschema = []
lcselect = [select pret from vcrm_politici_pret_art]
lcOrder = []
lcFiltru = []
llAfiseaza = .F.
lcgroup = ""
llModParam = .T.
lcFiltruOriginal = [id_pol=] + ALLTRIM(STR(poact.id_pol)) + [ and id_articol=] + ALLTRIM(STR(oStg.id_articol))
gencursor('poPret','crsPret',lcselect,lcFiltru,lcschema,lcOrder,llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poPret.ca_baza1.afisare()
SELECT crsPret
GO TOP
lnPret = PRET
IF USED('crsPret')
USE IN crsPret
ENDIF
RELEASE poPret
onir.cobj.PRET = lnPret
onir.item2.label_item1.CAPTION = 'Pret unitar'
onir.item2.text_item1.READONLY = .T.
onir.item2.text_item1.TABSTOP = .F.
LOCAL lcReteta, lnId_reteta
STORE 0 TO lnId_reteta
STORE '' TO lcReteta
PRIVATE poReteta
STORE '' TO poReteta
lcschema = []
lcselect = [select id_reteta, reteta from vnom_retetar]
lcOrder = []
lcFiltru = []
llAfiseaza = .F.
lcgroup = ""
llModParam = .T.
lcFiltruOriginal = [principala=1 and id_articol=]+ALLTRIM(STR(onir.cobj.id_articol))
gencursor('poReteta','crsReteta',lcselect,lcFiltru,lcschema,lcOrder,llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poReteta.ca_baza1.afisare()
SELECT crsReteta
GO TOP
lcReteta = ALLTRIM(reteta)
lnId_reteta = id_reteta
IF USED('crsReteta')
USE IN crsReteta
ENDIF
RELEASE poReteta
onir.cobj.reteta = lcReteta
onir.cobj.id_reteta = lnId_reteta
ENDCASE
*onir.item4.text_item1.comment = onir.item4.text_item1.comment + IIF(INLIST(oset.model,3,4),[e],[]) && CANT sau CANTE
onir.item4.text_item1.COMMENT = onir.item4.text_item1.COMMENT + IIF(LOWER(ALLTRIM(THISFORM.osel_dr.cantitate))=[cante],[e],[]) && CANT sau CANTE
onir.proc_discount = lnProcDisc
onir.proc_adaos = lnProcAdaos
onir.SHOW(1)
IF gnButon = 1
lcCant = [orul.] + ALLTRIM(THISFORM.osel_dr.cantitate)
IF TYPE('ostg.cantitate') # 'U' AND INLIST(oset.model, 3, 4, 5, 6, 7) &&: bon, retur, transfer, retur transfer
lnCantD = &lcCant
lnCantD1 = &lcCant
lnCantS = oStg.cantitate
*!* MODIFICAT 11.04.2006
*!* DOAR LA ID_SET = 210 (TRANSFER OB INV IN FOL CATRE MAI MULTI RESPONSABILI) AM PERMIS SA SE SCOATA DE MAI MULTE ORI ACELASI REPER
*!* ADUN CANTITATEA DEJA IESITA LA CEA CURENTA
lnCant = 0
IF INLIST(oset.id_set,210,211,212,89)
SELECT SUM(NVL(cant,0)) AS cant ;
FROM (lcSelRul) WITH (BUFFERING = .T.);
WHERE id_articol = oStg.id_articol AND PRET = oStg.PRET AND id_gestout = oStg.id_gestiune AND NVL(serie,'') = NVL(oStg.serie,'') ;
INTO CURSOR crsCant
SELECT crsCant
CALCULATE SUM(cant) TO lnCant
lnCantD = lnCantD + lnCant
USE IN crsCant
ENDIF
IF ABS(lnCantD) > ABS(lnCantS) OR (SIGN(lnCantD1) * SIGN(lnCantS) < 0)
lcTitlu = [Atentie]
lcTip = [Avertizare]
lcImagine = [exclam.ico]
ofrm_eroare = CREATEOBJECT('frm_mesaj',lcTitlu,lcImagine,lcTip,"Cantitatea maxima existenta este:",oStg.cantitate)
ofrm_eroare.SHOW(1)
RELEASE ofrm_eroare
&lcCant = oStg.cantitate - lnCant
ENDIF
*!* MODIFICAT 11.04.2006
*!* NU ADAUG ARTICOLE FARA CANTITATE
IF &lcCant = 0
THISFORM.ct_grid_order1.cb_tx_gestin.SETFOCUS()
RETURN
ENDIF
ENDIF
DO case
CASE INLIST(oset.model, 4, 6) && retur BON, retur TRANSFER
&lcCant = -&lcCant
case oset.model = 2 && NIR
SELECT (lcSelRul)
orul.acont = THISFORM.assign_analitic(orul.CONT,THISFORM.cobj,'orul')
ENDCASE
IF INLIST(oset.model,5,6,7) && TRANSFER, RETUR TRANSFER, DIFERENTA DE PRET
lcCantDr = LOWER(ALLTRIM(THISFORM.osel_dr.cantitate))
lcCantTransf = [cant] + IIF(lcCantDr = [cante],[],[e])
IF !USED('crsTransfer')
SELECT *, 0000 AS rec, 0 AS nuInConturiX FROM (lcSelRul) INTO CURSOR crsTransfer WHERE 1=2 NOFILTER READWRITE
ENDIF
SELECT crsTransfer
APPEND BLANK
GATHER NAME pcObj
GATHER NAME oStg
REPLACE cant WITH 0, cante WITH 0
REPLACE &lcCantTransf WITH &lcCant
*REPLACE nuInConturiX WITH 1
*!* modificare 26.02.2007
Do Case
Case INLIST(oset.id_set,75,218) && modificare 22.05.2007 : completez si pretv ca sa pot calcula adaosul
Replace pretv With orul.pretv,tvav With orul.tvav,proc_Tvav With orul.proc_Tvav
Case INLIST(oset.id_set, 207,254)
orul.pretv = oStg.pretv
orul.tvav = oStg.tvav
orul.proc_tvav = oStg.proc_tvav
Case oset.id_set = 89 && transfer intre persoane
pcObj.id_gestin = orul.id_gestout
pcObj.gestin = orul.id_gestout
orul.id_gestin = orul.id_gestout
orul.gestin = orul.gestout
Endcase
*!* IF oset.id_set = 89 && transfer intre persoane
*!* pcObj.id_gestin = orul.id_gestout
*!* pcObj.gestin = orul.id_gestout
*!* orul.id_gestin = orul.id_gestout
*!* orul.gestin = orul.gestout
*!* ENDIF
*!* modificare 26.02.2007 ^
REPLACE id_gestin WITH orul.id_gestin, gestin WITH orul.gestin
REPLACE id_gestout WITH orul.id_gestout, gestout WITH orul.gestout
*!* IF TYPE('orul.id_gestiune') = 'N' AND TYPE('crsTransfer.id_gestiunec') = 'N'
*!* REPLACE id_gestiunec WITH orul.id_gestiune
*!* ENDIF
IF TYPE('orul.id_responsabil') = 'N' AND TYPE('crsTransfer.id_responsabilc') = 'N'
REPLACE id_responsabilc WITH orul.id_responsabil
ENDIF
ENDIF
IF oset.id_set = 104
IF gnImputare = 1
SELECT cursor_curent1
IF DNF<>0
uzura = (DNF-(dns_luni-IIF(!EMPTY(datapif) AND !ISNULL(datapif),((gnAn*12+gnLuna)-(YEAR(datapif)*12+MONTH(datapif))),0)))/DNF*100
ELSE
uzura = 0
ENDIF
DO CASE
CASE pnImputare = 1 && procent
orul.pret_imputare = ROUND((100 - uzura) * orul.pretv / 100,gnPC)
CASE pnImputare = 2 && integral
orul.pret_imputare = orul.pretv
OTHERWISE
orul.pret_imputare = orul.pretv
ENDCASE
ELSE
orul.pret_imputare = orul.pretv
ENDIF
ENDIF
SELECT (lcSelRul)
APPEND BLANK
GATHER NAME orul
lnRecno = RECNO()
*!* IF TYPE('ostg.id_gestiune') = 'N'
*!* REPLACE id_gestiunec WITH ostg.id_gestiune
*!* ENDIF
IF TYPE('ostg.id_responsabil') = 'N'
REPLACE id_responsabilc WITH oStg.id_responsabil
ENDIF
*!* MODIFICAT 11.04.2006
*!* MARIUS.MUTU - AM PUS RECNO('RUL_TEMP') IN CURSORUL DE TRANSFER - LA STERGERE SA POT STERGE SI LINIA CORESPONDENTA DIN CRSTRANSFER
IF INLIST(oset.model,5,6,7) AND USED('crsTransfer') && TRANSFER, RETUR TRANSFER, DIFERENTA DE PRET
SELECT crsTransfer
REPLACE rec WITH lnRecno
EndIf
*!* 09.06.2008
*!* 231 - nir mf pretv cu modificarea listei de preturi
*!* daca pretul de vanzare este diferit de pretul de vanzare din lista
*!* modific pretul de vanzare din lista
&& 247 = roagest - nir marfa la pretv cu lista de preturi gestiune hibrid 23.10.2008
*!* 266 roagest - mf pret de ach * > factura nesosita - pret de lista ** 19.05.2010
If INLIST(oset.id_set,231,247,266) and poPreturi.pretvtva <> lnPretvTva and lnNIRPRETLISTAMOD = 1
lnPretftvaLista = poPreturi.pretv
lnPretvtvaLista = poPreturi.pretvtva
lnPretLista = Iif(lnListaPreturiCuTva = 1, lnPretvtvaLista, lnPretftvaLista)
lcSql = [update crm_politici_pret_art set pret = ] + Alltrim(Str(lnPretLista,20,4)) + ;
[, pretftva = ] + Alltrim(Str(lnPretftvaLista,20,4)) + [, pretctva = ] + Alltrim(Str(lnPretvtvaLista ,20,4)) + ;
[ where id_pol=] + ALLTRIM(STR(poact.id_pol)) + [ and id_articol =] + ALLTRIM(STR(oStg.id_articol))
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
MessageBox(goExecutor.cEroare,0+16, 'Eroare')
EndIf
EndIf
*!* 09.06.2008 ^
IF THISFORM.ct_grid_order1.cb_tx_gestin.VISIBLE
THISFORM.ct_grid_order1.cb_tx_gestin._cbbase1.VALUE = orul.gestin
THISFORM.ct_grid_order1.cb_tx_gestin._cbbase1.REFRESH
ENDIF
THISFORM.ct_grid_order1.actualizeaza_grid()
THISFORM.ct_grid_order1._GRID1.AUTOFIT
ELSE
THISFORM.ct_grid_search1._GRID1.SETFOCUS
ENDIF
THISFORM.calcul_sume(lcSelRul)
*!* SELECT crsTransfer
*!* BROWSE
*!* SELECT (lcSelRul)
*!* BROWSE
IF oset.productie AND INLIST(oset.id_set,26003,26004) && modificare 17.10.2007 AND ALLTRIM(UPPER(oset.formproduc))='FRM_ALEGE_SECTIE_COMANDA'
pnValoareDecontata = thisform.nTotal
pnCheltuieliDirecte = thisform.nTotal - pnValoareDecontata
thisform.container_valoare_decontata1.Refresh
ENDIF
RELEASE orul
RELEASE oStg
ENDPROC
PROCEDURE _shape1.DblClick
IF thisform.WindowState = 2
thisform.WindowState = 0
ELSE
thisform.WindowState = 2
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS valoare2rulaj 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="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_facturi_transport" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdFacturiTransport" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_articole" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdArticole" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_valoare_repartizat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cbo_explicatieTVA" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_explicatieTVA" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Caut_anluna1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: calculvaloarerepartizat
*m: do_cauta_articole
*m: do_cauta_facturi_achizitie
*m: do_cauta_facturi_transport
*m: do_cauta_furnizor
*m: make_rul_temp
*p: cacont
*p: ccont
*p: cfurnizorname
*p: clistaidarticole
*p: clistaidfacturitransport
*p: cnumefurnizor
*p: cxmlarticole
*p: cxmlfacturiachizitie
*p: cxmlfacturitransport
*p: ddata1
*p: ddata2
*p: nidfurnizor
*p: nprocenttva
*p: ntotalvaloarerepartizat
*p: ofurnizor
*</DefinedPropArrayMethod>
*<PropValue>
cacont =
Caption = "Form"
ccont = 301
cfurnizorname =
clistaidarticole =
clistaidfacturitransport =
cnumefurnizor =
cxmlarticole =
cxmlfacturiachizitie =
cxmlfacturitransport =
ddata1 = {}
ddata2 = {}
DoCreate = .T.
Height = 178
Name = "valoare2rulaj"
nidfurnizor = 0
nprocenttva = 0
ntotalvaloarerepartizat = 0
ofurnizor = .F.
Width = 599
_SHAPE1.Height = 29
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 600
_SHAPE1.ZOrderSet = 1
_SHAPE2.Height = 29
_SHAPE2.Left = 539
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 61
_SHAPE2.ZOrderSet = 2
LB_TITLU_ALB_B121.Caption = "Repartizare valori pe articole"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 10
LB_TITLU_ALB_B121.ZOrderSet = 3
BUT_TERMIN1.Left = 570
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
GRIDSORT1.Name = "GRIDSORT1"
BUT_RENUNT1.Left = 541
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 7
BUT_RENUNT1.Top = 1
BUT_RENUNT1.ZOrderSet = 6
*</PropValue>
ADD OBJECT '_label1' AS _label WITH ;
Caption = "Luna intrari articole", ;
Left = 21, ;
Name = "_label1", ;
TabIndex = 4, ;
Top = 146, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT '_shape3' AS _shape WITH ;
BackStyle = 0, ;
Height = 29, ;
Left = 13, ;
Name = "_shape3", ;
Top = 138, ;
Width = 372, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="shape" />
ADD OBJECT 'Caut_anluna1' AS caut_anluna WITH ;
Left = 226, ;
Name = "Caut_anluna1", ;
TabIndex = 12, ;
ToolTipText = "Luna in care se cauta intrarile de articole pe care se repartizeaza valoarea facturilor", ;
Top = 142, ;
ZOrderSet = 14, ;
cboan.Name = "cboan", ;
cboluna.Name = "cboluna"
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'cbo_explicatieTVA' AS combobox WITH ;
BorderColor = 128,128,128, ;
BorderStyle = 1, ;
BoundTo = .T., ;
ColumnCount = 1, ;
ColumnLines = .F., ;
ControlSource = "", ;
FontSize = 10, ;
Height = 20, ;
InputMask = "", ;
Left = 439, ;
Name = "cbo_explicatieTVA", ;
RowSource = "jtva_coloane.denumire,cota_tva,id_jtva_coloana", ;
RowSourceType = 2, ;
SpecialEffect = 1, ;
Style = 2, ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 65, ;
Width = 149, ;
ZOrderSet = 12
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Clb_articole' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_articole", ;
TabIndex = 3, ;
Top = 110, ;
Width = 372, ;
ZOrderSet = 9, ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 101, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.ReadOnly = .T., ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 265, ;
LB_SIMPLU1.Caption = "Articole", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_facturi_transport' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_facturi_transport", ;
TabIndex = 1, ;
Top = 48, ;
Width = 372, ;
ZOrderSet = 7, ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 132, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.ReadOnly = .T., ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 234, ;
LB_SIMPLU1.Caption = "Facturi de repartizat", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_valoare_repartizat' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_valoare_repartizat", ;
TabIndex = 2, ;
Top = 76, ;
Width = 372, ;
ZOrderSet = 11, ;
Text_simplu1.ControlSource = "thisform.nTotalValoareRepartizat", ;
Text_simplu1.Format = "KR", ;
Text_simplu1.Height = 23, ;
Text_simplu1.InputMask = (get_mask(12,gnPc)), ;
Text_simplu1.Left = 216, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 149, ;
Lb_simplu1.Caption = "Valoare de repartizat", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'cmdArticole' AS but_cautare WITH ;
caction = do_cauta_articole, ;
Left = 397, ;
Name = "cmdArticole", ;
TabIndex = 9, ;
Top = 110, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdFacturiTransport' AS but_cautare WITH ;
caction = do_cauta_facturi_transport, ;
Left = 396, ;
Name = "cmdFacturiTransport", ;
TabIndex = 8, ;
Top = 48, ;
ZOrderSet = 8
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'lb_explicatieTVA' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TVA", ;
FontName = "Arial", ;
Height = 17, ;
Left = 439, ;
Name = "lb_explicatieTVA", ;
TabIndex = 11, ;
Top = 48, ;
Width = 23, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="label" />
PROCEDURE calculvaloarerepartizat
lcXMLFacturi = this.cXmlfacturitransport
IF !EMPTY(lcXMLFacturi)
XMLTOCURSOR(lcXMLFacturi, "crsFacturiTransport")
lcNrFacturi = cursor2lista("crsFacturiTransport", "nract", ",")
this.cListaIdFacturiTransport = cursor2lista("crsFacturiTransport","id_ireg_part",",")
SELECT crsFacturiTransport
lnProcent = 100 + this.nProcentTVA
CALCULATE SUM(ROUND(totctva*100/lnProcent,gnPC)) TO this.nTotalValoareRepartizat
this.clb_facturi_transport.teXT_SIMPLU1.Value = lcNrFacturi
USE IN crsFacturiTransport
ELSE
this.clb_facturi_transport.teXT_SIMPLU1.Value = ""
this.ntotalvaloarerepartizat = 0
ENDIF
this.clb_valoare_repartizat.text_simplu1.Refresh()
this.clb_facturi_transport.text_SIMPLU1.Refresh()
ENDPROC
PROCEDURE do_cauta_articole
LOCAL lcArticole, lcXMLArticole
lcXMLArticole = caut_articol(0, .F., .T.)
this.cXMLArticole = lcXMLArticole
IF !EMPTY(lcXMLArticole)
XMLTOCURSOR(lcXMLArticole, "crsArticole")
lcArticole = cursor2lista("crsArticole", "denumire", ",")
this.cListaIdArticole = cursor2lista("crsArticole","id_articol",",")
USE IN crsArticole
this.clb_articole.teXT_SIMPLU1.Value = lcArticole
this.clb_articole.text_SIMPLU1.Refresh()
ENDIF
ENDPROC
PROCEDURE do_cauta_facturi_achizitie
ENDPROC
PROCEDURE do_cauta_facturi_transport
LOCAL lcCont, lnIdPart, ldData1, ldData2, lcXMLFacturi
lcCont = "401,408"
ldData1 = DATE(gnAn, gnLuna, 1)
ldData2 = GOMONTH(ldData1,2) - 1 && pot sa am factura de transport si in luna urmatoare
IF this.nIdfurnizor <= 0
aMESSAGEBOX("Alegeti furnizorul",0+48,"Atentie")
RETURN
ENDIF
lnIdPart = this.nIdfurnizor
lcXMLFacturi = caut_facturi(lcCont, lnIdPart, ldData1, ldData2)
IF gnButon = 1
this.cXmlfacturitransport = lcXMLFacturi
this.calculvaloarerepartizat()
ENDIF
ENDPROC
PROCEDURE do_cauta_furnizor
ENDPROC
PROCEDURE inainte_de_do_termin
llSucces = .T.
lcListaIdArticole = This.clistaidarticole
lcListaIdFacturiTransport = This.cListaIdfacturitransport
If Empty(lcListaIdArticole)
llSucces = .F.
AMESSAGEBOX('Alegeti articolele!', 0 + 48, 'Atentie')
Endif
If Empty(lcListaIdFacturiTransport)
llSucces = .F.
AMESSAGEBOX('Alegeti facturile de repartizat', 0 + 16, 'Facturi')
Endif
If llSucces
If Type('oitem') = 'O'
If Pemstatus(oitem,'adunadate',5)
_Screen.MousePointer = 11
*!* modificare JC/JV 2007
oitem.id_jnetax = Null
oitem.id_jtax = Null
oitem.id_jtva = Null
*!* modificare JC/JV 2007 ^
oitem.adunadate()
_Screen.MousePointer = 0
Endif
Endif
Endif
If llSucces
_Screen.MousePointer = 11
llSucces = This.make_rul_temp()
_Screen.MousePointer = 0
Endif
Return llSucces
ENDPROC
PROCEDURE Init
DODEFAULT()
IF USED('xcont')
SELECT xcont
LOCATE FOR cont_part = "401"
IF FOUND()
lcNumePart = ALLTRIM(numepart)
lnIdPart = idpart
this.nIdFurnizor = lnIdPart
this.cNumeFurnizor = lcNumePart
ENDIF
ENDIF
ENDPROC
PROCEDURE make_rul_temp
LOCAL llSucces, lnSucces, lcListaIdArticole, lcListaIdFacturiTransport
LOCAL lcSql, lcCursor, lnTotalValoareAchizitie, lnTotalValoareRepartizat, lnIdArticol, lnCant, lnCante, lnPret, lnIdGestiune
LOCAL lcCont, lcAcont
LOCAL lnCoeficient, lnValoareRepartizat, lnValoare, lnLuna, lnAn
lcListaIdArticole = THIS.clistaidarticole
lcListaIdFacturiTransport = THIS.cListaIdfacturitransport
lnLuna = thisform.caut_anluna1.nluna
lnAn = thisform.caut_anluna1.nan
lcSql = [select v.*, v.id_gestiune as id_gestin, v.nume_gestiune as gestin, v.id_gestiune as id_gestout,] + ;
[v.nume_gestiune as gestout, 0 as nuInConturiX from vrul v where 1=2]
lcCursor = [rul_temp]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
ENDIF
IF lnSucces > 0
lcselect = [SELECT A.DENUMIRE, A.CODMAT, G.NUME_GESTIUNE, S.id_articol, S.id_gestiune, S.pret, S.proc_tvav, S.cont, S.acont, S.cants, S.cant, S.cante, S.stoc FROM ] + ;
[(select id_articol, id_gestiune, pret, proc_tvav, cont, acont, cants, cant, cante, (cants + cant - cante) as stoc from stoc where an = ] + ;
TRANSFORM(m.lnAn) + [ and luna = ] + TRANSFORM(m.lnLuna) + [ and id_gestiune in (] + gcGestPermis + [)] + ;
[ and (cants + cant - cante <> 0) and cant <> 0 and id_articol in (] + lcListaIdArticole + [)] + gcCondSucursala + ;
[ order by id_articol) S LEFT JOIN NOM_ARTICOLE A ON S.ID_ARTICOL = A.ID_ARTICOL ] + ;
[ LEFT JOIN NOM_GESTIUNI G ON S.ID_GESTIUNE = G.ID_GESTIUNE]
*!* lcSql = [select id_articol, id_gestiune, pret, proc_tvav, cont, acont, cants, cant, cante, (cants + cant - cante) as stoc from stoc where an = ] + ;
*!* TRANSFORM(gnAn) + [ and luna = ] + TRANSFORM(gnLuna) + [ and id_gestiune in (] + gcGestPermis + [)] + ;
*!* [ and (cants + cant - cante <> 0) and cant <> 0 and id_articol in (] + lcListaIdArticole + [)] + ;
*!* [ order by id_articol]
*!* lcCursor = [crsStoc]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* IF lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
*!* ENDIF
loHash = GetHash()
WITH loHash
.SetValue("cSelect", lcselect)
.SetValue("cColoana", "DENUMIRE, CODMAT, NUME_GESTIUNE, CONT, ACONT, PRET, STOC, ID_ARTICOL, ID_GESTIUNE")
.SetValue("cTitlu", "Alegeti intrarile (Mouse Click sau SPATIU pe 'DENUMIRE')")
.SetValue("cTitluColoana", "DENUMIRE, COD MATERIAL, NUME_GESTIUNE, CONT, ACONT, PRET, STOC, ID ARTICOL, ID GESTIUNE")
.SetValue("cPrimaColoana", "denumire")
.SetValue("nTipReturn", 1)
ENDWITH
TRY
lcXML = cauta_alfa_hash(loHash) && 11.07.2007
IF !EMPTY(lcXML)
XMLTOCURSOR(lcXML, "crsStoc")
ELSE
lnSucces = -1
ENDIF
CATCH
lnSucces = -1
ENDTRY
ENDIF
*!* modificare serii numere - 10.2007
*!* IF lnSucces > 0
*!* && PLAJE NIR-URI CMP
*!* lnTip = 4 && NIR PT CMP
*!* lnSerie = 2
*!* lnId_entitate = 0
*!* lnNnir1 = 0
*!* lnNnir2 = 0
*!* lcselect = [select id_plaja,pl_inf,pl_sup from ] + gcS + [.vplaje_numere where ] +;
*!* [inactiv = 0 and tip = ] + ALLTRIM(STR(lnTip)) + [ and serie = ] + ;
*!* ALLTRIM(STR(lnSerie)) + [ and id_entitate = ] + ALLTRIM(STR(lnId_entitate))
*!* lcCursor = [crsplaja]
*!* lnSucces = goExecutor.oExecute(lcselect,lcCursor)
*!* IF lnSucces < 0
*!* AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
*!* ELSE
*!* SELECT crsPlaja
*!* lnNnir1 = pl_inf
*!* lnNnir2 = pl_sup
*!* ENDIF
*!* USE IN crsPlaja
*!* ENDIF
*!* modificare serii numere - 10.2007 ^9
IF lnSucces > 0
*!* modificare v 2.2.33 : am adaugat PRET
SELECT DISTINCT ID_ARTICOL, ID_GESTIUNE, PADR(NVL(CONT,''), 4, ' ') AS CONT, PADR(NVL(ACONT,''), 4, ' ') AS ACONT, pret ;
FROM crsStoc ;
INTO CURSOR crsJoinTemp
*!* modificare serii numere - 10.2007
*!* modificare v 2.2.33 : pret, round(CANT*PRET,?gnPc)
lcselect = [SELECT ID_ARTICOL, ID_GESTIUNE, CONT, ACONT, PRET, SUM(ROUND(CANT*PRET,?gnPc)) AS VALOARE FROM RUL ] + ;
[ WHERE STERS = 0 AND AN = ] + TRANSFORM(m.lnAn) + [ AND LUNA = ] + TRANSFORM(m.lnLuna) + ;
[ and id_gestiune in (] + gcGestPermis + [)] + ;
[ AND CANT <> 0 and id_tip_rulaj <> 2] + gcCondSucursala
*!* lcselect = [SELECT ID_ARTICOL, ID_GESTIUNE, CONT, ACONT, SUM(CANT*PRET) AS VALOARE FROM RUL ] + ;
*!* [ WHERE STERS = 0 AND AN = ] + TRANSFORM(gnAn) + [ AND LUNA = ] + TRANSFORM(gnLuna) + [ and id_gestiune in (] + gcGestPermis + [)] + ;
*!* [ AND CANT <> 0 and (NNIR NOT BETWEEN ] + TRANSFORM(lnNnir1) + [ AND ] + TRANSFORM(lnNnir2) + [)]
*!* *!* [ AND id_articol in (] + lcListaIdArticole + [)]
*!* modificare serii numere - 10.2007 ^
lcConditie = ""
SELECT crsJoinTemp
SCAN
SCATTER NAME lorec
lcConditie = lcConditie + [ OR (id_articol = ] + ALLTRIM(STR(lorec.ID_ARTICOL)) + [ and id_gestiune = ] + ALLTRIM(STR(lorec.ID_GESTIUNE)) + ;
[ and cont = '] + ALLTRIM(lorec.CONT) + IIF(!EMPTY(ALLTRIM(lorec.ACONT)), [' and acont = '] + ALLTRIM(lorec.ACONT) + ['], [']) + [)]
ENDSCAN
USE IN crsJoinTemp
IF !EMPTY(lcConditie)
lcConditie = SUBSTR(lcConditie, 5)
ENDIF
lcselect = lcselect + IIF(!EMPTY(lcConditie), [ AND (] + lcConditie + [)], [])
*!* modificare v 2.2.33 : am adaugat PRET
lcselect = lcselect + [ GROUP BY ID_ARTICOL, ID_GESTIUNE, CONT, ACONT, PRET order by id_articol]
lcCursor = [crsRulTemp]
lnSucces = goExecutor.oExecute(lcselect,lcCursor)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
ENDIF
*!* loHash = GetHash()
*!* WITH loHash
*!* .SetValue("cSelect", lcselect)
*!* .SetValue("cColoana", "DENUMIRE, CODMAT, NUME_GESTIUNE, CONT, ACONT, VALOARE, ID_ARTICOL, ID_GESTIUNE")
*!* .SetValue("cTitlu", "Alegeti intrarile")
*!* .SetValue("cTitluColoana", "DENUMIRE, COD MATERIAL, NUME_GESTIUNE, CONT, ACONT, VALOARE, ID ARTICOL, ID GESTIUNE")
*!* .SetValue("cPrimaColoana", "denumire")
*!* .SetValue("nTipReturn", 1)
*!* ENDWITH
*!* lcXML = cauta_alfa_hash(loHash) && 11.07.2007
*!* IF !EMPTY(lcXML)
*!* XMLTOCURSOR(lcXML, "crsRulTemp")
*!* ELSE
*!* lnSucces = -1
*!* ENDIF
ENDIF
IF lnSucces > 0
SELECT crsRulTemp
CALCULATE SUM(ROUND(valoare,gnPc)) TO lnTotalValoareAchizitie
lnTotalValoareRepartizat = THIS.ntotalvaloarerepartizat
LOCAL lnValoareRepartizatSuma
lnValoareRepartizatSuma = 0
SELECT crsStoc
SCAN
lnIdArticol = ID_ARTICOL
lnCante = cants + cant - cante
lnPret = PRET
lnIdGestiune = ID_GESTIUNE
lcCont = CONT
lcAcont = ACONT
lnStoc = stoc
*!* SCOT STOCUL EXISTENT CU PRETUL VECHI
SELECT rul_temp
SCATTER NAME loRul BLANK
WITH loRul
.ID_ARTICOL = lnIdArticol
.id_gestout = lnIdGestiune
.ID_GESTIUNE = lnIdGestiune
.cante = lnStoc
.PRET = lnPret
.CONT = lcCont
.ACONT = lcAcont
ENDWITH
SELECT rul_temp
APPEND BLANK
GATHER NAME loRul
*!* INTRODUC STOCUL EXISTENT CU PRETUL NOU
*!* coeficient_lesie = valoare_achizitie_lesie / valoare_achizitie_totala
*!* valoare_repartizata_lesie = valoare_totala_de_repartizat * coeficient_lesie
*!* valoare_lesie = valoare_stoc_lesie + valoare_repartizata_lesie
*!* pret_lesie = valoare_lesie / stoc_final_lesie
SELECT crsRulTemp
*!* modificare v 2.2.33 : am adaugat PRET
LOCATE FOR ID_ARTICOL = lnIdArticol AND ID_GESTIUNE = lnIdGestiune AND CONT = lcCont AND NVL(ACONT,'XXXX') = NVL(lcAcont,'XXXX') AND pret = lnPret
IF FOUND()
*!* modificare v 2.2.33 : round(...)
lnCoeficient = ROUND(valoare / lnTotalValoareAchizitie,2)
ELSE
lnCoeficient = 0
ENDIF
&& la ultimul reper valoarea de repartizat = total valoare de repartizat - valoarea repartizata pe reperele anterioare
lnValoareRepartizat = ROUND(lnTotalValoareRepartizat * lnCoeficient, gnPc)
IF RECCOUNT('crsStoc') = RECNO('crsStoc') && ultimul reper
lnValoareRepartizat = lnTotalValoareRepartizat - lnValoareRepartizatSuma
ELSE
lnValoareRepartizatSuma = lnValoareRepartizatSuma + lnValoareRepartizat
ENDIF
lnValoare = ROUND(lnStoc * lnPret + lnValoareRepartizat, gnPc)
lnPret = ROUND(lnValoare / lnStoc, gnPpret)
SELECT rul_temp
SCATTER NAME loRul BLANK
WITH loRul
.ID_ARTICOL = lnIdArticol
.id_gestout = lnIdGestiune
.ID_GESTIUNE = lnIdGestiune
.cant = lnStoc
.PRET = lnPret
.CONT = lcCont
.ACONT = lcAcont
ENDWITH
SELECT rul_temp
APPEND BLANK
GATHER NAME loRul
ENDSCAN
ENDIF
SELECT rul_temp
REPLACE ALL ID_TIP_RULAJ WITH 5 && RULAJ REPARTIZARE VALOARE PE ARTICOLE
*!* modificare 08.11.2007
lcCont = cont
*!* modificare 08.11.2007 ^
IF USED('ACTACTAN')
SELECT ACTACTAN
*!* modificare JC/JV 2007
REPLACE proc_tva WITH 0 FOR NVL(id_jtva_coloana,0)=0
*!* modificare JC/JV 2007 ^
GO TOP
*!* modificare 08.11.2007
replace scd WITH lcCont
*!* REPLACE SCD WITH rul_temp.CONT
*!* modificare 08.11.2007 ^
SCATTER NAME loActactan
SELECT rul_temp
REPLACE ALL dataact WITH loActactan.dataact, ;
nnir WITH loActactan.nnir, ;
id_sectie WITH loActactan.id_sectie, ;
id_responsabil WITH loActactan.id_responsabil, ;
id_lucrare WITH loActactan.id_lucrare, nract WITH loActactan.nract, serie_act WITH loActactan.serie_act
ENDIF
IF USED('crsStoc')
USE IN crsStoc
ENDIF
IF USED('crsRulTemp')
USE IN crsRulTemp
ENDIF
llSucces = IIF(lnSucces > 0, .T., .F.)
RETURN llSucces
ENDPROC
PROCEDURE cbo_explicatieTVA.Init
Select jtva_coloane
Locate For id_jtva_coloana = XSETS.id_jtax
If ! Found()
Go Top
Endif
Thisform.nProcenttva = cota_tva
This.Value = Alltrim(denumire)
ENDPROC
PROCEDURE cbo_explicatieTVA.InteractiveChange
Select jtva_coloane
Thisform.nProcenttva = cota_tva
Thisform.calculvaloarerepartizat()
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink