-- se quitaron propiedades de empresa
idcuenta, perdida,ganancia,ieps,iva -- se quitó globaldtclasificación porcentaje
This commit is contained in:
@@ -93,9 +93,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje
|
||||
DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
|
||||
Alert("Clasificación porcentaje agregado correctamente")
|
||||
If ObjGenerales.GetClasificacionPorcentaje(-1) Then
|
||||
GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
|
||||
End If
|
||||
'If ObjGenerales.GetClasificacionPorcentaje(-1) Then
|
||||
' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
|
||||
'End If
|
||||
CargaDatos()
|
||||
CargaContPaq()
|
||||
UpDatos.Update()
|
||||
@@ -105,9 +105,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje
|
||||
DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
|
||||
Alert("Clasificación porcentaje actualizado correctamente")
|
||||
If ObjGenerales.GetClasificacionPorcentaje(-1) Then
|
||||
GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
|
||||
End If
|
||||
'If ObjGenerales.GetClasificacionPorcentaje(-1) Then
|
||||
' GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
|
||||
'End If
|
||||
CargaDatos()
|
||||
CargaContPaq()
|
||||
UpDatos.Update()
|
||||
@@ -120,9 +120,9 @@ Partial Class Contabilidad_CatClasificacionPorcentaje
|
||||
Dim objgenerales As New ClsGenerales
|
||||
If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then
|
||||
Alert("la clasificación porcentaje se eliminó correctamente")
|
||||
If objgenerales.GetClasificacionPorcentaje(-1) Then
|
||||
GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados
|
||||
End If
|
||||
'If objgenerales.GetClasificacionPorcentaje(-1) Then
|
||||
' GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados
|
||||
'End If
|
||||
CargaDatos()
|
||||
CargaContPaq()
|
||||
UpDatos.Update()
|
||||
|
||||
@@ -810,9 +810,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA
|
||||
If FluctuacionCambiariaIVA < 0 Then
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
|
||||
tempMovto = True ' ganancia cambiaria
|
||||
Else
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
|
||||
tempMovto = False ' perdida cambiaria
|
||||
End If
|
||||
If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then
|
||||
If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuacion IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera
|
||||
@@ -823,9 +823,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
|
||||
If Dif < 0 Then
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
|
||||
tempMovto = True ' ganancia cambiaria
|
||||
Else
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
|
||||
tempMovto = False ' perdida cambiaria
|
||||
End If
|
||||
|
||||
ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)
|
||||
@@ -858,9 +858,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA
|
||||
If FluctuacionCambiariaIVA < 0 Then
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
|
||||
tempMovto = True ' ganancia cambiaria
|
||||
Else
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
|
||||
tempMovto = False ' perdida cambiaria
|
||||
End If
|
||||
If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then
|
||||
If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuacion IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera
|
||||
@@ -871,9 +871,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
|
||||
If Dif < 0 Then
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
|
||||
tempMovto = True ' ganancia cambiaria
|
||||
Else
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
|
||||
tempMovto = False ' perdida cambiaria
|
||||
End If
|
||||
|
||||
ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)
|
||||
@@ -1123,7 +1123,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
IVAxAcreditar = IVAAcreditable
|
||||
IVAAcreditable = 0
|
||||
|
||||
If UsuarioActual.Empresa.ContaContabilizacionNC = 1 Then
|
||||
If 1 = 1 Then
|
||||
TipoCambioCompra = TipoCambioCompra * -1 'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores
|
||||
TipoCambioPago = TipoCambioPago * -1
|
||||
TipoCambioFechaCompra = TipoCambioFechaCompra * -1
|
||||
@@ -1301,9 +1301,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
If UsuarioActual.CveEmpresa = 66 Then
|
||||
FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA
|
||||
If FluctuacionCambiariaIVA < 0 Then
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
|
||||
tempMovto = True ' ganancia cambiaria
|
||||
Else
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
|
||||
tempMovto = False ' perdida cambiaria
|
||||
End If
|
||||
If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then
|
||||
If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuación IVA " & ConceptoDetalle, 0, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera
|
||||
@@ -1320,9 +1320,9 @@ Partial Class Contabilidad_DiarioAmortizaciones
|
||||
|
||||
|
||||
If Dif < 0 Then
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
|
||||
tempMovto = True ' ganancia cambiaria
|
||||
Else
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
|
||||
tempMovto = False ' perdida cambiaria
|
||||
End If
|
||||
|
||||
ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)
|
||||
|
||||
@@ -344,7 +344,7 @@ Partial Class Contabilidad_DiarioCompras
|
||||
|
||||
If gvr.DataKey("TipoDocto") = "NC" Then
|
||||
|
||||
If UsuarioActual.Empresa.ContaContabilizacionNC <> 0 Then
|
||||
If 1 <> 0 Then
|
||||
'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores
|
||||
MultNC = -1
|
||||
Else
|
||||
|
||||
@@ -697,7 +697,7 @@ Partial Class Contabilidad_DiarioPagos
|
||||
|
||||
If gvrc.FCHiddenField("HdnTipoDocto").Value = "NC" Then
|
||||
|
||||
If UsuarioActual.Empresa.ContaContabilizacionNC = 1 Then
|
||||
If 1 = 1 Then
|
||||
TipoCambioCompra = TipoCambioCompra * -1 'cuando el movimiento de las nc, sea <> cero, quiero decir que solo convertimos a negativos los valores
|
||||
TipoCambioPago = TipoCambioPago * -1
|
||||
TipoCambioFechaCompra = TipoCambioFechaCompra * -1
|
||||
@@ -1054,9 +1054,9 @@ Partial Class Contabilidad_DiarioPagos
|
||||
If UsuarioActual.CveEmpresa = 66 Then
|
||||
FluctuacionCambiariaIVA = Math.Round((IVAAcreditable * TipoCambioFechaCompra) - (IVAAcreditable * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE IVA
|
||||
If FluctuacionCambiariaIVA < 0 Then
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
|
||||
tempMovto = True ' ganancia cambiaria
|
||||
Else
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
|
||||
tempMovto = False ' perdida cambiaria
|
||||
End If
|
||||
If Math.Abs(FluctuacionCambiariaIVA) <> 0 Then
|
||||
If Not Conta.AddMovimiento(IDPoliza, CtaFluctuacion, tempMovto, Math.Abs(FluctuacionCambiariaIVA), gvrc.FCHiddenField("HdnSerieFolio").Value, "Fluctuación IVA " & ConceptoDetalle, IdSegNeg, Fecha, gvr.DataKey("CveProveedor").ContaReferencia(TipoContaReferencia.Proveedor), 0) Then MsgError = "No se pudo insertar movimiento contable" : Exit For ' no lleva moneda extranjera
|
||||
@@ -1073,9 +1073,9 @@ Partial Class Contabilidad_DiarioPagos
|
||||
|
||||
|
||||
If Dif < 0 Then
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaGananciaCambiaria : tempMovto = True ' ganancia cambiaria
|
||||
tempMovto = True ' ganancia cambiaria
|
||||
Else
|
||||
CtaFluctuacion = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria : tempMovto = False ' perdida cambiaria
|
||||
tempMovto = False ' perdida cambiaria
|
||||
End If
|
||||
|
||||
ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)
|
||||
|
||||
@@ -74,19 +74,6 @@ Partial Class RepCuadreContaAdmon
|
||||
|
||||
Case 8 'Ant Proveedores
|
||||
Return 204
|
||||
|
||||
Case 9 'IVA x Acreditar
|
||||
Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar
|
||||
|
||||
Case 10 'IVA Acreditado
|
||||
Return UsuarioActual.Empresa.IdCuentaIVAAcreditable
|
||||
|
||||
Case 11 'IVA x Trasladar
|
||||
Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar
|
||||
|
||||
Case 12 'IVA Trasladado
|
||||
Return UsuarioActual.Empresa.IdCuentaIVATrasladado
|
||||
|
||||
Case 13 'Ingresos
|
||||
Return 222
|
||||
|
||||
|
||||
@@ -83,18 +83,6 @@ Partial Class RepCuadreContaAdmonDetalle
|
||||
Case 8 'Ant Proveedores
|
||||
Return 204
|
||||
|
||||
Case 9 'IVA x Acreditar
|
||||
Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar
|
||||
|
||||
Case 10 'IVA Acreditado
|
||||
Return UsuarioActual.Empresa.IdCuentaIVAAcreditable
|
||||
|
||||
Case 11 'IVA x Trasladar
|
||||
Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar
|
||||
|
||||
Case 12 'IVA Trasladado
|
||||
Return UsuarioActual.Empresa.IdCuentaIVATrasladado
|
||||
|
||||
Case 13 'Ingresos
|
||||
Return 222
|
||||
|
||||
|
||||
Reference in New Issue
Block a user