CAI Visual Basic - Ej Gastos Chofer, Visual Basic

CAI Visual Basic - Ej Gastos Chofer

Private Sub Form_Load()

End Sub

Private Sub btnAgregar_click()

' Chequeo que haya seleccionado algo en los 3 cbo
    ' Que la fecha no sea mayor a la de hoy
    ' importe es numerico
    
    Dim fechaOK As Boolean
    fechaOK = False
    validarFecha txtFecha, fechaOK
    
        If cboChofer.ItemData(cboChofer.ListIndex) > -1 And _
        cboConceptoGastos.ItemData(cboConceptoGastos.ListIndex) > -1 And _
        cboPatente.ItemData(cboPatente.ListIndex) > -1 And _
        fechaOK And IsNumeric(txtImporte) And txtNroFactura <> "" Then
            
            Dim ausencia As Recordset
            Set ausencia = abrirTabla("Ausencia", oDB)
            
            Dim fechaTrucha As Boolean
            fechaTrucha = False
            
            
            Dim criterioAusencia As String
            criterioAusencia = "idChofer =" & cboChofer.ItemData(cboChofer.ListIndex) & _
            " AND fecha = #" & Format(txtFecha, "dd/mm/yyyy") & "#"
            
            ausencia.findFirst criterioAusencia
            
            Do While Not ausencia.noMatch
                fechaTrucha = True
                ausencia.findNext criterioAusencia
            Loop
            
            If fechaTrucha = False Then
                Dim gasto As Recordset
                Set gasto = abrirTabla("Gasto", oDB)
                
                gasto.AddNew
                gasto("idChofer") = cboChofer.ItemData(cboChofer.ListIndex)
                gasto("patente") = cboPatente.ItemData(cboPatente.ListIndex)
                gasto("idConceptoGasto") = cboConceptoGasto.ItemData(cboConceptoGasto.ListIndex)
                gasto("fechaPago") = Format(txtFecha, "dd/mm/yyyy")
                gasto("importe") = txtImporte
                gasto("reintegrado") = False
                gastos.Update
                llenarLstGastos ""
            End If
            
        End If

End Sub

Private Sub btnEliminar_Click()
    Dim idGastolst As Integer
    idGastolst = lstGasto.ItemData(lstGasto.ListIndex)
    
    If idGastolst <> -1 Then
    
        Dim gasto As Recordset
        Set gasto = abrirTabla("Gasto", oDB)
        
        Dim criterioGasto As String
        criterioGasto = "idGasto =" & idGastolst
        
        gasto.findFirst criterioGasto
        Do While Not gasto.noMatch
            gasto.Delete
            gasto.Update
            llenarLstGastos ""
            gasto.findNext criterioGasto
        Loop
    End If
    
End Sub

Private Sub btnFiltrarChofer_click()
    
    If cboChofer.ItemData(cboChofer.ListIndex) > -1 And _
    cboConcepto.ItemData(cboChofer.ListIndex) > -1 And _
    (IsNumeric(txtImpMin) And txtImpMin <> "") And _
    (IsNumeric(txtImpMax) And txtImpMax <> "") Then
    
        Dim gasto As Recordset
        Set gasto = abrirTabla("Gasto", oDB)
        
        Dim criterioFiltro As String
        criterioFiltro = "idChofer =" & cboChofer.ItemData(cboChofer.ListIndex) & _
        " AND idConceptoGasto =" & cboConcepto.ItemData(cboChofer.ListIndex) & _
        " AND importe >" & txtImpMin & "AND importe <" & txtImpMax
       
            llenarLstGastos criterioFiltro
     
    End If

End Sub

Private Sub llenarLstGastos(criterioRecibido As String)
    
    Dim gasto As Recordset
    Set gasto = abrirTabla("Gasto", oDB)
    
    Dim ConceptoGasto As Recordset
    ConceptoGasto = abrirTabla("ConceptoGasto", oDB)
    
    Dim chofer As Recordset
    Set chofer = abrirTabla("Chofer", oDB)
    
    Dim criterioConceptoGasto As String
    criterioConceptoGasto = "idConceptoGasto =" & gasto("idConceptoGasto")
    
    Dim criterioNombreChofer As String
    criterioNombreChofer = "idChofer =" & gasto("idChofer")
    
    Dim monstruo As String
    monstruo = ""
    
    dim criterioChofer as String
'Seteo el criterio para traer todos o para filtrar segun lo que recibo
    If criterioRecibido = "" Then    
        criterioChofer = "True"
    Else
        criterioChofer = criterioRecibido
    End If
        
    gasto.findFirst criterioChofer

Do while not gasto.noMatch
    'loopear por todos los choferes para chequear el idChofer del gasto contra el idChofer de la tabla chofe
        chofer.findFirst criterioNombreChofer
        Do While Not chofer.noMatch
            monstruo = monstruo & chofer("apellido") & ", " & chofer("nombre")
            chofer.findNext criterioNombreChofer
        Loop

