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

-- metodo de validar/contabilizar

Browse Source
This commit is contained in:
rrene
2023-06-05 15:43:44 -07:00
parent 0162560a00
commit 5efebdb212
1 changed files with 28 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1235,33 +1235,34 @@ Partial Class Ventas_ClientesAbonar
End If End If
If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then 'If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then ' If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
MsgError = "No se pudo simplificar los movimientos" ' MsgError = "No se pudo simplificar los movimientos"
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) ' Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
End If ' End If
'End If
If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then
MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
'If ObjMov.ValorPolizaDescuadre > 0 Then
' MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
'End If
End If End If
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then ''Conta ContPAQ
If ObjMov.ValorPolizaDescuadre > 0 Then 'If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia ' If idCuentaContabilizacion > 0 Then
End If ' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
End If ' IDPoliza = ObjMov.ContaIdPoliza
' FolioPoliza = ObjMov.ContaFolio
'Conta ContPAQ ' Else
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then ' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
If idCuentaContabilizacion > 0 Then ' MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then ' End If
IDPoliza = ObjMov.ContaIdPoliza ' Else
FolioPoliza = ObjMov.ContaFolio ' Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas))
Else ' End If
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") 'End If
MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
End If
Else
Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas))
End If
End If
Else Else
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If
@@ -2677,8 +2678,8 @@ Partial Class Ventas_ClientesAbonar
CambiaTipoMoneda() CambiaTipoMoneda()
End Sub End Sub
Private Sub CambiaTipoMoneda() Private Sub CambiaTipoMoneda()
Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, TxtFechaDocumento.Text.ToDate.Day - 1, TxtFechaDocumento.Text.ToDate.Day)
Fecha = (dia.ToString + "/" + TxtFechaDocumento.Text.ToDate.Month.ToString + "/" + TxtFechaDocumento.Text.ToDate.Year.ToString).ToDate Fecha = If(UsuarioActual.CveEmpresa = 13, TxtFechaDocumento.Text.ToDate.AddDays(-1), TxtFechaDocumento.Text.ToDate).ToDate
If TxtTC.Visible Then If TxtTC.Visible Then
TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)