Importaciones
This commit is contained in:
rakcsle
@@ -5743,53 +5743,53 @@ Partial Class Compras_Compras
|
||||
'If importeMovimiento <> 0 Then
|
||||
For Each gvRowCredito As GridViewRow In GvCreditos.Rows
|
||||
|
||||
Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal))
|
||||
Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario
|
||||
Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal))
|
||||
Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario
|
||||
|
||||
Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero
|
||||
Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero
|
||||
|
||||
Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal
|
||||
Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero
|
||||
Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero
|
||||
Dim CveCreditoTemp As Integer = gvRowCredito.DataKey("CveCredito").ToEntero
|
||||
Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal
|
||||
Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero
|
||||
Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero
|
||||
Dim CveCreditoTemp As Integer = gvRowCredito.DataKey("CveCredito").ToEntero
|
||||
|
||||
If ImportePagoCredito > 0 Then
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = ImportePagoCredito
|
||||
Pago.CveIE = CveIECredito
|
||||
Pago.CveMonedaPago = 1
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
Pago.CveProveedor = CveProveedor
|
||||
Pago.CveCreditoDetalle = CveCreditoDetalleTemp
|
||||
Pago.TipoPago = "Egsc"
|
||||
If ImportePagoCredito > 0 Then
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = ImportePagoCredito
|
||||
Pago.CveIE = CveIECredito
|
||||
Pago.CveMonedaPago = 1
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
Pago.CveProveedor = CveProveedor
|
||||
Pago.CveCreditoDetalle = CveCreditoDetalleTemp
|
||||
Pago.TipoPago = "Egsc"
|
||||
|
||||
If OtrosGastosIngresosCredito <> 0 Then
|
||||
Pago.OtroGastoIngreso = OtrosGastosIngresosCredito
|
||||
If OtrosGastosIngresosCredito <> 0 Then
|
||||
Pago.OtroGastoIngreso = OtrosGastosIngresosCredito
|
||||
End If
|
||||
|
||||
ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
If ErrorCreditosCompra Then
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Dim ImporteDifCredito As Decimal = (ImporteIEAnticipo + OtrosGastosIngresosCredito) - ImportePagoCredito ' CompraActual.Total
|
||||
|
||||
If ImporteDifCredito > 0 Then
|
||||
|
||||
' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual
|
||||
Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 50, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCredito:=CveCreditoTemp, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
|
||||
ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
If ErrorCreditosCompra Then
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Dim ImporteDifCredito As Decimal = (ImporteIEAnticipo + OtrosGastosIngresosCredito) - ImportePagoCredito ' CompraActual.Total
|
||||
|
||||
If ImporteDifCredito > 0 Then
|
||||
|
||||
' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual
|
||||
Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 50, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCredito:=CveCreditoTemp, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
'End If
|
||||
End If
|
||||
importeMovimiento = 0 : importeMN = 0
|
||||
|
||||
@@ -42,9 +42,24 @@
|
||||
<div class="row">
|
||||
<div class="col-md-2">Pedimento:</div>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtPedimento" CssClass="form-control" runat="server" MaxLength="50" Width="300px"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtPedimento" CssClass="form-control" runat="server" MaxLength="18" Width="300px" ClientIDMode="Static" ></asp:TextBox>
|
||||
<ajaxToolkit:MaskedEditExtender ID="meeTxtPedimento" runat="server"
|
||||
ClearMaskOnLostFocus="false"
|
||||
TargetControlID="TxtPedimento"
|
||||
Mask="99-99-9999-9999999"
|
||||
MaskType="Number"
|
||||
InputDirection="LeftToRight"
|
||||
AcceptNegative="None"
|
||||
ErrorTooltipEnabled="True" />
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
<asp:RegularExpressionValidator ID="regexTxtPedimento" runat="server" ControlToValidate="TxtPedimento" Display="None" ValidationGroup="GrpGuardar" ErrorMessage="Formato no valido, el formato correcto es 99-99-9999-9999999" ForeColor="Red"
|
||||
ValidationExpression="^[0-9 ]{2}-[0-9 ]{2}-[0-9 ]{4}-[0-9 ]{7}$" ></asp:RegularExpressionValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="regexTxtPedimento" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
@@ -71,9 +86,10 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-2">Aduanal</div>
|
||||
<div class="col-md-2">Aduanal:</div>
|
||||
<div class="col-md-10">
|
||||
<asp:DropDownList runat="server" ID="DdlAduanal" Width="300px" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>
|
||||
<%--<asp:DropDownList runat="server" ID="DdlAduanal" Width="300px" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>--%>
|
||||
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" style="width:300px!important"></ADS:Dropdownlost>
|
||||
</div>
|
||||
</div>
|
||||
<%-- <div class="row">
|
||||
@@ -287,6 +303,9 @@
|
||||
$('#BtnVincularCompra').click();
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
</script>
|
||||
|
||||
</asp:Content>
|
||||
|
||||
@@ -58,8 +58,12 @@ Partial Class Compras_Importaciones
|
||||
DtCompras = New DataTable
|
||||
DtComprasVinculadas = New DataTable
|
||||
|
||||
DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlAduanal.DataBind()
|
||||
'DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
'DdlAduanal.DataBind()
|
||||
DdlProveedores.setEsWebService(True)
|
||||
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedores.SelectedText = "Todos"
|
||||
DdlProveedores.SelectedValue = "-1"
|
||||
|
||||
TxtFecha.Text = Now.ToShortDateString
|
||||
End Sub
|
||||
@@ -87,7 +91,9 @@ Partial Class Compras_Importaciones
|
||||
TxtPedimento.Text = ObjImportaciones.DtResultados.Rows(0)("Pedimento").ToString
|
||||
TxtDescripcion.Text = ObjImportaciones.DtResultados.Rows(0)("Descripcion").ToString
|
||||
TxtFecha.Text = ObjImportaciones.DtResultados.Rows(0)("Fecha").ToString
|
||||
DdlAduanal.SelectedValue = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
|
||||
|
||||
DdlProveedores.txtValue.Value = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
|
||||
DdlProveedores.txtText.Value = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
|
||||
|
||||
'HdnCveCompra.Value = ObjImportaciones.DtResultados.Rows(0)("CveCompra").ToString
|
||||
'LbCompraProveedor.Text = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
|
||||
@@ -139,13 +145,14 @@ Partial Class Compras_Importaciones
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim Pedimento As String = TxtPedimento.Text.Trim.Replace("-", " ")
|
||||
|
||||
Dim ObjImp As New ClsCompras
|
||||
ObjImp.IniciaTransacSQL()
|
||||
Dim ErrorImportacion = False
|
||||
|
||||
If CveImportacion < 0 Then
|
||||
CveImportacion = ObjImp.AddImportacion(TxtPedimento.Text.Trim, TxtDescripcion.Text.Trim, DdlAduanal.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
CveImportacion = ObjImp.AddImportacion(Pedimento, TxtDescripcion.Text.Trim, DdlProveedores.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If CveImportacion > 0 Then
|
||||
For Each dr As DataRow In DtCompras.Rows
|
||||
@@ -168,7 +175,7 @@ Partial Class Compras_Importaciones
|
||||
End If
|
||||
|
||||
Else
|
||||
If Not ObjImp.UpdateImportacion(TxtPedimento.Text.Trim, CveImportacion, TxtDescripcion.Text, DdlAduanal.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
If Not ObjImp.UpdateImportacion(Pedimento, CveImportacion, TxtDescripcion.Text, DdlProveedores.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ErrorImportacion = True
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -3386,10 +3386,17 @@ Partial Class PopUpVerFactura
|
||||
Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
|
||||
|
||||
|
||||
Dim Ruta As String = ""
|
||||
Dim Supervisor As String = ""
|
||||
|
||||
If String.IsNullOrEmpty(Recibio) Then
|
||||
Dim ObjRH As New ClsRH
|
||||
If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
|
||||
Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
|
||||
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
|
||||
Ruta = ObjRH.DtResultados.Rows(0)("Ruta").ToString
|
||||
Supervisor = ObjRH.DtResultados.Rows(0)("Supervisor").ToString
|
||||
End If
|
||||
End If
|
||||
ObjRH.Dispose()
|
||||
End If
|
||||
@@ -3576,7 +3583,8 @@ Partial Class PopUpVerFactura
|
||||
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
|
||||
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
|
||||
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
|
||||
CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)
|
||||
CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
|
||||
Ruta:=Ruta, Supervisor:=Supervisor)
|
||||
|
||||
End Sub
|
||||
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
|
||||
@@ -3594,7 +3602,8 @@ Partial Class PopUpVerFactura
|
||||
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
|
||||
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
|
||||
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
|
||||
Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")
|
||||
Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
|
||||
Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing)
|
||||
|
||||
|
||||
Select Case CveConcepto
|
||||
@@ -4936,6 +4945,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
|
||||
|
||||
End If
|
||||
|
||||
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("Observaciones", Observaciones))
|
||||
@@ -4961,6 +4971,13 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
||||
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
|
||||
params.Add(New ReportParameter("Ruta", Ruta))
|
||||
params.Add(New ReportParameter("Supervisor", Supervisor))
|
||||
params.Add(New ReportParameter("NombreEmpleado", Recibio))
|
||||
params.Add(New ReportParameter("UsuarioEntrega", UsuarioRegistro))
|
||||
End If
|
||||
|
||||
Dim Mov As New ClsInventarios
|
||||
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
|
||||
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
|
||||
|
||||
Reference in New Issue
Block a user