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

Ventas Rep Productos servicios leyennda de grafico cantidad, compras Case 23 'RetISR Acreditable se quita insert al agregar anticipo

Browse Source
This commit is contained in:
rakcsle
2022-06-29 18:48:00 -07:00
parent d0bfe6a679
commit 2607b0c34f
2 changed files with 21 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Compras/Compras.aspx.vb
View File

@@ -9336,14 +9336,16 @@ Partial Class Compras_Compras
End If End If
End If End If
If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}"
'Agregamos el Opuesto del 22 -> 15
If ImporteMovimiento <> 0 Then 'If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}"
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then ''Agregamos el Opuesto del 22 -> 15
ErrorMovtosCxP = 1 'If ImporteMovimiento <> 0 Then
Exit For ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoAnticipo) Then
End If ' ErrorMovtosCxP = 1
End If ' Exit For
' End If
'End If
End If End If
End If End If
@@ -9436,13 +9438,7 @@ Partial Class Compras_Compras
If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}"
'Agregamos el Opuesto del 23 -> 16
If ImporteMovimiento <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContableContra, Concepto + If(tipoCambio > 1, $" TC {tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}", ""), Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=-1, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=-1, CveCreditoDetalle:=-1, ImporteMX:=ImporteMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), Contabilizable:=True, CveSubProyecto:=CveSubProyectoAnticipo) Then
ErrorMovtosCxP = 1
Exit For
End If
End If
End If End If
End If End If

11
Ventas/RepProductosServicios.aspx.vb
View File

@@ -675,6 +675,8 @@ Partial Class Ventas_RepProductosServicios
Dim Row As DataRow = Nothing Dim Row As DataRow = Nothing
Row = Dt.NewRow() Row = Dt.NewRow()
Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
Row("Moneda") = Dr("Moneda").ToString
Select Case DdlVer.SelectedValue.ToEntero Select Case DdlVer.SelectedValue.ToEntero
Case 1 Case 1
Row("Valor") = Dr("Total").ToString.FormatoNumero Row("Valor") = Dr("Total").ToString.FormatoNumero
@@ -684,9 +686,11 @@ Partial Class Ventas_RepProductosServicios
Row("Valor") = Dr("IVA").ToString.FormatoNumero Row("Valor") = Dr("IVA").ToString.FormatoNumero
Case 4 Case 4
Row("Valor") = Dr("Cantidad").ToString.FormatoNumero Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
Row("Texto") = $"{Dr("GPO").ToString} Cantidad"
End Select End Select
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
Row("Moneda") = Dr("Moneda").ToString
Dt.Rows.Add(Row) Dt.Rows.Add(Row)
RowColorIndex += 1 RowColorIndex += 1
If RowColorIndex = 17 Then If RowColorIndex = 17 Then
@@ -696,6 +700,11 @@ Partial Class Ventas_RepProductosServicios
Next Next
Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
If DdlVer.SelectedValue.ToEntero = 4 Then
query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = ""}
End If
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query) Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
Select Case DdlGrafica.SelectedValue.ToEntero Select Case DdlGrafica.SelectedValue.ToEntero
Case 1 Case 1