Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Acumuladores/RepIndicadorDiario.aspx

@@ -190,7 +190,7 @@
                             Acumulado
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado", "{0:N0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado", "{0:#,##0.##}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="20" ItemStyle-HorizontalAlign="Right">
@@ -206,7 +206,7 @@
                             Venta Diaria
                         </HeaderTemplate>
                         <ItemTemplate>
-                             <asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia", "{0:N0}") %>'></asp:Literal>
+                             <asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia", "{0:#,##0.##}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right">

App_Code/ClsContabilidad.vb

@@ -187,6 +187,9 @@ Public Class ClsContabilidad
                 If Valor1 = "2" OrElse Valor2 = "2" Then
                     Retorno = 3
                 End If
+            Case 140
+                Retorno = 2 'egreso
+
 
         End Select
 
@@ -987,16 +990,20 @@ Public Class ClsContabilidad
             If ex1.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
-                Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                Dim dr As Data.DataRow = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimero(String.Format("CveConceptoContable = {0}", CveConceptoContable))
-                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                Dim Strr As String = dr("ConceptoContable").ToString
-            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                'If dr("AplicaClasificacion").ToString <> "No" Then
-                Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                '    Strr = Strr + " - Clasificación: " + DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("", "")
-                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                'End If
-            ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", dr("ConceptoContable").ToString), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-                Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                    Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
-            Else
+                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-                OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                    Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                Else
+                    OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If '
         Catch ex As Exception
             If ex.Message.Contains("50015;") Then

App_Code/ClsInventarios.vb

@@ -5545,22 +5545,15 @@ Public Class ClsInventarios
 #End Region
 
 
-
-
-
-
-
-
-
-
 #Region "Camiones"
-    Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean
+    Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1, Optional Estatus As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsPaginas.vb

@@ -6356,16 +6356,34 @@ Public Class ClsPaginas
 
         Try
             bytes = bytes
+
+
+            'Response.Clear()
+            'Response.ContentType = "application/pdf"
+            'Response.Cache.SetCacheability(HttpCacheability.Private)
+            'Response.Expires = -1
+            'Response.Buffer = True
+            ''Uncomment to handle the file as attachment
+            'Response.AddHeader("Content-Disposition", String.Format("inline; filename={0}.{1}", NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
+            ''Response.BinaryWrite(bytes)
+            'bytes = Nothing
+            'Response.End()
+
+
             Response.Buffer = True
             Response.Clear()
-            Response.ContentType = mimeType
+            If Formato = "PDF" Then
+                Response.ContentType = "application/pdf"
+            Else
+                Response.ContentType = mimeType
+            End If
             Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
             Response.BinaryWrite(bytes) ' create the file
             Response.Flush() ' send it to the client to download
             HttpContext.Current.Response.SuppressContent = True
             HttpContext.Current.ApplicationInstance.CompleteRequest()
-            HttpContext.Current.Response.End()
             bytes = Nothing
+            'HttpContext.Current.Response.End()
         Catch ex As Exception
 
             If UsuarioActual.CveRol = 1 Then

App_Code/Modelos.vb

@@ -4668,6 +4668,13 @@ Namespace Modelos
             Dim TieneAlmacen As Boolean = False
             Dim AplicaRefacturacionConPagos As Boolean = False
 
+            Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
+
+            'SI YA FUE MARCADA COMO REFACTURACION Y FUE SEPARADA, MANTENER EL COMPORTAMIENTO DE CANCELACION COMO REFACTURACION
+            If Not EsRefacturacion AndAlso CveEstatusRefacturacion = 4 Then
+                EsRefacturacion = True
+            End If
+
             '1 NORMAL, 2 CON PAGOS
             Dim ModalidadRefacturacion As Integer = UsuarioActual.Empresa.Funcionalidad(586).ToEntero()
 
@@ -4800,11 +4807,7 @@ Namespace Modelos
                 Return Retorno
             End If
 
-
+            If Not EsRefacturacion AndAlso CveEstatusRefacturacion <> 4 Then
-            Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
-
-
-            If Not EsRefacturacion Then
                 CveEstatusRefacturacion = 0
             End If
 

Bancos/Devoluciones.aspx.cs

@@ -392,7 +392,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
         int cveProveedor = (DdlProveedores.SelectedValue.ToEntero() > 0) ? DdlProveedores.SelectedValue.ToEntero() : -1;
         int cvePersonal = (DdlPersonal.SelectedValue.ToEntero() > 0) ? DdlPersonal.SelectedValue.ToEntero() : -1;
         int cveCliente = (DdlCliente.SelectedValue.ToEntero() > 0) ? DdlCliente.SelectedValue.ToEntero() : -1;
-        bool TipoMovoDevolucion = false;
+        bool TipoMovtoDevolucion = false;
         double TC = 1;
         StringBuilder Msg = new StringBuilder();
 
@@ -402,25 +402,25 @@ public partial class Bancos_Devoluciones : ClsPaginas
                 PagueseA = DdlCliente.SelectedText.ToString();
                 CveConceptoContableDevolucion = 92;
                 CvePlantillaPoliza = 7;
-                TipoMovoDevolucion = false;
+                TipoMovtoDevolucion = false;
                 break;
             case "2":
                 PagueseA = DdlProveedores.SelectedText.ToString();
                 CveConceptoContableDevolucion = 21;
                 CvePlantillaPoliza = 7;
-                TipoMovoDevolucion = true;
+                TipoMovtoDevolucion = true;
                 break;
             case "3":
                 PagueseA = DdlPersonal.SelectedItem.ToString();
                 CvePlantillaPoliza = 100;
-                TipoMovoDevolucion = true;
+                TipoMovtoDevolucion = true;
                 CveConceptoContableDevolucion = 250;
                 break;
             case "4":
                 PagueseA = DdlPersonal.SelectedItem.ToString();
                 CveConceptoContableDevolucion = 273;
                 CvePlantillaPoliza = 100;
-                TipoMovoDevolucion = true;
+                TipoMovtoDevolucion = true;
                 break;
         }
 
@@ -464,7 +464,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
                 {
                     if (gvr.FCCheckBox("Chk").Checked)
                     {
-                        if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE, CveNominaMovtoPermanente: CveMovtoPermanente))
+                        if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE, CveNominaMovtoPermanente: CveMovtoPermanente))
                         {
                             MsgError = "No se pudo insertar concepto de Devolución";
                             break;
@@ -474,7 +474,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
                             //Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL();
                             Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal();
                             //GUARDA PREPOLIZAS DETALLE Via Nómina         
-                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
+                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovtoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
                             {
                                 MsgError = "No se pudo insertar concepto de Devolución";
                             }
@@ -520,15 +520,24 @@ public partial class Bancos_Devoluciones : ClsPaginas
                                 else
                                 {
                                     //INGxC
-                                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero()))
+                                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero()))
                                     {
                                         MsgError = "No se pudo insertar concepto de bancos";
                                     }
