From d90b4745f8d8dc0c1d590512ac239d170836c8ec Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 3 Aug 2022 17:30:27 -0700
Subject: [PATCH] Clientes se agrega campo Representante legal, Factura rdlc 13
 se valida aplica carta porte

---
 App_Code/ClsClientes.vb           | 12 ++++++++++--
 Compras/PopUpVerFactura.aspx.vb   | 10 ++++++++++
 Empresas/13/Formatos/Factura.rdlc |  2 +-
 Ventas/Clientes.aspx              |  7 +++++++
 Ventas/Clientes.aspx.vb           | 10 ++++++++--
 5 files changed, 36 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 3da855b93..0c3f1856e 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -172,6 +172,7 @@ Public Class ClsClientes
 
     Public Property CodigoRegimenFiscal As String
     Public Property RegimenFiscal As String
+    Public Property RepresentanteLegal As String
 
 #End Region
 
@@ -429,6 +430,7 @@ Public Class ClsClientes
 
                 _RegimenFiscal = Data(0)("RegimenFiscal").ToString
                 _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString
+                _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString
 
             End If
             Retorno = True
@@ -586,7 +588,8 @@ Public Class ClsClientes
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
+                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
+                               Optional RepresentanteLegal As String = "") As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -731,6 +734,9 @@ Public Class ClsClientes
 
             .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
             .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
+            .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
+
+
 
 
 
@@ -782,7 +788,8 @@ Public Class ClsClientes
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
-                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
+                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
+                                  Optional RepresentanteLegal As String = "") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -943,6 +950,7 @@ Public Class ClsClientes
 
             .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
             .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
+            .Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
 
 
 
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index c148ba7af..88145dd74 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3048,6 +3048,16 @@ Partial Class PopUpVerFactura
                         CartaPorte = New Modelos.MSubReportData()
                         CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                     End If
+                Else
+                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                        CartaPorte = New Modelos.MSubReportData()
+                        CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
+                    End If
+                End If
+            Else
+                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                    CartaPorte = New Modelos.MSubReportData()
+                    CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                 End If
             End If
 
diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc
index cee486497..d10956995 100644
--- a/Empresas/13/Formatos/Factura.rdlc
+++ b/Empresas/13/Formatos/Factura.rdlc
@@ -3298,7 +3298,7 @@
         <Width>20.2229cm</Width>
         <ZIndex>47</ZIndex>
         <Visibility>
-          <Hidden>true</Hidden>
+          <Hidden>=Not Parameters!TieneCartaPorte.Value</Hidden>
         </Visibility>
         <Style>
           <Border>
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index d6e3cb71f..221571f13 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -689,6 +689,13 @@
                                             <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
                                         
+                                         <div class="form-group form-md-line-input input-iconright" id="DivRepresentanteLegal" runat="server" visible="false">
+                                            <asp:TextBox runat="server" ID="TxtRepresentanteLegal" CssClass="form-control" MaxLength="100" />
+                                            <label for="<%= TxtRepresentanteLegal.ClientID.ToString()%>">Representante Legal:</label>
+                                        </div>
+
+                                        
+
                                           
                                         <div class="row">
                                             <div runat="server" id="DivEsDistribuidor" visible="false" class="col-md-4 form-group form-md-line-input input-iconright">
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 55fa194cf..b23198efa 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -751,6 +751,10 @@ Partial Class Clientes
 
             If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
                 divRegimen.Visible = True
+            End If
+
+            If UsuarioActual.CveEmpresa.Contiene(1) Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                DivRepresentanteLegal.Visible = True
             End If
 
             If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 Then
@@ -1873,6 +1877,8 @@ Partial Class Clientes
             RdTipoPersona.SelectedValue = If(ObjClientes.TipoPersona, "1", "0")
             RdTipoPersona_SelectedIndexChanged(Nothing, Nothing)
 
+            TxtRepresentanteLegal.Text = ObjClientes.RepresentanteLegal
+
         End If
         UpActivacionPortal.Update()
         UpModalPersonaFisica.Update()
@@ -2686,7 +2692,7 @@ Partial Class Clientes
                                     CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                     TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona) Then
+                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2783,7 +2789,7 @@ Partial Class Clientes
                                         ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
                                         RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
                                         CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona) Then
+                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)