Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
AbrahamCastilloV
@@ -182,24 +182,15 @@
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Agregar Depreciacion</asp:Literal></h4>
|
||||
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Agregar Depreciación</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar"> </asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVProyecto" runat="server" ControlToValidate="DdlProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="TxtSubProyecto">Proyecto:</label>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"> </asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="TxtSubProyecto">Sub Proyecto:</label>
|
||||
|
||||
</div>
|
||||
<asp:TextBox CssClass="form-control input-sm " TextMode="MultiLine" Rows="2" ID="TxtDescripcion" runat="server" Width="450px" ValidationGroup="GrpGuardar"> </asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="TxtSubProyecto">Descripción:</label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
|
||||
@@ -29,7 +29,7 @@ Partial Class AF_RepDepreciacion
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim ConceptoPoliza As String = String.Format("Depreciación - {0}", txtFechaI.Text)
|
||||
Dim ConceptoPoliza As String = TxtDescripcion.Text
|
||||
Dim CveSubProyecto As Integer ' = DdlSubProyecto.SelectedValue.ToEntero
|
||||
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
@@ -80,15 +80,11 @@ Partial Class AF_RepDepreciacion
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnDepreciacion_Click(sender As Object, e As EventArgs) Handles BtnDepreciacion.Click
|
||||
CargaProyecto()
|
||||
TxtDescripcion.Text = "Depreciación - " & txtFechaI.Text
|
||||
UpModalTiposD.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DivDepreciacion"))
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||
CargaSubProyecto()
|
||||
End Sub
|
||||
|
||||
|
||||
#Region " C A R G A - D A T O S "
|
||||
Public Sub CargaDatos()
|
||||
@@ -118,18 +114,7 @@ Partial Class AF_RepDepreciacion
|
||||
#End Region
|
||||
|
||||
#Region "CARGA COMBOS FILTRO"
|
||||
Private Sub CargaProyecto()
|
||||
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
|
||||
DdlProyecto.DataBind()
|
||||
CargaSubProyecto()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyecto()
|
||||
DdlSubProyecto.Items.Clear()
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
@@ -2463,9 +2463,7 @@ Public Class Timbrado
|
||||
|
||||
#Region "Comercio Exterior"
|
||||
|
||||
If UsuarioActual.CveEmpresa = 172 Then
|
||||
|
||||
If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
|
||||
If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
|
||||
|
||||
'DATOS GENERALES
|
||||
@@ -2536,84 +2534,7 @@ Public Class Timbrado
|
||||
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
|
||||
If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
|
||||
|
||||
'DATOS GENERALES
|
||||
cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Incoterm,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Subdivision,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Observaciones,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD)
|
||||
'EMISOR
|
||||
cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP))
|
||||
cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP)
|
||||
'RECEPTOR
|
||||
cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib)
|
||||
cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP)
|
||||
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then
|
||||
cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais,
|
||||
ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP)
|
||||
End If
|
||||
|
||||
|
||||
'MERCANCIAS
|
||||
If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then
|
||||
For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias
|
||||
cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
|
||||
If concep.DescripcionesEspecificas.Marca <> "" Then
|
||||
cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
|
||||
concep.DescripcionesEspecificas.Modelo,
|
||||
concep.DescripcionesEspecificas.SubModelo,
|
||||
concep.DescripcionesEspecificas.NumeroSerie)
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End if
|
||||
|
||||
#End Region
|
||||
|
||||
End If
|
||||
|
||||
@@ -9834,6 +9834,7 @@ Partial Class Clientes
|
||||
DivCrearPrecioLista.Visible = False
|
||||
End If
|
||||
|
||||
TabFiscalContable.Visible = DdlTipoCliente.SelectedValue = "1"
|
||||
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user