2803 lines
88 KiB
Plaintext
2803 lines
88 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_import_extrase_banca.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
#INCLUDE "comun.h"
|
|
|
|
DEFINE CLASS dataenvironment AS dataenvironment
|
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
|
|
|
*<PropValue>
|
|
DataSource = .NULL.
|
|
Height = 200
|
|
Left = 1
|
|
Name = "Dataenvironment"
|
|
Top = 220
|
|
Width = 520
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS form1 AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cIBAN.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cIBAN.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCodFiscal.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCodFiscal.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cTip.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cTip.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cAcont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cAcont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cExtensie.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cExtensie.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCreeazaParteneri.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCreeazaParteneri.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCreeazaParteneri._checkbox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cFactura.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cFactura.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cFactura._checkbox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cComanda.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cComanda.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cComanda._checkbox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cAles.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cAles.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cAles._checkbox1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cDenumire.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cDenumire.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cDataOra.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cDataOra.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi.cCodFiscal.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi.cCodFiscal.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi.cCont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi.cCont.Text1a" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi.cAcont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi.cAcont.Text1a" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi.cDenumire.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareConturi.cDenumire.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cmdImport" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cmdGenereazaNote" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cmdSterge" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cData.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cData.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cCodFiscal.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cCodFiscal.Text1a" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cNr.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cNr.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cDenumire.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cDenumire.Text1a" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cIBAN.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cIBAN.Text1a" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cDocumente.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cDocumente.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cExplicatie.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cExplicatie.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cSuma.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cSuma.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cTip.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cTip.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cTip2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cTip2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cComenzi.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdExtrase.cComenzi.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtData1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtData2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_help1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtIncasari" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtPlati" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblIncasari" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblPlati" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtExtras" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtOP" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cCodFiscal.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cCodFiscal.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cCont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cCont.Text1a" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cAcont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cAcont.Text1a" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cDenumire.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cDenumire.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cExplicatie.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConfigurareExplicatii.cExplicatie.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_sterge3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtData" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: cauta_fdoc
|
|
*m: completeazaclientiroa
|
|
*m: connectroa
|
|
*m: creeazanote
|
|
*m: disconnectroa
|
|
*m: exportdate
|
|
*m: getidpart
|
|
*m: loadsettings
|
|
*m: modificanote
|
|
*m: prelucreazafisierebreeze
|
|
*m: refreshconfigurari
|
|
*m: savesettings
|
|
*m: scrienote
|
|
*m: sql_temp_insert
|
|
*m: sql_temp_insert_values
|
|
*m: sterge_import
|
|
*m: templatexlsx
|
|
*m: trace
|
|
*m: verificaimport
|
|
*p: cfdocextras
|
|
*p: cfdocop
|
|
*p: lcontafin && Formularul se apeleaza din Contafin sau din ROA
|
|
*p: nidfdocextras
|
|
*p: nidfdocop
|
|
*p: _memberdata && XML Metadata for customizable properties
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
Caption = "Import extrase bancare, deconturi curieri, procesatori plati"
|
|
cfdocextras =
|
|
cfdocop =
|
|
DoCreate = .T.
|
|
Height = 457
|
|
Icon = ..\comun\grafice\note.ico
|
|
lcontafin = .F.
|
|
Left = 0
|
|
MaxButton = .T.
|
|
MinButton = .F.
|
|
Name = "Form1"
|
|
nidfdocextras = 0
|
|
nidfdocop = 0
|
|
ShowWindow = 0
|
|
Top = 0
|
|
Width = 890
|
|
WindowState = 2
|
|
WindowType = 1
|
|
_memberdata = <VFPData>
|
|
<memberdata name="verificaimport" display="VerificaImport"/>
|
|
<memberdata name="modificanote" display="ModificaNote"/>
|
|
<memberdata name="getidpart" display="GetIdPart"/>
|
|
<memberdata name="savesettings" display="SaveSettings"/>
|
|
<memberdata name="loadsettings" display="LoadSettings"/>
|
|
<memberdata name="lcontafin" display="lContafin"/>
|
|
<memberdata name="refreshconfigurari" display="RefreshConfigurari"/>
|
|
<memberdata name="nidfdocextras" display="nIdFdocExtras"/>
|
|
<memberdata name="nidfdocop" display="nIdFdocOP"/>
|
|
<memberdata name="cfdocextras" display="cFdocExtras"/>
|
|
<memberdata name="cfdocop" display="cFdocOP"/>
|
|
</VFPData>
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'But_help1' AS but_help WITH ;
|
|
Anchor = 0, ;
|
|
Left = 361, ;
|
|
Name = "But_help1", ;
|
|
TabIndex = 26, ;
|
|
Top = 22
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
|
Anchor = 8, ;
|
|
Left = 810, ;
|
|
Name = "But_nou1", ;
|
|
TabIndex = 18, ;
|
|
ToolTipText = "Alegeti contul care se completeaza la import pe un partener/cod fiscal", ;
|
|
Top = 66
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_nou2' AS but_nou WITH ;
|
|
Anchor = 8, ;
|
|
Left = 809, ;
|
|
Name = "But_nou2", ;
|
|
TabIndex = 19, ;
|
|
ToolTipText = "Alegeti partenerul si contul care se completeaza la import pe o explicatie", ;
|
|
Top = 191
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
|
Anchor = 8, ;
|
|
Left = 438, ;
|
|
Name = "But_sterge1", ;
|
|
TabIndex = 12, ;
|
|
Top = 66, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_sterge2' AS but_sterge WITH ;
|
|
Anchor = 8, ;
|
|
Left = 842, ;
|
|
Name = "But_sterge2", ;
|
|
TabIndex = 20, ;
|
|
Top = 65, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_sterge3' AS but_sterge WITH ;
|
|
Anchor = 8, ;
|
|
Left = 841, ;
|
|
Name = "But_sterge3", ;
|
|
TabIndex = 21, ;
|
|
Top = 190, ;
|
|
Visible = .T.
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'cmdGenereazaNote' AS commandbutton WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .F., ;
|
|
Caption = "\<Genereaza note", ;
|
|
Enabled = .F., ;
|
|
FontBold = .T., ;
|
|
Height = 52, ;
|
|
Left = 682, ;
|
|
Name = "cmdGenereazaNote", ;
|
|
Picture = ..\comun\grafice\note16.ico, ;
|
|
PicturePosition = 7, ;
|
|
TabIndex = 6, ;
|
|
Top = 6, ;
|
|
Width = 98
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'cmdImport' AS commandbutton WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .F., ;
|
|
Caption = "\<Import", ;
|
|
FontBold = .T., ;
|
|
Height = 52, ;
|
|
Left = 584, ;
|
|
Name = "cmdImport", ;
|
|
Picture = ..\comun\grafice\inbox.ico, ;
|
|
PicturePosition = 7, ;
|
|
TabIndex = 5, ;
|
|
Top = 6, ;
|
|
Width = 98
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'cmdSterge' AS commandbutton WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .F., ;
|
|
Caption = "\<Sterge import", ;
|
|
Enabled = .T., ;
|
|
FontBold = .T., ;
|
|
Height = 52, ;
|
|
Left = 781, ;
|
|
Name = "cmdSterge", ;
|
|
Picture = ..\comun\grafice\erase01.ico, ;
|
|
PicturePosition = 7, ;
|
|
TabIndex = 7, ;
|
|
Top = 6, ;
|
|
Width = 98
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'grdConfigurareConturi' AS grid WITH ;
|
|
Anchor = 8, ;
|
|
ColumnCount = 4, ;
|
|
DeleteMark = .F., ;
|
|
Height = 92, ;
|
|
HighlightStyle = 2, ;
|
|
Left = 480, ;
|
|
Name = "grdConfigurareConturi", ;
|
|
Panel = 1, ;
|
|
RecordSource = "cConfigConturi", ;
|
|
TabIndex = 16, ;
|
|
Top = 94, ;
|
|
Width = 392, ;
|
|
Column1.ColumnOrder = 2, ;
|
|
Column1.ControlSource = "cod_fiscal", ;
|
|
Column1.Name = "cCodFiscal", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 97, ;
|
|
Column2.BackColor = 190,225,255, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "cont", ;
|
|
Column2.Name = "cCont", ;
|
|
Column2.ToolTipText = "DblClick pentru modificare", ;
|
|
Column2.Width = 55, ;
|
|
Column3.BackColor = 190,225,255, ;
|
|
Column3.ColumnOrder = 4, ;
|
|
Column3.ControlSource = "acont", ;
|
|
Column3.Name = "cAcont", ;
|
|
Column3.ToolTipText = "DblCLick pentru modificare", ;
|
|
Column3.Width = 51, ;
|
|
Column4.ColumnOrder = 1, ;
|
|
Column4.ControlSource = "denumire", ;
|
|
Column4.Name = "cDenumire", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.ToolTipText = "Dublu click pentru editare", ;
|
|
Column4.Width = 152
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'grdConfigurareConturi.cAcont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Acont", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareConturi.cAcont.Text1a' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1a"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConfigurareConturi.cCodFiscal.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod fiscal", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareConturi.cCodFiscal.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 'grdConfigurareConturi.cCont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareConturi.cCont.Text1a' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1a"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConfigurareConturi.cDenumire.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Partener", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareConturi.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 'grdConfigurareExplicatii' AS grid WITH ;
|
|
Anchor = 8, ;
|
|
ColumnCount = 5, ;
|
|
DeleteMark = .F., ;
|
|
Height = 92, ;
|
|
HighlightStyle = 2, ;
|
|
Left = 479, ;
|
|
Name = "grdConfigurareExplicatii", ;
|
|
Panel = 1, ;
|
|
RecordSource = "cConfigExplicatii", ;
|
|
TabIndex = 17, ;
|
|
Top = 219, ;
|
|
Width = 392, ;
|
|
Column1.ColumnOrder = 3, ;
|
|
Column1.ControlSource = "cod_fiscal", ;
|
|
Column1.Name = "cCodFiscal", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 73, ;
|
|
Column2.BackColor = 190,225,255, ;
|
|
Column2.ColumnOrder = 4, ;
|
|
Column2.ControlSource = "cont", ;
|
|
Column2.Name = "cCont", ;
|
|
Column2.ToolTipText = "DblClick pentru modificare", ;
|
|
Column2.Width = 55, ;
|
|
Column3.BackColor = 190,225,255, ;
|
|
Column3.ColumnOrder = 5, ;
|
|
Column3.ControlSource = "acont", ;
|
|
Column3.Name = "cAcont", ;
|
|
Column3.ToolTipText = "DblCLick pentru modificare", ;
|
|
Column3.Width = 51, ;
|
|
Column4.BackColor = 190,225,255, ;
|
|
Column4.ColumnOrder = 2, ;
|
|
Column4.ControlSource = "denumire", ;
|
|
Column4.Name = "cDenumire", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 117, ;
|
|
Column5.ColumnOrder = 1, ;
|
|
Column5.ControlSource = "explicatie", ;
|
|
Column5.Name = "cExplicatie", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.ToolTipText = "Dublu click pentru editare", ;
|
|
Column5.Width = 121
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.cAcont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Acont", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.cAcont.Text1a' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1a"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.cCodFiscal.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod fiscal", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.cCodFiscal.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 'grdConfigurareExplicatii.cCont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.cCont.Text1a' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1a"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.cDenumire.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Partener", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.cDenumire.Text1' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.cExplicatie.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Explicatie", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConfigurareExplicatii.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' AS grid WITH ;
|
|
Anchor = 11, ;
|
|
ColumnCount = 12, ;
|
|
DeleteMark = .F., ;
|
|
HeaderHeight = 30, ;
|
|
Height = 226, ;
|
|
HighlightStyle = 2, ;
|
|
Left = 9, ;
|
|
Name = "grdConturi", ;
|
|
Panel = 1, ;
|
|
RecordSource = "cConturi", ;
|
|
TabIndex = 11, ;
|
|
Top = 94, ;
|
|
Width = 459, ;
|
|
Column1.ColumnOrder = 3, ;
|
|
Column1.ControlSource = "iban", ;
|
|
Column1.Name = "cIBAN", ;
|
|
Column1.Width = 164, ;
|
|
Column2.ColumnOrder = 2, ;
|
|
Column2.ControlSource = "banca", ;
|
|
Column2.Name = "cCodFiscal", ;
|
|
Column2.Width = 159, ;
|
|
Column3.ColumnOrder = 5, ;
|
|
Column3.ControlSource = "tip", ;
|
|
Column3.Name = "cTip", ;
|
|
Column3.Width = 59, ;
|
|
Column4.BackColor = 190,225,255, ;
|
|
Column4.ColumnOrder = 7, ;
|
|
Column4.ControlSource = "cont", ;
|
|
Column4.Name = "cCont", ;
|
|
Column4.ToolTipText = "DblClick pentru modificare", ;
|
|
Column4.Width = 66, ;
|
|
Column5.BackColor = 190,225,255, ;
|
|
Column5.ColumnOrder = 8, ;
|
|
Column5.ControlSource = "acont", ;
|
|
Column5.Name = "cAcont", ;
|
|
Column5.ToolTipText = "DblClick pentru modificare", ;
|
|
Column5.Width = 63, ;
|
|
Column6.ColumnOrder = 6, ;
|
|
Column6.ControlSource = "extensie", ;
|
|
Column6.Name = "cExtensie", ;
|
|
Column6.Width = 51, ;
|
|
Column7.BackColor = 190,225,255, ;
|
|
Column7.ColumnOrder = 9, ;
|
|
Column7.ControlSource = "part_nou", ;
|
|
Column7.CurrentControl = "_checkbox1", ;
|
|
Column7.Name = "cCreeazaParteneri", ;
|
|
Column7.ReadOnly = .F., ;
|
|
Column7.Sparse = .F., ;
|
|
Column7.Width = 56, ;
|
|
Column8.BackColor = 190,225,255, ;
|
|
Column8.ColumnOrder = 10, ;
|
|
Column8.ControlSource = "factura", ;
|
|
Column8.CurrentControl = "_checkbox1", ;
|
|
Column8.Name = "cFactura", ;
|
|
Column8.Sparse = .F., ;
|
|
Column8.Width = 58, ;
|
|
Column9.BackColor = 190,225,255, ;
|
|
Column9.ColumnOrder = 11, ;
|
|
Column9.ControlSource = "comanda", ;
|
|
Column9.CurrentControl = "_checkbox1", ;
|
|
Column9.Name = "cComanda", ;
|
|
Column9.Sparse = .F., ;
|
|
Column9.Width = 58, ;
|
|
Column10.BackColor = 190,225,255, ;
|
|
Column10.ColumnOrder = 1, ;
|
|
Column10.ControlSource = "ales", ;
|
|
Column10.CurrentControl = "_checkbox1", ;
|
|
Column10.Name = "cAles", ;
|
|
Column10.Sparse = .F., ;
|
|
Column10.Width = 28, ;
|
|
Column11.BackColor = 190,225,255, ;
|
|
Column11.ColumnOrder = 4, ;
|
|
Column11.ControlSource = "denumire", ;
|
|
Column11.Name = "cDenumire", ;
|
|
Column11.ReadOnly = .T., ;
|
|
Column11.ToolTipText = "Dublu click pentru alegerea unui cont bancar", ;
|
|
Column11.Width = 153, ;
|
|
Column12.ControlSource = "dataora", ;
|
|
Column12.Name = "cDataOra", ;
|
|
Column12.ReadOnly = .T., ;
|
|
Column12.Width = 108
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'grdConturi.cAcont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Acont", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cAcont.Text1' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cAles._checkbox1' AS _checkbox WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "", ;
|
|
ControlSource = "ales", ;
|
|
Left = 16, ;
|
|
Name = "_checkbox1", ;
|
|
Top = 85
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cAles.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Ales", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cAles.Text1' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cCodFiscal.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Banca / Curier / Procesator plati", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cCodFiscal.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cComanda._checkbox1' AS _checkbox WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "", ;
|
|
Left = 53, ;
|
|
Name = "_checkbox1", ;
|
|
Top = 73
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cComanda.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Asociaza comenzi", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cComanda.Text1' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cCont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cCont.Text1' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cCreeazaParteneri._checkbox1' AS _checkbox WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "", ;
|
|
ControlSource = "part_nou", ;
|
|
Left = 13, ;
|
|
Name = "_checkbox1", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cCreeazaParteneri.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Creeaza parteneri", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cCreeazaParteneri.Text1' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cDataOra.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data operare", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cDataOra.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.cDenumire.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Partener ROA / Cont bancar", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cDenumire.Text1' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cExtensie.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Extensie", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cExtensie.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cFactura._checkbox1' AS _checkbox WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "", ;
|
|
Height = 12, ;
|
|
Left = 28, ;
|
|
Name = "_checkbox1", ;
|
|
Top = 49
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cFactura.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Asociaza facturi", ;
|
|
Name = "Header1", ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cFactura.Text1' AS textbox WITH ;
|
|
BackColor = 190,225,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cIBAN.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "IBAN", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cIBAN.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cTip.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Tip", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cTip.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdExtrase' AS grid WITH ;
|
|
Anchor = 15, ;
|
|
ColumnCount = 11, ;
|
|
DeleteMark = .F., ;
|
|
Height = 68, ;
|
|
HighlightStyle = 2, ;
|
|
Left = 12, ;
|
|
Name = "grdExtrase", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "cExtrase", ;
|
|
TabIndex = 10, ;
|
|
Top = 384, ;
|
|
Width = 862, ;
|
|
Column1.ColumnOrder = 2, ;
|
|
Column1.ControlSource = "data", ;
|
|
Column1.Name = "cData", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 73, ;
|
|
Column2.ColumnOrder = 6, ;
|
|
Column2.ControlSource = "cod_fiscal", ;
|
|
Column2.CurrentControl = "Text1a", ;
|
|
Column2.Format = "K", ;
|
|
Column2.Name = "cCodFiscal", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 143, ;
|
|
Column3.ColumnOrder = 1, ;
|
|
Column3.ControlSource = "nr", ;
|
|
Column3.Name = "cNr", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 98, ;
|
|
Column4.ColumnOrder = 5, ;
|
|
Column4.ControlSource = "denumire", ;
|
|
Column4.Name = "cDenumire", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.ToolTipText = "DblClick pentru modificare", ;
|
|
Column4.Width = 156, ;
|
|
Column5.ColumnOrder = 7, ;
|
|
Column5.ControlSource = "iban", ;
|
|
Column5.Format = "K", ;
|
|
Column5.Name = "cIBAN", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.Width = 196, ;
|
|
Column6.ColumnOrder = 8, ;
|
|
Column6.ControlSource = "documente", ;
|
|
Column6.Name = "cDocumente", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column6.Width = 129, ;
|
|
Column7.ColumnOrder = 10, ;
|
|
Column7.ControlSource = "explicatie", ;
|
|
Column7.Name = "cExplicatie", ;
|
|
Column7.ReadOnly = .T., ;
|
|
Column7.Width = 101, ;
|
|
Column8.ColumnOrder = 3, ;
|
|
Column8.ControlSource = "suma", ;
|
|
Column8.Format = "RK", ;
|
|
Column8.InputMask = "999 999 999.99", ;
|
|
Column8.Name = "cSuma", ;
|
|
Column8.ReadOnly = .T., ;
|
|
Column8.Width = 106, ;
|
|
Column9.ColumnOrder = 4, ;
|
|
Column9.ControlSource = "iif(tip = 'C', 'Incasare', 'Plata')", ;
|
|
Column9.Name = "cTip", ;
|
|
Column9.ReadOnly = .T., ;
|
|
Column9.Width = 79, ;
|
|
Column10.ColumnOrder = 11, ;
|
|
Column10.ControlSource = "tip_2", ;
|
|
Column10.Name = "cTip2", ;
|
|
Column10.ReadOnly = .T., ;
|
|
Column11.ColumnOrder = 9, ;
|
|
Column11.ControlSource = "comenzi", ;
|
|
Column11.Name = "cComenzi", ;
|
|
Column11.ReadOnly = .T., ;
|
|
Column11.Width = 114
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'grdExtrase.cCodFiscal.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod fiscal", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cCodFiscal.Text1a' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1a", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdExtrase.cComenzi.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Comenzi", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cComenzi.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 'grdExtrase.cData.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cData.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 'grdExtrase.cDenumire.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Denumire", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cDenumire.Text1a' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1a", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdExtrase.cDocumente.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Documente", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cDocumente.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 'grdExtrase.cExplicatie.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Explicatie", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.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 'grdExtrase.cIBAN.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "IBAN", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cIBAN.Text1a' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1a", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdExtrase.cNr.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cNr.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 'grdExtrase.cSuma.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Suma", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cSuma.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 'grdExtrase.cTip.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Tip", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cTip.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 'grdExtrase.cTip2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Tip trz.", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdExtrase.cTip2.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 'Gridextra1' AS gridextra WITH ;
|
|
gridexpression = Thisform.grdConturi, ;
|
|
Left = 267, ;
|
|
Name = "Gridextra1", ;
|
|
productname = ROA, ;
|
|
Top = 70
|
|
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
|
|
|
ADD OBJECT 'Gridextra2' AS gridextra WITH ;
|
|
gridexpression = Thisform.grdConfigurareConturi, ;
|
|
Left = 744, ;
|
|
Name = "Gridextra2", ;
|
|
productname = ROA, ;
|
|
Top = 79
|
|
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
|
|
|
ADD OBJECT 'Gridextra3' AS gridextra WITH ;
|
|
gridexpression = Thisform.grdExtrase, ;
|
|
Left = 870, ;
|
|
Name = "Gridextra3", ;
|
|
productname = ROA, ;
|
|
Top = 361
|
|
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Fdoc. Extras:", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 477, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 15, ;
|
|
ToolTipText = 'Fel document "Extras cont" (DblClick pentru a modifica)', ;
|
|
Top = 323, ;
|
|
Width = 75
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Configurare conturi import pe parteneri", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 480, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 22, ;
|
|
ToolTipText = "Alegeti contul care se completeaza la import pe un partener/cod fiscal", ;
|
|
Top = 74, ;
|
|
Width = 224
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Conturi bancare / deconturi", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 12, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 24, ;
|
|
Top = 76, ;
|
|
Width = 156
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Detalii extrase / deconturi", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 24, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 25, ;
|
|
Top = 361, ;
|
|
Width = 147
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Perioada import", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 11, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 13, ;
|
|
Top = 8, ;
|
|
Width = 93
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Fdoc. OP:", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 694, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 14, ;
|
|
ToolTipText = 'Fel document "OP" (DblClick pentru a modifica)', ;
|
|
Top = 323, ;
|
|
Width = 55
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label7' AS label WITH ;
|
|
Anchor = 8, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Configurare parteneri si conturi import pe explicatii", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 479, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 23, ;
|
|
ToolTipText = "Alegeti partenerul si contul care se completeaza la import pe o explicatie", ;
|
|
Top = 199, ;
|
|
Width = 291
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label8' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Data extras", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 228, ;
|
|
Name = "Label8", ;
|
|
TabIndex = 3, ;
|
|
ToolTipText = "Se importa toate inregistrarile din fisier, indiferent de data lor. Se completeaza cu data extras. Se foloseste la importul deconturilor de la curieri.", ;
|
|
Top = 8, ;
|
|
Width = 68
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblIncasari' AS _label WITH ;
|
|
Anchor = 8, ;
|
|
Caption = "Incasari", ;
|
|
FontBold = .T., ;
|
|
Height = 18, ;
|
|
Left = 518, ;
|
|
Name = "lblIncasari", ;
|
|
TabIndex = 29, ;
|
|
Top = 360
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblPlati' AS _label WITH ;
|
|
Anchor = 8, ;
|
|
Caption = "Plati", ;
|
|
FontBold = .T., ;
|
|
Left = 710, ;
|
|
Name = "lblPlati", ;
|
|
TabIndex = 30, ;
|
|
Top = 360
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Anchor = 8, ;
|
|
BackStyle = 0, ;
|
|
Height = 287, ;
|
|
Left = 473, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Style = 3, ;
|
|
Top = 63, ;
|
|
Width = 405
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
Anchor = 11, ;
|
|
BackStyle = 0, ;
|
|
Height = 287, ;
|
|
Left = 5, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Style = 3, ;
|
|
Top = 63, ;
|
|
Width = 469
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape3' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
BorderColor = 150,150,150, ;
|
|
Height = 54, ;
|
|
Left = 9, ;
|
|
Name = "Shape3", ;
|
|
Top = 6, ;
|
|
Width = 213
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape4' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
BorderColor = 150,150,150, ;
|
|
Height = 54, ;
|
|
Left = 221, ;
|
|
Name = "Shape4", ;
|
|
Top = 6, ;
|
|
Width = 110
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'txtData' AS textbox WITH ;
|
|
Format = "!K", ;
|
|
Height = 23, ;
|
|
Left = 228, ;
|
|
Name = "txtData", ;
|
|
TabIndex = 4, ;
|
|
ToolTipText = "Se importa toate inregistrarile din fisier, indiferent de data lor. Se completeaza cu data extras. Se foloseste la importul deconturilor de la curieri.", ;
|
|
Top = 26, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtData1' AS textbox WITH ;
|
|
Format = "!K", ;
|
|
Height = 23, ;
|
|
Left = 13, ;
|
|
Name = "txtData1", ;
|
|
TabIndex = 1, ;
|
|
Top = 26, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtData2' AS textbox WITH ;
|
|
Format = "!K", ;
|
|
Height = 23, ;
|
|
Left = 119, ;
|
|
Name = "txtData2", ;
|
|
TabIndex = 2, ;
|
|
Top = 26, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtExtras' AS textbox WITH ;
|
|
Anchor = 8, ;
|
|
ControlSource = "Thisform.cFdocExtras", ;
|
|
Format = "!K", ;
|
|
Height = 23, ;
|
|
Left = 555, ;
|
|
Name = "txtExtras", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 8, ;
|
|
ToolTipText = 'Fel document "Extras cont" (DblClick pentru a modifica)', ;
|
|
Top = 320, ;
|
|
Width = 120
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtIncasari' AS _textbox WITH ;
|
|
Anchor = 8, ;
|
|
Format = "RK", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999.99", ;
|
|
Left = 578, ;
|
|
Name = "txtIncasari", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 27, ;
|
|
Top = 358, ;
|
|
Width = 124
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtOP' AS textbox WITH ;
|
|
Anchor = 8, ;
|
|
ControlSource = "Thisform.cFdocOP", ;
|
|
Format = "!K", ;
|
|
Height = 23, ;
|
|
Left = 753, ;
|
|
Name = "txtOP", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 9, ;
|
|
ToolTipText = 'Fel document "OP" (DblClick pentru a modifica)', ;
|
|
Top = 320, ;
|
|
Width = 120
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtPlati' AS _textbox WITH ;
|
|
Anchor = 8, ;
|
|
Format = "RK", ;
|
|
Height = 23, ;
|
|
InputMask = "999 999 999.99", ;
|
|
Left = 749, ;
|
|
Name = "txtPlati", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 28, ;
|
|
Top = 358, ;
|
|
Width = 124
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
|
|
|
PROCEDURE cauta_fdoc
|
|
Lparameters tcTipDoc
|
|
|
|
Local loCauta, lcTipDoc
|
|
lcTipDoc = Lower(m.tcTipDoc)
|
|
loCauta = caut_fdoc()
|
|
If !Isnull(loCauta)
|
|
Do Case
|
|
Case lcTipDoc = 'extras'
|
|
lnSucces = scrie_optiune('ID_FDOC_EXTRASCONT', INT(NVL(loCauta.id_fdoc,0)))
|
|
IF m.lnSucces > 0
|
|
Thisform.nIdFdocExtras = loCauta.id_fdoc
|
|
Thisform.cFdocExtras = loCauta.fel_document
|
|
gnID_FDOC_EXTRASCONT = Thisform.nIdFdocExtras
|
|
ENDIF
|
|
thisform.txtExtras.Refresh()
|
|
Case lcTipDoc = 'op'
|
|
lnSucces = scrie_optiune('ID_FDOC_OP', INT(NVL(loCauta.id_fdoc,0)))
|
|
IF m.lnSucces > 0
|
|
Thisform.nIdFdocOP = loCauta.id_fdoc
|
|
Thisform.cFdocOP = loCauta.fel_document
|
|
gnID_FDOC_OP = Thisform.nIdFdocOP
|
|
Thisform.txtOP.Refresh()
|
|
ENDIF
|
|
Endcase
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE completeazaclientiroa
|
|
ENDPROC
|
|
|
|
PROCEDURE connectroa
|
|
ENDPROC
|
|
|
|
PROCEDURE creeazanote
|
|
Local loImport As "ImportNote"
|
|
Local lcAcontBanca, lcClass, lcClassType, lcContBanca, lcFile, lcFileExt, lcFileType, lcParam
|
|
Local llCreeazaNote, llSucces, ldData1, ldData2, ldData
|
|
Select cConturi
|
|
lcClass = Alltrim(clasa)
|
|
lcFileExt = Alltrim(extensie)
|
|
lcClassType = Alltrim(tipclasa)
|
|
lcFileType = Alltrim(tip)
|
|
lcContBanca = Alltrim(Cont)
|
|
lcAcontBanca = Alltrim(acont)
|
|
lcFile = Alltrim(fisier)
|
|
|
|
* Parcurg fisierul si determin IBAN-ul si inregistrarile din extras
|
|
ldData1 = thisform.txtData1.Value
|
|
ldData2 = thisform.txtData2.Value
|
|
ldData = thisform.txtData2.Value
|
|
|
|
lcParam = Iif(!Empty(m.lcContBanca), "cContBanca=>" + m.lcContBanca, "") + Iif(!Empty(m.lcAcontBanca), "??cAcontBanca=>" + m.lcAcontBanca, "")
|
|
loImport = Createobject("ImportNote", m.lcFile, m.ldData1, m.ldData2, m.lcClass, m.lcClassType, m.lcFileType, m.lcFileExt, m.lcParam, m.ldData) && oproceduri_import.prg
|
|
llCreeazaNote = .T.
|
|
llSucces = loImport.Import(m.llCreeazaNote) && rezulta cursorul cActTemp
|
|
|
|
Return m.llSucces
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Destroy
|
|
Thisform.SaveSettings()
|
|
|
|
USE IN (SELECT('cConturi'))
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE disconnectroa
|
|
ENDPROC
|
|
|
|
PROCEDURE exportdate
|
|
ENDPROC
|
|
|
|
PROCEDURE getidpart
|
|
LPARAMETERS tcDenumire
|
|
LOCAL lcDenumire, lnId
|
|
lnId = 0
|
|
lcDenumire = ALLTRIM(m.tcDenumire)
|
|
IF USED('cParteneri')
|
|
IF SEEK(m.lcDenumire, 'cParteneri','denumire')
|
|
lnId = cParteneri.id_part
|
|
ENDIF
|
|
ENDIF
|
|
RETURN m.lnId
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
this.txtData1.Value = DATE(m.gnAn, m.gnLuna, 1)
|
|
This.txtData2.Value = GOMONTH(DATE(m.gnAn, m.gnLuna, 1),1)-1
|
|
this.txtData.Value = {}
|
|
|
|
Thisform.nIdFdocOP = m.gnID_FDOC_OP
|
|
Thisform.cFdocOP = GetFdocById(m.gnID_FDOC_OP)
|
|
Thisform.nIdFdocExtras = m.gnID_FDOC_EXTRASCONT
|
|
Thisform.cFdocExtras = GetFdocById(m.gnID_FDOC_EXTRASCONT)
|
|
|
|
* Colorez cu albastru inregistrarile pentru import
|
|
this.grdConturi.SetAll("DynamicForeColor", "IIF(cConturi.note = 1, RGB(0,128,0), IIF(cConturi.import = 1, RGB(0,0,128), RGB(0,0,0)))","Column")
|
|
|
|
this.gridextra1.setup()
|
|
this.gridextra2.setup()
|
|
this.gridextra3.setup()
|
|
DODEFAULT()
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Load
|
|
CREATE CURSOR cConturi (ales N(1), note N(1), import N(1), banca C(100), iban C(100), clasa C(100), fisier C(250), ;
|
|
tip C(20), extensie C(4), tipclasa C(100), cont C(4), acont C(4), part_nou L, factura L, comanda L, denumire C(100), id_part N(10), dataora T)
|
|
|
|
* Trebuie sa citesc configurarile pentru fiecare IBAN
|
|
CREATE CURSOR cConfigConturi(iban C(100), id_part N(10), denumire C(200), cod_fiscal C(50), cont C(4), acont C(4))
|
|
|
|
* Explicatii - cont, partener configurate de utilizator
|
|
CREATE CURSOR cConfigExplicatii(iban C(100), id_part N(10), denumire C(200), cod_fiscal C(50), cont C(4), acont C(4), explicatie V(250))
|
|
|
|
CREATE CURSOR cExtrase (eiban C(100), nr N(14), Data D, suma N(15, 2), suma_val N(15, 2), ;
|
|
explicatie c (100), iban c (24), denumire c (60), cod_fiscal c (13), tip c (2), tip_2 c (3), documente c(250), comenzi C(250))
|
|
|
|
This.LoadSettings()
|
|
|
|
Select cConfigConturi
|
|
Set Filter To iban = cConturi.iban
|
|
|
|
Select cConfigExplicatii
|
|
Set Filter To iban = cConturi.iban
|
|
|
|
SELECT cExtrase
|
|
SET FILTER TO eiban = cConturi.iban
|
|
|
|
SELECT cConturi
|
|
ENDPROC
|
|
|
|
PROCEDURE loadsettings
|
|
* Incarc setarile pe fiecare IBAN
|
|
|
|
Local lcConfig, lcConturi, lcConfigExplicatii
|
|
lcConturi = citeste_optiune('EXTRASEB_CONTURI', .T.)
|
|
lcConfigConturi = citeste_optiune('EXTRASEB_CONFIG', .T.)
|
|
lcConfigExplicatii = citeste_optiune('EXTRASEB_CONFIG_EXPL', .T.)
|
|
|
|
|
|
If !Empty(m.lcConturi)
|
|
Xmltocursor(m.lcConturi, 'cConturiTemp')
|
|
Select cConturi
|
|
Append From Dbf('cConturiTemp')
|
|
Use In (Select('cConturiTemp'))
|
|
UPDATE cConturi SET import = 0, ales = 0, note = 0
|
|
|
|
* Completez numele partenerilor tip BANCA
|
|
* Caut si pentru conturile care au denumirea partenerului completata, in cazul in care s-a modificat intre timp
|
|
* Doar informativ. Se mai face o cautare si la generare note
|
|
SELECT cConturi
|
|
SCAN FOR !EMPTY(NVL(iban, '')) AND (EMPTY(NVL(id_part,0)) OR EMPTY(NVL(denumire, '')))
|
|
lcIBAN = ALLTRIM(iban)
|
|
loPartener = GetPartenerByContBanca(m.lcIBAN)
|
|
IF !ISNULL(loPartener)
|
|
REPLACE id_part WITH NVL(loPartener.id_part, 0), denumire WITH NVL(loPartener.denumire,'') IN cConturi
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
Go Top In cConturi
|
|
Endif
|
|
|
|
If !Empty(m.lcConfigConturi)
|
|
Xmltocursor(m.lcConfigConturi, 'cConfigConturiTemp')
|
|
Select cConfigConturi
|
|
Append From Dbf('cConfigConturiTemp')
|
|
Use In (Select('cConfigConturiTemp'))
|
|
Go Top In cConfigConturi
|
|
ENDIF
|
|
|
|
If !Empty(m.lcConfigExplicatii)
|
|
Xmltocursor(m.lcConfigExplicatii, 'cConfigExplicatiiTemp')
|
|
Select cConfigExplicatii
|
|
Append From Dbf('cConfigExplicatiiTemp')
|
|
Use In (Select('cConfigExplicatiiTemp'))
|
|
Go Top In cConfigExplicatii
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE modificanote
|
|
LPARAMETERS tlIncarcaBackup
|
|
|
|
* 10.02.2026
|
|
* completez taxcode plati buget salarii, impozit venit/profit, tva de plata
|
|
|
|
* tlIncarcaBackup (optional): daca se incarca notele din backup.xml
|
|
|
|
Local loForm As [frm_modific2007]
|
|
Local llMaximize, llNotaNoua, lnIdSet, llSucces, lcSelect
|
|
Local lcSql, lnSucces, lnTaxCode
|
|
Local ldDataAct, llFurnizorTVAI, lnIdJtva
|
|
Local loBackupXML As "backupxml"
|
|
Local lcXMLFileName, llRestoredBackupSet, llSuces, lnNract, lnNractNegativ, lnRec
|
|
|
|
*:Global gcAcces
|
|
Private pnCod
|
|
|
|
llSucces = .T.
|
|
lnIdSet = 90023
|
|
lcSelect = Select()
|
|
|
|
* cursor cActTemp (denumire, iban, nr, data, suma, explicatie, scd, scc, id_partd, id_partc, partd, partc, id_fdoc, fdoc)
|
|
update_jtva_coloane("JV", 'crsExplicatiiTVATemp', 1)
|
|
|
|
SELECT * FROM crsExplicatiiTVATemp INTO CURSOR crsJTVATemp READWRITE
|
|
*!* 15.07.2026 marius.mutu - index necesar pentru Seek-ul din frm_modific2024.grdRulaje.cExplicatieTVA
|
|
SELECT crsJTVATemp
|
|
INDEX ON id_jtva_coloana TAG id_jtva
|
|
|
|
llSuces = .T.
|
|
lcXMLFileName = 'nota_' + Alltrim(Str(m.lnIdSet)) && Iif(m.tnIdSet = 99998, 'notafarapredefinire2', Iif(m.tnIdSet = 99999, 'notafarapredefinire', 'nota'))
|
|
loBackupXML = Createobject("backupxml", m.lcXMLFileName) && oproceduri_comune.prg
|
|
IF m.tlIncarcaBackup
|
|
llExistaBackupSet = loBackupXML.ExistsBackupSet()
|
|
IF !m.llExistaBackupSet
|
|
AMESSAGEBOX('Nu exista o nota salvata anterior!',0+48,_Screen.Caption)
|
|
RETURN m.llSucces
|
|
ENDIF
|
|
ENDIF
|
|
|
|
IF !m.tlIncarcaBackup
|
|
lcSql = [SELECT * FROM vact WHERE 1=2]
|
|
llSucces = goExecutor.oExecuta(m.lcSql, 'actactan_temp')
|
|
|
|
|
|
* Creez cursoare trul, trul_obinv
|
|
lcSql = [select * from vrul_tot where 1=2]
|
|
lcCursor = [v_rul]
|
|
|
|
llSucces = goExecutor.oExecuta(lcSql,lcCursor)
|
|
|
|
If m.llSucces
|
|
Select *, ;
|
|
valoare + valtva As valoarectva, ;
|
|
valoarev + valtvav As valoarevctva ;
|
|
From v_rul ;
|
|
Into Cursor trul READWRITE
|
|
|
|
Use In (SELECT('v_rul'))
|
|
|
|
lcSql = [select * from vrul_obinv_tot where 1=2]
|
|
lcCursor = [v_rul_obinv]
|
|
|
|
llSucces = goExecutor.oExecuta(lcSql,lcCursor)
|
|
Endif
|
|
|
|
If m.llSucces
|
|
Select *, ;
|
|
valoare + valtva As valoarectva, ;
|
|
valoarev + valtvav As valoarevctva ;
|
|
From v_rul_obinv ;
|
|
Into Cursor trul_obinv READWRITE
|
|
|
|
Use In (SELECT('v_rul_obinv'))
|
|
Endif
|
|
|
|
ELSE
|
|
llRestoredBackupSet = loBackupXML.RestoreBackupSet()
|
|
IF USED('tAct')
|
|
UPDATE tAct SET explicatia5 = 'IMPORT ' + STRTRAN(TTOC(DATETIME(),3), 'T', ' ')
|
|
ENDIF
|
|
ENDIF
|
|
|
|
If m.llSucces AND !m.tlIncarcaBackup
|
|
Select actactan_temp
|
|
IF USED('actactan')
|
|
Append From Dbf('actactan')
|
|
ENDIF
|
|
|
|
Select .F. As ales, a.explicatia4 As iban, Iif(!Empty(Nvl(a.id_jtva_coloana, 0)), 1, 0) As Cu_tva, Cast(0 As N(2)) As tipnota, a.*, b.denumire As explicatie_tva_2 ;
|
|
From actactan_temp a Left Join crsExplicatiiTVATemp b On a.id_jtva_coloana = b.id_jtva_coloana ;
|
|
Into Cursor tact Readwrite
|
|
|
|
Update tact Set explicatie_tva = explicatie_tva_2, explicatia4 = '', id_Set = m.lnIdSet, explicatia5 = 'IMPORT ' + STRTRAN(TTOC(DATETIME(),3), 'T', ' ')
|
|
UPDATE tAct SET nract = INT(VAL(DTOS(dataact) + ALLTRIM(STR(RECNO())))) WHERE EMPTY(NVL(nract,0))
|
|
|
|
|
|
* Completare nract pentru notele retragere de numerar 5311 = 581 adaugate suplimentar, la fel ca in notele 581 = 5121
|
|
SELECT nract FROM tAct WHERE nract < 0 INTO CURSOR cNrActNegativ
|
|
SELECT cNrActNegativ
|
|
SCAN
|
|
lnNractNegativ = nract
|
|
lnRec = -1*m.lnNractNegativ
|
|
SELECT tAct
|
|
LOCATE FOR RECNO() = m.lnRec
|
|
IF FOUND()
|
|
lnNract = nract
|
|
LOCATE FOR nract = m.lnNrActNegativ
|
|
IF FOUND()
|
|
REPLACE nract WITH m.lnNract
|
|
ENDIF
|
|
ENDIF
|
|
ENDSCAN
|
|
USE IN (SELECT('cNrActNegativ'))
|
|
|
|
* Actualizez taxcode SAFT in functie de furnizori RTVAI
|
|
IF m.gl406
|
|
SELECT tact
|
|
SCAN FOR !EMPTY(id_jtva_coloana)
|
|
lnIdJtva = id_jtva_coloana
|
|
ldDataAct = dataact
|
|
llFurnizorTVAI = .F.
|
|
lnTaxCode = GetTaxCode(m.gnAn, m.gnLuna, m.ldDataAct, m.lnIdJtva, m.llFurnizorTVAI)
|
|
SELECT tact
|
|
REPLACE taxcode WITH m.lnTaxCode
|
|
ENDSCAN
|
|
|
|
UPDATE tact SET paymentcode = '42' WHERE LEFT(scd,3) = '512' OR LEFT(scc,3) = '512' && plata in contul bancar
|
|
ENDIF
|
|
Endif && llSucces
|
|
|
|
If m.llSucces
|
|
gcAcces = "1;2;3;4;"
|
|
Select tact
|
|
Go Top
|
|
llNotaNoua = .T.
|
|
llMaximize = .T.
|
|
loForm = Createobject([frm_modific2024], m.lnIdSet, m.llNotaNoua)
|
|
loForm.lb_titlu_alb_b121.Caption = 'Import extrase bancare, deconturi curieri, procesatori plati'
|
|
Select tact
|
|
loForm.Show(1, m.llMaximize)
|
|
|
|
*** SALVEZ NOTELE FARA PREDEFINIRE INAINTE DE SCRIEREA IN BAZA DE DATE
|
|
If Type('loBackupXML') = 'O' And Used('tact')
|
|
loBackupXML.SaveBackupSet("tact")
|
|
loBackupXML.SaveBackupSet("trul")
|
|
loBackupXML.SaveBackupSet("trul_obinv")
|
|
ENDIF
|
|
|
|
If buton = 1
|
|
Use In (Select('actactan'))
|
|
|
|
Update tact Set id_jtva_coloana = Null, PROC_TVA = 0 Where Cu_tva = 0
|
|
|
|
* completez taxcode plati buget salarii, impozit venit/profit, tva de plata
|
|
UPDATE tact SET taxcode = 412000 WHERE scd = '4315' or scc = '4315'
|
|
UPDATE tact SET taxcode = 432000 WHERE scd = '4316' or scc = '4316'
|
|
UPDATE tact SET taxcode = 480000 WHERE scd = '436' or scc = '436'
|
|
UPDATE tact SET taxcode = 602000 WHERE scd = '444' or scc = '444'
|
|
UPDATE tact SET taxcode = 301000 WHERE scd = '4423' or scc = '4423'
|
|
UPDATE tact SET taxcode = 100000 WHERE scd = '4411' or scc = '4411'
|
|
UPDATE tact SET taxcode = 120000 WHERE scd = '4418' or scc = '4418'
|
|
|
|
lnSucces = SQLSetprop(m.gnhandle, "Transactions", 2)
|
|
llSucces = (m.lnSucces > 0)
|
|
If m.llSucces
|
|
* Generez coduri distinct pentru fiecare document.
|
|
* La vizualizare note este de preferat sa nu vad incasari si plati in acelasi document!!??
|
|
|
|
lcSql = [SELECT seq_cod.nextval FROM dual]
|
|
Select distinct dataact, nract From tact Into Cursor cCodTemp
|
|
Select cCodTemp
|
|
Scan
|
|
Wait Window 'Salvare nota ' + Transform(Recno()) + '/' + Transform(Reccount()) Nowait
|
|
pnCod = 0
|
|
llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @pnCod)
|
|
If m.llSucces
|
|
Update tact Set cod = m.pnCod Where EMPTY(NVL(cod,0)) AND NVL(nract,0) = NVL(cCodTemp.nract,0) AND NVL(dataact, DATE()) = NVL(cCodTemp.dataact, DATE())
|
|
|
|
Select * From tact Where cod = m.pnCod Into Cursor actactan Readwrite
|
|
|
|
Select actactan
|
|
lnSucces = OSCRIE_IN_FISIERE(0, .F., .F., .T.)
|
|
llSucces = (m.lnSucces > 0)
|
|
Use In (Select('actactan'))
|
|
If !m.llSucces
|
|
Exit
|
|
Endif
|
|
Else
|
|
Exit
|
|
Endif
|
|
Endscan && cCodTemp
|
|
Use In (Select('cCodTemp'))
|
|
Endif && llSucces
|
|
|
|
|
|
If !m.llSucces
|
|
lcSql = "ROLLBACK"
|
|
Else
|
|
lcSql = "COMMIT"
|
|
Endif
|
|
lnSucces = goExecutor.oExecute(m.lcSql)
|
|
llSucces = (m.lnSucces > 0)
|
|
If !m.llSucces
|
|
AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare")
|
|
Endif
|
|
|
|
lnSucces = SQLSetprop(gnhandle, "Transactions", 1)
|
|
llSucces = (m.lnSucces > 0)
|
|
If !m.llSucces
|
|
AMESSAGEBOX('Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!', 0 + 48, 'Atentie!')
|
|
Endif
|
|
Else
|
|
llSucces = .F.
|
|
Endif && buton = 1
|
|
Endif && llSucces
|
|
|
|
Use In (Select('crsExplicatiiTVATemp'))
|
|
Use In (Select('crsJTVATemp'))
|
|
Use In (Select('tact'))
|
|
Use In (Select('trul'))
|
|
Use In (Select('trul_obinv'))
|
|
Select (m.lcSelect)
|
|
Return m.llSucces
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE prelucreazafisierebreeze
|
|
ENDPROC
|
|
|
|
PROCEDURE refreshconfigurari
|
|
LOCAL lcSelect
|
|
lcSelect = SELECT()
|
|
|
|
SELECT cExtrase
|
|
CALCULATE SUM(suma) FOR tip = 'C' TO This.txtIncasari.Value
|
|
CALCULATE SUM(suma) FOR tip = 'D' TO This.txtPlati.Value
|
|
GO TOP
|
|
Thisform.grdExtrase.Refresh()
|
|
This.txtIncasari.Refresh()
|
|
This.txtPlati.Refresh()
|
|
|
|
SELECT cConfigConturi
|
|
GO TOP
|
|
Thisform.grdConfigurareConturi.Refresh()
|
|
|
|
SELECT cConfigExplicatii
|
|
GO TOP
|
|
Thisform.grdConfigurareExplicatii.Refresh()
|
|
|
|
|
|
SELECT (m.lcSelect)
|
|
ENDPROC
|
|
|
|
PROCEDURE savesettings
|
|
* Salvez setarile pe fiecare AMEF
|
|
Local lcFilter, lcConturi, lcConfigConturi, lcConfigExplicatii, lcSelect
|
|
lcSelect = SELECT()
|
|
lcConturi = ''
|
|
lcConfigConturi = ''
|
|
lcConfigExplicatii = ''
|
|
lcFilter = ''
|
|
|
|
Cursortoxml('cConturi', "lcConturi", 1, 1 + 2, 0, "1")
|
|
|
|
Select cConfigConturi
|
|
lcFilter = Filter()
|
|
Set Filter To
|
|
Cursortoxml('cConfigConturi', "lcConfigConturi", 1, 1 + 2, 0, "1")
|
|
Set Filter To &lcFilter
|
|
|
|
Select cConfigExplicatii
|
|
lcFilter = Filter()
|
|
Set Filter To
|
|
Cursortoxml('cConfigExplicatii', "lcConfigExplicatii", 1, 1 + 2, 0, "1")
|
|
Set Filter To &lcFilter
|
|
|
|
= scrie_optiune('EXTRASEB_CONTURI', m.lcConturi, "EXTRASE BANCARE CONTURI", .T.)
|
|
= scrie_optiune('EXTRASEB_CONFIG', m.lcConfigConturi, "EXTRASE BANCARE CONFIGURARE CONTURI", .T.)
|
|
= scrie_optiune('EXTRASEB_CONFIG_EXPL', m.lcConfigExplicatii, "EXTRASE BANCARE CONFIGURARE EXPLICATII", .T.)
|
|
|
|
SELECT (m.lcSelect)
|
|
ENDPROC
|
|
|
|
PROCEDURE scrienote
|
|
Local lcMesaj, lcSql, lnHandle, lnSucces, lnSucces2
|
|
Private gnAn, gnIdSucursala, gnIdUtil, gnLuna
|
|
lnSucces = SQLSetprop(m.lnHandle, "Transactions", 2)
|
|
|
|
if lnSucces > 0
|
|
&& Creez note pentru fiecare luna/an
|
|
Select Distinct an, luna From actactan Order By an, luna Into Cursor cAnLuna
|
|
Select cAnLuna
|
|
Scan
|
|
*gnAn = an
|
|
*gnLuna = luna
|
|
*gnIdUtil = - 3
|
|
*gnIdSucursala = Null
|
|
|
|
if m.lnSucces > 0
|
|
lcSql = [begin pack_contafin.init_scriere_act_rul_local(?gnIdUtil,?gnAn,?gnLuna, 1,0,?gnIdSucursala); end;]
|
|
lnSucces = goExecutor.oExecute(m.lcSql)
|
|
Endif
|
|
|
|
if lnSucces > 0
|
|
SELECT * FROM actactan WHERE an = m.gnAn AND luna = m.gnLuna INTO CURSOR cAct NOFILTER
|
|
lnSucces = This.sql_temp_insert('cAct', 'ACT_TEMP')
|
|
USE IN (SELECT('cAct'))
|
|
Endif
|
|
|
|
if lnSucces > 0
|
|
Private pcMesajRefacereNota
|
|
pcMesajRefacereNota = ""
|
|
lcSql = [begin pack_contafin.final_scriere_act_rul_local(?gnIdUtil, ?gnAn, ?gnLuna, NULL, 0, 1, ?@pcMesajRefacereNota); end;]
|
|
lnSucces = goExecutor.oExecute(m.lcSql)
|
|
If !Empty(Nvl(pcMesajRefacereNota, ''))
|
|
This.trace(m.pcMesajRefacereNota)
|
|
AMESSAGEBOX(m.pcMesajRefacereNota, 0 + 48, 'Atentie')
|
|
Endif
|
|
Release pcMesajRefacereNota
|
|
ELSE
|
|
lcMesaj = goExecutor.cEroare
|
|
This.Trace(m.lcMesaj)
|
|
AMESSAGEBOX(m.lcMesaj,0+48, _screen.Caption )
|
|
EXIT
|
|
ENDIF && lnSucces
|
|
Endscan && cAnLuna
|
|
|
|
Use In (Select('cAnLuna'))
|
|
|
|
if lnSucces > 0
|
|
lnSucces2 = goExecutor.oExecute('COMMIT')
|
|
IF lnSucces2 <> 1
|
|
lnSucces = 0
|
|
ENDIF
|
|
Else
|
|
lnSucces2 = goExecutor.oExecute('ROLLBACK')
|
|
Endif
|
|
|
|
If lnSucces2 <> 1
|
|
This.trace(goExecutor.cEroare)
|
|
AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare, 0 + 16, "Eroare")
|
|
ELSE
|
|
This.trace('Import realizat cu succes!')
|
|
Endif
|
|
|
|
lnSucces3 = SQLSetprop(m.lnHandle, "Transactions", 1)
|
|
|
|
If lnSucces3 <> 1
|
|
lcMesaj = 'Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!'
|
|
This.trace(m.lcMesaj)
|
|
AMESSAGEBOX(m.lcMesaj, 0 + 48, 'Atentie!')
|
|
Endif
|
|
Endif && lnSucces
|
|
|
|
Return m.lnSucces
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE sql_temp_insert
|
|
Lparameters tcAlias, tcTableName
|
|
|
|
Local lcAlias, lcCursor, lnSucces
|
|
Local lcDate, lcFieldName, lcFieldType, lcFieldValue, lcFields, lcInsert, lcMesaj, lcNumber, lcSql
|
|
Local lcString, lcTableName, lcValues, lnCount
|
|
Local lnField
|
|
|
|
Private poIreg, pcTableName
|
|
Local lcVariable
|
|
|
|
If Empty(tcAlias)
|
|
lcAlias = 'ACTACTAN'
|
|
Else
|
|
lcAlias = Upper(Alltrim(tcAlias))
|
|
Endif
|
|
If Empty(tcTableName)
|
|
pcTableName = 'ACT_TEMP'
|
|
Else
|
|
pcTableName = Upper(Alltrim(tcTableName))
|
|
Endif
|
|
|
|
lcCursor = 'crs_Coloane'
|
|
lcSql = [SELECT COLUMN_NAME AS COLOANA from user_tab_columns WHERE table_name = ?pcTableName]
|
|
lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor)
|
|
If m.lnSucces <> 1
|
|
lcMesaj = 'Eroare la selectare coloane din ' + m.lcTableName + Chr(13) + goExecutor.cEroare
|
|
This.trace(m.lcMesaj)
|
|
AMESSAGEBOX(m.lcMesaj, 0 + 16, 'Eroare')
|
|
Endif
|
|
|
|
If m.lnSucces = 1
|
|
Select (lcAlias)
|
|
lnCount = Fcount()
|
|
lcFields = []
|
|
lcValues = []
|
|
lcInsert = []
|
|
For lnField = 1 To lnCount
|
|
Select (lcAlias)
|
|
lcFieldName = Upper(Alltrim(Field(lnField)))
|
|
lcFieldType = Type(lcFieldName)
|
|
lcFieldValue = Evaluate(lcFieldName)
|
|
If lcFieldType = 'C'
|
|
lcVariable = '?ALLTRIM(poIreg.' + lcFieldName + ')'
|
|
Else
|
|
lcVariable = '?poIreg.' + lcFieldName
|
|
Endif
|
|
|
|
Select CRS_COLOANE
|
|
Locate For Upper(Alltrim(COLOANA)) == lcFieldName
|
|
If !Found()
|
|
Loop
|
|
Endif
|
|
lcFields = lcFields + [,] + lcFieldName
|
|
lcValues = lcValues + [,] + lcVariable
|
|
Endfor
|
|
|
|
lcFields = Substr(lcFields, 2)
|
|
lcValues = Substr(lcValues, 2)
|
|
|
|
&& INSERT INTO ACT_TEMP
|
|
lcInsert = [INSERT INTO ] + m.pcTableName + [ (] + m.lcFields + [) VALUES (] + m.lcValues + [)]
|
|
|
|
Select (lcAlias)
|
|
Scan
|
|
Scatter Name poIreg
|
|
IF MOD(RECNO(), 100) = 0
|
|
This.trace(' Inregistrare ' + TRANSFORM(RECNO()) + ' / ' + TRANSFORM(RECCOUNT()) + ' ...')
|
|
ENDIF
|
|
&& FAC NULL ID-URILE CU VALOARE 0
|
|
If TYPE('poReg.id_sucursala') = 'N' AND poIreg.id_sucursala = 0
|
|
poIreg.id_sucursala = Null
|
|
Endif
|
|
|
|
lnSucces = goExecutor.oExecute(m.lcInsert)
|
|
If lnSucces <> 1
|
|
This.trace(goExecutor.cEroare)
|
|
AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare')
|
|
Exit
|
|
Endif
|
|
|
|
Endscan
|
|
Endif
|
|
|
|
Use In (Select('crs_coloane'))
|
|
|
|
Return m.lnSucces
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE sql_temp_insert_values
|
|
* daca se doreste insert into act_temp cu valori in loc de ?
|
|
* trebuie decomentata sectiunea cu valori
|
|
Lparameters tcAlias, tcTableName
|
|
|
|
Local lcAlias, lcCursor, lnSucces
|
|
Local lcDate, lcFieldName, lcFieldType, lcFieldValue, lcFields, lcInsert, lcMesaj, lcNumber, lcSql
|
|
Local lcString, lcTableName, lcValues, lnCount
|
|
Local lnField
|
|
|
|
Private poIreg, pcTableName
|
|
Local lcVariable
|
|
|
|
If Empty(tcAlias)
|
|
lcAlias = 'ACTACTAN'
|
|
Else
|
|
lcAlias = Upper(Alltrim(tcAlias))
|
|
Endif
|
|
If Empty(tcTableName)
|
|
pcTableName = 'ACT_TEMP'
|
|
Else
|
|
pcTableName = Upper(Alltrim(tcTableName))
|
|
Endif
|
|
|
|
lcCursor = 'crs_Coloane'
|
|
lcSql = [SELECT COLUMN_NAME AS COLOANA from user_tab_columns WHERE table_name = ?pcTableName]
|
|
lnSucces = goExecutor.oExecute(m.lcSql, m.lcCursor)
|
|
If m.lnSucces <> 1
|
|
lcMesaj = 'Eroare la selectare coloane din ' + m.pcTableName + Chr(13) + goExecutor.cEroare
|
|
This.trace(m.lcMesaj)
|
|
AMESSAGEBOX(m.lcMesaj, 0 + 16, 'Eroare')
|
|
Endif
|
|
|
|
If m.lnSucces = 1
|
|
Select (lcAlias)
|
|
lnCount = Fcount()
|
|
Scan
|
|
lcFields = []
|
|
lcValues = []
|
|
lcInsert = []
|
|
Scatter Name poIreg
|
|
|
|
For lnField = 1 To lnCount
|
|
Select (lcAlias)
|
|
lcFieldName = Upper(Alltrim(Field(lnField)))
|
|
lcFieldType = Type(lcFieldName)
|
|
lcFieldValue = Evaluate(lcFieldName)
|
|
If lcFieldType = 'C'
|
|
lcVariable = '?ALLTRIM(poIreg.' + lcFieldName + ')'
|
|
Else
|
|
lcVariable = '?poIreg.' + lcFieldName
|
|
Endif
|
|
|
|
Select CRS_COLOANE
|
|
Locate For Upper(Alltrim(COLOANA)) == lcFieldName
|
|
If !Found()
|
|
Loop
|
|
Endif
|
|
lcFields = lcFields + [,] + lcFieldName
|
|
lcNumber = '0'
|
|
lcDate = ''
|
|
lcString = ''
|
|
|
|
&& FAC NULL ID-URILE CU VALOARE 0
|
|
If Inlist(lcFieldName, 'ID_SUCURSALA')
|
|
If poIreg.id_sucursala = 0
|
|
poIreg.id_sucursala = Null
|
|
Endif
|
|
Endif
|
|
lcValues = lcValues + [,] + lcVariable
|
|
|
|
*!* DO CASE
|
|
*!* CASE lcFieldType = 'N'
|
|
*!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue)
|
|
*!* lcNumber = '0'
|
|
*!* ELSE
|
|
*!* lcNumber = ALLTRIM(STR(lcFieldValue,24,4))
|
|
*!* ENDIF
|
|
|
|
*!* lcValues = lcValues + [,] + lcNumber
|
|
*!* CASE lcFieldType = 'C'
|
|
*!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue)
|
|
*!* lcString = ''
|
|
*!* ELSE
|
|
*!* lcString = ALLTRIM(lcFieldValue)
|
|
*!* ENDIF
|
|
|
|
*!* lcValues = lcValues + [,] + ['] + lcString + [']
|
|
*!* CASE INLIST(lcFieldType,'D','T')
|
|
*!* IF EMPTY(lcFieldValue) OR ISNULL(lcFieldValue)
|
|
*!* lcDate = ''
|
|
*!* ELSE
|
|
*!* lcDate = DTOS(lcFieldValue)
|
|
*!* ENDIF
|
|
*!* lcValues = lcValues + [,] + [TO_DATE('] + lcDate + [','YYYY-MM-DD')]
|
|
*!* ENDCASE
|
|
|
|
Endfor
|
|
|
|
lcFields = Substr(lcFields, 2)
|
|
lcValues = Substr(lcValues, 2)
|
|
|
|
&& INSERT INTO ACT_TEMP
|
|
lcInsert = [INSERT INTO ] + m.pcTableName + [ (] + lcFields + [) VALUES (] + lcValues + [)]
|
|
lnSucces = goExecutor.oExecute(m.lcInsert)
|
|
If lnSucces <> 1
|
|
This.Trace(goExecutor.cEroare)
|
|
AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare')
|
|
Exit
|
|
Endif
|
|
|
|
Endscan
|
|
Endif
|
|
|
|
Use In (SELECT('crs_coloane'))
|
|
|
|
Return m.lnSucces
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE sterge_import
|
|
Local lcExplicatia5, lcMenu, lcSql, llContinuare, llSucces, lnInregistrari, lnOptiune, lcSeparator
|
|
|
|
lcSql = [select explicatia5, util, COUNT(explicatia5) as nr from vact_tot where an=?gnAn and Luna=?gnLuna and id_set = 90023 and sters = 0 and explicatia5 is not null ] + m.gcCondSucursala + [ group by explicatia5, util order by explicatia5 DESC]
|
|
llSucces = goExecutor.oExecuta(m.lcSql, 'crsStergeri')
|
|
IF !m.llSucces
|
|
RETURN
|
|
ENDIF
|
|
|
|
If Reccount("crsstergeri") = 0
|
|
amessagebox("Nu au fost gasite importuri in luna curenta")
|
|
RETURN
|
|
Endif
|
|
SET STEP ON
|
|
lcMenu = ''
|
|
SELECT crsStergeri
|
|
SCAN
|
|
lcSeparator = IIF(RECNO() < RECCOUNT(), ';', '')
|
|
lcMenu = m.lcMenu + ALLTRIM(explicatia5) + ' ' + ALLTRIM(STR(nr)) + ' intregistrari, utilizator: ' + ALLTRIM(util) + m.lcSeparator
|
|
ENDSCAN
|
|
lnOptiune = xmenu(m.lcMenu)
|
|
IF EMPTY(m.lnOptiune)
|
|
USE IN (SELECT('crsStergeri'))
|
|
RETURN
|
|
ENDIF
|
|
SELECT crsStergeri
|
|
GOTO (m.lnOptiune)
|
|
lcExplicatia5 = ALLTRIM(explicatia5)
|
|
lnInregistrari = nr
|
|
USE IN (SELECT('crsStergeri'))
|
|
llContinuare = (AMessagebox('Doriti sa stergeti ' + Alltrim(Str(m.lnInregistrari)) + ' inregistrari, tip operatie 90023, explicatia ' + m.lcExplicatia5 + ', din luna ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn)) + '?', 4 + 32, _Screen.Caption) = 6)
|
|
|
|
IF !m.llContinuare
|
|
RETURN
|
|
ENDIF
|
|
|
|
llSucces = stergere_import_note_contabile(m.lcExplicatia5, 0, "explicatia5") && oscrie_in_fisiere.prg
|
|
AMESSAGEBOX('Stergerea s-a incheiat cu ' + IIF(m.llSucces, 'succes', 'eroare'),0+48, _screen.Caption)
|
|
Return m.llSucces
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE templatexlsx
|
|
ENDPROC
|
|
|
|
PROCEDURE trace
|
|
LPARAMETERS tcMessage
|
|
AMESSAGEBOX(tcMessage)
|
|
*!* This.edtInfo.Value = This.edtInfo.Value + TRANSFORM(NVL(tcMessage,'')) + CHR(13) + CHR(10)
|
|
*!* this.edtInfo.SelStart = LEN(this.edtInfo.Value)
|
|
*!* This.edtInfo.Refresh()
|
|
ENDPROC
|
|
|
|
PROCEDURE verificaimport
|
|
* Verifica daca mai exista inregistrari 90023 in luna curenta
|
|
Local llExista, lcSelect, lcSql, llSucces
|
|
Private pnReturnValue, pnSuma, pdDataAct, pcScd, pcScc
|
|
pnReturnValue = 0
|
|
lcSelect = SELECT()
|
|
|
|
lcSql = [select COUNT(*) as nr from act where an=?gnAn and luna = ?gnLuna and id_set=90023 and sters=0 and suma = ?pnSuma and dataact = ?pdDataAct and scd = ?pcScd and scc = ?pcScc]
|
|
SELECT actactan
|
|
SCAN
|
|
pnSuma = suma
|
|
pdDataAct = dataact
|
|
pcScd = ALLTRIM(scd)
|
|
pcScc = ALLTRIM(scc)
|
|
llSucces = goExecutor.oSelecteaza2Value(m.lcSql, @pnReturnValue)
|
|
If !m.llSucces
|
|
IF m.pnReturnValue > 0
|
|
EXIT
|
|
ENDIF
|
|
ELSE
|
|
EXIT
|
|
Endif
|
|
ENDSCAN && actactan
|
|
|
|
llExista = (m.pnReturnValue > 0)
|
|
|
|
Select (m.lcSelect)
|
|
Return m.llExista
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE But_help1.Click
|
|
LOCAL lcInfo
|
|
TEXT TO lcInfo noshow
|
|
[Optional]
|
|
Inainte de import, completati codul "IBAN" in Entitati pe entitatea asociata contului bancar (Ex: "RAIFFEISEN CONT CURENT LEI") pentru ca Importul sa determine automat entitatea.
|
|
Alternativ, partenerul "cont bancar" se poate alege la import.
|
|
|
|
1. Modificati (daca este cazul) perioada de import sau Completati "Data extras" pentru deconturile de la curieri
|
|
|
|
2. Apasati butonul [Import]
|
|
|
|
3. Configurari
|
|
3.1 Modificati (daca este cazul) contul sintetic si analitic aferent extrasului bancar / decontului importat
|
|
|
|
Ex: pentru incasari din deconturi curieri sau procesatori plati se poate configura contul 5125.
|
|
Nota generata va fi 5125 = 4111
|
|
|
|
3.2. Bifati optiunile:
|
|
- "Creeaza parteneri": daca importul genereaza automat parteneri noi (daca nu exista in baza de date).
|
|
- "Asociaza facturi": daca importul cauta numerele de facturi din detalii si incearca completarea documentului pereche.
|
|
|
|
3.3 Configurati (daca este cazul) conturi pe anumiti parteneri
|
|
|
|
Ex: Pentru un virament (incasare) de la FanCourier/Netopia/Emag se poate configura contul 5125.
|
|
Nota generata va fi 5121 = 5125 (FanCourier/Netopia/Emag), in loc de 5121 = 4111
|
|
|
|
4. Apasati butonul [Genereaza note]
|
|
Notele generate se verifica in fereastra urmatoare: "Note fara predefinire".
|
|
ENDTEXT
|
|
|
|
AMESSAGEBOX(m.lcInfo)
|
|
ENDPROC
|
|
|
|
PROCEDURE But_nou1.Click
|
|
Local locauta
|
|
Local lcCont, lcTitlu, llNou, llToateIreg
|
|
lcCont = ''
|
|
lcTitlu = ''
|
|
llToateIreg = .F.
|
|
llNou = .T.
|
|
locauta = caut_parteneri(lcCont, lcTitlu, llToateIreg, llNou)
|
|
|
|
Select cConfigConturi
|
|
Append Blank
|
|
Replace iban With cConturi.iban, id_part With locauta.id_part, denumire With locauta.denumire, cod_fiscal WITH loCauta.cod_fiscal
|
|
Thisform.grdConfigurareConturi.SetFocus()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE But_nou2.Click
|
|
LOCAL lcText, lcValue, lcCaption
|
|
lcCaption = "Explicatie"
|
|
lcValue = ""
|
|
lnLeft = 10
|
|
lnTop = 10
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcValue)
|
|
IF EMPTY(m.lcText)
|
|
RETURN
|
|
ENDIF
|
|
|
|
SELECT cConfigExplicatii
|
|
LOCATE FOR UPPER(ALLTRIM(NVL(explicatie,''))) == UPPER(ALLTRIM(NVL(m.lcText,'')))
|
|
IF FOUND()
|
|
AMESSAGEBOX('Exista deja o configurare pentru Explicatia: "' + m.lcText + '"!',0+48,_screen.Caption)
|
|
ELSE
|
|
Select cConfigExplicatii
|
|
Append Blank
|
|
Replace iban With cConturi.iban, explicatie WITH m.lcText
|
|
ENDIF
|
|
|
|
Thisform.grdConfigurareExplicatii.SetFocus()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE But_sterge1.Click
|
|
Local lcBanca, lcIBAN
|
|
Select cConturi
|
|
lcIBAN = Alltrim(Nvl(iban, ''))
|
|
lcBanca = Alltrim(Nvl(banca, ''))
|
|
If Empty(m.lcIBAN) And Empty(m.lcBanca)
|
|
Return
|
|
Endif
|
|
If AMESSAGEBOX('Doriti sa stergeti configurarea pentru ' + m.lcBanca + ' / ' + m.lcIBAN + '?', 4 + 32, _Screen.Caption) = 6
|
|
Delete From cConfigConturi Where iban = m.lcIBAN
|
|
Delete From cConfigExplicatii Where iban = m.lcIBAN
|
|
Delete From cExtrase Where eiban = m.lcIBAN
|
|
Delete From cConturi Where iban = m.lcIBAN
|
|
Endif
|
|
Thisform.grdConturi.SetFocus()
|
|
Thisform.Refresh()
|
|
ENDPROC
|
|
|
|
PROCEDURE But_sterge2.Click
|
|
SELECT cConfigConturi
|
|
lnIdPart = NVL(id_part,0)
|
|
lcPartener = NVL(denumire,'')
|
|
IF EMPTY(m.lnIdPart)
|
|
RETURN
|
|
ENDIF
|
|
IF AMESSAGEBOX('Doriti sa stergeti configurarea pentru partenerul ' + m.lcPartener + '?', 4+32, _screen.caption) = 6
|
|
DELETE FROM cConfigConturi WHERE id_part = m.lnIdPart
|
|
ENDIF
|
|
Thisform.grdConfigurareConturi.SetFocus()
|
|
thisform.Refresh()
|
|
ENDPROC
|
|
|
|
PROCEDURE But_sterge3.Click
|
|
SELECT cConfigExplicatii
|
|
lcExplicatie = ALLTRIM(NVL(explicatie, ''))
|
|
IF EMPTY(m.lcExplicatie)
|
|
RETURN
|
|
ENDIF
|
|
IF AMESSAGEBOX('Doriti sa stergeti configurarea pentru explicatia: ' + m.lcExplicatie+ '?', 4+32, _screen.caption) = 6
|
|
DELETE FROM cConfigExplicatii WHERE ALLTRIM(explicatie) = m.lcExplicatie
|
|
ENDIF
|
|
Thisform.grdConfigurareExplicatii.SetFocus()
|
|
thisform.Refresh()
|
|
ENDPROC
|
|
|
|
PROCEDURE cmdGenereazaNote.Click
|
|
Local llSucces, lnSucces, lnButon, llContafin, lnIdSet
|
|
Local lcCodAMEF, llExistaNote
|
|
Local lcAcont, lcCont, lcIBAN, lnIdPart
|
|
Local llPartNou
|
|
Local lcExplicatie, lcPart, ldData, llComanda, llFactura
|
|
|
|
|
|
Local loImport As "ImportNote"
|
|
Local lcAcontBanca, lcClass, lcClassType, lcContBanca, lcFile, lcFileExt, lcFileType, lcParam
|
|
Local llCreeazaNote, llSucces, ldData1, ldData2, lcSelect
|
|
|
|
lcSelect = SELECT()
|
|
llSucces = .T.
|
|
lnIdSet = 90023
|
|
ldData1 = Thisform.txtData1.Value
|
|
ldData2 = Thisform.txtData2.Value
|
|
ldData = thisform.txtData.Value
|
|
|
|
USE IN (SELECT('actactan'))
|
|
Thisform.SaveSettings()
|
|
|
|
IF (m.glLunaInchisa)
|
|
AMESSAGEBOX("Luna contabil este blocata!",0+48,_Screen.Caption)
|
|
ENDIF
|
|
IF m.llSucces AND (m.glEMama)
|
|
AMESSAGEBOX("Se pot face operatii doar pe sucursala!",0+48,_Screen.Caption)
|
|
llSucces = .F.
|
|
ENDIF
|
|
If m.llSucces
|
|
Select cConturi
|
|
LOCATE FOR ales = 1 AND Import = 1 AND note = 0
|
|
llSucces = FOUND()
|
|
IF !m.llSucces
|
|
AMESSAGEBOX('Alegeti un cont/decont incarcat pentru care nu s-au generat note!',0+48,_scren.caption)
|
|
ENDIF
|
|
ENDIF
|
|
|
|
IF m.llSucces
|
|
Select cConturi
|
|
Scan For ales = 1 AND Import = 1 AND note = 0
|
|
lcClass = Alltrim(clasa)
|
|
lcFileExt = Alltrim(extensie)
|
|
lcClassType = Alltrim(tipclasa)
|
|
lcFileType = Alltrim(tip)
|
|
lcContBanca = Alltrim(Cont)
|
|
lcAcontBanca = Alltrim(acont)
|
|
lcFile = Alltrim(fisier)
|
|
lcIBAN = Alltrim(Nvl(iban, ''))
|
|
lcBanca = ALLTRIM(NVL(denumire, ''))
|
|
lnIdPartenerBanca = NVL(id_part, 0)
|
|
llPartNou = part_nou && se creeaza parteneri noi daca nu exista codul fiscal in baza de date
|
|
llFactura = factura
|
|
llComanda = comanda
|
|
|
|
* Parcurg fisierul si determin IBAN-ul si inregistrarile din extras
|
|
lcParam = Iif(!Empty(m.lcContBanca), "cContBanca=>" + m.lcContBanca, "") + ;
|
|
Iif(!Empty(m.lcAcontBanca), "??cAcontBanca=>" + m.lcAcontBanca, "") + ;
|
|
"??lCreeazaParteneri=>" + TRANSFORM(m.llPartNou) + ;
|
|
"??lFactura=>" + TRANSFORM(m.llFactura) + ;
|
|
"??lComanda=>" + TRANSFORM(m.llComanda) + ;
|
|
Iif(!Empty(m.lcBanca), "??cBanca=>" + m.lcBanca, "") + ;
|
|
Iif(!Empty(m.lnIdPartenerBanca), "??nIdPartenerBanca=>" + ALLTRIM(STR(m.lnIdPartenerBanca)), "")
|
|
|
|
loImport = Createobject("ImportNote", m.lcFile, m.ldData1, m.ldData2, m.lcClass, m.lcClassType, m.lcFileType, m.lcFileExt, m.lcParam, m.ldData) && oproceduri_import.prg
|
|
llCreeazaNote = .T.
|
|
Wait Window 'Generare note ' + Transform(Recno('cConturi')) + '/' + Transform(Reccount('cConturi')) Nowait
|
|
|
|
llSucces = loImport.Import(m.llCreeazaNote) && rezulta cursorul cActTemp
|
|
If !m.llSucces
|
|
Exit
|
|
Endif
|
|
|
|
* Completez cont, acont, parteneri pe explicatiile din din cConfigExplicatii
|
|
Select explicatie, id_part, denumire, Cont, acont From cConfigExplicatii Where iban = m.lcIBAN And !Empty(Nvl(explicatie, '')) Into Cursor cContTemp
|
|
Select cContTemp
|
|
Scan
|
|
lcExplicatie = UPPER(ALLTRIM(explicatie))
|
|
lcCont = ALLTRIM(NVL(Cont, ''))
|
|
lcAcont = ALLTRIM(NVL(acont, ''))
|
|
lnIdPart = id_part
|
|
lcPart = ALLTRIM(NVL(denumire, ''))
|
|
|
|
IF !EMPTY(NVL(m.lnIdPart, 0))
|
|
Update cActTemp Set id_partd = m.lnIdPart, partd = m.lcPart Where m.lcExplicatie$UPPER(ALLTRIM(explicatia)) AND scc = m.lcContBanca AND EMPTY(NVL(id_partd, 0))
|
|
Update cActTemp Set id_partc = m.lnIdPart, partc = m.lcPart Where m.lcExplicatie$UPPER(ALLTRIM(explicatia)) AND scd = m.lcContBanca AND EMPTY(NVL(id_partc, 0))
|
|
ENDIF
|
|
IF !EMPTY(m.lcCont)
|
|
Update cActTemp Set scd = m.lcCont, ascd = m.lcAcont Where m.lcExplicatie$UPPER(ALLTRIM(explicatia)) AND scc = m.lcContBanca
|
|
Update cActTemp Set scc = m.lcCont, ascc = m.lcAcont Where m.lcExplicatie$UPPER(ALLTRIM(explicatia)) AND scd = m.lcContBanca
|
|
ENDIF
|
|
Endscan
|
|
Use In (Select('cContTemp'))
|
|
|
|
* Completez cont, acont pe parteneri din cConfigConturi
|
|
Select id_part, Cont, acont From cConfigConturi Where iban = m.lcIBAN And !Empty(Nvl(Cont, '')) Into Cursor cContTemp
|
|
Select cContTemp
|
|
Scan
|
|
lcCont = Cont
|
|
lcAcont = acont
|
|
lnIdPart = id_part
|
|
Update cActTemp Set scd = m.lcCont, ascd = m.lcAcont Where id_partd = m.lnIdPart
|
|
Update cActTemp Set scc = m.lcCont, ascc = m.lcAcont Where id_partc = m.lnIdPart
|
|
Endscan
|
|
Use In (Select('cContTemp'))
|
|
|
|
If !Used('actactan')
|
|
Select * From cActTemp Into Cursor actactan Readwrite
|
|
Else
|
|
Select actactan
|
|
Append From Dbf('cActTemp')
|
|
Endif
|
|
Use In (Select('cActTemp'))
|
|
Release loImport
|
|
Endscan
|
|
Endif && llSucces
|
|
|
|
llSucces = llSucces and USED('actactan')
|
|
|
|
* verific daca mai exista import 90023
|
|
IF m.llSucces
|
|
llExistaNote = Thisform.VerificaImport()
|
|
If m.llExistaNote
|
|
If AMESSAGEBOX('Atentie! Exista deja note contabile generate dintr-un import anterior [tip operatie 90023]!' + Chr(13) + ;
|
|
'Doriti sa continuati?', 4 + 32, _Screen.Caption) <> 6
|
|
llSucces = .F.
|
|
Endif
|
|
ENDIF
|
|
ENDIF
|
|
|
|
If m.llSucces
|
|
llSucces = Thisform.ModificaNote()
|
|
Endif
|
|
|
|
If m.llSucces
|
|
UPDATE cConturi SET ales = 0, note = 1, dataora = DATETIME() WHERE ales = 1 AND import = 1 AND note = 0
|
|
Thisform.cmdGenereazaNote.Enabled = .F.
|
|
AMESSAGEBOX('S-au inregistrat notele!', 0 + 64, _Screen.Caption)
|
|
Else
|
|
AMESSAGEBOX('Nu s-au inregistrat notele!', 0 + 64, _Screen.Caption)
|
|
Endif
|
|
|
|
USE IN (SELECT('actactan'))
|
|
|
|
Thisform.SaveSettings()
|
|
SELECT (m.lcSelect)
|
|
Return m.llSucces
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cmdImport.Click
|
|
Local loImport As "ImportNote"
|
|
Local lcClass, lcClassType, lcContBanca, lcFile, lcFileExt, lcFileType, lcParam, llCreeazaNote, llCreeazaParteneri
|
|
Local llSucces, lnOptiune, ldData1, ldData2, ldData
|
|
Local lcAcontBanca, lcIBAN, lcValuta
|
|
lcIBAN = ''
|
|
lnOptiune = xmenu('\<Import general (se determina automat tipul de fisier);\-;Extras bancar - MT940;Extras bancar CreditEurope - XML;Extras bancar Unicredit - CSV;\-;Note contabile salvate anterior')
|
|
|
|
If Empty(m.lnOptiune)
|
|
Return
|
|
Endif
|
|
ldData1 = Thisform.txtData1.Value
|
|
ldData2 = Thisform.txtData2.Value
|
|
ldData = Thisform.txtData.Value
|
|
|
|
lcClass = "ExtrasBanca"
|
|
lcFileType = ''
|
|
lcContBanca = '5121'
|
|
lcAcontBanca = ''
|
|
Do Case
|
|
Case m.lnOptiune = 1
|
|
lcFileExt = ''
|
|
lcClassType = ''
|
|
lcFileType = ''
|
|
|
|
Case m.lnOptiune = 3
|
|
lcFileExt = 'TXT'
|
|
lcClassType = 'RAIFFEISEN'
|
|
lcFileType = 'MT940'
|
|
|
|
Case m.lnOptiune = 4
|
|
lcFileExt = 'XML'
|
|
lcClassType = 'CREDITEUROPE'
|
|
|
|
Case m.lnOptiune = 5
|
|
lcFileExt = 'CSV'
|
|
lcClassType = 'UNICREDIT'
|
|
|
|
Case m.lnOptiune = 7
|
|
SET STEP ON
|
|
llSucces = Thisform.ModificaNote(.T.)
|
|
RETURN
|
|
Endcase
|
|
|
|
lcFile = Getfile(m.lcFileExt, "Fisier", "Selecteaza", 0, "Alege fisierul din care se realizeaza importul")
|
|
If Empty(m.lcFile)
|
|
Return
|
|
Endif
|
|
|
|
IF m.lnOptiune = 1
|
|
lcFileExt = JUSTEXT(m.lcFile)
|
|
lcClassType = 'GENERAL'
|
|
ENDIF
|
|
|
|
* Parcurg fisierul si determin IBAN-ul si inregistrarile din extras
|
|
lcParam = Iif(!Empty(m.lcContBanca), "cContBanca=>" + m.lcContBanca, "") + ;
|
|
Iif(!Empty(m.lcAcontBanca), "??cAcontBanca=>" + m.lcAcontBanca, "")
|
|
|
|
loImport = Createobject("ImportNote", m.lcFile, m.ldData1, m.ldData2, m.lcClass, m.lcClassType, m.lcFileType, m.lcFileExt, m.lcParam, m.ldData) && oproceduri_import.prg
|
|
llCreeazaNote = .F.
|
|
|
|
llSucces = loImport.Import(m.llCreeazaNote)
|
|
If m.llSucces
|
|
lcValuta = loImport.oImport.cValuta && RON/EUR/USD/GBP
|
|
lcIBAN = Alltrim(Upper(loImport.oImport.cIBAN)) && contul bancar din extras
|
|
IF EMPTY(m.lcClassType)
|
|
lcClassType = m.lcIBAN
|
|
ENDIF
|
|
Select cConturi
|
|
Locate For iban = m.lcIBAN
|
|
If !Found()
|
|
Append Blank
|
|
Replace iban With m.lcIBAN, banca With m.lcClassType, clasa With 'ExtrasBanca', fisier With m.lcFile, extensie With m.lcFileExt, tip With m.lcFileType, tipclasa With m.lcClassType, ;
|
|
Cont With m.lcContBanca, Import With 1, ales WITH 1, note WITH 0, factura WITH .T.
|
|
Else
|
|
Replace banca With m.lcClassType, clasa With 'ExtrasBanca', fisier With m.lcFile, extensie With m.lcFileExt, tipclasa With m.lcClassType, Import With 1, ales WITH 1, note WITH 0
|
|
If Empty(Cont)
|
|
Replace Cont With m.lcContBanca
|
|
Endif
|
|
Endif
|
|
|
|
DELETE FROM cExtrase WHERE eiban = m.lcIBAN
|
|
|
|
Select m.lcIBAN As eiban, i.* From c_import_temp i ORDER BY data Into Cursor cExtraseTemp
|
|
Select cExtrase
|
|
Append From Dbf('cExtraseTemp')
|
|
Go Top
|
|
Use In (Select('cExtraseTemp'))
|
|
ELSE
|
|
IF !EMPTY(loImport.cErrorMessage)
|
|
AMESSAGEBOX(loImport.cErrorMessage,0+48,_screen.Caption)
|
|
ELSE
|
|
AMESSAGEBOX('Eroare la import!',0+48,_screen.Caption)
|
|
ENDIF
|
|
ENDIF && llSucces
|
|
|
|
Thisform.cmdGenereazaNote.Enabled = (Reccount('cExtrase') > 0)
|
|
|
|
Select cConturi
|
|
|
|
Thisform.RefreshConfigurari()
|
|
|
|
Thisform.SaveSettings()
|
|
Select cConturi
|
|
Locate For iban = m.lcIBAN
|
|
If !Found()
|
|
Go Top
|
|
Endif
|
|
Thisform.grdConturi.Refresh()
|
|
|
|
*Thisform.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE cmdSterge.Click
|
|
Thisform.Sterge_import()
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConfigurareConturi.cAcont.Text1a.DblClick
|
|
LOCAL lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = this.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = alltrim(EVALUATE(m.lcControlSource))
|
|
lcCaption = this.Parent.Header1.Caption
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText)
|
|
SELECT (lcAlias)
|
|
REPLACE &lcControlSource WITH m.lcText
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConfigurareConturi.cCont.Text1a.DblClick
|
|
LOCAL lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = this.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = alltrim(EVALUATE(m.lcControlSource))
|
|
lcCaption = this.Parent.Header1.Caption
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText)
|
|
SELECT (lcAlias)
|
|
REPLACE &lcControlSource WITH m.lcText
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConfigurareConturi.Init
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConfigurareExplicatii.cAcont.Text1a.DblClick
|
|
LOCAL lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = this.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = alltrim(EVALUATE(m.lcControlSource))
|
|
lcCaption = this.Parent.Header1.Caption
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText)
|
|
SELECT (lcAlias)
|
|
REPLACE &lcControlSource WITH m.lcText
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConfigurareExplicatii.cCont.Text1a.DblClick
|
|
LOCAL lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = this.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = alltrim(EVALUATE(m.lcControlSource))
|
|
lcCaption = this.Parent.Header1.Caption
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText)
|
|
SELECT (lcAlias)
|
|
REPLACE &lcControlSource WITH m.lcText
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConfigurareExplicatii.cDenumire.Text1.DblClick
|
|
Local locauta
|
|
Local lcCont, lcTitlu, llNou, llToateIreg
|
|
lcCont = ''
|
|
lcTitlu = ''
|
|
llToateIreg = .F.
|
|
llNou = .T.
|
|
locauta = caut_parteneri(lcCont, lcTitlu, llToateIreg, llNou)
|
|
|
|
Select cConfigExplicatii
|
|
Replace id_part With locauta.id_part, denumire With locauta.denumire, cod_fiscal WITH loCauta.cod_fiscal
|
|
Thisform.grdConfigurareExplicatii.SetFocus()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConfigurareExplicatii.Init
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConturi.AfterRowColChange
|
|
LPARAMETERS nColIndex
|
|
|
|
|
|
IF INLIST(this.RowColChange, 1, 3)
|
|
Thisform.RefreshConfigurari()
|
|
ENDIF
|
|
SELECT cConturi
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConturi.cAcont.Text1.DblClick
|
|
LOCAL lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = this.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = alltrim(EVALUATE(m.lcControlSource))
|
|
lcCaption = this.Parent.Header1.Caption
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText)
|
|
SELECT (lcAlias)
|
|
REPLACE &lcControlSource WITH m.lcText
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConturi.cCont.Text1.DblClick
|
|
LOCAL lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = this.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = alltrim(EVALUATE(m.lcControlSource))
|
|
lcCaption = this.Parent.Header1.Caption
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText)
|
|
SELECT (lcAlias)
|
|
REPLACE &lcControlSource WITH m.lcText
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConturi.cDenumire.Text1.DblClick
|
|
Local lcContBanca, lcPartenerBanca, lnIdPartenerBanca, loCauta
|
|
|
|
lcContBanca = ALLTRIM(NVL(cConturi.cont,''))
|
|
lcContBanca = IIF(!EMPTY(m.lcContBanca), m.lcContBanca, '5121')
|
|
|
|
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Banca??cCont=>] + m.lcContBanca))
|
|
lnIdPartenerBanca = Nvl(loCauta.id_part, 0)
|
|
lcPartenerBanca = Alltrim(m.loCauta.denumire)
|
|
|
|
If !Empty(m.lnIdPartenerBanca) And AMESSAGEBOX('Doriti sa salvati banca pe acest fisier?',4+32,_Screen.Caption) = 6
|
|
REPLACE denumire WITH m.lcPartenerBanca, id_part WITH m.lnIdPartenerBanca IN cConturi
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConturi.Init
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE grdExtrase.cDocumente.Text1.DblClick
|
|
Local loCauta
|
|
If Thisform.lContafin
|
|
Local lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = This.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = Alltrim(Evaluate(m.lcControlSource))
|
|
lcCaption = This.Parent.Header1.Caption
|
|
lcText = Inputbox(m.lcCaption, m.lcCaption, m.lcText)
|
|
Select (lcAlias)
|
|
Replace &lcControlSource With m.lcText
|
|
Else
|
|
loCauta = caut_sectie()
|
|
If !Empty(Nvl(loCauta.id_sectie, 0))
|
|
Select cAMEF
|
|
Replace id_sectie With loCauta.id_sectie, sectie With loCauta.sectie
|
|
Endif
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE grdExtrase.cExplicatie.Text1.DblClick
|
|
Local loCauta
|
|
If Thisform.lContafin
|
|
Local lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = This.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = Alltrim(Evaluate(m.lcControlSource))
|
|
lcCaption = This.Parent.Header1.Caption
|
|
lcText = Inputbox(m.lcCaption, m.lcCaption, m.lcText)
|
|
Select (lcAlias)
|
|
Replace &lcControlSource With m.lcText
|
|
Else
|
|
loCauta = caut_venchelt()
|
|
If !Empty(Nvl(loCauta.id_venchelt, 0))
|
|
Select cAMEF
|
|
Replace id_venchelt With loCauta.id_venchelt, dst_chlt With loCauta.explicatie
|
|
Endif
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE grdExtrase.cIBAN.Text1a.DblClick
|
|
IF thisform.lContafin
|
|
LOCAL lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = this.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = alltrim(EVALUATE(m.lcControlSource))
|
|
lcCaption = this.Parent.Header1.Caption
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText)
|
|
SELECT (lcAlias)
|
|
REPLACE &lcControlSource WITH m.lcText
|
|
ELSE
|
|
LOCAL loCauta
|
|
|
|
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>24]))
|
|
SELECT cAMEF
|
|
REPLACE id_banca WITH locauta.id_part, banca WITH locauta.nume
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE grdExtrase.cIBAN.Text1a.When
|
|
this.ReadOnly = .F.
|
|
ENDPROC
|
|
|
|
PROCEDURE grdExtrase.cSuma.Text1.DblClick
|
|
IF thisform.lContafin
|
|
LOCAL lcText, lcCaption, lcAlias, lcControlSource
|
|
lcAlias = this.Parent.Parent.RecordSource
|
|
lcControlSource = This.ControlSource
|
|
lcText = alltrim(EVALUATE(m.lcControlSource))
|
|
lcCaption = this.Parent.Header1.Caption
|
|
lcText = INPUTBOX(m.lcCaption, m.lcCaption, m.lcText)
|
|
SELECT (lcAlias)
|
|
REPLACE &lcControlSource WITH m.lcText
|
|
ELSE
|
|
LOCAL loCauta
|
|
|
|
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Client??lAdaugCorespondente=>1??cTipuriParteneri=>22]))
|
|
SELECT cAMEF
|
|
REPLACE id_casac WITH locauta.id_part, casac WITH locauta.nume
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdExtrase.Init
|
|
*
|
|
ENDPROC
|
|
|
|
PROCEDURE txtData.Valid
|
|
Local ldData, ldData1, ldData2
|
|
|
|
ldData = Nvl(This.Value, {})
|
|
ldData1 = Date(m.gnAn, m.gnLuna, 1)
|
|
ldData2 = Gomonth(m.ldData1, 1) - 1
|
|
|
|
If !Empty(m.ldData)
|
|
If !Between(m.ldData, m.ldData1, m.ldData2)
|
|
ldData = m.ldData1
|
|
AMESSAGEBOX('Data trebuie sa fie din luna curenta!',0+48,_Screen.Caption)
|
|
Return .F.
|
|
Else
|
|
AMESSAGEBOX('Atentie!' + Chr(13) + Chr(10) + ;
|
|
'Se importa toate inregistrarile din fisier, cu ' + Dtoc(m.ldData) + ', indiferent de perioada de import si de data inregistrarilor din fisier.'+ Chr(13) + Chr(10) + ;
|
|
'Se foloseste la importul deconturilor de la curieri, pentru o anumita data.',0+48,_Screen.Caption)
|
|
Endif
|
|
Endif
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtExtras.DblClick
|
|
Thisform.cauta_fdoc('extras')
|
|
ENDPROC
|
|
|
|
PROCEDURE txtOP.DblClick
|
|
Thisform.cauta_fdoc('op')
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|