+                                    // OTROS INGRESOS
+                                    if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0)
+                                    {
+                                        if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, 78, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero()))
+                                        {
+                                            MsgError = "No se pudo insertar concepto de ot. ingresos/gastos";
+                                            break;
+                                        }
+                                    }
                                 }
                             }
                             else
                             {
-                                if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE))
+                                if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE))
                                 {
                                     MsgError = "No se pudo insertar concepto de Devolución";
                                     break;
@@ -537,7 +546,11 @@ public partial class Bancos_Devoluciones : ClsPaginas
                                 // OTROS INGRESOS
                                 if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0)
                                 {
-                                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, 78, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE))
+                                    int tcvecon = 78;
+                                    if (gvr.FCTextBox("TxtComision").Text.ToDecimal() > 0)
+                                        tcvecon = 255;
+
+                                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, tcvecon, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE))
                                     {
                                         MsgError = "No se pudo insertar concepto de Devolución";
                                         break;
@@ -548,7 +561,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
                     }
 
                     //GUARDA PREPOLIZAS DETALLE Bancos         
-                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, TxtImporte.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: TxtImporte.Text.ToDecimal()))
+                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovtoDevolucion, TxtImporte.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: TxtImporte.Text.ToDecimal()))
                     {
                         MsgError = "No se pudo insertar concepto de bancos";
                     }

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -39,7 +39,7 @@ Partial Class Bancos_RepEgresosSinComprobante
                 DdlUsuarioRegistro.DataBind()
                 DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
             Else
-                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario)
+                DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
                 DdlUsuarioRegistro.DataBind()
             End If
 

Compras/Compras.aspx

@@ -5829,7 +5829,6 @@
         }
          
 
-
         function chkAnt(t, txt, importe, TotalSaldo, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal) {
             var Total = ToDouble($get('TxtTotal').value);
             //TotalSaldo = Total;

Compras/Compras.aspx.vb

@@ -15018,12 +15018,12 @@ Partial Class Compras_Compras
 
         End If
         ObjComprasComprobacion.Dispose()
-
+        Dim cvemovimientoentrada As Integer = -1
 
         'DEVOLUCIÓN AUTOMATICA
         If CheckDevAuto.Checked Then
             Dim ErrorMovInv As Boolean = False
-            Dim cvemovimientoentrada As Integer
+
             Dim folio As Integer
             Dim fecha As Date = TxtFechaCancelacion.Text.ToDate
             Dim importeconcepto As Decimal
@@ -15165,7 +15165,8 @@ Partial Class Compras_Compras
                                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
                                                                             dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
                                                                             dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                            dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
+                                                                            If(cvemovimientoentrada > 0, cvemovimientoentrada, dr("CveMovimientoAlmacen").ToString.ToEntero),
+                                                                            dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
                                                                             ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
                                     ErrorCancelar = True
                                     Exit For

Compras/PopUpVerFactura.aspx.vb

@@ -212,11 +212,15 @@ Partial Class PopUpVerFactura
                 If Request("onlyPrint").ToString() = "manifiestoRemision" Then
                     imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
                 End If
+                If Request("onlyPrint").ToString() = "manifiestoCartaPorte" Then
+                    imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                End If
             End If
 
         End If
     End Sub
 
+
     Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer)
         Dim NoEmbarque As String = ""
         Dim Fecha As String = ""
@@ -235,6 +239,8 @@ Partial Class PopUpVerFactura
         Dim NoKgManifiesto As String = ""
         Dim Mercado As String = ""
         Dim NoFactura As String = ""
