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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Prospeccion/Prospectos.aspx.vb
View File

@@ -178,7 +178,7 @@ Partial Class Prospectos_Prospectos
Dim ObjProspectos As New ClsProspectos
If CveProspecto = -1 Then
If ObjProspectos.AddProspectos(-1, TxtApellidoPaterno.Text.Trim, TxtApellidoMaterno.Text.Trim,
TxtNombres.Text.Trim, Now, "", "", "", 0, TxtCalle.Text.Trim,
TxtNombres.Text.Trim, NowADS(), "", "", "", 0, TxtCalle.Text.Trim,
TxtNumero.Text.Trim, "", TxtEntreCalle1.Text.Trim, "", TxtColonia.Text.Trim, -1, DdlMunicipios.SelectedValue.ToEntero,
TxtTelefono.Text.Trim, TxtCelular.Text.Trim, "", "", TxtCorreo.Text.Trim, "", "", "", -1, DdlProspectoClasificacion.SelectedValue.ToEntero, -1, TxtEmpresaNombre.Text.Trim, "", "", "",
TxtEmpresaCalle.Text.Trim, TxtEmpresaNumero.Text.Trim, TxtEmpresaColonia.Text.Trim, "", DdlEmpresaMunicipios.SelectedValue.ToEntero, TxtEmpresaTelefono.Text.Trim, "", "", TxtEmpresaPuesto.Text.Trim, "", False, "", "", "", "", -1, "", -1, -1, -1, "", -1, 0, -1, "", 0, "", DdlVendedor.SelectedValue.ToEntero, DdlCalificacion.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
@@ -190,7 +190,7 @@ Partial Class Prospectos_Prospectos
Else
If ObjProspectos.UpdateProspectos(-1, TxtApellidoPaterno.Text.Trim, TxtApellidoMaterno.Text.Trim,
TxtNombres.Text.Trim, Now, "", "", "", 0, TxtCalle.Text.Trim,
TxtNombres.Text.Trim, NowADS(), "", "", "", 0, TxtCalle.Text.Trim,
TxtNumero.Text.Trim, "", TxtEntreCalle1.Text.Trim, "", TxtColonia.Text.Trim, -1.ToEntero, DdlMunicipios.SelectedValue.ToEntero,
TxtTelefono.Text.Trim, TxtCelular.Text.Trim, "", "", TxtCorreo.Text.Trim, "", "", "", -1, DdlProspectoClasificacion.SelectedValue.ToEntero, -1, TxtEmpresaNombre.Text.Trim, "", "", "",
TxtEmpresaCalle.Text.Trim, TxtEmpresaNumero.Text.Trim, TxtEmpresaColonia.Text.Trim, "", DdlEmpresaMunicipios.SelectedValue.ToEntero, TxtEmpresaTelefono.Text.Trim, "", "", TxtEmpresaPuesto.Text.Trim, "", False, "", "", "", "", -1, "", -1, -1, -1, "", -1, 0, 1, "", 0, "", DdlVendedor.SelectedValue.ToEntero, DdlCalificacion.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProspecto) Then

2
Prospeccion/RepProspectosGIS.aspx.vb
View File

@@ -105,7 +105,7 @@ Partial Class Prospeccion_RepProspectosGIS
' Dim dtc As DataTable = DTApartados.FiltraParametros("CveCliente = " & drr("CveCliente").ToString)
' If Venta.AddVenta("Rem", 0, drr("CveCliente").ToString.ToEntero, -1, dtc.SUM("Precio"), 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, Now, "", "", Now, -1, -1, "", "", "", 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 0, 43) Then
' If Venta.AddVenta("Rem", 0, drr("CveCliente").ToString.ToEntero, -1, dtc.SUM("Precio"), 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, NowADS(), "", "", NowADS(), -1, -1, "", "", "", 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 0, 43) Then
' Dim CveVenta As Integer = Venta.CveVenta
' For Each dr As DataRow In dtc.Rows
' Dim CveUnidadMedida As Integer