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

Nivel de confianza al proveedor en requisiciones

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-08-14 17:59:02 -07:00
parent 0f43cbf64a
commit 3c400fa9fe
4 changed files with 18540 additions and 18483 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsCompProveedores.vb
View File

@@ -419,7 +419,8 @@ Public Class ClsCompProveedores
IdCtaContFondoGarantia As Integer, CtaContFondoGarantia As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaContRetISRAcreditable As Integer, CtaContRetISRACreditable As String, IdCtaContFondoGarantia As Integer, CtaContFondoGarantia As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaContRetISRAcreditable As Integer, CtaContRetISRACreditable As String,
IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer, IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "",
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "") As Boolean Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
Optional CveConfianzaProveedor As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -520,6 +521,8 @@ Public Class ClsCompProveedores
.Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion .Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
.Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With End With
@@ -559,7 +562,8 @@ Public Class ClsCompProveedores
IdCtaContFondoGarantia As Integer, CtaContFondoGarantia As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaContRetISRAcreditable As Integer, CtaContRetISRACreditable As String, IdCtaContFondoGarantia As Integer, CtaContFondoGarantia As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaContRetISRAcreditable As Integer, CtaContRetISRACreditable As String,
IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer, IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1, Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "") As Boolean Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
Optional CveConfianzaProveedor As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ProveedorUpdate") DataAdapter("PA_Comp_ProveedorUpdate")
@@ -661,6 +665,8 @@ Public Class ClsCompProveedores
.Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion .Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
.Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
End With End With
Try Try

26
Compras/Proveedores.aspx
View File

@@ -340,16 +340,22 @@
<asp:DropDownList ID="DdlMonedaPrefente" runat="server" CssClass="form-control select2me input-sm" Width="206px" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList> <asp:DropDownList ID="DdlMonedaPrefente" runat="server" CssClass="form-control select2me input-sm" Width="206px" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
</td> </td>
</tr> </tr>
<tr id="TrConfianzaProveedor" runat="server" visible="false">
<tr style="display:none" > <td>Nivel de confianza al proveedor:</td>
<td>
<asp:DropDownList ID="DdlConfianzaProveedor" runat="server" CssClass="form-control select2me input-sm" Width="206px">
<asp:ListItem Text="Seleccione" Selected="True" Value="-1"></asp:ListItem>
<asp:ListItem Text="Proveedor dedicado" Value="1"></asp:ListItem>
<asp:ListItem Text="Proveedor requiere cotización" Value="2"></asp:ListItem>
</asp:DropDownList>
</td>
</tr>
<tr style="display: none">
<td>Estatus SAT:</td> <td>Estatus SAT:</td>
<td> <td>
<asp:Label ID="LblSituacionSAT" runat="server"></asp:Label> <asp:Label ID="LblSituacionSAT" runat="server"></asp:Label>
</td> </td>
</tr> </tr>
</table> </table>
</div> </div>
</div> </div>
@@ -1667,7 +1673,7 @@
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GvA.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda4','{0}')", GvA.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<asp:GridView ID="GvA" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Anticipos" DataKeyNames="CveCompra" <asp:GridView ID="GvA" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Anticipos" DataKeyNames="CveCompra"
CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1"> CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1">
<Columns> <Columns>
<asp:TemplateField ItemStyle-Width="100px" HeaderText="NC/Anticipo"> <asp:TemplateField ItemStyle-Width="100px" HeaderText="NC/Anticipo">
@@ -1698,10 +1704,10 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Devolución" ItemStyle-HorizontalAlign="Center" Visible="false" ItemStyle-Width="50px"> <asp:TemplateField HeaderText="Devolución" ItemStyle-HorizontalAlign="Center" Visible="false" ItemStyle-Width="50px">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLDevolverDinero" Visible="false" NavigateUrl="#" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-usd'></i>" runat="server" /> <asp:HyperLink ID="HLDevolverDinero" Visible="false" NavigateUrl="#" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-usd'></i>" runat="server" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>

