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

-- se quitó el uso de cvecuenta,

Browse Source 
-- correcion de uso de importeME
This commit is contained in:
rrene
2021-05-25 18:57:06 -07:00
parent fca90d9a44
commit a9b54a17a7
3 changed files with 66 additions and 199 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
App_Code/ClsCompProveedores.vb
View File

@@ -44,71 +44,51 @@ Public Class ClsCompProveedores
Public Property RetISR As Double Public Property RetISR As Double
Public Property CP As Integer Public Property CP As Integer
Public Property IdCtaContProveedores As Integer Public Property IdCtaContProveedores As Integer
Public Property CveCuentaProveedores As Integer
Public Property CtaContProveedores As String Public Property CtaContProveedores As String
Public Property IdCtaContProveedoresExtranjera As Integer Public Property IdCtaContProveedoresExtranjera As Integer
Public Property CveCuentaProveedoresExtranjera As Integer
Public Property CtaContProveedoresExtranjera As String Public Property CtaContProveedoresExtranjera As String
Public Property IdCtaContProveedoresComplementaria As Integer Public Property IdCtaContProveedoresComplementaria As Integer
Public Property CveCuentaProveedoresComplementaria As Integer
Public Property CtaContProveedoresComplementaria As String Public Property CtaContProveedoresComplementaria As String
Public Property IdCtaContAcreedor As Integer Public Property IdCtaContAcreedor As Integer
Public Property CveCuentaAcreedor As Integer
Public Property CtaContAcreedor As String Public Property CtaContAcreedor As String
Public Property IdCtaContAcreedorExtranjera As Integer Public Property IdCtaContAcreedorExtranjera As Integer
Public Property CveCuentaAcreedorExtranjera As Integer
Public Property CtaContAcreedorExtranjera As String Public Property CtaContAcreedorExtranjera As String
Public Property IdCtaContAcreedorComplementaria As Integer Public Property IdCtaContAcreedorComplementaria As Integer
Public Property CveCuentaAcreedorComplementaria As Integer
Public Property CtaContAcreedorComplementaria As String Public Property CtaContAcreedorComplementaria As String
Public Property IdCtaContAnticipos As Integer Public Property IdCtaContAnticipos As Integer
Public Property CveCuentaAnticipos As Integer
Public Property CtaContAnticipos As String Public Property CtaContAnticipos As String
Public Property IdCtaContAnticiposExtranjera As Integer Public Property IdCtaContAnticiposExtranjera As Integer
Public Property CveCuentaAnticiposExtranjera As Integer
Public Property CtaContAnticiposExtranjera As String Public Property CtaContAnticiposExtranjera As String
Public Property IdCtaContAnticiposComplementaria As Integer Public Property IdCtaContAnticiposComplementaria As Integer
Public Property CveCuentaAnticiposComplementaria As Integer
Public Property CtaContAnticiposComplementaria As String Public Property CtaContAnticiposComplementaria As String
Public Property IdCtaContDeudor As Integer Public Property IdCtaContDeudor As Integer
Public Property CveCuentaDeudor As Integer
Public Property CtaContDeudor As String Public Property CtaContDeudor As String
Public Property IdCtaContDeudorExtranjera As Integer Public Property IdCtaContDeudorExtranjera As Integer
Public Property CveCuentaDeudorExtranjera As Integer
Public Property CtaContDeudorExtranjera As String Public Property CtaContDeudorExtranjera As String
Public Property IdCtaContDeudorComplementaria As Integer Public Property IdCtaContDeudorComplementaria As Integer
Public Property CveCuentaDeudorComplementaria As Integer
Public Property CtaContDeudorComplementaria As String Public Property CtaContDeudorComplementaria As String
Public Property IdCtaContDocsXPagar As Integer Public Property IdCtaContDocsXPagar As Integer
Public Property CveCuentaDocsXPagar As Integer
Public Property CtaContDocsXPagar As String Public Property CtaContDocsXPagar As String
Public Property IdCtaContDocsXPagarExtranjera As Integer Public Property IdCtaContDocsXPagarExtranjera As Integer
Public Property CveCuentaDocsXPagarExtranjera As Integer
Public Property CtaContDocsXPagarExtranjera As String Public Property CtaContDocsXPagarExtranjera As String
Public Property IdCtaContDocsXPagarComplementaria As Integer Public Property IdCtaContDocsXPagarComplementaria As Integer
Public Property CveCuentaDocsXPagarComplementaria As Integer
Public Property CtaContDocsXPagarComplementaria As String Public Property CtaContDocsXPagarComplementaria As String
Public Property IdCtaContFondoGarantia As Integer Public Property IdCtaContFondoGarantia As Integer
Public Property CveCuentaFondoGarantia As Integer
Public Property CtaContFondoGarantia As String Public Property CtaContFondoGarantia As String
Public Property IdCtaContRetIVA As Integer Public Property IdCtaContRetIVA As Integer
Public Property CveCuentaRetIVA As Integer
Public Property CtaContRetIVA As String Public Property CtaContRetIVA As String
Public Property IdCtaContRetISR As Integer Public Property IdCtaContRetISR As Integer
Public Property CveCuentaRetISR As Integer
Public Property CtaContRetISR As String Public Property CtaContRetISR As String
Public Property IdCtaContRetISRAcreditable As Integer Public Property IdCtaContRetISRAcreditable As Integer
Public Property CveCuentaRetISRAcreditable As Integer
Public Property CtaContRetISRAcreditable As String Public Property CtaContRetISRAcreditable As String
Public Property IdCtaContRetIVAAcreditable As Integer Public Property IdCtaContRetIVAAcreditable As Integer
Public Property CveCuentaRetIVAAcreditable As Integer
Public Property CtaContRetIVAAcreditable As String Public Property CtaContRetIVAAcreditable As String
Public Property Estatus As String Public Property Estatus As String
@@ -346,57 +326,42 @@ Public Class ClsCompProveedores
'Proveedores 'Proveedores
Me.IdCtaContProveedores = Data.Rows(0)("IdCtaContProveedores").ToString.ToEntero Me.IdCtaContProveedores = Data.Rows(0)("IdCtaContProveedores").ToString.ToEntero
Me.CveCuentaProveedores = Data.Rows(0)("IdCtaContProveedoresSIG").ToString.ToEntero
Me.CtaContProveedores = Data.Rows(0)("CtaContProveedores").ToString Me.CtaContProveedores = Data.Rows(0)("CtaContProveedores").ToString
Me.IdCtaContProveedoresExtranjera = Data.Rows(0)("IdCtaContExtranjera").ToString.ToEntero Me.IdCtaContProveedoresExtranjera = Data.Rows(0)("IdCtaContExtranjera").ToString.ToEntero
Me.CveCuentaProveedoresExtranjera = Data.Rows(0)("IdCtaContExtranjeraSIG").ToString.ToEntero
Me.CtaContProveedoresExtranjera = Data.Rows(0)("CtaContExtranjera").ToString Me.CtaContProveedoresExtranjera = Data.Rows(0)("CtaContExtranjera").ToString
Me.IdCtaContProveedoresComplementaria = Data.Rows(0)("IdCtaContComplementaria").ToString.ToEntero Me.IdCtaContProveedoresComplementaria = Data.Rows(0)("IdCtaContComplementaria").ToString.ToEntero
Me.CveCuentaProveedoresComplementaria = Data.Rows(0)("IdCtaContComplementariaSIG").ToString.ToEntero
Me.CtaContProveedoresComplementaria = Data.Rows(0)("CtaContComplementaria").ToString Me.CtaContProveedoresComplementaria = Data.Rows(0)("CtaContComplementaria").ToString
'Acreedores 'Acreedores
Me.IdCtaContAcreedor = Data.Rows(0)("IdCtaContAcreedor").ToString.ToEntero Me.IdCtaContAcreedor = Data.Rows(0)("IdCtaContAcreedor").ToString.ToEntero
Me.CveCuentaAcreedor = Data.Rows(0)("IdCtaContAcreedorSIG").ToString.ToEntero
Me.CtaContAcreedor = Data.Rows(0)("CtaContAcreedor").ToString Me.CtaContAcreedor = Data.Rows(0)("CtaContAcreedor").ToString
Me.IdCtaContAcreedorExtranjera = Data.Rows(0)("IdCtaContAcreedorExtranjera").ToString.ToEntero Me.IdCtaContAcreedorExtranjera = Data.Rows(0)("IdCtaContAcreedorExtranjera").ToString.ToEntero
Me.CveCuentaAcreedorExtranjera = Data.Rows(0)("IdCtaContAcreedorExtranjeraSIG").ToString.ToEntero
Me.CtaContAcreedorExtranjera = Data.Rows(0)("CtaContAcreedorExtranjera").ToString Me.CtaContAcreedorExtranjera = Data.Rows(0)("CtaContAcreedorExtranjera").ToString
Me.IdCtaContAcreedorComplementaria = Data.Rows(0)("IdCtaContAcreedorComplementaria").ToString.ToEntero Me.IdCtaContAcreedorComplementaria = Data.Rows(0)("IdCtaContAcreedorComplementaria").ToString.ToEntero
Me.CveCuentaAcreedorComplementaria = Data.Rows(0)("IdCtaContAcreedorComplementariaSIG").ToString.ToEntero
Me.CtaContAcreedorComplementaria = Data.Rows(0)("CtaContAcreedorComplementaria").ToString Me.CtaContAcreedorComplementaria = Data.Rows(0)("CtaContAcreedorComplementaria").ToString
'Anticipos 'Anticipos
Me.IdCtaContAnticipos = Data.Rows(0)("IdCtaContAnticipos").ToString.ToEntero Me.IdCtaContAnticipos = Data.Rows(0)("IdCtaContAnticipos").ToString.ToEntero
Me.CveCuentaAnticipos = Data.Rows(0)("IdCtaContAnticiposSIG").ToString.ToEntero
Me.CtaContAnticipos = Data.Rows(0)("CtaContAnticipos").ToString Me.CtaContAnticipos = Data.Rows(0)("CtaContAnticipos").ToString
Me.IdCtaContAnticiposExtranjera = Data.Rows(0)("IdCtaContAnticiposExtranjera").ToString.ToEntero Me.IdCtaContAnticiposExtranjera = Data.Rows(0)("IdCtaContAnticiposExtranjera").ToString.ToEntero
Me.CveCuentaAnticiposExtranjera = Data.Rows(0)("IdCtaContAnticiposExtranjeraSIG").ToString.ToEntero
Me.CtaContAnticiposExtranjera = Data.Rows(0)("CtaContAnticiposExtranjera").ToString Me.CtaContAnticiposExtranjera = Data.Rows(0)("CtaContAnticiposExtranjera").ToString
Me.IdCtaContAnticiposComplementaria = Data.Rows(0)("IdCtaContAnticiposComplementaria").ToString.ToEntero Me.IdCtaContAnticiposComplementaria = Data.Rows(0)("IdCtaContAnticiposComplementaria").ToString.ToEntero
Me.CveCuentaAnticiposComplementaria = Data.Rows(0)("IdCtaContAnticiposComplementariaSIG").ToString.ToEntero
Me.CtaContAnticiposComplementaria = Data.Rows(0)("CtaContAnticiposComplementaria").ToString Me.CtaContAnticiposComplementaria = Data.Rows(0)("CtaContAnticiposComplementaria").ToString
'Deudor 'Deudor
Me.IdCtaContDeudor = Data.Rows(0)("IdCtaContDeudor").ToString.ToEntero Me.IdCtaContDeudor = Data.Rows(0)("IdCtaContDeudor").ToString.ToEntero
Me.CveCuentaDeudor = Data.Rows(0)("IdCtaContDeudorSIG").ToString.ToEntero
Me.CtaContDeudor = Data.Rows(0)("CtaContDeudor").ToString Me.CtaContDeudor = Data.Rows(0)("CtaContDeudor").ToString
Me.IdCtaContDeudorExtranjera = Data.Rows(0)("IdCtaContDeudorExtranjera").ToString.ToEntero Me.IdCtaContDeudorExtranjera = Data.Rows(0)("IdCtaContDeudorExtranjera").ToString.ToEntero
Me.CveCuentaDeudorExtranjera = Data.Rows(0)("IdCtaContDeudorExtranjeraSIG").ToString.ToEntero
Me.CtaContDeudorExtranjera = Data.Rows(0)("CtaContDeudorExtranjera").ToString Me.CtaContDeudorExtranjera = Data.Rows(0)("CtaContDeudorExtranjera").ToString
Me.IdCtaContDeudorComplementaria = Data.Rows(0)("IdCtaContDeudorComplementaria").ToString.ToEntero Me.IdCtaContDeudorComplementaria = Data.Rows(0)("IdCtaContDeudorComplementaria").ToString.ToEntero
Me.CveCuentaDeudorComplementaria = Data.Rows(0)("IdCtaContDeudorComplementariaSIG").ToString.ToEntero
Me.CtaContDeudorComplementaria = Data.Rows(0)("CtaContDeudorComplementaria").ToString Me.CtaContDeudorComplementaria = Data.Rows(0)("CtaContDeudorComplementaria").ToString
'DocsXPagar 'DocsXPagar
Me.IdCtaContDocsXPagar = Data.Rows(0)("IdCtaContDocsXPagar").ToString.ToEntero Me.IdCtaContDocsXPagar = Data.Rows(0)("IdCtaContDocsXPagar").ToString.ToEntero
Me.CveCuentaDocsXPagar = Data.Rows(0)("IdCtaContDocsXPagarSIG").ToString.ToEntero
Me.CtaContDocsXPagar = Data.Rows(0)("CtaContDocsXPagar").ToString Me.CtaContDocsXPagar = Data.Rows(0)("CtaContDocsXPagar").ToString
Me.IdCtaContDocsXPagarExtranjera = Data.Rows(0)("IdCtaContDocsXPagarExtranjera").ToString.ToEntero Me.IdCtaContDocsXPagarExtranjera = Data.Rows(0)("IdCtaContDocsXPagarExtranjera").ToString.ToEntero
Me.CveCuentaDocsXPagarExtranjera = Data.Rows(0)("IdCtaContDocsXPagarExtranjeraSIG").ToString.ToEntero
Me.CtaContDocsXPagarExtranjera = Data.Rows(0)("CtaContDocsXPagarExtranjera").ToString Me.CtaContDocsXPagarExtranjera = Data.Rows(0)("CtaContDocsXPagarExtranjera").ToString
Me.IdCtaContDocsXPagarComplementaria = Data.Rows(0)("IdCtaContDocsXPagarComplementaria").ToString.ToEntero Me.IdCtaContDocsXPagarComplementaria = Data.Rows(0)("IdCtaContDocsXPagarComplementaria").ToString.ToEntero
Me.CveCuentaDocsXPagarComplementaria = Data.Rows(0)("IdCtaContDocsXPagarComplementariaSIG").ToString.ToEntero
Me.CtaContDocsXPagarComplementaria = Data.Rows(0)("CtaContDocsXPagarComplementaria").ToString Me.CtaContDocsXPagarComplementaria = Data.Rows(0)("CtaContDocsXPagarComplementaria").ToString
'Otros 'Otros
@@ -405,11 +370,7 @@ Public Class ClsCompProveedores
Me.IdCtaContRetIVAAcreditable = Data.Rows(0)("IdCtaContRetIVAAcreditable").ToString.ToEntero Me.IdCtaContRetIVAAcreditable = Data.Rows(0)("IdCtaContRetIVAAcreditable").ToString.ToEntero
Me.IdCtaContRetISR = Data.Rows(0)("IdCtaContRetISR").ToString.ToEntero Me.IdCtaContRetISR = Data.Rows(0)("IdCtaContRetISR").ToString.ToEntero
Me.IdCtaContRetISRAcreditable = Data.Rows(0)("IdCtaContRetISRAcreditable").ToString.ToEntero Me.IdCtaContRetISRAcreditable = Data.Rows(0)("IdCtaContRetISRAcreditable").ToString.ToEntero
Me.CveCuentaFondoGarantia = Data.Rows(0)("IdCtaContFondoGarantiaSIG").ToString.ToEntero
Me.CveCuentaRetIVA = Data.Rows(0)("IdCtaContRetIVASIG").ToString.ToEntero
Me.CveCuentaRetISR = Data.Rows(0)("IdCtaContRetISRSIG").ToString.ToEntero
Me.CveCuentaRetISRAcreditable = Data.Rows(0)("IdCtaContRetISRAcreditableSIG").ToString.ToEntero
Me.CveCuentaRetIVAAcreditable = Data.Rows(0)("IdCtaContRetIVAAcreditableSIG").ToString.ToEntero
Me.CtaContFondoGarantia = Data.Rows(0)("CtaContFondoGarantia").ToString Me.CtaContFondoGarantia = Data.Rows(0)("CtaContFondoGarantia").ToString
Me.CtaContRetIVA = Data.Rows(0)("CtaContRetIVA").ToString Me.CtaContRetIVA = Data.Rows(0)("CtaContRetIVA").ToString
Me.CtaContRetISR = Data.Rows(0)("CtaContRetISR").ToString Me.CtaContRetISR = Data.Rows(0)("CtaContRetISR").ToString

