Compras dos prepolizas cuando hay entrada de inventario y la fecha de lacompra es distina de la fecha actual

Compras/Compras.aspx

@@ -729,7 +729,7 @@
                                     </asp:Panel>
 
 
-                                    <asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat,TipoAF,CveCultivoCuadroDetalle" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn"  >
+                                    <asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat,TipoAF,CveCultivoCuadroDetalle,CveTipoPS" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn"  >
                                         <Columns>
                                             <%-- 0 --%>
                                             <asp:TemplateField ItemStyle-Width="15px">

Compras/Compras.aspx.vb

@@ -6054,11 +6054,35 @@ Partial Class Compras_Compras
 
                                                                         If importeMN <> 0 Then
 
+
+                                                                            If TxtFecha.Text <> Now.ToString("dd/MM/yyyy") Then
+
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
+
+                                                                                Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+
+                                                                                If CvePrePoliza2Almacen > 0 Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                Else
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
+
+                                                                            Else
                                                                                 'SI ES GASTO CON ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
 
+                                                                            End If
+
+
                                                                             'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95
                                                                             If DdlTipoCompra.SelectedValue = "10" Then
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 95, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then
@@ -6640,60 +6664,7 @@ Partial Class Compras_Compras
                                                                     Exit Select
                                                                 End If
 
-                                                                'Else
 
-                                                                '    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
-                                                                '        For Each Gvr As GridViewRow In GvFacturaNC.Rows
-                                                                '            If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
-                                                                '                'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
-                                                                '                Dim importeMovimientoNC As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                                                                '                Dim importeMNNC As Decimal = importeMovimientoNC * tipoCambioActual * Multiplicador
-
-
-                                                                '                If CompraActual.CveMoneda = 1 Then
-
-                                                                '                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimientoNC, importeMNNC, 272, Referencia, Concepto, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then
-                                                                '                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimientoNC, importeMNNC, 60, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then
-                                                                '                            ErrorPrepoliza = True
-                                                                '                        End If
-                                                                '                    Else
-                                                                '                        ErrorPrepoliza = True
-                                                                '                    End If
-                                                                '                Else
-
-                                                                '                    Dim UsaComplementaria As Boolean = True
-
-                                                                '                    If UsaComplementaria Then
-
-                                                                '                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, importeMovimientoNC, 304, CompraActual.SerieFolio, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=-1, CvePersonal:=-1, CveCompraAmortizacion:=CveCompra, TipoCambio:=CompraActual.TC, TipoCambioPago:=Gvr.DataKey("TipoCambio").ToDecimal, ImporteME:=importeMovimientoNC, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=-1) Then
-                                                                '                            ErrorPrepoliza = True
-                                                                '                        End If
-
-                                                                '                        If Not ErrorPrepoliza AndAlso CompraActual.CveMoneda > 1 AndAlso UsaComplementaria Then
-                                                                '                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, (importeMNNC - importeMovimientoNC).RoundSQL, 201, CompraActual.SerieFolio, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=-1, CvePersonal:=-1, CveCompraAmortizacion:=CveCompra, TipoCambio:=CompraActual.TC, TipoCambioPago:=Gvr.DataKey("TipoCambio").ToDecimal, ImporteME:=importeMovimientoNC, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=-1) Then
-                                                                '                                ErrorPrepoliza = True
-                                                                '                            End If
-                                                                '                        End If
-
-
-                                                                '                    Else
-                                                                '                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, importeMNNC, 304, CompraActual.SerieFolio, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=-1, CvePersonal:=-1, CveCompraAmortizacion:=CveCompra, TipoCambio:=CompraActual.TC, TipoCambioPago:=Gvr.DataKey("TipoCambio").ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=-1) Then
-                                                                '                            ErrorPrepoliza = True
-                                                                '                        End If
-                                                                '                    End If
-
-
-                                                                '                End If
-
-
-
-
-
-                                                                '                'ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
-                                                                '            End If
-                                                                '        Next
-                                                                '    End If
-                                                                'End If
 
                                                         End If
                                                         importeMovimiento = 0
@@ -16036,6 +16007,16 @@ Partial Class Compras_Compras
         TxtIEPSModal.Text = ""
         TxtDescuentoModal.Text = ""
 
+
+        TxtCantidad.Enabled = True
+        DdlClasificacion.Enabled = True
+        DdlPS.Enabled = True
+        DdlPS.ddlWS.Disabled = False
+        ddlUM.Enabled = True
+        TxtPrecio.Enabled = True
+        TxtDescuentoModal.Enabled = True
+        DdlIVA.Enabled = True
+
         DivAddProductoAliasPS.Visible = False
 
         LbAgregar.Text = "Agregar"
@@ -16047,6 +16028,8 @@ Partial Class Compras_Compras
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
+
+
         Con = GvRow.DataKey("Consec").ToEntero
         Index = Con
 
@@ -16164,8 +16147,33 @@ Partial Class Compras_Compras
         divIVA.Visible = True
 
 
+
+
+        If GvInvMov.Rows.Count > 0 AndAlso GvRow.DataKey("CveTipoPS").ToEntero = 2 Then
+            TxtCantidad.Enabled = False
+            DdlClasificacion.Enabled = False
+            DdlPS.Enabled = False
+            DdlPS.ddl.Enabled = False
+            DdlPS.ddlWS.Disabled = True
+            ddlUM.Enabled = False
+            TxtPrecio.Enabled = False
+            TxtDescuentoModal.Enabled = False
+            DdlIVA.Enabled = False
+        Else
+            TxtCantidad.Enabled = True
+            DdlClasificacion.Enabled = True
+            DdlPS.Enabled = True
+            DdlPS.ddlWS.Disabled = False
+            ddlUM.Enabled = True
+            TxtPrecio.Enabled = True
+            TxtDescuentoModal.Enabled = True
+            DdlIVA.Enabled = True
+        End If
+
+
         UpPSS.Update()
         RegistraScript("$('#divAddProducto').modal('show');")
+
     End Sub
     Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
         DdlClasificacionChange()

OC/OC.aspx.vb

@@ -2608,6 +2608,10 @@ Partial Class OC_OC
         'VALIDACIONES PARA GUARDAR
         If ValidaGuardar() Then Exit Sub
 
+        If UsuarioActual.CveEmpresa.Contiene(119) Then
+            ChkCotizacion.Checked = False
+        End If
+
         Dim MsgError As String = "Hubo un error al registrar"
         'VARIABLES
         Dim CveProveedorSucursal As Integer = -1
@@ -2666,6 +2670,7 @@ Partial Class OC_OC
                 CveProveedorContacto = IIf(DdlProveedorContacto.SelectedValue.ToEntero = 0, "-1", DdlProveedorContacto.SelectedValue).ToString.ToEntero
             End If
 
+
             Dim CveOrdenCompraPadre As Integer = -1
 
             If GeneraReq Then