From 9af5891916d9268127ff80d80cc6c656d96ff0eb Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 16 Oct 2019 13:45:17 -0500 Subject: [PATCH 01/13] quitando validacion en OC sobre el activo fijo --- OC/OC.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index d43c018cc..c0448c64b 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -795,8 +795,8 @@ - - + <%----%> + <%----%> Activo Fijo From 86a850b1ffd1278e5b2606fe0c30c0f2e1da71ed Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 18 Oct 2019 10:35:25 -0500 Subject: [PATCH 02/13] checkpoint en la orden de servicio --- OS/OrdenesServicios.aspx.vb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index e586d230e..5bfb5f754 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -340,7 +340,7 @@ Partial Class OS_OrdenesServicios hdnEsThickbox.Value = "S" hdnClientIDLink.Value = "NoDefinido" - + ImprimirAlGenerar() End If End Sub @@ -2423,6 +2423,13 @@ Partial Class OS_OrdenesServicios ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) End Sub + + Private Sub ImprimirAlGenerar() + Dim params As New List(Of ReportParameter) + Dim report As LocalReport = New LocalReport() + report.ReportPath = String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa) + Dim paramCollection = report.GetParameters + End Sub #End Region #Region "S O L I C I T A R M A T E R I A L" From 2d0a35bb7a78f8ee0501e3a67827119f815f8941 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Fri, 18 Oct 2019 13:44:57 -0700 Subject: [PATCH 03/13] Sugerir Toxicidad segun IEPS Porcentaje --- Ventas/ProductosServicios.aspx | 2 +- Ventas/ProductosServicios.aspx.vb | 13 ++++++++++++- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 2541f0c6d..c0a918e0c 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -557,7 +557,7 @@
- + diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index caf2ca126..50e8551cf 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -2597,5 +2597,16 @@ Partial Class ProductosyServicios #End Region - + Protected Sub DdlIEPSPorcentaje_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlIEPSPorcentaje.SelectedIndexChanged + Select Case DdlIEPSPorcentaje.SelectedValue + Case "0.09" + DdlCategoriaToxicidad.SelectedValueExist("001") + Case "0.07" + DdlCategoriaToxicidad.SelectedValueExist("002") + Case "0.06" + DdlCategoriaToxicidad.SelectedValueExist("003") + Case Else + DdlCategoriaToxicidad.SelectedValueExist("000") + End Select + End Sub End Class From f3ba2b444b077074561f475b1d0658126fddd3d4 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Fri, 18 Oct 2019 14:58:00 -0700 Subject: [PATCH 04/13] DevDinC guarda Importe de Concepto 18 en Negativo --- Bancos/IE.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 09ab57456..f27e00567 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2809,8 +2809,9 @@ Partial Class Bancos_IE 'CANCELA NC IdCtaContableAplicar = IDCtaBeneficiario ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then + Dim Importe = If(DdlTipoTransaccion.SelectedValue.ToEntero = 7, ImporteAplicar * -1, ImporteAplicar) 'ImporteAplicar * -1 + + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (Importe), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" Exit Select End If From 4c620aabd32f3ebe0d4beadd4108b57a32f3594f Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 19 Oct 2019 13:44:04 -0500 Subject: [PATCH 05/13] agregando formato para imprimir --- OS/OrdenesServicios.aspx.vb | 60 +++++++++++++++++++++++++++++++++++-- 1 file changed, 57 insertions(+), 3 deletions(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 5bfb5f754..4a954e7ea 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -247,6 +247,24 @@ Partial Class OS_OrdenesServicios ViewState("CveTecnico") = value End Set End Property + + Private Property ClienteRFC As String + Get + Return ViewState("ClienteRFC").ToString + End Get + Set(value As String) + ViewState("ClienteRFC") = value + End Set + End Property + + Private Property ClienteMail As String + Get + Return ViewState("ClienteMail").ToString + End Get + Set(value As String) + ViewState("ClienteMail") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -340,7 +358,6 @@ Partial Class OS_OrdenesServicios hdnEsThickbox.Value = "S" hdnClientIDLink.Value = "NoDefinido" - ImprimirAlGenerar() End If End Sub @@ -708,6 +725,8 @@ Partial Class OS_OrdenesServicios ClienteEstado = ObjCliente.Estado TelefonoCliente = ObjCliente.Telefono TxtSolicito.Text = ObjCliente.Contacto + ClienteRFC = ObjCliente.RFC + ClienteMail = ObjCliente.Mail If ObjCliente.GetSucursales(CveCliente) Then DdlSucursalCliente.DataSource = ObjCliente.DtResultados @@ -979,7 +998,7 @@ Partial Class OS_OrdenesServicios If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then Errores = True End If - + CargaCliente(CveCliente) For Each Row As DataRow In TmpDT.Rows If Not Errores Then Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero @@ -1046,6 +1065,8 @@ Partial Class OS_OrdenesServicios Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";" + ImprimirAlGenerar() + ObjOrdenServicio.Commit() Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, Liga) @@ -2427,8 +2448,41 @@ Partial Class OS_OrdenesServicios Private Sub ImprimirAlGenerar() Dim params As New List(Of ReportParameter) Dim report As LocalReport = New LocalReport() + + Dim dt As DataTable = TmpDT + Dim DtMateriales As DataTable = TmpDTMaterialesDetalle + report.ReportPath = String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa) - Dim paramCollection = report.GetParameters + + params.Add(New ReportParameter("Cliente", NombreCliente)) + params.Add(New ReportParameter("Direccion", ClienteDireccion)) + params.Add(New ReportParameter("NoDeCliente", TxtCodigo.Text)) + params.Add(New ReportParameter("RFC", ClienteRFC)) + params.Add(New ReportParameter("Poblacion", ClienteCiudad)) + params.Add(New ReportParameter("Vendedor", UsuarioActual.Nombre)) + params.Add(New ReportParameter("Contacto", TxtSolicito.Text)) + params.Add(New ReportParameter("Correo", ClienteMail)) + params.Add(New ReportParameter("Sucursal", DdlSubProyecto.SelectedItem.Value)) + params.Add(New ReportParameter("TipoServicio", "Reparación/Diagnostico")) + params.Add(New ReportParameter("DiaFecha", Date.Today.Day.ToString)) + params.Add(New ReportParameter("MesFecha", Date.Today.Month.ToString)) + params.Add(New ReportParameter("AñoFecha", Date.Today.Year.ToString)) + params.Add(New ReportParameter("DiaVigencia", Date.Today.Day.ToString)) + params.Add(New ReportParameter("MesVigencia", Date.Today.Month.ToString)) + params.Add(New ReportParameter("AñoVigencia", Date.Today.Year.ToString)) + params.Add(New ReportParameter("Folio", CveFolio.ToString)) + params.Add(New ReportParameter("CodigoDeServicio", CveOS.ToString)) + params.Add(New ReportParameter("FallaReportada", TxtDescripcion.Text)) + params.Add(New ReportParameter("Copia", "Copia: Cliente")) + + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = DtMateriales} + Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = dt} + + lrds.Add(rds) + lrds.Add(rds2) + + ImprimirPDF(String.Format("Empresas/{0}/Formatos/FormatoOS.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) End Sub #End Region From 56c4985fb0020f8996762e735a1d0cdb6a814d96 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 21 Oct 2019 08:50:41 -0700 Subject: [PATCH 06/13] otros ingresos/egresos IE --- Bancos/IE.aspx | 6 +-- Bancos/IE.aspx.vb | 3 +- Bin/Microsoft.SqlServer.Types.dll | Bin 391880 -> 392456 bytes Compras/Compras.aspx.vb | 6 +-- SqlServerTypes/readme.htm | 61 ++++++++++++++++++++++++++++++ packages.config | 2 + 6 files changed, 70 insertions(+), 8 deletions(-) create mode 100644 SqlServerTypes/readme.htm diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 5d8bd47e6..3a606dd7c 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -247,10 +247,8 @@
- -
-
- + +
$ diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 09ab57456..bc8479a7f 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1180,7 +1180,8 @@ Partial Class Bancos_IE DdlProveedores.SelectedText = ObjProveedor.NombreComercial DdlProveedores.SelectedValue = ObjProveedor.CveProveedor.ToString - + DivOtrosIngresosEgresos.Visible = True + End If Select Case RBL.SelectedValue diff --git a/Bin/Microsoft.SqlServer.Types.dll b/Bin/Microsoft.SqlServer.Types.dll index d4dd789939d82c83eb2720bf5868234ffafca86d..1ccde4ab41861e147c71e420d78328995842559d 100644 GIT binary patch delta 10090 zcmcJT30zFy`}psjnLF)!DwLLq_UTUhv`$*c7AmxGU%Qso-45vZE@w>fsdfk3<#M}pz~ z21q;}f@oMd26orO?!WzLn1&n{9_Ee7Kyj=Z2x|taK0?N+z}Koa;J#JC^eU%IF%s~+ zs%>Idal^virK_< z*kf$zaKNb8>47n!lPmA*{6qa!?p^kH%;>LfZZY`LpWK)JXl_Mwoh#HcS3B3a={*5+ zoU4s>UjNqvh&}#OyLpefef#)01f$mz?t|TYGS_}?TdRAyj>rRi*E_de9jr~GU+wOA zTKKD1;+WJByX<~xwfg>XI(Hy)=Zn`bt$W|wUuC)4xliQvZ0<0ftNr*#ZNl?El@;Us zNn7wQ?cC?3yx$kbn>_z_ptcIY0x&E=mys+w*fAR*BFq=P5 z=5>SI{`@s~V2&r}_IcgQx$k=JsOx+A$EO&YtNmBmKWVGnUv-(lbS8xahr{%mGbA`b z9m|TX0omj=@UEA}rdW9V_wVnx%8g!sVb>uU^9mPUMl_!tpidVLTeaKawcOZDdYrVTVcW%npHqTb@Z86KOs;P4ipii20 zYCT&sIwSJ@p?}7;w55ZoS`N+0A-SQvx^OnLJqo96eyAFPNbwN#6}!`7v9v=(m|yU= zaPG62YQs=-7Yvb{93Wmi9umc5q-9Qa*4SMJ%PSi&b)s>$up2Wb8rLNn#4pN6grfLU z`H4^w#u~R6+#4JWGnehg`N2*#7k1-TAAk#(-+Azs5~a{h$!mBnZv!^rOKTi>@%1>k zv_@J0FVDw+1gch7ffn*bNik`XcuBf0+^$ZBNN|)C8RF{5kONH8AVcABE5-wGkR};Q z0yeu~t~LO^ipjm(CpJH$<&&{HC~!aJ}uw|ON3 zw<}zED@JbTlnC68l0Y*g&?E_KK26h#FaWn;Wv;fY)=o(L>|64-;ZH<9a`LM(kl%Zi6Y!2HCc zL69dGa_NHIxT1O>st0KjFIP?C<;s(IxfK-x4hVA71A+p?6J)&54{{|*B3$>9M7gvQ z6(Hhutwb?-jfNE74yHfC-c}Xzi0tWo1Zr1j0CKi-C6FJWKb|;ErU82XU;v&dr_BIl z0V)In8$eHtm=>g2KjcANEgO&n2nBN`3S833G?4KGWB{@N*%;-tIe<_IH?06j1M~!B z0I~p~P+$W{1M~!BV4Nni069Pc?ciF{0O_9CZJNvgWC5}PIe<_Y=qVr#&=ZgW$O2>o zasZ)lu00LV6OaMO!YHTB2IK%j5um$taH9cw0x|$u7%`^-asZ*7peul$7%?XUvH;nD z96%@%R1HW2^aNyJ#5@7W1`XKqvv&1JVFJ0U3ZSF6m@8$Uup}6p#k!3CI9sVZ?j@$N_|s!1Dpp02zQRKsF!; z5ZVJQ0cjYg$(|t10Hm|PjSa{Fgpxs5Fk)T-X-_}~APbNU$N_{>xb_S{R>}aJrw#1| zH2|{ra-#@sKZr4aoSdsXQBqJYmo(<{h4_U|d?=KMC#FyoF!G@^Ku+j6o(=6Pa!hC(3L{@9~8jrCt=F?b2K{DZRaDMXrk>XdmyL5q=@TFoJ0yh*^0CxwMT8LuwQ~GD@bP6a%sj6;)7GU25my z7!nc~?%`mgMy42{R2@StiUDe%20`L5Bs9kyf*fJUeyg$D)-B;~;oIG|_=S7BaZ7lh zRMbEpb@L9|>Skb&U5YHK=`KQ~af|;Od)-T=$ZFz$W2$e6RgKoHK9A_b5_-Sw@>X!u zG+d_QJe=uu=D7-F3H_poPX}@jUAq4?&;Acb+`n?&@c-<&TgVoFw`c>sFrNr7zd*O} z9f5Aa5nHzeg}ViD)8R4U-hp8eF`+);ZeHQxK0#XoW88xLyu(7mLwqC1m`S)#Sfo!F zIU+_7vmr-%M~8-m_`5OTbBHAKxdonBgS&tb;VK4q>&07%?3Q~?fS^I_;{NtEAdouN z&%g7pnFW;yMfe4e54cHrDR#eQ|5Yoa* z8(=vDOas+qUPJ<5JPi_Ne!qlh3vg9GE3Ki{Aa%H+D+o@W*8+P891cPg&1Z;w>M6@p zri5S~94pa$1QWex%3niP7^{j^d^=orF(6ZLQFLEzw({4nVw$YPd1+`Op%+cW*R$|A z7>AR3KccfG5DE9BbeIH z5GQ7Q4??5otiNHeSuN+#Wads9+(R+&I&V*_Vy)T^mx(BoZWY@WFOOMmE0opQa?K_3GdJG^=Hbu>gcz4sEVks z!BJ*N@w2mM#3z%7x2yUs$yso+=KP35bVz+O1>HM2MK{nuY0k@S8S6?~1Q~q;D^6-f zIE@SyTgN_>xG{c9IZkj^w`GXraiZmcS`hA`j*GuaTg83&K-T$}f(K&dvdugkT}#9} z$%zr{&}FA>P%DZWs)7j!0ul+H8wz&Gc5Y^z8#!H6KdkD$aWN^qZ!w===pTNftjl{{_pPR|R7geG>KUmC&F@HLa&Uv8tD?S5hQ%R$>pyM8O; z{A0;GqPtEG_a2q9r09ieT4kTYMU`rsd9Cnv{>Y5$Sbx+rx#ZeH8y<_tH|ZHuYbR>s zc~b|M-rjW3l6}<3PX3YHG-|J=ZL-Yyu;F{A;yY>IL$cahK>^$>jdb8&?EsQ6f2{_-Wc!jO>aUuT|KYc)UE`#sC<=tjZSdbuS2 zzWQ_>zVYk&stwQD_gR#ROBA4?$}BN#NI%1d^qqf(H1w6#Z{PlOzKb!K@L!pQ*O2r@ zMyQdFt`3TgViXK%3guT8O=tyU+TwrlR+ga3KVG1m<94q=pKt|72L~o+95H52eLxiH z-5d9J*{v5dH=DKRHy&0r`_fsba$JiRcj(>7LB!>YOzfS{6S?jkQ4!xn*-ho_Y?4#T z%C=Eo*uCK?k9i}!r?BLFQviSGnOBUD{$=;Vb}ujwsJ?&nI>BCGid?>tT6V2!YR#n~ zU9B!p*)S_KeEr0V5X;p~i_%sI8(L0cwXLPM zR-IFBR8?uUoY>RfKC^N<_eQGN!zYpH*~|Uvl+^cKdbo;VpXKk~aZ_YMadO+iCgD2k zuZxG-6YbVX<-1O9eDhSVT&6uauP|V{X~~u*(JMnWgFf>EZCn!Zqbr-Pt$O7it8uk7 zgM8KS?}@>OO$-E;;|_mef)qjWQ=no`rf8FLidw_tXBs49zCeX`=9)U>3;kfDe9QKp zwoLiLr6u!HHaWbnb6CNmCyu(2orWVlsTyr{LTLfvaSh&As=Jn#xqIV`YTJ9oRp5eOkN1oLxJ60a^*y4OxyQ4lMuDLa4Q_3-xtXP|{8=+b| z`DARwl$vgBy!ZO(I1AhT_*2*Dq311)%N0%)l)2CI*&X9LkMv3KZk}8sn1+?op#)kqV1CVx!ghfcHc_xs6aVW+n8g+M&6Tzsb=Y_JN?%b@$bVP8FVyI z3nn&LaxR>>yen7eD(||5P5D8xS(o9FwXU=7Lm}=@XD!EB9DBE{N8Q90iXHA2sfKz7 zX%#>w(L~iTreG(sSMFcY8Ra7)8p3$o0t8|uoMTpWA}iEalwWMJoGKM)3{!tEJuo>G zj%E&`Yl!?BM3?|48scC<3Jo=9DKHi>6^0OL0UfYj85S&H$S^rC5E(iu^lKe~VFV&1 z!jN2C%?qoY9@|X!t6PZ7tC&}f3R0`g!=xEHj~&dsS9`bBXzq!%DP^_GY=|A+7rUyk zy{F`**xEXtlZ{)7D?9XS1qQ3l_iWX?lYUP57{a_i`sih}dg#HVqD3i|!P47}0#ys< zmsIZzcE7cBA^o#jdCBFTx3QO3y;_x;p)BH5zdS-Czn;7`7e+puY577Bkx-p=cJ6)sY^-o89pwjuhXlHi|eMmU$&W570)$>;v9pw$#yZr4I zct>XF9_Eg(E6*2KEzz^k43ju|eV+i`zU$1qRc|9lUw)lRn(v+0IWzCd^{~|Hr<`(T;E3yuSgs=moc?mqYN3)?1PX5Gt=Sxh}XrgDB7 zdqq$>kw%PhPj`9Ilir(c=s|FOgC;7w|1(etFeOoWH72wB8DM)kiU`+< zo+-;=ALg@e#M;(3Q7uf5=_GwTi25d2u{OqH|AU?VIp4BnW=c=B5N^;|i9!izBJv$u z9$x*kJiz$Pi)D|?7cRQYT^?XObNeGC>+c;8YNTiM+l~ih=j?bovLX$JQqCHD^ZRVO z`@p`nO@~716;7qfa`DtxNWMt zB5}EMv~453*{A9JYO>CS4H|3ocv8RlDPA|Xo_Qvomt40yG9@nTLS&BD(EhEfY+Elq zG){{;617b+_mT^7^D=tMglPv~qmWrk<#55;=#D-6`e9S0ujjLQo86DI-@QHKa_sQL zJ=z-o@bk|GB4WEdY?;^kx2Z-QFTW{Fk;;HX;BPB8JBl>k_Oaj}D75XJ)WjRlzp)*W z${nKX)fMke_n|Ji@BLu3q3`JL58Op`%L|F;(!=>*c>fju4z?6Igk zH?S`z$e>ccUgRoXn8=Go9|YmSG{y9k4Mn&}VLbf_$atPuzD9vJhG_a>}|#s3YGyo4C?qkz0dq;pzIo^YU!?%3Gh2 zle(fJ#pSLKt{?J}enojzzofc+LZxf@k(7Pk#Pu_`Ds=>CnUrYG%Tnt!%pTJJF4%gH zC?$1L`9eSSbFgr9kKn>fYMv^QddfL{walGOu*qME;!;YC)OmZZ9;2^SsE}TgVt2kZ z&SsvKUUpl8n~dgzBV*gn_J`jyD{T3yv&d6+xMCqXqj{BwoW19WjjE$tOZF_QH=*Ye z+Gus*({gsDt*razNcBzm58jWBe_6ijqSt|nG|S<#%Xx>!zxyv0sWl%K9?ANe&bS&q zKq`)QtqhX??0hrsQU~>Z44soC>&gGbtfJ$cL7ffH@Ir&&mu4mizW71$V)2Zj$U=!K z8y71|;**{|=V~kDcTP;o#jO)FRC#?-f6tDojb-P)r0%$Xtn;MH*2o)a^>Oq3Ge1g> zk3H6>T<#6~QoZxuz8wF$V>WkvD<6GtJ$z{A;M<{;&U*`cRoJdaL+nB}xzqjBpE<0Y ze%-ihGH~8!{Cp9yDVK=A=D{#Ax&gv(U&&}QRH2h#j>Gs>Sm4G znrE{gN@hyfDvG;WP~v1YwOe(?QOW*HW@$OAX*9~cY=N;;2 zR;FJWW*e2V;(cxT%D0cX@wDA#E&XWn^oUvcX8K(L^xB*J+cxKpKaLE(6+6G0t@oFE zL83$vnkaGVSJ=SgvG^}>7?T~G6aOXXm}nOc#{U-of4nU$067u`ejb7OL}3Ce5w^m% zFBX`>1Y0nER?U3=3X!o7&$U#1l(TAmow79ZL4uTuAnrbYbGgXw-Cj?Pvx|0Vpj&ZX89OEp5e8T*^ zy?#5+QU23mLBYmhjj^qPt*w@hwWXof(xry_%=Qn63ic2p;x)6ck!Yg)M{MPK{Ljh- z4Or=(sGv4XKLQ7v0cO@Ha`@N5#t{9na{WBmaI^o1{aj8@b1dAIqp9L{B{*{X-9@wS z$L8Nu?kFFfSnpw4O?ex}3G$k>QRmAviTOxf{>4s?V7Vmuzz0{j3 zK9RN_lBf9x%hb|CT+*(uIO!|!&7^UGx^?VA{hT@t${l6j9h~lcud;lu>(=eoS99L2 zU7%(0F0{;}Nw~g$_`_iyUytrY`gW)72SrtP-}}H(S$W)9wfp;>SDG$*IsGRdbseFE zF)JrWw$e1q@?Q$Jn2S)OUMub%+!Rc6p6+!%J%vm)`5n!oEg*-V{d*-`h>bVt-xfNB z9RB-M0dx238R%A{jlN=$x5PVZtj7>Rn7$^{%Jc*E?b){JH9MyS&0T5@$fdU1w5YpJ z#$DOibauY^m#5o|DqnCcze^jcTv=J$CMWP*#b8_8ByZTkz%ASIv=`hit1Ym7vuTs7 z_M0sU3j^J&_I_x^y|iyi&Qm!1MJZ$gVaoP@jxS5ir#pBKT{wC>>P>)sUXSjF)l7vk zVY-IwwyUHNH+cfE7&Yo5!PHtUt%TdwZB->i4N^x6#y>@l6lT%YIqD(Z7F&mGA^jcyv190h-VOrt^~jZaOnBTt_6N);KzV zDXe2)ps%H8rE9BYrEhJ+d^~|zcs<_`vk_I25&0QO40I^imj^?aUjoCQ0yG?@{tQxk zocXc+uLi1y^5YPQTLBJ+P$C8#Y|ITm*f&3!y+4#28=0|_$Xa@I=>Eg?T+y>c2)s}a%V>;B$sy-gD(I`ysjFC43n z-oN>-@n&OapV>`XFps2R{h2WBFnpef&vI)fp)EpMLtO#m5_n`84j~>aIxa#9V+*gFzIE5S*`FB_h zm_}#{RKGK+0+J3!r6<2lHI;0}cXcvgO)cJb)%8BrTg%T~XEseEizNTkxM0psBWd)1 zRf=NgI^(CejfWb}FBg9p!fq~mJXi)3mi&IM6Zmni3r#fX7W*ioIewjWwkH9W=x@JW z$XEZp=}Xd@Ly4~{w>?%0Q_FKweZ$KiI(}RNo9qpu4{p?Z{;naZesGGP zp4{XYJ5#T**vdCoV-zupS0TUU7zgfr-F`TEQf_=SSpA-WV%h1;IGgZdy{lHn8fWrV zR-F-8tmblc7#~hEuP7Z-PL9NXf=Ljyf~|Pw~^^a--Zz<(=Ei; zH}9%dGE8(&-@a&j|8rLvs$|l!tZJX4zpB}%=0lyEIO`U#%F1^!{OF4Nu6c6ullrk@ rf8!l$skDaO5`9D88W+8`f5BJ4%;Bw3jgf#;dWsq@;;G4y(aX*V;X0cmo zviZdR+HZ$qu27=79V1H02Uz5evJ?Arx_$O8P(KD}LCtWCqI zcEdVyrg}9K(;8rh&6JhY`ESq#6VU@Ze5S0Po$scu6cq!e236a(9el$^3D%{jSe>VZ2xN`PI0%yyaZrgN*O-cvGiL}j zj|_$T#BQCvp*iBj$w%M)))+=M5~adzCj9SreSJ&|Ftxn?$;@D%0W5zB4xD`dy`}Mj z;R6wyJl**TUf0(0dN*CQtTnAY*pj(Z&cWSv(??rgdcs;L>z(0gQ7SF;U2sB6_T^Vc zNUgUv$uiT=pI%cvBRzN4NOvXUxI;`2365nyjl!udODcgN)p!W{gq`UznCub}9vHHD zyI^dn4h%hNgdtTo7ia>9homr_>Iyd-3+y}tkB2VN*t$D$R`5D@^iEu(l#l3kQ6iKM zm@O(L!d)MY8^FO3dqo^B5O(5Ti^JLPhs)TLLU>b|Z0L?`IbOhOz&d<3*F_j#g@d!X z@?!Y;BBBZ+QF4o*45&ntO_#;XG6WJC(t`z5g`?!ikPED;MTWM+wHRaJo0xt-yjq(K zC4xFZFc;JN!l_z;a3efJdoN%QECxl%nd35`o0=MUf!+oXPso60Y2yhwm}flUBt{j2 zIozwMLf8&VlT`?M49uwt!31u`C}>875DPSdZmAIL;GY-;9a159z+o5#4XY3Yoe;RF z#VF{a3PI306@p*@s-Q7dtl=Hns-Q`8LJwT3ZB7t$&KHnH(1Kmb0y21-i9nU}n?3Nb zb`_9&09BE9FqNc=2rf1UvN@1_ft-l(A_-3v)WH)4byR;-pfLw}U!ov3IhcHrWGMXe@Ty7) zXf7p2Y|}ND!t`7%IlK+b$j9zhF_KT_2M7oS0&c+*>&bLL?_UhU6Nkx6Kn|etR!|4f z8zW`~GUt~*SYYJ=@&Ta`fkqjS4(Kf)gUkd44j>QXFqsbsg$iV4Ksul|AQO-S2yFv( z0O^344sVOpI700C_;e2Qm}|JV!AECpsuF0Xb1U@EjdzColuj0lfh^(O^t~d_d(G-~rGZ zBi2PAbAIV#1y&9q50DQC#R30uc!r>PQ1Aw10&*~7p#$UtLc75D0O^3AofO# zU8M|22lU2>-DyA$ARp)ngRPe5-0*_{e_4L80Hl!YgHQj{_Bb?AWJfJ{IRAP=LW9v{f`GlH7l7!~!H7>CIm zKs9bV{8*>A1|!!)5l?~PFm9R>-cMd#&%%OcNHMo0nOac{NK}fc0m)3y+?1q`(hN+^ z&2(wzD7uU7M8hj^DKz|Nm~CW$x1D9a(#1S9c-z)MpO6UC2rL(G+!5i=Wf|bV2n*?= zMuvtyy6iYQp7c*)cOe~*9RzM69a(HFHOHP|A5E3DF8hG*@NB&Ig54j3D9f53%F3*X zjQ)HDNlIgMct&=5|weV#7rk{aXcb1SHuZVoau%qO0VTU%tUmF zSl<3|8aYeEc6bo`)OkdaefvC8x=Is<)G1UlN~WOLVQ8Sdc(IGqN-uk#zz_{GMW3Qe zK}jfuLe+pEX&9RE->MK~2183NjMtm3ccH9z3EdIy>%X1begUE3WCRw!=@vF-na8dv zKxT6NFC$7s?u!D12G7EFmH&AIyDO0CxI+tO;Y!Nc`qz+!G91>EMK8Fh#d+rIf-Zym zAu!heu;o~=;Ua_xvxQ5LI3+#-f_kw-@MG2>5H_l*GM}AYf>0#*Lbo74%q#&3&TM`O zq6jZz|0qFJ;kn!e*O74;zZ24C&*vhlj`|Q8LLmyauS9=KD3B=Fw!;8Y#=U^OY&+ad+h#SRoA0S^Kn8r6L-b92ilq0zL50+tF#Ni;6wTw#?(M+*U85M_xa2(dMOPJ~$d;V?2)_Amm=02FO z?6^5i-813A&l3OA!Al(0tVEPWs6tuzD;zuy#^GcHd*(-VH)P&}T%~Hv@50jEHw5h{+J_9alM17NP3Dit|Fu1GfeE zhbvpSSSnk(I2co?hUO%5s+kc<7uDBiKN~<6vBke23mA6>JuaHxf8TtC^co+3)#4j_ z=bARFlYz?8>+9zFGE?vVtUBT@LzOTa$Y58Wp{&qK^tzg}aY4w3?zkaKOWc-cRri0A zc6zO+hWU=A%`L)RnRJYH)=T6@P}BSh(w%EG8`WRRcWes+56# z?a7uRk%;^sj7>+1S`@E562b@Q+~9^~I3`{-FQUdf@#$$qcpYL#!EZ~5v-?(=U+P76T@W)yq- zcTa72xs3%A9~5zi2gRPwYCg2_o)gD(?s@!#6TPVICaI?{d*4p>*|el$i%c2c!z0gA z+RHYa$lKSNa@bGDVVBt+QNkKkwG%4XjQxPk*rtDHEKEOkd2rk6pO1tf>=}mX?3~-k zL2SkvQVexb3N~v6GuD7YL3Mu@(S$@WV%!2=*!>q zfndDg$OZQfJfmIvp2DP-(IwAHx1XIhU9QNHD|%h$c2O?aSFEm=qXaBZ3Q`RIGT4Of z8}wH=%@tPEh|j3_yvr=oP~~}S-0+REu+vpXhFK{z)`f@)oZgsgN^*|+?cBW^UKx2U zG|im*vaHW4dFL%BUEGTIz2E0o5S(`O%{&?TE}1Q>BAP8DIqHMM!w{Uqf_+dH?8zSD zAzSELW7h8Q z``DI~oTNJwhuh*81z#}AEFL_&*k)^=vL>Zl$*H0tg@d9LZLlkky| z<{!K!p0ec+a~sF#LBBZ+Z--aa4_zGQkFPrZT*ty$DeFUrE&!Y3~Kd|XHG zriC9Lswq{9&rMGv7_*~sSG~Dr50EEf;D8^sql(1G!#lKWTSd^-L{Tjw zOn_MiICuud8nxo6FqPR-{fNByYAkvALpz~}Y-Q#=_Rugghp|0utBx`%KIIsO5s1Ko zq5XxBk&e3Sp{q4BK7?mhX(~AseKD39_#pa7M|1q$yIS3sN?R?2*(3na0eGT23RJHBi*U(r=$tE=#vxx{9lL6#xgB8CafS z=YMC^^<-VR*?YQ>;r8a$A&N`&%W(U#;sU*AieInmKY{CeWsc4eFeEQAH z$}d7UN@ProPY+4&b&j7ny>)T-wb!^H)HPxa>Bz&}8^$v5M%E4ka;g3-SEZ7ED=jPO zEs+Ch1Lej?kZbXAai*O$`$CSdS{Z!j_SohA(=X-)i>(y*%=_$h@Py90fRTV_TM=SF zE`Lp-@X~D7LMwKBGjdAu&&;av0x@EM_a$9DT^ee*4*m1SP&KW#3Z-W~GGsO`K{vhZ z%c-+5`EQVsUqSX+^5wciVVPRq%hyUZOZN%;+w@v^RJ|VRa{Y9lvC=u(dibMusYKj` zvRn4IcZ-FptEUc}&sArHA`$j zpP%+IYPsfXlX`IUZDUXTELr!#Cvwr*x~}JrUuivg5{;D}C}ew_^*f(PM&nNDy*PTN zlS#O)uM)eRpPDjIf3whWCmt-NSH_qoj zl$9H#+D5w7@g-KoIg?^gmfGBZ=PLoGu+&5`9dT+t3SNj*M^TpQ7wo~IND6}Jonj69 zv%6Xl3oDPVwfFf2vbcZ^L(kmBaz>p}w53#UA*lt`lbM;{hglq!_+gYql)@6vw|^54 zcNUlUITxviydS!Sz(q@S1l zr8V}lCZjP)6HBBi#vk|IwI!LJxAyFudHUm(O^c~byENTmSK9CU%o{3dbe^@pv{?AY z{#9a~jPWfZoQ}Y=Xk9kZ3`w|8nEU)?$QmE5_^?EAX;Xg(~vuaI@!iSsJh|L5pz z(KIyJ-uPn87k$#87ekwK7`mpo@>SjFq?$V8#X(*tJLE}`eCd5fi;HRx;}iP&C}nc3 zp39yE4Bmch{WL{8ze8fd9p1jGL4}O9G9&j)nBlYcxQt(^M3-@*DxCLJ#Vi~26vh@J1QEjHr*82|VHi~s%GRac9uYUFR|tG7vyq^n0WB2f)C>63i)Hu{tFeGPr7 z1~iHu|p@&+@pGeS1lIZ(XEQ zg2<=h4Ey1)GkYtn7s=*^l3oNQKEHP{dZJNX!RlcoZjWyMD%UamcNSc;zu0%St?%n= zKV?m3R5gBP-dLjk*1PDFTUiIq79qV0+3Z_RyIrpKo!9xM`Xd9cvPu@Y{^(3e?P7Su zqqI_(O1*g1L}ffmo~xN;7i8iZe!kx)#4P<_YGrh};+x!Kif3l&Q1Kx67l!-g9O>*uc1}0A7F*ECh=mc=dtb#=y9=LV@we^okXdAhxR>lx z{Q-w(u0|!#2uzN=rDq z({NbarGpi|>gb1#cQR2sPK3;a*E2I2GRiM(+5$K0I`!~97)N|_$08%=b}8JLv{e=+IAsKA>ynzC~H;^`)MDtU**r$U}}lM6L45E&*5c9S}^-QFcPIg~RAl1)c+-q0x`P{_?&zH<@mNT8XkH=Gg*N5ik-eNoL&5cz_ z7gtS6^c1;x>4~WFoM6*snf}&yn{v{`soR8D1iH}N(nHGK47@wTB05DawKG$pGyb;d zDG^1LqpyUTMeSFL7dl;~Tx@$3l@7U#@TJ^Z$b@{Ec0O%E!JNxipG;o05AeI1SI!J* zI<{s)^7#IupHZp(NebL&^^Z!ggl?_l`Gv*ZZTc~j*3UiJr6_jw$=D_Lq*~n4^4dMe z=|A?RBq~^ksx!sr$S_t_-kH6)SL|5nV4i-Vk)&$6!hwkS)+YHHEI z2jl;f7k=F|Y#~}o6#KoW7LkGp92TsNz1A$o3~E>+A&Ro^ zzD1NAZIg7G#nAkQJ(Whg4ZNL-EVGR-ug=_Ndi=%pt22%q5W^AIEMHp}+=&5XCvkoomZI+d zCq)&}kN^V}Me&OuMHR6#hLFQkyLo*Y*c<(`n->)SuUq$EWZJ^Fo~`-Hh&W{SHk<6? z`B_^zbSC*^YNzz-KORrnlxr-vEfPh;$3%(=huX$Y&pI=|K`s}NapR(+p}0J{JAJL;%o^)A0_;xULTWp)j*DYnomtf!X;%3$@cY88i&`c~d zUeXn}=y~{&#|5?``u9}cdv32Ve#M-t^tB>tTbl2-SRQX=@H90Lx0}l*4`aJ_J-^$V zgA_Zy`&tmKduz;V(??iGx$B0J88E|?U&P@&99|syD6R8ndxf&w-mS_Sk&(-vFRI-T zn>c>w?h5_1k(dQ5EfkEye6Of3thC5KJLlt~<~1odW44Xyl-Tu#SsS}IT%XL5QaB+} z;>wilGI0mnIsDTsRTgeysQfZTBVYTN<%`rHuGJmDvm~ zpy5}}mQ%2&%H@@2%1Z9gRHN=H!EK)hwA|uI*d63mwkrN+`D4F$Owfz^lrzj$kIX8j zg{Ud>RdD#3{D7lN-VKQH-OzluZ{lqtcJiy9WgLSf`qNB0(p;Nbdm7baoEJijpt2Jl z@iA%1H=V1DqSEHlem<~yvYR{^r2R#5!}zu_?X>sqyJdGAr!5~lV6(h7wL)Js;b9fQ ztt;zCzkZSb($MGi(M2hJ>gvT+*>cN|TW@^u{*rjfjqORtet67-TdmJXc@JH(g+opK z-JJ(Btr$z(S!)aLWe^r-xV!hcJjln{onuRkA%`XZT&4=f5W4ae&dVN~gLmfz3tM*X zHZS+kyLBhlxli7*_?qS`_1f+r5!YpULW2j zw0xju37ju}N;a#d9#$LZkRVt3IrvAFp1^;c%nNZ^W%|uFI$YSIgSTXs)lGu|F4s57 zeqmX$gEFG_uLYH(eqLqwf?(8s4w a4b8~k#V^m_J?{B1WA(_OiJd%17ykoR 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN228 + ImporteMN229 - ImporteCI176) - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe229, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN229, ImporteME:=ImporteME229, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe229, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN229, ImporteME:=ImporteME229, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -6301,7 +6301,7 @@ Partial Class Compras_Compras Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" - If importeMovimiento > 0 And ChkNCInvNC.Checked Or TxtTotal.Text.ToDecimal = 0 And ChkNCInvNC.Checked Then + If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then RegistroCuentaPuente = True 'Conta ContPAQ If IdCtaContable = 0 Then diff --git a/SqlServerTypes/readme.htm b/SqlServerTypes/readme.htm new file mode 100644 index 000000000..02d9ac8ce --- /dev/null +++ b/SqlServerTypes/readme.htm @@ -0,0 +1,61 @@ + + + + Microsoft.SqlServer.Types + + + +
+

