Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
rakcsle
127
Bancos/IE.aspx
127
Bancos/IE.aspx
@@ -30,8 +30,8 @@
|
|||||||
<li>
|
<li>
|
||||||
<asp:HyperLink ID="HLModalActualizarTC" NavigateUrl="#" runat="server" Visible="false" data-toggle="modal" data-target="#ModalActualizarTC" Style="color: #686868;"><i class="fa fa-usd" style="color:#686868;"></i> Actualizar Tipo Cambio</asp:HyperLink>
|
<asp:HyperLink ID="HLModalActualizarTC" NavigateUrl="#" runat="server" Visible="false" data-toggle="modal" data-target="#ModalActualizarTC" Style="color: #686868;"><i class="fa fa-usd" style="color:#686868;"></i> Actualizar Tipo Cambio</asp:HyperLink>
|
||||||
</li>
|
</li>
|
||||||
<li>
|
<li>
|
||||||
<asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="" style="color:#686868;"></i> PrePoliza</asp:HyperLink>
|
<asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="" style="color:#686868;"></i> PrePoliza</asp:HyperLink>
|
||||||
</li>
|
</li>
|
||||||
|
|
||||||
<%-- <li>
|
<%-- <li>
|
||||||
@@ -44,7 +44,7 @@
|
|||||||
<asp:LinkButton ID="LnkChqDevuelto" runat="server" Visible="false" OnClick="LnkChqDevuelto_Click" Style="color: #686868;"><i class="fa fa-ban" style="color:#686868;"></i> Cheque Devuelto</asp:LinkButton>
|
<asp:LinkButton ID="LnkChqDevuelto" runat="server" Visible="false" OnClick="LnkChqDevuelto_Click" Style="color: #686868;"><i class="fa fa-ban" style="color:#686868;"></i> Cheque Devuelto</asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="LnkCancelar" runat="server" Visible="false" OnClick="LnkCancelar_Click" Style="color: #686868;" data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento" ><i class="fa fa-ban" style="color:#686868;"></i> Cancelar Movimiento</asp:LinkButton>
|
<asp:LinkButton ID="LnkCancelar" runat="server" Visible="false" OnClick="LnkCancelar_Click" Style="color: #686868;" data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento"><i class="fa fa-ban" style="color:#686868;"></i> Cancelar Movimiento</asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="LnkEliminar" runat="server" Visible="false" OnClientClick="return confirm('¿Está seguro de eliminar el documento?');" Style="color: #686868;"><i class="fa fa-minus" style="color: #686868;"></i> Eliminar Movimiento</asp:LinkButton>
|
<asp:LinkButton ID="LnkEliminar" runat="server" Visible="false" OnClientClick="return confirm('¿Está seguro de eliminar el documento?');" Style="color: #686868;"><i class="fa fa-minus" style="color: #686868;"></i> Eliminar Movimiento</asp:LinkButton>
|
||||||
@@ -55,7 +55,7 @@
|
|||||||
</li>--%>
|
</li>--%>
|
||||||
|
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="LnkCancelarComplementoImporte" OnClick="LnkCancelarComplementoImporte_Click" runat="server" Visible="false" data-btn-ok-label="si" Style="color: #686868;" data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento y Complemento" > <i class="fa fa-pencil"></i> Cancelar Movimiento y Complemento</asp:LinkButton>
|
<%--<asp:LinkButton ID="LnkCancelarComplementoImporte" OnClick="LnkCancelarComplementoImporte_Click" runat="server" Visible="false" data-btn-ok-label="si" Style="color: #686868;" data-toggle="tooltip" data-placement="left" title="Cancelar Movimiento y Complemento" > <i class="fa fa-pencil"></i> Cancelar Movimiento y Complemento</asp:LinkButton>--%>
|
||||||
|
|
||||||
<%-- data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;"><i class="fa fa-pencil"--%>
|
<%-- data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;"><i class="fa fa-pencil"--%>
|
||||||
|
|
||||||
@@ -126,8 +126,8 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
<asp:Label CssClass="col-md-1" Text="" ID="LbTipoMoneda" runat="server" />
|
<asp:Label CssClass="col-md-1" Text="" ID="LbTipoMoneda" runat="server" />
|
||||||
<div class="col-md-2" id="DVPAgoEnPesos" runat="server" visible ="false">
|
<div class="col-md-2" id="DVPAgoEnPesos" runat="server" visible="false">
|
||||||
<asp:CheckBox Text="Pagar con pesos" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarPesos" OnCheckedChanged="ChkPagarPesos_CheckedChanged" runat="server" ClientIDMode="Static" />
|
<asp:CheckBox Text="Pagar con pesos" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarPesos" OnCheckedChanged="ChkPagarPesos_CheckedChanged" runat="server" ClientIDMode="Static" />
|
||||||
<%--<asp:CheckBox Text="Pagar con dolares" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarDolares" runat="server" OnCheckedChanged="ChkPagarDolares_CheckedChanged" ClientIDMode="Static" />--%>
|
<%--<asp:CheckBox Text="Pagar con dolares" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarDolares" runat="server" OnCheckedChanged="ChkPagarDolares_CheckedChanged" ClientIDMode="Static" />--%>
|
||||||
</div>
|
</div>
|
||||||
@@ -148,23 +148,24 @@
|
|||||||
<asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlEstatusIE" DataValueField="CveEstatusIE" DataTextField="EstatusIE" AutoPostBack="false"></asp:DropDownList>
|
<asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlEstatusIE" DataValueField="CveEstatusIE" DataTextField="EstatusIE" AutoPostBack="false"></asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="col-md-2" runat="server" id="DivTC" visible="false">
|
<div class="col-md-2" runat="server" id="DivTC" visible="false">
|
||||||
T.C.:
|
T.C.:
|
||||||
<asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaTCPagoOC();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
|
|
||||||
|
<asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaTCPagoOC();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
|
||||||
<asp:RequiredFieldValidator ID="RFVTC" Enabled="false" runat="server" ControlToValidate="TxtTC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cambio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator ID="RFVTC" Enabled="false" runat="server" ControlToValidate="TxtTC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cambio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCETC" runat="server" HighlightCssClass="vco" TargetControlID="RFVTC" Width="350px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VCETC" runat="server" HighlightCssClass="vco" TargetControlID="RFVTC" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
<asp:Label ID="LbImporteME" Text="" ClientIDMode="Static" runat="server" />
|
<asp:Label ID="LbImporteME" Text="" ClientIDMode="Static" runat="server" />
|
||||||
<div style="display:none">
|
<div style="display: none">
|
||||||
<asp:Button ID="LnkActualizaTCOC" ClientIDMode="Static" runat="server" Text="Actaulziar" OnClick="LnkActualizaTCOC_Click" ></asp:Button>
|
<asp:Button ID="LnkActualizaTCOC" ClientIDMode="Static" runat="server" Text="Actaulziar" OnClick="LnkActualizaTCOC_Click"></asp:Button>
|
||||||
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
<div class="col-md-2" runat="server" id="DivTC2" visible="false">
|
||||||
</div>
|
|
||||||
<div class="col-md-2" runat="server" id="DivTC2" visible="false">
|
|
||||||
Dolares
|
Dolares
|
||||||
<asp:TextBox ID="TxtImporteDolares" runat="server" Text="1" placeholder="Dolares" CssClass="form-control input-sm" MaxLength="12" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
|
|
||||||
<%--<asp:Label ID="Label1" Text="" ClientIDMode="Static" runat="server" />--%>
|
|
||||||
|
|
||||||
</div>
|
<asp:TextBox ID="TxtImporteDolares" runat="server" Text="1" placeholder="Dolares" CssClass="form-control input-sm" MaxLength="12" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
|
||||||
|
<%--<asp:Label ID="Label1" Text="" ClientIDMode="Static" runat="server" />--%>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
@@ -217,10 +218,10 @@
|
|||||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
|
||||||
|
|
||||||
<div runat="server" id="DvFolioACCondiciones" visible="false">
|
<div runat="server" id="DvFolioACCondiciones" visible="false">
|
||||||
|
|
||||||
<ajax:FilteredTextBoxExtender runat="server" ID="FTEFolio" TargetControlID="TxtFolio" FilterType="Custom" ValidChars="0123456789" />
|
<ajax:FilteredTextBoxExtender runat="server" ID="FTEFolio" TargetControlID="TxtFolio" FilterType="Custom" ValidChars="0123456789" />
|
||||||
<asp:RangeValidator ID="RvTxtFolio" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="El Folio debe de tener un valor de entre 1 y 2147483647" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ValidationGroup="GrpGuardar"></asp:RangeValidator>
|
<asp:RangeValidator ID="RvTxtFolio" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="El Folio debe de tener un valor de entre 1 y 2147483647" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ValidationGroup="GrpGuardar"></asp:RangeValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender8" runat="server" HighlightCssClass="vco" TargetControlID="RvTxtFolio" Width="350px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender8" runat="server" HighlightCssClass="vco" TargetControlID="RvTxtFolio" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
@@ -281,7 +282,7 @@
|
|||||||
<asp:DropDownList ID="DdlPersonal" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm input-medium select2me" Visible="false" Width="100%" OnSelectedIndexChanged="DdlPersonal_SelectedIndexChanged" AutoPostBack="true">
|
<asp:DropDownList ID="DdlPersonal" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm input-medium select2me" Visible="false" Width="100%" OnSelectedIndexChanged="DdlPersonal_SelectedIndexChanged" AutoPostBack="true">
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
|
|
||||||
<asp:Label runat="server" ID="LblPagarA" Visible="false"></asp:Label>
|
<asp:Label runat="server" ID="LblPagarA" Visible="false"></asp:Label>
|
||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
@@ -294,12 +295,12 @@
|
|||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
</asp:Panel>
|
</asp:Panel>
|
||||||
<div id="DivOtrosIngresosEgresos" runat="server" visible="false" class="row">
|
<div id="DivOtrosIngresosEgresos" runat="server" visible="false" class="row">
|
||||||
|
|
||||||
<label class="col-md-2 control-label ">Otros:</label>
|
<label class="col-md-2 control-label ">Otros:</label>
|
||||||
<div class="col-md-2 input-icon">
|
<div class="col-md-2 input-icon">
|
||||||
<i style="margin: 0px;">$</i>
|
<i style="margin: 0px;">$</i>
|
||||||
<asp:TextBox ID="TxtOtrosIngresosEgresos" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off"></asp:TextBox>
|
<asp:TextBox ID="TxtOtrosIngresosEgresos" runat="server" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off"></asp:TextBox>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -441,12 +442,12 @@
|
|||||||
<ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<label class="col-md-2 control-label">Concepto:</label>
|
<label class="col-md-2 control-label">Concepto:</label>
|
||||||
<div class="col-md-4">
|
<div class="col-md-4">
|
||||||
<asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
|
<asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
|
||||||
<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>--%>
|
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>--%>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
@@ -493,7 +494,7 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div class="portlet light xspadding bordered " runat="server" id="DVDevolucion" visible="false">
|
<div class="portlet light xspadding bordered " runat="server" id="DVDevolucion" visible="false">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
@@ -887,7 +888,7 @@
|
|||||||
<td>
|
<td>
|
||||||
<asp:TextBox ID="TxtTipoCambio" runat="server" MaxLength="12" Width="80px"></asp:TextBox></td>
|
<asp:TextBox ID="TxtTipoCambio" runat="server" MaxLength="12" Width="80px"></asp:TextBox></td>
|
||||||
</tr>
|
</tr>
|
||||||
<asp:Button ID="BtnCambiaTipoMoneda" Text="" OnClick="BtnCambiaTipoMoneda_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
|
<asp:Button ID="BtnCambiaTipoMoneda" Text="" OnClick="BtnCambiaTipoMoneda_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
@@ -1042,7 +1043,7 @@
|
|||||||
<asp:Button ID="BtnCancelar" runat="server" Visible="false" Text="Volver" OnClientClick="javascript:window.location.href='/Bancos/CatBancosIE.aspx';return false;" class="btn btn-danger " />
|
<asp:Button ID="BtnCancelar" runat="server" Visible="false" Text="Volver" OnClientClick="javascript:window.location.href='/Bancos/CatBancosIE.aspx';return false;" class="btn btn-danger " />
|
||||||
<asp:Button ID="BtnImprimir" runat="server" Text="Imprimir" Visible="False" class="btn btn-primary " />
|
<asp:Button ID="BtnImprimir" runat="server" Text="Imprimir" Visible="False" class="btn btn-primary " />
|
||||||
<asp:Button ID="BtnActualizar" runat="server" Text="Actualizar" ValidationGroup="GrpGuardar" Visible="False" class="btn btn-info " />
|
<asp:Button ID="BtnActualizar" runat="server" Text="Actualizar" ValidationGroup="GrpGuardar" Visible="False" class="btn btn-info " />
|
||||||
<asp:Button Text="Editar" ID="BtnEditar" OnClick="BtnEditar_Click" CssClass="btn btn-primary" runat="server" Visible ="false" ValidationGroup="GrpGuardar" />
|
<asp:Button Text="Editar" ID="BtnEditar" OnClick="BtnEditar_Click" CssClass="btn btn-primary" runat="server" Visible="false" ValidationGroup="GrpGuardar" />
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
</td>
|
</td>
|
||||||
@@ -1066,8 +1067,8 @@
|
|||||||
<i class="fa fa-commenting font-green"></i>
|
<i class="fa fa-commenting font-green"></i>
|
||||||
<span class="caption-subject bold">Agregar</span>
|
<span class="caption-subject bold">Agregar</span>
|
||||||
</div>--%>
|
</div>--%>
|
||||||
<asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
|
<asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
|
||||||
<asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
|
<asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -1252,7 +1253,38 @@
|
|||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="row" id="DivCancelarComplemento" runat="server" Visible="false">
|
||||||
|
<div class="col-md-12">
|
||||||
|
<div class="portlet light xspadding bordered whitoutcol" style="width: 100%">
|
||||||
|
<div class="portlet-title">
|
||||||
|
<div class="caption font-green">
|
||||||
|
<i class="icon-pin font-green"></i>
|
||||||
|
<span class="caption-subject bold uppercase">Cancelar Complemento</span>
|
||||||
|
</div>
|
||||||
|
<div class="actions">
|
||||||
|
<div class="btn-group">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="tools">
|
||||||
|
<a href="javascript:;" class="collapse"></a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="portlet-body ">
|
||||||
|
<div class="row" style="align-items: center; vertical-align: middle;">
|
||||||
|
<label class="col-md-3" style="max-width: 155px;">Motivo de cancelación:</label>
|
||||||
|
<div class="col-md-9">
|
||||||
|
<asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%" >
|
||||||
|
</asp:DropDownList>
|
||||||
|
|
||||||
|
<asp:RequiredFieldValidator ID="RfvDdlMotivoCancelacion" runat="server" ControlToValidate="DdlMotivoCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de Cancelación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="VCERfvDdlMotivoCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMotivoCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
<div class="modal-footer">
|
<div class="modal-footer">
|
||||||
@@ -1384,11 +1416,11 @@
|
|||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
|
|
||||||
<asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
|
<asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible ="false">
|
<asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible="false">
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
<asp:Literal runat="server" ID="LtlMotivoCancelacion" Text='<%# Eval("MotivoCancelacion") %>'> </asp:Literal>
|
<asp:Literal runat="server" ID="LtlMotivoCancelacion" Text='<%# Eval("MotivoCancelacion") %>'> </asp:Literal>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
|
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
|
|
||||||
@@ -1400,13 +1432,12 @@
|
|||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
|
|
||||||
<%-- <asp:TemplateField HeaderText="EstatusSAT" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
|
<%-- <asp:TemplateField HeaderText="EstatusSAT" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:LinkButton ID="LnkEstatusSAT" OnClick="LnkEstatusSAT_Click" runat="server" AlternateText="Editar" CausesValidation="False"
|
<asp:LinkButton ID="LnkEstatusSAT" OnClick="LnkEstatusSAT_Click" runat="server" AlternateText="Editar" CausesValidation="False"
|
||||||
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-question'></i>" />
|
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-question'></i>" />
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>--%>
|
</asp:TemplateField>--%>
|
||||||
|
|
||||||
</Columns>
|
</Columns>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
</div>
|
</div>
|
||||||
@@ -1547,7 +1578,7 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
<div id="ModalCancelarComplemetno" class="modal ADS fade" role="dialog">
|
<%-- <div id="ModalCancelarComplemetno" class="modal ADS fade" role="dialog">
|
||||||
<div class="modal-dialog">
|
<div class="modal-dialog">
|
||||||
|
|
||||||
<!-- Modal content-->
|
<!-- Modal content-->
|
||||||
@@ -1563,13 +1594,6 @@
|
|||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
|
|
||||||
<%-- <p>¿Cual de las siguientes acciones es la que desea realizar?</p>
|
|
||||||
|
|
||||||
<asp:RadioButtonList runat="server" ID="RdlCancelarComplemento" OnSelectedIndexChanged="RdlCancelarComplemento_SelectedIndexChanged" AutoPostBack="true" RepeatDirection="Horizontal">
|
|
||||||
<asp:ListItem Value="1" Selected="True">Cancelar Complemento</asp:ListItem>
|
|
||||||
<asp:ListItem Value="2">Cancelar Pago y Complemento</asp:ListItem>
|
|
||||||
</asp:RadioButtonList>--%>
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
<div class="row" runat="server" id="DivFechaCancelación" visible="true">
|
<div class="row" runat="server" id="DivFechaCancelación" visible="true">
|
||||||
|
|
||||||
@@ -1630,7 +1654,8 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>--%>
|
||||||
|
|
||||||
<div id="DModalDesconciliar" class="modal ADS fade" role="dialog">
|
<div id="DModalDesconciliar" class="modal ADS fade" role="dialog">
|
||||||
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpDesconciliar" UpdateMode="Conditional">
|
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpDesconciliar" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
@@ -1800,7 +1825,7 @@
|
|||||||
function ValidarCantidad(t, c) {
|
function ValidarCantidad(t, c) {
|
||||||
var Ot = 0.00;
|
var Ot = 0.00;
|
||||||
// considera importe de OT ingresos, para que se peuda exceder
|
// considera importe de OT ingresos, para que se peuda exceder
|
||||||
if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value);}
|
if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
|
||||||
t.value = (ToDouble(t.value) > ToDouble(c) + Ot ? c : t.value)
|
t.value = (ToDouble(t.value) > ToDouble(c) + Ot ? c : t.value)
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -1838,7 +1863,7 @@
|
|||||||
|
|
||||||
$(`#TxtImporte`).val(Total);
|
$(`#TxtImporte`).val(Total);
|
||||||
|
|
||||||
FormatoMoneda( $get("TxtImporte"));
|
FormatoMoneda($get("TxtImporte"));
|
||||||
|
|
||||||
} else {
|
} else {
|
||||||
$(`#TxtImporte`).val("");
|
$(`#TxtImporte`).val("");
|
||||||
@@ -1847,7 +1872,7 @@
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
function DeshabilitarTxt(){
|
function DeshabilitarTxt() {
|
||||||
|
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1120,7 +1120,8 @@ Partial Class Bancos_IE
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'LnkCancelarComplemento.Visible = False
|
'LnkCancelarComplemento.Visible = False
|
||||||
LnkCancelarComplementoImporte.Visible = False
|
'LnkCancelarComplementoImporte.Visible = False
|
||||||
|
DivCancelarComplemento.Visible = False
|
||||||
UppEliminarIE.Update()
|
UppEliminarIE.Update()
|
||||||
|
|
||||||
|
|
||||||
@@ -1296,7 +1297,8 @@ Partial Class Bancos_IE
|
|||||||
'LnkCancelar.Visible = False
|
'LnkCancelar.Visible = False
|
||||||
|
|
||||||
'LnkCancelarComplemento.Visible = True
|
'LnkCancelarComplemento.Visible = True
|
||||||
LnkCancelarComplementoImporte.Visible = True
|
'LnkCancelarComplementoImporte.Visible = True
|
||||||
|
DivCancelarComplemento.Visible = True
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -1304,7 +1306,8 @@ Partial Class Bancos_IE
|
|||||||
Else
|
Else
|
||||||
BtnEditar.Visible = False
|
BtnEditar.Visible = False
|
||||||
' LnkCancelarComplemento.Visible = False
|
' LnkCancelarComplemento.Visible = False
|
||||||
LnkCancelarComplementoImporte.Visible = False
|
'LnkCancelarComplementoImporte.Visible = False
|
||||||
|
DivCancelarComplemento.Visible = False
|
||||||
DVGenerarComplementoModal.Visible = False
|
DVGenerarComplementoModal.Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -4453,13 +4456,12 @@ Partial Class Bancos_IE
|
|||||||
Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs)
|
||||||
RegistraScript("$('#DivCancelarIE').modal('hide');")
|
RegistraScript("$('#DivCancelarIE').modal('hide');")
|
||||||
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
|
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
|
||||||
|
If ExistenComplementosVigentes AndAlso DdlMotivoCancelacion.SelectedValue.ToEntero() <= 0 Then
|
||||||
If Not ExistenComplementosVigentes Then
|
Alert("Debe seleccionar un motivo de cancelación", TipoMensaje.MsgError)
|
||||||
CancelarIE()
|
Exit Sub
|
||||||
Else
|
|
||||||
Alert("No se puede cancelar documento con complementos de pago vigentes", TipoMensaje.MsgError)
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
CancelarIE(CancelarComplemento:=ExistenComplementosVigentes)
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -4681,23 +4683,23 @@ Partial Class Bancos_IE
|
|||||||
Dim ObjCancelacion As New Timbrado
|
Dim ObjCancelacion As New Timbrado
|
||||||
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
|
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
|
||||||
|
|
||||||
If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
|
'If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
|
||||||
CargaComplementosPago()
|
' CargaComplementosPago()
|
||||||
RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
|
' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
|
||||||
ErrorCancelarComplemento = False
|
' ErrorCancelarComplemento = False
|
||||||
Alert("El complemento se cancelo correctamente.")
|
' Alert("El complemento se cancelo correctamente.")
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
|
Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
|
||||||
If respCancelacion.Verificado Then
|
If respCancelacion.Verificado Then
|
||||||
|
|
||||||
If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
|
'If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
|
||||||
CargaComplementosPago()
|
' CargaComplementosPago()
|
||||||
RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
|
' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
|
||||||
ErrorCancelarComplemento = False
|
' ErrorCancelarComplemento = False
|
||||||
Alert("El complemento se cancelo correctamente.")
|
' Alert("El complemento se cancelo correctamente.")
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
|
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
|
||||||
@@ -5937,7 +5939,7 @@ Partial Class Bancos_IE
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
|
If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
|
||||||
DVmotivoCancelacion.Visible = True
|
DivCancelarComplemento.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
@@ -6758,20 +6760,20 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
|
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
|
||||||
|
|
||||||
If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
|
'If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
|
||||||
CargaComplementosPago()
|
' CargaComplementosPago()
|
||||||
Alert("El complemento se cancelo correctamente.")
|
' Alert("El complemento se cancelo correctamente.")
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
|
|
||||||
Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
|
Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
|
||||||
If resp.Verificado Then
|
If resp.Verificado Then
|
||||||
|
|
||||||
If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
|
'If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
|
||||||
|
|
||||||
Alert("El complemento se cancelo correctamente.")
|
' Alert("El complemento se cancelo correctamente.")
|
||||||
End If
|
'End If
|
||||||
Else
|
Else
|
||||||
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
|
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
|
||||||
End If
|
End If
|
||||||
@@ -6791,7 +6793,7 @@ Partial Class Bancos_IE
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
|
'TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
|
||||||
CancelarIE(True)
|
CancelarIE(True)
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -6822,10 +6824,10 @@ Partial Class Bancos_IE
|
|||||||
CvePACCancelacion = DTComplementos.Rows(0)("CvePAC").ToString.ToEntero
|
CvePACCancelacion = DTComplementos.Rows(0)("CvePAC").ToString.ToEntero
|
||||||
|
|
||||||
RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
|
RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
|
||||||
DivFechaCancelación.Visible = True
|
'DivFechaCancelación.Visible = True
|
||||||
CargaComplementosPago()
|
CargaComplementosPago()
|
||||||
|
|
||||||
UpModalCancelarComplemetno.Update()
|
'UpModalCancelarComplemetno.Update()
|
||||||
|
|
||||||
Else
|
Else
|
||||||
If DTComplementos.Rows.Count = 0 Then
|
If DTComplementos.Rows.Count = 0 Then
|
||||||
|
|||||||
@@ -2047,6 +2047,7 @@ Partial Class PopUpVerFactura
|
|||||||
For Each parametro As ReportParameter In params
|
For Each parametro As ReportParameter In params
|
||||||
retorno.Parametros.Add(New ReportParameter($"SRP_{parametro.Name}", parametro.Values.Item(0)))
|
retorno.Parametros.Add(New ReportParameter($"SRP_{parametro.Name}", parametro.Values.Item(0)))
|
||||||
Next
|
Next
|
||||||
|
retorno.Parametros.Add(New ReportParameter($"TieneCartaPorte", "True"))
|
||||||
Else
|
Else
|
||||||
retorno.Parametros.AddRange(params)
|
retorno.Parametros.AddRange(params)
|
||||||
End If
|
End If
|
||||||
@@ -2690,7 +2691,7 @@ Partial Class PopUpVerFactura
|
|||||||
Dim CveTimbreCartaPorteVenta As Integer = -1
|
Dim CveTimbreCartaPorteVenta As Integer = -1
|
||||||
Dim CartaPorte As Modelos.MSubReportData = Nothing
|
Dim CartaPorte As Modelos.MSubReportData = Nothing
|
||||||
|
|
||||||
If Vta.TipoDocto = "Ing" Then
|
If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Ing" Then
|
||||||
Using ObjGral As New ClsGenerales
|
Using ObjGral As New ClsGenerales
|
||||||
If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
|
If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
|
||||||
Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
|
Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
|
||||||
@@ -2713,6 +2714,9 @@ Partial Class PopUpVerFactura
|
|||||||
'CartaPorte.DataSources.Add(New ReportDataSource() With {.Name = "DataSet1", .Value = dt})
|
'CartaPorte.DataSources.Add(New ReportDataSource() With {.Name = "DataSet1", .Value = dt})
|
||||||
|
|
||||||
CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True)
|
CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True)
|
||||||
|
Else
|
||||||
|
CartaPorte = New Modelos.MSubReportData()
|
||||||
|
CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
14
Inicio.aspx
14
Inicio.aspx
@@ -618,6 +618,20 @@
|
|||||||
</asp:HyperLink>
|
</asp:HyperLink>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="well well-sm">
|
||||||
|
<asp:HyperLink ID="LnkDoc18" NavigateUrl="Empresas\140\DocElectronica\Precios\ALCALINASPISOS.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> ALCALINAS PISOS
|
||||||
|
</asp:HyperLink>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="well well-sm">
|
||||||
|
<asp:HyperLink ID="LnkDoc19" NavigateUrl="Empresas\140\DocElectronica\Precios\ALCALINASMAYOREO.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> ALCALINAS MAYOREO
|
||||||
|
</asp:HyperLink>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
|
|||||||
@@ -231,7 +231,7 @@
|
|||||||
<br />
|
<br />
|
||||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivPSAdicionalVigencia" visible="false">
|
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivPSAdicionalVigencia" visible="false">
|
||||||
<ADS:Dropdownlost runat="server" ID="DdlPSAdicionalVigencia" CssStyle="width: 46%;" CssClass="form-control input-sm select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
<ADS:Dropdownlost runat="server" ID="DdlPSAdicionalVigencia" CssStyle="width: 46%;" CssClass="form-control input-sm select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||||
<label for="<%= DdlPSAdicionalVigencia.ClientID.ToString()%>">Producto de vigencia:</label>
|
<label for="<%= DdlPSAdicionalVigencia.ClientID.ToString()%>"><asp:Literal runat="server" Text="Producto de vigencia:" ID="LtlPSAdicionalVigencia"></asp:Literal> </label>
|
||||||
<i></i>
|
<i></i>
|
||||||
</div>
|
</div>
|
||||||
<br />
|
<br />
|
||||||
|
|||||||
@@ -330,6 +330,12 @@ Partial Class ProductosyServicios
|
|||||||
CargaPSAdicionalesVigencias()
|
CargaPSAdicionalesVigencias()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.CveEmpresa = 13 Then
|
||||||
|
DivPSAdicionalVigencia.Visible = True
|
||||||
|
LtlPSAdicionalVigencia.Text = "Producto Relacionado:"
|
||||||
|
CargaPSAdicionalesVigencias()
|
||||||
|
End If
|
||||||
|
|
||||||
'Nuevo R: 26/09/2017
|
'Nuevo R: 26/09/2017
|
||||||
CargaProveedores()
|
CargaProveedores()
|
||||||
|
|
||||||
|
|||||||
1156
Ventas/Ventas.aspx
1156
Ventas/Ventas.aspx
File diff suppressed because it is too large
Load Diff
@@ -2351,7 +2351,7 @@ Partial Class Ventas
|
|||||||
UpFacturar.Update()
|
UpFacturar.Update()
|
||||||
'CargaTiposDocumentos()
|
'CargaTiposDocumentos()
|
||||||
TrEmitir.Visible = False
|
TrEmitir.Visible = False
|
||||||
If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 13 Then
|
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||||
DivCartaPorte.Visible = True
|
DivCartaPorte.Visible = True
|
||||||
End If
|
End If
|
||||||
ViewState("EstablecioFolio") = False
|
ViewState("EstablecioFolio") = False
|
||||||
@@ -5818,10 +5818,11 @@ Partial Class Ventas
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub CargaFormaPago(CveMetodoPago As Integer)
|
Private Sub CargaFormaPago(CveMetodoPago As Integer)
|
||||||
'FACTURACION 3.3
|
'EN LA VERSION 4.0 NO PERMITE DESBLOEQUEAR RELACION METODO Y FOMA DE PAGO
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
|
||||||
'permiso para desbloquear la relación entre Método de pago y forma de pago
|
'permiso para desbloquear la relación entre Método de pago y forma de pago
|
||||||
If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
|
If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
|
||||||
|
End If
|
||||||
|
|
||||||
Dim dtt As DataTable = Nothing
|
Dim dtt As DataTable = Nothing
|
||||||
If CveMetodoPago > 0 Then
|
If CveMetodoPago > 0 Then
|
||||||
@@ -7290,7 +7291,7 @@ Partial Class Ventas
|
|||||||
If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
|
If Not UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
|
||||||
Objeto.ddl.Items.Clear()
|
Objeto.ddl.Items.Clear()
|
||||||
'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
|
'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
|
||||||
Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=1)
|
Objeto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=If(AplicaParaVenta, 1, -1))
|
||||||
Objeto.ddl.DataBind()
|
Objeto.ddl.DataBind()
|
||||||
Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
|
Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
|
||||||
Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||||
@@ -7307,9 +7308,9 @@ Partial Class Ventas
|
|||||||
|
|
||||||
Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto)
|
Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto)
|
||||||
Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
|
Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
|
||||||
Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
|
|
||||||
Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
|
Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
|
||||||
If AplicaParaVenta Then
|
If AplicaParaVenta Then
|
||||||
|
Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
|
||||||
Objeto.ddlWS.Attributes.Add("data-AplicaparaVenta", "1")
|
Objeto.ddlWS.Attributes.Add("data-AplicaparaVenta", "1")
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -14855,86 +14856,93 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Select Case ConversionRemision
|
Select Case ConversionRemision
|
||||||
Case "*"
|
Case "*"
|
||||||
For Each Row As DataRow In TmpDT.Rows
|
For Each Row As DataRow In TmpDT.Rows
|
||||||
Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
||||||
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
||||||
Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
||||||
If gvr.RowType = DataControlRowType.DataRow Then
|
If gvr.RowType = DataControlRowType.DataRow Then
|
||||||
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TipoCambioRemision, NumeroDecimales)).FormatoNumero
|
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TipoCambioRemision, NumeroDecimales)).FormatoNumero
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
Case "/"
|
Case "/"
|
||||||
For Each Row As DataRow In TmpDT.Rows
|
For Each Row As DataRow In TmpDT.Rows
|
||||||
Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
||||||
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
||||||
Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
||||||
If gvr.RowType = DataControlRowType.DataRow Then
|
If gvr.RowType = DataControlRowType.DataRow Then
|
||||||
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TipoCambioRemision, NumeroDecimales)).FormatoNumero
|
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TipoCambioRemision, NumeroDecimales)).FormatoNumero
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
Case Else
|
Case Else
|
||||||
|
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False), "Factura", "PDF")
|
Dim CartaPorte As Modelos.MSubReportData = Nothing
|
||||||
|
|
||||||
Select Case ConversionRemision
|
If UsuarioActual.CveEmpresa = 13 Then
|
||||||
Case "*"
|
CartaPorte = New Modelos.MSubReportData()
|
||||||
For Each Row As DataRow In TmpDT.Rows
|
CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
|
||||||
Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
End If
|
||||||
Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
|
||||||
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
|
||||||
Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
|
||||||
Next
|
|
||||||
|
|
||||||
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF")
|
||||||
If gvr.RowType = DataControlRowType.DataRow Then
|
|
||||||
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TipoCambioRemision, NumeroDecimales)).FormatoNumero
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
Case "/"
|
|
||||||
For Each Row As DataRow In TmpDT.Rows
|
|
||||||
Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
|
||||||
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
|
||||||
Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
|
||||||
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
|
||||||
Next
|
|
||||||
|
|
||||||
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
Select Case ConversionRemision
|
||||||
If gvr.RowType = DataControlRowType.DataRow Then
|
Case "*"
|
||||||
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TipoCambioRemision, NumeroDecimales)).FormatoNumero
|
For Each Row As DataRow In TmpDT.Rows
|
||||||
End If
|
Row("PU") = Math.Round(Row("PU").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
Next
|
Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
||||||
Case Else
|
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
||||||
|
Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble * TipoCambioRemision, NumeroDecimales)
|
||||||
|
Next
|
||||||
|
|
||||||
End Select
|
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
||||||
|
If gvr.RowType = DataControlRowType.DataRow Then
|
||||||
|
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TipoCambioRemision, NumeroDecimales)).FormatoNumero
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Case "/"
|
||||||
|
For Each Row As DataRow In TmpDT.Rows
|
||||||
|
Row("PU") = Math.Round(Row("PU").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("Total") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
||||||
|
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString().ToDouble * Row("PU").ToString().ToDouble, NumeroDecimales)
|
||||||
|
Row("Descuento") = Math.Round(Row("Descuento").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
|
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString().ToDouble / TipoCambioRemision, NumeroDecimales)
|
||||||
|
Next
|
||||||
|
|
||||||
|
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
||||||
|
If gvr.RowType = DataControlRowType.DataRow Then
|
||||||
|
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TipoCambioRemision, NumeroDecimales)).FormatoNumero
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Case Else
|
||||||
|
|
||||||
|
End Select
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -15355,9 +15363,9 @@ Partial Class Ventas
|
|||||||
'End If
|
'End If
|
||||||
'Dim Now As DateTime = New DateTime(2020, 2, 19)
|
'Dim Now As DateTime = New DateTime(2020, 2, 19)
|
||||||
Try
|
Try
|
||||||
CvePrepoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Anticipos", CvePlantillaPoliza, TxtTotal.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), TxtFechaAnticipoCliente.Text.ToDate, String.Format("{0} {1} {2}-{3}", If(EsAnticipo2017Jam, "Aplicación Anticipo 2017", ""), NombreCliente, Serie, TxtFolio.Text), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
If CvePrepoliza > 0 Then
|
If CvePrePoliza > 0 Then
|
||||||
Dim tipoCambioPago As Decimal = 1
|
Dim tipoCambioPago As Decimal = 1
|
||||||
Dim tipoCambioVenta As Decimal = 1
|
Dim tipoCambioVenta As Decimal = 1
|
||||||
Dim tipoCambioVentaValuacion As Decimal = 1
|
Dim tipoCambioVentaValuacion As Decimal = 1
|
||||||
@@ -15470,7 +15478,7 @@ Partial Class Ventas
|
|||||||
idCuentaContabilizacion = 0
|
idCuentaContabilizacion = 0
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, TipoCambio:=tipoCambioVentaValuacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, TipoCambio:=tipoCambioVentaValuacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -15503,7 +15511,7 @@ Partial Class Ventas
|
|||||||
idCuentaContabilizacion = 0
|
idCuentaContabilizacion = 0
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -15514,7 +15522,7 @@ Partial Class Ventas
|
|||||||
Dim Importe13 = gvr.DataKey("IVA").ToDecimal
|
Dim Importe13 = gvr.DataKey("IVA").ToDecimal
|
||||||
Dim Importe8 = gvr.DataKey("RetIVA").ToDecimal
|
Dim Importe8 = gvr.DataKey("RetIVA").ToDecimal
|
||||||
Dim Importe9 = gvr.DataKey("RetISR").ToDecimal
|
Dim Importe9 = gvr.DataKey("RetISR").ToDecimal
|
||||||
If Not AgregarPrePolizasXTrasladar(ObjConta, CvePrepoliza, PorcentajePago, tipoCambioPago, CuentasContablesInvalidas, idCuentaContabilizacion, CveCuentaContabilizacion, Importe13, Importe8, Importe9) Then
|
If Not AgregarPrePolizasXTrasladar(ObjConta, CvePrePoliza, PorcentajePago, tipoCambioPago, CuentasContablesInvalidas, idCuentaContabilizacion, CveCuentaContabilizacion, Importe13, Importe8, Importe9) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -15561,7 +15569,7 @@ Partial Class Ventas
|
|||||||
IdCtaContable = IdCtaContComplementaria
|
IdCtaContable = IdCtaContComplementaria
|
||||||
importeMX = importeMovimiento
|
importeMX = importeMovimiento
|
||||||
ImporteComplementaria = ((importeMovimiento * TC) - importeMovimiento).RoundSQL
|
ImporteComplementaria = ((importeMovimiento * TC) - importeMovimiento).RoundSQL
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(gvr.DataKey("TipoCambio").ToString().ToDecimal = 1, 0, importeMovimiento), TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, 203, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(gvr.DataKey("TipoCambio").ToString().ToDecimal = 1, 0, importeMovimiento), TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
@@ -15572,7 +15580,7 @@ Partial Class Ventas
|
|||||||
IdCtaContable = IdCtaContMonedaExtranjera
|
IdCtaContable = IdCtaContMonedaExtranjera
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMX, TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMX, TipoCambio:=TC, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
@@ -15580,8 +15588,8 @@ Partial Class Ventas
|
|||||||
'AMORTIZA NC CONTRA ANTICIPO A CLIENTES
|
'AMORTIZA NC CONTRA ANTICIPO A CLIENTES
|
||||||
If Not ErrorConta And DdlTipoComprobante.SelectedValue = "Ant" Then
|
If Not ErrorConta And DdlTipoComprobante.SelectedValue = "Ant" Then
|
||||||
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal) * gvr.DataKey("IVA").ToDecimal)
|
importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal) * gvr.DataKey("IVA").ToDecimal)
|
||||||
If ObjConta.AddPrePolizasDetalle(CvePrepoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString().ToEntero(), ImporteMX:=importeMovimiento) Then
|
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=gvr.DataKey("CveVenta").ToString().ToEntero(), ImporteMX:=importeMovimiento) Then
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero(), -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Concepto, 4, Concepto, FechaMovimiento, gvr.DataKey("IdCtaContableNC").ToEntero(), -1, CveClasificacion:=gvr.DataKey("CveClasificacionNC").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, ImporteMX:=importeMovimiento * TC, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
@@ -15603,23 +15611,23 @@ Partial Class Ventas
|
|||||||
If importeMovimiento <> 0 Then
|
If importeMovimiento <> 0 Then
|
||||||
' Agregamos el 2
|
' Agregamos el 2
|
||||||
If tipoCambioPago = 1 Then
|
If tipoCambioPago = 1 Then
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
Else 'Cuando son dolares
|
Else 'Cuando son dolares
|
||||||
If importeMovimiento <> 0 Then
|
If importeMovimiento <> 0 Then
|
||||||
If IdCtaContComplementaria > 0 Or 0 > 0 Then
|
If IdCtaContComplementaria > 0 Or 0 > 0 Then
|
||||||
'Agregamos la Complementaria
|
'Agregamos la Complementaria
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
'Agregamos la Extranjera
|
'Agregamos la Extranjera
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
'Agregamos la Extranjera
|
'Agregamos la Extranjera
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, FechaMovimiento, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -15635,14 +15643,14 @@ Partial Class Ventas
|
|||||||
'Agregamos el 13
|
'Agregamos el 13
|
||||||
|
|
||||||
IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
|
IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'Agregamos el 61
|
'Agregamos el 61
|
||||||
|
|
||||||
IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
|
IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -15656,14 +15664,14 @@ Partial Class Ventas
|
|||||||
'Agregamos el 38
|
'Agregamos el 38
|
||||||
|
|
||||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
|
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, 38, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 38, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'Agregamos el 39
|
'Agregamos el 39
|
||||||
|
|
||||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
|
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, TipoCambio:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuestoAmortizacion, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -15696,7 +15704,7 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMX, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -15847,7 +15855,7 @@ Partial Class Ventas
|
|||||||
idCuentaContabilizacion = 0
|
idCuentaContabilizacion = 0
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1,
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1,
|
||||||
CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, TipoCambio:=TipoCambioGeneral, CveIE:=CveIEAnticipo,
|
CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, TipoCambio:=TipoCambioGeneral, CveIE:=CveIEAnticipo,
|
||||||
PorcentajeImpuesto:=PorcentajeImpuesto, CveSubProyecto:=CveSubProyectoVenta) Then
|
PorcentajeImpuesto:=PorcentajeImpuesto, CveSubProyecto:=CveSubProyectoVenta) Then
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
@@ -15862,13 +15870,13 @@ Partial Class Ventas
|
|||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not ErrorConta AndAlso SimplificaPrePoliza AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrepoliza, UsuarioActual.CveEmpresa) Then
|
If Not ErrorConta AndAlso SimplificaPrePoliza AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||||
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then
|
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
|
||||||
If ObjConta.ValorPolizaDescuadre > 0 Then
|
If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||||
GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrepoliza}", "LogPrePolizas")
|
GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||||
ErrorConta = True
|
ErrorConta = True
|
||||||
|
|
||||||
End If
|
End If
|
||||||
@@ -18360,6 +18368,10 @@ Partial Class Ventas
|
|||||||
|
|
||||||
|
|
||||||
Dim ClienteRetIVA = Me.ClienteRetIVA
|
Dim ClienteRetIVA = Me.ClienteRetIVA
|
||||||
|
If ClienteRetIVA <= 0 AndAlso DrPS("RetIVA").ToString.ToDecimal > 0 Then
|
||||||
|
ClienteRetIVA = DrPS("RetIVA").ToString.ToDecimal
|
||||||
|
DdlTipoRetencion.Enabled = True
|
||||||
|
End If
|
||||||
|
|
||||||
If ClienteRetIVA <= 0 Then
|
If ClienteRetIVA <= 0 Then
|
||||||
If CBool(DrPS("EsOutSourcing").ToString()) Then
|
If CBool(DrPS("EsOutSourcing").ToString()) Then
|
||||||
@@ -18381,8 +18393,6 @@ Partial Class Ventas
|
|||||||
Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales)
|
Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales)
|
||||||
Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
||||||
|
|
||||||
Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
||||||
@@ -18556,253 +18566,9 @@ Partial Class Ventas
|
|||||||
OnError("Ocurrió un error al agregar el producto/servicio", ex)
|
OnError("Ocurrió un error al agregar el producto/servicio", ex)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
'Private Function AgregarProductoServicioCotizacion(Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String,
|
|
||||||
' PU As Decimal, Descuento As Decimal, PorcentajeIVA As Decimal, ImporteIVA As Decimal, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String, Optional Serie As String = "", Optional TiempoEntrega As String = "",
|
|
||||||
' Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
|
|
||||||
' Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "",
|
|
||||||
' Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False,
|
|
||||||
' Optional ImporteProntoPago As Decimal = 0) As Boolean
|
|
||||||
|
|
||||||
' Dim Retorno As Boolean = False
|
|
||||||
' Try
|
|
||||||
' If Not CvePS > 0 Then
|
|
||||||
' Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
|
|
||||||
' Return False
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' Dim Row As DataRow = Nothing
|
|
||||||
' Dim TotalCalculableImpuestos As Decimal = 0
|
|
||||||
' PU = PU.RoundSQL(6) ' el precio unitario puede llevar hasta 6 decimales permitidos
|
|
||||||
' Descuento = Descuento.RoundSQL(NumeroDecimales)
|
|
||||||
|
|
||||||
' If Not TmpDT.Columns.Contains("RetIVA") Then
|
|
||||||
' TmpDT.Columns.Add("RetIVA", GetType(Decimal))
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' Row = TmpDT.NewRow()
|
|
||||||
' Row("CveProyecto") = CveProyecto
|
|
||||||
' Row("Proyecto") = Proyecto
|
|
||||||
' Row("CveSubProyecto") = CveSubProyecto
|
|
||||||
' Row("SubProyecto") = SubProyecto
|
|
||||||
' Row("Serie") = Serie
|
|
||||||
' Row("TiempoEntrega") = TiempoEntrega
|
|
||||||
' If Modalidad = "U" Then
|
|
||||||
' Row("Orden") = Index
|
|
||||||
' Else
|
|
||||||
' Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero()
|
|
||||||
' If ConsecutivoActual < 0 Then
|
|
||||||
' ConsecutivoActual = 0
|
|
||||||
' End If
|
|
||||||
' Row("Orden") = ConsecutivoActual + 1
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' Row("Cantidad") = Cantidad
|
|
||||||
' Row("CveUM") = CveUM
|
|
||||||
' Row("UM") = UM
|
|
||||||
' Row("CveClasificacion") = CveClasificacion
|
|
||||||
' Row("Clasificacion") = Clasificacion
|
|
||||||
' Row("CvePS") = CvePS
|
|
||||||
' Row("Obs") = Obs
|
|
||||||
|
|
||||||
|
|
||||||
' Dim DrPS As DataRow = Nothing
|
|
||||||
|
|
||||||
' DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1
|
|
||||||
|
|
||||||
' If DrPS Is Nothing Then
|
|
||||||
' Alert("Ocurrió un error al cargar la información del Producto. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
||||||
' Return False
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' If (DrPS("SATClaveUnidadMedida").ToString() = "" Or DrPS("SATClavePS").ToString() = "") Then
|
|
||||||
' 'VALIDA CLAVESAT
|
|
||||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then 'DOCUMENTOS DONDE NO SE VALIDA
|
|
||||||
' If DrPS("SATClavePS").ToString() = "" Then
|
|
||||||
' MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin producto SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
|
|
||||||
' Return False
|
|
||||||
' ElseIf DrPS("SATClaveUnidadMedida").ToString() = "" Then
|
|
||||||
' MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin Unidad Medida SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
|
|
||||||
' Return False
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' 'If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
|
|
||||||
' ' MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
|
|
||||||
' ' Return False
|
|
||||||
' 'End If
|
|
||||||
' End If
|
|
||||||
' Else
|
|
||||||
' If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
|
|
||||||
' MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
|
|
||||||
' Return False
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' 'verifica si tiene ventaminima
|
|
||||||
' If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
|
|
||||||
' 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
|
|
||||||
' If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then
|
|
||||||
' Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString()))
|
|
||||||
' Return False
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' 'VERIFICA SI EN LA FACTURA PADRE SE DESGLOSO EL IEPS
|
|
||||||
' Dim FacturaDesglosoIEPS As Boolean = ((CveDevolucion > 0 AndAlso NuevaFactura = 1) AndAlso (Me.ObjFacturaNC IsNot Nothing AndAlso Not Me.ObjFacturaNC.VentaDesglosaIEPS))
|
|
||||||
|
|
||||||
' If Not ClienteDesglosaIEPS Then
|
|
||||||
' If Not RegeneraIEPS AndAlso Not FacturaDesglosoIEPS Then
|
|
||||||
' PU = PU * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)
|
|
||||||
' VentaDesglosaIEPS = True
|
|
||||||
' End If
|
|
||||||
' DrPS("IEPSPorcentaje") = 0
|
|
||||||
' End If
|
|
||||||
' 'SI YA SE DESGLOSO EL IEPS SE GUARDA LA BANDERA EN ESTA FACTURA
|
|
||||||
' If FacturaDesglosoIEPS Then
|
|
||||||
' VentaDesglosaIEPS = True
|
|
||||||
' End If
|
|
||||||
|
|
||||||
|
|
||||||
' TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento
|
|
||||||
|
|
||||||
' Row("PU") = PU
|
|
||||||
' Row("Codigo") = DrPS("Codigo")
|
|
||||||
' Row("NoIdentificacion") = DrPS("Codigo")
|
|
||||||
' Row("ClaveSATFraccionArancelaria") = DrPS("ClaveSATFraccionArancelaria")
|
|
||||||
' Row("ClaveSATUnidadAduana") = DrPS("ClaveSATUnidadAduana")
|
|
||||||
' Row("ClaveSATFraccionArancelariaDescripcion") = DrPS("ClaveSATFraccionArancelariaDescripcion")
|
|
||||||
' Row("ClaveSATUnidadAduanaDescripcion") = DrPS("ClaveSATUnidadAduanaDescripcion")
|
|
||||||
' If Modalidad = "U" Then
|
|
||||||
' Row("Consec") = Index
|
|
||||||
' Else
|
|
||||||
' Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero()
|
|
||||||
' If ConsecutivoActual < 0 Then
|
|
||||||
' ConsecutivoActual = 0
|
|
||||||
' End If
|
|
||||||
' Row("Consec") = ConsecutivoActual + 1
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' Row("PS") = DrPS("PS")
|
|
||||||
' Row("CodigoPS") = DrPS("PSCodigo").ToString()
|
|
||||||
' Row("CveTipoPS") = DrPS("CveTipoPS")
|
|
||||||
' Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
|
|
||||||
' Row("CveTamaño") = DrPS("CveTamaño")
|
|
||||||
|
|
||||||
' If CveClasificacion <= 0 Then Row("CveClasificacion") = DrPS("CveClasificacion")
|
|
||||||
' If Clasificacion = "" Then Row("Clasificacion") = DrPS("Clasificacion")
|
|
||||||
|
|
||||||
' Row("PorcentajeIVA") = PorcentajeIVA
|
|
||||||
|
|
||||||
' Dim ClienteRetIVA = Me.ClienteRetIVA
|
|
||||||
|
|
||||||
' If ClienteRetIVA <= 0 Then
|
|
||||||
' If CBool(DrPS("EsOutSourcing").ToString()) Then
|
|
||||||
' ClienteRetIVA = 0.06D
|
|
||||||
' DdlTipoRetencion.SelectedValueExist("4")
|
|
||||||
' ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
|
|
||||||
' ClienteRetIVA = 0.106667D
|
|
||||||
' ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
|
|
||||||
' ClienteRetIVA = 0.04D
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
|
|
||||||
' TrRetIVA.Style.Add("display", "")
|
|
||||||
' DdlTipoRetencion.Visible = True
|
|
||||||
|
|
||||||
|
|
||||||
' Row("IVA") = PorcentajeIVA
|
|
||||||
' Row("ImporteIVA") = (ImporteIVA).RoundSQL(NumeroDecimales)
|
|
||||||
' Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
' Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
|
||||||
|
|
||||||
' Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
|
||||||
' Row("PorcentajeRetIVA") = ClienteRetIVA
|
|
||||||
' Row("PorcentajeRetISR") = ClienteRetISR
|
|
||||||
' Row("PorcentajeIEPS") = DrPS("IEPSPorcentaje")
|
|
||||||
' Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
|
|
||||||
' Row("IEPS") = Row("ImporteIEPS")
|
|
||||||
' Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
|
|
||||||
' Row("TipoDescuento") = HdnTipoDescuento.Value
|
|
||||||
' Row("CvePromocionDetalle") = CvePromocionDetalle
|
|
||||||
' Row("Total") = (Cantidad * PU)
|
|
||||||
' Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
|
|
||||||
|
|
||||||
' 'Row("AsientoContableVentas") = DrPS("AsientoContableVentas")
|
|
||||||
' ' Row("IdCtaContVentas") = IdCtaContable
|
|
||||||
' ' Row("AplicaParaConcepto") = AplicaParaConcepto
|
|
||||||
|
|
||||||
' Row("SATClaveProdServ") = DrPS("SATClavePS")
|
|
||||||
' Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
|
|
||||||
|
|
||||||
' If UsuarioActual.Empresa.UsaAC Then
|
|
||||||
' Row("CvePresupuestoIngreso") = Me.DdlFuenteRecaudacion.SelectedValue
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' Row("EntregaDirecta") = EntregaDirecta
|
|
||||||
' 'Contratos
|
|
||||||
' Row("CveContratoDetalle") = CveContratoDetalle
|
|
||||||
' Row("CveVentaDetalle") = CveVentaDetalle
|
|
||||||
' Row("CveMovimientoDetallePedido") = CveMovimientoDetallePedido
|
|
||||||
' Row("CveOrdenCompraDetalle") = CveOrdenCompraDetalle
|
|
||||||
' Row("CveVentaDetalleRemision") = CveVentaDetalleRemision
|
|
||||||
' Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion
|
|
||||||
' Row("CveVentaDetallePedido2") = CveVentaDetallePedido2
|
|
||||||
' Row("CuentaPredial") = CuentaPredial
|
|
||||||
' Row("EsOutSourcing") = DrPS("EsOutSourcing")
|
|
||||||
' Row("EsCargo") = EsCargo
|
|
||||||
|
|
||||||
' If ImporteProntoPago > 0 Then
|
|
||||||
' Row("ImporteProntoPago") = ImporteProntoPago
|
|
||||||
' Row("TieneProntoPago") = "Si"
|
|
||||||
' 'SOLO DEBE MOSTRASE SI EL PAGO ES DE CONTADO
|
|
||||||
' If RBLPago.SelectedValue = "2" Then
|
|
||||||
' GvPS.Columns(22).Visible = True
|
|
||||||
' thProntoPago.Visible = True
|
|
||||||
' thProntoPago2.Visible = True
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' If UsuarioActual.CveEmpresa = 119 Then
|
|
||||||
' If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
|
|
||||||
|
|
||||||
' 'MONEDA DIFERENTE DEL PS AL PRIMER PS AGREGADO
|
|
||||||
' If DdlMoneda.Enabled = False And CveVenta < 0 And TmpDT.Rows.Count > 0 Then
|
|
||||||
' If DdlMoneda.SelectedValue <> DrPS("CveMoneda").ToString() Then
|
|
||||||
' Alert($"La moneda base del producto: <b>{DrPS("PSCodigo").ToString()}</b> es diferente a la moneda del documento.", TipoMensaje.MsgAdvertencia)
|
|
||||||
' Return False
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' 'ACTIVA PRODUCTOS DE LA MISMA MONEDA
|
|
||||||
' If TmpDT.Rows.Count = 0 And CveVenta < 0 Then
|
|
||||||
' DdlMoneda.SelectedValueExist(DrPS("CveMoneda").ToString())
|
|
||||||
' CambiaMoneda()
|
|
||||||
' DdlMoneda.Enabled = False
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
' End If
|
|
||||||
|
|
||||||
' 'RECARGAR GV
|
|
||||||
' TmpDT.Rows.Add(Row)
|
|
||||||
|
|
||||||
' Retorno = True
|
|
||||||
' Catch ex As Exception
|
|
||||||
' Retorno = False
|
|
||||||
' OnError("Ocurrió un error al agregar el producto/servicio", ex)
|
|
||||||
' End Try
|
|
||||||
|
|
||||||
|
|
||||||
' Return Retorno
|
|
||||||
'End Function
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "D A T A - T A B L E S"
|
#Region "D A T A - T A B L E S"
|
||||||
@@ -34203,8 +33969,8 @@ Partial Class Ventas
|
|||||||
|
|
||||||
Public Sub CargarCamiones()
|
Public Sub CargarCamiones()
|
||||||
|
|
||||||
TxtFechaEntregaCP.Text = Now.ToString("dd/MM/yyyy")
|
TxtFechaEntregaCP.Text = Now.Date.ToString("dd/MM/yyyy HH:mm")
|
||||||
TxtFechaLlegadaCP.Text = Now.ToString("dd/MM/yyyy")
|
TxtFechaLlegadaCP.Text = Now.Date.ToString("dd/MM/yyyy HH:mm") 'Now.Date.AddDays(1).AddMinutes(-1).ToString("dd/MM/yyyy HH:mm")
|
||||||
|
|
||||||
DdlConfigAuto.Items.Clear()
|
DdlConfigAuto.Items.Clear()
|
||||||
DdlUnidadCamion.Items.Clear()
|
DdlUnidadCamion.Items.Clear()
|
||||||
@@ -34273,6 +34039,10 @@ Partial Class Ventas
|
|||||||
TxtFechaEntregaCP.Enabled = False
|
TxtFechaEntregaCP.Enabled = False
|
||||||
TxtFechaLlegadaCP.Enabled = False
|
TxtFechaLlegadaCP.Enabled = False
|
||||||
|
|
||||||
|
Dim CveEntregaAlmacen As Integer = -1
|
||||||
|
Dim CveDireccionOrigen As Integer = -1
|
||||||
|
Dim CveDireccionDestino As Integer = -1
|
||||||
|
|
||||||
Using ObjGral As New ClsGenerales
|
Using ObjGral As New ClsGenerales
|
||||||
If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
|
If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
|
||||||
Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
|
Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
|
||||||
@@ -34281,19 +34051,58 @@ Partial Class Ventas
|
|||||||
If CveTimbreCartaPorteVenta > 0 Then
|
If CveTimbreCartaPorteVenta > 0 Then
|
||||||
ChkEmitirCartaPorte.Checked = True
|
ChkEmitirCartaPorte.Checked = True
|
||||||
ChkEmitirCartaPorte.Enabled = False
|
ChkEmitirCartaPorte.Enabled = False
|
||||||
|
|
||||||
|
|
||||||
|
CveEntregaAlmacen = RowCP("CveEntregaAlmacen").ToString().ToEntero()
|
||||||
|
|
||||||
|
CveDireccionOrigen = RowCP("CveDireccionOrigen").ToString().ToEntero()
|
||||||
|
CveDireccionDestino = RowCP("CveDireccionDestino").ToString().ToEntero()
|
||||||
|
|
||||||
|
TxtFechaEntregaCP.Text = RowCP("FechaEntrega").ToString()
|
||||||
|
TxtFechaLlegadaCP.Text = RowCP("FechaLlegada").ToString()
|
||||||
|
TxtDistancia.Text = RowCP("Distancia").ToString()
|
||||||
|
|
||||||
|
DdlChofer.SelectedValueExist(RowCP("CveChofer").ToString())
|
||||||
|
DdlUnidadCamion.SelectedValueExist(RowCP("CveCamion").ToString())
|
||||||
End If
|
End If
|
||||||
|
|
||||||
TxtFechaEntregaCP.Text = RowCP("FechaEntrega").ToString()
|
|
||||||
TxtFechaLlegadaCP.Text = RowCP("FechaLlegada").ToString()
|
|
||||||
TxtDistancia.Text = RowCP("Distancia").ToString()
|
|
||||||
|
|
||||||
DdlChofer.SelectedValueExist(RowCP("CveChofer").ToString())
|
|
||||||
DdlUnidadCamion.SelectedValueExist(RowCP("CveCamion").ToString())
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If ChkEmitirCartaPorte.Checked AndAlso CveEntregaAlmacen > 0 AndAlso ObjGral.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen) Then
|
||||||
|
DtMercancias = ObjGral.DtResultados
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
End Using
|
End Using
|
||||||
|
|
||||||
|
If ChkEmitirCartaPorte.Checked AndAlso CveCliente > 0 Then
|
||||||
|
Dim ObjClientes As New ClsClientes
|
||||||
|
If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
|
||||||
|
TmpDTDireccionCP = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
|
||||||
|
End If
|
||||||
|
ObjClientes.Dispose()
|
||||||
|
|
||||||
|
DdlDireccionOrigen.DataSource = TmpDTDireccionCP
|
||||||
|
DdlDireccionOrigen.DataBind()
|
||||||
|
|
||||||
|
DdlDireccionDestino.DataSource = TmpDTDireccionCP
|
||||||
|
DdlDireccionDestino.DataBind()
|
||||||
|
|
||||||
|
DdlDireccionOrigen.SelectedValueExist(CveDireccionOrigen.ToString())
|
||||||
|
DdlDireccionDestino.SelectedValueExist(CveDireccionDestino.ToString())
|
||||||
|
|
||||||
|
GvMercanciasCP.DataSource = DtMercancias
|
||||||
|
GvMercanciasCP.DataBind()
|
||||||
|
Else
|
||||||
|
TmpDTDireccionCP = Nothing
|
||||||
|
End If
|
||||||
|
|
||||||
DdlChofer.Enabled = False
|
DdlChofer.Enabled = False
|
||||||
DdlUnidadCamion.Enabled = False
|
DdlUnidadCamion.Enabled = False
|
||||||
|
DdlDireccionOrigen.Enabled = False
|
||||||
|
DdlDireccionDestino.Enabled = False
|
||||||
|
|
||||||
|
UpEmitirTransitorio.Update()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ValidaConfiguracionVehiculo()
|
Private Sub ValidaConfiguracionVehiculo()
|
||||||
@@ -34371,16 +34180,16 @@ Partial Class Ventas
|
|||||||
Dim CveTimbre As Integer = -1
|
Dim CveTimbre As Integer = -1
|
||||||
Try
|
Try
|
||||||
|
|
||||||
Dim CveDireccionOrigen As Integer = -1
|
Dim CveDireccionOrigen As Integer = DdlDireccionOrigen.SelectedValue.ToEntero
|
||||||
Dim CveDireccionDestino As Integer = -1
|
Dim CveDireccionDestino As Integer = DdlDireccionDestino.SelectedValue.ToEntero
|
||||||
|
|
||||||
If SucursalOrigenCP IsNot Nothing Then
|
'If SucursalOrigenCP IsNot Nothing Then
|
||||||
CveDireccionOrigen = ObjClientes.DireccionEnvioAdd(-1, SucursalOrigenCP.Direccion, SucursalOrigenCP.NoExt, SucursalOrigenCP.NoInt, SucursalOrigenCP.Colonia, SucursalOrigenCP.Municipio, SucursalOrigenCP.Estado, SucursalOrigenCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalOrigenCP.CveEstado, CvePais:=SucursalOrigenCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa)
|
' CveDireccionOrigen = ObjClientes.DireccionEnvioAdd(-1, SucursalOrigenCP.Direccion, SucursalOrigenCP.NoExt, SucursalOrigenCP.NoInt, SucursalOrigenCP.Colonia, SucursalOrigenCP.Municipio, SucursalOrigenCP.Estado, SucursalOrigenCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalOrigenCP.CveEstado, CvePais:=SucursalOrigenCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
If SucursalDestinoCP IsNot Nothing Then
|
'If SucursalDestinoCP IsNot Nothing Then
|
||||||
CveDireccionDestino = ObjClientes.DireccionEnvioAdd(-1, SucursalDestinoCP.Direccion, SucursalDestinoCP.NoExt, SucursalDestinoCP.NoInt, SucursalDestinoCP.Colonia, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalDestinoCP.CveEstado, CvePais:=SucursalDestinoCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa)
|
' CveDireccionDestino = ObjClientes.DireccionEnvioAdd(-1, SucursalDestinoCP.Direccion, SucursalDestinoCP.NoExt, SucursalDestinoCP.NoInt, SucursalDestinoCP.Colonia, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.CP.ToEntero(), "", UsuarioActual.CveUsuario, 1, -1, "", CveEstado:=SucursalDestinoCP.CveEstado, CvePais:=SucursalDestinoCP.CvePais, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
If Not (CveDireccionOrigen > 0 And CveDireccionDestino > 0) Then
|
If Not (CveDireccionOrigen > 0 And CveDireccionDestino > 0) Then
|
||||||
ErrorProceso = True
|
ErrorProceso = True
|
||||||
@@ -34398,7 +34207,7 @@ Partial Class Ventas
|
|||||||
If CveEntregaAlmacen > 0 Then
|
If CveEntregaAlmacen > 0 Then
|
||||||
|
|
||||||
For Each RowPS As DataRow In ObjFactura.DtMercancias.Rows
|
For Each RowPS As DataRow In ObjFactura.DtMercancias.Rows
|
||||||
If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUM").ToString().ToEntero, UsuarioActual.CveUsuario) Then
|
If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUnidadMedida").ToString().ToEntero, UsuarioActual.CveUsuario) Then
|
||||||
ErrorProceso = True
|
ErrorProceso = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
@@ -34650,20 +34459,24 @@ Partial Class Ventas
|
|||||||
UpAgregarMercancia.Update()
|
UpAgregarMercancia.Update()
|
||||||
RegistraScript("$('#DivAddMercancia').modal('show');", "M1")
|
RegistraScript("$('#DivAddMercancia').modal('show');", "M1")
|
||||||
End Sub
|
End Sub
|
||||||
|
Private Sub CreaDTMercancias()
|
||||||
|
DtMercancias = New DataTable()
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("Consec", GetType(Integer)))
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Integer)))
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("CveUnidadMedida", GetType(Integer)))
|
||||||
|
DtMercancias.Columns.Add(New DataColumn("CodigoPS", GetType(String)))
|
||||||
|
End Sub
|
||||||
Protected Sub LnkAddPSMercancia_Click(sender As Object, e As EventArgs)
|
Protected Sub LnkAddPSMercancia_Click(sender As Object, e As EventArgs)
|
||||||
If DtMercancias Is Nothing Then
|
If DtMercancias Is Nothing Then
|
||||||
DtMercancias = New DataTable()
|
CreaDTMercancias()
|
||||||
DtMercancias.Columns.Add(New DataColumn("Consec", GetType(Integer)))
|
|
||||||
DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Integer)))
|
|
||||||
DtMercancias.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
|
|
||||||
DtMercancias.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
|
|
||||||
DtMercancias.Columns.Add(New DataColumn("CodigoPS", GetType(String)))
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim CvePS As Integer = DdlPSMercancia.SelectedValue.ToEntero()
|
Dim CvePS As Integer = DdlPSMercancia.SelectedValue.ToEntero()
|
||||||
|
|
||||||
Dim DrPS As DataRow = GlobalDTPSSimplificado(CveEmpresa:=UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
|
Dim DrPS As DataRow = GlobalDTPSSimplificado(CveEmpresa:=UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
|
||||||
If DrPS Is Nothing Then
|
If DrPS Is Nothing Then
|
||||||
Alert("No se encontró el producto/servicio", TipoMensaje.MsgAdvertencia)
|
Alert("No se encontró la mercancía", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -34671,7 +34484,7 @@ Partial Class Ventas
|
|||||||
NewRow("Consec") = DtMercancias.MAX("Consec").ToEntero() + 1
|
NewRow("Consec") = DtMercancias.MAX("Consec").ToEntero() + 1
|
||||||
NewRow("Cantidad") = TxtCantidadMercancia.Text.ToDecimal()
|
NewRow("Cantidad") = TxtCantidadMercancia.Text.ToDecimal()
|
||||||
NewRow("CvePS") = DrPS("CvePS")
|
NewRow("CvePS") = DrPS("CvePS")
|
||||||
NewRow("CveUM") = DrPS("CveUnidadMedida")
|
NewRow("CveUnidadMedida") = DrPS("CveUnidadMedida")
|
||||||
NewRow("CodigoPS") = DrPS("PSCodigo")
|
NewRow("CodigoPS") = DrPS("PSCodigo")
|
||||||
|
|
||||||
DtMercancias.Rows.Add(NewRow)
|
DtMercancias.Rows.Add(NewRow)
|
||||||
@@ -34679,46 +34492,50 @@ Partial Class Ventas
|
|||||||
GvMercanciasCP.DataSource = DtMercancias
|
GvMercanciasCP.DataSource = DtMercancias
|
||||||
GvMercanciasCP.DataBind()
|
GvMercanciasCP.DataBind()
|
||||||
|
|
||||||
If ChkAgregarFlete.Checked Then
|
If ChkLimpiarPS.Checked Then
|
||||||
Dim CvePSServicio As Integer = DdlPSFlete.SelectedValue.ToEntero()
|
If TmpDT IsNot Nothing Then
|
||||||
If CvePSServicio > 0 Then
|
TmpDT.Rows.Clear()
|
||||||
Dim Cantidad As Decimal = TxtCantidadMercancia.Text.ToDecimal
|
End If
|
||||||
Dim PU As Decimal = TxtPrecioMercancia.Text.Trim.ToDecimal
|
End If
|
||||||
Dim Descuento As Decimal = 0
|
|
||||||
Dim CveUM As Integer = -1
|
|
||||||
Dim UnidadMedida As String = ""
|
|
||||||
Dim CveClasificacion As Integer = -1
|
|
||||||
Dim Clasificacion As String = ""
|
|
||||||
|
|
||||||
Dim drPSFlete As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSServicio).FiltroPrimero("")
|
Dim CvePSServicio As Integer = DdlPSFlete.SelectedValue.ToEntero()
|
||||||
If DrPS IsNot Nothing Then
|
If CvePSServicio > 0 Then
|
||||||
CveUM = drPSFlete("CveUnidadMedida").ToString().ToEntero()
|
Dim Cantidad As Decimal = TxtCantidadMercancia.Text.ToDecimal
|
||||||
CveClasificacion = drPSFlete("CveClasificacion").ToString().ToEntero()
|
Dim PU As Decimal = TxtPrecioMercancia.Text.Trim.ToDecimal
|
||||||
End If
|
Dim Descuento As Decimal = 0
|
||||||
|
Dim CveUM As Integer = -1
|
||||||
|
Dim UnidadMedida As String = ""
|
||||||
|
Dim CveClasificacion As Integer = -1
|
||||||
|
Dim Clasificacion As String = ""
|
||||||
|
|
||||||
Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
|
Dim drPSFlete As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSServicio).FiltroPrimero("")
|
||||||
Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
|
If DrPS IsNot Nothing Then
|
||||||
|
CveUM = drPSFlete("CveUnidadMedida").ToString().ToEntero()
|
||||||
|
CveClasificacion = drPSFlete("CveClasificacion").ToString().ToEntero()
|
||||||
|
End If
|
||||||
|
|
||||||
Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
|
Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
|
||||||
|
Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
|
||||||
|
|
||||||
AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion,
|
Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
|
||||||
|
|
||||||
|
AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion,
|
||||||
CvePSServicio, "", TxtObservacionesMercancia.Text.Trim, PU, Descuento,
|
CvePSServicio, "", TxtObservacionesMercancia.Text.Trim, PU, Descuento,
|
||||||
CveProyecto, Proyecto, CveSubProyecto, DdlSubProyectoDatos.SelectedItem.Text,
|
CveProyecto, Proyecto, CveSubProyecto, DdlSubProyectoDatos.SelectedItem.Text,
|
||||||
Serie:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
|
Serie:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
|
||||||
ImporteProntoPago:=0)
|
ImporteProntoPago:=0)
|
||||||
|
|
||||||
CalculaUsados()
|
CalculaTotalesVenta()
|
||||||
|
Alert("Se agregó la mercancía correctamente")
|
||||||
CalculaTotalesVenta()
|
Else
|
||||||
Else
|
Alert("No se agregó el servicio", TipoMensaje.MsgAdvertencia)
|
||||||
Alert("No se agrego el servicio del flete", TipoMensaje.MsgAdvertencia)
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
TxtCantidadMercancia.Text = ""
|
TxtCantidadMercancia.Text = ""
|
||||||
TxtObservacionesMercancia.Text = ""
|
TxtObservacionesMercancia.Text = ""
|
||||||
|
TxtPrecioMercancia.Text = ""
|
||||||
|
|
||||||
|
RegistraScript("$('#DivAddMercancia').modal('hide');", "A2")
|
||||||
UpAgregarMercancia.Update()
|
UpAgregarMercancia.Update()
|
||||||
UpEmitirTransitorio.Update()
|
UpEmitirTransitorio.Update()
|
||||||
End Sub
|
End Sub
|
||||||
@@ -34797,19 +34614,31 @@ Partial Class Ventas
|
|||||||
DdlDireccionDestino.DataSource = TmpDTDireccionCP
|
DdlDireccionDestino.DataSource = TmpDTDireccionCP
|
||||||
DdlDireccionDestino.DataBind()
|
DdlDireccionDestino.DataBind()
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs)
|
'Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
DivServicioFlete.Visible = ChkAgregarFlete.Checked
|
' DivServicioFlete.Visible = ChkAgregarFlete.Checked
|
||||||
|
|
||||||
UpAgregarMercancia.Update()
|
' UpAgregarMercancia.Update()
|
||||||
End Sub
|
'End Sub
|
||||||
Protected Sub DdlPSMercancia_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPSMercancia.selectedindexchange
|
Protected Sub DdlPSFlete_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPSFlete.selectedindexchange
|
||||||
Dim CvePSParametro As Integer = DdlPSMercancia.SelectedValue.ToEntero()
|
Dim CvePSParametro As Integer = DdlPSFlete.SelectedValue.ToEntero()
|
||||||
If CvePSParametro > 0 Then
|
If CvePSParametro > 0 Then
|
||||||
|
|
||||||
Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSMercancia.SelectedValue.ToEntero()).FiltroPrimero("")
|
Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
|
||||||
If drPS IsNot Nothing Then
|
If drPS IsNot Nothing Then
|
||||||
|
Dim CvePSMercancia As Integer = drPS("CvePSAdicionalVigencia").ToString().ToEntero()
|
||||||
Dim CveClasificacion As Integer = drPS("CveClasificacion").ToString().ToEntero()
|
Dim CveClasificacion As Integer = drPS("CveClasificacion").ToString().ToEntero()
|
||||||
|
|
||||||
|
If CvePSMercancia > 0 Then
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1" Then
|
||||||
|
DdlPSMercancia.SelectedValue = CvePSMercancia.ToString()
|
||||||
|
'DdlPSMercancia.SelectedText = TxtPS.Text.Trim
|
||||||
|
Else
|
||||||
|
'DdlPSMercancia.ddl.Items.Insert(2, New ListItem(TxtPS.Text.Trim, ObjProductosServicios.CvePS.ToString()))
|
||||||
|
DdlPSMercancia.ddl.SelectedValueExist(CvePSMercancia.ToString())
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
'SUGIERE PRECIO
|
'SUGIERE PRECIO
|
||||||
Dim PrecioSugerido As Decimal = 0
|
Dim PrecioSugerido As Decimal = 0
|
||||||
Dim tPrecioSugerido As Decimal = 0
|
Dim tPrecioSugerido As Decimal = 0
|
||||||
@@ -34883,6 +34712,8 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
UpAgregarMercancia.Update()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user