13
Compras/Proveedores.aspx.vb
View File

@@ -433,6 +433,10 @@ Partial Class Compras_Proveedores
UpEvaluaciones.Update() UpEvaluaciones.Update()
End If End If
If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
TrConfianzaProveedor.Visible = True
End If
If UsuarioActual.TienePermisoProceso(273) Then If UsuarioActual.TienePermisoProceso(273) Then
GvA.Columns(5).Visible = True GvA.Columns(5).Visible = True
End If End If
@@ -718,12 +722,13 @@ Partial Class Compras_Proveedores
DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString()) DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString())
DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString()) DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString())
DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor"))
DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString() DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString()
DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")") If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")
If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor
@@ -1377,7 +1382,8 @@ Partial Class Compras_Proveedores
DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text, DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text,
DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text) Then AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
Dim NuevoCveProveedor = ObjProveedores.CveProveedor Dim NuevoCveProveedor = ObjProveedores.CveProveedor
@@ -1530,7 +1536,8 @@ Partial Class Compras_Proveedores
DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text, DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text,
DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor, DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text) Then DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
'CargaDatos() 'CargaDatos()

186
OC/OC.aspx.vb
View File

@@ -432,6 +432,22 @@ Partial Class OC
ViewState("CveMovimientoAlmacenVenta") = value ViewState("CveMovimientoAlmacenVenta") = value
End Set End Set
End Property End Property
Private Property CveConfianzaProveedor As Integer
Get
Return IfNull(ViewState("CveConfianzaProveedor"), -1).ToString().ToEntero()
End Get
Set(value As Integer)
ViewState("CveConfianzaProveedor") = value
End Set
End Property
Private Property CveEstatusSupervisada As Integer
Get
Return IfNull(ViewState("CveEstatusSupervisada"), -1).ToString().ToEntero()
End Get
Set(value As Integer)
ViewState("CveEstatusSupervisada") = value
End Set
End Property
Private Property CveDireccionEnvio As Integer Private Property CveDireccionEnvio As Integer
@@ -480,11 +496,6 @@ Partial Class OC
End If End If
CargaDatos(CveOrdenCompra) CargaDatos(CveOrdenCompra)
'PnlProveedor.Visible = True
'UPProv.Update()
'NUEVO
Else Else
EsNuevo = True EsNuevo = True
InicializarValores() InicializarValores()
@@ -575,15 +586,6 @@ Partial Class OC
'ASIGNA ESTATUS OC 'ASIGNA ESTATUS OC
CboE_SelectedIndexChanged(New Object, New EventArgs) CboE_SelectedIndexChanged(New Object, New EventArgs)
''SI REQUIERE COTIZACION
'If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero <> CveEstatusFinalOK Then
' PnlProveedor.Visible = False : UPProv.Update()
' DdlIVA.Visible = False
'ElseIf ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero = CveEstatusFinalOK Then
' PnlProveedor.Visible = True : UPProv.Update()
' DdlIVA.Visible = True
'End If
End If End If
@@ -1152,6 +1154,10 @@ Partial Class OC
CveCompra = objOC.CveCompra CveCompra = objOC.CveCompra
CveMovimientoAlmacenVenta = objOC.CveMovimientoAlmacenVenta CveMovimientoAlmacenVenta = objOC.CveMovimientoAlmacenVenta
If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero
End If
'Anticipos 'Anticipos
CargarOptionAnticipos() CargarOptionAnticipos()
Dim objbancos As New ClsBancos Dim objbancos As New ClsBancos
@@ -1214,6 +1220,9 @@ Partial Class OC
DdlPrioridad.SelectedValueExist(objOC.Prioridad.ToString) DdlPrioridad.SelectedValueExist(objOC.Prioridad.ToString)
ChkCotizacion.Checked = objOC.RequiereCotizacion ChkCotizacion.Checked = objOC.RequiereCotizacion
If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
ChkCotizacion.Enabled = False
End If
tabCotizaciones.Enabled = objOC.RequiereCotizacion tabCotizaciones.Enabled = objOC.RequiereCotizacion
tabCotizaciones.UpdatePanelID = uppOpciones.ID tabCotizaciones.UpdatePanelID = uppOpciones.ID
TxtGuia.Text = objOC.Guia TxtGuia.Text = objOC.Guia
@@ -1436,7 +1445,11 @@ Partial Class OC
'CUANDO EL LA REGISRO Y TIENE ACCESO A ESE ESTATUS 'CUANDO EL LA REGISRO Y TIENE ACCESO A ESE ESTATUS
If objOC.CveUsuario = UsuarioActual.CveUsuario AndAlso (DtEstatusUsuarios.FiltraParametros(String.Format(" CveEstatus = {0}", CveEstatus)).Rows.Count >= 1 Or CveEstatus = 0) Then If objOC.CveUsuario = UsuarioActual.CveUsuario AndAlso (DtEstatusUsuarios.FiltraParametros(String.Format(" CveEstatus = {0}", CveEstatus)).Rows.Count >= 1 Or CveEstatus = 0) Then
GvD.Columns(9).Visible = True 'No permitir la edicion GvD.Columns(9).Visible = True 'No permitir la edicion
ChkCotizacion.Enabled = True If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
ChkCotizacion.Enabled = False
Else
ChkCotizacion.Enabled = True
End If
TxtDescrip.Enabled = True TxtDescrip.Enabled = True
TxtJustificacion.Enabled = True TxtJustificacion.Enabled = True
TxtFechaEstimadaEntrega.Enabled = True TxtFechaEstimadaEntrega.Enabled = True
@@ -1560,7 +1573,7 @@ Partial Class OC
'CARGA MOVTOS DE ALMACEN 'CARGA MOVTOS DE ALMACEN
InicializaMovtosAlmacen() InicializaMovtosAlmacen()
uppEstatus.Update()
End Sub End Sub
Protected Sub CargaHistorial() Protected Sub CargaHistorial()
@@ -1735,10 +1748,14 @@ Partial Class OC
Dim drInicial As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 3 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 3 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing) Dim drInicial As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 3 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 3 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing)
Dim drFinalOK As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 1 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 1 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing) Dim drFinalOK As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 1 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 1 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing)
Dim drFinalError As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 2 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 2 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing) Dim drFinalError As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 2 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 2 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing)
Dim drSupervisada As DataRow = If(GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 0 AND Tipo = '{0}'", TipoOC)).Rows.Count = 1, GlobalDTOCEstatus(CveEmpresaActual).FiltraParametros(String.Format("TipoTermino = 0 AND Tipo = '{0}'", TipoOC)).Rows(0), Nothing)
If Not drInicial Is Nothing Then CveEstatusInicial = drInicial("CveEstatus").ToString.ToEntero : EstatusInicial = drInicial("Estatus").ToString Else CveEstatusInicial = -1 : EstatusInicial = "" If Not drInicial Is Nothing Then CveEstatusInicial = drInicial("CveEstatus").ToString.ToEntero : EstatusInicial = drInicial("Estatus").ToString Else CveEstatusInicial = -1 : EstatusInicial = ""
If Not drFinalOK Is Nothing Then CveEstatusFinalOK = drFinalOK("CveEstatus").ToString.ToEntero : EstatusFinalOK = drFinalOK("Estatus").ToString Else CveEstatusFinalOK = -1 : EstatusFinalOK = "" If Not drFinalOK Is Nothing Then CveEstatusFinalOK = drFinalOK("CveEstatus").ToString.ToEntero : EstatusFinalOK = drFinalOK("Estatus").ToString Else CveEstatusFinalOK = -1 : EstatusFinalOK = ""
If Not drFinalError Is Nothing Then CveEstatusFinalError = drFinalError("CveEstatus").ToString.ToEntero : EstatusFinalError = drFinalError("Estatus").ToString Else CveEstatusFinalError = -1 : EstatusFinalError = "" If Not drFinalError Is Nothing Then CveEstatusFinalError = drFinalError("CveEstatus").ToString.ToEntero : EstatusFinalError = drFinalError("Estatus").ToString Else CveEstatusFinalError = -1 : EstatusFinalError = ""
If Not drSupervisada Is Nothing Then CveEstatusSupervisada = drSupervisada("CveEstatus").ToString.ToEntero
End Sub End Sub
Private Sub CargaComboCFDI() Private Sub CargaComboCFDI()
DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI
@@ -2167,24 +2184,45 @@ Partial Class OC
TieneError = True TieneError = True
End If End If
If ChkCotizacion.Checked And DtDetalle.FiltraParametros("ISNULL(CveProveedor,0) <= 0", "CveProveedor").Rows.Count > 0 Then 'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
Alert("Todos los conceptos de la Requisición deben tener proveedor ganador seleccionado.", TipoMensaje.MsgAdvertencia) If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
TieneError = True If (TipoOC.ToUpper = "REQ" And CboE.SelectedValue.ToEntero.Contiene(CveEstatusSupervisada, CveEstatusFinalOK)) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
TieneError = True
End If
End If
'VALIDA QUE TENGA LAS COTIZACIONES QUE DEBEN TENER
If UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0 AndAlso (TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero) Then
If CveConfianzaProveedor > 0 Then
If CveConfianzaProveedor = 1 AndAlso Me.NumCotizaciones < 1 Then
Alert("Para el proveedor seleccionado es necesario terner al menos 1 cotización.", TipoMensaje.MsgAdvertencia)
TieneError = True
ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones < 2 Then
Alert("Para el proveedor seleccionado es necesario terner al menos 2 cotizaciones", TipoMensaje.MsgAdvertencia)
TieneError = True
End If
End If
End If
If Not UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
If ChkCotizacion.Checked And DtDetalle.FiltraParametros("ISNULL(CveProveedor,0) <= 0", "CveProveedor").Rows.Count > 0 Then
Alert("Todos los conceptos de la Requisición deben tener proveedor ganador seleccionado.", TipoMensaje.MsgAdvertencia)
TieneError = True
End If
End If End If
Return TieneError Return TieneError
End Function End Function
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
'If CveEmpresaActual = 66 AndAlso notienepresupuesto() Then
' Exit Sub
'End If
'VALIDACIONES PARA GUARDAR 'VALIDACIONES PARA GUARDAR
If ValidaGuardar() Then Exit Sub If ValidaGuardar() Then Exit Sub
Dim MsgError As String = "Hubo un error al registrar"
'VARIABLES 'VARIABLES
Dim CveProveedorSucursal As Integer = -1 Dim CveProveedorSucursal As Integer = -1
Dim CveProveedorContacto As Integer = -1 Dim CveProveedorContacto As Integer = -1
@@ -2226,7 +2264,7 @@ Partial Class OC
End If End If
'siempre se esta guardando el proveedor 'siempre se esta guardando el proveedor
If Not ChkCotizacion.Checked Then If Not ChkCotizacion.Checked OrElse (UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0) Then
CveProveedor = DdlProveedores.SelectedValue.ToEntero CveProveedor = DdlProveedores.SelectedValue.ToEntero
CveProveedorSucursal = DdlProveedorSucursal.SelectedValue.ToEntero CveProveedorSucursal = DdlProveedorSucursal.SelectedValue.ToEntero
CveProveedorContacto = IIf(DdlProveedorContacto.SelectedValue.ToEntero = 0, "-1", DdlProveedorContacto.SelectedValue).ToString.ToEntero CveProveedorContacto = IIf(DdlProveedorContacto.SelectedValue.ToEntero = 0, "-1", DdlProveedorContacto.SelectedValue).ToString.ToEntero
@@ -2386,7 +2424,9 @@ Partial Class OC
Dim FueModificada As Boolean = False Dim FueModificada As Boolean = False
'siempre se esta guardando el proveedor 'siempre se esta guardando el proveedor
If Not ChkCotizacion.Checked Then CveProveedor = DdlProveedores.SelectedValue.ToEntero If Not ChkCotizacion.Checked OrElse (UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0) Then
CveProveedor = DdlProveedores.SelectedValue.ToEntero
End If
If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.SelectedValue.ToEntero, LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.SelectedValue.ToEntero,
@@ -2683,7 +2723,25 @@ Partial Class OC
'SI requiere Cotizacion y el estatus a el que se actualizo es el FinalOK, generar las ordenes de compra 'SI requiere Cotizacion y el estatus a el que se actualizo es el FinalOK, generar las ordenes de compra
If Not TieneError Then If Not TieneError Then
If TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero Then If TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero Then
TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
If CveConfianzaProveedor > 0 Then
If CveConfianzaProveedor = 1 AndAlso Me.NumCotizaciones >= 1 Then
TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones >= 2 Then
TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
Else
TieneError = True
End If
Else
TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
End If
Else
TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
End If
End If End If
End If End If
@@ -2726,7 +2784,7 @@ Partial Class OC
Else Else
OC.RollBack() OC.RollBack()
If Conta IsNot Nothing Then Conta.RollBack() If Conta IsNot Nothing Then Conta.RollBack()
Alert("Hubo un error al registrar", TipoMensaje.MsgError) Alert(MsgError, TipoMensaje.MsgError)
End If End If
End If End If
@@ -4826,10 +4884,15 @@ Partial Class OC
Protected Sub VerificaSiRequiereCotizacion() Protected Sub VerificaSiRequiereCotizacion()
If TipoOC = "REQ" Then If TipoOC = "REQ" Then
If ChkCotizacion.Checked Then If ChkCotizacion.Checked Then
PnlProveedor.Visible = False If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
If CveOrdenCompra > 0 AndAlso CveEstatus.Contiene(CveEstatusSupervisada, CveEstatusFinalOK) Then
'12/04/2018 DdlProveedores.Attributes.Add("disabled", "disabled")
'DdlIVA.Visible = False DdlProveedores.Enabled = False
ImgCambiaProv.Visible = False
End If
Else
PnlProveedor.Visible = False
End If
UPProv.Update() : UPPEmp.Update() UPProv.Update() : UPPEmp.Update()
BtnGuardar.Text = "Guardar" BtnGuardar.Text = "Guardar"
@@ -4839,19 +4902,13 @@ Partial Class OC
''temporal, si es nueva, le podras mover el proveedor, pero si ya esta registrada, debes de tener permisos para hacerlo ''temporal, si es nueva, le podras mover el proveedor, pero si ya esta registrada, debes de tener permisos para hacerlo
If CveOrdenCompra = 0 OrElse (CveOrdenCompra > 0 AndAlso UsuarioActual.TienePermisoProceso(106) AndAlso ChkCotizacion.Checked = False) Then If CveOrdenCompra = 0 OrElse (CveOrdenCompra > 0 AndAlso UsuarioActual.TienePermisoProceso(106) AndAlso ChkCotizacion.Checked = False) Then
PnlProveedor.Visible = True : UPProv.Update() : UPPEmp.Update() PnlProveedor.Visible = True : UPProv.Update() : UPPEmp.Update()
DdlProveedores.Enabled = True
'12/04/2018
'DdlIVA.Visible = True
'CVPU.Enabled = True
End If End If
BtnGuardar.Enabled = True BtnGuardar.Enabled = True
If CveEstatus = CveEstatusFinalOK Then If CveEstatus = CveEstatusFinalOK Then
BtnGuardar.Text = String.Format("Guardar{0}", If(CboE.SelectedValue.ToEntero = CveEstatusFinalOK, " y Generar OC", "")) BtnGuardar.Text = String.Format("Guardar{0}", If(CboE.SelectedValue.ToEntero = CveEstatusFinalOK, " y Generar OC", ""))
PnlProveedor.Visible = True PnlProveedor.Visible = True
DdlProveedores.Enabled = True
'12/04/2018
'DdlIVA.Visible = True
UPProv.Update() : UPPEmp.Update() UPProv.Update() : UPPEmp.Update()
End If End If
@@ -4953,13 +5010,18 @@ Partial Class OC
End If End If
End If End If
If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If Objeto.DtResultados.Rows.Count > 0 Then
Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
ChkCotizacion.Checked = CveConfianzaProveedor > 0
ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
End If
End If
'MONEDA PREFERENTE 'MONEDA PREFERENTE
If CveOrdenCompra <= 0 Then If CveOrdenCompra <= 0 Then
If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then DdlMoneda.SelectedValueExist(Objeto.CveMonedaPreferente)
If Objeto.DtResultados.Rows.Count > 0 Then
DdlMoneda.SelectedValueExist(Objeto.CveMonedaPreferente)
End If
End If
End If End If
'MUESTRA IVA PROVEEDOR EXTRANJERO 'MUESTRA IVA PROVEEDOR EXTRANJERO
@@ -4979,9 +5041,13 @@ Partial Class OC
End If End If
Objeto.Dispose() Objeto.Dispose()
VerificaSiRequiereCotizacion()
DdlProveedorSucursal.DataBind() DdlProveedorSucursal.DataBind()
UPProv.Update() : UPPEmp.Update() UPProv.Update() : UPPEmp.Update()
UPPDetalle.Update() UPPDetalle.Update()
uppEstatus.Update()
End Sub End Sub
@@ -4999,14 +5065,8 @@ Partial Class OC
If ChkCotizacion.Checked = False Then If ChkCotizacion.Checked = False Then
PnlProveedor.Visible = True : UPProv.Update() PnlProveedor.Visible = True : UPProv.Update()
'12/04/2018
'DdlIVA.Visible = True
Else Else
PnlProveedor.Visible = False : UPProv.Update() PnlProveedor.Visible = UsuarioActual.Empresa.Funcionalidad(565) = "1" : UPProv.Update()
'12/04/2018
'DdlIVA.Visible = False
End If End If
If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero.Contiene(CveEstatusFinalOK) AndAlso TipoOS = False Then If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero.Contiene(CveEstatusFinalOK) AndAlso TipoOS = False Then
@@ -5030,24 +5090,9 @@ Partial Class OC
uppOpciones.Update() uppOpciones.Update()
End If End If
'temporal
If ChkCotizacion.Checked = False AndAlso CveEstatus <> CveEstatusFinalOK Then
' PnlProveedor.Visible = True : UPProv.Update() : UPPEmp.Update()
'12/04/2018
'DdlIVA.Visible = True
'CVPU.Enabled = True
End If
If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero = CveEstatusFinalError AndAlso TipoOS = False Then If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero = CveEstatusFinalError AndAlso TipoOS = False Then
BtnGuardar.Text = "Guardar" : uppOpciones.Update() BtnGuardar.Text = "Guardar" : uppOpciones.Update()
'PnlProveedor.Visible = False : UPProv.Update() : UPPEmp.Update()
'12/04/2018
'DdlIVA.Visible = False
'CVPU.Enabled = True
If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ") If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ")
End If End If
Else Else
@@ -5060,13 +5105,6 @@ Partial Class OC
End If End If
UPPEmp.Update() UPPEmp.Update()
'If TipoOC.ToUpper = "REQ" AndAlso ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero = CveEstatusFinalOK Then
' trProveedor.Visible = True
' UPPEmp.Update()
'End If
'Si NO requiere cotizacion y el estatus siguiente es el final, el Boton Guardar sera Guardar Y Generar Orden
' If CveOrdenCompra > 0 AndAlso ChkCotizacion.Checked = False AndAlso CveEstatusSiguiente = CveEstatusFinalOK Then BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update()
End Sub End Sub
#Region " DATOS DE VENTA (PORLET) " #Region " DATOS DE VENTA (PORLET) "