Merge branch 'master' of http://192.168.10.111:8383/SIG

Acarreos/CatChoferes.aspx.vb

@@ -40,7 +40,7 @@ Partial Class Acarreos_CatChoferes
 
     Private Sub CargaDatos()
         Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1,-1) Then
+        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1, -1) Then
             GvChofer.DataSource = ObjAcar.DtResultados
             GvChofer.DataBind()
         End If

App_Code/ClsPaginas.vb

@@ -3871,7 +3871,7 @@ Public Class ClsPaginas
 
 
 
-    Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer) As DataTable
+    Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa)
 
@@ -3880,9 +3880,13 @@ Public Class ClsPaginas
                 If ObjInv.GetClientesVendedoresSubProyectos(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados
                 ObjInv.Dispose()
             End If
+            Dim Str As StringBuilder = New StringBuilder()
+            Str.Append("1 = 1 ")
+            If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0} ", CveCliente)
+            If CveSubProyecto <> -1 Then Str.AppendFormat(" AND CveSubProyecto = {0} ", CveSubProyecto)
 
-            GlobalDTClientesVendedoresSubProyectos = DirectCast(Application(AppNombre), DataTable)
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-
+            GlobalDTClientesVendedoresSubProyectos = Dv.ToTable
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa)

Bancos/IE.aspx.vb

@@ -2769,8 +2769,9 @@ Partial Class Bancos_IE
                                     ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera)
 
                                     If TxtIvaIxC.Text.ToDouble > 0 Then
+                                        Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
                                         'Iva
-                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
+                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0))
                                     End If
 
                                     'Bancos
@@ -2862,7 +2863,8 @@ Partial Class Bancos_IE
                                                     If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then
                                                         Dim CveConIVA As Integer = 61
                                                         If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
+                                                        Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                             MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                                         End If
                                                     End If

Bancos/PolizaCheque.aspx.vb

@@ -848,7 +848,7 @@ Partial Class Bancos_PolizaCheque
         Next
 
         If Not ValidaConcepto30 Then
-            Alert("El importe no coicide con el concepto de bancos.", TipoMensaje.MsgAdvertencia)
+            Alert("El importe no coincide con el concepto de bancos.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 

Compras/PopUpVerFactura.aspx.vb

@@ -933,6 +933,13 @@ Partial Class PopUpVerFactura
             Dim NumPermiso As String = ""
             Dim Aseguradora As String = ""
             Dim NumPolizaSeguro As String = ""
+            Dim NombreAseguradoraMedioAmbiente As String = ""
+            Dim NumPolizaSeguroMedioAmbiente As String = ""
+            Dim NombreAseguradoraCarga As String = ""
+            Dim NumPolizaSeguroCarga As String = ""
+
+
+
             Dim PlacaVM As String = ""
             Dim AnioModeloVM As String = ""
             'TIMBRADO
@@ -1064,6 +1071,14 @@ Partial Class PopUpVerFactura
                     NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
                     Aseguradora = ValorXML(nodeAutotransporteFederal, "NombreAseg", "")
                     NumPolizaSeguro = ValorXML(nodeAutotransporteFederal, "NumPolizaSeguro", "")
+
+                    'Por Definir de donde sale
+                    'NombreAseguradoraMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NumPolizaSeguroMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NombreAseguradoraCarga = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NumPolizaSeguroCarga = ValorXML(nodeAutotransporteFederal, "", "")
+
+
                 End If
 
                 Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte"), namespaces)
@@ -1181,8 +1196,16 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional))
                 params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC))
                 params.Add(New ReportParameter("NumPermiso", NumPermiso))
+
                 params.Add(New ReportParameter("Aseguradora", Aseguradora))
                 params.Add(New ReportParameter("NumPoliza", NumPolizaSeguro))
+
+                params.Add(New ReportParameter("NombreAseguradoraMedioAmbiente", NombreAseguradoraMedioAmbiente))
+                params.Add(New ReportParameter("NumPolizaSeguroMedioAmbiente", NumPolizaSeguroMedioAmbiente))
+
+                params.Add(New ReportParameter("NombreAseguradoraCarga", NombreAseguradoraCarga))
+                params.Add(New ReportParameter("NumPolizaSeguroCarga", NumPolizaSeguroCarga))
+
                 params.Add(New ReportParameter("PlacaVM", PlacaVM))
                 params.Add(New ReportParameter("AnioVM", AnioModeloVM))
                 'TIMBRADO

Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc

@@ -382,7 +382,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet3</DataSetName>
-        <Top>5.56865cm</Top>
+        <Top>6.39415cm</Top>
         <Left>0.38395cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.11271cm</Width>
