Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -365,7 +365,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
|
||||
{
|
||||
MsgError = "No se pudo insertar concepto de bancos complementaria";
|
||||
}
|
||||
s
|
||||
|
||||
// BANCOS
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, IDCtaContableBancosPrestamo, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal(), ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
{
|
||||
|
||||
@@ -2491,7 +2491,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
|
||||
'CveSeccionAlmacen = DtExistencias.FiltroPrimeroValor("CveSeccionAlmacen", $"ISNULL(CveTipoAlmacenDevolucion,0) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToEntero
|
||||
|
||||
PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
|
||||
PU = DtExistencias.FiltroPrimeroValor("PU", $"ISNULL(CveTipoAlmacenDevolucion,-1) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
|
||||
End If
|
||||
|
||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveVentaDetalleRemision:=Dr("CveVentaDetalleRemision").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then
|
||||
|
||||
@@ -7462,64 +7462,89 @@ Partial Class Clientes
|
||||
|
||||
Protected Sub ImprimirPagare(sender As Object, e As EventArgs) Handles BtnAgregarPagare.Click
|
||||
Dim memoryStreamDoc As New System.IO.MemoryStream
|
||||
Dim objGemBoxDocument As New clsGemBoxDocument(linkDescargaPagare)
|
||||
Dim Tags As New List(Of TagsDocumentos)
|
||||
Dim ObjClientes As New ClsClientes
|
||||
|
||||
Dim monto As String = ""
|
||||
Dim razonSocial As String = ""
|
||||
Dim direccion As String = ""
|
||||
Dim ciudad As String = ""
|
||||
Dim Telefono As String = ""
|
||||
Dim mesArray = New String() {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
|
||||
Dim hoy As DateTime = DateTime.Now
|
||||
Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
|
||||
|
||||
If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
monto = ObjClientes.DtResultados.FiltroPrimeroValor("LimiteCredito").ToDouble.ToString("N")
|
||||
razonSocial = ObjClientes.DtResultados.FiltroPrimeroValor("NombreComercial")
|
||||
direccion = ObjClientes.DtResultados.FiltroPrimeroValor("Direccion")
|
||||
ciudad = ObjClientes.DtResultados.FiltroPrimeroValor("Ciudad")
|
||||
Telefono = ObjClientes.DtResultados.FiltroPrimeroValor("Telefono")
|
||||
End If
|
||||
|
||||
Tags.Add(New TagsDocumentos("{Monto}", monto))
|
||||
Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
|
||||
Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
|
||||
Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
|
||||
Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
|
||||
Tags.Add(New TagsDocumentos("{Direccion}", direccion))
|
||||
Tags.Add(New TagsDocumentos("{Ciudad}", ciudad))
|
||||
Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
|
||||
Tags.Add(New TagsDocumentos("{RazonSocialAval}", TxtAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{DireccionAval}", TxtDireccionAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{CiudadAval}", TxtCiudadAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{TelefonoAval}", TxtTelefonoAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{RepresentanteLegal}", TxtRepresentanteLegal.Text))
|
||||
|
||||
|
||||
|
||||
If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then
|
||||
Alert("no se pudo registrar el pagare")
|
||||
If Not File.Exists(linkDescargaPagare) Then
|
||||
Alert("No existe el formato", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim objGemBoxDocument As New clsGemBoxDocument(linkDescargaPagare)
|
||||
Dim Tags As New List(Of TagsDocumentos)
|
||||
|
||||
Dim ObjClientes As New ClsClientes
|
||||
Dim TieneError As Boolean = False
|
||||
|
||||
Try
|
||||
Dim monto As String = ""
|
||||
Dim razonSocial As String = ""
|
||||
Dim direccion As String = ""
|
||||
Dim colonia As String = ""
|
||||
Dim noInt As String = ""
|
||||
Dim noExt As String = ""
|
||||
Dim ciudad As String = ""
|
||||
Dim estado As String = ""
|
||||
Dim Telefono As String = ""
|
||||
Dim mesArray = New String() {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
|
||||
Dim hoy As DateTime = DateTime.Now
|
||||
Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
|
||||
|
||||
If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
monto = ObjClientes.DtResultados.FiltroPrimeroValor("LimiteCredito").ToDouble.ToString("N")
|
||||
razonSocial = ObjClientes.DtResultados.FiltroPrimeroValor("NombreComercial")
|
||||
direccion = ObjClientes.DtResultados.FiltroPrimeroValor("Direccion")
|
||||
colonia = ObjClientes.DtResultados.FiltroPrimeroValor("Colonia")
|
||||
noInt = ObjClientes.DtResultados.FiltroPrimeroValor("NoInt")
|
||||
noExt = ObjClientes.DtResultados.FiltroPrimeroValor("NoExt")
|
||||
ciudad = ObjClientes.DtResultados.FiltroPrimeroValor("Ciudad")
|
||||
estado = ObjClientes.DtResultados.FiltroPrimeroValor("Estado")
|
||||
Telefono = ObjClientes.DtResultados.FiltroPrimeroValor("Telefono")
|
||||
End If
|
||||
|
||||
Tags.Add(New TagsDocumentos("{Monto}", monto))
|
||||
Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
|
||||
Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
|
||||
Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
|
||||
Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
|
||||
Tags.Add(New TagsDocumentos("{Direccion}", String.Format("{0} #{1} {2}, COL.{3}", direccion, noInt, noExt, colonia).ToUpper()))
|
||||
Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0}, {1}", ciudad, estado).ToUpper()))
|
||||
Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
|
||||
Tags.Add(New TagsDocumentos("{RazonSocialAval}", TxtAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{DireccionAval}", TxtDireccionAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{CiudadAval}", TxtCiudadAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{TelefonoAval}", TxtTelefonoAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{RepresentanteLegal}", TxtRepresentanteLegal.Text))
|
||||
|
||||
If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then
|
||||
Alert("no se pudo registrar el pagare")
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
Alert("Pagaré registrado con exito")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al registrar el pagare", ex)
|
||||
End Try
|
||||
ObjClientes.Dispose()
|
||||
|
||||
'objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
|
||||
RegistraScript("$('#ModalDivPagare').modal('hide')")
|
||||
Alert("Pagaré registrado con exito")
|
||||
|
||||
objGemBoxDocument.SustituirTags(Tags)
|
||||
objGemBoxDocument.GuardarStream()
|
||||
Dim memoryStream As New System.IO.MemoryStream(objGemBoxDocument.GetBytesDocumento())
|
||||
objGemBoxDocument.Dispose()
|
||||
ObjClientes.Dispose()
|
||||
Response.Clear()
|
||||
Response.ContentType = "application/text"
|
||||
Response.AddHeader("content-disposition", "attachment;filename=pagare.docx")
|
||||
Response.Buffer = True
|
||||
memoryStream.WriteTo(Response.OutputStream)
|
||||
Response.End()
|
||||
memoryStream.Dispose()
|
||||
If Not TieneError Then
|
||||
objGemBoxDocument.SustituirTags(Tags)
|
||||
objGemBoxDocument.GuardarStream()
|
||||
Dim memoryStream As New System.IO.MemoryStream(objGemBoxDocument.GetBytesDocumento())
|
||||
objGemBoxDocument.Dispose()
|
||||
|
||||
Response.Clear()
|
||||
Response.ContentType = "application/text"
|
||||
Response.AddHeader("content-disposition", "attachment;filename=pagare.docx")
|
||||
Response.Buffer = True
|
||||
memoryStream.WriteTo(Response.OutputStream)
|
||||
Response.End()
|
||||
memoryStream.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user