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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
janeth arvizu
2019-08-27 14:14:35 -07:00
parent 68abc82fd7 1b235737b0
commit 1cee95c506
11 changed files with 84 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsPaginas.vb
View File

@@ -1355,12 +1355,12 @@ Public Class ClsPaginas
Application("GlobalDTTipoTransacciones") = value Application("GlobalDTTipoTransacciones") = value
End Set End Set
End Property End Property
Property GlobalDTEstatusIE() As DataTable Property GlobalDTBancosEstatusIE() As DataTable
Get Get
GlobalDTEstatusIE = DirectCast(Application("GlobalDTEstatusIE"), DataTable) GlobalDTBancosEstatusIE = DirectCast(Application("GlobalDTBancosEstatusIE"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTEstatusIE") = value Application("GlobalDTBancosEstatusIE") = value
End Set End Set
End Property End Property
Property GlobalDTBancosIE() As DataTable Property GlobalDTBancosIE() As DataTable

16
Bancos/CatBancosEstatusIE.aspx.vb
View File

@@ -25,8 +25,8 @@ Partial Class Bancos_CatBancosEstatusIE
Dim ObjEstatusIE As New ClsBancos Dim ObjEstatusIE As New ClsBancos
If ObjEstatusIE.GetBancos_EstatusIE() Then If ObjEstatusIE.GetBancos_EstatusIE() Then
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Else Else
Me.GvDatos.DataSource = Nothing Me.GvDatos.DataSource = Nothing
End If End If
@@ -47,9 +47,9 @@ Partial Class Bancos_CatBancosEstatusIE
Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update() UpTitulos.Update()
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString()) CargaGrid(ViewState("Orden").ToString())
Else Else
CargaGrid("") CargaGrid("")
@@ -145,8 +145,8 @@ Partial Class Bancos_CatBancosEstatusIE
TxtCveEstatusIE.Text = "" TxtCveEstatusIE.Text = ""
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
ObjEstatusIE.Dispose() ObjEstatusIE.Dispose()
@@ -178,8 +178,8 @@ Partial Class Bancos_CatBancosEstatusIE
If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
ObjEstatusIE.Dispose() ObjEstatusIE.Dispose()

4
Bancos/CatEstatusIE.aspx.vb
View File

@@ -42,8 +42,8 @@ Partial Class Bancos_CatEstatusIE
Dim ObjEstatusIE As New ClsBancos Dim ObjEstatusIE As New ClsBancos
If ObjEstatusIE.GetBancos_EstatusIE() Then If ObjEstatusIE.GetBancos_EstatusIE() Then
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
GvDatos.DataSource = GlobalDTEstatusIE GvDatos.DataSource = GlobalDTBancosEstatusIE
Else Else
GvDatos.DataSource = Nothing GvDatos.DataSource = Nothing
End If End If

14
Bancos/IE.aspx.vb
View File

@@ -701,16 +701,16 @@ Partial Class Bancos_IE
LnkAjustarMovimiento.Visible = True LnkAjustarMovimiento.Visible = True
End If End If
If Not VerificaComplementos(True) Then 'If Not VerificaComplementos(True) Then
LnkCancelarComplemento.Visible = False ' LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False ' LnkCancelarComplementoImporte.Visible = False
UppEliminarIE.Update() ' UppEliminarIE.Update()
End If 'End If
End If End If
End Sub End Sub
@@ -960,6 +960,10 @@ Partial Class Bancos_IE
HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}" HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}"
End If End If
LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False
UppEliminarIE.Update()
CargaEventoBitacora() CargaEventoBitacora()
CargaGvBitacora() CargaGvBitacora()

2
Bancos/RepIE.aspx.vb
View File

@@ -423,7 +423,7 @@ Partial Class Bancos_RepIE
DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1")) DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub End Sub
Private Sub CargaEstatusIE() Private Sub CargaEstatusIE()
DdlEstatusIE.DataSource = GlobalDTEstatusIE DdlEstatusIE.DataSource = GlobalDTBancosEstatusIE
DdlEstatusIE.DataBind() DdlEstatusIE.DataBind()
End Sub End Sub
Private Sub CargaUsuarioConcilio() Private Sub CargaUsuarioConcilio()

21
Compras/Compras.aspx.vb
View File

@@ -9744,18 +9744,21 @@ Partial Class Compras_Compras
ReceptorRFC = ValorXML(node, "RFC") ReceptorRFC = ValorXML(node, "RFC")
End If End If
node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) If UsuarioActual.CveEmpresa.Contiene(119) Then
If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
If ValorXML(node, "TipoRelacion").ToString.Contiene("04", "07") Then If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces) If ValorXML(node, "TipoRelacion").ToString.Contiene("04", "07") Then
For Each documento As XmlNode In nodeDocumentosRelacionados Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces)
If documento.Attributes("UUID").Value <> "" Then For Each documento As XmlNode In nodeDocumentosRelacionados
ListaDocumentos.Add(documento.Attributes("UUID").Value) If documento.Attributes("UUID").Value <> "" Then
End If ListaDocumentos.Add(documento.Attributes("UUID").Value)
Next End If
Next
End If
End If End If
End If End If
node = XMLDoc.SelectSingleNode(String.Format("//{0}:Impuestos", Prefijo), namespaces) node = XMLDoc.SelectSingleNode(String.Format("//{0}:Impuestos", Prefijo), namespaces)
If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
Dim nodeRetenciones As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces) Dim nodeRetenciones As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces)

2
Contratos/Contrato.aspx.vb
View File

@@ -3260,7 +3260,7 @@ Partial Class Contratos_Default
Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble
Dim CvePS As Integer = 0 Dim CvePS As Integer = 0
Dim CveUM As Integer = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero Dim CveUM As Integer = 0 ' GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero
Dim CodigoPS As Integer = 0 Dim CodigoPS As Integer = 0
Dim Total As Double = (Cantidad * PrecioUnitario) Dim Total As Double = (Cantidad * PrecioUnitario)

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1528,7 +1528,7 @@ Partial Class Inventarios_EntradasSalidas
If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
End If End If
Case 13 Case 13, 29
CveConceptoContable = 69 CveConceptoContable = 69
Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
If drr IsNot Nothing Then If drr IsNot Nothing Then
@@ -1881,7 +1881,7 @@ Partial Class Inventarios_EntradasSalidas
Dim filtro As String = "" Dim filtro As String = ""
Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)") filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27)")
If DdlAlmacen.SelectedValue = "-1" Then If DdlAlmacen.SelectedValue = "-1" Then
filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString

1
Planeacion/CatFolios.aspx.vb
View File

@@ -70,6 +70,7 @@ Partial Class CatFolios
DdlTipoDocto.Items.Insert(31, New ListItem("Proveedor", "Pro")) DdlTipoDocto.Items.Insert(31, New ListItem("Proveedor", "Pro"))
DdlTipoDocto.Items.Insert(32, New ListItem("Acreedor", "Acr")) DdlTipoDocto.Items.Insert(32, New ListItem("Acreedor", "Acr"))
DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS")) DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS"))
DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC"))
ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then
DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing")) DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing"))
DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs")) DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs"))

1
Ventas/PopUpBuscarFolio.aspx
View File

@@ -46,6 +46,7 @@
<asp:ListItem Text="Pedido" Value="Ped"></asp:ListItem> <asp:ListItem Text="Pedido" Value="Ped"></asp:ListItem>
<asp:ListItem Text="Autorización" Value="PA"></asp:ListItem> <asp:ListItem Text="Autorización" Value="PA"></asp:ListItem>
<asp:ListItem Text="Pedido2" Value="Pd2"></asp:ListItem> <asp:ListItem Text="Pedido2" Value="Pd2"></asp:ListItem>
<asp:ListItem Text="NC de Remisión" Value="RNC"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</td> </td>
<td class="text-right"><b>Estatus Factura:</b></td> <td class="text-right"><b>Estatus Factura:</b></td>

53
Ventas/Ventas.aspx.vb
View File

