-- corrección
This commit is contained in:
@@ -345,9 +345,6 @@ Partial Class Bancos_PopIEVentas
|
||||
CargaTipoTransaccion(TipoTransaccion)
|
||||
CargaCuentas()
|
||||
|
||||
|
||||
|
||||
|
||||
Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, NowADS().Day - 1, NowADS().Day)
|
||||
Fecha = (dia.ToString + "/" + NowADS().Month.ToString + "/" + NowADS().Year.ToString).ToDate
|
||||
|
||||
@@ -1231,7 +1228,6 @@ Partial Class Bancos_PopIEVentas
|
||||
If CveVenta > 0 Then
|
||||
|
||||
If VentaActual IsNot Nothing Then
|
||||
Dim tipoCambioPago As Decimal = 1
|
||||
Dim CuentasContablesInvalidas As New StringBuilder
|
||||
Dim tFecha As Date = TxtFechaDocumento.Text.ToDate
|
||||
|
||||
@@ -1250,18 +1246,18 @@ Partial Class Bancos_PopIEVentas
|
||||
'Pago.TCPago = 1 / TxtTipoCambio.Text.ToDecimal
|
||||
ImportePagadoVenta = (ImportePagado / TxtTipoCambio.Text.ToDecimal).RoundSQL
|
||||
ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
|
||||
Pago.TCPago = TxtTipoCambio.Text.ToDecimal
|
||||
Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal
|
||||
ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
|
||||
Pago.TCPago = TxtTipoCambio.Text.ToDecimal
|
||||
End If
|
||||
'If ChkPagarPesos.Checked Then Pago.TCPago = 1 / TxtTipoCambio.Text.ToDecimal
|
||||
If ChkPagarDolares.Checked Then Pago.TCPago = TxtTipoCambio.Text.ToDecimal
|
||||
|
||||
If TxtComision.Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = TxtComision.Text.ToDecimal Else Pago.OtroGastoIngreso = 0
|
||||
If TxtComision.Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = TxtComision.Text.ToDecimal Else Pago.OtroGastoIngreso = 0
|
||||
|
||||
Select Case RBLContado.SelectedValue
|
||||
Case "1" ' Banco
|
||||
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "",
|
||||
Select Case RBLContado.SelectedValue
|
||||
Case "1" ' Banco
|
||||
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, Pago.TCPago, TxtObservaciones.Text.Trim, "",
|
||||
True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito,
|
||||
Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte, FechaEmision:=FechaEmision)
|
||||
If CveIE > 0 Then
|
||||
@@ -1272,130 +1268,130 @@ Partial Class Bancos_PopIEVentas
|
||||
Pago.TipoPago = "B"
|
||||
|
||||
If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgError = "Ocurrio un Error al registrarse el movimiento bancario."
|
||||
Inserta = False
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgError = "Ocurrio un Error al registrarse el movimiento bancario."
|
||||
Inserta = False
|
||||
End If
|
||||
Case "2" ' FyE
|
||||
|
||||
Pago.ImportePago = ImportePagado
|
||||
Pago.ImportePagoVenta = ImportePagado - Pago.OtroGastoIngreso
|
||||
Pago.TipoPago = "FyE"
|
||||
Pago.CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero
|
||||
Pago.Referencia = DdlFuncionarioEmpleado.SelectedItem.ToString
|
||||
Pago.CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero
|
||||
Pago.Referencia = DdlFuncionarioEmpleado.SelectedItem.ToString
|
||||
|
||||
If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
|
||||
Case "3" 'Ingresos x Comprobar
|
||||
Case "3" 'Ingresos x Comprobar
|
||||
|
||||
CveCliente = DdlIngreso.SelectedValue.ToEntero
|
||||
CveIE = -1
|
||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||
Pago.ImportePago = ImportePagado
|
||||
Pago.TipoPago = "I"
|
||||
CveCliente = DdlIngreso.SelectedValue.ToEntero
|
||||
CveIE = -1
|
||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||
Pago.ImportePago = ImportePagado
|
||||
Pago.TipoPago = "I"
|
||||
|
||||
For Each rw As GridViewRow In GvIngresos.Rows
|
||||
If rw.FCCheckBox("Chk").Checked Then
|
||||
CveIE = rw.DataKey("CveIE").ToEntero
|
||||
Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
|
||||
Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
|
||||
Pago.FechaDocumentoRelacionado = rw.DataKey("FechaDocumento").ToDate
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveClientePago = rw.DataKey("CveCliente").ToEntero
|
||||
If ChkPagarPesos.Checked Then Pago.TCPago = 1 / rw.DataKey("TipoCambio").ToDecimal
|
||||
If ChkPagarDolares.Checked Then Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
|
||||
For Each rw As GridViewRow In GvIngresos.Rows
|
||||
If rw.FCCheckBox("Chk").Checked Then
|
||||
CveIE = rw.DataKey("CveIE").ToEntero
|
||||
Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
|
||||
Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
|
||||
Pago.FechaDocumentoRelacionado = rw.DataKey("FechaDocumento").ToDate
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveClientePago = rw.DataKey("CveCliente").ToEntero
|
||||
If ChkPagarPesos.Checked Then Pago.TCPago = 1 / rw.DataKey("TipoCambio").ToDecimal
|
||||
If ChkPagarDolares.Checked Then Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
|
||||
|
||||
If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
|
||||
Case "4" 'Deudores Diversos
|
||||
Case "4" 'Deudores Diversos
|
||||
|
||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||
'CveProveedor2 = DdlDeudor.SelectedValue.ToEntero
|
||||
CveIE = -1
|
||||
If DdlDeudor.SelectedValue.ToEntero <= 0 Then
|
||||
Alert("Debe especificar el deudor.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||
'CveProveedor2 = DdlDeudor.SelectedValue.ToEntero
|
||||
CveIE = -1
|
||||
If DdlDeudor.SelectedValue.ToEntero <= 0 Then
|
||||
Alert("Debe especificar el deudor.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
For Each rw As GridViewRow In GvDeudores.Rows
|
||||
If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
|
||||
Pago.CveIE = rw.DataKey("CveIE").ToEntero
|
||||
Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
|
||||
Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
|
||||
'Pago.CveProveedor = DdlDeudor.SelectedValue.ToEntero
|
||||
Pago.TipoPago = "DD"
|
||||
If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each rw As GridViewRow In GvDeudores.Rows
|
||||
If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
|
||||
Pago.CveIE = rw.DataKey("CveIE").ToEntero
|
||||
Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
|
||||
Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
|
||||
'Pago.CveProveedor = DdlDeudor.SelectedValue.ToEntero
|
||||
Pago.TipoPago = "DD"
|
||||
If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
Case "5" 'Compras
|
||||
|
||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||
CveIE = -1
|
||||
For Each rw As GridViewRow In GvCompras.Rows
|
||||
If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
|
||||
Pago.CveMonedaPago = 1
|
||||
Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.TipoPago = "Compra"
|
||||
If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
Next
|
||||
|
||||
Case "5" 'Compras
|
||||
If MsgError = "" Then
|
||||
Dim CompraActual As New Compra() With {.CveCompra = rw.DataKey("CveCompra").ToEntero, .ProveedorNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveProveedor = rw.DataKey("CveProveedor").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero, .CveTipoConceptoProveedor = rw.DataKey("CveTipoConcepto").ToEntero}
|
||||
Dim PagoCompra As New CompraPago
|
||||
|
||||
ImportePagado = TxtImporte.Text.Trim.ToDecimal
|
||||
CveIE = -1
|
||||
For Each rw As GridViewRow In GvCompras.Rows
|
||||
If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
|
||||
Pago.CveMonedaPago = 1
|
||||
Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
Pago.TipoPago = "Compra"
|
||||
If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
|
||||
PagoCompra.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
|
||||
PagoCompra.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
PagoCompra.TCPago = rw.DataKey("TipoCambio").ToDecimal
|
||||
PagoCompra.CveProveedor = rw.DataKey("CveProveedor").ToEntero
|
||||
PagoCompra.CveVentaRelacionada = CveVenta
|
||||
PagoCompra.TipoPago = "Venta"
|
||||
If AplicaPrePolizaPagoCompra(CompraActual, PagoCompra, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
If MsgError = "" Then
|
||||
Dim CompraActual As New Compra() With {.CveCompra = rw.DataKey("CveCompra").ToEntero, .ProveedorNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveProveedor = rw.DataKey("CveProveedor").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero, .CveTipoConceptoProveedor = rw.DataKey("CveTipoConcepto").ToEntero}
|
||||
Dim PagoCompra As New CompraPago
|
||||
|
||||
PagoCompra.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
|
||||
PagoCompra.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
|
||||
PagoCompra.TCPago = rw.DataKey("TipoCambio").ToDecimal
|
||||
PagoCompra.CveProveedor = rw.DataKey("CveProveedor").ToEntero
|
||||
PagoCompra.CveVentaRelacionada = CveVenta
|
||||
PagoCompra.TipoPago = "Venta"
|
||||
If AplicaPrePolizaPagoCompra(CompraActual, PagoCompra, CvePrePoliza, ObjMov) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
Case Else
|
||||
'NO SE HA DEFINIDO PARA FUNCIONARIO Y EMPLEADO
|
||||
If RBLContado.SelectedValue <> "2" Then
|
||||
MsgError = "No se ha especificada opcion."
|
||||
End If
|
||||
End Select
|
||||
Next
|
||||
|
||||
Case Else
|
||||
'NO SE HA DEFINIDO PARA FUNCIONARIO Y EMPLEADO
|
||||
If RBLContado.SelectedValue <> "2" Then
|
||||
MsgError = "No se ha especificada opcion."
|
||||
End If
|
||||
End Select
|
||||
|
||||
If MsgError = "" Then
|
||||
If MsgError = "" Then
|
||||
|
||||
If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then
|
||||
If ObjMov.ValorPolizaDescuadre > 0 Then
|
||||
MsgError = ObjMov.MensajePolizaDescuadre
|
||||
End If
|
||||
If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then
|
||||
If ObjMov.ValorPolizaDescuadre > 0 Then
|
||||
MsgError = ObjMov.MensajePolizaDescuadre
|
||||
End If
|
||||
Else
|
||||
MsgError = "No se pudo insertar la poliza detalle"
|
||||
End If
|
||||
Else
|
||||
MsgError = "No se pudo insertar la poliza detalle"
|
||||
End If
|
||||
Else
|
||||
End If
|
||||
Else
|
||||
MsgError = "venta no identificada"
|
||||
End If
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user