Action required to load native assemblies

+

+ To deploy an application that uses spatial data types to a machine that does not have 'System CLR Types for SQL Server' installed you also need to deploy the native assembly SqlServerSpatial140.dll. Both x86 (32 bit) and x64 (64 bit) versions of this assembly have been added to your project under the SqlServerTypes\x86 and SqlServerTypes\x64 subdirectories. The native assembly msvcr120.dll is also included in case the C++ runtime is not installed. +

+

+ You need to add code to load the correct one of these assemblies at runtime (depending on the current architecture). +

+

ASP.NET Web Sites

+

+ For ASP.NET Web Sites, add the following block of code to the code behind file of the Web Form where you have added Report Viewer Control: + 

+    Default.aspx.cs:
+        
+    public partial class _Default : System.Web.UI.Page
+    {
+        static bool _isSqlTypesLoaded = false;
+
+        public _Default()
+        {
+            if (!_isSqlTypesLoaded)
+            {
+                SqlServerTypes.Utilities.LoadNativeAssemblies(Server.MapPath("~"));
+                _isSqlTypesLoaded = true;
+            }
+            
+        }
+    }
+
+

+

ASP.NET Web Applications

+

+ For ASP.NET Web Applications, add the following line of code to the Application_Start method in Global.asax.cs: + 

    SqlServerTypes.Utilities.LoadNativeAssemblies(Server.MapPath("~/bin"));
