Contratos, regsitro Ventas estado de cuenta

Contratos/ContratoObra.aspx.vb

@@ -405,6 +405,10 @@ Partial Class Contratos_ContratoObra
 
                 End If
 
+                CargaEstadoCueta()
+
+                TabEstadoCuenta.Visible = True
+
             Else
                 'Configuración de Modalidad Insert
                 LblFechaCaptura.Text = Now.ToShortDateString()
@@ -438,6 +442,8 @@ Partial Class Contratos_ContratoObra
             CargaPSInsumos()
             ConfiguraTipos()
             CargaDatosEncabezado()
+
+
             ' CargaImpuestosLocales()
 
         End If
@@ -2592,7 +2598,7 @@ Partial Class Contratos_ContratoObra
 
         Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then
+        If ObjContratos.GetReporteContratosObraAvancesDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
             GvDatosAvance.DataSource = ObjContratos.DtResultados
             SumaAvance = ObjContratos.DtResultados.SUM("AvanceImporte", "CveClasificacion IS NULL")
             SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL")
@@ -5116,6 +5122,37 @@ Partial Class Contratos_ContratoObra
         objContrato.Dispose()
 
     End Sub
+
+    Private Sub CargaEstadoCueta()
+
+
+        Dim ObjContratos As New ClsContratos
+
+        If ObjContratos.GetContratosObraEstadoCuenta(CveContrato, UsuarioActual.CveEmpresa, 1) Then
+            GvEstadoCuentaAnticipos.DataSource = ObjContratos.DtResultados
+        Else
+            GvEstadoCuentaAnticipos.DataSource = Nothing
+        End If
+
+        If ObjContratos.GetContratosObraEstadoCuenta(CveContrato, UsuarioActual.CveEmpresa, 2) Then
+            GvEstadoCuentaFacturas.DataSource = ObjContratos.DtResultados
+        Else
+            GvEstadoCuentaFacturas.DataSource = Nothing
+        End If
+
+
+        ObjContratos.Dispose()
+
+        GvEstadoCuentaAnticipos.DataBind()
+        GvEstadoCuentaFacturas.DataBind()
+
+
+
+        UpEstoCuenta.Update()
+
+    End Sub
+
+
 End Class