Avanzado SAE COI NOI ..................................... BANCOS PROD

Reporte movimientos de cuentas x cobrar SAE Firebird

Anteriormente vimos el reporte más simple, solo un catálogo de clientes. Qué pasaría si quisiéramos ver los movimientos a de nuestras cuentas x cobrar, es decir, una vez generada la remisión o factura, todos los movimientos que afecten a esa factura. El reporte tendrá un rango de fechas para que el usuario pueda consultar exactamente el periodo que a el le importe y adicionalmente tenemos 4 empresas por lo que el reporte debe ser capaz de consultar cualquier empresa que le dicte el usuario.

Para esto será imprescindible haber leído el artículo Mi primer reporte en Excel http://www.cyberadmin.com.mx/portal/2-uncategorised/2-mi-primer-reporte-en-excel-explotando-base-firebird , Adicionalmente, debido a que el reporte soporta hasta 4 empresas, deberás crear tu al menos 2 ODBC´s, cada una apuntando a una empresa de SAE.

Seguir todos los pasos que se indican en mi primer reporte en Excel, solo que en la función deberán poner en el contenido lo siguiente

    Dim Var1 As String
    Dim Var2 As String
    Dim Var3 As String
    Dim CodEmpresa As Long
    Dim Empresa10 As String
    Var1 = Sheets(1).Cells(1, 2).Value
    Var2 = Sheets(1).Cells(2, 2).Value
    Var3 = Sheets(1).Cells(3, 2).Value
    
    If Len(Var1) <> 8 Or Len(Var2) <> 8 Then
        MsgBox "La fecha debe tener format AAAAMMDD"
        Exit Sub
    End If
    
    If Var3 <> "1" And Var3 <> "6" And Var3 <> "7" And Var3 <> "3" Then
        MsgBox "Debes seleccionar una empresa válida"
        Exit Sub
    End If
    
    Empresa10 = Format(Var3, "00")
    
    Var1 = Left(Var1, 4) & "-" & Left(Right(Var1, 4), 2) & "-" & Right(Var1, 2)
    Var2 = Left(Var2, 4) & "-" & Left(Right(Var2, 4), 2) & "-" & Right(Var2, 2)
     
    Sheets(2).Select
    Cells.Select
    On Error Resume Next
    Selection.ListObject.QueryTable.Delete
    On Error GoTo 0
    Selection.ClearContents
        

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array("ODBC;DSN=SAE" & Empresa10), Destination:=Range("$A$1")).QueryTable
        .CommandText = Array("select cc.descr, c.nombre as Cliente, dc.cve_clie, dc.no_factura, dc.docto, dc.importe, dc.fecha_apli, dc.fechaelab, ", _
	    "coalesce(oc.str_obs, '') as observaciones,  dc.strcvevend ", _
	    "from cuen_det" & Empresa10 & " dc ", _
	    "inner join clie" & Empresa10 & " c on dc.cve_clie = c.clave ", _
	    "inner join conc" & Empresa10 & " cc on dc.num_cpto = cc.num_cpto ", _
	    "left join ocuen" & Empresa10 & " oc on oc.cve_obs = dc.cve_obs ", _
	    "where fecha_apli between '" & Var1 & "' and '" & Var2 & "'")

	 .Refresh BackgroundQuery:=False
    End With

Así mismo, deberán poner las celdas y el botón que ya tenían de la hoja 1 como se muestra

Ustedes deberán reemplazar los códigos de empresas y nombres para que sus usuarios puedan trabajar sin problemas

Veremos el código nuevo paso a paso

Declaramos 3 variables Var1, 2 y 3 donde guardaremos en Var1 la fecha inicial, Var2 la Fecha final y Var3 el código de empresa, crearemos la variable CodEmpresa para garantizar que sea un entero y Empresa10 tendrá el código de la empresa a 2 decimales que ocuparemos para conectarnos a nuestro ODBC y a los nombres de tablas.

    Dim Var1 As String
    Dim Var2 As String
    Dim Var3 As String
    Dim CodEmpresa As Long
    Dim Empresa10 As String