+

+

Desktop Applications

+

+ For desktop applications, add the following line of code to run before any spatial operations are performed: + 

    SqlServerTypes.Utilities.LoadNativeAssemblies(AppDomain.CurrentDomain.BaseDirectory);
+

+
+ + \ No newline at end of file diff --git a/packages.config b/packages.config index ddaa3245a..745b27f24 100644 --- a/packages.config +++ b/packages.config @@ -7,7 +7,9 @@ + + From d75be1b40082b3bc8488783b0b78e20e89016626 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 21 Oct 2019 08:54:08 -0700 Subject: [PATCH 07/13] DevDinC guarda Importe de Concepto 18 en Negativo --- Bancos/IE.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index f27e00567..10ba614b9 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2809,9 +2809,9 @@ Partial Class Bancos_IE 'CANCELA NC IdCtaContableAplicar = IDCtaBeneficiario ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() - Dim Importe = If(DdlTipoTransaccion.SelectedValue.ToEntero = 7, ImporteAplicar * -1, ImporteAplicar) 'ImporteAplicar * -1 + 'Dim Importe = If(DdlTipoTransaccion.SelectedValue.ToEntero = 7, ImporteAplicar * -1, ImporteAplicar) 'ImporteAplicar * -1 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (Importe), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (ImporteAplicar * -1), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" Exit Select End If From 1ecafbf06f462199681fa25d40dca8401715fdf9 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 21 Oct 2019 11:29:04 -0700 Subject: [PATCH 08/13] Otros Ingresos/Egresos --- Bancos/IE.aspx.vb | 56 ++++++++++++++++++++++++++++++++--------------- 1 file changed, 38 insertions(+), 18 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 24fc44615..8bdf74e1c 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1263,6 +1263,7 @@ Partial Class Bancos_IE IDCtaBeneficiarioComplementaria = ObjCliente.IdCtaContCompClientes DdlCliente.SelectedText = ObjCliente.NombreComercial DdlCliente.SelectedValue = ObjCliente.CveCliente.ToString + DivOtrosIngresosEgresos.Visible = True End If If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then @@ -2677,20 +2678,11 @@ Partial Class Bancos_IE If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta) Then MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" End If - End If - - 'CANCELA NC - IdCtaContableAplicar = IDCtaBeneficiario - ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then - MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" - Exit Select - End If - - 'OTROS INGRESOS/EGRESOS - + End If + + 'OTROS INGRESOS/EGRESOS + Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then - Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal Dim TipoMovtoIE As Boolean = False Dim CveConcIE As Integer = 78 If Impo > 0 Then @@ -2707,10 +2699,17 @@ Partial Class Bancos_IE MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" Exit Select End If + End If + + 'CANCELA NC + IdCtaContableAplicar = IDCtaBeneficiario + ImporteAplicar = ImporteAplicar + Impo + ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then + MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" + Exit Select End If - - 'IMPUESTOS If ObjMov.GetPrePolizasDetalle(CvePrePolizaDevDin) Then Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6) @@ -2805,14 +2804,35 @@ Partial Class Bancos_IE If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" End If + End If + + 'OTROS INGRESOS/EGRESOS + If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then + Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal + Dim TipoMovtoIE As Boolean = False + Dim CveConcIE As Integer = 78 + If Impo > 0 Then + TipoMovtoIE = True + Impo = Math.Abs(Impo) + CveConcIE = 78 + Else + TipoMovtoIE = False + Impo = Math.Abs(Impo) + CveConcIE = 211 + End If + + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then + MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" + Exit Select + End If End If 'CANCELA NC IdCtaContableAplicar = IDCtaBeneficiario - ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() - 'Dim Importe = If(DdlTipoTransaccion.SelectedValue.ToEntero = 7, ImporteAplicar * -1, ImporteAplicar) 'ImporteAplicar * -1 + ImporteAplicar = ImporteAplicar - TxtOtrosIngresosEgresos.Text.ToDecimal + ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, (ImporteAplicar * -1), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" Exit Select End If From 4a6db28935e43fc8dca9d8c503acf93f10d66630 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 21 Oct 2019 11:30:54 -0700 Subject: [PATCH 09/13] consumo interno, movimiento cargado --- Inventarios/EntradasSalidas.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 969fe1031..447588480 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1538,6 +1538,7 @@ Partial Class Inventarios_EntradasSalidas Case 30 CveConceptoContable = 181 + TipoMovtoOtro = False If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero End If From 185d40eca81f28829e03d8b8dfe2122a12ca53ea Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 21 Oct 2019 11:37:08 -0700 Subject: [PATCH 10/13] =?UTF-8?q?movtocontable=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 447588480..20bb83ab8 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1524,6 +1524,7 @@ Partial Class Inventarios_EntradasSalidas Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & DdlConcepto.SelectedValue).ToEntero If OrigenMov = 1 Then TipoMovtoAlmacen = False Else TipoMovtoAlmacen = True + TipoMovtoOtro = Not TipoMovtoAlmacen Dim CveConceptoContable As Integer = 78 Dim CveClasificacion As Integer = -1 From cc53c6565bb28a75f740c864277c30ad3e3a60e9 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 21 Oct 2019 11:40:33 -0700 Subject: [PATCH 11/13] Cargo y Bonificacion Usado visible segun funcionalidad --- Ventas/Clientes.aspx | 4 ++-- Ventas/Clientes.aspx.vb | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index f18f5428a..7c83e3ae9 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -584,11 +584,11 @@
-
+
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index fc157f681..e7745f384 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1650,6 +1650,8 @@ Partial Class Clientes DivEsDistribuidor.Visible = True TabUsados.Visible = True + DivCargoUsado.Visible = True + DivBonificacionUsado.Visible = True CargaUsados() End If From 4ec808ea50cbd3a520b83eab355e19f06527dbff Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 21 Oct 2019 13:45:25 -0500 Subject: [PATCH 12/13] Aun hay problemas con el formato de Orden de servicio --- Compras/PopUpVerFactura.aspx.vb | 84 +++++++++++++++++++++------------ OS/OrdenesServicios.aspx.vb | 16 ++++--- 2 files changed, 64 insertions(+), 36 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2cdfa5f01..aee05f84b 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2941,9 +2941,11 @@ Partial Class PopUpVerFactura Dim params As New List(Of ReportParameter) Dim CveFolio = "" CreaDT() + Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta)) If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then - If ObjOS.DtResultados.Rows.Count > 0 Then + If ObjOS.DtResultados.Rows.Count > 0 Then + Dim dtOS As DataTable = ObjOS.DtResultados Dim dr As DataRow = dtOS.Rows(0) params.Add(New ReportParameter("Cliente", dr("Cliente").ToString)) @@ -2957,41 +2959,65 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString)) params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString)) params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString)) - CveFolio = dr("Folio").ToString + CveFolio = dr("Folio").ToString + + If ReporteEmpresa.Exists Then + params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString)) + params.Add(New ReportParameter("RFC", dr("RFC").ToString)) + params.Add(New ReportParameter("Vendedor", " ")) + params.Add(New ReportParameter("Correo", dr("Correo").ToString)) + params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString)) + params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString)) + params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString)) + params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString)) + params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString)) + params.Add(New ReportParameter("Copia", "Copia: Original")) + End If End If End If Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + If Not ReporteEmpresa.Exists Then + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then + TmpDTOS = ObjOS.DtResultados + End If + + If ObjOS.GetDetalleMateriales(-1, CveOS) Then + TmpDTMaterialesOS = ObjOS.DtResultados + End If - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - - If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then - TmpDTOS = ObjOS.DtResultados - End If - - If ObjOS.GetDetalleMateriales(-1, CveOS) Then - TmpDTMaterialesOS = ObjOS.DtResultados - End If - - Dim lrds As New List(Of ReportDataSource) - Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS} - Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS} - - lrds.Add(rds) - lrds.Add(rds2) - - ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) - - ObjOS.Dispose() + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS} + Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS} + + lrds.Add(rds) + lrds.Add(rds2) + ObjOS.Dispose() + + ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) + Else + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS} + Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS} + + lrds.Add(rds) + lrds.Add(rds2) + ObjOS.Dispose() + + ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) + End If End Sub Private Sub CreaDT() TmpDTOS = New DataTable diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 4a954e7ea..5ac87f648 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -331,7 +331,7 @@ Partial Class OS_OrdenesServicios 'Carga OS If CveOS > 0 Then - CargaEstatusOS() + 'CargaEstatusOS() CargaDatos() 'PermisosSegunEstatus() CargaDetalles() @@ -354,6 +354,7 @@ Partial Class OS_OrdenesServicios TxtFechaRecibido.Text = Now.ToString("dd/MM/yyy") ViewState("CveOS") = -1 DdlEstatusOS.Enabled = False + CargaEstatusOS() End If hdnEsThickbox.Value = "S" @@ -434,9 +435,13 @@ Partial Class OS_OrdenesServicios DdlSubProyecto.Items.Clear() DdlSubProyecto.SelectedValue = Nothing DdlSubProyecto.DataSource = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) - DdlSubProyecto.DataBind() + If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto) + DdlEstatusOS.DataSource = ObjOS.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", CveSubProyecto), "", {"CveEstatusOrdenServicio", "EstatusOrdenServicio"}) End If + ObjOS.Dispose() + DdlSubProyecto.DataBind() + DdlEstatusOS.DataBind() End Sub Private Sub CargaTiposOrden() Dim ObjOS As New ClsOS @@ -447,11 +452,10 @@ Partial Class OS_OrdenesServicios Else DdlTipoOrdenOS.DataSource = Nothing End If - + ObjOS.Dispose() DdlTipoOrdenOS.DataBind() DdlTipoOrdenOS.Items.Insert(0, New ListItem("Seleccione", "-1")) - ObjOS.Dispose() End Sub Private Sub CargaDatos() Dim ObjOS As New ClsOS() @@ -994,7 +998,7 @@ Partial Class OS_OrdenesServicios If Not CveOS > 0 Then - + Dim bandera As Integer = DdlEstatusOS.SelectedValue.ToEntero If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then Errores = True End If @@ -1065,8 +1069,6 @@ Partial Class OS_OrdenesServicios Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";" - ImprimirAlGenerar() - ObjOrdenServicio.Commit() Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, Liga) From 3011936a3bbebf5d83e03cbf65061c40f124ed60 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 21 Oct 2019 19:26:42 -0700 Subject: [PATCH 13/13] =?UTF-8?q?Edici=C3=B3n=20de=20remisi=C3=B3n=20de=20?= =?UTF-8?q?d=C3=B3lares=20a=20pesos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 7 ++++++- Ventas/Ventas.aspx.vb | 24 ++++++++++++++++-------- 2 files changed, 22 insertions(+), 9 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 6a2ce3a9a..b27e93fb5 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3434,6 +3434,7 @@
+
@@ -5762,6 +5763,10 @@
+
+ + +
@@ -5929,7 +5934,7 @@
- +
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e93d30672..27961920c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3567,6 +3567,12 @@ Partial Class Ventas HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta")) 'LkNotaCredito.Visible = True HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto")))) + 'visualizo el saldo de anticipos, para cuando se aplique una Nota de crédito, decida si afecta anticipos o a DSV + LblNCSaldoAnticipo.Visible = True + ChkAplicaNCAnticipo.Visible = True + ChkAplicaNCAnticipo.Checked = True + If DbRowVenta("SaldoAnticipo").ToString.ToDouble <= 0 Then ChkAplicaNCAnticipo.Checked = False : ChkAplicaNCAnticipo.Enabled = False + LblNCSaldoAnticipo.Text = String.Format("Saldo Anticipo: $ {0}", DbRowVenta("SaldoAnticipo").ToString.ToDouble.FormatoNumero) Case "Dev" DdlTipoComprobante.Items.Insert(0, New ListItem("Devolucion", "Dev")) HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto")))) @@ -9978,7 +9984,7 @@ Partial Class Ventas 'cuando es NC, por amortización de anticipo, no debe de registrar el concepto 11, 'pero cuando es NC y se aplicó anticipo, debe de restarle el importe - If ObjFactura.TipoDocto.Contiene("Egs") And CveAnticipo > 0 Then + If ObjFactura.TipoDocto.Contiene("Egs") And CveAnticipo > 0 AndAlso ChkAplicaNCAnticipo.Checked = True Then ConceptoContableAplicar = 11 CveVentaAplicar = CveAnticipo CveVentaAmortizacionAplicar = ObjFactura.CveVenta @@ -15840,16 +15846,18 @@ Partial Class Ventas 'CONVERTIR REMISION - TIPO MONEDA -PESO A DOLARES If DdlMoneda.SelectedValue.ToEntero <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then - + Dim Importe As Decimal + Dim TCC As Decimal = TxtTipoCambio.Text.Trim.ToDecimal For Each Row As DataRow In TmpDT.Rows - Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, 6) + Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * TCC, 6) Row("Total") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales) Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales) - Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales) - Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales) - Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales) - Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales) - Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales) + Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal * TCC, NumeroDecimales) + Importe = Row("Total").ToString.ToDecimal - Row("Descuento").ToString.ToDecimal + Row("ImporteIEPS") = Math.Round(Importe * Row("PorcentajeIEPS").ToString.ToDecimal, NumeroDecimales) + Row("ImporteIVA") = Math.Round(Importe * Row("PorcentajeIVA").ToString.ToDecimal, NumeroDecimales) + Row("ImporteRetIVA") = Math.Round(Importe * Row("PorcentajeRetIVA").ToString.ToDecimal, NumeroDecimales) + Row("ImporteRetISR") = Math.Round(Importe * Row("PorcentajeRetISR").ToString.ToDecimal, NumeroDecimales) Next Dim ImpuestosLocales As Double = 0