This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
562
AF/AF.aspx
562
AF/AF.aspx
@@ -218,21 +218,21 @@
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-4 ">
|
||||
<label class=" control-label">Fecha de Compra:</label>
|
||||
<label class=" control-label"><asp:Label runat="server" ID="LblFechaCompra">Fecha de Compra:</asp:Label></label>
|
||||
</div>
|
||||
|
||||
<div class="col-md-3">
|
||||
<div class="form-group">
|
||||
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 100px; padding: 5px 0px;">
|
||||
<asp:TextBox ID="TxtFechaCompra" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtFechaCompra" runat="server" CausesValidation="True" CssClass="form-control input-sm" Width="80px"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="ImgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaCompra" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MEEFecha" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaCompra" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" BehaviorID="_content_Calendario"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaCompra" runat="server" ControlToValidate="TxtFechaCompra" Display="None" ErrorMessage="El campo <b>''Fecha de Compra''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaCompra" runat="server" ControlToValidate="TxtFechaCompra" Display="None" ErrorMessage="El campo <b>''Fecha de Compra''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaCompra" runat="server" ControlToValidate="TxtFechaCompra" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaCompra" runat="server" ControlToValidate="TxtFechaCompra" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaCompra1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCompra" Width="350px" BehaviorID="_content_VCOFechaCompra1"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaCompra2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCompra" Width="350px" BehaviorID="_content_VCOFechaCompra2"></ajax:ValidatorCalloutExtender>
|
||||
<i></i>
|
||||
@@ -248,6 +248,35 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-4 ">
|
||||
<label class=" control-label"><asp:Label runat="server" ID="LblFechaBaja">Fecha de Baja:</asp:Label></label>
|
||||
</div>
|
||||
|
||||
<div class="col-md-3">
|
||||
<div class="form-group">
|
||||
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 100px; padding: 5px 0px;">
|
||||
<asp:TextBox ID="TxtFechaBaja" runat="server" CausesValidation="True" CssClass="form-control input-sm" Width="80px"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LnkTxtFechaBaja" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="METxtFechaBaja" runat="server" TargetControlID="TxtFechaBaja" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MEEFecha" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="CETxtFechaBaja" runat="server" TargetControlID="TxtFechaBaja" PopupButtonID="LnkTxtFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_Calendario"></ajax:CalendarExtender>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender32" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaBaja" Width="350px" BehaviorID="_content_VCOFechaCompra1"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender33" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaBaja" Width="350px" BehaviorID="_content_VCOFechaCompra2"></ajax:ValidatorCalloutExtender>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
@@ -1156,65 +1185,79 @@
|
||||
<ajax:TabPanel ID="TabServyMant" runat="server" HeaderText="Servicios y Mto">
|
||||
<ContentTemplate>
|
||||
<asp:Literal ID="Literal2" runat="server"></asp:Literal>
|
||||
<div class="portlet box blue-hoki" style="width: 100%;">
|
||||
<div class="portlet-title">
|
||||
<div class="caption">
|
||||
<i class="fa fa-cog"></i>Servicios
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpMantenimientos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-tasks font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Mantenimientos</span>
|
||||
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Mantenimiento" title="Agregar Mantenimiento" ID="LnkAgregarMantenimiento" OnClick="LnkAgregarMantenimiento_Click" style="font-size:13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
<%-- <a href="" class="collapse" data-original-title="" title=""></a>
|
||||
<a href="" class="reload" data-original-title="" title=""></a>
|
||||
<a href="" class="fullscreen" data-original-title="" title=""></a>
|
||||
<a href="" class="remove" data-original-title="" title=""></a>--%>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
|
||||
<div class="form-body">
|
||||
|
||||
<hr />
|
||||
|
||||
|
||||
|
||||
<asp:GridView ID="GvMantenimientos" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall" OnRowDataBound="GvMantenimientos_RowDataBound"
|
||||
AutoGenerateColumns="False" DataKeyNames="CveMantenimiento, CveActivoFijo, Mantenimiento, Observaciones, Fecha, FechaIng, CveUsuario, Codigo, Descripcion,Usuario,Archivo" ShowHeader="true">
|
||||
<Columns>
|
||||
|
||||
<asp:BoundField DataField="Mantenimiento" HeaderText="Mantenimiento" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="35px" >
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkDescargaArcgivo" Visible="false" runat="server" AlternateText="DescargaArchivo" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkDescargaArcgivo_Click" Text="<i class='fa fa-download'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones" ItemStyle-Width="90px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkGvMantenimientoEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvMantenimientoEdit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="LnkGvMantenimientoRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvMantenimientoRemove_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UpServMant" class="portlet-body" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:Button ID="Button2" runat="server" ClientIDMode="Static" Text="Resfrecar Servicios" Style="display: none;" />
|
||||
<asp:GridView ID="GvServiciosMant" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall"
|
||||
Style="text-align: center;" GridLines="None" runat="server" BorderWidth="0px" AutoGenerateColumns="False" EmptyDataText="No se encontraron Servicios registrados." ToolTip="Listado de Servicios">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Tipo</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipo" runat="server" Text='<%# Eval("Tipo") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Center" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Proveedor</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HplProveedor" runat="server" Target="_blank" Text='<%# Eval("Proveedor") %>' NavigateUrl='<%# Eval("CveProveedor", "/Compras/Proveedores.aspx?CveProveedor={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Factura</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HplFactura" runat="server" Target="_blank" Text='<%# Eval("Factura") %>' NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Center" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Odometro/Horometro</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlOdHorometro" runat="server" Text='<%# Eval("OdHorometro", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Center" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Observaciones</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
@@ -2076,7 +2119,147 @@
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabProduccion" runat="server" HeaderText="Producción" Visible="false">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpProduccion" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-tasks font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Producción</span>
|
||||
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Producción" title="Agregar Producción" ID="LnkAgregarProduccion" OnClick="LnkAgregarProduccion_Click" style="font-size:13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
|
||||
<div class="form-body">
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<asp:GridView ID="GvProduccion" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall"
|
||||
AutoGenerateColumns="False" DataKeyNames="CveProduccion, CveActivoFijo, CveCultivoCuadroDetalle, Cantidad, Fecha, CveUsuario, FechaIng, Codigo, Descripcion, Usuario, Cuadro" ShowHeader="true">
|
||||
<Columns>
|
||||
|
||||
<asp:BoundField DataField="Cuadro" HeaderText="Cuadro" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Cantidad" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n2}" />
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkGvProduccionEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvProduccionEdit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="LnkGvProduccionRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvProduccionRemove_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
|
||||
|
||||
<ajax:TabPanel ID="TabPlagaEnfermedad" runat="server" HeaderText="Plagas Enfermedades" Visible="true">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpPlagaEnfermedad" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light xspadding bordered ">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-tasks font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Plagas Enfermedades</span>
|
||||
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
<asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Plaga Enfermedad" title="Agregar Plaga Enfermedad" ID="LnkAgregarPlagaEnfermedad" OnClick="LnkAgregarPlagaEnfermedad_Click" Style="font-size: 13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form-horizontal form-row-sepe formnombottom ">
|
||||
<div class="form-body">
|
||||
|
||||
|
||||
<asp:GridView ID="GvPlagaEnfermedad" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall"
|
||||
AutoGenerateColumns="False" DataKeyNames="CvePlagaEnfermedad,CveActivoFijo,Observaciones,Fecha,CveUsuario,FechaIng" ShowHeader="true">
|
||||
<Columns>
|
||||
|
||||
<asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkGvPlagaEnfermedadEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvPlagaEnfermedadEdit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="LnkGvPlagaEnfermedadRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvPlagaEnfermedadRemove_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
|
||||
|
||||
|
||||
</ajax:TabContainer>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
@@ -3106,6 +3289,261 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<%--MODAL PRODUCCION--%>
|
||||
<div id="DVModalProduccion" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpModalProduccion" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="H4" runat="server"><asp:Label runat="server" ID="LblModaProduccionTitulo"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpdatePanel4" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<div runat="server" id="DVCultivosCuadro" class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlModalCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server" DataTextField="Cuadro" Style="width: 100%; max-width: 600px;"
|
||||
DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpProduccion">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlModalCultivosCuadro" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlModalCultivosCuadro"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El Cuadro <b>''Cuadro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion">
|
||||
</asp:RequiredFieldValidator>
|
||||
<label runat="server" for="<%= DdlModalCultivosCuadro.ClientID.ToString()%>">Cultivo:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalProduccionCantidad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalProduccionCantidad" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalProduccionCantidad"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion">
|
||||
</asp:RequiredFieldValidator>
|
||||
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtModalProduccionCantidad" FilterType="Custom" ValidChars="1234567890." />
|
||||
<label for="<%= TxtModalProduccionCantidad.ClientID.ToString()%>">Cantidad:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
|
||||
|
||||
|
||||
|
||||
<label for="<%= TxtModalProduccionFecha.ClientID.ToString()%>">Fecha:</label>
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||
<asp:TextBox ID="TxtModalProduccionFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LnkTxtModalProduccionFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="METxtModalProduccionFecha" runat="server" TargetControlID="TxtModalProduccionFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CETxtModalProduccionFecha" TargetControlID="TxtModalProduccionFecha" PopupButtonID="LnkTxtModalProduccionFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalProduccionFecha" runat="server" ControlToValidate="TxtModalProduccionFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVOTxtModalProduccionFecha" runat="server" ControlToValidate="TxtModalProduccionFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpProduccion"></asp:CompareValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender28" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalProduccionFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender29" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalProduccionFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
|
||||
<asp:LinkButton ID="LnkModalAgregarProduccion" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpProduccion" OnClick="LnkModalAgregarProduccion_Click"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<%--MODAL MANTENIMIENTO--%>
|
||||
<div id="DVModalMantenimiento" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpModalMantenimiento" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="H5" runat="server"><asp:Label runat="server" ID="LblModaMantenimientoTitulo"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpdatePanel5" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalMantenimiento" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalMantenimiento" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalMantenimiento"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Mantenimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento">
|
||||
</asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtModalMantenimiento.ClientID.ToString()%>">Mantenimiento:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalMantenimientoObservaciones" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="200"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalMantenimientoObservaciones" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalMantenimientoObservaciones"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento">
|
||||
</asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtModalMantenimientoObservaciones.ClientID.ToString()%>">Observaciones:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
|
||||
|
||||
|
||||
|
||||
<label for="<%= TxtModalMantenimientoFecha.ClientID.ToString()%>">Fecha:</label>
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||
<asp:TextBox ID="TxtModalMantenimientoFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LnkTxtModalMantenimientoFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="METxtModalMantenimientoFecha" runat="server" TargetControlID="TxtModalMantenimientoFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CETxtModalMantenimientoFecha" TargetControlID="TxtModalMantenimientoFecha" PopupButtonID="LnkTxtModalMantenimientoFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalMantenimientoFecha" runat="server" ControlToValidate="TxtModalMantenimientoFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVOTxtModalMantenimientoFecha" runat="server" ControlToValidate="TxtModalMantenimientoFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpMantenimiento"></asp:CompareValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender30" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalMantenimientoFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender31" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalMantenimientoFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:TextBox ID="TxtArchivoMantenimiento" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
|
||||
<br />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
|
||||
<asp:LinkButton ID="LnkModalAgregarMantenimiento" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpMantenimiento" OnClick="LnkModalAgregarMantenimiento_Click">
|
||||
<i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div id="DVModalPlagaEnfermedad" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpModalPlagaEnfermedad" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="H6" runat="server"><asp:Label runat="server" ID="LblModalTituloPlagaEnfermedad"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalPlagaEnfermedadObservaciones" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalPlagaEnfermedadObservaciones" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalPlagaEnfermedadObservaciones"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPlagaEnfermedad">
|
||||
</asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtModalPlagaEnfermedadObservaciones.ClientID.ToString()%>">Observaciones:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
|
||||
<label for="<%= TxtModalPlagaEnfermedadFecha.ClientID.ToString()%>">Fecha:</label>
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||
<asp:TextBox ID="TxtModalPlagaEnfermedadFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton ID="LnkTxtModalPlagaEnfermedadFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
<ajax:MaskedEditExtender ID="MaskedEditExtender10" runat="server" TargetControlID="TxtModalPlagaEnfermedadFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CalendarExtender10" TargetControlID="TxtModalPlagaEnfermedadFecha" PopupButtonID="LnkTxtModalPlagaEnfermedadFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalPlagaEnfermedadFecha" runat="server" ControlToValidate="TxtModalPlagaEnfermedadFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPlagaEnfermedad"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVOTxtModalPlagaEnfermedadFecha" runat="server" ControlToValidate="TxtModalPlagaEnfermedadFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpPlagaEnfermedad"></asp:CompareValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender34" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalPlagaEnfermedadFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender35" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalPlagaEnfermedadFecha" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="modal-footer">
|
||||
|
||||
<asp:LinkButton ID="LnkModalAgregarPlagaEnfermedad" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpPlagaEnfermedad" OnClick="LnkModalAgregarPlagaEnfermedad_Click"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
623
AF/AF.aspx.vb
623
AF/AF.aspx.vb
@@ -245,6 +245,44 @@ Partial Class AF_AF
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Property CveProduccion As Integer
|
||||
Get
|
||||
If ViewState("CveProduccion") Is Nothing Then
|
||||
ViewState("CveProduccion") = -1
|
||||
End If
|
||||
Return ViewState("CveProduccion").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveProduccion") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveMantenimiento As Integer
|
||||
Get
|
||||
If ViewState("CveMantenimiento") Is Nothing Then
|
||||
ViewState("CveMantenimiento") = -1
|
||||
End If
|
||||
Return ViewState("CveMantenimiento").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMantenimiento") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property CvePlagaEnfermedad As Integer
|
||||
Get
|
||||
If ViewState("CvePlagaEnfermedad") Is Nothing Then
|
||||
ViewState("CvePlagaEnfermedad") = -1
|
||||
End If
|
||||
Return ViewState("CvePlagaEnfermedad").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CvePlagaEnfermedad") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
@@ -261,6 +299,9 @@ Partial Class AF_AF
|
||||
CargaDatos()
|
||||
CargaEventos()
|
||||
CargaActividades()
|
||||
CargaProduccion()
|
||||
CargaMantenimento()
|
||||
CargaPlagaEnfermedad()
|
||||
|
||||
'Configuración de Modalidad Update
|
||||
BtnGuardar.Text = "Guardar Cambios"
|
||||
@@ -272,6 +313,7 @@ Partial Class AF_AF
|
||||
Else
|
||||
ViewState("CveActivoFijo") = -1
|
||||
CargaCombos()
|
||||
|
||||
'Configuración de Modalidad Insert
|
||||
ImgAddObs.Visible = False
|
||||
LblFechaCaptura.Text = Now.ToShortDateString()
|
||||
@@ -288,6 +330,13 @@ Partial Class AF_AF
|
||||
|
||||
CargaAFInv()
|
||||
cargaOrdenesdeservicio()
|
||||
|
||||
|
||||
|
||||
If Request("Op") IsNot Nothing Then
|
||||
ModalidadesPaginaAF(Request("Op").ToString)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub cargaOrdenesdeservicio()
|
||||
@@ -373,6 +422,20 @@ Partial Class AF_AF
|
||||
CveEmpresaActual = UsuarioActual.CveEmpresa
|
||||
End Sub
|
||||
|
||||
Private Sub ModalidadesPaginaAF(Op As String)
|
||||
|
||||
Select Case Op
|
||||
Case "AR" 'Arbol Frutal etc
|
||||
LblFechaCompra.Text = "Fecha de Nacimiento"
|
||||
LblFechaBaja.Text = "Fecha de Muerte"
|
||||
TabProduccion.Visible = True
|
||||
Exit Select
|
||||
Case Else
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
#Region " CARGA COMBOS "
|
||||
Private Sub CargaCombos()
|
||||
@@ -398,6 +461,8 @@ Partial Class AF_AF
|
||||
DdlResponsable.Enabled = False
|
||||
End If
|
||||
|
||||
CargaCultivos()
|
||||
|
||||
End Sub
|
||||
Private Sub CargaTipoActivoFijo()
|
||||
DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo")
|
||||
@@ -476,6 +541,11 @@ Partial Class AF_AF
|
||||
' DdlClientes.DataBind()
|
||||
'End Sub
|
||||
|
||||
Private Sub CargaCultivos()
|
||||
DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
|
||||
DdlModalCultivosCuadro.DataBind()
|
||||
DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
End Sub
|
||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||
CargaSubProyecto()
|
||||
End Sub
|
||||
@@ -562,6 +632,13 @@ Partial Class AF_AF
|
||||
DdlModelos.DataBind()
|
||||
DdlModelos.Items.Insert(0, New ListItem("-", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaProduccionCuadros()
|
||||
DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
|
||||
DdlModalCultivosCuadro.DataBind()
|
||||
DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub CargaDatos()
|
||||
@@ -580,6 +657,12 @@ Partial Class AF_AF
|
||||
TxtCodigo.Text = ObjActivoFijo.Codigo
|
||||
TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
|
||||
TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
|
||||
|
||||
|
||||
|
||||
TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy"))
|
||||
|
||||
|
||||
DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString
|
||||
CargaSubTipoActivoFijo()
|
||||
DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString
|
||||
@@ -655,7 +738,7 @@ Partial Class AF_AF
|
||||
CargaPlacas()
|
||||
CargaLicencias()
|
||||
CargaSeguros()
|
||||
CargaServicios()
|
||||
|
||||
CargaFallas()
|
||||
CargaAccidentes()
|
||||
|
||||
@@ -1062,31 +1145,22 @@ Partial Class AF_AF
|
||||
#End Region
|
||||
|
||||
#Region "S E R V I C I O S - M A N T E M I E N T O"
|
||||
Public Sub CargaServicios()
|
||||
Dim TmpServicios As New DataTable
|
||||
TmpServicios.Columns.Add("CveProveedor", GetType(Integer))
|
||||
TmpServicios.Columns.Add("CveCompra", GetType(Integer))
|
||||
TmpServicios.Columns.Add("Tipo", GetType(String))
|
||||
TmpServicios.Columns.Add("Fecha", GetType(Date))
|
||||
TmpServicios.Columns.Add("Proveedor", GetType(String))
|
||||
TmpServicios.Columns.Add("Factura", GetType(String))
|
||||
TmpServicios.Columns.Add("OdHorometro", GetType(Double))
|
||||
TmpServicios.Columns.Add("Observaciones", GetType(String))
|
||||
'Public Sub CargaServicios()
|
||||
' Dim TmpServicios As New DataTable
|
||||
' TmpServicios.Columns.Add("CveProveedor", GetType(Integer))
|
||||
' TmpServicios.Columns.Add("CveCompra", GetType(Integer))
|
||||
' TmpServicios.Columns.Add("Tipo", GetType(String))
|
||||
' TmpServicios.Columns.Add("Fecha", GetType(Date))
|
||||
' TmpServicios.Columns.Add("Proveedor", GetType(String))
|
||||
' TmpServicios.Columns.Add("Factura", GetType(String))
|
||||
' TmpServicios.Columns.Add("OdHorometro", GetType(Double))
|
||||
' TmpServicios.Columns.Add("Observaciones", GetType(String))
|
||||
|
||||
'Dim Row As DataRow = TmpServicios.NewRow
|
||||
'Row("CveProveedor") = 3100
|
||||
'Row("CveCompra") = 181656
|
||||
'Row("Tipo") = "Preventivo"
|
||||
'Row("Fecha") = "01/02/2016"
|
||||
'Row("Proveedor") = "EMPRESAS MATCO, S.A. DE C.V."
|
||||
'Row("Factura") = "HERAA-158591"
|
||||
'Row("OdHorometro") = "198,567"
|
||||
'Row("Observaciones") = "Servicio Preventivo 200,000 Kilometros - Servicio Completo"
|
||||
'TmpServicios.Rows.Add(Row)
|
||||
|
||||
GvServiciosMant.DataSource = TmpServicios
|
||||
GvServiciosMant.DataBind()
|
||||
End Sub
|
||||
|
||||
' GvServiciosMant.DataSource = TmpServicios
|
||||
' GvServiciosMant.DataBind()
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
#Region "F A L L A S"
|
||||
@@ -2106,6 +2180,8 @@ Partial Class AF_AF
|
||||
Dim ObjContabilidad As New ClsContabilidad(ObjAF.IniciaTransacSQL())
|
||||
Dim ErrorGuardar As Boolean = False
|
||||
|
||||
Dim FechaBaja As Date = If(TxtFechaBaja.Text = "", MinFecha, TxtFechaBaja.Text.ToDate)
|
||||
|
||||
If CveActivoFijo <= 0 Then
|
||||
|
||||
'SALIDA DE ALMACEN PARA IMPORTACION
|
||||
@@ -2123,12 +2199,15 @@ Partial Class AF_AF
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If Not ErrorGuardar Then
|
||||
If ObjAF.AddActivosFijos(TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
|
||||
DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero,
|
||||
DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero, TxtPorDepreciacion.Text.Trim.ToDouble,
|
||||
TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero,
|
||||
CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero) > 0 Then
|
||||
TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero,
|
||||
CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
|
||||
FechaBaja:=FechaBaja) > 0 Then
|
||||
ViewState("CveActivoFijo") = ObjAF.CveActivoFijo
|
||||
Else
|
||||
ErrorGuardar = True
|
||||
@@ -2155,8 +2234,9 @@ Partial Class AF_AF
|
||||
If Not ObjAF.UpdateActivosFijos(CveActivoFijo.ToString.ToEntero, TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
|
||||
DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero,
|
||||
DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero,
|
||||
TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual,
|
||||
CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero) Then
|
||||
TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual,
|
||||
CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
|
||||
FechaBaja:=FechaBaja) Then
|
||||
|
||||
'Comentado porque te redirecciona no se ocupa - 22 Enero 2016 - Israel Piña
|
||||
'CargaDatos()
|
||||
@@ -3098,6 +3178,7 @@ Partial Class AF_AF
|
||||
TxtDescripcion.Text = DdlAFInvPS.SelectedText
|
||||
TxtValorCompra.Text = Costo.FormatoNumero
|
||||
TxtFechaCompra.Text = Now.ToShortDateString
|
||||
TxtFechaBaja.Text = ""
|
||||
TxtNoSerie.Text = TxtAFInvSerie.Text.Trim
|
||||
|
||||
TxtValorCompra.Enabled = False
|
||||
@@ -3728,4 +3809,490 @@ Partial Class AF_AF
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Produccion"
|
||||
|
||||
|
||||
|
||||
Private Sub CargaProduccion()
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.GetProduccion(CveActivoFijo, UsuarioActual.CveEmpresa) Then
|
||||
GvProduccion.DataSource = ObjAF.DtResultados
|
||||
Else
|
||||
GvProduccion.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjAF.Dispose()
|
||||
GvProduccion.DataBind()
|
||||
|
||||
UpProduccion.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkAgregarProduccion_Click(sender As Object, e As EventArgs)
|
||||
|
||||
LblModaProduccionTitulo.Text = "Agregar Producción"
|
||||
LnkModalAgregarProduccion.Text = "Agregar"
|
||||
CveProduccion = -1
|
||||
|
||||
DdlModalCultivosCuadro.SelectedValueExist(-1)
|
||||
TxtModalProduccionCantidad.Text = ""
|
||||
TxtModalProduccionFecha.Text = ""
|
||||
|
||||
RegistraScript("$('#DVModalProduccion').modal('show');")
|
||||
|
||||
UpModalProduccion.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvProduccionEdit_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
CveProduccion = GvRow.DataKey("CveProduccion").ToEntero
|
||||
Dim CveCultivoCuadroDetalle As Integer = GvRow.DataKey("CveCultivoCuadroDetalle").ToEntero
|
||||
Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
|
||||
Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
|
||||
|
||||
DdlModalCultivosCuadro.SelectedValueExist(CveCultivoCuadroDetalle)
|
||||
TxtModalProduccionCantidad.Text = Cantidad.ToString("###,###,###.00")
|
||||
TxtModalProduccionFecha.Text = Fecha.ToString("dd/MM/yyyy")
|
||||
|
||||
|
||||
LblModaProduccionTitulo.Text = "Actualizar Producción"
|
||||
LnkModalAgregarProduccion.Text = "Actualizar"
|
||||
|
||||
UpModalProduccion.Update()
|
||||
|
||||
|
||||
RegistraScript("$('#DVModalProduccion').modal('show');")
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvProduccionRemove_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveProduccionEliminar As Integer = GvRow.DataKey("CveProduccion").ToEntero
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.RemoveProduccion(CveProduccionEliminar, UsuarioActual.CveEmpresa) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
Alert("Producción Eliminada Correctamente.")
|
||||
CargaProduccion()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkModalAgregarProduccion_Click(sender As Object, e As EventArgs)
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If CveProduccion > 0 Then
|
||||
If ObjAF.UpdateProduccion(CveProduccion, CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
Else
|
||||
If ObjAF.AddProduccion(CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
If Not ErrorProceso Then
|
||||
RegistraScript("$('#DVModalMantenimiento').modal('hide');")
|
||||
Alert("Producción Agregada Correctamente.")
|
||||
CargaProduccion()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "MANTENIMIENTO"
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub CargaMantenimento()
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.GetMantenimientos(CveActivoFijo, UsuarioActual.CveEmpresa) Then
|
||||
GvMantenimientos.DataSource = ObjAF.DtResultados
|
||||
Else
|
||||
GvMantenimientos.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjAF.Dispose()
|
||||
GvMantenimientos.DataBind()
|
||||
|
||||
UpMantenimientos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkAgregarMantenimiento_Click(sender As Object, e As EventArgs)
|
||||
|
||||
LblModaMantenimientoTitulo.Text = "Agregar Mantenimiento"
|
||||
LnkModalAgregarMantenimiento.Text = "Agregar"
|
||||
|
||||
CveMantenimiento = -1
|
||||
|
||||
TxtModalMantenimiento.Text = ""
|
||||
TxtModalMantenimientoObservaciones.Text = ""
|
||||
TxtModalMantenimientoFecha.Text = ""
|
||||
TxtArchivoMantenimiento.Text = "[]"
|
||||
|
||||
RegistraScript("$('#DVModalMantenimiento').modal('show');")
|
||||
|
||||
UpModalMantenimiento.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvMantenimientoEdit_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
'CveMantenimiento, CveActivoFijo, Mantenimiento, Observaciones, Fecha, FechaIng, CveUsuario, Codigo, Descripcion, Usuario
|
||||
|
||||
CveMantenimiento = GvRow.DataKey("CveMantenimiento").ToEntero
|
||||
|
||||
Dim Mantenimiento As String = GvRow.DataKey("Mantenimiento")
|
||||
Dim Observaciones As String = GvRow.DataKey("Observaciones")
|
||||
Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
|
||||
|
||||
TxtModalMantenimiento.Text = Mantenimiento
|
||||
TxtModalMantenimientoObservaciones.Text = Observaciones
|
||||
TxtModalMantenimientoFecha.Text = Fecha.ToString("dd/MM/yyyy")
|
||||
TxtArchivoMantenimiento.Text = "[]"
|
||||
|
||||
|
||||
LblModaMantenimientoTitulo.Text = "Actualizar Mantenimiento"
|
||||
LnkModalAgregarMantenimiento.Text = "Actualizar"
|
||||
|
||||
UpModalMantenimiento.Update()
|
||||
|
||||
|
||||
RegistraScript("$('#DVModalMantenimiento').modal('show');")
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvMantenimientoRemove_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveMantenimientoEliminar As Integer = GvRow.DataKey("CveMantenimiento").ToEntero
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.RemoveMantenimientos(CveMantenimientoEliminar, UsuarioActual.CveEmpresa) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
Alert("Mantenimiento Eliminado Correctamente.")
|
||||
CargaMantenimento()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkModalAgregarMantenimiento_Click(sender As Object, e As EventArgs)
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim ObjAF As New ClsAF
|
||||
ObjAF.IniciaTransacSQL()
|
||||
|
||||
|
||||
If CveMantenimiento > 0 Then
|
||||
|
||||
Dim FileExtension As String = ""
|
||||
Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos
|
||||
Dim Filename As String = "-1"
|
||||
|
||||
If Filesgral.Count > 0 Then
|
||||
|
||||
For Each fileItem As Archivo In Filesgral
|
||||
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||
Filename = fileItem.filename
|
||||
Exit For
|
||||
Next
|
||||
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimiento}.{FileExtension}"))
|
||||
If Archivo.Exists() Then
|
||||
Archivo.Delete()
|
||||
End If
|
||||
|
||||
|
||||
If Not Filename.FilesMove(String.Format("{0}", CveMantenimiento.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then
|
||||
ErrorProceso = True
|
||||
Alert("Error al mover Archivo", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If Not ErrorProceso Then
|
||||
If Not ObjAF.UpdateMantenimientos(CveMantenimiento, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimiento}.{FileExtension}") Then
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Dim CveMantenimientoTemp As Integer = -1
|
||||
|
||||
|
||||
CveMantenimientoTemp = ObjAF.AddMantenimientos(CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, "-1")
|
||||
If CveMantenimientoTemp > 0 Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
If Not ErrorProceso Then
|
||||
|
||||
Dim FileExtension As String = ""
|
||||
Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos
|
||||
Dim Filename As String = ""
|
||||
|
||||
If Filesgral.Count > 0 Then
|
||||
|
||||
For Each fileItem As Archivo In Filesgral
|
||||
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||
Filename = fileItem.filename
|
||||
Exit For
|
||||
Next
|
||||
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimientoTemp}.{FileExtension}"))
|
||||
If Archivo.Exists() Then
|
||||
Archivo.Delete()
|
||||
End If
|
||||
|
||||
|
||||
If Not Filename.FilesMove(String.Format("{0}", CveMantenimientoTemp.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then
|
||||
ErrorProceso = True
|
||||
Alert("Error al mover Archivo", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
If Not ErrorProceso Then
|
||||
If Not ObjAF.UpdateMantenimientos(CveMantenimientoTemp, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimientoTemp}.{FileExtension}") Then
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
ObjAF.Commit()
|
||||
ObjAF.Dispose()
|
||||
|
||||
RegistraScript("$('#DVModalMantenimiento').modal('hide');")
|
||||
Alert("Mantenimiento Guardado Correctamente.")
|
||||
CargaMantenimento()
|
||||
Else
|
||||
ObjAF.RollBack()
|
||||
ObjAF.Dispose()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkDescargaArcgivo_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim Archivo As String = GvRow.DataKey("Archivo")
|
||||
Dim InfArchivo As New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}")
|
||||
|
||||
If InfArchivo.Exists Then
|
||||
Response.Clear()
|
||||
Response.AppendHeader("Content-Disposition", "attachment; filename=" + InfArchivo.Name)
|
||||
Response.AppendHeader("Content-Length", InfArchivo.Length.ToString())
|
||||
Response.ContentType = "application/octet-stream"
|
||||
Response.WriteFile(InfArchivo.FullName)
|
||||
|
||||
Response.End()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvMantenimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
Dim Archivo As String = e.Row.DataKey("Archivo")
|
||||
Dim InfArchivo As New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}")
|
||||
|
||||
If InfArchivo.Exists Then
|
||||
e.Row.FCLinkButton("LnkDescargaArcgivo").Visible = True
|
||||
ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkDescargaArcgivo"))
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PLAGA ENFERMEDAD"
|
||||
|
||||
|
||||
|
||||
Private Sub CargaPlagaEnfermedad()
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.GetPlagaEnfermedad(CveActivoFijo, UsuarioActual.CveEmpresa) Then
|
||||
GvPlagaEnfermedad.DataSource = ObjAF.DtResultados
|
||||
Else
|
||||
GvPlagaEnfermedad.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjAF.Dispose()
|
||||
GvPlagaEnfermedad.DataBind()
|
||||
|
||||
UpPlagaEnfermedad.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LnkAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs)
|
||||
|
||||
LblModalTituloPlagaEnfermedad.Text = "Agregar Plaga Enfermedad"
|
||||
LnkModalAgregarProduccion.Text = "Agregar"
|
||||
|
||||
CvePlagaEnfermedad = -1
|
||||
|
||||
TxtModalPlagaEnfermedadObservaciones.Text = ""
|
||||
TxtModalPlagaEnfermedadFecha.Text = ""
|
||||
|
||||
RegistraScript("$('#DVModalPlagaEnfermedad').modal('show');")
|
||||
|
||||
UpModalPlagaEnfermedad.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvPlagaEnfermedadEdit_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
CvePlagaEnfermedad = GvRow.DataKey("CvePlagaEnfermedad").ToEntero
|
||||
|
||||
Dim Observaciones As String = GvRow.DataKey("Observaciones")
|
||||
Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
|
||||
|
||||
|
||||
TxtModalPlagaEnfermedadObservaciones.Text = Observaciones
|
||||
TxtModalPlagaEnfermedadFecha.Text = Fecha.ToString("dd/MM/yyyy")
|
||||
|
||||
|
||||
LblModalTituloPlagaEnfermedad.Text = "Actualizar plaga enfermedad"
|
||||
LnkModalAgregarPlagaEnfermedad.Text = "Actualizar"
|
||||
|
||||
UpModalPlagaEnfermedad.Update()
|
||||
|
||||
|
||||
RegistraScript("$('#DVModalPlagaEnfermedad').modal('show');")
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkGvPlagaEnfermedadRemove_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CvePlagaEnfermedadEliminar As Integer = GvRow.DataKey("CvePlagaEnfermedad").ToEntero
|
||||
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If ObjAF.RemovePlagaEnfermedad(CvePlagaEnfermedadEliminar, UsuarioActual.CveEmpresa) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
Alert("Plaga Enfermedad Eliminada Correctamente.")
|
||||
CargaPlagaEnfermedad()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkModalAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs)
|
||||
Dim ErrorProceso As Boolean = False
|
||||
Dim ObjAF As New ClsAF
|
||||
|
||||
If CvePlagaEnfermedad > 0 Then
|
||||
If ObjAF.UpdatePlagaEnfermedad(CvePlagaEnfermedad, CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
Else
|
||||
If ObjAF.AddPlagaEnfermedad(CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ObjAF.Dispose()
|
||||
|
||||
If Not ErrorProceso Then
|
||||
RegistraScript("$('#DVModalPlagaEnfermedad').modal('hide');")
|
||||
Alert("Plaga Enfermedad guardada Correctamente.")
|
||||
CargaPlagaEnfermedad()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -45,9 +45,6 @@
|
||||
<div class="titlefiltros caption ">
|
||||
<div class="row">
|
||||
|
||||
|
||||
|
||||
|
||||
<asp:Label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</asp:Label>
|
||||
<div runat="server" class="col-md-2">
|
||||
|
||||
@@ -120,36 +117,44 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePolizaVirtual,AnioVehiculo,SerieFolio,CveVenta,Descuento,Enviada,FechaEnvioPoliza,FechaIng,PU,TieneUsado,TipoPoliza,TipoServicio,Total,FechaUsado,Serie,Codigo2,IdProductoPolizaVirtual,RespuestaEnvio,IdBCI,BCI,IdModeloAuto,ModeloAuto,IdMarcaAuto,MarcaAuto,IdMarcaUsado,MarcaUsado"
|
||||
EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePolizaVirtual,AnioVehiculo,SerieFolio,CveVenta,Descuento,Enviada,FechaEnvioPoliza,FechaIng,PU,TieneUsado,TipoPoliza,TipoServicio,Total,FechaUsado,Serie,Codigo2,IdProductoPolizaVirtual,RespuestaEnvio,IdBCI,BCI,IdModeloAuto,ModeloAuto,IdMarcaAuto,MarcaAuto,IdMarcaUsado,MarcaUsado" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" HeaderText="Serie-Folio" ItemStyle-Width="100px" Target="_blank" ControlStyle-CssClass="Texto" />
|
||||
<asp:BoundField HeaderText="AnioVehiculo" DataField="AnioVehiculo" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
|
||||
<asp:BoundField HeaderText="Enviada" DataField="Enviada" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="FechaEnvioPoliza" DataField="FechaEnvioPoliza" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" />
|
||||
<asp:BoundField HeaderText="FechaIng" DataField="FechaIng" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" />
|
||||
<asp:BoundField HeaderText="PU" DataField="PU" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
|
||||
<asp:BoundField HeaderText="TieneUsado" DataField="TieneUsado" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="TipoPoliza" DataField="TipoPoliza" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="TipoServicio" DataField="TipoServicio" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
|
||||
<asp:BoundField HeaderText="FechaUsado" DataField="FechaUsado" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" />
|
||||
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Codigo2" DataField="Codigo2" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="IdProductoPolizaVirtual" DataField="IdProductoPolizaVirtual" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="RespuestaEnvio" DataField="RespuestaEnvio" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="IdBCI" DataField="IdBCI" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="BCI" DataField="BCI" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="IdModeloAuto" DataField="IdModeloAuto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="ModeloAuto" DataField="ModeloAuto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="IdMarcaAuto" DataField="IdMarcaAuto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="MarcaAuto" DataField="MarcaAuto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="IdMarcaUsado" DataField="IdMarcaUsado" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="MarcaUsado" DataField="MarcaUsado" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:HyperLinkField DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" HeaderText="Serie-Folio" ItemStyle-Width="100px" Target="_blank" ControlStyle-CssClass="Texto" >
|
||||
<ControlStyle CssClass="Texto" />
|
||||
<ItemStyle Width="100px" />
|
||||
</asp:HyperLinkField>
|
||||
<asp:BoundField HeaderText="Año Vehiculo" DataField="AnioVehiculo" />
|
||||
<asp:BoundField HeaderText="Envio Póliza" DataField="FechaEnvioPoliza" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" />
|
||||
|
||||
|
||||
<asp:BoundField HeaderText="Serie" DataField="Serie" />
|
||||
<asp:BoundField HeaderText="Codigo CPK" DataField="Codigo2" />
|
||||
<asp:BoundField HeaderText="RespuestaEnvio" DataField="RespuestaEnvio" />
|
||||
<asp:TemplateField HeaderText="Marca">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="Label2" runat="server" Text='<%#String.Format("{0}-{1}", Eval("IdMarcaAuto"), Eval("MarcaAuto")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Modelo ">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="Label1" runat="server" Text='<%# String.Format("{0}-{1}", Eval("IdModeloAuto"), Eval("ModeloAuto")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField HeaderText="BCI" DataField="BCI" />
|
||||
<asp:BoundField HeaderText="FechaUsado" DataField="FechaUsado" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" >
|
||||
<ItemStyle HorizontalAlign="Center" />
|
||||
</asp:BoundField>
|
||||
<asp:TemplateField HeaderText="Marca Usado">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="Label3" runat="server" Text='<%#String.Format("{0}-{1}", Eval("IdMarcaUsado"), Eval("MarcaUsado")) %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Enviada">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="Lbl4" runat="server" Text='<%# If(Eval("Enviada").ToString = "1", "Si", "No") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
|
||||
@@ -3,8 +3,6 @@ Imports Extensiones
|
||||
Partial Class Acumuladores_RepPolizasVirtuales
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
|
||||
Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaCombos()
|
||||
@@ -15,7 +13,7 @@ Partial Class Acumuladores_RepPolizasVirtuales
|
||||
Private Sub CargaCombos()
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
|
||||
|
||||
txtFechaI.Text = DateTime.Now.FirstDayOfMonth.ToShortDateString()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -47,9 +45,6 @@ Partial Class Acumuladores_RepPolizasVirtuales
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
@@ -47,6 +47,7 @@ Public Class ClsAF
|
||||
Public Property CveCompra As Integer
|
||||
Public Property ValorCompra As Double
|
||||
Public Property FechaCompra As Date
|
||||
Public Property FechaBaja As Date
|
||||
Public Property CuentaInicial As Integer
|
||||
Public Property CveTipoActivoFijo As Integer
|
||||
Public Property TipoActivoFijo As String
|
||||
@@ -230,6 +231,7 @@ Public Class ClsAF
|
||||
Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
|
||||
Me.Usuario = Data.Rows(0)("Usuario").ToString
|
||||
Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
|
||||
Me.FechaBaja = Data.Rows(0)("FechaBaja").ToString.ToDate
|
||||
End If
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
@@ -344,6 +346,9 @@ Public Class ClsAF
|
||||
Me.CveGrupoAF = Data.Rows(0)("CveGrupo").ToString.ToEntero
|
||||
Me.CveAFPadre = Data.Rows(0)("CveAFPadre").ToString.ToEntero
|
||||
Me.CveDispositivo = Data.Rows(0)("CveDispositivo").ToString.ToEntero
|
||||
Me.FechaBaja = Data.Rows(0)("FechaBaja").ToString.ToDate
|
||||
|
||||
|
||||
End If
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
@@ -397,7 +402,7 @@ Public Class ClsAF
|
||||
Public Function AddActivosFijos(Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer, CvePersonalResponsable As Integer, NoSerie As String, Año As Integer,
|
||||
CveSubProyecto As Integer, Cuenta As Integer, CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
|
||||
CveMovimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
|
||||
Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1) As Integer
|
||||
Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha) As Integer
|
||||
Dim Retorno As Integer = -1
|
||||
|
||||
DataAdapter("PA_AF_ActivosFijosAdd")
|
||||
@@ -427,6 +432,7 @@ Public Class ClsAF
|
||||
.Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
|
||||
.Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
|
||||
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
|
||||
.Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja
|
||||
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
|
||||
@@ -458,7 +464,7 @@ Public Class ClsAF
|
||||
CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, IdCtaContActivoFijo As Integer,
|
||||
CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
|
||||
CveUsuarioModifico As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
|
||||
Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1) As Boolean
|
||||
Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_ActivosFijosUpdate")
|
||||
@@ -490,6 +496,7 @@ Public Class ClsAF
|
||||
.Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
|
||||
.Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
|
||||
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
|
||||
.Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -4514,6 +4521,339 @@ Public Class ClsAF
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " P R O D U C C C I Ó N "
|
||||
|
||||
Public Function AddProduccion(CveActivoFijo As Integer, CveCultivoCuadroDetalle As Integer, Cantidad As Decimal, Fecha As Date, CveUsuario As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_ProduccionAdd")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
|
||||
.Add("@Cantidad", SqlDbType.Money).Value = Cantidad
|
||||
.Add("@Fecha", SqlDbType.Date).Value = Fecha
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al agregar la producción", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function UpdateProduccion(CveProduccion As Integer, CveActivoFijo As Integer, CveCultivoCuadroDetalle As Integer, Cantidad As Decimal, Fecha As Date, CveUsuario As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_ProduccionUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CveProduccion", SqlDbType.Int).Value = CveProduccion
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
|
||||
.Add("@Cantidad", SqlDbType.Money).Value = Cantidad
|
||||
.Add("@Fecha", SqlDbType.Date).Value = Fecha
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al actualizar la producción", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetProduccion(CveActivoFijo As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_ProduccionGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al consultar la producción", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function RemoveProduccion(CveProduccion As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_ProduccionRemove")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveProduccion", SqlDbType.Int).Value = CveProduccion
|
||||
.Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al eliminar la producción", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " M A N T E N I M I E N T O S "
|
||||
|
||||
|
||||
Public Function AddMantenimientos(CveActivoFijo As Integer, Mantenimiento As String, Observaciones As String, Fecha As Date, CveUsuario As Integer, Archivo As String) As Integer
|
||||
|
||||
Dim Retorno As Integer = -1
|
||||
|
||||
DataAdapter("PA_AF_MantenimientosAdd")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@Mantenimiento", SqlDbType.VarChar).Value = Mantenimiento
|
||||
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
||||
.Add("@Fecha", SqlDbType.Date).Value = Fecha
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Archivo", SqlDbType.VarChar).Value = Archivo
|
||||
.Add("@CveMantenimiento", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = SqlAdapter.SelectCommand.Parameters("@CveMantenimiento").Value.ToString.ToEntero
|
||||
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al agregar el mantenimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function UpdateMantenimientos(CveMantenimiento As Integer, CveActivoFijo As Integer, Mantenimiento As String, Observaciones As String, Fecha As Date, CveUsuario As Integer, Archivo As String) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_MantenimientosUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CveMantenimiento", SqlDbType.Int).Value = CveMantenimiento
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@Mantenimiento", SqlDbType.VarChar).Value = Mantenimiento
|
||||
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
||||
.Add("@Fecha", SqlDbType.Date).Value = Fecha
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Archivo", SqlDbType.VarChar).Value = Archivo
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al actualizar el mantenimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetMantenimientos(CveActivoFijo As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_MantenimientosGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al consultar los mantenimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function RemoveMantenimientos(CveMantenimiento As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_MantenimientosRemove")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveMantenimiento", SqlDbType.Int).Value = CveMantenimiento
|
||||
.Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al eliminar el mantenimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region " PLAGAS ENFERMEDADES "
|
||||
|
||||
|
||||
Public Function AddPlagaEnfermedad(CveActivoFijo As Integer, Observaciones As String, Fecha As Date, CveUsuario As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_PlagaEnfermedadAdd")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
||||
.Add("@Fecha", SqlDbType.Date).Value = Fecha
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al agregar la enfermedad/plaga.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function UpdatePlagaEnfermedad(CvePlagaEnfermedad As Integer, CveActivoFijo As Integer, Observaciones As String, Fecha As Date, CveUsuario As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_PlagaEnfermedadUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CvePlagaEnfermedad", SqlDbType.Int).Value = CvePlagaEnfermedad
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
||||
.Add("@Fecha", SqlDbType.Date).Value = Fecha
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al actualizar la enfermedad/plaga.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetPlagaEnfermedad(CveActivoFijo As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_PlagaEnfermedadGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al consultar la enfermedad/plaga.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function RemovePlagaEnfermedad(CvePlagaEnfermedad As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_AF_PlagaEnfermedadRemove")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CvePlagaEnfermedad", SqlDbType.Int).Value = CvePlagaEnfermedad
|
||||
.Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al eliminar la enfermedad/plaga.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region " IDisposable Support "
|
||||
' IDisposable
|
||||
|
||||
@@ -141,6 +141,7 @@ Public Class ClsBancos
|
||||
Public Property UsaLayoutGrupos As Boolean
|
||||
|
||||
Public Property UsaTarjeta As Boolean
|
||||
Public Property TieneTerminal As Boolean
|
||||
#End Region
|
||||
|
||||
|
||||
@@ -428,6 +429,7 @@ Public Class ClsBancos
|
||||
Me.UsaLayout = If(Data.Rows(0)("UsaLayout").ToString = "True", True, False)
|
||||
Me.UsaLayoutGrupos = If(Data.Rows(0)("UsaLayoutGrupos").ToString = "True", True, False)
|
||||
Me.UsaTarjeta = If(Data.Rows(0)("UsaTarjeta").ToString = "True", True, False)
|
||||
Me.TieneTerminal = If(Data.Rows(0)("TieneTerminal").ToString = "True", True, False)
|
||||
|
||||
End If
|
||||
|
||||
@@ -462,7 +464,7 @@ Public Class ClsBancos
|
||||
|
||||
Public Function AddBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer,
|
||||
LimiteCredito As Double, IdCtaContable As Integer, IdCtaContableComplementaria As Integer, FormatoCheque As String, CveUsuario As Integer, CveEmpresa As Integer, ConvenioPagoElectronico As String,
|
||||
UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False) As Boolean
|
||||
UsaLayout As Boolean, UsaTarjeta As Boolean, Optional SaldoInicial As Double = 0, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Banc_BancosCuentasAdd")
|
||||
|
||||
@@ -489,6 +491,7 @@ Public Class ClsBancos
|
||||
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
|
||||
.Add("@SaldoInicial", SqlDbType.Money).Value = SaldoInicial
|
||||
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
|
||||
.Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
|
||||
|
||||
|
||||
|
||||
@@ -513,7 +516,7 @@ Public Class ClsBancos
|
||||
|
||||
Public Function UpdateBancosCuentas(CveBanco As Integer, CveTipoCuenta As Integer, NumCuenta As String, CLABE As String, CveMoneda As Integer, DiaCorte As Integer, FInicial As Integer, FActual As Integer, FFinal As Integer,
|
||||
LimiteCredito As Double, IdCtaContable As Integer, IdCtaContableComplementaria As Integer, FormatoCheque As String, Estatus As Boolean, CveCuenta As Integer, ConvenioPagoElectronico As String,
|
||||
UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False) As Boolean
|
||||
UsaLayout As Boolean, UsaTarjeta As Boolean, Optional UsaLayoutGrupos As Boolean = False, Optional TieneTerminal As Boolean = False) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Banc_BancosCuentasUpdate")
|
||||
@@ -538,6 +541,7 @@ Public Class ClsBancos
|
||||
.Add("@UsaLayout", SqlDbType.Bit).Value = UsaLayout
|
||||
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
|
||||
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
|
||||
.Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
|
||||
|
||||
|
||||
End With
|
||||
|
||||
@@ -130,7 +130,9 @@ Public Class ClsCRM
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean
|
||||
Public Function AddTipoProceso(TipoProceso As String, Descripcion As String, CveEmpresa As Integer, CveUsuarioIng As Integer,
|
||||
RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean,
|
||||
RequierePS As Boolean, RequiereComision As Boolean) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_CRM_TipoProcesoAdd")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -138,6 +140,11 @@ Public Class ClsCRM
|
||||
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng
|
||||
.Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion
|
||||
.Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte
|
||||
.Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento
|
||||
.Add("@RequierePS", SqlDbType.Bit).Value = RequierePS
|
||||
.Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -148,7 +155,9 @@ Public Class ClsCRM
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer) As Boolean
|
||||
Public Function UpdateTipoProceso(TipoProceso As String, Descripcion As String, CveEstatus As Boolean, CveTipoProceso As Integer,
|
||||
RequiereMedioCaptacion As Boolean, RequiereImporte As Boolean, RequiereProbabilidadAcercamiento As Boolean,
|
||||
RequierePS As Boolean, RequiereComision As Boolean) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_CRM_TipoProcesoUpdate")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -156,6 +165,11 @@ Public Class ClsCRM
|
||||
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
|
||||
.Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
|
||||
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
|
||||
.Add("@RequiereMedioCaptacion", SqlDbType.Bit).Value = RequiereMedioCaptacion
|
||||
.Add("@RequiereImporte", SqlDbType.Bit).Value = RequiereImporte
|
||||
.Add("@RequiereProbabilidadAcercamiento", SqlDbType.Bit).Value = RequiereProbabilidadAcercamiento
|
||||
.Add("@RequierePS", SqlDbType.Bit).Value = RequierePS
|
||||
.Add("@RequiereComision", SqlDbType.Bit).Value = RequiereComision
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
@@ -32,6 +32,8 @@ Public Class ClsClientes
|
||||
|
||||
Public Property CveCliente As Integer
|
||||
Public Property Nombre As String
|
||||
Public Property TipoPersona As Boolean
|
||||
Public Property RegimenSociedad As String
|
||||
Public Property NombreComercial As String
|
||||
Public Property Direccion As String
|
||||
Public Property NoExt As String
|
||||
@@ -289,6 +291,8 @@ Public Class ClsClientes
|
||||
If Data.Rows.Count > 0 Then
|
||||
_CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero
|
||||
_Nombre = Data.Rows(0)("Nombre").ToString
|
||||
_TipoPersona = Boolean.Parse(Data.Rows(0)("TipoPersona").ToString)
|
||||
_RegimenSociedad = Data.Rows(0)("RegimenSociedad").ToString
|
||||
_NombreComercial = Data.Rows(0)("NombreComercial").ToString
|
||||
_Codigo = Data.Rows(0)("Codigo").ToString
|
||||
_Direccion = Data.Rows(0)("Direccion").ToString
|
||||
@@ -576,7 +580,7 @@ Public Class ClsClientes
|
||||
Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
|
||||
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
|
||||
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
|
||||
Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0) As Boolean
|
||||
Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
|
||||
@@ -719,6 +723,12 @@ Public Class ClsClientes
|
||||
.Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
|
||||
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
||||
|
||||
.Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
|
||||
.Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
|
||||
|
||||
|
||||
|
||||
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -766,7 +776,7 @@ Public Class ClsClientes
|
||||
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
|
||||
Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
|
||||
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
|
||||
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0) As Boolean
|
||||
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -925,6 +935,12 @@ Public Class ClsClientes
|
||||
.Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
|
||||
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
||||
|
||||
.Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
|
||||
.Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
|
||||
|
||||
|
||||
|
||||
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -1467,7 +1483,7 @@ Public Class ClsClientes
|
||||
#Region "D I R E C C I O N D E E N V I O "
|
||||
Public Function DireccionEnvioAdd(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String,
|
||||
EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1",
|
||||
Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveEmpresa As Integer = -1) As Integer
|
||||
Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1) As Integer
|
||||
Dim Retorno As Integer = -1
|
||||
DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd")
|
||||
|
||||
@@ -1486,6 +1502,7 @@ Public Class ClsClientes
|
||||
.Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
|
||||
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
||||
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
|
||||
@@ -1528,7 +1545,7 @@ Public Class ClsClientes
|
||||
|
||||
Public Function DireccionEnvioUpdate(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String,
|
||||
EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1",
|
||||
Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean
|
||||
Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate")
|
||||
|
||||
@@ -1548,6 +1565,7 @@ Public Class ClsClientes
|
||||
.Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
|
||||
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
||||
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
|
||||
|
||||
@@ -6603,18 +6603,18 @@ Public Class ClsContPAQi
|
||||
#End Region
|
||||
|
||||
#Region "M O V I M I E N T O S - A U X I L I A R E S - C A T A L O G O"
|
||||
Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer) As Boolean
|
||||
Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, Optional IdSegNeg As Integer = -1) As Boolean
|
||||
Dim Retorno = False
|
||||
|
||||
If Not FNC_Total() Then
|
||||
If Not FNC_Total_Segmento() Then
|
||||
Return Retorno
|
||||
End If
|
||||
|
||||
If Not FNC_Cargos() Then
|
||||
If Not FNC_Cargos_Segmento() Then
|
||||
Return Retorno
|
||||
End If
|
||||
|
||||
If Not FNC_Abonos() Then
|
||||
If Not FNC_Abonos_Segmento() Then
|
||||
Return Retorno
|
||||
End If
|
||||
|
||||
@@ -6659,12 +6659,12 @@ Public Class ClsContPAQi
|
||||
StrSQL.Append(" ) ")
|
||||
StrSQL.Append(" INSERT INTO #TEMP ")
|
||||
'StrSQL.AppendLine(" -- SE LLENA LA TABLA TEMPORAL CON EL ARBOL DEL WITH CON JOINS DE CUENTAS SUPERIORES ")
|
||||
StrSQL.Append(" SELECT T.*, ISNULL (dbo.FNC_Total(T.Id, CAST('1900-01-01' AS DATE),@FechaF,@CveMoneda), 0) AS SaldoActual ") '-- CASE WHEN Tipo IN ('A','B') THEN ISNULL(T.SaldoInicial + T.Cargos - T.Abonos,0) ELSE ISNULL(T.SaldoInicial + T.Abonos - T.Cargos,0) END AS SaldoActual
|
||||
StrSQL.Append(" SELECT T.*, ISNULL (dbo.FNC_Total_Segmento(T.Id, CAST('1900-01-01' AS DATE),@FechaF,@CveMoneda,@IdSegNeg), 0) As SaldoActual ") '-- CASE WHEN Tipo IN ('A','B') THEN ISNULL(T.SaldoInicial + T.Cargos - T.Abonos,0) ELSE ISNULL(T.SaldoInicial + T.Abonos - T.Cargos,0) END AS SaldoActual
|
||||
StrSQL.Append(" FROM (")
|
||||
StrSQL.Append(" SELECT C.Id, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Orden,")
|
||||
StrSQL.Append(" ISNULL (dbo.FNC_Total(c.Id, CAST('1900-01-01' AS DATE),EOMONTH(@FechaI, -1 ),@CveMoneda), 0) AS SaldoInicial,")
|
||||
StrSQL.Append(" ISNULL (dbo.FNC_Cargos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Cargos,")
|
||||
StrSQL.Append(" ISNULL (dbo.FNC_Abonos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Abonos,")
|
||||
StrSQL.Append(" Select C.Id, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Orden,")
|
||||
StrSQL.Append(" ISNULL (dbo.FNC_Total_Segmento(c.Id, CAST('1900-01-01' AS DATE),EOMONTH(@FechaI, -1 ),@CveMoneda,@IdSegNeg), 0) AS SaldoInicial,")
|
||||
StrSQL.Append(" ISNULL (dbo.FNC_Cargos_Segmento(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Cargos,")
|
||||
StrSQL.Append(" ISNULL (dbo.FNC_Abonos_Segmento(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Abonos,")
|
||||
StrSQL.Append(" Level as Nivel,")
|
||||
StrSQL.Append(" CASE WHEN ISNUMERIC (C.Codigo) = 1 THEN FORMAT (CAST (C.Codigo AS FLOAT), (SELECT REPLACE (Mascarilla, 'X', '0') FROM Parametros)) ELSE C.Codigo END AS Codigo,")
|
||||
StrSQL.Append(" CASE WHEN ISNUMERIC (CT.Codigo) = 1 THEN FORMAT (CAST (CT.Codigo AS FLOAT), (SELECT REPLACE (Mascarilla, 'X', '0') FROM Parametros)) ELSE CT.Codigo END AS CodigoSup, Ct.Nombre as Sup,")
|
||||
@@ -6743,12 +6743,18 @@ Public Class ClsContPAQi
|
||||
StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON T.ID = MP.IdCuenta AND MP.Fecha < CAST('0001-01-01' AS DATE)")
|
||||
StrSQL.Append(" LEFT JOIN TiposPolizas TP ON MP.TipoPol = TP.Codigo")
|
||||
StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id")
|
||||
StrSQL.Append(" WHERE (MP.IdSegNeg = @IdSegNeg OR ( @IdSegNeg =-1 OR MP.IdSegNeg IS NULL)) ")
|
||||
|
||||
|
||||
StrSQL.Append(" UNION")
|
||||
StrSQL.AppendFormat(" SELECT T.*, MP.Concepto, MP.Fecha, TP.Nombre AS TipoPoliza, MP.Folio, MP.Id AS IdMovimientoPoliza, MP.Referencia, CASE WHEN MP.TipoMovto = 0 THEN MP.{0} ELSE 0 END, CASE WHEN MP.TipoMovto = 1 THEN MP.{0} ELSE 0 END, MP.IdPoliza, P.Concepto AS ConceptoPadre", If(CveMoneda = 1, "Importe", "ImporteME"))
|
||||
StrSQL.Append(" FROM #TEMP T")
|
||||
StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON T.ID = MP.IdCuenta AND CAST(MP.Fecha AS DATE) BETWEEN @FechaI AND @FechaF")
|
||||
StrSQL.Append(" LEFT JOIN TiposPolizas TP ON MP.TipoPol = TP.Codigo")
|
||||
StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id")
|
||||
StrSQL.Append(" WHERE (MP.IdSegNeg = @IdSegNeg OR ( @IdSegNeg =-1 OR MP.IdSegNeg IS NULL)) ")
|
||||
|
||||
|
||||
StrSQL.Append(" ) AS T")
|
||||
StrSQL.Append(" ) TT")
|
||||
'StrSQL.AppendLine(" --PRIMER GROUPING SON LAS CABECERAS Y TOTALES DE LAS CUENTAS, SEGUNDO GROUPING SON LOS MOVIMIENTOS DE LAS CUENTAS")
|
||||
@@ -6777,6 +6783,7 @@ Public Class ClsContPAQi
|
||||
.Add("@FechaF", SqlDbType.Date).Value = FechaF
|
||||
.Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
|
||||
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
||||
.Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -11035,7 +11042,7 @@ Public Class ClsContPAQi
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
|
||||
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ")
|
||||
StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ")
|
||||
StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ")
|
||||
StrSQL.Append(" RETURN @Total; ")
|
||||
StrSQL.Append(" END; ")
|
||||
|
||||
@@ -11104,7 +11111,7 @@ Public Class ClsContPAQi
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
|
||||
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ")
|
||||
StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ")
|
||||
StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF; ")
|
||||
StrSQL.Append(" RETURN @Total; ")
|
||||
StrSQL.Append(" END; ")
|
||||
|
||||
@@ -11198,6 +11205,233 @@ Public Class ClsContPAQi
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Funciones con Segmento"
|
||||
|
||||
|
||||
Public Function FNC_Total_Segmento() As Boolean
|
||||
|
||||
Dim Retorno = False
|
||||
StrSQL.Clear()
|
||||
StrSQL.Append(" IF OBJECT_ID ('FNC_Total_Segmento') IS NOT NULL DROP FUNCTION FNC_Total_Segmento")
|
||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||
|
||||
Try
|
||||
SqlAdapter.SelectCommand.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al eliminar la funcion FNC_Total_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
|
||||
StrSQL.Clear()
|
||||
StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Total_Segmento] ")
|
||||
StrSQL.Append(" ( ")
|
||||
StrSQL.Append(" @IdCtaSup INT, ")
|
||||
StrSQL.Append(" @FechaI DATE, ")
|
||||
StrSQL.Append(" @FechaF DATE, ")
|
||||
StrSQL.Append(" @CveMoneda INT = 1, ")
|
||||
StrSQL.Append(" @IdSegNeg INT =-1 ")
|
||||
StrSQL.Append(" ) ")
|
||||
StrSQL.Append(" RETURNS FLOAT ")
|
||||
StrSQL.Append(" AS ")
|
||||
StrSQL.Append(" BEGIN ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" DECLARE ")
|
||||
StrSQL.Append(" @Total FLOAT, ")
|
||||
StrSQL.Append(" @TipoCuenta VARCHAR(1), ")
|
||||
StrSQL.Append(" @FechaFF DATE; ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ")
|
||||
StrSQL.Append(" ( ")
|
||||
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
|
||||
StrSQL.Append(" FROM Asociaciones a ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
|
||||
StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" UNION ALL ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
|
||||
StrSQL.Append(" FROM Asociaciones a ")
|
||||
StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
|
||||
StrSQL.Append(" ) ")
|
||||
StrSQL.Append(" SELECT @Total = SUM (CASE ")
|
||||
StrSQL.Append(" WHEN @TipoCuenta IN ('A', 'B', 'E', 'G') THEN CASE WHEN p.TipoMovto = 1 THEN CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) * -1 ELSE CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) END ")
|
||||
StrSQL.Append(" WHEN @TipoCuenta IN ('B', 'D', 'F', 'H', 'C') THEN CASE WHEN p.TipoMovto = 0 THEN CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) * -1 ELSE CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY) END ")
|
||||
StrSQL.Append(" ELSE 0 ")
|
||||
StrSQL.Append(" END ")
|
||||
StrSQL.Append(" ) ")
|
||||
StrSQL.Append(" FROM Estructura e ")
|
||||
StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
|
||||
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ")
|
||||
StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ")
|
||||
StrSQL.Append(" RETURN @Total; ")
|
||||
StrSQL.Append(" END; ")
|
||||
|
||||
|
||||
|
||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||
|
||||
Try
|
||||
SqlAdapter.SelectCommand.ExecuteNonQuery()
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al crear la funcion FNC_Total_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function FNC_Cargos_Segmento() As Boolean
|
||||
|
||||
Dim Retorno = False
|
||||
StrSQL.Clear()
|
||||
StrSQL.Append(" IF OBJECT_ID ('FNC_Cargos_Segmento') IS NOT NULL DROP FUNCTION FNC_Cargos_Segmento")
|
||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||
|
||||
Try
|
||||
SqlAdapter.SelectCommand.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al eliminar la funcion FNC_Cargos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
|
||||
StrSQL.Clear()
|
||||
StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Cargos_Segmento] ")
|
||||
StrSQL.Append(" ( ")
|
||||
StrSQL.Append(" @IdCtaSup INT, ")
|
||||
StrSQL.Append(" @FechaI DATE, ")
|
||||
StrSQL.Append(" @FechaF DATE, ")
|
||||
StrSQL.Append(" @CveMoneda INT = 1, ")
|
||||
StrSQL.Append(" @IdSegNeg INT =-1 ")
|
||||
StrSQL.Append(" ) ")
|
||||
StrSQL.Append(" RETURNS FLOAT ")
|
||||
StrSQL.Append(" AS ")
|
||||
StrSQL.Append(" BEGIN ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" DECLARE @Total FLOAT; ")
|
||||
StrSQL.Append(" DECLARE @TipoCuenta VARCHAR(1); ")
|
||||
StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ")
|
||||
StrSQL.Append(" ( ")
|
||||
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
|
||||
StrSQL.Append(" FROM Asociaciones a ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
|
||||
StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" UNION ALL ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
|
||||
StrSQL.Append(" FROM Asociaciones a ")
|
||||
StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
|
||||
StrSQL.Append(" ) ")
|
||||
StrSQL.Append(" SELECT @Total = SUM (CASE WHEN p.TipoMovto = 0 THEN CAST (ISNULL (CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY), 0)AS MONEY) ELSE 0 END) ")
|
||||
StrSQL.Append(" FROM Estructura e ")
|
||||
StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
|
||||
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ")
|
||||
StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ")
|
||||
StrSQL.Append(" RETURN @Total; ")
|
||||
StrSQL.Append(" END; ")
|
||||
|
||||
|
||||
|
||||
|
||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||
|
||||
Try
|
||||
SqlAdapter.SelectCommand.ExecuteNonQuery()
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al crear la funcion FNC_Cargos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function FNC_Abonos_Segmento() As Boolean
|
||||
|
||||
Dim Retorno = False
|
||||
StrSQL.Clear()
|
||||
StrSQL.Append(" IF OBJECT_ID ('FNC_Abonos_Segmento') IS NOT NULL DROP FUNCTION FNC_Abonos_Segmento")
|
||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||
|
||||
Try
|
||||
SqlAdapter.SelectCommand.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al eliminar la funcion FNC_Abonos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
|
||||
StrSQL.Clear()
|
||||
StrSQL.Append(" CREATE FUNCTION [dbo].[FNC_Abonos_Segmento] ")
|
||||
StrSQL.Append(" ( ")
|
||||
StrSQL.Append(" @IdCtaSup INT, ")
|
||||
StrSQL.Append(" @FechaI DATE, ")
|
||||
StrSQL.Append(" @FechaF DATETIME, ")
|
||||
StrSQL.Append(" @CveMoneda INT = 1 , ")
|
||||
StrSQL.Append(" @IdSegNeg INT =-1 ")
|
||||
StrSQL.Append(" ) ")
|
||||
StrSQL.Append(" RETURNS FLOAT ")
|
||||
StrSQL.Append(" AS ")
|
||||
StrSQL.Append(" BEGIN ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" DECLARE @Total FLOAT; ")
|
||||
StrSQL.Append(" DECLARE @TipoCuenta VARCHAR(1); ")
|
||||
StrSQL.Append(" SET @TipoCuenta = (SELECT Tipo FROM Cuentas WHERE id = @IdCtaSup); ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" WITH Estructura(IdCtaSup, IdSubCtade) AS ")
|
||||
StrSQL.Append(" ( ")
|
||||
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
|
||||
StrSQL.Append(" FROM Asociaciones a ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
|
||||
StrSQL.Append(" WHERE a.IdSubCtade = @IdCtaSup ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" UNION ALL ")
|
||||
StrSQL.Append(" ")
|
||||
StrSQL.Append(" SELECT a.IdCtaSup, a.IdSubCtade ")
|
||||
StrSQL.Append(" FROM Asociaciones a ")
|
||||
StrSQL.Append(" INNER JOIN Estructura e ON a.IdCtaSup = e.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON a.IdSubCtade = c.Id ")
|
||||
StrSQL.Append(" ) ")
|
||||
StrSQL.Append(" SELECT @Total = SUM (CASE WHEN p.TipoMovto = 1 THEN CAST (ISNULL (CAST (CASE WHEN @CveMoneda = 1 THEN p.Importe ELSE p.ImporteME END AS MONEY), 0)AS MONEY) ELSE 0 END) ")
|
||||
StrSQL.Append(" FROM Estructura e ")
|
||||
StrSQL.Append(" INNER JOIN Asociaciones a ON e.IdSubCtade = a.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = a.IdSubCtade ")
|
||||
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
|
||||
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.Id ")
|
||||
StrSQL.Append(" WHERE CAST (p.Fecha AS DATE)>= @FechaI AND CAST (p.Fecha AS DATE) <= @FechaF AND (@IdSegNeg = -1 OR p.IdSegNeg = @IdSegNeg); ")
|
||||
StrSQL.Append(" RETURN @Total; ")
|
||||
StrSQL.Append(" END; ")
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||
|
||||
Try
|
||||
SqlAdapter.SelectCommand.ExecuteNonQuery()
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al crear la funcion FNC_Abonos_Segmento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " IDisposable Support "
|
||||
' IDisposable
|
||||
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
|
||||
|
||||
@@ -992,6 +992,9 @@ Public Class ClsContabilidad
|
||||
ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
|
||||
Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
|
||||
OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
|
||||
Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
|
||||
OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
Else
|
||||
OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End If '
|
||||
@@ -3814,6 +3817,30 @@ Public Class ClsContabilidad
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetFlujoEfectivo2(FechaF As Date, Tipo As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno = False
|
||||
|
||||
DataAdapter("PA_Conta_RepFlujoEfectivo2")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@FechaF", SqlDbType.Date).Value = FechaF
|
||||
.Add("@TipoReporte", SqlDbType.Int).Value = Tipo
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
Me.OnError("Ocurrió un error al obtener el Estado de Flujo de Efectivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetOrigenAplicacion(FechaI As String, FechaF As String, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno = False
|
||||
|
||||
@@ -5785,7 +5812,7 @@ Public Class ClsContabilidad
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer) As Boolean
|
||||
Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer, CveConcepto As Integer) As Boolean
|
||||
Dim Retorno = False
|
||||
|
||||
DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
|
||||
@@ -5794,6 +5821,7 @@ Public Class ClsContabilidad
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@Tipo", SqlDbType.Int).Value = Tipo
|
||||
.Add("@Opcion", SqlDbType.Int).Value = Opcion
|
||||
.Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -869,7 +869,7 @@ Public Class ClsInventarios
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function GetMovimientosDetallePorPersonal(CvePersonal As Integer, CveAlmacen As Integer, CveCliente As Integer, CveProveedor As Integer) As Boolean
|
||||
Public Function GetMovimientosDetallePorPersonal(CvePersonal As Integer, CveAlmacen As Integer, CveCliente As Integer, CveProveedor As Integer, Optional Tipo As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Inv_MovimientosPorPersonalGet")
|
||||
|
||||
@@ -879,6 +879,7 @@ Public Class ClsInventarios
|
||||
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||
.Add("@Tipo", SqlDbType.Int).Value = Tipo
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -1286,7 +1287,8 @@ Public Class ClsInventarios
|
||||
Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha,
|
||||
Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1,
|
||||
Optional CostoIndirecto As Decimal = 0, Optional CveCompraDetalle As Integer = -1, Optional CveOrdenCompraDetalle As Integer = -1, Optional CveVentaDetalle As Integer = -1,
|
||||
Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1, Optional CveVentaDetalleRemision As Integer = -1) As Boolean
|
||||
Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1, Optional CveVentaDetalleRemision As Integer = -1,
|
||||
Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_MovimientosDetalleAdd")
|
||||
@@ -1313,6 +1315,7 @@ Public Class ClsInventarios
|
||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||
.Add("@EsInterno", SqlDbType.Int).Value = EsInterno
|
||||
.Add("@CveVentaDetalleRemision", SqlDbType.Int).Value = CveVentaDetalleRemision
|
||||
.Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
|
||||
|
||||
.Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
End With
|
||||
@@ -1348,7 +1351,7 @@ Public Class ClsInventarios
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function UpdateMovimientoDetalle(Cantidad As Double, CveUM As Integer, CvePS As Integer, PU As Double, CveAF As Integer, CveMovimientoDetalle As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "",
|
||||
Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean
|
||||
Optional Observaciones As String = "-1", Optional PUTC As Double = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_MovimientosDetalleUpdate")
|
||||
@@ -1365,6 +1368,7 @@ Public Class ClsInventarios
|
||||
.Add("@Serie", SqlDbType.VarChar).Value = Serie
|
||||
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||
.Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -4515,11 +4515,7 @@ Public Class ClsPaginas
|
||||
PaginaDict.Add("/AF/CatCombustibles.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/AF/CatCargasCombustible.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/AF/RepFlotillas.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/AF/RepPlacas.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/AF/RepIncidentes.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/AF/RepPolizaSeguro.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/AF/RepLicencias.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/AF/RepServicios.aspx".ToUpper(), -1)
|
||||
|
||||
PaginaDict.Add("/AF/RepDepreciacion.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656)
|
||||
PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251)
|
||||
@@ -4834,6 +4830,8 @@ Public Class ClsPaginas
|
||||
PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714)
|
||||
PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
|
||||
PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752)
|
||||
PaginaDict.Add("/Contabilidad/RepFlujoEfectivo.aspx".ToUpper(), 783)
|
||||
|
||||
|
||||
#End Region
|
||||
'CONTABILIDAD2
|
||||
|
||||
@@ -246,7 +246,7 @@ Public Class ClsProductosServicios
|
||||
CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
|
||||
CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
|
||||
Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString
|
||||
'SATDescripcion = Data.Rows(0)("SATDescripcion").ToString
|
||||
SATDescripcion = Data.Rows(0)("SATDescripcion").ToString
|
||||
Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero
|
||||
Me.Codigo = Data.Rows(0)("Codigo").ToString
|
||||
Me.Codigo2 = Data.Rows(0)("Codigo2").ToString
|
||||
|
||||
@@ -1925,7 +1925,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
|
||||
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
|
||||
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
|
||||
Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1) As Boolean
|
||||
Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -2011,6 +2011,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
||||
.Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
|
||||
.Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
|
||||
.Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -2052,7 +2054,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
|
||||
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
|
||||
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
|
||||
Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1) As Boolean
|
||||
Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
|
||||
Optional CveEmpresaAsignado As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -2141,6 +2144,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
.Add("@Pensionado", SqlDbType.Bit).Value = Pensionado
|
||||
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
||||
.Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
|
||||
.Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -6862,7 +6862,7 @@ Namespace Modelos
|
||||
Public Property TiempoEntrega As String = ""
|
||||
Public Property Vigencia As Date
|
||||
Public Property TipoEstatus As Integer
|
||||
Public Property CveCondicionEntrega As Integer
|
||||
Public Property CveCondicionEntrega As Integer = -1
|
||||
Public Property CondicionEntrega As String = ""
|
||||
|
||||
Public Property TipoRelacion As String
|
||||
|
||||
@@ -3425,10 +3425,11 @@ Public Class Timbrado
|
||||
swmili = sw.ElapsedMilliseconds
|
||||
sw.Start()
|
||||
|
||||
Me.UUID = FolioFiscal
|
||||
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
|
||||
|
||||
'Actualiza Estatus Factura
|
||||
If Ventas.CveVenta > 0 Then
|
||||
If Ventas.CveVenta > 0 Then
|
||||
|
||||
Using ObjVentas As New ClsVentas()
|
||||
|
||||
|
||||
@@ -124,6 +124,8 @@ Public Class Timbres
|
||||
|
||||
Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString
|
||||
Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString
|
||||
Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString
|
||||
Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString
|
||||
|
||||
CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero
|
||||
FechaSalida = drT("FechaEntrega").ToString.ToDateTime
|
||||
@@ -182,18 +184,6 @@ Public Class Timbres
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2)
|
||||
End If
|
||||
|
||||
|
||||
If drT("ClaveTipoRemolque1").ToString <> "" Then
|
||||
Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")}
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1)
|
||||
End If
|
||||
|
||||
If drT("ClaveTipoRemolque2").ToString <> "" Then
|
||||
Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")}
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2)
|
||||
End If
|
||||
|
||||
|
||||
Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
|
||||
DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString,
|
||||
.Colonia = drT("DirOriClaveSATColonia").ToString,
|
||||
@@ -252,7 +242,7 @@ Public Class Timbres
|
||||
|
||||
'concepto único
|
||||
Dim concepto As New CFDIConceptos With {.Cantidad = 1,
|
||||
.Descripcion = "Flete",
|
||||
.Descripcion = "Traslado",
|
||||
.ValorUnitario = 0,
|
||||
.Importe = 0,
|
||||
.Descuento = 0,
|
||||
@@ -283,7 +273,7 @@ Public Class Timbres
|
||||
.ClaveUnidad = drr("SATClaveUM").ToString,
|
||||
.Unidad = drr("UM").ToString,
|
||||
.Dimensiones = drr("Dimensiones").ToString,
|
||||
.PesoenKg = drr("PesoKg").ToString.ToDecimal,
|
||||
.PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal,
|
||||
.MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""),
|
||||
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
|
||||
.Embalaje = drr("ClaveEmbalaje").ToString,
|
||||
@@ -294,7 +284,7 @@ Public Class Timbres
|
||||
.UUIDComercioExt = ""
|
||||
}
|
||||
|
||||
Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal}
|
||||
Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal}
|
||||
conceptoCarta.DetalleMercancia = DetalleMercancia
|
||||
|
||||
Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}
|
||||
|
||||
@@ -95,6 +95,11 @@
|
||||
<td>Layout Grupos:</td>
|
||||
<td>
|
||||
<asp:CheckBox ID="ChkLayoutGrupos" runat="server" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Tiene Terminal:</td>
|
||||
<td>
|
||||
<asp:CheckBox ID="ChkTieneTerminal" runat="server" /></td>
|
||||
</tr>
|
||||
<tr id="TrConvenio" runat="server" visible="false">
|
||||
<td>Convenio:</td>
|
||||
|
||||
@@ -185,6 +185,8 @@ Partial Class Bancos_CuentasBancariasDetalle
|
||||
ChkLayoutGrupos.Checked = ObjCuentasBancariasDetalle.UsaLayoutGrupos
|
||||
ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta
|
||||
|
||||
ChkTieneTerminal.Checked = ObjCuentasBancariasDetalle.TieneTerminal
|
||||
|
||||
ChkUsaTarjeta_CheckedChanged(Nothing, Nothing)
|
||||
|
||||
trFinicial.Visible = False
|
||||
@@ -265,7 +267,8 @@ Partial Class Bancos_CuentasBancariasDetalle
|
||||
|
||||
If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim,
|
||||
TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero,
|
||||
DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked) Then
|
||||
DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkLayout.Checked, TxtConvenio.Text, ""), ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked,
|
||||
TieneTerminal:=ChkTieneTerminal.Checked) Then
|
||||
ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta
|
||||
Else
|
||||
ErrorUsuarios = True
|
||||
@@ -296,7 +299,9 @@ Partial Class Bancos_CuentasBancariasDetalle
|
||||
End If
|
||||
|
||||
Else
|
||||
If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0, TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text, ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked) Then
|
||||
If ObjCuentasBancariasDetalle.UpdateBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim, TxtCLABE.Text.Trim, DdlMoneda.SelectedValue.ToEntero, 0, TxtFInicial.Text.Trim.ToEntero, 0, 0,
|
||||
TxtLimiteCredito.Text.Trim.ToDouble, DDlCuentaContable.SelectedValue.ToEntero, DdlCuentaContableComplementaria.SelectedValue.ToEntero, "", ChkEstatus.Checked, CveCuenta, TxtConvenio.Text,
|
||||
ChkLayout.Checked, ChkUsaTarjeta.Checked, UsaLayoutGrupos:=ChkLayoutGrupos.Checked, TieneTerminal:=ChkTieneTerminal.Checked) Then
|
||||
'CargaDatos()
|
||||
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
|
||||
'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
|
||||
|
||||
@@ -240,7 +240,8 @@
|
||||
<div class="col-md-2" style="text-align: right!important">
|
||||
<asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" Visible="false" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" />
|
||||
<asp:HiddenField ID="HdnProveedorCvePrePoliza" runat="server" />
|
||||
<asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresRemove_Click" class="btn btn-primary" /></div>
|
||||
<asp:HyperLink ID="HplProveedorLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
|
||||
<asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
|
||||
</div>
|
||||
<br />
|
||||
<asp:GridView ID="GvProveedores" Width="99%" runat="server" AutoGenerateColumns="False"
|
||||
@@ -341,7 +342,8 @@
|
||||
<div class="col-md-2" style="text-align: right!important">
|
||||
<asp:Button Text="Generar Proveedores Ant" runat="server" ID="BtnGeneraComprasAnt" Visible="false" OnClick="BtnGeneraComprasAnt_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarComprasAnt" />
|
||||
<asp:HiddenField ID="HdnProveedorAntCvePrePoliza" runat="server" />
|
||||
<asp:Button ID="BtnProveedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresAntRemove_Click" class="btn btn-primary" /></div>
|
||||
<asp:HyperLink ID="HplProveedorAntLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
|
||||
<asp:Button ID="BtnProveedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresAntRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
|
||||
</div>
|
||||
<br />
|
||||
<asp:GridView ID="GvProveedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False"
|
||||
@@ -448,7 +450,8 @@
|
||||
<div class="col-md-3" style="text-align: right!important">
|
||||
<asp:Button Text="Generar Ventas" runat="server" ID="BtnGeneraVentas" Visible="false" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentas" />
|
||||
<asp:HiddenField ID="HdnClienteCvePrePoliza" runat="server" />
|
||||
<asp:Button ID="BtnClientesRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesRemove_Click" class="btn btn-primary" /></div>
|
||||
<asp:HyperLink ID="HplClientesLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
|
||||
<asp:Button ID="BtnClientesRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -558,7 +561,8 @@
|
||||
<div class="col-md-3" style="text-align: right!important">
|
||||
<asp:Button Text="Generar Clientes Anticipos" runat="server" ID="BtnClientesAnticipos" Visible="false" OnClick="BtnClientesAnticipos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentasAnt" />
|
||||
<asp:HiddenField ID="HdnClienteAntCvePrePoliza" runat="server" />
|
||||
<asp:Button ID="BtnClientesAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesAntRemove_Click" class="btn btn-primary" /></div>
|
||||
<asp:HyperLink ID="HplClientesAntLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
|
||||
<asp:Button ID="BtnClientesAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesAntRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -610,7 +614,8 @@
|
||||
<div class="col-md-3" style="text-align: right!important">
|
||||
<asp:Button Text="Generar Acreedores" runat="server" ID="BtnGeneraAcreedores" Visible="false" OnClick="BtnGeneraAcreedores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedores" />
|
||||
<asp:HiddenField ID="HdnAcreedorCvePrePoliza" runat="server" />
|
||||
<asp:Button ID="BtnAcreedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresRemove_Click" class="btn btn-primary" />
|
||||
<asp:HyperLink ID="HplAcreedorLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
|
||||
<asp:Button ID="BtnAcreedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" />
|
||||
</div>
|
||||
|
||||
</div>
|
||||
@@ -659,7 +664,8 @@
|
||||
<div class="col-md-3" style="text-align: right!important">
|
||||
<asp:Button Text="Generar Acreedores Ant" runat="server" ID="BtnGeneraAcreedoresAnt" Visible="false" OnClick="BtnGeneraAcreedoresAnt_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedoresAnt" />
|
||||
<asp:HiddenField ID="HdnAcreedorAntCvePrePoliza" runat="server" />
|
||||
<asp:Button ID="BtnAcreedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresAntRemove_Click" class="btn btn-primary" />
|
||||
<asp:HyperLink ID="HplAcreedorAntLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
|
||||
<asp:Button ID="BtnAcreedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresAntRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" />
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -126,6 +126,9 @@ Partial Class Bancos_FluctuacionCambiaria
|
||||
Dim Final As Double = GanaciaAux - PerdidaAux
|
||||
HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
|
||||
|
||||
HplProveedorLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
|
||||
HplProveedorLiga.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0
|
||||
BtnProveedoresRemove.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0
|
||||
BtnGeneraCompras.Visible = Not HdnProveedorCvePrePoliza.Value.ToEntero > 0
|
||||
|
||||
@@ -165,6 +168,8 @@ Partial Class Bancos_FluctuacionCambiaria
|
||||
HdnProveedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
|
||||
BtnProveedoresAntRemove.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
|
||||
HplProveedorAntLiga.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
|
||||
HplProveedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
|
||||
BtnGeneraComprasAnt.Visible = Not HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
|
||||
|
||||
IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
|
||||
@@ -200,6 +205,9 @@ Partial Class Bancos_FluctuacionCambiaria
|
||||
Dim Final As Double = GanaciaAux - PerdidaAux
|
||||
HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
|
||||
|
||||
HplClientesLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
|
||||
HplClientesLiga.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
|
||||
BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
|
||||
BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0
|
||||
|
||||
@@ -235,6 +243,8 @@ Partial Class Bancos_FluctuacionCambiaria
|
||||
Dim Final As Double = GanaciaAux - PerdidaAux
|
||||
HdnClienteAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
|
||||
HplClientesAntLiga.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0
|
||||
HplClientesAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
|
||||
BtnClientesAntRemove.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0
|
||||
BtnClientesAnticipos.Visible = Not HdnClienteAntCvePrePoliza.Value.ToEntero > 0
|
||||
|
||||
@@ -266,6 +276,9 @@ Partial Class Bancos_FluctuacionCambiaria
|
||||
HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||
BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
|
||||
BtnGeneraAcreedores.Visible = Not HdnAcreedorCvePrePoliza.Value.ToEntero > 0
|
||||
|
||||
HplAcreedorLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
|
||||
HplAcreedorLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
|
||||
GvAcreedores.DataSource = ObjBancos.DtResultados
|
||||
LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||
Else
|
||||
@@ -283,6 +296,9 @@ Partial Class Bancos_FluctuacionCambiaria
|
||||
HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||
BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
|
||||
BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
|
||||
|
||||
HplAcreedorAntLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
|
||||
HplAcreedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
|
||||
GvAcreedoresAnt.DataSource = ObjBancos.DtResultados
|
||||
LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||
Else
|
||||
|
||||
@@ -1884,7 +1884,7 @@ Partial Class Bancos_IE
|
||||
|
||||
If Tipo.Length > 0 Then
|
||||
DdlTipoTransaccion.Items.Clear()
|
||||
DdlTipoTransaccion.DataSource = dt.FiltraParametros($"Tipo = '{Tipo}' ")
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND EstatusTexto = 'Activo' ")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -244,8 +244,22 @@
|
||||
<asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="500" CssClass="form-control input-sm" Rows="3" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
|
||||
<asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
|
||||
</div>
|
||||
<div class="col-md-2 input-icon">
|
||||
<asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
|
||||
<div class="col-md-4 input-icon">
|
||||
<div>
|
||||
<div class="row">
|
||||
<asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-3 input-icon">SubProyecto
|
||||
</div>
|
||||
|
||||
<div class="col-md-3">
|
||||
<asp:DropDownList runat="server" ID="DdlSubProyectoPago" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px" CssClass="select2me" ></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVSubProyectoPago" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectoPago" Display="None" ErrorMessage="El campo <b>'' SubProyecto''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyectoPago" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" id="rowComisiones" visible="false">
|
||||
|
||||
@@ -140,14 +140,19 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
||||
|
||||
DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1"));
|
||||
|
||||
DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
|
||||
DdlSubProyectoPago.DataBind();
|
||||
|
||||
DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1"));
|
||||
|
||||
|
||||
}
|
||||
|
||||
#region"INFORMACION GENERAL"
|
||||
protected void CargaTipoTransaccion()
|
||||
{
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'");
|
||||
DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'");
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1");
|
||||
DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ");
|
||||
|
||||
DdlTipoTransaccion.DataBind();
|
||||
DdlTipoTransanccionPrestamo.DataBind();
|
||||
@@ -448,7 +453,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
||||
}
|
||||
ImporteMN = Importe;
|
||||
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Ref, CveConceptoDiferenciaCambiaria, Conc, DateTime.Now, IdCtaContableDiferenciaCambiaria, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), ImporteME: Importe, TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
|
||||
{
|
||||
MsgError = "No se pudo insertar concepto de diferencia cambiaria";
|
||||
}
|
||||
@@ -457,7 +462,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
||||
}
|
||||
else
|
||||
{
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, Ref, CveConceptoContablePago, Conc, DateTime.Now, IDCtaContableAcreedor, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
|
||||
{
|
||||
MsgError = "No se pudo insertar concepto de pago acreedor";
|
||||
break;
|
||||
@@ -466,7 +471,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
||||
|
||||
if (ImporteComisionMN > 0)
|
||||
{
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoComision, ImporteComision, Ref, 255, Conc, DateTime.Now, IdCtaContableOtrosGastos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComisionMN, CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
|
||||
{
|
||||
MsgError = "No se pudo insertar concepto de pago acreedor";
|
||||
break;
|
||||
@@ -492,14 +497,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
||||
|
||||
}
|
||||
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteMNBanco, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
|
||||
{
|
||||
MsgError = "No se pudo insertar concepto de bancos";
|
||||
}
|
||||
|
||||
if (CveMonedaPago != 1 && UsaComplementaria)
|
||||
{
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
|
||||
{
|
||||
MsgError = "No se pudo insertar concepto de bancos complementaria";
|
||||
}
|
||||
@@ -509,14 +514,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
||||
decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria);
|
||||
if (Dif < 0)
|
||||
{
|
||||
tCveConceptoOtIngresos = 211; TipoMovtoOt = false;
|
||||
tCveConceptoOtIngresos = 65; TipoMovtoOt = false;
|
||||
}
|
||||
else
|
||||
{
|
||||
tCveConceptoOtIngresos = 78; TipoMovtoOt = true;
|
||||
tCveConceptoOtIngresos = 64; TipoMovtoOt = true;
|
||||
}
|
||||
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOt, Dif.Abs(), Ref, tCveConceptoOtIngresos, Conc, DateTime.Now, 0, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: Dif.Abs(), ImporteME: Dif.Abs(), TipoCambio: TCPago, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
|
||||
{
|
||||
MsgError = "No se pudo insertar concepto de ajuste en redondeo";
|
||||
}
|
||||
|
||||
@@ -385,7 +385,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
|
||||
}
|
||||
}
|
||||
|
||||
// DEUDORES - DEUDORES COMPLEMENTARIA
|
||||
// DEUDORES - DEUDORES COMPLEMENTARIAIDCtaContableDeudorPrestamo
|
||||
if (UsaComplementaria) //(IDCtaContableDeudorCompPrestamo > 0)
|
||||
{
|
||||
// DEUDOR COMPLEMENTARIA
|
||||
@@ -403,7 +403,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
|
||||
else
|
||||
{
|
||||
// DEUDOR
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, IDCtaContableDeudorPrestamo, -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, TxtImportePrestamo.Text.ToDecimal(), Ref, CveConceptoContablePrestamo, Conc, DateTime.Now, , -1, CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), ImporteMX: TxtImportePrestamo.Text.ToDecimal() * tipoCambio, ImporteME: TxtImportePrestamo.Text.ToDecimal(), TipoCambio: tipoCambio, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
|
||||
{
|
||||
MsgError = "No se pudo insertar concepto de deudor";
|
||||
}
|
||||
|
||||
Binary file not shown.
BIN
Bin/AjaxControlToolkit.StaticResources.dll.refresh
Normal file
BIN
Bin/AjaxControlToolkit.StaticResources.dll.refresh
Normal file
Binary file not shown.
1
Bin/AjaxControlToolkit.dll.refresh
Normal file
1
Bin/AjaxControlToolkit.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\AjaxControlToolkit.15.1.4.0\lib\net40\AjaxControlToolkit.dll
|
||||
1
Bin/Antlr3.Runtime.dll.refresh
Normal file
1
Bin/Antlr3.Runtime.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Antlr.3.4.1.9004\lib\Antlr3.Runtime.dll
|
||||
BIN
Bin/BarcodeStandard.dll.refresh
Normal file
BIN
Bin/BarcodeStandard.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Bin.rar
Normal file
BIN
Bin/Bin.rar
Normal file
Binary file not shown.
BIN
Bin/Bin_20220223.rar
Normal file
BIN
Bin/Bin_20220223.rar
Normal file
Binary file not shown.
BIN
Bin/ClosedXML.dll.refresh
Normal file
BIN
Bin/ClosedXML.dll.refresh
Normal file
Binary file not shown.
1
Bin/DocumentFormat.OpenXml.dll.refresh
Normal file
1
Bin/DocumentFormat.OpenXml.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll
|
||||
BIN
Bin/ExcelNumberFormat.dll.refresh
Normal file
BIN
Bin/ExcelNumberFormat.dll.refresh
Normal file
Binary file not shown.
1
Bin/Microsoft.AspNet.SignalR.Core.dll.refresh
Normal file
1
Bin/Microsoft.AspNet.SignalR.Core.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.AspNet.SignalR.Core.2.4.1\lib\net45\Microsoft.AspNet.SignalR.Core.dll
|
||||
1
Bin/Microsoft.AspNet.SignalR.SystemWeb.dll.refresh
Normal file
1
Bin/Microsoft.AspNet.SignalR.SystemWeb.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.AspNet.SignalR.SystemWeb.2.4.1\lib\net45\Microsoft.AspNet.SignalR.SystemWeb.dll
|
||||
1
Bin/Microsoft.Bcl.AsyncInterfaces.dll.refresh
Normal file
1
Bin/Microsoft.Bcl.AsyncInterfaces.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Bcl.AsyncInterfaces.5.0.0\lib\net461\Microsoft.Bcl.AsyncInterfaces.dll
|
||||
BIN
Bin/Microsoft.Bcl.HashCode.dll.refresh
Normal file
BIN
Bin/Microsoft.Bcl.HashCode.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.EntityFrameworkCore.Abstractions.dll.refresh
Normal file
BIN
Bin/Microsoft.EntityFrameworkCore.Abstractions.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.EntityFrameworkCore.dll.refresh
Normal file
BIN
Bin/Microsoft.EntityFrameworkCore.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Caching.Abstractions.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Caching.Abstractions.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Caching.Memory.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Caching.Memory.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Configuration.Abstractions.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Configuration.Abstractions.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Configuration.Binder.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Configuration.Binder.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Configuration.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Configuration.dll.refresh
Normal file
Binary file not shown.
Binary file not shown.
BIN
Bin/Microsoft.Extensions.DependencyInjection.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.DependencyInjection.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Logging.Abstractions.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Logging.Abstractions.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Logging.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Logging.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Options.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Options.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Extensions.Primitives.dll.refresh
Normal file
BIN
Bin/Microsoft.Extensions.Primitives.dll.refresh
Normal file
Binary file not shown.
1
Bin/Microsoft.Owin.Host.SystemWeb.dll.refresh
Normal file
1
Bin/Microsoft.Owin.Host.SystemWeb.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Owin.Host.SystemWeb.3.0.1\lib\net45\Microsoft.Owin.Host.SystemWeb.dll
|
||||
1
Bin/Microsoft.Owin.Security.OAuth.dll.refresh
Normal file
1
Bin/Microsoft.Owin.Security.OAuth.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Owin.Security.OAuth.4.1.0\lib\net45\Microsoft.Owin.Security.OAuth.dll
|
||||
BIN
Bin/Microsoft.Owin.Security.dll.refresh
Normal file
BIN
Bin/Microsoft.Owin.Security.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Owin.dll.refresh
Normal file
BIN
Bin/Microsoft.Owin.dll.refresh
Normal file
Binary file not shown.
1
Bin/Microsoft.ReportViewer.Common.dll.refresh
Normal file
1
Bin/Microsoft.ReportViewer.Common.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.ReportViewer.2015.Runtime.12.0.2.2402\lib\Microsoft.ReportViewer.Common.dll
|
||||
BIN
Bin/Microsoft.ReportViewer.Design.dll.refresh
Normal file
BIN
Bin/Microsoft.ReportViewer.Design.dll.refresh
Normal file
Binary file not shown.
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.ReportViewer.2015.Runtime.12.0.2.2402\lib\Microsoft.ReportViewer.ProcessingObjectModel.DLL
|
||||
BIN
Bin/Microsoft.ReportViewer.WebDesign.dll.refresh
Normal file
BIN
Bin/Microsoft.ReportViewer.WebDesign.dll.refresh
Normal file
Binary file not shown.
1
Bin/Microsoft.ReportViewer.WebForms.DLL.refresh
Normal file
1
Bin/Microsoft.ReportViewer.WebForms.DLL.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.ReportViewer.2015.Runtime.12.0.2.2402\lib\Microsoft.ReportViewer.WebForms.DLL
|
||||
1
Bin/Microsoft.SqlServer.Types.dll.refresh
Normal file
1
Bin/Microsoft.SqlServer.Types.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.SqlServer.Types.14.0.1016.290\lib\net40\Microsoft.SqlServer.Types.dll
|
||||
BIN
Bin/Microsoft.Threading.Tasks.Extensions.Desktop.dll.refresh
Normal file
BIN
Bin/Microsoft.Threading.Tasks.Extensions.Desktop.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Threading.Tasks.Extensions.dll.refresh
Normal file
BIN
Bin/Microsoft.Threading.Tasks.Extensions.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Microsoft.Threading.Tasks.dll.refresh
Normal file
BIN
Bin/Microsoft.Threading.Tasks.dll.refresh
Normal file
Binary file not shown.
1
Bin/Microsoft.Web.Infrastructure.dll.refresh
Normal file
1
Bin/Microsoft.Web.Infrastructure.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Web.Infrastructure.1.0.0.0\lib\net40\Microsoft.Web.Infrastructure.dll
|
||||
1
Bin/Microsoft.Web.XmlTransform.dll.refresh
Normal file
1
Bin/Microsoft.Web.XmlTransform.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.Web.Xdt.1.0.0\lib\net40\Microsoft.Web.XmlTransform.dll
|
||||
BIN
Bin/MoreLinq.dll.refresh
Normal file
BIN
Bin/MoreLinq.dll.refresh
Normal file
Binary file not shown.
BIN
Bin/Newtonsoft.Json.dll.refresh
Normal file
BIN
Bin/Newtonsoft.Json.dll.refresh
Normal file
Binary file not shown.
1
Bin/NuGet.Core.dll.refresh
Normal file
1
Bin/NuGet.Core.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\NuGet.Core.2.8.0\lib\net40-Client\NuGet.Core.dll
|
||||
1
Bin/Owin.dll.refresh
Normal file
1
Bin/Owin.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Owin.1.0\lib\net40\Owin.dll
|
||||
BIN
Bin/StackExchange.Redis.StrongName.dll.refresh
Normal file
BIN
Bin/StackExchange.Redis.StrongName.dll.refresh
Normal file
Binary file not shown.
1
Bin/System.Buffers.dll.refresh
Normal file
1
Bin/System.Buffers.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.Buffers.4.5.1\lib\net461\System.Buffers.dll
|
||||
1
Bin/System.Collections.Immutable.dll.refresh
Normal file
1
Bin/System.Collections.Immutable.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.Collections.Immutable.1.7.1\lib\net461\System.Collections.Immutable.dll
|
||||
1
Bin/System.ComponentModel.Annotations.dll.refresh
Normal file
1
Bin/System.ComponentModel.Annotations.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.ComponentModel.Annotations.4.7.0\lib\net461\System.ComponentModel.Annotations.dll
|
||||
BIN
Bin/System.Data.SqlClient.dll.refresh
Normal file
BIN
Bin/System.Data.SqlClient.dll.refresh
Normal file
Binary file not shown.
1
Bin/System.Diagnostics.DiagnosticSource.dll.refresh
Normal file
1
Bin/System.Diagnostics.DiagnosticSource.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.Diagnostics.DiagnosticSource.4.7.1\lib\net46\System.Diagnostics.DiagnosticSource.dll
|
||||
BIN
Bin/System.IO.FileSystem.Primitives.dll.refresh
Normal file
BIN
Bin/System.IO.FileSystem.Primitives.dll.refresh
Normal file
Binary file not shown.
1
Bin/System.Memory.dll.refresh
Normal file
1
Bin/System.Memory.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.Memory.4.5.4\lib\net461\System.Memory.dll
|
||||
1
Bin/System.Numerics.Vectors.dll.refresh
Normal file
1
Bin/System.Numerics.Vectors.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.Numerics.Vectors.4.5.0\lib\net46\System.Numerics.Vectors.dll
|
||||
1
Bin/System.Runtime.CompilerServices.Unsafe.dll.refresh
Normal file
1
Bin/System.Runtime.CompilerServices.Unsafe.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.Runtime.CompilerServices.Unsafe.5.0.0\lib\net45\System.Runtime.CompilerServices.Unsafe.dll
|
||||
1
Bin/System.Text.Json.dll.refresh
Normal file
1
Bin/System.Text.Json.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.Text.Json.5.0.2\lib\net461\System.Text.Json.dll
|
||||
1
Bin/System.Threading.Tasks.Extensions.dll.refresh
Normal file
1
Bin/System.Threading.Tasks.Extensions.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll
|
||||
1
Bin/System.ValueTuple.dll.refresh
Normal file
1
Bin/System.ValueTuple.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll
|
||||
1
Bin/System.Web.Optimization.dll.refresh
Normal file
1
Bin/System.Web.Optimization.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\Microsoft.AspNet.Web.Optimization.1.1.3\lib\net40\System.Web.Optimization.dll
|
||||
1
Bin/WebGrease.dll.refresh
Normal file
1
Bin/WebGrease.dll.refresh
Normal file
@@ -0,0 +1 @@
|
||||
C:\Users\Caudillo\source\repos\localhost_85\packages\WebGrease.1.6.0\lib\WebGrease.dll
|
||||
BIN
Bin/log4net.dll.refresh
Normal file
BIN
Bin/log4net.dll.refresh
Normal file
Binary file not shown.
@@ -410,7 +410,7 @@
|
||||
<label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<div id="DivPS" runat="server" class="form-group form-md-line-input input-iconright">
|
||||
<label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||
</div>
|
||||
@@ -441,7 +441,7 @@
|
||||
<label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor Asignado:</label>
|
||||
<asp:RequiredFieldValidator ID="RFVVen" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlVendedor" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivMedioCaptacion" runat="server" class="form-group col-md-6 form-md-line-input input-iconright" >
|
||||
<asp:DropDownList ID="DdlMedioCaptacion" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" Class="form-control input-sm select2me"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" InitialValue="-1" runat="server" ControlToValidate="DdlMedioCaptacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> El campo <b>''Medio de Captación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlMedioCaptacion.ClientID.ToString()%>" style="width: 90%">Medio de Captación:</label>
|
||||
@@ -449,13 +449,13 @@
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivImporte" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
|
||||
<%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
|
||||
<label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivComision" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtComision" CssClass="form-control " runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
|
||||
<%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
|
||||
<label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label>
|
||||
@@ -463,7 +463,7 @@
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivProbabilidadAcercamiento" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlProbabilidadAcercamiento" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" Class="form-control input-sm select2me"></asp:DropDownList>
|
||||
<label for="<%= DdlProbabilidadAcercamiento.ClientID.ToString()%>">Probabilidad:</label>
|
||||
</div>
|
||||
|
||||
@@ -319,6 +319,19 @@ public partial class CRM_Acercamiento : ClsPaginas
|
||||
{
|
||||
LblEncabezadoAcercamiento.Text = String.Format("<span class='bold' style='color: #32c5d2;'>{0}:</span> {1}", objAcercamiento.Result[0].TipoProceso.ToUpper(), objAcercamiento.Result[0].NombreAcercamiento.ToUpper());
|
||||
CveTipoProceso = objAcercamiento.Result[0].CveTipoProceso.ToEntero();
|
||||
|
||||
RequestTipoProceso tipoProceso = new RequestTipoProceso(UsuarioActual.CveEmpresa, 1, CveTipoProceso);
|
||||
var ObjTipoProceso = cRMService.GetTipoProcesoCRM(tipoProceso);
|
||||
var responsetipoProceso = ObjTipoProceso.Result.FirstOrDefault();
|
||||
if (responsetipoProceso != null)
|
||||
{
|
||||
DivComision.Visible = responsetipoProceso.RequiereComision;
|
||||
DivMedioCaptacion.Visible = responsetipoProceso.RequiereMedioCaptacion;
|
||||
DivImporte.Visible = responsetipoProceso.RequiereImporte;
|
||||
DivProbabilidadAcercamiento.Visible = responsetipoProceso.RequiereProbabilidadAcercamiento;
|
||||
DivPS.Visible = responsetipoProceso.RequierePS;
|
||||
}
|
||||
|
||||
//SECCION DATOS DEL ACERCAMIENTO
|
||||
TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento;
|
||||
TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion;
|
||||
|
||||
@@ -23,8 +23,8 @@
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkImprimir"/>
|
||||
<asp:PostBackTrigger ControlID="LnkImprimirExcel"/>
|
||||
<asp:PostBackTrigger ControlID="LnkImprimir" />
|
||||
<asp:PostBackTrigger ControlID="LnkImprimirExcel" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
@@ -37,7 +37,9 @@
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVTiposProcesos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVTiposProcesos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<asp:GridView ID="GVTiposProcesos" runat="server" DataKeyNames="CveTipoProceso,TipoProceso, Descripcion, NoEtapas, Estatus, CveEstatus, UsuarioIng, CveUsuarioIng, FechaIng" EmptyDataText="No se han registrado Tipos de Procesos"
|
||||
<asp:GridView ID="GVTiposProcesos" runat="server" DataKeyNames="CveTipoProceso,TipoProceso, Descripcion, NoEtapas, Estatus, CveEstatus, UsuarioIng, CveUsuarioIng, FechaIng,
|
||||
RequiereMedioCaptacion,RequiereImporte,RequiereProbabilidadAcercamiento,RequierePS,RequiereComision"
|
||||
EmptyDataText="No se han registrado Tipos de Procesos"
|
||||
EmptyDataRowStyle-HorizontalAlign="Center" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" data-sort="true"
|
||||
GridLines="None" AutoGenerateColumns="false" OnRowDeleting="GVTiposProcesos_RowDeleting" OnRowDataBound="GVTiposProcesos_RowDataBound">
|
||||
<Columns>
|
||||
@@ -102,6 +104,33 @@
|
||||
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright" id="Div1" runat="server">
|
||||
<label runat="server" id="Label1" for="<%= ChkRequiereMedioCaptacion.ClientID.ToString()%>">Requiere Medio de Captación:</label>
|
||||
<asp:CheckBox ID="ChkRequiereMedioCaptacion" runat="server" />
|
||||
</div>
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright" id="Div2" runat="server">
|
||||
<label runat="server" id="Label2" for="<%= ChkRequiereImporte.ClientID.ToString()%>">Requiere Importe:</label>
|
||||
<asp:CheckBox ID="ChkRequiereImporte" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright" id="Div3" runat="server">
|
||||
<label runat="server" id="Label3" for="<%= ChkRequiereProbabilidadAcercamiento.ClientID.ToString()%>">Requiere Probabilidad de Acercamiento:</label>
|
||||
<asp:CheckBox ID="ChkRequiereProbabilidadAcercamiento" runat="server" />
|
||||
</div>
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright" id="Div4" runat="server">
|
||||
<label runat="server" id="Label4" for="<%= ChkRequierePS.ClientID.ToString()%>">Requiere PS:</label>
|
||||
<asp:CheckBox ID="ChkRequierePS" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" id="Div5" runat="server">
|
||||
<label runat="server" id="Label5" for="<%= ChkRequiereComision.ClientID.ToString()%>">Requiere Comisión:</label>
|
||||
<asp:CheckBox ID="ChkRequiereComision" runat="server" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" id="DivEstatus" runat="server">
|
||||
<label runat="server" id="lblEstatus" for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" />
|
||||
|
||||
@@ -86,6 +86,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas
|
||||
TxtTipoProceso.Text = "";
|
||||
TxtDescripcion.Text = "";
|
||||
ChkEstatus.Checked = true;
|
||||
ChkRequiereMedioCaptacion.Checked = false;
|
||||
ChkRequiereImporte.Checked = false;
|
||||
ChkRequiereProbabilidadAcercamiento.Checked = false;
|
||||
ChkRequierePS.Checked = false;
|
||||
ChkRequiereComision.Checked = false;
|
||||
}
|
||||
#endregion
|
||||
|
||||
@@ -110,6 +115,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas
|
||||
TxtTipoProceso.Text = GvRow.DataKey("TipoProceso").ToString();
|
||||
TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString();
|
||||
ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false;
|
||||
ChkRequiereMedioCaptacion.Checked = GvRow.DataKey("RequiereMedioCaptacion").ToString() == "True" ? true : false;
|
||||
ChkRequiereImporte.Checked = GvRow.DataKey("RequiereImporte").ToString() == "True" ? true : false;
|
||||
ChkRequiereProbabilidadAcercamiento.Checked = GvRow.DataKey("RequiereProbabilidadAcercamiento").ToString() == "True" ? true : false;
|
||||
ChkRequierePS.Checked = GvRow.DataKey("RequierePS").ToString() == "True" ? true : false;
|
||||
ChkRequiereComision.Checked = GvRow.DataKey("RequiereComision").ToString() == "True" ? true : false;
|
||||
|
||||
UPModalTipoProceso.Update();
|
||||
|
||||
@@ -128,14 +138,16 @@ public partial class CRM_CatTipoProceso : ClsPaginas
|
||||
|
||||
if (EsEditar == 0)
|
||||
{
|
||||
if (ObjCRM.AddTipoProceso(TipoProceso, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng))
|
||||
if (ObjCRM.AddTipoProceso(TipoProceso, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng,ChkRequiereMedioCaptacion.Checked,ChkRequiereImporte.Checked,
|
||||
ChkRequiereProbabilidadAcercamiento.Checked,ChkRequierePS.Checked,ChkRequiereComision.Checked))
|
||||
{
|
||||
Alert("El Tipo de Proceso fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if (ObjCRM.UpdateTipoProceso(TipoProceso, Descripcion, Estatus, CveTipoProceso))
|
||||
if (ObjCRM.UpdateTipoProceso(TipoProceso, Descripcion, Estatus, CveTipoProceso, ChkRequiereMedioCaptacion.Checked, ChkRequiereImporte.Checked,
|
||||
ChkRequiereProbabilidadAcercamiento.Checked, ChkRequierePS.Checked, ChkRequiereComision.Checked))
|
||||
{
|
||||
Alert("El Tipo de Proceso fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
|
||||
}
|
||||
|
||||
@@ -625,7 +625,7 @@
|
||||
<asp:RequiredFieldValidator ID="RFVVen" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlVendedor" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivMedioCaptacion" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlMedioCaptacionAcercamiento" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me"></asp:DropDownList>
|
||||
<label for="<%= DdlMedioCaptacionAcercamiento.ClientID.ToString()%>" ><span style="color: #F3565D">*</span>Medio de Captación(depende de 'Proceso'):</label>
|
||||
<asp:RequiredFieldValidator ID="RfvMedioCaptacionAcercamiento" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlMedioCaptacionAcercamiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medio Captación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
|
||||
@@ -651,13 +651,13 @@
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivImporte" runat="server" class="form-group col-md-6 form-md-line-input input-iconright" >
|
||||
<asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server" MaxLength="15" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
|
||||
<%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
|
||||
<label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe de Venta:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivComision" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtComision" Text="0.00" CssClass="form-control " runat="server" MaxLength="15" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
|
||||
<%--<asp:RequiredFieldValidator ID="RFVTxtPuestoContactoProveedor" runat="server" ControlToValidate="TxtPuestoContactoProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarContactoProveedor"></asp:RequiredFieldValidator>--%>
|
||||
<label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label>
|
||||
@@ -665,7 +665,7 @@
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivProbabilidadAcercamiento" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlProbabilidadAcercamiento" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" Class="form-control input-sm select2me"></asp:DropDownList>
|
||||
<label for="<%= DdlProbabilidadAcercamiento.ClientID.ToString()%>"><span style="color: #F3565D">*</span> Probabilidad de Acercamiento:</label>
|
||||
<asp:RequiredFieldValidator ID="RFVProbabilidad" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlProbabilidadAcercamiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Probabilidad''</b> es necesario." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
|
||||
@@ -682,7 +682,7 @@
|
||||
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<div id="DivPS" runat="server" class="form-group col-md-6 form-md-line-input input-iconright">
|
||||
<label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||
</div>
|
||||
|
||||
@@ -238,6 +238,19 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
ViewState["CveGiroClasificacion"] = value;
|
||||
}
|
||||
}
|
||||
|
||||
private List<ResponseTipoProceso> ListTipoProceso
|
||||
{
|
||||
get
|
||||
{
|
||||
return (List<ResponseTipoProceso>)ViewState["ListTipoProceso"];
|
||||
}
|
||||
|
||||
set
|
||||
{
|
||||
ViewState["ListTipoProceso"] = value;
|
||||
}
|
||||
}
|
||||
#endregion
|
||||
|
||||
protected void Page_Load(object sender, EventArgs e)
|
||||
@@ -794,6 +807,20 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
|
||||
protected void DdlTipoProceso_Change(object sender, EventArgs e)
|
||||
{
|
||||
|
||||
var tipoProceso = ListTipoProceso.Where(x => x.CveTipoProceso == DdlTipoProceso.SelectedValue.ToEntero()).FirstOrDefault();
|
||||
if (tipoProceso != null)
|
||||
{
|
||||
DivComision.Visible = tipoProceso.RequiereComision;
|
||||
DivMedioCaptacion.Visible = tipoProceso.RequiereMedioCaptacion;
|
||||
DivImporte.Visible = tipoProceso.RequiereImporte;
|
||||
DivProbabilidadAcercamiento.Visible = tipoProceso.RequiereProbabilidadAcercamiento;
|
||||
DivPS.Visible = tipoProceso.RequierePS;
|
||||
}
|
||||
|
||||
RfvMedioCaptacionAcercamiento.Enabled = DivMedioCaptacion.Visible;
|
||||
RFVProbabilidad.Enabled = DivProbabilidadAcercamiento.Visible;
|
||||
|
||||
DdlMedioCaptacionAcercamiento.Items.Clear();
|
||||
DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
|
||||
DdlMedioCaptacionAcercamiento.DataBind();
|
||||
@@ -1520,6 +1547,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
DdlMedioCaptacionAcercamiento.Enabled = false;
|
||||
DdlTipoProceso.DataBind();
|
||||
}
|
||||
ListTipoProceso = ObjTipoProceso.Result;
|
||||
|
||||
if (ObjProbalidadAcercamiento.Result.Count > 0)
|
||||
{
|
||||
|
||||
@@ -8690,6 +8690,8 @@ Partial Class Compras_Compras
|
||||
Dim DTConsultaIEPSPS As New DataTable
|
||||
DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'")
|
||||
|
||||
|
||||
|
||||
Dim IndiceContador As Integer = 0
|
||||
Dim IndicePrimero As Integer = 0
|
||||
|
||||
@@ -8703,17 +8705,14 @@ Partial Class Compras_Compras
|
||||
|
||||
If DiferenciaIEPSPS.RoundAD(2) <> 0 Then
|
||||
|
||||
If DTConsultaIEPSPS.Rows.Count > 0 Then
|
||||
'Ajusta IPES en primer registro que aplique IEPS
|
||||
TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS
|
||||
TmpDT.AcceptChanges()
|
||||
Else
|
||||
Respuesta = False
|
||||
Alert(String.Format("Los productos especificados en el listado no tienen asigando impuesto IEPS, favor de realizar la corrección en el producto que aplique el impuesto. ({0}-{1})", IEPSPSDetalles, TxtIEPS.Text.ToDecimal), TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS
|
||||
TmpDT.AcceptChanges()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
|
||||
If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then
|
||||
|
||||
@@ -1271,6 +1271,11 @@ Partial Class PopUpVerFactura
|
||||
DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
|
||||
DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))
|
||||
|
||||
Dim DTRelacionados As New DataTable()
|
||||
DTRelacionados.Columns.Add(New DataColumn("Relacion", GetType(String)))
|
||||
DTRelacionados.Columns.Add(New DataColumn("UUID", GetType(String)))
|
||||
|
||||
|
||||
Dim XMLDoc As New XmlDocument
|
||||
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml")
|
||||
Dim Archivo As New System.IO.FileInfo(Path)
|
||||
@@ -1449,10 +1454,59 @@ Partial Class PopUpVerFactura
|
||||
End If
|
||||
|
||||
|
||||
|
||||
DtUbicaciones.Rows.Add(Row)
|
||||
Next
|
||||
|
||||
|
||||
|
||||
Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
|
||||
|
||||
If nodeRelacion IsNot Nothing Then
|
||||
Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion")
|
||||
Dim Relacion As String = ""
|
||||
|
||||
Select Case RelacionCodigo
|
||||
Case "01"
|
||||
Relacion = "01 - Nota de crédito de los documentos relacionados"
|
||||
Case "02"
|
||||
Relacion = "02 - Nota de débito de los documentos relacionados"
|
||||
Case "03"
|
||||
Relacion = "03 - Devolución de mercancía sobre facturas o traslados previos"
|
||||
Case "04"
|
||||
Relacion = "04 - Sustitución de los CFDI previos"
|
||||
Case "05"
|
||||
Relacion = "05 - Traslados de mercancias facturados previamente"
|
||||
Case "06"
|
||||
Relacion = "06 - Factura generada por los traslados previos"
|
||||
Case "07"
|
||||
Relacion = "07 - CFDI por aplicación de anticipo"
|
||||
Case "08"
|
||||
Relacion = "08 - Factura generada por pagos en parcialidades"
|
||||
Case "09"
|
||||
Relacion = "09 - Factura generada por pagos diferidos"
|
||||
|
||||
End Select
|
||||
|
||||
Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
|
||||
For Each node As XmlNode In nodoDocumentosRealcionados
|
||||
|
||||
Dim nRow As DataRow = DTRelacionados.NewRow
|
||||
nRow("Relacion") = Relacion
|
||||
|
||||
Try
|
||||
Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
|
||||
nRow("UUID") = ValorXML(nodoUUID, "UUID", "")
|
||||
Catch ex As Exception
|
||||
nRow("UUID") = ""
|
||||
End Try
|
||||
|
||||
DTRelacionados.Rows.Add(nRow)
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
|
||||
If nodeTFD IsNot Nothing Then
|
||||
FolioFiscal = ValorXML(nodeTFD, "UUID", "")
|
||||
@@ -1567,6 +1621,12 @@ Partial Class PopUpVerFactura
|
||||
rds4.Value = DtOperadores
|
||||
lrds.Add(rds4)
|
||||
|
||||
|
||||
Dim rds5 As New ReportDataSource
|
||||
rds5.Name = "DataSet5"
|
||||
rds5.Value = DTRelacionados
|
||||
lrds.Add(rds5)
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -25,6 +25,15 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
ViewState("CveMoneda") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CvePrePolizaComprobacion As Integer
|
||||
Get
|
||||
Return ViewState("CvePrePolizaComprobacion").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CvePrePolizaComprobacion") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IdCuentaBancaria As Integer
|
||||
Get
|
||||
Return ViewState("IdCuentaBancaria").ToString.ToEntero
|
||||
@@ -316,7 +325,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
If dr IsNot Nothing Then
|
||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
|
||||
If HdnTipoTransaccion.Value = "Egs" Then
|
||||
@@ -383,9 +391,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim ValFechaDocumento As Boolean = False
|
||||
Dim FoliosFechasValFechaDocumento As New StringBuilder
|
||||
|
||||
@@ -408,16 +413,11 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
FechaDocumento = TxtFechaPrePoliza.Text.ToDate
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim AnioFactura As Integer = FechaFactura.Year
|
||||
Dim MesFactura As Integer = FechaFactura.Month
|
||||
|
||||
|
||||
Dim AnioDocumento As Integer = FechaDocumento.Year
|
||||
Dim MesDocumento As Integer = FechaDocumento.Month
|
||||
|
||||
|
||||
If AnioFactura > AnioDocumento Then
|
||||
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
@@ -441,8 +441,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If HdnCheque.Value.ToEntero > 0 And ChkChequeExcedente.Checked And TxtImporte.Text.ToDecimal = 0 Then
|
||||
Alert("El importe del cheque excedente debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
@@ -488,8 +486,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
Dim UsaSimplificacionCajaChica As Boolean = False
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then UsaSimplificacionCajaChica = True
|
||||
|
||||
|
||||
|
||||
Dim concepto As String = "Compras: "
|
||||
|
||||
For Each Gvr As GridViewRow In GvCxP.Rows
|
||||
@@ -502,7 +498,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
|
||||
Next
|
||||
|
||||
|
||||
If HdnCheque.Value.ToEntero > 0 AndAlso Not ChkReembolsarSinBancos.Checked Then
|
||||
CveIERegistrado = DDlCheques.SelectedValue.ToEntero
|
||||
|
||||
@@ -514,7 +509,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
|
||||
@@ -535,7 +529,11 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones2", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
IdPoliza = drp("IdPoliza").ToString.ToEntero
|
||||
Else
|
||||
CvePrePolizaIERegistrado = drp("CvePrePoliza").ToString.ToEntero
|
||||
If UsuarioActual.CveEmpresa = 141 Then
|
||||
CvePrePolizaIERegistrado = CvePrePolizaComprobacion
|
||||
Else
|
||||
CvePrePolizaIERegistrado = drp("CvePrePoliza").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -544,7 +542,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
If dr IsNot Nothing Then
|
||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
|
||||
If ChkChequeExcedente.Checked Then
|
||||
@@ -568,7 +565,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
|
||||
@@ -597,7 +593,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
|
||||
@@ -646,14 +641,12 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
If ObjMov.GetRetCuenta(29, CvePersonal) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaPersonal = ObjMov.DtResultados.Rows(0)("IdCtaContPersonal").ToString.ToEntero
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaPersonal = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -933,6 +926,31 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Case 5
|
||||
ConceptoContableRetIVAXAcreditar = 285
|
||||
ConceptoContableRetIVAAcreditable = 286
|
||||
If IdCtaRetIVA > 0 Then
|
||||
IdCtaContableRetIVAXAcreditar = IdCtaRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(577).ToEntero > 0 Then
|
||||
IdCtaContableRetIVAXAcreditar = UsuarioActual.Empresa.Funcionalidad(577).ToEntero
|
||||
Else
|
||||
If ObjMov.GetRetCuenta(ConceptoContableRetIVAXAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableRetIVAXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If IdCtaRetIVA > 0 Then
|
||||
IdCtaContableRetIVAAcreditable = IdCtaRetIVA
|
||||
ElseIf UsuarioActual.Empresa.Funcionalidad(578).ToEntero > 0 Then
|
||||
IdCtaContableRetIVAAcreditable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
Else
|
||||
If ObjMov.GetRetCuenta(ConceptoContableRetIVAAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableRetIVAAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||
If ImporteMovto = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then
|
||||
@@ -959,84 +977,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
|
||||
'If MsgError = "" AndAlso gvr.DataKey("RetISR").ToDecimal > 0 Then
|
||||
' Dim ConceptoContableRetISRXAcreditar = 0, ConceptoContableRetISRAcreditable = 0, IdCtaContableRetISRXAcreditar = 0, IdCtaContableRetISRAcreditable = 0
|
||||
' Select Case gvr.DataKey("CveRetISRConcepto").ToEntero
|
||||
' Case 1
|
||||
' ConceptoContableRetISRXAcreditar = 16
|
||||
' ConceptoContableRetISRAcreditable = 23
|
||||
' If IdCtaRetISR > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = IdCtaRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = UsuarioActual.Empresa.Funcionalidad(315).ToEntero
|
||||
' Else
|
||||
' If ObjMov.GetRetCuenta(ConceptoContableRetISRXAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' If IdCtaRetISR > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = IdCtaRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
|
||||
' Else
|
||||
' If ObjMov.GetRetCuenta(ConceptoContableRetISRAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' Case 2
|
||||
' ConceptoContableRetISRXAcreditar = 243
|
||||
' ConceptoContableRetISRAcreditable = 244
|
||||
' If IdCtaRetISR > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = IdCtaRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = UsuarioActual.Empresa.Funcionalidad(317).ToEntero
|
||||
' Else
|
||||
' If ObjMov.GetRetCuenta(ConceptoContableRetISRXAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' If IdCtaRetISR > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = IdCtaRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
|
||||
' Else
|
||||
' If ObjMov.GetRetCuenta(ConceptoContableRetISRAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' End Select
|
||||
' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||
' If ImporteMovto = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then
|
||||
' 'Agrego el RetISR
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("RetISR").ToDecimal, Referencia, ConceptoContableRetISRXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRXAcreditar, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
|
||||
' MsgError = "Detalle"
|
||||
' End If
|
||||
|
||||
' 'Agrego el RetISR
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("RetISR").ToDecimal, Referencia, ConceptoContableRetISRAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRAcreditable, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
|
||||
' MsgError = "Detalle"
|
||||
' End If
|
||||
' End If
|
||||
' Else
|
||||
' 'Agrego el RetISR
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetISRXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRXAcreditar, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
|
||||
' MsgError = "Detalle"
|
||||
' End If
|
||||
|
||||
' 'Agrego el RetISR
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetISRAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRAcreditable, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
|
||||
' MsgError = "Detalle"
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
|
||||
Dim SaldoExcedente As Double = gvr.FCTextBox("TxtSaldoExcedente").Text.ToDecimal
|
||||
|
||||
@@ -1282,71 +1223,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
|
||||
'If MsgError = "" AndAlso gvr.DataKey("RetISR").ToDecimal > 0 Then
|
||||
' Dim ConceptoContableRetISRXAcreditar = 0, ConceptoContableRetISRAcreditable = 0, IdCtaContableRetISRXAcreditar = 0, IdCtaContableRetISRAcreditable = 0
|
||||
' Select Case gvr.DataKey("CveRetISRConcepto").ToEntero
|
||||
' Case 1
|
||||
' ConceptoContableRetISRXAcreditar = 16
|
||||
' ConceptoContableRetISRAcreditable = 23
|
||||
' If IdCtaRetISR > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = IdCtaRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = UsuarioActual.Empresa.Funcionalidad(315).ToEntero
|
||||
' Else
|
||||
' If ObjMov.GetRetCuenta(ConceptoContableRetISRXAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' If IdCtaRetISR > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = IdCtaRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
|
||||
' Else
|
||||
' If ObjMov.GetRetCuenta(ConceptoContableRetISRAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' Case 2
|
||||
' ConceptoContableRetISRXAcreditar = 243
|
||||
' ConceptoContableRetISRAcreditable = 244
|
||||
' If IdCtaRetISR > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = IdCtaRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = UsuarioActual.Empresa.Funcionalidad(317).ToEntero
|
||||
' Else
|
||||
' If ObjMov.GetRetCuenta(ConceptoContableRetISRXAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContableRetISRXAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' If IdCtaRetISR > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = IdCtaRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
|
||||
' Else
|
||||
' If ObjMov.GetRetCuenta(ConceptoContableRetISRAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContableRetISRAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' End Select
|
||||
|
||||
' 'Agrego el RetISR
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetISRXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRXAcreditar, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaExcedente, CvePersonal:=CvePersonal) Then
|
||||
' MsgError = "Detalle"
|
||||
' End If
|
||||
|
||||
' 'Agrego el RetISR
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("RetISR").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetISRAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetISRAcreditable, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetISR").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaExcedente, CvePersonal:=CvePersonal) Then
|
||||
' MsgError = "Detalle"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -1408,31 +1284,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
AutoConta = False
|
||||
End If
|
||||
|
||||
If AutoConta And MsgError.Trim = "" AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
|
||||
If CvePrePolizaIERegistrado > 0 Then
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaPersonal > 0 Then
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaProveedor > 0 Then
|
||||
|
||||
Else
|
||||
MsgError = "No tiene cuenta contable SIG de proveedor"
|
||||
End If
|
||||
Else
|
||||
MsgError = "No tiene cuenta contable SIG de personal"
|
||||
End If
|
||||
End If
|
||||
|
||||
If ChkChequeExcedente.Checked Then
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaBancaria > 0 Then
|
||||
If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaProveedor > 0 Then
|
||||
|
||||
Else
|
||||
MsgError = "No tiene cuenta contable SIG de proveedor"
|
||||
End If
|
||||
Else
|
||||
MsgError = "No tiene Cuenta contable SIG Bancaria"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'Conta ContPAQ AUTOMATICA
|
||||
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError.Trim = "" Then
|
||||
@@ -1626,6 +1477,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim))
|
||||
DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0")
|
||||
GvCxP.DataSource = DtDatos
|
||||
CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero
|
||||
|
||||
'Limpia Ddl Chequesventas
|
||||
DDlCheques.Items.Clear()
|
||||
|
||||
@@ -253,13 +253,6 @@
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="row" runat="server" id="divAgruparMes" visible="false">
|
||||
<div class="col-md-1"><span>Ver por meses:</span></div>
|
||||
<div class="col-md-1">
|
||||
<asp:CheckBox runat="server" ID="chkAgruparMes"/>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div id="DivEmpresasFiltro" runat="server" visible="false">
|
||||
<div class="col-md-1 truncate">
|
||||
@@ -269,11 +262,16 @@
|
||||
<asp:ListBox ID="DdlEmpresas" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Empresa" DataValueField="CveEmpresa"></asp:ListBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
|
||||
<div runat="server" id="divAgruparMes" visible="false">
|
||||
<div class="col-md-1 truncate ">Ver por meses: </div>
|
||||
<div class="col-md-1 truncate ">
|
||||
<asp:CheckBox runat="server" ID="chkAgruparMes"/>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-1 truncate" title="Moneda:" data-toggle="tooltip" data-placement="top">
|
||||
Moneda:
|
||||
</div>
|
||||
|
||||
<div class="col-md-2">
|
||||
<div class="col-md-1 truncate">
|
||||
<asp:DropDownList ID="DdlMoneda" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
|
||||
<asp:ListItem Text="Pesos" Value="1"></asp:ListItem>
|
||||
|
||||
@@ -26,33 +26,18 @@ Partial Class Contabilidad_FiltraPolizas
|
||||
End Property
|
||||
|
||||
|
||||
Public Property ContabilidadSIG As Boolean
|
||||
Get
|
||||
If ViewState("ContabilidadSIG") Is Nothing Then
|
||||
ViewState("ContabilidadSIG") = False
|
||||
End If
|
||||
|
||||
Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
|
||||
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("ContabilidadSIG") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
|
||||
If Not Page.IsPostBack Then
|
||||
ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
|
||||
ViewState("Orden") = ""
|
||||
DdlPeriodo.SelectedValue = Now.Month.ToString
|
||||
TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
|
||||
TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
|
||||
|
||||
If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then
|
||||
If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.TipoContabilidad > 0 Then
|
||||
|
||||
CargaSegmentoNeg()
|
||||
CargaEjercicios()
|
||||
@@ -81,7 +66,7 @@ Partial Class Contabilidad_FiltraPolizas
|
||||
Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
|
||||
Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
|
||||
|
||||
If ContabilidadSIG Then
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
@@ -123,7 +108,7 @@ Partial Class Contabilidad_FiltraPolizas
|
||||
|
||||
DdlSegmentoNeg.Items.Clear()
|
||||
|
||||
If ContabilidadSIG Then
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
DdlSegmentoNeg.DataValueField = "CveSubProyecto"
|
||||
DdlSegmentoNeg.DataTextField = "SubProyecto"
|
||||
DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
@@ -148,7 +133,7 @@ Partial Class Contabilidad_FiltraPolizas
|
||||
|
||||
DdlEjercicio.Items.Clear()
|
||||
|
||||
If ContabilidadSIG Then
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
@@ -603,7 +588,7 @@ Partial Class Contabilidad_FiltraPolizas
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If ContabilidadSIG Then
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
|
||||
e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
|
||||
e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"
|
||||
|
||||
@@ -28,7 +28,7 @@ Partial Class Contabilidad_PolizasImpresion
|
||||
|
||||
If Not IsPostBack Then
|
||||
|
||||
ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
|
||||
ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad = 1
|
||||
|
||||
TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
|
||||
TxtFechaFin.Text = Now.ToShortDateString
|
||||
|
||||
@@ -607,7 +607,6 @@
|
||||
<%--<asp:HiddenField ID="HdnSubProyecto" runat="server" Value='<%# Eval("CveSubProyecto") %>' />--%>
|
||||
<%--<asp:DropDownList ID="DdlSubProyecto" runat="server" Width="150px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />--%>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" Width="150px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>TipoGasto</HeaderTemplate>
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user