150
Bancos/IE.aspx.vb
View File

@@ -249,22 +249,6 @@ Partial Class Bancos_IE
ViewState("IDCtaBeneficiarioComplementaria") = value ViewState("IDCtaBeneficiarioComplementaria") = value
End Set End Set
End Property End Property
Private Property CveCuentaConta As Integer
Get
Return ViewState("CveCuentaConta").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCuentaConta") = value
End Set
End Property
Private Property CveCuentaBeneficiario As Integer
Get
Return ViewState("CveCuentaBeneficiario").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCuentaBeneficiario") = value
End Set
End Property
Private Property CvePrePoliza As Integer Private Property CvePrePoliza As Integer
Get Get
Return ViewState("CvePrePoliza").ToString.ToEntero Return ViewState("CvePrePoliza").ToString.ToEntero
@@ -611,8 +595,6 @@ Partial Class Bancos_IE
IDCtaContable = 0 IDCtaContable = 0
IdCtaAnticipoComplementaria = 0 IdCtaAnticipoComplementaria = 0
IdCtaAnticipoExtranjera = 0 IdCtaAnticipoExtranjera = 0
CveCuentaBeneficiario = 0
CveCuentaConta = 0
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
TxtImporte.Attributes.Add("onblur", "upIE(this);FncImporteCuenta(this);") TxtImporte.Attributes.Add("onblur", "upIE(this);FncImporteCuenta(this);")
'Calendario.StartDate = Now.AddMonths(-2).FirstDayOfMonth() 'Calendario.StartDate = Now.AddMonths(-2).FirstDayOfMonth()
@@ -970,7 +952,6 @@ Partial Class Bancos_IE
IDPoliza = ObjIE.IDPoliza IDPoliza = ObjIE.IDPoliza
IDCtaContable = ObjIE.IdCtaContable IDCtaContable = ObjIE.IdCtaContable
CveCuentaConta = ObjIE.CveCuentaConta
If ObjIE.IDPoliza > 0 Then If ObjIE.IDPoliza > 0 Then
@@ -1329,24 +1310,22 @@ Partial Class Bancos_IE
Select Case RBL.SelectedValue Select Case RBL.SelectedValue
Case "P" Case "P"
IDCtaBeneficiario = ObjProveedor.IdCtaContAnticipos : CveCuentaBeneficiario = ObjProveedor.CveCuentaAnticipos IDCtaBeneficiario = ObjProveedor.IdCtaContAnticipos
IdCtaAnticipoExtranjera = ObjProveedor.IdCtaContAnticiposExtranjera : IdCtaAnticipoComplementaria = ObjProveedor.IdCtaContAnticiposComplementaria IdCtaAnticipoExtranjera = ObjProveedor.IdCtaContAnticiposExtranjera : IdCtaAnticipoComplementaria = ObjProveedor.IdCtaContAnticiposComplementaria
If EsDevolucion Then If EsDevolucion Then
IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores : CveCuentaBeneficiario = ObjProveedor.CveCuentaProveedores IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores
End If End If
Case "DD" : IDCtaBeneficiario = ObjProveedor.IdCtaContDeudor : CveCuentaBeneficiario = ObjProveedor.CveCuentaDeudor Case "DD" : IDCtaBeneficiario = ObjProveedor.IdCtaContDeudor
Case "AC" : IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor : CveCuentaBeneficiario = ObjProveedor.CveCuentaAcreedor Case "AC" : IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
Case "DP" : IDCtaBeneficiario = ObjProveedor.IdCtaContDocsXPagar : CveCuentaBeneficiario = ObjProveedor.CveCuentaDocsXPagar Case "DP" : IDCtaBeneficiario = ObjProveedor.IdCtaContDocsXPagar
Case Else Case Else
IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores
CveCuentaBeneficiario = ObjProveedor.CveCuentaProveedores
End Select End Select
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
CveCuentaBeneficiario = ObjProveedor.CveCuentaAcreedor
If Not IDCtaBeneficiario > 0 Then If Not IDCtaBeneficiario > 0 Then
Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia) Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
@@ -1359,9 +1338,6 @@ Partial Class Bancos_IE
If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
Alert("El Beneficiario no tiene cuenta contable vinculada en SIG. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
Else Else
BtnGuardar.Enabled = True BtnGuardar.Enabled = True
End If End If
@@ -1470,7 +1446,6 @@ Partial Class Bancos_IE
HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
IDCtaBeneficiario = ObjCliente.IdCtaContAnticipos IDCtaBeneficiario = ObjCliente.IdCtaContAnticipos
IDCtaBeneficiarioComplementaria = ObjCliente.IdCtaContCompAnticipos IDCtaBeneficiarioComplementaria = ObjCliente.IdCtaContCompAnticipos
CveCuentaBeneficiario = ObjCliente.CveCuentaAnticipos
CorreoCobranzaCliente = ObjCliente.CobranzaCorreo CorreoCobranzaCliente = ObjCliente.CobranzaCorreo
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "DevDinV" Then If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "DevDinV" Then
@@ -1484,10 +1459,7 @@ Partial Class Bancos_IE
If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
Alert("El Beneficiario no tiene cuenta contable vinculada en SIG. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
Else Else
BtnGuardar.Enabled = True BtnGuardar.Enabled = True
End If End If
@@ -1539,15 +1511,11 @@ Partial Class Bancos_IE
HdnProvPorRetIVA.Value = "0" 'ObjProveedor.RetIVA.ToString HdnProvPorRetIVA.Value = "0" 'ObjProveedor.RetIVA.ToString
HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
IDCtaBeneficiario = ObjPersonal.IdCtaContPersonal IDCtaBeneficiario = ObjPersonal.IdCtaContPersonal
CveCuentaBeneficiario = ObjPersonal.CveCuentaPersonal
If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
Alert("El Beneficiario no tiene cuenta contable vinculada en SIG. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
Else Else
BtnGuardar.Enabled = True BtnGuardar.Enabled = True
End If End If
@@ -1624,8 +1592,7 @@ Partial Class Bancos_IE
DdlMoneda.SelectedValue = dr("CveMoneda").ToString DdlMoneda.SelectedValue = dr("CveMoneda").ToString
IDCtaContable = dr("IdCtaContable").ToString.ToEntero IDCtaContable = dr("IdCtaContable").ToString.ToEntero
IDCtaContableComplementaria = dr("IDCtaContableComplementaria").ToString.ToEntero IDCtaContableComplementaria = dr("IDCtaContableComplementaria").ToString.ToEntero
CveCuentaConta = dr("IdCtaContableSIG").ToString.ToEntero
CambiaTipoMoneda() CambiaTipoMoneda()
If Opcion IsNot Nothing AndAlso Opcion.Contiene("EGSSINFACT") Then If Opcion IsNot Nothing AndAlso Opcion.Contiene("EGSSINFACT") Then
@@ -1663,9 +1630,6 @@ Partial Class Bancos_IE
Alert("La Cuenta Bancaria no tiene asignada una cuenta contable", TipoMensaje.MsgAdvertencia) Alert("La Cuenta Bancaria no tiene asignada una cuenta contable", TipoMensaje.MsgAdvertencia)
End If End If
If Not CveCuentaConta > 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
Alert("La Cuenta Bancaria no tiene asignada una cuenta contable en SIG", TipoMensaje.MsgAdvertencia)
End If
End If End If
If trIEDevolucion.Visible And RBL.SelectedValue <> "C" Then If trIEDevolucion.Visible And RBL.SelectedValue <> "C" Then
@@ -2708,8 +2672,8 @@ Partial Class Bancos_IE
MsgError = "No se pudo insertar la póliza de saldo inicial." MsgError = "No se pudo insertar la póliza de saldo inicial."
End If End If
End If End If
Dim UsaComplementariaBancos As Boolean = False Dim UsaComplementariaBancos As Boolean = False
If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaBancos = True UsaComplementariaBancos = True
If MsgError = "" Then If MsgError = "" Then
@@ -2773,11 +2737,11 @@ Partial Class Bancos_IE
Dim DtIE As DataTable = Mov.DtResultados Dim DtIE As DataTable = Mov.DtResultados
For Each dr As DataRow In DtIE.Rows For Each dr As DataRow In DtIE.Rows
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, dr("Importe").ToString.ToDecimal), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, -dr("Importe").ToString.ToDecimal), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, dr("Importe").ToString.ToDecimal), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, -dr("Importe").ToString.ToDecimal), ImporteME:=tImporteMonedaExtranjera) Then
MsgError = "no se pudo insertar el detalle de la póliza 2" MsgError = "no se pudo insertar el detalle de la póliza 2"
End If End If
Next Next
ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
End If End If
Mov.Dispose() Mov.Dispose()
@@ -2787,20 +2751,20 @@ Partial Class Bancos_IE
Dim Mov As New ClsMovimientos Dim Mov As New ClsMovimientos
'INGxC 'INGxC
ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera)
If TxtIvaIxC.Text.ToDouble > 0 Then If TxtIvaIxC.Text.ToDouble > 0 Then
'Iva 'Iva
ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
End If End If
'Bancos 'Bancos
ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDecimal, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDecimal, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
Mov.Dispose() Mov.Dispose()
Else Else
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera) Then
MsgError = "no se pudo insertar el detalle de la póliza 2" MsgError = "no se pudo insertar el detalle de la póliza 2"
End If End If
Else Else
@@ -2885,7 +2849,7 @@ Partial Class Bancos_IE
MsgError = "Ocurrió un error al registrar el asiento del ingreso." MsgError = "Ocurrió un error al registrar el asiento del ingreso."
End If End If
End If End If
If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then If tCveMoneda > 1 Then
'Agregamos complementaria 'Agregamos complementaria
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
@@ -2918,7 +2882,7 @@ Partial Class Bancos_IE
End Select End Select
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCuenta:=If(ConceptoContable = 30, CveCuentaConta, CveCuentaBeneficiario)) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
MsgError = "Ocurrió un error al registrar el asiento del ingreso." MsgError = "Ocurrió un error al registrar el asiento del ingreso."
End If End If
End If End If
@@ -2940,7 +2904,7 @@ Partial Class Bancos_IE
ImporteAplicarME = ImporteAplicar ImporteAplicarME = ImporteAplicar
'CONSIDERA COMPLEMENTARIA 'CONSIDERA COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
ImporteAplicarMN = ImporteAplicar ImporteAplicarMN = ImporteAplicar
Else Else
ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
@@ -2948,15 +2912,15 @@ Partial Class Bancos_IE
'BANCOS 'BANCOS
IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0) IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0)
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos de devolución"
Exit Select Exit Select
End If End If
'BANCOS COMPLEMENTARIA 'BANCOS COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If End If
End If End If
@@ -3048,7 +3012,7 @@ Partial Class Bancos_IE
'CONSIDERA COMPLEMENTARIA 'CONSIDERA COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
ImporteAplicarMN = ImporteAplicar ImporteAplicarMN = ImporteAplicar
Else Else
ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
@@ -3060,7 +3024,7 @@ Partial Class Bancos_IE
'BANCOS 'BANCOS
IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0) IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0)
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos de devolución"
Exit Select Exit Select
End If End If
@@ -3074,7 +3038,7 @@ Partial Class Bancos_IE
Dim FechaCompraNota As Date = GvRow.DataKey("Fecha").ToDate Dim FechaCompraNota As Date = GvRow.DataKey("Fecha").ToDate
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
TCCompra = GlobalTipoCambio(FechaCompraNota).ToDecimal TCCompra = GlobalTipoCambio(FechaCompraNota).ToDecimal
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3096,14 +3060,14 @@ Partial Class Bancos_IE
'CONSIDERA COMPLEMENTARIA 'CONSIDERA COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
ImporteAplicarMN = ImporteAplicar ImporteAplicarMN = ImporteAplicar
Else Else
ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
End If End If
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
TCCompra = GlobalTipoCambio(GvRow.DataKey("Fecha").ToDate).ToDecimal TCCompra = GlobalTipoCambio(GvRow.DataKey("Fecha").ToDate).ToDecimal
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3125,9 +3089,9 @@ Partial Class Bancos_IE
'' ''
'BANCOS COMPLEMENTARIA 'BANCOS COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
End If End If
End If End If
@@ -3150,7 +3114,7 @@ Partial Class Bancos_IE
' End If ' End If
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento) Then
' MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" ' MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
' Exit Select ' Exit Select
' End If ' End If
@@ -3171,11 +3135,11 @@ Partial Class Bancos_IE
'NC COMPLEMENTARIA 'NC COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If End If
@@ -3189,14 +3153,14 @@ Partial Class Bancos_IE
If DiferenciaTC < 0 Then If DiferenciaTC < 0 Then
'64 '64
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria" MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
Exit Select Exit Select
End If End If
Else Else
'65 '65
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria" MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
Exit Select Exit Select
End If End If
@@ -3247,7 +3211,7 @@ Partial Class Bancos_IE
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1 Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
IVADevMN = IVADev IVADevMN = IVADev
IEPSDevMN = IEPSDev IEPSDevMN = IEPSDev
Else Else
@@ -3335,7 +3299,7 @@ Partial Class Bancos_IE
Else Else
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
TCCompra = GlobalTipoCambio(FechaCompra).ToDecimal TCCompra = GlobalTipoCambio(FechaCompra).ToDecimal
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3352,9 +3316,9 @@ Partial Class Bancos_IE
'BANCOS COMPLEMENTARIA 'BANCOS COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
End If End If
End If End If
@@ -3377,7 +3341,7 @@ Partial Class Bancos_IE
End If End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento) Then
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
Exit Select Exit Select
End If End If
@@ -3398,11 +3362,11 @@ Partial Class Bancos_IE
'NC COMPLEMENTARIA 'NC COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL() ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If End If
@@ -3416,14 +3380,14 @@ Partial Class Bancos_IE
If DiferenciaTC < 0 Then If DiferenciaTC < 0 Then
'64 '64
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria" MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
Exit Select Exit Select
End If End If
Else Else
'65 '65
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria" MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
Exit Select Exit Select
End If End If
@@ -3481,7 +3445,7 @@ Partial Class Bancos_IE
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1 Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
IVADevMN = IVADev IVADevMN = IVADev
IEPSDevMN = IEPSDev IEPSDevMN = IEPSDev
Else Else
@@ -3593,7 +3557,7 @@ Partial Class Bancos_IE
Case 30 Case 30
importeMovimiento = TxtImporte.Text.ToDecimal importeMovimiento = TxtImporte.Text.ToDecimal
importeMX = importeMovimiento importeMX = importeMovimiento
If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then If tCveMoneda > 1 Then
'Agregamos complementaria 'Agregamos complementaria
Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
@@ -3627,7 +3591,7 @@ Partial Class Bancos_IE
End Select End Select
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCuenta:=If(ConceptoContable = 30, CveCuentaConta, CveCuentaBeneficiario)) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
MsgError = "Ocurrió un error al registrar el asiento del ingreso." MsgError = "Ocurrió un error al registrar el asiento del ingreso."
End If End If
End If End If
@@ -3643,19 +3607,18 @@ Partial Class Bancos_IE
End If End If
If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsaComplementariaBancos Then If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsaComplementariaBancos Then
IDCtaBeneficiario = IdCtaAnticipoExtranjera IDCtaBeneficiario = IdCtaAnticipoExtranjera
CveCuentaConta = 0
End If End If
'MOVIMIENTOS EGRESOS 'MOVIMIENTOS EGRESOS
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
MsgError = "Detalle" MsgError = "Detalle"
End If End If
'intereses pagados 'intereses pagados
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
MsgError = "Detalle" MsgError = "Detalle"
End If End If
Else Else
@@ -3666,15 +3629,15 @@ Partial Class Bancos_IE
End If End If
'BANCOS COMPLEMENTARIA 'BANCOS COMPLEMENTARIA
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then If DdlMoneda.SelectedValue.ToEntero > 1 Then
Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL() Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL()
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=CveCuentaConta, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If End If
If CveConceptoCompra = 10 Then If CveConceptoCompra = 10 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=0, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If End If
End If End If
@@ -5463,11 +5426,13 @@ Partial Class Bancos_IE
If Borrar = True Then If Borrar = True Then
Dim ErrorCompra = False Dim ErrorCompra = False
Dim MsgEliminar As String = ""
'VERIFICA SI EL IES ESTA VINCULADO A UNA SOLICITUD VIATICO 'VERIFICA SI EL IES ESTA VINCULADO A UNA SOLICITUD VIATICO
If Banc.GetSolicitudesViaticos(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) AndAlso Banc.DtResultados.Rows.Count > 0 Then If Banc.GetSolicitudesViaticos(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) AndAlso Banc.DtResultados.Rows.Count > 0 Then
If Not Banc.UpdateSolicitudesViaticosIE(Banc.DtResultados.FiltroPrimeroValor("CveSolicitudViatico").ToEntero(), -1) Then If Not Banc.UpdateSolicitudesViaticosIE(Banc.DtResultados.FiltroPrimeroValor("CveSolicitudViatico").ToEntero(), -1) Then
ErrorCompra = True ErrorCompra = True
MsgEliminar = "Documento con solicitud de viáticos solicitado"
End If End If
End If End If
@@ -5476,12 +5441,14 @@ Partial Class Bancos_IE
ObjAC.IniciaTransacSQL() ObjAC.IniciaTransacSQL()
If Not ObjAC.RemovePoliza(IDPoliza) Then If Not ObjAC.RemovePoliza(IDPoliza) Then
ErrorCompra = True ErrorCompra = True
MsgEliminar = "- No se pudo eliminar la póliza"
End If End If
End If End If
If Not ErrorCompra Then If Not ErrorCompra Then
If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
ErrorCompra = True ErrorCompra = True
MsgEliminar += "- No se pudo desbloquear la prepóliza"
End If End If
End If End If
@@ -5489,6 +5456,7 @@ Partial Class Bancos_IE
If Not ErrorCompra Then If Not ErrorCompra Then
If Not Banc.EliminarBancos_IE(UsuarioActual.CveUsuario, CveIE) Then If Not Banc.EliminarBancos_IE(UsuarioActual.CveUsuario, CveIE) Then
ErrorCompra = True ErrorCompra = True
MsgEliminar = "- No se pudo eliminar el movimiento bancario"
End If End If
End If End If

