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

correcciones en traspaso almacen, correcciones en carta porte y se agrego el reporte devolucion cliente para los movimiento de concepto 18

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-01-28 15:44:56 -07:00
parent af88467459
commit 9d0471c1ae
3 changed files with 127 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1184,7 +1184,7 @@ Partial Class PopUpVerFactura
Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
DtMovimientos = ObjInventarios.DtResultados
@@ -2362,6 +2362,37 @@ Partial Class PopUpVerFactura
End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
'End If
Else
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
Dim CiudadSucursal As String = ""
Dim DomicilioSucursal As String = ""
If DtMovimientos(0)("CveVenta").ToString <> "" Then
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
End If
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
'End If
End If
Case 19 'ARMADO DE PAQUETE
@@ -2930,6 +2961,32 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Cliente", NombreCliente))
ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepUsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
Case 7
Dim params As New List(Of ReportParameter)
Dim CiudadSucursal As String = ""
Dim DomicilioSucursal As String = ""
If DtMovimientos(0)("CveVenta").ToString <> "" Then
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
End If
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
'End If
End Select

2
Empresas/Grales/Formatos/CartaPorte.rdlc
View File

@@ -460,7 +460,7 @@
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.9533cm</Top>
<Left>0.21008cm</Left>
<Left>0.23022cm</Left>
<Height>0.66127cm</Height>
<Width>9.36417cm</Width>
<ZIndex>2</ZIndex>

2
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -657,7 +657,7 @@ Partial Class Inventarios_TraspasoAlmacen
Exit Sub
End If
If DdlChofer.SelectedValue.ToEntero <= 0 Then
If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then
Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")