+        Dim Cliente As String = ""
+        Dim Direccion As String = ""
 
         Dim LongitudCaja As String = ""
         Dim LineaTransportacion As String = ""
@@ -254,6 +260,8 @@ Partial Class PopUpVerFactura
             If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                 Dim row As DataRow = objnom.DtResultados.Rows(0)
                 NoEmbarque = row("NoEmbarque").ToString()
+                Cliente = row("Cliente").ToString()
+                Direccion = row("Direccion").ToString()
                 Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
                 SubProyecto = row("SubProyecto").ToString()
                 AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
@@ -288,6 +296,7 @@ Partial Class PopUpVerFactura
                     NoPallets = objnom.DtResultados.Rows.Count.ToString()
                     NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
                     NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
+
                     tablaReporte = objnom.DtResultados
                 End If
             End If
@@ -295,6 +304,8 @@ Partial Class PopUpVerFactura
         End Using
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
+        params.Add(New ReportParameter("Cliente", Cliente))
+        params.Add(New ReportParameter("Direccion", Direccion))
         params.Add(New ReportParameter("Fecha", Fecha))
         params.Add(New ReportParameter("SubProyecto", SubProyecto))
         params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
@@ -335,8 +346,7 @@ Partial Class PopUpVerFactura
         ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto")
     End Sub
 
-
+    Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
-    Private Sub imprimirManifiestoRemisionRemision(cveEmbarqueManifiesto As Integer)
         Dim NoEmbarque As String = ""
         Dim Fecha As String = ""
         Dim SubProyecto As String = ""
@@ -361,6 +371,8 @@ Partial Class PopUpVerFactura
         Dim RPC As String = ""
         Dim BINSDECARTON As String = ""
         Dim TotalDlls As String = ""
+        Dim Cliente As String = ""
+        Dim Direccion As String = ""
 
 
 
@@ -382,6 +394,8 @@ Partial Class PopUpVerFactura
             If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
                 Dim row As DataRow = objnom.DtResultados.Rows(0)
                 NoEmbarque = row("NoEmbarque").ToString()
+                Cliente = row("Cliente").ToString()
+                Direccion = row("Direccion").ToString()
                 Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
                 DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
                 BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
@@ -389,6 +403,7 @@ Partial Class PopUpVerFactura
                 CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
                 RPC = String.Format("{0:N0}", row("RPC"))
                 BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
+                TotalDlls = String.Format("{0:N0}", row("TotalDlls"))
 
 
 
@@ -402,7 +417,7 @@ Partial Class PopUpVerFactura
                 Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
                 Rem1Placa = row("Rem1Placa").ToString()
                 NoFactura = row("NoFactura").ToString()
-                Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio"))
+                Remolque1 = String.Format("{0} ", row("NumeroTrailer"))
                 Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
 
                 NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
@@ -432,6 +447,8 @@ Partial Class PopUpVerFactura
         End Using
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
+        params.Add(New ReportParameter("Cliente", Cliente))
+        params.Add(New ReportParameter("Direccion", Direccion))
         params.Add(New ReportParameter("Fecha", Fecha))
         params.Add(New ReportParameter("SubProyecto", SubProyecto))
         params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
@@ -476,8 +493,178 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Manifesto")
+        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión")
     End Sub
