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

Correciones Compras, Foramto OC 189, Formato CFDI GRales,RepContato detale correciones

Browse Source
This commit is contained in:
rakcsle
2024-11-14 08:15:52 -07:00
parent 6710b55c6c
commit a4c844dcf9
9 changed files with 395 additions and 368 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Compras/Compras.aspx.vb
View File

@@ -1962,10 +1962,12 @@ Partial Class Compras_Compras
Dim BaseIVA As Decimal = 0
Dim TasaIEPS As String = ""
Dim traslados As XmlNodeList = impuestosNode.SelectNodes("cfdi:Traslados/cfdi:Traslado", namespaces)
Dim tieneIEPS As Boolean = False
For Each traslado As XmlNode In traslados
' Obtener los valores de los atributos Base e Importe
Dim baseValue As Decimal = Decimal.Parse(ValorXML(traslado, "Base")).RoundSQL(2)
Dim impuesto As String = ValorXML(traslado, "Impuesto")
Dim importeImpuesto As Decimal = ValorXML(traslado, "Importe").ToDecimal.RoundSQL(2)
If impuesto = "001" Then
impuesto = "ISR"
@@ -1975,12 +1977,12 @@ Partial Class Compras_Compras
ElseIf impuesto = "003" Then
impuesto = "IEPS"
TasaIEPS = ValorXML(traslado, "TasaOCuota")
BaseIEPS += baseValue
BaseIEPS = baseValue + importeImpuesto
tieneIEPS = True
End If
Next
' Validar si Base coincide con Importe
If BaseIVA <> BaseIEPS AndAlso BaseIEPS > 0 Then
'SbValRet.Append($"La base e importe de la retención del impuesto {impuesto} no coinciden para {descripcion}. Base: {baseValue.ToString()}, Importe: {importeValue.ToString()} <br>")
If tieneIEPS AndAlso Math.Abs(BaseIVA - BaseIEPS) > 0.01 Then 'subTotal + IEPS
SbValRet.Append($"Producto: {descripcion} La base del IEPS es no coincide con el subtotal, favor de desglosarlo en una base : {BaseIEPS.ToString()}, Tasa: {TasaIEPS} <br>")
End If
End If
@@ -2447,11 +2449,12 @@ Partial Class Compras_Compras
Msg &= String.Format("- Los descuentos del detalle no coinciden con el descuento general <br>")
End If
If Math.Abs(Math.Round(IVATemp, 6) - Math.Round(TrasladoIVA, 6)) > 0.01 Then
Msg &= String.Format("- Los IVAS del detalle no coinciden con el IVA general <br>")
End If
If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)) > 0.01 Then
If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)).RoundAD(2) > 0.01 Then
Msg &= String.Format("- Los IEPS del detalle no coinciden con el IEPS general <br>")
End If
@@ -7638,12 +7641,12 @@ Partial Class Compras_Compras
Dim Msg As New StringBuilder
Msg.Append("La compra se registró correctamente")
If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorPrepolizaDescuadre = True
End If
End If
'If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then
' If ObjConta.ValorPolizaDescuadre > 0 Then
' GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
' ErrorPrepolizaDescuadre = True
' End If
'End If
'ACTUALIZA CVEFACTURA
If Request("CveFactura") IsNot Nothing Then
@@ -13869,14 +13872,18 @@ Partial Class Compras_Compras
End If
End If
Dim dttpagos As DataTable = New DataTable ' 2024-11-13 OIC Esta ubicado antes de Refacturacion por que al refacturar los datos de pago dejan de estar disponibles dttpagos sellena antes
If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then
dttpagos = ObjCompra.DtResultados
End If
Dim Tipo As Integer = 1
If ChkRefacNC.Checked Then Tipo = 2
'CONTABILIZA REFACTURACION
If ObjCompra.Refacturacion(CveCompraRefacturacion, CveCompra, UsuarioActual.CveEmpresa, Tipo) Then
Dim dttpagos As DataTable
If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then
dttpagos = ObjCompra.DtResultados
If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then
For Each drp As DataRow In dttpagos.Rows
Dim Pago As New CompraPago
@@ -13885,22 +13892,17 @@ Partial Class Compras_Compras
Pago.CveMonedaPago = 1
Pago.CveCompraAmortizacion = -1
Pago.TipoPago = If(drp("CveIE").ToString.ToEntero > 0, "B", "NC")
Dim ErrorMovtosCxP As Boolean = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
Next
End If
Else
ErrorBitacora = True
End If
'Return True
Return ErrorBitacora
End Function
Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean

5
Compras/eFacturas.aspx.vb
View File

@@ -1686,7 +1686,7 @@ Partial Class Compras_eFacturas
fpdf = fpdf.Replace($"{fpdfSplit(0)}-", "")
End If
If fxml.Contains(fpdf) Then
If fxml.Contains(fpdf) Or (ListXML.Count = 1 And ListPDF.Count = 1) Then
RutaPDF = fInfoPDF.FullName
Exit For
End If
@@ -7985,6 +7985,9 @@ Namespace ADS.eFacturas
GuardaLogAD(ex.ToString(), ArchivoLog)
End Try
ElseIf Fact.RespuestaInsert = 0 AndAlso Fact.CveFactura > 0 Then
'FIXME OIC
Else
rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Error al insertar"
End If

121
Empresas/189/Formatos/OC.rdlc
View File

@@ -504,7 +504,7 @@
<Value>=CStr(RowNumber(Nothing))</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -535,14 +535,14 @@
<Value>=Fields!Cantidad.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
<Format>#,0.00;(#,0.00)</Format>
<Format>#,0.## </Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
@@ -553,6 +553,7 @@
</Border>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -567,13 +568,13 @@
<Value>=Fields!UM.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
@@ -598,7 +599,7 @@
<Value>=Fields!CodPS.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -629,7 +630,7 @@
<Value>=Fields!Producto.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -658,7 +659,7 @@
<Value>=Fields!Obs.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -687,7 +688,7 @@
<Value>=Fields!Importe.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
<Format>#,0.00</Format>
<Language>es-MX</Language>
@@ -720,7 +721,7 @@
<Value>=Fields!Descuento.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
<Format>#,0.00;(#,0.00);'-'</Format>
<Language>es-MX</Language>
@@ -753,7 +754,7 @@
<Value>=Fields!Total.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight>
<Format>#,0.00</Format>
<Language>es-MX</Language>
@@ -804,7 +805,7 @@
<DataSetName>DsOC</DataSetName>
<Left>0.04788in</Left>
<Height>0.34081in</Height>
<Width>8.16913in</Width>
<Width>8.16912in</Width>
<Style>
<Border>
<Style>None</Style>
@@ -823,7 +824,7 @@
<Value>I.V.A.</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -833,7 +834,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>1.84536cm</Top>
<Top>1.76972cm</Top>
<Left>15.76748cm</Left>
<Height>0.45183cm</Height>
<Width>2.5cm</Width>
@@ -857,7 +858,7 @@
<Value>TOTAL:</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -867,7 +868,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>3.94467cm</Top>
<Top>3.86903cm</Top>
<Left>15.77277cm</Left>
<Height>0.45183cm</Height>
<Width>2.5cm</Width>
@@ -892,7 +893,7 @@
<Value>=Parameters!IVA.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -904,7 +905,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>1.84536cm</Top>
<Top>1.76972cm</Top>
<Left>18.26748cm</Left>
<Height>0.45183cm</Height>
<Width>2.4365cm</Width>
@@ -930,7 +931,7 @@
<Value>=Parameters!Total.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -942,7 +943,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>3.94467cm</Top>
<Top>3.86903cm</Top>
<Left>18.27277cm</Left>
<Height>0.45183cm</Height>
<Width>2.43121cm</Width>
@@ -968,7 +969,7 @@
<Value>SUB-TOTAL</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -978,7 +979,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>0.40195cm</Top>
<Top>0.32631cm</Top>
<Left>15.76748cm</Left>
<Height>0.45183cm</Height>
<Width>2.5cm</Width>
@@ -1003,7 +1004,7 @@
<Value>=Parameters!SubTotal.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1015,8 +1016,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>0.40195cm</Top>
<Left>18.26748cm</Left>
<Top>0.32631cm</Top>
<Left>18.29588cm</Left>
<Height>0.45183cm</Height>
<Width>2.4365cm</Width>
<ZIndex>5</ZIndex>
@@ -1050,7 +1051,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName>
<Top>4.05051cm</Top>
<Top>4.13362cm</Top>
<Left>0.00001cm</Left>
<Height>0.45183cm</Height>
<Width>15.04926cm</Width>
@@ -1080,7 +1081,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>0.11768cm</Top>
<Top>0.04204cm</Top>
<Height>0.14316cm</Height>
<Width>20.70398cm</Width>
<ZIndex>7</ZIndex>
@@ -1112,7 +1113,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>3.73096cm</Top>
<Top>3.65532cm</Top>
<Left>15.22566cm</Left>
<Height>0.14316cm</Height>
<Width>5.47753cm</Width>
@@ -1145,7 +1146,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>4.50233cm</Top>
<Top>4.42669cm</Top>
<Left>15.22566cm</Left>
<Height>0.14502cm</Height>
<Width>5.47832cm</Width>
@@ -1186,7 +1187,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.43723cm</Top>
<Top>0.36159cm</Top>
<Left>0.03529cm</Left>
<Height>0.41479cm</Height>
<Width>14.67376cm</Width>
@@ -1211,7 +1212,7 @@
<Value>Ret I.V.A</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1221,7 +1222,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>2.29719cm</Top>
<Top>2.22155cm</Top>
<Left>15.76669cm</Left>
<Height>0.45183cm</Height>
<Width>2.5cm</Width>
@@ -1249,7 +1250,7 @@
<Value>=Parameters!RetIVA.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1261,7 +1262,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>2.29719cm</Top>
<Top>2.22155cm</Top>
<Left>18.26669cm</Left>
<Height>0.45183cm</Height>
<Width>2.4365cm</Width>
@@ -1290,7 +1291,7 @@
<Value>Ret I.S.R</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1300,7 +1301,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>2.74902cm</Top>
<Top>2.67338cm</Top>
<Left>15.76669cm</Left>
<Height>0.45183cm</Height>
<Width>2.5cm</Width>
@@ -1328,7 +1329,7 @@
<Value>=Parameters!RetISR.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1340,7 +1341,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>2.74902cm</Top>
<Top>2.67338cm</Top>
<Left>18.26669cm</Left>
<Height>0.45183cm</Height>
<Width>2.4365cm</Width>
@@ -1369,7 +1370,7 @@
<Value>I.E.P.S</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1379,7 +1380,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>3.20085cm</Top>
<Top>3.12521cm</Top>
<Left>15.76669cm</Left>
<Height>0.45183cm</Height>
<Width>2.5cm</Width>
@@ -1407,7 +1408,7 @@
<Value>=Sum(Fields!IEPS.Value, "DsOC")</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1419,7 +1420,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>3.20085cm</Top>
<Top>3.12521cm</Top>
<Left>18.26669cm</Left>
<Height>0.45183cm</Height>
<Width>2.4365cm</Width>
@@ -1448,7 +1449,7 @@
<Value>DESCUENTO</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1458,7 +1459,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>0.88906cm</Top>
<Top>0.81342cm</Top>
<Left>15.77355cm</Left>
<Height>0.45183cm</Height>
<Width>2.5cm</Width>
@@ -1486,7 +1487,7 @@
<Value>=Parameters!Descuento.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1498,7 +1499,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>0.88906cm</Top>
<Top>0.81342cm</Top>
<Left>18.27355cm</Left>
<Height>0.45183cm</Height>
<Width>2.4365cm</Width>
@@ -1527,7 +1528,7 @@
<Value>SUB-TOTAL2</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1537,7 +1538,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>1.34089cm</Top>
<Top>1.26525cm</Top>
<Left>15.77355cm</Left>
<Height>0.45183cm</Height>
<Width>2.5cm</Width>
@@ -1565,7 +1566,7 @@
<Value>=Parameters!SubTotal2.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1577,7 +1578,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Top>1.34089cm</Top>
<Top>1.26525cm</Top>
<Left>18.27355cm</Left>
<Height>0.45183cm</Height>
<Width>2.4365cm</Width>
@@ -1598,10 +1599,10 @@
</Textbox>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>1.12516cm</Top>
<Top>1.04205cm</Top>
<Left>0.12849cm</Left>
<Height>5.34083cm</Height>
<Width>20.71005cm</Width>
<Height>5.42394cm</Height>
<Width>20.73238cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -1755,7 +1756,15 @@
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>SemiBold</FontWeight>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
@@ -1931,7 +1940,7 @@
</Paragraphs>
<rd:DefaultName>Textbox36</rd:DefaultName>
<Top>2.50885cm</Top>
<Left>13.33144cm</Left>
<Left>12.69644cm</Left>
<Height>3.45728cm</Height>
<Width>7.11877cm</Width>
<ZIndex>1</ZIndex>

