-- limpieza de código de mandar idcta de contpaq
This commit is contained in:
File diff suppressed because it is too large
Load Diff
@@ -963,33 +963,6 @@ Partial Class Compras_Proveedores
|
||||
DdlCtaContRetISRAcreditable.Attributes.Add("onclick", "CargaCuentas(19);")
|
||||
DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")
|
||||
|
||||
'Proveedores
|
||||
If ObjProveedor.IdCtaContProveedores > 0 Then DdlCtaContProveedores.Items.Add(New ListItem(ObjProveedor.CtaContProveedores, ObjProveedor.IdCtaContProveedores.ToString)) : DdlCtaContProveedores.SelectedValueExist(ObjProveedor.IdCtaContProveedores.ToString)
|
||||
If ObjProveedor.IdCtaContProveedoresExtranjera > 0 Then DdlCtaContExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContProveedoresExtranjera, ObjProveedor.IdCtaContProveedoresExtranjera.ToString)) : DdlCtaContExtranjera.SelectedValue = ObjProveedor.IdCtaContProveedoresExtranjera.ToString
|
||||
If ObjProveedor.IdCtaContProveedoresComplementaria > 0 Then DdlCtaContComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContProveedoresComplementaria, ObjProveedor.IdCtaContProveedoresComplementaria.ToString)) : DdlCtaContComplementaria.SelectedValue = ObjProveedor.IdCtaContProveedoresComplementaria.ToString
|
||||
'Acreedores
|
||||
If ObjProveedor.IdCtaContAcreedor > 0 Then DdlCtaContAcreedores.Items.Add(New ListItem(ObjProveedor.CtaContAcreedor, ObjProveedor.IdCtaContAcreedor.ToString)) : DdlCtaContAcreedores.SelectedValue = ObjProveedor.IdCtaContAcreedor.ToString
|
||||
If ObjProveedor.IdCtaContAcreedorExtranjera > 0 Then DdlCtaContAcreedoresExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContAcreedorExtranjera, ObjProveedor.IdCtaContAcreedorExtranjera.ToString)) : DdlCtaContAcreedoresExtranjera.SelectedValue = ObjProveedor.IdCtaContAcreedorExtranjera.ToString
|
||||
If ObjProveedor.IdCtaContAcreedorComplementaria > 0 Then DdlCtaContAcreedoresComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContAcreedorComplementaria, ObjProveedor.IdCtaContAcreedorComplementaria.ToString)) : DdlCtaContAcreedoresComplementaria.SelectedValue = ObjProveedor.IdCtaContAcreedorComplementaria.ToString
|
||||
'Anticipos
|
||||
If ObjProveedor.IdCtaContAnticipos > 0 Then DdlCtaContAnticipos.Items.Add(New ListItem(ObjProveedor.CtaContAnticipos, ObjProveedor.IdCtaContAnticipos.ToString)) : DdlCtaContAnticipos.SelectedValue = ObjProveedor.IdCtaContAnticipos.ToString
|
||||
If ObjProveedor.IdCtaContAnticiposExtranjera > 0 Then DdlCtaContAnticiposExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContAnticiposExtranjera, ObjProveedor.IdCtaContAnticiposExtranjera.ToString)) : DdlCtaContAnticiposExtranjera.SelectedValue = ObjProveedor.IdCtaContAnticiposExtranjera.ToString
|
||||
If ObjProveedor.IdCtaContAnticiposComplementaria > 0 Then DdlCtaContAnticiposComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContAnticiposComplementaria, ObjProveedor.IdCtaContAnticiposComplementaria.ToString)) : DdlCtaContAnticiposComplementaria.SelectedValue = ObjProveedor.IdCtaContAnticiposComplementaria.ToString
|
||||
'Deudores
|
||||
If ObjProveedor.IdCtaContDeudor > 0 Then DdlCtaContDeudor.Items.Add(New ListItem(ObjProveedor.CtaContDeudor, ObjProveedor.IdCtaContDeudor.ToString)) : DdlCtaContDeudor.SelectedValue = ObjProveedor.IdCtaContDeudor.ToString
|
||||
If ObjProveedor.IdCtaContDeudorExtranjera > 0 Then DdlCtaContDeudorExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContDeudorExtranjera, ObjProveedor.IdCtaContDeudorExtranjera.ToString)) : DdlCtaContDeudorExtranjera.SelectedValue = ObjProveedor.IdCtaContDeudorExtranjera.ToString
|
||||
If ObjProveedor.IdCtaContDeudorComplementaria > 0 Then DdlCtaContDeudorComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContDeudorComplementaria, ObjProveedor.IdCtaContDeudorComplementaria.ToString)) : DdlCtaContDeudorComplementaria.SelectedValue = ObjProveedor.IdCtaContDeudorComplementaria.ToString
|
||||
'DocsXPagar
|
||||
If ObjProveedor.IdCtaContDocsXPagar > 0 Then DdlCtaContDocsXPagar.Items.Add(New ListItem(ObjProveedor.CtaContDocsXPagar, ObjProveedor.IdCtaContDocsXPagar.ToString)) : DdlCtaContDocsXPagar.SelectedValue = ObjProveedor.IdCtaContDocsXPagar.ToString
|
||||
If ObjProveedor.IdCtaContDocsXPagarExtranjera > 0 Then DdlCtaContDocsXPagarExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContDocsXPagarExtranjera, ObjProveedor.IdCtaContDocsXPagarExtranjera.ToString)) : DdlCtaContDocsXPagarExtranjera.SelectedValue = ObjProveedor.IdCtaContDocsXPagarExtranjera.ToString
|
||||
If ObjProveedor.IdCtaContDocsXPagarComplementaria > 0 Then DdlCtaContDocsXPagarComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContDocsXPagarComplementaria, ObjProveedor.IdCtaContDocsXPagarComplementaria.ToString)) : DdlCtaContDocsXPagarComplementaria.SelectedValue = ObjProveedor.IdCtaContDocsXPagarComplementaria.ToString
|
||||
'Otros
|
||||
If ObjProveedor.IdCtaContFondoGarantia > 0 Then DdlCtaContFondoGarantia.Items.Add(New ListItem(ObjProveedor.CtaContFondoGarantia, ObjProveedor.IdCtaContFondoGarantia.ToString)) : DdlCtaContFondoGarantia.SelectedValue = ObjProveedor.IdCtaContFondoGarantia.ToString
|
||||
If ObjProveedor.IdCtaContRetIVA > 0 Then DdlCtaContRetIVA.Items.Add(New ListItem(ObjProveedor.CtaContRetIVA, ObjProveedor.IdCtaContRetIVA.ToString)) : DdlCtaContRetIVA.SelectedValue = ObjProveedor.IdCtaContRetIVA.ToString
|
||||
If ObjProveedor.IdCtaContRetISR > 0 Then DdlCtaContRetISR.Items.Add(New ListItem(ObjProveedor.CtaContRetISR, ObjProveedor.IdCtaContRetISR.ToString)) : DdlCtaContRetISR.SelectedValue = ObjProveedor.IdCtaContRetISR.ToString
|
||||
If ObjProveedor.IdCtaContRetISRAcreditable > 0 Then DdlCtaContRetISRAcreditable.Items.Add(New ListItem(ObjProveedor.CtaContRetISRAcreditable, ObjProveedor.IdCtaContRetISRAcreditable.ToString)) : DdlCtaContRetISRAcreditable.SelectedValue = ObjProveedor.IdCtaContRetISRAcreditable.ToString
|
||||
If ObjProveedor.IdCtaContRetIVAAcreditable > 0 Then DdlCtaContRetIVAAcreditable.Items.Add(New ListItem(ObjProveedor.CtaContRetIVAAcreditable, ObjProveedor.IdCtaContRetIVAAcreditable.ToString)) : DdlCtaContRetIVAAcreditable.SelectedValue = ObjProveedor.IdCtaContRetIVAAcreditable.ToString
|
||||
|
||||
|
||||
End If
|
||||
|
||||
@@ -1549,18 +1522,10 @@ Partial Class Compras_Proveedores
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Private Function AsignaCuentasAutomaticas(ObjProveedor As ClsCompProveedores, CveProveedor As Integer) As Boolean
|
||||
Dim IdCtaContProveedores As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(321).ToEntero, UsuarioActual.Empresa.Funcionalidad(322).ToEntero)
|
||||
Dim IdCtaContAcreedor As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(323).ToEntero, UsuarioActual.Empresa.Funcionalidad(324).ToEntero)
|
||||
Dim IdCtaContComplementaria As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(325).ToEntero, UsuarioActual.Empresa.Funcionalidad(326).ToEntero)
|
||||
Dim IdCtaContAnticipos As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(327).ToEntero, UsuarioActual.Empresa.Funcionalidad(328).ToEntero)
|
||||
Dim IdCtaContExtranjera As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(329).ToEntero, UsuarioActual.Empresa.Funcionalidad(330).ToEntero)
|
||||
'Private Function AsignaCuentasAutomaticas(ObjProveedor As ClsCompProveedores, CveProveedor As Integer) As Boolean
|
||||
|
||||
If Not ObjProveedor.VincularCuentasContables(IdCtaContProveedores, IdCtaContAcreedor, IdCtaContComplementaria, IdCtaContAnticipos, IdCtaContExtranjera, CveProveedor) Then
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
' Return True
|
||||
'End Function
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
'enviaractivacion()
|
||||
@@ -1705,13 +1670,7 @@ Partial Class Compras_Proveedores
|
||||
If ErrorConta = False AndAlso ObjProveedores.AddProveedor(TxtCodigo.Text.Trim, TxtRazonSocial.Text.Trim, TxtNombreComercial.Text.Trim, TxtNombreCorto.Text.Trim, TxtRFC.Text.Trim, TxtDireccion.Text.Trim, TxtTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""),
|
||||
TxtContactoNombre.Text.Trim, TxtContactoEmail.Text.Trim, TxtContactoTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""), TxtLimiteCredito.Text.Trim.ToDouble, TxtPlazoCobranza.Text.Trim.ToEntero,
|
||||
TxtObservaciones.Text.Trim, TxtIVA.Text.Trim.ToDouble, TxtRetIVA.Text.Trim.ToDouble, TxtRetISR.Text.Trim.ToDouble,
|
||||
DdlCtaContProveedores.SelectedValue.ToEntero, DdlCtaContProveedores.SelectedItem.Text, DdlCtaContExtranjera.SelectedValue.ToEntero, DdlCtaContExtranjera.SelectedItem.Text, DdlCtaContComplementaria.SelectedValue.ToEntero, DdlCtaContComplementaria.SelectedItem.Text,
|
||||
DdlCtaContAcreedores.SelectedValue.ToEntero, DdlCtaContAcreedores.SelectedItem.Text, DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero, DdlCtaContAcreedoresExtranjera.SelectedItem.Text, DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero, DdlCtaContAcreedoresComplementaria.SelectedItem.Text,
|
||||
DdlCtaContAnticipos.SelectedValue.ToEntero, DdlCtaContAnticipos.SelectedItem.Text, DdlCtaContAnticiposExtranjera.SelectedValue.ToEntero, DdlCtaContAnticiposExtranjera.SelectedItem.Text, DdlCtaContAnticiposComplementaria.SelectedValue.ToEntero, DdlCtaContAnticiposComplementaria.SelectedItem.Text,
|
||||
DdlCtaContDeudor.SelectedValue.ToEntero, DdlCtaContDeudor.SelectedItem.Text, DdlCtaContDeudorExtranjera.SelectedValue.ToEntero, DdlCtaContDeudorExtranjera.SelectedItem.Text, DdlCtaContDeudorComplementaria.SelectedValue.ToEntero, DdlCtaContDeudorComplementaria.SelectedItem.Text,
|
||||
DdlCtaContDocsXPagar.SelectedValue.ToEntero, DdlCtaContDocsXPagar.SelectedItem.Text, DdlCtaContDocsXPagarExtranjera.SelectedValue.ToEntero, DdlCtaContDocsXPagarExtranjera.SelectedItem.Text, DdlCtaContDocsXPagarComplementaria.SelectedValue.ToEntero, DdlCtaContDocsXPagarComplementaria.SelectedItem.Text,
|
||||
DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text,
|
||||
DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
|
||||
AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
|
||||
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
|
||||
@@ -1729,11 +1688,11 @@ Partial Class Compras_Proveedores
|
||||
Next
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
If Not AsignaCuentasAutomaticas(ObjProveedores, NuevoCveProveedor) Then
|
||||
ErrorCuentasContables = True
|
||||
End If
|
||||
End If
|
||||
'If UsuarioActual.CveEmpresa = 119 Then
|
||||
' If Not AsignaCuentasAutomaticas(ObjProveedores, NuevoCveProveedor) Then
|
||||
' ErrorCuentasContables = True
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
''Agrega Sucursales
|
||||
@@ -1882,13 +1841,7 @@ Partial Class Compras_Proveedores
|
||||
If ObjProveedores.UpdateProveedor(TxtCodigo.Text.Trim, TxtRazonSocial.Text.Trim, TxtNombreComercial.Text.Trim, TxtNombreCorto.Text.Trim, TxtRFC.Text.Trim, TxtDireccion.Text.Trim, TxtTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""),
|
||||
TxtContactoNombre.Text.Trim, TxtContactoEmail.Text.Trim, TxtContactoTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""), TxtLimiteCredito.Text.Trim.ToDouble, TxtPlazoCobranza.Text.Trim.ToEntero,
|
||||
TxtObservaciones.Text.Trim, TxtIVA.Text.Trim.ToDouble, TxtRetIVA.Text.Trim.ToDouble, TxtRetISR.Text.Trim.ToDouble,
|
||||
DdlCtaContProveedores.SelectedValue.ToEntero, DdlCtaContProveedores.SelectedItem.Text, DdlCtaContExtranjera.SelectedValue.ToEntero, DdlCtaContExtranjera.SelectedItem.Text, DdlCtaContComplementaria.SelectedValue.ToEntero, DdlCtaContComplementaria.SelectedItem.Text,
|
||||
DdlCtaContAcreedores.SelectedValue.ToEntero, DdlCtaContAcreedores.SelectedItem.Text, DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero, DdlCtaContAcreedoresExtranjera.SelectedItem.Text, DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero, DdlCtaContAcreedoresComplementaria.SelectedItem.Text,
|
||||
DdlCtaContAnticipos.SelectedValue.ToEntero, DdlCtaContAnticipos.SelectedItem.Text, DdlCtaContAnticiposExtranjera.SelectedValue.ToEntero, DdlCtaContAnticiposExtranjera.SelectedItem.Text, DdlCtaContAnticiposComplementaria.SelectedValue.ToEntero, DdlCtaContAnticiposComplementaria.SelectedItem.Text,
|
||||
DdlCtaContDeudor.SelectedValue.ToEntero, DdlCtaContDeudor.SelectedItem.Text, DdlCtaContDeudorExtranjera.SelectedValue.ToEntero, DdlCtaContDeudorExtranjera.SelectedItem.Text, DdlCtaContDeudorComplementaria.SelectedValue.ToEntero, DdlCtaContDeudorComplementaria.SelectedItem.Text,
|
||||
DdlCtaContDocsXPagar.SelectedValue.ToEntero, DdlCtaContDocsXPagar.SelectedItem.Text, DdlCtaContDocsXPagarExtranjera.SelectedValue.ToEntero, DdlCtaContDocsXPagarExtranjera.SelectedItem.Text, DdlCtaContDocsXPagarComplementaria.SelectedValue.ToEntero, DdlCtaContDocsXPagarComplementaria.SelectedItem.Text,
|
||||
DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text,
|
||||
DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
|
||||
DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
|
||||
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
||||
DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
|
||||
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
|
||||
@@ -4351,8 +4304,6 @@ Partial Class Compras_Proveedores
|
||||
Dim IdCuentaContable As Integer = -1
|
||||
Dim CtaCodigo As String = ""
|
||||
Dim TieneError = False
|
||||
Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
|
||||
Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
|
||||
Dim CveConceptoContable As Integer = -1
|
||||
Dim Codigo As String = ""
|
||||
|
||||
@@ -4408,28 +4359,9 @@ Partial Class Compras_Proveedores
|
||||
CtaCodigo = CStr(row("CtaCodigo"))
|
||||
Codigo = CStr(row("Codigo"))
|
||||
|
||||
Select Case btn.CommandArgument.ToString
|
||||
Case "Proveedores"
|
||||
IdCtaContableProveedores = IdCuentaContable
|
||||
CtaCodigoProveedores = CtaCodigo
|
||||
Case "Acreedores"
|
||||
IdCtaContableAcreedores = IdCuentaContable
|
||||
CtaCodigoAcreedores = CtaCodigo
|
||||
Case "DocsXPagar"
|
||||
IdCtaContableDocsXPagar = IdCuentaContable
|
||||
CtaCodigoDocsXPagar = CtaCodigo
|
||||
Case "Anticipos"
|
||||
IdCtaContableAnticipos = IdCuentaContable
|
||||
CtaCodigoAnticipos = CtaCodigo
|
||||
Case "Deudores"
|
||||
IdCtaContableDeudor = IdCuentaContable
|
||||
CtaCodigoDeudor = CtaCodigo
|
||||
End Select
|
||||
|
||||
|
||||
If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
|
||||
TieneError = True
|
||||
End If
|
||||
'If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
|
||||
' TieneError = True
|
||||
'End If
|
||||
|
||||
Else
|
||||
TieneError = True
|
||||
@@ -4458,97 +4390,9 @@ Partial Class Compras_Proveedores
|
||||
ObjContaAC.RollBack()
|
||||
End If
|
||||
|
||||
|
||||
ObjContaAC.Dispose()
|
||||
ObjProveedores.Dispose()
|
||||
|
||||
|
||||
'ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then
|
||||
|
||||
|
||||
' Dim ObjContabilidad As New ClsContabilidad
|
||||
' Dim ObjProveedores As New ClsCompProveedores()
|
||||
' ObjContabilidad.IniciaTransacSQL()
|
||||
' ObjProveedores.IniciaTransacSQL()
|
||||
' Dim CuentaPadre = -1
|
||||
' Dim IdCuentaContable = -1
|
||||
' Dim CtaCodigo As String = ""
|
||||
' Dim TieneError = False
|
||||
' Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
|
||||
' Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
|
||||
|
||||
|
||||
' Select Case btn.CommandArgument.ToString
|
||||
' Case "Proveedores"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero
|
||||
' Case "Acreedores"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero
|
||||
' Case "DocsXPagar"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero
|
||||
' Case "Anticipos"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero
|
||||
' Case "Deudores"
|
||||
' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero
|
||||
|
||||
' End Select
|
||||
|
||||
' Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
|
||||
' IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa)
|
||||
' If IdCuentaContable > 0 Then
|
||||
|
||||
' ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa)
|
||||
' Dim dt = ObjContabilidad.DtResultados
|
||||
|
||||
' If dt.Rows.Count = 1 Then
|
||||
|
||||
' Dim row As DataRow = dt.Rows(0)
|
||||
' CtaCodigo = CStr(row("CtaCodigo"))
|
||||
|
||||
' Select Case btn.CommandArgument.ToString
|
||||
' Case "Proveedores"
|
||||
' IdCtaContableProveedores = IdCuentaContable
|
||||
' CtaCodigoProveedores = CtaCodigo
|
||||
' Case "Acreedores"
|
||||
' IdCtaContableAcreedores = IdCuentaContable
|
||||
' CtaCodigoAcreedores = CtaCodigo
|
||||
' Case "DocsXPagar"
|
||||
' IdCtaContableDocsXPagar = IdCuentaContable
|
||||
' CtaCodigoDocsXPagar = CtaCodigo
|
||||
' Case "Anticipos"
|
||||
' IdCtaContableAnticipos = IdCuentaContable
|
||||
' CtaCodigoAnticipos = CtaCodigo
|
||||
' Case "Deudores"
|
||||
' IdCtaContableDeudor = IdCuentaContable
|
||||
' CtaCodigoDeudor = CtaCodigo
|
||||
' End Select
|
||||
|
||||
|
||||
' If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
|
||||
' TieneError = True
|
||||
' End If
|
||||
' Else
|
||||
' TieneError = True
|
||||
' End If
|
||||
' Else
|
||||
' TieneError = True
|
||||
' End If
|
||||
|
||||
|
||||
' If Not TieneError Then
|
||||
' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||
' ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
||||
' btn.Visible = False
|
||||
' ddl.Width = 206
|
||||
' ObjProveedores.Commit()
|
||||
' ObjContabilidad.Commit()
|
||||
' Else
|
||||
' Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError)
|
||||
' ObjProveedores.RollBack()
|
||||
' ObjContabilidad.RollBack()
|
||||
' End If
|
||||
|
||||
' ObjProveedores.Dispose()
|
||||
' ObjContabilidad.Dispose()
|
||||
End If
|
||||
|
||||
UPPContable.Update()
|
||||
|
||||
@@ -530,11 +530,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones1", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If CveCajaChica > 0 Then
|
||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
|
||||
CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporteVinculado.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
|
||||
'AGREGO PREPOLIZA IE BANCOS
|
||||
@@ -601,11 +596,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
|
||||
'SI ES CAJA CHICA REGISTRO IE CAJA CHICA
|
||||
If CveCajaChica > 0 Then
|
||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
|
||||
CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, TxtFechaDocumento.Text.Trim.ToDate, FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
|
||||
|
||||
@@ -629,11 +619,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
|
||||
'SI ES CAJA CHICA REGISTRO IE CAJA CHICA
|
||||
If CveCajaChica > 0 Then
|
||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 2).ToString
|
||||
CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 2, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
|
||||
'8
|
||||
@@ -660,33 +646,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
Dim IdCtaProveedor As Integer = 0
|
||||
Dim IdCtaOtrosProductos As Integer = 0
|
||||
Dim CvePrePolizaUnificar As Integer = 0
|
||||
|
||||
Dim SeUnifico = False
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
'Obtenemos la cuenta del Personal o Caja Chica
|
||||
If CveCajaChica > 0 Then
|
||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
If ObjMov.GetRetCuenta(29, CvePersonal) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaPersonal = ObjMov.DtResultados.Rows(0)("IdCtaContPersonal").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'Obtenemos la cuenta del IdCtaOtrosProductos
|
||||
If ObjMov.GetRetCuenta(132, UsuarioActual.CveEmpresa) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaOtrosProductos = ObjMov.DtResultados.Rows(0)("IdCtaOtrosProductos").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'inserto las compras que voy a pagar
|
||||
For Each gvr As GridViewRow In GvCxP.Rows
|
||||
|
||||
@@ -724,7 +684,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
CompraActual.UsuarioActual = UsuarioActual
|
||||
CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
|
||||
CompraActual.CompraNoDeducible = gvr.DataKey("NoDeducible").ToEntero
|
||||
CompraActual.IdCtaContableProv = IdCtaProveedor
|
||||
|
||||
ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||
ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||
@@ -763,11 +722,9 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
|
||||
If MsgError = "" Then
|
||||
|
||||
If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
|
||||
If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso Not ChkMesSiguiente.Checked) Then
|
||||
'Si es caja chica metemos el concepto 30, si es funcionario metemos 29
|
||||
ImporteMovto += Pago.OtroGastoIngreso ' si ajuste, sedebe de aplicar en su contraparte
|
||||
@@ -841,7 +798,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
|
||||
'Otros Ingresos
|
||||
If ChkAjusteOI.Checked Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, UsuarioActual.Empresa.IdCuentaOtrosIngresos, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 0, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio) Then
|
||||
MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -121,8 +121,6 @@ Partial Class Compras_RepNotasCredito
|
||||
ObjConta.IniciaTransacSQL()
|
||||
Dim CvePrePoliza As Integer = 0
|
||||
Dim MsgError As String = ""
|
||||
Dim IdCtaContable As Integer = 0
|
||||
Dim IdCtaContableComplementaria As Integer = 0
|
||||
Dim Importe As Decimal = 0
|
||||
Dim ImporteMN As Decimal = 0
|
||||
Dim ImporteComplementaria As Decimal = 0
|
||||
@@ -137,8 +135,6 @@ Partial Class Compras_RepNotasCredito
|
||||
|
||||
For Each gr As GridViewRow In GvDatos.Rows
|
||||
If gr.FCCheckBox("Chk").Checked Then
|
||||
IdCtaContable = 0
|
||||
IdCtaContableComplementaria = 0
|
||||
Importe = gr.DataKey("Saldo").ToDecimal.RoundSQL
|
||||
ImporteMN = gr.DataKey("Saldo").ToDecimal.RoundSQL
|
||||
TCCompra = gr.DataKey("TipoCambio").ToDecimal
|
||||
@@ -146,24 +142,20 @@ Partial Class Compras_RepNotasCredito
|
||||
Dim CveTipoConcepto = gr.DataKey("CveTipoConcepto").ToEntero
|
||||
|
||||
If CveMoneda > 1 Then
|
||||
IdCtaContable = gr.DataKey("IdCtaContExtranjera").ToEntero
|
||||
ImporteMN = (gr.DataKey("Saldo").ToDecimal * TCCompra).RoundSQL
|
||||
Else
|
||||
IdCtaContable = gr.DataKey("IdCtaContProveedores").ToEntero
|
||||
End If
|
||||
|
||||
Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, CveMoneda, False, CveTipoConcepto)
|
||||
'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
|
||||
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -Importe, gr.DataKey("SerieFolio"), 18, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=-If(CveMoneda > 1 AndAlso UsaComplementaria, Importe, ImporteMN), ImporteME:=-If(CveMoneda > 1, Importe, 0), CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -Importe, gr.DataKey("SerieFolio"), 18, Concepto, TxtFechaSaldar.Text.ToDate, 0, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=-If(CveMoneda > 1 AndAlso UsaComplementaria, Importe, ImporteMN), ImporteME:=-If(CveMoneda > 1, Importe, 0), CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
|
||||
MsgError = "Ocurrio un Error al saldar el movimiento"
|
||||
End If
|
||||
|
||||
If UsaComplementaria AndAlso CveMoneda > 1 Then
|
||||
ImporteComplementaria = (Importe * TCCompra - Importe).RoundSQL
|
||||
IdCtaContableComplementaria = gr.DataKey("IdCtaContComplementaria").ToEntero
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -ImporteComplementaria, "", 235, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContableComplementaria, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=-ImporteComplementaria, ImporteME:=-Importe, TipoCambioPago:=TC, TipoCambio:=TCCompra) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -ImporteComplementaria, "", 235, Concepto, TxtFechaSaldar.Text.ToDate, 0, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=-ImporteComplementaria, ImporteME:=-Importe, TipoCambioPago:=TC, TipoCambio:=TCCompra) Then
|
||||
MsgError = "Ocurrio un Error al saldar el movimiento"
|
||||
End If
|
||||
End If
|
||||
@@ -176,7 +168,6 @@ Partial Class Compras_RepNotasCredito
|
||||
Dim difFluctuacion As Decimal = TC - TCCompra
|
||||
Dim CveConceptoFluctua As Integer = 64 '64.ganacia, 65.perdida
|
||||
Dim TipoMovtoFluctua As Boolean = True
|
||||
Dim IdCtaContableFluctua As Integer
|
||||
If difFluctuacion < 0 Then
|
||||
CveConceptoFluctua = 65
|
||||
TipoMovtoFluctua = False
|
||||
@@ -186,11 +177,11 @@ Partial Class Compras_RepNotasCredito
|
||||
End If
|
||||
Dim ImporteFluctuacion As Decimal = Math.Abs((Importe * difFluctuacion).RoundSQL)
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, "", CveConceptoFluctua, Concepto, Now, IdCtaContableFluctua, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, TipoCambio:=TCCompra, TipoCambioPago:=TC, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoFluctua, ImporteFluctuacion, "", CveConceptoFluctua, Concepto, Now, 0, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=ImporteFluctuacion, ImporteME:=ImporteFluctuacion, TipoCambio:=TCCompra, TipoCambioPago:=TC, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
|
||||
MsgError = "Ocurrio un Error al saldar el movimiento"
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If MsgError <> "" Then Exit For
|
||||
|
||||
End If
|
||||
|
||||
@@ -68,16 +68,12 @@
|
||||
</div>
|
||||
<div class="col-md-9">
|
||||
<asp:DropDownList ID="DdlPersonal" CssClass="form-control select2me" Width="100%" Visible="false" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompletoNombre" DataValueField="CvePersonal">
|
||||
<asp:ListItem Selected="True" Text="Seleccione un F / E" Value="-2"></asp:ListItem>
|
||||
<asp:ListItem Selected="True" Text="Seleccione un F / E" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVPersonal" runat="server" ControlToValidate="DdlPersonal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Debe seleccionar un <b>Funcionario/Empleado</b>." InitialValue="-2" ValidationGroup="GrpConsultar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEPersonal" runat="server" HighlightCssClass="vco" TargetControlID="RFVPersonal" Width="300px" BehaviorID="VCEPersonal"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
<asp:DropDownList ID="DdlCajaChica" CssClass="form-control select2me" Width="100%" Visible="false" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta">
|
||||
<asp:ListItem Selected="True" Text="Seleccione una Cuenta" Value="-2"></asp:ListItem>
|
||||
<asp:ListItem Selected="True" Text="Seleccione una Cuenta" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCajaChica" runat="server" ControlToValidate="DdlCajaChica" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Debe seleccionar una <b>Cuenta</b>." InitialValue="-2" ValidationGroup="GrpConsultar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECajaChica" runat="server" HighlightCssClass="vco" TargetControlID="RFVCajaChica" Width="300px" BehaviorID="VCECajaChica"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
<label class="col-md-1" style="margin-top: 10px; margin-left: 5px;">No. Reembolso:</label>
|
||||
|
||||
@@ -83,15 +83,16 @@ Partial Class Compras_RepRembolsoComprobaciones
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlTipoPago_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
ViewState("CveCajaChica") = -2
|
||||
ViewState("CvePersonal") = -2
|
||||
ViewState("CveCajaChica") = -1
|
||||
ViewState("CvePersonal") = -1
|
||||
|
||||
LtTituloPago.Text = ""
|
||||
|
||||
If DdlTipoPago.SelectedValue = "1" Then
|
||||
If DdlTipoPago.SelectedValue = "1" Then 'personal
|
||||
DdlPersonal.Visible = True
|
||||
DdlPersonal.SelectedValue = "-2"
|
||||
DdlPersonal.SelectedValue = "-1"
|
||||
LtTituloPago.Text = "F / E:"
|
||||
DdlCajaChica.Visible = False
|
||||
DdlCajaChica.SelectedValue = "-1"
|
||||
|
||||
'Valida Proceso 120 para ROL Administrador de obra - para FyE solo puede ver los del UsuarioActual
|
||||
If UsuarioActual.TienePermisoProceso(120) Then
|
||||
@@ -102,20 +103,12 @@ Partial Class Compras_RepRembolsoComprobaciones
|
||||
DdlPersonal.Enabled = False
|
||||
End If
|
||||
|
||||
Else
|
||||
DdlPersonal.Visible = False
|
||||
DdlPersonal.SelectedValue = "-2"
|
||||
|
||||
DdlPersonal.Enabled = True
|
||||
End If
|
||||
|
||||
If DdlTipoPago.SelectedValue = "2" Then
|
||||
ElseIf DdlTipoPago.SelectedValue = "2" Then ' caja chica
|
||||
DdlCajaChica.Visible = True
|
||||
DdlCajaChica.SelectedValue = "-2"
|
||||
DdlCajaChica.SelectedValue = "-1"
|
||||
LtTituloPago.Text = "Caja Chica:"
|
||||
Else
|
||||
DdlCajaChica.Visible = False
|
||||
DdlCajaChica.SelectedValue = "-2"
|
||||
DdlPersonal.Visible = False
|
||||
DdlPersonal.SelectedValue = "-1"
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -133,16 +126,6 @@ Partial Class Compras_RepRembolsoComprobaciones
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.BackColor = Drawing.Color.LightGray
|
||||
End If
|
||||
'If e.Row.RowIndex = 1 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(100)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(300)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(70)
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(70)
|
||||
' e.Row.Cells(4).Width = Unit.Pixel(80)
|
||||
' e.Row.Cells(5).Width = Unit.Pixel(40)
|
||||
' e.Row.Cells(6).Width = Unit.Pixel(60)
|
||||
' e.Row.Cells(7).Width = Unit.Pixel(60)
|
||||
'End If
|
||||
|
||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
||||
@@ -237,23 +220,11 @@ Partial Class Compras_RepRembolsoComprobaciones
|
||||
|
||||
#Region " CARGA DATOS "
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
CargaCxP()
|
||||
CargaDatos()
|
||||
UPFiltros.Update()
|
||||
End Sub
|
||||
Private Sub CargaDatos(tCveIE As Integer)
|
||||
Dim ObjIE As New ClsBancos()
|
||||
|
||||
If ObjIE.GetBancosIE(tCveIE, UsuarioActual.CveEmpresa) Then
|
||||
If ObjIE.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Else
|
||||
Alert("El Documento solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ObjIE.Dispose()
|
||||
|
||||
End Sub
|
||||
Protected Sub CargaCxP()
|
||||
Protected Sub CargaDatos()
|
||||
Dim ObjMovtos As New ClsMovimientos
|
||||
|
||||
GvCxP.Visible = True
|
||||
@@ -261,6 +232,10 @@ Partial Class Compras_RepRembolsoComprobaciones
|
||||
Dim FechaI As DateTime = If(String.IsNullOrEmpty(txtFechaI.Text.Trim()), ModExtensiones.MinFecha, txtFechaI.Text.ToDateTime())
|
||||
Dim FechaF As DateTime = If(String.IsNullOrEmpty(txtFechaF.Text.Trim()), ModExtensiones.MaxFecha, txtFechaF.Text.ToDateTime())
|
||||
|
||||
If DdlTipoPago.SelectedValue = "1" Then ViewState("CveCajaChica") = -2
|
||||
If DdlTipoPago.SelectedValue = "2" Then ViewState("CvePersonal") = -2
|
||||
|
||||
|
||||
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1)
|
||||
DtDatos = ObjMovtos.DtResultados
|
||||
GvCxP.DataSource = DtDatos
|
||||
|
||||
@@ -2,7 +2,6 @@
|
||||
Option Explicit On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Diagnostics
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
@@ -15,12 +14,10 @@ Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
||||
Imports System.Xml
|
||||
Imports ADSistemaLibrary.SatXml
|
||||
Imports ADSistemaLibrary.SatXml.XmlSatCFDI
|
||||
Imports ClsPaginas
|
||||
Imports Extensiones
|
||||
Imports HigLabo
|
||||
Imports Microsoft.Owin.Security.Provider
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports Newtonsoft.Json.Linq
|
||||
Imports ClsPaginas
|
||||
|
||||
|
||||
|
||||
@@ -783,33 +780,35 @@ Partial Class Compras_eFacturas
|
||||
If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(14).Visible = True : GvD.Columns(15).Visible = True
|
||||
If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(13).Visible = False
|
||||
If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(7).Visible = True
|
||||
|
||||
|
||||
CargaGvBitacora()
|
||||
CargaDatos()
|
||||
MostrarSolcitudesSAT()
|
||||
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
GVSolicitudesPendientes.Columns(8).Visible = True
|
||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
LnkRegistarFactura.Visible = True
|
||||
End If
|
||||
|
||||
'CARGA REGISTRO DE FACTURA
|
||||
CargaGvBitacora()
|
||||
CargaDatos()
|
||||
MostrarSolcitudesSAT()
|
||||
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
GVSolicitudesPendientes.Columns(8).Visible = True
|
||||
End If
|
||||
|
||||
'CARGA REGISTRO DE FACTURA
|
||||
|
||||
|
||||
CargaClasificacionesComprobaciones()
|
||||
CargaClasificaciones()
|
||||
CargaPS(-1)
|
||||
CargaPersoanlCajaChica()
|
||||
CargaPersonalViaticos()
|
||||
CargaDdlRetIVA()
|
||||
CargaDdlRetISR()
|
||||
CargaClasificacionesComprobaciones()
|
||||
CargaClasificaciones()
|
||||
CargaPS(-1)
|
||||
CargaPersoanlCajaChica()
|
||||
CargaPersonalViaticos()
|
||||
CargaDdlRetIVA()
|
||||
CargaDdlRetISR()
|
||||
|
||||
Dim LblSubProyectoTemp As New Label
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione")
|
||||
LblSubProyecto.InnerText = $"{LblSubProyectoTemp.Text}:"
|
||||
Dim LblSubProyectoTemp As New Label
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione")
|
||||
LblSubProyecto.InnerText = $"{LblSubProyectoTemp.Text}:"
|
||||
|
||||
End If
|
||||
removeasincevent()
|
||||
End If
|
||||
removeasincevent()
|
||||
End Sub
|
||||
'Private Sub CompararString()
|
||||
' Dim cont As Integer = 10000
|
||||
@@ -5297,7 +5296,6 @@ Partial Class Compras_eFacturas
|
||||
|
||||
If dr IsNot Nothing Then
|
||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||
EstaAsociadoACajaChica = True
|
||||
End If
|
||||
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
|
||||
@@ -5454,10 +5452,6 @@ Public Class Compra2
|
||||
Public Property CveRetISRConcepto As Integer = -1
|
||||
Public Property CveSubProyecto As Integer = -1
|
||||
Public Property UsuarioActual As Usuario
|
||||
Public Property IdCtaContableProv As Integer = -1
|
||||
Public Property IdCtaContableProvComplementaria As Integer = -1
|
||||
Public Property IdCtaContableAnticipoProv As Integer = -1
|
||||
Public Property IdCtaContableAnticipoProvComplementaria As Integer = -1
|
||||
Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones
|
||||
Get
|
||||
Dim Ret As New ConceptosRetenciones
|
||||
@@ -5500,24 +5494,6 @@ Public Class Compra2
|
||||
Ret.CveConceptoAcreditable = 333
|
||||
Ret.CveConceptoxAcreditar = 334
|
||||
End If
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero > 0 Then
|
||||
Ret.IdCtaContablexAcreditar = UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero
|
||||
Else
|
||||
If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
||||
Ret.IdCtaContableAcreditable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
||||
Else
|
||||
If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
Return Ret
|
||||
End Get
|
||||
End Property
|
||||
@@ -5538,24 +5514,6 @@ Public Class Compra2
|
||||
Ret.CveConceptoAcreditable = 328
|
||||
Ret.CveConceptoxAcreditar = 327
|
||||
End If
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero > 0 Then
|
||||
Ret.IdCtaContablexAcreditar = UsuarioActual.Empresa.Funcionalidad(FuncionalidadxAcred).ToEntero
|
||||
Else
|
||||
If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
||||
Ret.IdCtaContableAcreditable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
||||
Else
|
||||
If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
Return Ret
|
||||
End Get
|
||||
End Property
|
||||
@@ -5587,10 +5545,8 @@ Public Class Compra2
|
||||
Public Property Amortizacion As Decimal = 0D
|
||||
Public Property FechaPago As Date 'FIX ME corregir usando fecha interna calculada por los dias de credito del proveedor
|
||||
Public Property AplicaNotaCredito As Boolean = False
|
||||
|
||||
Public Property XMlStr As String
|
||||
Public Property XMLCargaExistosa As Boolean = True
|
||||
|
||||
Public Property Observaciones As String = ""
|
||||
Public Property CveEstatusFactura As Integer = 1
|
||||
Public Property CvePrePoliza As Integer = -1
|
||||
@@ -5655,7 +5611,6 @@ Public Class Compra2
|
||||
CargaDesdeString(XmlFuente)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDesdeArchivo(XmlFuenteRuta As String)
|
||||
@@ -5724,7 +5679,6 @@ Public Class Compra2
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
Folio = ValorXML(nodo, "folio")
|
||||
Fecha = ValorXML(nodo, "fecha").ToDate
|
||||
SubTotal = ValorXML(nodo, "subTotal").ToDecimal
|
||||
@@ -5763,15 +5717,13 @@ Public Class Compra2
|
||||
Else ' se considera que es la version 4.0
|
||||
cfdVer = "http://www.sat.gob.mx/cfd/4"
|
||||
End If
|
||||
|
||||
namespaces.AddNamespace(Prefijo, cfdVer)
|
||||
namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
|
||||
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
|
||||
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
|
||||
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
|
||||
|
||||
|
||||
If TipoComprobante.ToUpper = "E" And (CFDIVersion = EnumCFDIVersion.V33 Or CFDIVersion = EnumCFDIVersion.V40) Then
|
||||
If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.V33 OrElse CFDIVersion = EnumCFDIVersion.V40) Then
|
||||
Dim UUIDS As String = ""
|
||||
|
||||
Dim UUIDSLista As New List(Of String)
|
||||
@@ -5981,11 +5933,9 @@ Public Class Compra2
|
||||
Dim DTIndex As DataTable = TmpDT.FiltraParametros("", DistinctColumns:={"Consec"})
|
||||
|
||||
For Each dRowIndex As DataRow In DTIndex.Rows
|
||||
|
||||
If Not UpdatePSReembolso(dRowIndex("Consec").ToString.ToEntero, CvePS) Then
|
||||
respuesta = False
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
If respuesta AndAlso IEPS > 0 Then
|
||||
@@ -6174,14 +6124,10 @@ Public Class Compra2
|
||||
dRow("IVA") = dRow("IVA").ToString.ToDecimal - AjusteteDividido
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Else
|
||||
TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
|
||||
End If
|
||||
|
||||
TmpDT.AcceptChanges()
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -6202,7 +6148,6 @@ Public Class Compra2
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Else
|
||||
Alert("Los productos especificados en el listado no tienen asignado impuesto IVA, favor de realizar la corrección en el producto que aplique el impuesto.", TipoMensaje.MsgAdvertencia)
|
||||
Respuesta = False
|
||||
@@ -6218,9 +6163,6 @@ Public Class Compra2
|
||||
|
||||
Dim DTConsultaIEPSPS As New DataTable
|
||||
DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'")
|
||||
|
||||
|
||||
|
||||
Dim IndiceContador As Integer = 0
|
||||
Dim IndicePrimero As Integer = 0
|
||||
|
||||
@@ -6231,27 +6173,18 @@ Public Class Compra2
|
||||
End If
|
||||
IndiceContador = IndiceContador + 1
|
||||
Next
|
||||
|
||||
If DiferenciaIEPSPS.RoundAD(2) <> 0 Then
|
||||
|
||||
If DiferenciaIEPSPS.RoundSQL(2) <> 0 Then
|
||||
|
||||
TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS
|
||||
TmpDT.AcceptChanges()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
|
||||
If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then
|
||||
dRow("IEPSPSPorcentaje") = 0
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
TmpDT.AcceptChanges()
|
||||
|
||||
End If
|
||||
|
||||
Return Respuesta
|
||||
@@ -6298,15 +6231,11 @@ Public Class Compra2
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
dRow("IVA") = dRow("IVA").ToString.ToDecimal - AjusteteDividido
|
||||
Next
|
||||
|
||||
Else
|
||||
TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
|
||||
End If
|
||||
|
||||
TmpDT.AcceptChanges()
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'Revalidacion de ajuste
|
||||
@@ -6433,8 +6362,6 @@ Public Class Compra2
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Function AjustaRetISR() As Boolean
|
||||
|
||||
Dim Respuesta As Boolean = False
|
||||
@@ -6541,13 +6468,10 @@ Public Class Compra2
|
||||
If OtrosImpuestosGasto Then
|
||||
AgregarConceptoIEPS(OtrosImpuestos, CvePS)
|
||||
End If
|
||||
|
||||
Else
|
||||
respuesta = False
|
||||
Errores.AppendLine("Debe seleccionar al menos un impuesto. ")
|
||||
End If
|
||||
|
||||
|
||||
CalculaTotales()
|
||||
|
||||
Return respuesta
|
||||
@@ -6622,12 +6546,9 @@ Public Class Compra2
|
||||
Me.SubTotal = Math.Round(SubTotalIEPS, 2)
|
||||
Me.SubTotalConceptos = Math.Round(SubTotalIEPS, 2)
|
||||
|
||||
|
||||
|
||||
PSS.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function AddPS(Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, CveTipoPS As Integer, CveSubProyectoContrato As String, SubProyecto As String, Proyecto As String, CveProyecto As String,
|
||||
Obs As String, PU As Decimal, Total As Decimal, IVA As Decimal, RetIVA As Decimal, RetISR As Decimal, IEPSPS As Decimal, IEPSPSIVA As Decimal, Descuento As Decimal, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True,
|
||||
Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Decimal = 0,
|
||||
@@ -6873,7 +6794,6 @@ Public Class Compra2
|
||||
End If
|
||||
Me.NumNoDed = TmpDT.COUNT("CvePS", "NoDeducible = True ")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function UpdatePSReembolso(Index As Integer, CvePS As Integer) As Boolean
|
||||
@@ -7086,8 +7006,6 @@ Public Class Compra2
|
||||
|
||||
Return DoctosRelacionados
|
||||
End Function
|
||||
|
||||
|
||||
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
|
||||
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
||||
If o Is Nothing Then
|
||||
@@ -7186,7 +7104,7 @@ Public Class Compra2
|
||||
Return respuesta
|
||||
End Function
|
||||
|
||||
Private Function AddPrepolizaDetalles(ByRef ObjConta As ClsContabilidad) As Boolean
|
||||
Private Function AddPrePolizaDetalles(ByRef ObjConta As ClsContabilidad) As Boolean
|
||||
Dim respuesta As Boolean = True
|
||||
Dim Concepto As String = $"{Me.NombreProveedor} {Me.SerieFolio}"
|
||||
Dim Referencia As String = Me.SerieFolio
|
||||
@@ -7199,7 +7117,7 @@ Public Class Compra2
|
||||
importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
|
||||
|
||||
If importeMN <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 6, Referencia, Concepto, -1, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=Me.CveCreditoDetalle, ImporteME:=If(TipoCambio = 1, 0, importeMovimiento), TipoCambio:=TipoCambio,
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 6, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=Me.CveCreditoDetalle, ImporteME:=If(TipoCambio = 1, 0, importeMovimiento), TipoCambio:=TipoCambio,
|
||||
CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=True) Then
|
||||
respuesta = False
|
||||
Exit For
|
||||
@@ -7210,7 +7128,7 @@ Public Class Compra2
|
||||
If respuesta AndAlso Me.IVA > 0 Then
|
||||
importeMovimiento = Me.IVA
|
||||
importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 14, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=Me.PorcentajeIVA, Contabilizable:=True) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 14, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=Me.PorcentajeIVA, Contabilizable:=True) Then
|
||||
respuesta = False
|
||||
End If
|
||||
End If
|
||||
@@ -7218,7 +7136,7 @@ Public Class Compra2
|
||||
If respuesta AndAlso Me.IEPS > 0 Then
|
||||
importeMovimiento = Me.IEPS
|
||||
importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 25, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 25, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
|
||||
respuesta = False
|
||||
End If
|
||||
End If
|
||||
@@ -7227,7 +7145,7 @@ Public Class Compra2
|
||||
importeMovimiento = Me.RetIVA
|
||||
importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
|
||||
Dim ret As ConceptosRetenciones = ConceptoPrePolizaRetIVA
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
|
||||
respuesta = False
|
||||
End If
|
||||
End If
|
||||
@@ -7236,7 +7154,7 @@ Public Class Compra2
|
||||
importeMovimiento = Me.RetISR
|
||||
importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
|
||||
Dim ret As ConceptosRetenciones = ConceptoPrePolizaRetISR
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
|
||||
respuesta = False
|
||||
End If
|
||||
End If
|
||||
@@ -7255,11 +7173,11 @@ Public Class Compra2
|
||||
Else
|
||||
importeMN = importeMovimiento
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ConPreP.CveConcepto, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ConPreP.CveConcepto, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
|
||||
respuesta = False
|
||||
End If
|
||||
If respuesta AndAlso Me.CveMoneda > 1 AndAlso UsaComplementaria Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, (importeMovimiento * Me.TipoCambio - importeMovimiento).RoundSQL, ConPreP.CveConceptoComplementario, Referencia, Concepto, -1, CveCompra:=Me.CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=Me.CvePersonal, CveCompraAmortizacion:=Me.CveCompraAmortizacion, TipoCambio:=Me.TipoCambio, TipoCambioPago:=1, ImporteME:=ImporteME, CveSubProyecto:=Me.CveSubProyecto) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, (importeMovimiento * Me.TipoCambio - importeMovimiento).RoundSQL, ConPreP.CveConceptoComplementario, Referencia, Concepto, CveCompra:=Me.CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=Me.CvePersonal, CveCompraAmortizacion:=Me.CveCompraAmortizacion, TipoCambio:=Me.TipoCambio, TipoCambioPago:=1, ImporteME:=ImporteME, CveSubProyecto:=Me.CveSubProyecto) Then
|
||||
respuesta = False
|
||||
End If
|
||||
End If
|
||||
@@ -7273,14 +7191,6 @@ End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class GeneralesAPIeFacturas
|
||||
|
||||
Inherits ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.BaseSIGAPIeFacturas
|
||||
|
||||
Reference in New Issue
Block a user