--OC.aspx.

--cargar tab almacen si tiene inventario. --metodo de pago (credito o contado)
2024-02-16 19:12:41 -07:00
parent ee5fa45b9a
commit 18743396b9
3 changed files with 32 additions and 11 deletions
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -581,7 +581,7 @@ Public Class ClsOC
        Return Retorno
    End Function

-    Public Function GetOC(CveOrdenCompra As Integer, CveEmpresa As Integer, Optional Folio As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional Tipo As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveUsuario As Integer = -1) As Boolean
+    Public Function GetOC(CveOrdenCompra As Integer, CveEmpresa As Integer, Optional Folio As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional Tipo As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", Optional CveUsuario As Integer = -1, Optional ConsultaInventarioOC As Boolean = False) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_OC_OrdenesCompraGet")
@@ -596,6 +596,7 @@ Public Class ClsOC
            .Add("@Guia", SqlDbType.Int).Value = Guia
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@ConsultaInventarioOC", SqlDbType.Bit).Value = ConsultaInventarioOC
        End With

        Try
@@ -707,7 +708,7 @@ Public Class ClsOC
                                   Optional PorcentajeIVA As Decimal = 0.16D, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1,
                                   Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1,
                                   Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1",
-                                   Optional CveColectiva As Integer = -1) As Boolean
+                                   Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_OC_OrdenesCompraAdd")
@@ -752,6 +753,7 @@ Public Class ClsOC
            .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto
            .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision
            .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
+            .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago ' 0 Contado, 1 Credito

            .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output
            .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -915,7 +917,7 @@ Public Class ClsOC
                                      pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "",
                                      Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IDPoliza As Integer = -1, Optional FechaExpiracion As Date = Nothing, Optional FolioAdicional As String = "",
                                      Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1",
-                                      Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16D, Optional NumRemision As String = "-1") As Boolean
+                                      Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16D, Optional NumRemision As String = "-1", Optional MetodoPago As Integer = -1) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_OC_OrdenesCompraUpdate")
@@ -950,6 +952,7 @@ Public Class ClsOC
            .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto
            .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = PorcentajeIVA
            .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision
+            .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago ' 0 Contado, 1 Credito
        End With

        Try
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -452,6 +452,16 @@
                                            </asp:DropDownList>
                                        </td>
                                    </tr>
+                                    <tr>
+                                        <td><b>Método de pago:</b></td>
+                                        <td>
+                                            <asp:DropDownList ID="DdlMetodoPago" CssClass="form-control  select2me" runat="server" Width="100%" CausesValidation="true">
+                                                <asp:ListItem Text="-" Value="-1"></asp:ListItem>
+                                                <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
+                                                <asp:ListItem Text="Crédito" Value="1"></asp:ListItem>
+                                            </asp:DropDownList>
+                                        </td>
+                                    </tr>
                                </table>
                            </ContentTemplate>
                        </asp:UpdatePanel>
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -1326,9 +1326,11 @@ Partial Class OC_OC
        'REINICIALIZA
        TrPendientes.Visible = False

+        Dim TieneInventario As Boolean = False
+
        Dim objOC As New ClsOC

-        If objOC.GetOC(pCveOrdenCompra, CveEmpresaActual, CveUsuario:=UsuarioActual.CveUsuario) AndAlso objOC.DtResultados.Rows.Count > 0 Then
+        If objOC.GetOC(pCveOrdenCompra, CveEmpresaActual, CveUsuario:=UsuarioActual.CveUsuario, ConsultaInventarioOC:=True) AndAlso objOC.DtResultados.Rows.Count > 0 Then
            CveEmpresaActual = objOC.CveEmpresa
            If CveEmpresaActual > 0 Then
                EmpresaActualOC = CreaObjetoEmpresa(CveEmpresaActual)
@@ -1343,6 +1345,9 @@ Partial Class OC_OC
            ViewState("CveUsuario") = objOC.CveUsuario
            ViewState("CvePresupuestoEgreso") = objOC.CvePresupuestoEgreso

+            TieneInventario = CBool(objOC.DtResultados.Rows(0)("TieneInvOC"))
+            DdlMetodoPago.SelectedValueExist(objOC.DtResultados.Rows(0)("MetodoPago"))
+
            'PROMOCIONES
            TxtPromocion.Text = objOC.Promocion
            ChkPromocion.Checked = TxtPromocion.Text.Trim.Length > 0
@@ -1817,8 +1822,10 @@ Partial Class OC_OC
        objOC.Dispose()
        GvVentaRelacionadas.DataBind()

-        'CARGA MOVTOS DE ALMACEN
-        InicializaMovtosAlmacen()
+        If TieneInventario Then
+            'CARGA MOVTOS DE ALMACEN
+            InicializaMovtosAlmacen()
+        End If

        If UsuarioActual.Empresa.Funcionalidad(565) = "1" And pCveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then
            'LAS COTIZACIONES RAPIDAS SOLO DEBE APARECER SI EL PROVEEDOR ES DEDICADO
@@ -2685,7 +2692,7 @@ Partial Class OC_OC
                                     LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
                                     RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
                                     RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim,
-                                     IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text.Trim()) Then
+                                     IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text.Trim(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then

                        CveOrdenCompraPadre = OC.CveOrdenCompra
                        If CveOrdenCompraPadre > 0 Then
@@ -2726,7 +2733,7 @@ Partial Class OC_OC
                                 RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                 PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1),
                                 CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
-                                 Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text) Then
+                                 Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then
                    CveOrdenCompra = OC.CveOrdenCompra
                    CveEstatus = CboE.SelectedValue.ToEntero

@@ -2896,7 +2903,7 @@ Partial Class OC_OC
                                    LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero,
                                    DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1),
                                    Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto,
-                                    PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), NumRemision:=TxtNumRemision.Text) Then
+                                    PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), NumRemision:=TxtNumRemision.Text, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then
                If CveProveedorOriginal <> CveProveedor Then
                    If Not ObjConta.UpdateProveedorPoliza(CveOrdenCompra, CveProveedor, Proveedor) Then
                        TieneError = True
@@ -3330,7 +3337,7 @@ Partial Class OC_OC
                                                         CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                        PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                         EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
-                                                         CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim) Then
+                                                         CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then

                            'CREA POLIZA POR CADA PROVEEDOR

@@ -3406,7 +3413,7 @@ Partial Class OC_OC
                                                 CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
                                                 PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                 EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
-                                                 Promocion:=Promocion, NumRemision:=TxtNumRemision.Text.Trim) Then
+                                                 Promocion:=Promocion, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then


                    'USA AC
@@ -4209,6 +4216,7 @@ Partial Class OC_OC
        gvCotizaciones.Enabled = False
        DdlProveedorSucursal.Enabled = False
        DdlProveedorContacto.Enabled = False
+        DdlMetodoPago.Enabled = False

        GvD.Columns(12).Visible = False
        GvD.Columns(13).Visible = True