Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
224
clase/ointroduceri_depozit.vc2
Normal file
224
clase/ointroduceri_depozit.vc2
Normal file
@@ -0,0 +1,224 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="ointroduceri_depozit.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS frm_articole_noi AS formtermin 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="grdArticole" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdArticole.cCodBare.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdArticole.cCodBare.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdArticole.cDenumire.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdArticole.cDenumire.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdArticole.cCantitate.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdArticole.cCantitate.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdArticole.cIdArticol.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grdArticole.cIdArticol.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_modifica2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_LBBASE1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DoCreate = .T.
|
||||
Height = 360
|
||||
Name = "frm_articole_noi"
|
||||
Width = 491
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 600
|
||||
_shape2.Left = 441
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = 0
|
||||
Lb_titlu_alb_b121.Caption = "Articole noi"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Left = 461
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.Top = 1
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT '_LBBASE1' AS _lbbase WITH ;
|
||||
Caption = "Articole pentru care nu s-a gasit codul de bare in baza de date", ;
|
||||
Left = 13, ;
|
||||
Name = "_LBBASE1", ;
|
||||
Top = 37
|
||||
*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'But_modifica2' AS but_modifica WITH ;
|
||||
caction = do_modifica, ;
|
||||
Left = 399, ;
|
||||
Name = "But_modifica2", ;
|
||||
Top = 1, ;
|
||||
Visible = .T.
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
|
||||
Left = 432, ;
|
||||
Name = "BUT_RENUNT1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'grdArticole' AS _grdbase WITH ;
|
||||
ColumnCount = 4, ;
|
||||
DeleteMark = .F., ;
|
||||
Height = 288, ;
|
||||
Left = 8, ;
|
||||
Name = "grdArticole", ;
|
||||
Panel = 1, ;
|
||||
ReadOnly = .T., ;
|
||||
RecordSource = "crsArticoleNoiTemp", ;
|
||||
Top = 60, ;
|
||||
Width = 472, ;
|
||||
Column1.ColumnOrder = 3, ;
|
||||
Column1.ControlSource = "codbare", ;
|
||||
Column1.Name = "cCodBare", ;
|
||||
Column1.ReadOnly = .T., ;
|
||||
Column1.Width = 135, ;
|
||||
Column2.ColumnOrder = 2, ;
|
||||
Column2.ControlSource = "denumire", ;
|
||||
Column2.Name = "cDenumire", ;
|
||||
Column2.ReadOnly = .T., ;
|
||||
Column2.Width = 157, ;
|
||||
Column3.ColumnOrder = 4, ;
|
||||
Column3.ControlSource = "cantitate", ;
|
||||
Column3.Name = "cCantitate", ;
|
||||
Column3.ReadOnly = .T., ;
|
||||
Column3.Width = 74, ;
|
||||
Column4.ColumnOrder = 1, ;
|
||||
Column4.ControlSource = "id_articol", ;
|
||||
Column4.Name = "cIdArticol", ;
|
||||
Column4.ReadOnly = .T., ;
|
||||
Column4.Width = 66
|
||||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'grdArticole.cCantitate.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Cantitate", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdArticole.cCantitate.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grdArticole.cCodBare.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Cod bare", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdArticole.cCodBare.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grdArticole.cDenumire.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Denumire", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdArticole.cDenumire.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T.
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grdArticole.cIdArticol.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Id articol", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grdArticole.cIdArticol.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE do_modifica
|
||||
Private pcCodBare, pnId
|
||||
PRIVATE poArticol
|
||||
pcCodBare = Alltrim(crsArticoleNoiTemp.codbare)
|
||||
pnId = crsArticoleNoiTemp.id
|
||||
|
||||
|
||||
|
||||
loArticol = caut_articol() && ocautare.prg
|
||||
poArticol = loArticol
|
||||
|
||||
If !Empty(Nvl(poArticol.id_articol,0))
|
||||
|
||||
If Alltrim(Upper(NVL(poArticol.codbare,''))) <> Alltrim(Upper(NVL(crsArticoleNoiTemp.codbare,'')))
|
||||
lcSql = [update nom_articole set codbare = ?pcCodBare where id_articol = ?poArticol.id_articol]
|
||||
lnSucces = goExecutor.oExecute(lcSql)
|
||||
If lnSucces < 0
|
||||
AMESSAGEBOX(goExecutor.cEroare, 0+16, 'Eroare')
|
||||
Endif
|
||||
ENDIF
|
||||
|
||||
lcSql = [update dep_nir_detalii set id_articol = ?poArticol.id_articol, denumire = ?ALLTRIM(poArticol.denumire) where id = ?pnId]
|
||||
lnSucces = goExecutor.oExecute(lcSql)
|
||||
If lnSucces < 0
|
||||
AMESSAGEBOX(goExecutor.cEroare, 0+16, 'Eroare')
|
||||
Endif
|
||||
|
||||
Replace id_articol With poArticol.id_articol, denumire With poArticol.denumire In crsArticoleNoiTemp
|
||||
|
||||
Endif
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_termin
|
||||
SELECT crsArticoleNoiTemp
|
||||
LOCATE FOR EMPTY(NVL(id_articol,0))
|
||||
IF FOUND()
|
||||
AMESSAGEBOX('Nu ati identificat toate articolele!',0+48,'Articole')
|
||||
THIS.grdArticole.SetFocus()
|
||||
RETURN .F.
|
||||
ENDIF
|
||||
|
||||
RETURN .T.
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
DODEFAULT()
|
||||
this.grdArticole.SetAll("DynamicBackColor","IIF(NVL(ID_ARTICOL,0) = 0, RGB(160,180,240), RGB(255,255,255))", "Column")
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE grdArticole.AfterRowColChange
|
||||
LPARAMETERS nColIndex
|
||||
|
||||
*!* VERIFIC DACA ARTICOLUL ARE ID_ARTICOL
|
||||
IF !INLIST(THIS.RowColChange,1,3)
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
|
||||
IF NVL(crsArticoleNoiTemp.id_articol,0) = 0
|
||||
THISFORM.DO_MODIFICA()
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user