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

App_Code/ClsBancos.vb

@@ -1185,7 +1185,7 @@ Public Class ClsBancos
     'End Function
 
     Public Function UpdateComplementoPago(CveComplementoPago As Integer, FolioFiscal As String, CvePAC As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CvePACCancelacion As Integer = -1,
-                                          Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "") As Boolean
+                                          Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "", Optional CveSATMotivoCancelacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_ComplementoPagoUpdate")
 
@@ -1199,6 +1199,7 @@ Public Class ClsBancos
             .Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion
             .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
             .Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion
+            .Add("@CveSATMotivoCancelacion", SqlDbType.Int).Value = CveSATMotivoCancelacion
 
         End With
 

App_Code/ClsPaginas.vb

@@ -7528,6 +7528,7 @@ Public Class ClsPaginas
 
                     If ObjInv.GetMovimientos(Vta.Inv_CveMovimiento.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then
                         If ObjInv.DtResultados.Rows.Count > 0 Then
+
                             Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
                             If Dr IsNot Nothing Then
                                 AlmOrigen = Dr("AlmacenOrigen").ToString
@@ -7554,6 +7555,11 @@ Public Class ClsPaginas
                                     If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
                                 End If
                             End If
+
+                            params.Add(New ReportParameter("Chofer", Dr("Chofer").ToString))
+                            params.Add(New ReportParameter("Placa", Dr("Placa").ToString))
+                            params.Add(New ReportParameter("EspecifUnidad", Dr("Especificacion").ToString))
+
                         End If
                     End If
 

Bancos/IE.aspx

@@ -1370,11 +1370,13 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%">
                                       <ItemTemplate>
-                                            <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Visible ="false">
+                                          <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Visible ="false">
-                                            </asp:DropDownList>
+                                          </asp:DropDownList>
+                                          <asp:Literal runat="server" ID="LtlMotivoCancelacion"  Text='<%# Eval("MotivoCancelacion") %>'>  </asp:Literal>
                                        </ItemTemplate>
+                                    
                                 </asp:TemplateField>
 
                                 <asp:TemplateField HeaderText="Cancelar" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">

Bancos/IE.aspx.vb

@@ -5847,6 +5847,8 @@ Partial Class Bancos_IE
             Else
                 GvComplementoPagos.DataSource = Nothing
             End If
+
+            GvComplementoPagos.Columns(8).Visible = False
         Else
             If CveIE > 0 Then
                 If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
@@ -5862,13 +5864,14 @@ Partial Class Bancos_IE
 
                     ' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
 
-                    GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC"})
+                    GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"})
 
                     '"CveComplementoPago","FolioFiscal","Folio","SerieFolio","FechaComplemento","Importe","RFCReceptor","StrEstatus","FechaCancelacion","Tipo,Estatus","CveIE","CvePAC"
 
                 End If
             End If
 
+            GvComplementoPagos.Columns(8).Visible = True
         End If
 
         ObjBancos.Dispose()
@@ -5904,6 +5907,12 @@ Partial Class Bancos_IE
                     e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
                 End If
 
+                If e.Row.DataKey("Estatus").ToEntero = 2 Then
+                    e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True
+                Else
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
+                End If
+
             ElseIf e.Row.DataKey("Tipo") = "Egs" Then
 
                 e.Row.Cells(3).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-file-code-o""></i></a>", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%")))))
@@ -6676,7 +6685,7 @@ Partial Class Bancos_IE
 
             If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
-                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
                     Alert("El complemento se cancelo correctamente.")
                 End If

Empresas/140/Formatos/Cotizacion.rdlc

@@ -1224,7 +1224,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!Cantidad.Value * Fields!PU.Value</Value>
+                              <Value>=(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value</Value>
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>9pt</FontSize>

Empresas/140/Formatos/Factura.rdlc

@@ -784,14 +784,6 @@
           </Paragraph>
           <Paragraph>
             <TextRuns>
-              <TextRun>
-                <Value>Moneda</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>9.16pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>Forma de pago: </Value>
                 <Style>