+
+
+    Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
+        Dim NoEmbarque As String = ""
+        Dim Fecha As String = ""
+        Dim SubProyecto As String = ""
+        Dim AgenciaAduanalUSA As String = ""
+        Dim AgenciaAduanalMEX As String = ""
+        Dim Temperatura As String = ""
+        Dim Hora As String = ""
+        Dim Chofer As String = ""
+        Dim CamPlaca As String = ""
+        Dim Camion As String = ""
+        Dim Rem1Placa As String = ""
+        Dim Remolque1 As String = ""
+        Dim NoPallets As String = ""
+        Dim NoBultos As String = ""
+        Dim NoKgManifiesto As String = ""
+        Dim Mercado As String = ""
+        Dim NoFactura As String = ""
+        Dim DivisoresdeCarton As String = ""
+        Dim BolsasdePlastico As String = ""
+        Dim TapaderasdeCarton As String = ""
+        Dim CAJASDECARTON As String = ""
+        Dim RPC As String = ""
+        Dim BINSDECARTON As String = ""
+        Dim TotalDlls As String = ""
+        Dim Cliente As String = ""
+        Dim Direccion As String = ""
+        Dim Correo As String = ""
+
+
+        Dim LongitudCaja As String = ""
+        Dim LineaTransportacion As String = ""
+        Dim SCAC As String = ""
+        Dim CAAT As String = ""
+        Dim NumeroTrailer As String = ""
+
+
+        Dim tablaReporte As New DataTable
+
+        'Envase = "1 1/9"
+        'Tamano = "Small"
+        'Cultivo = "Tomate"
+        'noPallet = "000001"
+        'Variedad = "Golden"
+        Using objnom As New ClsNominas
+            If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
+                Dim row As DataRow = objnom.DtResultados.Rows(0)
+                NoEmbarque = row("NoEmbarque").ToString()
+                Cliente = row("Cliente").ToString()
+                Direccion = row("Direccion").ToString()
+                Correo = row("Correo").ToString()
+                Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
+                DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
+                BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
+                TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton"))
+                CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
+                RPC = String.Format("{0:N0}", row("RPC"))
+                BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
+                TotalDlls = String.Format("{0:N0}", row("TotalDlls"))
+
+
+
+                SubProyecto = row("SubProyecto").ToString()
+                AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
+                AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
+                Temperatura = row("Temperatura").ToString()
+                Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
+                Chofer = row("Chofer").ToString()
+                CamPlaca = row("CamPlaca").ToString()
+                Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
+                Rem1Placa = row("Rem1Placa").ToString()
+                NoFactura = row("NoFactura").ToString()
+                Remolque1 = String.Format("{0} ", row("NumeroTrailer"))
+                Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
+
+                NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
+
+                LongitudCaja = row("LongitudCaja").ToString()
+                LineaTransportacion = row("LineaTransportacion").ToString()
+                SCAC = row("SCAC").ToString()
+                CAAT = row("CAAT").ToString()
+
+                'If row("CveCamionRemolque1").ToString() = "1" Then
+                '    Rem1Placa = "12-TF-5E"
+                '    Remolque1 = "Remolque 1"
+                'Else
+                '    Rem1Placa = "15-TF-7f"
+                '    Remolque1 = "Remolque 2"
+
+                'End If
+
+                If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                    NoPallets = objnom.DtResultados.Rows.Count.ToString()
+                    NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
+                    NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
+                    tablaReporte = objnom.DtResultados
+                End If
+            End If
+            'Remolque 1  12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2  15-TF-7f
+        End Using
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
+        params.Add(New ReportParameter("Cliente", Cliente))
+        params.Add(New ReportParameter("Direccion", Direccion))
+        params.Add(New ReportParameter("Fecha", Fecha))
+        params.Add(New ReportParameter("SubProyecto", SubProyecto))
+        params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
+        params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
+        params.Add(New ReportParameter("Temperatura", Temperatura))
+        params.Add(New ReportParameter("Hora", Hora))
+        params.Add(New ReportParameter("Chofer", Chofer))
+        params.Add(New ReportParameter("CamPlaca", CamPlaca))
+        params.Add(New ReportParameter("Camion", Camion))
+        params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
+        params.Add(New ReportParameter("Remolque1", Remolque1))
+
+
+        params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
+        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
+        params.Add(New ReportParameter("SCAC", SCAC))
+        params.Add(New ReportParameter("CAAT", CAAT))
+        params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))
+
+
+        params.Add(New ReportParameter("NoFactura", NoFactura))
+        params.Add(New ReportParameter("Mercado", Mercado))
+        params.Add(New ReportParameter("NoBultos", NoBultos))
+        params.Add(New ReportParameter("NoPallets", NoPallets))
+        params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
+
+
+        'params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton))
+        'params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico))
+        'params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton))
+        'params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
+        'params.Add(New ReportParameter("RPC", RPC))
+        'params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
+        'params.Add(New ReportParameter("TotalDlls", TotalDlls))
+
+
+
+
+
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
+        lrds.Add(rds)
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
+
+        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
+
+        Dim ObjMail As New ClsSisMail()
+
+        If ObjMail.SendMail(UsuarioActual.Empresa, Correo, "Datos carta porte", "", "", LSRutasMail) Then
+            'ResultadoMail = 1
+        Else
+            'GuardaLogFacturacion($"No se envio el correo {Mail}, {Asunto}, {Cuerpo}, {MailCC},")
+            'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
+            'ResultadoMail = 3
+        End If
+        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="inline")
+
+
+    End Sub
+
+
     Private Sub imprimirpallet2(cvePallet As Integer)
         Dim Envase As String = ""
         Dim Tamano As String = ""

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -198,7 +198,13 @@ Partial Class PopUpAuxiliar
             e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left
 
             If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then
-                Dim Liga As String = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
+                Dim Liga As String
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    Liga = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">", e.Row.DBCampo("CvePrePoliza"))
+                Else
+                    Liga = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
+                End If
+
                 e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("Poliza"))
             End If
 

Contabilidad/RegPrePolizaS.aspx

@@ -368,6 +368,7 @@
                                                     <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
                                                     <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
                                                     <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
+                                                    <asp:Label ID="LblTC" runat="server" Text="TC" Visible="false"></asp:Label><asp:TextBox ID="TxtTCPreP" CssClass="form-control input-sm select2me" runat="server" Width="50px" Visible="false"></asp:TextBox>
 
                                                 </th>
                                                 <th>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -693,6 +693,17 @@ Partial Class ContabilidadC_RegPrePolizaS
 
     Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged
 
+        Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContables.SelectedValue.ToEntero).FiltroPrimero("")
+
+        If dr IsNot Nothing Then
+            If dr("AplicaTC").ToString = "True" Then
+                TxtTCPreP.Visible = True
+                LblTC.Visible = True
+            Else
+                TxtTCPreP.Visible = False
+                LblTC.Visible = False
+            End If
+        End If
 
         If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
             CargaProveedores()
@@ -709,7 +720,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         Else
             DdlPersonal.Visible = False
         End If