@@ -521,7 +521,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>4.97857cm</Top>
+        <Top>5.80407cm</Top>
         <Left>0.1841in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1001,7 +1001,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet2</DataSetName>
-        <Top>7.3763cm</Top>
+        <Top>8.2018cm</Top>
         <Left>0.42363cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.10097cm</Width>
@@ -1033,7 +1033,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>6.78622cm</Top>
+        <Top>7.61172cm</Top>
         <Left>0.19973in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1346,7 +1346,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet4</DataSetName>
-        <Top>9.18605cm</Top>
+        <Top>10.01155cm</Top>
         <Left>0.42363cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.10097cm</Width>
@@ -1378,7 +1378,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>8.59597cm</Top>
+        <Top>9.42147cm</Top>
         <Left>0.19972in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1482,7 +1482,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox45</rd:DefaultName>
-        <Top>5.82267in</Top>
+        <Top>6.14767in</Top>
         <Left>0.41187cm</Left>
         <Height>3.03416cm</Height>
         <Width>15.44579cm</Width>
@@ -1501,7 +1501,7 @@
         <Source>External</Source>
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>5.71082in</Top>
+        <Top>6.03582in</Top>
         <Left>6.18415in</Left>
         <Height>1.2939in</Height>
         <Width>1.53682in</Width>
@@ -1636,7 +1636,7 @@
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>1.13111in</Top>
         <Left>0.38395cm</Left>
-        <Height>0.76862in</Height>
+        <Height>1.08451in</Height>
         <Width>3.73231in</Width>
         <ZIndex>9</ZIndex>
         <Style>
@@ -1696,10 +1696,10 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Aseguradora: </Value>
+                <Value>Aseguradora Responsabilidad Civil: </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1707,7 +1707,7 @@
                 <Value>=Parameters!Aseguradora.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1722,7 +1722,7 @@
                 <Value>Número de Póliza:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1730,7 +1730,99 @@
                 <Value>=Parameters!NumPoliza.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Aseguradora Medio Ambiente:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NombreAseguradoraMedioAmbiente.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Número de Póliza:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>SemiBold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NumPolizaSeguroMedioAmbiente.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Aseguradora Carga:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NombreAseguradoraCarga.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Número de Póliza:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>SemiBold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NumPolizaSeguroCarga.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1745,7 +1837,7 @@
                 <Value>Placa:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1753,7 +1845,7 @@
                 <Value>=Parameters!PlacaVM.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1768,7 +1860,7 @@
                 <Value>Año:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1776,7 +1868,7 @@
                 <Value>=Parameters!AnioVM.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1784,7 +1876,7 @@
                 <Value xml:space="preserve"> </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1797,7 +1889,7 @@
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>1.13111in</Top>
         <Left>9.86403cm</Left>
-        <Height>0.76862in</Height>
+        <Height>1.08451in</Height>
         <Width>3.78138in</Width>
         <ZIndex>11</ZIndex>
         <Style>
@@ -2315,7 +2407,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet1</DataSetName>
-        <Top>11.01962cm</Top>
+        <Top>11.84512cm</Top>
         <Left>0.33883cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.09433cm</Width>
@@ -2347,7 +2439,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>10.42954cm</Top>
+        <Top>11.25504cm</Top>
         <Left>0.16633in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -2384,7 +2476,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>4.896in</Top>
+        <Top>5.221in</Top>
         <Left>6.37477in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2423,7 +2515,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>12.43583cm</Top>
+        <Top>13.26133cm</Top>
         <Left>5.24863in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12683in</Width>
@@ -2461,7 +2553,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>5.13559in</Top>
+        <Top>5.46059in</Top>
         <Left>6.37685in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2503,7 +2595,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>13.04438cm</Top>
+        <Top>13.86988cm</Top>
         <Left>5.25071in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12683in</Width>
@@ -2541,7 +2633,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>5.37518in</Top>
+        <Top>5.70018in</Top>
         <Left>6.37893in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2580,7 +2672,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>13.65293cm</Top>
+        <Top>14.47843cm</Top>
         <Left>5.25279in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12614in</Width>
@@ -2739,7 +2831,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox25</rd:DefaultName>
-        <Top>12.43583cm</Top>
+        <Top>13.26133cm</Top>
         <Left>0.42248cm</Left>
         <Height>2.35375cm</Height>
         <Width>12.73266cm</Width>
