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

Revert "Ajustes RDLC"

Browse Source 
This reverts commit 29657ef258.
This commit is contained in:
rakcsle
2022-03-03 10:24:07 -07:00
parent 29657ef258
commit 3c94098458
7 changed files with 6852 additions and 4703 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10164
Empresas/1/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff

13
Empresas/119/Formatos/Cotizacion.rdlc
View File

@@ -905,7 +905,6 @@
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;(#,0.00);'-'</Format>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1044,7 +1043,7 @@
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;-#,0.00;'-'</Format> <Format>0.00</Format>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1117,7 +1116,7 @@
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;-#,0.00;'-'</Format> <Format>#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
</TextRun> </TextRun>
@@ -1138,6 +1137,7 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -1149,12 +1149,12 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=iif(cdbl(Fields!PorcentajeIEPS.Value) &gt; 0, Format( Fields!ImporteIEPS.Value,"###,###,###.00") &amp; "(" &amp; Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) &amp; "%)","")</Value> <Value>=iif(cdbl(Fields!PorcentajeIEPS.Value) &gt; 0, Fields!ImporteIEPS.Value &amp; "(" &amp; Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) &amp; "%)","")</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;-#,0.00;'-'</Format> <Format>#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
</TextRun> </TextRun>
@@ -1175,7 +1175,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -1192,7 +1191,7 @@
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;-#,0.00;'-'</Format> <Format>#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
</TextRun> </TextRun>

6
Empresas/119/Formatos/Factura.rdlc
View File

@@ -2011,7 +2011,6 @@
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -2253,7 +2252,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=iif(cdbl(Fields!PorcentajeIEPS.Value) &gt; 0, Format( Fields!ImporteIEPS.Value,"###,###,###.00") &amp; "(" &amp; Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) &amp; "%)","")</Value> <Value>=iif(cdbl(Fields!PorcentajeIEPS.Value) &gt; 0, Fields!ImporteIEPS.Value &amp; "(" &amp; Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) &amp; "%)","")</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
@@ -2278,7 +2277,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -2295,7 +2293,7 @@
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;-#,0.00;'-'</Format> <Format>#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
</TextRun> </TextRun>

1263
Empresas/119/Formatos/Remision.rdlc
View File

File diff suppressed because it is too large Load Diff

