-
-
-
-
- Cuentas Contables Anticipos
-
-
-
-
-
-
-
- | Anticipos: |
-
-
-
-
- |
-
-
- |
-
-
- | Extranjera: |
-
-
- |
-
-
- |
- |
-
-
-
-
- |
-
-
-
-
+
+
+
+ Cuentas Contables Doctos. X Pagar
+
+
+
+
+
+
+
+ | Doctos. x Pagar: |
+
+
+
+
+ |
+
+
+ |
+
+
+ | Extranjera: |
+
+
+ |
+
+
+ |
+ |
+
+
+
+
+ |
+
+
+
+ |
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 419275723..594662fde 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -946,6 +946,12 @@ Partial Class Compras_Proveedores
DdlCtaContDocsXPagarComplementaria.AutoPostBack = True
DdlCtaContRetISRAcreditable.AutoPostBack = True
+ 'Proveedores
+ Dim drr As DataRow = ObjProveedor.DtResultados.Rows(0)
+ If drr("IdCtaContProveedores").ToString <> "" Then DdlCtaContProveedores.Items.Add(New ListItem(drr("CtaContProveedores").ToString, drr("IdCtaContProveedores").ToString)) : DdlCtaContProveedores.SelectedValueExist(drr("IdCtaContProveedores").ToString)
+ If drr("IdCtaContExtranjera").ToString <> "" Then DdlCtaContExtranjera.Items.Add(New ListItem(drr("CtaContExtranjera").ToString, drr("IdCtaContExtranjera").ToString)) : DdlCtaContExtranjera.SelectedValue = drr("IdCtaContExtranjera").ToString
+ If drr("IdCtaContComplementaria").ToString <> "" Then DdlCtaContComplementaria.Items.Add(New ListItem(drr("CtaContComplementaria").ToString, drr("IdCtaContComplementaria").ToString)) : DdlCtaContComplementaria.SelectedValue = drr("IdCtaContComplementaria").ToString
+
DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);")
DdlCtaContAcreedores.Attributes.Add("onclick", "CargaCuentas(6);")
DdlCtaContAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
@@ -968,68 +974,68 @@ Partial Class Compras_Proveedores
DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")
- End If
+ End If
- 'CxP
- TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
- TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
- LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
- LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
+ 'CxP
+ TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
+ TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
+ LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
+ LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
- 'Sistema
- ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
- LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString
- LblUsuarioCapturo.Text = ObjProveedor.Usuario
- TxtObservaciones.Text = ObjProveedor.Observaciones
+ 'Sistema
+ ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
+ LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString
+ LblUsuarioCapturo.Text = ObjProveedor.Usuario
+ TxtObservaciones.Text = ObjProveedor.Observaciones
- CargaCombos()
+ CargaCombos()
- ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False)
- TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
- LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
- DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString())
- DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString())
+ ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False)
+ TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
+ LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
+ DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString())
+ DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString())
- DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor"))
+ DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor"))
- DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString()
- DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
- DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
+ DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString()
+ DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
+ DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
- 'EMD: Si no es prisila desablita este campo
- If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then
- DdlCveTipoProveedor.Enabled = False
- DdlCveTipoProveedor.Attributes.Add("disabled", "disabled")
- End If
+ 'EMD: Si no es prisila desablita este campo
+ If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then
+ DdlCveTipoProveedor.Enabled = False
+ DdlCveTipoProveedor.Attributes.Add("disabled", "disabled")
+ End If
- 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(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor
- If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito
+ If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor
+ If UsuarioActual.TienePermisoProceso(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor
+ If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito
- Retorno = True
+ Retorno = True
- ' enviaractivacion()
+ ' enviaractivacion()
- CargaEventoBitacora()
+ CargaEventoBitacora()
- Else
+ Else
Alert("El Proveedor Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
- BtnGuardar.Enabled = False
- ' LbAgregarSucursal.Enabled = False
+ BtnGuardar.Enabled = False
+ ' LbAgregarSucursal.Enabled = False
- End If
- End If
+ End If
+ End If
- CargaProveedorSucursales()
+ CargaProveedorSucursales()
- CargaContactos(ObjProveedor)
+ CargaContactos(ObjProveedor)
- ObjProveedor.Dispose()
- Return Retorno
- End Function
+ ObjProveedor.Dispose()
+ Return Retorno
+ End Function
Private Sub CargaUsuarioEvaluacionProveedor()
DdlUsuarioEvaluador.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioEvaluador.DataBind()
@@ -1115,7 +1121,7 @@ Partial Class Compras_Proveedores
CountAnticipos = ObjMovtos.DtResultados.FiltraParametros(" Tipo = 'Act' AND TipoDocto <> '' AND (CveCompra > 0 OR CveIE > 0) ").Rows.Count
- LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero
+ LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero
LblTotalPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 ")).FormatoNumero
LblPorVencerPesosAnt.Text = CType(LblTotalPesosAnt.Text.ToDouble - LblVencidoPesosAnt.Text.ToDouble, String).FormatoNumero
@@ -1848,7 +1854,10 @@ Partial Class Compras_Proveedores
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,
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(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
+ CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero,
+ IdCtaContProveedores:=DdlCtaContProveedores.SelectedValue.ToEntero, CtaContProveedores:=DdlCtaContProveedores.SelectedItem.Text,
+ IdCtaContExtranjera:=DdlCtaContExtranjera.SelectedValue.ToEntero, CtaContExtranjera:=DdlCtaContExtranjera.SelectedItem.Text,
+ IdCtaContComplementaria:=DdlCtaContComplementaria.SelectedValue.ToEntero, CtaContComplementaria:=DdlCtaContComplementaria.SelectedItem.Text) Then
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|