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

-- cambios en carta porte 3.0

Browse Source
This commit is contained in:
rrene
2024-01-02 21:58:50 -07:00
parent be1ceb06cd
commit 61fe4d09e8
8 changed files with 161 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Ventas/ProductosServicios.aspx.vb
View File

@@ -459,14 +459,21 @@ Partial Class ProductosyServicios
Private Sub CargaCombosPSComplementos()
DdlClaveSectorCOFEPRIS.DataSource = GlobalDTSATSectorCOFEPRIS
DdlClaveSectorCOFEPRIS.DataSource = GlobalDT_SAT_CP_SectorCOFEPRIS
DdlClaveSectorCOFEPRIS.DataBind()
DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1"))
DdlClaveFormaFarmaceutica.DataSource = GlobalDTSATFormaFarmaceutica
DdlClaveFormaFarmaceutica.DataSource = GlobalDT_SAT_CP_FormaFarmaceutica
DdlClaveFormaFarmaceutica.DataBind()
DdlClaveFormaFarmaceutica.Items.Insert(0, New ListItem("-", "-1"))
DdlCondicionesEspTransporte.DataSource = GlobalDT_SAT_CP_CondicionesEspeciales
DdlCondicionesEspTransporte.DataBind()
DdlCondicionesEspTransporte.Items.Insert(0, New ListItem("-", "-1"))
DdlTipoMateria.DataSource = GlobalDT_SAT_CP_TipoMateria
DdlTipoMateria.DataBind()
DdlTipoMateria.Items.Insert(0, New ListItem("-", "-1"))
End Sub
@@ -3411,7 +3418,7 @@ Partial Class ProductosyServicios
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
'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
@@ -3422,6 +3429,8 @@ Partial Class ProductosyServicios
TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString
TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString
TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString
DdlCondicionesEspTransporte.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveCondicionesEspTransporte").ToString)
DdlTipoMateria.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveTipoMateria").ToString)
MostrarOcultarControlesCCP(LimpiarControles:=False)
@@ -3457,7 +3466,6 @@ Partial Class ProductosyServicios
TxtDenominacionGenerica.Text = ""
TxtDenominacionDistintiva.Text = ""
TxtFabricante.Text = ""
TxtCondicionesTransporte.Text = ""
TxtRegistroSanitarioAutorizacion.Text = ""
TxtPermisoImportacion.Text = ""
TxtFolioImportacionVUCEM.Text = ""
@@ -3501,8 +3509,6 @@ Partial Class ProductosyServicios
DVDatosMaquilador.Visible = True
DVUsoAutorizado.Visible = True
End If
UpCartaPorte.Update()
End Sub
@@ -3516,7 +3522,7 @@ Partial Class ProductosyServicios
CamposStringCCP = CamposStringCCP + TxtDenominacionGenerica.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtDenominacionDistintiva.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtFabricante.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim()
' CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtRegistroSanitarioAutorizacion.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtPermisoImportacion.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtFolioImportacionVUCEM.Text.Trim()
@@ -3528,29 +3534,22 @@ Partial Class ProductosyServicios
CamposStringCCP = CamposStringCCP + TxtDatosMaquilador.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtUsoAutorizado.Text.Trim()
If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtDimensiones.Text = "" Or TxtPesoKg.Text = "") Then
Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg y Dimensiones son requeridos", TipoMensaje.MsgAdvertencia)
If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtPesoKg.Text = "") Then
Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg son requeridos", TipoMensaje.MsgAdvertencia)
Respuesta = False
Else
'If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 And DdlEmbalaje.SelectedValue.ToEntero > 0 And DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 And CamposStringCCP.Length > 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,
TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, DdlCondicionesEspTransporte.SelectedValue.ToEntero,
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
TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text, DdlTipoMateria.SelectedValue.ToEntero) Then
Respuesta = False
End If
' End If
' End If
End If
Return Respuesta
End Function