romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 10:54:13 +03:00
commit 09580ad9d6
340 changed files with 334893 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

641
Clase/oconversii.vc2 Normal file
View File

@@ -0,0 +1,641 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oconversii.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_conversie_conturi AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="grdConturi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cContVechi.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cContVechi.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cAcontVechi.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cAcontVechi.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cContNou.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cContNou.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cAcontNou.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cAcontNou.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: adaugare
*m: log
*m: modificare
*m: modificare_cont_balanta
*m: modificare_cont_plan
*m: stergere
*p: cacontnou
*p: cacontvechi
*p: ccontnou
*p: ccontvechi
*p: cconversie
*p: csubiectconversie
*p: lseaplica
*p: nid
*p: nseaplica
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cacontnou =
cacontvechi =
ccontnou =
ccontvechi =
cconversie =
csubiectconversie =
DoCreate = .T.
Height = 521
lseaplica = .F.
Name = "frm_conversie_conturi"
nid = 0
nseaplica = 0
Width = 599
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 600
_shape2.Height = 29
_shape2.Left = 606
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 24
Lb_titlu_alb_b121.Caption = "Configurare conturi"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Left = 568
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
Gridsort1.Left = 9
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 27
*</PropValue>
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 477, ;
Name = "But_modifica1", ;
TabIndex = 5, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 447, ;
Name = "But_nou1", ;
TabIndex = 6, ;
Top = 2
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Left = 537, ;
Name = "BUT_RENUNT1", ;
TabIndex = 3, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Left = 507, ;
Name = "But_sterge1", ;
TabIndex = 4, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grdConturi' AS _grdbase WITH ;
ColumnCount = 6, ;
DeleteMark = .F., ;
Height = 477, ;
HighlightStyle = 2, ;
Left = 8, ;
Name = "grdConturi", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "crsConversieConturi", ;
TabIndex = 1, ;
Top = 37, ;
Width = 581, ;
Column1.ControlSource = "explicatie", ;
Column1.Name = "cExplicatie", ;
Column1.ReadOnly = .T., ;
Column1.Width = 233, ;
Column2.ControlSource = "cont_vechi", ;
Column2.Name = "cContVechi", ;
Column2.ReadOnly = .T., ;
Column2.Width = 61, ;
Column3.ControlSource = "acont_vechi", ;
Column3.Name = "cAcontVechi", ;
Column3.ReadOnly = .T., ;
Column3.Width = 74, ;
Column4.ControlSource = "cont_nou", ;
Column4.Name = "cContNou", ;
Column4.ReadOnly = .T., ;
Column4.Width = 58, ;
Column5.ControlSource = "acont_nou", ;
Column5.Name = "cAcontNou", ;
Column5.ReadOnly = .T., ;
Column5.Width = 67, ;
Column6.ControlSource = "se_aplica", ;
Column6.CurrentControl = "Check1", ;
Column6.Name = "cSeAplica", ;
Column6.ReadOnly = .T., ;
Column6.Sparse = .F., ;
Column6.Width = 52
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grdConturi.cAcontNou.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic nou", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cAcontNou.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 'grdConturi.cAcontVechi.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic vechi", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cAcontVechi.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 'grdConturi.cContNou.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont nou", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cContNou.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 'grdConturi.cContVechi.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont vechi", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cContVechi.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 'grdConturi.cExplicatie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cExplicatie.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 'grdConturi.cSeAplica.Check1' AS checkbox WITH ;
Alignment = 2, ;
BackColor = 255,255,255, ;
Caption = "", ;
Height = 17, ;
Left = 29, ;
Name = "Check1", ;
ReadOnly = .T., ;
Top = 35, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grdConturi.cSeAplica.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Se aplica", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cSeAplica.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
PROCEDURE adaugare
LPARAMETERS toRec
INSERT INTO crsConversieConturi FROM NAME toRec
this.grdConturi.SetFocus()
ENDPROC
PROCEDURE do_adauga
PRIVATE pnId
pnId = 0
PRIVATE poRec
SELECT crsConversieConturi
SCATTER NAME poRec BLANK
poRec.tip_sold = "A"
poRec.conversie = this.cConversie
poRec.se_aplica = 1
loFrmModifica= CREATEOBJECT("frm_conversie_conturi_nou")
loFrmModifica.show(1)
IF gnButon = 1
lcSql = [BEGIN pack_conversie.adauga_cont(?@poRec.id, ?ALLTRIM(poRec.cont_vechi), ?ALLTRIM(poRec.acont_vechi), ?ALLTRIM(poRec.cont_nou), ?ALLTRIM(poRec.acont_nou), ?ALLTRIM(poRec.tip_sold), ?ALLTRIM(porec.explicatie), ?poRec.se_aplica, ?poRec.conversie); END;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
ELSE
this.adaugare(poRec)
ENDIF
ENDIF
ENDPROC
PROCEDURE do_modifica
IF RECCOUNT('crsConversieConturi') = 0
RETURN
ENDIF
PRIVATE poRec
SELECT crsConversieConturi
SCATTER NAME poRec
loFrmModifica= CREATEOBJECT("frm_conversie_conturi_nou")
loFrmModifica.show(1)
IF gnButon = 1
lcSql = [BEGIN pack_conversie.modifica_cont(?poRec.id, ?ALLTRIM(poRec.cont_vechi), ?ALLTRIM(poRec.acont_vechi), ?ALLTRIM(poRec.cont_nou), ?ALLTRIM(poRec.acont_nou), ?ALLTRIM(poRec.tip_sold), ?ALLTRIM(porec.explicatie), ?poRec.se_aplica, ] + [?ALLTRIM(UPPER(poRec.conversie))); END;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
ELSE
this.modificare(poRec)
ENDIF
ENDIF
ENDPROC
PROCEDURE do_sterge
PRIVATE poRec
SELECT crsConversieConturi
SCATTER NAME poRec
IF AMESSAGEBOX('Doriti sa stergeti conversia ' + NVL(poRec.cont_vechi,'') + '.' + NVL(poRec.acont_vechi,'') + ' in ' + NVL(poRec.cont_nou,'') + '.' + NVL(poRec.acont_nou,'') + '?',4+32,'Sterge') = 6
lcSql = [BEGIN pack_conversie.sterge_cont(?poRec.id); END;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
ELSE
this.stergere(poRec)
ENDIF
ENDIF
this.grdConturi.SetFocus()
ENDPROC
PROCEDURE log
LPARAMETERS tctabela,tnId
IF EMPTY(tnId)
tnId = 0
ENDIF
lcId = ALLTRIM(STR(tnId))
lctabela = UPPER(ALLTRIM(NVL(tctabela,'')))
PRIVATE polog,pcschema1,pcselect1
STORE '' TO polog
pcschema1 = ['']
pcselect1=['select * from ] + gcS + [.vlog where ']
pcorder1=['dataora']
pcfiltru1 = [tabel = '] + lctabela + ['] + IIF(!EMPTY(tnId), [ and id_tabel = ] + lcId , '')
gencursor('polog','v_log',pcselect1,pcfiltru1,pcschema1,pcorder1)
polog.ca_baza1.afisare()
ofrmlog=CREATEOBJECT('frm_log')
ofrmlog.show(1)
RELEASE polog
ENDPROC
PROCEDURE modificare
LPARAMETERS toRec
SELECT crsConversieConturi
GATHER NAME toRec
this.grdConturi.SetFocus()
ENDPROC
PROCEDURE modificare_cont_balanta
ENDPROC
PROCEDURE modificare_cont_plan
ENDPROC
PROCEDURE stergere
LPARAMETERS toRec
SELECT crsConversieConturi
DELETE &&FOR ID = toRec.id
LOCATE
this.grdConturi.SetFocus()
ENDPROC
PROCEDURE grdConturi.cContNou.Text1.Valid
LOCAL lnSucces, lcContNou
lnSucces = 1
lcContNou = ALLTRIM(crsConversieConturi.cont_Nou)
IF lcContNou <> thisform.cContNou
IF AMESSAGEBOX('Doriti sa salvati?',4+32,'Modificare') = 6
lnSucces = thisform.modificare("cont_Nou",thisform.nId, lcContNou)
ELSE
lnSucces = -1
ENDIF
ENDIF
IF lnSucces = -1
REPLACE cont_Nou WITH thisform.cContNou IN crsConversieConturi
ENDIF
ENDPROC
PROCEDURE grdConturi.cContNou.Text1.When
thisform.nId = crsConversieConturi.id
thisform.cContNou = crsConversieConturi.cont_nou
ENDPROC
PROCEDURE grdConturi.cContVechi.Text1.Valid
LOCAL lnSucces, lcContNou
lnSucces = 1
lcContNou = ALLTRIM(crsConversieConturi.cont_Nou)
IF lcContNou <> thisform.cContNou
IF AMESSAGEBOX('Doriti sa salvati?',4+32,'Modificare') = 6
lnSucces = thisform.modificare("cont_Nou",thisform.nId, lcContNou)
ELSE
lnSucces = -1
ENDIF
ENDIF
IF lnSucces = -1
REPLACE cont_Nou WITH thisform.cContNou IN crsConversieConturi
ENDIF
ENDPROC
PROCEDURE grdConturi.cContVechi.Text1.When
thisform.nId = crsConversieConturi.id
thisform.cContNou = crsConversieConturi.cont_Nou
ENDPROC
PROCEDURE grdConturi.cExplicatie.Text1.DblClick
thisform.log("CONVERSIE_CONTURI",crsConversieConturi.id)
ENDPROC
PROCEDURE grdConturi.cSeAplica.Check1.When
thisform.nId = crsConversieConturi.id
thisform.nSeAplica = crsConversieConturi.se_aplica
ENDPROC
PROCEDURE grdConturi.DblClick
thisform.log("CONVERSIE_CONTURI")
ENDPROC
ENDDEFINE
DEFINE CLASS frm_conversie_conturi_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="clb_explicatie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_contvechi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_contnou" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_acontvechi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_acontnou" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chk_seaplica" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_tipcont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 176
Name = "frm_conversie_conturi_nou"
Width = 375
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 372
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 2
Lb_titlu_alb_b121.Caption = "Conversie conturi"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 10
BUT_TERMIN1.Left = 345
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 8
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Left = 315, ;
Name = "BUT_RENUNT1", ;
TabIndex = 9, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'chk_seaplica' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Se aplica", ;
ControlSource = "poRec.se_aplica", ;
Left = 9, ;
Name = "chk_seaplica", ;
TabIndex = 7, ;
Top = 154
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'clb_acontnou' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 135, ;
Name = "clb_acontnou", ;
TabIndex = 4, ;
Top = 64, ;
Width = 142, ;
TEXT_SIMPLU1.ControlSource = "poRec.acont_nou", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 83, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 55, ;
LB_SIMPLU1.Caption = "Analitic nou", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_acontvechi' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 135, ;
Name = "clb_acontvechi", ;
TabIndex = 2, ;
Top = 36, ;
Width = 142, ;
TEXT_SIMPLU1.ControlSource = "poRec.acont_vechi", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 83, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 55, ;
LB_SIMPLU1.Caption = "Analitic vechi", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_contnou' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 6, ;
Name = "clb_contnou", ;
TabIndex = 3, ;
Top = 64, ;
Width = 130, ;
TEXT_SIMPLU1.ControlSource = "poRec.cont_nou", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 71, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 55, ;
LB_SIMPLU1.Caption = "Cont nou", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_contvechi' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 6, ;
Name = "clb_contvechi", ;
TabIndex = 1, ;
Top = 36, ;
Width = 130, ;
TEXT_SIMPLU1.ControlSource = "poRec.cont_vechi", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 71, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 55, ;
LB_SIMPLU1.Caption = "Cont vechi", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_explicatie' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 6, ;
Name = "clb_explicatie", ;
TabIndex = 5, ;
Top = 92, ;
Width = 360, ;
TEXT_SIMPLU1.ControlSource = "poRec.explicatie", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 70, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 286, ;
LB_SIMPLU1.Caption = "Explicatie", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_tipcont' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 6, ;
Name = "clb_tipcont", ;
TabIndex = 6, ;
Top = 120, ;
Width = 271, ;
_CBBASE1.ControlSource = "poRec.tip_sold", ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 170, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.RowSource = "A,P,B", ;
_CBBASE1.RowSourceType = 1, ;
_CBBASE1.Top = 3, ;
_CBBASE1.Width = 99, ;
_LBBASE1.Caption = "Tip cont nou", ;
_LBBASE1.Name = "_LBBASE1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
PROCEDURE inainte_de_do_termin
DO CASE
CASE (EMPTY(poRec.cont_vechi) OR ISNULL(poRec.cont_vechi)) AND (EMPTY(poRec.cont_nou) OR ISNULL(poRec.cont_nou))
AMESSAGEBOX('Completati contul nou',0+48,'Atentie')
THIS.clb_contnou.teXT_SIMPLU1.SetFocus()
RETURN .F.
CASE EMPTY(poRec.cont_nou) OR ISNULL(poRec.cont_nou)
AMESSAGEBOX('Completati contul nou',0+48,'Atentie')
THIS.clb_contnou.teXT_SIMPLU1.SetFocus()
RETURN .F.
CASE EMPTY(poRec.explicatie) OR ISNULL(poRec.explicatie)
AMESSAGEBOX('Completati explicatia',0+48,'Atentie')
THIS.clb_explicatie.teXT_SIMPLU1.SetFocus()
RETURN .F.
ENDCASE
ENDPROC
PROCEDURE clb_tipcont._CBBASE1.Init
DO CASE
CASE porec.tip_sold = "A"
this.Value = "A"
CASE porec.tip_sold = "P"
this.Value = "P"
CASE porec.tip_sold = "B"
this.Value = "B"
OTHERWISE
**nada..
ENDCASE
ENDPROC
PROCEDURE clb_tipcont._CBBASE1.LostFocus
DO CASE
CASE this.Value = "Activ"
porec.tip_sold = "A"
CASE this.Value = "Pasiv"
porec.tip_sold = "P"
CASE this.Value = "Bifunctional"
porec.tip_sold = "B"
ENDCASE
ENDPROC
PROCEDURE clb_tipcont._CBBASE1.Valid
DO CASE
CASE this.Value = "A"
porec.tip_sold = "A"
CASE this.Value = "P"
porec.tip_sold = "P"
CASE this.Value = "B"
porec.tip_sold = "B"
ENDCASE
ENDPROC
ENDDEFINE