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

eroare autopass

Browse Source
This commit is contained in:
Marius Mutu
2026-08-07 14:20:58 +03:00
parent c4998288ae
commit db58829fa4
2 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Programe/oproceduri_autopass.prg
View File

@@ -1373,6 +1373,7 @@ ENDFUNC && autopass_export_csv
* acest apel cu propriile campuri din forma daca export_operatii_csv se declanseaza * acest apel cu propriile campuri din forma daca export_operatii_csv se declanseaza
* din interiorul ferestrei "Trimitere AUTOPASS"; aici e varianta standalone din xmenu. * din interiorul ferestrei "Trimitere AUTOPASS"; aici e varianta standalone din xmenu.
***************************************************************************************** *****************************************************************************************
* Se apeleaza cu parametrii prin referinta: autopass_cere_perioada(@ldStart, @ldEnd)
FUNCTION autopass_cere_perioada FUNCTION autopass_cere_perioada
LPARAMETERS tdDataInceput, tdDataSfarsit LPARAMETERS tdDataInceput, tdDataSfarsit
LOCAL ldInceput, ldSfarsit, lcInceput, lcSfarsit LOCAL ldInceput, ldSfarsit, lcInceput, lcSfarsit
@@ -1382,12 +1383,12 @@ ldSfarsit = IIF(VARTYPE(tdDataSfarsit) = 'D' AND !EMPTY(tdDataSfarsit), tdDataSf
lcInceput = INPUTBOX('Data inceput perioada (facturii), format ZZ.LL.AAAA:', 'Perioada export AUTOPASS', DTOC(ldInceput)) lcInceput = INPUTBOX('Data inceput perioada (facturii), format ZZ.LL.AAAA:', 'Perioada export AUTOPASS', DTOC(ldInceput))
IF EMPTY(lcInceput) IF EMPTY(lcInceput)
RETURN .NULL. RETURN .F.
ENDIF ENDIF
lcSfarsit = INPUTBOX('Data sfarsit perioada (facturii), format ZZ.LL.AAAA:', 'Perioada export AUTOPASS', DTOC(ldSfarsit)) lcSfarsit = INPUTBOX('Data sfarsit perioada (facturii), format ZZ.LL.AAAA:', 'Perioada export AUTOPASS', DTOC(ldSfarsit))
IF EMPTY(lcSfarsit) IF EMPTY(lcSfarsit)
RETURN .NULL. RETURN .F.
ENDIF ENDIF
ldInceput = CTOD(lcInceput) ldInceput = CTOD(lcInceput)
@@ -1395,11 +1396,14 @@ ldSfarsit = CTOD(lcSfarsit)
IF EMPTY(ldInceput) OR EMPTY(ldSfarsit) OR ldInceput > ldSfarsit IF EMPTY(ldInceput) OR EMPTY(ldSfarsit) OR ldInceput > ldSfarsit
MESSAGEBOX('Perioada introdusa este invalida.', 48, 'AUTOPASS') MESSAGEBOX('Perioada introdusa este invalida.', 48, 'AUTOPASS')
RETURN .NULL. RETURN .F.
ENDIF ENDIF
RETURN {||ldInceput, ldSfarsit} tdDataInceput = ldInceput
ENDFUNC && autopass_cere_perioada (returneaza .NULL. la Renunta/eroare; altfel array-code-block cu 2 date - inlocuit efectiv de US-004) tdDataSfarsit = ldSfarsit
RETURN .T.
ENDFUNC && autopass_cere_perioada (returneaza .F. la Renunta/eroare; la .T. datele sunt puse in parametrii transmisi prin referinta)
***************************************************************************************** *****************************************************************************************

8
roaauto.pj2
View File

@@ -25,7 +25,7 @@ _LegalTrademark = ""
_ProductName = " ROA - Devize auto" _ProductName = " ROA - Devize auto"
_MajorVer = "2" _MajorVer = "2"
_MinorVer = "5" _MinorVer = "5"
_Revision = "4" _Revision = "5"
_LanguageID = "Romana" _LanguageID = "Romana"
_AutoIncrement = "0" _AutoIncrement = "0"
*</DevInfo> *</DevInfo>
@@ -403,7 +403,7 @@ WITH loProject.FILES
.ADD('comun\utile\web\wwxml.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('comun\utile\web\wwxml.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('comun\utile\web\wwxmlhttp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('comun\utile\web\wwxmlhttp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> .ADD('config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
.ADD('ferestre\frm_autopass.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> .ADD('ferestre\frm_autopass.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('ferestre\frm_date_comenzi.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('ferestre\frm_date_comenzi.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('ferestre\fundal.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('ferestre\fundal.scx') && *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('grafice\clie1.bmp') && *< FileMetadata: Type="x" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> .ADD('grafice\clie1.bmp') && *< FileMetadata: Type="x" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" />
@@ -428,14 +428,14 @@ WITH loProject.FILES
.ADD('meniuri\verificari_com.mnx') && *< FileMetadata: Type="M" Cpid="1250" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('meniuri\verificari_com.mnx') && *< FileMetadata: Type="M" Cpid="1250" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\onom_devize.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\onom_devize.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\oproceduri_analize.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\oproceduri_analize.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\oproceduri_autopass.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> .ADD('programe\oproceduri_autopass.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\oproceduri_devize.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\oproceduri_devize.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\oproceduri_listari.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\oproceduri_listari.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\oproceduri_vizualizare.prg') && *< FileMetadata: Type="P" Cpid="1250" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\oproceduri_vizualizare.prg') && *< FileMetadata: Type="P" Cpid="1250" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\ovariabile_globale.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\ovariabile_globale.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\proceduri.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\proceduri.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\roaauto.prg') && *< FileMetadata: Type="P" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\roaauto.prg') && *< FileMetadata: Type="P" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\test_autopass_driver.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> .ADD('programe\test_autopass_driver.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\update_devize.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\update_devize.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('programe\update_nomenclator.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> .ADD('programe\update_nomenclator.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
.ADD('rapoarte\_deviz.frx') && *< FileMetadata: Type="R" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" /> .ADD('rapoarte\_deviz.frx') && *< FileMetadata: Type="R" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />