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="row">
|
||||||
<div class="col-md-4 ">
|
<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>
|
||||||
|
|
||||||
<div class="col-md-3">
|
<div class="col-md-3">
|
||||||
<div class="form-group">
|
<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;">
|
<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 ">
|
<span class="input-group-btn ">
|
||||||
<asp:LinkButton ID="ImgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
<asp:LinkButton ID="ImgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
</span>
|
</span>
|
||||||
</div>
|
</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: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>
|
<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: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 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: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="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>
|
<ajax:ValidatorCalloutExtender ID="VCOFechaCompra2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCompra" Width="350px" BehaviorID="_content_VCOFechaCompra2"></ajax:ValidatorCalloutExtender>
|
||||||
<i></i>
|
<i></i>
|
||||||
@@ -248,6 +248,35 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</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>
|
||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
@@ -1156,65 +1185,79 @@
|
|||||||
<ajax:TabPanel ID="TabServyMant" runat="server" HeaderText="Servicios y Mto">
|
<ajax:TabPanel ID="TabServyMant" runat="server" HeaderText="Servicios y Mto">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<asp:Literal ID="Literal2" runat="server"></asp:Literal>
|
<asp:Literal ID="Literal2" runat="server"></asp:Literal>
|
||||||
<div class="portlet box blue-hoki" style="width: 100%;">
|
|
||||||
<div class="portlet-title">
|
|
||||||
<div class="caption">
|
<asp:UpdatePanel runat="server" ID="UpMantenimientos" UpdateMode="Conditional">
|
||||||
<i class="fa fa-cog"></i>Servicios
|
<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>
|
||||||
</div>
|
|
||||||
<asp:UpdatePanel ID="UpServMant" class="portlet-body" runat="server" UpdateMode="Conditional">
|
</ContentTemplate>
|
||||||
<ContentTemplate>
|
</asp:UpdatePanel>
|
||||||
<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>
|
</ContentTemplate>
|
||||||
</ajax:TabPanel>
|
</ajax:TabPanel>
|
||||||
|
|
||||||
@@ -2076,7 +2119,147 @@
|
|||||||
</table>
|
</table>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</ajax:TabPanel>
|
</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>
|
</ajax:TabContainer>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
</td>
|
</td>
|
||||||
@@ -3106,6 +3289,261 @@
|
|||||||
</div>
|
</div>
|
||||||
</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>
|
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
|
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
|||||||
645
AF/AF.aspx.vb
645
AF/AF.aspx.vb
@@ -245,6 +245,44 @@ Partial Class AF_AF
|
|||||||
|
|
||||||
#End Region
|
#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
|
#End Region
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
@@ -260,9 +298,12 @@ Partial Class AF_AF
|
|||||||
ViewState("CveActivoFijo") = Request("CveActivoFijo")
|
ViewState("CveActivoFijo") = Request("CveActivoFijo")
|
||||||
CargaDatos()
|
CargaDatos()
|
||||||
CargaEventos()
|
CargaEventos()
|
||||||
CargaActividades()
|
CargaActividades()
|
||||||
|
CargaProduccion()
|
||||||
'Configuración de Modalidad Update
|
CargaMantenimento()
|
||||||
|
CargaPlagaEnfermedad()
|
||||||
|
|
||||||
|
'Configuración de Modalidad Update
|
||||||
BtnGuardar.Text = "Guardar Cambios"
|
BtnGuardar.Text = "Guardar Cambios"
|
||||||
LtlTitulo.Text = "Consulta del Activo Fijo:"
|
LtlTitulo.Text = "Consulta del Activo Fijo:"
|
||||||
|
|
||||||
@@ -271,8 +312,9 @@ Partial Class AF_AF
|
|||||||
HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;")
|
HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;")
|
||||||
Else
|
Else
|
||||||
ViewState("CveActivoFijo") = -1
|
ViewState("CveActivoFijo") = -1
|
||||||
CargaCombos()
|
CargaCombos()
|
||||||
'Configuración de Modalidad Insert
|
|
||||||
|
'Configuración de Modalidad Insert
|
||||||
ImgAddObs.Visible = False
|
ImgAddObs.Visible = False
|
||||||
LblFechaCaptura.Text = Now.ToShortDateString()
|
LblFechaCaptura.Text = Now.ToShortDateString()
|
||||||
LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
||||||
@@ -288,6 +330,13 @@ Partial Class AF_AF
|
|||||||
|
|
||||||
CargaAFInv()
|
CargaAFInv()
|
||||||
cargaOrdenesdeservicio()
|
cargaOrdenesdeservicio()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If Request("Op") IsNot Nothing Then
|
||||||
|
ModalidadesPaginaAF(Request("Op").ToString)
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub cargaOrdenesdeservicio()
|
Private Sub cargaOrdenesdeservicio()
|
||||||
@@ -373,6 +422,20 @@ Partial Class AF_AF
|
|||||||
CveEmpresaActual = UsuarioActual.CveEmpresa
|
CveEmpresaActual = UsuarioActual.CveEmpresa
|
||||||
End Sub
|
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 "
|
#Region " CARGA COMBOS "
|
||||||
Private Sub CargaCombos()
|
Private Sub CargaCombos()
|
||||||
@@ -398,6 +461,8 @@ Partial Class AF_AF
|
|||||||
DdlResponsable.Enabled = False
|
DdlResponsable.Enabled = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
CargaCultivos()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub CargaTipoActivoFijo()
|
Private Sub CargaTipoActivoFijo()
|
||||||
DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo")
|
DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo")
|
||||||
@@ -476,6 +541,11 @@ Partial Class AF_AF
|
|||||||
' DdlClientes.DataBind()
|
' DdlClientes.DataBind()
|
||||||
'End Sub
|
'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
|
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||||
CargaSubProyecto()
|
CargaSubProyecto()
|
||||||
End Sub
|
End Sub
|
||||||
@@ -562,6 +632,13 @@ Partial Class AF_AF
|
|||||||
DdlModelos.DataBind()
|
DdlModelos.DataBind()
|
||||||
DdlModelos.Items.Insert(0, New ListItem("-", "-1"))
|
DdlModelos.Items.Insert(0, New ListItem("-", "-1"))
|
||||||
End Sub
|
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
|
#End Region
|
||||||
|
|
||||||
Private Sub CargaDatos()
|
Private Sub CargaDatos()
|
||||||
@@ -579,7 +656,13 @@ Partial Class AF_AF
|
|||||||
TxtDescripcion.Text = ObjActivoFijo.Descripcion
|
TxtDescripcion.Text = ObjActivoFijo.Descripcion
|
||||||
TxtCodigo.Text = ObjActivoFijo.Codigo
|
TxtCodigo.Text = ObjActivoFijo.Codigo
|
||||||
TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
|
TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
|
||||||
TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
|
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
|
DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString
|
||||||
CargaSubTipoActivoFijo()
|
CargaSubTipoActivoFijo()
|
||||||
DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString
|
DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString
|
||||||
@@ -654,8 +737,8 @@ Partial Class AF_AF
|
|||||||
|
|
||||||
CargaPlacas()
|
CargaPlacas()
|
||||||
CargaLicencias()
|
CargaLicencias()
|
||||||
CargaSeguros()
|
CargaSeguros()
|
||||||
CargaServicios()
|
|
||||||
CargaFallas()
|
CargaFallas()
|
||||||
CargaAccidentes()
|
CargaAccidentes()
|
||||||
|
|
||||||
@@ -1062,31 +1145,22 @@ Partial Class AF_AF
|
|||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "S E R V I C I O S - M A N T E M I E N T O"
|
#Region "S E R V I C I O S - M A N T E M I E N T O"
|
||||||
Public Sub CargaServicios()
|
'Public Sub CargaServicios()
|
||||||
Dim TmpServicios As New DataTable
|
' Dim TmpServicios As New DataTable
|
||||||
TmpServicios.Columns.Add("CveProveedor", GetType(Integer))
|
' TmpServicios.Columns.Add("CveProveedor", GetType(Integer))
|
||||||
TmpServicios.Columns.Add("CveCompra", GetType(Integer))
|
' TmpServicios.Columns.Add("CveCompra", GetType(Integer))
|
||||||
TmpServicios.Columns.Add("Tipo", GetType(String))
|
' TmpServicios.Columns.Add("Tipo", GetType(String))
|
||||||
TmpServicios.Columns.Add("Fecha", GetType(Date))
|
' TmpServicios.Columns.Add("Fecha", GetType(Date))
|
||||||
TmpServicios.Columns.Add("Proveedor", GetType(String))
|
' TmpServicios.Columns.Add("Proveedor", GetType(String))
|
||||||
TmpServicios.Columns.Add("Factura", GetType(String))
|
' TmpServicios.Columns.Add("Factura", GetType(String))
|
||||||
TmpServicios.Columns.Add("OdHorometro", GetType(Double))
|
' TmpServicios.Columns.Add("OdHorometro", GetType(Double))
|
||||||
TmpServicios.Columns.Add("Observaciones", GetType(String))
|
' TmpServicios.Columns.Add("Observaciones", GetType(String))
|
||||||
|
|
||||||
'Dim Row As DataRow = TmpServicios.NewRow
|
|
||||||
'Row("CveProveedor") = 3100
|
|
||||||
'Row("CveCompra") = 181656
|
' GvServiciosMant.DataSource = TmpServicios
|
||||||
'Row("Tipo") = "Preventivo"
|
' GvServiciosMant.DataBind()
|
||||||
'Row("Fecha") = "01/02/2016"
|
'End Sub
|
||||||
'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
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "F A L L A S"
|
#Region "F A L L A S"
|
||||||
@@ -2106,6 +2180,8 @@ Partial Class AF_AF
|
|||||||
Dim ObjContabilidad As New ClsContabilidad(ObjAF.IniciaTransacSQL())
|
Dim ObjContabilidad As New ClsContabilidad(ObjAF.IniciaTransacSQL())
|
||||||
Dim ErrorGuardar As Boolean = False
|
Dim ErrorGuardar As Boolean = False
|
||||||
|
|
||||||
|
Dim FechaBaja As Date = If(TxtFechaBaja.Text = "", MinFecha, TxtFechaBaja.Text.ToDate)
|
||||||
|
|
||||||
If CveActivoFijo <= 0 Then
|
If CveActivoFijo <= 0 Then
|
||||||
|
|
||||||
'SALIDA DE ALMACEN PARA IMPORTACION
|
'SALIDA DE ALMACEN PARA IMPORTACION
|
||||||
@@ -2123,12 +2199,15 @@ Partial Class AF_AF
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Not ErrorGuardar Then
|
If Not ErrorGuardar Then
|
||||||
If ObjAF.AddActivosFijos(TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
|
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,
|
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,
|
DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero, TxtPorDepreciacion.Text.Trim.ToDouble,
|
||||||
TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero,
|
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
|
CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
|
||||||
|
FechaBaja:=FechaBaja) > 0 Then
|
||||||
ViewState("CveActivoFijo") = ObjAF.CveActivoFijo
|
ViewState("CveActivoFijo") = ObjAF.CveActivoFijo
|
||||||
Else
|
Else
|
||||||
ErrorGuardar = True
|
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,
|
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,
|
DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero,
|
||||||
DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.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,
|
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
|
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
|
'Comentado porque te redirecciona no se ocupa - 22 Enero 2016 - Israel Piña
|
||||||
'CargaDatos()
|
'CargaDatos()
|
||||||
@@ -3097,7 +3177,8 @@ Partial Class AF_AF
|
|||||||
|
|
||||||
TxtDescripcion.Text = DdlAFInvPS.SelectedText
|
TxtDescripcion.Text = DdlAFInvPS.SelectedText
|
||||||
TxtValorCompra.Text = Costo.FormatoNumero
|
TxtValorCompra.Text = Costo.FormatoNumero
|
||||||
TxtFechaCompra.Text = Now.ToShortDateString
|
TxtFechaCompra.Text = Now.ToShortDateString
|
||||||
|
TxtFechaBaja.Text = ""
|
||||||
TxtNoSerie.Text = TxtAFInvSerie.Text.Trim
|
TxtNoSerie.Text = TxtAFInvSerie.Text.Trim
|
||||||
|
|
||||||
TxtValorCompra.Enabled = False
|
TxtValorCompra.Enabled = False
|
||||||
@@ -3727,5 +3808,491 @@ Partial Class AF_AF
|
|||||||
|
|
||||||
ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato)
|
ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato)
|
||||||
|
|
||||||
End Sub
|
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
|
End Class
|
||||||
@@ -44,10 +44,7 @@
|
|||||||
</div>
|
</div>
|
||||||
<div class="titlefiltros caption ">
|
<div class="titlefiltros caption ">
|
||||||
<div class="row">
|
<div class="row">
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<asp:Label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</asp:Label>
|
<asp:Label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</asp:Label>
|
||||||
<div runat="server" class="col-md-2">
|
<div runat="server" class="col-md-2">
|
||||||
|
|
||||||
@@ -120,36 +117,44 @@
|
|||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-12">
|
<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"
|
<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">
|
||||||
EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
|
|
||||||
<Columns>
|
<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: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" />
|
<ControlStyle CssClass="Texto" />
|
||||||
<asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
|
<ItemStyle Width="100px" />
|
||||||
<asp:BoundField HeaderText="Enviada" DataField="Enviada" ItemStyle-HorizontalAlign="Left" />
|
</asp:HyperLinkField>
|
||||||
<asp:BoundField HeaderText="FechaEnvioPoliza" DataField="FechaEnvioPoliza" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" />
|
<asp:BoundField HeaderText="Año Vehiculo" DataField="AnioVehiculo" />
|
||||||
<asp:BoundField HeaderText="FechaIng" DataField="FechaIng" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" />
|
<asp:BoundField HeaderText="Envio Póliza" DataField="FechaEnvioPoliza" 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="Serie" DataField="Serie" />
|
||||||
<asp:BoundField HeaderText="TipoServicio" DataField="TipoServicio" ItemStyle-HorizontalAlign="Left" />
|
<asp:BoundField HeaderText="Codigo CPK" DataField="Codigo2" />
|
||||||
<asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
|
<asp:BoundField HeaderText="RespuestaEnvio" DataField="RespuestaEnvio" />
|
||||||
<asp:BoundField HeaderText="FechaUsado" DataField="FechaUsado" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" />
|
<asp:TemplateField HeaderText="Marca">
|
||||||
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
|
<ItemTemplate>
|
||||||
<asp:BoundField HeaderText="Codigo2" DataField="Codigo2" ItemStyle-HorizontalAlign="Left" />
|
<asp:Label ID="Label2" runat="server" Text='<%#String.Format("{0}-{1}", Eval("IdMarcaAuto"), Eval("MarcaAuto")) %>'></asp:Label>
|
||||||
<asp:BoundField HeaderText="IdProductoPolizaVirtual" DataField="IdProductoPolizaVirtual" ItemStyle-HorizontalAlign="Left" />
|
</ItemTemplate>
|
||||||
<asp:BoundField HeaderText="RespuestaEnvio" DataField="RespuestaEnvio" ItemStyle-HorizontalAlign="Left" />
|
</asp:TemplateField>
|
||||||
<asp:BoundField HeaderText="IdBCI" DataField="IdBCI" ItemStyle-HorizontalAlign="Left" />
|
<asp:TemplateField HeaderText="Modelo ">
|
||||||
<asp:BoundField HeaderText="BCI" DataField="BCI" ItemStyle-HorizontalAlign="Left" />
|
<ItemTemplate>
|
||||||
<asp:BoundField HeaderText="IdModeloAuto" DataField="IdModeloAuto" ItemStyle-HorizontalAlign="Left" />
|
<asp:Label ID="Label1" runat="server" Text='<%# String.Format("{0}-{1}", Eval("IdModeloAuto"), Eval("ModeloAuto")) %>'></asp:Label>
|
||||||
<asp:BoundField HeaderText="ModeloAuto" DataField="ModeloAuto" ItemStyle-HorizontalAlign="Left" />
|
</ItemTemplate>
|
||||||
<asp:BoundField HeaderText="IdMarcaAuto" DataField="IdMarcaAuto" ItemStyle-HorizontalAlign="Left" />
|
</asp:TemplateField>
|
||||||
<asp:BoundField HeaderText="MarcaAuto" DataField="MarcaAuto" ItemStyle-HorizontalAlign="Left" />
|
<asp:BoundField HeaderText="BCI" DataField="BCI" />
|
||||||
<asp:BoundField HeaderText="IdMarcaUsado" DataField="IdMarcaUsado" ItemStyle-HorizontalAlign="Left" />
|
<asp:BoundField HeaderText="FechaUsado" DataField="FechaUsado" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" >
|
||||||
<asp:BoundField HeaderText="MarcaUsado" DataField="MarcaUsado" ItemStyle-HorizontalAlign="Left" />
|
<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>
|
</Columns>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -3,8 +3,6 @@ Imports Extensiones
|
|||||||
Partial Class Acumuladores_RepPolizasVirtuales
|
Partial Class Acumuladores_RepPolizasVirtuales
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Private Sub Acumuladores_RepPolizasVirtuales_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
CargaCombos()
|
CargaCombos()
|
||||||
@@ -15,7 +13,7 @@ Partial Class Acumuladores_RepPolizasVirtuales
|
|||||||
Private Sub CargaCombos()
|
Private Sub CargaCombos()
|
||||||
|
|
||||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
|
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
|
||||||
|
txtFechaI.Text = DateTime.Now.FirstDayOfMonth.ToShortDateString()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -47,9 +45,6 @@ Partial Class Acumuladores_RepPolizasVirtuales
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
|
||||||
CargaDatos()
|
CargaDatos()
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
@@ -47,6 +47,7 @@ Public Class ClsAF
|
|||||||
Public Property CveCompra As Integer
|
Public Property CveCompra As Integer
|
||||||
Public Property ValorCompra As Double
|
Public Property ValorCompra As Double
|
||||||
Public Property FechaCompra As Date
|
Public Property FechaCompra As Date
|
||||||
|
Public Property FechaBaja As Date
|
||||||
Public Property CuentaInicial As Integer
|
Public Property CuentaInicial As Integer
|
||||||
Public Property CveTipoActivoFijo As Integer
|
Public Property CveTipoActivoFijo As Integer
|
||||||
Public Property TipoActivoFijo As String
|
Public Property TipoActivoFijo As String
|
||||||
@@ -230,6 +231,7 @@ Public Class ClsAF
|
|||||||
Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
|
Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
|
||||||
Me.Usuario = Data.Rows(0)("Usuario").ToString
|
Me.Usuario = Data.Rows(0)("Usuario").ToString
|
||||||
Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
|
Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
|
||||||
|
Me.FechaBaja = Data.Rows(0)("FechaBaja").ToString.ToDate
|
||||||
End If
|
End If
|
||||||
Retorno = True
|
Retorno = True
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
@@ -344,6 +346,9 @@ Public Class ClsAF
|
|||||||
Me.CveGrupoAF = Data.Rows(0)("CveGrupo").ToString.ToEntero
|
Me.CveGrupoAF = Data.Rows(0)("CveGrupo").ToString.ToEntero
|
||||||
Me.CveAFPadre = Data.Rows(0)("CveAFPadre").ToString.ToEntero
|
Me.CveAFPadre = Data.Rows(0)("CveAFPadre").ToString.ToEntero
|
||||||
Me.CveDispositivo = Data.Rows(0)("CveDispositivo").ToString.ToEntero
|
Me.CveDispositivo = Data.Rows(0)("CveDispositivo").ToString.ToEntero
|
||||||
|
Me.FechaBaja = Data.Rows(0)("FechaBaja").ToString.ToDate
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Retorno = True
|
Retorno = True
|
||||||
Catch ex As Exception
|
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,
|
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,
|
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,
|
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
|
Dim Retorno As Integer = -1
|
||||||
|
|
||||||
DataAdapter("PA_AF_ActivosFijosAdd")
|
DataAdapter("PA_AF_ActivosFijosAdd")
|
||||||
@@ -427,6 +432,7 @@ Public Class ClsAF
|
|||||||
.Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
|
.Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
|
||||||
.Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
|
.Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
|
||||||
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
|
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
|
||||||
|
.Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja
|
||||||
|
|
||||||
.Add("@CveActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
|
.Add("@CveActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||||
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
|
.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,
|
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,
|
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,
|
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
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
DataAdapter("PA_AF_ActivosFijosUpdate")
|
DataAdapter("PA_AF_ActivosFijosUpdate")
|
||||||
@@ -490,6 +496,7 @@ Public Class ClsAF
|
|||||||
.Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
|
.Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
|
||||||
.Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
|
.Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
|
||||||
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
|
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
|
||||||
|
.Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
@@ -4514,6 +4521,339 @@ Public Class ClsAF
|
|||||||
|
|
||||||
#End Region
|
#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 "
|
#Region " IDisposable Support "
|
||||||
' IDisposable
|
' IDisposable
|
||||||
|
|||||||
@@ -141,6 +141,7 @@ Public Class ClsBancos
|
|||||||
Public Property UsaLayoutGrupos As Boolean
|
Public Property UsaLayoutGrupos As Boolean
|
||||||
|
|
||||||
Public Property UsaTarjeta As Boolean
|
Public Property UsaTarjeta As Boolean
|
||||||
|
Public Property TieneTerminal As Boolean
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
@@ -428,6 +429,7 @@ Public Class ClsBancos
|
|||||||
Me.UsaLayout = If(Data.Rows(0)("UsaLayout").ToString = "True", True, False)
|
Me.UsaLayout = If(Data.Rows(0)("UsaLayout").ToString = "True", True, False)
|
||||||
Me.UsaLayoutGrupos = If(Data.Rows(0)("UsaLayoutGrupos").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.UsaTarjeta = If(Data.Rows(0)("UsaTarjeta").ToString = "True", True, False)
|
||||||
|
Me.TieneTerminal = If(Data.Rows(0)("TieneTerminal").ToString = "True", True, False)
|
||||||
|
|
||||||
End If
|
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,
|
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,
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Banc_BancosCuentasAdd")
|
DataAdapter("PA_Banc_BancosCuentasAdd")
|
||||||
|
|
||||||
@@ -489,6 +491,7 @@ Public Class ClsBancos
|
|||||||
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
|
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
|
||||||
.Add("@SaldoInicial", SqlDbType.Money).Value = SaldoInicial
|
.Add("@SaldoInicial", SqlDbType.Money).Value = SaldoInicial
|
||||||
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
|
.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,
|
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,
|
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
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
DataAdapter("PA_Banc_BancosCuentasUpdate")
|
DataAdapter("PA_Banc_BancosCuentasUpdate")
|
||||||
@@ -538,6 +541,7 @@ Public Class ClsBancos
|
|||||||
.Add("@UsaLayout", SqlDbType.Bit).Value = UsaLayout
|
.Add("@UsaLayout", SqlDbType.Bit).Value = UsaLayout
|
||||||
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
|
.Add("@UsaTarjeta", SqlDbType.Bit).Value = UsaTarjeta
|
||||||
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
|
.Add("@UsaLayoutGrupos", SqlDbType.Bit).Value = UsaLayoutGrupos
|
||||||
|
.Add("@TieneTerminal", SqlDbType.Bit).Value = TieneTerminal
|
||||||
|
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|||||||
@@ -130,7 +130,9 @@ Public Class ClsCRM
|
|||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_CRM_TipoProcesoAdd")
|
DataAdapter("PA_CRM_TipoProcesoAdd")
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
@@ -138,6 +140,11 @@ Public Class ClsCRM
|
|||||||
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
|
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
|
||||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
.Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng
|
.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
|
End With
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
SqlAdapter.Fill(Data)
|
||||||
@@ -148,7 +155,9 @@ Public Class ClsCRM
|
|||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_CRM_TipoProcesoUpdate")
|
DataAdapter("PA_CRM_TipoProcesoUpdate")
|
||||||
With SqlAdapter.SelectCommand.Parameters
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
@@ -156,6 +165,11 @@ Public Class ClsCRM
|
|||||||
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
|
.Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
|
||||||
.Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
|
.Add("@CveEstatus", SqlDbType.Bit).Value = CveEstatus
|
||||||
.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
|
.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
|
End With
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
SqlAdapter.Fill(Data)
|
||||||
|
|||||||
@@ -32,6 +32,8 @@ Public Class ClsClientes
|
|||||||
|
|
||||||
Public Property CveCliente As Integer
|
Public Property CveCliente As Integer
|
||||||
Public Property Nombre As String
|
Public Property Nombre As String
|
||||||
|
Public Property TipoPersona As Boolean
|
||||||
|
Public Property RegimenSociedad As String
|
||||||
Public Property NombreComercial As String
|
Public Property NombreComercial As String
|
||||||
Public Property Direccion As String
|
Public Property Direccion As String
|
||||||
Public Property NoExt As String
|
Public Property NoExt As String
|
||||||
@@ -289,6 +291,8 @@ Public Class ClsClientes
|
|||||||
If Data.Rows.Count > 0 Then
|
If Data.Rows.Count > 0 Then
|
||||||
_CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero
|
_CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero
|
||||||
_Nombre = Data.Rows(0)("Nombre").ToString
|
_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
|
_NombreComercial = Data.Rows(0)("NombreComercial").ToString
|
||||||
_Codigo = Data.Rows(0)("Codigo").ToString
|
_Codigo = Data.Rows(0)("Codigo").ToString
|
||||||
_Direccion = Data.Rows(0)("Direccion").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 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 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 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
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
|
||||||
@@ -719,6 +723,12 @@ Public Class ClsClientes
|
|||||||
.Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
|
.Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
|
||||||
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
||||||
|
|
||||||
|
.Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
|
||||||
|
.Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End With
|
End With
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
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 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 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 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
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
@@ -925,6 +935,12 @@ Public Class ClsClientes
|
|||||||
.Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
|
.Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
|
||||||
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
||||||
|
|
||||||
|
.Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
|
||||||
|
.Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End With
|
End With
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
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 "
|
#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,
|
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",
|
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
|
Dim Retorno As Integer = -1
|
||||||
DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd")
|
DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd")
|
||||||
|
|
||||||
@@ -1486,6 +1502,7 @@ Public Class ClsClientes
|
|||||||
.Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
|
.Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
|
||||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||||
|
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||||
|
|
||||||
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
||||||
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
|
.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,
|
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",
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate")
|
DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate")
|
||||||
|
|
||||||
@@ -1548,6 +1565,7 @@ Public Class ClsClientes
|
|||||||
.Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
|
.Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
|
||||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||||
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
.Add("@Estatus", SqlDbType.Int).Value = Estatus
|
||||||
|
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||||
|
|
||||||
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
||||||
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
|
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
|
||||||
|
|||||||
@@ -6603,18 +6603,18 @@ Public Class ClsContPAQi
|
|||||||
#End Region
|
#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"
|
#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
|
Dim Retorno = False
|
||||||
|
|
||||||
If Not FNC_Total() Then
|
If Not FNC_Total_Segmento() Then
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not FNC_Cargos() Then
|
If Not FNC_Cargos_Segmento() Then
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not FNC_Abonos() Then
|
If Not FNC_Abonos_Segmento() Then
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -6659,12 +6659,12 @@ Public Class ClsContPAQi
|
|||||||
StrSQL.Append(" ) ")
|
StrSQL.Append(" ) ")
|
||||||
StrSQL.Append(" INSERT INTO #TEMP ")
|
StrSQL.Append(" INSERT INTO #TEMP ")
|
||||||
'StrSQL.AppendLine(" -- SE LLENA LA TABLA TEMPORAL CON EL ARBOL DEL WITH CON JOINS DE CUENTAS SUPERIORES ")
|
'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(" FROM (")
|
||||||
StrSQL.Append(" SELECT C.Id, C.Nombre, C.Tipo, C.CtaMayor, '' AS Clasificacion, Orden,")
|
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_Total_Segmento(c.Id, CAST('1900-01-01' AS DATE),EOMONTH(@FechaI, -1 ),@CveMoneda,@IdSegNeg), 0) AS SaldoInicial,")
|
||||||
StrSQL.Append(" ISNULL (dbo.FNC_Cargos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Cargos,")
|
StrSQL.Append(" ISNULL (dbo.FNC_Cargos_Segmento(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Cargos,")
|
||||||
StrSQL.Append(" ISNULL (dbo.FNC_Abonos(c.Id, @FechaI, @FechaF,@CveMoneda), 0) AS Abonos,")
|
StrSQL.Append(" ISNULL (dbo.FNC_Abonos_Segmento(c.Id, @FechaI, @FechaF,@CveMoneda,@IdSegNeg), 0) AS Abonos,")
|
||||||
StrSQL.Append(" Level as Nivel,")
|
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 (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,")
|
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 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 TiposPolizas TP ON MP.TipoPol = TP.Codigo")
|
||||||
StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id")
|
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.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.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(" 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 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 TiposPolizas TP ON MP.TipoPol = TP.Codigo")
|
||||||
StrSQL.Append(" LEFT JOIN Polizas P ON MP.IdPoliza = P.Id")
|
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(" ) AS T")
|
||||||
StrSQL.Append(" ) TT")
|
StrSQL.Append(" ) TT")
|
||||||
'StrSQL.AppendLine(" --PRIMER GROUPING SON LAS CABECERAS Y TOTALES DE LAS CUENTAS, SEGUNDO GROUPING SON LOS MOVIMIENTOS DE LAS CUENTAS")
|
'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("@FechaF", SqlDbType.Date).Value = FechaF
|
||||||
.Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
|
.Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
|
||||||
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
||||||
|
.Add("@IdSegNeg", SqlDbType.Int).Value = IdSegNeg
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
@@ -11035,7 +11042,7 @@ Public Class ClsContPAQi
|
|||||||
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = 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(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
|
||||||
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.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(" RETURN @Total; ")
|
||||||
StrSQL.Append(" END; ")
|
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 Cuentas c ON c.Id = a.IdSubCtade ")
|
||||||
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
|
StrSQL.Append(" INNER JOIN MovimientosPoliza p ON IdCuenta = c.Id ")
|
||||||
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON p.IdSegNeg = s.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(" RETURN @Total; ")
|
||||||
StrSQL.Append(" END; ")
|
StrSQL.Append(" END; ")
|
||||||
|
|
||||||
@@ -11198,6 +11205,233 @@ Public Class ClsContPAQi
|
|||||||
#End Region
|
#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 "
|
#Region " IDisposable Support "
|
||||||
' IDisposable
|
' IDisposable
|
||||||
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
|
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
|
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))
|
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)
|
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
|
Else
|
||||||
OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
End If '
|
End If '
|
||||||
@@ -3814,6 +3817,30 @@ Public Class ClsContabilidad
|
|||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
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
|
Public Function GetOrigenAplicacion(FechaI As String, FechaF As String, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean
|
||||||
Dim Retorno = False
|
Dim Retorno = False
|
||||||
|
|
||||||
@@ -5785,7 +5812,7 @@ Public Class ClsContabilidad
|
|||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
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
|
Dim Retorno = False
|
||||||
|
|
||||||
DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
|
DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
|
||||||
@@ -5794,6 +5821,7 @@ Public Class ClsContabilidad
|
|||||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
.Add("@Tipo", SqlDbType.Int).Value = Tipo
|
.Add("@Tipo", SqlDbType.Int).Value = Tipo
|
||||||
.Add("@Opcion", SqlDbType.Int).Value = Opcion
|
.Add("@Opcion", SqlDbType.Int).Value = Opcion
|
||||||
|
.Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -869,7 +869,7 @@ Public Class ClsInventarios
|
|||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
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
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Inv_MovimientosPorPersonalGet")
|
DataAdapter("PA_Inv_MovimientosPorPersonalGet")
|
||||||
|
|
||||||
@@ -879,6 +879,7 @@ Public Class ClsInventarios
|
|||||||
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
|
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
|
||||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||||
|
.Add("@Tipo", SqlDbType.Int).Value = Tipo
|
||||||
End With
|
End With
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
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 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 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 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
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
DataAdapter("PA_Inv_MovimientosDetalleAdd")
|
DataAdapter("PA_Inv_MovimientosDetalleAdd")
|
||||||
@@ -1313,6 +1315,7 @@ Public Class ClsInventarios
|
|||||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||||
.Add("@EsInterno", SqlDbType.Int).Value = EsInterno
|
.Add("@EsInterno", SqlDbType.Int).Value = EsInterno
|
||||||
.Add("@CveVentaDetalleRemision", SqlDbType.Int).Value = CveVentaDetalleRemision
|
.Add("@CveVentaDetalleRemision", SqlDbType.Int).Value = CveVentaDetalleRemision
|
||||||
|
.Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
|
||||||
|
|
||||||
.Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
|
.Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||||
End With
|
End With
|
||||||
@@ -1348,7 +1351,7 @@ Public Class ClsInventarios
|
|||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
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 = "",
|
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
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
DataAdapter("PA_Inv_MovimientosDetalleUpdate")
|
DataAdapter("PA_Inv_MovimientosDetalleUpdate")
|
||||||
@@ -1365,6 +1368,7 @@ Public Class ClsInventarios
|
|||||||
.Add("@Serie", SqlDbType.VarChar).Value = Serie
|
.Add("@Serie", SqlDbType.VarChar).Value = Serie
|
||||||
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
||||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||||
|
.Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -4515,11 +4515,7 @@ Public Class ClsPaginas
|
|||||||
PaginaDict.Add("/AF/CatCombustibles.aspx".ToUpper(), -1)
|
PaginaDict.Add("/AF/CatCombustibles.aspx".ToUpper(), -1)
|
||||||
PaginaDict.Add("/AF/CatCargasCombustible.aspx".ToUpper(), -1)
|
PaginaDict.Add("/AF/CatCargasCombustible.aspx".ToUpper(), -1)
|
||||||
PaginaDict.Add("/AF/RepFlotillas.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/RepDepreciacion.aspx".ToUpper(), -1)
|
||||||
PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656)
|
PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656)
|
||||||
PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251)
|
PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251)
|
||||||
@@ -4834,6 +4830,8 @@ Public Class ClsPaginas
|
|||||||
PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714)
|
PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714)
|
||||||
PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
|
PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
|
||||||
PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752)
|
PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752)
|
||||||
|
PaginaDict.Add("/Contabilidad/RepFlujoEfectivo.aspx".ToUpper(), 783)
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
'CONTABILIDAD2
|
'CONTABILIDAD2
|
||||||
|
|||||||
@@ -246,7 +246,7 @@ Public Class ClsProductosServicios
|
|||||||
CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
|
CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
|
||||||
CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
|
CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
|
||||||
Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString
|
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.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero
|
||||||
Me.Codigo = Data.Rows(0)("Codigo").ToString
|
Me.Codigo = Data.Rows(0)("Codigo").ToString
|
||||||
Me.Codigo2 = Data.Rows(0)("Codigo2").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,
|
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,
|
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 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
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
@@ -2011,6 +2011,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
|||||||
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
||||||
.Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
|
.Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
|
||||||
.Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
|
.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,
|
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,
|
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 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
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
@@ -2141,6 +2144,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
|||||||
.Add("@Pensionado", SqlDbType.Bit).Value = Pensionado
|
.Add("@Pensionado", SqlDbType.Bit).Value = Pensionado
|
||||||
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
.Add("@CvePais", SqlDbType.Int).Value = CvePais
|
||||||
.Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
|
.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 TiempoEntrega As String = ""
|
||||||
Public Property Vigencia As Date
|
Public Property Vigencia As Date
|
||||||
Public Property TipoEstatus As Integer
|
Public Property TipoEstatus As Integer
|
||||||
Public Property CveCondicionEntrega As Integer
|
Public Property CveCondicionEntrega As Integer = -1
|
||||||
Public Property CondicionEntrega As String = ""
|
Public Property CondicionEntrega As String = ""
|
||||||
|
|
||||||
Public Property TipoRelacion As String
|
Public Property TipoRelacion As String
|
||||||
|
|||||||
@@ -3425,10 +3425,11 @@ Public Class Timbrado
|
|||||||
swmili = sw.ElapsedMilliseconds
|
swmili = sw.ElapsedMilliseconds
|
||||||
sw.Start()
|
sw.Start()
|
||||||
|
|
||||||
|
Me.UUID = FolioFiscal
|
||||||
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
|
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
|
||||||
|
|
||||||
'Actualiza Estatus Factura
|
'Actualiza Estatus Factura
|
||||||
If Ventas.CveVenta > 0 Then
|
If Ventas.CveVenta > 0 Then
|
||||||
|
|
||||||
Using ObjVentas As New ClsVentas()
|
Using ObjVentas As New ClsVentas()
|
||||||
|
|
||||||
|
|||||||
@@ -124,6 +124,8 @@ Public Class Timbres
|
|||||||
|
|
||||||
Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString
|
Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString
|
||||||
Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString
|
Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString
|
||||||
|
Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString
|
||||||
|
Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString
|
||||||
|
|
||||||
CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero
|
CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero
|
||||||
FechaSalida = drT("FechaEntrega").ToString.ToDateTime
|
FechaSalida = drT("FechaEntrega").ToString.ToDateTime
|
||||||
@@ -182,18 +184,6 @@ Public Class Timbres
|
|||||||
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2)
|
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2)
|
||||||
End If
|
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
|
Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
|
||||||
DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString,
|
DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString,
|
||||||
.Colonia = drT("DirOriClaveSATColonia").ToString,
|
.Colonia = drT("DirOriClaveSATColonia").ToString,
|
||||||
@@ -252,7 +242,7 @@ Public Class Timbres
|
|||||||
|
|
||||||
'concepto único
|
'concepto único
|
||||||
Dim concepto As New CFDIConceptos With {.Cantidad = 1,
|
Dim concepto As New CFDIConceptos With {.Cantidad = 1,
|
||||||
.Descripcion = "Flete",
|
.Descripcion = "Traslado",
|
||||||
.ValorUnitario = 0,
|
.ValorUnitario = 0,
|
||||||
.Importe = 0,
|
.Importe = 0,
|
||||||
.Descuento = 0,
|
.Descuento = 0,
|
||||||
@@ -283,7 +273,7 @@ Public Class Timbres
|
|||||||
.ClaveUnidad = drr("SATClaveUM").ToString,
|
.ClaveUnidad = drr("SATClaveUM").ToString,
|
||||||
.Unidad = drr("UM").ToString,
|
.Unidad = drr("UM").ToString,
|
||||||
.Dimensiones = drr("Dimensiones").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í", ""),
|
.MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""),
|
||||||
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
|
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
|
||||||
.Embalaje = drr("ClaveEmbalaje").ToString,
|
.Embalaje = drr("ClaveEmbalaje").ToString,
|
||||||
@@ -294,7 +284,7 @@ Public Class Timbres
|
|||||||
.UUIDComercioExt = ""
|
.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
|
conceptoCarta.DetalleMercancia = DetalleMercancia
|
||||||
|
|
||||||
Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}
|
Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}
|
||||||
|
|||||||
@@ -95,6 +95,11 @@
|
|||||||
<td>Layout Grupos:</td>
|
<td>Layout Grupos:</td>
|
||||||
<td>
|
<td>
|
||||||
<asp:CheckBox ID="ChkLayoutGrupos" runat="server" /></td>
|
<asp:CheckBox ID="ChkLayoutGrupos" runat="server" /></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td>Tiene Terminal:</td>
|
||||||
|
<td>
|
||||||
|
<asp:CheckBox ID="ChkTieneTerminal" runat="server" /></td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr id="TrConvenio" runat="server" visible="false">
|
<tr id="TrConvenio" runat="server" visible="false">
|
||||||
<td>Convenio:</td>
|
<td>Convenio:</td>
|
||||||
|
|||||||
@@ -183,7 +183,9 @@ Partial Class Bancos_CuentasBancariasDetalle
|
|||||||
TxtConvenio.Text = ObjCuentasBancariasDetalle.ConvenioPagoElectronico.ToString
|
TxtConvenio.Text = ObjCuentasBancariasDetalle.ConvenioPagoElectronico.ToString
|
||||||
ChkLayout.Checked = ObjCuentasBancariasDetalle.UsaLayout
|
ChkLayout.Checked = ObjCuentasBancariasDetalle.UsaLayout
|
||||||
ChkLayoutGrupos.Checked = ObjCuentasBancariasDetalle.UsaLayoutGrupos
|
ChkLayoutGrupos.Checked = ObjCuentasBancariasDetalle.UsaLayoutGrupos
|
||||||
ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta
|
ChkUsaTarjeta.Checked = ObjCuentasBancariasDetalle.UsaTarjeta
|
||||||
|
|
||||||
|
ChkTieneTerminal.Checked = ObjCuentasBancariasDetalle.TieneTerminal
|
||||||
|
|
||||||
ChkUsaTarjeta_CheckedChanged(Nothing, Nothing)
|
ChkUsaTarjeta_CheckedChanged(Nothing, Nothing)
|
||||||
|
|
||||||
@@ -265,7 +267,8 @@ Partial Class Bancos_CuentasBancariasDetalle
|
|||||||
|
|
||||||
If ObjCuentasBancariasDetalle.AddBancosCuentas(DdlBanco.SelectedValue.ToEntero, DdlTipoCuenta.SelectedValue.ToEntero, TxtNumCuenta.Text.Trim,
|
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,
|
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
|
ViewState("CveCuenta") = ObjCuentasBancariasDetalle.TCveCuenta
|
||||||
Else
|
Else
|
||||||
ErrorUsuarios = True
|
ErrorUsuarios = True
|
||||||
@@ -296,7 +299,9 @@ Partial Class Bancos_CuentasBancariasDetalle
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
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()
|
'CargaDatos()
|
||||||
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
|
GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
|
||||||
'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
|
'If ObjCuentasBancariasDetalle.GetBancosCuentasUsuarios(-1) Then
|
||||||
|
|||||||
@@ -240,7 +240,8 @@
|
|||||||
<div class="col-md-2" style="text-align: right!important">
|
<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: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: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>
|
</div>
|
||||||
<br />
|
<br />
|
||||||
<asp:GridView ID="GvProveedores" Width="99%" runat="server" AutoGenerateColumns="False"
|
<asp:GridView ID="GvProveedores" Width="99%" runat="server" AutoGenerateColumns="False"
|
||||||
@@ -341,7 +342,8 @@
|
|||||||
<div class="col-md-2" style="text-align: right!important">
|
<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: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: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>
|
</div>
|
||||||
<br />
|
<br />
|
||||||
<asp:GridView ID="GvProveedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False"
|
<asp:GridView ID="GvProveedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False"
|
||||||
@@ -448,7 +450,8 @@
|
|||||||
<div class="col-md-3" style="text-align: right!important">
|
<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: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: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>
|
</div>
|
||||||
|
|
||||||
@@ -558,7 +561,8 @@
|
|||||||
<div class="col-md-3" style="text-align: right!important">
|
<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: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: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>
|
</div>
|
||||||
|
|
||||||
@@ -610,7 +614,8 @@
|
|||||||
<div class="col-md-3" style="text-align: right!important">
|
<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: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: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>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
@@ -659,7 +664,8 @@
|
|||||||
<div class="col-md-3" style="text-align: right!important">
|
<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: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: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>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -126,6 +126,9 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
Dim Final As Double = GanaciaAux - PerdidaAux
|
Dim Final As Double = GanaciaAux - PerdidaAux
|
||||||
HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||||
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").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
|
BtnProveedoresRemove.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0
|
||||||
BtnGeneraCompras.Visible = Not 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
|
HdnProveedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||||
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
|
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
|
||||||
BtnProveedoresAntRemove.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
|
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
|
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")
|
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
|
Dim Final As Double = GanaciaAux - PerdidaAux
|
||||||
HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||||
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").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
|
BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
|
||||||
BtnGeneraVentas.Visible = Not 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
|
Dim Final As Double = GanaciaAux - PerdidaAux
|
||||||
HdnClienteAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
HdnClienteAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||||
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").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
|
BtnClientesAntRemove.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0
|
||||||
BtnClientesAnticipos.Visible = Not 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
|
HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||||
BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
|
BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
|
||||||
BtnGeneraAcreedores.Visible = Not 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
|
GvAcreedores.DataSource = ObjBancos.DtResultados
|
||||||
LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||||
Else
|
Else
|
||||||
@@ -283,6 +296,9 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
|
||||||
BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
|
BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
|
||||||
BtnGeneraAcreedoresAnt.Visible = Not 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
|
GvAcreedoresAnt.DataSource = ObjBancos.DtResultados
|
||||||
LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
|
||||||
Else
|
Else
|
||||||
|
|||||||
@@ -1884,7 +1884,7 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
If Tipo.Length > 0 Then
|
If Tipo.Length > 0 Then
|
||||||
DdlTipoTransaccion.Items.Clear()
|
DdlTipoTransaccion.Items.Clear()
|
||||||
DdlTipoTransaccion.DataSource = dt.FiltraParametros($"Tipo = '{Tipo}' ")
|
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND EstatusTexto = 'Activo' ")
|
||||||
End If
|
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: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" />
|
<asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-2 input-icon">
|
<div class="col-md-4 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>
|
||||||
|
<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>
|
</div>
|
||||||
<div class="row" runat="server" id="rowComisiones" visible="false">
|
<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"));
|
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"
|
#region"INFORMACION GENERAL"
|
||||||
protected void CargaTipoTransaccion()
|
protected void CargaTipoTransaccion()
|
||||||
{
|
{
|
||||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'");
|
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs' AND Estatus = 1");
|
||||||
DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'");
|
DdlTipoTransanccionPrestamo.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1 ");
|
||||||
|
|
||||||
DdlTipoTransaccion.DataBind();
|
DdlTipoTransaccion.DataBind();
|
||||||
DdlTipoTransanccionPrestamo.DataBind();
|
DdlTipoTransanccionPrestamo.DataBind();
|
||||||
@@ -448,7 +453,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
|||||||
}
|
}
|
||||||
ImporteMN = Importe;
|
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";
|
MsgError = "No se pudo insertar concepto de diferencia cambiaria";
|
||||||
}
|
}
|
||||||
@@ -457,7 +462,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
|||||||
}
|
}
|
||||||
else
|
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";
|
MsgError = "No se pudo insertar concepto de pago acreedor";
|
||||||
break;
|
break;
|
||||||
@@ -466,7 +471,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
|||||||
|
|
||||||
if (ImporteComisionMN > 0)
|
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";
|
MsgError = "No se pudo insertar concepto de pago acreedor";
|
||||||
break;
|
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";
|
MsgError = "No se pudo insertar concepto de bancos";
|
||||||
}
|
}
|
||||||
|
|
||||||
if (CveMonedaPago != 1 && UsaComplementaria)
|
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";
|
MsgError = "No se pudo insertar concepto de bancos complementaria";
|
||||||
}
|
}
|
||||||
@@ -509,14 +514,14 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
|||||||
decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria);
|
decimal Dif = AcumImporteMN - (ImporteBanco + ImporteComplementaria);
|
||||||
if (Dif < 0)
|
if (Dif < 0)
|
||||||
{
|
{
|
||||||
tCveConceptoOtIngresos = 211; TipoMovtoOt = false;
|
tCveConceptoOtIngresos = 65; TipoMovtoOt = false;
|
||||||
}
|
}
|
||||||
else
|
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";
|
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)
|
if (UsaComplementaria) //(IDCtaContableDeudorCompPrestamo > 0)
|
||||||
{
|
{
|
||||||
// DEUDOR COMPLEMENTARIA
|
// DEUDOR COMPLEMENTARIA
|
||||||
@@ -403,7 +403,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
|
|||||||
else
|
else
|
||||||
{
|
{
|
||||||
// DEUDOR
|
// 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";
|
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>
|
<label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label>
|
||||||
<i></i>
|
<i></i>
|
||||||
</div>
|
</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>
|
<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" />
|
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||||
</div>
|
</div>
|
||||||
@@ -441,7 +441,7 @@
|
|||||||
<label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor Asignado:</label>
|
<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>
|
<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>
|
||||||
<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: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>
|
<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>
|
<label for="<%= DdlMedioCaptacion.ClientID.ToString()%>" style="width: 90%">Medio de Captación:</label>
|
||||||
@@ -449,13 +449,13 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="row">
|
<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: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>--%>
|
<%--<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>
|
<label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe:</label>
|
||||||
</div>
|
</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: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>--%>
|
<%--<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>
|
<label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label>
|
||||||
@@ -463,7 +463,7 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="row">
|
<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>
|
<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>
|
<label for="<%= DdlProbabilidadAcercamiento.ClientID.ToString()%>">Probabilidad:</label>
|
||||||
</div>
|
</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());
|
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();
|
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
|
//SECCION DATOS DEL ACERCAMIENTO
|
||||||
TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento;
|
TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento;
|
||||||
TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion;
|
TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion;
|
||||||
|
|||||||
@@ -23,8 +23,8 @@
|
|||||||
</li>
|
</li>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
<Triggers>
|
<Triggers>
|
||||||
<asp:PostBackTrigger ControlID="LnkImprimir"/>
|
<asp:PostBackTrigger ControlID="LnkImprimir" />
|
||||||
<asp:PostBackTrigger ControlID="LnkImprimirExcel"/>
|
<asp:PostBackTrigger ControlID="LnkImprimirExcel" />
|
||||||
</Triggers>
|
</Triggers>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
</asp:Content>
|
</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;" />
|
<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>
|
<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>
|
</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"
|
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">
|
GridLines="None" AutoGenerateColumns="false" OnRowDeleting="GVTiposProcesos_RowDeleting" OnRowDataBound="GVTiposProcesos_RowDataBound">
|
||||||
<Columns>
|
<Columns>
|
||||||
@@ -102,6 +104,33 @@
|
|||||||
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
|
<label for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción:</label>
|
||||||
</div>
|
</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">
|
<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>
|
<label runat="server" id="lblEstatus" for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
|
||||||
<asp:CheckBox ID="ChkEstatus" runat="server" />
|
<asp:CheckBox ID="ChkEstatus" runat="server" />
|
||||||
|
|||||||
@@ -86,6 +86,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas
|
|||||||
TxtTipoProceso.Text = "";
|
TxtTipoProceso.Text = "";
|
||||||
TxtDescripcion.Text = "";
|
TxtDescripcion.Text = "";
|
||||||
ChkEstatus.Checked = true;
|
ChkEstatus.Checked = true;
|
||||||
|
ChkRequiereMedioCaptacion.Checked = false;
|
||||||
|
ChkRequiereImporte.Checked = false;
|
||||||
|
ChkRequiereProbabilidadAcercamiento.Checked = false;
|
||||||
|
ChkRequierePS.Checked = false;
|
||||||
|
ChkRequiereComision.Checked = false;
|
||||||
}
|
}
|
||||||
#endregion
|
#endregion
|
||||||
|
|
||||||
@@ -110,6 +115,11 @@ public partial class CRM_CatTipoProceso : ClsPaginas
|
|||||||
TxtTipoProceso.Text = GvRow.DataKey("TipoProceso").ToString();
|
TxtTipoProceso.Text = GvRow.DataKey("TipoProceso").ToString();
|
||||||
TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString();
|
TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString();
|
||||||
ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false;
|
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();
|
UPModalTipoProceso.Update();
|
||||||
|
|
||||||
@@ -128,14 +138,16 @@ public partial class CRM_CatTipoProceso : ClsPaginas
|
|||||||
|
|
||||||
if (EsEditar == 0)
|
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);
|
Alert("El Tipo de Proceso fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else
|
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);
|
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>
|
<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>
|
||||||
|
|
||||||
<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>
|
<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>
|
<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>
|
<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="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: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>--%>
|
<%--<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>
|
<label for="<%= TxtImporte.ClientID.ToString()%>" style="width: 90%;">Importe de Venta:</label>
|
||||||
</div>
|
</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: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>--%>
|
<%--<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>
|
<label for="<%= TxtComision.ClientID.ToString()%>" style="width: 90%;">Comisión:</label>
|
||||||
@@ -665,7 +665,7 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="row">
|
<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>
|
<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>
|
<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>
|
<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>
|
||||||
<div class="row">
|
<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>
|
<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" />
|
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -238,6 +238,19 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
|||||||
ViewState["CveGiroClasificacion"] = value;
|
ViewState["CveGiroClasificacion"] = value;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
private List<ResponseTipoProceso> ListTipoProceso
|
||||||
|
{
|
||||||
|
get
|
||||||
|
{
|
||||||
|
return (List<ResponseTipoProceso>)ViewState["ListTipoProceso"];
|
||||||
|
}
|
||||||
|
|
||||||
|
set
|
||||||
|
{
|
||||||
|
ViewState["ListTipoProceso"] = value;
|
||||||
|
}
|
||||||
|
}
|
||||||
#endregion
|
#endregion
|
||||||
|
|
||||||
protected void Page_Load(object sender, EventArgs e)
|
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)
|
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.Items.Clear();
|
||||||
DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
|
DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
|
||||||
DdlMedioCaptacionAcercamiento.DataBind();
|
DdlMedioCaptacionAcercamiento.DataBind();
|
||||||
@@ -1520,6 +1547,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
|||||||
DdlMedioCaptacionAcercamiento.Enabled = false;
|
DdlMedioCaptacionAcercamiento.Enabled = false;
|
||||||
DdlTipoProceso.DataBind();
|
DdlTipoProceso.DataBind();
|
||||||
}
|
}
|
||||||
|
ListTipoProceso = ObjTipoProceso.Result;
|
||||||
|
|
||||||
if (ObjProbalidadAcercamiento.Result.Count > 0)
|
if (ObjProbalidadAcercamiento.Result.Count > 0)
|
||||||
{
|
{
|
||||||
@@ -1794,7 +1822,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
|||||||
protected void DdlTipoProcesos_Change(Object sender, EventArgs e)
|
protected void DdlTipoProcesos_Change(Object sender, EventArgs e)
|
||||||
{
|
{
|
||||||
DdlMedioCaptacion.Items.Clear();
|
DdlMedioCaptacion.Items.Clear();
|
||||||
CargaMetodosCaptacion();
|
CargaMetodosCaptacion();
|
||||||
UpDatos.Update();
|
UpDatos.Update();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -8690,6 +8690,8 @@ Partial Class Compras_Compras
|
|||||||
Dim DTConsultaIEPSPS As New DataTable
|
Dim DTConsultaIEPSPS As New DataTable
|
||||||
DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'")
|
DTConsultaIEPSPS = TmpDT.FiltraParametros(" AplicaIEPS = 'True'")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim IndiceContador As Integer = 0
|
Dim IndiceContador As Integer = 0
|
||||||
Dim IndicePrimero As Integer = 0
|
Dim IndicePrimero As Integer = 0
|
||||||
|
|
||||||
@@ -8703,17 +8705,14 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
If DiferenciaIEPSPS.RoundAD(2) <> 0 Then
|
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.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS
|
TmpDT.AcceptChanges()
|
||||||
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
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
For Each dRow As DataRow In TmpDT.Rows
|
For Each dRow As DataRow In TmpDT.Rows
|
||||||
|
|
||||||
If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then
|
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("NumLicencia", GetType(String)))
|
||||||
DtOperadores.Columns.Add(New DataColumn("NombreOperador", 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 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 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)
|
Dim Archivo As New System.IO.FileInfo(Path)
|
||||||
@@ -1449,10 +1454,59 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
DtUbicaciones.Rows.Add(Row)
|
DtUbicaciones.Rows.Add(Row)
|
||||||
Next
|
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)
|
Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
|
||||||
If nodeTFD IsNot Nothing Then
|
If nodeTFD IsNot Nothing Then
|
||||||
FolioFiscal = ValorXML(nodeTFD, "UUID", "")
|
FolioFiscal = ValorXML(nodeTFD, "UUID", "")
|
||||||
@@ -1567,6 +1621,12 @@ Partial Class PopUpVerFactura
|
|||||||
rds4.Value = DtOperadores
|
rds4.Value = DtOperadores
|
||||||
lrds.Add(rds4)
|
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)
|
ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -25,6 +25,15 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
ViewState("CveMoneda") = value
|
ViewState("CveMoneda") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
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
|
Private Property IdCuentaBancaria As Integer
|
||||||
Get
|
Get
|
||||||
Return ViewState("IdCuentaBancaria").ToString.ToEntero
|
Return ViewState("IdCuentaBancaria").ToString.ToEntero
|
||||||
@@ -316,7 +325,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
If dr IsNot Nothing Then
|
If dr IsNot Nothing Then
|
||||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If HdnTipoTransaccion.Value = "Egs" Then
|
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
|
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim ValFechaDocumento As Boolean = False
|
Dim ValFechaDocumento As Boolean = False
|
||||||
Dim FoliosFechasValFechaDocumento As New StringBuilder
|
Dim FoliosFechasValFechaDocumento As New StringBuilder
|
||||||
|
|
||||||
@@ -408,16 +413,11 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
FechaDocumento = TxtFechaPrePoliza.Text.ToDate
|
FechaDocumento = TxtFechaPrePoliza.Text.ToDate
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim AnioFactura As Integer = FechaFactura.Year
|
Dim AnioFactura As Integer = FechaFactura.Year
|
||||||
Dim MesFactura As Integer = FechaFactura.Month
|
Dim MesFactura As Integer = FechaFactura.Month
|
||||||
|
|
||||||
|
|
||||||
Dim AnioDocumento As Integer = FechaDocumento.Year
|
Dim AnioDocumento As Integer = FechaDocumento.Year
|
||||||
Dim MesDocumento As Integer = FechaDocumento.Month
|
Dim MesDocumento As Integer = FechaDocumento.Month
|
||||||
|
|
||||||
|
|
||||||
If AnioFactura > AnioDocumento Then
|
If AnioFactura > AnioDocumento Then
|
||||||
|
|
||||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
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
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If HdnCheque.Value.ToEntero > 0 And ChkChequeExcedente.Checked And TxtImporte.Text.ToDecimal = 0 Then
|
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)
|
Alert("El importe del cheque excedente debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
@@ -488,8 +486,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
Dim UsaSimplificacionCajaChica As Boolean = False
|
Dim UsaSimplificacionCajaChica As Boolean = False
|
||||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then UsaSimplificacionCajaChica = True
|
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then UsaSimplificacionCajaChica = True
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim concepto As String = "Compras: "
|
Dim concepto As String = "Compras: "
|
||||||
|
|
||||||
For Each Gvr As GridViewRow In GvCxP.Rows
|
For Each Gvr As GridViewRow In GvCxP.Rows
|
||||||
@@ -502,7 +498,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|
||||||
If HdnCheque.Value.ToEntero > 0 AndAlso Not ChkReembolsarSinBancos.Checked Then
|
If HdnCheque.Value.ToEntero > 0 AndAlso Not ChkReembolsarSinBancos.Checked Then
|
||||||
CveIERegistrado = DDlCheques.SelectedValue.ToEntero
|
CveIERegistrado = DDlCheques.SelectedValue.ToEntero
|
||||||
|
|
||||||
@@ -514,7 +509,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
|
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)
|
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
|
IdPoliza = drp("IdPoliza").ToString.ToEntero
|
||||||
Else
|
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
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -544,7 +542,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
If dr IsNot Nothing Then
|
If dr IsNot Nothing Then
|
||||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||||
If UsuarioActual.Empresa.UsaContabilidadSIG Then CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ChkChequeExcedente.Checked Then
|
If ChkChequeExcedente.Checked Then
|
||||||
@@ -568,7 +565,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
If ObjMov.GetRetCuenta(30, CveCajaChica) Then
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
|
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.GetRetCuenta(30, CveCajaChica) Then
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
|
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.GetRetCuenta(30, CveCajaChica) Then
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
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
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If ObjMov.GetRetCuenta(29, CvePersonal) Then
|
If ObjMov.GetRetCuenta(29, CvePersonal) Then
|
||||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
IdCtaPersonal = ObjMov.DtResultados.Rows(0)("IdCtaContPersonal").ToString.ToEntero
|
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
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -933,6 +926,31 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
End If
|
End If
|
||||||
End If
|
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
|
End Select
|
||||||
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
If ImporteMovto = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then
|
If ImporteMovto = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then
|
||||||
@@ -959,84 +977,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
End If
|
End If
|
||||||
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
|
Dim SaldoExcedente As Double = gvr.FCTextBox("TxtSaldoExcedente").Text.ToDecimal
|
||||||
|
|
||||||
@@ -1282,71 +1223,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
End If
|
End If
|
||||||
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
|
End If
|
||||||
|
|
||||||
@@ -1408,31 +1284,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
AutoConta = False
|
AutoConta = False
|
||||||
End If
|
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
|
'Conta ContPAQ AUTOMATICA
|
||||||
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError.Trim = "" Then
|
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))
|
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim))
|
||||||
DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0")
|
DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0")
|
||||||
GvCxP.DataSource = DtDatos
|
GvCxP.DataSource = DtDatos
|
||||||
|
CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero
|
||||||
|
|
||||||
'Limpia Ddl Chequesventas
|
'Limpia Ddl Chequesventas
|
||||||
DDlCheques.Items.Clear()
|
DDlCheques.Items.Clear()
|
||||||
|
|||||||
@@ -253,13 +253,6 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
</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 class="row">
|
||||||
<div id="DivEmpresasFiltro" runat="server" visible="false">
|
<div id="DivEmpresasFiltro" runat="server" visible="false">
|
||||||
<div class="col-md-1 truncate">
|
<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>
|
<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>
|
</div>
|
||||||
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
|
<div runat="server" id="divAgruparMes" visible="false">
|
||||||
Moneda:
|
<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>
|
||||||
|
<div class="col-md-1 truncate" title="Moneda:" data-toggle="tooltip" data-placement="top">
|
||||||
<div class="col-md-2">
|
Moneda:
|
||||||
|
</div>
|
||||||
|
<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: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 Selected="True" Text="Todas" Value="-1"></asp:ListItem>
|
||||||
<asp:ListItem Text="Pesos" Value="1"></asp:ListItem>
|
<asp:ListItem Text="Pesos" Value="1"></asp:ListItem>
|
||||||
|
|||||||
@@ -26,33 +26,18 @@ Partial Class Contabilidad_FiltraPolizas
|
|||||||
End Property
|
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
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
|
|
||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
|
|
||||||
ViewState("Orden") = ""
|
ViewState("Orden") = ""
|
||||||
DdlPeriodo.SelectedValue = Now.Month.ToString
|
DdlPeriodo.SelectedValue = Now.Month.ToString
|
||||||
TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
|
TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
|
||||||
TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
|
TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
|
||||||
|
|
||||||
If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then
|
If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.TipoContabilidad > 0 Then
|
||||||
|
|
||||||
CargaSegmentoNeg()
|
CargaSegmentoNeg()
|
||||||
CargaEjercicios()
|
CargaEjercicios()
|
||||||
@@ -81,7 +66,7 @@ Partial Class Contabilidad_FiltraPolizas
|
|||||||
Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
|
Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
|
||||||
Dim Periodo As Integer = DdlPeriodo.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
|
Dim ObjConta As New ClsContabilidad
|
||||||
|
|
||||||
@@ -123,7 +108,7 @@ Partial Class Contabilidad_FiltraPolizas
|
|||||||
|
|
||||||
DdlSegmentoNeg.Items.Clear()
|
DdlSegmentoNeg.Items.Clear()
|
||||||
|
|
||||||
If ContabilidadSIG Then
|
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||||
DdlSegmentoNeg.DataValueField = "CveSubProyecto"
|
DdlSegmentoNeg.DataValueField = "CveSubProyecto"
|
||||||
DdlSegmentoNeg.DataTextField = "SubProyecto"
|
DdlSegmentoNeg.DataTextField = "SubProyecto"
|
||||||
DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||||
@@ -148,7 +133,7 @@ Partial Class Contabilidad_FiltraPolizas
|
|||||||
|
|
||||||
DdlEjercicio.Items.Clear()
|
DdlEjercicio.Items.Clear()
|
||||||
|
|
||||||
If ContabilidadSIG Then
|
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||||
|
|
||||||
Dim ObjConta As New ClsContabilidad
|
Dim ObjConta As New ClsContabilidad
|
||||||
|
|
||||||
@@ -603,7 +588,7 @@ Partial Class Contabilidad_FiltraPolizas
|
|||||||
|
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
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(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>"
|
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
|
If Not IsPostBack Then
|
||||||
|
|
||||||
ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
|
ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad = 1
|
||||||
|
|
||||||
TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
|
TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
|
||||||
TxtFechaFin.Text = Now.ToShortDateString
|
TxtFechaFin.Text = Now.ToShortDateString
|
||||||
|
|||||||
@@ -606,8 +606,7 @@
|
|||||||
<asp:Literal ID="DdlSubProyecto" runat="server" Text='<%# If(Eval("CveSubProyecto").ToString = "0", "-", Eval("SubProyecto")) %>'></asp:Literal><br />
|
<asp:Literal ID="DdlSubProyecto" runat="server" Text='<%# If(Eval("CveSubProyecto").ToString = "0", "-", Eval("SubProyecto")) %>'></asp:Literal><br />
|
||||||
<%--<asp:HiddenField ID="HdnSubProyecto" runat="server" Value='<%# Eval("CveSubProyecto") %>' />--%>
|
<%--<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 />--%>
|
<%--<asp:DropDownList ID="DdlSubProyecto" runat="server" Width="150px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />--%>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
<ItemStyle HorizontalAlign="Left" Width="150px" />
|
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField>
|
<asp:TemplateField>
|
||||||
<HeaderTemplate>TipoGasto</HeaderTemplate>
|
<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