Curso de Software de Ventas Pt 46 Modulo Cartera de Clientes 6

Colabora y Suscribete a mi canal de   

 

En esta sección vemos como crear el recibo de pago en una hoja media carta, que es muy simple y explico como crear un consultar usando MS Access y extraer el codigo SQL de la misma.

En el vídeo explico los nombres de cada campo y como vincular la consulta al Reporte, el código para mostrar el Reporte es el siguiente y va en el modulo de  Mod_Impresiones.

Function ReciboPagoCliente(IdPago)
        Dim RecordPago As New ADODB.RecordSet
        
        Sql = "SELECT tblPagos_Factura_Venta.Num_Rec_Pago, tblPagos_Factura_Venta.Fecha,tblPagos_Factura_Venta.Num_Factura, tblPagos_Factura_Venta.ValorPago, tblClientes.Identificacion_cli, tblClientes.NombreApellidos_cli " _
            & " FROM (tblPagos_Factura_Venta INNER JOIN tblVentas ON tblPagos_Factura_Venta.Num_Factura = tblVentas.Num_Factura) INNER JOIN tblClientes ON tblVentas.IdCliente = tblClientes.IdCliente " _
            & " WHERE (((tblPagos_Factura_Venta.Num_Rec_Pago)=" & IdPago & ")) ;"
            
              
        Set RecordPago = ConexionADO.Execute(Sql)
        
        If RecordPago.RecordCount > 0 Then
            Set DtrRecPagoCliente.DataSource = RecordPago
            With DtrRecPagoCliente
                .Sections("Sección2").Controls("Etq_Empresa").Caption = Glo_NombreEmpresa
                .Sections("Sección2").Controls("Etq_Nit").Caption = Glo_NitEmpresa
                .Sections("Sección2").Controls("Etq_NRecibo").Caption = RecordPago("Num_Rec_Pago")
                .Sections("Sección2").Controls("Rpt_Fecha").Caption = RecordPago("Fecha")
                .Sections("Sección2").Controls("Etq_ClienNit").Caption = RecordPago("Identificacion_cli")
                .Sections("Sección2").Controls("Etq_NomCliente").Caption = RecordPago("NombreApellidos_cli")
                
                .Sections("Sección1").Controls("Etq_NumFactura").Caption = RecordPago("Num_Factura")
                .Sections("Sección1").Controls("Eqt_ValorPago").Caption = Format(RecordPago("ValorPago"), "currency")
                .Sections("Sección5").Controls("Etq_ValorPago").Caption = Format(RecordPago("ValorPago"), "currency")
                .Show
           End With
            
        End If
        
    
End Function

Y Luego vinculamos el botón Imprimir en la ventana lista de pagos el código seria el siguiente:

Private Sub cmdImprimir_Click()
    ID = msGrid.TextMatrix(msGrid.Row, 1)
    If ID <> "" Then
       Call ReciboPagoCliente(ID)
    End If
End Sub

Y el vídeo donde pueden ver como se monta todo el codigo:

 

 

Puedes el listado de las lecciones del curso en Curso de Creación de Software de Ventas en Visual Basic 6

No te olvides de Compartir