From 300b071460efe9a4c6efa88bff2b4c17f9ae1407 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 7 Jun 2022 21:06:08 -0700
Subject: [PATCH 1/6] Regimen Fiscal Proveedores

---
 App_Code/ClsCompProveedores.vb      | 12 ++++++++++--
 Compras/Proveedores.aspx            | 14 ++++++++++++++
 Compras/Proveedores.aspx.vb         | 23 +++++++++++++++++++++--
 Inventarios/EntradasSalidas.aspx.vb |  8 ++++++++
 4 files changed, 53 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb
index 8a062f23f..b5a7ac775 100644
--- a/App_Code/ClsCompProveedores.vb
+++ b/App_Code/ClsCompProveedores.vb
@@ -112,6 +112,7 @@ Public Class ClsCompProveedores
     Public Property DIOTCvePais As Integer
     Public Property Situacion As String = ""
     Public Property DIOTNacionalidad As String
+    Public Property CveRegimenFiscal As Integer = -1
 
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -399,6 +400,8 @@ Public Class ClsCompProveedores
                 Me.DIOTCvePais = Data.Rows(0)("DIOTCvePais").ToString.ToEntero
                 Me.Situacion = Data.Rows(0)("Situacion").ToString
                 Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString
+                Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero
+
             End If
 
             Retorno = True
@@ -421,7 +424,7 @@ Public Class ClsCompProveedores
             IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
             Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "",
             Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
-            Optional CveConfianzaProveedor As Integer = -1) As Boolean
+            Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -524,6 +527,9 @@ Public Class ClsCompProveedores
 
             .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
 
+            .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
+
+
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
 
@@ -564,7 +570,7 @@ Public Class ClsCompProveedores
                                     IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
                                     Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
                                     Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
-                                    Optional CveConfianzaProveedor As Integer = -1) As Boolean
+                                    Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ProveedorUpdate")
@@ -666,7 +672,9 @@ Public Class ClsCompProveedores
             .Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
             .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
 
+
             .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
+            .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
 
         End With
 
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index 589faafc2..a5675bbfe 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -350,6 +350,20 @@
                                                         </asp:DropDownList>
                                                     </td>
                                                 </tr>
+
+                                                 <tr>
+                                                    <td>Regimen Fiscal:</td>
+                                                    <td>
+                                                        <asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto"  Width="206px"  DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control select2me input-sm">
+                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        </asp:DropDownList>
+
+                                                        <asp:RequiredFieldValidator ID="RfvDdlRegimenFiscal" runat="server" ControlToValidate="DdlRegimenFiscal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RfvDdlRegimenFiscal" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                                    </td>
+                                                </tr>
+
                                                 <tr style="display: none">
                                                     <td>Estatus SAT:</td>
                                                     <td>
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 61b4752e2..226553921 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -485,6 +485,7 @@ Partial Class Compras_Proveedores
             SerieSucursal = ""
             TrFolioDuplicado.Visible = False
             CargaMonedas()
+            CargaRegimenFiscal()
             'HlAgregarExcel.Visible = UsuarioActual.CveRol = 1
 
             If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
@@ -648,6 +649,13 @@ Partial Class Compras_Proveedores
         RegisterPostBackControl()
     End Sub
 
+    Private Sub CargaRegimenFiscal()
+        DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
+        DdlRegimenFiscal.DataBind()
+
+        DdlRegimenFiscal.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+    End Sub
+
     Private Sub SetValues()
         ViewState("Orden") = ""
         ViewState("OrdenUsuarios") = ""
@@ -741,6 +749,15 @@ Partial Class Compras_Proveedores
                         TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
                         TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
                         ChkEstado.Checked = True
+
+                        If Version = "4.0" Then
+
+                            Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal")
+                            Dim CveRegimenFiscal As Integer = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CveRegimenFiscal", $" CodigoRegimenFiscal = '{ CodigoRegimenFiscal }'").ToEntero
+                            DdlRegimenFiscal.SelectedValueExist(CveRegimenFiscal)
+
+                        End If
+
                     Else
                         TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "nombre"))
                         TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "nombre"))
@@ -865,6 +882,8 @@ Partial Class Compras_Proveedores
                 DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
                 TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
 
+                DdlRegimenFiscal.SelectedValueExist(ObjProveedor.CveRegimenFiscal
+                                                    )
                 If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                     CargaCuentasConceptos()
                     divCuentas.Visible = True
@@ -1716,7 +1735,7 @@ Partial Class Compras_Proveedores
                 DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                 DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
                 AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
-                CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
+                CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
 
                 Dim NuevoCveProveedor = ObjProveedores.CveProveedor
 
@@ -1877,7 +1896,7 @@ Partial Class Compras_Proveedores
                         DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
                         DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
                         DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
