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

Compilación

Browse Source
This commit is contained in:
rakcsle
2023-08-24 17:53:05 -07:00
parent e0800e68d2
commit 435a92dea3
12 changed files with 86 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Prospeccion/Prospectos.aspx.vb
View File

@@ -162,11 +162,11 @@ Partial Class Prospectos_Prospectos
End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
End Sub
Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer)
@@ -423,7 +423,7 @@ Partial Class Prospectos_Prospectos
#Region "Formatos Imprimir"
Protected Sub LnbImprimir_Click(sender As LinkButton, e As EventArgs) Handles LnbImprimir.Click
Protected Sub LnbImprimir_Click(sender As LinkButton, e As EventArgs) 'Handles LnbImprimir.Click
'Dim oWordApp As Microsoft.Office.Interop.Word.Application = Nothing
'Dim oWordDoc As Microsoft.Office.Interop.Word.Document = Nothing
'Dim objSelection As Microsoft.Office.Interop.Word.Selection = Nothing

2
Prospeccion/RepProspectosGIS.aspx.vb
View File

@@ -75,7 +75,7 @@ Partial Class Prospeccion_RepProspectosGIS
TmpDT.Columns.Add("Clave", GetType(String))
TmpDT.Columns.Add("CvePS", GetType(Integer))
DdlFiscalEstado.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstado.DataBind()
DdlFiscalEstado.DataSource = GlobalDTGralEstados("1") : DdlFiscalEstado.DataBind()
CargaVendidos()
End If