-        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91, 291, 292) Then
             CargaClientes()
             DdlClientes.Visible = True
             DdlVentas.Visible = True
@@ -1524,6 +1535,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
             If AplicaBancos Then
+                CargaModalConceptoTipoTransaccion("Egs")
                 'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
                 DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
                 DvMoldalConceptoSeccion2.Visible = True

GPS/EmbarqueManifiesto.rdlc

@@ -41,6 +41,10 @@
           <DataField>Cultivo</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Manifiesto">
+          <DataField>Manifiesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="CultivoVariedad">
           <DataField>CultivoVariedad</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -1497,7 +1501,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>GROWER ALLIANCE</Value>
+                                  <Value>=Parameters!Cliente.Value</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                   </Style>
@@ -1688,7 +1692,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>947 E. FRONTAGE RD.</Value>
+                                  <Value>=Parameters!Direccion.Value</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                   </Style>
@@ -1879,7 +1883,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>RIO RICO</Value>
+                                  <Value />
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                   </Style>
@@ -6833,13 +6837,13 @@
             <TablixBody>
               <TablixColumns>
                 <TablixColumn>
-                  <Width>2.5cm</Width>
+                  <Width>1.73271cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.5cm</Width>
+                  <Width>1.68042cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>5.74021cm</Width>
+                  <Width>7.32708cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>3.69064cm</Width>
@@ -7122,7 +7126,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=Fields!NoPallets.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -7140,6 +7146,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -7152,7 +7159,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=Fields!NoCajas.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -7170,25 +7179,28 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
                       <CellContents>
-                        <Textbox Name="Cultivo">
+                        <Textbox Name="Manifiesto">
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!Cultivo.Value &amp; " " &amp; Fields!CultivoVariedad.Value</Value>
+                                  <Value>=Fields!Manifiesto.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Cultivo</rd:DefaultName>
+                          <rd:DefaultName>Manifiesto</rd:DefaultName>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -7200,6 +7212,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -7212,7 +7225,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=Fields!Etiqueta.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -7230,6 +7245,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -7242,7 +7258,9 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=Fields!Envase.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -7260,6 +7278,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                   </TablixCells>
@@ -7447,6 +7466,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Direccion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Cliente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logojam">

GPS/EmbarqueManifiestoRemision.rdlc

@@ -41,6 +41,10 @@
           <DataField>Cultivo</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Manifiesto">
+          <DataField>Manifiesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="CultivoVariedad">
           <DataField>CultivoVariedad</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -307,10 +311,8 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>GROWER ALLIANCE</Value>
+                                  <Value>=Parameters!Cliente.Value</Value>
-                                  <Style>
+                                  <Style />
-                                    <FontSize>8pt</FontSize>
-                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -413,9 +415,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>12 Ave. Acaponeta
+                                  <Value>=Parameters!Direccion.Value</Value>
-
-Rio Rico, AZ 85648</Value>
                                   <Style />
                                 </TextRun>
                               </TextRuns>
@@ -437,138 +437,7 @@ Rio Rico, AZ 85648</Value>
                     </TablixCell>
                     <TablixCell>
                       <CellContents>
-                        <Textbox Name="Textbox38">
+                        <Textbox Name="Textbox50">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox38</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox39">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox39</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <RightBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>2pt</Width>
-                            </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                  </TablixCells>
-                </TablixRow>
-                <TablixRow>
-                  <Height>0.6cm</Height>
-                  <TablixCells>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox32">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox32</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <LeftBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>2pt</Width>
-                            </LeftBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox43">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox43</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox33">
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -597,7 +466,7 @@ Rio Rico, AZ 85648</Value>
                     </TablixCell>
                     <TablixCell>
                       <CellContents>
-                        <Textbox Name="Textbox44">
+                        <Textbox Name="Textbox51">
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -672,6 +541,7 @@ Rio Rico, AZ 85648</Value>
                           </Style>
                         </Textbox>
                         <ColSpan>2</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -739,12 +609,11 @@ Rio Rico, AZ 85648</Value>
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
-                <TablixMember />
               </TablixMembers>
             </TablixRowHierarchy>
-            <Top>4.15396cm</Top>
+            <Top>3.38667cm</Top>
-            <Left>2.00862cm</Left>
+            <Left>1.98216cm</Left>
-            <Height>3.6cm</Height>
+            <Height>3cm</Height>
             <Width>14.9871cm</Width>
             <Style>
               <Border>
@@ -2370,7 +2239,15 @@ Hermosillo, Sonora, Mexico
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>CAAT: 32VU
+                                  <Value>CAAT:</Value>
+                                  <Style />
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!CAAT.Value</Value>
+                                  <Style />
+                                </TextRun>
+                                <TextRun>
+                                  <Value xml:space="preserve">
 </Value>
                                   <Style />
                                 </TextRun>
@@ -2531,7 +2408,7 @@ Hermosillo, Sonora, Mexico
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>LCT-03</Value>
+                                  <Value>=Parameters!Remolque1.Value</Value>
                                   <Style />
                                 </TextRun>
                               </TextRuns>
@@ -2774,8 +2651,8 @@ Hermosillo, Sonora, Mexico
                 <TablixMember />
               </TablixMembers>
             </TablixRowHierarchy>
