From 8916980e564efefc4133a20e3276aceb769c99d3 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Mon, 26 Sep 2022 12:10:29 -0700
Subject: [PATCH 1/6] =?UTF-8?q?Empreasas=20no=20mistrar=20Pesta=C3=B1a=20c?=
 =?UTF-8?q?ontabilidad=20si=20el=20tipo=20de=20conta=20es=20diferente=20de?=
 =?UTF-8?q?=202,=20quira=20control=20de=20regimen=20,=20correcion=20estado?=
 =?UTF-8?q?=20resultados=20horizontal,=20alineacion=20vertical=20y=20color?=
 =?UTF-8?q?=20de=20junio?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../RepEstadoResultadosHorizontal.aspx        |  4 ++
 .../RepEstadoResultadosHorizontal.aspx.vb     |  4 +-
 Sistemas/Empresa.aspx                         |  7 +-
 Sistemas/Empresa.aspx.vb                      | 68 +++++++++++++++----
 4 files changed, 66 insertions(+), 17 deletions(-)

diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index 76e29e41b..86a562758 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -38,6 +38,10 @@
         .showgrph .chkgraf {
             visibility: inherit;
         }
+
+        .table>tbody>tr>td{
+            vertical-align:bottom;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index a7fba26be..762a25374 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -1480,8 +1480,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
             e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
             e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
-            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
-            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJunio").ForeColor)
             e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
             e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
             e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)
diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx
index 86820315a..c0bf14666 100644
--- a/Sistemas/Empresa.aspx
+++ b/Sistemas/Empresa.aspx
@@ -44,6 +44,7 @@
                         <asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" Style="display: none;" />
                         <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
                         <ajax:TabContainer ID="Tab" runat="server" Width="100%" ActiveTabIndex="0">
+                            
                             <ajax:TabPanel HeaderText="Empresa" ID="TabPanel1" runat="server">
                                 <ContentTemplate>
 
@@ -152,14 +153,14 @@
                                                                 <asp:TextBox ID="TxtLocalidad" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
                                                             </td>
                                                         </tr>
-                                                        <tr>
+                                                      <%--  <tr>
                                                             <td>Régimen:</td>
                                                             <td>
                                                                 <asp:TextBox ID="TxtRegimen" runat="server" MaxLength="100" Width="350px"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVRegimen" runat="server" ControlToValidate="TxtRegimen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen'</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCERegimen" runat="server" HighlightCssClass="vco" TargetControlID="RFVRegimen" Width="300px"></ajax:ValidatorCalloutExtender>
                                                             </td>
-                                                        </tr>
+                                                        </tr>--%>
                                                         <tr>
                                                             <td>Régimen:</td>
                                                             <td>
@@ -708,7 +709,7 @@
                                     </div>
                                 </ContentTemplate>
                             </ajax:TabPanel>
-                            <ajax:TabPanel HeaderText="Contabilidad" ID="TabPanel3" runat="server">
+                            <ajax:TabPanel HeaderText="Contabilidad" ID="TabContabilidad" runat="server" Visible="false">
                                 <ContentTemplate>
                                     <div class="row">
                                         <div class="col-md-6">
diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb
index b944b5b36..51c58ba61 100644
--- a/Sistemas/Empresa.aspx.vb
+++ b/Sistemas/Empresa.aspx.vb
@@ -108,6 +108,21 @@ Partial Class Sistemas_Empresa
     End Property
 
 
