From 41e39d1c775ca63cb65cf657ef3bfd2c4ef1becc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 10:05:58 -0500 Subject: [PATCH] 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