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

E140. Carga de vendedores por sucursal

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-02-22 18:47:33 -07:00
parent 6646123501
commit 86c8a22a51
1 changed files with 161 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

231
Ventas/Ventas.aspx.vb
View File

@@ -1930,6 +1930,31 @@ Partial Class Ventas
ViewState("CveVendedorCliente") = value ViewState("CveVendedorCliente") = value
End Set End Set
End Property End Property
Private Property CveVendedorClienteSucursal As Integer
Get
Return If(IsNothing(ViewState("CveVendedorClienteSucursal")), -1, ViewState("CveVendedorClienteSucursal")).ToString().ToEntero
End Get
Set(value As Integer)
ViewState("CveVendedorClienteSucursal") = value
End Set
End Property
Private Property CveVendedorContrato As Integer
Get
Return If(IsNothing(ViewState("CveVendedorContrato")), -1, ViewState("CveVendedorContrato")).ToString().ToEntero
End Get
Set(value As Integer)
ViewState("CveVendedorContrato") = value
End Set
End Property
Private Property CveVendedorEmpresaCRM As Integer
Get
Return If(IsNothing(ViewState("CveVendedorEmpresaCRM")), -1, ViewState("CveVendedorEmpresaCRM")).ToString().ToEntero
End Get
Set(value As Integer)
ViewState("CveVendedorEmpresaCRM") = value
End Set
End Property
Private Property DiasCredito As Integer Private Property DiasCredito As Integer
Get Get
Return ViewState("DiasCredito").ToString().ToEntero() Return ViewState("DiasCredito").ToString().ToEntero()
@@ -2203,6 +2228,9 @@ Partial Class Ventas
ViewState("CvePrecioListaCliente") = 0 ViewState("CvePrecioListaCliente") = 0
Me.CveVendedorVenta = -1 Me.CveVendedorVenta = -1
Me.CveVendedorCliente = -1 Me.CveVendedorCliente = -1
Me.CveVendedorClienteSucursal = -1
Me.CveVendedorContrato = -1
Me.CveVendedorEmpresaCRM = -1
Me.EsGarantia = False Me.EsGarantia = False
idCuentaContabilizacion = 1 idCuentaContabilizacion = 1
CveEmpresaCRM = 0 CveEmpresaCRM = 0
@@ -2883,16 +2911,16 @@ Partial Class Ventas
If CveVenta < 1 Then CargaFolios() If CveVenta < 1 Then CargaFolios()
'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE 'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
If UsuarioActual.CveVendedor > 0 Then 'If UsuarioActual.CveVendedor > 0 Then
If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) ' If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then ' If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
DdlVendedor.Enabled = False ' DdlVendedor.Enabled = False
End If ' End If
'multiples vendedores visible ' 'multiples vendedores visible
If UsuarioActual.TienePermisoProceso(153) Then ' If UsuarioActual.TienePermisoProceso(153) Then
DdlVendedor.Enabled = True ' DdlVendedor.Enabled = True
End If ' End If
End If 'End If
If UsuarioActual.Empresa.Funcionalidad(301).ToEntero() > 0 Then If UsuarioActual.Empresa.Funcionalidad(301).ToEntero() > 0 Then
TxtFecha.Enabled = False TxtFecha.Enabled = False
@@ -3632,6 +3660,8 @@ Partial Class Ventas
NumeroContrato = DrContrato("NumeroContrato").ToString() NumeroContrato = DrContrato("NumeroContrato").ToString()
DescripcionContrato = DrContrato("DescripcionContrato").ToString() DescripcionContrato = DrContrato("DescripcionContrato").ToString()
NumeroLicitacion = DrContrato("NumeroLicitacion").ToString().Trim NumeroLicitacion = DrContrato("NumeroLicitacion").ToString().Trim
Me.CveVendedorContrato = DrContrato("CveVendedor").ToString().ToEntero()
DdlVendedor.SelectedValueExist(DrContrato("CveVendedor")) DdlVendedor.SelectedValueExist(DrContrato("CveVendedor"))
If DrContrato("CveSucursalCliente").ToString().ToEntero() > 0 Then If DrContrato("CveSucursalCliente").ToString().ToEntero() > 0 Then
@@ -4702,14 +4732,14 @@ Partial Class Ventas
Me.CveVendedorVenta = DbRowVenta("CveVendedor").ToString().ToEntero() Me.CveVendedorVenta = DbRowVenta("CveVendedor").ToString().ToEntero()
'SI YA TIENE UN VALOR ASIGNADO SELECCIONA EL GUARDADO 'SI YA TIENE UN VALOR ASIGNADO SELECCIONA EL GUARDADO
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Me.CveVenta > 0 AndAlso Me.CveVendedorVenta > 0 Then 'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Me.CveVenta > 0 AndAlso Me.CveVendedorVenta > 0 Then
Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta)) ' Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta))
'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV ' 'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV
If String.IsNullOrEmpty(Vendedor) Then ' If String.IsNullOrEmpty(Vendedor) Then
Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta)) ' Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta))
End If ' End If
DdlVendedor.SelectedValueExistInsert(Me.CveVendedorVenta, Vendedor) ' DdlVendedor.SelectedValueExistInsert(Me.CveVendedorVenta, Vendedor)
End If 'End If
If DdlFormaPago33.SelectedValue <> DbRowVenta("CveFormaPago33").ToString() And DbRowVenta("CveFormaPago33").ToString() <> "" Then If DdlFormaPago33.SelectedValue <> DbRowVenta("CveFormaPago33").ToString() And DbRowVenta("CveFormaPago33").ToString() <> "" Then
'sino está seleccionada la asginada la debe de cargar 'sino está seleccionada la asginada la debe de cargar
@@ -5546,6 +5576,13 @@ Partial Class Ventas
'TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) 'TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
'TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) 'TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
''TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal)) ''TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
ObjVentas.DtResultados.Columns.Add("TieneProntoPago", GetType(String))
ObjVentas.DtResultados.Columns.Add("ImporteProntoPago", GetType(Decimal))
ObjVentas.DtResultados.Columns("TieneProntoPago").DefaultValue = "No"
ObjVentas.DtResultados.Columns("ImporteProntoPago").DefaultValue = 0
GvPS.DataSource = ObjVentas.DtResultados GvPS.DataSource = ObjVentas.DtResultados
GvPS.DataBind() GvPS.DataBind()
End If End If
@@ -5867,6 +5904,7 @@ Partial Class Ventas
UpEmpresaCRM.Visible = True UpEmpresaCRM.Visible = True
End If End If
Me.CveVendedorEmpresaCRM = ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString().ToEntero()
DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString()) DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString())
DdlVendedor.Enabled = False DdlVendedor.Enabled = False
@@ -6137,18 +6175,18 @@ Partial Class Ventas
TxtFordGSDB.Text = ObjCliente.Ford_GSDB TxtFordGSDB.Text = ObjCliente.Ford_GSDB
If ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() > 0 Then If ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() > 0 Then
DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero())
CveVendedorCliente = ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() CveVendedorCliente = ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero()
End If End If
'SI EL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO 'SI EL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO
If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then 'If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) ' DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
End If 'End If
If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then 'If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
DdlVendedor.Enabled = False ' DdlVendedor.Enabled = False
End If 'End If
CargaVendedores()
UpFacturar.Update() UpFacturar.Update()
@@ -6370,10 +6408,6 @@ Partial Class Ventas
End If End If
BloqueaCondiconesPago() BloqueaCondiconesPago()
DeshabilitarAplicarNotaDeCredito(LblRFC.Text) DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
CargaVendedoresSubProyectos()
End If
End Sub End Sub
Private Sub CargaRelacionadasPendientes() Private Sub CargaRelacionadasPendientes()
@@ -6946,7 +6980,7 @@ Partial Class Ventas
ViewState("CliPais") = ObjCliente.DtResultados.Rows(0)("Pais").ToString() ViewState("CliPais") = ObjCliente.DtResultados.Rows(0)("Pais").ToString()
ViewState("CliNoExt") = ObjCliente.DtResultados.Rows(0)("NoExt").ToString() ViewState("CliNoExt") = ObjCliente.DtResultados.Rows(0)("NoExt").ToString()
ViewState("CliNoInt") = ObjCliente.DtResultados.Rows(0)("NoInt").ToString() ViewState("CliNoInt") = ObjCliente.DtResultados.Rows(0)("NoInt").ToString()
DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString()) Me.CveVendedorClienteSucursal = ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString().ToEntero()
ViewState("CveClienteSucursal") = ObjCliente.DtResultados(0)("CveClienteSucursal").ToString() ViewState("CveClienteSucursal") = ObjCliente.DtResultados(0)("CveClienteSucursal").ToString()
ViewState("CliCorreoCot") = ObjCliente.DtResultados.Rows(0)("CorreoCotizacion").ToString() ViewState("CliCorreoCot") = ObjCliente.DtResultados.Rows(0)("CorreoCotizacion").ToString()
@@ -7014,7 +7048,8 @@ Partial Class Ventas
LblEstado.Text = ObjCliente.Estado LblEstado.Text = ObjCliente.Estado
LblCP.Text = ObjCliente.CP LblCP.Text = ObjCliente.CP
LblTelefono.Text = ObjCliente.Telefono LblTelefono.Text = ObjCliente.Telefono
DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString()) Me.CveVendedorClienteSucursal = -1
Me.CveVendedorCliente = ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString().ToEntero()
ViewState("CliNoExt") = ObjCliente.NoExt ViewState("CliNoExt") = ObjCliente.NoExt
ViewState("CliNoInt") = ObjCliente.NoInt ViewState("CliNoInt") = ObjCliente.NoInt
PlazoCobranza = ObjCliente.PlazoCobranza PlazoCobranza = ObjCliente.PlazoCobranza
@@ -7035,10 +7070,12 @@ Partial Class Ventas
End If End If
End If End If
'SI LA SUCURSAL DEL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO ''SI LA SUCURSAL DEL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO
If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then 'If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) ' DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
End If 'End If
CargaVendedores()
'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES 'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES
If CveVenta <= 0 Then If CveVenta <= 0 Then
@@ -13634,7 +13671,7 @@ Partial Class Ventas
Case 30 'PAGO - BANCOS Case 30 'PAGO - BANCOS
If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 AndAlso ObjFactura.TipoDocto <> "Rem" Then
For Each DrPago As DataRow In DtPagos.Rows For Each DrPago As DataRow In DtPagos.Rows
CveIEPago = -1 CveIEPago = -1
@@ -17004,9 +17041,7 @@ Partial Class Ventas
End If End If
ObjSubProyectos.Dispose() ObjSubProyectos.Dispose()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CargaVendedores()
CargaVendedoresSubProyectos()
End If
UpDetalle.Update() UpDetalle.Update()
End Sub End Sub
@@ -17189,43 +17224,93 @@ Partial Class Ventas
UpParametros.Update() UpParametros.Update()
End Sub End Sub
Private Sub CargaVendedores() Private Sub CargaVendedores()
Dim CveVendedorActual As Integer = 0
Dim CveVendedorActual = DdlVendedor.SelectedValue.ToEntero() Dim EsVentaNueva As Boolean = (Me.CveVenta <= 0 OrElse Me.EsCreaApartirDe OrElse NuevaFactura = 1)
If Not CveVendedorActual > 0 AndAlso Me.CveVendedorCliente > 0 Then
DdlVendedor.SelectedValueExist(Me.CveVendedorCliente)
CveVendedorActual = Me.CveVendedorCliente
End If
DdlVendedor.Items.Clear() DdlVendedor.Items.Clear()
DdlVendedor.SelectedValue = Nothing
DdlVendedorSucursal.Items.Clear()
DdlVendedorSucursal.SelectedValue = Nothing
If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1") DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("(CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1")
Else Else
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1") DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
End If End If
DdlVendedor.SelectedValue = "0"
DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
CargaVendedoresSubProyectos()
End If
DdlVendedorSucursal.DataSource = DdlVendedor.DataSource DdlVendedorSucursal.DataSource = DdlVendedor.DataSource
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedorSucursal.DataBind() DdlVendedorSucursal.DataBind()
DdlVendedor.SelectedValueExist(CveVendedorActual) DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar"))
DdlVendedorSucursal.Items.Insert(0, New ListItem("Sin Asignar"))
If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist("0")
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) DdlVendedorSucursal.SelectedValueExist("0")
'SI NO ES VENTA ACTUAL
If EsVentaNueva Then
'PRIMERO TOMA EL VENDEDOR DEL USUARIO
If UsuarioActual.CveVendedor > 0 Then
CveVendedorActual = UsuarioActual.CveVendedor
End If
'DAR PREFERENCIA AL VENDEDOR ASIGNADO AL CLIENTE
If Me.CveVendedorCliente > 0 Then
CveVendedorActual = Me.CveVendedorCliente
End If
'DAR PREFERENCIA AL VENDEDOR ASIGNADO LA SUCURSAL CLIENTE
If Me.CveVendedorClienteSucursal > 0 Then
CveVendedorActual = Me.CveVendedorClienteSucursal
End If
'SI TIENE CONTRATO TOMA EL DEL CONTRATO
If Me.CveVendedorContrato > 0 Then
CveVendedorActual = Me.CveVendedorContrato
End If
'SI ES EMPRESA CRM TOMA DE AQUI
If Me.CveVendedorEmpresaCRM > 0 Then
CveVendedorActual = Me.CveVendedorEmpresaCRM
End If
Else
'SI ES VENTA EXISTENTE TOMA EL DE LA VENTA
If Me.CveVendedorVenta > 0 Then
CveVendedorActual = Me.CveVendedorVenta
End If
End If End If
If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then If CveVendedorActual > 0 Then
DdlVendedor.Enabled = False Dim VendedorActual As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {CveVendedorActual}")
'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV
If String.IsNullOrEmpty(VendedorActual) Then
VendedorActual = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedorActual))
End If
If String.IsNullOrEmpty(VendedorActual) Then
DdlVendedor.SelectedValueExist(CveVendedorActual)
Else
DdlVendedor.SelectedValueExistInsert(CveVendedorActual, VendedorActual)
End If
End If End If
If UsuarioActual.CveEmpresa = 140 Then
If Not UsuarioActual.TienePermisoProceso(161) Then
DdlVendedor.Enabled = False
End If
Else
If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
DdlVendedor.Enabled = False
End If
End If
'multiples vendedores visible
If UsuarioActual.TienePermisoProceso(153) Then
DdlVendedor.Enabled = True
End If
UPPVentas.Update()
'TxtCorreoNotificaciones.Text = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo") 'TxtCorreoNotificaciones.Text = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
End Sub End Sub
#End Region #End Region
@@ -33644,23 +33729,29 @@ Partial Class Ventas
UpModalSolicitud.Update() UpModalSolicitud.Update()
End Sub End Sub
Private Sub CargaVendedoresSubProyectos() 'Private Sub CargaVendedoresSubProyectos()
Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) ' DdlVendedor.Items.Clear()
' DdlVendedor.SelectedValue = Nothing
If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then ' Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
DdlVendedor.Items.Clear()
DdlVendedor.SelectedValue = Nothing
DdlVendedor.DataSource = DtVendedoresSucursales ' If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then
DdlVendedor.DataBind() ' DdlVendedor.DataSource = DtVendedoresSucursales
DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) ' DtVendedoresSucursales.Dispose()
' Else
' If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1")
' Else
' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
' End If
' End If
DtVendedoresSucursales.Dispose() ' DdlVendedor.DataBind()
End If ' DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
UpParametros.Update() ' UpParametros.Update()
End Sub 'End Sub
Public Class MAnticipoRelacionado Public Class MAnticipoRelacionado
Public Property CveVenta As Integer Public Property CveVenta As Integer