From 1a654a5025b8c34af32c3ceeee797dab88e2409c Mon Sep 17 00:00:00 2001 From: IsR0d Date: Wed, 8 May 2024 17:34:31 -0600 Subject: [PATCH] Version final Con venta y Abordo 4.05.05 --- B4A/C_Nota.bas | 11 +++++------ B4A/C_Principal.bas | 30 ++++++++++++++++++++++++++++++ B4A/Files/cliente.bal | Bin 35453 -> 35453 bytes B4A/Files/resdia.bal | Bin 39790 -> 42321 bytes B4A/INTMEX.b4a | 23 ++++++++++++----------- B4A/INTMEX.b4a.meta | 4 ++-- 6 files changed, 49 insertions(+), 19 deletions(-) diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index 5fca295..5931552 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -90,15 +90,14 @@ Sub B4XPage_Appear label1.color = Colors.White Private textColor As Int = Colors.black If c.GetString("PE_FOLIO") = "VENTA" Then - textColor = Colors.Black - Else If c.GetString("PE_FOLIO") = "PREVENTA" Then - textColor = Colors.Magenta + textColor = Colors.RGB(48,3,195) + Else If c.GetString("PE_FOLIO") = "PREVENTA" Or c.GetString("PE_FOLIO") = "ABORDO" Then + textColor = Colors.RGB(166,0,0) End If -' If c.GetString("PE_CEDIS").Contains("PRO") Then textColor = Colors.RGB(210,105,30) 'Si es promo, cambiamos el color del texto. If Not(IsNumber(c.GetString("PE_CEDIS"))) And c.GetString("PE_FOLIO") = "VENTA" Then - textColor = Colors.RGB(210,105,30) 'Si es promo, cambiamos el color del texto. + textColor = Colors.RGB(154,131,231) 'Si es promo, cambiamos el color del texto. Else If Not(IsNumber(c.GetString("PE_CEDIS"))) And c.GetString("PE_FOLIO") = "PREVENTA" Then - textColor = Colors.Green 'Si es promo, cambiamos el color del texto. + textColor = Colors.RGB(255,111,111) 'Si es promo, cambiamos el color del texto. End If Dim label2 As Label label2 = ListView1.TwoLinesLayout.SecondLabel diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 970d71e..668cae8 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -210,6 +210,9 @@ Sub Class_Globals Private l_rutasuplencia As Label Dim userpiezas As String Private b_abordo As Button + Private L_ABORDO As Label + Private L_VENTA As Label + Private L_PREVENTA As Label End Sub 'You can add more parameters here. @@ -2246,6 +2249,33 @@ Sub resdia_Click l_monto_ks.Text = "0" End If c.Close + c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As PREVENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("PREVENTA")) + If c.RowCount > 0 Then + c.Position = 0 + L_PREVENTA.Text = c.GetString ("PREVENTA") + If L_PREVENTA.TEXT = "null" Then + L_PREVENTA.Text = "0" + End If + End If + c.Close + c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As VENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("VENTA")) + If c.RowCount > 0 Then + c.Position = 0 + L_VENTA.Text = c.GetString ("VENTA") + If L_VENTA.TEXT = "null" Then + L_VENTA.Text = "0" + End If + End If + c.Close + c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As ABORDO from pedido where PE_FOLIO = ? AND PE_CLIENTE = ?", Array As String ("ABORDO", "0")) + If c.RowCount > 0 Then + c.Position = 0 + L_ABORDO.Text = c.GetString ("ABORDO") + If L_ABORDO.TEXT = "null" Then + L_ABORDO.Text = "0" + End If + End If + c.Close Dim cuantos_obj As String c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ") c.Position = 0 diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index c4afe474e4c2cc07430b69f2c74c37d2a0146466..441e827c581a7878b3fb7f5ad42d9b85e7fa9659 100644 GIT binary patch delta 42 ucmex6h3W4UrVW*C!i5YB401rsn8C=vAP-_ROjfMan7p8fYxBOg{mcLdH4Hxh delta 42 vcmex6h3W4UrVW*C!VwG%401rsn90b%AP-{9o&3O1WAcI`uFd<}_A>(j3!V(S diff --git a/B4A/Files/resdia.bal b/B4A/Files/resdia.bal index 9bd91e1200aadc151c18779045e55fa9124be7bc..ef8fb708ddbe03be2b3cc65d7d283a29edd6b828 100644 GIT binary patch delta 1514 zcmY+DT};hk9LLY^aim%`#;i!@Ey*e8963Vb^m4rHa6~dKOR1AMUPcR(F_O1L9vPDh ztC^WGd+5Sqn7J@)teK0vTy(*Px#-HW`Td^nQqK0@^Z9>%&-eGdoc(`xskbjx{78qx z@h!&Th~;r>YkWmqG()i5pBGwN5NbU*A)agU9?bWz&M&;zHiZ&oYOs9G+QO2;)y00@ zMP;$0tde&p?pChYD3KMF)e*1xsut7GyHC$>o~H`a3|38Rzo`3Uwax?aXw%{E) zqTh<)@HiR3qr7T%0dhim>uJNCVnoKBhy_25kjENreJ~=@2$xKSwM>Jr~i^%~} z6UZb?sV9|9I&-4ibWP=1CFakxeWdE3Zp>iSZhoY)dI)tXjnxP9aaN6Vf9>*^`b^vX z(Hz@dOxT0&cf9ES#^p98S+@JNdFU=GFyD4Rn~mH&D}|K%iLX3 zL@F;zFU@ruum1~Cj~ScKA&0UX?=Ilwn598hfH?(xds%>DQ}~J!`F^NFKTb+B(^qgk z2f6l@V9AXOGM6IPyoz(B|L2?`uJ1>#VGUSv{YA|0;3Mn6;`@r3f5DfPfW`N0U``le z_Z{2_7XQ4I*#)0d1{QyR6Z1-VS2EWUUbbF|a$|J81=_<}vTq*BEvnQMF33!DBr{`;+SoA!F1 z%Pe!p?Po4PkLCkl@y>(H5%`7%u=xH%%%|Zahr#0ejxgVZFFOhr-*b%l1$^*0Sp4%Q z=05nGlVI`pPcg@hv}bai0gLZ!W=@AsZUKwGc#e5Fd|WG7eB%Y?F#Lc9i?3^AZh`-P z2`s+qGV^Wt-Ya1CY9{I3iM1+?^u7ELrRmm2pPEJbXUo6#O9LMqB^El$1?MxRfIn!`jsAcEqAB`O1P!jzUkx(tkLd%>njc80${yZzw zMQW{CU4)*-YOUrLR9%){Va3-^YzBuf2c2=dm9?7B7~Y0XH=Ygsg|TuJN@$m!ZbPAOc>ejC!DP_Khrg918={72@dSQDRZ_mcW>UNj8J?S>L zxzz2%_Si0Sn^XB7b9-nnw!g=?_33!t)(`h#oYSEMbG$2YOxoVk*V#lrPq>sTEn2sD zl7!5cN+h}UpX6|1TUh(tdtg?GW*wPEYtM1jPhPqPnU^y%$P@6pgXzLHAy(%ft0_mc zj?1Lyzi@8wFwEzoj*tVTxzV3Z=K|%LbHPXHd89NyR_8I8&jp+yH=#G4gt;&0k{_T~ z<-y$N^2u+|iwj`x(}m=3=s86&_wlpjzv!M4nEPlcd840sAJ=)9`@jYAZuGE=F!$av z@^SQ_a+rJDWpXw8N(Ic_cZGZheZCUrURF&WL7%w_bI-d*|F+NEL-bHhE?WoG)~+_U z9`w<>^qk*~sv|FAqrV>J9^627Sn!Rn!`uTJ$?@ooO)&T68{|{yRV^_0xtrt~^x{^S z`*a(*2R)}9=01Ll{2JZU0dpU{P5y%J>V&xubdi_P!+K!uy^6fS-@Jd&U6^~@J#r%Y VN-xaa*GDcupT7@NS8-1q{{e(URa^i7 diff --git a/B4A/INTMEX.b4a b/B4A/INTMEX.b4a index c121d2f..98a399a 100644 --- a/B4A/INTMEX.b4a +++ b/B4A/INTMEX.b4a @@ -110,15 +110,16 @@ Library22=okhttputils2 Library23=phone Library24=preoptimizedclv Library25=randomaccessfile -Library26=rspopupmenu -Library27=serial -Library28=sql -Library29=stringutils +Library26=replyauto +Library27=rspopupmenu +Library28=serial +Library29=sql Library3=baqrcode -Library30=togglelibrary -Library31=xcustomlistview -Library32=xui -Library33=replyauto +Library30=stringutils +Library31=togglelibrary +Library32=xcustomlistview +Library33=xui +Library34=runtimepermissions Library4=batteryprogressview Library5=bitmapcreator Library6=byteconverter @@ -155,14 +156,14 @@ Module7=C_Historico Module8=C_Mapas Module9=C_Nota NumberOfFiles=46 -NumberOfLibraries=33 +NumberOfLibraries=34 NumberOfModules=28 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Intmex #VersionCode: 1 - #VersionName: 4.05.01 + #VersionName: 4.05.05 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index f51040e..c4129ab 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -85,6 +85,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,restaFijosPromo,932,3,Subs,alcanzanLosVariablesParaPromo,934,6,C_Productos,lv_catalogos_ItemClick,254,6,C_Productos,B4XPage_Created,127,0,C_Cliente,Guardar_Click,557,0,C_NoVenta,GUARDA_Click,122,0,C_Productos,Class_Globals,0,0,C_Productos,b_terminar1_Click,628,0,C_Productos,B4XPage_Appear,189,6,B4XMainPage,Class_Globals,24,0 +NavigationStack=C_NoVenta,GUARDA_Click,122,0,C_Productos,B4XPage_Appear,189,6,B4XMainPage,Class_Globals,24,0,C_Nota,Class_Globals,0,0,C_Productos,Class_Globals,0,0,C_Productos,b_terminar1_Click,635,0,C_Nota,B4XPage_Appear,94,6,C_Principal,resdia_Click,2270,6,Diseñador Visual,resdia.bal,-100,6,Diseñador Visual,clientes.bal,-100,1,Diseñador Visual,cliente.bal,-100,1 SelectedBuild=0 -VisibleModules=2,26,13,16,14,4,27,15,9,6,10 +VisibleModules=2,26,13,16,14,4,27,15,9,6