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

-- corrección colectivas

Browse Source
This commit is contained in:
rrene
2023-10-16 13:45:51 -07:00
parent de64e0cdba
commit 5d806e8728
5 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/OtrosIE.aspx.vb
View File

@@ -565,7 +565,7 @@ Partial Class Bancos_OtrosIE
End If End If
If TipoBeneficiario > 0 And TipoBeneficiario < 7 Then If TipoBeneficiario > 0 And TipoBeneficiario < 7 Then
If ObjColectiva.GetColectivas(CveColectiva, "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa, CveColectiva:=CveColectiva) Then
If ObjColectiva.DtResultados.Rows.Count > 0 Then If ObjColectiva.DtResultados.Rows.Count > 0 Then
TxtPagueseA.Text = ObjColectiva.Colectiva TxtPagueseA.Text = ObjColectiva.Colectiva
Else Else

2
Bancos/PopUpBuscarColectiva.aspx.vb
View File

@@ -46,7 +46,7 @@ Partial Class Bancos_PopUpBuscarColectiva
If TxtColectiva.Text.Trim <> String.Empty Then Colectiva = TxtColectiva.Text.Trim If TxtColectiva.Text.Trim <> String.Empty Then Colectiva = TxtColectiva.Text.Trim
If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
If ObjColectiva.GetColectivas(-1, Colectiva, Codigo, DdlTipo.SelectedValue, UsuarioActual.CveEmpresa) Then If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa, Tipo:=DdlTipo.SelectedValue) Then
If ObjColectiva.DtResultados.Rows.Count > 0 Then If ObjColectiva.DtResultados.Rows.Count > 0 Then
LtlTotalRegistros.Text = ObjColectiva.DtResultados.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = ObjColectiva.DtResultados.Rows.Count.ToString.FormatoNumero(0)

2
General/Colectivas.aspx.vb
View File

@@ -17,7 +17,7 @@ Partial Class General_Colectivas
Public Sub CargaDatos() Public Sub CargaDatos()
Dim ObjColectiva As New ClsGenerales Dim ObjColectiva As New ClsGenerales
If ObjColectiva.GetColectivas(-1, "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa) Then
ViewState("DTColectivas") = ObjColectiva.DtResultados ViewState("DTColectivas") = ObjColectiva.DtResultados
Else Else
Me.GvDatos.DataSource = Nothing Me.GvDatos.DataSource = Nothing

10
OC/CotizacionEnLinea.aspx.vb
View File

@@ -232,7 +232,7 @@ Partial Class OC_CotizacionEnLinea
ElseIf objCotizacion.CveColectiva > 0 Then ElseIf objCotizacion.CveColectiva > 0 Then
Dim objColectiva As New ClsGenerales Dim objColectiva As New ClsGenerales
If objColectiva.GetColectivas(CveColectiva, "-1", "-1", "1", CveEmpresa) Then If objColectiva.GetColectivas(CveEmpresa, CveColectiva:=CveColectiva) Then
If objColectiva.DtResultados.Rows.Count > 0 Then If objColectiva.DtResultados.Rows.Count > 0 Then
lblProveedor.Text = objColectiva.DtResultados.Rows(0)("Colectiva").ToString lblProveedor.Text = objColectiva.DtResultados.Rows(0)("Colectiva").ToString
End If End If
@@ -293,9 +293,9 @@ Partial Class OC_CotizacionEnLinea
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
Dim objCotizacion As New ClsOC Dim objCotizacion As New ClsOC
objCotizacion.IniciaTransacSQL() objCotizacion.IniciaTransacSQL()
Dim TieneError = False Dim TieneError As Boolean = False
If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, NowADS().ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, ClsPaginas.NowADS().ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then
If FUArchivo.HasFile Then If FUArchivo.HasFile Then
'verificar que exista el directorio 'verificar que exista el directorio
@@ -364,7 +364,7 @@ Partial Class OC_CotizacionEnLinea
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
If objCotizacion.GetOC(CveOrdenCompra, CveEmpresa) Then If objCotizacion.GetOC(CveOrdenCompra, CveEmpresa) Then
Dim Folio = "", Descripcion = "", Justificacion = "", Estatus = "", Empresa = "", FechaEstimadaEntrega = "" Dim Folio As String = "", Descripcion As String = "", Justificacion As String = "", Estatus As String = "", Empresa As String = "", FechaEstimadaEntrega As String = ""
Folio = objCotizacion.Folio.ToString Folio = objCotizacion.Folio.ToString
Descripcion = objCotizacion.Descripcion Descripcion = objCotizacion.Descripcion
@@ -509,7 +509,7 @@ Partial Class OC_CotizacionEnLinea
Protected Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound Protected Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = NowADS() e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = ClsPaginas.NowADS()
e.Row.FCTextBox("TxtPU").Attributes.Add("onchange", String.Format("$get('{0}').value = FormatNumber(parseFloat(this.value) * parseFloat($get('{1}').value), 2, true, true, true);", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.FCTextBox("TxtCant").ClientID)) e.Row.FCTextBox("TxtPU").Attributes.Add("onchange", String.Format("$get('{0}').value = FormatNumber(parseFloat(this.value) * parseFloat($get('{1}').value), 2, true, true, true);", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.FCTextBox("TxtCant").ClientID))
Page.ClientScript.RegisterExpandoAttribute(e.Row.FCCustomValidator("CVFechaEntrega").ClientID, "txtCantidadSurtir", e.Row.FCTextBox("txtCantidadSurtir").ClientID, False) Page.ClientScript.RegisterExpandoAttribute(e.Row.FCCustomValidator("CVFechaEntrega").ClientID, "txtCantidadSurtir", e.Row.FCTextBox("txtCantidadSurtir").ClientID, False)

4
OC/CotizacionEnvio.aspx.vb
View File

@@ -86,7 +86,7 @@ Partial Class OC_CotizacionEnvio
Protected Sub CargaColectivas() Protected Sub CargaColectivas()
Dim objColectiva As New ClsGenerales Dim objColectiva As New ClsGenerales
If objColectiva.GetColectivas(-1, "-1", "-1", "1", UsuarioActual.CveEmpresa) Then If objColectiva.GetColectivas(UsuarioActual.CveEmpresa, -1) Then
DtColectivas = objColectiva.DtResultados DtColectivas = objColectiva.DtResultados
ddlColectiva.DataSource = DtColectivas ddlColectiva.DataSource = DtColectivas
@@ -272,7 +272,7 @@ Partial Class OC_CotizacionEnvio
If TieneError = False Then If TieneError = False Then
Dim Body As String Dim Body As String
For i = 0 To Correo.Count - 1 For i As Integer = 0 To Correo.Count - 1
'Dim Body As String = GeneraCorreo(objCotizacion.CveCotizacion, objCotizacion) 'Dim Body As String = GeneraCorreo(objCotizacion.CveCotizacion, objCotizacion)
Body = GeneraCorreo(OrdenCotizacion(i), objCotizacion) Body = GeneraCorreo(OrdenCotizacion(i), objCotizacion)