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

Entradas salidas

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-01-27 18:06:28 -07:00
parent 9efb6e6058
commit 6912e4ca69
2 changed files with 1374 additions and 1368 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
Compras/Compras.aspx.vb
View File

@@ -2164,7 +2164,7 @@ Partial Class Compras_Compras
If Msg <> "" Then If Msg <> "" Then
Alert($"<b>El comprobante XML presenta las siguientes inconsistencias:</b> <br><br> {Msg}", TipoMensaje.MsgAdvertencia) Alert($"<b>El comprobante XML presenta las siguientes inconsistencias:</b> <br><br> {Msg}", TipoMensaje.MsgAdvertencia)
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
''''BLOQUEA ACCIONES'''' ''''BLOQUEA ACCIONES''''
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
@@ -2839,7 +2839,7 @@ Partial Class Compras_Compras
'BLOQUEA OC 'BLOQUEA OC
TxtOC.Enabled = False TxtOC.Enabled = False
ImgBtnBuscarOC.Visible = False ImgBtnBuscarOC.Visible = False
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
GvAnticiposSel.DataSource = dtnc GvAnticiposSel.DataSource = dtnc
GvAnticiposSel.DataBind() GvAnticiposSel.DataBind()
@@ -6634,24 +6634,24 @@ Partial Class Compras_Compras
If CveTipoConcepto = 2 Then CveConceptoComplementario = 310 If CveTipoConcepto = 2 Then CveConceptoComplementario = 310
If tipoCambioActual = 1 Then If tipoCambioActual = 1 Then
IdCtaContable = CtaProveedor IdCtaContable = CtaProveedor
CveCuenta = CveCuentaProveedor CveCuenta = CveCuentaProveedor
Else Else
IdCtaContable = CtaProveedorComplementaria IdCtaContable = CtaProveedorComplementaria
CveCuenta = CveCuentaProveedorComplementaria CveCuenta = CveCuentaProveedorComplementaria
If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
importeMN = importeMovimiento importeMN = importeMovimiento
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
CveCuenta = CveCuentaProveedorExtranjera CveCuenta = CveCuentaProveedorExtranjera
End If
End If End If
End If
Case 59 'Documentos Case 59 'Documentos
importeMovimiento = importeCreditos importeMovimiento = importeCreditos
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then
@@ -8838,14 +8838,20 @@ Partial Class Compras_Compras
'Si el importe total de la amortizacion es igual al saldo de la compra se registra IVA 'Si el importe total de la amortizacion es igual al saldo de la compra se registra IVA
If IVACompleto = False AndAlso UsuarioActual.Empresa.Funcionalidad(521) = "1" Then If IVACompleto = False AndAlso UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
If sumaAmortizacionCompleto = CompraSaldo Then If sumaAmortizacionCompleto = CompraSaldo Then
Dim PorcentajeImpuesto As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal Dim PorcentajeImpuesto As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
ErrorMovtosCxP = 1
End If If TxtIVA.Text.ToDecimal > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, True, TxtIVA.Text.ToDecimal, "", 14, "", Fecha, IdCtaIVAXAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then ErrorMovtosCxP = 1
ErrorMovtosCxP = 1 End If
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, False, TxtIVA.Text.ToDecimal, "", 19, "", Fecha, IdCtaIVAAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=TxtIVA.Text.ToDecimal * tipoCambio, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, TxtIVA.Text.ToDecimal), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
ErrorMovtosCxP = 1
End If
End If
End If End If
End If End If
@@ -11634,7 +11640,7 @@ Partial Class Compras_Compras
#Region "TAB - ACTIVOS FIJOS -AF" #Region "TAB - ACTIVOS FIJOS -AF"
Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs) Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
Tab.ActiveTabIndex = 3 TAB.ActiveTabIndex = 3
If GvAFInsumos.Rows.Count > 0 Then If GvAFInsumos.Rows.Count > 0 Then
llenaDtsAF() llenaDtsAF()
@@ -13706,7 +13712,7 @@ Partial Class Compras_Compras
UpFacturar.Update() UpFacturar.Update()
TabGenerales.Enabled = True TabGenerales.Enabled = True
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
UpTabs.Update() UpTabs.Update()
ImgClasificacion.Visible = False ImgClasificacion.Visible = False
@@ -14435,7 +14441,7 @@ Partial Class Compras_Compras
'SI NO ES UNA COMPRA REGISTRADA = ENABLE FALSE TAB GENERALES, ACTIVE TAB OC 'SI NO ES UNA COMPRA REGISTRADA = ENABLE FALSE TAB GENERALES, ACTIVE TAB OC
If Not CveCompra > 0 Then If Not CveCompra > 0 Then
TabGenerales.Enabled = False TabGenerales.Enabled = False
Tab.ActiveTabIndex = 2 TAB.ActiveTabIndex = 2
UpTabs.Update() UpTabs.Update()
End If End If
@@ -14995,7 +15001,7 @@ Partial Class Compras_Compras
UpFacturar.Update() UpFacturar.Update()
TabGenerales.Enabled = True TabGenerales.Enabled = True
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
UpTabs.Update() UpTabs.Update()
@@ -15098,7 +15104,7 @@ Partial Class Compras_Compras
UpFacturar.Update() UpFacturar.Update()
TabGenerales.Enabled = True TabGenerales.Enabled = True
Tab.ActiveTabIndex = 0 TAB.ActiveTabIndex = 0
UpTabs.Update() UpTabs.Update()
ImgClasificacion.Visible = False ImgClasificacion.Visible = False

2684
Empresas/Grales/Formatos/EntradaSalida.rdlc
View File

File diff suppressed because it is too large Load Diff