@@ -2755,7 +2847,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>7.02116in</Height>
+    <Height>7.34222in</Height>
     <Style />
   </Body>
   <Width>7.82749in</Width>
@@ -3574,6 +3666,30 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NombreAseguradoraMedioAmbiente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NumPolizaSeguroMedioAmbiente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreAseguradoraCarga">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NumPolizaSeguroCarga">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Language>es-MX</Language>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>

Ventas/Clientes.aspx

@@ -617,9 +617,11 @@
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">
-                                            <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Vendedor" DataValueField="CveVendedor"></asp:DropDownList>
                                             
+                                            <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Vendedor" DataValueField="CveVendedor"></asp:DropDownList>
+                                            <asp:LinkButton ID="LnkAgregarVendedorSucursal" Visible="false" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar vendedor por sucursal." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar por Sucursal"></asp:LinkButton>
                                             <label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>
+
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="Div2" runat="server">
@@ -6448,6 +6450,60 @@
         </div>
     </div>
     <%--FIN MODAL CLIENTE PERSONAL ENTREGA--%>
+
+        <div id="DivVendedoresSucursales" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpVendedoresSucursales" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Vendedores por Sucursal</h4>
+                    </div>
+                    <div class="modal-body" style="width: 900px;">
+                        <div class="row">
+                            <div class="col-md-2">
+                                <label>Vendedor:</label>
+                            </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlVendedorSucursalAsignar" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="Vendedor" DataValueField="CveVendedor">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
+                                <label>Sucursal:</label>
+                            </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlSucursalVendedor" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
+                                <asp:Button ID="BtnAgregarVendedorSucursal" runat="server" CssClass="btn btn-primary" Text="Agregar" OnClick="BtnAgregarVendedorSucursal_Click" />
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-12">
+                                <asp:GridView ID="GvVendedoresSucursales" runat="server" DataKeyNames="CveVendedor,CveSubProyecto" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False" EmptyDataText="Lista de vendedores por sucursal">
+                                    <Columns>
+                                        <asp:BoundField HeaderText="Vendedor" ReadOnly="true" DataField="Vendedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:BoundField HeaderText="Sucursal" ReadOnly="true" DataField="SubProyecto" ItemStyle-Width="70%" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkEliminarVendedorSucursal" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarVendedorSucursal_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el vendedor?" data-btn-ok-label="si" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Ventas/Clientes.aspx.vb

@@ -1373,12 +1373,15 @@ Partial Class Clientes
         Dim item As New ListItem("Seleccione", "-1")
         DdlVendedor.DataSource = dt
         DdlVendedorSucursal.DataSource = dt
+        DdlVendedorSucursalAsignar.DataSource = dt
 
         DdlVendedor.DataBind()
         DdlVendedorSucursal.DataBind()
+        DdlVendedorSucursalAsignar.DataBind()
 
         DdlVendedor.Items.Insert(0, item)
         DdlVendedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlVendedorSucursalAsignar.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
 
     End Sub
@@ -1464,6 +1467,11 @@ Partial Class Clientes
 
                 If ObjClientes.Pais = "" Then ObjClientes.Pais = "México"
 
+
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then
+                    LnkAgregarVendedorSucursal.Visible = True
+                End If
+
                 'Campos para Modificación
                 LtlCliente.Text = ObjClientes.Nombre
                 TxtNombre.Text = ObjClientes.Nombre
@@ -8565,6 +8573,10 @@ Partial Class Clientes
         DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyectoFiltro.DataBind()
 
+        DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        DdlSucursalVendedor.DataBind()
+        DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         'Vendedor
         DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedorFiltro.DataBind()
@@ -8578,16 +8590,16 @@ Partial Class Clientes
 
         'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
         DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
-            DdlPSFiltro.SelectedText = ""
+        DdlPSFiltro.SelectedText = ""
-            DdlPSFiltro.SelectedValue = "-1"
+        DdlPSFiltro.SelectedValue = "-1"
-            'Else
+        'Else
-            '    DdlPSFiltro.ddl.Items.Clear()
+        '    DdlPSFiltro.ddl.Items.Clear()
-            '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
+        '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
-            '    DdlPSFiltro.ddl.DataBind()
+        '    DdlPSFiltro.ddl.DataBind()
-            '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
-            'End If
+        'End If
 
-            CargaGrupo()
+        CargaGrupo()
         CargaTipoCentroCosto()
 
     End Sub
@@ -10827,6 +10839,74 @@ Partial Class Clientes
         End If
     End Sub
 
