-

OC/CotizacionEnLinea.aspx.vb

@@ -306,7 +306,7 @@ Partial Class OC_CotizacionEnLinea
             End If
 
             For Each dr As GridViewRow In GvD.Rows
-                If Not objCotizacion.UpdateCotizacionDetalle(dr.DataKey("CveCotizacionDetalle").ToEntero, dr.FCTextBox("TxtPU").Text.ToDouble, dr.FCTextBox("txtCantidadSurtir").Text.ToDouble, If(dr.FCTextBox("txtFechaEntrega").Text.Trim = "" Or dr.FCTextBox("txtFechaEntrega").Text = "__/__/____", "-1", dr.FCTextBox("txtFechaEntrega").Text), dr.FCTextBox("txtObservacion").Text.ToString) Then
+                If Not objCotizacion.UpdateCotizacionDetalle(dr.DataKey("CveCotizacionDetalle").ToEntero, dr.FCTextBox("TxtPU").Text.ToDecimal, dr.FCTextBox("txtCantidadSurtir").Text.ToDecimal, If(dr.FCTextBox("txtFechaEntrega").Text.Trim = "" Or dr.FCTextBox("txtFechaEntrega").Text = "__/__/____", "-1", dr.FCTextBox("txtFechaEntrega").Text), dr.FCTextBox("txtObservacion").Text.ToString) Then
                     TieneError = True
                     Exit For
                 End If
@@ -366,12 +366,12 @@ Partial Class OC_CotizacionEnLinea
         If objCotizacion.GetOC(CveOrdenCompra, CveEmpresa) Then
             Dim Folio = "", Descripcion = "", Justificacion = "", Estatus = "", Empresa = "", FechaEstimadaEntrega = ""
 
-            Folio = objCotizacion.Folio
+            Folio = objCotizacion.Folio.ToString
             Descripcion = objCotizacion.Descripcion
             Justificacion = objCotizacion.Justificacion
             Estatus = objCotizacion.Estatus
             Empresa = objCotizacion.Empresa
-            FechaEstimadaEntrega = objCotizacion.FechaEstimadaEntrega
+            FechaEstimadaEntrega = objCotizacion.FechaEstimadaEntrega.ToString("dd/MM/yyyy")
 
             If objCotizacion.GetCotizaciones(-1, CveCotizacion) Then
                 strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")

OC/CotizacionEnvio.aspx.vb

@@ -234,7 +234,7 @@ Partial Class OC_CotizacionEnvio
                             'Agrega CveCotizacion a la lista
                             OrdenCotizacion.Add(objCotizacion.CveCotizacion)
                             For Each RowCD As DataRow In objCotizacion.DtResultados.Rows
-                                If Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, RowCD("CvePS").ToString.ToEntero, -1, RowCD("Cantidad").ToString.ToDouble, RowCD("CveUnidadMedida").ToString.ToEntero, 0, "-1", "", RowCD("CveOrdenCompraDetalle").ToString.ToEntero) Then TieneError = True : Exit For
+                                If Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, RowCD("CvePS").ToString.ToEntero, -1, RowCD("Cantidad").ToString.ToDecimal, RowCD("CveUnidadMedida").ToString.ToEntero, 0, "-1", "", RowCD("CveOrdenCompraDetalle").ToString.ToEntero) Then TieneError = True : Exit For
                             Next
 
                             'If TieneError = False Then

OC/OC.aspx.vb

@@ -1,4 +1,5 @@
 Option Explicit On
+Option Strict On
 
 Imports System.Data
 Imports System.IO
@@ -3319,7 +3320,7 @@ Partial Class OC_OC
             If ChkCotizacion.Checked AndAlso NoProveedoresCot > 0 AndAlso (NumCotizacionesGanadoras > 0 OrElse Not (NumCotizacionesGanadoras <= 0 AndAlso CveConfianzaProveedor = 1)) Then
                 Dim CveProveedor = -1
                 Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0
-                Dim PorIVA  As Decimal = 0
+                Dim PorIVA As Decimal = 0
                 Dim IdPoliza = -1
 
 
@@ -3343,7 +3344,7 @@ Partial Class OC_OC
 
                         If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
                                                          CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
-                                                        PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
+                                                        PorcentajeIVA:=PorIVA.ToDecimal, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
                                                          EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
                                                          CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim) Then
 
@@ -8537,7 +8538,7 @@ Partial Class OC_OC
                         Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero)
                         Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
 
-                        AddPS(Cantidad, CvePS, PS, "", PrecioUnitario, 0, TotalPS, CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UM, Clasificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, LblCodigo.Text,
+                        AddPS(Cantidad.ToString, CvePS, PS, "", PrecioUnitario, 0, TotalPS, CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UM, Clasificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, LblCodigo.Text,
                     CveActivoFijo, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer, IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero,
                      DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR)
 
@@ -8662,7 +8663,7 @@ Partial Class OC_OC
 
             If Cantidad > 0 Then
 
-                AddPS(Cantidad, CvePS, PS, PS, PU, 0, TotalPS,
+                AddPS(Cantidad.ToString, CvePS, PS, PS, PU, 0, TotalPS,
                 CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UMAbreviatura, Clasificacion, CveProyecto, Proyecto,
                 CveSubProyecto, SubProyecto, Codigo, -1, 0, -1, -1, IdCuentaPorEjercer,
                 IdCuentaComprometido, -1, -1, -1, -1,

OC/RegOp.aspx.vb

@@ -30,7 +30,7 @@ Partial Class RegOp
             Master.EsPopup = True
 
             If Request("p") IsNot Nothing Then
-                If Decripta(Request("p")) Then
+                If Decripta(Request("p")).Length > 0 Then
 
                     Dim Par As Hashtable = ClsPaginas.UrlParametros
                     Select Case Par("OP").ToString

OC/RepCotizaciones.aspx.vb

@@ -260,7 +260,7 @@ Partial Class RepCotizaciones
 
                             'Ingresar los detalles
                             For Each RowD As DataRow In DtCotizacionesDetalle.FiltraParametros("CveCotizacion = " + CveCotizacion.ToString).Rows
-                                If Not objCotizacion.AddOrdenCompraDetalle(CveOrdenCompra, RowD("Cantidad").ToString.ToDouble, RowD("CveUnidadMedida").ToString.ToEntero, RowD("CvePS").ToString.ToEntero, 0, -1, If(Not IsDBNull(Row("CveActivoFijo")), Row("CveActivoFijo").ToString.ToEntero, -1), Row("Observacion").ToString, UsuarioActual.CveUsuario) Then
+                                If Not objCotizacion.AddOrdenCompraDetalle(CveOrdenCompra, RowD("Cantidad").ToString.ToDecimal, RowD("CveUnidadMedida").ToString.ToEntero, RowD("CvePS").ToString.ToEntero, 0, -1, If(Not IsDBNull(Row("CveActivoFijo")), Row("CveActivoFijo").ToString.ToEntero, -1), Row("Observacion").ToString, UsuarioActual.CveUsuario) Then
                                     HuboError = True
                                 End If
                             Next