-            <Top>9.57248cm</Top>
+            <Top>6.74144cm</Top>
-            <Left>1.44748cm</Left>
+            <Left>1.39456cm</Left>
             <Height>6cm</Height>
             <Width>16.05095cm</Width>
             <ZIndex>3</ZIndex>
@@ -2786,7 +2663,7 @@ Hermosillo, Sonora, Mexico
             </Style>
           </Tablix>
         </ReportItems>
-        <Height>8.9547in</Height>
+        <Height>5.96512in</Height>
         <Style />
       </Body>
       <Width>7.64435in</Width>
@@ -2977,6 +2854,18 @@ Hermosillo, Sonora, Mexico
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Cliente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Direccion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logojam">

Inventarios/CatUnidades.aspx

@@ -31,7 +31,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveProveedor,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
                 EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Unidad" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
@@ -97,11 +97,11 @@
                                 </div>
 
                             </div>
-                                <div class="form-group form-md-line-input input-iconright col-md-12" runat="server" visible="false" id="DvNumeroTrailler">
+                            <div class="form-group form-md-line-input input-iconright col-md-12" runat="server" visible="false" id="DvNumeroTrailler">
-                                    <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
+                                <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
-                                    <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="Número De Unidad"></asp:Label>
+                                <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="Número De Unidad"></asp:Label>
-                                    <i></i>
+                                <i></i>
-                                </div>
+                            </div>
 
                             <div class="form-group form-md-line-input input-iconright col-md-6">
 
@@ -230,8 +230,8 @@
 
                         </div>
 
-                        <div class="row"  runat="server" id="DVSCACCAAT" visible="false">
+                        <div class="row" runat="server" id="DVSCACCAAT" visible="false">
-                            <div class="col-md-6" >
+                            <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtSCAC" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                     <label for="<%= TxtSCAC.ClientID.ToString()%>">SCAC:</label>
@@ -248,10 +248,19 @@
 
                         </div>
 
+                        <div class="row">
+                            <div class="col-md-12">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" id="Div1">
+                                    <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveProveedor" DataTextField="RazonSocial" Style="padding: 0px">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator3" ControlToValidate="DdlTipoPermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+                            </div>
+                        </div>
 
                         <%--<asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" AutoPostBack="true" OnCheckedChanged="ChkesRemolque_CheckedChanged" />--%>
-
-
                     </div>
 
                     <div class="modal-footer">

Inventarios/CatUnidades.aspx.vb

@@ -19,11 +19,17 @@ Partial Class Inventarios_CatUnidades
     Private Sub Catalogos_CatPtoSubFunsion_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
+            CargaDdlProveedor()
             CargaDatos()
         End If
     End Sub
 
 
+    Private Sub CargaDdlProveedor()
+        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+    End Sub
 
 
 
@@ -88,6 +94,7 @@ Partial Class Inventarios_CatUnidades
         TxtEspecificacionNuevo.Text = ""
         TxtEspecificacionNuevo.Text = ""
         DdlConfigAuto.SelectedValueExist(-1)
+        DdlProveedor.SelectedValueExist(-1)
 
         TxtAnio.Text = ""
         'TxtTipoPermisoSCT.Text = ""
@@ -137,8 +144,9 @@ Partial Class Inventarios_CatUnidades
         TxtNumPolizaSeguroMedioAmbiente.Text = GvRow.DataKey("NumPolizaSeguroMedioAmbiente")
         TxtNombreAseguradoraCarga.Text = GvRow.DataKey("NombreAseguradoraCarga")
         TxtNumPolizaSeguroCarga.Text = GvRow.DataKey("NumPolizaSeguroCarga")
-
         DdlTiposRemolque.SelectedValueExist(CveTipoRemolque)
+        DdlProveedor.SelectedValueExist(-1)
+        DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))
 
         TxtNumeroTrailer.Text = GvRow.DataKey("NumeroTrailer")
         TxtLongitudCaja.Text = GvRow.DataKey("LongitudCaja")
@@ -207,6 +215,9 @@ Partial Class Inventarios_CatUnidades
                 If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                  TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text) Then
                     Alert("Unidad actualizada correctamente")
+                    Using objbase = New ClsClaseBase()
+                        objbase.runQuerystr(String.Format("UPDATE Inv_Camiones SET CveProveedor={1} WHERE  CveCamion={0}", CveCamion, DdlProveedor.SelectedValue))
+                    End Using
                 Else
                     ErrorPrceso = True
                 End If
@@ -214,6 +225,8 @@ Partial Class Inventarios_CatUnidades
         End Using
 
 
+
+
         If Not ErrorPrceso Then
             GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
             CargaDatos()

Ventas/ClientesAbonar.aspx

@@ -196,7 +196,13 @@
 
                                  <div class="col-md-2"   runat="server" id="DvLiquidacion1" visible="false">Liquidación:</div>
                                 <div class="col-md-3"  runat="server" id="DvLiquidacion2" visible="false">