-                        CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
+                        CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
                 'CargaDatos()
 
 
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index fd2500754..e268312f5 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -414,6 +414,11 @@ Partial Class Inventarios_EntradasSalidas
                 LnkCambioVigencia.Visible = True
             End If
 
+            If EsConsumoInterno AndAlso UsuarioActual.TienePermisoProceso(340) Then
+                TxtFecha.Enabled = True
+                ImgFecha.Visible = True
+            End If
+
         End If
 
     End Sub
@@ -1056,6 +1061,9 @@ Partial Class Inventarios_EntradasSalidas
 
         End If
 
+
+
+
         UpModalInventarioFisico.Update()
         BloqueaEdicionEncabezado()
         Mov.Dispose()

From 13562494c0f76b32bd6e8d5ab15951db73863461 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 8 Jun 2022 05:49:25 -0700
Subject: [PATCH 2/6]

---
 App_Code/ClsNominas.vb           | 33 +++++++++++++++++---------------
 GPS/PalletEtiquetaCaja.rdlc      | 24 +++++++++++------------
 Nomina/Finiquito.aspx.cs         |  2 +-
 Nomina/Nomina.aspx.cs            |  4 ++--
 SAT/SolicitudesNominaSat.aspx    |  8 ++++----
 SAT/SolicitudesNominaSat.aspx.cs |  4 ++--
 vwd.webinfo                      |  4 ++++
 7 files changed, 43 insertions(+), 36 deletions(-)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index b20d213f2..2961cf3d4 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3182,44 +3182,47 @@ Public Class ClsNominas
         Return retorno
     End Function
 #Region "CRUD_SolicitudesNominas"
-    Public Function SolicitudesNominasGet(idSolicitudNominas As Integer, CveEmpresa As Integer) As Boolean
+    Public Function SolicitudesGet(CveSolicitud As Integer, CveEmpresa As Integer, Optional CveTipoSolicitud As Integer = 1) As Boolean
         Dim retorno As Boolean = False
-        DataAdapter("PA_Gral_SAT_SolicitudesNominasGet", CommandType.StoredProcedure)
-        addParameters("@idSolicitudNominas", SqlDbType.Int, idSolicitudNominas)
+        DataAdapter("PA_Gral_SAT_SolicitudesGet", CommandType.StoredProcedure)
+        addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
         addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
+        addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud)
         retorno = RunQuery("Ocurrió un error al obtener el SolicitudesNominas.")
         Return retorno
     End Function
-    Public Function SolicitudesNominasAdd(idSolicitudCFDI As Integer, idSolicitudMetadata As Integer, estatus As Integer, observaciones As String, fechaInicio As DateTime, fechaFin As DateTime, cveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean
+    Public Function SolicitudesAdd(CveSolicitudCFDI As Integer, CveSolicitudMetadata As Integer, estatus As Integer, observaciones As String, fechaInicio As DateTime, fechaFin As DateTime, cveUsuarioIng As Int32, cveEmpresa As Int32, Optional CveTipoSolicitud As Integer = 1) As Boolean
         Dim retorno As Boolean = False
-        DataAdapter("PA_Gral_SAT_SolicitudesNominasAdd", CommandType.StoredProcedure)
-        addParameters("@idSolicitudCFDI", SqlDbType.Int, idSolicitudCFDI)
-        addParameters("@idSolicitudMetadata", SqlDbType.Int, idSolicitudMetadata)
+        DataAdapter("PA_Gral_SAT_SolicitudesAdd", CommandType.StoredProcedure)
+        addParameters("@CveSolicitudCFDI", SqlDbType.Int, CveSolicitudCFDI)
+        addParameters("@CveSolicitudMetadata", SqlDbType.Int, CveSolicitudMetadata)
         addParameters("@Estatus", SqlDbType.Int, estatus)
         addParameters("@Observaciones", SqlDbType.VarChar, observaciones)
         addParameters("@FechaInicio", SqlDbType.DateTime, fechaInicio)
         addParameters("@FechaFin", SqlDbType.DateTime, fechaFin)
         addParameters("@CveUsuarioIng", SqlDbType.Int, cveUsuarioIng)
         addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud)
+
         retorno = RunQuery("Ocurrió un error al agregar el SolicitudesNominas.")
         Return retorno
     End Function
-    Public Function SolicitudesNominasUp(idSolicitudNominas As Int32, idSolicitudCFDI As Int32, idSolicitudMetadata As Int32, estatus As Int32, observaciones As String, cveEmpresa As Int32) As Boolean
+    Public Function SolicitudesUp(CveSolicitud As Int32, CveSolicitudCFDI As Int32, CveSolicitudMetadata As Int32, estatus As Int32, observaciones As String, cveEmpresa As Int32) As Boolean
         Dim retorno As Boolean = False