6
Empresas/Grales/Formatos/CFDIV3.rdlc
View File

@@ -2022,7 +2022,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Cadena original del complemento de cretificación del SAT:</Value>
<Value>Cadena original del complemento de certificación del SAT:</Value>
<Style>
<FontFamily>arial</FontFamily>
<FontSize>8pt</FontSize>
@@ -2086,6 +2086,7 @@
</Style>
</Textbox>
<ColSpan>4</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell />
@@ -2226,7 +2227,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>RFC del proveedor de cretificación:</Value>
<Value>RFC del proveedor de certificación:</Value>
<Style>
<FontFamily>arial</FontFamily>
<FontSize>8pt</FontSize>
@@ -4647,7 +4648,6 @@
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>

14
Transportes/RepContratoDetalle.aspx
View File

@@ -163,7 +163,6 @@
<ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
<div class="input-group">
</div>
</div>
@@ -388,10 +387,11 @@
<asp:Label runat="server" ID="LblSaldo"></asp:Label>
</div>
</div>
<br />
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" ShowFooter="true"
DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal,TipoReferencia"
EmptyDataText="No se encontraron pagos" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None"
@@ -461,10 +461,10 @@
<div class="portlet-body rowpadding">
<div class="row">
<div class="col-md-12" style="text-align: center;">
<asp:UpdatePanel ID="UPAFUL" runat="server" UpdateMode="Conditional">
<asp:UpdatePanel ID="UPAFUL" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:HyperLink target="_blank" runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:HyperLink>
<asp:HyperLink Target="_blank" runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:HyperLink>
<asp:TextBox Style="display: none" ID="TxtArchivo" ClientIDMode="Static" runat="server"
Width="200px"></asp:TextBox>
@@ -474,10 +474,8 @@
aria-hidden="true"></i>Subir Archivo</button>
</ContentTemplate>
<Triggers>
</Triggers>
</asp:UpdatePanel>
</div>
</div>
</div>
@@ -1147,6 +1145,7 @@
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<%--Modal subir archivo--%>
@@ -1220,6 +1219,7 @@
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnGuardarEventoBitacora" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>