-                                    <asp:CheckBox ID="ChkLiquidacion" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" />
+                                    <asp:UpdatePanel ID="UppTiempo" runat="server" UpdateMode="Conditional">
+                                        <ContentTemplate>
+                                             <asp:CheckBox ID="ChkLiquidacion" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" />
+                                            <asp:Timer runat="server" ID="TimTiempo" Interval="300000" Enabled="false" OnTick="TimTiempo_Tick"></asp:Timer>
+                                        </ContentTemplate>
+                                    </asp:UpdatePanel>
+                                   
                                 </div>
 
                             </div>
@@ -566,7 +572,7 @@
                     </asp:UpdatePanel>
                 </div>
                 <div class="modal-footer">
-                    <asp:UpdatePanel runat="server">
+                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
                             <asp:Button ID="BtnSaldarCuentasIncobrables" runat="server" CssClass="btn btn-primary" Text="Saldar cuentas" ValidationGroup="GrpIncobrable" />
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
@@ -606,7 +612,7 @@
                     </asp:UpdatePanel>
                 </div>
                 <div class="modal-footer">
-                    <asp:UpdatePanel runat="server">
+                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
                             <asp:Button ID="BtnVincularIntermediario" runat="server" CssClass="btn btn-primary" Text="Vincular Intermediario" />
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>

Ventas/ClientesAbonar.aspx.vb

@@ -1499,7 +1499,7 @@ Partial Class Ventas_ClientesAbonar
                         End If
                     End If
 
-                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
+                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) AndAlso UsuarioActual.CveEmpresa <> 158 Then
                         If ObjMov.ValorPolizaDescuadre > 0 Then
                             MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia
                         End If
@@ -2871,11 +2871,15 @@ Partial Class Ventas_ClientesAbonar
 
 #Region "LIQUIDACION"
 
+    Protected Sub TimTiempo_Tick(sender As Object, e As EventArgs)
+        Dim a As String = "se recarga para que no pierda sesíón el registro puede tardar más de una hora en llenar todos los datos" 'solo para que se ejecute sin que afecte a lo demás
+    End Sub
+
     Protected Sub ChkLiquidacion_CheckedChanged(sender As Object, e As EventArgs)
 
 
         If ChkLiquidacion.Checked Then
-
+            TimTiempo.Enabled = True 'para que no me saque
             GvCxC.Columns(4).Visible = False
             GvCxC.Columns(5).Visible = False
             GvCxC.Columns(6).Visible = False
@@ -2899,6 +2903,7 @@ Partial Class Ventas_ClientesAbonar
 
 
         Else
+            TimTiempo.Enabled = False
             GvCxC.Columns(4).Visible = True
             GvCxC.Columns(5).Visible = True
             GvCxC.Columns(6).Visible = True
@@ -2919,7 +2924,6 @@ Partial Class Ventas_ClientesAbonar
             GvCxC.Columns(27).Visible = True
             GvCxC.Columns(28).Visible = True
 
-
         End If
 
         UPVentas.Update()

Ventas/RepCancelacionesPorRespuesta.aspx

@@ -70,7 +70,7 @@
                                     <asp:BoundField HeaderText="Motivo" DataField="MotivoCancelacion" ItemStyle-Width="25%" />
                                     <asp:TemplateField ItemStyle-Width="35px" HeaderText="Verificar">
                                         <ItemTemplate>
-                                            <asp:LinkButton runat="server" OnClick="BtnValidar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>
+                                            <asp:LinkButton runat="server" ID="BtnValidar" OnClick="BtnValidar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>
                                         </ItemTemplate>
                                     </asp:TemplateField>
                                 </Columns>
@@ -121,21 +121,26 @@
                                             <asp:LinkButton ID="LnkValidarRefac" runat="server" OnClick="BtnValidarRefacturacion_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:TemplateField ItemStyle-Width="35px" HeaderText="Cancelar">
+                                    <asp:TemplateField ItemStyle-Width="40px" HeaderText="Cancelar">
                                         <ItemTemplate>
                                             <div class="row" style="padding-bottom:3px;">
                                                 <div class="col-md-12">
-                                                    <asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-check'> Factura Pendiente</i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
+                                                    <asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-ban'> </i>" ToolTip="Cancelar refacturación" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
                                                 </div>
                                             </div>
                                             <div class="row">
                                                 <div class="col-md-12">
-                                                    <asp:LinkButton ID="LnkCancelarFolioSustitucion" Visible="false" runat="server" OnClick="LnkCancelarFolioSustitucion_Click" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-check'> Folio Sustitucion</i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
+                                                    <asp:LinkButton ID="LnkCancelarFolioSustitucion" Visible="false" runat="server" OnClick="LnkCancelarFolioSustitucion_Click" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-ban'> 02</i>"  ToolTip="Cancelar refacturación con método 02"  data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
                                                 </div>
                                             </div>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:HyperLinkField HeaderText="Refacturar" Text="Refacturar" DataNavigateUrlFields="CveVenta" ItemStyle-Width="100px" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1" />
+                                      <asp:TemplateField ItemStyle-Width="40px" HeaderText="Refact">
+                                        <ItemTemplate>
+                                            <asp:HyperLink ID="HplRefact" Visible="false" runat="server" Text="Refacturar" NavigateUrl="/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1" ></asp:HyperLink>
+                                             </ItemTemplate>
+                                    </asp:TemplateField>
+                                    
                                 </Columns>
                                 <RowStyle CssClass="Texto" />
                                 <HeaderStyle CssClass="Titulos" />

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -78,6 +78,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
             GvRefacturaciones.DataBind();
         }
          
