Saltar a contenido

RentatCasellas

ID: MOD-0001 · Fuente de código: SRC-0001 · Muestra relacionada: SRC-0002 · Estado: incorporado, análisis estático; dependencias pendientes.

← Índice de conocimiento

Identidad y alcance

Original: RentatCasellas.bas. Identidad interna RentatCasellas, Option Explicit (líneas 1–2). 84362 bytes, 2513 líneas, CRLF; lectura CP1252 inferida, pendiente de confirmar con el entorno de origen. SHA-256 89c7aae5ece889ec2e83c46e0a37eb9c0cd49424edc58b96c81ff74690700171. No contiene una declaración formal de versión; las fechas en comentarios son antecedentes, no una versión de entrega.

Inventario completo: 61 procedimientos, 669 comentarios, 73 menciones candidatas de ficheros y 80 llamadas Call explícitas. El inventario no resuelve todas las llamadas ni concatenaciones y no prueba ejecución. Se revisaron las 2513 líneas. Las familias de nombres se resolvieron simbólicamente; no se inventaron instancias ni muestras.

Propósito y procesos

Integra lavados Casellas/Enclar/Girbau, parking, promociones, duchas, SafePay, máquina de tabaco y algunas funciones auxiliares. Los comportamientos verificados se documentan por proceso:

Revisión de errores y contradicciones

El original se conserva sin correcciones funcionales. No se ha compilado ni ejecutado VB6.

Comentarios originales relevantes

Los 669 comentarios, incluido código desactivado, se conservan literalmente con línea y contexto en el inventario. Idioma predominante catalán, con castellano y algunas anotaciones inglesas. Selección documental (la intención se contrasta en procesos e incidencias):

SRC-0001, líneas 175

'08/05/2014, enviem 40 de targeta, o sigui, tota.

SRC-0001, líneas 207

'07/09/2017, enviar el numTx al parking, que és el número que imprimirem al ticket al codi de barres. (només els 6 ultims...)

SRC-0001, líneas 359

'si enviem, esborrem, és la llei !!!

SRC-0001, líneas 605

'Aquesta funció, si el config.dat té activat el camp 'LavadosEnclar' = 1, testeja les vendes del tpv

SRC-0001, líneas 625

' Aquesta funció mira si existei un fitxer de comunicacions tipus W_D amb el programa de rentats Enclar per tal

SRC-0001, líneas 628

' -->  I @ targeta @                   'per veure si la targeta és correcta

SRC-0001, líneas 629

' --> X @ targeta @ prog @      's'ha produit el rentat 'prog' i l'hem de gravar al crèdit...

SRC-0001, líneas 770

'02/08/2013, liquidar transacciosempre, perquè ja s'ha rentat el cotxe !!!!

SRC-0001, líneas 815

'no podem vendre més de dues dutxer per venda !!!

SRC-0001, líneas 834

'Com que necessito un codi aleatori per a cada rentat Enclar, no puc vendre més d'un a cada línia de venda

SRC-0001, líneas 921

'Aquesta funció mira el fitxer de configuració i torna els minuts de vida d'un codi de programa

SRC-0001, líneas 922

'Per defecte dóna un dia = 1440 minuts

SRC-0001, líneas 1000

'Aquesta funció, donat un número random, mira tot el fitxer i comprova que no estigui utilitzat.

SRC-0001, líneas 1038

'Els usats s'han de marcar amb programa zero...

SRC-0001, líneas 1278

'***********  Es important que aquest fitxer tingui les promocions grans abans que les petites,

SRC-0001, líneas 1279

'*********** per trobar la promoció correcta en funció de l'import de cada línea de venda

SRC-0001, líneas 1407

''990000 = 9,90 euros = importe euros x 100 x 1000 !!!

SRC-0001, líneas 1457

'aquesta rutina inicialment era per tornar diners (Petrem) però ara la farem serveir també per cobrar diners (Conceptes de caixa Cash Logic)

