eroare autopass

Programe/oproceduri_autopass.prg

@@ -1373,6 +1373,7 @@ ENDFUNC && autopass_export_csv
 * acest apel cu propriile campuri din forma daca export_operatii_csv se declanseaza
 * 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
 LPARAMETERS tdDataInceput, tdDataSfarsit
 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))
 IF EMPTY(lcInceput)
-	RETURN .NULL.
+	RETURN .F.
 ENDIF
 
 lcSfarsit = INPUTBOX('Data sfarsit perioada (facturii), format ZZ.LL.AAAA:', 'Perioada export AUTOPASS', DTOC(ldSfarsit))
 IF EMPTY(lcSfarsit)
-	RETURN .NULL.
+	RETURN .F.
 ENDIF
 
 ldInceput = CTOD(lcInceput)
@@ -1395,11 +1396,14 @@ ldSfarsit = CTOD(lcSfarsit)
 
 IF EMPTY(ldInceput) OR EMPTY(ldSfarsit) OR ldInceput > ldSfarsit
 	MESSAGEBOX('Perioada introdusa este invalida.', 48, 'AUTOPASS')
-	RETURN .NULL.
+	RETURN .F.
 ENDIF
 
-RETURN {||ldInceput, ldSfarsit}
-ENDFUNC && autopass_cere_perioada (returneaza .NULL. la Renunta/eroare; altfel array-code-block cu 2 date - inlocuit efectiv de US-004)
+tdDataInceput = ldInceput
+tdDataSfarsit = ldSfarsit
+
+RETURN .T.
+ENDFUNC && autopass_cere_perioada (returneaza .F. la Renunta/eroare; la .T. datele sunt puse in parametrii transmisi prin referinta)
 
 
 *****************************************************************************************