Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rrene
@@ -233,7 +233,7 @@ Partial Class GPS_Rastreo
|
||||
|
||||
For Each Row As DataRow In DtDatos.Rows
|
||||
Try
|
||||
request = WebRequest.Create(String.Format("{0}nominatim/reverse.php?format=jsonv2&lat={1}&lon={2}", ClsPaginas.UrlDirecciones, Row("Lat"), Row("Lon")))
|
||||
request = WebRequest.Create(String.Format("{0}nominatim/reverse.php?format=jsonv2&lat={1}&lon={2}", ClsPaginas.UrlDirecciones, Row("Lat"), Row("Lng")))
|
||||
request.Method = "GET" ' set default credentials
|
||||
Dim response As WebResponse = Request.GetResponse() ' fire this puppy off
|
||||
Dim inputstream1 As Stream = response.GetResponseStream() ' define the stream(must be stream
|
||||
|
||||
@@ -213,14 +213,14 @@ Partial Class General_SaldosIniciales
|
||||
End If
|
||||
|
||||
|
||||
If Not dt.Columns(14).ColumnName = "Vendedor" Then
|
||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
If Not dt.Columns(15).ColumnName = "Clasificación" Then
|
||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
If Not dt.Columns(14).ColumnName = "Vendedor" Then
|
||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
If Not dt.Columns(15).ColumnName = "Clasificación" Then
|
||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
If Not dt.Columns(16).ColumnName = "Es distribuidor" Then
|
||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
@@ -294,7 +294,19 @@ Partial Class General_SaldosIniciales
|
||||
If Not dt.Columns(14).ColumnName = "Fecha Vencimiento" Then
|
||||
Alert("El nombre de la quinceava columna debe ser 'Fecha Vencimiento'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If RblFormato.SelectedValue = "4" Then
|
||||
If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
|
||||
Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
|
||||
Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
ElseIf RblFormato.SelectedValue = "5" Then
|
||||
@@ -1309,23 +1321,25 @@ Partial Class General_SaldosIniciales
|
||||
Dim Folio As Integer = Row("Folio").ToString.ToEntero
|
||||
Dim Fecha As Date = Row("Fecha").ToString.ToDate
|
||||
Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
|
||||
Dim ImpuestoLocal As Double = Row("ImpuestoLocal").ToString.ToDouble
|
||||
Dim Amortizacion As Double = Row("Amort.Ant").ToString.ToDouble
|
||||
Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
|
||||
Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
|
||||
Dim Total As Decimal = Row("Total").ToString.ToDecimal
|
||||
Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal
|
||||
Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"Codigo = '{RFC}'").ToString.ToEntero
|
||||
Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
|
||||
Dim RetIVA As Double = Row("Ret IVA").ToString.ToDouble
|
||||
Dim RetISR As Double = Row("Ret ISR").ToString.ToDouble
|
||||
Dim Moneda As String = Row("Moneda").ToString
|
||||
Dim TipoCambio As String = Row("Tipo Cambio").ToString
|
||||
Dim CveMoneda As Integer = 1
|
||||
Dim Vendedor As String = Row("Vendedor").ToString
|
||||
Dim Vendedor As String = "" 'Row("Vendedor").ToString
|
||||
Dim CveVendedor As Integer = 0
|
||||
Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
|
||||
Dim CveClienteSucursal As Integer = Row("CveClienteSucursal").ToString.ToEntero
|
||||
Dim ImpuestosLocales As Decimal = Row("ImpuestoLocal").ToString.ToDecimal
|
||||
|
||||
GuardaLog(Sucursal + "-" + Row("Sucursal").ToString)
|
||||
Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal
|
||||
Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
|
||||
Dim ImpuestosLocales As Decimal = Row("ImpuestoLocal").ToString.ToDecimal
|
||||
|
||||
GuardaLog(Sucursal + "-" + Row("Folio").ToString)
|
||||
'Temporalmente SE BORRARA
|
||||
Dim Transaccion As String = "" ' Row("Transaccion2").ToString
|
||||
Dim Folio2 As String = "" ' Row("Folio2").ToString
|
||||
@@ -1333,7 +1347,7 @@ Partial Class General_SaldosIniciales
|
||||
|
||||
|
||||
'If Not CveCliente > 0 Then Alert(String.Format("No se encontró el cliente con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorVentas = True : RFC.GuardaLog : Exit For
|
||||
TipoDocto = IIf(TipoDocto = "Ingresos", "Ing", IIf(TipoDocto = "Egresos", "Egs", "Rem")).ToString
|
||||
TipoDocto = IIf(TipoDocto = "INGRESO", "Ing", IIf(TipoDocto = "EGRESO", "Egs", "Rem")).ToString
|
||||
'PrePóliza
|
||||
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Venta/SaldoInicial", 1, Total, Total, 1, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
@@ -1367,11 +1381,11 @@ Partial Class General_SaldosIniciales
|
||||
|
||||
If TipoDocto.Contiene("Ing", "Egs", "Rem") Then
|
||||
GuardaLog(Serie & "-" & Folio)
|
||||
If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, 0, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
|
||||
If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
|
||||
0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
|
||||
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
|
||||
CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS, ImpuestoLocal:=ImpuestosLocales,
|
||||
ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente) Then
|
||||
CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
|
||||
ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestosLocales) Then
|
||||
ErrorVentas = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -1398,7 +1412,7 @@ Partial Class General_SaldosIniciales
|
||||
|
||||
'Saldo
|
||||
If Saldo < Total Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio.ToString, ConceptoContablePago, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo) Then ErrorVentas = True : Exit For
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio.ToString, ConceptoContablePago, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, CveVentaAmortizacion:=CveVenta) Then ErrorVentas = True : Exit For
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio.ToString, 95, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo) Then ErrorVentas = True : Exit For
|
||||
End If
|
||||
|
||||
|
||||
@@ -2253,6 +2253,14 @@ Partial Class OC
|
||||
End If
|
||||
End If
|
||||
|
||||
'VALIDAR PORCENTAJES DE IVA
|
||||
Dim PorcentajeIVA As Decimal = DdlIVA.SelectedValue.ToDecimal() - 1
|
||||
Dim PorcentajeIVADetalle As Decimal = Me.DtDetalle.MAX("IVAPorcentaje", "IVAPorcentaje > 0").ToDecimal()
|
||||
|
||||
If PorcentajeIVA > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then
|
||||
Alert("El IVA de los conceptos no coincide con el IVA a facturar.", TipoMensaje.MsgAdvertencia)
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
Return TieneError
|
||||
End Function
|
||||
|
||||
@@ -104,7 +104,7 @@
|
||||
</table--%>
|
||||
|
||||
<div style="">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFolio,FInicial,FActual,FFinal,Estado,TipoDocto,CveSubProyecto,Serie" EmptyDataText="No se encontraron Folios registrados" TShowHeader="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFolio,FInicial,FActual,FFinal,Estado,TipoDocto,CveSubProyecto" EmptyDataText="No se encontraron Folios registrados" TShowHeader="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None">
|
||||
<Columns>
|
||||
<%-- <asp:BoundField DataField="Sucursal" HeaderText="Sucursal" />--%>
|
||||
<asp:BoundField DataField="SubProyecto" HeaderText="Centro Costo" ItemStyle-HorizontalAlign="Left"/>
|
||||
@@ -182,12 +182,7 @@
|
||||
<asp:RequiredFieldValidator ID="RFVTipoDocto" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlTipoDocto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Docto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlTipoDocto.ClientID.ToString()%>">Tipo Docto:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtSerie" runat="server" CausesValidation="true" MaxLength="10" CssClass="form-control"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVSerie" runat="server" CssClass="help-block errorimput miclase" ControlToValidate="TxtSerie" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtSerie.ClientID.ToString()%>">Serie:</label>
|
||||
</div>
|
||||
|
||||
<%-- <div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtAprobacion" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVAprobacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAprobacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Aprobación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
|
||||
|
||||
@@ -125,7 +125,6 @@ Partial Class CatFolios
|
||||
HdnModalidad.Value = "U"
|
||||
DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
|
||||
DdlTipoDocto.SelectedValueExist(GvRow.DataKey("TipoDocto"))
|
||||
TxtSerie.Text = (GvRow.DataKey("Serie"))
|
||||
ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False)
|
||||
TxtFolioInicial.Text = (GvRow.DataKey("FInicial"))
|
||||
TxtFolioFinal.Text = (GvRow.DataKey("FFinal"))
|
||||
@@ -170,12 +169,12 @@ Partial Class CatFolios
|
||||
|
||||
|
||||
If HdnModalidad.Value = "I" Then
|
||||
If Not ObjFolios.AddFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtSerie.Text, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioInicial.Text.Trim.ToEntero,
|
||||
If Not ObjFolios.AddFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioInicial.Text.Trim.ToEntero,
|
||||
TxtFolioFinal.Text.Trim.Trim.ToEntero, Session("FileUpload").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TieneError = True
|
||||
End If
|
||||
Else
|
||||
If Not ObjFolios.UpdateFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtSerie.Text, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioActual.Text.Trim.ToEntero, TxtFolioFinal.Text.Trim.ToEntero,
|
||||
If Not ObjFolios.UpdateFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioActual.Text.Trim.ToEntero, TxtFolioFinal.Text.Trim.ToEntero,
|
||||
"", If(ChkEstatus.Checked, True, False), UsuarioActual.CveUsuario, CveFolio) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
@@ -128,7 +128,7 @@ Public Class WSGPSApp
|
||||
DtModulos = Nothing
|
||||
End If
|
||||
UsuarioRetorno.Modulos = UsuariosModulos
|
||||
Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente > 0", "Empresa")
|
||||
Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
|
||||
If DtClientes IsNot Nothing Then
|
||||
If DtClientes.Rows.Count > 0 Then
|
||||
For Each Row As DataRow In DtClientes.Rows
|
||||
|
||||
Reference in New Issue
Block a user