+    Protected Sub LnkAgregarVendedorSucursal_Click(sender As Object, e As EventArgs) Handles LnkAgregarVendedorSucursal.Click
+        If CveCliente > 0 Then
+            DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+            DdlSucursalVendedor.SelectedValueExist("-1")
 
+            CargaProveedoresSucursales()
+            RegistraScript("$('#DivVendedoresSucursales').modal('show');")
+        End If
+    End Sub
+
+    Private Sub CargaProveedoresSucursales()
+        Using ObjVentas As New ClsVentas
+            If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, -1, -1, UsuarioActual.CveEmpresa) Then
+                GvVendedoresSucursales.DataSource = ObjVentas.DtResultados
+            End If
+        End Using
+        GvVendedoresSucursales.DataBind()
+        UpVendedoresSucursales.Update()
+    End Sub
+
+
+    Protected Sub LnkEliminarVendedorSucursal_Click(sender As Object, e As EventArgs)
+        Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero()
+        Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero()
+
+        Using ObjVentas As New ClsVentas
+            If ObjVentas.RemoveClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                Alert("Se eliminó el vendedor a la sucursal")
+            End If
+        End Using
+
+        DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+        DdlSucursalVendedor.SelectedValueExist("-1")
+
+        CargaProveedoresSucursales()
+
+        RecargaGlobalDTVendedorSucursal()
+    End Sub
+    Protected Sub BtnAgregarVendedorSucursal_Click(sender As Object, e As EventArgs)
+        Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero()
+        Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero()
+
+        Dim Guardar As Boolean = True
+        Using ObjVentas As New ClsVentas
+
+            If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                If ObjVentas.DtResultados.Rows.Count > 0 Then
+                    Guardar = False
+                    Alert("El vendedor ya existe en esta sucursal", TipoMensaje.MsgAdvertencia)
+                End If
+            End If
+
+            If Guardar AndAlso ObjVentas.AddClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                Alert("Se agregó el vendedor a la sucursal")
+            End If
+
+        End Using
+
+        DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+        DdlSucursalVendedor.SelectedValueExist("-1")
+
+        CargaProveedoresSucursales()
+
+        RecargaGlobalDTVendedorSucursal()
+    End Sub
+
+    Private Sub RecargaGlobalDTVendedorSucursal()
+        GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa) = Nothing
+    End Sub
 End Class
 

Ventas/Ventas.aspx.vb

@@ -6111,6 +6111,10 @@ Partial Class Ventas
         End If
         BloqueaCondiconesPago()
         DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
     End Sub
 
     Private Sub CargaRelacionadasPendientes()
@@ -16572,6 +16576,10 @@ Partial Class Ventas
         End If
         ObjSubProyectos.Dispose()
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
+
         UpDetalle.Update()
     End Sub
     Private Sub CambiaSucursal(Optional RecargarPartidas As Boolean = True)
@@ -16766,6 +16774,10 @@ Partial Class Ventas
         DdlVendedor.SelectedValue = "0"
         DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
+
         DdlVendedorSucursal.DataSource = DdlVendedor.DataSource
 
         DdlVendedor.DataBind()
@@ -21852,7 +21864,7 @@ Partial Class Ventas
             Dim tDT As DataTable = Nothing
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then
-                tDT = ObjOC.DtResultados
+                tDT = ObjOC.DtResultados.Copy()
                 'tTmpDT.Columns.Add("TipoDocto", GetType(String))
                 'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
                 'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
@@ -21865,10 +21877,14 @@ Partial Class Ventas
             If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then
 
 
-                ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente")
+                ViewState("CveCliente") = tDT.Rows(0)("CveCliente")
                 HdnCveCliente.Value = CveCliente.ToString()
                 CargaCliente(CveCliente)
 
+                If (DdlTipoComprobante.Items.FindByValue("Rem") IsNot Nothing) Then
+                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                End If
+
                 For Each Dr As DataRow In tDT.Rows
 
                     AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),
@@ -32586,6 +32602,24 @@ Partial Class Ventas
         UpModalSolicitud.Update()
     End Sub
 
+    Private Sub CargaVendedoresSubProyectos()
+
+        Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
+
+        If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then
+            DdlVendedor.Items.Clear()
+            DdlVendedor.SelectedValue = Nothing
+
+            DdlVendedor.DataSource = DtVendedoresSucursales
+            DdlVendedor.DataBind()
+            DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+
+            DtVendedoresSucursales.Dispose()
+        End If
+
+        UpParametros.Update()
+    End Sub
+
     Public Class MAnticipoRelacionado
         Public Property CveVenta As Integer
         Public Property FolioFiscal As String