8
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -620,15 +620,19 @@ Partial Class RepContratoDetalle
If Not ErrorProceso Then
ObjContratos.Commit()
ObjContratos.Dispose()
AgregarABitacora($"Actualización del contrato {CveContrato}")
CargaDatos()
Alert("Contrato actualizado correctamente")
Else
Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
ObjContratos.RollBack()
End If
ObjContratos.Dispose()
If Not ErrorProceso Then
'CargaDatos()
End If
End Sub
Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean

2
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -182,7 +182,7 @@ Partial Class RepContratosCalendario
'strData.Append($",new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})")
'RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})"});", "A1")
RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1")
' RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1")
UPScheduler.Update()

8
Ventas/ProductosServicios.aspx.vb
View File

@@ -3349,6 +3349,8 @@ Partial Class ProductosyServicios
Else
If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
If ObjPS.DtResultados IsNot Nothing AndAlso ObjPS.DtResultados.Rows.Count = 1 Then
Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
@@ -3366,10 +3368,16 @@ Partial Class ProductosyServicios
Return True
End If
Else
Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
Return True
End If
Else
Alert(String.Format("Se presento un error al consultar la existencia en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
Return True
End If
End If
GlobalDTPSSimplificado(CveEmpresaFranquicia) = Nothing

1
Ventas/Promociones.aspx.vb
View File

@@ -855,6 +855,7 @@ Partial Class Ventas_Promociones
If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) Then
TieneError = True
CvePromocion = -1
End If
End If