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

Crear a partir de cuando tiene carta porte

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-06-10 20:17:01 -07:00
parent d30c8f9b96
commit 0ccdd7504a
2 changed files with 876 additions and 830 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1383
Ventas/Ventas.aspx
View File

File diff suppressed because it is too large Load Diff

323
Ventas/Ventas.aspx.vb
View File

@@ -31425,6 +31425,10 @@ Partial Class Ventas
DdlTipoRetencion.Visible = True DdlTipoRetencion.Visible = True
End If End If
If DivCartaPorte.Visible Then
HabilitarControlesCartaPorte(True)
End If
UpnTools.Update() UpnTools.Update()
UpCliente.Update() UpCliente.Update()
UpParametros.Update() UpParametros.Update()
@@ -31438,7 +31442,7 @@ Partial Class Ventas
UpParametros.Update() UpParametros.Update()
UpINV.Update() UpINV.Update()
UpFacturasRelacionadas.Update() UpFacturasRelacionadas.Update()
UpEmitirTransitorio.Update()
End Sub End Sub
#End Region #End Region
@@ -34062,12 +34066,12 @@ Partial Class Ventas
ValidaConfiguracionVehiculo() ValidaConfiguracionVehiculo()
End Sub End Sub
Public Sub CargaVentaCortePorte(CveVenta As Integer) Public Sub CargaVentaCortePorte(CveVenta As Integer)
TxtFechaEntregaCP.Enabled = False
TxtFechaLlegadaCP.Enabled = False
Dim CveEntregaAlmacen As Integer = -1 Dim CveEntregaAlmacen As Integer = -1
Dim CveDireccionOrigen As Integer = -1 Dim CveDireccionOrigen As Integer = -1
Dim CveDireccionDestino As Integer = -1 Dim CveDireccionDestino As Integer = -1
Dim CveCamionRemolque1 As Integer = -1
Dim CveCamionRemolque2 As Integer = -1
Dim CveConfigAutoTransporte As Integer = -1
Using ObjGral As New ClsGenerales Using ObjGral As New ClsGenerales
If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
@@ -34076,20 +34080,24 @@ Partial Class Ventas
Me.CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero() Me.CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero()
If CveTimbreCartaPorteVenta > 0 Then If CveTimbreCartaPorteVenta > 0 Then
ChkEmitirCartaPorte.Checked = True ChkEmitirCartaPorte.Checked = True
ChkEmitirCartaPorte.Enabled = False
CveEntregaAlmacen = RowCP("CveEntregaAlmacen").ToString().ToEntero() CveEntregaAlmacen = RowCP("CveEntregaAlmacen").ToString().ToEntero()
CveDireccionOrigen = RowCP("CveDireccionOrigen").ToString().ToEntero() CveDireccionOrigen = RowCP("CveDireccionOrigen").ToString().ToEntero()
CveDireccionDestino = RowCP("CveDireccionDestino").ToString().ToEntero() CveDireccionDestino = RowCP("CveDireccionDestino").ToString().ToEntero()
TxtFechaEntregaCP.Text = RowCP("FechaEntrega").ToString() TxtFechaEntregaCP.Text = RowCP("FechaEntrega").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm")
TxtFechaLlegadaCP.Text = RowCP("FechaLlegada").ToString() TxtFechaLlegadaCP.Text = RowCP("FechaLlegada").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm")
TxtDistancia.Text = RowCP("Distancia").ToString() TxtDistancia.Text = RowCP("Distancia").ToString()
DdlChofer.SelectedValueExist(RowCP("CveChofer").ToString()) DdlChofer.SelectedValueExist(RowCP("CveChofer").ToString())
DdlUnidadCamion.SelectedValueExist(RowCP("CveCamion").ToString()) DdlUnidadCamion.SelectedValueExist(RowCP("CveCamion").ToString())
CveCamionRemolque1 = RowCP("CveCamionRemolque1").ToString().ToEntero()
CveCamionRemolque2 = RowCP("CveCamionRemolque2").ToString().ToEntero()
CveConfigAutoTransporte = RowCP("CveConfigAutoTransporte").ToString().ToEntero()
End If End If
End If End If
@@ -34098,7 +34106,6 @@ Partial Class Ventas
DtMercancias = ObjGral.DtResultados DtMercancias = ObjGral.DtResultados
End If End If
End Using End Using
If ChkEmitirCartaPorte.Checked AndAlso CveCliente > 0 Then If ChkEmitirCartaPorte.Checked AndAlso CveCliente > 0 Then
@@ -34119,18 +34126,54 @@ Partial Class Ventas
GvMercanciasCP.DataSource = DtMercancias GvMercanciasCP.DataSource = DtMercancias
GvMercanciasCP.DataBind() GvMercanciasCP.DataBind()
If DdlUnidadCamion.SelectedValue.ToEntero() > 0 Then
If CveConfigAutoTransporte > 0 Then
DvRemolque1.Visible = False
DvRemolque2.Visible = False
DdlRemolque1.SelectedValueExist(-1)
DdlRemolque2.SelectedValueExist(-1)
DdlConfigAuto.SelectedValueExist(CveConfigAutoTransporte.ToString())
DdlConfigAuto_SelectedIndexChanged(DdlConfigAuto, EventArgs.Empty)
If CveCamionRemolque1 > 0 Then
DdlRemolque1.SelectedValueExist(CveCamionRemolque1.ToString())
DdlRemolque1_SelectedIndexChanged(DdlRemolque1, EventArgs.Empty)
If CveCamionRemolque2 > 0 Then
DdlRemolque2.SelectedValueExist(CveCamionRemolque2.ToString())
End If
End If
End If
End If
Else Else
TmpDTDireccionCP = Nothing TmpDTDireccionCP = Nothing
End If End If
DdlChofer.Enabled = False HabilitarControlesCartaPorte(False)
DdlUnidadCamion.Enabled = False
DdlDireccionOrigen.Enabled = False
DdlDireccionDestino.Enabled = False
UpEmitirTransitorio.Update() UpEmitirTransitorio.Update()
End Sub End Sub
Private Sub HabilitarControlesCartaPorte(Habilitar As Boolean)
ChkEmitirCartaPorte.Enabled = Habilitar
TxtFechaEntregaCP.Enabled = Habilitar
TxtFechaLlegadaCP.Enabled = Habilitar
DdlChofer.Enabled = Habilitar
DdlUnidadCamion.Enabled = Habilitar
DdlConfigAuto.Enabled = Habilitar
DdlRemolque1.Enabled = Habilitar
DdlRemolque2.Enabled = Habilitar
DdlDireccionOrigen.Enabled = Habilitar
DdlDireccionDestino.Enabled = Habilitar
TxtDistancia.Enabled = Habilitar
LnkAgregarMercancia.Enabled = Habilitar
GvMercanciasCP.Columns(3).Visible = Habilitar
End Sub
Private Sub ValidaConfiguracionVehiculo() Private Sub ValidaConfiguracionVehiculo()
DvRemolque1.Visible = False DvRemolque1.Visible = False
DvRemolque2.Visible = False DvRemolque2.Visible = False
@@ -34288,93 +34331,93 @@ Partial Class Ventas
End Set End Set
End Property End Property
Property SucursalOrigenCP As Modelos.SucursalModel 'Property SucursalOrigenCP As Modelos.SucursalModel
Get ' Get
If ViewState("SucursalOrigenCP") Is Nothing Then ' If ViewState("SucursalOrigenCP") Is Nothing Then
Return Nothing ' Return Nothing
End If ' End If
Return DirectCast(ViewState("SucursalOrigenCP"), Modelos.SucursalModel) ' Return DirectCast(ViewState("SucursalOrigenCP"), Modelos.SucursalModel)
End Get ' End Get
Set(value As Modelos.SucursalModel) ' Set(value As Modelos.SucursalModel)
ViewState("SucursalOrigenCP") = value ' ViewState("SucursalOrigenCP") = value
End Set ' End Set
End Property 'End Property
Property SucursalDestinoCP As Modelos.SucursalModel 'Property SucursalDestinoCP As Modelos.SucursalModel
Get ' Get
If ViewState("SucursalDestinoCP") Is Nothing Then ' If ViewState("SucursalDestinoCP") Is Nothing Then
Return Nothing ' Return Nothing
End If ' End If
Return DirectCast(ViewState("SucursalDestinoCP"), Modelos.SucursalModel) ' Return DirectCast(ViewState("SucursalDestinoCP"), Modelos.SucursalModel)
End Get ' End Get
Set(value As Modelos.SucursalModel) ' Set(value As Modelos.SucursalModel)
ViewState("SucursalDestinoCP") = value ' ViewState("SucursalDestinoCP") = value
End Set ' End Set
End Property 'End Property
Private Sub CargaDireccionSucursalOrigen(Row As DataRow) 'Private Sub CargaDireccionSucursalOrigen(Row As DataRow)
If SucursalOrigenCP Is Nothing Then ' If SucursalOrigenCP Is Nothing Then
SucursalOrigenCP = New Modelos.SucursalModel ' SucursalOrigenCP = New Modelos.SucursalModel
Else ' Else
SucursalOrigenCP = Nothing ' SucursalOrigenCP = Nothing
SucursalOrigenCP = New Modelos.SucursalModel ' SucursalOrigenCP = New Modelos.SucursalModel
End If ' End If
Dim SBDomicilioSucursal As New StringBuilder() ' Dim SBDomicilioSucursal As New StringBuilder()
Try ' Try
If Row IsNot Nothing Then ' If Row IsNot Nothing Then
SucursalOrigenCP.Direccion = Row("Calle").ToString() ' SucursalOrigenCP.Direccion = Row("Calle").ToString()
SucursalOrigenCP.NoExt = Row("NoExt").ToString() ' SucursalOrigenCP.NoExt = Row("NoExt").ToString()
SucursalOrigenCP.NoInt = Row("NoInt").ToString() ' SucursalOrigenCP.NoInt = Row("NoInt").ToString()
SucursalOrigenCP.Colonia = Row("Colonia").ToString() ' SucursalOrigenCP.Colonia = Row("Colonia").ToString()
SucursalOrigenCP.CP = Row("CP").ToString() ' SucursalOrigenCP.CP = Row("CP").ToString()
SucursalOrigenCP.Municipio = Row("Municipio").ToString() ' SucursalOrigenCP.Municipio = Row("Municipio").ToString()
SucursalOrigenCP.CveEstado = Row("CveEstado").ToString().ToEntero() ' SucursalOrigenCP.CveEstado = Row("CveEstado").ToString().ToEntero()
SucursalOrigenCP.Estado = Row("Estado").ToString() ' SucursalOrigenCP.Estado = Row("Estado").ToString()
SucursalOrigenCP.CvePais = Row("CvePais").ToString().ToEntero() ' SucursalOrigenCP.CvePais = Row("CvePais").ToString().ToEntero()
SucursalOrigenCP.Pais = Row("Pais").ToString() ' SucursalOrigenCP.Pais = Row("Pais").ToString()
SBDomicilioSucursal.AppendFormat("{0}", Row("Calle").ToString()) ' SBDomicilioSucursal.AppendFormat("{0}", Row("Calle").ToString())
If Row("NoInt").ToString().Length > 0 Then ' If Row("NoInt").ToString().Length > 0 Then
SBDomicilioSucursal.AppendFormat(", No.Int: {0}", Row("NoInt").ToString()) ' SBDomicilioSucursal.AppendFormat(", No.Int: {0}", Row("NoInt").ToString())
End If ' End If
If Row("Colonia").ToString().Length > 0 Then ' If Row("Colonia").ToString().Length > 0 Then
SBDomicilioSucursal.AppendFormat(", Col: {0}", Row("Colonia").ToString()) ' SBDomicilioSucursal.AppendFormat(", Col: {0}", Row("Colonia").ToString())
End If ' End If
If Row("CP").ToString().ToEntero > 0 Then ' If Row("CP").ToString().ToEntero > 0 Then
SBDomicilioSucursal.AppendFormat(", CP: {0}", Row("CP").ToString()) ' SBDomicilioSucursal.AppendFormat(", CP: {0}", Row("CP").ToString())
End If ' End If
If Row("NoExt").ToString().Length > 0 Then ' If Row("NoExt").ToString().Length > 0 Then
SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", Row("NoExt").ToString()) ' SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", Row("NoExt").ToString())
End If ' End If
Dim CiudadSucursal As String = String.Format("{0},{1}", Row("Municipio").ToString(), Row("Estado").ToString()) ' Dim CiudadSucursal As String = String.Format("{0},{1}", Row("Municipio").ToString(), Row("Estado").ToString())
If CiudadSucursal.Length > 0 Then ' If CiudadSucursal.Length > 0 Then
SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal) ' SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
End If ' End If
If Row("Pais").ToString().Length > 0 Then ' If Row("Pais").ToString().Length > 0 Then
SBDomicilioSucursal.AppendFormat(", {0}", Row("Pais").ToString()) ' SBDomicilioSucursal.AppendFormat(", {0}", Row("Pais").ToString())
End If ' End If
If Not String.IsNullOrEmpty(Row("Telefono").ToString()) Then ' If Not String.IsNullOrEmpty(Row("Telefono").ToString()) Then
SucursalOrigenCP.TelefonoSucursal = Row("Telefono").ToString() ' SucursalOrigenCP.TelefonoSucursal = Row("Telefono").ToString()
End If ' End If
End If ' End If
Catch ex As Exception ' Catch ex As Exception
SBDomicilioSucursal.Clear() ' SBDomicilioSucursal.Clear()
GuardaLog(ex.ToString()) ' GuardaLog(ex.ToString())
End Try ' End Try
'TxtOrigenCP.Text = SBDomicilioSucursal.ToString ' 'TxtOrigenCP.Text = SBDomicilioSucursal.ToString
UpEmitirTransitorio.Update() ' UpEmitirTransitorio.Update()
End Sub 'End Sub
Protected Sub DdlDireccionEnvio_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlDireccionEnvio_SelectedIndexChanged(sender As Object, e As EventArgs)
'If SucursalDestinoCP Is Nothing Then 'If SucursalDestinoCP Is Nothing Then
@@ -34410,73 +34453,73 @@ Partial Class Ventas
UpEmitirTransitorio.Update() UpEmitirTransitorio.Update()
End Sub End Sub
Protected Sub DdlDireccionOrigen_SelectedIndexChanged(sender As Object, e As EventArgs) 'Protected Sub DdlDireccionOrigen_SelectedIndexChanged(sender As Object, e As EventArgs)
If SucursalOrigenCP Is Nothing Then ' If SucursalOrigenCP Is Nothing Then
SucursalOrigenCP = New Modelos.SucursalModel ' SucursalOrigenCP = New Modelos.SucursalModel
Else ' Else
SucursalOrigenCP = Nothing ' SucursalOrigenCP = Nothing
SucursalOrigenCP = New Modelos.SucursalModel ' SucursalOrigenCP = New Modelos.SucursalModel
End If ' End If
If TmpDTDireccionCP IsNot Nothing AndAlso TmpDTDireccionCP.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionOrigen.SelectedValue.ToEntero())).Rows.Count > 0 Then ' If TmpDTDireccionCP IsNot Nothing AndAlso TmpDTDireccionCP.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionOrigen.SelectedValue.ToEntero())).Rows.Count > 0 Then
Dim Row As DataRow = TmpDTDireccionCP.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionOrigen.SelectedValue.ToEntero())) ' Dim Row As DataRow = TmpDTDireccionCP.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionOrigen.SelectedValue.ToEntero()))
If Row IsNot Nothing Then ' If Row IsNot Nothing Then
SucursalOrigenCP.Direccion = Row("EnvioDireccion").ToString() ' SucursalOrigenCP.Direccion = Row("EnvioDireccion").ToString()
SucursalOrigenCP.Colonia = Row("EnvioColonia").ToString() ' SucursalOrigenCP.Colonia = Row("EnvioColonia").ToString()
SucursalOrigenCP.Municipio = Row("EnvioCiudad").ToString() ' SucursalOrigenCP.Municipio = Row("EnvioCiudad").ToString()
SucursalOrigenCP.CveEstado = Row("CveEstado").ToString().ToEntero() ' SucursalOrigenCP.CveEstado = Row("CveEstado").ToString().ToEntero()
SucursalOrigenCP.Estado = Row("EnvioEstado").ToString() ' SucursalOrigenCP.Estado = Row("EnvioEstado").ToString()
SucursalOrigenCP.CvePais = Row("CvePais").ToString().ToEntero() ' SucursalOrigenCP.CvePais = Row("CvePais").ToString().ToEntero()
SucursalOrigenCP.Pais = Row("Pais").ToString() ' SucursalOrigenCP.Pais = Row("Pais").ToString()
SucursalOrigenCP.CP = Row("EnvioCP").ToString() ' SucursalOrigenCP.CP = Row("EnvioCP").ToString()
'TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais) ' 'TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
Else ' Else
'TxtDestinoCP.Text = "" ' 'TxtDestinoCP.Text = ""
End If ' End If
Else ' Else
'TxtDestinoCP.Text = "" ' 'TxtDestinoCP.Text = ""
End If ' End If
UpEmitirTransitorio.Update() ' UpEmitirTransitorio.Update()
End Sub 'End Sub
Protected Sub DdlDireccionDestino_SelectedIndexChanged(sender As Object, e As EventArgs) 'Protected Sub DdlDireccionDestino_SelectedIndexChanged(sender As Object, e As EventArgs)
If SucursalDestinoCP Is Nothing Then ' If SucursalDestinoCP Is Nothing Then
SucursalDestinoCP = New Modelos.SucursalModel ' SucursalDestinoCP = New Modelos.SucursalModel
Else ' Else
SucursalDestinoCP = Nothing ' SucursalDestinoCP = Nothing
SucursalDestinoCP = New Modelos.SucursalModel ' SucursalDestinoCP = New Modelos.SucursalModel
End If ' End If
If TmpDTDireccionCP IsNot Nothing AndAlso TmpDTDireccionCP.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionDestino.SelectedValue.ToEntero())).Rows.Count > 0 Then ' If TmpDTDireccionCP IsNot Nothing AndAlso TmpDTDireccionCP.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionDestino.SelectedValue.ToEntero())).Rows.Count > 0 Then
Dim Row As DataRow = TmpDTDireccionCP.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionDestino.SelectedValue.ToEntero())) ' Dim Row As DataRow = TmpDTDireccionCP.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionDestino.SelectedValue.ToEntero()))
If Row IsNot Nothing Then ' If Row IsNot Nothing Then
SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString() ' SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString()
SucursalDestinoCP.Colonia = Row("EnvioColonia").ToString() ' SucursalDestinoCP.Colonia = Row("EnvioColonia").ToString()
SucursalDestinoCP.Municipio = Row("EnvioCiudad").ToString() ' SucursalDestinoCP.Municipio = Row("EnvioCiudad").ToString()
SucursalDestinoCP.CveEstado = Row("CveEstado").ToString().ToEntero() ' SucursalDestinoCP.CveEstado = Row("CveEstado").ToString().ToEntero()
SucursalDestinoCP.Estado = Row("EnvioEstado").ToString() ' SucursalDestinoCP.Estado = Row("EnvioEstado").ToString()
SucursalDestinoCP.CvePais = Row("CvePais").ToString().ToEntero() ' SucursalDestinoCP.CvePais = Row("CvePais").ToString().ToEntero()
SucursalDestinoCP.Pais = Row("Pais").ToString() ' SucursalDestinoCP.Pais = Row("Pais").ToString()
SucursalDestinoCP.CP = Row("EnvioCP").ToString() ' SucursalDestinoCP.CP = Row("EnvioCP").ToString()
'TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais) ' 'TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
Else ' Else
'TxtDestinoCP.Text = "" ' 'TxtDestinoCP.Text = ""
End If ' End If
Else ' Else
'TxtDestinoCP.Text = "" ' 'TxtDestinoCP.Text = ""
End If ' End If
UpEmitirTransitorio.Update() ' UpEmitirTransitorio.Update()
End Sub 'End Sub
Protected Sub LnkAgregarMercancia_Click(sender As Object, e As EventArgs) Protected Sub LnkAgregarMercancia_Click(sender As Object, e As EventArgs)
TxtCantidadMercancia.Text = "" TxtCantidadMercancia.Text = ""
'DdlPSMercancia.SelectedValue = "" 'DdlPSMercancia.SelectedValue = ""