+    Public Property TipoContabilidad As Integer
+        Get
+            If ViewState("TipoContabilidad") Is Nothing Then
+                ViewState("TipoContabilidad") = -1
+            End If
+
+            Return CType((ViewState("TipoContabilidad")), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("TipoContabilidad") = value
+        End Set
+    End Property
+
+
+
     Enum EnumOpActualizaArchivosCer
         SinOpcion
         KEY
@@ -186,6 +201,9 @@ Partial Class Sistemas_Empresa
             End If
             ConfiguracionEmpresa()
 
+
+
+
         End If
     End Sub
 
@@ -231,7 +249,7 @@ Partial Class Sistemas_Empresa
                     ChkSendMailSSL.Checked = .SendMailSSL
                     ChkMostrarRetIVA.Checked = .MostrarRetIVA
                     ChkMostrarRetISR.Checked = .MostrarRetISR
-                    TxtRegimen.Text = .Regimen
+                    'TxtRegimen.Text = .Regimen
                     ChkEstatusFacturacion.Checked = .EstatusFacturacion
                     TxtTimbres.Text = .Timbres.ToString
                     ChkUsaContabilidad.Checked = .UsaContabilidad
@@ -280,6 +298,7 @@ Partial Class Sistemas_Empresa
                     ChkReqCentroCostos.Checked = .RequiereCentroCostos
                     DdlTerminalTipo.SelectedValue = .PV_TerminalTipo.ToString
                     TxtImporte.Text = .Importe.ToString
+                    TipoContabilidad = .TipoContabilidad
 
                     'NUEVOS
                     TxtAreaGeografica.Text = .AreaGeografica
@@ -490,7 +509,7 @@ Partial Class Sistemas_Empresa
                                       TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim,
                                       DdlTipoFacturacion.SelectedValue, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim,
                                       TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, TxtBanner.Text.Trim, UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked,
-                                      ChkMostrarRetISR.Checked, TxtRegimen.Text.Trim, ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim,
+                                      ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim,
                                       TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, ChkUsaVentas.Checked, ChkUsaCxC.Checked,
                                       ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim, TxtServerContPAQi.Text.Trim,
                                       TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero, ChkBuzon_SSL.Checked,
@@ -537,7 +556,7 @@ Partial Class Sistemas_Empresa
             If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
                                          TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim,
                                          TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, TxtBanner.Text.Trim, ChkEstatus.Checked,
-                                         ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, TxtRegimen.Text.Trim, ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim,
+                                         ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim,
                                          TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked,
                                          ChkUsaVentas.Checked, ChkUsaCxC.Checked, ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim,
                                          TxtServerContPAQi.Text.Trim, TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
@@ -1255,6 +1274,9 @@ Partial Class Sistemas_Empresa
             BtnEliminar.Visible = False
             BiInform.Visible = False
         End If
+        If TipoContabilidad = 2 Then
+            TabContabilidad.Visible = True
+        End If
     End Sub
 #End Region
 
@@ -1303,18 +1325,36 @@ Partial Class Sistemas_Empresa
 
 #Region "TAB CONTABILIDAD - CLASIFICACION DE IVA"
     Private Sub ActualizaNombresCuentas()
+
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaXAcreditar") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaXAcreditar", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaAcreditable") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaAcreditable", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaXTrasladar") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaXTrasladar", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaTrasladado") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaTrasladado", GetType(Integer))
+        'End If
+
         For Each Dr As DataRow In DtClasificacionIVA.Rows
             If Dr("IdCtaIVAXAcreditar").ToString.ToEntero > 0 Then
-                Dr("CuentaXAcreditar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXAcreditar").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaXAcreditar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXAcreditar").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaXAcreditar") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAXAcreditar").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVAAcreditable").ToString.ToEntero > 0 Then
-                Dr("CuentaAcreditable") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAAcreditable").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaAcreditable") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAAcreditable").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaAcreditable") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAAcreditable").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVAXTrasladar").ToString.ToEntero > 0 Then
-                Dr("CuentaXTrasladar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXTrasladar").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaXTrasladar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXTrasladar").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaXTrasladar") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAXTrasladar").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVATrasladado").ToString.ToEntero > 0 Then
-                Dr("CuentaTrasladado") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVATrasladado").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaTrasladado") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVATrasladado").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaTrasladado") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVATrasladado").ToString}").ToString.ToEntero
             End If
         Next
         DtClasificacionIVA.AcceptChanges()
@@ -1361,12 +1401,16 @@ Partial Class Sistemas_Empresa
         Dim ObjEmpresas As New ClsSisEmpresas()
         If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
             If ObjEmpresas.Empresa.UsaContabilidad Then
+
+                'If ObjEmpresas.Empresa.TipoContabilidad = 2 Then
                 Dim Cuenta As New ClsContPAQi(ObjEmpresas.Empresa)