-        DataAdapter("PA_Gral_SAT_SolicitudesNominasUp", CommandType.StoredProcedure)
-        addParameters("@idSolicitudNominas", SqlDbType.Int, idSolicitudNominas)
-        addParameters("@idSolicitudCFDI", SqlDbType.Int, idSolicitudCFDI)
-        addParameters("@idSolicitudMetadata", SqlDbType.Int, idSolicitudMetadata)
+        DataAdapter("PA_Gral_SAT_SolicitudesUp", CommandType.StoredProcedure)
+        addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
+        addParameters("@CveSolicitudCFDI", SqlDbType.Int, CveSolicitudCFDI)
+        addParameters("@CveSolicitudMetadata", SqlDbType.Int, CveSolicitudMetadata)
         addParameters("@Estatus", SqlDbType.Int, estatus)
         addParameters("@Observaciones", SqlDbType.VarChar, observaciones)
         addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
         retorno = RunQuery("Ocurrió un error al actualizar el SolicitudesNominas.")
         Return retorno
     End Function
-    Public Function SolicitudesNominasRemove(idSolicitudNominas As Int32, CveEmpresa As Integer) As Boolean
+    Public Function SolicitudesRemove(CveSolicitud As Int32, CveEmpresa As Integer) As Boolean
         Dim retorno As Boolean = False
-        DataAdapter("PA_Gral_SAT_SolicitudesNominasRemove", CommandType.StoredProcedure)
-        addParameters("@idSolicitudNominas", SqlDbType.Int, idSolicitudNominas)
+        DataAdapter("PA_Gral_SAT_SolicitudesRemove", CommandType.StoredProcedure)
+        addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
         addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
         retorno = RunQuery("Ocurrió un error al eliminar el SolicitudesNominas.")
         Return retorno
diff --git a/GPS/PalletEtiquetaCaja.rdlc b/GPS/PalletEtiquetaCaja.rdlc
index eb2d92490..ae3275aed 100644
--- a/GPS/PalletEtiquetaCaja.rdlc
+++ b/GPS/PalletEtiquetaCaja.rdlc
@@ -1311,7 +1311,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.07938cm</Height>
+                  <Height>0.065cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1695,7 +1695,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.38834cm</Height>
+                  <Height>0.3cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1737,7 +1737,7 @@ KM12 HERMOSILLO, SONORA</Value>
                                 <TextRun>
                                   <Value>=Parameters!Envase.Value</Value>
                                   <Style>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>6pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -1757,7 +1757,6 @@ KM12 HERMOSILLO, SONORA</Value>
                           </Style>
                         </Textbox>
                         <ColSpan>4</ColSpan>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -1834,7 +1833,7 @@ KM12 HERMOSILLO, SONORA</Value>
                                 <TextRun>
                                   <Value>=Parameters!Envase.Value</Value>
                                   <Style>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>6pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -2132,7 +2131,7 @@ KM12 HERMOSILLO, SONORA</Value>
                                 <TextRun>
                                   <Value>=Parameters!Envase.Value</Value>
                                   <Style>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>6pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -2230,7 +2229,7 @@ KM12 HERMOSILLO, SONORA</Value>
                                 <TextRun>
                                   <Value>=Parameters!Envase.Value</Value>
                                   <Style>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>6pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -2269,7 +2268,7 @@ KM12 HERMOSILLO, SONORA</Value>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value EvaluationMode="Constant">9999C6A22001418</Value>
+                                  <Value>=IIf(Trim(Parameters!Cultivo.Value.ToString())="Tomate","A-201-820-N17","9999C6A22001418")</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
@@ -2304,7 +2303,7 @@ KM12 HERMOSILLO, SONORA</Value>
                                 <TextRun>
                                   <Value>=Parameters!Tamano.Value</Value>
                                   <Style>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>6pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -2365,7 +2364,7 @@ KM12 HERMOSILLO, SONORA</Value>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value EvaluationMode="Constant">9999C6A22001418</Value>
+                                  <Value>=IIf(Trim(Parameters!Cultivo.Value.ToString())="Tomate","A-201-820-N17","9999C6A22001418")</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
@@ -2385,6 +2384,7 @@ KM12 HERMOSILLO, SONORA</Value>
                           </Style>
                         </Textbox>
                         <ColSpan>3</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -2400,7 +2400,7 @@ KM12 HERMOSILLO, SONORA</Value>
                                 <TextRun>
                                   <Value>=Parameters!Tamano.Value</Value>
                                   <Style>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>6pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -3387,7 +3387,7 @@ Produce of MX.</Value>
             <DataSetName>DataSet1</DataSetName>
             <Top>0.00969cm</Top>
             <Left>0.05333cm</Left>