SRC-0001, líneas 1754

'ens el guardem, per tirar-ho des de bucle principal ...

SRC-0001, líneas 1766

'veure si tenim més d'un tabac a la venda, cosa que no es pot tenir

SRC-0001, líneas 1774

' 1 si no podem carregar el tabac perquè ja en teniem una línia de tabac -> no podem carregar tabac a la venda

SRC-0001, líneas 1961

'Aquesta rutina s'ha de fer correr cada segon tant si es mestre com si es esclau, en el primer cas per enviar l'ordre de dutxa, en el segon cas per pintar el cartell de dutxa activada

SRC-0001, líneas 2217

'codi de barres (EAN 13) = bin (4) & maquina (2)  & programa (2) & sequencia (3) & "0" & CRC

SRC-0001, líneas 2231

' reaprofitarem aquest dos camps, per tant l'ultim número de la sequencia serà sempre zero,

SRC-0001, líneas 2245

'l'ultim numero és zero sempre perqùe només tenim posicions 7 als camps reaprofitats a on el guardarem ...

SRC-0001, líneas 2355

'24/04/2019 --- aquesta es byRef perquè volem recuperar el lhun des de fora de la puta rutina

SRC-0001, líneas 2483

''' --> ... codi # descripcio # preux 100  @ ....

Procedimientos activos

Rutina Tipo Fuente
VeureSiTenimRentats Function SRC-0001, líneas 116–155
EnviarBloqueigRentat Sub SRC-0001, líneas 156–160
EnviarServeiPC_Parkings Sub SRC-0001, líneas 165–250
enviar_registre_parking Function SRC-0001, líneas 254–302
guardar_buffer_parking Sub SRC-0001, líneas 305–336
vaciar_buffer_parking_petrem Sub SRC-0001, líneas 339–375
EnviarResetParking Sub SRC-0001, líneas 378–385
EnviarOrdreRentat Sub SRC-0001, líneas 386–398
EnviarOrdreParking_sese Sub SRC-0001, líneas 401–408
EnviarOrdreParking Sub SRC-0001, líneas 411–449
VeureSiRentatCasellas Function SRC-0001, líneas 451–467
VeureTargetaParking Function SRC-0001, líneas 468–529
VeureSiTenimTerminalMasterPetrem Function SRC-0001, líneas 531–561
VeureSiTenimParkings Function SRC-0001, líneas 565–603
MirarSiTincRentatsEnclar Function SRC-0001, líneas 604–622
rentat_enclar_comunicacio_online Sub SRC-0001, líneas 624–688
rentat_Enclar_validar_targeta Function SRC-0001, líneas 690–724
rentat_liquidar_rentat_Targeta Function SRC-0001, líneas 726–784
TexteConfRentatsEnclar Function SRC-0001, líneas 785–810
NoPucDuesDutxesPetrem Function SRC-0001, líneas 814–831
NoPucDosRentatsEnclar Function SRC-0001, líneas 833–848
EsProgramaRentatEnclar Function SRC-0001, líneas 850–883
EsRentatEnclar Function SRC-0001, líneas 886–919
TempsCaducitatEnclar Function SRC-0001, líneas 920–945
GravaVendaRentat Function SRC-0001, líneas 947–996
EsNumeroRandomLliure Function SRC-0001, líneas 999–1070
Enclar_ticket_Promocio Sub SRC-0001, líneas 1072–1176
River_ticket_Promocio Sub SRC-0001, líneas 1181–1242
Enclar_Digit_Control_EAN_13 Function SRC-0001, líneas 1245–1264
Es_Promocio_pneumatics_Enclar Function SRC-0001, líneas 1266–1318
EsAquestAcc Function SRC-0001, líneas 1320–1348
MirarSiTinc_Promocions_Enclar Function SRC-0001, líneas 1352–1396
safepay_consulta_efectiu_disponible Sub SRC-0001, líneas 1399–1438
safepay_entrega_efectiu Sub SRC-0001, líneas 1442–1491
enviarComandoSafePay Sub SRC-0001, líneas 1493–1514
tabac_missatge_reset Sub SRC-0001, líneas 1515–1528
tabac_missatge_seleccio Sub SRC-0001, líneas 1530–1547
tabac_enviar_missatge Sub SRC-0001, líneas 1549–1577
tabac_recepcio Sub SRC-0001, líneas 1579–1702
tabac_TrobarNumVenda Function SRC-0001, líneas 1704–1721
tabac_enviar_cobrados Function SRC-0001, líneas 1723–1761
tabac_VeureSiTabac Function SRC-0001, líneas 1763–1801
tabac_VeureSiEsTabac Function SRC-0001, líneas 1803–1814
VeureSiTenimDutxes Function SRC-0001, líneas 1881–1924
refresc_rapid_dutxes_petrem Sub SRC-0001, líneas 1927–1937
abaixa_comptadors_control_horari Sub SRC-0001, líneas 1941–1957
refresc_rapid_dutxes Sub SRC-0001, líneas 1960–1994
dutxa_EnviarResetDutxes Sub SRC-0001, líneas 1995–2028
dutxa_ActivarDutxa_soc_client Sub SRC-0001, líneas 2030–2048
enviar_mis_dutxa_esclau Sub SRC-0001, líneas 2050–2068
dutxa_ActivarDutxa Sub SRC-0001, líneas 2070–2142
StopPrograma Function SRC-0001, líneas 2147–2156
CodiBarrasSuministro Function SRC-0001, líneas 2158–2192
girbau_MirarSiTincRentat Function SRC-0001, líneas 2199–2241
girbau_codi_barres_1 Function SRC-0001, líneas 2243–2248
girbau_codi_barres_2 Function SRC-0001, líneas 2251–2256
girbau_EsRentatGirbau Function SRC-0001, líneas 2258–2287
girbau_carregar_rentats Function SRC-0001, líneas 2289–2329
girbau_enviar_rentat Sub SRC-0001, líneas 2332–2336
girbau_ticket_rentadora Sub SRC-0001, líneas 2338–2389
carregar_dades_accessori Function SRC-0001, líneas 2444–2470

Expedientes de ficheros

Se ha recibido SRC-0002 para FIC-0001, con terminal 15, pasos 1 y código de accesorio 00842. La estructura contrastada documenta los tres pares descripción/dato y la lectura por posición. Los restantes expedientes siguen sin muestras físicas. Nombres en comentarios permanecen históricos o pendientes; las familias dinámicas requieren configuración para resolver instancias.

Dependencias y aspectos pendientes

Faltan el proyecto .VBP y las definiciones de MemConfig, TipAccessori, Tipcredit, TipTargeta, RegAccesor, arrays de ventas, constantes Max_* y directorios globales. Faltan CClientTCP2i, maquina_ram_disc_enviar/recepcio, maquina_agafa_camps, targeta_patro/pre_liquidar, funciones tpv_, devolucio_, Liquidac_* y acceso a accesorios. Sus nombres y llamadas no acreditan contratos completos. Las cadenas con nombres de trazas (TRAZA_parking) no se catalogan como nombres físicos porque el helper determina sus rutas y extensiones. Las llamadas miembro anidadas pueden quedar truncadas por el extractor Call; se contrastaron manualmente con el original.

Pendiente: restantes muestras de configuración y datos, semántica del receptor parking/Girbau, reimpresión, temporizadores y llamadores. NoPucDuesDutxesPetrem cuenta líneas, no unidades. La función rentat_liquidar_rentat_Targeta declara retorno Integer pero no lo asigna; su utilidad y expectativas del llamador deben verificarse. Las rutas que registran tarjeta/socio/nombre pueden tratar datos personales en ejecución; no se han incorporado muestras de esos registros. Los ejemplos de tarjeta del bloque de pruebas comentado se identifican como tales por el contexto original, sin presentarlos como datos de una operación real.