5
Empresas/141/Formatos/Cotizacion.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition"> <Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<AutoRefresh>0</AutoRefresh> <AutoRefresh>0</AutoRefresh>
<DataSources> <DataSources>
<DataSource Name="DsOC"> <DataSource Name="DsOC">
@@ -770,7 +770,6 @@
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8.75pt</FontSize> <FontSize>8.75pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;(#,0.00);'-'</Format>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -790,7 +789,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -3577,6 +3575,7 @@
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="ID2"> <EmbeddedImage Name="ID2">
<MIMEType>image/png</MIMEType> <MIMEType>image/png</MIMEType>

2
Empresas/141/Formatos/Factura.rdlc
View File

@@ -931,7 +931,6 @@
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;-#,0.00;'-'</Format>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -951,7 +950,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>

102
Ventas/Ventas.aspx.vb
View File

@@ -16177,16 +16177,16 @@ Partial Class Ventas
Dim RFCReceptor As String = GvRow.DataKey("RFCReceptor") Dim RFCReceptor As String = GvRow.DataKey("RFCReceptor")
Dim CvePACCancelacion As Integer = GvRow.DataKey("CvePAC").ToEntero() Dim CvePACCancelacion As Integer = GvRow.DataKey("CvePAC").ToEntero()
'If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, RFCReceptor, RFCEmisor, CvePACCancelacion) Then If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, RFCReceptor, RFCEmisor, CvePACCancelacion) Then
' If ObjBanco.UpdateComplementoPago(CveComplementoPago, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then If ObjBanco.UpdateComplementoPago(CveComplementoPago, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
' CargaComplementosPago() CargaComplementosPago()
' Alert("El complemento se cancelo correctamente.") Alert("El complemento se cancelo correctamente.")
' End If End If
'Else Else
' Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError) Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
'End If End If
ObjBanco.Dispose() ObjBanco.Dispose()
@@ -16414,28 +16414,28 @@ Partial Class Ventas
ErrorCancelar = True ErrorCancelar = True
End If End If
'If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
' 'falta verificar traer el acuse y reenviarlo 'falta verificar traer el acuse y reenviarlo
' If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
' Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True) Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True)
' IDPoliza = IDMPoliza.IdPoliza IDPoliza = IDMPoliza.IdPoliza
' If IDMPoliza.IdPoliza <= 0 Then If IDMPoliza.IdPoliza <= 0 Then
' Mensaje = "No se pudo generar la poliza" Mensaje = "No se pudo generar la poliza"
' ErrorCancelar = True ErrorCancelar = True
' End If End If
' End If End If
' If Not ErrorCancelar Then If Not ErrorCancelar Then
' If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, ObjCancelacion.CancelacionAcuse, Now, CveVenta, IDPoliza, CvePAC:=UsuarioActual.Empresa.CvePAC) Then If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, ObjCancelacion.CancelacionAcuse, Now, CveVenta, IDPoliza, CvePAC:=UsuarioActual.Empresa.CvePAC) Then
' Mensaje = "El nuevo estatus se guardó correctamente" Mensaje = "El nuevo estatus se guardó correctamente"
' Else Else
' ErrorCancelar = True ErrorCancelar = True
' End If End If
' End If End If
'Else Else
' ErrorCancelar = True ErrorCancelar = True
'End If End If
ObjCancelacion = Nothing ObjCancelacion = Nothing
@@ -23651,15 +23651,15 @@ Partial Class Ventas
Try Try
If FolioFiscal <> "" Then If FolioFiscal <> "" Then
'If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
' 'Generamos el acuse y mandamos mail de con el acuse de cancelación - DF 13/01/2017 'Generamos el acuse y mandamos mail de con el acuse de cancelación - DF 13/01/2017
' CancelacionFecha = ObjCancelacion.CancelacionFecha CancelacionFecha = ObjCancelacion.CancelacionFecha
' CancelacionAcuse = ObjCancelacion.CancelacionAcuse CancelacionAcuse = ObjCancelacion.CancelacionAcuse
' CveEstatus = 5 CveEstatus = 5
'Else Else
' Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError) Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
' Exit Sub Exit Sub
'End If End If
Else Else
CancelacionFecha = Now.Date CancelacionFecha = Now.Date
CancelacionAcuse = "" CancelacionAcuse = ""
@@ -32601,20 +32601,20 @@ Partial Class Ventas
Dim Msg As New StringBuilder() Dim Msg As New StringBuilder()
Msg.AppendFormat("Mensaje Póliza Virtual: {0} - Código: {1}", resp(0)("Descripcion").ToString(), resp(0)("Codigo")) Msg.AppendFormat("Mensaje Póliza Virtual: {0} - Código: {1}", resp(0)("Descripcion").ToString(), resp(0)("Codigo"))
'If resp(0)("Codigo").ToString().Contiene("500", "501", "502", "503", "504", "505", "506", "507", "508", "510") Then If resp(0)("Codigo").ToString().Contiene("500", "501", "502", "503", "504", "505", "506", "507", "508", "510") Then
' Retorno = True Retorno = True
' Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
' If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, True, Now, obj.product_unique_code) Then If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, True, Now, obj.product_unique_code) Then
' Alert(Msg.ToString(), TipoMensaje.MsgInformacion) Alert(Msg.ToString(), TipoMensaje.MsgInformacion)
' End If End If
' ObjAcum.Dispose() ObjAcum.Dispose()
'Else Else
' Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
' If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, False, Now, obj.product_unique_code) Then If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, False, Now, obj.product_unique_code) Then
' Alert(Msg.ToString(), TipoMensaje.MsgAdvertencia) Alert(Msg.ToString(), TipoMensaje.MsgAdvertencia)
' End If End If
' ObjAcum.Dispose() ObjAcum.Dispose()
'End If End If
Dim ObjEventos As New ClsOIEventos() Dim ObjEventos As New ClsOIEventos()
If Not ObjEventos.AddEventoBitacora(Msg.ToString(), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Me.CveVenta) Then If Not ObjEventos.AddEventoBitacora(Msg.ToString(), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Me.CveVenta) Then