74
Compras/Compras.aspx.vb
View File

@@ -253,26 +253,13 @@ Partial Class Compras_Compras
Return ViewState("CtaProveedor").ToString.ToEntero Return ViewState("CtaProveedor").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedor As Integer
Get
Return ViewState("CveCuentaProveedor").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CtaProveedorDeudores As Integer Private ReadOnly Property CtaProveedorDeudores As Integer
Get Get
Return ViewState("CtaProveedorDeudores").ToString.ToEntero Return ViewState("CtaProveedorDeudores").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedorDeudores As Integer
Get
Return ViewState("CveCuentaProveedorDeudores").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CveCuentaProveedorAcreedores As Integer
Get
Return ViewState("CveCuentaProveedorAcreedores").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CtaProveedorAcreedores As Integer Private ReadOnly Property CtaProveedorAcreedores As Integer
Get Get
Return ViewState("CtaProveedorAcreedores").ToString.ToEntero Return ViewState("CtaProveedorAcreedores").ToString.ToEntero
@@ -283,79 +270,43 @@ Partial Class Compras_Compras
Return ViewState("CtaProveedorAnticipos").ToString.ToEntero Return ViewState("CtaProveedorAnticipos").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedorAnticipos As Integer
Get
Return ViewState("CveCuentaProveedorAnticipos").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CtaProveedorAnticiposExtranjera As Integer Private ReadOnly Property CtaProveedorAnticiposExtranjera As Integer
Get Get
Return ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero Return ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedorAnticiposExtranjera As Integer
Get
Return ViewState("CveCuentaProveedorAnticiposExtranjera").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CtaProveedorAnticiposComplementaria As Integer Private ReadOnly Property CtaProveedorAnticiposComplementaria As Integer
Get Get
Return ViewState("CtaProveedorAnticiposComplementaria").ToString.ToEntero Return ViewState("CtaProveedorAnticiposComplementaria").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedorAnticiposComplementaria As Integer
Get
Return ViewState("CveCuentaProveedorAnticiposComplementaria").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CtaProveedorRetIVA As Integer Private ReadOnly Property CtaProveedorRetIVA As Integer
Get Get
Return ViewState("CtaProveedorRetIVA").ToString.ToEntero Return ViewState("CtaProveedorRetIVA").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedorRetIVA As Integer
Get
Return ViewState("CveCuentaProveedorRetIVA").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CtaProveedorRetISR As Integer Private ReadOnly Property CtaProveedorRetISR As Integer
Get Get
Return ViewState("CtaProveedorRetISR").ToString.ToEntero Return ViewState("CtaProveedorRetISR").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedorRetISR As Integer
Get
Return ViewState("CveCuentaProveedorRetISR").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CveCuentaIEPS As Integer
Get
Return ViewState("CveCuentaIEPS").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CtaProveedorExtranjera As Integer Private ReadOnly Property CtaProveedorExtranjera As Integer
Get Get
Return ViewState("CtaProveedorExtranjera").ToString.ToEntero Return ViewState("CtaProveedorExtranjera").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedorExtranjera As Integer
Get
Return ViewState("CveCuentaProveedorExtranjera").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CtaProveedorComplementaria As Integer Private ReadOnly Property CtaProveedorComplementaria As Integer
Get Get
Return ViewState("CtaProveedorComplementaria").ToString.ToEntero Return ViewState("CtaProveedorComplementaria").ToString.ToEntero
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaProveedorComplementaria As Integer
Get
Return ViewState("CveCuentaProveedorComplementaria").ToString.ToEntero
End Get
End Property
Private ReadOnly Property NombreProveedor As String Private ReadOnly Property NombreProveedor As String
Get Get
Return ViewState("NombreProveedor").ToString Return ViewState("NombreProveedor").ToString
@@ -3289,18 +3240,6 @@ Partial Class Compras_Compras
ViewState("CtaProveedorComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria ViewState("CtaProveedorComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
ViewState("IdCtaContDocsXPagar") = ObjProveedor.IdCtaContDocsXPagar ViewState("IdCtaContDocsXPagar") = ObjProveedor.IdCtaContDocsXPagar
'Conta SIG
ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
ViewState("CveCuentaProveedorAnticipos") = ObjProveedor.CveCuentaAnticipos
ViewState("CveCuentaProveedorAnticiposExtranjera") = ObjProveedor.CveCuentaAnticiposExtranjera
ViewState("CveCuentaProveedorAnticiposComplementaria") = ObjProveedor.CveCuentaAnticiposComplementaria
ViewState("CveCuentaProveedorDeudores") = ObjProveedor.CveCuentaDeudor
ViewState("CveCuentaProveedorAcreedores") = ObjProveedor.CveCuentaAcreedor
ViewState("CveCuentaProveedorRetISR") = ObjProveedor.CveCuentaRetISR
ViewState("CveCuentaProveedorRetIVA") = ObjProveedor.CveCuentaRetIVA
ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
ViewState("CveCuentaProveedorComplementaria") = ObjProveedor.CveCuentaProveedoresComplementaria
ViewState("NombreProveedor") = ObjProveedor.RazonSocial ViewState("NombreProveedor") = ObjProveedor.RazonSocial
@@ -12876,7 +12815,6 @@ Partial Class Compras_Compras
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlAcreedor.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlAcreedor.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then
ViewState("CtaProveedorAcreedores") = ObjProveedor.IdCtaContAcreedor ViewState("CtaProveedorAcreedores") = ObjProveedor.IdCtaContAcreedor
ViewState("CveCuentaProveedorAcreedores") = ObjProveedor.CveCuentaAcreedor
End If End If