AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compilacion correciones

Browse Source
This commit is contained in:
rakcsle
2023-08-24 11:23:50 -07:00
parent d094d993a2
commit e36f1786ed
23 changed files with 115 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
OC/CotizacionEnLinea.aspx.vb
View File

@@ -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""> ")