-            <Height>7.23476cm</Height>
+            <Height>7.13204cm</Height>
             <Width>9.75cm</Width>
             <Style>
               <Border>
diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs
index d3a34147c..4fa71bb67 100644
--- a/Nomina/Finiquito.aspx.cs
+++ b/Nomina/Finiquito.aspx.cs
@@ -817,7 +817,7 @@ public partial class Nomina_Finiquito : ClsPaginas
     {
         int SRCvePersonal = this.CvePersonal;
         DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema NOT IN(10,11,32) ");
-        DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema  <> 47");
+        DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema  NOT IN( 47,101)");
         double percepcionesindem = 0;
         double deduccionesindem = 0;
         foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows)
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 4b7800979..1e33fa2ac 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -3442,7 +3442,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreRecibo.rdlc");
         }
 
-        ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null);
+        ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null,Content_Disposition: "Inline");
     }
     protected void BtnGuardarInfornavit_Click(object sender, EventArgs e)
     {
@@ -6573,7 +6573,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreRecibo.rdlc");
         }
 
-        ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null);
+        ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null, Content_Disposition: "Inline");
     }
     protected void DdlTipoPeriodoSim_SelectedIndexChanged(object sender, EventArgs e)
     {
diff --git a/SAT/SolicitudesNominaSat.aspx b/SAT/SolicitudesNominaSat.aspx
index a4b4fe2d7..b81f4bf1a 100644
--- a/SAT/SolicitudesNominaSat.aspx
+++ b/SAT/SolicitudesNominaSat.aspx
@@ -486,11 +486,11 @@
 
                                 <asp:GridView ID="GVSolicitudesPendientes" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
                                     ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
-                                    DataKeyNames="idSolicitudNominas,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
+                                    DataKeyNames="CveSolicitud,CveSolicitudCFDI,CveSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
                                     <columns>
                                         <asp:TemplateField HeaderText="Folio">
                                             <itemtemplate>
-                                                <asp:Label runat="server" Text='<%# Eval("idSolicitudNominas")%>'></asp:Label>
+                                                <asp:Label runat="server" Text='<%# Eval("CveSolicitud")%>'></asp:Label>
                                             </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Fecha Inicio">
@@ -541,11 +541,11 @@
                             <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                                 <asp:GridView ID="GVSolicitudesNominas" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
                                     ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
-                                    DataKeyNames="idSolicitudNominas,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
+                                    DataKeyNames="CveSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa">
                                     <columns>
                                         <asp:TemplateField HeaderText="Folio">
                                             <itemtemplate>
-                                                <asp:Label runat="server" Text='<%# Eval("idSolicitudNominas")%>'></asp:Label>
+                                                <asp:Label runat="server" Text='<%# Eval("CveSolicitud")%>'></asp:Label>
                                             </itemtemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField HeaderText="Fecha Inicio">
diff --git a/SAT/SolicitudesNominaSat.aspx.cs b/SAT/SolicitudesNominaSat.aspx.cs
index 1088d414d..d706cda2b 100644
--- a/SAT/SolicitudesNominaSat.aspx.cs
+++ b/SAT/SolicitudesNominaSat.aspx.cs
@@ -169,7 +169,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
         using (ClsNominas nom = new ClsNominas())
         {
 
-            if (nom.SolicitudesNominasGet(-1, UsuarioActual.CveEmpresa))
+            if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa))
             {
 
                 GVSolicitudesPendientes.DataSource = nom.DtResultados.FiltraParametros("Estatus =0");
@@ -200,7 +200,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
         bool Continuar = false;
         using (ClsNominas nom = new ClsNominas())
         {
-            Continuar = nom.SolicitudesNominasAdd(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa);
+            Continuar = nom.SolicitudesAdd(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa);
             var api = new GeneralesAPI();
             api.GeneraSolicitud();
             api.VerificaSolicitudesNominas();
diff --git a/vwd.webinfo b/vwd.webinfo
index 7b3b4fb14..20cfc696e 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -496,6 +496,10 @@
     
   
     
+  
+    
+  
+    
   
     
   

From 62c46183f5713bd11326bf5c306d479e8e1ccb5c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Jun 2022 06:46:15 -0700
Subject: [PATCH 3/6] =?UTF-8?q?--=20actualizaci=C3=B3n=20precios=20jun22?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inicio.aspx | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/Inicio.aspx b/Inicio.aspx
index f4aa36e37..1beef0b6d 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -618,6 +618,20 @@
                                                             </asp:HyperLink>
                                                         </div>
                                                     </div>
+                                                </div> 
+                                                <div class="row">
+                                                    <div class="col-md-6">
+                                                        <div class="well well-sm">                                                            
+                                                            <asp:HyperLink ID="LnkDoc18" NavigateUrl="Empresas\140\DocElectronica\Precios\ALCALINASPISOS.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> ALCALINAS PISOS
+                                                            </asp:HyperLink>
+                                                        </div>
+                                                    </div>
+                                                    <div class="col-md-6">
+                                                        <div class="well well-sm">                                                            
+                                                            <asp:HyperLink ID="LnkDoc19" NavigateUrl="Empresas\140\DocElectronica\Precios\ALCALINASMAYOREO.pdf" runat="server"   Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> ALCALINAS MAYOREO
+                                                            </asp:HyperLink>
+                                                        </div>
+                                                    </div>
                                                 </div> 
                                                   <div class="row">
                                                          <div class="col-md-6">

From 6bec2f9a8a0d96074fac09b1e0319d33be021520 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 8 Jun 2022 11:30:32 -0700
Subject: [PATCH 4/6] Compras, tipo de operacion no definida cargar todas las 
 retenciones

---
 Compras/Compras.aspx.vb           |  11 ++-
 Compras/Proveedores.aspx.vb       |   6 +-
 Empresas/13/Formatos/Factura.rdlc | 134 +++++++++++++++++++++++++++++-
 3 files changed, 142 insertions(+), 9 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 879a4635a..d024dcd69 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2205,12 +2205,13 @@ Partial Class Compras_Compras
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                 End If
 
-                If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+                If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
                 End If
 
+
             ElseIf RFCProv.Length = 12 Then
                 If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
@@ -2220,12 +2221,14 @@ Partial Class Compras_Compras
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                 End If
 
-                If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+                If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
                 End If
 
+
+
             End If
 
         End If
@@ -2251,12 +2254,14 @@ Partial Class Compras_Compras
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
             End If
 
-            If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+            If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
                 DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
             End If
 
+
+
         End If
         UpPS.Update()
     End Sub
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 226553921..7c5ce2a0e 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -750,9 +750,11 @@ Partial Class Compras_Proveedores
                         TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
                         ChkEstado.Checked = True
 
-                        If Version = "4.0" Then
+                        Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal")
+
+                        If Version = "4.0" Or CodigoRegimenFiscal.Trim.Length > 0 Then
+
 
-                            Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal")
                             Dim CveRegimenFiscal As Integer = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CveRegimenFiscal", $" CodigoRegimenFiscal = '{ CodigoRegimenFiscal }'").ToEntero
                             DdlRegimenFiscal.SelectedValueExist(CveRegimenFiscal)
 
diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc
index e2a9d6c67..29bca9e44 100644
--- a/Empresas/13/Formatos/Factura.rdlc
+++ b/Empresas/13/Formatos/Factura.rdlc
@@ -89,7 +89,16 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Régimen Fiscal: 601 - General de Ley Personas Morales</Value>
+                <Value>Régimen Fiscal: </Value>
+                <Style>
+                  <FontStyle>Normal</FontStyle>
+                  <FontWeight>Bold</FontWeight>
+                  <TextDecoration>None</TextDecoration>
+                  <Color>#000000</Color>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=IIF(Parameters!RegimenFiscalCodigo.Value="ND-","601 - General de Ley Personas Morales",Parameters!RegimenFiscalCodigo.Value)</Value>
                 <Style>
                   <FontStyle>Normal</FontStyle>
                   <FontWeight>Bold</FontWeight>
@@ -232,7 +241,10 @@
               <Width>1.66402cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>8.32569cm</Width>
+              <Width>7.00103cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>1.45695cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.42482cm</Width>
@@ -492,6 +504,52 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox7">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Obj. Imp.</Value>
+                              <Style>
+                                <FontFamily>calibri</FontFamily>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>SteelBlue</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox7</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>White</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                        </BottomBorder>
+                        <BackgroundColor>White</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox84">
@@ -834,6 +892,43 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="CodigoObjetoImpuesto">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!CodigoObjetoImpuesto.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>CodigoObjetoImpuesto</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>None</Style>
+                        </Border>
+                        <RightBorder>
+                          <Color>#4f81bd</Color>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="PU1">
@@ -960,6 +1055,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -976,7 +1072,7 @@
         <Top>6.28717cm</Top>
         <Left>0.08756cm</Left>
         <Height>1.2353cm</Height>
-        <Width>20.06999cm</Width>
+        <Width>20.20228cm</Width>
         <ZIndex>4</ZIndex>
         <Style>
           <Border>
@@ -2436,7 +2532,21 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Version 3.3</Value>
+                <Value>Version </Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!CFDIVersion.Value</Value>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
                 <Style>
                   <FontSize>9pt</FontSize>
                   <FontWeight>Bold</FontWeight>
@@ -3626,6 +3736,10 @@
           <DataField>SATClaveUM</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="CodigoObjetoImpuesto">
+          <DataField>CodigoObjetoImpuesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DsOC</rd:DataSetName>
@@ -4614,6 +4728,18 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">

From 3193e5715ff03b7e9a050a3be0d2288cd2b06399 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 8 Jun 2022 12:02:28 -0700
Subject: [PATCH 5/6] Logos Rep Remisiones Por Facturar  Padre y Detalle

---
 Ventas/RepRemisiones.aspx.vb        | 10 +++++-----
 Ventas/RepRemisionesDetalle.aspx.vb |  9 ++++-----
 2 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb
index 3789ff521..f9e1b5a0f 100644
--- a/Ventas/RepRemisiones.aspx.vb
+++ b/Ventas/RepRemisiones.aspx.vb
@@ -209,9 +209,8 @@ Partial Class RepRemisiones
 
             If DdlVendedor.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Vendedor</b>: {0}", DdlVendedor.GetSelectedText)
 
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
             Dim FechaI, FechaF As String
             FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
             FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
@@ -222,9 +221,10 @@ Partial Class RepRemisiones
             params.Add(New ReportParameter("FechaFin", FechaF))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
-            params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
+            params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
+
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
diff --git a/Ventas/RepRemisionesDetalle.aspx.vb b/Ventas/RepRemisionesDetalle.aspx.vb
index 190ae7986..d8c4b4269 100644
--- a/Ventas/RepRemisionesDetalle.aspx.vb
+++ b/Ventas/RepRemisionesDetalle.aspx.vb
@@ -239,9 +239,8 @@ Partial Class RepRemisionesDetalle
             If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
             If TxtFechaVencimiento.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Vencimiento al</b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
 
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
             Dim FechaI = "", FechaF = ""
 
 
@@ -252,8 +251,8 @@ Partial Class RepRemisionesDetalle
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If

From 8bd82a0b46f9c5977063efedc6507d68c4ce405a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 9 Jun 2022 10:15:35 -0700
Subject: [PATCH 6/6] =?UTF-8?q?--=20consideraci=C3=B3n=20de=20ret=20iva.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 256 ++----------------------------------------
 1 file changed, 7 insertions(+), 249 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 558d8b7a5..2afd68348 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18360,6 +18360,10 @@ Partial Class Ventas
 
 
             Dim ClienteRetIVA = Me.ClienteRetIVA
+            If ClienteRetIVA <= 0 AndAlso DrPS("RetIVA").ToString.ToDecimal > 0 Then
+                ClienteRetIVA = DrPS("RetIVA").ToString.ToDecimal
+                DdlTipoRetencion.Enabled = True
+            End If
 
             If ClienteRetIVA <= 0 Then
                 If CBool(DrPS("EsOutSourcing").ToString()) Then
@@ -18381,8 +18385,6 @@ Partial Class Ventas
             Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales)
             Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
 
-
-
             Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
 
             Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
@@ -18556,253 +18558,9 @@ Partial Class Ventas
             OnError("Ocurrió un error al agregar el producto/servicio", ex)
         End Try
 
-
         Return Retorno
     End Function
 
-    'Private Function AgregarProductoServicioCotizacion(Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String,
-    '                  PU As Decimal, Descuento As Decimal, PorcentajeIVA As Decimal, ImporteIVA As Decimal, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String, Optional Serie As String = "", Optional TiempoEntrega As String = "",
-    '                  Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
-    '                  Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "",
-    '                  Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False,
-    '                  Optional ImporteProntoPago As Decimal = 0) As Boolean
-
-    '    Dim Retorno As Boolean = False
-    '    Try
-    '        If Not CvePS > 0 Then
-    '            Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
-    '            Return False
-    '        End If
-
-    '        Dim Row As DataRow = Nothing
-    '        Dim TotalCalculableImpuestos As Decimal = 0
-    '        PU = PU.RoundSQL(6) ' el precio unitario puede llevar hasta 6 decimales permitidos
-    '        Descuento = Descuento.RoundSQL(NumeroDecimales)
-
-    '        If Not TmpDT.Columns.Contains("RetIVA") Then
-    '            TmpDT.Columns.Add("RetIVA", GetType(Decimal))
-    '        End If
-
-    '        Row = TmpDT.NewRow()
-    '        Row("CveProyecto") = CveProyecto
-    '        Row("Proyecto") = Proyecto
-    '        Row("CveSubProyecto") = CveSubProyecto
-    '        Row("SubProyecto") = SubProyecto
-    '        Row("Serie") = Serie
-    '        Row("TiempoEntrega") = TiempoEntrega
-    '        If Modalidad = "U" Then
-    '            Row("Orden") = Index
-    '        Else
-    '            Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero()
-    '            If ConsecutivoActual < 0 Then
-    '                ConsecutivoActual = 0
-    '            End If
-    '            Row("Orden") = ConsecutivoActual + 1
-    '        End If
-
-    '        Row("Cantidad") = Cantidad
-    '        Row("CveUM") = CveUM
-    '        Row("UM") = UM
-    '        Row("CveClasificacion") = CveClasificacion
-    '        Row("Clasificacion") = Clasificacion
-    '        Row("CvePS") = CvePS
-    '        Row("Obs") = Obs
-
-
-    '        Dim DrPS As DataRow = Nothing
-
-    '        DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1
-
-    '        If DrPS Is Nothing Then
-    '            Alert("Ocurrió un error al cargar la información del Producto. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-    '            Return False
-    '        End If
-
-    '        If (DrPS("SATClaveUnidadMedida").ToString() = "" Or DrPS("SATClavePS").ToString() = "") Then
-    '            'VALIDA CLAVESAT
-    '            If Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then 'DOCUMENTOS DONDE NO SE VALIDA
-    '                If DrPS("SATClavePS").ToString() = "" Then
-    '                    MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin producto SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
-    '                    Return False
-    '                ElseIf DrPS("SATClaveUnidadMedida").ToString() = "" Then
-    '                    MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin Unidad Medida SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
-    '                    Return False
-    '                End If
-
-    '                'If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
-    '                '    MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
-    '                '    Return False
-    '                'End If
-    '            End If
-    '        Else
-    '            If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
-    '                MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
-    '                Return False
-    '            End If
-    '        End If
-
-    '        'verifica si tiene ventaminima
-    '        If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
-    '            'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
-    '            If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then
-    '                Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString()))
-    '                Return False
-    '            End If
-    '        End If
-
-    '        'VERIFICA SI EN LA FACTURA PADRE SE DESGLOSO EL IEPS
-    '        Dim FacturaDesglosoIEPS As Boolean = ((CveDevolucion > 0 AndAlso NuevaFactura = 1) AndAlso (Me.ObjFacturaNC IsNot Nothing AndAlso Not Me.ObjFacturaNC.VentaDesglosaIEPS))
-
-    '        If Not ClienteDesglosaIEPS Then
-    '            If Not RegeneraIEPS AndAlso Not FacturaDesglosoIEPS Then
-    '                PU = PU * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)
-    '                VentaDesglosaIEPS = True
-    '            End If
-    '            DrPS("IEPSPorcentaje") = 0
-    '        End If
-    '        'SI YA SE DESGLOSO EL IEPS SE GUARDA LA BANDERA EN ESTA FACTURA
-    '        If FacturaDesglosoIEPS Then
-    '            VentaDesglosaIEPS = True
-    '        End If
-
-
-    '        TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento
-
-    '        Row("PU") = PU
-    '        Row("Codigo") = DrPS("Codigo")
-    '        Row("NoIdentificacion") = DrPS("Codigo")
-    '        Row("ClaveSATFraccionArancelaria") = DrPS("ClaveSATFraccionArancelaria")
-    '        Row("ClaveSATUnidadAduana") = DrPS("ClaveSATUnidadAduana")
-    '        Row("ClaveSATFraccionArancelariaDescripcion") = DrPS("ClaveSATFraccionArancelariaDescripcion")
-    '        Row("ClaveSATUnidadAduanaDescripcion") = DrPS("ClaveSATUnidadAduanaDescripcion")
-    '        If Modalidad = "U" Then
-    '            Row("Consec") = Index
-    '        Else
-    '            Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero()
-    '            If ConsecutivoActual < 0 Then
-    '                ConsecutivoActual = 0
-    '            End If
-    '            Row("Consec") = ConsecutivoActual + 1
-    '        End If
-
-    '        Row("PS") = DrPS("PS")
-    '        Row("CodigoPS") = DrPS("PSCodigo").ToString()
-    '        Row("CveTipoPS") = DrPS("CveTipoPS")
-    '        Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
-    '        Row("CveTamaño") = DrPS("CveTamaño")
-
-    '        If CveClasificacion <= 0 Then Row("CveClasificacion") = DrPS("CveClasificacion")
-    '        If Clasificacion = "" Then Row("Clasificacion") = DrPS("Clasificacion")
-
-    '        Row("PorcentajeIVA") = PorcentajeIVA
-
-    '        Dim ClienteRetIVA = Me.ClienteRetIVA
-
-    '        If ClienteRetIVA <= 0 Then
-    '            If CBool(DrPS("EsOutSourcing").ToString()) Then
-    '                ClienteRetIVA = 0.06D
-    '                DdlTipoRetencion.SelectedValueExist("4")
-    '            ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-    '                ClienteRetIVA = 0.106667D
-    '            ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
-    '                ClienteRetIVA = 0.04D
-    '            End If
-    '        End If
-
-    '        LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
-    '        TrRetIVA.Style.Add("display", "")
-    '        DdlTipoRetencion.Visible = True
-
-
-    '        Row("IVA") = PorcentajeIVA
-    '        Row("ImporteIVA") = (ImporteIVA).RoundSQL(NumeroDecimales)
-    '        Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
-
-
-
-    '        Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
-
-    '        Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
-    '        Row("PorcentajeRetIVA") = ClienteRetIVA
-    '        Row("PorcentajeRetISR") = ClienteRetISR
-    '        Row("PorcentajeIEPS") = DrPS("IEPSPorcentaje")
-    '        Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
-    '        Row("IEPS") = Row("ImporteIEPS")
-    '        Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
-    '        Row("TipoDescuento") = HdnTipoDescuento.Value
-    '        Row("CvePromocionDetalle") = CvePromocionDetalle
-    '        Row("Total") = (Cantidad * PU)
-    '        Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
-
-    '        'Row("AsientoContableVentas") = DrPS("AsientoContableVentas")
-    '        ' Row("IdCtaContVentas") = IdCtaContable
-    '        ' Row("AplicaParaConcepto") = AplicaParaConcepto
-
-    '        Row("SATClaveProdServ") = DrPS("SATClavePS")
-    '        Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
-
-    '        If UsuarioActual.Empresa.UsaAC Then
-    '            Row("CvePresupuestoIngreso") = Me.DdlFuenteRecaudacion.SelectedValue
-    '        End If
-
-    '        Row("EntregaDirecta") = EntregaDirecta
-    '        'Contratos
-    '        Row("CveContratoDetalle") = CveContratoDetalle
-    '        Row("CveVentaDetalle") = CveVentaDetalle
-    '        Row("CveMovimientoDetallePedido") = CveMovimientoDetallePedido
-    '        Row("CveOrdenCompraDetalle") = CveOrdenCompraDetalle
-    '        Row("CveVentaDetalleRemision") = CveVentaDetalleRemision
-    '        Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion
-    '        Row("CveVentaDetallePedido2") = CveVentaDetallePedido2
-    '        Row("CuentaPredial") = CuentaPredial
-    '        Row("EsOutSourcing") = DrPS("EsOutSourcing")
-    '        Row("EsCargo") = EsCargo
-
-    '        If ImporteProntoPago > 0 Then
-    '            Row("ImporteProntoPago") = ImporteProntoPago
-    '            Row("TieneProntoPago") = "Si"
-    '            'SOLO DEBE MOSTRASE SI EL PAGO ES DE CONTADO
-    '            If RBLPago.SelectedValue = "2" Then
-    '                GvPS.Columns(22).Visible = True
-    '                thProntoPago.Visible = True
-    '                thProntoPago2.Visible = True
-    '            End If
-
-    '        End If
-
-    '        If UsuarioActual.CveEmpresa = 119 Then
-    '            If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
-
-    '                'MONEDA DIFERENTE DEL PS AL PRIMER PS AGREGADO
-    '                If DdlMoneda.Enabled = False And CveVenta < 0 And TmpDT.Rows.Count > 0 Then
-    '                    If DdlMoneda.SelectedValue <> DrPS("CveMoneda").ToString() Then
-    '                        Alert($"La moneda base del producto: <b>{DrPS("PSCodigo").ToString()}</b> es diferente a la moneda del documento.", TipoMensaje.MsgAdvertencia)
-    '                        Return False
-    '                    End If
-    '                End If
-
-    '                'ACTIVA PRODUCTOS DE LA MISMA MONEDA
-    '                If TmpDT.Rows.Count = 0 And CveVenta < 0 Then
-    '                    DdlMoneda.SelectedValueExist(DrPS("CveMoneda").ToString())
-    '                    CambiaMoneda()
-    '                    DdlMoneda.Enabled = False
-    '                End If
-    '            End If
-    '        End If
-
-    '        'RECARGAR GV
-    '        TmpDT.Rows.Add(Row)
-
-    '        Retorno = True
-    '    Catch ex As Exception
-    '        Retorno = False
-    '        OnError("Ocurrió un error al agregar el producto/servicio", ex)
-    '    End Try
-
-
-    '    Return Retorno
-    'End Function
-
 #End Region
 
 #Region "D A T A - T A B L E S"
@@ -34697,17 +34455,17 @@ Partial Class Ventas
                 End If
 
                 Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
-                    Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
+                Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
 
                     Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
 
-                    AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion,
+                AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion,
                                 CvePSServicio, "", TxtObservacionesMercancia.Text.Trim, PU, Descuento,
                                 CveProyecto, Proyecto, CveSubProyecto, DdlSubProyectoDatos.SelectedItem.Text,
                                 Serie:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
                                 ImporteProntoPago:=0)
 
-                    CalculaUsados()
+                CalculaUsados()
 
                     CalculaTotalesVenta()
                 Else