Primera version refactorizada
This commit is contained in:
commit
65f67ddd82
|
|
@ -0,0 +1,22 @@
|
|||
' Module: Constants
|
||||
' Description: Contains application-wide constants
|
||||
|
||||
' Sheet Names
|
||||
Public Const SHEET_HORAS As String = "Horas"
|
||||
Public Const SHEET_FDL_1 As String = "FDL_1"
|
||||
Public Const SHEET_FDL_2 As String = "FDL_2"
|
||||
Public Const SHEET_FDL_3 As String = "FDL_3"
|
||||
Public Const SHEET_NOTA As String = "Nota"
|
||||
Public Const SHEET_FOGLIO_1 As String = "Foglio 1"
|
||||
Public Const SHEET_COMMESSE As String = "Commesse"
|
||||
|
||||
' Row Constants
|
||||
Public Const PRIMERA_FILA_FDL As Integer = 17
|
||||
Public Const MAX_ENTRIES_PER_FDL As Integer = 14
|
||||
Public Const MAX_TOTAL_ENTRIES As Integer = 42
|
||||
|
||||
' File Paths
|
||||
Public Const PYTHON_EXE_PATH As String = "C:\Users\migue\miniconda3\envs\general\python.exe"
|
||||
Public Const SCRIPT_PATH As String = "d:\Proyectos\Scripts\Horarios\InicioApagadoToExcel\LeerLogsToExcel.py"
|
||||
Public Const LOG_FILE_PATH As String = "d:\Proyectos\Scripts\Horarios\InicioApagadoToExcel\python_log.txt"
|
||||
Public Const LOG_EXCEL_PATH As String = "D:\Proyectos\Scripts\Horarios\InicioApagadoToExcel\LogEncendidoApagado.xlsx"
|
||||
|
|
@ -0,0 +1,227 @@
|
|||
Dim b_Export As Boolean
|
||||
|
||||
Private Sub b_completar_Click()
|
||||
|
||||
b_Export = False
|
||||
CopiarCeldas
|
||||
|
||||
Unload Me
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_completar_exportar_Click()
|
||||
|
||||
b_Export = True
|
||||
CopiarCeldas
|
||||
|
||||
Unload Me
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub CopiarCeldas()
|
||||
Dim wsHoras As Worksheet, wsFdl As Worksheet
|
||||
Dim fechaDesde As Date, fechaHasta As Date
|
||||
Dim ultimaFilaConDatos As Long, ultimaFilaHoras As Long
|
||||
Dim i As Long, j As Long, k As Integer
|
||||
Dim respuesta As VbMsgBoxResult
|
||||
Dim nombreHojaHoras As String, nombreHojaFdl_1 As String, nombreHojaFdl_2 As String, nombreHojaFdl_3 As String, nombreHojaNota As String
|
||||
Dim pdfExportado As Boolean
|
||||
Const PrimeraFilaFDL = 17
|
||||
|
||||
|
||||
' Nombres de las hojas en variables estáticas
|
||||
nombreHojaHoras = "Horas"
|
||||
nombreHojaFdl_1 = "FDL_1"
|
||||
nombreHojaFdl_2 = "FDL_2"
|
||||
nombreHojaFdl_3 = "FDL_3"
|
||||
nombreHojaNota = "Nota"
|
||||
|
||||
' Establecer referencias a las hojas de trabajo
|
||||
Set wsHoras = ThisWorkbook.Sheets(nombreHojaHoras)
|
||||
Set wsFdl = ThisWorkbook.Sheets(nombreHojaFdl_1)
|
||||
|
||||
ultimaFilaHoras = wsHoras.Cells(Rows.Count, 5).End(xlUp).Row
|
||||
|
||||
' Leer fechas desde los TextBox del formulario
|
||||
On Error Resume Next
|
||||
|
||||
|
||||
fechaDesde = GetDateFromForm(ConsultarFechas.t_desde.value)
|
||||
fechaHasta = GetDateFromForm(ConsultarFechas.t_hasta.value)
|
||||
|
||||
' Escribir el numero de factura
|
||||
ThisWorkbook.Sheets(nombreHojaNota).Cells(6, 3).value = ConsultarFechas.frm_factnro.value
|
||||
|
||||
' Validar que las fechas son correctas
|
||||
If IsEmpty(fechaDesde) Or IsEmpty(fechaHasta) Then
|
||||
MsgBox "Por favor, ingrese fechas válidas."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
On Error GoTo 0
|
||||
|
||||
' Validar que las fechas son correctas
|
||||
If IsEmpty(fechaDesde) Or IsEmpty(fechaHasta) Then
|
||||
MsgBox "Por favor, ingrese fechas válidas."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' Comprobar que el rango de fechas no excede los 31 días
|
||||
If fechaHasta - fechaDesde > 31 Then
|
||||
MsgBox "El rango de fechas no puede exceder los 31 días."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' Preguntar al usuario si desea borrar el contenido selectivo de FDL_1
|
||||
'respuesta = MsgBox("¿Desea borrar el contenido selectivo de la hoja FDL ?", vbYesNo)
|
||||
'If respuesta = vbYes Then
|
||||
wsFdl.Range("A17:P44").ClearContents
|
||||
ThisWorkbook.Sheets(nombreHojaFdl_2).Range("A17:P44").ClearContents
|
||||
ThisWorkbook.Sheets(nombreHojaFdl_3).Range("A17:P44").ClearContents
|
||||
'End If
|
||||
|
||||
|
||||
' Iniciar variable para la fila de destino
|
||||
j = PrimeraFilaFDL ' Puesto que quieres empezar desde la fila 17 en FDL_1
|
||||
k = 0
|
||||
|
||||
' Recorrer cada fila en la hoja "Horas"
|
||||
For i = 3 To ultimaFilaHoras
|
||||
If CDate(wsHoras.Cells(i, 5).Value2) >= fechaDesde And CDate(wsHoras.Cells(i, 5).Value2) <= fechaHasta Then
|
||||
' Copiar la celda a la hoja "FDL_1/2/3"
|
||||
wsFdl.Cells(j, 1).Value2 = wsHoras.Cells(i, 5).Value2
|
||||
wsFdl.Cells(j, 3).value = Format(wsHoras.Cells(i, 6).value, "hh:mm")
|
||||
wsFdl.Cells(j, 4).value = wsHoras.Cells(i, 7).value
|
||||
wsFdl.Cells(j, 5).value = wsHoras.Cells(i, 8).value
|
||||
wsFdl.Cells(j, 6).value = wsHoras.Cells(i, 9).value
|
||||
If wsHoras.Cells(i, 14).value > 0 Then wsFdl.Cells(j, 7).value = wsHoras.Cells(i, 14).value
|
||||
If wsHoras.Cells(i, 15).value > 0 Then wsFdl.Cells(j, 8).value = wsHoras.Cells(i, 15).value
|
||||
wsFdl.Cells(j, 10).value = wsHoras.Cells(i, 2).value
|
||||
j = j + 2: k = k + 1
|
||||
pdfExportado = False
|
||||
If k = 14 Then
|
||||
ExportarAsPDF wsFdl, Format(fechaDesde, "dd-MM"), Format(wsFdl.Cells(j - 2, 1).Value2, "dd-MM")
|
||||
|
||||
Set wsFdl = ThisWorkbook.Sheets(nombreHojaFdl_2)
|
||||
j = PrimeraFilaFDL
|
||||
pdfExportado = True
|
||||
End If
|
||||
If k = 28 Then
|
||||
ExportarAsPDF wsFdl, Format(wsFdl.Cells(PrimeraFilaFDL, 1).Value2, "dd-MM"), Format(wsFdl.Cells(j - 2, 1).Value2, "dd-MM")
|
||||
|
||||
Set wsFdl = ThisWorkbook.Sheets(nombreHojaFdl_3)
|
||||
j = PrimeraFilaFDL
|
||||
pdfExportado = True
|
||||
End If
|
||||
|
||||
' Si j supera 42, salir del bucle
|
||||
If k > 42 Then Exit For
|
||||
End If
|
||||
Next i
|
||||
If Not pdfExportado Then
|
||||
ExportarAsPDF wsFdl, Format(wsFdl.Cells(PrimeraFilaFDL, 1).Value2, "dd-MM"), Format(fechaHasta, "dd-MM")
|
||||
End If
|
||||
|
||||
' Exportar la factura
|
||||
ExportarAsPDF ThisWorkbook.Sheets(nombreHojaNota), "Fattura_" & Format(fechaDesde, "dd-MM"), Format(fechaHasta, "dd-MM")
|
||||
|
||||
' Exportar la factura
|
||||
ExportarAsPDF ThisWorkbook.Sheets("Foglio 1"), "Expenses_" & Format(fechaDesde, "dd-MM"), Format(fechaHasta, "dd-MM")
|
||||
|
||||
ExportarAsXLS "Expenses_" & Format(fechaDesde, "dd-MM"), Format(fechaHasta, "dd-MM")
|
||||
|
||||
' Limpiar objetos
|
||||
Set wsFdl = Nothing
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ExportarAsPDF(wsFdl As Worksheet, fechaDesde As String, fechaHasta As String)
|
||||
Dim rutaPDF As String
|
||||
Dim nombreArchivo As String
|
||||
|
||||
If b_Export Then
|
||||
|
||||
' Construir el nombre del archivo PDF basado en las fechas
|
||||
nombreArchivo = "fdl_" & fechaDesde & " al " & fechaHasta & ".pdf"
|
||||
|
||||
|
||||
' Mostrar el cuadro de diálogo "Guardar como" y obtener la ruta seleccionada
|
||||
rutaPDF = Application.GetSaveAsFilename(InitialFileName:=nombreArchivo, _
|
||||
FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Guardar como PDF")
|
||||
|
||||
' Comprobar si el usuario ha cancelado el cuadro de diálogo
|
||||
If (rutaPDF <> "False") And (rutaPDF <> "Falso") Then
|
||||
' Exportar la hoja como PDF
|
||||
wsFdl.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaPDF, _
|
||||
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
|
||||
IgnorePrintAreas:=False, OpenAfterPublish:=False
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ExportarAsXLS(fechaDesde As String, fechaHasta As String)
|
||||
Dim rutaPDF As String
|
||||
Dim nombreArchivo As String
|
||||
|
||||
If b_Export Then
|
||||
|
||||
' Construir el nombre del archivo PDF basado en las fechas
|
||||
nombreArchivo = "fdl_" & fechaDesde & " al " & fechaHasta & ".xlsx"
|
||||
|
||||
|
||||
' Mostrar el cuadro de diálogo "Guardar como" y obtener la ruta seleccionada
|
||||
rutaPDF = Application.GetSaveAsFilename(InitialFileName:=nombreArchivo, _
|
||||
FileFilter:="XLS Files (*.xlsx), *.xlsx", Title:="Guardar como XLS")
|
||||
|
||||
' Comprobar si el usuario ha cancelado el cuadro de diálogo
|
||||
If (rutaPDF <> "False") And (rutaPDF <> "Falso") Then
|
||||
' Exportar la hoja como PDF
|
||||
|
||||
Dim Hoja1 As Worksheet, Hoja2 As Worksheet, Hoja3 As Worksheet, Hoja4 As Worksheet, Hoja5 As Worksheet
|
||||
Dim NuevoLibro As Workbook
|
||||
|
||||
' Ajusta los nombres de las hojas a los que necesitas
|
||||
Set Hoja1 = ThisWorkbook.Sheets("Nota")
|
||||
Set Hoja2 = ThisWorkbook.Sheets("FDL_1")
|
||||
Set Hoja3 = ThisWorkbook.Sheets("FDL_2")
|
||||
Set Hoja4 = ThisWorkbook.Sheets("FDL_3")
|
||||
Set Hoja5 = ThisWorkbook.Sheets("Foglio 1")
|
||||
|
||||
|
||||
' Copia las hojas a un nuevo libro
|
||||
Hoja1.Copy
|
||||
Set NuevoLibro = ActiveWorkbook
|
||||
|
||||
' Con el nuevo libro activo, copia la segunda hoja
|
||||
Hoja2.Copy After:=NuevoLibro.Sheets(1)
|
||||
Hoja3.Copy After:=NuevoLibro.Sheets(2)
|
||||
Hoja4.Copy After:=NuevoLibro.Sheets(3)
|
||||
Hoja5.Copy After:=NuevoLibro.Sheets(4)
|
||||
|
||||
' Guarda el nuevo libro como archivo .xls
|
||||
' Cambia la ruta de archivo y el nombre según necesites
|
||||
NuevoLibro.SaveAs rutaPDF, FileFormat:=xlWorkbookDefault
|
||||
|
||||
' Cierra el nuevo libro sin guardar cambios
|
||||
NuevoLibro.Close SaveChanges:=False
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function GetDateFromForm(value As String) As Date
|
||||
Dim partesFecha() As String
|
||||
|
||||
' Leer fecha desde el TextBox t_desde
|
||||
partesFecha = Split(value, "/")
|
||||
On Error Resume Next
|
||||
GetDateFromForm = DateSerial(CInt(partesFecha(2)), CInt(partesFecha(1)), CInt(partesFecha(0)))
|
||||
On Error GoTo 0
|
||||
End Function
|
||||
|
||||
|
|
@ -0,0 +1,135 @@
|
|||
' Module: DataProcessor
|
||||
' Description: Core data processing functions
|
||||
|
||||
Public Sub ProcessWorkHourData(fechaDesde As Date, fechaHasta As Date, exportResults As Boolean, facturaNum As String)
|
||||
Dim wsHoras As Worksheet, wsFdl As Worksheet
|
||||
Dim ultimaFilaHoras As Long
|
||||
Dim i As Long, j As Long, k As Integer
|
||||
Dim pdfExportado As Boolean
|
||||
|
||||
' Update invoice number
|
||||
ThisWorkbook.Sheets(SHEET_NOTA).Cells(6, 3).Value = facturaNum
|
||||
|
||||
' Validate date range
|
||||
If Not ValidateDateRange(fechaDesde, fechaHasta) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' Clear existing content in FDL sheets
|
||||
ClearFDLSheets
|
||||
|
||||
' Set references to worksheets
|
||||
Set wsHoras = ThisWorkbook.Sheets(SHEET_HORAS)
|
||||
Set wsFdl = ThisWorkbook.Sheets(SHEET_FDL_1)
|
||||
|
||||
ultimaFilaHoras = wsHoras.Cells(Rows.Count, 5).End(xlUp).Row
|
||||
|
||||
' Initialize variables for destination row and entry count
|
||||
j = PRIMERA_FILA_FDL
|
||||
k = 0
|
||||
|
||||
' Process each row in Horas sheet
|
||||
For i = 3 To ultimaFilaHoras
|
||||
If CDate(wsHoras.Cells(i, 5).Value2) >= fechaDesde And CDate(wsHoras.Cells(i, 5).Value2) <= fechaHasta Then
|
||||
' Copy data to current FDL sheet
|
||||
CopyRowToFDL wsHoras, wsFdl, i, j
|
||||
|
||||
j = j + 2: k = k + 1
|
||||
pdfExportado = False
|
||||
|
||||
' Handle sheet transitions at MAX_ENTRIES_PER_FDL entries
|
||||
If k = MAX_ENTRIES_PER_FDL Then
|
||||
If exportResults Then
|
||||
ExportToPDF wsFdl, Format(fechaDesde, "dd-MM"), Format(wsFdl.Cells(j - 2, 1).Value2, "dd-MM")
|
||||
End If
|
||||
|
||||
Set wsFdl = ThisWorkbook.Sheets(SHEET_FDL_2)
|
||||
j = PRIMERA_FILA_FDL
|
||||
pdfExportado = True
|
||||
End If
|
||||
|
||||
' Handle sheet transitions at MAX_ENTRIES_PER_FDL * 2 entries
|
||||
If k = MAX_ENTRIES_PER_FDL * 2 Then
|
||||
If exportResults Then
|
||||
ExportToPDF wsFdl, Format(wsFdl.Cells(PRIMERA_FILA_FDL, 1).Value2, "dd-MM"), Format(wsFdl.Cells(j - 2, 1).Value2, "dd-MM")
|
||||
End If
|
||||
|
||||
Set wsFdl = ThisWorkbook.Sheets(SHEET_FDL_3)
|
||||
j = PRIMERA_FILA_FDL
|
||||
pdfExportado = True
|
||||
End If
|
||||
|
||||
' Exit if we exceed maximum entries
|
||||
If k > MAX_TOTAL_ENTRIES Then Exit For
|
||||
End If
|
||||
Next i
|
||||
|
||||
' Export final sheet if not already exported
|
||||
If exportResults And Not pdfExportado Then
|
||||
ExportToPDF wsFdl, Format(wsFdl.Cells(PRIMERA_FILA_FDL, 1).Value2, "dd-MM"), Format(fechaHasta, "dd-MM")
|
||||
End If
|
||||
|
||||
' Export additional documents if needed
|
||||
If exportResults Then
|
||||
ExportToPDF ThisWorkbook.Sheets(SHEET_NOTA), "Fattura_" & Format(fechaDesde, "dd-MM"), Format(fechaHasta, "dd-MM")
|
||||
ExportToPDF ThisWorkbook.Sheets(SHEET_FOGLIO_1), "Expenses_" & Format(fechaDesde, "dd-MM"), Format(fechaHasta, "dd-MM")
|
||||
ExportToExcel Format(fechaDesde, "dd-MM"), Format(fechaHasta, "dd-MM")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CopyRowToFDL(wsSource As Worksheet, wsTarget As Worksheet, sourceRow As Long, targetRow As Long)
|
||||
' Copy data from source row to target row in FDL sheet
|
||||
wsTarget.Cells(targetRow, 1).Value2 = wsSource.Cells(sourceRow, 5).Value2
|
||||
wsTarget.Cells(targetRow, 3).Value = Format(wsSource.Cells(sourceRow, 6).Value, "hh:mm")
|
||||
wsTarget.Cells(targetRow, 4).Value = wsSource.Cells(sourceRow, 7).Value
|
||||
wsTarget.Cells(targetRow, 5).Value = wsSource.Cells(sourceRow, 8).Value
|
||||
wsTarget.Cells(targetRow, 6).Value = wsSource.Cells(sourceRow, 9).Value
|
||||
|
||||
' Set optional values only if they're greater than 0
|
||||
If wsSource.Cells(sourceRow, 14).Value > 0 Then
|
||||
wsTarget.Cells(targetRow, 7).Value = wsSource.Cells(sourceRow, 14).Value
|
||||
End If
|
||||
|
||||
If wsSource.Cells(sourceRow, 15).Value > 0 Then
|
||||
wsTarget.Cells(targetRow, 8).Value = wsSource.Cells(sourceRow, 15).Value
|
||||
End If
|
||||
|
||||
wsTarget.Cells(targetRow, 10).Value = wsSource.Cells(sourceRow, 2).Value
|
||||
End Sub
|
||||
|
||||
Private Sub ClearFDLSheets()
|
||||
' Clear content in all FDL sheets
|
||||
ThisWorkbook.Sheets(SHEET_FDL_1).Range("A17:P44").ClearContents
|
||||
ThisWorkbook.Sheets(SHEET_FDL_2).Range("A17:P44").ClearContents
|
||||
ThisWorkbook.Sheets(SHEET_FDL_3).Range("A17:P44").ClearContents
|
||||
End Sub
|
||||
|
||||
Public Sub RunPythonLogProcessor()
|
||||
Dim objShell As Object
|
||||
|
||||
' Create shell object
|
||||
Set objShell = VBA.CreateObject("WScript.Shell")
|
||||
|
||||
' Execute Python script
|
||||
objShell.Run "cmd /c " & PYTHON_EXE_PATH & " " & SCRIPT_PATH & " > " & LOG_FILE_PATH & " 2>&1", 0, True
|
||||
Set objShell = Nothing
|
||||
End Sub
|
||||
|
||||
Public Sub RefreshLogData()
|
||||
Dim wb As Workbook
|
||||
|
||||
' Open log Excel file
|
||||
Set wb = Workbooks.Open(LOG_EXCEL_PATH)
|
||||
|
||||
' Refresh all connections
|
||||
wb.RefreshAll
|
||||
|
||||
' Wait for refresh to complete
|
||||
Application.Wait Now + TimeValue("00:00:05")
|
||||
|
||||
' Close without saving
|
||||
wb.Close SaveChanges:=False
|
||||
|
||||
' Refresh current workbook
|
||||
ThisWorkbook.RefreshAll
|
||||
End Sub
|
||||
|
|
@ -0,0 +1,63 @@
|
|||
' Module: DateUtils
|
||||
' Description: Functions for date manipulation and validation
|
||||
|
||||
Public Function GetDateFromString(value As String) As Date
|
||||
Dim partesFecha() As String
|
||||
|
||||
' Parse date from string in format dd/mm/yyyy
|
||||
partesFecha = Split(value, "/")
|
||||
On Error Resume Next
|
||||
GetDateFromString = DateSerial(CInt(partesFecha(2)), CInt(partesFecha(1)), CInt(partesFecha(0)))
|
||||
On Error GoTo 0
|
||||
End Function
|
||||
|
||||
Public Function ValidateDateRange(fechaDesde As Date, fechaHasta As Date) As Boolean
|
||||
' Check if dates are valid
|
||||
If IsEmpty(fechaDesde) Or IsEmpty(fechaHasta) Then
|
||||
MsgBox "Por favor, ingrese fechas válidas."
|
||||
ValidateDateRange = False
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
' Check that date range doesn't exceed 31 days
|
||||
If fechaHasta - fechaDesde > 31 Then
|
||||
MsgBox "El rango de fechas no puede exceder los 31 días."
|
||||
ValidateDateRange = False
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
ValidateDateRange = True
|
||||
End Function
|
||||
|
||||
Public Function GetDefaultEndDate() As Date
|
||||
Dim wsHoras As Worksheet
|
||||
Dim ultimaFilaConDatos As Long
|
||||
|
||||
' Get last date from Horas sheet
|
||||
Set wsHoras = ThisWorkbook.Sheets(SHEET_HORAS)
|
||||
ultimaFilaConDatos = wsHoras.Range("F:M").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
|
||||
|
||||
GetDefaultEndDate = wsHoras.Cells(ultimaFilaConDatos, 5).Value2
|
||||
End Function
|
||||
|
||||
Public Function GetDefaultStartDate(fechaHasta As Date) As Date
|
||||
' Default to 28 days before end date
|
||||
GetDefaultStartDate = DateAdd("d", -28, fechaHasta)
|
||||
End Function
|
||||
|
||||
Public Function SumarPorMes(rangoFechas As Range, mes As Integer, rangoSuma As Range) As Double
|
||||
Dim sumaTotal As Double
|
||||
Dim i As Integer
|
||||
|
||||
On Error Resume Next
|
||||
sumaTotal = 0
|
||||
|
||||
' Sum values where month matches
|
||||
For i = 1 To rangoFechas.Count
|
||||
If Month(rangoFechas.Cells(i).Value2) = mes Then
|
||||
sumaTotal = sumaTotal + rangoSuma.Cells(i).Value2
|
||||
End If
|
||||
Next i
|
||||
|
||||
SumarPorMes = sumaTotal
|
||||
End Function
|
||||
|
|
@ -0,0 +1,120 @@
|
|||
' Module: ExportUtils
|
||||
' Description: Functions for exporting data to different formats
|
||||
|
||||
Public Function ExportToPDF(ws As Worksheet, fechaDesde As String, fechaHasta As String) As Boolean
|
||||
Dim rutaPDF As String
|
||||
Dim nombreArchivo As String
|
||||
|
||||
' Construct PDF filename based on the dates
|
||||
nombreArchivo = "fdl_" & fechaDesde & " al " & fechaHasta & ".pdf"
|
||||
|
||||
' Show "Save As" dialog and get the selected path
|
||||
rutaPDF = Application.GetSaveAsFilename(InitialFileName:=nombreArchivo, _
|
||||
FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Guardar como PDF")
|
||||
|
||||
' Check if user cancelled the dialog
|
||||
If (rutaPDF <> "False") And (rutaPDF <> "Falso") Then
|
||||
' Export sheet as PDF
|
||||
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaPDF, _
|
||||
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
|
||||
IgnorePrintAreas:=False, OpenAfterPublish:=False
|
||||
ExportToPDF = True
|
||||
Else
|
||||
ExportToPDF = False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function ExportToExcel(fechaDesde As String, fechaHasta As String) As Boolean
|
||||
Dim rutaPDF As String
|
||||
Dim nombreArchivo As String
|
||||
|
||||
' Construct Excel filename based on dates
|
||||
nombreArchivo = "fdl_" & fechaDesde & " al " & fechaHasta & ".xlsx"
|
||||
|
||||
' Show "Save As" dialog and get the selected path
|
||||
rutaPDF = Application.GetSaveAsFilename(InitialFileName:=nombreArchivo, _
|
||||
FileFilter:="XLS Files (*.xlsx), *.xlsx", Title:="Guardar como XLS")
|
||||
|
||||
' Check if user cancelled the dialog
|
||||
If (rutaPDF <> "False") And (rutaPDF <> "Falso") Then
|
||||
Dim Hoja1 As Worksheet, Hoja2 As Worksheet, Hoja3 As Worksheet, Hoja4 As Worksheet, Hoja5 As Worksheet
|
||||
Dim NuevoLibro As Workbook
|
||||
|
||||
' Set references to sheets
|
||||
Set Hoja1 = ThisWorkbook.Sheets(SHEET_NOTA)
|
||||
Set Hoja2 = ThisWorkbook.Sheets(SHEET_FDL_1)
|
||||
Set Hoja3 = ThisWorkbook.Sheets(SHEET_FDL_2)
|
||||
Set Hoja4 = ThisWorkbook.Sheets(SHEET_FDL_3)
|
||||
Set Hoja5 = ThisWorkbook.Sheets(SHEET_FOGLIO_1)
|
||||
|
||||
' Copy sheets to new workbook
|
||||
Hoja1.Copy
|
||||
Set NuevoLibro = ActiveWorkbook
|
||||
|
||||
' Copy remaining sheets
|
||||
Hoja2.Copy After:=NuevoLibro.Sheets(1)
|
||||
Hoja3.Copy After:=NuevoLibro.Sheets(2)
|
||||
Hoja4.Copy After:=NuevoLibro.Sheets(3)
|
||||
Hoja5.Copy After:=NuevoLibro.Sheets(4)
|
||||
|
||||
' Save and close
|
||||
NuevoLibro.SaveAs rutaPDF, FileFormat:=xlWorkbookDefault
|
||||
NuevoLibro.Close SaveChanges:=False
|
||||
|
||||
ExportToExcel = True
|
||||
Else
|
||||
ExportToExcel = False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function ExportComessaToExcel() As Boolean
|
||||
Dim rutaPDF As String
|
||||
Dim nombreArchivo As String
|
||||
Dim wsComesse As Worksheet
|
||||
Dim fechaDesde As Date
|
||||
Dim n As Integer
|
||||
|
||||
' Set reference to Commesse sheet
|
||||
Set wsComesse = ThisWorkbook.Sheets(SHEET_COMMESSE)
|
||||
|
||||
' Find the date to use in filename
|
||||
For n = 1 To 7
|
||||
If wsComesse.Cells(8, 2 * n).Value2 <> 0 Then
|
||||
fechaDesde = wsComesse.Cells(2, 2 * n).Value2
|
||||
End If
|
||||
Next n
|
||||
|
||||
' Build filename
|
||||
nombreArchivo = "C:\Users\migue\OneDrive\Miguel\CSA - Trabajo\2024\Angelo Comesse\" + _
|
||||
"Ore " & Format(fechaDesde, "dd-MM") & " Vera Miguel.xlsx"
|
||||
|
||||
' Show Save dialog
|
||||
rutaPDF = Application.GetSaveAsFilename(InitialFileName:=nombreArchivo, _
|
||||
FileFilter:="XLS Files (*.xlsx), *.xlsx", Title:="Guardar como XLS")
|
||||
|
||||
If (rutaPDF <> "False") And (rutaPDF <> "Falso") Then
|
||||
Dim NuevoLibro As Workbook
|
||||
Dim NuevaHoja As Worksheet
|
||||
|
||||
' Create new workbook and copy data
|
||||
Set NuevoLibro = Workbooks.Add
|
||||
Set NuevaHoja = NuevoLibro.Sheets(1)
|
||||
|
||||
wsComesse.Cells.Copy
|
||||
With NuevaHoja.Cells
|
||||
.PasteSpecial Paste:=xlPasteValues
|
||||
.PasteSpecial Paste:=xlPasteFormats
|
||||
End With
|
||||
Application.CutCopyMode = False
|
||||
|
||||
' Save the new workbook
|
||||
NuevoLibro.SaveAs rutaPDF, FileFormat:=xlWorkbookDefault
|
||||
|
||||
' Close the new workbook
|
||||
NuevoLibro.Close SaveChanges:=False
|
||||
|
||||
ExportComessaToExcel = True
|
||||
Else
|
||||
ExportComessaToExcel = False
|
||||
End If
|
||||
End Function
|
||||
|
|
@ -0,0 +1,152 @@
|
|||
Public Sub CargarFDL()
|
||||
Dim wsHoras As Worksheet
|
||||
Dim fechaDesde As Date, fechaHasta As Date
|
||||
Dim ultimaFilaConDatos As Long, ultimaFilaHoras As Long
|
||||
Dim i As Long, j As Long
|
||||
Dim nombreHojaHoras As String, nombreHojaFdl_1 As String, nombreHojaNota As String
|
||||
Dim rangoSeleccionado As Range
|
||||
|
||||
' Nombres de las hojas en variables estáticas
|
||||
nombreHojaHoras = "Horas"
|
||||
nombreHojaNota = "Nota"
|
||||
|
||||
' Establecer referencias a las hojas de trabajo
|
||||
Set wsHoras = ThisWorkbook.Sheets(nombreHojaHoras)
|
||||
|
||||
' Verificar si hay un rango seleccionado en la hoja "Horas" y en la columna E
|
||||
If Not Application.Selection Is Nothing Then
|
||||
Set rangoSeleccionado = Application.Selection
|
||||
If rangoSeleccionado.Worksheet.Name = "Horas" And rangoSeleccionado.EntireColumn.Address = wsHoras.Columns("E").Address Then
|
||||
' Si es así, usar las fechas en el rango seleccionado
|
||||
fechaDesde = rangoSeleccionado.Cells(1, 1).Value2
|
||||
fechaHasta = rangoSeleccionado.Cells(rangoSeleccionado.Rows.Count, 1).Value2
|
||||
End If
|
||||
End If
|
||||
|
||||
' Si no hay una selección apropiada, utilizar otro método para determinar las fechas
|
||||
If fechaDesde = 0 Or fechaHasta = 0 Then
|
||||
' Encontrar la última fila con datos en las columnas F:M en la hoja "Horas"
|
||||
ultimaFilaConDatos = wsHoras.Range("F:M").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
|
||||
ultimaFilaHoras = wsHoras.Cells(Rows.Count, 5).End(xlUp).Row
|
||||
|
||||
' Establecer la fechaDesde y fechaHasta según la última fila con datos en la columna E
|
||||
fechaHasta = wsHoras.Cells(ultimaFilaConDatos, 5).Value2
|
||||
fechaDesde = DateAdd("d", -28, fechaHasta)
|
||||
End If
|
||||
|
||||
' Establecer las fechas por defecto en los TextBox
|
||||
ConsultarFechas.t_hasta.value = Format(fechaHasta, "dd/mm/yyyy")
|
||||
ConsultarFechas.t_desde.value = Format(fechaDesde, "dd/mm/yyyy")
|
||||
|
||||
' Obtener ultimo numero de Factura
|
||||
ConsultarFechas.frm_factnro.value = ThisWorkbook.Sheets(nombreHojaNota).Cells(6, 3).value
|
||||
|
||||
ConsultarFechas.Show
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
' C:/Users/migue/miniconda3/envs/general/python.exe d:/Proyectos/Scripts/InicioApagadoToExcel/LeerLogsToExcel.py
|
||||
|
||||
Sub RunLeerLogsToExcel()
|
||||
|
||||
Python_ActualizarLogsHorarios
|
||||
|
||||
ActualizarDatos
|
||||
|
||||
End Sub
|
||||
|
||||
Sub AbrirLogsHorarios()
|
||||
|
||||
Dim wb As Workbook
|
||||
|
||||
' Abre el libro de trabajo especificado
|
||||
Set wb = Workbooks.Open("D:\Proyectos\Scripts\Horarios\InicioApagadoToExcel\LogEncendidoApagado.xlsx")
|
||||
|
||||
' Actualiza todas las conexiones del libro de trabajo abierto
|
||||
wb.RefreshAll
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Python_ActualizarLogsHorarios()
|
||||
|
||||
Dim objShell As Object
|
||||
Dim PythonExePath As String
|
||||
Dim PythonScriptPath As String
|
||||
|
||||
|
||||
' Define la ruta del ejecutable de Python
|
||||
PythonExePath = "C:\Users\migue\miniconda3\envs\general\python.exe"
|
||||
|
||||
' Define la ruta de tu script de Python
|
||||
PythonScriptPath = "d:\Proyectos\Scripts\Horarios\InicioApagadoToExcel\LeerLogsToExcel.py"
|
||||
|
||||
' Define la ruta del archivo donde se guardarán los logs
|
||||
Dim LogFilePath As String
|
||||
LogFilePath = "d:\Proyectos\Scripts\Horarios\InicioApagadoToExcel\python_log.txt"
|
||||
|
||||
' Crear un objeto Shell
|
||||
Set objShell = VBA.CreateObject("WScript.Shell")
|
||||
|
||||
|
||||
' Ejecutar el script de Python
|
||||
objShell.Run "cmd /c " & PythonExePath & " " & PythonScriptPath & " > " & LogFilePath & " 2>&1", 0, True
|
||||
Set objShell = Nothing
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub ActualizarDatos()
|
||||
Dim wb As Workbook
|
||||
|
||||
' Abre el libro de trabajo especificado
|
||||
Set wb = Workbooks.Open("D:\Proyectos\Scripts\Horarios\InicioApagadoToExcel\LogEncendidoApagado.xlsx")
|
||||
|
||||
' Actualiza todas las conexiones del libro de trabajo abierto
|
||||
wb.RefreshAll
|
||||
|
||||
' Espera un tiempo específico para que se completen las actualizaciones
|
||||
' Por ejemplo, espera 5 segundos. Ajusta este tiempo según sea necesario
|
||||
Application.Wait Now + TimeValue("00:00:05")
|
||||
|
||||
' Cierra el libro de trabajo sin guardar los cambios
|
||||
wb.Close SaveChanges:=False
|
||||
|
||||
' Actualiza todas las conexiones del libro de trabajo actual (opcional)
|
||||
ThisWorkbook.RefreshAll
|
||||
End Sub
|
||||
|
||||
Sub SaveComessas()
|
||||
Menu.b_gen_hoja_comessas_Click
|
||||
End Sub
|
||||
|
||||
Public Sub CargarMENU()
|
||||
|
||||
Menu.Show
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function SumarPorMes(rangoFechas As Range, mes As Integer, rangoSuma As Range) As Double
|
||||
Dim sumaTotal As Double
|
||||
Dim i As Integer
|
||||
|
||||
On Error Resume Next
|
||||
sumaTotal = 0
|
||||
|
||||
' Recorre el rango de fechas y suma los valores si el mes coincide
|
||||
For i = 1 To rangoFechas.Count
|
||||
If Month(rangoFechas.Cells(i).Value2) = mes Then
|
||||
sumaTotal = sumaTotal + rangoSuma.Cells(i).Value2
|
||||
End If
|
||||
Next i
|
||||
|
||||
SumarPorMes = sumaTotal
|
||||
End Function
|
||||
|
||||
Public Sub Test()
|
||||
Dim resultado As Double
|
||||
resultado = SumarPorMes(Sheets("Horas").Range("E3:E367"), 9, Sheets("Horas").Range("O3:O367"))
|
||||
Debug.Print "La suma para el mes 9 es: " & resultado
|
||||
End Sub
|
||||
|
||||
|
|
@ -0,0 +1,74 @@
|
|||
' Module: MainModule
|
||||
' Description: Main entry points for the application
|
||||
|
||||
Public Sub ShowMenu()
|
||||
' Display the main menu form
|
||||
Menu.Show
|
||||
End Sub
|
||||
|
||||
Public Sub ProcessLogs()
|
||||
' Update logs and refresh data
|
||||
RunPythonLogProcessor
|
||||
RefreshLogData
|
||||
End Sub
|
||||
|
||||
Public Sub GenerateInvoice()
|
||||
' Generate invoice by showing date selection form
|
||||
ShowDateSelectionForm
|
||||
End Sub
|
||||
|
||||
Public Sub ExportCommessaSheet()
|
||||
' Export Comesse sheet to Excel
|
||||
ExportComessaToExcel
|
||||
End Sub
|
||||
|
||||
' Helper function to display date selection form
|
||||
Private Sub ShowDateSelectionForm()
|
||||
Dim wsHoras As Worksheet
|
||||
Dim fechaDesde As Date, fechaHasta As Date
|
||||
Dim rangoSeleccionado As Range
|
||||
|
||||
' Set reference to Horas sheet
|
||||
Set wsHoras = ThisWorkbook.Sheets(SHEET_HORAS)
|
||||
|
||||
' Check if there's a selected range in Horas sheet and column E
|
||||
If Not Application.Selection Is Nothing Then
|
||||
Set rangoSeleccionado = Application.Selection
|
||||
If rangoSeleccionado.Worksheet.Name = SHEET_HORAS And _
|
||||
rangoSeleccionado.EntireColumn.Address = wsHoras.Columns("E").Address Then
|
||||
' Use dates from selected range
|
||||
fechaDesde = rangoSeleccionado.Cells(1, 1).Value2
|
||||
fechaHasta = rangoSeleccionado.Cells(rangoSeleccionado.Rows.Count, 1).Value2
|
||||
End If
|
||||
End If
|
||||
|
||||
' If no appropriate selection, use default date calculation
|
||||
If fechaDesde = 0 Or fechaHasta = 0 Then
|
||||
fechaHasta = GetDefaultEndDate()
|
||||
fechaDesde = GetDefaultStartDate(fechaHasta)
|
||||
End If
|
||||
|
||||
' Set default values in the form
|
||||
ConsultarFechas.t_hasta.Value = Format(fechaHasta, "dd/mm/yyyy")
|
||||
ConsultarFechas.t_desde.Value = Format(fechaDesde, "dd/mm/yyyy")
|
||||
|
||||
' Set invoice number
|
||||
ConsultarFechas.frm_factnro.Value = ThisWorkbook.Sheets(SHEET_NOTA).Cells(6, 3).Value
|
||||
|
||||
' Show form
|
||||
ConsultarFechas.Show
|
||||
End Sub
|
||||
|
||||
Public Sub RunDiagnostic()
|
||||
' Run a diagnostic test
|
||||
Debug.Print "System Diagnostics:"
|
||||
Debug.Print "-------------------"
|
||||
Debug.Print "Python Path: " & PYTHON_EXE_PATH
|
||||
Debug.Print "Script Path: " & SCRIPT_PATH
|
||||
Debug.Print "Log Path: " & LOG_FILE_PATH
|
||||
Debug.Print "Excel Log Path: " & LOG_EXCEL_PATH
|
||||
|
||||
Dim testResult As Double
|
||||
testResult = SumarPorMes(Sheets(SHEET_HORAS).Range("E3:E367"), Month(Date), Sheets(SHEET_HORAS).Range("O3:O367"))
|
||||
Debug.Print "Test sum for current month: " & testResult
|
||||
End Sub
|
||||
|
|
@ -0,0 +1,73 @@
|
|||
Private Sub b_cargar_logs_Click()
|
||||
RunLeerLogsToExcel
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub b_gen_factura_Click()
|
||||
CargarFDL.CargarFDL
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub b_gen_hoja_comessas_Click()
|
||||
Dim rutaPDF As String
|
||||
Dim nombreArchivo As String
|
||||
|
||||
Dim wsComesse As Worksheet
|
||||
Dim fechaDesde As Date, fechaHasta As Date
|
||||
Dim nombreComesseHoras As String
|
||||
Dim n As Integer
|
||||
|
||||
' Nombres de las hojas en variables estáticas
|
||||
nombreHojaHoras = "Horas"
|
||||
nombreComesseHoras = "Commesse"
|
||||
|
||||
' Establecer referencias a las hojas de Comesse
|
||||
Set wsComesse = ThisWorkbook.Sheets(nombreComesseHoras)
|
||||
|
||||
For n = 1 To 7
|
||||
If wsComesse.Cells(8, 2 * n).Value2 <> 0 Then
|
||||
' Establecer la fechaDesde y fechaHasta según la última fila con datos en la columna E
|
||||
fechaDesde = wsComesse.Cells(2, 2 * n).Value2
|
||||
End If
|
||||
Next n
|
||||
' Construir el nombre del archivo PDF basado en las fechas - Ore 16-09 Vera Miguel.xlsx
|
||||
nombreArchivo = "C:\Users\migue\OneDrive\Miguel\CSA - Trabajo\2024\Angelo Comesse\" + "Ore " & Format(fechaDesde, "dd-MM") & " Vera Miguel.xlsx"
|
||||
|
||||
' Mostrar el cuadro de diálogo "Guardar como" y obtener la ruta seleccionada
|
||||
rutaPDF = Application.GetSaveAsFilename(InitialFileName:=nombreArchivo, _
|
||||
FileFilter:="XLS Files (*.xlsx), *.xlsx", Title:="Guardar como XLS")
|
||||
|
||||
' Comprobar si el usuario ha cancelado el cuadro de diálogo
|
||||
If (rutaPDF <> "False") And (rutaPDF <> "Falso") Then
|
||||
Dim Hoja1 As Worksheet
|
||||
Dim NuevoLibro As Workbook
|
||||
Dim NuevaHoja As Worksheet
|
||||
|
||||
' Ajusta los nombres de las hojas a los que necesitas
|
||||
Set Hoja1 = ThisWorkbook.Sheets(nombreComesseHoras)
|
||||
|
||||
' Crea un nuevo libro
|
||||
Set NuevoLibro = Workbooks.Add
|
||||
Set NuevaHoja = NuevoLibro.Sheets(1)
|
||||
|
||||
' Copia las celdas como valores desde la hoja original a la nueva hoja
|
||||
Hoja1.Cells.Copy
|
||||
With NuevaHoja.Cells
|
||||
.PasteSpecial Paste:=xlPasteValues
|
||||
.PasteSpecial Paste:=xlPasteFormats
|
||||
End With
|
||||
Application.CutCopyMode = False
|
||||
|
||||
' Guarda el nuevo libro como archivo .xls
|
||||
' Cambia la ruta de archivo y el nombre según necesites
|
||||
NuevoLibro.SaveAs rutaPDF, FileFormat:=xlWorkbookDefault
|
||||
|
||||
' Cierra el nuevo libro sin guardar cambios
|
||||
NuevoLibro.Close SaveChanges:=False
|
||||
End If
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,29 @@
|
|||
' Form module: ConsultarFechas
|
||||
' Description: Date selection form with refactored code
|
||||
|
||||
Dim b_Export As Boolean
|
||||
|
||||
Private Sub b_completar_Click()
|
||||
' Process data without exporting
|
||||
b_Export = False
|
||||
ProcessFormData
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub b_completar_exportar_Click()
|
||||
' Process data and export
|
||||
b_Export = True
|
||||
ProcessFormData
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub ProcessFormData()
|
||||
Dim fechaDesde As Date, fechaHasta As Date
|
||||
|
||||
' Parse dates from form inputs
|
||||
fechaDesde = GetDateFromString(Me.t_desde.Value)
|
||||
fechaHasta = GetDateFromString(Me.t_hasta.Value)
|
||||
|
||||
' Process the work hour data
|
||||
ProcessWorkHourData fechaDesde, fechaHasta, b_Export, Me.frm_factnro.Value
|
||||
End Sub
|
||||
|
|
@ -0,0 +1,58 @@
|
|||
' Form module: Menu
|
||||
' Description: Main application menu with refactored code
|
||||
|
||||
Private Sub b_cargar_logs_Click()
|
||||
' Process logs and update data
|
||||
RunPythonLogProcessor
|
||||
RefreshLogData
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub b_gen_factura_Click()
|
||||
' Show the date selection form
|
||||
ShowDateSelectionForm
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Public Sub b_gen_hoja_comessas_Click()
|
||||
' Export Comesse to Excel
|
||||
ExportComessaToExcel
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
' Helper method to display the date selection form
|
||||
Private Sub ShowDateSelectionForm()
|
||||
Dim wsHoras As Worksheet
|
||||
Dim fechaDesde As Date, fechaHasta As Date
|
||||
Dim rangoSeleccionado As Range
|
||||
|
||||
' Set reference to Horas sheet
|
||||
Set wsHoras = ThisWorkbook.Sheets(SHEET_HORAS)
|
||||
|
||||
' Check if there's a selected range in Horas sheet and column E
|
||||
If Not Application.Selection Is Nothing Then
|
||||
Set rangoSeleccionado = Application.Selection
|
||||
If rangoSeleccionado.Worksheet.Name = SHEET_HORAS And _
|
||||
rangoSeleccionado.EntireColumn.Address = wsHoras.Columns("E").Address Then
|
||||
' Use dates from selected range
|
||||
fechaDesde = rangoSeleccionado.Cells(1, 1).Value2
|
||||
fechaHasta = rangoSeleccionado.Cells(rangoSeleccionado.Rows.Count, 1).Value2
|
||||
End If
|
||||
End If
|
||||
|
||||
' If no appropriate selection, use default date calculation
|
||||
If fechaDesde = 0 Or fechaHasta = 0 Then
|
||||
fechaHasta = GetDefaultEndDate()
|
||||
fechaDesde = GetDefaultStartDate(fechaHasta)
|
||||
End If
|
||||
|
||||
' Set default values in the form
|
||||
ConsultarFechas.t_hasta.Value = Format(fechaHasta, "dd/mm/yyyy")
|
||||
ConsultarFechas.t_desde.Value = Format(fechaDesde, "dd/mm/yyyy")
|
||||
|
||||
' Set invoice number
|
||||
ConsultarFechas.frm_factnro.Value = ThisWorkbook.Sheets(SHEET_NOTA).Cells(6, 3).Value
|
||||
|
||||
' Show form
|
||||
ConsultarFechas.Show
|
||||
End Sub
|
||||
|
|
@ -0,0 +1,64 @@
|
|||
Work Hours Management System
|
||||
This VBA-based system helps manage work hours, generate reports, and create invoices.
|
||||
|
||||
Core Components
|
||||
1. Menu System (Menu.vba)
|
||||
Provides the main interface for accessing different functionalities
|
||||
Features:
|
||||
Load work logs
|
||||
Generate invoices
|
||||
Export work commission sheets ("comesse")
|
||||
|
||||
2. Date Query Interface (ConsultarFechas.vba)
|
||||
Handles date-based operations and report generation
|
||||
Key features:
|
||||
Date range selection
|
||||
PDF export functionality
|
||||
Excel export functionality
|
||||
Multi-sheet FDL report generation (FDL_1, FDL_2, FDL_3)
|
||||
3. Core Module (Modulo.vba)
|
||||
Contains core functionality including:
|
||||
FDL report loading
|
||||
Python script integration for log processing
|
||||
Monthly sum calculations
|
||||
Data refresh operations
|
||||
Key Features
|
||||
Work Log Management
|
||||
|
||||
Automatic log reading and Excel conversion
|
||||
Integration with Python scripts for log processing
|
||||
Automated data refresh capabilities
|
||||
Report Generation
|
||||
|
||||
PDF export functionality
|
||||
Excel workbook export
|
||||
Support for multiple FDL sheets
|
||||
Invoice generation
|
||||
Date Management
|
||||
|
||||
Flexible date range selection
|
||||
Monthly data aggregation
|
||||
Date validation and error handling
|
||||
Usage
|
||||
Opening the System
|
||||
|
||||
Generating Reports
|
||||
|
||||
Use the menu interface to select desired operation
|
||||
Choose date ranges when prompted
|
||||
Select export location for generated files
|
||||
Working with Logs
|
||||
|
||||
Technical Notes
|
||||
The system supports up to 31-day periods for report generation
|
||||
Automatically handles multi-page reports (up to 42 entries)
|
||||
Integrates with external Python scripts for log processing
|
||||
Supports both PDF and Excel export formats
|
||||
Dependencies
|
||||
Excel with VBA support
|
||||
Python environment (for log processing)
|
||||
Required Excel sheets:
|
||||
Horas
|
||||
FDL_1, FDL_2, FDL_3
|
||||
Nota
|
||||
Foglio 1
|
||||
Loading…
Reference in New Issue