-                If Cuenta.GetCuentas(-1, "-1", -1) Then
-                    DtCuentas = Cuenta.DtResultados
-                End If
-                Cuenta.Dispose()
-                Try
+                    If Cuenta.GetCuentas(-1, "-1", -1) Then
+                        DtCuentas = Cuenta.DtResultados
+                    End If
+                    Cuenta.Dispose()
+                    'End If
+
+                    Try
                     DdlIVAXAcreditarModal.DataSource = DtCuentas : DdlIVAXAcreditarModal.DataBind()
                 Catch ex As Exception
                 End Try

From 4375bd2a8b69ef24d55a2271fd869d880d077198 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 26 Sep 2022 13:04:16 -0700
Subject: [PATCH 2/6] =?UTF-8?q?--=20validaci=C3=B3n=20de=20remisi=C3=B3n,,?=
 =?UTF-8?q?=20que=20aplique=20para=20todos,=20no=20solo=20rol=201?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx    |  2 +-
 OC/OC.aspx.vb | 29 ++++++++---------------------
 2 files changed, 9 insertions(+), 22 deletions(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index c718afcb9..f44a7c14a 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -338,7 +338,7 @@
                                     <div class="col-md-3" runat="server" id="DvNumRemision2" visible="false">
                                         <asp:TextBox ID="TxtNumRemision" runat="server" MaxLength="10" Width="80%"  onblur="ValidaNumRemision()"></asp:TextBox>
                                         <asp:Button ID="BtnValidaNumRemision" ClientIDMode="Static" OnClick="BtnValidaNumRemision_Click"   Style="display: none;" runat="server" />
-                                        <asp:LinkButton runat="server" Visible="false" ID="LnkActualziarNumRemision" OnClick="LnkActualziarNumRemision_Click"  
+                                        <asp:LinkButton runat="server" Visible="false" ID="LnkActualizarNumRemision" OnClick="LnkActualizarNumRemision_Click"  
                                             data-toggle="confirmation" data-popout="true" data-original-title="Actualizar número remisión"
                                             data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" 
                                             ToolTip="¿Está seguro que desea actualizar el número de remisión?" />
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index fc2519e8f..6fd2db531 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -844,11 +844,8 @@ Partial Class OC_OC
                 DdlCultivosCuadro.DataBind()
                 DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
-                If UsuarioActual.CveRol = 1 Then
-                    DvNumRemision1.Visible = True
-                    DvNumRemision2.Visible = True
-                End If
-
+                DvNumRemision1.Visible = True
+                DvNumRemision2.Visible = True
 
             End If
 
@@ -2637,7 +2634,7 @@ Partial Class OC_OC
 
             If GeneraReq Then
 
-                If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then
+                If TxtNumRemision.Text.Trim() <> "" AndAlso Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then
                     TieneError = True
                 End If
 
@@ -8762,15 +8759,12 @@ Partial Class OC_OC
         Return Retorno
 
     End Function
-
-
-
     Private Function ValidaNumRemision(NumRemision As String, TipoOC As String, CveProveedor As Integer, Optional OcTransaccion As SqlClient.SqlTransaction = Nothing, Optional CveOrdenCompraValida As Integer = -1) As Boolean
         Dim NumRemisionValida As Boolean = False
-        LnkActualziarNumRemision.Visible = False
+        LnkActualizarNumRemision.Visible = False
 
         If NumRemision.Trim.Length > 0 Then
-            If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
 
                 Dim ObjOC As New ClsOC(OcTransaccion)
                 If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then
@@ -8786,12 +8780,10 @@ Partial Class OC_OC
         Else
             NumRemisionValida = True
         End If
-
-
         If NumRemisionValida Then
 
             If CveOrdenCompra > 0 And BtnGuardar.Enabled And BtnGuardar.Visible Then
-                LnkActualziarNumRemision.Visible = True
+                LnkActualizarNumRemision.Visible = True
             End If
 
         End If
@@ -8808,13 +8800,9 @@ Partial Class OC_OC
 
     End Sub
 
-    Protected Sub LnkActualziarNumRemision_Click(sender As Object, e As EventArgs)
+    Protected Sub LnkActualizarNumRemision_Click(sender As Object, e As EventArgs)
 
-
-
-        If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then
-            Exit Sub
-        End If
+        If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then Exit Sub
 
         If ValidaNumRemision(TxtNumRemision.Text.Trim(), TipoOC, DdlProveedores.SelectedValue.ToEntero, Nothing, If(CveOrdenCompra > 0, CveOrdenCompra, -1)) Then
 
@@ -8845,6 +8833,5 @@ Partial Class OC_OC
             Alert("El número de remisión no es valido.")
         End If
 
-
     End Sub
 End Class

From 3846af557af868cb5f14677ee96b7508ec0025b5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 26 Sep 2022 15:22:13 -0700
Subject: [PATCH 3/6] -- mejora, pdte por surtir

---
 Inventarios/TraspasoAlmacen.aspx.vb | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index a23bcf161..5cdef0c56 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -945,6 +945,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Serie = If(gvr.DataKey("Serie") = "", "-1", gvr.DataKey("Serie"))
             Lote = If(gvr.DataKey("Lote") = "", "-1", gvr.DataKey("Lote"))
             FechaCaducidad = If(gvr.DataKey("FechaCaducidad") = "", MinFecha, gvr.DataKey("FechaCaducidad").ToDate)
+            Dim MsgAdicional As String = ""
 
             If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
                 'si hay existencia en almacen costeado, lo tengo que sacar
@@ -957,15 +958,11 @@ Partial Class Inventarios_TraspasoAlmacen
                 ' para asegurarnos que lo pendiente por surtir se pueda surtir con otras series, consultamos de nuevo, pero a nivel producto, para checar existencia
 
                 If ExistenciaSinPendiente > 0 AndAlso Existencia <= 0 AndAlso PendienteporSurtir > 0 Then
+                    MsgAdicional = " Pendiente por surtir: " & PendienteporSurtir.FormatoNumero(0)
                     If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd 23:59")) Then
                         'si hay existencia en almacen costeado, lo tengo que sacar
                         Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
                         'si la existencia del producto en general, supera a lo pendiente, entonces la serie si se puede sacar.
-                        If Existencia > PendienteporSurtir Then
-                            Existencia = ExistenciaSinPendiente
-                        Else
-                            Existencia = ExistenciaSinPendiente - PendienteporSurtir
-                        End If
 
                     End If
                 End If
@@ -975,7 +972,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If Existencia < 0 Then
                 ErrorExistencia = True
-                TextoExistencia.AppendFormat("-<b>#{0}</b> {1} {2} &nbsp; Existencia: <b>{3}</b><br/>", gvr.DataKey("No"), gvr.DataKey("PS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $" &nbsp; Serie: <b>{gvr.DataKey("Serie")}</b>", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero))
+                TextoExistencia.AppendFormat("-<b>#{0}</b> {1} {2} &nbsp; Existencia: <b>{3}</b>{4}<br/>", gvr.DataKey("No"), gvr.DataKey("PS"), If(gvr.DataKey("Serie").ToString().Trim().Length > 0, $" &nbsp; Serie: <b>{gvr.DataKey("Serie")}</b>", ""), (Existencia + gvr.FCTextBox("TxtCantidad2").Text.ToEntero), MsgAdicional)
             End If
         Next
 

From 74ada0139d9a81bdb7b3e011241ab610e1dd65fd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 26 Sep 2022 15:22:24 -0700
Subject: [PATCH 4/6] -- desaplicar NC, compras

---
 Contabilidad/PopUpAuxiliar.aspx.vb | 48 +++++++++++++++++++++++++++---
 1 file changed, 44 insertions(+), 4 deletions(-)

diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 250bd30f0..afaa319cb 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -219,6 +219,16 @@ Partial Class PopUpAuxiliar
                 Else
                     e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveVentaAmortizacion"), e.Row.DBCampo("CveVenta"))
                 End If
+            ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("60", "272") Then 'desaplicar NC Compra
+
+                e.Row.FCLinkButton("LnkDesAplicar").Visible = True
+                e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarCompra"
+                e.Row.FCLinkButton("imgD").Visible = False
+                If e.Row.DBCampo("CveConceptoContable").Contiene("272") Then
+                    e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveCompraAmortizacion"))
+                Else
+                    e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra"))
+                End If
             End If
 
             If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then
@@ -387,7 +397,6 @@ Partial Class PopUpAuxiliar
             Else
                 Return ViewState("CvePrePolizaNegativa").ToString.ToEntero
             End If
-
         End Get
         Set(value As Integer)
             ViewState("CvePrePolizaNegativa") = value
@@ -395,7 +404,6 @@ Partial Class PopUpAuxiliar
     End Property
 
 
-
     Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer)
 
         Dim ObjContabilidad As New ClsContabilidad
@@ -405,8 +413,6 @@ Partial Class PopUpAuxiliar
         Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate)
 
         If Not CvePrePolizaNueva > 0 Then
-
-
             TieneError = True
         End If
 
@@ -482,6 +488,40 @@ Partial Class PopUpAuxiliar
 
         End If
 
+        If e.CommandName = "DesAplicarCompra" Then
+
+            Dim CvePrePoliza, CveCompra, CveCompraAmortizacion As Integer
+            Dim TieneError = False
+
+            Dim St As String() = e.CommandArgument.ToString.Split("|"c)
+            If St.Length > 0 Then
+                CvePrePoliza = St(0).ToEntero
+                CveCompra = St(1).ToEntero
+                CveCompraAmortizacion = St(2).ToEntero
+            End If
+
+            If CvePrePoliza > 0 Then
+                Dim Conta As New ClsContabilidad()
+                Conta.IniciaTransacSQL()
+
+                If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                    TieneError = True
+                End If
+
+                If Not TieneError AndAlso Not Conta.DesAplicarPago(CvePrePoliza, 272, CveCompra, CveCompraAmortizacion) Then
+                    TieneError = True
+                End If
+
+                If Not TieneError Then
+                    Conta.Commit()
+                    Alert("Pago Desaplicado.", TipoMensaje.ToastInformacion)
+                Else
+                    Conta.RollBack()
+                    Alert("Pago no fue desaplicado.", TipoMensaje.ToastError)
+                End If
+            End If
+
+        End If
 
 
     End Sub

From 0bf8b3d458152815d2095643621ec8ebd2170dbb Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 26 Sep 2022 15:22:41 -0700
Subject: [PATCH 5/6] --

---
 OC/OC.aspx.vb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 6fd2db531..d5a4003f7 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -8765,11 +8765,11 @@ Partial Class OC_OC
 
         If NumRemision.Trim.Length > 0 Then
             If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
-
                 Dim ObjOC As New ClsOC(OcTransaccion)
                 If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then
                     If ObjOC.DtResultados.Rows.Count > 0 Then
                         Alert($"La remision  ya se encuentra asignada a la { If(TipoOC = "OC", "Orden de compra", "Requisición")}  <a target='_blank' class='Texto' href='./OC.aspx?OC={ObjOC.DtResultados.Rows(0)("CveOrdenCompra").ToString()}' >{ObjOC.DtResultados.Rows(0)("Folio").ToString() }</a>.", TipoMensaje.MsgAdvertencia)
+                        TxtNumRemision.Text = ""
                     Else
                         NumRemisionValida = True
                     End If
@@ -8781,15 +8781,12 @@ Partial Class OC_OC
             NumRemisionValida = True
         End If
         If NumRemisionValida Then
-
             If CveOrdenCompra > 0 And BtnGuardar.Enabled And BtnGuardar.Visible Then
                 LnkActualizarNumRemision.Visible = True
             End If
-
         End If
 
         UPPEmp.Update()
-
         Return NumRemisionValida
 
     End Function

From 4f4a8b72b1978327896006b7da2bf40bf11b4ce2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 26 Sep 2022 15:23:02 -0700
Subject: [PATCH 6/6] -- comentar candado para requerir cultivo cuadro

---
 Compras/Compras.aspx.vb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8a8e6a275..115ce05c3 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -16708,11 +16708,11 @@ Partial Class Compras_Compras
 
         End If
 
-        If UsuarioActual.Empresa.CveEmpresa = 158 AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 AndAlso DdlSubProyecto.SelectedValue.ToEntero.Contiene(11881, 11882, 11886) Then
-            RfvDdlCultivosCuadro.Visible = True
-        Else
-            RfvDdlCultivosCuadro.Visible = False
-        End If
+        'If UsuarioActual.Empresa.CveEmpresa = 158 AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 AndAlso DdlSubProyecto.SelectedValue.ToEntero.Contiene(11881, 11882, 11886) Then
+        '    RfvDdlCultivosCuadro.Visible = True
+        'Else
+        '    RfvDdlCultivosCuadro.Visible = False
+        'End If
 
     End Sub
     Private Sub DdlPSChange()