CartaPorteTimbrada Ajustes v 3.0
This commit is contained in:
rakcsle
@@ -2,6 +2,7 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.IO
|
||||
Imports Extensiones
|
||||
Imports ZXing
|
||||
@@ -192,6 +193,7 @@ Partial Class ProductosyServicios
|
||||
CargarAlias()
|
||||
CargaExistencias()
|
||||
End If
|
||||
CargaDatosCartaPorte()
|
||||
Else
|
||||
'Configuración de Modalidad Insert
|
||||
RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
|
||||
@@ -367,6 +369,7 @@ Partial Class ProductosyServicios
|
||||
CargaUnidadesMedida()
|
||||
CargarMetodosInv()
|
||||
CargarMarcas()
|
||||
CargaCombosPSComplementos()
|
||||
'CargaPSAdicional(DdlPSAdicional)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
@@ -452,6 +455,18 @@ Partial Class ProductosyServicios
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCombosPSComplementos()
|
||||
|
||||
DdlClaveSectorCOFEPRIS.DataSource = GlobalDTSATSectorCOFEPRIS
|
||||
DdlClaveSectorCOFEPRIS.DataBind()
|
||||
DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1"))
|
||||
|
||||
DdlClaveFormaFarmaceutica.DataSource = GlobalDTSATFormaFarmaceutica
|
||||
DdlClaveFormaFarmaceutica.DataBind()
|
||||
DdlClaveFormaFarmaceutica.Items.Insert(0, New ListItem("-", "-1"))
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPanelLlantas()
|
||||
Dim ObjGral As New ClsGenerales()
|
||||
@@ -1648,6 +1663,10 @@ Partial Class ProductosyServicios
|
||||
OnError("Ocurrió un error al guardar al guardar el producto/servicio.", ex)
|
||||
End Try
|
||||
|
||||
If Not TieneError Then
|
||||
GuardaDatosCartPorte()
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
ObjProductosServicios.Commit()
|
||||
Alert("El Producto/Servicio se guardo correctamente." + If(GeneraServicioAF = 1, " Recargue la pagina de ventas para poder utilizar el servicio", ""), TipoMensaje.MsgInformacion, AccionJS)
|
||||
@@ -3293,8 +3312,6 @@ Partial Class ProductosyServicios
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ObjGrales.Dispose()
|
||||
|
||||
If ValidaMaterialPeligrosoMensaje Then
|
||||
@@ -3321,11 +3338,29 @@ Partial Class ProductosyServicios
|
||||
|
||||
DdlMaterialPeligroso.txtText.Value = ""
|
||||
DdlMaterialPeligroso.txtValue.Value = ""
|
||||
|
||||
|
||||
DdlEmbalaje.txtText.Value = ""
|
||||
DdlEmbalaje.txtValue.Value = ""
|
||||
|
||||
DdlClaveSectorCOFEPRIS.SelectedValueExist(-1)
|
||||
DdlClaveFormaFarmaceutica.SelectedValueExist(-1)
|
||||
|
||||
TxtNombreIngredienteActivo.Text = ""
|
||||
TxtNomQuimico.Text = ""
|
||||
TxtDenominacionGenerica.Text = ""
|
||||
TxtDenominacionDistintiva.Text = ""
|
||||
TxtFabricante.Text = ""
|
||||
TxtCondicionesTransporte.Text = ""
|
||||
TxtRegistroSanitarioAutorizacion.Text = ""
|
||||
TxtPermisoImportacion.Text = ""
|
||||
TxtFolioImportacionVUCEM.Text = ""
|
||||
TxtNumCAS.Text = ""
|
||||
TxtRazonSocialEmpImportacion.Text = ""
|
||||
TxtNumRegistroPlagCOFEPRIS.Text = ""
|
||||
TxtDatosFabricante.Text = ""
|
||||
TxtDatosFormulador.Text = ""
|
||||
TxtDatosMaquilador.Text = ""
|
||||
TxtUsoAutorizado.Text = ""
|
||||
|
||||
UpCartaPorte.Update()
|
||||
|
||||
End Sub
|
||||
@@ -3334,8 +3369,6 @@ Partial Class ProductosyServicios
|
||||
Protected Sub ChkFechaIndeterminadaRSCO_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
DivRegistroRSCO3.Visible = If(ChkFechaIndeterminadaRSCO.Checked, False, True)
|
||||
|
||||
|
||||
If TxtFechaVigenciaRSCO.Text = "01/01/1900" Then
|
||||
TxtFechaVigenciaRSCO.Text = ""
|
||||
End If
|
||||
@@ -3343,4 +3376,65 @@ Partial Class ProductosyServicios
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatosCartaPorte()
|
||||
|
||||
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
|
||||
If ObjPS.GetProductosServiciosComplementos(CvePS) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
DdlMaterialPeligroso.txtText.Value = ObjPS.DtResultados.Rows(0)("MaterialPeligroso").ToString
|
||||
DdlMaterialPeligroso.txtValue.Value = ObjPS.DtResultados.Rows(0)("CveMaterialPeligroso").ToString
|
||||
DdlEmbalaje.txtText.Value = ObjPS.DtResultados.Rows(0)("Embalaje").ToString
|
||||
DdlEmbalaje.txtValue.Value = ObjPS.DtResultados.Rows(0)("CveEmbalaje").ToString
|
||||
DdlClaveSectorCOFEPRIS.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveSectorCOFEPRIS").ToString)
|
||||
DdlClaveFormaFarmaceutica.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveFormaFarmaceutica").ToString)
|
||||
|
||||
TxtPesoKg.Text = ObjPS.DtResultados.Rows(0)("PesoKg").ToString
|
||||
TxtDimensiones.Text = ObjPS.DtResultados.Rows(0)("Dimensiones").ToString
|
||||
|
||||
TxtNombreIngredienteActivo.Text = ObjPS.DtResultados.Rows(0)("NombreIngredienteActivo").ToString
|
||||
TxtNomQuimico.Text = ObjPS.DtResultados.Rows(0)("NomQuimico").ToString
|
||||
TxtDenominacionGenerica.Text = ObjPS.DtResultados.Rows(0)("DenominacionGenerica").ToString
|
||||
TxtDenominacionDistintiva.Text = ObjPS.DtResultados.Rows(0)("DenominacionDistintiva").ToString
|
||||
TxtFabricante.Text = ObjPS.DtResultados.Rows(0)("Fabricante").ToString
|
||||
TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString
|
||||
TxtRegistroSanitarioAutorizacion.Text = ObjPS.DtResultados.Rows(0)("RegistroSanitarioAutorizacion").ToString
|
||||
TxtPermisoImportacion.Text = ObjPS.DtResultados.Rows(0)("PermisoImportacion").ToString
|
||||
TxtFolioImportacionVUCEM.Text = ObjPS.DtResultados.Rows(0)("FolioImportacionVUCEM").ToString
|
||||
TxtNumCAS.Text = ObjPS.DtResultados.Rows(0)("NumCAS").ToString
|
||||
TxtRazonSocialEmpImportacion.Text = ObjPS.DtResultados.Rows(0)("RazonSocialEmpImportacion").ToString
|
||||
TxtNumRegistroPlagCOFEPRIS.Text = ObjPS.DtResultados.Rows(0)("NumRegistroPlagCOFEPRIS").ToString
|
||||
TxtDatosFabricante.Text = ObjPS.DtResultados.Rows(0)("DatosFabricante").ToString
|
||||
TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString
|
||||
TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString
|
||||
TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString
|
||||
|
||||
End If
|
||||
|
||||
UpCartaPorte.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function GuardaDatosCartPorte(ByRef transaccionSQL As SqlTransaction) As Boolean
|
||||
Dim Respuesta As Boolean = True
|
||||
|
||||
If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 Or DdlEmbalaje.SelectedValue.ToEntero > 0 Or DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 Or DdlClaveFormaFarmaceutica.SelectedValue.ToEntero > 0 Then
|
||||
Dim ObjPS As New ClsProductosServicios(transaccionSQL)
|
||||
|
||||
If Not ObjPS.AddUpdateProductosServiciosComplementos(CvePS, TxtPesoKg.Text.ToDecimal, DdlMaterialPeligroso.SelectedValue.ToEntero, DdlEmbalaje.SelectedValue.ToEntero, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero,
|
||||
TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim,
|
||||
TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim,
|
||||
TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text) Then
|
||||
Respuesta = False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Return Respuesta
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user