Como se puso anteriormente, obtenemos las variables de las celdas correspondientes.
   

    Var1 = Sheets(1).Cells(1, 2).Value
    Var2 = Sheets(1).Cells(2, 2).Value
    Var3 = Sheets(1).Cells(3, 2).Value
   

Validamos que la fecha de inicio y de fin sea de 8 caracteres como se pide en el Excel.
    If Len(Var1) <> 8 Or Len(Var2) <> 8 Then
        MsgBox "La fecha debe tener format AAAAMMDD"
        Exit Sub
    End If
   

Validamos que los códigos de las empresas sean los que tenemos en nuestro sistema IMPORTANTE: Aquí ustedes deberá reemplazar por los códigos de empresas que tengan.
    If Var3 <> "1" And Var3 <> "6" And Var3 <> "7" And Var3 <> "3" Then
        MsgBox "Debes seleccionar una empresa válida"
        Exit Sub
    End If
   

Obtenemos el código de empresa a 2 decimales

   Empresa10 = Format(Var3, "00")
   

Obtenemos la fecha inicial y final en el formato que soporta Firebird, es decir, 4 dígitos para el año + un guion medio + 2 dígitos para el mes + otro guion medio y finalmente 2 dígitos para el día

    Var1 = Left(Var1, 4) & "-" & Left(Right(Var1, 4), 2) & "-" & Right(Var1, 2)
    Var2 = Left(Var2, 4) & "-" & Left(Right(Var2, 4), 2) & "-" & Right(Var2, 2)

La parte donde se hace el query también tuvo modificaciones; veamoslas.

Al conectarse a la ODBC, estoy poniendo el DSN con un prefijo SAE y luego le concateno el código de la empresa a 2 posiciones, es por eso que cuando creemos las ODBC´s, es necesario ser ordenado con SAE01, SAE02, SAE03, etc. Así mismo, al momento de hacer la liga de las tablas y para asegurar que funcione con cualquier empresa que pongamos, le quitamos el número de la empresa que normalmente usaríamos y en vez de eso le concatenamos el código de la empresa a 2 posiciones, si el usuario pone empresa 1, cuando consulte clientes será CLIE01, si el usuario pone la empresa 6, la tabla consultada será CLIE06. Finalmente, en la consulta agregamos la condicionante que puso el usuario en las fechas inicial y final; en mi caso utilicé fecha_apli, pero también puede utilizarse fecha_elab o fecha_venc.

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array("ODBC;DSN=SAE" & Empresa10), Destination:=Range("$A$1")).QueryTable
        .CommandText = Array("select cc.descr, c.nombre as Cliente, dc.cve_clie, dc.no_factura, dc.docto, dc.importe, dc.fecha_apli, dc.fechaelab, ", _
     	     "coalesce(oc.str_obs, '') as observaciones,  dc.strcvevend ", _
	     "from cuen_det" & Empresa10 & " dc ", _
	     "inner join clie" & Empresa10 & " c on dc.cve_clie = c.clave ", _
	     "inner join conc" & Empresa10 & " cc on dc.num_cpto = cc.num_cpto ", _
	     "left join ocuen" & Empresa10 & " oc on oc.cve_obs = dc.cve_obs ", _
	     "where fecha_apli between '" & Var1 & "' and '" & Var2 & "'")

	 .Refresh BackgroundQuery:=False
    End With

El resto es historia. Si se perdieron en algo, pueden descargar el archivo con macros desde http://www.cyberadmin.com.mx/portal/achivos/foro/reportes/Movimientos de cuentas x cobrar.xlsm

Pueden agregar tantas condiciones como ustedes quieran, filtrar por clientes, por montos, tipo de movimientos, etc. Nos leemos luego.