'Agrego los demas
        monstruo = monstruo & vbTab & gasto("patente")

ConceptoGasto.findFirst criterioConceptoGasto
        Do While Not ConceptoGasto.noMatch
            monstruo = monstruo & vbTab & ConceptoGasto("descripcion")
            ConceptoGasto.findNext criterioConceptoGasto
        Loop

monstruo = monstruo & vbTab & gasto("fechaPago")
        monstruo = monstruo & vbTab & gasto("nroFactura")
        monstruo = monstruo & vbTab & gasto("importe")

gasto.findNext criterioChofer
    Loop

cerrarTabla gasto
    cerrarTabla ConceptoGasto
    cerrarTabla chofer
End Sub

'' JPs CODE

Private Sub lstGasto_Click()
	if lstGasto.ItemData(lstGasto.ListIndex) > -1 then
		
		dim gasto as Recordset
		set gasto = AbrirTabla("Gasto" , oDB)
	
		Dim conceptogasto as Recordset
		set conceptogasto = AbrirTabla("ConceptoGasto" , oDB)
	
		Dim chofer as Recordset
		set chofer = AbrirTabla("Chofer" , oDB)
		
		
		dim criterioConceptoGasto as string
		criterioConceptoGasto = "idConceptoGasto = " & gasto("idConceptoGasto")
	
		dim criterioNombreChofer as string
		criterioNombreChofer = "idChofer = " & gasto("idChofer")
		
		
		
		dim criterioModificaGasto = "idGasto = " & lstGasto.ItemData(lstGasto.ListIndex)
		
		gasto.FindFirst criterioModificaGasto 
		Do while not gasto.noMatch criterioModificaGasto
				
			chofer.FindFirst criterioNombreChofer
			
			Do while not chofer.noMatch criterioNombreChofer
				cboChofer.ItemData(cboChofer.ListIndex) = chofer("IdChofer")
				chofer.findNext criterioNombreChofer	
			Loop
			
			Do while not conceptogasto.noMatch criterioConceptoGasto
				cboConceptoGastos.ItemData(cboConceptoGastos.ListIndex) = conceptogasto("idConceptoGasto")
				conceptogasto.findNext criterioConceptoGasto
			Loop
			
			txtNroFactura = gasto("nroFactura")
			cboPateno.ItemData(cboPateno.ListIndex) = gasto("patente")
			txtfecha = gasto("fechaPago")
			txtImporte = gasto("importe")
			
			if gasto("reintegrado") = True Then
				btnModificar.Disabled = True
			End if 
			
			gasto.findNext criterioModificaGasto	
		Loop
		
		cerrarTabla gasto
		cerrarTabla ConceptoGasto
		cerrarTabla chofer
		
	End if
End Sub

Private Sub btnModificar_Click()
	If habilitaModificacion = True then
		
		Dim fechaOK As Boolean
		fechaOK = False
		validarFecha txtFecha, fechaOK
    
        If cboChofer.ItemData(cboChofer.ListIndex) > -1 And _
        cboConceptoGastos.ItemData(cboConceptoGastos.ListIndex) > -1 And _
        cboPatente.ItemData(cboPatente.ListIndex) > -1 And _
        fechaOK And IsNumeric(txtImporte) And txtNroFactura <> "" Then
            
            Dim ausencia As Recordset
            Set ausencia = abrirTabla("Ausencia", oDB)
            
            Dim fechaTrucha As Boolean
            fechaTrucha = False
            
            
            Dim criterioAusencia As String
            criterioAusencia = "idChofer =" & cboChofer.ItemData(cboChofer.ListIndex) & _
            " AND fecha = #" & Format(txtFecha, "dd/mm/yyyy") & "#"
            
            ausencia.findFirst criterioAusencia
            
            Do While Not ausencia.noMatch
                fechaTrucha = True
                ausencia.findNext criterioAusencia
            Loop
            
            If fechaTrucha = False Then
                Dim gasto As Recordset
                Set gasto = abrirTabla("Gasto", oDB)
                
                gasto.Edit
                gasto("idChofer") = cboChofer.ItemData(cboChofer.ListIndex)
                gasto("patente") = cboPatente.ItemData(cboPatente.ListIndex)
                gasto("idConceptoGasto") = cboConceptoGasto.ItemData(cboConceptoGasto.ListIndex)
                gasto("fechaPago") = Format(txtFecha, "dd/mm/yyyy")
                gasto("importe") = txtImporte
                gasto("reintegrado") = False
                gastos.Update
                llenarLstGastos ""
            End If
            
        End If
		cerrarTabla gasto
		cerrarTabla ausencia
	End If
	
End Sub

'' End JPs CODE


run \| edit \| history \| help	0