From 41e39d1c775ca63cb65cf657ef3bfd2c4ef1becc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 10:05:58 -0500 Subject: [PATCH 01/11] Productos y servicios formato de excel reparado en saldos iniciales --- .../Grales/SaldosIniciales/FormatoPS.xlsx | Bin 8624 -> 8674 bytes General/SaldosIniciales.aspx.vb | 104 +++++++++--------- 2 files changed, 55 insertions(+), 49 deletions(-) diff --git a/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx b/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx index d25e3f550584be1119557dd3522d85284602d087..9daf55123015ecd6c1c73050921f3b78bdfb7c07 100644 GIT binary patch delta 3307 zcmZ9PXH*l4vV{YoSAozHFhsf_0RcgXNbl0C^bXRbgA${Fgd#1GcIlxhg7hY$(m|S_ zbc7IkFCrasJ@>tJ&boJg&04d6&bMbzl?p+n>XHiet2(GcmJ|SpCIbK%0RTX#7d*t* z-_z08*HbLi+pFBf#&=pAgv_fW+MjYCC_QIpDpR(MmwI42QxE@W&8334NSPWU{nyca z2=-M%1w5xA{lr#YLE$*tQyjLhI31CZ)b+bBATudmIFXy<&q|iS<_+C9_cEq!@Y?;b5b{;qJ|2b+ z!+b^eX;{&bG>2;o>nl5mneclgrDHQ$(xDAZJ4D%dOZqX*)~B0K2i`El?kLlsyp)6u zMQyh0s;g2gj$q*2WQlN+3bNYn%!*xJ6V$hqa6?}Zh2f7>M3&FXCH1--$aiM4sQ6hnoN>0pk~jy zBbIzF0k>s*ipg2Lp9$Rl7`O*_rWhAu$p>>Uid`9JPStrV2)211>vRk7qumMujNL%+ z&VAAMGwW_C=Qj%dGISreX0@b+UDC8m7#q-s!^a^zG=)FZ2(=Ll9=}fc~_LZyCQ192eeuCfr+7f zRTtg2ifLK#IyiD^U!gR>lw&NVT{0CkQ&K^0OAw^uXrH>xc&>3yLj3;9VOX%kaWeBa zYrnnm=MM5x#Y26rWHlP^7AniR`C1LU7A?B1blFy2&!f6r6BX|7%yhBh@rV1nuDAl-6OLJ=qWVTbf+77m%FNHQpuw~L!)F9|Xx(aoe(n5@e!8Sj z{f35Q$MMRb!TM>gYg**2GuX=4{s*YdzrGVnK4;=Ksqh2p%+B)88km! zEDjFtYRQ^0wv5C1eX9!~U*FtqvhH16KKQ_7v_KDhbM79e;|m=$L1g1~^%)lGOpN-c zvz0~_$E9!e8JEY~GvNjan(awO)KW^ovmzSnZ`X#>G?E^yzS!v8y6~p@i-Y#67$bn2SJctVrf1V;hbmf zvtKfLCXL%CI9$a9wa`78vr;b7b5i%&zK$t-Qj9`zXxU6lMSD?J(J z*!dB8368d@%gSZ{;TE%VG99)pI3hvr!%K}~+Owb<9x{r47S1j`ZW77Xlbyxw5>3-D zX4~`v`k{dFLp7!fMp~v2cTzD2D4NcD(u}2;$|C;YK1&SWHbdVmRn|r zt4Z5kub4MOQ}(Rct8n`E>&s`CEz5>klvyOQ5p*wYMh2Sw+cH==g?xZE$}fmT(?UCY zk5It_X%wMGci(2yw?A$NrIS~1vaN72Y?7< zu~@W~PXue!32JCNR{4k^8GPkd#Y)J7L4LR7@7ZVuR0*OMaTkgP;M! z&GYw;F~}2g!~KT$YvL}DaQ>BABhcD| zHx=`y1dsFel}Mr6FDl!}lTu|J*pAP(A@zDN#~bm@_Oy8-)q-)f!nIRQv|-&fZpGAZ z$q6W_ZD)6|=bl7{N__5;x8k>TPCuXbzga5IH>0}zHg0b`URJ1v zj#j=|bJ^$A!rCR%JGp3ri*#;dar*7;bh{HJ=BoXK^^=O&Bhi6fyCE)X1I)R)H&v-d zNj0)^RRu^nker%bS_JW3>y*k~RBuK$fa|EOp{ z*j^qe_0Bu@$9vzo_uY#}R3IuYZ(yh$GLl4z0RSIT0Dukv0C=Otyxcrc zHg0YxQEwOYJEI}j&*GpK)-@GSi=waEORf%&_!&_=k6@5=T(lU<*`@N${bZao7x0|gci7wh}xZvAP8Ii7m=p7avd zFsDS_~>KttXQhT2`Yu+W~`5_6RYd5u8}Ss7__amj0OJ0wV}7`IfPlbOtu zRbE?JVU%h-NRSKC)CVvSkcKiaJyzc`L#=??qJLD$ekq~0^nr}lgxoMdy^9d*HlO(0>S=y@Ie zV(*$qX;>5$7=w-<(Ul?9iO26YJruH{sYvQ=d+ca&Nw}kPTWSL*}z; zBS+kaING!P#1W<9`R+h)#Z;Jn)jA`HL8?$pH)9(jmz=2qhlP$NH569}CYrvw3vE!a~D1D7ykE zcI1$-Yv4i~Gw(tn!41EWm0K$DLFvZdjeMM&QnMHkk)?C7yllmT47gm>vgT*#NRT|W z08yV&4vY23Q0fc!cihinEj1Ud5TBCtJ>4JmuY9|3=EZfQ$czYMY^itZJ}U*T))*NK z&1DjqK{wM=zQTqci&Ft$x+qx8iDn}sKSBcjnejW_-2nQ~OHzuhmIEWqF}DPXR!ESN z2p75R{Vq)GIqoYgk&i-_n#TTN7e38t8mwi%+6TK|-TVH)aaPGs$1!Uu;H9EY zmrqh<{*MG^$}pu+A+|g1c%b;XSOK8weH;>vZ?0e_u2xH z;m~cIL+ftY=doj&dZOqt*>9$z(a$`y_-0Q0oa{nIXFq+~=gey@6 zpY_%VZO^LjM_!+%@;j9)K)Htx!mL`*`#<>hHc~_^nu#vjfk@C2Q1yx?SZQ8*%e{I9 zl}9P(xg+ghF5gpl3Css~L~h$aznZxwOXH+>Sls;?sgG+m$U4zySC+5p%a`&hFtN`j z4x=uP#!4*|%NK4b6y&(*buLkQYlk>Ezz`~!2oBWSTo(1=!xUl|JgMX@~~Wi?a!L*i;ZVE+28- z_*6HQA6cM%^4+AXmDtU#&@l|tW-h8cY@CYR((US*gv8y)k0$mE>h=!xI6oNfls5~2 z%vZQIST0}yzCs+MGQp;gp4uoLcnO$>k!7T`fqioBd{vGX_=02z4UnMZ#VBI_>q#!uUlUFF_Gy{{_GY$vvm~|h>2=5_74p+7GywY)6-KNCEw6dnY~~I z{1ONyvM?5gzP6iHAl88uiW&H2F0KEXi+YAv*R%NEr&wZORGC8*$78ko`g~4`KhLRa z+4LWf?)2~ux-AOF>6UzU;2WTiVQw;;kdF`yOx)B?I+wXTd*UTk*sWk}uf4%AeMFtI z=(^Z$npNXd1$@EVuQw+nl39{s?dU@kH4A^JhgWHojrv0=-5=w4n?$$-n?#KjOb?5S zOq8Y8@}vnL@$9fJIa5_#=U^a7{9|j0C9jGr1OMqG%>Fg)6wRl%ccYB%e;JX1@kNP2 z2nDjj$?^nGCHt0@GCC4pzJ@X5RZ)0Th11{ihdgE>{WXv6hz0gg0%Qj=tg-R#_KQc)g;8}4jPX-9si6pm!&4bJ4koxjnggPw$T)iat!E)7d6x^;LYk(yE@ zMwWNgsu^7HX)Z5x$};(ttrUOb1XjzN#Mt+D(oH)}F{3aO8Qp(nMC>Qt*Pxu<4%z+k z!4_9mVzZUl*CC%a{9WRikH}DsUB^u2vi!q3aTHdfZeRkMri&jqQc-||r#-E<6yA3% z?Lg5?Mc)=B`($tD>yo;JrPbLi*6fc{ox4%!E7G+ct|^eGy6mTO$&Cpq;TOJ$;JZNd z1bPBOZQM~E4JLIxHn5vif6nOKwCIV><7? z-%iN8alQL>7( zbz%Nal1R@-&I!MVu^n|TSlLaPAeA1slD^e|sfO`|QqmmB)F29~d9bNyLs`zqK5jCr z{QF3GXMr4Ze>39jz09e3jii=>cRJ^l4yk>6CxDC{2$Oy1zR_Y&h(2aWhUI>e$dza{ zFJ#XTN!V&-l+W0`6&|GEe4*PCIUuYvkd8yANGkBX2H5TT|CAVX`}ccEUr`*Qt5Z4o zi7=zrs;2JUB{`uD+KJ8Fp$mf>OW?pBGZg?0KL^uuFbq^>Gb& zAnwNzBhuds-LfWb$BKZhR^O$hmNgdL(mboUe151Jr416=ldyv6zWSEsbE#Qwh?Yp` z5}x7tYOoVI7iuuOQyHlApDDvRDXq3$+cIQ{?nq8{K_zt4RmJKWcNGULvzcc+jMgbM3X)N0yu zx2k!>jP>#SVfn}M_bUyn_CH;XsajyCUIH?uqF|SwSR`bY;&;Z!3P7bfeIva0MPsgzOD`#u|J>?&i`&Y0KoP?0E`uj yV&%Z<-UM;}7T@*pr~e;lh#l*9lNbDpJ_*+&v0f)9(Ek92*v6Z@WE_xR&3^z@7x_E@ diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index cb02b6f95..c206e68f1 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -489,16 +489,17 @@ Partial Class General_SaldosIniciales Dim Codigo As String = Row("Codigo").ToString Dim Descripcion As String = Row("Descripcion").ToString Dim TipoPS As String = Row("Tipo").ToString.Trim.ToUpper - Dim CodigoBarras As String = Row("Codigo Barras").ToString + Dim CodigoBarras As String = Row("Código Barras").ToString Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim Dim Clasificacion As String = Row("Clasificacion").ToString.Trim Dim Marca As String = Row("Marca").ToString.Trim - Dim RinTamaño As String = Row("Tamaño de Rin").ToString.Trim - Dim Medida As String = Row("Medida").ToString.Trim - Dim SATClavePS As String = Row("Codigo SAT").ToString.Trim - Dim SATClaveUnidadMedida As String = Row("Clave Unidad").ToString.Trim - Dim Linea As String = Row("Linea").ToString.Trim - Dim Modelo As String = Row("Modelo").ToString.Trim + 'Dim RinTamaño As String = Row("Tamaño de Rin").ToString.Trim + 'Dim Medida As String = Row("Medida").ToString.Trim + Dim SATClavePS As String = Row("Código SAT").ToString.Trim + 'Dim SATClaveUnidadMedida As String = Row("Clave Unidad").ToString.Trim + 'Dim Linea As String = Row("Linea").ToString.Trim + 'Dim Modelo As String = Row("Modelo").ToString.Trim + Dim Tamaño As String = Row("Tamaño").ToString.Trim Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero @@ -506,6 +507,7 @@ Partial Class General_SaldosIniciales Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero Dim CveSATPS As Integer = GlobalDTPSATPS.FiltroPrimeroValor("CveSATPS", $"SATClavePS = '{SATClavePS}'").ToString.ToEntero + Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}'").ToString.ToEntero If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1", @@ -537,56 +539,58 @@ Partial Class General_SaldosIniciales End If Dim CveMedida As Integer = -1 - If Medida <> "" AndAlso DtMedidas IsNot Nothing Then - CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - If Not CveMedida > 0 Then - If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then - DtMedidas = ObjGral.DtResultados.Copy - CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - End If - End If - End If - End If + 'If Medida <> "" AndAlso DtMedidas IsNot Nothing Then + ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + ' If Not CveMedida > 0 Then + ' If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then + ' DtMedidas = ObjGral.DtResultados.Copy + ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If - Dim CveRinTamaño As Integer = -1 - If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then - CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - If Not CveRinTamaño > 0 Then - If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then - DtRinTamaño = ObjGral.DtResultados.Copy - CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - End If - End If - End If - End If + 'Dim CveRinTamaño As Integer = -1 + 'If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then + ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + ' If Not CveRinTamaño > 0 Then + ' If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then + ' DtRinTamaño = ObjGral.DtResultados.Copy + ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If - Dim CveModelo As Integer = -1 - If Modelo <> "" AndAlso DtModelos IsNot Nothing Then - CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - If Not CveModelo > 0 Then - If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then - DtModelos = ObjGral.DtResultados.Copy - CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - End If - End If - End If - End If + 'Dim CveModelo As Integer = -1 + 'If Modelo <> "" AndAlso DtModelos IsNot Nothing Then + ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + ' If Not CveModelo > 0 Then + ' If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then + ' DtModelos = ObjGral.DtResultados.Copy + ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then Alert("No se encontró la Unidad de Medida: " + UnidadMedida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveSATPS > 0 AndAlso SATClavePS <> "" Then Alert("No se encontró la Clve SAT PS: " + SATClavePS, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveMarca > 0 AndAlso Marca <> "" Then Alert("No se encontró la Marca: " + Marca, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If CvePS > 0 Then + 'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, + ' CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + ' CveModelo:=CveModelo) Then If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, - CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - CveModelo:=CveModelo) Then + CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then ErrorPS = True Codigo.GuardaLog Exit For @@ -594,9 +598,11 @@ Partial Class General_SaldosIniciales Contador += 1 End If Else + 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, + ' CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + ' CveModelo:=CveModelo) <= 0 Then If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, - CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - CveModelo:=CveModelo) <= 0 Then + CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then ErrorPS = True Codigo.GuardaLog Exit For From 93656323f0e58e16c4f8dab7bfcd28ce5103918f Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 11:00:49 -0500 Subject: [PATCH 02/11] =?UTF-8?q?haciendo=20dinamico=20la=20solicitud=20de?= =?UTF-8?q?=20los=20campos=20rin=20tama=C3=B1o=20marca=20y=20medida?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- General/SaldosIniciales.aspx.vb | 110 ++++++++++++++++---------------- 1 file changed, 55 insertions(+), 55 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index c206e68f1..d5bdb3a1b 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -493,12 +493,12 @@ Partial Class General_SaldosIniciales Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim Dim Clasificacion As String = Row("Clasificacion").ToString.Trim Dim Marca As String = Row("Marca").ToString.Trim - 'Dim RinTamaño As String = Row("Tamaño de Rin").ToString.Trim - 'Dim Medida As String = Row("Medida").ToString.Trim + Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "") + Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "") Dim SATClavePS As String = Row("Código SAT").ToString.Trim - 'Dim SATClaveUnidadMedida As String = Row("Clave Unidad").ToString.Trim - 'Dim Linea As String = Row("Linea").ToString.Trim - 'Dim Modelo As String = Row("Modelo").ToString.Trim + Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "") + Dim Linea As String = If(Row.Table.Columns.Contains("Linea"), Row("Linea").ToString.Trim, "") + Dim Modelo As String = If(Row.Table.Columns.Contains("Modelo"), Row("Modelo").ToString.Trim, "") Dim Tamaño As String = Row("Tamaño").ToString.Trim Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero @@ -539,70 +539,70 @@ Partial Class General_SaldosIniciales End If Dim CveMedida As Integer = -1 - 'If Medida <> "" AndAlso DtMedidas IsNot Nothing Then - ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - ' If Not CveMedida > 0 Then - ' If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then - ' DtMedidas = ObjGral.DtResultados.Copy - ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - ' End If - ' End If - ' End If - 'End If + If Medida <> "" AndAlso DtMedidas IsNot Nothing Then + CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + If Not CveMedida > 0 Then + If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then + DtMedidas = ObjGral.DtResultados.Copy + CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + End If + End If + End If + End If - 'Dim CveRinTamaño As Integer = -1 - 'If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then - ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - ' If Not CveRinTamaño > 0 Then - ' If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then - ' DtRinTamaño = ObjGral.DtResultados.Copy - ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - ' End If - ' End If - ' End If - 'End If + Dim CveRinTamaño As Integer = -1 + If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then + CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + If Not CveRinTamaño > 0 Then + If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then + DtRinTamaño = ObjGral.DtResultados.Copy + CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + End If + End If + End If + End If - 'Dim CveModelo As Integer = -1 - 'If Modelo <> "" AndAlso DtModelos IsNot Nothing Then - ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - ' If Not CveModelo > 0 Then - ' If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then - ' DtModelos = ObjGral.DtResultados.Copy - ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - ' End If - ' End If - ' End If - 'End If + Dim CveModelo As Integer = -1 + If Modelo <> "" AndAlso DtModelos IsNot Nothing Then + CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + If Not CveModelo > 0 Then + If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then + DtModelos = ObjGral.DtResultados.Copy + CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + End If + End If + End If + End If If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then Alert("No se encontró la Unidad de Medida: " + UnidadMedida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveSATPS > 0 AndAlso SATClavePS <> "" Then Alert("No se encontró la Clve SAT PS: " + SATClavePS, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveMarca > 0 AndAlso Marca <> "" Then Alert("No se encontró la Marca: " + Marca, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - 'If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - 'If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - 'If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If CvePS > 0 Then - 'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, - ' CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - ' CveModelo:=CveModelo) Then If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, - CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then + CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + CveModelo:=CveModelo) Then + 'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, + ' CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then ErrorPS = True - Codigo.GuardaLog - Exit For - Else - Contador += 1 + Codigo.GuardaLog + Exit For + Else + Contador += 1 End If Else - 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, - ' CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - ' CveModelo:=CveModelo) <= 0 Then If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, - CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then + CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + CveModelo:=CveModelo) <= 0 Then + 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, + ' CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then ErrorPS = True Codigo.GuardaLog Exit For From 925ac84761af2172733b90687614bb18abbd7df8 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 11:29:48 -0500 Subject: [PATCH 03/11] Nueva columna agregada a FormatoClientes.xlsx --- .../SaldosIniciales/FormatoClientes.xlsx | Bin 8929 -> 8857 bytes General/SaldosIniciales.aspx.vb | 15 +++++++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/Empresas/Grales/SaldosIniciales/FormatoClientes.xlsx b/Empresas/Grales/SaldosIniciales/FormatoClientes.xlsx index 251dc040f912947c37c80f3a7c6c8b835f6449ea..dbc90a51dc5a84275e5ec367c296d0d3d1527a6f 100644 GIT binary patch delta 3068 zcmZ9Oc{CIZ7sdw@WmmRl#28t|k|k@DZ7gHWmR*<@6JszK6%CSY8Z<-5t|8eP+1Hwn z?AuTgvSb;_S|So(@B5zfcE0cabye*S=oUBA>LA<&v!ZL{v1eu`dn^@=c zt$<{|n7{lAC;6_z^{Q=+P+&TLT=jYLq!&D9B*m!t8U~P}$$wa>u|E zzU5<6jK4i>3&5MakjBhB^hNH1kvl-9nm(Voh)mWf(2E+bF*IHCRq79w6V3x)fmKGZc{c)+x823faB#a-wE*_jHrc!VB`3wz z4cL!HqHPPEnkG<4FNvyELscCpGK{qXSlyXfu_0lPAAY1$ronz+X2mS`VZFiEXI7!i z*Y}w0v56FT^f!WASnkbjW;?rYGg5vIR&wHjYGx!&3T@$;08a4KLWIP{dXP@u={1{T zG3KMPvkE)qN z`PHLX@bw-pDN_|&?+mXQyPofG_DP4K}lWtn(!z{sjCtE^aUGuXI z3KP7b5n{Y$(30H|qWw!g=;}39QKEs{#*%;IxPT}+VZNkRQj_N2EIQ<4Qs`Qb8IX?O z3{?~Ie)j{BV0nx+G|fce=lnTV(nseJ&b4HrEe8ixpTk+Uqv^d+INiwjl`$d=d)h;? zH9%Q-heUUn0!!X+&@f-x@(ydvP%Li89Mz}Me{TN(smgOu59!R4^WdPNdb@z}33vT& zA)@9>?xbd^87A^07XB0Bf=z3pOaOp9nZNz{jYTNi0Uxm@?;Y-C?j6}zM{KT~@ir)SxoTbP!W6QaQdfJ=U7>Ql z*37%dc?ej07)iM~uxOMRZIR^Q^(;o9ks+I97w4&1J(2gD&M%_cm0)F%wwY8=%ic74go%-lvN+^ zM^w)P&o^Cp>o2GL%x^3M=^OAJwHwIp=Zy3W)S1s7_Py@!_>)k#x2;pUq3 zec#*3Md;57Pi{_S3&5gxJkv(Fm>jkJKB=9GKgzHJ9#))k!}k`D{%7-V` zAQ!FhRu?+|FHQG*8I@Mm<9RWC3Az`~Cg@r|meW0*Bad+`^8!m^AbT$aegL9&OOC$ zT*O6vSgh=>;1VEhsTkz0K?#pzq|4ommKn*5Z-kv~=TvA~il~^}=kWAzyBjxL&*fe- ze*QADAeFB-wX`@%0%6P{kM^LSJVZ3gQ1Q`EowQz_T-ME)37VUJtaC2wt=l3t#BJX`FZUp+A0+ zK5eUcXoWT7w}e=Bk9_UQ)5Lo z!6aHP%lrG%t!Ds^L>8)gdfZMoR+@HPwDr@T51#M6&`|p$aM*ZN7uQoe4VgxIhK?L>Dl&Uud* zPvzLG!rv<1gh-c8=S5{Zckh4aT!4?oolg<+IwO;5_)#x(e{3Mf*rX(PEw(6kGeq)A zn9)X+Q(Gk~xr~+p*!?lJ2fe{)pOIATJCSYIg-s@< zBaXje%yUOg(c(9ZU8|vB2opY>WMh3_iT}ZjBZ$Dw+A>GY7&Z8>SCCb zhw{uXu$i8d;(j6)H%MpA~z-@^m$it5qdX_Hz<(<}*L8 zS1_E{WS7=UAFo5dEso&K%bTtLK97BMOC|&-$6eA5d^QEZ*1{fJn3t&Nz(N>h86m#- z&lSKxyu5nWciDE+S6_19vWW#in8hA&(}sF|_o?!ZC8pj%;LfvWzo{T#38?Hg98z(= z*~d^nC-%rXJ8sK8BZbs2lR27o%|M4G@zU-hPNwZ|AE_ptA+WIj`J>6w;^#&FeSUuX z3;%DP{|S2zatena`JuQh6NOwaE(QL7^#5sAm g@{0U>-{152{->!CM7{&P$fQGVfJ(5kK>n)z7rjxL6951J delta 3154 zcmZ9OcTf}97KekOLxgA|9TEhoLMT#15T!^_dM8Me1wnd|5)9SFP$UGDBB2Qggixi2 zrZfc!3kV_|=?c;%KzQuFnRVW~f1R1%ojEi2p6}i-Lu*c}@`MpBD|*Oibq)Yvq5}Zf z002PnBk9N9ejZNV-X2oHo{tD-eO_M?kQR=Wo9rzTHcmZB4$5&aVKf*)#%d%guS6vN znpUY0RE2SSGdwk4p+tH$A1LNk!1d|Iy-)jTLeCutWbuM6V@)PeqJN$O7pa-V*qv(C zWA^E_Me>kHhoIZht0cK6hBjXXm|?sR$Jvi{wo1hlkr@CidN+r;Nz1{<;z%v5Xu3 z`8M;xNR)}m)~VvK1@Av*HSojHOy)fxk#_|{)x_8`_!(W(0mjD)q`;@64O-Xl5E7snOO!CiX-xq(2?b znZD1HqS3*<>NPaV&##Do_3Da7+ePnH{Xv$YP(=uFRjbEgSf4pNbPnac-yB~ssU2dN6?+f zMNjrlD#SI#nHx3c#oJ{pyPXq3I&!l6S^z%xr7L;`1<5`i-m40DZs2wTXfvVJb z@ovbk>J`YI>I#1wqH}bLb+wjV@B%H^9>-6q%Q#>1$h#PW8fwG`j^|`j&&KTZ6bLZV z2h!rQfXqx-iVH1-1^@uzJXm1pTdYqvqc#!!QwC5lcIt;?l?XO}kLItbS``G2AZJ|? zetD1-GR5JKfmLffKcpTDp-m+Br%Tvahh)-G|6v^zLH{H#8{>&Q8O5e=05Ti;3Bu=NC$IbafJ7pBRT@9xtK)P-~OpmwY(- zQ$1yA+WlH`xIiTpXb$!?*D)`42|{v~F#8L(?b4mUTQOY@@UHY9j??ztw%qx##k|@aH9@0YAb}qP=a=-8UJu+k|MD3xwdz;OsS>tdAMc(D_#410Vp<%5-*A z|3%e5AmovY|39Ewd`es*;Gz#tyiXaY*BG?BO(7h9tC zv}h>RtUHpH4JT?76NPvd#^zz%`u-V=V)~V~@B*mnd%IGN>n6)(W8w^7;a}g{Bi%WQ zUu)X6keSwYgX8L-1SUBYT4;~%Gao-KC0gsYp^KWCE#YD!hO>vVhQ61y`*7nb;d#aK zBfIaBl%GMS5)VP*<`SMs6_Ian4kx;$GcI#4VDH`$e{>&58pK2kch3cxiWB9lldl_n zvK0c?&iHC5skklGjcOvEYz#b;`}K(Jh!*%GTPEN}sKOxrV&lNf`m4`XAyWL@e!x$ybOgB4OHi$2Fl94ub|?$bjH_I)EX+xLC5^5Z+*1tvM|_!l$d7J^EgL< zm;Q&tY!7hTsG-@KyO6Ch;}P+Lj69E}7C%H8@O|o-sgKSpit~~I%67e^Em1pHqL-=RSaFiUG95+RK*<2K zt`$jY0L&GqgxcJv9l3)q;_HkeMz@6A?PEFRAgQGA?OIE?;Ug$UWG|nS=#wt72ajK ze#)aR+_O626P&!q{#~8wRlOLju)2EG%}~2MY1t@=8WT<9!g4<8~^57D88w10RMNKurM>+BB3+ya--xIgI z-oA$@l4OifJnQ`Q9Dm*?gHFW=d#kLfL6sMN28Bj~qf*JF56fP^E_;6iPb4>O<-~NT z8dif8d4kdEbl(0jN^8;6)`-I8Nd#77 zOfSBruEo_HqElbkZe=RSad13_2o0l8NE8uK0T68%90(i-Q#AW`<^cSp*+Yjm_U`Cq z^iVrn71L>KEV+oF#kn5av3~JSc*P~>D`5ugO(YmMYdM367l3#$bT^6CPrPVa=lFq$ zMtxt;N6w1UtG2yz`F#PBU7sVRfK??a>G(uv)}yc%r9AP(U!8A$aEq$Y6}!pp^-R+n z&`n9G1wb3h8@`K2)j3&+!E6)LD$9S3qg{3%Ux6qs>%oAJRQFGP_%sSC&++s2S zT2ME?uhWee-rE89)exrnus8JAPr!Zf3jPrdQ%DgD9to+}R=t(CdL3H0hBePfd(gKL zhuprc%%$&H9}T=(7PQig7|WMeB?m;ulF2=5&Cp{F2cw`?7U3M`ymcPul0(`-nG?2u zuz&(e5^tY<;&wG;ZWs+ZCdF9)9RdD6Q~pk z3*%?Qt=ljW;HnfxT5v2PAmNG0^iHuBNz?pA%8`<=Ovb3Sfv(>0ae)A8Xy#8ImNg}+ z{k-I->dbyOyxj%Eh|+dTfqV)sj{{nx#}^M|{;lV@8JHaJzov9%?2t1B_`L#Ha6T-T zaItXqGhyJSX~KEKukif8G5p?s3s(t;@%;OgF#-Ubzr(YNj9Z6G@cw(JXYIiMle6&P TWCc}eVsJi!m+AFke`o&zv5wkr diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index d5bdb3a1b..9ff2eeba6 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -121,6 +121,12 @@ Partial Class General_SaldosIniciales Alert("El nombre de la treceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If + If RblFormato.SelectedValue = "1" Then + If Not dt.Columns(14).ColumnName = "Es distribuidor" Then + Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + End If ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Then If Not dt.Columns(0).ColumnName = "Sucursal" Then @@ -718,6 +724,7 @@ Partial Class General_SaldosIniciales Dim Contacto As String = Row("Contacto").ToString Dim CelularContacto As String = Row("Celular Contacto").ToString Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero + Dim EsDistribuidor As Boolean = If(Row("Es distribuidor").ToString = "si", True, False) If CveCliente > 0 Then ExisteCliente = True @@ -730,7 +737,7 @@ Partial Class General_SaldosIniciales 'End If Else If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, "", "", Colonia, "", "", Estado, Pais, RFC, CodigoPostal, "", "", Contacto, "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, -1, - "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1) Then + "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor) Then ErrorClientes = True RFC.GuardaLog Exit For @@ -769,11 +776,11 @@ Partial Class General_SaldosIniciales Dim Encontrados As Integer = 0 DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) Dim RFC As String = "" -Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("") + Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("") Dim CvePS As Integer = drr("CvePS").ToString.ToEntero Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero - Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows @@ -789,7 +796,7 @@ Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("") Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal Dim TipoDocto As String = Row("Tipo Documento").ToString Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero - GuardaLog(Sucursal + " - " + Row("Sucursal").ToString) + GuardaLog(Sucursal + " - " + Row("Sucursal").ToString) Dim RetIVA As Double = Row("Ret IVA").ToString.ToDouble Dim RetISR As Double = Row("Ret ISR").ToString.ToDouble Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal From ea523387a9d56f8b628761998f05e54d66b88344 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 21 Aug 2019 10:25:52 -0700 Subject: [PATCH 04/11] correcion IE cancelado --- Bancos/IE.aspx.vb | 66 +++++++++++++++++++++++++++++------------------ 1 file changed, 41 insertions(+), 25 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index fffc527d3..986e9c64a 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -408,12 +408,27 @@ Partial Class Bancos_IE Set(value As Integer) ViewState("IdCtaAnticipoExtranjera") = value End Set - End Property - - - + End Property + + Private Property CveEstatusIE As Integer + Get + If ViewState("CveEstatusIE") Is Nothing Then + Return -1 + Else + Return ViewState("CveEstatusIE").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveEstatusIE") = value + End Set + + End Property + + + + #Region "CANCELACIÓN COMPLEMENTO MODAL V2" - + Property CveComplementoPagoCancelar As Integer Get If ViewState("CveComplementoPagoCancelar") Is Nothing Then @@ -855,6 +870,8 @@ Partial Class Bancos_IE LblRegistroFecha.Text = ObjIE.FechaIng.ToShortDateString LblRegistroUsuario.Text = ObjIE.Usuario + CveEstatusIE = ObjIE.CveEstatusIE + Select Case ObjIE.CveEstatusIE Case 1 If Not ObjIE.FueConciliado Then @@ -954,6 +971,7 @@ Partial Class Bancos_IE LnkComplementoPago.Visible = True + If ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelado > 0 Then 'cuando es cheque devuelto TabCancelacion.Visible = True @@ -1060,14 +1078,12 @@ Partial Class Bancos_IE If Not ChkConciliado.Checked Then - - If Not VerificaComplementos(True) Then + If (Not VerificaComplementos(True)) And UsuarioActual.TienePermisoProceso(99) And ObjIE.CveEstatusIE <> 2 Then BtnEditar.Visible = True End If UpGuardar.Update() - End If @@ -4757,31 +4773,31 @@ Partial Class Bancos_IE End If ObjOI.Dispose() Return "" - End Function + End Function #End Region - + #Region " COMPLEMENTOS PAGO " - Private Sub CargaComplementosPago() - + Private Sub CargaComplementosPago() + + + + Dim ObjBancos As New ClsBancos If UsuarioActual.CveRol = 1 Then GvComplementoPagos.Columns(7).Visible = True - End If - + End If + + DVGenerarComplementoModal.Visible = False If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then GvComplementoPagos.DataSource = ObjBancos.DtResultados - If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 Then - DVGenerarComplementoModal.Visible = True - Else - - DVGenerarComplementoModal.Visible = False + If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 And CveEstatusIE <> 2 Then + DVGenerarComplementoModal.Visible = True End If - Else - DVGenerarComplementoModal.Visible = False + Else GvComplementoPagos.DataSource = Nothing End If @@ -4801,8 +4817,8 @@ Partial Class Bancos_IE Protected Sub GvComplementoPagos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvComplementoPagos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) - e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) If e.Row.DataKey("Estatus").Contiene("1", "3") Then e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = True @@ -4830,8 +4846,8 @@ Partial Class Bancos_IE If ObjBanco.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, FolioFiscalPadre, EsRegeneracion:=True) Then ObjBanco.Commit() Str.AppendFormat("Folio: {0}  ", ObjBanco.ComplementoSerieFolio) - Str.AppendFormat("XML    ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) - Str.AppendFormat("PDF   ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) + Str.AppendFormat("XML    ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) + Str.AppendFormat("PDF   ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) 'Str.Append($"{gvr.DataKey("Folio")}   {gvr.DataKey("NombreCliente")}
") PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False) Alert(Str.ToString, TipoMensaje.MsgInformacion) From 9b27efb8ec0fc1927b3f886255c3514dcc884ff9 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 21 Aug 2019 11:21:05 -0700 Subject: [PATCH 05/11] Correcion mensaje de acciones Cancelar complemento --- Bancos/IE.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 8220a8417..e1d841d00 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -50,9 +50,9 @@ Refacturar Complemento
  • - Cancelar Complemento + Cancelar Complemento - <%--data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;"> + <%-- data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;">
    • From 60a585029e1a250d4831f2f01c2efcff8c90ed86 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 21 Aug 2019 12:51:36 -0700 Subject: [PATCH 06/11] Precio minimo anterior en actualizar precios y evitar cerrar ventana en shipments --- Empresas/1/Formatos/Cotizacion.rdlc | 16244 +++++++++++++------------- GPS/InicioGPS.aspx.vb | 254 - GPS/Shipments.aspx | 1127 +- GPS/Shipments.aspx.cs | 61 +- PortalGPS/InicioGPS.aspx.vb | 2 +- Ventas/ActualizarPrecios.aspx | 24 +- 6 files changed, 8744 insertions(+), 8968 deletions(-) delete mode 100644 GPS/InicioGPS.aspx.vb diff --git a/Empresas/1/Formatos/Cotizacion.rdlc b/Empresas/1/Formatos/Cotizacion.rdlc index 9a1a0fd22..07b679160 100644 --- a/Empresas/1/Formatos/Cotizacion.rdlc +++ b/Empresas/1/Formatos/Cotizacion.rdlc @@ -1,8120 +1,8126 @@ - - - - - - - - - - - 0.88283in - - - 0.53922in - - - 3.70966in - - - 0.83848in - - - 1.03236in - - - 1.03703in - - - - - 0.1652in - - - - - true - true - - - - - NO.P - - - - - - - Textbox22 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CANT. - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - T.E. - - - - - - - Textbox21 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P.U. - - - - - - - Textbox23 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SUBTOTAL - - - - - - - Textbox1 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.17561in - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!TiempoEntrega.Value - - - - - - - TiempoEntrega1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value*Fields!PU.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 0.02778in - 0.00139in - 0.34081in - 8.03958in - - - - - - true - - - - - SUBTOTAL: - - - - - - - Textbox19 - 0.56593in - 5.89776in - 0.21875in - 1.04574in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =IIF(Parameters!SubTotal.Value= 0 ,"-",Parameters!SubTotal.Value) - - - - - - - Textbox42 - 0.54093in - 6.9435in - 0.21875in - 1.0787in - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Total.Value - - - - - - - Textbox42 - 0.99232in - 6.9435in - 0.21875in - 1.0787in - 3 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - - - - - TOTAL: - - - - - - - Textbox19 - 1.01732in - 5.89776in - 0.21875in - 1.04574in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - IVA: - - - - - - - Textbox19 - 0.79857in - 5.89776in - 0.21875in - 1.04574in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =iif(Parameters!IVA.Value = 0,"-",Parameters!IVA.Value) - - - - - - - Textbox42 - 0.77357in - 6.9435in - 0.21875in - 1.0787in - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - Embedded - CINTILLOLOGOTIPOS - FitProportional - 1.50802cm - 0.06704cm - 1.69361cm - 14.91328cm - 9 - - - - - - true - true - - - - - ="Son: " & UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 1.31604in - 2.66493in - 0.18861in - 5.37603in - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 0.127cm - 0.07058cm - 3.9023cm - 20.42407cm - - - - - - 4.33815cm - - - - - - true - true - - - - - - - - - - - - - Cotización - - - - - - - - No. - - - - - - - - =Parameters!Serie.Value - - - - - - - - - =Parameters!Folio.Value - - - - - - - Textbox4 - 0.04298in - 3.51392in - 0.29178in - 4.55343in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - - - =Parameters!SucursalCliente.Value - - - - - - - - - Atención: - - - - =Parameters!ClienteContacto.Value - - - - - - - - - Tel: - - - - =Parameters!ClienteTelefono.Value - - - - - - - - - E-Mail: - - - - =Parameters!ClienteContactoMail.Value - - - - - - - - - Fecha: - - - - =Parameters!FechaSolicitud.Value - - - - - - - Textbox18 - 0.86792cm - 11.06848cm - 3.27899cm - 9.4226cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.66868cm - 11.36047cm - 0cm - 1.7247cm - 3 - - 1.5pt - - - - - true - true - - - - - Compuproveedores, S.A DE C.V. - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - www - - - - . - - - - compuproveedores - - - - . - - - - com - - - - - - - Textbox2 - 1.1557cm - 4.03176cm - 0.74402cm - 6.70687cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tel. - - - - =IIF(Parameters!Sucursal.Value="MATRIZ","(662) 214 2200", -IIF(Parameters!Sucursal.Value="Tijuana","(664) 645 1814", -IIF(Parameters!Sucursal.Value="Culiacán","(667) 715 8533", -IIF(Parameters!Sucursal.Value="Aguascalientes","(449) 913 4418","")))) - - - - - - - Textbox3 - 0.66868cm - 4.03176cm - 0.45527cm - 6.70687cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 7.63292cm - true - true - - - - - true - true - - - - - Usuario: - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 17.72297cm - 0.41981cm - 2.5cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 6.92679cm - 0.07937cm - 0.56854cm - 20.42759cm - - - - - - - - true - true - - - - - =Parameters!VendedorNombre.Value - - - - - - - - - - =Parameters!VendedorTelefono.Value - - - - - - - =Parameters!VendedorCelular.Value - - - - - - - =Parameters!VendedorMail.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - BannerChilo - Fit - 3.92835cm - 0.13228cm - 2.57528cm - 20.21765cm - 1 - - - - - - true - true - - - - - Precios unitarios, no incluyen IVA - - - - - - - - - No devolución, no cancelación una vez hecho el pedido - - - - - - - - - Todo pedido requiere Orden de Compra - - - - - - - - - Precios sujetos a cambio sin previo aviso - - - - - - - - - Cotización sujeta a disponibilidad - - - - - - - - - Vigencia de cotización: - - - - =Parameters!Vigencia.Value - - - - - - - - - Condiciones de pago: - - - - =Parameters!CondicionPago.Value - - - - - - - - - Forma de entrega: - - - - =Parameters!FormaEntrega.Value - - - - - - - Textbox20 - 0.62794cm - 12.53405cm - 3.36038cm - 7.87937cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Precios cotizados en Moneda Nacional - - - - - - - Textbox6 - 0.3175cm - 13.22197cm - 0.31044cm - 7.19145cm - 3 - - =IIF(Parameters!CveMoneda.Value = "1",TRUE,FALSE) - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!FirmaVendedor.Value - FitProportional - 0.37747cm - 0.50093cm - 1.35889cm - 5.74406cm - 4 - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 0.10718cm - 6.39645cm - 19.863cm - 5 - - = iif(Globals!PageNumber=Globals!TotalPages, true,false) - - - - - - - true - 0.09525cm - 0.07411cm - 6.57948cm - 20.46108cm - 1 - - = iif(Globals!PageNumber=Globals!TotalPages, false,true) - - - - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 0cm - 0cm - 1.27cm - + + + + + + Textbox22 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CANT. + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + T.E. + + + + + + + Textbox21 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P.U. + + + + + + + Textbox23 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SUBTOTAL + + + + + + + Textbox1 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.17561in + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TiempoEntrega.Value + + + + + + + TiempoEntrega1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 0.02778in + 0.00139in + 0.34081in + 8.03958in + + + + + + true + + + + + SUBTOTAL: + + + + + + + Textbox19 + 0.56593in + 5.89776in + 0.21875in + 1.04574in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!SubTotal.Value= 0 ,"-",Parameters!SubTotal.Value) + + + + + + + Textbox42 + 0.54093in + 6.9435in + 0.21875in + 1.0787in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Total.Value + + + + + + + Textbox42 + 0.99232in + 6.9435in + 0.21875in + 1.0787in + 3 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + + + + + TOTAL: + + + + + + + Textbox19 + 1.01732in + 5.89776in + 0.21875in + 1.04574in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + IVA: + + + + + + + Textbox19 + 0.79857in + 5.89776in + 0.21875in + 1.04574in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =iif(Parameters!IVA.Value = 0,"-",Parameters!IVA.Value) + + + + + + + Textbox42 + 0.77357in + 6.9435in + 0.21875in + 1.0787in + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + Embedded + CINTILLOLOGOTIPOS + FitProportional + 1.50802cm + 0.06704cm + 1.69361cm + 14.91328cm + 9 + + + + + + true + true + + + + + ="Son: " & UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 1.31604in + 2.66493in + 0.18861in + 5.37603in + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 0.127cm + 0.07058cm + 3.9023cm + 20.42407cm + + + + + + 4.33815cm + + + + + + true + true + + + + + + + + + + + + + Cotización + + + + + + + + No. + + + + + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + + + + Textbox4 + 0.04298in + 3.51392in + 0.29178in + 4.55343in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + =Parameters!SucursalCliente.Value + + + + + + + + + Atención: + + + + =Parameters!ClienteContacto.Value + + + + + + + + + Tel: + + + + =Parameters!ClienteTelefono.Value + + + + + + + + + E-Mail: + + + + =Parameters!ClienteContactoMail.Value + + + + + + + + + Fecha: + + + + =Parameters!FechaSolicitud.Value + + + + + + + Textbox18 + 0.86792cm + 11.06848cm + 3.27899cm + 9.4226cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.66868cm + 11.36047cm + 0cm + 1.7247cm + 3 + + 1.5pt + + + + + true + true + + + + + Compuproveedores, S.A DE C.V. + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + www + + + + . + + + + compuproveedores + + + + . + + + + com + + + + + + + Textbox2 + 1.1557cm + 4.03176cm + 0.74402cm + 6.70687cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tel. + + + + =IIF(Parameters!Sucursal.Value="MATRIZ","(662) 214 2200", +IIF(Parameters!Sucursal.Value="Tijuana","(664) 645 1814", +IIF(Parameters!Sucursal.Value="Culiacán","(667) 715 8533", +IIF(Parameters!Sucursal.Value="Aguascalientes","(449) 913 4418","")))) + + + + + + + Textbox3 + 0.66868cm + 4.03176cm + 0.45527cm + 6.70687cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 7.63292cm + true + true + + + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 17.72297cm + 0.41981cm + 2.5cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 6.92679cm + 0.07937cm + 0.56854cm + 20.42759cm + + + + + + + + true + true + + + + + =Parameters!VendedorNombre.Value + + + + + + + + + + =Parameters!VendedorTelefono.Value + + + + + + + =Parameters!VendedorCelular.Value + + + + + + + =Parameters!VendedorMail.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + BannerChilo + Fit + 3.92835cm + 0.13228cm + 2.57528cm + 20.21765cm + 1 + + + + + + true + true + + + + + Precios unitarios, no incluyen IVA + + + + + + + + + No devolución, no cancelación una vez hecho el pedido + + + + + + + + + Todo pedido requiere Orden de Compra + + + + + + + + + Precios sujetos a cambio sin previo aviso + + + + + + + + + Cotización sujeta a disponibilidad + + + + + + + + + Vigencia de cotización: + + + + =Parameters!Vigencia.Value + + + + + + + + + Condiciones de pago: + + + + =Parameters!CondicionPago.Value + + + + + + + + + Forma de entrega: + + + + =Parameters!FormaEntrega.Value + + + + + + + Textbox20 + 0.62794cm + 12.53405cm + 3.36038cm + 7.87937cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Precios cotizados en Moneda Nacional + + + + + + + Textbox6 + 0.3175cm + 13.22197cm + 0.31044cm + 7.19145cm + 3 + + =IIF(Parameters!CveMoneda.Value = "1",TRUE,FALSE) + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!FirmaVendedor.Value + FitProportional + 0.37747cm + 0.50093cm + 1.35889cm + 5.74406cm + 4 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 0.10718cm + 6.39645cm + 19.863cm + 5 + + = iif(Globals!PageNumber=Globals!TotalPages, true,false) + + + + + + + true + 0.09525cm + 0.07411cm + 6.57948cm + 20.46108cm + 1 + + = iif(Globals!PageNumber=Globals!TotalPages, false,true) + + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0cm + 0cm + 1.27cm + - - - Catálogo de Shipments - - - - -
  • - - - Crear Shipment - - -
    • -     - - - - - -
    -
    -
    - Shipments -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    -     -     - - - - -     - +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Shipments.aspx.cs" EnableEventValidation="false" Inherits="GPS_Shipments" %> + + + + + + + + Catálogo de Shipments + + + + +
  • + + + Crear Shipment + + +
    • +     + + + + + +
    +
    +
    + Shipments +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +     +     + + + + +     + - - - + +     + diff --git a/GPS/Shipments.aspx.cs b/GPS/Shipments.aspx.cs index 2e6a3ada3..dc27aa9ba 100644 --- a/GPS/Shipments.aspx.cs +++ b/GPS/Shipments.aspx.cs @@ -154,34 +154,41 @@ public partial class GPS_Shipments : ClsPaginas } protected void LnkAddStop_Click(object sender, EventArgs e) { - if (DtStops != null) - { - var Row = DtStops.NewRow(); - Row["StopSequence"] = DtStops.Rows.Count + 1; - Row["Name"] = TxtLocName.Text.Trim(); - Row["LocationID"] = TxtLocID.Text.Trim(); - Row["StopType"] = DdlStopType.SelectedValue; - Row["StopRole"] = DdlStopRole.SelectedValue; - Row["EarlyArrivalTime"] = TxtFechaStopI.Text.ToDateTime(); - Row["LateArrivalTime"] = TxtFechaStopF.Text.ToDateTime(); - - Row["Address"] = TxtAddress.Text.Trim(); - Row["City"] = TxtCity.Text.Trim(); - Row["State"] = TxtState.Text.Trim(); - Row["PostalCode"] = TxtPostalCode.Text.Trim(); - Row["Country"] = TxtContry.Text.Trim(); - - var latlon = TxtLatLong.Text.Trim().Split(','); - - Row["Lat"] = latlon[0]; - Row["Lon"] = latlon[1]; - - DtStops.Rows.Add(Row); + try + { + if (DtStops != null) + { + var Row = DtStops.NewRow(); + Row["StopSequence"] = DtStops.Rows.Count + 1; + Row["Name"] = TxtLocName.Text.Trim(); + Row["LocationID"] = TxtLocID.Text.Trim(); + Row["StopType"] = DdlStopType.SelectedValue; + Row["StopRole"] = DdlStopRole.SelectedValue; + Row["EarlyArrivalTime"] = TxtFechaStopI.Text.ToDateTime(); + Row["LateArrivalTime"] = TxtFechaStopF.Text.ToDateTime(); + + Row["Address"] = TxtAddress.Text.Trim(); + Row["City"] = TxtCity.Text.Trim(); + Row["State"] = TxtState.Text.Trim(); + Row["PostalCode"] = TxtPostalCode.Text.Trim(); + Row["Country"] = TxtContry.Text.Trim(); + + var latlon = TxtLatLong.Text.Trim().Split(','); + + Row["Lat"] = latlon[0]; + Row["Lon"] = latlon[1]; + + DtStops.Rows.Add(Row); + } + GvStops.DataSource = DtStops; + GvStops.DataBind(); + + UpShipment.Update(); + } + catch (Exception ex) + { + this.OnError("Ocurrió un error al registrar la parada (stop)", ex); } - GvStops.DataSource = DtStops; - GvStops.DataBind(); - - UpShipment.Update(); this.RegistraScript("$('#DivStop').modal('hide');"); } diff --git a/PortalGPS/InicioGPS.aspx.vb b/PortalGPS/InicioGPS.aspx.vb index 96fa525fa..17d5eccd0 100644 --- a/PortalGPS/InicioGPS.aspx.vb +++ b/PortalGPS/InicioGPS.aspx.vb @@ -34,8 +34,8 @@ Partial Class GPS_PruebaMaster If UsuarioActual.Contraseña = (ContraseñaPredeterminadaEncriptada) OrElse UsuarioActual.ActCambiarContraseña Then Response.Redirect("/Sistemas/CatContrasenia.aspx") Else + CargaZonasHorarias() CargaDispositivos() - CargaZonasHorarias() End If End If End Sub diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index e9c55c3cd..4b2761db4 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -160,7 +160,7 @@ - + @@ -173,7 +173,7 @@ - + @@ -186,7 +186,8 @@ - + + @@ -199,7 +200,7 @@