I commented almost all lines but nothing
the code is this
AUXILIO! EXTREMA URGENCIA!!! System.Reflection.AmbiguousMatchException: Se
ha encontrado una coincidencia ambigua
Una aplicacion me dejo de funcionar y me saca ese errror el codigo es el
siguiente
<%@ Register TagPrefix="uc1" TagName="menu" Src="menu.ascx" %>
<%@ Page Language="vb" AutoEventWireup="false"
Codebehind="consultaproducon.aspx.vb"
Inherits="SolicitudMantenimiento.consultaproducon" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>default</title>
<meta content="Microsoft Visual Studio .NET 7.1" name=GENERATOR>
<meta content="Visual Basic .NET 7.1" name=CODE_LANGUAGE>
<meta content=JavaScript name=vs_defaultClientScript>
<meta content=http://schemas.microsoft.com/intellisense/ie5
name=vs_targetSchema>
</HEAD>
<body>
<form id=Form1 method=post runat="server">
<TABLE id=Table1 style="HEIGHT: 104px" cellSpacing=0 cellPadding=0 width=800
border=1>
<TBODY>
<TR>
<TD colSpan=2>
<P align=center><IMG src="cabezote-con-foto.jpg" ></P></TD></TR>
<TR>
<TD style="HEIGHT: 26px" vAlign=top align=center width="100%"
bgColor=blue
colSpan=2>
<P align=left><uc1:menu id=Menu1
runat="server"></uc1:menu></P></TD></TR>
<TR>
<TD vAlign=top>
<P align=center><asp:label id=Label1 runat="server"></asp:label></P>
<P align=center><FONT face="Trebuchet MS"
<STRONG>APLICATIVO DE SOLICITUD DE SERVICIOS DE MANTENIMIENT </STRONG></FONT></P><asp:panel
id=panellogin
runat="server" Width="100%" Height="27px">
<asp:DataGrid id=dgsolicitud runat="server" Width="800px" CellSpacing="1"
ForeColor="Black" BorderWidth="1pt" BackColor="White" Font-Size="X-Small"
Font-Names="Trebuchet MS" BorderColor="Black" AutoGenerateColumns="False"
CellPadding="3">
<HeaderStyle BackColor="Orange"></HeaderStyle>
<Columns>
<asp:BoundColumn DataField="idserviciomantenimiento"
HeaderText="Id"></asp:BoundColumn>
<asp:BoundColumn DataField="Nombre"
HeaderText="Nombre"></asp:BoundColumn>
<asp:BoundColumn DataField="Diagnostico"
HeaderText="Diagnostico"></asp:BoundColumn>
<asp:BoundColumn DataField="Estado"
HeaderText="Estado"></asp:BoundColumn>
<asp:ButtonColumn Text="Procesar" HeaderText="Procesar"
CommandName="Ejecutar" >
<ItemStyle ForeColor="Blue"></ItemStyle>
</asp:ButtonColumn>
<asp:ButtonColumn Text="Finalizar" HeaderText="Finalizar"
CommandName="Finalizar">
<ItemStyle ForeColor="Blue"></ItemStyle>
</asp:ButtonColumn>
</Columns>
</asp:DataGrid></asp:panel><asp:panel id=panelanalizar
runat="server" Height="152px" Visible="False">
<TABLE id=Table2 style="HEIGHT: 219px" borderColor=black cellSpacing=1
cellPadding=1 width=800 border=1>
<TR>
<TD align=center bgColor=orange colSpan=2 ?><FONT
face="Trebuchet MS"><STRONG>DETALLE DE SERVICIO DE
MANTENIMIENTO</STRONG></FONT></TD></TR>
<TR>
<TD style="WIDTH: 262px">
<asp:Label id=Label2 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Id</asp:Label></TD>
<TD>
<asp:Label id=ID runat="server" Font-Size="X-Small" Font-Names="Trebuchet
MS"></asp:Label></TD></TR>
<TR>
<TD style="WIDTH: 262px; HEIGHT: 22px">
<asp:Label id=Label3 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Nombre</asp:Label></TD>
<TD style="HEIGHT: 22px">
<asp:Label id=nombre runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS"></asp:Label></TD></TR>
<TR>
<TD style="WIDTH: 262px">
<asp:Label id=Label4 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Centro de Costos</asp:Label></TD>
<TD>
<asp:Label id=centrodecostos runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS"></asp:Label></TD></TR>
<TR>
<TD style="WIDTH: 262px">
<asp:Label id=Label5 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Prioridad</asp:Label></TD>
<TD>
<asp:Label id=prioridad runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS"></asp:Label></TD></TR>
<TR>
<TD style="WIDTH: 262px">
<asp:Label id=Label6 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Diagnostico</asp:Label></TD>
<TD>
<asp:Label id=diagnostico runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS"></asp:Label></TD></TR>
<TR>
<TD style="WIDTH: 262px">
<asp:Label id=Label7 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Comentarios Usuario</asp:Label></TD>
<TD>
<asp:Label id=comentariosusuario runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS"></asp:Label></TD></TR>
<TR>
<TD style="WIDTH: 262px">
<asp:Label id=Label8 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Comentarios Producon</asp:Label></TD>
<TD>
<asp:TextBox id=TextBox1 runat="server" Width="400px" Height="110px"
BorderWidth="1px" BorderColor="Black" BorderStyle="Solid"
TextMode="MultiLine">comentarios</asp:TextBox>
<asp:RequiredFieldValidator id=RequiredFieldValidator1 runat="server"
ErrorMessage="RequiredFieldValidator">*</asp:RequiredFieldValidator></TD></T
R>
<TR>
<TD style="WIDTH: 262px">
<asp:Label id=Label9 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Fecha Estimada Inicio</asp:Label></TD>
<TD>
<asp:TextBox id=fechainicio runat="server" BorderWidth="1px"
BorderColor="Black" BorderStyle="Solid"></asp:TextBox>
<asp:RegularExpressionValidator id=RegularExpressionValidator1
runat="server" ErrorMessage="RegularExpressionValidator"
ControlToValidate="fechainicio"
ValidationExpression="^(([0-2]\d|[3][0-1])\/([0]\d|[1][0-2])\/[2][0]\d{2})$"Formato dd/mm/aaaa</asp:RegularExpressionValidator></TD></TR> <TR>
<TD style="WIDTH: 262px">
<asp:Label id=Label10 runat="server" Font-Size="X-Small"
Font-Names="Trebuchet MS">Fecha Estimada Fin</asp:Label></TD>
<TD>
<asp:TextBox id=fechafin runat="server" BorderWidth="1px"
BorderColor="Black" BorderStyle="Solid"></asp:TextBox>
<asp:RegularExpressionValidator id=RegularExpressionValidator2
runat="server" ErrorMessage="RegularExpressionValidator"
ControlToValidate="fechafin"
ValidationExpression="^(([0-2]\d|[3][0-1])\/([0]\d|[1][0-2])\/[2][0]\d{2})$"Formato dd/mm/aaaa</asp:RegularExpressionValidator></TD></TR> <TR>
<TD align=center colSpan=2>
<asp:Button id=ejecutar runat="server" Text="Ejecutar"></asp:Button>
<asp:Button id=rechazar runat="server"
Text="Rechazar"></asp:Button></TD></TR></TABLE></asp:panel></TD></TR></TBODY</TABLE></form>
</body>
</HTML>
Le puse comentarios a todo y nada....
Imports System.Data.SqlClient
Public Class consultaproducon
Inherits System.Web.UI.Page
#Region " Código generado por el Diseñador de Web Forms "
'El Diseñador de Web Forms requiere esta llamada.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "workstation id=LUISVAL;packet
size=4096;user id=escritura;data source=med20nt;per" & _
"sist security info=False;initial catalog=seradmin; password=escritura"
End Sub
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents panellogin As System.Web.UI.WebControls.Panel
Protected WithEvents panelanalizar As System.Web.UI.WebControls.Panel
Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
Protected WithEvents dgsolicitud As System.Web.UI.WebControls.DataGrid
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents Label4 As System.Web.UI.WebControls.Label
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents Label6 As System.Web.UI.WebControls.Label
Protected WithEvents Label7 As System.Web.UI.WebControls.Label
Protected WithEvents Label8 As System.Web.UI.WebControls.Label
Protected WithEvents Label9 As System.Web.UI.WebControls.Label
Protected WithEvents Label10 As System.Web.UI.WebControls.Label
Protected WithEvents ID As System.Web.UI.WebControls.Label
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents fechainicio As System.Web.UI.WebControls.TextBox
Protected WithEvents fechafin As System.Web.UI.WebControls.TextBox
Protected WithEvents RequiredFieldValidator1 As
System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents RegularExpressionValidator1 As
System.Web.UI.WebControls.RegularExpressionValidat or
Protected WithEvents RegularExpressionValidator2 As
System.Web.UI.WebControls.RegularExpressionValidat or
Protected WithEvents ejecutar As System.Web.UI.WebControls.Button
Protected WithEvents rechazar As System.Web.UI.WebControls.Button
Protected WithEvents nombre As System.Web.UI.WebControls.Label
Protected WithEvents centrodecostos As System.Web.UI.WebControls.Label
Protected WithEvents prioridad As System.Web.UI.WebControls.Label
Protected WithEvents diagnostico As System.Web.UI.WebControls.Label
Protected WithEvents comentariosusuario As System.Web.UI.WebControls.Label
'NOTA: el Diseñador de Web Forms necesita la siguiente declaración del
marcador de posición.
'No se debe eliminar o mover.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método
'No la modifique con el editor de código.
InitializeComponent()
End Sub
#End Region
Protected WithEvents menu1 As menu
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
'If Not Page.IsPostBack Then
menu1.usuario = StrReverse(Mid(StrReverse(User.Identity.Name), 1,
InStr(StrReverse(User.Identity.Name), "\") - 1))
' populatedataset()
'End If
End Sub
'Public Sub populatedataset()
' Dim myds As DataSet = New DataSet
' Dim myadapter As SqlDataAdapter = New SqlDataAdapter("select * from
vistaSolicitudServicioMantenimiento", SqlConnection1)
' Try
' SqlConnection1.Open()
' myadapter.Fill(myds, "vistaSolicitudServicioMantenimiento")
' dgsolicitud.DataSource =
myds.Tables("vistaSolicitudServicioMantenimiento") .DefaultView
' dgsolicitud.DataBind()
' Catch ex As Exception
' Label1.Text = ex.Message
' End Try
'End Sub
'Private Sub dgSolicitud_EditCommand(ByVal source As System.Object, ByVal e
As System.Web.UI.WebControls.DataGridCommandEventArgs )
' dgsolicitud.EditItemIndex = e.Item.ItemIndex
' populatedataset()
'End Sub
'Private Sub dgSolicitud_UpdateCommand(ByVal source As System.Object, ByVal
e As System.Web.UI.WebControls.DataGridCommandEventArgs )
' If Page.IsValid Then
' Dim estador As RadioButtonList = e.Item.FindControl("estadot")
' Dim fechai As TextBox = e.Item.FindControl("fechainiciot")
' Dim fechaf As TextBox = e.Item.FindControl("fechafint")
' Dim comentarios As TextBox = e.Item.FindControl("comentariosproducomt")
' Dim mysqlcmd As SqlCommand = New SqlCommand("uptate
intranetsolicitudmantenimiento set estado=@estado,
observaciones=@observaciones, fechaincioest=@fechainicioest,
fechafinest@fechafinest where idserviciomantenimiento=@id", SqlConnection1)
' mysqlcmd.Parameters.Add("@id", e.Item.ItemIndex)
' mysqlcmd.Parameters.Add("@estado", estador.SelectedValue)
' mysqlcmd.Parameters.Add("@observaciones", comentarios.Text)
' mysqlcmd.Parameters.Add("@fechainicioest", fechai.Text)
' mysqlcmd.Parameters.Add("@fechafinest", fechaf.Text)
' Try
' SqlConnection1.Open()
' mysqlcmd.ExecuteNonQuery()
' Catch ex As Exception
' Label1.Text = ex.Message
' Finally
' SqlConnection1.Close()
' End Try
' End If
'End Sub
'Private Sub dgsolicitud_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataGridItemEventArgs) Handles
dgsolicitud.ItemDataBound
' If Trim(e.Item.Cells(3).Text) = "ENVIADO" Then
' e.Item.Cells(5).Text = "No puede finalizar"
' ElseIf Trim(e.Item.Cells(3).Text) = "EN EJECUCION" Then
' e.Item.Cells(4).Text = "Esta en ejecucion"
' ElseIf Trim(e.Item.Cells(3).Text) = "FINALIZO" Then
' e.Item.Cells(5).Text = ""
' e.Item.Cells(4).Text = ""
' End If
'End Sub
'Private Sub dgsolicitud_ItemCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles
dgsolicitud.ItemCommand
' Dim idint As Int32 = e.Item.ItemIndex
' Dim rows As DataRow() =
myds.Tables("vistaSolicitudServicioMantenimiento") .Select("idserviciomanteni
miento = " + idint + "")
' If e.CommandName = "Procesar" Then
' dgsolicitud.Visible = False
' panelanalizar.Visible = True
' nombre.Text = rows(0).Item(1)
' centrodecostos.Text = rows(0).Item(4)
' prioridad.Text = rows(0).Item(5)
' diagnostico.Text = rows(0).Item(7)
' comentariosusuario.Text = rows(0).Item(10)
' End If
' If e.CommandName = "Finalizar" Then
' End If
'End Sub
End Class
AUXLIO
--
LUIS ESTEBAN VALENCIA
MICROSOFT DCE 2.
MIEMBRO ACTIVO DE ALIANZADEV
--
LUIS ESTEBAN VALENCIA
MICROSOFT DCE 2.
MIEMBRO ACTIVO DE ALIANZADEV