+
         GvDatos.DataBind();
         UPDatos.Update();
     }
@@ -569,11 +570,19 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
     {
         if (e.Row.RowType == DataControlRowType.DataRow)
         {
-            if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0 || !string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion").ToString()))
+            GridView gv = (GridView)sender;
+            if (!(e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0 || !string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion").ToString())))
             {
-                e.Row.Cells[12].Text = "";
+                e.Row.FCHyperLink("HplRefact").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", e.Row.DBCampo("CveVenta"));
+                e.Row.FCHyperLink("HplRefact").Visible = true;
             }
 
+            if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID=="GvDatos")
+            {
+                e.Row.FCLinkButton("BtnValidar").Text= "<i class='fa fa-check'>02</i>";
+            }
+            //
+
             //if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
             //{
             //    e.Row.FCLinkButton("LnkValidarRefac").Visible = false;

Ventas/Ventas.aspx.vb

@@ -6231,7 +6231,13 @@ Partial Class Ventas
 
                 'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES
                 If CveVenta <= 0 Then
-                    LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+                    Dim EsModuloCotizacion As Boolean = False
+                    If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() = "Cot" Then
+                        EsModuloCotizacion = True
+                    End If
+                    If Not EsModuloCotizacion Then
+                        LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+                    End If
                 End If
 
                 If UsuarioActual.Empresa.CvePlataforma = 2 Then LnkOCs.Visible = False
@@ -7120,7 +7126,13 @@ Partial Class Ventas
 
         'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES
         If CveVenta <= 0 Then
-            LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+            Dim EsModuloCotizacion As Boolean = False
+            If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() = "Cot" Then
+                EsModuloCotizacion = True
+            End If
+            If Not EsModuloCotizacion Then
+                LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+            End If
         End If
 
         ObjCliente.Dispose()
@@ -7693,10 +7705,31 @@ Partial Class Ventas
                 If ValidaExistencia AndAlso DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False AndAlso Not RegistroxOC Then
                     'VALIDA EXISTENCIA
                     If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 140, 153}) Then
-                        If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                        'SI ES VENTA NUEVA TOMA EN CUENTA LO DEL TMPDT
-                            Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                        If CveVenta <= 0 Then
-                            Exit Sub
+                            If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                                Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                                Exit Sub
+                            End If
+                        Else
+                            If DdlTipoComprobante.SelectedValue = "Rem" Then
+                                Dim CantidadVenta As Double = 0
+                                Using ObjVentas As New ClsVentas
+                                    If ObjVentas.GetVentaDetalle(CveVenta) Then
+                                        CantidadVenta = ObjVentas.DtResultados.SUM("Cantidad", $"CvePS = {CvePS}")
+                                    End If
+                                End Using
+
+                                'SUMA LO YA RESTADO EN PENDIENTE POR SURTIR QUE PERTENESCA A LA VENTA.
+                                'PARA QUE NO RESTE LA EXISTENCIA 2 VECES Y PUEDAS COMPARAR LO REAL
+                                If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                                    Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                                    Exit Sub
+                                End If
+                            End If
+
                         End If
+
                     End If
                 End If
 
@@ -9146,6 +9179,7 @@ Partial Class Ventas
 
                         If UsuarioActual.CveEmpresa = 140 Then
                             AutoConta = True
+                            idCuentaContabilizacion = 10
                         End If
 
                         If AutoConta Then
@@ -14352,7 +14386,7 @@ Partial Class Ventas
 
                 Dim DebeGenerarMovimiento As Boolean = TmpDT.COUNT("CvePS", "CveTipoPS = 2") > 0
                 'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
-                If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Rem") Then
                     If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
                         OcurrioError = True
                         ErrorList.Add("Ocurrió un error al verificar inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
@@ -17583,10 +17617,29 @@ Partial Class Ventas
                 If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                     'VALIDA EXISTENCIA
                     If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140}) Then
-                        If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                        If CveVenta <= 0 OrElse Me.EsCreaApartirDe Then
-                            Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                            If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
-                            Return False
+                                Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                                Return False
+                            End If
+                        Else
+                            If DdlTipoComprobante.SelectedValue = "Rem" Then
+                                Dim CantidadVenta As Double = 0
+                                Using ObjVentasE As New ClsVentas
+                                    If ObjVentasE.GetVentaDetalle(CveVenta) Then
+                                        CantidadVenta = ObjVentasE.DtResultados.SUM("Cantidad", $"CvePS = {CvePS}")
+                                    End If
+                                End Using
+
+                                'SUMA LO YA RESTADO EN PENDIENTE POR SURTIR QUE PERTENESCA A LA VENTA.
+                                'PARA QUE NO RESTE LA EXISTENCIA 2 VECES Y PUEDAS COMPARAR LO REAL
+                                If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} And (EntregaDirecta Is NULL Or EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                                    Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                                    Return False
+                                End If
+                            End If
                         End If
+
                     End If
                 End If
 

vwd.webinfo

@@ -474,6 +474,8 @@
     
   
     
+  
+