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

Correciones en cancelacion,factura bdh,formato de cliente pago

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-12-06 19:53:57 -07:00
parent 844c8a1d5c
commit d11e32f9f5
4 changed files with 986 additions and 995 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/Modelos.vb
View File

@@ -3931,6 +3931,11 @@ Namespace Modelos
Dim TotalT As Decimal = ObjFactura.Total Dim TotalT As Decimal = ObjFactura.Total
Dim RFCReceptor As String = ObjFactura.Cliente.RFC Dim RFCReceptor As String = ObjFactura.Cliente.RFC
Dim CvePACCancelacion As Integer = ObjFactura.CvePAC Dim CvePACCancelacion As Integer = ObjFactura.CvePAC
If CvePACCancelacion <= 0 Then
CvePACCancelacion = UsuarioActual.Empresa.CvePAC
End If
Dim CveEstatus As Integer = 4 Dim CveEstatus As Integer = 4
Dim IDPoliza As Integer = -1 Dim IDPoliza As Integer = -1
Dim CvePrePoliza As Integer Dim CvePrePoliza As Integer
@@ -4435,10 +4440,6 @@ Namespace Modelos
If CveEstatus.Contiene(4, 5) Then If CveEstatus.Contiene(4, 5) Then
If CvePACCancelacion <= 0 Then
CvePACCancelacion = UsuarioActual.Empresa.CvePAC
End If
If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion) Then If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion) Then
ErrorCancelar = True ErrorCancelar = True
MensajeError = "Ocurrió un error al guardar el estatus de cancelación." MensajeError = "Ocurrió un error al guardar el estatus de cancelación."

15
Empresas/140/Formatos/Factura.rdlc
View File

@@ -1297,7 +1297,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>= Parameters!Fecha.Value</Value> <Value>=Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy")</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9.16pt</FontSize> <FontSize>9.16pt</FontSize>
@@ -1623,13 +1623,13 @@
<Width>0.54927in</Width> <Width>0.54927in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.58129in</Width> <Width>0.826in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.8527in</Width> <Width>0.8527in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>3.66416in</Width> <Width>3.41945in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.57354in</Width> <Width>0.57354in</Width>
@@ -1703,7 +1703,9 @@
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName> <rd:DefaultName>Textbox15</rd:DefaultName>
@@ -1991,7 +1993,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!UM.Value</Value> <Value>=(Fields!UM.Value &amp; "-" &amp; Fields!UnidadMedida.Value)</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
@@ -2000,7 +2002,7 @@
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Center</TextAlign> <TextAlign>Left</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
@@ -2015,6 +2017,7 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>

3
Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc
View File

@@ -476,7 +476,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!MonedaIE.Value</Value> <Value>=IIF(Fields!CveVenta.Value &gt; 0,Fields!MonedaVenta.Value, Fields!MonedaIE.Value)</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
</Style> </Style>
@@ -498,6 +498,7 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>

14
Ventas/Clientes.aspx.vb
View File

@@ -6224,25 +6224,11 @@ Partial Class Clientes
GenerarPDF() GenerarPDF()
End Sub End Sub
Private Sub GenerarPDF(Optional Formato As String = "PDF") Private Sub GenerarPDF(Optional Formato As String = "PDF")
Dim ObjTareas As New ClsOIEventos
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim Filtros As String = "<b>Filtros: </b> "
'Dim FechaI, FechaF As String
' params.Add(New ReportParameter("AgrupadoPor", Filtros))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
'params.Add(New ReportParameter("FechaInicio", FechaI))
'params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))