From 41e39d1c775ca63cb65cf657ef3bfd2c4ef1becc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 10:05:58 -0500 Subject: [PATCH 1/5] 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 2/5] =?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 ea523387a9d56f8b628761998f05e54d66b88344 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 21 Aug 2019 10:25:52 -0700 Subject: [PATCH 3/5] 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 4/5] 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 925ac84761af2172733b90687614bb18abbd7df8 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 11:29:48 -0500 Subject: [PATCH 5/5] 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