CRM Correciones nombre AcercamientosModel

CRM/Acercamiento.aspx.cs

@@ -828,7 +828,7 @@ public partial class CRM_Acercamiento : ClsPaginas
         {
             ClsCRM ObjCRM = new ClsCRM();
             ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
-            AcercaminetoModel AcercaminetoModel = new AcercaminetoModel();
+            AcercamientoModel AcercamientoModel = new AcercamientoModel();
 
             ClsEncuestas ObjDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL());
             //ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL());
@@ -866,31 +866,31 @@ public partial class CRM_Acercamiento : ClsPaginas
             {
                 CveEncuestaAplicadaProceso = GuardaDatosTecnicos(ObjDatosTecnicos, CveEncuestaAplicadaProceso);
             }
-            AcercaminetoModel.CveAcercamiento = CveAcercamiento;
+            AcercamientoModel.CveAcercamiento = CveAcercamiento;
-            AcercaminetoModel.CveContactoPrincipal = CveContactoPrincipal;
+            AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal;
-            AcercaminetoModel.CveTipoProceso = CveTipoProceso;
+            AcercamientoModel.CveTipoProceso = CveTipoProceso;
-            AcercaminetoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
+            AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
-            AcercaminetoModel.CveVendedor = CveVendedor;
+            AcercamientoModel.CveVendedor = CveVendedor;
-            AcercaminetoModel.CveMedioCaptacion = CveMedioCaptacion;
+            AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion;
-            AcercaminetoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
+            AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
-            AcercaminetoModel.NombreAcercamiento = NombreAcercamiento;
+            AcercamientoModel.NombreAcercamiento = NombreAcercamiento;
-            AcercaminetoModel.Descripcion = Descripcion;
+            AcercamientoModel.Descripcion = Descripcion;
-            AcercaminetoModel.Importe = Importe;
+            AcercamientoModel.Importe = Importe;
-            AcercaminetoModel.Comision = Comision;
+            AcercamientoModel.Comision = Comision;
-            AcercaminetoModel.Prioridad = Prioridad;
+            AcercamientoModel.Prioridad = Prioridad;
-            AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
+            AcercamientoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
-            AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
+            AcercamientoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
-            AcercaminetoModel.FechaApertura = FechaApertura;
+            AcercamientoModel.FechaApertura = FechaApertura;
-            AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
+            AcercamientoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
-            AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
+            AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero();
-            AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
+            AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo;
-            AcercaminetoModel.EnPausa = ChkePausa.Checked;            
+            AcercamientoModel.EnPausa = ChkePausa.Checked;            
-            AcercaminetoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
+            AcercamientoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
-            AcercaminetoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
+            AcercamientoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
-            AcercaminetoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
+            AcercamientoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
 
 
-            if (cRMService.AcercamientoUpdate(AcercaminetoModel))
+            if (cRMService.AcercamientoUpdate(AcercamientoModel))
             {
                 //String MensajeBitacora = (CveEtapaProcesoActualActualizar != CveEtapaActual) ? String.Format("Se actualizó la etapa del acercamiento a {0}.", DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveEtapaProceso = " + CveEtapaProcesoActualActualizar)) : String.Format("Se actualizó el Acercamiento {0} con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text);
 
@@ -926,7 +926,7 @@ public partial class CRM_Acercamiento : ClsPaginas
     protected void GuardarCambioEtapa()
     {
         ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
-        AcercaminetoModel AcercaminetoModel = new AcercaminetoModel();
+        AcercamientoModel AcercamientoModel = new AcercamientoModel();
         String NombreAcercamiento = TxtNombreAcercamiento.Text;
         String Descripcion = TxtDescripcion.Text == "" ? "-1" : TxtDescripcion.Text;
 
@@ -953,30 +953,30 @@ public partial class CRM_Acercamiento : ClsPaginas
 
         int CveUsuarioIng = UsuarioActual.CveUsuario;
 
-        AcercaminetoModel.CveAcercamiento = CveAcercamiento;
+        AcercamientoModel.CveAcercamiento = CveAcercamiento;
-        AcercaminetoModel.CveContactoPrincipal = CveContactoPrincipal;
+        AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal;
-        AcercaminetoModel.CveTipoProceso = CveTipoProceso;
+        AcercamientoModel.CveTipoProceso = CveTipoProceso;
-        AcercaminetoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
+        AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar;
-        AcercaminetoModel.CveVendedor = CveVendedor;
+        AcercamientoModel.CveVendedor = CveVendedor;
-        AcercaminetoModel.CveMedioCaptacion = CveMedioCaptacion;
+        AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion;
-        AcercaminetoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
+        AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
-        AcercaminetoModel.NombreAcercamiento = NombreAcercamiento;
+        AcercamientoModel.NombreAcercamiento = NombreAcercamiento;
-        AcercaminetoModel.Descripcion = Descripcion;
+        AcercamientoModel.Descripcion = Descripcion;
-        AcercaminetoModel.Importe = Importe;
+        AcercamientoModel.Importe = Importe;
-        AcercaminetoModel.Comision = Comision;
+        AcercamientoModel.Comision = Comision;
-        AcercaminetoModel.Prioridad = Prioridad;
+        AcercamientoModel.Prioridad = Prioridad;
-        AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
+        AcercamientoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
-        AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
+        AcercamientoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
-        AcercaminetoModel.FechaApertura = FechaApertura;
+        AcercamientoModel.FechaApertura = FechaApertura;
-        AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
+        AcercamientoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
-        AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
+        AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero();
-        AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
+        AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo;
 
-        AcercaminetoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
+        AcercamientoModel.CveMedico = DdlMedico.SelectedValue.ToEntero();
-        AcercaminetoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
+        AcercamientoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero();
-        AcercaminetoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
+        AcercamientoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero();
 
-        if (cRMService.AcercamientoUpdate(AcercaminetoModel))
+        if (cRMService.AcercamientoUpdate(AcercamientoModel))
         {
             CveEtapaActual = CveEtapaProcesoActualActualizar;
             HdfEtapaSeleccionada.Value = CveEtapaProcesoActualActualizar.ToString();
@@ -1114,7 +1114,7 @@ public partial class CRM_Acercamiento : ClsPaginas
         String TituloCierre = DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveTipoEtapa = 4");
 
 
-        AcercaminetoModel acercamiento = new AcercaminetoModel();
+        AcercamientoModel acercamiento = new AcercamientoModel();
         acercamiento.CveAcercamiento = CveAcercamiento;
         acercamiento.CveEtapaProcesoActual = CveEtapaCierre;
         acercamiento.CveRechazoMotivo = CveRechazoMotivo;

CRM/EmpresaCRM.aspx.cs

@@ -1821,7 +1821,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
 
         if (tempDT.Rows.Count > 0)
         {
-            var AcercamientoModel = new AcercaminetoModel()
+            var AcercamientoModel = new AcercamientoModel()
             {
                 CveEmpresaCRM = CveEmpresaCRM,
                 CveContactoPrincipal = CveContactoPrincipal,

Compras/Compras.aspx.vb

@@ -10421,14 +10421,60 @@ Partial Class Compras_Compras
         DdlTipoTransaccionCaja.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
     End Sub
 
+    Private Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
+        CargaCuentas()
+
+        UpContado.Update()
+    End Sub
+
+    Private Sub DdlTipoTransaccionCaja_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccionCaja.SelectedIndexChanged
+        CargaCuentas()
+
+        UpContado.Update()
+    End Sub
+
     Private Sub CargaCuentas()
+
+
+
+        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
+
+        'cuando es layout
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
+            dt = dt.FiltraParametros("UsaLayout = 1")
+        End If
+
+        If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
+            dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
+        End If
+
+
+        DdlCuenta.SelectedValue = Nothing
         DdlCuenta.Items.Clear()
-        DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta <> 1"))
+        DdlCuenta.ClearSelection()
+
+        DdlCuenta.DataSource = dt.FiltraParametros(String.Format("CveTipoCuenta <> 1"))
         DdlCuenta.DataBind()
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+
+        Dim dtCaja As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
+
+
+        If DdlTipoTransaccionCaja.SelectedValue.ToEntero = 9 Then
+            dtCaja = dtCaja.FiltraParametros("UsaLayout = 1")
+        End If
+
+        If DdlTipoTransaccionCaja.SelectedValue.ToEntero = 17 Then
+            dtCaja = dtCaja.FiltraParametros("UsaLayoutGrupos = 1")
+        End If
+
+
+        DdlCuentaCaja.SelectedValue = Nothing
         DdlCuentaCaja.Items.Clear()
-        DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta = 1"))
+        DdlCuentaCaja.ClearSelection()
+        DdlCuentaCaja.Items.Clear()
+        DdlCuentaCaja.DataSource = dtCaja.FiltraParametros(String.Format("CveTipoCuenta = 1"))
         DdlCuentaCaja.DataBind()
         DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -20060,29 +20106,6 @@ Partial Class Compras_Compras
         DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
-
-    Protected Sub BtnRecolecciónAplicar_Click(sender As Object, e As EventArgs)
-        Using ObjAcum As New ClsGenerales
-            If ObjAcum.GetEntregaAlmacenRutaDetalle(DdlRecoleccion.SelectedValue.ToEntero) Then
-                'Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("CantidadDisponible > 0")
-                'Dim Porcentaje As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
-                'Dim tCveSub As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
-                'Dim tCveTipoGasto As Integer = TmpDT.MAX("CveTipoGasto").ToEntero
-                'Dim Total As Decimal = TmpDT.SUMD("Total")
-                'For Each drr As DataRow In TmpDT.Rows
-                '    ClavesBorradas.Add(drr("CveCompraDetalle").ToString)
-                'Next
-                TmpDT.Clear()
-                'For Each dr As DataRow In dtt.Rows
-                '    Dim pu As Decimal = Total / dtt.SUMD("CantidadDisponible")
-                '    Dim cantidad As Decimal = dr("CantidadDisponible").ToString.ToDecimal
-                '    AddPS(cantidad, dr("CveUM").ToString.ToEntero, "", dr("CveClasificacion").ToString.ToEntero, "", dr("CvePS").ToString.ToEntero, dr("PS").ToString, 2, tCveSub.ToString, "SE", "SE", "", "", pu, Total, Porcentaje, 0, 0, 0, 0, 0, PorcentajeIVA:=Porcentaje, TCalculaTotales:=True, CveTipoGasto:=tCveTipoGasto)
-                'Next
-                'AddPS2()
-
-            End If
-        End Using
-    End Sub
 End Class
 
 

General/SaldosIniciales.aspx.vb

@@ -1633,12 +1633,13 @@ Partial Class General_SaldosIniciales
                 Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
 
 
+
                 If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True
                 '  If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True
                 If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True
                 Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
 
-
+                Dim CountRow As Integer = 1
                 For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
                     Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
                     Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim
@@ -1684,7 +1685,36 @@ Partial Class General_SaldosIniciales
                     Dim IVADetalle As Decimal = 0
 
                     If RblFormato.SelectedValue = "17" Then
+
+                        Dim CodigoDetalle As String = Row("Codigo").ToString
+                        If CodigoDetalle.Trim.Length > 0 Then
+                            Dim DrDetalles As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo = {CodigoDetalle}")
+
+                            If DrDetalles IsNot Nothing Then
+                                CvePS = DrDetalles("CvePS").ToString().ToEntero()
+                                CveUnidadMedida = DrDetalles("CveUnidadMedida").ToString().ToEntero()
+                                CveClasificacion = DrDetalles("CveClasificacion").ToString().ToEntero()
+                            Else
+                                Alert($"El código del producto no se encontro, error en registro {CountRow}")
+                                ErrorVentas = True
+                            End If
+
+                        Else
+                            Alert($"El código es requerido, error en registro {CountRow}")
+                            ErrorVentas = True
+                        End If
+
+
                         IEPSDetalle = Row("IEPS").ToString.ToDecimal
+                        CantidadDetalle = Row("Cantidad").ToString.ToDecimal
+                        PUDetalle = Row("PU").ToString.ToDecimal
+                        IVADetalle = Row("IVA").ToString.ToDecimal
+
+                        If CantidadDetalle = 0 Then
+                            Alert($"No se especifico la cantidad, error en registro {CountRow}")
+                            ErrorVentas = True
+                        End If
+
                     End If
 
                     If dt.Columns.Contains("Cliente Sucursal") AndAlso Row("Cliente Sucursal").ToString() <> "" Then
@@ -1759,11 +1789,19 @@ Partial Class General_SaldosIniciales
 
 
                             If RblFormato.SelectedValue = "17" Then
-                                If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PUDetalle * CantidadDetalle, IVADetalle, (PUDetalle * CantidadDetalle) + IVADetalle - IEPSDetalle, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0,
+
+                                Dim TotalDetalles As Decimal = SubTotal
+                                If PUDetalle > 0 Then
+                                    TotalDetalles = (CantidadDetalle * PUDetalle) + IVA - RetIVA - RetISR + IEPSDetalle
+                                End If
+
+
+                                If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PUDetalle * CantidadDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0,
                                                                  PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=IEPSDetalle) Then
                                     ErrorVentas = True
                                     Exit For
                                 End If
+
                             Else
                                 If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=0) Then
                                     ErrorVentas = True
@@ -1839,6 +1877,7 @@ Partial Class General_SaldosIniciales
                         Exit For
                     End If
 
+                    CountRow = CountRow + 1
                 Next
                 If Not ErrorVentas Then
                     Alert(String.Format("Se agregaron: <b>{0}</b> Ventas correctamente.  <b>{1} no encontrados</b><br/>{2} ", Encontrados, NoEncontrados, StrRFCNoencontrados), TipoMensaje.MsgInformacion)