@@ -1727,6 +1727,10 @@ Partial Class Ventas
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2")) DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2"))
If UsuarioActual.Empresa.Funcionalidad(344).ToString = "1" Then
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("NC de Remisión", "RNC"))
End If
If UsuarioActual.Empresa.Funcionalidad(528) = "1" Then 'FUNCIONALIDAD. DE REGISTRO DE CUENTA PREDIAL. If UsuarioActual.Empresa.Funcionalidad(528) = "1" Then 'FUNCIONALIDAD. DE REGISTRO DE CUENTA PREDIAL.
GvPS.Columns(ColumnaPredial).Visible = True GvPS.Columns(ColumnaPredial).Visible = True
thPredial1.Visible = True thPredial1.Visible = True
@@ -6568,7 +6572,7 @@ Partial Class Ventas
'ContPAQ El movimiento 1 es el de Venta 'ContPAQ El movimiento 1 es el de Venta
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "Cot", "Ped", "Pd2", "PA", "NC") Then If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then
AutoConta = False AutoConta = False
End If End If
@@ -6623,7 +6627,7 @@ Partial Class Ventas
Dim EstatusSMS = 0 Dim EstatusSMS = 0
'TIMBRADO Y CASO ESPECIAL NOTA DE CREDITO 'TIMBRADO Y CASO ESPECIAL NOTA DE CREDITO
If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "Cot", "Ped", "DPe", "PA", "Pd2")) Then If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "RNC", "Cot", "Ped", "DPe", "PA", "Pd2")) Then
Dim DebeTimbrar As Boolean = True Dim DebeTimbrar As Boolean = True
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
@@ -9104,7 +9108,7 @@ Partial Class Ventas
CvePlantilaPoliza = 4 CvePlantilaPoliza = 4
ElseIf ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then ElseIf ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
CvePlantilaPoliza = 7 CvePlantilaPoliza = 7
ElseIf ObjFactura.TipoDocto = "Rem" Then ElseIf ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
CvePlantilaPoliza = 4 CvePlantilaPoliza = 4
End If End If
@@ -9173,7 +9177,7 @@ Partial Class Ventas
Select Case ConceptoContable Select Case ConceptoContable
Case 1 'Cliente Case 1 'Cliente
If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem") Then If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem", "RNC") Then
importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
@@ -9247,6 +9251,37 @@ Partial Class Ventas
ViewState("SeGuardoPrePoliza") = True ViewState("SeGuardoPrePoliza") = True
End If End If
Case 277 'Remisión del cliente
If ObjFactura.TipoDocto = "RNC" Then
importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
CveSubProyectoContabilizar = CveSubProyectoVenta
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
If tipoCambio = 1 Then
IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
CveCuenta = ObjFactura.Cliente.CveCuentaClientes
Else
IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera
End If
IdCtaContableCliente = IdCtaContable
CveCuentaCliente = CveCuenta
If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
Else
ErrorPrepoliza = True
End If
importeMovimiento = 0
ViewState("SeGuardoPrePoliza") = True
End If
Case 12 'Nota de Credito Case 12 'Nota de Credito
If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
importeMovimiento = ObjFactura.Total * ValorMultiplicador importeMovimiento = ObjFactura.Total * ValorMultiplicador
@@ -9712,7 +9747,7 @@ Partial Class Ventas
importeMovimiento = 0 importeMovimiento = 0
Case 4 'Venta Clasificacion Case 4 'Venta Clasificacion
If Not ObjFactura.TipoDocto.Contiene("Rem", "Ant", "Egs", "Dev") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC", "Ant", "Egs", "Dev") Then
Dim ConceptoContableAplicar = 4 Dim ConceptoContableAplicar = 4
Dim CveVentaAplicar = ObjFactura.CveVenta Dim CveVentaAplicar = ObjFactura.CveVenta
@@ -9890,7 +9925,7 @@ Partial Class Ventas
importeMovimiento = 0 importeMovimiento = 0
Case 103 'Descuento Case 103 'Descuento
If Not ObjFactura.TipoDocto.Contiene("Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then
importeMovimiento = ObjFactura.Descuento * ValorMultiplicador importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
@@ -9937,7 +9972,7 @@ Partial Class Ventas
End If End If
Case 8 'Ret IVA por Trasladar Case 8 'Ret IVA por Trasladar
If Not ObjFactura.TipoDocto.Contiene("Rem") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
@@ -9968,7 +10003,7 @@ Partial Class Ventas
End If End If
Case 9 'Ret ISR por Trasladar Case 9 'Ret ISR por Trasladar
If Not ObjFactura.TipoDocto.Contiene("Rem") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
importeMovimiento = ObjFactura.RetISR * ValorMultiplicador importeMovimiento = ObjFactura.RetISR * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
@@ -9998,7 +10033,7 @@ Partial Class Ventas
End If End If
End If End If
Case 13 'Iva por Trasladar Case 13 'Iva por Trasladar
If Not ObjFactura.TipoDocto.Contiene("Rem") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
importeMovimiento = ObjFactura.IVA * ValorMultiplicador importeMovimiento = ObjFactura.IVA * ValorMultiplicador
importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago