Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -2240,6 +2240,26 @@ Partial Class PopUpVerFactura
|
||||
DtMercancias.Columns.Add(New DataColumn("CveMaterialPeligroso", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("Embalaje", GetType(String)))
|
||||
|
||||
DtMercancias.Columns.Add(New DataColumn("SectorCOFEPRIS", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("NombreIngredienteActivo", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("NomQuimico", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("DenominacionGenerica", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("DenominacionDistintiva", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("Fabricante", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("FormaFarmaceutica", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("CondicionesTransporte", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("RegistroSanitarioAutorizacion", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("PermisoImportacion", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("FolioImportacionVUCEM", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("NumCAS", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("RazonSocialEmpImportacion", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("NumRegistroPlagCOFEPRIS", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("DatosFabricante", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("DatosFormulador", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("DatosMaquilador", GetType(String)))
|
||||
DtMercancias.Columns.Add(New DataColumn("UsoAutorizado", GetType(String)))
|
||||
|
||||
|
||||
Dim DtOperadores As New DataTable()
|
||||
DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
|
||||
DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
|
||||
@@ -2424,6 +2444,25 @@ Partial Class PopUpVerFactura
|
||||
Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "")
|
||||
Row("Embalaje") = ValorXML(node, "Embalaje", "")
|
||||
|
||||
Row("SectorCOFEPRIS") = ValorXML(node, "SectorCOFEPRIS", "")
|
||||
Row("NombreIngredienteActivo") = ValorXML(node, "NombreIngredienteActivo", "")
|
||||
Row("NomQuimico") = ValorXML(node, "NomQuimico", "")
|
||||
Row("DenominacionGenerica") = ValorXML(node, "DenominacionGenerica", "")
|
||||
Row("DenominacionDistintiva") = ValorXML(node, "DenominacionDistintiva", "")
|
||||
Row("Fabricante") = ValorXML(node, "Fabricante", "")
|
||||
Row("FormaFarmaceutica") = ValorXML(node, "FormaFarmaceutica", "")
|
||||
Row("CondicionesTransporte") = ValorXML(node, "CondicionesTransporte", "")
|
||||
Row("RegistroSanitarioAutorizacion") = ValorXML(node, "RegistroSanitarioAutorizacion", "")
|
||||
Row("PermisoImportacion") = ValorXML(node, "PermisoImportacion", "")
|
||||
Row("FolioImportacionVUCEM") = ValorXML(node, "FolioImportacionVUCEM", "")
|
||||
Row("NumCAS") = ValorXML(node, "NumCAS", "")
|
||||
Row("RazonSocialEmpImportacion") = ValorXML(node, "RazonSocialEmpImportacion", "")
|
||||
Row("NumRegistroPlagCOFEPRIS") = ValorXML(node, "NumRegistroPlagCOFEPRIS", "")
|
||||
Row("DatosFabricante") = ValorXML(node, "DatosFabricante", "")
|
||||
Row("DatosFormulador") = ValorXML(node, "DatosFormulador", "")
|
||||
Row("DatosMaquilador") = ValorXML(node, "DatosMaquilador", "")
|
||||
Row("UsoAutorizado") = ValorXML(node, "UsoAutorizado", "")
|
||||
|
||||
DtMercancias.Rows.Add(Row)
|
||||
Next
|
||||
|
||||
@@ -3043,6 +3082,7 @@ Partial Class PopUpVerFactura
|
||||
Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString
|
||||
Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString
|
||||
Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno"))
|
||||
Vta.Cliente.Documentacion = dtVentas(0)("Documentacion").ToString
|
||||
|
||||
Vta.RefDocto = dtVentas(0)("Ref").ToString
|
||||
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
|
||||
@@ -3719,7 +3759,7 @@ Partial Class PopUpVerFactura
|
||||
If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
|
||||
|
||||
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186) Then
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("Concepto", ConceptoFormato))
|
||||
params.Add(New ReportParameter("Almacen", Almacen))
|
||||
@@ -3741,6 +3781,12 @@ Partial Class PopUpVerFactura
|
||||
|
||||
params.Add(New ReportParameter("Observaciones", Observaciones))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(186) Then
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
||||
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
||||
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
||||
params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
|
||||
@@ -3908,7 +3954,7 @@ Partial Class PopUpVerFactura
|
||||
If Archivo.Exists Then
|
||||
|
||||
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186) Then
|
||||
Dim CiudadSucursal As String = ""
|
||||
Dim DomicilioSucursal As String = ""
|
||||
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
||||
@@ -3922,6 +3968,9 @@ Partial Class PopUpVerFactura
|
||||
DomicilioSucursal = DomicilioCliente
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(186) Then
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
|
||||
|
||||
@@ -4388,7 +4437,7 @@ Partial Class PopUpVerFactura
|
||||
Observaciones = ObservacionesSolicitud
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 186) Then
|
||||
If CalleOrigen.Length > 0 Then
|
||||
SBDireccionO.AppendFormat("{0}", CalleOrigen)
|
||||
If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
|
||||
@@ -4448,7 +4497,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 119, 186) Then
|
||||
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
||||
@@ -4499,7 +4548,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
||||
params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
|
||||
|
||||
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 119, 186) Then
|
||||
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
||||
|
||||
Reference in New Issue
Block a user