Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -2638,31 +2638,31 @@ Partial Class Clientes
|
||||
Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero()
|
||||
|
||||
' si tiene la funcionalidad de la cuenta contable padre
|
||||
If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then
|
||||
'If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then
|
||||
|
||||
Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
' Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
ObjContaAC.IniciaTransacSQL()
|
||||
'se registra la cuenta contable automaticamente
|
||||
' ObjContaAC.IniciaTransacSQL()
|
||||
' 'se registra la cuenta contable automaticamente
|
||||
|
||||
CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2)
|
||||
' CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2)
|
||||
|
||||
If CtaCliente > 0 Then
|
||||
ObjContaAC.Commit()
|
||||
DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString()))
|
||||
DdlCtaContableClientes.SelectedValue = CtaCliente.ToString()
|
||||
'MsgCuentaContable = String.Format("<br />Con la cuenta contable: {0}", NewCuenta)
|
||||
' If CtaCliente > 0 Then
|
||||
' ObjContaAC.Commit()
|
||||
' DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString()))
|
||||
' DdlCtaContableClientes.SelectedValue = CtaCliente.ToString()
|
||||
' 'MsgCuentaContable = String.Format("<br />Con la cuenta contable: {0}", NewCuenta)
|
||||
|
||||
Else
|
||||
' Else
|
||||
|
||||
ObjContaAC.RollBack()
|
||||
ObjContaAC.Dispose()
|
||||
Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError)
|
||||
ObjClientes.Dispose()
|
||||
Exit Sub
|
||||
End If
|
||||
ObjContaAC.Dispose()
|
||||
End If
|
||||
' ObjContaAC.RollBack()
|
||||
' ObjContaAC.Dispose()
|
||||
' Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError)
|
||||
' ObjClientes.Dispose()
|
||||
' Exit Sub
|
||||
' End If
|
||||
' ObjContaAC.Dispose()
|
||||
'End If
|
||||
|
||||
|
||||
Dim CodigoCuentaAltaCompaq As String = ""
|
||||
@@ -2750,11 +2750,15 @@ Partial Class Clientes
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, 1, ObjClientes.IniciaTransacSQL) Then
|
||||
ErrorProceso = True
|
||||
|
||||
If IdCuentaAltaCompaq > 0 Then
|
||||
If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, 1, ObjClientes.IniciaTransacSQL) Then
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If ErrorProceso Then
|
||||
ObjClientes.RollBack()
|
||||
Else
|
||||
|
||||
@@ -1235,33 +1235,34 @@ Partial Class Ventas_ClientesAbonar
|
||||
|
||||
End If
|
||||
|
||||
If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
|
||||
If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
MsgError = "No se pudo simplificar los movimientos"
|
||||
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
||||
End If
|
||||
'If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
|
||||
' If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
' MsgError = "No se pudo simplificar los movimientos"
|
||||
' Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
||||
' 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
|
||||
|
||||
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
|
||||
If ObjMov.ValorPolizaDescuadre > 0 Then
|
||||
MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
|
||||
End If
|
||||
End If
|
||||
|
||||
'Conta ContPAQ
|
||||
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
|
||||
If idCuentaContabilizacion > 0 Then
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
IDPoliza = ObjMov.ContaIdPoliza
|
||||
FolioPoliza = ObjMov.ContaFolio
|
||||
Else
|
||||
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
|
||||
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
|
||||
''Conta ContPAQ
|
||||
'If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
|
||||
' If idCuentaContabilizacion > 0 Then
|
||||
' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
' IDPoliza = ObjMov.ContaIdPoliza
|
||||
' FolioPoliza = ObjMov.ContaFolio
|
||||
' Else
|
||||
' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
|
||||
' 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
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
@@ -2677,8 +2678,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
CambiaTipoMoneda()
|
||||
End Sub
|
||||
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
|
||||
TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
|
||||
|
||||
@@ -551,7 +551,7 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<div class="form-group form-md-line-input input-iconright" style="display:none;">
|
||||
<div class="form-group form-md-line-input input-iconright" id="divPrecio" runat="server" visible="false" >
|
||||
<asp:TextBox ID="TxtPrecio" CssClass="form-control" runat="server" MaxLength="10" Text="0"></asp:TextBox>
|
||||
<label for="<%= TxtPrecio.ClientID.ToString()%>">Precio:</label><asp:RequiredFieldValidator ID="RFVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:RegularExpressionValidator ID="REVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" EnableClientScript="True" ErrorMessage="El campo <b>''Precio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationGroup="GrpGuardar" ValidationExpression="^[0-9]{1,15}(?:\.[0-9]{1,4})?$" />
|
||||
|
||||
@@ -360,10 +360,11 @@ Partial Class ProductosyServicios
|
||||
divCodigo2.Visible = True
|
||||
divLitraje.Visible = True
|
||||
DivClasificacion2.Visible = True
|
||||
|
||||
CargaPSAdicionalesVigencias()
|
||||
End If
|
||||
|
||||
divPrecio.Visible = UsuarioActual.Empresa.Funcionalidad(404) = "" ' si tiene lista de precio, se oculta el precio por ps
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then '' empresa deduce IEPS
|
||||
divIEPS.Visible = True
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user