commit 9f864fa99c1f9a4fd68b1583afc6f73d2becd199 Author: Marcus Date: Thu Mar 2 09:56:43 2023 -0300 first commit diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..9bd0c81 --- /dev/null +++ b/.gitignore @@ -0,0 +1,89 @@ +# Uncomment these types if you want even more clean repository. But be careful. +# It can make harm to an existing project source. Read explanations below. +# +# Resource files are binaries containing manifest, project icon and version info. +# They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. +#*.res +# +# Type library file (binary). In old Delphi versions it should be stored. +# Since Delphi 2009 it is produced from .ridl file and can safely be ignored. +#*.tlb +# +# Diagram Portfolio file. Used by the diagram editor up to Delphi 7. +# Uncomment this if you are not using diagrams or use newer Delphi version. +#*.ddp +# +# Visual LiveBindings file. Added in Delphi XE2. +# Uncomment this if you are not using LiveBindings Designer. +#*.vlb +# +# Deployment Manager configuration file for your project. Added in Delphi XE2. +# Uncomment this if it is not mobile development and you do not use remote debug feature. +#*.deployproj +# +# C++ object files produced when C/C++ Output file generation is configured. +# Uncomment this if you are not using external objects (zlib library for example). +#*.obj +# + +# Delphi compiler-generated binaries (safe to delete) +*.exe +*.dll +*.bpl +*.bpi +*.dcp +*.so +*.apk +*.drc +*.map +*.dres +*.rsm +*.tds +*.dcu +*.lib +*.a +*.o +*.ocx + +*.xls + +# Delphi autogenerated files (duplicated info) +*.cfg +*.hpp +*Resource.rc + +# Delphi local files (user-specific info) +*.local +*.identcache +*.projdata +*.tvsconfig +*.dsk + +# Delphi history and backups +__history/ +__recovery/ +*.~* + +# Castalia statistics file (since XE7 Castalia is distributed with Delphi) +*.stat + +# Boss dependency manager vendor folder https://github.com/HashLoad/boss +modules/ + +#Firebird database +*.gdb +*.gbk + +Imagens/ +**/ACORDOS +**/BACKUP_BANCO +**/BKP_EXE +**/BOLETOS +**/Layouts +**/log +**/LOGOMARCAS +**/LOGOS_BOLETOS +**/Planilhas +**/RECIBOS +**/RELATORIOS +**/REMESSAS \ No newline at end of file diff --git a/CHG_EMPRESA_REPASSE.sql b/CHG_EMPRESA_REPASSE.sql new file mode 100644 index 0000000..a5f5a76 --- /dev/null +++ b/CHG_EMPRESA_REPASSE.sql @@ -0,0 +1,2469 @@ +/* + CHG_EMPRESA_REPASSE + ------------------- + Exporting all rows +*/ +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1, 5, 0, 0, 100, 100, 0, 'NOME', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2, 5, 0, 0, 100, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (3, 5, 0, 0, 100, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (4, 5, 0, 0, 100, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (5, 5, 0, 0, 100, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (6, 5, 0, 0, 100, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (7, 5, 0, 0, 100, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (8, 5, 0, 0, 100, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (9, 5, 0, 0, 100, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (10, 5, 0, 0, 100, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (11, 5, 0, 0, 100, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (12, 5, 0, 0, 100, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (13, 5, 0, 0, 100, 100, 0, 'OI', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (14, 5, 0, 0, 100, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (15, 5, 0, 0, 100, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (16, 5, 0, 0, 100, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (17, 5, 0, 0, 100, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (18, 5, 0, 0, 100, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (19, 5, 0, 0, 100, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (20, 5, 0, 0, 100, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (21, 5, 0, 0, 100, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (22, 5, 0, 0, 100, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (23, 5, 0, 0, 100, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (24, 5, 0, 0, 100, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (25, 52, 0, 0, 0, 0, 7, 'Aluguel', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (26, 52, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (27, 52, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (28, 52, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (29, 52, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (30, 52, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (31, 52, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (32, 52, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (33, 52, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (34, 52, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (35, 52, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (36, 52, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (37, 52, 0, 0, 0, 0, 7, 'Aluguel', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (38, 52, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (39, 52, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (40, 52, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (41, 52, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (42, 52, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (43, 52, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (44, 52, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (45, 52, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (46, 52, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (47, 52, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (48, 52, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (49, 54, 0, 0, 0, 0, 0, 'Caução', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (50, 54, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (51, 54, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (52, 54, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (53, 54, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (54, 54, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (55, 54, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (56, 54, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (57, 54, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (58, 54, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (59, 54, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (60, 54, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (61, 270, 0, 0, 0, 0, 0, 'Cond', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (62, 270, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (63, 270, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (64, 270, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (65, 270, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (66, 270, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (67, 270, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (68, 270, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (69, 270, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (70, 270, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (71, 270, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (72, 270, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (73, 53, 0, 0, 0, 0, 0, 'Iptu', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (74, 53, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (75, 53, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (76, 53, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (77, 53, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (78, 53, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (79, 53, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (80, 53, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (81, 53, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (82, 53, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (83, 53, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (84, 53, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (85, 269, 0, 0, 0, 0, 0, 'Taxa', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (86, 269, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (87, 269, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (88, 269, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (89, 269, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (90, 269, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (91, 269, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (92, 269, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (93, 269, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (94, 269, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (95, 269, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (96, 269, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (97, 262, 0, 0, 0, 0, 7, 'Aluguel', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (98, 7, 0, 0, 100, 100, 0, 'UCP', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (99, 7, 0, 0, 100, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (100, 7, 0, 0, 100, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (101, 7, 0, 0, 100, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (102, 7, 0, 0, 100, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (103, 7, 0, 0, 100, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (104, 7, 0, 0, 100, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (105, 7, 0, 0, 100, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (106, 7, 0, 0, 100, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (107, 7, 0, 0, 100, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (108, 7, 0, 0, 100, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (109, 7, 0, 0, 100, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (110, 7, 0, 0, 100, 100, 0, 'UCP', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (111, 7, 0, 0, 100, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (112, 7, 0, 0, 100, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (113, 7, 0, 0, 100, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (114, 7, 0, 0, 100, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (115, 7, 0, 0, 100, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (116, 7, 0, 0, 100, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (117, 7, 0, 0, 100, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (118, 7, 0, 0, 100, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (119, 7, 0, 0, 100, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (120, 7, 0, 0, 100, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (121, 7, 0, 0, 100, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (122, 77, 0, 0, 0, 0, 100, 'ADM', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (123, 77, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (124, 77, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (125, 77, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (126, 77, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (127, 77, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (128, 77, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (129, 77, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (130, 77, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (131, 77, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (132, 77, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (133, 77, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (134, 194, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (135, 194, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (136, 194, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (137, 194, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (138, 194, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (139, 194, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (140, 194, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (141, 194, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (142, 194, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (143, 194, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (144, 194, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (145, 194, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (146, 192, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (147, 192, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (148, 192, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (149, 192, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (150, 192, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (151, 192, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (152, 192, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (153, 192, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (154, 192, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (155, 192, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (156, 192, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (157, 192, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (158, 331, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (159, 331, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (160, 331, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (161, 331, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (162, 331, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (163, 331, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (164, 331, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (165, 331, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (166, 331, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (167, 331, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (168, 331, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (169, 331, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (170, 58, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (171, 58, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (172, 58, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (173, 58, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (174, 58, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (175, 58, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (176, 58, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (177, 58, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (178, 58, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (179, 58, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (180, 58, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (181, 58, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (182, 59, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (183, 59, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (184, 59, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (185, 59, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (186, 59, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (187, 59, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (188, 59, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (189, 59, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (190, 59, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (191, 59, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (192, 59, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (193, 59, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (194, 294, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (195, 294, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (196, 294, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (197, 294, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (198, 294, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (199, 294, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (200, 294, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (201, 294, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (202, 294, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (203, 294, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (204, 294, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (205, 294, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (206, 294, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (207, 294, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (208, 294, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (209, 294, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (210, 294, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (211, 294, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (212, 294, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (213, 294, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (214, 294, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (215, 294, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (216, 294, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (217, 294, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (218, 322, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (219, 322, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (220, 322, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (221, 322, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (222, 322, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (223, 322, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (224, 322, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (225, 322, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (226, 322, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (227, 322, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (228, 322, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (229, 322, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (230, 322, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (231, 322, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (232, 322, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (233, 322, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (234, 322, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (235, 322, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (236, 322, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (237, 322, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (238, 322, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (239, 322, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (240, 322, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (241, 322, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (242, 90, 0, 0, 100, 100, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (243, 90, 0, 0, 100, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (244, 90, 0, 0, 100, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (245, 90, 0, 0, 100, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (246, 90, 0, 0, 100, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (247, 90, 0, 0, 100, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (248, 90, 0, 0, 100, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (249, 90, 0, 0, 100, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (250, 90, 0, 0, 100, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (251, 90, 0, 0, 100, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (252, 90, 0, 0, 100, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (253, 90, 0, 0, 100, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (254, 90, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (255, 56, 0, 0, 0, 100, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (256, 56, 0, 0, 0, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (257, 56, 0, 0, 0, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (258, 56, 0, 0, 0, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (259, 56, 0, 0, 0, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (260, 56, 0, 0, 0, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (261, 56, 0, 0, 0, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (262, 56, 0, 0, 0, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (263, 56, 0, 0, 0, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (264, 56, 0, 0, 0, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (265, 56, 0, 0, 0, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (266, 56, 0, 0, 0, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (267, 56, 0, 0, 0, 100, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (268, 56, 0, 0, 0, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (269, 56, 0, 0, 0, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (270, 56, 0, 0, 0, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (271, 56, 0, 0, 0, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (272, 56, 0, 0, 0, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (273, 56, 0, 0, 0, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (274, 56, 0, 0, 0, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (275, 56, 0, 0, 0, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (276, 56, 0, 0, 0, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (277, 56, 0, 0, 0, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (278, 56, 0, 0, 0, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (279, 319, 0, 0, 0, 0, 2, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (280, 319, 0, 0, 0, 0, 2, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (281, 319, 0, 0, 0, 0, 2, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (282, 319, 0, 0, 0, 0, 2, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (283, 319, 0, 0, 0, 0, 2, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (284, 319, 0, 0, 0, 0, 2, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (285, 319, 0, 0, 0, 0, 2, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (286, 319, 0, 0, 0, 0, 2, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (287, 319, 0, 0, 0, 0, 2, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (288, 319, 0, 0, 0, 0, 2, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (289, 319, 0, 0, 0, 0, 2, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (290, 319, 0, 0, 0, 0, 2, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (291, 319, 0, 0, 0, 0, 2, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (292, 319, 0, 0, 0, 0, 2, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (293, 319, 0, 0, 0, 0, 2, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (294, 319, 0, 0, 0, 0, 2, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (295, 319, 0, 0, 0, 0, 2, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (296, 319, 0, 0, 0, 0, 2, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (297, 319, 0, 0, 0, 0, 2, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (298, 319, 0, 0, 0, 0, 2, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (299, 319, 0, 0, 0, 0, 2, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (300, 319, 0, 0, 0, 0, 2, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (301, 319, 0, 0, 0, 0, 2, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (302, 319, 0, 0, 0, 0, 2, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (303, 244, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (304, 244, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (305, 244, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (306, 244, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (307, 244, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (308, 244, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (309, 244, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (310, 244, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (311, 244, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (312, 244, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (313, 244, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (314, 244, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (315, 245, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (316, 245, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (317, 245, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (318, 245, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (319, 245, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (320, 245, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (321, 245, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (322, 245, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (323, 245, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (324, 245, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (325, 245, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (326, 245, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (327, 301, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (328, 301, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (329, 301, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (330, 301, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (331, 301, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (332, 301, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (333, 301, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (334, 301, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (335, 301, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (336, 301, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (337, 301, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (338, 301, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (339, 332, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (340, 332, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (341, 332, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (342, 332, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (343, 332, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (344, 332, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (345, 332, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (346, 332, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (347, 332, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (348, 332, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (349, 332, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (350, 332, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (351, 334, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (352, 334, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (353, 334, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (354, 334, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (355, 334, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (356, 334, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (357, 334, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (358, 334, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (359, 334, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (360, 334, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (361, 334, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (362, 334, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (363, 238, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (364, 238, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (365, 238, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (366, 238, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (367, 238, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (368, 238, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (369, 238, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (370, 238, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (371, 238, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (372, 238, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (373, 238, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (374, 238, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (375, 238, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (376, 238, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (377, 238, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (378, 238, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (379, 238, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (380, 238, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (381, 238, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (382, 238, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (383, 238, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (384, 238, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (385, 238, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (386, 238, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (387, 272, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (388, 272, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (389, 272, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (390, 272, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (391, 272, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (392, 272, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (393, 272, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (394, 272, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (395, 272, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (396, 272, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (397, 272, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (398, 272, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (399, 272, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (400, 272, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (401, 272, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (402, 272, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (403, 272, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (404, 272, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (405, 272, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (406, 272, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (407, 272, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (408, 272, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (409, 272, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (410, 272, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (411, 271, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (412, 271, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (413, 271, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (414, 271, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (415, 271, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (416, 271, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (417, 271, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (418, 271, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (419, 271, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (420, 271, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (421, 271, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (422, 271, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (423, 271, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (424, 271, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (425, 271, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (426, 271, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (427, 271, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (428, 271, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (429, 271, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (430, 271, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (431, 271, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (432, 271, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (433, 271, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (434, 271, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (435, 273, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (436, 273, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (437, 273, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (438, 273, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (439, 273, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (440, 273, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (441, 273, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (442, 273, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (443, 273, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (444, 273, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (445, 273, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (446, 273, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (447, 273, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (448, 273, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (449, 273, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (450, 273, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (451, 273, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (452, 273, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (453, 273, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (454, 273, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (455, 273, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (456, 273, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (457, 273, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (458, 273, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (459, 284, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (460, 284, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (461, 284, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (462, 284, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (463, 284, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (464, 284, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (465, 284, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (466, 284, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (467, 284, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (468, 284, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (469, 284, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (470, 284, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (471, 284, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (472, 284, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (473, 284, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (474, 284, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (475, 284, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (476, 284, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (477, 284, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (478, 284, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (479, 284, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (480, 284, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (481, 284, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (482, 284, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (483, 298, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (484, 298, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (485, 298, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (486, 298, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (487, 298, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (488, 298, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (489, 298, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (490, 298, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (491, 298, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (492, 298, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (493, 298, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (494, 298, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (495, 298, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (496, 298, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (497, 298, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (498, 298, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (499, 298, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (500, 298, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (501, 298, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (502, 298, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (503, 298, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (504, 298, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (505, 298, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (506, 298, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (507, 276, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (508, 276, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (509, 276, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (510, 276, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (511, 276, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (512, 276, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (513, 276, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (514, 276, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (515, 276, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (516, 276, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (517, 276, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (518, 276, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (519, 276, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (520, 276, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (521, 276, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (522, 276, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (523, 276, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (524, 276, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (525, 276, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (526, 276, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (527, 276, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (528, 276, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (529, 276, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (530, 276, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (531, 84, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (532, 84, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (533, 84, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (534, 84, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (535, 84, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (536, 84, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (537, 84, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (538, 84, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (539, 84, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (540, 84, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (541, 84, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (542, 84, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (543, 84, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (544, 84, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (545, 84, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (546, 84, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (547, 84, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (548, 84, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (549, 84, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (550, 84, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (551, 84, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (552, 84, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (553, 84, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (554, 84, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (555, 297, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (556, 297, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (557, 297, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (558, 297, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (559, 297, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (560, 297, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (561, 297, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (562, 297, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (563, 297, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (564, 297, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (565, 297, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (566, 297, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (567, 297, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (568, 297, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (569, 297, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (570, 297, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (571, 297, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (572, 297, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (573, 297, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (574, 297, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (575, 297, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (576, 297, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (577, 297, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (578, 297, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (579, 292, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (580, 292, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (581, 292, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (582, 292, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (583, 292, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (584, 292, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (585, 292, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (586, 292, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (587, 292, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (588, 292, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (589, 292, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (590, 292, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (591, 292, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (592, 292, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (593, 292, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (594, 292, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (595, 292, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (596, 292, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (597, 292, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (598, 292, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (599, 292, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (600, 292, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (601, 292, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (602, 292, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (603, 41, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (604, 41, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (605, 41, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (606, 41, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (607, 41, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (608, 41, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (609, 41, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (610, 41, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (611, 41, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (612, 41, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (613, 41, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (614, 41, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (615, 41, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (616, 41, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (617, 41, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (618, 41, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (619, 41, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (620, 41, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (621, 41, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (622, 41, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (623, 41, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (624, 41, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (625, 41, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (626, 41, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (627, 304, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (628, 304, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (629, 304, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (630, 304, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (631, 304, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (632, 304, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (633, 304, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (634, 304, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (635, 304, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (636, 304, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (637, 304, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (638, 304, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (639, 304, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (640, 304, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (641, 304, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (642, 304, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (643, 304, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (644, 304, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (645, 304, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (646, 304, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (647, 304, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (648, 304, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (649, 304, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (650, 304, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (651, 33, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (652, 33, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (653, 33, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (654, 33, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (655, 33, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (656, 33, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (657, 33, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (658, 33, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (659, 33, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (660, 33, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (661, 33, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (662, 33, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (663, 33, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (664, 33, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (665, 33, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (666, 33, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (667, 33, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (668, 33, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (669, 33, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (670, 33, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (671, 33, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (672, 33, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (673, 33, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (674, 33, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (675, 39, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (676, 39, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (677, 39, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (678, 39, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (679, 39, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (680, 39, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (681, 39, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (682, 39, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (683, 39, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (684, 39, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (685, 39, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (686, 39, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (687, 39, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (688, 39, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (689, 39, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (690, 39, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (691, 39, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (692, 39, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (693, 39, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (694, 39, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (695, 39, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (696, 39, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (697, 39, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (698, 39, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (699, 37, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (700, 37, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (701, 37, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (702, 37, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (703, 37, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (704, 37, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (705, 37, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (706, 37, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (707, 37, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (708, 37, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (709, 37, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (710, 37, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (711, 37, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (712, 37, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (713, 37, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (714, 37, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (715, 37, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (716, 37, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (717, 37, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (718, 37, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (719, 37, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (720, 37, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (721, 37, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (722, 37, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (723, 34, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (724, 34, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (725, 34, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (726, 34, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (727, 34, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (728, 34, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (729, 34, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (730, 34, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (731, 34, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (732, 34, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (733, 34, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (734, 34, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (735, 34, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (736, 34, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (737, 34, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (738, 34, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (739, 34, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (740, 34, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (741, 34, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (742, 34, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (743, 34, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (744, 34, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (745, 34, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (746, 34, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (747, 38, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (748, 38, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (749, 38, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (750, 38, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (751, 38, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (752, 38, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (753, 38, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (754, 38, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (755, 38, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (756, 38, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (757, 38, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (758, 38, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (759, 38, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (760, 38, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (761, 38, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (762, 38, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (763, 38, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (764, 38, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (765, 38, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (766, 38, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (767, 38, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (768, 38, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (769, 38, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (770, 38, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (771, 260, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (772, 260, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (773, 260, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (774, 260, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (775, 260, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (776, 260, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (777, 260, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (778, 260, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (779, 260, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (780, 260, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (781, 260, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (782, 260, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (783, 260, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (784, 260, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (785, 260, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (786, 260, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (787, 260, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (788, 260, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (789, 260, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (790, 260, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (791, 260, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (792, 260, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (793, 260, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (794, 260, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (795, 275, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (796, 275, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (797, 275, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (798, 275, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (799, 275, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (800, 275, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (801, 275, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (802, 275, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (803, 275, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (804, 275, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (805, 275, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (806, 275, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (807, 275, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (808, 275, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (809, 275, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (810, 275, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (811, 275, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (812, 275, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (813, 275, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (814, 275, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (815, 275, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (816, 275, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (817, 275, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (818, 275, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (819, 9, 0, 0, 100, 100, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (820, 9, 0, 0, 100, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (821, 9, 0, 0, 100, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (822, 9, 0, 0, 100, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (823, 9, 0, 0, 100, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (824, 9, 0, 0, 100, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (825, 9, 0, 0, 100, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (826, 9, 0, 0, 100, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (827, 9, 0, 0, 100, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (828, 9, 0, 0, 100, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (829, 9, 0, 0, 100, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (830, 9, 0, 0, 100, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (831, 9, 0, 0, 100, 100, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (832, 9, 0, 0, 100, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (833, 9, 0, 0, 100, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (834, 9, 0, 0, 100, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (835, 9, 0, 0, 100, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (836, 9, 0, 0, 100, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (837, 9, 0, 0, 100, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (838, 9, 0, 0, 100, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (839, 9, 0, 0, 100, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (840, 9, 0, 0, 100, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (841, 9, 0, 0, 100, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (842, 9, 0, 0, 100, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (843, 246, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (844, 246, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (845, 246, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (846, 246, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (847, 246, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (848, 246, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (849, 246, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (850, 246, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (851, 246, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (852, 246, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (853, 246, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (854, 246, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (855, 246, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (856, 246, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (857, 246, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (858, 246, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (859, 246, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (860, 246, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (861, 246, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (862, 246, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (863, 246, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (864, 246, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (865, 246, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (866, 246, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (867, 255, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (868, 255, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (869, 255, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (870, 255, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (871, 255, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (872, 255, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (873, 255, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (874, 255, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (875, 255, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (876, 255, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (877, 255, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (878, 255, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (879, 255, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (880, 255, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (881, 255, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (882, 255, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (883, 255, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (884, 255, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (885, 255, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (886, 255, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (887, 255, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (888, 255, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (889, 255, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (890, 255, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (891, 295, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (892, 295, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (893, 295, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (894, 295, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (895, 295, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (896, 295, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (897, 295, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (898, 295, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (899, 295, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (900, 295, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (901, 295, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (902, 295, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (903, 295, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (904, 295, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (905, 295, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (906, 295, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (907, 295, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (908, 295, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (909, 295, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (910, 295, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (911, 295, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (912, 295, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (913, 295, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (914, 295, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (915, 263, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (916, 263, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (917, 263, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (918, 263, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (919, 263, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (920, 263, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (921, 263, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (922, 263, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (923, 263, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (924, 263, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (925, 263, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (926, 263, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (927, 263, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (928, 263, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (929, 263, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (930, 263, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (931, 263, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (932, 263, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (933, 263, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (934, 263, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (935, 263, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (936, 263, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (937, 263, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (938, 263, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (939, 44, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (940, 44, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (941, 44, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (942, 44, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (943, 44, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (944, 44, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (945, 44, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (946, 44, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (947, 44, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (948, 44, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (949, 44, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (950, 44, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (951, 44, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (952, 44, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (953, 44, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (954, 44, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (955, 44, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (956, 44, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (957, 44, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (958, 44, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (959, 44, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (960, 44, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (961, 44, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (962, 44, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (963, 46, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (964, 46, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (965, 46, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (966, 46, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (967, 46, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (968, 46, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (969, 46, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (970, 46, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (971, 46, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (972, 46, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (973, 46, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (974, 46, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (975, 46, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (976, 46, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (977, 46, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (978, 46, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (979, 46, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (980, 46, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (981, 46, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (982, 46, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (983, 46, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (984, 46, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (985, 46, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (986, 46, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (987, 45, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (988, 45, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (989, 45, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (990, 45, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (991, 45, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (992, 45, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (993, 45, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (994, 45, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (995, 45, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (996, 45, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (997, 45, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (998, 45, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (999, 45, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1000, 45, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1001, 45, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1002, 45, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1003, 45, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1004, 45, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1005, 45, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1006, 45, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1007, 45, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1008, 45, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1009, 45, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1010, 45, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1011, 289, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1012, 289, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1013, 289, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1014, 289, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1015, 289, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1016, 289, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1017, 289, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1018, 289, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1019, 289, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1020, 289, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1021, 289, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1022, 289, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1023, 289, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1024, 289, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1025, 289, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1026, 289, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1027, 289, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1028, 289, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1029, 289, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1030, 289, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1031, 289, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1032, 289, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1033, 289, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1034, 289, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1035, 243, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1036, 243, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1037, 243, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1038, 243, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1039, 243, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1040, 243, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1041, 243, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1042, 243, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1043, 243, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1044, 243, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1045, 243, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1046, 243, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1047, 227, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1048, 227, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1049, 227, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1050, 227, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1051, 227, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1052, 227, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1053, 227, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1054, 227, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1055, 227, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1056, 227, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1057, 227, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1058, 227, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1059, 227, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1060, 227, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1061, 227, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1062, 227, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1063, 227, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1064, 227, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1065, 227, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1066, 227, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1067, 227, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1068, 227, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1069, 227, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1070, 227, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1071, 256, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1072, 256, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1073, 256, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1074, 256, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1075, 256, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1076, 256, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1077, 256, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1078, 256, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1079, 256, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1080, 256, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1081, 256, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1082, 256, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1083, 256, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1084, 256, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1085, 256, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1086, 256, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1087, 256, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1088, 256, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1089, 256, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1090, 256, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1091, 256, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1092, 256, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1093, 256, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1094, 256, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1095, 231, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1096, 231, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1097, 231, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1098, 231, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1099, 231, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1100, 231, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1101, 231, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1102, 231, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1103, 231, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1104, 231, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1105, 231, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1106, 231, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1107, 231, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1108, 231, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1109, 231, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1110, 231, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1111, 231, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1112, 231, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1113, 231, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1114, 231, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1115, 231, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1116, 231, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1117, 231, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1118, 231, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1119, 311, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1120, 311, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1121, 311, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1122, 311, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1123, 311, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1124, 311, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1125, 311, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1126, 311, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1127, 311, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1128, 311, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1129, 311, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1130, 311, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1131, 311, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1132, 311, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1133, 311, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1134, 311, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1135, 311, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1136, 311, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1137, 311, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1138, 311, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1139, 311, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1140, 311, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1141, 311, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1142, 311, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1143, 40, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1144, 40, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1145, 40, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1146, 40, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1147, 40, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1148, 40, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1149, 40, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1150, 40, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1151, 40, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1152, 40, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1153, 40, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1154, 40, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1155, 40, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1156, 40, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1157, 40, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1158, 40, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1159, 40, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1160, 40, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1161, 40, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1162, 40, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1163, 40, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1164, 40, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1165, 40, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1166, 40, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1167, 305, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1168, 305, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1169, 305, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1170, 305, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1171, 305, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1172, 305, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1173, 305, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1174, 305, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1175, 305, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1176, 305, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1177, 305, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1178, 305, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1179, 305, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1180, 305, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1181, 305, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1182, 305, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1183, 305, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1184, 305, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1185, 305, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1186, 305, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1187, 305, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1188, 305, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1189, 305, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1190, 305, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1191, 220, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1192, 220, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1193, 220, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1194, 220, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1195, 220, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1196, 220, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1197, 220, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1198, 220, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1199, 220, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1200, 220, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1201, 220, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1202, 220, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1203, 220, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1204, 220, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1205, 220, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1206, 220, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1207, 220, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1208, 220, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1209, 220, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1210, 220, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1211, 220, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1212, 220, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1213, 220, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1214, 220, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1215, 239, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1216, 239, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1217, 239, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1218, 239, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1219, 239, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1220, 239, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1221, 239, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1222, 239, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1223, 239, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1224, 239, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1225, 239, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1226, 239, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1227, 239, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1228, 239, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1229, 239, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1230, 239, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1231, 239, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1232, 239, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1233, 239, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1234, 239, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1235, 239, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1236, 239, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1237, 239, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1238, 239, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1239, 12, 0, 0, 0, 0, 15, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1240, 12, 0, 0, 0, 0, 15, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1241, 12, 0, 0, 0, 0, 15, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1242, 12, 0, 0, 0, 0, 15, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1243, 12, 0, 0, 0, 0, 15, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1244, 12, 0, 0, 0, 0, 15, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1245, 12, 0, 0, 0, 0, 15, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1246, 12, 0, 0, 0, 0, 15, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1247, 12, 0, 0, 0, 0, 15, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1248, 12, 0, 0, 0, 0, 15, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1249, 12, 0, 0, 0, 0, 15, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1250, 12, 0, 0, 0, 0, 15, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1251, 12, 0, 0, 0, 0, 15, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1252, 12, 0, 0, 0, 0, 15, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1253, 12, 0, 0, 0, 0, 15, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1254, 12, 0, 0, 0, 0, 15, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1255, 12, 0, 0, 0, 0, 15, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1256, 12, 0, 0, 0, 0, 15, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1257, 12, 0, 0, 0, 0, 15, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1258, 12, 0, 0, 0, 0, 15, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1259, 12, 0, 0, 0, 0, 15, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1260, 12, 0, 0, 0, 0, 15, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1261, 12, 0, 0, 0, 0, 15, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1262, 12, 0, 0, 0, 0, 15, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1263, 285, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1264, 285, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1265, 285, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1266, 285, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1267, 285, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1268, 285, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1269, 285, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1270, 285, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1271, 285, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1272, 285, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1273, 285, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1274, 285, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1275, 283, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1276, 283, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1277, 283, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1278, 283, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1279, 283, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1280, 283, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1281, 283, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1282, 283, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1283, 283, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1284, 283, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1285, 283, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1286, 283, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1287, 338, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1288, 338, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1289, 338, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1290, 338, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1291, 338, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1292, 338, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1293, 338, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1294, 338, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1295, 338, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1296, 338, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1297, 338, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1298, 338, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1299, 336, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1300, 336, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1301, 336, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1302, 336, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1303, 336, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1304, 336, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1305, 336, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1306, 336, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1307, 336, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1308, 336, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1309, 336, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1310, 336, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1311, 282, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1312, 282, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1313, 282, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1314, 282, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1315, 282, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1316, 282, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1317, 282, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1318, 282, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1319, 282, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1320, 282, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1321, 282, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1322, 282, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1323, 282, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1324, 282, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1325, 282, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1326, 282, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1327, 282, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1328, 282, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1329, 282, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1330, 282, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1331, 282, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1332, 282, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1333, 282, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1334, 282, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1335, 337, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1336, 337, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1337, 337, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1338, 337, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1339, 337, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1340, 337, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1341, 337, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1342, 337, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1343, 337, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1344, 337, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1345, 337, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1346, 337, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1347, 337, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1348, 337, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1349, 337, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1350, 337, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1351, 337, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1352, 337, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1353, 337, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1354, 337, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1355, 337, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1356, 337, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1357, 337, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1358, 337, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1359, 24, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1360, 24, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1361, 24, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1362, 24, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1363, 24, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1364, 24, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1365, 24, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1366, 24, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1367, 24, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1368, 24, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1369, 24, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1370, 24, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1371, 24, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1372, 24, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1373, 24, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1374, 24, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1375, 24, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1376, 24, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1377, 24, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1378, 24, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1379, 24, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1380, 24, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1381, 24, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1382, 24, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1383, 314, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1384, 314, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1385, 314, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1386, 314, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1387, 314, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1388, 314, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1389, 314, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1390, 314, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1391, 314, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1392, 314, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1393, 314, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1394, 314, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1395, 314, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1396, 314, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1397, 314, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1398, 314, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1399, 314, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1400, 314, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1401, 314, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1402, 314, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1403, 314, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1404, 314, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1405, 314, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1406, 314, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1407, 302, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1408, 302, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1409, 302, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1410, 302, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1411, 302, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1412, 302, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1413, 302, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1414, 302, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1415, 302, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1416, 302, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1417, 302, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1418, 302, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1419, 302, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1420, 302, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1421, 302, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1422, 302, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1423, 302, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1424, 302, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1425, 302, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1426, 302, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1427, 302, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1428, 302, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1429, 302, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1430, 302, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1431, 303, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1432, 303, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1433, 303, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1434, 303, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1435, 303, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1436, 303, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1437, 303, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1438, 303, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1439, 303, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1440, 303, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1441, 303, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1442, 303, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1443, 303, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1444, 303, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1445, 303, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1446, 303, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1447, 303, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1448, 303, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1449, 303, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1450, 303, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1451, 303, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1452, 303, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1453, 303, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1454, 303, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1455, 264, 0, 0, 0, 0, 30, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1456, 264, 0, 0, 0, 0, 30, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1457, 264, 0, 0, 0, 0, 30, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1458, 264, 0, 0, 0, 0, 30, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1459, 264, 0, 0, 0, 0, 30, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1460, 264, 0, 0, 0, 0, 30, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1461, 264, 0, 0, 0, 0, 30, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1462, 264, 0, 0, 0, 0, 30, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1463, 264, 0, 0, 0, 0, 30, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1464, 264, 0, 0, 0, 0, 30, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1465, 264, 0, 0, 0, 0, 30, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1466, 264, 0, 0, 0, 0, 30, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1467, 264, 0, 0, 0, 0, 30, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1468, 264, 0, 0, 0, 0, 30, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1469, 264, 0, 0, 0, 0, 30, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1470, 264, 0, 0, 0, 0, 30, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1471, 264, 0, 0, 0, 0, 30, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1472, 264, 0, 0, 0, 0, 30, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1473, 264, 0, 0, 0, 0, 30, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1474, 264, 0, 0, 0, 0, 30, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1475, 264, 0, 0, 0, 0, 30, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1476, 264, 0, 0, 0, 0, 30, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1477, 264, 0, 0, 0, 0, 30, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1478, 264, 0, 0, 0, 0, 30, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1479, 287, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1480, 287, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1481, 287, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1482, 287, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1483, 287, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1484, 287, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1485, 287, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1486, 287, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1487, 287, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1488, 287, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1489, 287, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1490, 287, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1491, 296, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1492, 296, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1493, 296, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1494, 296, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1495, 296, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1496, 296, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1497, 296, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1498, 296, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1499, 296, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1500, 296, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1501, 296, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1502, 296, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1503, 60, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1504, 60, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1505, 60, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1506, 60, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1507, 60, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1508, 60, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1509, 60, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1510, 60, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1511, 60, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1512, 60, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1513, 60, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1514, 60, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1515, 60, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1516, 60, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1517, 60, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1518, 60, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1519, 60, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1520, 60, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1521, 60, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1522, 60, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1523, 60, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1524, 60, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1525, 60, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1526, 60, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1527, 61, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1528, 61, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1529, 61, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1530, 61, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1531, 61, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1532, 61, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1533, 61, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1534, 61, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1535, 61, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1536, 61, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1537, 61, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1538, 61, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1539, 61, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1540, 61, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1541, 61, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1542, 61, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1543, 61, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1544, 61, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1545, 61, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1546, 61, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1547, 61, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1548, 61, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1549, 61, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1550, 61, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1551, 62, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1552, 62, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1553, 62, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1554, 62, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1555, 62, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1556, 62, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1557, 62, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1558, 62, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1559, 62, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1560, 62, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1561, 62, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1562, 62, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1563, 62, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1564, 62, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1565, 62, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1566, 62, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1567, 62, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1568, 62, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1569, 62, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1570, 62, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1571, 62, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1572, 62, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1573, 62, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1574, 62, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1575, 63, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1576, 63, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1577, 63, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1578, 63, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1579, 63, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1580, 63, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1581, 63, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1582, 63, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1583, 63, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1584, 63, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1585, 63, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1586, 63, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1587, 63, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1588, 63, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1589, 63, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1590, 63, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1591, 63, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1592, 63, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1593, 63, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1594, 63, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1595, 63, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1596, 63, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1597, 63, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1598, 63, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1599, 313, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1600, 313, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1601, 313, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1602, 313, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1603, 313, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1604, 313, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1605, 313, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1606, 313, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1607, 313, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1608, 313, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1609, 313, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1610, 313, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1611, 313, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1612, 313, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1613, 313, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1614, 313, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1615, 313, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1616, 313, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1617, 313, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1618, 313, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1619, 313, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1620, 313, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1621, 313, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1622, 313, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1623, 267, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1624, 267, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1625, 267, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1626, 267, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1627, 267, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1628, 267, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1629, 267, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1630, 267, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1631, 267, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1632, 267, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1633, 267, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1634, 267, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1635, 267, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1636, 267, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1637, 267, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1638, 267, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1639, 267, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1640, 267, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1641, 267, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1642, 267, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1643, 267, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1644, 267, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1645, 267, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1646, 267, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1647, 268, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1648, 268, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1649, 268, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1650, 268, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1651, 268, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1652, 268, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1653, 268, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1654, 268, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1655, 268, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1656, 268, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1657, 268, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1658, 268, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1659, 268, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1660, 268, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1661, 268, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1662, 268, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1663, 268, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1664, 268, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1665, 268, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1666, 268, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1667, 268, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1668, 268, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1669, 268, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1670, 268, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1671, 47, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1672, 47, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1673, 47, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1674, 47, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1675, 47, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1676, 47, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1677, 47, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1678, 47, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1679, 47, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1680, 47, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1681, 47, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1682, 47, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1683, 47, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1684, 47, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1685, 47, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1686, 47, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1687, 47, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1688, 47, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1689, 47, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1690, 47, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1691, 47, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1692, 47, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1693, 47, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1694, 47, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1695, 48, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1696, 48, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1697, 48, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1698, 48, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1699, 48, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1700, 48, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1701, 48, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1702, 48, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1703, 48, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1704, 48, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1705, 48, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1706, 48, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1707, 48, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1708, 48, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1709, 48, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1710, 48, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1711, 48, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1712, 48, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1713, 48, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1714, 48, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1715, 48, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1716, 48, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1717, 48, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1718, 48, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1719, 30, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1720, 30, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1721, 30, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1722, 30, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1723, 30, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1724, 30, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1725, 30, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1726, 30, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1727, 30, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1728, 30, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1729, 30, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1730, 30, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1731, 30, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1732, 30, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1733, 30, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1734, 30, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1735, 30, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1736, 30, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1737, 30, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1738, 30, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1739, 30, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1740, 30, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1741, 30, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1742, 30, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1743, 32, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1744, 32, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1745, 32, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1746, 32, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1747, 32, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1748, 32, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1749, 32, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1750, 32, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1751, 32, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1752, 32, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1753, 32, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1754, 32, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1755, 32, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1756, 32, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1757, 32, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1758, 32, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1759, 32, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1760, 32, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1761, 32, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1762, 32, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1763, 32, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1764, 32, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1765, 32, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1766, 32, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1767, 31, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1768, 31, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1769, 31, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1770, 31, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1771, 31, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1772, 31, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1773, 31, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1774, 31, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1775, 31, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1776, 31, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1777, 31, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1778, 31, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1779, 31, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1780, 31, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1781, 31, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1782, 31, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1783, 31, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1784, 31, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1785, 31, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1786, 31, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1787, 31, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1788, 31, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1789, 31, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1790, 31, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1791, 36, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1792, 36, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1793, 36, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1794, 36, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1795, 36, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1796, 36, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1797, 36, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1798, 36, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1799, 36, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1800, 36, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1801, 36, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1802, 36, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1803, 36, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1804, 36, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1805, 36, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1806, 36, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1807, 36, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1808, 36, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1809, 36, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1810, 36, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1811, 36, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1812, 36, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1813, 36, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1814, 36, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1815, 42, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1816, 42, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1817, 42, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1818, 42, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1819, 42, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1820, 42, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1821, 42, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1822, 42, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1823, 42, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1824, 42, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1825, 42, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1826, 42, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1827, 42, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1828, 42, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1829, 42, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1830, 42, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1831, 42, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1832, 42, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1833, 42, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1834, 42, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1835, 42, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1836, 42, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1837, 42, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1838, 42, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1839, 316, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1840, 316, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1841, 316, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1842, 316, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1843, 316, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1844, 316, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1845, 316, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1846, 316, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1847, 316, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1848, 316, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1849, 316, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1850, 316, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1851, 316, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1852, 316, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1853, 316, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1854, 316, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1855, 316, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1856, 316, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1857, 316, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1858, 316, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1859, 316, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1860, 316, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1861, 316, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1862, 316, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1863, 83, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1864, 83, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1865, 83, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1866, 83, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1867, 83, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1868, 83, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1869, 83, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1870, 83, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1871, 83, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1872, 83, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1873, 83, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1874, 83, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1875, 333, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1876, 333, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1877, 333, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1878, 333, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1879, 333, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1880, 333, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1881, 333, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1882, 333, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1883, 333, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1884, 333, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1885, 333, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1886, 333, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1887, 333, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1888, 333, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1889, 333, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1890, 333, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1891, 333, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1892, 333, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1893, 333, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1894, 333, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1895, 333, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1896, 333, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1897, 333, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1898, 333, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1899, 254, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1900, 254, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1901, 254, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1902, 254, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1903, 254, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1904, 254, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1905, 254, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1906, 254, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1907, 254, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1908, 254, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1909, 254, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1910, 254, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1911, 254, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1912, 254, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1913, 254, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1914, 254, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1915, 254, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1916, 254, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1917, 254, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1918, 254, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1919, 254, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1920, 254, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1921, 254, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1922, 254, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1923, 323, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1924, 323, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1925, 323, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1926, 323, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1927, 323, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1928, 323, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1929, 323, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1930, 323, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1931, 323, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1932, 323, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1933, 323, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1934, 323, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1935, 323, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1936, 323, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1937, 323, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1938, 323, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1939, 323, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1940, 323, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1941, 323, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1942, 323, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1943, 323, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1944, 323, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1945, 323, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1946, 323, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1947, 101, 0, 0, 0, 100, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1948, 101, 0, 0, 0, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1949, 101, 0, 0, 0, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1950, 101, 0, 0, 0, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1951, 101, 0, 0, 0, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1952, 101, 0, 0, 0, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1953, 101, 0, 0, 0, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1954, 101, 0, 0, 0, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1955, 101, 0, 0, 0, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1956, 101, 0, 0, 0, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1957, 101, 0, 0, 0, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1958, 101, 0, 0, 0, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1959, 101, 0, 0, 0, 100, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1960, 101, 0, 0, 0, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1961, 101, 0, 0, 0, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1962, 101, 0, 0, 0, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1963, 101, 0, 0, 0, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1964, 101, 0, 0, 0, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1965, 101, 0, 0, 0, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1966, 101, 0, 0, 0, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1967, 101, 0, 0, 0, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1968, 101, 0, 0, 0, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1969, 101, 0, 0, 0, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1970, 101, 0, 0, 0, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1971, 99, 0, 0, 0, 100, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1972, 99, 0, 0, 0, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1973, 99, 0, 0, 0, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1974, 99, 0, 0, 0, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1975, 99, 0, 0, 0, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1976, 99, 0, 0, 0, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1977, 99, 0, 0, 0, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1978, 99, 0, 0, 0, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1979, 99, 0, 0, 0, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1980, 99, 0, 0, 0, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1981, 99, 0, 0, 0, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1982, 99, 0, 0, 0, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1983, 290, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1984, 290, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1985, 290, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1986, 290, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1987, 290, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1988, 290, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1989, 290, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1990, 290, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1991, 290, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1992, 290, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1993, 290, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1994, 290, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1995, 290, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1996, 290, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1997, 290, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1998, 290, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (1999, 290, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2000, 290, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2001, 290, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2002, 290, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2003, 290, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2004, 290, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2005, 290, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2006, 290, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2007, 247, 0, 0, 0, 100, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2008, 247, 0, 0, 0, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2009, 247, 0, 0, 0, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2010, 247, 0, 0, 0, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2011, 247, 0, 0, 0, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2012, 247, 0, 0, 0, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2013, 247, 0, 0, 0, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2014, 247, 0, 0, 0, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2015, 247, 0, 0, 0, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2016, 247, 0, 0, 0, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2017, 247, 0, 0, 0, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2018, 247, 0, 0, 0, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2019, 247, 0, 0, 0, 100, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2020, 247, 0, 0, 0, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2021, 247, 0, 0, 0, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2022, 247, 0, 0, 0, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2023, 247, 0, 0, 0, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2024, 247, 0, 0, 0, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2025, 247, 0, 0, 0, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2026, 247, 0, 0, 0, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2027, 247, 0, 0, 0, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2028, 247, 0, 0, 0, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2029, 247, 0, 0, 0, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2030, 247, 0, 0, 0, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2031, 13, 0, 0, 0, 0, 15, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2032, 13, 0, 0, 0, 0, 15, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2033, 13, 0, 0, 0, 0, 15, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2034, 13, 0, 0, 0, 0, 15, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2035, 13, 0, 0, 0, 0, 15, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2036, 13, 0, 0, 0, 0, 15, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2037, 13, 0, 0, 0, 0, 15, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2038, 13, 0, 0, 0, 0, 15, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2039, 13, 0, 0, 0, 0, 15, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2040, 13, 0, 0, 0, 0, 15, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2041, 13, 0, 0, 0, 0, 15, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2042, 13, 0, 0, 0, 0, 15, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2043, 13, 0, 0, 0, 0, 15, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2044, 13, 0, 0, 0, 0, 15, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2045, 13, 0, 0, 0, 0, 15, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2046, 13, 0, 0, 0, 0, 15, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2047, 13, 0, 0, 0, 0, 15, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2048, 13, 0, 0, 0, 0, 15, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2049, 13, 0, 0, 0, 0, 15, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2050, 13, 0, 0, 0, 0, 15, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2051, 13, 0, 0, 0, 0, 15, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2052, 13, 0, 0, 0, 0, 15, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2053, 13, 0, 0, 0, 0, 15, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2054, 13, 0, 0, 0, 0, 15, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2055, 291, 0, 0, 100, 100, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2056, 291, 0, 0, 100, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2057, 291, 0, 0, 100, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2058, 291, 0, 0, 100, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2059, 291, 0, 0, 100, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2060, 291, 0, 0, 100, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2061, 291, 0, 0, 100, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2062, 291, 0, 0, 100, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2063, 291, 0, 0, 100, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2064, 291, 0, 0, 100, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2065, 291, 0, 0, 100, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2066, 291, 0, 0, 100, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2067, 291, 0, 0, 100, 100, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2068, 291, 0, 0, 100, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2069, 291, 0, 0, 100, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2070, 291, 0, 0, 100, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2071, 291, 0, 0, 100, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2072, 291, 0, 0, 100, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2073, 291, 0, 0, 100, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2074, 291, 0, 0, 100, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2075, 291, 0, 0, 100, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2076, 291, 0, 0, 100, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2077, 291, 0, 0, 100, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2078, 291, 0, 0, 100, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2079, 310, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2080, 310, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2081, 310, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2082, 310, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2083, 310, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2084, 310, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2085, 310, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2086, 310, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2087, 310, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2088, 310, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2089, 310, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2090, 310, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2091, 310, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2092, 310, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2093, 310, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2094, 310, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2095, 310, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2096, 310, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2097, 310, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2098, 310, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2099, 310, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2100, 310, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2101, 310, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2102, 310, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2103, 312, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2104, 312, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2105, 312, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2106, 312, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2107, 312, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2108, 312, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2109, 312, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2110, 312, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2111, 312, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2112, 312, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2113, 312, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2114, 312, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2115, 312, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2116, 312, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2117, 312, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2118, 312, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2119, 312, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2120, 312, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2121, 312, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2122, 312, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2123, 312, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2124, 312, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2125, 312, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2126, 312, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2127, 315, 0, 0, 0, 0, 30, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2128, 315, 0, 0, 0, 0, 30, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2129, 315, 0, 0, 0, 0, 30, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2130, 315, 0, 0, 0, 0, 30, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2131, 315, 0, 0, 0, 0, 30, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2132, 315, 0, 0, 0, 0, 30, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2133, 315, 0, 0, 0, 0, 30, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2134, 315, 0, 0, 0, 0, 30, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2135, 315, 0, 0, 0, 0, 30, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2136, 315, 0, 0, 0, 0, 30, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2137, 315, 0, 0, 0, 0, 30, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2138, 315, 0, 0, 0, 0, 30, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2139, 315, 0, 0, 0, 0, 30, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2140, 320, 0, 0, 0, 0, 20, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2141, 320, 0, 0, 0, 0, 20, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2142, 320, 0, 0, 0, 0, 20, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2143, 320, 0, 0, 0, 0, 20, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2144, 320, 0, 0, 0, 0, 20, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2145, 320, 0, 0, 0, 0, 20, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2146, 320, 0, 0, 0, 0, 20, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2147, 320, 0, 0, 0, 0, 20, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2148, 320, 0, 0, 0, 0, 20, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2149, 320, 0, 0, 0, 0, 20, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2150, 320, 0, 0, 0, 0, 20, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2151, 320, 0, 0, 0, 0, 20, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2152, 320, 0, 0, 0, 0, 20, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2153, 320, 0, 0, 0, 0, 20, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2154, 320, 0, 0, 0, 0, 20, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2155, 320, 0, 0, 0, 0, 20, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2156, 320, 0, 0, 0, 0, 20, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2157, 320, 0, 0, 0, 0, 20, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2158, 320, 0, 0, 0, 0, 20, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2159, 320, 0, 0, 0, 0, 20, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2160, 320, 0, 0, 0, 0, 20, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2161, 320, 0, 0, 0, 0, 20, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2162, 320, 0, 0, 0, 0, 20, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2163, 320, 0, 0, 0, 0, 20, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2164, 25, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2165, 25, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2166, 25, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2167, 25, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2168, 25, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2169, 25, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2170, 25, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2171, 25, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2172, 25, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2173, 25, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2174, 25, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2175, 25, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2176, 25, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2177, 25, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2178, 25, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2179, 25, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2180, 25, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2181, 25, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2182, 25, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2183, 25, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2184, 25, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2185, 25, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2186, 25, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2187, 25, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2188, 27, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2189, 27, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2190, 27, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2191, 27, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2192, 27, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2193, 27, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2194, 27, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2195, 27, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2196, 27, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2197, 27, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2198, 27, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2199, 27, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2200, 27, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2201, 27, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2202, 27, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2203, 27, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2204, 27, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2205, 27, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2206, 27, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2207, 27, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2208, 27, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2209, 27, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2210, 27, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2211, 27, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2212, 28, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2213, 28, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2214, 28, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2215, 28, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2216, 28, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2217, 28, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2218, 28, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2219, 28, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2220, 28, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2221, 28, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2222, 28, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2223, 28, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2224, 26, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2225, 26, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2226, 26, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2227, 26, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2228, 26, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2229, 26, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2230, 26, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2231, 26, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2232, 26, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2233, 26, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2234, 26, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2235, 26, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2236, 26, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2237, 26, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2238, 26, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2239, 26, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2240, 26, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2241, 26, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2242, 26, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2243, 26, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2244, 26, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2245, 26, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2246, 26, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2247, 26, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2248, 29, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2249, 29, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2250, 29, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2251, 29, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2252, 29, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2253, 29, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2254, 29, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2255, 29, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2256, 29, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2257, 29, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2258, 29, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2259, 29, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2260, 29, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2261, 29, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2262, 29, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2263, 29, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2264, 29, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2265, 29, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2266, 29, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2267, 29, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2268, 29, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2269, 29, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2270, 29, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2271, 29, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2272, 325, 0, 0, 0, 0, 7, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2273, 325, 0, 0, 0, 0, 7, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2274, 325, 0, 0, 0, 0, 7, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2275, 325, 0, 0, 0, 0, 7, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2276, 325, 0, 0, 0, 0, 7, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2277, 325, 0, 0, 0, 0, 7, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2278, 325, 0, 0, 0, 0, 7, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2279, 325, 0, 0, 0, 0, 7, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2280, 325, 0, 0, 0, 0, 7, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2281, 325, 0, 0, 0, 0, 7, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2282, 325, 0, 0, 0, 0, 7, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2283, 325, 0, 0, 0, 0, 7, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2284, 325, 0, 0, 0, 0, 7, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2285, 325, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2286, 325, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2287, 325, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2288, 325, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2289, 325, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2290, 325, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2291, 325, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2292, 325, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2293, 325, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2294, 325, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2295, 325, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2296, 328, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2297, 328, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2298, 328, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2299, 328, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2300, 328, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2301, 328, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2302, 328, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2303, 328, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2304, 328, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2305, 328, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2306, 328, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2307, 328, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2308, 328, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2309, 328, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2310, 328, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2311, 328, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2312, 328, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2313, 328, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2314, 328, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2315, 328, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2316, 328, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2317, 328, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2318, 328, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2319, 328, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2320, 329, 0, 0, 0, 0, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2321, 329, 0, 0, 0, 0, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2322, 329, 0, 0, 0, 0, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2323, 329, 0, 0, 0, 0, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2324, 329, 0, 0, 0, 0, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2325, 329, 0, 0, 0, 0, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2326, 329, 0, 0, 0, 0, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2327, 329, 0, 0, 0, 0, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2328, 329, 0, 0, 0, 0, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2329, 329, 0, 0, 0, 0, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2330, 329, 0, 0, 0, 0, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2331, 329, 0, 0, 0, 0, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2332, 329, 0, 0, 0, 0, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2333, 329, 0, 0, 0, 0, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2334, 329, 0, 0, 0, 0, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2335, 329, 0, 0, 0, 0, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2336, 329, 0, 0, 0, 0, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2337, 329, 0, 0, 0, 0, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2338, 329, 0, 0, 0, 0, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2339, 329, 0, 0, 0, 0, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2340, 329, 0, 0, 0, 0, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2341, 329, 0, 0, 0, 0, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2342, 329, 0, 0, 0, 0, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2343, 329, 0, 0, 0, 0, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2344, 330, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2345, 330, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2346, 330, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2347, 330, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2348, 330, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2349, 330, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2350, 330, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2351, 330, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2352, 330, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2353, 330, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2354, 330, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2355, 330, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2356, 330, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2357, 330, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2358, 330, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2359, 330, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2360, 330, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2361, 330, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2362, 330, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2363, 330, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2364, 330, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2365, 330, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2366, 330, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2367, 330, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2368, 240, 0, 0, 0, 0, 100, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2369, 240, 0, 0, 0, 0, 100, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2370, 240, 0, 0, 0, 0, 100, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2371, 240, 0, 0, 0, 0, 100, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2372, 240, 0, 0, 0, 0, 100, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2373, 240, 0, 0, 0, 0, 100, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2374, 240, 0, 0, 0, 0, 100, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2375, 240, 0, 0, 0, 0, 100, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2376, 240, 0, 0, 0, 0, 100, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2377, 240, 0, 0, 0, 0, 100, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2378, 240, 0, 0, 0, 0, 100, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2379, 240, 0, 0, 0, 0, 100, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2380, 240, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2381, 240, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2382, 240, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2383, 240, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2384, 240, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2385, 240, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2386, 240, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2387, 240, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2388, 240, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2389, 240, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2390, 240, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2391, 240, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2392, 242, 0, 0, 100, 100, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2393, 242, 0, 0, 100, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2394, 242, 0, 0, 100, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2395, 242, 0, 0, 100, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2396, 242, 0, 0, 100, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2397, 242, 0, 0, 100, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2398, 242, 0, 0, 100, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2399, 242, 0, 0, 100, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2400, 242, 0, 0, 100, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2401, 242, 0, 0, 100, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2402, 242, 0, 0, 100, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2403, 242, 0, 0, 100, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2404, 242, 0, 0, 100, 100, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2405, 242, 0, 0, 100, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2406, 242, 0, 0, 100, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2407, 242, 0, 0, 100, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2408, 242, 0, 0, 100, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2409, 242, 0, 0, 100, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2410, 242, 0, 0, 100, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2411, 242, 0, 0, 100, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2412, 242, 0, 0, 100, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2413, 242, 0, 0, 100, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2414, 242, 0, 0, 100, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2415, 242, 0, 0, 100, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2416, 258, 0, 0, 100, 100, 0, '1/2019', 1, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2417, 258, 0, 0, 100, 100, 0, '2/2019', 2, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2418, 258, 0, 0, 100, 100, 0, '3/2019', 3, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2419, 258, 0, 0, 100, 100, 0, '4/2019', 4, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2420, 258, 0, 0, 100, 100, 0, '5/2019', 5, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2421, 258, 0, 0, 100, 100, 0, '6/2019', 6, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2422, 258, 0, 0, 100, 100, 0, '7/2019', 7, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2423, 258, 0, 0, 100, 100, 0, '8/2019', 8, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2424, 258, 0, 0, 100, 100, 0, '9/2019', 9, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2425, 258, 0, 0, 100, 100, 0, '10/2019', 10, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2426, 258, 0, 0, 100, 100, 0, '11/2019', 11, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2427, 258, 0, 0, 100, 100, 0, '12/2019', 12, 2019); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2428, 258, 0, 0, 100, 100, 0, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2429, 258, 0, 0, 100, 100, 0, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2430, 258, 0, 0, 100, 100, 0, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2431, 258, 0, 0, 100, 100, 0, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2432, 258, 0, 0, 100, 100, 0, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2433, 258, 0, 0, 100, 100, 0, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2434, 258, 0, 0, 100, 100, 0, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2435, 258, 0, 0, 100, 100, 0, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2436, 258, 0, 0, 100, 100, 0, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2437, 258, 0, 0, 100, 100, 0, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2438, 258, 0, 0, 100, 100, 0, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2439, 258, 0, 0, 100, 100, 0, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2440, 281, 0, 0, 0, 0, 100, '1/2020', 1, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2441, 281, 0, 0, 0, 0, 100, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2442, 281, 0, 0, 0, 0, 100, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2443, 281, 0, 0, 0, 0, 100, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2444, 281, 0, 0, 0, 0, 100, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2445, 281, 0, 0, 0, 0, 100, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2446, 281, 0, 0, 0, 0, 100, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2447, 281, 0, 0, 0, 0, 100, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2448, 281, 0, 0, 0, 0, 100, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2449, 281, 0, 0, 0, 0, 100, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2450, 281, 0, 0, 0, 0, 100, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2451, 281, 0, 0, 0, 0, 100, '12/2020', 12, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2452, 262, 0, 0, 0, 0, 7, '2/2020', 2, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2453, 262, 0, 0, 0, 0, 7, '3/2020', 3, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2454, 262, 0, 0, 0, 0, 7, '4/2020', 4, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2455, 262, 0, 0, 0, 0, 7, '5/2020', 5, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2456, 262, 0, 0, 0, 0, 7, '6/2020', 6, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2457, 262, 0, 0, 0, 0, 7, '7/2020', 7, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2458, 262, 0, 0, 0, 0, 7, '8/2020', 8, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2459, 262, 0, 0, 0, 0, 7, '9/2020', 9, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2460, 262, 0, 0, 0, 0, 7, '10/2020', 10, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2461, 262, 0, 0, 0, 0, 7, '11/2020', 11, 2020); +INSERT INTO CHG_EMPRESA_REPASSE (ID_ITEM, ID_EMPRESA, PR_PRINCIPAL, PR_JUROS, PR_MULTA, PR_ENCARGOS, PR_CORRIGIDO, TX_NOME, ID_MES, ID_ANO) VALUES (2462, 262, 0, 0, 0, 0, 7, '12/2020', 12, 2020); +/* 2462 row(s) exported */ + diff --git a/Charge.dpr b/Charge.dpr new file mode 100644 index 0000000..f607160 --- /dev/null +++ b/Charge.dpr @@ -0,0 +1,20 @@ +program Charge; + +uses + Vcl.Forms, + udtmSystem in 'udtmSystem.pas' {dtmSystem: TDataModule}, + umstCadastro in 'umstCadastro.pas' {mstCadastro}, + umstMaster in 'umstMaster.pas' {mstMaster}, + umstLista in 'umstLista.pas' {mstLista}, + udtmCharge in 'udtmCharge.pas' {dtmCharge: TDataModule}, + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.Title := 'Charge'; + Application.CreateForm(TdtmSystem, dtmSystem); + Application.CreateForm(TfrmCharge, frmCharge); + Application.Run; +end. diff --git a/Charge.dproj b/Charge.dproj new file mode 100644 index 0000000..8cf04b3 --- /dev/null +++ b/Charge.dproj @@ -0,0 +1,540 @@ + + + {70B4DDD9-C94D-436E-B4E0-44508BFE944C} + 17.2 + VCL + Charge.dpr + True + Debug + Win32 + 1 + Application + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + Charge + $(BDS)\bin\delphi_PROJECTICON.ico + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + + + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + ACBr_Convenio115;FireDACTDataDriver;unidac220;FireDACSqliteDriver;FireDACDSDriver;ZComponent;DBXSqliteDriver;dacvcl220;ACBr_BoletoRL;FireDACPgDriver;ACBr_GNRE;fmx;ACBr_Diversos;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;ACBr_NFeDanfeESCPOS;ACBr_BlocoX;ACBr_synapse;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;DUnitXRuntime;dbxcds;ACBr_Comum;DatasnapConnectorsFreePascal;appanalytics;vcldb;crcontrols220;vcldsnap;ACBr_MDFeDamdfeRL;ACBr_SATExtratoESCPOS;fmxFireDAC;DBXDb2Driver;frce;DBXOracleDriver;CustomIPTransport;ACBr_GNREGuiaRL;ACBr_Serial;vclribbon;ACBr_SPED;dsnap;IndyIPServer;ACBr_MDFe;dacfmx220;fmxase;vcl;IndyCore;ACBr_DFeComum;SimpleRSS;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;ACBr_NFSeDanfseRL;ACBr_Boleto;DataSnapFireDAC;FireDACDBXDriver;ACBr_Sintegra;ACBr_SAT;soapserver;inetdbxpress;ACBr_NFSe;dsnapxml;ACBr_Ponto;FireDACInfxDriver;FireDACDb2Driver;ACBr_LFD;ACBR_DeSTDA;ACBr_PCNComum;adortl;ACBr_TCP;FireDACASADriver;ACBr_SEF2;bindcompfmx;ACBr_PAF;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;ACBr_NFe;Tee;DBXOdbcDriver;ACBr_CTe;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;svnui;ibxpress;dac220;unidacvcl220;ACBr_NFCeECFVirtual;IndyProtocols;DBXMySQLDriver;ACBr_NFeDanfeRL;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;ACBr_CTeDacteRL;vclie;ACBr_OpenSSL;FireDACADSDriver;vcltouch;ZCore;ACBr_TEFD;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;ACBr_SATExtratoRL;DataSnapServerMidas;ACBr_SATECFVirtual;dsnapcon;DBXFirebirdDriver;ACBr_TXTComum;inet;unidacfmx220;fmxobj;PkgWMP;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;ACBr_SPEDImportar;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) + true + $(BDS)\bin\default_app.manifest + 1033 + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + + + FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;ZComponent;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;appanalytics;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;Tee;DBXOdbcDriver;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;ZCore;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) + + + DEBUG;$(DCC_Define) + true + false + true + true + true + + + ..\..\Exe\ + true + CompanyName=NEXVERSE;FileDescription=;FileVersion=1.0.0.0;InternalName=Charge;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + 1033 + false + + + false + RELEASE;$(DCC_Define) + 0 + 0 + + + + MainSource + + +
dtmSystem
+ dfm + TDataModule + + +
mstCadastro
+ dfm + + +
mstMaster
+ dfm + + +
mstLista
+ dfm + + +
dtmCharge
+ dfm + TDataModule + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Application + + + + Charge.dpr + + + Embarcadero C++Builder Office 2000 Servers Package + Embarcadero C++Builder Office XP Servers Package + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + + + + Charge.exe + true + + + + + 1 + .dylib + + + 0 + .bpl + + + Contents\MacOS + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + + + 1 + .dylib + + + 0 + .dll;.bpl + + + Contents\MacOS + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + + + 1 + + + 1 + + + 1 + + + + + Contents + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + res\drawable-normal + 1 + + + + + library\lib\x86 + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ../ + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-xlarge + 1 + + + + + res\drawable-xhdpi + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-xxhdpi + 1 + + + + + library\lib\mips + 1 + + + + + res\drawable + 1 + + + + + Contents\MacOS + 1 + + + 1 + + + 0 + + + + + Contents\MacOS + 1 + .framework + + + 0 + + + + + res\drawable-small + 1 + + + + + ../ + 1 + + + ../ + 1 + + + + + Contents\MacOS + 1 + + + 1 + + + Contents\MacOS + 0 + + + + + classes + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable + 1 + + + + + Contents\Resources + 1 + + + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + library\lib\armeabi-v7a + 1 + + + 1 + + + 0 + + + Contents\MacOS + 1 + + + 1 + + + 1 + + + + + library\lib\armeabi + 1 + + + + + res\drawable-large + 1 + + + + + 0 + + + 0 + + + 0 + + + Contents\MacOS + 0 + + + 0 + + + 0 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-ldpi + 1 + + + + + res\values + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + + + 1 + + + + + + + + + + + + True + False + + + 12 + + + + + diff --git a/Charge.res b/Charge.res new file mode 100644 index 0000000..8d68b51 Binary files /dev/null and b/Charge.res differ diff --git a/Cobranca.bmp b/Cobranca.bmp new file mode 100644 index 0000000..a1f710d Binary files /dev/null and b/Cobranca.bmp differ diff --git a/Cobrança.dpr b/Cobrança.dpr new file mode 100644 index 0000000..5f76abd --- /dev/null +++ b/Cobrança.dpr @@ -0,0 +1,97 @@ +program Cobrana; + +uses + Vcl.Forms, + umstCadastro in 'umstCadastro.pas' {mstCadastro}, + umstLista in 'umstLista.pas' {mstLista}, + umstMaster in 'umstMaster.pas' {mstMaster}, + ucadCampanha in 'ucadCampanha.pas' {cadCampanha}, + ucadCobrador in 'ucadCobrador.pas' {cadCobrador}, + ucadContas in 'ucadContas.pas' {cadContas}, + ucadCredor in 'ucadCredor.pas' {cadCredor}, + ucadDevedores in 'ucadDevedores.pas' {cadDevedores}, + ucadEmpresa in 'ucadEmpresa.pas' {cadEmpresa}, + ucadGrupos in 'ucadGrupos.pas' {cadGrupos}, + ucadIndices in 'ucadIndices.pas' {cadIndices}, + ucadModeloRepasse in 'ucadModeloRepasse.pas' {cadModeloRepasse}, + ucadPoli_Faixa in 'ucadPoli_Faixa.pas' {cadPoli_Faixa}, + ucadProvidencias in 'ucadProvidencias.pas' {cadProvidencias}, + ucadTextEmail in 'ucadTextEmail.pas' {cadTextEmail}, + ucadUsuarios in 'ucadUsuarios.pas' {cadUsuarios}, + ucadUsuarioseditar in 'ucadUsuarioseditar.pas' {cadUsuarioseditar}, + uconfFichaHistorico in 'uconfFichaHistorico.pas' {confFichaHistorico}, + uconfLayouts in 'uconfLayouts.pas' {confLayouts}, + uconfrelAcordos in 'uconfrelAcordos.pas' {confrelAcordos}, + uconfrelBordero in 'uconfrelBordero.pas' {confrelBordero}, + uconfRelGerencia in 'uconfRelGerencia.pas' {confRelGerencia}, + uconfrelPrestacaoContas in 'uconfrelPrestacaoContas.pas' {confrelPrestacaoContas}, + uconfrelRecibosEmitidos in 'uconfrelRecibosEmitidos.pas' {confrelRecibosEmitidos}, + uconfrelRelatorioTCC in 'uconfrelRelatorioTCC.pas' {confrelRelatorioTCC}, + udelPoli_Faixa in 'udelPoli_Faixa.pas' {delPoli_faixa}, + udtmSystem in 'udtmSystem.pas' {dtmSystem: TDataModule}, + uExtenso in 'uExtenso.pas', + ufrmAchaRecibo in 'ufrmAchaRecibo.pas' {frmAchaRecibo}, + ufrmAgenda in 'ufrmAgenda.pas' {frmAgenda}, + ufrmAgendamento in 'ufrmAgendamento.pas' {frmAgendamento}, + ufrmAtendimento in 'ufrmAtendimento.pas' {frmAtendimento}, + ufrmBoleto in 'ufrmBoleto.pas' {frmBoleto}, + ufrmCampanha in 'ufrmCampanha.pas' {frmCampanha}, + ufrmCentralBoletos in 'ufrmCentralBoletos.pas' {frmCentralBoletos}, + ufrmCentralPlanilhamento in 'ufrmCentralPlanilhamento.pas' {frmCentralPlanilhamento}, + ufrmCheckAdmin in 'ufrmCheckAdmin.pas' {frmCheckAdmin}, + ufrmCobranca in 'ufrmCobranca.pas' {frmCobranca}, + ufrmCobrancaCampanha in 'ufrmCobrancaCampanha.pas' {frmCobrancaCampanha}, + ufrmDadosCheques in 'ufrmDadosCheques.pas' {frmDadosCheques}, + ufrmDepartamentos in 'ufrmDepartamentos.pas' {frmDepartamentos}, + ufrmDigito9 in 'ufrmDigito9.pas' {frmDigito9}, + ufrmEfetuarCobranca in 'ufrmEfetuarCobranca.pas' {frmEfetuarCobranca}, + ufrmEmpresas in 'ufrmEmpresas.pas' {frmEmpresas}, + ufrmEscolheAcordo in 'ufrmEscolheAcordo.pas' {frmEscolheAcordo}, + ufrmEscolheCampanha in 'ufrmEscolheCampanha.pas' {frmEscolheCampanha}, + ufrmEscolheLayout in 'ufrmEscolheLayout.pas' {frmEscolheLayout}, + ufrmEscolheProvidencia in 'ufrmEscolheProvidencia.pas' {frmEscolheProv}, + ufrmFechamento in 'ufrmFechamento.pas' {frmFechamento}, + ufrmFechamentoAtendimento in 'ufrmFechamentoAtendimento.pas' {frmFechamentoAtendimento}, + ufrmFechamentoDevedor in 'ufrmFechamentoDevedor.pas' {frmFechamentoDevedor}, + ufrmFichaTitulos in 'ufrmFichaTitulos.pas' {frmFichaTitulos}, + ufrmGrupoBoletoEmpresas in 'ufrmGrupoBoletoEmpresas.pas' {frmGrupoBoletoEmpresas}, + ufrmImpTCC in 'ufrmImpTCC.pas' {frmImpTCC}, + ufrmLiberaPermissao in 'ufrmLiberaPermissao.pas' {frmLiberaPermissao}, + ufrmLogActions in 'ufrmLogActions.pas' {frmLogActions}, + ufrmLogin in 'ufrmLogin.pas' {frmLogin}, + ufrmMandaMensagem in 'ufrmMandaMensagem.pas' {frmMandaMensagem}, + ufrmMemoBox in 'ufrmMemoBox.pas' {frmMemoBox}, + ufrmMovUsuarios in 'ufrmMovUsuarios.pas' {frmMovUsuarios}, + ufrmPesquisa in 'ufrmPesquisa.pas' {frmPesquisa}, + ufrmPopUp in 'ufrmPopUp.pas' {frmPopUp}, + ufrmProgressEC in 'ufrmProgressEC.pas' {frmProgressEC}, + ufrmRankings in 'ufrmRankings.pas' {frmRanking}, + ufrmVerIE in 'ufrmVerIE.pas' {frmVerIE}, + uimpDevedores in 'uimpDevedores.pas' {impDevedores}, + urelAcordos in 'urelAcordos.pas' {relAcordos}, + urelBordero in 'urelBordero.pas' {relBordero}, + urelDados in 'urelDados.pas' {relDados}, + urelDuplicados in 'urelDuplicados.pas' {relDuplicados}, + urelFichaDivida in 'urelFichaDivida.pas' {relFichaDivida}, + urelHistorico in 'urelHistorico.pas' {relHistorico}, + urelMulti in 'urelMulti.pas' {relMulti}, + urelPrestacaoAnaSin in 'urelPrestacaoAnaSin.pas' {relPrestacaoAnaSin}, + urelPrestacaoAnaSin2 in 'urelPrestacaoAnaSin2.pas' {relPrestacaoAnaSin2}, + urelPrestacaoContas in 'urelPrestacaoContas.pas' {relPrestacaoContas}, + urelRecibo in 'urelRecibo.pas' {relRecibo}, + urelRecibosEmitidos in 'urelRecibosEmitidos.pas' {relRecibosEmitidos}, + urelRelacaoAcordo in 'urelRelacaoAcordo.pas' {relRelacaoAcordo}, + urelTeste in 'urelTeste.pas' {relTeste}, + ufrmRemessa in 'ufrmRemessa.pas' {frmRemessa}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.Title := 'Nexverse - Cobrana Multi-Empresas'; + Application.CreateForm(TdtmSystem, dtmSystem); + Application.CreateForm(TfrmCobranca, frmCobranca); + Application.CreateForm(TfrmLogin, frmLogin); + Application.Run; +end. diff --git a/Cobrança.dproj b/Cobrança.dproj new file mode 100644 index 0000000..05147a6 --- /dev/null +++ b/Cobrança.dproj @@ -0,0 +1,844 @@ + + + {C7C4870A-231A-4D21-B54C-8C9F1B868556} + 17.2 + VCL + Cobrança.dpr + True + Debug + Win32 + 1 + Application + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + Cobrança + $(BDS)\bin\delphi_PROJECTICON.ico + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + + + 1033 + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + $(BDS)\bin\default_app.manifest + RosiDBComp_DXE8;ACBr_Convenio115;FireDACTDataDriver;FireDACSqliteDriver;ACBr_LCDPR;FireDACDSDriver;frxTee22;DBXSqliteDriver;ZComponent;ACBr_EDI;FireDACPgDriver;ACBr_GNRE;ACBr_BoletoRL;fmx;ACBr_Diversos;IndySystem;TeeDB;tethering;ACBr_CIOT;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;ACBr_NFeDanfeESCPOS;ACBre_Social;ACBr_BlocoX;package;DataSnapProviderClient;DBXSybaseASEDriver;frxe22;DbxCommonDriver;vclimg;ACBr_NF3e;dbxcds;ACBr_Comum;DatasnapConnectorsFreePascal;appanalytics;ACBr_ONE;ACBr_BPeDabpeESCPOS;vcldb;vcldsnap;ACBr_MDFeDamdfeRL;ACBr_SATExtratoESCPOS;fmxFireDAC;DBXDb2Driver;frce;ACBr_PagFor;DBXOracleDriver;CustomIPTransport;ACBr_GNREGuiaRL;ACBr_Serial;vclribbon;ACBr_SPED;dsnap;IndyIPServer;ACBr_MDFe;fmxase;vcl;IndyCore;ACBr_NFSeDanfseRL;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;ACBr_Boleto;ACBr_NF3eDANF3eESCPOS;DataSnapFireDAC;FireDACDBXDriver;ACBr_Sintegra;ACBr_SAT;soapserver;inetdbxpress;ACBr_NFSe;dsnapxml;ACBr_Ponto;FireDACInfxDriver;FireDACDb2Driver;ACBr_LFD;ACBR_DeSTDA;adortl;ACBr_TCP;FireDACASADriver;ACBr_SEF2;frx22;bindcompfmx;ACBr_PAF;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;ACBr_MTER;Tee;ACBr_NFe;DBXOdbcDriver;ACBr_CTe;ibmonitor;vclFireDAC;ACBr_ANe;xmlrtl;DataSnapNativeClient;svnui;ibxpress;ACBr_NFCeECFVirtual;ACBr_NFeDanfeRL;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;ACBr_BPe;ACBr_CTeDacteRL;vclie;ACBr_OpenSSL;frxDB22;FireDACADSDriver;vcltouch;ZCore;ACBr_Integrador;ACBr_Reinf;ACBr_TEFD;emsclient;ACBr_SATWS;ACBr_ADRCST;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;ACBr_SATExtratoRL;DataSnapServerMidas;RosiDBSorters_DXE8;ACBr_SATECFVirtual;dsnapcon;DBXFirebirdDriver;inet;fmxobj;ImportExcel;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;ACBr_SPEDImportar;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + true + + + RosiDBComp_DXE8;FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;ZComponent;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;appanalytics;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;Tee;DBXOdbcDriver;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;ZCore;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;DataSnapServerMidas;RosiDBSorters_DXE8;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) + + + DEBUG;$(DCC_Define) + true + false + true + true + true + + + Cobrança_Icon1.ico + CompanyName=;FileDescription=;FileVersion=1.1.4.28;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.4.26;Comments= + 1 + 28 + 4 + 1033 + true + false + + + false + RELEASE;$(DCC_Define) + 0 + 0 + + + + MainSource + + +
mstCadastro
+ dfm + + +
mstLista
+ dfm + + +
mstMaster
+ dfm + + +
cadCampanha
+ dfm + + +
cadCobrador
+ dfm + + +
cadContas
+ dfm + + +
cadCredor
+ dfm + + +
cadDevedores
+ dfm + + +
cadEmpresa
+ dfm + + +
cadGrupos
+ dfm + + +
cadIndices
+ dfm + + +
cadModeloRepasse
+ dfm + + +
cadPoli_Faixa
+ dfm + + +
cadProvidencias
+ dfm + + +
cadTextEmail
+ dfm + + +
cadUsuarios
+ dfm + + +
cadUsuarioseditar
+ dfm + + +
confFichaHistorico
+ dfm + + +
confLayouts
+ dfm + + +
confrelAcordos
+ dfm + + +
confrelBordero
+ dfm + + +
confRelGerencia
+ dfm + + +
confrelPrestacaoContas
+ dfm + + +
confrelRecibosEmitidos
+ dfm + + +
confrelRelatorioTCC
+ dfm + + +
delPoli_faixa
+ dfm + + +
dtmSystem
+ dfm + TDataModule + + + +
frmAchaRecibo
+ dfm + + +
frmAgenda
+ dfm + + +
frmAgendamento
+ dfm + + +
frmAtendimento
+ dfm + + +
frmBoleto
+ dfm + + +
frmCampanha
+ dfm + + +
frmCentralBoletos
+ dfm + + +
frmCentralPlanilhamento
+ dfm + + +
frmCheckAdmin
+ dfm + + +
frmCobranca
+ dfm + + +
frmCobrancaCampanha
+ dfm + + +
frmDadosCheques
+ dfm + + +
frmDepartamentos
+ dfm + + +
frmDigito9
+ dfm + + +
frmEfetuarCobranca
+ dfm + + +
frmEmpresas
+ dfm + + +
frmEscolheAcordo
+ dfm + + +
frmEscolheCampanha
+ dfm + + +
frmEscolheLayout
+ dfm + + +
frmEscolheProv
+ dfm + + +
frmFechamento
+ dfm + + +
frmFechamentoAtendimento
+ dfm + + +
frmFechamentoDevedor
+ dfm + + +
frmFichaTitulos
+ dfm + + +
frmGrupoBoletoEmpresas
+ dfm + + +
frmImpTCC
+ dfm + + +
frmLiberaPermissao
+ dfm + + +
frmLogActions
+ dfm + + +
frmLogin
+ dfm + + +
frmMandaMensagem
+ dfm + + +
frmMemoBox
+ dfm + + +
frmMovUsuarios
+ dfm + + +
frmPesquisa
+ dfm + + +
frmPopUp
+ dfm + + +
frmProgressEC
+ dfm + + +
frmRanking
+ dfm + + +
frmVerIE
+ dfm + + +
impDevedores
+ dfm + + +
relAcordos
+ dfm + + +
relBordero
+ dfm + + +
relDados
+ dfm + + +
relDuplicados
+ dfm + + +
relFichaDivida
+ dfm + + +
relHistorico
+ dfm + + +
relMulti
+ dfm + + +
relPrestacaoAnaSin
+ dfm + + +
relPrestacaoAnaSin2
+ dfm + + +
relPrestacaoContas
+ dfm + + +
relRecibo
+ dfm + + +
relRecibosEmitidos
+ dfm + + +
relRelacaoAcordo
+ dfm + + +
relTeste
+ dfm + + +
frmRemessa
+ dfm + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Application + + + + Cobrança.dpr + + + Fortes Report Comunity Edition + Embarcadero C++Builder Office 2000 Servers Package + Embarcadero C++Builder Office XP Servers Package + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + + + + Cobrança.exe + true + + + + + 1 + .dylib + + + 0 + .bpl + + + Contents\MacOS + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + + + 1 + .dylib + + + 0 + .dll;.bpl + + + Contents\MacOS + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + + + 1 + + + 1 + + + 1 + + + + + Contents + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + res\drawable-normal + 1 + + + + + library\lib\x86 + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ../ + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-xlarge + 1 + + + + + res\drawable-xhdpi + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-xxhdpi + 1 + + + + + library\lib\mips + 1 + + + + + res\drawable + 1 + + + + + Contents\MacOS + 1 + + + 1 + + + 0 + + + + + Contents\MacOS + 1 + .framework + + + 0 + + + + + res\drawable-small + 1 + + + + + ../ + 1 + + + ../ + 1 + + + + + Contents\MacOS + 1 + + + 1 + + + Contents\MacOS + 0 + + + + + classes + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable + 1 + + + + + Contents\Resources + 1 + + + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + library\lib\armeabi-v7a + 1 + + + 1 + + + 0 + + + Contents\MacOS + 1 + + + 1 + + + 1 + + + + + library\lib\armeabi + 1 + + + + + res\drawable-large + 1 + + + + + 0 + + + 0 + + + 0 + + + Contents\MacOS + 0 + + + 0 + + + 0 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-ldpi + 1 + + + + + res\values + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + + + 1 + + + + + + + + + + + + True + False + + + 12 + + + + + diff --git a/Cobrança.res b/Cobrança.res new file mode 100644 index 0000000..241d641 Binary files /dev/null and b/Cobrança.res differ diff --git a/Cobrança_Icon.ico b/Cobrança_Icon.ico new file mode 100644 index 0000000..5ecab1e Binary files /dev/null and b/Cobrança_Icon.ico differ diff --git a/Cobrança_Icon1.ico b/Cobrança_Icon1.ico new file mode 100644 index 0000000..5ecab1e Binary files /dev/null and b/Cobrança_Icon1.ico differ diff --git a/Prog_Cobranca.dpr b/Prog_Cobranca.dpr new file mode 100644 index 0000000..c0bc36b --- /dev/null +++ b/Prog_Cobranca.dpr @@ -0,0 +1,49 @@ +program Prog_Cobranca; + +uses + Vcl.Forms, + ufrmCobranca in 'ufrmCobranca.pas' {frmCobranca}, + udtmSystem in 'udtmSystem.pas' {dtmSystem: TDataModule}, + ufrmLogin in 'ufrmLogin.pas' {frmLogin}, + umstMaster in 'umstMaster.pas' {mstMaster}, + umstLista in 'umstLista.pas' {mstLista}, + umstCadastro in 'umstCadastro.pas' {mstCadastro}, + ucadBeneficiarios in 'ucadBeneficiarios.pas' {cadBeneficiarios}, + ufrmPesquisa in 'ufrmPesquisa.pas' {frmPesquisa}, + ucadPoli_Faixa in 'ucadPoli_Faixa.pas' {cadPoli_Faixa}, + ucadEmpresa in 'ucadEmpresa.pas' {cadEmpresa}, + udelPoli_Faixa in 'udelPoli_Faixa.pas' {delPoli_faixa}, + ucadUsuarios in 'ucadUsuarios.pas' {cadUsuarios}, + ucadUsuarioseditar in 'ucadUsuarioseditar.pas' {cadUsuarioseditar}, + ucadDevedores in 'ucadDevedores.pas' {cadDevedores}, + ufrmMovUsuarios in 'ufrmMovUsuarios.pas' {frmMovUsuarios}, + ufrmVerIE in 'ufrmVerIE.pas' {frmVerIE}, + ufrmProgressEC in 'ufrmProgressEC.pas' {frmProgressEC}, + ucadReferencias in 'ucadReferencias.pas' {cadReferencias}, + ufrmEfetuarCobranca in 'ufrmEfetuarCobranca.pas' {frmEfetuarCobranca}, + ucadCampanha in 'ucadCampanha.pas' {cadCampanha}, + ufrmCampanha in 'ufrmCampanha.pas' {frmCampanha}, + ufrmMemoBox in 'ufrmMemoBox.pas' {frmMemoBox}, + ufrmFechamento in 'ufrmFechamento.pas' {frmFechamento}, + ufrmEscolheCampanha in 'ufrmEscolheCampanha.pas' {frmEscolheCampanha}, + urelRecibo in 'urelRecibo.pas' {relRecibo}, + uimpDevedores in 'uimpDevedores.pas' {impDevedores}, + uconfLayouts in 'uconfLayouts.pas' {confLayouts}, + ufrmEscolheLayout in 'ufrmEscolheLayout.pas' {frmEscolheLayout}, + ufrmAgenda in 'ufrmAgenda.pas' {frmAgenda}, + ufrmAtendimento in 'ufrmAtendimento.pas' {frmAtendimento}, + ufrmFechamentoAtendimento in 'ufrmFechamentoAtendimento.pas' {frmFechamentoAtendimento}, + ucadIndices in 'ucadIndices.pas' {cadIndices}, + uExtenso in 'uExtenso.pas'; + +{$R *.res} + + begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.Title := 'Charge'; + Application.CreateForm(TdtmSystem, dtmSystem); + Application.CreateForm(TfrmCobranca, frmCobranca); + Application.CreateForm(TfrmLogin, frmLogin); + Application.Run; +end. diff --git a/Prog_Cobranca.dproj b/Prog_Cobranca.dproj new file mode 100644 index 0000000..3f56f2a --- /dev/null +++ b/Prog_Cobranca.dproj @@ -0,0 +1,648 @@ + + + {A1A8B4C3-8546-476D-8AE4-B7958896B443} + 17.2 + VCL + Prog_Cobranca.dpr + True + Debug + Win32 + 1 + Application + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + Prog_Cobranca + $(BDS)\bin\delphi_PROJECTICON.ico + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + + + ACBr_Convenio115;FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;frxTee22;DBXSqliteDriver;ACBr_BoletoRL;ZComponent;FireDACPgDriver;ACBr_GNRE;fmx;ACBr_Diversos;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;ACBr_NFeDanfeESCPOS;ACBr_BlocoX;ACBr_synapse;DataSnapProviderClient;DBXSybaseASEDriver;frxe22;DbxCommonDriver;vclimg;DUnitXRuntime;dbxcds;ACBr_Comum;DatasnapConnectorsFreePascal;appanalytics;vcldb;vcldsnap;ACBr_MDFeDamdfeRL;ACBr_SATExtratoESCPOS;fmxFireDAC;DBXDb2Driver;frce;DBXOracleDriver;CustomIPTransport;ACBr_GNREGuiaRL;ACBr_Serial;vclribbon;ACBr_SPED;dsnap;IndyIPServer;ACBr_MDFe;fmxase;vcl;IndyCore;ACBr_DFeComum;ACBr_NFSeDanfseRL;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;ACBr_Boleto;DataSnapFireDAC;FireDACDBXDriver;ACBr_Sintegra;ACBr_SAT;soapserver;inetdbxpress;ACBr_NFSe;dsnapxml;ACBr_Ponto;FireDACInfxDriver;FireDACDb2Driver;ACBr_LFD;ACBR_DeSTDA;ACBr_PCNComum;adortl;ACBr_TCP;FireDACASADriver;ACBr_SEF2;frx22;bindcompfmx;ACBr_PAF;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;ACBr_NFe;Tee;DBXOdbcDriver;ACBr_CTe;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;svnui;ibxpress;ACBr_NFCeECFVirtual;ACBr_NFeDanfeRL;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;ACBr_CTeDacteRL;vclie;ACBr_OpenSSL;frxDB22;FireDACADSDriver;vcltouch;ACBr_TEFD;ZCore;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;ACBr_SATExtratoRL;DataSnapServerMidas;ACBr_SATECFVirtual;dsnapcon;DBXFirebirdDriver;ACBr_TXTComum;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;ACBr_SPEDImportar;ZParseSql;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) + $(BDS)\bin\default_app.manifest + true + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= + 1033 + + + FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;ZComponent;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;appanalytics;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;Tee;DBXOdbcDriver;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;ZCore;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) + + + DEBUG;$(DCC_Define) + true + false + true + true + true + + + CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=Charge;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Charge;ProductVersion=1.0.0.0;Comments= + Prog_Cobranca_Icon.ico + true + 1033 + false + + + false + RELEASE;$(DCC_Define) + 0 + 0 + + + + MainSource + + +
frmCobranca
+ dfm + + +
dtmSystem
+ dfm + TDataModule + + +
frmLogin
+ dfm + + +
mstMaster
+ dfm + + +
mstLista
+ dfm + + +
mstCadastro
+ dfm + + +
cadBeneficiarios
+ dfm + + +
frmPesquisa
+ dfm + + +
cadPoli_Faixa
+ dfm + + +
cadEmpresa
+ dfm + + +
delPoli_faixa
+ dfm + + +
cadUsuarios
+ dfm + + +
cadUsuarioseditar
+ dfm + + +
cadDevedores
+ dfm + + +
frmMovUsuarios
+ dfm + + +
frmVerIE
+ dfm + + +
frmProgressEC
+ dfm + + +
cadReferencias
+ dfm + + +
frmEfetuarCobranca
+ dfm + + +
cadCampanha
+ dfm + + +
frmCampanha
+ dfm + + +
frmMemoBox
+ dfm + + +
frmFechamento
+ dfm + + +
frmEscolheCampanha
+ dfm + + +
relRecibo
+ dfm + + +
impDevedores
+ dfm + + +
confLayouts
+ dfm + + +
frmEscolheLayout
+ dfm + + +
frmAgenda
+ dfm + + +
frmAtendimento
+ dfm + + +
frmFechamentoAtendimento
+ dfm + + +
cadIndices
+ dfm + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Application + + + + Prog_Cobranca.dpr + + + Embarcadero C++Builder Office 2000 Servers Package + Embarcadero C++Builder Office XP Servers Package + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + + + + Prog_Cobranca.exe + true + + + + + 1 + .dylib + + + 0 + .bpl + + + Contents\MacOS + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + + + 1 + .dylib + + + 0 + .dll;.bpl + + + Contents\MacOS + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + + + 1 + + + 1 + + + 1 + + + + + Contents + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + res\drawable-normal + 1 + + + + + library\lib\x86 + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ../ + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-xlarge + 1 + + + + + res\drawable-xhdpi + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-xxhdpi + 1 + + + + + library\lib\mips + 1 + + + + + res\drawable + 1 + + + + + Contents\MacOS + 1 + + + 1 + + + 0 + + + + + Contents\MacOS + 1 + .framework + + + 0 + + + + + res\drawable-small + 1 + + + + + ../ + 1 + + + ../ + 1 + + + + + Contents\MacOS + 1 + + + 1 + + + Contents\MacOS + 0 + + + + + classes + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable + 1 + + + + + Contents\Resources + 1 + + + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + library\lib\armeabi-v7a + 1 + + + 1 + + + 0 + + + Contents\MacOS + 1 + + + 1 + + + 1 + + + + + library\lib\armeabi + 1 + + + + + res\drawable-large + 1 + + + + + 0 + + + 0 + + + 0 + + + Contents\MacOS + 0 + + + 0 + + + 0 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-ldpi + 1 + + + + + res\values + 1 + + + + + 1 + + + 1 + + + 1 + + + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + + + 1 + + + + + + + + + + + + True + False + + + 12 + + + + + diff --git a/Prog_Cobranca.res b/Prog_Cobranca.res new file mode 100644 index 0000000..57f0c31 Binary files /dev/null and b/Prog_Cobranca.res differ diff --git a/Prog_Cobranca_Icon.ico b/Prog_Cobranca_Icon.ico new file mode 100644 index 0000000..b95aa7a Binary files /dev/null and b/Prog_Cobranca_Icon.ico differ diff --git a/README.md b/README.md new file mode 100644 index 0000000..25cd64e --- /dev/null +++ b/README.md @@ -0,0 +1 @@ +Charge diff --git a/Win32/Debug/Apopup.ini b/Win32/Debug/Apopup.ini new file mode 100644 index 0000000..cbc54a8 --- /dev/null +++ b/Win32/Debug/Apopup.ini @@ -0,0 +1,3 @@ +[MENSAGEM] +Texto=Lorem ipsum dolor sit amet, consectetur adipiscing elit. Integer metus tortor, venenatis in lorem sed, dapibus imperdiet sapien. Phasellus mattis, sapien et eleifend mollis, dui arcu interdum mi, ut pretium urna enim at purus. Maecenas semper elit dolor, id rhoncus quam bibendum quis. Quisque dictum diam ac dui hendrerit rhoncus. Nulla facilisi. Interdum et malesuada fames ac ante ipsum primis in faucibus. Vestibulum interdum ut erat ut molestie. Nunc scelerisque interdum euismod. +Data-Fim=16/01/2019 \ No newline at end of file diff --git a/Win32/Debug/CHARGE.FDB b/Win32/Debug/CHARGE.FDB new file mode 100644 index 0000000..5b0d988 Binary files /dev/null and b/Win32/Debug/CHARGE.FDB differ diff --git a/Win32/Debug/Cobrança.old b/Win32/Debug/Cobrança.old new file mode 100644 index 0000000..d0547e2 Binary files /dev/null and b/Win32/Debug/Cobrança.old differ diff --git a/Win32/Debug/Inscr.DBF b/Win32/Debug/Inscr.DBF new file mode 100644 index 0000000..db9bbe3 Binary files /dev/null and b/Win32/Debug/Inscr.DBF differ diff --git a/Win32/Debug/banco.sql b/Win32/Debug/banco.sql new file mode 100644 index 0000000..2a620a0 --- /dev/null +++ b/Win32/Debug/banco.sql @@ -0,0 +1,952 @@ +/******************************************************************************* + * Selected metadata objects + * ------------------------- + * Extracted at 01/12/2018 09:05:43 + ******************************************************************************/ + +/******************************************************************************* + * Roles + * ----- + * Extracted at 01/12/2018 09:05:43 + ******************************************************************************/ + +/* "PUBLIC" is a system role, no CREATE ROLE statement. */ +/* "RDB$ADMIN" is a system role, no CREATE ROLE statement. */ +/******************************************************************************* + * UDFs + * ---- + * Extracted at 01/12/2018 09:05:43 + ******************************************************************************/ + +/******************************************************************************* + * Domains + * ------- + * Extracted at 01/12/2018 09:05:43 + ******************************************************************************/ + +CREATE DOMAIN BL AS + BLOB SUB_TYPE 0 SEGMENT SIZE 80 +; +CREATE DOMAIN CD_10 AS + VARCHAR(10) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN CD_20 AS + VARCHAR(20) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN CD_PLACA AS + CHAR(8) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN DT AS + TIMESTAMP +; +CREATE DOMAIN HR AS + CHAR(5) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN HS AS + CHAR(8) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN HT AS + CHAR(6) CHARACTER SET WIN1252 + DEFAULT ' 00:00' + COLLATE WIN1252; +CREATE DOMAIN ID AS + INTEGER +; +CREATE DOMAIN NI AS + INTEGER +; +CREATE DOMAIN NR AS + NUMERIC(15,3) +; +CREATE DOMAIN PL AS + NUMERIC(9,6) +; +CREATE DOMAIN PR AS + NUMERIC(5,2) +; +CREATE DOMAIN TL AS + BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1252 +; +CREATE DOMAIN TP_1 AS + CHAR(1) CHARACTER SET WIN1252 + DEFAULT ' ' + COLLATE WIN1252; +CREATE DOMAIN TP_2 AS + CHAR(2) CHARACTER SET WIN1252 + DEFAULT ' ' + COLLATE WIN1252; +CREATE DOMAIN TP_3 AS + CHAR(3) CHARACTER SET WIN1252 + DEFAULT ' ' + COLLATE WIN1252; +CREATE DOMAIN TTIME AS + TIME +; +CREATE DOMAIN TX_10 AS + VARCHAR(10) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_100 AS + VARCHAR(100) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_20 AS + VARCHAR(20) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_200 AS + VARCHAR(200) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_255 AS + VARCHAR(255) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_40 AS + VARCHAR(40) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_60 AS + VARCHAR(60) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_CEP AS + CHAR(9) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_CI AS + VARCHAR(60) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_CNPJ AS + CHAR(18) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_CPF AS + CHAR(14) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_ESTADO AS + CHAR(2) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_IE AS + VARCHAR(15) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_IM AS + VARCHAR(20) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_UNIDADE AS + VARCHAR(6) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN VL AS + NUMERIC(15,2) + DEFAULT 0 +; +/******************************************************************************* + * Tables + * ------ + * Extracted at 01/12/2018 09:05:43 + ******************************************************************************/ + +CREATE TABLE CHG_AGENDA +( + ID_AGENDA ID NOT NULL, + ID_COBRADOR ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + DT_AGENDADA DATE, + HR_AGENDADA TTIME , + TP_SITUACAO TP_1 +); +CREATE TABLE CHG_CAMPANHAS +( + ID_CAMPANHA ID NOT NULL, + TX_NOME TX_40 , + TP_ATIVA TP_1 , + TP_CONCLUIDA TP_1 , + TX_DESC TX_255 , + DT_CAD DATE +); +CREATE TABLE CHG_CAMPANHAS_COBRADORES +( + ID_ITEM ID NOT NULL, + ID_CAMPANHA ID , + ID_COBRADOR ID +); +CREATE TABLE CHG_CAMPANHAS_DEVEDORES +( + ID_ITEM ID NOT NULL, + ID_CAMPANHA ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + TX_DOCUMENTO TX_20 , + TP_ESTADO TP_1 +); +CREATE TABLE CHG_COBRANCA_TITULOS +( + ID_PROTOCOLO ID NOT NULL, + CD_PROTOCOLO CD_20 NOT NULL, + QNT_TITULOS NI NOT NULL, + ID_TITULOS TL NOT NULL, + ID_DEVEDOR ID NOT NULL, + VL_ENTRADA VL NOT NULL, + VL_JUROS VL NOT NULL, + VL_MULTA VL NOT NULL, + VL_INDICADOR VL NOT NULL, + VL_ENCARGOS VL NOT NULL, + VL_CORRIGIDO VL NOT NULL, + TP_DESC_QUIT TP_1 NOT NULL, + PR_QUIT_JUROS NR NOT NULL, + PR_QUIT_MULTA NR NOT NULL, + PR_QUIT_INDICADOR NR NOT NULL, + PR_QUIT_PRINCIPAL NR NOT NULL, + TP_DESC_PAR TP_1 NOT NULL, + PR_PARCELAR_JUROS NR NOT NULL, + PR_PARCELAR_MULTA NR NOT NULL, + PR_PARCELAR_INDICADOR NR NOT NULL, + PR_PARCELAR_PRINCIPAL NR NOT NULL, + NR_PARCELAS NI NOT NULL, + DT_PROTOCOLO DT , + PR_QUIT_COR PR , + PR_PARCELAR_COR PR +); +CREATE TABLE CHG_CONFIGURACAO +( + ID_CONFIGURACAO ID NOT NULL +); +CREATE TABLE CHG_DESPESAS_TITULOS +( + ID_DESPESA ID NOT NULL, + ID_TITULO ID NOT NULL, + TX_DESCRICAO TX_60 , + VL_DESPESA VL , + TP_DESPESA TX_10 +); +CREATE TABLE CHG_DEVEDORES +( + ID_DEVEDOR ID NOT NULL, + TP_CLIENTE TP_1 , + TX_PAI TX_60 , + TX_NOME TX_60 , + TX_MAE TX_60 , + DT_CADASTRO DT , + DT_NASC DT , + CD_CPF TX_CPF , + CD_CNPJ TX_CNPJ , + TL_MEMO TL , + ID_COBRADOR ID , + CD_RG TX_20 , + CD_DEVEDOR CD_20 , + TX_EMAIL TX_60 , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_EMPRESAS +( + ID_EMPRESA ID NOT NULL, + TX_NOME TX_100 , + TX_FANTASIA TX_100 , + TX_CNPJ TX_CNPJ , + TX_IE TX_20 , + TX_ENDERECO TX_100 , + TX_COMPLEMENTO TX_20 , + ID_CIDADE ID , + TX_BAIRRO TX_60 , + ID_ESTADO ID , + TX_CEP TX_CEP , + TX_TELEFONE TX_40 , + TX_EMAIL TX_60 , + TX_WEBSITE TX_60 , + NR_NUMERO NI , + TX_IM TX_20 , + TL_OBSERVACOES TL , + ID_REPASSE ID , + PR_ENTRADA PR NOT NULL, + PR_MULTA PR NOT NULL, + PR_JUROS PR NOT NULL, + NR_PARCELAS INTEGER, + PR_DESC_QUIT_PRIN PR NOT NULL, + PR_DESC_QUIT_JUROS PR NOT NULL, + PR_DESC_QUIT_MULTA PR NOT NULL, + PR_DESC_QUIT_IND_FIN PR NOT NULL, + PR_DESC_QUIT_COR PR , + PR_DESC_FINAN_PRIN PR NOT NULL, + PR_DESC_FINAN_JUROS PR NOT NULL, + PR_DESC_FINAN_MULTA PR NOT NULL, + PR_DESC_FINAN_IND_FIN PR NOT NULL, + PR_DESC_FINAN_COR PR , + PR_INDICADOR_FINANCEIRO PR NOT NULL, + PR_JUROS_PARCELAR PR +); +CREATE TABLE CHG_ENDERECOS +( + ID_ENDERECO ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + TP_ENDERECO TP_1 , + TP_ATIVO TP_1 , + TX_LOGRADOURO TX_100 , + TX_BAIRRO TX_100 , + ID_CIDADE ID , + ID_ESTADO ID , + TX_CEP TX_CEP , + TX_COMPLEMENTO TX_100 , + NR_NUMERO NR , + TP_REFERENCIA TP_1 , + ID_HIGIENIZADORA ID , + TP_CONFIRMADO TP_1 , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_FAIXAS +( + ID_FAIXA ID NOT NULL, + ID_POLITICA ID , + TX_DESCRICAO TX_40 , + ATRASO_MIN INTEGER, + ATRASO_MAX INTEGER, + PR_JUROS PR NOT NULL, + PR_MULTA PR NOT NULL, + PR_DESC_QUIT_PRIN PR NOT NULL, + PR_DESC_QUIT_JUROS PR NOT NULL, + PR_DESC_QUIT_MULTA PR NOT NULL, + PR_DESC_QUIT_IND_FIN PR NOT NULL, + PR_DESC_QUIT_COR PR , + PR_DESC_FINAN_PRIN PR NOT NULL, + PR_DESC_FINAN_JUROS PR NOT NULL, + PR_DESC_FINAN_MULTA PR NOT NULL, + PR_DESC_FINAN_COR PR , + PR_DESC_FINAN_IND_FIN PR NOT NULL +); +CREATE TABLE CHG_FILTRO +( + ID_FILTRO ID NOT NULL, + TX_NOME_FILTRO TX_255 , + TP_CREDOR TP_1 , + TX_CREDOR TX_255 , + TP_PROVIDENCIA TP_1 , + TX_PROVIDENCIA TX_255 , + CD_PROVIDENCIA TP_1 , + TP_VALOR TP_1 , + VL_VALORIN VL , + VL_VALORFIM VL , + TP_AGENDADO TP_1 , + TX_AGENDADO TP_1 , + TP_NOME TP_1 , + TX_NOME TX_10 , + TP_ATRASO TP_1 , + TX_ATRASOIN INTEGER, + TX_ATRASOFIM INTEGER, + TP_PESSOA TP_1 , + CD_PESSOA TP_1 , + TP_TITULO TP_1 , + CD_TITULO TP_1 , + CD_ORDEM TP_1 +); +CREATE TABLE CHG_HISTORICO +( + ID_HISTORICO ID NOT NULL, + ID_DEVEDOR ID , + ID_COBRADOR ID , + ID_TITULO ID , + ID_PROVIDENCIA ID , + DT_CONTATO DT , + DT_AGENDAMENTO DT , + TP_VAIPAGAR TP_1 , + TP_AGENDAMENTO TP_1 , + CD_PROTOCOLO CD_20 , + TL_MEMO TL , + DT_HORAMARCADA TTIME , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT , + ID_TITULOS TX_255 +); +CREATE TABLE CHG_INADIMPLENCIAS +( + ID_INADIMPLENCIA ID NOT NULL, + TX_NOME TX_100 +); +CREATE TABLE CHG_INDICADORES_FINANCEIROS +( + ID_INDICADOR ID NOT NULL, + ID_CHG_EMPRESA ID NOT NULL, + PR_INDICADOR PR , + VL_INDICADOR VL , + TP_INDICADOR TP_1 DEFAULT '%', + ATRASO_MIN INTEGER, + ATRASO_MAX INTEGER +); +CREATE TABLE CHG_POLITICAS +( + ID_POLITICA ID NOT NULL, + ID_EMPRESA ID , + TX_DESCRICAO TX_40 , + DT_INICIO DT , + DT_FIM DT +); +CREATE TABLE CHG_PROVIDENCIAS +( + ID_PROVIDENCIA ID NOT NULL, + TX_NOME TX_60 , + TX_DESCRICAO TX_255 , + TP_PROVIDENCIA TX_10 +); +CREATE TABLE CHG_TELEFONES +( + ID_TELEFONE ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + NR_NUMERO TX_20 , + TP_ATIVO TP_1 , + TP_TIPOTEL TP_1 , + TX_DESC TX_100 , + TX_OBS TL , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_TITULOS +( + ID_TITULO ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + ID_EMPRESA ID NOT NULL, + TX_PRODUTO TX_100 , + VL_TITULO VL , + DT_ENTRADA DT , + DT_VENCIMENTO DT NOT NULL, + TP_SITUACAO TP_2 , + CD_DEVEDOR TX_100 , + TP_CHEQUE TP_1 NOT NULL, + ID_BANCO ID , + TX_NRCHEQUE TX_20 , + TP_MOTIVO TP_2 , + VL_DESPESA VL , + TP_DESPESA TP_1 , + VL_MULTA VL , + VL_JUROS VL , + VL_ENCARGOS VL , + VL_CORRIGIDO VL , + DT_PAGAMENTO DT , + TX_OBS TL , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE SYS_CIDADES +( + ID_CIDADE ID NOT NULL, + TX_NOME TX_60 , + ID_ESTADO ID , + CD_IBGE CD_10 +); +CREATE TABLE SYS_CONTAS +( + ID_CONTA ID NOT NULL, + TX_DESCRICAO TX_60 , + CD_AGENCIA CD_10 , + CD_AGENCIA_DV CHAR( 1) COLLATE ISO8859_1, + CD_CEDENTE CD_20 , + CD_CEDENTE_DV CHAR( 1) COLLATE ISO8859_1, + CD_CONVENIO CD_20 , + CD_CONVENIO_DV CHAR( 1) COLLATE ISO8859_1, + CD_CONTA CD_10 , + CD_CONTA_DV CHAR( 1) COLLATE ISO8859_1, + ID_BANCO ID , + TP_SITUACAO TP_1 , + CD_MODALIDADE CD_10 +); +CREATE TABLE SYS_CONTEUDO_RECIBO +( + ID_CONTEUDO ID NOT NULL, + TX_NOME TX_255 , + DT_VENCIMENTO DT , + VL_PRINCIPAL VL , + VL_JUROS VL , + VL_MULTA VL , + VL_ENCARGOS VL , + VL_DESCONTOS VL , + VL_CORRIGIDO VL , + ID_RECIBO ID , + VL_DESPESA VL , + TX_DEPESA TX_255 , + VL_EXTRAS VL +); +CREATE TABLE SYS_DUPLICADOS +( + ID_DUPLICADO ID NOT NULL, + TX_NOMEDEVEDOR TX_60 , + CD_CPF TX_CPF , + TX_NOMETITULO TX_100 , + VL_TITULO VL , + DT_VENCIMENTO DT , + TP_ACAO TP_1 , + CD_CNPJ TX_CNPJ +); +CREATE TABLE SYS_EMPRESA +( + ID_EMPRESA ID NOT NULL, + TX_NOME TX_100 , + TX_FANTASIA TX_40 , + TX_ENDERECO TX_100 , + NR_NUMERO NI , + TX_COMPLEMENTO TX_20 , + TX_BAIRRO TX_60 , + ID_CIDADE ID , + TX_CEP TX_CEP , + TX_TELEFONE TX_40 , + TX_WEBSITE TX_60 , + TX_CNPJ TX_CNPJ , + TX_IE TX_20 , + TX_IM TX_20 , + TL_OBSERVACOES TL , + TX_LOGOMARCA TX_100 , + TX_HONORARIOS TX_20 , + PR_DEBITO PR , + PR_CREDVISTA PR , + PR_CRED3 PR , + PR_CRED6 PR , + PR_CRED12 PR , + IMG_LOGO BL , + PR_FINANCIAMENTO PR , + TX_TITULO TX_60 , + ID_ESTADO ID , + TX_EMAILNOME TX_100 , + TX_EMAIL TX_100 , + TX_SMTP TX_100 , + TX_PORTA TX_10 , + TX_USUARIO TX_100 , + TX_SENHA TX_100 +); +CREATE TABLE SYS_ESTADOS +( + ID_ESTADO ID NOT NULL, + TX_NOME TX_40 , + CD_ESTADO TX_ESTADO , + TX_SIGLA TP_2 +); +CREATE TABLE SYS_GRUPOS +( + ID_GRUPO ID NOT NULL, + TX_NOME TX_40 , + TP_SU TP_1 +); +CREATE TABLE SYS_GRUPOS_PERMISSOES +( + ID_ITEM ID NOT NULL, + ID_GRUPO ID , + ID_PERMISSAO ID , + TP_ACESSO TP_1 +); +CREATE TABLE SYS_HIGIENIZADORA +( + ID_HIGIENIZADORA ID NOT NULL, + TX_NOME TX_100 +); +CREATE TABLE SYS_INDICES +( + ID_INDICE ID NOT NULL, + TX_NOME TX_60 , + PR_INDICE PR NOT NULL +); +CREATE TABLE SYS_LAYOUTS +( + ID_LAYOUT ID NOT NULL, + TX_NOME TX_40 , + STR_CAMPOS TX_255 , + NR_QNTCAMPOS NR +); +CREATE TABLE SYS_LOG +( + ID_LOG ID NOT NULL, + TX_TABELA TX_20 , + ID_REGISTRO ID , + TX_ACAO TX_60 , + ID_USUARIO ID , + DT_LOG DT DEFAULT 'NOW' +); +CREATE TABLE SYS_LOGINS +( + ID_LOGIN ID NOT NULL, + ID_USUARIO ID , + DT_LOGIN DATE, + HR_LOGIN TIME, + DT_LOGOFF DATE, + HR_LOGOFF TIME +); +CREATE TABLE SYS_PERMISSOES +( + ID_PERMISSAO ID NOT NULL, + CD_PERMISSAO CD_20 , + TX_DESCRICAO TX_40 , + ID_PARENT ID , + TP_ACESSO TP_1 +); +CREATE TABLE SYS_RECIBOS +( + ID_RECIBO ID NOT NULL, + NR_RECIBO TX_20 NOT NULL, + TX_NOME TX_255 , + TX_CPF TX_CPF , + TX_CNPJ TX_CNPJ , + ID_DEVEDOR ID , + VL_TOTAL VL , + VL_PRINCIPAL VL , + VL_JUROS VL , + VL_MULTA VL , + VL_ENCARGOS VL , + VL_DESCONTOS VL , + VL_CORRIGIDO VL , + TX_CREDOR TX_200 , + TX_NOMETITULOS TX_255 , + TX_VENCIMENTOS TX_255 , + TP_RECEBIMENTO TP_2 , + NR_CHEQUE TX_20 , + ID_BANCO ID , + TX_PRACA TX_200 , + ID_USUARIO ID , + DT_IMPRESSAO DT , + TX_CAMINHO TX_255 +); +CREATE TABLE SYS_REPASSES +( + ID_REPASSE ID NOT NULL, + PR_PRINCIPAL PR , + PR_JUROS PR , + PR_MULTA PR , + PR_ENCARGOS PR , + PR_CORRIGIDO PR , + TX_NOME TX_40 +); +CREATE TABLE SYS_SESSAO +( + ID_SESSAO ID NOT NULL, + ID_USUARIO ID , + TP_ATIVA TP_1 +); +CREATE TABLE SYS_TEXTO_EMAIL +( + ID_TEXTO ID NOT NULL, + TX_DESCRICAO TX_255 NOT NULL, + TL_TEXTO TL NOT NULL +); +CREATE TABLE SYS_USUARIOS +( + ID_USUARIO ID NOT NULL, + TX_NOME TX_60 , + TX_USUARIO TX_10 , + TX_SENHA TX_40 , + ID_GRUPO ID , + TP_ATIVO TP_1 , + TP_TROCAPASS TP_1 , + TX_EMAILNOME TX_100 , + TX_EMAIL TX_100 , + TX_SMTP TX_100 , + TX_PORTA TX_10 , + TX_USUARIOEMAIL TX_100 , + TX_SENHAEMAIL TX_100 +); +/******************************************************************************* + * Primary Key Constraints + * ----------------------- + * Extracted at 01/12/2018 09:05:43 + ******************************************************************************/ + +ALTER TABLE CHG_AGENDA ADD CONSTRAINT PK_CHG_AGENDA PRIMARY KEY + (ID_AGENDA); + +ALTER TABLE CHG_CAMPANHAS ADD CONSTRAINT PK_CHG_CAMPANHAS PRIMARY KEY + (ID_CAMPANHA); + +ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT PK_CHG_CAMPANHAS_COBRADORES PRIMARY KEY + (ID_ITEM); + +ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT PK_CHG_CAMPANHAS_DEVEDORES PRIMARY KEY + (ID_ITEM); + +ALTER TABLE CHG_COBRANCA_TITULOS ADD CONSTRAINT PK_CHG_COBRANCA_TITULOS PRIMARY KEY + (ID_PROTOCOLO); + +ALTER TABLE CHG_CONFIGURACAO ADD CONSTRAINT PK_CHG_CONFIGURACAO PRIMARY KEY + (ID_CONFIGURACAO); + +ALTER TABLE CHG_DESPESAS_TITULOS ADD CONSTRAINT PK_CHG_DESPESAS_TITULOS PRIMARY KEY + (ID_DESPESA); + +ALTER TABLE CHG_DEVEDORES ADD CONSTRAINT PK_CHG_DEVEDORES PRIMARY KEY + (ID_DEVEDOR); + +ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT PK_CHG_EMPRESAS PRIMARY KEY + (ID_EMPRESA); + +ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT PK_CHG_ENDERECOS PRIMARY KEY + (ID_ENDERECO); + +ALTER TABLE CHG_FAIXAS ADD CONSTRAINT PK_CHG_FAIXAS PRIMARY KEY + (ID_FAIXA); + +ALTER TABLE CHG_FILTRO ADD CONSTRAINT PK_CHG_FILTRO PRIMARY KEY + (ID_FILTRO); + +ALTER TABLE CHG_HISTORICO ADD CONSTRAINT PK_CHG_HISTORICO PRIMARY KEY + (ID_HISTORICO); + +ALTER TABLE CHG_INADIMPLENCIAS ADD CONSTRAINT PK_CHG_INADIMPLENCIAS PRIMARY KEY + (ID_INADIMPLENCIA); + +ALTER TABLE CHG_INDICADORES_FINANCEIROS ADD CONSTRAINT PK_CHG_INDICADORES_FINANCEI PRIMARY KEY + (ID_INDICADOR); + +ALTER TABLE CHG_POLITICAS ADD CONSTRAINT PK_CHG_POLITICAS PRIMARY KEY + (ID_POLITICA); + +ALTER TABLE CHG_PROVIDENCIAS ADD CONSTRAINT PK_CHG_PROVIDENCIAS PRIMARY KEY + (ID_PROVIDENCIA); + +ALTER TABLE CHG_TELEFONES ADD CONSTRAINT PK_CHG_TELEFONES PRIMARY KEY + (ID_TELEFONE); + +ALTER TABLE CHG_TITULOS ADD CONSTRAINT PK_CHG_TITULOS PRIMARY KEY + (ID_TITULO); + +ALTER TABLE SYS_CIDADES ADD CONSTRAINT PK_SYS_CIDADES PRIMARY KEY + (ID_CIDADE); + +ALTER TABLE SYS_CONTAS ADD CONSTRAINT PK_SYS_CONTAS PRIMARY KEY + (ID_CONTA); + +ALTER TABLE SYS_CONTEUDO_RECIBO ADD CONSTRAINT PK_SYS_CONTEUDO_RECIBO PRIMARY KEY + (ID_CONTEUDO); + +ALTER TABLE SYS_DUPLICADOS ADD CONSTRAINT PK_SYS_DUPLICADOS PRIMARY KEY + (ID_DUPLICADO); + +ALTER TABLE SYS_EMPRESA ADD CONSTRAINT PK_SYS_EMPRESA PRIMARY KEY + (ID_EMPRESA); + +ALTER TABLE SYS_ESTADOS ADD CONSTRAINT PK_SYS_ESTADOS PRIMARY KEY + (ID_ESTADO); + +ALTER TABLE SYS_GRUPOS ADD CONSTRAINT PK_SYS_GRUPOS PRIMARY KEY + (ID_GRUPO); + +ALTER TABLE SYS_GRUPOS_PERMISSOES ADD CONSTRAINT PK_SYS_GRUPOS_PERMISSOES PRIMARY KEY + (ID_ITEM); + +ALTER TABLE SYS_HIGIENIZADORA ADD CONSTRAINT PK_SYS_HIGIENIZADORA PRIMARY KEY + (ID_HIGIENIZADORA); + +ALTER TABLE SYS_INDICES ADD CONSTRAINT PK_SYS_INDICES PRIMARY KEY + (ID_INDICE); + +ALTER TABLE SYS_LAYOUTS ADD CONSTRAINT PK_SYS_LAYOUTS PRIMARY KEY + (ID_LAYOUT); + +ALTER TABLE SYS_LOG ADD CONSTRAINT PK_SYS_LOG PRIMARY KEY + (ID_LOG); + +ALTER TABLE SYS_LOGINS ADD CONSTRAINT PK_SYS_LOGINS PRIMARY KEY + (ID_LOGIN); + +ALTER TABLE SYS_PERMISSOES ADD CONSTRAINT PK_SYS_PERMISSOES PRIMARY KEY + (ID_PERMISSAO); + +ALTER TABLE SYS_RECIBOS ADD CONSTRAINT PK_SYS_RECIBOS PRIMARY KEY + (ID_RECIBO); + +ALTER TABLE SYS_REPASSES ADD CONSTRAINT PK_SYS_REPASSES PRIMARY KEY + (ID_REPASSE); + +ALTER TABLE SYS_SESSAO ADD CONSTRAINT PK_SYS_SESSAO PRIMARY KEY + (ID_SESSAO); + +ALTER TABLE SYS_TEXTO_EMAIL ADD CONSTRAINT PK_SYS_TEXTO_EMAIL PRIMARY KEY + (ID_TEXTO); + +ALTER TABLE SYS_USUARIOS ADD CONSTRAINT PK_SYS_USUARIOS PRIMARY KEY + (ID_USUARIO); + +/******************************************************************************* + * Foreign Key Constraints + * ----------------------- + * Extracted at 01/12/2018 09:05:43 + ******************************************************************************/ + +ALTER TABLE CHG_AGENDA ADD CONSTRAINT FK_CHG_AGENDA_SYS_USUARIOS + FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS + (ID_USUARIO) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_CAMPANH + FOREIGN KEY (ID_CAMPANHA) REFERENCES CHG_CAMPANHAS + (ID_CAMPANHA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_DEVEDORES + FOREIGN KEY (ID_CAMPANHA) REFERENCES CHG_CAMPANHAS + (ID_CAMPANHA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT FK_CHG_CAMPANH_SYS_USUARIO + FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS + (ID_USUARIO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_COBRANCA_TITULOS ADD CONSTRAINT FK_CHG_COBRANC_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_DESPESAS_TITULOS ADD CONSTRAINT FK_CHG_DESPESAS_CHG_TITULOS + FOREIGN KEY (ID_TITULO) REFERENCES CHG_TITULOS + (ID_TITULO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_DEVEDORES ADD CONSTRAINT FK_CHG_DEVEDOR_SYS_USUARIO + FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS + (ID_USUARIO) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESAS_SYS_CIDADES + FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES + (ID_CIDADE) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESAS_SYS_ESTADOS + FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS + (ID_ESTADO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESA_SYS_REPASSE + FOREIGN KEY (ID_REPASSE) REFERENCES SYS_REPASSES + (ID_REPASSE) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDERECO_SYS_CIDADES + FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES + (ID_CIDADE) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDERECO_SYS_ESTADOS + FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS + (ID_ESTADO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDEREC_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_FAIXAS ADD CONSTRAINT FK_CHG_FAIXAS_CHG_POLITICAS + FOREIGN KEY (ID_POLITICA) REFERENCES CHG_POLITICAS + (ID_POLITICA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORIC_CHG_TITULOS + FOREIGN KEY (ID_TITULO) REFERENCES CHG_TITULOS + (ID_TITULO) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORI_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORI_CHG_PROVIDE + FOREIGN KEY (ID_PROVIDENCIA) REFERENCES CHG_PROVIDENCIAS + (ID_PROVIDENCIA) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_INDICADORES_FINANCEIROS ADD CONSTRAINT FK_CHG_INDICAD_CHG_EMPRESA + FOREIGN KEY (ID_CHG_EMPRESA) REFERENCES CHG_EMPRESAS + (ID_EMPRESA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_POLITICAS ADD CONSTRAINT FK_CHG_POLITIC_CHG_EMPRESA + FOREIGN KEY (ID_EMPRESA) REFERENCES CHG_EMPRESAS + (ID_EMPRESA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_TELEFONES ADD CONSTRAINT FK_CHG_TELEFON_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_TITULOS ADD CONSTRAINT FK_CHG_TITULOS_CHG_DEVEDORE + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_TITULOS ADD CONSTRAINT FK_CHG_TITULOS_CHG_EMPRESAS + FOREIGN KEY (ID_EMPRESA) REFERENCES CHG_EMPRESAS + (ID_EMPRESA) + ON DELETE SET NULL + ON UPDATE NO ACTION +; + +ALTER TABLE SYS_CIDADES ADD CONSTRAINT FK_SYS_CIDADES_SYS_ESTADOS + FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS + (ID_ESTADO) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE SYS_EMPRESA ADD CONSTRAINT FK_SYS_EMPRESA_SYS_CIDADES + FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES + (ID_CIDADE) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE SYS_EMPRESA ADD CONSTRAINT FK_SYS_EMPRESA_SYS_ESTADOS + FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS + (ID_ESTADO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE SYS_GRUPOS_PERMISSOES ADD CONSTRAINT FK_SYS_GRUPOS_PERMISSOES_SY + FOREIGN KEY (ID_GRUPO) REFERENCES SYS_GRUPOS + (ID_GRUPO) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE SYS_USUARIOS ADD CONSTRAINT FK_SYS_USUARIOS_SYS_GRUPOS + FOREIGN KEY (ID_GRUPO) REFERENCES SYS_GRUPOS + (ID_GRUPO) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + diff --git a/Win32/Debug/boleto.pdf b/Win32/Debug/boleto.pdf new file mode 100644 index 0000000..270969d Binary files /dev/null and b/Win32/Debug/boleto.pdf differ diff --git a/Win32/Debug/cidades.sql b/Win32/Debug/cidades.sql new file mode 100644 index 0000000..5b57211 --- /dev/null +++ b/Win32/Debug/cidades.sql @@ -0,0 +1,5594 @@ +INSERT INTO SYS_CIDADES VALUES(1, 'Afonso Cludio', 8, 3200102); +INSERT INTO SYS_CIDADES VALUES(2, 'gua Doce do Norte', 8, 3200169); +INSERT INTO SYS_CIDADES VALUES(3, 'guia Branca', 8, 3200136); +INSERT INTO SYS_CIDADES VALUES(4, 'Alegre', 8, 3200201); +INSERT INTO SYS_CIDADES VALUES(5, 'Alfredo Chaves', 8, 3200300); +INSERT INTO SYS_CIDADES VALUES(6, 'Alto Rio Novo', 8, 3200359); +INSERT INTO SYS_CIDADES VALUES(7, 'Anchieta', 8, 3200409); +INSERT INTO SYS_CIDADES VALUES(8, 'Apiac', 8, 3200508); +INSERT INTO SYS_CIDADES VALUES(9, 'Aracruz', 8, 3200607); +INSERT INTO SYS_CIDADES VALUES(10, 'Atilio Vivacqua', 8, 3200706); +INSERT INTO SYS_CIDADES VALUES(11, 'Baixo Guandu', 8, 3200805); +INSERT INTO SYS_CIDADES VALUES(12, 'Barra de So Francisco', 8, 3200904); +INSERT INTO SYS_CIDADES VALUES(13, 'Boa Esperana', 8, 3201001); +INSERT INTO SYS_CIDADES VALUES(14, 'Bom Jesus do Norte', 8, 3201100); +INSERT INTO SYS_CIDADES VALUES(15, 'Brejetuba', 8, 3201159); +INSERT INTO SYS_CIDADES VALUES(16, 'Cachoeiro de Itapemirim', 8, 3201209); +INSERT INTO SYS_CIDADES VALUES(17, 'Cariacica', 8, 3201308); +INSERT INTO SYS_CIDADES VALUES(18, 'Castelo', 8, 3201407); +INSERT INTO SYS_CIDADES VALUES(19, 'Colatina', 8, 3201506); +INSERT INTO SYS_CIDADES VALUES(20, 'Conceio da Barra', 8, 3201605); +INSERT INTO SYS_CIDADES VALUES(21, 'Conceio do Castelo', 8, 3201704); +INSERT INTO SYS_CIDADES VALUES(22, 'Divino de So Loureno', 8, 3201803); +INSERT INTO SYS_CIDADES VALUES(23, 'Domingos Martins', 8, 3201902); +INSERT INTO SYS_CIDADES VALUES(24, 'Dores do Rio Preto', 8, 3202009); +INSERT INTO SYS_CIDADES VALUES(25, 'Ecoporanga', 8, 3202108); +INSERT INTO SYS_CIDADES VALUES(26, 'Fundo', 8, 3202207); +INSERT INTO SYS_CIDADES VALUES(27, 'Governador Lindenberg', 8, 3202256); +INSERT INTO SYS_CIDADES VALUES(28, 'Guau', 8, 3202306); +INSERT INTO SYS_CIDADES VALUES(29, 'Guarapari', 8, 3202405); +INSERT INTO SYS_CIDADES VALUES(30, 'Ibatiba', 8, 3202454); +INSERT INTO SYS_CIDADES VALUES(31, 'Ibirau', 8, 3202504); +INSERT INTO SYS_CIDADES VALUES(32, 'Ibitirama', 8, 3202553); +INSERT INTO SYS_CIDADES VALUES(33, 'Iconha', 8, 3202603); +INSERT INTO SYS_CIDADES VALUES(34, 'Irupi', 8, 3202652); +INSERT INTO SYS_CIDADES VALUES(35, 'Itaguau', 8, 3202702); +INSERT INTO SYS_CIDADES VALUES(36, 'Itapemirim', 8, 3202801); +INSERT INTO SYS_CIDADES VALUES(37, 'Itarana', 8, 3202900); +INSERT INTO SYS_CIDADES VALUES(38, 'Ina', 8, 3203007); +INSERT INTO SYS_CIDADES VALUES(39, 'Jaguar', 8, 3203056); +INSERT INTO SYS_CIDADES VALUES(40, 'Jernimo Monteiro', 8, 3203106); +INSERT INTO SYS_CIDADES VALUES(41, 'Joo Neiva', 8, 3203130); +INSERT INTO SYS_CIDADES VALUES(42, 'Laranja da Terra', 8, 3203163); +INSERT INTO SYS_CIDADES VALUES(43, 'Linhares', 8, 3203205); +INSERT INTO SYS_CIDADES VALUES(44, 'Mantenpolis', 8, 3203304); +INSERT INTO SYS_CIDADES VALUES(45, 'Maratazes', 8, 3203320); +INSERT INTO SYS_CIDADES VALUES(46, 'Marechal Floriano', 8, 3203346); +INSERT INTO SYS_CIDADES VALUES(47, 'Marilndia', 8, 3203353); +INSERT INTO SYS_CIDADES VALUES(48, 'Mimoso do Sul', 8, 3203403); +INSERT INTO SYS_CIDADES VALUES(49, 'Montanha', 8, 3203502); +INSERT INTO SYS_CIDADES VALUES(50, 'Mucurici', 8, 3203601); +INSERT INTO SYS_CIDADES VALUES(51, 'Muniz Freire', 8, 3203700); +INSERT INTO SYS_CIDADES VALUES(52, 'Muqui', 8, 3203809); +INSERT INTO SYS_CIDADES VALUES(53, 'Nova Vencia', 8, 3203908); +INSERT INTO SYS_CIDADES VALUES(54, 'Pancas', 8, 3204005); +INSERT INTO SYS_CIDADES VALUES(55, 'Pedro Canrio', 8, 3204054); +INSERT INTO SYS_CIDADES VALUES(56, 'Pinheiros', 8, 3204104); +INSERT INTO SYS_CIDADES VALUES(57, 'Pima', 8, 3204203); +INSERT INTO SYS_CIDADES VALUES(58, 'Ponto Belo', 8, 3204252); +INSERT INTO SYS_CIDADES VALUES(59, 'Presidente Kennedy', 8, 3204302); +INSERT INTO SYS_CIDADES VALUES(60, 'Rio Bananal', 8, 3204351); +INSERT INTO SYS_CIDADES VALUES(61, 'Rio Novo do Sul', 8, 3204401); +INSERT INTO SYS_CIDADES VALUES(62, 'Santa Leopoldina', 8, 3204500); +INSERT INTO SYS_CIDADES VALUES(63, 'Santa Maria de Jetib', 8, 3204559); +INSERT INTO SYS_CIDADES VALUES(64, 'Santa Teresa', 8, 3204609); +INSERT INTO SYS_CIDADES VALUES(65, 'So Domingos do Norte', 8, 3204658); +INSERT INTO SYS_CIDADES VALUES(66, 'So Gabriel da Palha', 8, 3204708); +INSERT INTO SYS_CIDADES VALUES(67, 'So Jos do Calado', 8, 3204807); +INSERT INTO SYS_CIDADES VALUES(68, 'So Mateus', 8, 3204906); +INSERT INTO SYS_CIDADES VALUES(69, 'So Roque do Cana', 8, 3204955); +INSERT INTO SYS_CIDADES VALUES(70, 'Serra', 8, 3205002); +INSERT INTO SYS_CIDADES VALUES(71, 'Sooretama', 8, 3205010); +INSERT INTO SYS_CIDADES VALUES(72, 'Vargem Alta', 8, 3205036); +INSERT INTO SYS_CIDADES VALUES(73, 'Venda Nova do Imigrante', 8, 3205069); +INSERT INTO SYS_CIDADES VALUES(74, 'Viana', 8, 3205101); +INSERT INTO SYS_CIDADES VALUES(75, 'Vila Pavo', 8, 3205150); +INSERT INTO SYS_CIDADES VALUES(76, 'Vila Valrio', 8, 3205176); +INSERT INTO SYS_CIDADES VALUES(77, 'Vila Velha', 8, 3205200); +INSERT INTO SYS_CIDADES VALUES(78, 'Vitria', 8, 3205309); +INSERT INTO SYS_CIDADES VALUES(79, 'Acrelndia', 1, 1200013); +INSERT INTO SYS_CIDADES VALUES(80, 'Assis Brasil', 1, 1200054); +INSERT INTO SYS_CIDADES VALUES(81, 'Brasilia', 1, 1200104); +INSERT INTO SYS_CIDADES VALUES(82, 'Bujari', 1, 1200138); +INSERT INTO SYS_CIDADES VALUES(83, 'Capixaba', 1, 1200179); +INSERT INTO SYS_CIDADES VALUES(84, 'Cruzeiro do Sul', 1, 1200203); +INSERT INTO SYS_CIDADES VALUES(85, 'Epitaciolndia', 1, 1200252); +INSERT INTO SYS_CIDADES VALUES(86, 'Feij', 1, 1200302); +INSERT INTO SYS_CIDADES VALUES(87, 'Jordo', 1, 1200328); +INSERT INTO SYS_CIDADES VALUES(88, 'Mncio Lima', 1, 1200336); +INSERT INTO SYS_CIDADES VALUES(89, 'Manoel Urbano', 1, 1200344); +INSERT INTO SYS_CIDADES VALUES(90, 'Marechal Thaumaturgo', 1, 1200351); +INSERT INTO SYS_CIDADES VALUES(91, 'Plcido de Castro', 1, 1200385); +INSERT INTO SYS_CIDADES VALUES(92, 'Porto Acre', 1, 1200807); +INSERT INTO SYS_CIDADES VALUES(93, 'Porto Walter', 1, 1200393); +INSERT INTO SYS_CIDADES VALUES(94, 'Rio Branco', 1, 1200401); +INSERT INTO SYS_CIDADES VALUES(95, 'Rodrigues Alves', 1, 1200427); +INSERT INTO SYS_CIDADES VALUES(96, 'Santa Rosa do Purus', 1, 1200435); +INSERT INTO SYS_CIDADES VALUES(97, 'Sena Madureira', 1, 1200500); +INSERT INTO SYS_CIDADES VALUES(98, 'Senador Guiomard', 1, 1200450); +INSERT INTO SYS_CIDADES VALUES(99, 'Tarauac', 1, 1200609); +INSERT INTO SYS_CIDADES VALUES(100, 'Xapuri', 1, 1200708); +INSERT INTO SYS_CIDADES VALUES(101, 'gua Branca', 2, 2700102); +INSERT INTO SYS_CIDADES VALUES(102, 'Anadia', 2, 2700201); +INSERT INTO SYS_CIDADES VALUES(103, 'Arapiraca', 2, 2700300); +INSERT INTO SYS_CIDADES VALUES(104, 'Atalaia', 2, 2700409); +INSERT INTO SYS_CIDADES VALUES(105, 'Barra de Santo Antnio', 2, 2700508); +INSERT INTO SYS_CIDADES VALUES(106, 'Barra de So Miguel', 2, 2700607); +INSERT INTO SYS_CIDADES VALUES(107, 'Batalha', 2, 2700706); +INSERT INTO SYS_CIDADES VALUES(108, 'Belm', 2, 2700805); +INSERT INTO SYS_CIDADES VALUES(109, 'Belo Monte', 2, 2700904); +INSERT INTO SYS_CIDADES VALUES(110, 'Boca da Mata', 2, 2701001); +INSERT INTO SYS_CIDADES VALUES(111, 'Branquinha', 2, 2701100); +INSERT INTO SYS_CIDADES VALUES(112, 'Cacimbinhas', 2, 2701209); +INSERT INTO SYS_CIDADES VALUES(113, 'Cajueiro', 2, 2701308); +INSERT INTO SYS_CIDADES VALUES(114, 'Campestre', 2, 2701357); +INSERT INTO SYS_CIDADES VALUES(115, 'Campo Alegre', 2, 2701407); +INSERT INTO SYS_CIDADES VALUES(116, 'Campo Grande', 2, 2701506); +INSERT INTO SYS_CIDADES VALUES(117, 'Canapi', 2, 2701605); +INSERT INTO SYS_CIDADES VALUES(118, 'Capela', 2, 2701704); +INSERT INTO SYS_CIDADES VALUES(119, 'Carneiros', 2, 2701803); +INSERT INTO SYS_CIDADES VALUES(120, 'Ch Preta', 2, 2701902); +INSERT INTO SYS_CIDADES VALUES(121, 'Coit do Nia', 2, 2702009); +INSERT INTO SYS_CIDADES VALUES(122, 'Colnia Leopoldina', 2, 2702108); +INSERT INTO SYS_CIDADES VALUES(123, 'Coqueiro Seco', 2, 2702207); +INSERT INTO SYS_CIDADES VALUES(124, 'Coruripe', 2, 2702306); +INSERT INTO SYS_CIDADES VALUES(125, 'Crabas', 2, 2702355); +INSERT INTO SYS_CIDADES VALUES(126, 'Delmiro Gouveia', 2, 2702405); +INSERT INTO SYS_CIDADES VALUES(127, 'Dois Riachos', 2, 2702504); +INSERT INTO SYS_CIDADES VALUES(128, 'Estrela de Alagoas', 2, 2702553); +INSERT INTO SYS_CIDADES VALUES(129, 'Feira Grande', 2, 2702603); +INSERT INTO SYS_CIDADES VALUES(130, 'Feliz Deserto', 2, 2702702); +INSERT INTO SYS_CIDADES VALUES(131, 'Flexeiras', 2, 2702801); +INSERT INTO SYS_CIDADES VALUES(132, 'Girau do Ponciano', 2, 2702900); +INSERT INTO SYS_CIDADES VALUES(133, 'Ibateguara', 2, 2703007); +INSERT INTO SYS_CIDADES VALUES(134, 'Igaci', 2, 2703106); +INSERT INTO SYS_CIDADES VALUES(135, 'Igreja Nova', 2, 2703205); +INSERT INTO SYS_CIDADES VALUES(136, 'Inhapi', 2, 2703304); +INSERT INTO SYS_CIDADES VALUES(137, 'Jacar dos Homens', 2, 2703403); +INSERT INTO SYS_CIDADES VALUES(138, 'Jacupe', 2, 2703502); +INSERT INTO SYS_CIDADES VALUES(139, 'Japaratinga', 2, 2703601); +INSERT INTO SYS_CIDADES VALUES(140, 'Jaramataia', 2, 2703700); +INSERT INTO SYS_CIDADES VALUES(141, 'Jequi da Praia', 2, 2703759); +INSERT INTO SYS_CIDADES VALUES(142, 'Joaquim Gomes', 2, 2703809); +INSERT INTO SYS_CIDADES VALUES(143, 'Jundi', 2, 2703908); +INSERT INTO SYS_CIDADES VALUES(144, 'Junqueiro', 2, 2704005); +INSERT INTO SYS_CIDADES VALUES(145, 'Lagoa da Canoa', 2, 2704104); +INSERT INTO SYS_CIDADES VALUES(146, 'Limoeiro de Anadia', 2, 2704203); +INSERT INTO SYS_CIDADES VALUES(147, 'Macei', 2, 2704302); +INSERT INTO SYS_CIDADES VALUES(148, 'Major Isidoro', 2, 2704401); +INSERT INTO SYS_CIDADES VALUES(149, 'Mar Vermelho', 2, 2704906); +INSERT INTO SYS_CIDADES VALUES(150, 'Maragogi', 2, 2704500); +INSERT INTO SYS_CIDADES VALUES(151, 'Maravilha', 2, 2704609); +INSERT INTO SYS_CIDADES VALUES(152, 'Marechal Deodoro', 2, 2704708); +INSERT INTO SYS_CIDADES VALUES(153, 'Maribondo', 2, 2704807); +INSERT INTO SYS_CIDADES VALUES(154, 'Mata Grande', 2, 2705002); +INSERT INTO SYS_CIDADES VALUES(155, 'Matriz de Camaragibe', 2, 2705101); +INSERT INTO SYS_CIDADES VALUES(156, 'Messias', 2, 2705200); +INSERT INTO SYS_CIDADES VALUES(157, 'Minador do Negro', 2, 2705309); +INSERT INTO SYS_CIDADES VALUES(158, 'Monteirpolis', 2, 2705408); +INSERT INTO SYS_CIDADES VALUES(159, 'Murici', 2, 2705507); +INSERT INTO SYS_CIDADES VALUES(160, 'Novo Lino', 2, 2705606); +INSERT INTO SYS_CIDADES VALUES(161, 'Olho d`gua das Flores', 2, 2705705); +INSERT INTO SYS_CIDADES VALUES(162, 'Olho d`gua do Casado', 2, 2705804); +INSERT INTO SYS_CIDADES VALUES(163, 'Olho d`gua Grande', 2, 2705903); +INSERT INTO SYS_CIDADES VALUES(164, 'Olivena', 2, 2706000); +INSERT INTO SYS_CIDADES VALUES(165, 'Ouro Branco', 2, 2706109); +INSERT INTO SYS_CIDADES VALUES(166, 'Palestina', 2, 2706208); +INSERT INTO SYS_CIDADES VALUES(167, 'Palmeira dos ndios', 2, 2706307); +INSERT INTO SYS_CIDADES VALUES(168, 'Po de Acar', 2, 2706406); +INSERT INTO SYS_CIDADES VALUES(169, 'Pariconha', 2, 2706422); +INSERT INTO SYS_CIDADES VALUES(170, 'Paripueira', 2, 2706448); +INSERT INTO SYS_CIDADES VALUES(171, 'Passo de Camaragibe', 2, 2706505); +INSERT INTO SYS_CIDADES VALUES(172, 'Paulo Jacinto', 2, 2706604); +INSERT INTO SYS_CIDADES VALUES(173, 'Penedo', 2, 2706703); +INSERT INTO SYS_CIDADES VALUES(174, 'Piaabuu', 2, 2706802); +INSERT INTO SYS_CIDADES VALUES(175, 'Pilar', 2, 2706901); +INSERT INTO SYS_CIDADES VALUES(176, 'Pindoba', 2, 2707008); +INSERT INTO SYS_CIDADES VALUES(177, 'Piranhas', 2, 2707107); +INSERT INTO SYS_CIDADES VALUES(178, 'Poo das Trincheiras', 2, 2707206); +INSERT INTO SYS_CIDADES VALUES(179, 'Porto Calvo', 2, 2707305); +INSERT INTO SYS_CIDADES VALUES(180, 'Porto de Pedras', 2, 2707404); +INSERT INTO SYS_CIDADES VALUES(181, 'Porto Real do Colgio', 2, 2707503); +INSERT INTO SYS_CIDADES VALUES(182, 'Quebrangulo', 2, 2707602); +INSERT INTO SYS_CIDADES VALUES(183, 'Rio Largo', 2, 2707701); +INSERT INTO SYS_CIDADES VALUES(184, 'Roteiro', 2, 2707800); +INSERT INTO SYS_CIDADES VALUES(185, 'Santa Luzia do Norte', 2, 2707909); +INSERT INTO SYS_CIDADES VALUES(186, 'Santana do Ipanema', 2, 2708006); +INSERT INTO SYS_CIDADES VALUES(187, 'Santana do Munda', 2, 2708105); +INSERT INTO SYS_CIDADES VALUES(188, 'So Brs', 2, 2708204); +INSERT INTO SYS_CIDADES VALUES(189, 'So Jos da Laje', 2, 2708303); +INSERT INTO SYS_CIDADES VALUES(190, 'So Jos da Tapera', 2, 2708402); +INSERT INTO SYS_CIDADES VALUES(191, 'So Lus do Quitunde', 2, 2708501); +INSERT INTO SYS_CIDADES VALUES(192, 'So Miguel dos Campos', 2, 2708600); +INSERT INTO SYS_CIDADES VALUES(193, 'So Miguel dos Milagres', 2, 2708709); +INSERT INTO SYS_CIDADES VALUES(194, 'So Sebastio', 2, 2708808); +INSERT INTO SYS_CIDADES VALUES(195, 'Satuba', 2, 2708907); +INSERT INTO SYS_CIDADES VALUES(196, 'Senador Rui Palmeira', 2, 2708956); +INSERT INTO SYS_CIDADES VALUES(197, 'Tanque d`Arca', 2, 2709004); +INSERT INTO SYS_CIDADES VALUES(198, 'Taquarana', 2, 2709103); +INSERT INTO SYS_CIDADES VALUES(199, 'Teotnio Vilela', 2, 2709152); +INSERT INTO SYS_CIDADES VALUES(200, 'Traipu', 2, 2709202); +INSERT INTO SYS_CIDADES VALUES(201, 'Unio dos Palmares', 2, 2709301); +INSERT INTO SYS_CIDADES VALUES(202, 'Viosa', 2, 2709400); +INSERT INTO SYS_CIDADES VALUES(203, 'Amap', 4, 1600105); +INSERT INTO SYS_CIDADES VALUES(204, 'Caloene', 4, 1600204); +INSERT INTO SYS_CIDADES VALUES(205, 'Cutias', 4, 1600212); +INSERT INTO SYS_CIDADES VALUES(206, 'Ferreira Gomes', 4, 1600238); +INSERT INTO SYS_CIDADES VALUES(207, 'Itaubal', 4, 1600253); +INSERT INTO SYS_CIDADES VALUES(208, 'Laranjal do Jari', 4, 1600279); +INSERT INTO SYS_CIDADES VALUES(209, 'Macap', 4, 1600303); +INSERT INTO SYS_CIDADES VALUES(210, 'Mazago', 4, 1600402); +INSERT INTO SYS_CIDADES VALUES(211, 'Oiapoque', 4, 1600501); +INSERT INTO SYS_CIDADES VALUES(212, 'Pedra Branca do Amapar', 4, 1600154); +INSERT INTO SYS_CIDADES VALUES(213, 'Porto Grande', 4, 1600535); +INSERT INTO SYS_CIDADES VALUES(214, 'Pracuba', 4, 1600550); +INSERT INTO SYS_CIDADES VALUES(215, 'Santana', 4, 1600600); +INSERT INTO SYS_CIDADES VALUES(216, 'Serra do Navio', 4, 1600055); +INSERT INTO SYS_CIDADES VALUES(217, 'Tartarugalzinho', 4, 1600709); +INSERT INTO SYS_CIDADES VALUES(218, 'Vitria do Jari', 4, 1600808); +INSERT INTO SYS_CIDADES VALUES(219, 'Alvares', 3, 1300029); +INSERT INTO SYS_CIDADES VALUES(220, 'Amatur', 3, 1300060); +INSERT INTO SYS_CIDADES VALUES(221, 'Anam', 3, 1300086); +INSERT INTO SYS_CIDADES VALUES(222, 'Anori', 3, 1300102); +INSERT INTO SYS_CIDADES VALUES(223, 'Apu', 3, 1300144); +INSERT INTO SYS_CIDADES VALUES(224, 'Atalaia do Norte', 3, 1300201); +INSERT INTO SYS_CIDADES VALUES(225, 'Autazes', 3, 1300300); +INSERT INTO SYS_CIDADES VALUES(226, 'Barcelos', 3, 1300409); +INSERT INTO SYS_CIDADES VALUES(227, 'Barreirinha', 3, 1300508); +INSERT INTO SYS_CIDADES VALUES(228, 'Benjamin Constant', 3, 1300607); +INSERT INTO SYS_CIDADES VALUES(229, 'Beruri', 3, 1300631); +INSERT INTO SYS_CIDADES VALUES(230, 'Boa Vista do Ramos', 3, 1300680); +INSERT INTO SYS_CIDADES VALUES(231, 'Boca do Acre', 3, 1300706); +INSERT INTO SYS_CIDADES VALUES(232, 'Borba', 3, 1300805); +INSERT INTO SYS_CIDADES VALUES(233, 'Caapiranga', 3, 1300839); +INSERT INTO SYS_CIDADES VALUES(234, 'Canutama', 3, 1300904); +INSERT INTO SYS_CIDADES VALUES(235, 'Carauari', 3, 1301001); +INSERT INTO SYS_CIDADES VALUES(236, 'Careiro', 3, 1301100); +INSERT INTO SYS_CIDADES VALUES(237, 'Careiro da Vrzea', 3, 1301159); +INSERT INTO SYS_CIDADES VALUES(238, 'Coari', 3, 1301209); +INSERT INTO SYS_CIDADES VALUES(239, 'Codajs', 3, 1301308); +INSERT INTO SYS_CIDADES VALUES(240, 'Eirunep', 3, 1301407); +INSERT INTO SYS_CIDADES VALUES(241, 'Envira', 3, 1301506); +INSERT INTO SYS_CIDADES VALUES(242, 'Fonte Boa', 3, 1301605); +INSERT INTO SYS_CIDADES VALUES(243, 'Guajar', 3, 1301654); +INSERT INTO SYS_CIDADES VALUES(244, 'Humait', 3, 1301704); +INSERT INTO SYS_CIDADES VALUES(245, 'Ipixuna', 3, 1301803); +INSERT INTO SYS_CIDADES VALUES(246, 'Iranduba', 3, 1301852); +INSERT INTO SYS_CIDADES VALUES(247, 'Itacoatiara', 3, 1301902); +INSERT INTO SYS_CIDADES VALUES(248, 'Itamarati', 3, 1301951); +INSERT INTO SYS_CIDADES VALUES(249, 'Itapiranga', 3, 1302009); +INSERT INTO SYS_CIDADES VALUES(250, 'Japur', 3, 1302108); +INSERT INTO SYS_CIDADES VALUES(251, 'Juru', 3, 1302207); +INSERT INTO SYS_CIDADES VALUES(252, 'Juta', 3, 1302306); +INSERT INTO SYS_CIDADES VALUES(253, 'Lbrea', 3, 1302405); +INSERT INTO SYS_CIDADES VALUES(254, 'Manacapuru', 3, 1302504); +INSERT INTO SYS_CIDADES VALUES(255, 'Manaquiri', 3, 1302553); +INSERT INTO SYS_CIDADES VALUES(256, 'Manaus', 3, 1302603); +INSERT INTO SYS_CIDADES VALUES(257, 'Manicor', 3, 1302702); +INSERT INTO SYS_CIDADES VALUES(258, 'Mara', 3, 1302801); +INSERT INTO SYS_CIDADES VALUES(259, 'Maus', 3, 1302900); +INSERT INTO SYS_CIDADES VALUES(260, 'Nhamund', 3, 1303007); +INSERT INTO SYS_CIDADES VALUES(261, 'Nova Olinda do Norte', 3, 1303106); +INSERT INTO SYS_CIDADES VALUES(262, 'Novo Airo', 3, 1303205); +INSERT INTO SYS_CIDADES VALUES(263, 'Novo Aripuan', 3, 1303304); +INSERT INTO SYS_CIDADES VALUES(264, 'Parintins', 3, 1303403); +INSERT INTO SYS_CIDADES VALUES(265, 'Pauini', 3, 1303502); +INSERT INTO SYS_CIDADES VALUES(266, 'Presidente Figueiredo', 3, 1303536); +INSERT INTO SYS_CIDADES VALUES(267, 'Rio Preto da Eva', 3, 1303569); +INSERT INTO SYS_CIDADES VALUES(268, 'Santa Isabel do Rio Negro', 3, 1303601); +INSERT INTO SYS_CIDADES VALUES(269, 'Santo Antnio do I', 3, 1303700); +INSERT INTO SYS_CIDADES VALUES(270, 'So Gabriel da Cachoeira', 3, 1303809); +INSERT INTO SYS_CIDADES VALUES(271, 'So Paulo de Olivena', 3, 1303908); +INSERT INTO SYS_CIDADES VALUES(272, 'So Sebastio do Uatum', 3, 1303957); +INSERT INTO SYS_CIDADES VALUES(273, 'Silves', 3, 1304005); +INSERT INTO SYS_CIDADES VALUES(274, 'Tabatinga', 3, 1304062); +INSERT INTO SYS_CIDADES VALUES(275, 'Tapau', 3, 1304104); +INSERT INTO SYS_CIDADES VALUES(276, 'Tef', 3, 1304203); +INSERT INTO SYS_CIDADES VALUES(277, 'Tonantins', 3, 1304237); +INSERT INTO SYS_CIDADES VALUES(278, 'Uarini', 3, 1304260); +INSERT INTO SYS_CIDADES VALUES(279, 'Urucar', 3, 1304302); +INSERT INTO SYS_CIDADES VALUES(280, 'Urucurituba', 3, 1304401); +INSERT INTO SYS_CIDADES VALUES(281, 'Abara', 5, 2900108); +INSERT INTO SYS_CIDADES VALUES(282, 'Abar', 5, 2900207); +INSERT INTO SYS_CIDADES VALUES(283, 'Acajutiba', 5, 2900306); +INSERT INTO SYS_CIDADES VALUES(284, 'Adustina', 5, 2900355); +INSERT INTO SYS_CIDADES VALUES(285, 'gua Fria', 5, 2900405); +INSERT INTO SYS_CIDADES VALUES(286, 'Aiquara', 5, 2900603); +INSERT INTO SYS_CIDADES VALUES(287, 'Alagoinhas', 5, 2900702); +INSERT INTO SYS_CIDADES VALUES(288, 'Alcobaa', 5, 2900801); +INSERT INTO SYS_CIDADES VALUES(289, 'Almadina', 5, 2900900); +INSERT INTO SYS_CIDADES VALUES(290, 'Amargosa', 5, 2901007); +INSERT INTO SYS_CIDADES VALUES(291, 'Amlia Rodrigues', 5, 2901106); +INSERT INTO SYS_CIDADES VALUES(292, 'Amrica Dourada', 5, 2901155); +INSERT INTO SYS_CIDADES VALUES(293, 'Anag', 5, 2901205); +INSERT INTO SYS_CIDADES VALUES(294, 'Andara', 5, 2901304); +INSERT INTO SYS_CIDADES VALUES(295, 'Andorinha', 5, 2901353); +INSERT INTO SYS_CIDADES VALUES(296, 'Angical', 5, 2901403); +INSERT INTO SYS_CIDADES VALUES(297, 'Anguera', 5, 2901502); +INSERT INTO SYS_CIDADES VALUES(298, 'Antas', 5, 2901601); +INSERT INTO SYS_CIDADES VALUES(299, 'Antnio Cardoso', 5, 2901700); +INSERT INTO SYS_CIDADES VALUES(300, 'Antnio Gonalves', 5, 2901809); +INSERT INTO SYS_CIDADES VALUES(301, 'Apor', 5, 2901908); +INSERT INTO SYS_CIDADES VALUES(302, 'Apuarema', 5, 2901957); +INSERT INTO SYS_CIDADES VALUES(303, 'Araas', 5, 2902054); +INSERT INTO SYS_CIDADES VALUES(304, 'Aracatu', 5, 2902005); +INSERT INTO SYS_CIDADES VALUES(305, 'Araci', 5, 2902104); +INSERT INTO SYS_CIDADES VALUES(306, 'Aramari', 5, 2902203); +INSERT INTO SYS_CIDADES VALUES(307, 'Arataca', 5, 2902252); +INSERT INTO SYS_CIDADES VALUES(308, 'Aratupe', 5, 2902302); +INSERT INTO SYS_CIDADES VALUES(309, 'Aurelino Leal', 5, 2902401); +INSERT INTO SYS_CIDADES VALUES(310, 'Baianpolis', 5, 2902500); +INSERT INTO SYS_CIDADES VALUES(311, 'Baixa Grande', 5, 2902609); +INSERT INTO SYS_CIDADES VALUES(312, 'Banza', 5, 2902658); +INSERT INTO SYS_CIDADES VALUES(313, 'Barra', 5, 2902708); +INSERT INTO SYS_CIDADES VALUES(314, 'Barra da Estiva', 5, 2902807); +INSERT INTO SYS_CIDADES VALUES(315, 'Barra do Choa', 5, 2902906); +INSERT INTO SYS_CIDADES VALUES(316, 'Barra do Mendes', 5, 2903003); +INSERT INTO SYS_CIDADES VALUES(317, 'Barra do Rocha', 5, 2903102); +INSERT INTO SYS_CIDADES VALUES(318, 'Barreiras', 5, 2903201); +INSERT INTO SYS_CIDADES VALUES(319, 'Barro Alto', 5, 2903235); +INSERT INTO SYS_CIDADES VALUES(320, 'Barro Preto (antigo Gov. Lomanto Jr.)', 5, 2903300); +INSERT INTO SYS_CIDADES VALUES(321, 'Barrocas', 5, 2903276); +INSERT INTO SYS_CIDADES VALUES(322, 'Belmonte', 5, 2903409); +INSERT INTO SYS_CIDADES VALUES(323, 'Belo Campo', 5, 2903508); +INSERT INTO SYS_CIDADES VALUES(324, 'Biritinga', 5, 2903607); +INSERT INTO SYS_CIDADES VALUES(325, 'Boa Nova', 5, 2903706); +INSERT INTO SYS_CIDADES VALUES(326, 'Boa Vista do Tupim', 5, 2903805); +INSERT INTO SYS_CIDADES VALUES(327, 'Bom Jesus da Lapa', 5, 2903904); +INSERT INTO SYS_CIDADES VALUES(328, 'Bom Jesus da Serra', 5, 2903953); +INSERT INTO SYS_CIDADES VALUES(329, 'Boninal', 5, 2904001); +INSERT INTO SYS_CIDADES VALUES(330, 'Bonito', 5, 2904050); +INSERT INTO SYS_CIDADES VALUES(331, 'Boquira', 5, 2904100); +INSERT INTO SYS_CIDADES VALUES(332, 'Botupor', 5, 2904209); +INSERT INTO SYS_CIDADES VALUES(333, 'Brejes', 5, 2904308); +INSERT INTO SYS_CIDADES VALUES(334, 'Brejolndia', 5, 2904407); +INSERT INTO SYS_CIDADES VALUES(335, 'Brotas de Macabas', 5, 2904506); +INSERT INTO SYS_CIDADES VALUES(336, 'Brumado', 5, 2904605); +INSERT INTO SYS_CIDADES VALUES(337, 'Buerarema', 5, 2904704); +INSERT INTO SYS_CIDADES VALUES(338, 'Buritirama', 5, 2904753); +INSERT INTO SYS_CIDADES VALUES(339, 'Caatiba', 5, 2904803); +INSERT INTO SYS_CIDADES VALUES(340, 'Cabaceiras do Paraguau', 5, 2904852); +INSERT INTO SYS_CIDADES VALUES(341, 'Cachoeira', 5, 2904902); +INSERT INTO SYS_CIDADES VALUES(342, 'Cacul', 5, 2905008); +INSERT INTO SYS_CIDADES VALUES(343, 'Cam', 5, 2905107); +INSERT INTO SYS_CIDADES VALUES(344, 'Caetanos', 5, 2905156); +INSERT INTO SYS_CIDADES VALUES(345, 'Caetit', 5, 2905206); +INSERT INTO SYS_CIDADES VALUES(346, 'Cafarnaum', 5, 2905305); +INSERT INTO SYS_CIDADES VALUES(347, 'Cairu', 5, 2905404); +INSERT INTO SYS_CIDADES VALUES(348, 'Caldeiro Grande', 5, 2905503); +INSERT INTO SYS_CIDADES VALUES(349, 'Camacan', 5, 2905602); +INSERT INTO SYS_CIDADES VALUES(350, 'Camaari', 5, 2905701); +INSERT INTO SYS_CIDADES VALUES(351, 'Camamu', 5, 2905800); +INSERT INTO SYS_CIDADES VALUES(352, 'Campo Alegre de Lourdes', 5, 2905909); +INSERT INTO SYS_CIDADES VALUES(353, 'Campo Formoso', 5, 2906006); +INSERT INTO SYS_CIDADES VALUES(354, 'Canpolis', 5, 2906105); +INSERT INTO SYS_CIDADES VALUES(355, 'Canarana', 5, 2906204); +INSERT INTO SYS_CIDADES VALUES(356, 'Canavieiras', 5, 2906303); +INSERT INTO SYS_CIDADES VALUES(357, 'Candeal', 5, 2906402); +INSERT INTO SYS_CIDADES VALUES(358, 'Candeias', 5, 2906501); +INSERT INTO SYS_CIDADES VALUES(359, 'Candiba', 5, 2906600); +INSERT INTO SYS_CIDADES VALUES(360, 'Cndido Sales', 5, 2906709); +INSERT INTO SYS_CIDADES VALUES(361, 'Cansano', 5, 2906808); +INSERT INTO SYS_CIDADES VALUES(362, 'Canudos', 5, 2906824); +INSERT INTO SYS_CIDADES VALUES(363, 'Capela do Alto Alegre', 5, 2906857); +INSERT INTO SYS_CIDADES VALUES(364, 'Capim Grosso', 5, 2906873); +INSERT INTO SYS_CIDADES VALUES(365, 'Carabas', 5, 2906899); +INSERT INTO SYS_CIDADES VALUES(366, 'Caravelas', 5, 2906907); +INSERT INTO SYS_CIDADES VALUES(367, 'Cardeal da Silva', 5, 2907004); +INSERT INTO SYS_CIDADES VALUES(368, 'Carinhanha', 5, 2907103); +INSERT INTO SYS_CIDADES VALUES(369, 'Casa Nova', 5, 2907202); +INSERT INTO SYS_CIDADES VALUES(370, 'Castro Alves', 5, 2907301); +INSERT INTO SYS_CIDADES VALUES(371, 'Catolndia', 5, 2907400); +INSERT INTO SYS_CIDADES VALUES(372, 'Catu', 5, 2907509); +INSERT INTO SYS_CIDADES VALUES(373, 'Caturama', 5, 2907558); +INSERT INTO SYS_CIDADES VALUES(374, 'Central', 5, 2907608); +INSERT INTO SYS_CIDADES VALUES(375, 'Chorroch', 5, 2907707); +INSERT INTO SYS_CIDADES VALUES(376, 'Ccero Dantas', 5, 2907806); +INSERT INTO SYS_CIDADES VALUES(377, 'Cip', 5, 2907905); +INSERT INTO SYS_CIDADES VALUES(378, 'Coaraci', 5, 2908002); +INSERT INTO SYS_CIDADES VALUES(379, 'Cocos', 5, 2908101); +INSERT INTO SYS_CIDADES VALUES(380, 'Conceio da Feira', 5, 2908200); +INSERT INTO SYS_CIDADES VALUES(381, 'Conceio do Almeida', 5, 2908309); +INSERT INTO SYS_CIDADES VALUES(382, 'Conceio do Coit', 5, 2908408); +INSERT INTO SYS_CIDADES VALUES(383, 'Conceio do Jacupe', 5, 2908507); +INSERT INTO SYS_CIDADES VALUES(384, 'Conde', 5, 2908606); +INSERT INTO SYS_CIDADES VALUES(385, 'Condeba', 5, 2908705); +INSERT INTO SYS_CIDADES VALUES(386, 'Contendas do Sincor', 5, 2908804); +INSERT INTO SYS_CIDADES VALUES(387, 'Corao de Maria', 5, 2908903); +INSERT INTO SYS_CIDADES VALUES(388, 'Cordeiros', 5, 2909000); +INSERT INTO SYS_CIDADES VALUES(389, 'Coribe', 5, 2909109); +INSERT INTO SYS_CIDADES VALUES(390, 'Coronel Joo S', 5, 2909208); +INSERT INTO SYS_CIDADES VALUES(391, 'Correntina', 5, 2909307); +INSERT INTO SYS_CIDADES VALUES(392, 'Cotegipe', 5, 2909406); +INSERT INTO SYS_CIDADES VALUES(393, 'Cravolndia', 5, 2909505); +INSERT INTO SYS_CIDADES VALUES(394, 'Crispolis', 5, 2909604); +INSERT INTO SYS_CIDADES VALUES(395, 'Cristpolis', 5, 2909703); +INSERT INTO SYS_CIDADES VALUES(396, 'Cruz das Almas', 5, 2909802); +INSERT INTO SYS_CIDADES VALUES(397, 'Cura', 5, 2909901); +INSERT INTO SYS_CIDADES VALUES(398, 'Drio Meira', 5, 2910008); +INSERT INTO SYS_CIDADES VALUES(399, 'Dias d`vila', 5, 2910057); +INSERT INTO SYS_CIDADES VALUES(400, 'Dom Baslio', 5, 2910107); +INSERT INTO SYS_CIDADES VALUES(401, 'Dom Macedo Costa', 5, 2910206); +INSERT INTO SYS_CIDADES VALUES(402, 'Elsio Medrado', 5, 2910305); +INSERT INTO SYS_CIDADES VALUES(403, 'Encruzilhada', 5, 2910404); +INSERT INTO SYS_CIDADES VALUES(404, 'Entre Rios', 5, 2910503); +INSERT INTO SYS_CIDADES VALUES(405, 'rico Cardoso', 5, 2900504); +INSERT INTO SYS_CIDADES VALUES(406, 'Esplanada', 5, 2910602); +INSERT INTO SYS_CIDADES VALUES(407, 'Euclides da Cunha', 5, 2910701); +INSERT INTO SYS_CIDADES VALUES(408, 'Eunpolis', 5, 2910727); +INSERT INTO SYS_CIDADES VALUES(409, 'Ftima', 5, 2910750); +INSERT INTO SYS_CIDADES VALUES(410, 'Feira da Mata', 5, 2910776); +INSERT INTO SYS_CIDADES VALUES(411, 'Feira de Santana', 5, 2910800); +INSERT INTO SYS_CIDADES VALUES(412, 'Filadlfia', 5, 2910859); +INSERT INTO SYS_CIDADES VALUES(413, 'Firmino Alves', 5, 2910909); +INSERT INTO SYS_CIDADES VALUES(414, 'Floresta Azul', 5, 2911006); +INSERT INTO SYS_CIDADES VALUES(415, 'Formosa do Rio Preto', 5, 2911105); +INSERT INTO SYS_CIDADES VALUES(416, 'Gandu', 5, 2911204); +INSERT INTO SYS_CIDADES VALUES(417, 'Gavio', 5, 2911253); +INSERT INTO SYS_CIDADES VALUES(418, 'Gentio do Ouro', 5, 2911303); +INSERT INTO SYS_CIDADES VALUES(419, 'Glria', 5, 2911402); +INSERT INTO SYS_CIDADES VALUES(420, 'Gongogi', 5, 2911501); +INSERT INTO SYS_CIDADES VALUES(421, 'Governador Mangabeira', 5, 2911600); +INSERT INTO SYS_CIDADES VALUES(422, 'Guajeru', 5, 2911659); +INSERT INTO SYS_CIDADES VALUES(423, 'Guanambi', 5, 2911709); +INSERT INTO SYS_CIDADES VALUES(424, 'Guaratinga', 5, 2911808); +INSERT INTO SYS_CIDADES VALUES(425, 'Helipolis', 5, 2911857); +INSERT INTO SYS_CIDADES VALUES(426, 'Iau', 5, 2911907); +INSERT INTO SYS_CIDADES VALUES(427, 'Ibiassuc', 5, 2912004); +INSERT INTO SYS_CIDADES VALUES(428, 'Ibicara', 5, 2912103); +INSERT INTO SYS_CIDADES VALUES(429, 'Ibicoara', 5, 2912202); +INSERT INTO SYS_CIDADES VALUES(430, 'Ibicu', 5, 2912301); +INSERT INTO SYS_CIDADES VALUES(431, 'Ibipeba', 5, 2912400); +INSERT INTO SYS_CIDADES VALUES(432, 'Ibipitanga', 5, 2912509); +INSERT INTO SYS_CIDADES VALUES(433, 'Ibiquera', 5, 2912608); +INSERT INTO SYS_CIDADES VALUES(434, 'Ibirapitanga', 5, 2912707); +INSERT INTO SYS_CIDADES VALUES(435, 'Ibirapu', 5, 2912806); +INSERT INTO SYS_CIDADES VALUES(436, 'Ibirataia', 5, 2912905); +INSERT INTO SYS_CIDADES VALUES(437, 'Ibitiara', 5, 2913002); +INSERT INTO SYS_CIDADES VALUES(438, 'Ibitit', 5, 2913101); +INSERT INTO SYS_CIDADES VALUES(439, 'Ibotirama', 5, 2913200); +INSERT INTO SYS_CIDADES VALUES(440, 'Ichu', 5, 2913309); +INSERT INTO SYS_CIDADES VALUES(441, 'Igapor', 5, 2913408); +INSERT INTO SYS_CIDADES VALUES(442, 'Igrapina', 5, 2913457); +INSERT INTO SYS_CIDADES VALUES(443, 'Igua', 5, 2913507); +INSERT INTO SYS_CIDADES VALUES(444, 'Ilhus', 5, 2913606); +INSERT INTO SYS_CIDADES VALUES(445, 'Inhambupe', 5, 2913705); +INSERT INTO SYS_CIDADES VALUES(446, 'Ipecaet', 5, 2913804); +INSERT INTO SYS_CIDADES VALUES(447, 'Ipia', 5, 2913903); +INSERT INTO SYS_CIDADES VALUES(448, 'Ipir', 5, 2914000); +INSERT INTO SYS_CIDADES VALUES(449, 'Ipupiara', 5, 2914109); +INSERT INTO SYS_CIDADES VALUES(450, 'Irajuba', 5, 2914208); +INSERT INTO SYS_CIDADES VALUES(451, 'Iramaia', 5, 2914307); +INSERT INTO SYS_CIDADES VALUES(452, 'Iraquara', 5, 2914406); +INSERT INTO SYS_CIDADES VALUES(453, 'Irar', 5, 2914505); +INSERT INTO SYS_CIDADES VALUES(454, 'Irec', 5, 2914604); +INSERT INTO SYS_CIDADES VALUES(455, 'Itabela', 5, 2914653); +INSERT INTO SYS_CIDADES VALUES(456, 'Itaberaba', 5, 2914703); +INSERT INTO SYS_CIDADES VALUES(457, 'Itabuna', 5, 2914802); +INSERT INTO SYS_CIDADES VALUES(458, 'Itacar', 5, 2914901); +INSERT INTO SYS_CIDADES VALUES(459, 'Itaet', 5, 2915007); +INSERT INTO SYS_CIDADES VALUES(460, 'Itagi', 5, 2915106); +INSERT INTO SYS_CIDADES VALUES(461, 'Itagib', 5, 2915205); +INSERT INTO SYS_CIDADES VALUES(462, 'Itagimirim', 5, 2915304); +INSERT INTO SYS_CIDADES VALUES(463, 'Itaguau da Bahia', 5, 2915353); +INSERT INTO SYS_CIDADES VALUES(464, 'Itaju do Colnia', 5, 2915403); +INSERT INTO SYS_CIDADES VALUES(465, 'Itajupe', 5, 2915502); +INSERT INTO SYS_CIDADES VALUES(466, 'Itamaraju', 5, 2915601); +INSERT INTO SYS_CIDADES VALUES(467, 'Itamari', 5, 2915700); +INSERT INTO SYS_CIDADES VALUES(468, 'Itamb', 5, 2915809); +INSERT INTO SYS_CIDADES VALUES(469, 'Itanagra', 5, 2915908); +INSERT INTO SYS_CIDADES VALUES(470, 'Itanhm', 5, 2916005); +INSERT INTO SYS_CIDADES VALUES(471, 'Itaparica', 5, 2916104); +INSERT INTO SYS_CIDADES VALUES(472, 'Itap', 5, 2916203); +INSERT INTO SYS_CIDADES VALUES(473, 'Itapebi', 5, 2916302); +INSERT INTO SYS_CIDADES VALUES(474, 'Itapetinga', 5, 2916401); +INSERT INTO SYS_CIDADES VALUES(475, 'Itapicuru', 5, 2916500); +INSERT INTO SYS_CIDADES VALUES(476, 'Itapitanga', 5, 2916609); +INSERT INTO SYS_CIDADES VALUES(477, 'Itaquara', 5, 2916708); +INSERT INTO SYS_CIDADES VALUES(478, 'Itarantim', 5, 2916807); +INSERT INTO SYS_CIDADES VALUES(479, 'Itatim', 5, 2916856); +INSERT INTO SYS_CIDADES VALUES(480, 'Itiruu', 5, 2916906); +INSERT INTO SYS_CIDADES VALUES(481, 'Itiba', 5, 2917003); +INSERT INTO SYS_CIDADES VALUES(482, 'Itoror', 5, 2917102); +INSERT INTO SYS_CIDADES VALUES(483, 'Ituau', 5, 2917201); +INSERT INTO SYS_CIDADES VALUES(484, 'Ituber', 5, 2917300); +INSERT INTO SYS_CIDADES VALUES(485, 'Iui', 5, 2917334); +INSERT INTO SYS_CIDADES VALUES(486, 'Jaborandi', 5, 2917359); +INSERT INTO SYS_CIDADES VALUES(487, 'Jacaraci', 5, 2917409); +INSERT INTO SYS_CIDADES VALUES(488, 'Jacobina', 5, 2917508); +INSERT INTO SYS_CIDADES VALUES(489, 'Jaguaquara', 5, 2917607); +INSERT INTO SYS_CIDADES VALUES(490, 'Jaguarari', 5, 2917706); +INSERT INTO SYS_CIDADES VALUES(491, 'Jaguaripe', 5, 2917805); +INSERT INTO SYS_CIDADES VALUES(492, 'Jandara', 5, 2917904); +INSERT INTO SYS_CIDADES VALUES(493, 'Jequi', 5, 2918001); +INSERT INTO SYS_CIDADES VALUES(494, 'Jeremoabo', 5, 2918100); +INSERT INTO SYS_CIDADES VALUES(495, 'Jiquiri', 5, 2918209); +INSERT INTO SYS_CIDADES VALUES(496, 'Jitana', 5, 2918308); +INSERT INTO SYS_CIDADES VALUES(497, 'Joo Dourado', 5, 2918357); +INSERT INTO SYS_CIDADES VALUES(498, 'Juazeiro', 5, 2918407); +INSERT INTO SYS_CIDADES VALUES(499, 'Jucuruu', 5, 2918456); +INSERT INTO SYS_CIDADES VALUES(500, 'Jussara', 5, 2918506); +INSERT INTO SYS_CIDADES VALUES(501, 'Jussari', 5, 2918555); +INSERT INTO SYS_CIDADES VALUES(502, 'Jussiape', 5, 2918605); +INSERT INTO SYS_CIDADES VALUES(503, 'Lafaiete Coutinho', 5, 2918704); +INSERT INTO SYS_CIDADES VALUES(504, 'Lagoa Real', 5, 2918753); +INSERT INTO SYS_CIDADES VALUES(505, 'Laje', 5, 2918803); +INSERT INTO SYS_CIDADES VALUES(506, 'Lajedo', 5, 2918902); +INSERT INTO SYS_CIDADES VALUES(507, 'Lajedinho', 5, 2919009); +INSERT INTO SYS_CIDADES VALUES(508, 'Lajedo do Tabocal', 5, 2919058); +INSERT INTO SYS_CIDADES VALUES(509, 'Lamaro', 5, 2919108); +INSERT INTO SYS_CIDADES VALUES(510, 'Lapo', 5, 2919157); +INSERT INTO SYS_CIDADES VALUES(511, 'Lauro de Freitas', 5, 2919207); +INSERT INTO SYS_CIDADES VALUES(512, 'Lenis', 5, 2919306); +INSERT INTO SYS_CIDADES VALUES(513, 'Licnio de Almeida', 5, 2919405); +INSERT INTO SYS_CIDADES VALUES(514, 'Livramento de Nossa Senhora', 5, 2919504); +INSERT INTO SYS_CIDADES VALUES(515, 'Lus Eduardo Magalhes', 5, 2919553); +INSERT INTO SYS_CIDADES VALUES(516, 'Macajuba', 5, 2919603); +INSERT INTO SYS_CIDADES VALUES(517, 'Macarani', 5, 2919702); +INSERT INTO SYS_CIDADES VALUES(518, 'Macabas', 5, 2919801); +INSERT INTO SYS_CIDADES VALUES(519, 'Macurur', 5, 2919900); +INSERT INTO SYS_CIDADES VALUES(520, 'Madre de Deus', 5, 2919926); +INSERT INTO SYS_CIDADES VALUES(521, 'Maetinga', 5, 2919959); +INSERT INTO SYS_CIDADES VALUES(522, 'Maiquinique', 5, 2920007); +INSERT INTO SYS_CIDADES VALUES(523, 'Mairi', 5, 2920106); +INSERT INTO SYS_CIDADES VALUES(524, 'Malhada', 5, 2920205); +INSERT INTO SYS_CIDADES VALUES(525, 'Malhada de Pedras', 5, 2920304); +INSERT INTO SYS_CIDADES VALUES(526, 'Manoel Vitorino', 5, 2920403); +INSERT INTO SYS_CIDADES VALUES(527, 'Mansido', 5, 2920452); +INSERT INTO SYS_CIDADES VALUES(528, 'Maracs', 5, 2920502); +INSERT INTO SYS_CIDADES VALUES(529, 'Maragogipe', 5, 2920601); +INSERT INTO SYS_CIDADES VALUES(530, 'Mara', 5, 2920700); +INSERT INTO SYS_CIDADES VALUES(531, 'Marcionlio Souza', 5, 2920809); +INSERT INTO SYS_CIDADES VALUES(532, 'Mascote', 5, 2920908); +INSERT INTO SYS_CIDADES VALUES(533, 'Mata de So Joo', 5, 2921005); +INSERT INTO SYS_CIDADES VALUES(534, 'Matina', 5, 2921054); +INSERT INTO SYS_CIDADES VALUES(535, 'Medeiros Neto', 5, 2921104); +INSERT INTO SYS_CIDADES VALUES(536, 'Miguel Calmon', 5, 2921203); +INSERT INTO SYS_CIDADES VALUES(537, 'Milagres', 5, 2921302); +INSERT INTO SYS_CIDADES VALUES(538, 'Mirangaba', 5, 2921401); +INSERT INTO SYS_CIDADES VALUES(539, 'Mirante', 5, 2921450); +INSERT INTO SYS_CIDADES VALUES(540, 'Monte Santo', 5, 2921500); +INSERT INTO SYS_CIDADES VALUES(541, 'Morpar', 5, 2921609); +INSERT INTO SYS_CIDADES VALUES(542, 'Morro do Chapu', 5, 2921708); +INSERT INTO SYS_CIDADES VALUES(543, 'Mortugaba', 5, 2921807); +INSERT INTO SYS_CIDADES VALUES(544, 'Mucug', 5, 2921906); +INSERT INTO SYS_CIDADES VALUES(545, 'Mucuri', 5, 2922003); +INSERT INTO SYS_CIDADES VALUES(546, 'Mulungu do Morro', 5, 2922052); +INSERT INTO SYS_CIDADES VALUES(547, 'Mundo Novo', 5, 2922102); +INSERT INTO SYS_CIDADES VALUES(548, 'Muniz Ferreira', 5, 2922201); +INSERT INTO SYS_CIDADES VALUES(549, 'Muqum de So Francisco', 5, 2922250); +INSERT INTO SYS_CIDADES VALUES(550, 'Muritiba', 5, 2922300); +INSERT INTO SYS_CIDADES VALUES(551, 'Mutupe', 5, 2922409); +INSERT INTO SYS_CIDADES VALUES(552, 'Nazar', 5, 2922508); +INSERT INTO SYS_CIDADES VALUES(553, 'Nilo Peanha', 5, 2922607); +INSERT INTO SYS_CIDADES VALUES(554, 'Nordestina', 5, 2922656); +INSERT INTO SYS_CIDADES VALUES(555, 'Nova Cana', 5, 2922706); +INSERT INTO SYS_CIDADES VALUES(556, 'Nova Ftima', 5, 2922730); +INSERT INTO SYS_CIDADES VALUES(557, 'Nova Ibi', 5, 2922755); +INSERT INTO SYS_CIDADES VALUES(558, 'Nova Itarana', 5, 2922805); +INSERT INTO SYS_CIDADES VALUES(559, 'Nova Redeno', 5, 2922854); +INSERT INTO SYS_CIDADES VALUES(560, 'Nova Soure', 5, 2922904); +INSERT INTO SYS_CIDADES VALUES(561, 'Nova Viosa', 5, 2923001); +INSERT INTO SYS_CIDADES VALUES(562, 'Novo Horizonte', 5, 2923035); +INSERT INTO SYS_CIDADES VALUES(563, 'Novo Triunfo', 5, 2923050); +INSERT INTO SYS_CIDADES VALUES(564, 'Olindina', 5, 2923100); +INSERT INTO SYS_CIDADES VALUES(565, 'Oliveira dos Brejinhos', 5, 2923209); +INSERT INTO SYS_CIDADES VALUES(566, 'Ouriangas', 5, 2923308); +INSERT INTO SYS_CIDADES VALUES(567, 'Ourolndia', 5, 2923357); +INSERT INTO SYS_CIDADES VALUES(568, 'Palmas de Monte Alto', 5, 2923407); +INSERT INTO SYS_CIDADES VALUES(569, 'Palmeiras', 5, 2923506); +INSERT INTO SYS_CIDADES VALUES(570, 'Paramirim', 5, 2923605); +INSERT INTO SYS_CIDADES VALUES(571, 'Paratinga', 5, 2923704); +INSERT INTO SYS_CIDADES VALUES(572, 'Paripiranga', 5, 2923803); +INSERT INTO SYS_CIDADES VALUES(573, 'Pau Brasil', 5, 2923902); +INSERT INTO SYS_CIDADES VALUES(574, 'Paulo Afonso', 5, 2924009); +INSERT INTO SYS_CIDADES VALUES(575, 'P de Serra', 5, 2924058); +INSERT INTO SYS_CIDADES VALUES(576, 'Pedro', 5, 2924108); +INSERT INTO SYS_CIDADES VALUES(577, 'Pedro Alexandre', 5, 2924207); +INSERT INTO SYS_CIDADES VALUES(578, 'Piat', 5, 2924306); +INSERT INTO SYS_CIDADES VALUES(579, 'Pilo Arcado', 5, 2924405); +INSERT INTO SYS_CIDADES VALUES(580, 'Pinda', 5, 2924504); +INSERT INTO SYS_CIDADES VALUES(581, 'Pindobau', 5, 2924603); +INSERT INTO SYS_CIDADES VALUES(582, 'Pintadas', 5, 2924652); +INSERT INTO SYS_CIDADES VALUES(583, 'Pira do Norte', 5, 2924678); +INSERT INTO SYS_CIDADES VALUES(584, 'Pirip', 5, 2924702); +INSERT INTO SYS_CIDADES VALUES(585, 'Piritiba', 5, 2924801); +INSERT INTO SYS_CIDADES VALUES(586, 'Planaltino', 5, 2924900); +INSERT INTO SYS_CIDADES VALUES(587, 'Planalto', 5, 2925006); +INSERT INTO SYS_CIDADES VALUES(588, 'Poes', 5, 2925105); +INSERT INTO SYS_CIDADES VALUES(589, 'Pojuca', 5, 2925204); +INSERT INTO SYS_CIDADES VALUES(590, 'Ponto Novo', 5, 2925253); +INSERT INTO SYS_CIDADES VALUES(591, 'Porto Seguro', 5, 2925303); +INSERT INTO SYS_CIDADES VALUES(592, 'Potiragu', 5, 2925402); +INSERT INTO SYS_CIDADES VALUES(593, 'Prado', 5, 2925501); +INSERT INTO SYS_CIDADES VALUES(594, 'Presidente Dutra', 5, 2925600); +INSERT INTO SYS_CIDADES VALUES(595, 'Presidente Jnio Quadros', 5, 2925709); +INSERT INTO SYS_CIDADES VALUES(596, 'Presidente Tancredo Neves', 5, 2925758); +INSERT INTO SYS_CIDADES VALUES(597, 'Queimadas', 5, 2925808); +INSERT INTO SYS_CIDADES VALUES(598, 'Quijingue', 5, 2925907); +INSERT INTO SYS_CIDADES VALUES(599, 'Quixabeira', 5, 2925931); +INSERT INTO SYS_CIDADES VALUES(600, 'Rafael Jambeiro', 5, 2925956); +INSERT INTO SYS_CIDADES VALUES(601, 'Remanso', 5, 2926004); +INSERT INTO SYS_CIDADES VALUES(602, 'Retirolndia', 5, 2926103); +INSERT INTO SYS_CIDADES VALUES(603, 'Riacho das Neves', 5, 2926202); +INSERT INTO SYS_CIDADES VALUES(604, 'Riacho do Jacupe', 5, 2926301); +INSERT INTO SYS_CIDADES VALUES(605, 'Riacho de Santana', 5, 2926400); +INSERT INTO SYS_CIDADES VALUES(606, 'Ribeira do Amparo', 5, 2926509); +INSERT INTO SYS_CIDADES VALUES(607, 'Ribeira do Pombal', 5, 2926608); +INSERT INTO SYS_CIDADES VALUES(608, 'Ribeiro do Largo', 5, 2926657); +INSERT INTO SYS_CIDADES VALUES(609, 'Rio de Contas', 5, 2926707); +INSERT INTO SYS_CIDADES VALUES(610, 'Rio do Antnio', 5, 2926806); +INSERT INTO SYS_CIDADES VALUES(611, 'Rio do Pires', 5, 2926905); +INSERT INTO SYS_CIDADES VALUES(612, 'Rio Real', 5, 2927002); +INSERT INTO SYS_CIDADES VALUES(613, 'Rodelas', 5, 2927101); +INSERT INTO SYS_CIDADES VALUES(614, 'Ruy Barbosa', 5, 2927200); +INSERT INTO SYS_CIDADES VALUES(615, 'Salinas da Margarida', 5, 2927309); +INSERT INTO SYS_CIDADES VALUES(616, 'Salvador', 5, 2927408); +INSERT INTO SYS_CIDADES VALUES(617, 'Santa Brbara', 5, 2927507); +INSERT INTO SYS_CIDADES VALUES(618, 'Santa Brgida', 5, 2927606); +INSERT INTO SYS_CIDADES VALUES(619, 'Santa Cruz Cabrlia', 5, 2927705); +INSERT INTO SYS_CIDADES VALUES(620, 'Santa Cruz da Vitria', 5, 2927804); +INSERT INTO SYS_CIDADES VALUES(621, 'Santa Ins', 5, 2927903); +INSERT INTO SYS_CIDADES VALUES(622, 'Santa Luzia', 5, 2928059); +INSERT INTO SYS_CIDADES VALUES(623, 'Santa Maria da Vitria', 5, 2928109); +INSERT INTO SYS_CIDADES VALUES(624, 'Santa Rita de Cssia', 5, 2928406); +INSERT INTO SYS_CIDADES VALUES(625, 'Santa Teresinha', 5, 2928505); +INSERT INTO SYS_CIDADES VALUES(626, 'Santaluz', 5, 2928000); +INSERT INTO SYS_CIDADES VALUES(627, 'Santana', 5, 2928208); +INSERT INTO SYS_CIDADES VALUES(628, 'Santanpolis', 5, 2928307); +INSERT INTO SYS_CIDADES VALUES(629, 'Santo Amaro', 5, 2928604); +INSERT INTO SYS_CIDADES VALUES(630, 'Santo Antnio de Jesus', 5, 2928703); +INSERT INTO SYS_CIDADES VALUES(631, 'Santo Estvo', 5, 2928802); +INSERT INTO SYS_CIDADES VALUES(632, 'So Desidrio', 5, 2928901); +INSERT INTO SYS_CIDADES VALUES(633, 'So Domingos', 5, 2928950); +INSERT INTO SYS_CIDADES VALUES(634, 'So Felipe', 5, 2929107); +INSERT INTO SYS_CIDADES VALUES(635, 'So Flix', 5, 2929008); +INSERT INTO SYS_CIDADES VALUES(636, 'So Flix do Coribe', 5, 2929057); +INSERT INTO SYS_CIDADES VALUES(637, 'So Francisco do Conde', 5, 2929206); +INSERT INTO SYS_CIDADES VALUES(638, 'So Gabriel', 5, 2929255); +INSERT INTO SYS_CIDADES VALUES(639, 'So Gonalo dos Campos', 5, 2929305); +INSERT INTO SYS_CIDADES VALUES(640, 'So Jos da Vitria', 5, 2929354); +INSERT INTO SYS_CIDADES VALUES(641, 'So Jos do Jacupe', 5, 2929370); +INSERT INTO SYS_CIDADES VALUES(642, 'So Miguel das Matas', 5, 2929404); +INSERT INTO SYS_CIDADES VALUES(643, 'So Sebastio do Pass', 5, 2929503); +INSERT INTO SYS_CIDADES VALUES(644, 'Sapeau', 5, 2929602); +INSERT INTO SYS_CIDADES VALUES(645, 'Stiro Dias', 5, 2929701); +INSERT INTO SYS_CIDADES VALUES(646, 'Saubara', 5, 2929750); +INSERT INTO SYS_CIDADES VALUES(647, 'Sade', 5, 2929800); +INSERT INTO SYS_CIDADES VALUES(648, 'Seabra', 5, 2929909); +INSERT INTO SYS_CIDADES VALUES(649, 'Sebastio Laranjeiras', 5, 2930006); +INSERT INTO SYS_CIDADES VALUES(650, 'Senhor do Bonfim', 5, 2930105); +INSERT INTO SYS_CIDADES VALUES(651, 'Sento S', 5, 2930204); +INSERT INTO SYS_CIDADES VALUES(652, 'Serra do Ramalho', 5, 2930154); +INSERT INTO SYS_CIDADES VALUES(653, 'Serra Dourada', 5, 2930303); +INSERT INTO SYS_CIDADES VALUES(654, 'Serra Preta', 5, 2930402); +INSERT INTO SYS_CIDADES VALUES(655, 'Serrinha', 5, 2930501); +INSERT INTO SYS_CIDADES VALUES(656, 'Serrolndia', 5, 2930600); +INSERT INTO SYS_CIDADES VALUES(657, 'Simes Filho', 5, 2930709); +INSERT INTO SYS_CIDADES VALUES(658, 'Stio do Mato', 5, 2930758); +INSERT INTO SYS_CIDADES VALUES(659, 'Stio do Quinto', 5, 2930766); +INSERT INTO SYS_CIDADES VALUES(660, 'Sobradinho', 5, 2930774); +INSERT INTO SYS_CIDADES VALUES(661, 'Souto Soares', 5, 2930808); +INSERT INTO SYS_CIDADES VALUES(662, 'Tabocas do Brejo Velho', 5, 2930907); +INSERT INTO SYS_CIDADES VALUES(663, 'Tanhau', 5, 2931004); +INSERT INTO SYS_CIDADES VALUES(664, 'Tanque Novo', 5, 2931053); +INSERT INTO SYS_CIDADES VALUES(665, 'Tanquinho', 5, 2931103); +INSERT INTO SYS_CIDADES VALUES(666, 'Tapero', 5, 2931202); +INSERT INTO SYS_CIDADES VALUES(667, 'Tapiramut', 5, 2931301); +INSERT INTO SYS_CIDADES VALUES(668, 'Teixeira de Freitas', 5, 2931350); +INSERT INTO SYS_CIDADES VALUES(669, 'Teodoro Sampaio', 5, 2931400); +INSERT INTO SYS_CIDADES VALUES(670, 'Teofilndia', 5, 2931509); +INSERT INTO SYS_CIDADES VALUES(671, 'Teolndia', 5, 2931608); +INSERT INTO SYS_CIDADES VALUES(672, 'Terra Nova', 5, 2931707); +INSERT INTO SYS_CIDADES VALUES(673, 'Tremedal', 5, 2931806); +INSERT INTO SYS_CIDADES VALUES(674, 'Tucano', 5, 2931905); +INSERT INTO SYS_CIDADES VALUES(675, 'Uau', 5, 2932002); +INSERT INTO SYS_CIDADES VALUES(676, 'Ubara', 5, 2932101); +INSERT INTO SYS_CIDADES VALUES(677, 'Ubaitaba', 5, 2932200); +INSERT INTO SYS_CIDADES VALUES(678, 'Ubat', 5, 2932309); +INSERT INTO SYS_CIDADES VALUES(679, 'Uiba', 5, 2932408); +INSERT INTO SYS_CIDADES VALUES(680, 'Umburanas', 5, 2932457); +INSERT INTO SYS_CIDADES VALUES(681, 'Una', 5, 2932507); +INSERT INTO SYS_CIDADES VALUES(682, 'Urandi', 5, 2932606); +INSERT INTO SYS_CIDADES VALUES(683, 'Uruuca', 5, 2932705); +INSERT INTO SYS_CIDADES VALUES(684, 'Utinga', 5, 2932804); +INSERT INTO SYS_CIDADES VALUES(685, 'Valena', 5, 2932903); +INSERT INTO SYS_CIDADES VALUES(686, 'Valente', 5, 2933000); +INSERT INTO SYS_CIDADES VALUES(687, 'Vrzea da Roa', 5, 2933059); +INSERT INTO SYS_CIDADES VALUES(688, 'Vrzea do Poo', 5, 2933109); +INSERT INTO SYS_CIDADES VALUES(689, 'Vrzea Nova', 5, 2933158); +INSERT INTO SYS_CIDADES VALUES(690, 'Varzedo', 5, 2933174); +INSERT INTO SYS_CIDADES VALUES(691, 'Vera Cruz', 5, 2933208); +INSERT INTO SYS_CIDADES VALUES(692, 'Vereda', 5, 2933257); +INSERT INTO SYS_CIDADES VALUES(693, 'Vitria da Conquista', 5, 2933307); +INSERT INTO SYS_CIDADES VALUES(694, 'Wagner', 5, 2933406); +INSERT INTO SYS_CIDADES VALUES(695, 'Wanderley', 5, 2933455); +INSERT INTO SYS_CIDADES VALUES(696, 'Wenceslau Guimares', 5, 2933505); +INSERT INTO SYS_CIDADES VALUES(697, 'Xique-Xique', 5, 2933604); +INSERT INTO SYS_CIDADES VALUES(698, 'Abaiara', 6, 2300101); +INSERT INTO SYS_CIDADES VALUES(699, 'Acarape', 6, 2300150); +INSERT INTO SYS_CIDADES VALUES(700, 'Acara', 6, 2300200); +INSERT INTO SYS_CIDADES VALUES(701, 'Acopiara', 6, 2300309); +INSERT INTO SYS_CIDADES VALUES(702, 'Aiuaba', 6, 2300408); +INSERT INTO SYS_CIDADES VALUES(703, 'Alcntaras', 6, 2300507); +INSERT INTO SYS_CIDADES VALUES(704, 'Altaneira', 6, 2300606); +INSERT INTO SYS_CIDADES VALUES(705, 'Alto Santo', 6, 2300705); +INSERT INTO SYS_CIDADES VALUES(706, 'Amontada', 6, 2300754); +INSERT INTO SYS_CIDADES VALUES(707, 'Antonina do Norte', 6, 2300804); +INSERT INTO SYS_CIDADES VALUES(708, 'Apuiars', 6, 2300903); +INSERT INTO SYS_CIDADES VALUES(709, 'Aquiraz', 6, 2301000); +INSERT INTO SYS_CIDADES VALUES(710, 'Aracati', 6, 2301109); +INSERT INTO SYS_CIDADES VALUES(711, 'Aracoiaba', 6, 2301208); +INSERT INTO SYS_CIDADES VALUES(712, 'Ararend', 6, 2301257); +INSERT INTO SYS_CIDADES VALUES(713, 'Araripe', 6, 2301307); +INSERT INTO SYS_CIDADES VALUES(714, 'Aratuba', 6, 2301406); +INSERT INTO SYS_CIDADES VALUES(715, 'Arneiroz', 6, 2301505); +INSERT INTO SYS_CIDADES VALUES(716, 'Assar', 6, 2301604); +INSERT INTO SYS_CIDADES VALUES(717, 'Aurora', 6, 2301703); +INSERT INTO SYS_CIDADES VALUES(718, 'Baixio', 6, 2301802); +INSERT INTO SYS_CIDADES VALUES(719, 'Banabui', 6, 2301851); +INSERT INTO SYS_CIDADES VALUES(720, 'Barbalha', 6, 2301901); +INSERT INTO SYS_CIDADES VALUES(721, 'Barreira', 6, 2301950); +INSERT INTO SYS_CIDADES VALUES(722, 'Barro', 6, 2302008); +INSERT INTO SYS_CIDADES VALUES(723, 'Barroquinha', 6, 2302057); +INSERT INTO SYS_CIDADES VALUES(724, 'Baturit', 6, 2302107); +INSERT INTO SYS_CIDADES VALUES(725, 'Beberibe', 6, 2302206); +INSERT INTO SYS_CIDADES VALUES(726, 'Bela Cruz', 6, 2302305); +INSERT INTO SYS_CIDADES VALUES(727, 'Boa Viagem', 6, 2302404); +INSERT INTO SYS_CIDADES VALUES(728, 'Brejo Santo', 6, 2302503); +INSERT INTO SYS_CIDADES VALUES(729, 'Camocim', 6, 2302602); +INSERT INTO SYS_CIDADES VALUES(730, 'Campos Sales', 6, 2302701); +INSERT INTO SYS_CIDADES VALUES(731, 'Canind', 6, 2302800); +INSERT INTO SYS_CIDADES VALUES(732, 'Capistrano', 6, 2302909); +INSERT INTO SYS_CIDADES VALUES(733, 'Caridade', 6, 2303006); +INSERT INTO SYS_CIDADES VALUES(734, 'Carir', 6, 2303105); +INSERT INTO SYS_CIDADES VALUES(735, 'Caririau', 6, 2303204); +INSERT INTO SYS_CIDADES VALUES(736, 'Caris', 6, 2303303); +INSERT INTO SYS_CIDADES VALUES(737, 'Carnaubal', 6, 2303402); +INSERT INTO SYS_CIDADES VALUES(738, 'Cascavel', 6, 2303501); +INSERT INTO SYS_CIDADES VALUES(739, 'Catarina', 6, 2303600); +INSERT INTO SYS_CIDADES VALUES(740, 'Catunda', 6, 2303659); +INSERT INTO SYS_CIDADES VALUES(741, 'Caucaia', 6, 2303709); +INSERT INTO SYS_CIDADES VALUES(742, 'Cedro', 6, 2303808); +INSERT INTO SYS_CIDADES VALUES(743, 'Chaval', 6, 2303907); +INSERT INTO SYS_CIDADES VALUES(744, 'Chor', 6, 2303931); +INSERT INTO SYS_CIDADES VALUES(745, 'Chorozinho', 6, 2303956); +INSERT INTO SYS_CIDADES VALUES(746, 'Corea', 6, 2304004); +INSERT INTO SYS_CIDADES VALUES(747, 'Crates', 6, 2304103); +INSERT INTO SYS_CIDADES VALUES(748, 'Crato', 6, 2304202); +INSERT INTO SYS_CIDADES VALUES(749, 'Croat', 6, 2304236); +INSERT INTO SYS_CIDADES VALUES(750, 'Cruz', 6, 2304251); +INSERT INTO SYS_CIDADES VALUES(751, 'Deputado Irapuan Pinheiro', 6, 2304269); +INSERT INTO SYS_CIDADES VALUES(752, 'Erer', 6, 2304277); +INSERT INTO SYS_CIDADES VALUES(753, 'Eusbio', 6, 2304285); +INSERT INTO SYS_CIDADES VALUES(754, 'Farias Brito', 6, 2304301); +INSERT INTO SYS_CIDADES VALUES(755, 'Forquilha', 6, 2304350); +INSERT INTO SYS_CIDADES VALUES(756, 'Fortaleza', 6, 2304400); +INSERT INTO SYS_CIDADES VALUES(757, 'Fortim', 6, 2304459); +INSERT INTO SYS_CIDADES VALUES(758, 'Frecheirinha', 6, 2304509); +INSERT INTO SYS_CIDADES VALUES(759, 'General Sampaio', 6, 2304608); +INSERT INTO SYS_CIDADES VALUES(760, 'Graa', 6, 2304657); +INSERT INTO SYS_CIDADES VALUES(761, 'Granja', 6, 2304707); +INSERT INTO SYS_CIDADES VALUES(762, 'Granjeiro', 6, 2304806); +INSERT INTO SYS_CIDADES VALUES(763, 'Groaras', 6, 2304905); +INSERT INTO SYS_CIDADES VALUES(764, 'Guaiba', 6, 2304954); +INSERT INTO SYS_CIDADES VALUES(765, 'Guaraciaba do Norte', 6, 2305001); +INSERT INTO SYS_CIDADES VALUES(766, 'Guaramiranga', 6, 2305100); +INSERT INTO SYS_CIDADES VALUES(767, 'Hidrolndia', 6, 2305209); +INSERT INTO SYS_CIDADES VALUES(768, 'Horizonte', 6, 2305233); +INSERT INTO SYS_CIDADES VALUES(769, 'Ibaretama', 6, 2305266); +INSERT INTO SYS_CIDADES VALUES(770, 'Ibiapina', 6, 2305308); +INSERT INTO SYS_CIDADES VALUES(771, 'Ibicuitinga', 6, 2305332); +INSERT INTO SYS_CIDADES VALUES(772, 'Icapu', 6, 2305357); +INSERT INTO SYS_CIDADES VALUES(773, 'Ic', 6, 2305407); +INSERT INTO SYS_CIDADES VALUES(774, 'Iguatu', 6, 2305506); +INSERT INTO SYS_CIDADES VALUES(775, 'Independncia', 6, 2305605); +INSERT INTO SYS_CIDADES VALUES(776, 'Ipaporanga', 6, 2305654); +INSERT INTO SYS_CIDADES VALUES(777, 'Ipaumirim', 6, 2305704); +INSERT INTO SYS_CIDADES VALUES(778, 'Ipu', 6, 2305803); +INSERT INTO SYS_CIDADES VALUES(779, 'Ipueiras', 6, 2305902); +INSERT INTO SYS_CIDADES VALUES(780, 'Iracema', 6, 2306009); +INSERT INTO SYS_CIDADES VALUES(781, 'Irauuba', 6, 2306108); +INSERT INTO SYS_CIDADES VALUES(782, 'Itaiaba', 6, 2306207); +INSERT INTO SYS_CIDADES VALUES(783, 'Itaitinga', 6, 2306256); +INSERT INTO SYS_CIDADES VALUES(784, 'Itapag', 6, 2306306); +INSERT INTO SYS_CIDADES VALUES(785, 'Itapipoca', 6, 2306405); +INSERT INTO SYS_CIDADES VALUES(786, 'Itapina', 6, 2306504); +INSERT INTO SYS_CIDADES VALUES(787, 'Itarema', 6, 2306553); +INSERT INTO SYS_CIDADES VALUES(788, 'Itatira', 6, 2306603); +INSERT INTO SYS_CIDADES VALUES(789, 'Jaguaretama', 6, 2306702); +INSERT INTO SYS_CIDADES VALUES(790, 'Jaguaribara', 6, 2306801); +INSERT INTO SYS_CIDADES VALUES(791, 'Jaguaribe', 6, 2306900); +INSERT INTO SYS_CIDADES VALUES(792, 'Jaguaruana', 6, 2307007); +INSERT INTO SYS_CIDADES VALUES(793, 'Jardim', 6, 2307106); +INSERT INTO SYS_CIDADES VALUES(794, 'Jati', 6, 2307205); +INSERT INTO SYS_CIDADES VALUES(795, 'Jijoca de Jericoacoara', 6, 2307254); +INSERT INTO SYS_CIDADES VALUES(796, 'Juazeiro do Norte', 6, 2307304); +INSERT INTO SYS_CIDADES VALUES(797, 'Jucs', 6, 2307403); +INSERT INTO SYS_CIDADES VALUES(798, 'Lavras da Mangabeira', 6, 2307502); +INSERT INTO SYS_CIDADES VALUES(799, 'Limoeiro do Norte', 6, 2307601); +INSERT INTO SYS_CIDADES VALUES(800, 'Madalena', 6, 2307635); +INSERT INTO SYS_CIDADES VALUES(801, 'Maracana', 6, 2307650); +INSERT INTO SYS_CIDADES VALUES(802, 'Maranguape', 6, 2307700); +INSERT INTO SYS_CIDADES VALUES(803, 'Marco', 6, 2307809); +INSERT INTO SYS_CIDADES VALUES(804, 'Martinpole', 6, 2307908); +INSERT INTO SYS_CIDADES VALUES(805, 'Massap', 6, 2308005); +INSERT INTO SYS_CIDADES VALUES(806, 'Mauriti', 6, 2308104); +INSERT INTO SYS_CIDADES VALUES(807, 'Meruoca', 6, 2308203); +INSERT INTO SYS_CIDADES VALUES(808, 'Milagres', 6, 2308302); +INSERT INTO SYS_CIDADES VALUES(809, 'Milh', 6, 2308351); +INSERT INTO SYS_CIDADES VALUES(810, 'Mirama', 6, 2308377); +INSERT INTO SYS_CIDADES VALUES(811, 'Misso Velha', 6, 2308401); +INSERT INTO SYS_CIDADES VALUES(812, 'Mombaa', 6, 2308500); +INSERT INTO SYS_CIDADES VALUES(813, 'Monsenhor Tabosa', 6, 2308609); +INSERT INTO SYS_CIDADES VALUES(814, 'Morada Nova', 6, 2308708); +INSERT INTO SYS_CIDADES VALUES(815, 'Morajo', 6, 2308807); +INSERT INTO SYS_CIDADES VALUES(816, 'Morrinhos', 6, 2308906); +INSERT INTO SYS_CIDADES VALUES(817, 'Mucambo', 6, 2309003); +INSERT INTO SYS_CIDADES VALUES(818, 'Mulungu', 6, 2309102); +INSERT INTO SYS_CIDADES VALUES(819, 'Nova Olinda', 6, 2309201); +INSERT INTO SYS_CIDADES VALUES(820, 'Nova Russas', 6, 2309300); +INSERT INTO SYS_CIDADES VALUES(821, 'Novo Oriente', 6, 2309409); +INSERT INTO SYS_CIDADES VALUES(822, 'Ocara', 6, 2309458); +INSERT INTO SYS_CIDADES VALUES(823, 'Ors', 6, 2309508); +INSERT INTO SYS_CIDADES VALUES(824, 'Pacajus', 6, 2309607); +INSERT INTO SYS_CIDADES VALUES(825, 'Pacatuba', 6, 2309706); +INSERT INTO SYS_CIDADES VALUES(826, 'Pacoti', 6, 2309805); +INSERT INTO SYS_CIDADES VALUES(827, 'Pacuj', 6, 2309904); +INSERT INTO SYS_CIDADES VALUES(828, 'Palhano', 6, 2310001); +INSERT INTO SYS_CIDADES VALUES(829, 'Palmcia', 6, 2310100); +INSERT INTO SYS_CIDADES VALUES(830, 'Paracuru', 6, 2310209); +INSERT INTO SYS_CIDADES VALUES(831, 'Paraipaba', 6, 2310258); +INSERT INTO SYS_CIDADES VALUES(832, 'Parambu', 6, 2310308); +INSERT INTO SYS_CIDADES VALUES(833, 'Paramoti', 6, 2310407); +INSERT INTO SYS_CIDADES VALUES(834, 'Pedra Branca', 6, 2310506); +INSERT INTO SYS_CIDADES VALUES(835, 'Penaforte', 6, 2310605); +INSERT INTO SYS_CIDADES VALUES(836, 'Pentecoste', 6, 2310704); +INSERT INTO SYS_CIDADES VALUES(837, 'Pereiro', 6, 2310803); +INSERT INTO SYS_CIDADES VALUES(838, 'Pindoretama', 6, 2310852); +INSERT INTO SYS_CIDADES VALUES(839, 'Piquet Carneiro', 6, 2310902); +INSERT INTO SYS_CIDADES VALUES(840, 'Pires Ferreira', 6, 2310951); +INSERT INTO SYS_CIDADES VALUES(841, 'Poranga', 6, 2311009); +INSERT INTO SYS_CIDADES VALUES(842, 'Porteiras', 6, 2311108); +INSERT INTO SYS_CIDADES VALUES(843, 'Potengi', 6, 2311207); +INSERT INTO SYS_CIDADES VALUES(844, 'Potiretama', 6, 2311231); +INSERT INTO SYS_CIDADES VALUES(845, 'Quiterianpolis', 6, 2311264); +INSERT INTO SYS_CIDADES VALUES(846, 'Quixad', 6, 2311306); +INSERT INTO SYS_CIDADES VALUES(847, 'Quixel', 6, 2311355); +INSERT INTO SYS_CIDADES VALUES(848, 'Quixeramobim', 6, 2311405); +INSERT INTO SYS_CIDADES VALUES(849, 'Quixer', 6, 2311504); +INSERT INTO SYS_CIDADES VALUES(850, 'Redeno', 6, 2311603); +INSERT INTO SYS_CIDADES VALUES(851, 'Reriutaba', 6, 2311702); +INSERT INTO SYS_CIDADES VALUES(852, 'Russas', 6, 2311801); +INSERT INTO SYS_CIDADES VALUES(853, 'Saboeiro', 6, 2311900); +INSERT INTO SYS_CIDADES VALUES(854, 'Salitre', 6, 2311959); +INSERT INTO SYS_CIDADES VALUES(855, 'Santa Quitria', 6, 2312205); +INSERT INTO SYS_CIDADES VALUES(856, 'Santana do Acara', 6, 2312007); +INSERT INTO SYS_CIDADES VALUES(857, 'Santana do Cariri', 6, 2312106); +INSERT INTO SYS_CIDADES VALUES(858, 'So Benedito', 6, 2312304); +INSERT INTO SYS_CIDADES VALUES(859, 'So Gonalo do Amarante', 6, 2312403); +INSERT INTO SYS_CIDADES VALUES(860, 'So Joo do Jaguaribe', 6, 2312502); +INSERT INTO SYS_CIDADES VALUES(861, 'So Lus do Curu', 6, 2312601); +INSERT INTO SYS_CIDADES VALUES(862, 'Senador Pompeu', 6, 2312700); +INSERT INTO SYS_CIDADES VALUES(863, 'Senador S', 6, 2312809); +INSERT INTO SYS_CIDADES VALUES(864, 'Sobral', 6, 2312908); +INSERT INTO SYS_CIDADES VALUES(865, 'Solonpole', 6, 2313005); +INSERT INTO SYS_CIDADES VALUES(866, 'Tabuleiro do Norte', 6, 2313104); +INSERT INTO SYS_CIDADES VALUES(867, 'Tamboril', 6, 2313203); +INSERT INTO SYS_CIDADES VALUES(868, 'Tarrafas', 6, 2313252); +INSERT INTO SYS_CIDADES VALUES(869, 'Tau', 6, 2313302); +INSERT INTO SYS_CIDADES VALUES(870, 'Tejuuoca', 6, 2313351); +INSERT INTO SYS_CIDADES VALUES(871, 'Tiangu', 6, 2313401); +INSERT INTO SYS_CIDADES VALUES(872, 'Trairi', 6, 2313500); +INSERT INTO SYS_CIDADES VALUES(873, 'Tururu', 6, 2313559); +INSERT INTO SYS_CIDADES VALUES(874, 'Ubajara', 6, 2313609); +INSERT INTO SYS_CIDADES VALUES(875, 'Umari', 6, 2313708); +INSERT INTO SYS_CIDADES VALUES(876, 'Umirim', 6, 2313757); +INSERT INTO SYS_CIDADES VALUES(877, 'Uruburetama', 6, 2313807); +INSERT INTO SYS_CIDADES VALUES(878, 'Uruoca', 6, 2313906); +INSERT INTO SYS_CIDADES VALUES(879, 'Varjota', 6, 2313955); +INSERT INTO SYS_CIDADES VALUES(880, 'Vrzea Alegre', 6, 2314003); +INSERT INTO SYS_CIDADES VALUES(881, 'Viosa do Cear', 6, 2314102); +INSERT INTO SYS_CIDADES VALUES(882, 'Braslia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(883, 'Abadia de Gois', 9, 5200050); +INSERT INTO SYS_CIDADES VALUES(884, 'Abadinia', 9, 5200100); +INSERT INTO SYS_CIDADES VALUES(885, 'Acrena', 9, 5200134); +INSERT INTO SYS_CIDADES VALUES(886, 'Adelndia', 9, 5200159); +INSERT INTO SYS_CIDADES VALUES(887, 'gua Fria de Gois', 9, 5200175); +INSERT INTO SYS_CIDADES VALUES(888, 'gua Limpa', 9, 5200209); +INSERT INTO SYS_CIDADES VALUES(889, 'guas Lindas de Gois', 9, 5200258); +INSERT INTO SYS_CIDADES VALUES(890, 'Alexnia', 9, 5200308); +INSERT INTO SYS_CIDADES VALUES(891, 'Alondia', 9, 5200506); +INSERT INTO SYS_CIDADES VALUES(892, 'Alto Horizonte', 9, 5200555); +INSERT INTO SYS_CIDADES VALUES(893, 'Alto Paraso de Gois', 9, 5200605); +INSERT INTO SYS_CIDADES VALUES(894, 'Alvorada do Norte', 9, 5200803); +INSERT INTO SYS_CIDADES VALUES(895, 'Amaralina', 9, 5200829); +INSERT INTO SYS_CIDADES VALUES(896, 'Americano do Brasil', 9, 5200852); +INSERT INTO SYS_CIDADES VALUES(897, 'Amorinpolis', 9, 5200902); +INSERT INTO SYS_CIDADES VALUES(898, 'Anpolis', 9, 5201108); +INSERT INTO SYS_CIDADES VALUES(899, 'Anhanguera', 9, 5201207); +INSERT INTO SYS_CIDADES VALUES(900, 'Anicuns', 9, 5201306); +INSERT INTO SYS_CIDADES VALUES(901, 'Aparecida de Goinia', 9, 5201405); +INSERT INTO SYS_CIDADES VALUES(902, 'Aparecida do Rio Doce', 9, 5201454); +INSERT INTO SYS_CIDADES VALUES(903, 'Apor', 9, 5201504); +INSERT INTO SYS_CIDADES VALUES(904, 'Arau', 9, 5201603); +INSERT INTO SYS_CIDADES VALUES(905, 'Aragaras', 9, 5201702); +INSERT INTO SYS_CIDADES VALUES(906, 'Aragoinia', 9, 5201801); +INSERT INTO SYS_CIDADES VALUES(907, 'Araguapaz', 9, 5202155); +INSERT INTO SYS_CIDADES VALUES(908, 'Arenpolis', 9, 5202353); +INSERT INTO SYS_CIDADES VALUES(909, 'Aruan', 9, 5202502); +INSERT INTO SYS_CIDADES VALUES(910, 'Aurilndia', 9, 5202601); +INSERT INTO SYS_CIDADES VALUES(911, 'Avelinpolis', 9, 5202809); +INSERT INTO SYS_CIDADES VALUES(912, 'Baliza', 9, 5203104); +INSERT INTO SYS_CIDADES VALUES(913, 'Barro Alto', 9, 5203203); +INSERT INTO SYS_CIDADES VALUES(914, 'Bela Vista de Gois', 9, 5203302); +INSERT INTO SYS_CIDADES VALUES(915, 'Bom Jardim de Gois', 9, 5203401); +INSERT INTO SYS_CIDADES VALUES(916, 'Bom Jesus de Gois', 9, 5203500); +INSERT INTO SYS_CIDADES VALUES(917, 'Bonfinpolis', 9, 5203559); +INSERT INTO SYS_CIDADES VALUES(918, 'Bonpolis', 9, 5203575); +INSERT INTO SYS_CIDADES VALUES(919, 'Brazabrantes', 9, 5203609); +INSERT INTO SYS_CIDADES VALUES(920, 'Britnia', 9, 5203807); +INSERT INTO SYS_CIDADES VALUES(921, 'Buriti Alegre', 9, 5203906); +INSERT INTO SYS_CIDADES VALUES(922, 'Buriti de Gois', 9, 5203939); +INSERT INTO SYS_CIDADES VALUES(923, 'Buritinpolis', 9, 5203962); +INSERT INTO SYS_CIDADES VALUES(924, 'Cabeceiras', 9, 5204003); +INSERT INTO SYS_CIDADES VALUES(925, 'Cachoeira Alta', 9, 5204102); +INSERT INTO SYS_CIDADES VALUES(926, 'Cachoeira de Gois', 9, 5204201); +INSERT INTO SYS_CIDADES VALUES(927, 'Cachoeira Dourada', 9, 5204250); +INSERT INTO SYS_CIDADES VALUES(928, 'Cau', 9, 5204300); +INSERT INTO SYS_CIDADES VALUES(929, 'Caiapnia', 9, 5204409); +INSERT INTO SYS_CIDADES VALUES(930, 'Caldas Novas', 9, 5204508); +INSERT INTO SYS_CIDADES VALUES(931, 'Caldazinha', 9, 5204557); +INSERT INTO SYS_CIDADES VALUES(932, 'Campestre de Gois', 9, 5204607); +INSERT INTO SYS_CIDADES VALUES(933, 'Campinau', 9, 5204656); +INSERT INTO SYS_CIDADES VALUES(934, 'Campinorte', 9, 5204706); +INSERT INTO SYS_CIDADES VALUES(935, 'Campo Alegre de Gois', 9, 5204805); +INSERT INTO SYS_CIDADES VALUES(936, 'Campo Limpo de Gois', 9, 5204854); +INSERT INTO SYS_CIDADES VALUES(937, 'Campos Belos', 9, 5204904); +INSERT INTO SYS_CIDADES VALUES(938, 'Campos Verdes', 9, 5204953); +INSERT INTO SYS_CIDADES VALUES(939, 'Carmo do Rio Verde', 9, 5205000); +INSERT INTO SYS_CIDADES VALUES(940, 'Castelndia', 9, 5205059); +INSERT INTO SYS_CIDADES VALUES(941, 'Catalo', 9, 5205109); +INSERT INTO SYS_CIDADES VALUES(942, 'Catura', 9, 5205208); +INSERT INTO SYS_CIDADES VALUES(943, 'Cavalcante', 9, 5205307); +INSERT INTO SYS_CIDADES VALUES(944, 'Ceres', 9, 5205406); +INSERT INTO SYS_CIDADES VALUES(945, 'Cezarina', 9, 5205455); +INSERT INTO SYS_CIDADES VALUES(946, 'Chapado do Cu', 9, 5205471); +INSERT INTO SYS_CIDADES VALUES(947, 'Cidade Ocidental', 9, 5205497); +INSERT INTO SYS_CIDADES VALUES(948, 'Cocalzinho de Gois', 9, 5205513); +INSERT INTO SYS_CIDADES VALUES(949, 'Colinas do Sul', 9, 5205521); +INSERT INTO SYS_CIDADES VALUES(950, 'Crrego do Ouro', 9, 5205703); +INSERT INTO SYS_CIDADES VALUES(951, 'Corumb de Gois', 9, 5205802); +INSERT INTO SYS_CIDADES VALUES(952, 'Corumbaba', 9, 5205901); +INSERT INTO SYS_CIDADES VALUES(953, 'Cristalina', 9, 5206206); +INSERT INTO SYS_CIDADES VALUES(954, 'Cristianpolis', 9, 5206305); +INSERT INTO SYS_CIDADES VALUES(955, 'Crixs', 9, 5206404); +INSERT INTO SYS_CIDADES VALUES(956, 'Cromnia', 9, 5206503); +INSERT INTO SYS_CIDADES VALUES(957, 'Cumari', 9, 5206602); +INSERT INTO SYS_CIDADES VALUES(958, 'Damianpolis', 9, 5206701); +INSERT INTO SYS_CIDADES VALUES(959, 'Damolndia', 9, 5206800); +INSERT INTO SYS_CIDADES VALUES(960, 'Davinpolis', 9, 5206909); +INSERT INTO SYS_CIDADES VALUES(961, 'Diorama', 9, 5207105); +INSERT INTO SYS_CIDADES VALUES(962, 'Divinpolis de Gois', 9, 5208301); +INSERT INTO SYS_CIDADES VALUES(963, 'Doverlndia', 9, 5207253); +INSERT INTO SYS_CIDADES VALUES(964, 'Edealina', 9, 5207352); +INSERT INTO SYS_CIDADES VALUES(965, 'Edia', 9, 5207402); +INSERT INTO SYS_CIDADES VALUES(966, 'Estrela do Norte', 9, 5207501); +INSERT INTO SYS_CIDADES VALUES(967, 'Faina', 9, 5207535); +INSERT INTO SYS_CIDADES VALUES(968, 'Fazenda Nova', 9, 5207600); +INSERT INTO SYS_CIDADES VALUES(969, 'Firminpolis', 9, 5207808); +INSERT INTO SYS_CIDADES VALUES(970, 'Flores de Gois', 9, 5207907); +INSERT INTO SYS_CIDADES VALUES(971, 'Formosa', 9, 5208004); +INSERT INTO SYS_CIDADES VALUES(972, 'Formoso', 9, 5208103); +INSERT INTO SYS_CIDADES VALUES(973, 'Gameleira de Gois', 9, 5208152); +INSERT INTO SYS_CIDADES VALUES(974, 'Goianpolis', 9, 5208400); +INSERT INTO SYS_CIDADES VALUES(975, 'Goiandira', 9, 5208509); +INSERT INTO SYS_CIDADES VALUES(976, 'Goiansia', 9, 5208608); +INSERT INTO SYS_CIDADES VALUES(977, 'Goinia', 9, 5208707); +INSERT INTO SYS_CIDADES VALUES(978, 'Goianira', 9, 5208806); +INSERT INTO SYS_CIDADES VALUES(979, 'Gois', 9, 5208905); +INSERT INTO SYS_CIDADES VALUES(980, 'Goiatuba', 9, 5209101); +INSERT INTO SYS_CIDADES VALUES(981, 'Gouvelndia', 9, 5209150); +INSERT INTO SYS_CIDADES VALUES(982, 'Guap', 9, 5209200); +INSERT INTO SYS_CIDADES VALUES(983, 'Guarata', 9, 5209291); +INSERT INTO SYS_CIDADES VALUES(984, 'Guarani de Gois', 9, 5209408); +INSERT INTO SYS_CIDADES VALUES(985, 'Guarinos', 9, 5209457); +INSERT INTO SYS_CIDADES VALUES(986, 'Heitora', 9, 5209606); +INSERT INTO SYS_CIDADES VALUES(987, 'Hidrolndia', 9, 5209705); +INSERT INTO SYS_CIDADES VALUES(988, 'Hidrolina', 9, 5209804); +INSERT INTO SYS_CIDADES VALUES(989, 'Iaciara', 9, 5209903); +INSERT INTO SYS_CIDADES VALUES(990, 'Inaciolndia', 9, 5209937); +INSERT INTO SYS_CIDADES VALUES(991, 'Indiara', 9, 5209952); +INSERT INTO SYS_CIDADES VALUES(992, 'Inhumas', 9, 5210000); +INSERT INTO SYS_CIDADES VALUES(993, 'Ipameri', 9, 5210109); +INSERT INTO SYS_CIDADES VALUES(994, 'Ipiranga de Gois', 9, 5210158); +INSERT INTO SYS_CIDADES VALUES(995, 'Ipor', 9, 5210208); +INSERT INTO SYS_CIDADES VALUES(996, 'Israelndia', 9, 5210307); +INSERT INTO SYS_CIDADES VALUES(997, 'Itabera', 9, 5210406); +INSERT INTO SYS_CIDADES VALUES(998, 'Itaguari', 9, 5210562); +INSERT INTO SYS_CIDADES VALUES(999, 'Itaguaru', 9, 5210604); +INSERT INTO SYS_CIDADES VALUES(1000, 'Itaj', 9, 5210802); +INSERT INTO SYS_CIDADES VALUES(1001, 'Itapaci', 9, 5210901); +INSERT INTO SYS_CIDADES VALUES(1002, 'Itapirapu', 9, 5211008); +INSERT INTO SYS_CIDADES VALUES(1003, 'Itapuranga', 9, 5211206); +INSERT INTO SYS_CIDADES VALUES(1004, 'Itarum', 9, 5211305); +INSERT INTO SYS_CIDADES VALUES(1005, 'Itauu', 9, 5211404); +INSERT INTO SYS_CIDADES VALUES(1006, 'Itumbiara', 9, 5211503); +INSERT INTO SYS_CIDADES VALUES(1007, 'Ivolndia', 9, 5211602); +INSERT INTO SYS_CIDADES VALUES(1008, 'Jandaia', 9, 5211701); +INSERT INTO SYS_CIDADES VALUES(1009, 'Jaragu', 9, 5211800); +INSERT INTO SYS_CIDADES VALUES(1010, 'Jata', 9, 5211909); +INSERT INTO SYS_CIDADES VALUES(1011, 'Jaupaci', 9, 5212006); +INSERT INTO SYS_CIDADES VALUES(1012, 'Jespolis', 9, 5212055); +INSERT INTO SYS_CIDADES VALUES(1013, 'Jovinia', 9, 5212105); +INSERT INTO SYS_CIDADES VALUES(1014, 'Jussara', 9, 5212204); +INSERT INTO SYS_CIDADES VALUES(1015, 'Lagoa Santa', 9, 5212253); +INSERT INTO SYS_CIDADES VALUES(1016, 'Leopoldo de Bulhes', 9, 5212303); +INSERT INTO SYS_CIDADES VALUES(1017, 'Luzinia', 9, 5212501); +INSERT INTO SYS_CIDADES VALUES(1018, 'Mairipotaba', 9, 5212600); +INSERT INTO SYS_CIDADES VALUES(1019, 'Mamba', 9, 5212709); +INSERT INTO SYS_CIDADES VALUES(1020, 'Mara Rosa', 9, 5212808); +INSERT INTO SYS_CIDADES VALUES(1021, 'Marzago', 9, 5212907); +INSERT INTO SYS_CIDADES VALUES(1022, 'Matrinch', 9, 5212956); +INSERT INTO SYS_CIDADES VALUES(1023, 'Maurilndia', 9, 5213004); +INSERT INTO SYS_CIDADES VALUES(1024, 'Mimoso de Gois', 9, 5213053); +INSERT INTO SYS_CIDADES VALUES(1025, 'Minau', 9, 5213087); +INSERT INTO SYS_CIDADES VALUES(1026, 'Mineiros', 9, 5213103); +INSERT INTO SYS_CIDADES VALUES(1027, 'Moipor', 9, 5213400); +INSERT INTO SYS_CIDADES VALUES(1028, 'Monte Alegre de Gois', 9, 5213509); +INSERT INTO SYS_CIDADES VALUES(1029, 'Montes Claros de Gois', 9, 5213707); +INSERT INTO SYS_CIDADES VALUES(1030, 'Montividiu', 9, 5213756); +INSERT INTO SYS_CIDADES VALUES(1031, 'Montividiu do Norte', 9, 5213772); +INSERT INTO SYS_CIDADES VALUES(1032, 'Morrinhos', 9, 5213806); +INSERT INTO SYS_CIDADES VALUES(1033, 'Morro Agudo de Gois', 9, 5213855); +INSERT INTO SYS_CIDADES VALUES(1034, 'Mossmedes', 9, 5213905); +INSERT INTO SYS_CIDADES VALUES(1035, 'Mozarlndia', 9, 5214002); +INSERT INTO SYS_CIDADES VALUES(1036, 'Mundo Novo', 9, 5214051); +INSERT INTO SYS_CIDADES VALUES(1037, 'Mutunpolis', 9, 5214101); +INSERT INTO SYS_CIDADES VALUES(1038, 'Nazrio', 9, 5214408); +INSERT INTO SYS_CIDADES VALUES(1039, 'Nerpolis', 9, 5214507); +INSERT INTO SYS_CIDADES VALUES(1040, 'Niquelndia', 9, 5214606); +INSERT INTO SYS_CIDADES VALUES(1041, 'Nova Amrica', 9, 5214705); +INSERT INTO SYS_CIDADES VALUES(1042, 'Nova Aurora', 9, 5214804); +INSERT INTO SYS_CIDADES VALUES(1043, 'Nova Crixs', 9, 5214838); +INSERT INTO SYS_CIDADES VALUES(1044, 'Nova Glria', 9, 5214861); +INSERT INTO SYS_CIDADES VALUES(1045, 'Nova Iguau de Gois', 9, 5214879); +INSERT INTO SYS_CIDADES VALUES(1046, 'Nova Roma', 9, 5214903); +INSERT INTO SYS_CIDADES VALUES(1047, 'Nova Veneza', 9, 5215009); +INSERT INTO SYS_CIDADES VALUES(1048, 'Novo Brasil', 9, 5215207); +INSERT INTO SYS_CIDADES VALUES(1049, 'Novo Gama', 9, 5215231); +INSERT INTO SYS_CIDADES VALUES(1050, 'Novo Planalto', 9, 5215256); +INSERT INTO SYS_CIDADES VALUES(1051, 'Orizona', 9, 5215306); +INSERT INTO SYS_CIDADES VALUES(1052, 'Ouro Verde de Gois', 9, 5215405); +INSERT INTO SYS_CIDADES VALUES(1053, 'Ouvidor', 9, 5215504); +INSERT INTO SYS_CIDADES VALUES(1054, 'Padre Bernardo', 9, 5215603); +INSERT INTO SYS_CIDADES VALUES(1055, 'Palestina de Gois', 9, 5215652); +INSERT INTO SYS_CIDADES VALUES(1056, 'Palmeiras de Gois', 9, 5215702); +INSERT INTO SYS_CIDADES VALUES(1057, 'Palmelo', 9, 5215801); +INSERT INTO SYS_CIDADES VALUES(1058, 'Palminpolis', 9, 5215900); +INSERT INTO SYS_CIDADES VALUES(1059, 'Panam', 9, 5216007); +INSERT INTO SYS_CIDADES VALUES(1060, 'Paranaiguara', 9, 5216304); +INSERT INTO SYS_CIDADES VALUES(1061, 'Parana', 9, 5216403); +INSERT INTO SYS_CIDADES VALUES(1062, 'Perolndia', 9, 5216452); +INSERT INTO SYS_CIDADES VALUES(1063, 'Petrolina de Gois', 9, 5216809); +INSERT INTO SYS_CIDADES VALUES(1064, 'Pilar de Gois', 9, 5216908); +INSERT INTO SYS_CIDADES VALUES(1065, 'Piracanjuba', 9, 5217104); +INSERT INTO SYS_CIDADES VALUES(1066, 'Piranhas', 9, 5217203); +INSERT INTO SYS_CIDADES VALUES(1067, 'Pirenpolis', 9, 5217302); +INSERT INTO SYS_CIDADES VALUES(1068, 'Pires do Rio', 9, 5217401); +INSERT INTO SYS_CIDADES VALUES(1069, 'Planaltina', 9, 5217609); +INSERT INTO SYS_CIDADES VALUES(1070, 'Pontalina', 9, 5217708); +INSERT INTO SYS_CIDADES VALUES(1071, 'Porangatu', 9, 5218003); +INSERT INTO SYS_CIDADES VALUES(1072, 'Porteiro', 9, 5218052); +INSERT INTO SYS_CIDADES VALUES(1073, 'Portelndia', 9, 5218102); +INSERT INTO SYS_CIDADES VALUES(1074, 'Posse', 9, 5218300); +INSERT INTO SYS_CIDADES VALUES(1075, 'Professor Jamil', 9, 5218391); +INSERT INTO SYS_CIDADES VALUES(1076, 'Quirinpolis', 9, 5218508); +INSERT INTO SYS_CIDADES VALUES(1077, 'Rialma', 9, 5218607); +INSERT INTO SYS_CIDADES VALUES(1078, 'Rianpolis', 9, 5218706); +INSERT INTO SYS_CIDADES VALUES(1079, 'Rio Quente', 9, 5218789); +INSERT INTO SYS_CIDADES VALUES(1080, 'Rio Verde', 9, 5218805); +INSERT INTO SYS_CIDADES VALUES(1081, 'Rubiataba', 9, 5218904); +INSERT INTO SYS_CIDADES VALUES(1082, 'Sanclerlndia', 9, 5219001); +INSERT INTO SYS_CIDADES VALUES(1083, 'Santa Brbara de Gois', 9, 5219100); +INSERT INTO SYS_CIDADES VALUES(1084, 'Santa Cruz de Gois', 9, 5219209); +INSERT INTO SYS_CIDADES VALUES(1085, 'Santa F de Gois', 9, 5219258); +INSERT INTO SYS_CIDADES VALUES(1086, 'Santa Helena de Gois', 9, 5219308); +INSERT INTO SYS_CIDADES VALUES(1087, 'Santa Isabel', 9, 5219357); +INSERT INTO SYS_CIDADES VALUES(1088, 'Santa Rita do Araguaia', 9, 5219407); +INSERT INTO SYS_CIDADES VALUES(1089, 'Santa Rita do Novo Destino', 9, 5219456); +INSERT INTO SYS_CIDADES VALUES(1090, 'Santa Rosa de Gois', 9, 5219506); +INSERT INTO SYS_CIDADES VALUES(1091, 'Santa Tereza de Gois', 9, 5219605); +INSERT INTO SYS_CIDADES VALUES(1092, 'Santa Terezinha de Gois', 9, 5219704); +INSERT INTO SYS_CIDADES VALUES(1093, 'Santo Antnio da Barra', 9, 5219712); +INSERT INTO SYS_CIDADES VALUES(1094, 'Santo Antnio de Gois', 9, 5219738); +INSERT INTO SYS_CIDADES VALUES(1095, 'Santo Antnio do Descoberto', 9, 5219753); +INSERT INTO SYS_CIDADES VALUES(1096, 'So Domingos', 9, 5219803); +INSERT INTO SYS_CIDADES VALUES(1097, 'So Francisco de Gois', 9, 5219902); +INSERT INTO SYS_CIDADES VALUES(1098, 'So Joo d`Aliana', 9, 5220009); +INSERT INTO SYS_CIDADES VALUES(1099, 'So Joo da Parana', 9, 5220058); +INSERT INTO SYS_CIDADES VALUES(1100, 'So Lus de Montes Belos', 9, 5220108); +INSERT INTO SYS_CIDADES VALUES(1101, 'So Luz do Norte', 9, 5220157); +INSERT INTO SYS_CIDADES VALUES(1102, 'So Miguel do Araguaia', 9, 5220207); +INSERT INTO SYS_CIDADES VALUES(1103, 'So Miguel do Passa Quatro', 9, 5220264); +INSERT INTO SYS_CIDADES VALUES(1104, 'So Patrcio', 9, 5220280); +INSERT INTO SYS_CIDADES VALUES(1105, 'So Simo', 9, 5220405); +INSERT INTO SYS_CIDADES VALUES(1106, 'Senador Canedo', 9, 5220454); +INSERT INTO SYS_CIDADES VALUES(1107, 'Serranpolis', 9, 5220504); +INSERT INTO SYS_CIDADES VALUES(1108, 'Silvnia', 9, 5220603); +INSERT INTO SYS_CIDADES VALUES(1109, 'Simolndia', 9, 5220686); +INSERT INTO SYS_CIDADES VALUES(1110, 'Stio d`Abadia', 9, 5220702); +INSERT INTO SYS_CIDADES VALUES(1111, 'Taquaral de Gois', 9, 5221007); +INSERT INTO SYS_CIDADES VALUES(1112, 'Teresina de Gois', 9, 5221080); +INSERT INTO SYS_CIDADES VALUES(1113, 'Terezpolis de Gois', 9, 5221197); +INSERT INTO SYS_CIDADES VALUES(1114, 'Trs Ranchos', 9, 5221304); +INSERT INTO SYS_CIDADES VALUES(1115, 'Trindade', 9, 5221403); +INSERT INTO SYS_CIDADES VALUES(1116, 'Trombas', 9, 5221452); +INSERT INTO SYS_CIDADES VALUES(1117, 'Turvnia', 9, 5221502); +INSERT INTO SYS_CIDADES VALUES(1118, 'Turvelndia', 9, 5221551); +INSERT INTO SYS_CIDADES VALUES(1119, 'Uirapuru', 9, 5221577); +INSERT INTO SYS_CIDADES VALUES(1120, 'Uruau', 9, 5221601); +INSERT INTO SYS_CIDADES VALUES(1121, 'Uruana', 9, 5221700); +INSERT INTO SYS_CIDADES VALUES(1122, 'Uruta', 9, 5221809); +INSERT INTO SYS_CIDADES VALUES(1123, 'Valparaso de Gois', 9, 5221858); +INSERT INTO SYS_CIDADES VALUES(1124, 'Varjo', 9, 5221908); +INSERT INTO SYS_CIDADES VALUES(1125, 'Vianpolis', 9, 5222005); +INSERT INTO SYS_CIDADES VALUES(1126, 'Vicentinpolis', 9, 5222054); +INSERT INTO SYS_CIDADES VALUES(1127, 'Vila Boa', 9, 5222203); +INSERT INTO SYS_CIDADES VALUES(1128, 'Vila Propcio', 9, 5222302); +INSERT INTO SYS_CIDADES VALUES(1129, 'Aailndia', 10, 2100055); +INSERT INTO SYS_CIDADES VALUES(1130, 'Afonso Cunha', 10, 2100105); +INSERT INTO SYS_CIDADES VALUES(1131, 'gua Doce do Maranho', 10, 2100154); +INSERT INTO SYS_CIDADES VALUES(1132, 'Alcntara', 10, 2100204); +INSERT INTO SYS_CIDADES VALUES(1133, 'Aldeias Altas', 10, 2100303); +INSERT INTO SYS_CIDADES VALUES(1134, 'Altamira do Maranho', 10, 2100402); +INSERT INTO SYS_CIDADES VALUES(1135, 'Alto Alegre do Maranho', 10, 2100436); +INSERT INTO SYS_CIDADES VALUES(1136, 'Alto Alegre do Pindar', 10, 2100477); +INSERT INTO SYS_CIDADES VALUES(1137, 'Alto Parnaba', 10, 2100501); +INSERT INTO SYS_CIDADES VALUES(1138, 'Amap do Maranho', 10, 2100550); +INSERT INTO SYS_CIDADES VALUES(1139, 'Amarante do Maranho', 10, 2100600); +INSERT INTO SYS_CIDADES VALUES(1140, 'Anajatuba', 10, 2100709); +INSERT INTO SYS_CIDADES VALUES(1141, 'Anapurus', 10, 2100808); +INSERT INTO SYS_CIDADES VALUES(1142, 'Apicum-Au', 10, 2100832); +INSERT INTO SYS_CIDADES VALUES(1143, 'Araguan', 10, 2100873); +INSERT INTO SYS_CIDADES VALUES(1144, 'Araioses', 10, 2100907); +INSERT INTO SYS_CIDADES VALUES(1145, 'Arame', 10, 2100956); +INSERT INTO SYS_CIDADES VALUES(1146, 'Arari', 10, 2101004); +INSERT INTO SYS_CIDADES VALUES(1147, 'Axix', 10, 2101103); +INSERT INTO SYS_CIDADES VALUES(1148, 'Bacabal', 10, 2101202); +INSERT INTO SYS_CIDADES VALUES(1149, 'Bacabeira', 10, 2101251); +INSERT INTO SYS_CIDADES VALUES(1150, 'Bacuri', 10, 2101301); +INSERT INTO SYS_CIDADES VALUES(1151, 'Bacurituba', 10, 2101350); +INSERT INTO SYS_CIDADES VALUES(1152, 'Balsas', 10, 2101400); +INSERT INTO SYS_CIDADES VALUES(1153, 'Baro de Graja', 10, 2101509); +INSERT INTO SYS_CIDADES VALUES(1154, 'Barra do Corda', 10, 2101608); +INSERT INTO SYS_CIDADES VALUES(1155, 'Barreirinhas', 10, 2101707); +INSERT INTO SYS_CIDADES VALUES(1156, 'Bela Vista do Maranho', 10, 2101772); +INSERT INTO SYS_CIDADES VALUES(1157, 'Belgua', 10, 2101731); +INSERT INTO SYS_CIDADES VALUES(1158, 'Benedito Leite', 10, 2101806); +INSERT INTO SYS_CIDADES VALUES(1159, 'Bequimo', 10, 2101905); +INSERT INTO SYS_CIDADES VALUES(1160, 'Bernardo do Mearim', 10, 2101939); +INSERT INTO SYS_CIDADES VALUES(1161, 'Boa Vista do Gurupi', 10, 2101970); +INSERT INTO SYS_CIDADES VALUES(1162, 'Bom Jardim', 10, 2102002); +INSERT INTO SYS_CIDADES VALUES(1163, 'Bom Jesus das Selvas', 10, 2102036); +INSERT INTO SYS_CIDADES VALUES(1164, 'Bom Lugar', 10, 2102077); +INSERT INTO SYS_CIDADES VALUES(1165, 'Brejo', 10, 2102101); +INSERT INTO SYS_CIDADES VALUES(1166, 'Brejo de Areia', 10, 2102150); +INSERT INTO SYS_CIDADES VALUES(1167, 'Buriti', 10, 2102200); +INSERT INTO SYS_CIDADES VALUES(1168, 'Buriti Bravo', 10, 2102309); +INSERT INTO SYS_CIDADES VALUES(1169, 'Buriticupu', 10, 2102325); +INSERT INTO SYS_CIDADES VALUES(1170, 'Buritirana', 10, 2102358); +INSERT INTO SYS_CIDADES VALUES(1171, 'Cachoeira Grande', 10, 2102374); +INSERT INTO SYS_CIDADES VALUES(1172, 'Cajapi', 10, 2102408); +INSERT INTO SYS_CIDADES VALUES(1173, 'Cajari', 10, 2102507); +INSERT INTO SYS_CIDADES VALUES(1174, 'Campestre do Maranho', 10, 2102556); +INSERT INTO SYS_CIDADES VALUES(1175, 'Cndido Mendes', 10, 2102606); +INSERT INTO SYS_CIDADES VALUES(1176, 'Cantanhede', 10, 2102705); +INSERT INTO SYS_CIDADES VALUES(1177, 'Capinzal do Norte', 10, 2102754); +INSERT INTO SYS_CIDADES VALUES(1178, 'Carolina', 10, 2102804); +INSERT INTO SYS_CIDADES VALUES(1179, 'Carutapera', 10, 2102903); +INSERT INTO SYS_CIDADES VALUES(1180, 'Caxias', 10, 2103000); +INSERT INTO SYS_CIDADES VALUES(1181, 'Cedral', 10, 2103109); +INSERT INTO SYS_CIDADES VALUES(1182, 'Central do Maranho', 10, 2103125); +INSERT INTO SYS_CIDADES VALUES(1183, 'Centro do Guilherme', 10, 2103158); +INSERT INTO SYS_CIDADES VALUES(1184, 'Centro Novo do Maranho', 10, 2103174); +INSERT INTO SYS_CIDADES VALUES(1185, 'Chapadinha', 10, 2103208); +INSERT INTO SYS_CIDADES VALUES(1186, 'Cidelndia', 10, 2103257); +INSERT INTO SYS_CIDADES VALUES(1187, 'Cod', 10, 2103307); +INSERT INTO SYS_CIDADES VALUES(1188, 'Coelho Neto', 10, 2103406); +INSERT INTO SYS_CIDADES VALUES(1189, 'Colinas', 10, 2103505); +INSERT INTO SYS_CIDADES VALUES(1190, 'Conceio do Lago-Au', 10, 2103554); +INSERT INTO SYS_CIDADES VALUES(1191, 'Coroat', 10, 2103604); +INSERT INTO SYS_CIDADES VALUES(1192, 'Cururupu', 10, 2103703); +INSERT INTO SYS_CIDADES VALUES(1193, 'Davinpolis', 10, 2103752); +INSERT INTO SYS_CIDADES VALUES(1194, 'Dom Pedro', 10, 2103802); +INSERT INTO SYS_CIDADES VALUES(1195, 'Duque Bacelar', 10, 2103901); +INSERT INTO SYS_CIDADES VALUES(1196, 'Esperantinpolis', 10, 2104008); +INSERT INTO SYS_CIDADES VALUES(1197, 'Estreito', 10, 2104057); +INSERT INTO SYS_CIDADES VALUES(1198, 'Feira Nova do Maranho', 10, 2104073); +INSERT INTO SYS_CIDADES VALUES(1199, 'Fernando Falco', 10, 2104081); +INSERT INTO SYS_CIDADES VALUES(1200, 'Formosa da Serra Negra', 10, 2104099); +INSERT INTO SYS_CIDADES VALUES(1201, 'Fortaleza dos Nogueiras', 10, 2104107); +INSERT INTO SYS_CIDADES VALUES(1202, 'Fortuna', 10, 2104206); +INSERT INTO SYS_CIDADES VALUES(1203, 'Godofredo Viana', 10, 2104305); +INSERT INTO SYS_CIDADES VALUES(1204, 'Gonalves Dias', 10, 2104404); +INSERT INTO SYS_CIDADES VALUES(1205, 'Governador Archer', 10, 2104503); +INSERT INTO SYS_CIDADES VALUES(1206, 'Governador Edison Lobo', 10, 2104552); +INSERT INTO SYS_CIDADES VALUES(1207, 'Governador Eugnio Barros', 10, 2104602); +INSERT INTO SYS_CIDADES VALUES(1208, 'Governador Luiz Rocha', 10, 2104628); +INSERT INTO SYS_CIDADES VALUES(1209, 'Governador Newton Bello', 10, 2104651); +INSERT INTO SYS_CIDADES VALUES(1210, 'Governador Nunes Freire', 10, 2104677); +INSERT INTO SYS_CIDADES VALUES(1211, 'Graa Aranha', 10, 2104701); +INSERT INTO SYS_CIDADES VALUES(1212, 'Graja', 10, 2104800); +INSERT INTO SYS_CIDADES VALUES(1213, 'Guimares', 10, 2104909); +INSERT INTO SYS_CIDADES VALUES(1214, 'Humberto de Campos', 10, 2105005); +INSERT INTO SYS_CIDADES VALUES(1215, 'Icatu', 10, 2105104); +INSERT INTO SYS_CIDADES VALUES(1216, 'Igarap do Meio', 10, 2105153); +INSERT INTO SYS_CIDADES VALUES(1217, 'Igarap Grande', 10, 2105203); +INSERT INTO SYS_CIDADES VALUES(1218, 'Imperatriz', 10, 2105302); +INSERT INTO SYS_CIDADES VALUES(1219, 'Itaipava do Graja', 10, 2105351); +INSERT INTO SYS_CIDADES VALUES(1220, 'Itapecuru Mirim', 10, 2105401); +INSERT INTO SYS_CIDADES VALUES(1221, 'Itinga do Maranho', 10, 2105427); +INSERT INTO SYS_CIDADES VALUES(1222, 'Jatob', 10, 2105450); +INSERT INTO SYS_CIDADES VALUES(1223, 'Jenipapo dos Vieiras', 10, 2105476); +INSERT INTO SYS_CIDADES VALUES(1224, 'Joo Lisboa', 10, 2105500); +INSERT INTO SYS_CIDADES VALUES(1225, 'Joselndia', 10, 2105609); +INSERT INTO SYS_CIDADES VALUES(1226, 'Junco do Maranho', 10, 2105658); +INSERT INTO SYS_CIDADES VALUES(1227, 'Lago da Pedra', 10, 2105708); +INSERT INTO SYS_CIDADES VALUES(1228, 'Lago do Junco', 10, 2105807); +INSERT INTO SYS_CIDADES VALUES(1229, 'Lago dos Rodrigues', 10, 2105948); +INSERT INTO SYS_CIDADES VALUES(1230, 'Lago Verde', 10, 2105906); +INSERT INTO SYS_CIDADES VALUES(1231, 'Lagoa do Mato', 10, 2105922); +INSERT INTO SYS_CIDADES VALUES(1232, 'Lagoa Grande do Maranho', 10, 2105963); +INSERT INTO SYS_CIDADES VALUES(1233, 'Lajeado Novo', 10, 2105989); +INSERT INTO SYS_CIDADES VALUES(1234, 'Lima Campos', 10, 2106003); +INSERT INTO SYS_CIDADES VALUES(1235, 'Loreto', 10, 2106102); +INSERT INTO SYS_CIDADES VALUES(1236, 'Lus Domingues', 10, 2106201); +INSERT INTO SYS_CIDADES VALUES(1237, 'Magalhes de Almeida', 10, 2106300); +INSERT INTO SYS_CIDADES VALUES(1238, 'Maracaum', 10, 2106326); +INSERT INTO SYS_CIDADES VALUES(1239, 'Maraj do Sena', 10, 2106359); +INSERT INTO SYS_CIDADES VALUES(1240, 'Maranhozinho', 10, 2106375); +INSERT INTO SYS_CIDADES VALUES(1241, 'Mata Roma', 10, 2106409); +INSERT INTO SYS_CIDADES VALUES(1242, 'Matinha', 10, 2106508); +INSERT INTO SYS_CIDADES VALUES(1243, 'Mates', 10, 2106607); +INSERT INTO SYS_CIDADES VALUES(1244, 'Mates do Norte', 10, 2106631); +INSERT INTO SYS_CIDADES VALUES(1245, 'Milagres do Maranho', 10, 2106672); +INSERT INTO SYS_CIDADES VALUES(1246, 'Mirador', 10, 2106706); +INSERT INTO SYS_CIDADES VALUES(1247, 'Miranda do Norte', 10, 2106755); +INSERT INTO SYS_CIDADES VALUES(1248, 'Mirinzal', 10, 2106805); +INSERT INTO SYS_CIDADES VALUES(1249, 'Mono', 10, 2106904); +INSERT INTO SYS_CIDADES VALUES(1250, 'Montes Altos', 10, 2107001); +INSERT INTO SYS_CIDADES VALUES(1251, 'Morros', 10, 2107100); +INSERT INTO SYS_CIDADES VALUES(1252, 'Nina Rodrigues', 10, 2107209); +INSERT INTO SYS_CIDADES VALUES(1253, 'Nova Colinas', 10, 2107258); +INSERT INTO SYS_CIDADES VALUES(1254, 'Nova Iorque', 10, 2107308); +INSERT INTO SYS_CIDADES VALUES(1255, 'Nova Olinda do Maranho', 10, 2107357); +INSERT INTO SYS_CIDADES VALUES(1256, 'Olho d`gua das Cunhs', 10, 2107407); +INSERT INTO SYS_CIDADES VALUES(1257, 'Olinda Nova do Maranho', 10, 2107456); +INSERT INTO SYS_CIDADES VALUES(1258, 'Pao do Lumiar', 10, 2107506); +INSERT INTO SYS_CIDADES VALUES(1259, 'Palmeirndia', 10, 2107605); +INSERT INTO SYS_CIDADES VALUES(1260, 'Paraibano', 10, 2107704); +INSERT INTO SYS_CIDADES VALUES(1261, 'Parnarama', 10, 2107803); +INSERT INTO SYS_CIDADES VALUES(1262, 'Passagem Franca', 10, 2107902); +INSERT INTO SYS_CIDADES VALUES(1263, 'Pastos Bons', 10, 2108009); +INSERT INTO SYS_CIDADES VALUES(1264, 'Paulino Neves', 10, 2108058); +INSERT INTO SYS_CIDADES VALUES(1265, 'Paulo Ramos', 10, 2108108); +INSERT INTO SYS_CIDADES VALUES(1266, 'Pedreiras', 10, 2108207); +INSERT INTO SYS_CIDADES VALUES(1267, 'Pedro do Rosrio', 10, 2108256); +INSERT INTO SYS_CIDADES VALUES(1268, 'Penalva', 10, 2108306); +INSERT INTO SYS_CIDADES VALUES(1269, 'Peri Mirim', 10, 2108405); +INSERT INTO SYS_CIDADES VALUES(1270, 'Peritor', 10, 2108454); +INSERT INTO SYS_CIDADES VALUES(1271, 'Pindar-Mirim', 10, 2108504); +INSERT INTO SYS_CIDADES VALUES(1272, 'Pinheiro', 10, 2108603); +INSERT INTO SYS_CIDADES VALUES(1273, 'Pio XII', 10, 2108702); +INSERT INTO SYS_CIDADES VALUES(1274, 'Pirapemas', 10, 2108801); +INSERT INTO SYS_CIDADES VALUES(1275, 'Poo de Pedras', 10, 2108900); +INSERT INTO SYS_CIDADES VALUES(1276, 'Porto Franco', 10, 2109007); +INSERT INTO SYS_CIDADES VALUES(1277, 'Porto Rico do Maranho', 10, 2109056); +INSERT INTO SYS_CIDADES VALUES(1278, 'Presidente Dutra', 10, 2109106); +INSERT INTO SYS_CIDADES VALUES(1279, 'Presidente Juscelino', 10, 2109205); +INSERT INTO SYS_CIDADES VALUES(1280, 'Presidente Mdici', 10, 2109239); +INSERT INTO SYS_CIDADES VALUES(1281, 'Presidente Sarney', 10, 2109270); +INSERT INTO SYS_CIDADES VALUES(1282, 'Presidente Vargas', 10, 2109304); +INSERT INTO SYS_CIDADES VALUES(1283, 'Primeira Cruz', 10, 2109403); +INSERT INTO SYS_CIDADES VALUES(1284, 'Raposa', 10, 2109452); +INSERT INTO SYS_CIDADES VALUES(1285, 'Riacho', 10, 2109502); +INSERT INTO SYS_CIDADES VALUES(1286, 'Ribamar Fiquene', 10, 2109551); +INSERT INTO SYS_CIDADES VALUES(1287, 'Rosrio', 10, 2109601); +INSERT INTO SYS_CIDADES VALUES(1288, 'Sambaba', 10, 2109700); +INSERT INTO SYS_CIDADES VALUES(1289, 'Santa Filomena do Maranho', 10, 2109759); +INSERT INTO SYS_CIDADES VALUES(1290, 'Santa Helena', 10, 2109809); +INSERT INTO SYS_CIDADES VALUES(1291, 'Santa Ins', 10, 2109908); +INSERT INTO SYS_CIDADES VALUES(1292, 'Santa Luzia', 10, 2110005); +INSERT INTO SYS_CIDADES VALUES(1293, 'Santa Luzia do Paru', 10, 2110039); +INSERT INTO SYS_CIDADES VALUES(1294, 'Santa Quitria do Maranho', 10, 2110104); +INSERT INTO SYS_CIDADES VALUES(1295, 'Santa Rita', 10, 2110203); +INSERT INTO SYS_CIDADES VALUES(1296, 'Santana do Maranho', 10, 2110237); +INSERT INTO SYS_CIDADES VALUES(1297, 'Santo Amaro do Maranho', 10, 2110278); +INSERT INTO SYS_CIDADES VALUES(1298, 'Santo Antnio dos Lopes', 10, 2110302); +INSERT INTO SYS_CIDADES VALUES(1299, 'So Benedito do Rio Preto', 10, 2110401); +INSERT INTO SYS_CIDADES VALUES(1300, 'So Bento', 10, 2110500); +INSERT INTO SYS_CIDADES VALUES(1301, 'So Bernardo', 10, 2110609); +INSERT INTO SYS_CIDADES VALUES(1302, 'So Domingos do Azeito', 10, 2110658); +INSERT INTO SYS_CIDADES VALUES(1303, 'So Domingos do Maranho', 10, 2110708); +INSERT INTO SYS_CIDADES VALUES(1304, 'So Flix de Balsas', 10, 2110807); +INSERT INTO SYS_CIDADES VALUES(1305, 'So Francisco do Brejo', 10, 2110856); +INSERT INTO SYS_CIDADES VALUES(1306, 'So Francisco do Maranho', 10, 2110906); +INSERT INTO SYS_CIDADES VALUES(1307, 'So Joo Batista', 10, 2111003); +INSERT INTO SYS_CIDADES VALUES(1308, 'So Joo do Car', 10, 2111029); +INSERT INTO SYS_CIDADES VALUES(1309, 'So Joo do Paraso', 10, 2111052); +INSERT INTO SYS_CIDADES VALUES(1310, 'So Joo do Soter', 10, 2111078); +INSERT INTO SYS_CIDADES VALUES(1311, 'So Joo dos Patos', 10, 2111102); +INSERT INTO SYS_CIDADES VALUES(1312, 'So Jos de Ribamar', 10, 2111201); +INSERT INTO SYS_CIDADES VALUES(1313, 'So Jos dos Baslios', 10, 2111250); +INSERT INTO SYS_CIDADES VALUES(1314, 'So Lus', 10, 2111300); +INSERT INTO SYS_CIDADES VALUES(1315, 'So Lus Gonzaga do Maranho', 10, 2111409); +INSERT INTO SYS_CIDADES VALUES(1316, 'So Mateus do Maranho', 10, 2111508); +INSERT INTO SYS_CIDADES VALUES(1317, 'So Pedro da gua Branca', 10, 2111532); +INSERT INTO SYS_CIDADES VALUES(1318, 'So Pedro dos Crentes', 10, 2111573); +INSERT INTO SYS_CIDADES VALUES(1319, 'So Raimundo das Mangabeiras', 10, 2111607); +INSERT INTO SYS_CIDADES VALUES(1320, 'So Raimundo do Doca Bezerra', 10, 2111631); +INSERT INTO SYS_CIDADES VALUES(1321, 'So Roberto', 10, 2111672); +INSERT INTO SYS_CIDADES VALUES(1322, 'So Vicente Ferrer', 10, 2111706); +INSERT INTO SYS_CIDADES VALUES(1323, 'Satubinha', 10, 2111722); +INSERT INTO SYS_CIDADES VALUES(1324, 'Senador Alexandre Costa', 10, 2111748); +INSERT INTO SYS_CIDADES VALUES(1325, 'Senador La Rocque', 10, 2111763); +INSERT INTO SYS_CIDADES VALUES(1326, 'Serrano do Maranho', 10, 2111789); +INSERT INTO SYS_CIDADES VALUES(1327, 'Stio Novo', 10, 2111805); +INSERT INTO SYS_CIDADES VALUES(1328, 'Sucupira do Norte', 10, 2111904); +INSERT INTO SYS_CIDADES VALUES(1329, 'Sucupira do Riacho', 10, 2111953); +INSERT INTO SYS_CIDADES VALUES(1330, 'Tasso Fragoso', 10, 2112001); +INSERT INTO SYS_CIDADES VALUES(1331, 'Timbiras', 10, 2112100); +INSERT INTO SYS_CIDADES VALUES(1332, 'Timon', 10, 2112209); +INSERT INTO SYS_CIDADES VALUES(1333, 'Trizidela do Vale', 10, 2112233); +INSERT INTO SYS_CIDADES VALUES(1334, 'Tufilndia', 10, 2112274); +INSERT INTO SYS_CIDADES VALUES(1335, 'Tuntum', 10, 2112308); +INSERT INTO SYS_CIDADES VALUES(1336, 'Turiau', 10, 2112407); +INSERT INTO SYS_CIDADES VALUES(1337, 'Turilndia', 10, 2112456); +INSERT INTO SYS_CIDADES VALUES(1338, 'Tutia', 10, 2112506); +INSERT INTO SYS_CIDADES VALUES(1339, 'Urbano Santos', 10, 2112605); +INSERT INTO SYS_CIDADES VALUES(1340, 'Vargem Grande', 10, 2112704); +INSERT INTO SYS_CIDADES VALUES(1341, 'Viana', 10, 2112803); +INSERT INTO SYS_CIDADES VALUES(1342, 'Vila Nova dos Martrios', 10, 2112852); +INSERT INTO SYS_CIDADES VALUES(1343, 'Vitria do Mearim', 10, 2112902); +INSERT INTO SYS_CIDADES VALUES(1344, 'Vitorino Freire', 10, 2113009); +INSERT INTO SYS_CIDADES VALUES(1345, 'Z Doca', 10, 2114007); +INSERT INTO SYS_CIDADES VALUES(1346, 'Acorizal', 13, 5100102); +INSERT INTO SYS_CIDADES VALUES(1347, 'gua Boa', 13, 5100201); +INSERT INTO SYS_CIDADES VALUES(1348, 'Alta Floresta', 13, 5100250); +INSERT INTO SYS_CIDADES VALUES(1349, 'Alto Araguaia', 13, 5100300); +INSERT INTO SYS_CIDADES VALUES(1350, 'Alto Boa Vista', 13, 5100359); +INSERT INTO SYS_CIDADES VALUES(1351, 'Alto Garas', 13, 5100409); +INSERT INTO SYS_CIDADES VALUES(1352, 'Alto Paraguai', 13, 5100508); +INSERT INTO SYS_CIDADES VALUES(1353, 'Alto Taquari', 13, 5100607); +INSERT INTO SYS_CIDADES VALUES(1354, 'Apiacs', 13, 5100805); +INSERT INTO SYS_CIDADES VALUES(1355, 'Araguaiana', 13, 5101001); +INSERT INTO SYS_CIDADES VALUES(1356, 'Araguainha', 13, 5101209); +INSERT INTO SYS_CIDADES VALUES(1357, 'Araputanga', 13, 5101258); +INSERT INTO SYS_CIDADES VALUES(1358, 'Arenpolis', 13, 5101308); +INSERT INTO SYS_CIDADES VALUES(1359, 'Aripuan', 13, 5101407); +INSERT INTO SYS_CIDADES VALUES(1360, 'Baro de Melgao', 13, 5101605); +INSERT INTO SYS_CIDADES VALUES(1361, 'Barra do Bugres', 13, 5101704); +INSERT INTO SYS_CIDADES VALUES(1362, 'Barra do Garas', 13, 5101803); +INSERT INTO SYS_CIDADES VALUES(1363, 'Bom Jesus do Araguaia', 13, 5101852); +INSERT INTO SYS_CIDADES VALUES(1364, 'Brasnorte', 13, 5101902); +INSERT INTO SYS_CIDADES VALUES(1365, 'Cceres', 13, 5102504); +INSERT INTO SYS_CIDADES VALUES(1366, 'Campinpolis', 13, 5102603); +INSERT INTO SYS_CIDADES VALUES(1367, 'Campo Novo do Parecis', 13, 5102637); +INSERT INTO SYS_CIDADES VALUES(1368, 'Campo Verde', 13, 5102678); +INSERT INTO SYS_CIDADES VALUES(1369, 'Campos de Jlio', 13, 5102686); +INSERT INTO SYS_CIDADES VALUES(1370, 'Canabrava do Norte', 13, 5102694); +INSERT INTO SYS_CIDADES VALUES(1371, 'Canarana', 13, 5102702); +INSERT INTO SYS_CIDADES VALUES(1372, 'Carlinda', 13, 5102793); +INSERT INTO SYS_CIDADES VALUES(1373, 'Castanheira', 13, 5102850); +INSERT INTO SYS_CIDADES VALUES(1374, 'Chapada dos Guimares', 13, 5103007); +INSERT INTO SYS_CIDADES VALUES(1375, 'Cludia', 13, 5103056); +INSERT INTO SYS_CIDADES VALUES(1376, 'Cocalinho', 13, 5103106); +INSERT INTO SYS_CIDADES VALUES(1377, 'Colder', 13, 5103205); +INSERT INTO SYS_CIDADES VALUES(1378, 'Colniza', 13, 5103254); +INSERT INTO SYS_CIDADES VALUES(1379, 'Comodoro', 13, 5103304); +INSERT INTO SYS_CIDADES VALUES(1380, 'Confresa', 13, 5103353); +INSERT INTO SYS_CIDADES VALUES(1381, 'Conquista d`Oeste', 13, 5103361); +INSERT INTO SYS_CIDADES VALUES(1382, 'Cotriguau', 13, 5103379); +INSERT INTO SYS_CIDADES VALUES(1383, 'Cuiab', 13, 5103403); +INSERT INTO SYS_CIDADES VALUES(1384, 'Curvelndia', 13, 5103437); +INSERT INTO SYS_CIDADES VALUES(1386, 'Denise', 13, 5103452); +INSERT INTO SYS_CIDADES VALUES(1387, 'Diamantino', 13, 5103502); +INSERT INTO SYS_CIDADES VALUES(1388, 'Dom Aquino', 13, 5103601); +INSERT INTO SYS_CIDADES VALUES(1389, 'Feliz Natal', 13, 5103700); +INSERT INTO SYS_CIDADES VALUES(1390, 'Figueirpolis d`Oeste', 13, 5103809); +INSERT INTO SYS_CIDADES VALUES(1391, 'Gacha do Norte', 13, 5103858); +INSERT INTO SYS_CIDADES VALUES(1392, 'General Carneiro', 13, 5103908); +INSERT INTO SYS_CIDADES VALUES(1393, 'Glria d`Oeste', 13, 5103957); +INSERT INTO SYS_CIDADES VALUES(1394, 'Guarant do Norte', 13, 5104104); +INSERT INTO SYS_CIDADES VALUES(1395, 'Guiratinga', 13, 5104203); +INSERT INTO SYS_CIDADES VALUES(1396, 'Indiava', 13, 5104500); +INSERT INTO SYS_CIDADES VALUES(1397, 'Ipiranga do Norte', 13, 5104526); +INSERT INTO SYS_CIDADES VALUES(1398, 'Itanhang', 13, 5104542); +INSERT INTO SYS_CIDADES VALUES(1399, 'Itaba', 13, 5104559); +INSERT INTO SYS_CIDADES VALUES(1400, 'Itiquira', 13, 5104609); +INSERT INTO SYS_CIDADES VALUES(1401, 'Jaciara', 13, 5104807); +INSERT INTO SYS_CIDADES VALUES(1402, 'Jangada', 13, 5104906); +INSERT INTO SYS_CIDADES VALUES(1403, 'Jauru', 13, 5105002); +INSERT INTO SYS_CIDADES VALUES(1404, 'Juara', 13, 5105101); +INSERT INTO SYS_CIDADES VALUES(1405, 'Juna', 13, 5105150); +INSERT INTO SYS_CIDADES VALUES(1406, 'Juruena', 13, 5105176); +INSERT INTO SYS_CIDADES VALUES(1407, 'Juscimeira', 13, 5105200); +INSERT INTO SYS_CIDADES VALUES(1408, 'Lambari d`Oeste', 13, 5105234); +INSERT INTO SYS_CIDADES VALUES(1409, 'Lucas do Rio Verde', 13, 5105259); +INSERT INTO SYS_CIDADES VALUES(1410, 'Lucira', 13, 5105309); +INSERT INTO SYS_CIDADES VALUES(1411, 'Marcelndia', 13, 5105580); +INSERT INTO SYS_CIDADES VALUES(1412, 'Matup', 13, 5105606); +INSERT INTO SYS_CIDADES VALUES(1413, 'Mirassol d`Oeste', 13, 5105622); +INSERT INTO SYS_CIDADES VALUES(1414, 'Nobres', 13, 5105903); +INSERT INTO SYS_CIDADES VALUES(1415, 'Nortelndia', 13, 5106000); +INSERT INTO SYS_CIDADES VALUES(1416, 'Nossa Senhora do Livramento', 13, 5106109); +INSERT INTO SYS_CIDADES VALUES(1417, 'Nova Bandeirantes', 13, 5106158); +INSERT INTO SYS_CIDADES VALUES(1418, 'Nova Brasilndia', 13, 5106208); +INSERT INTO SYS_CIDADES VALUES(1419, 'Nova Cana do Norte', 13, 5106216); +INSERT INTO SYS_CIDADES VALUES(1420, 'Nova Guarita', 13, 5108808); +INSERT INTO SYS_CIDADES VALUES(1421, 'Nova Lacerda', 13, 5106182); +INSERT INTO SYS_CIDADES VALUES(1422, 'Nova Marilndia', 13, 5108857); +INSERT INTO SYS_CIDADES VALUES(1423, 'Nova Maring', 13, 5108907); +INSERT INTO SYS_CIDADES VALUES(1424, 'Nova Monte verde', 13, 5108956); +INSERT INTO SYS_CIDADES VALUES(1425, 'Nova Mutum', 13, 5106224); +INSERT INTO SYS_CIDADES VALUES(1426, 'Nova Olmpia', 13, 5106232); +INSERT INTO SYS_CIDADES VALUES(1427, 'Nova Santa Helena', 13, 5106190); +INSERT INTO SYS_CIDADES VALUES(1428, 'Nova Ubirat', 13, 5106240); +INSERT INTO SYS_CIDADES VALUES(1429, 'Nova Xavantina', 13, 5106257); +INSERT INTO SYS_CIDADES VALUES(1430, 'Novo Horizonte do Norte', 13, 5106273); +INSERT INTO SYS_CIDADES VALUES(1431, 'Novo Mundo', 13, 5106265); +INSERT INTO SYS_CIDADES VALUES(1432, 'Novo Santo Antnio', 13, 5106315); +INSERT INTO SYS_CIDADES VALUES(1433, 'Novo So Joaquim', 13, 5106281); +INSERT INTO SYS_CIDADES VALUES(1434, 'Paranata', 13, 5106299); +INSERT INTO SYS_CIDADES VALUES(1435, 'Paranatinga', 13, 5106307); +INSERT INTO SYS_CIDADES VALUES(1436, 'Pedra Preta', 13, 5106372); +INSERT INTO SYS_CIDADES VALUES(1437, 'Peixoto de Azevedo', 13, 5106422); +INSERT INTO SYS_CIDADES VALUES(1438, 'Planalto da Serra', 13, 5106455); +INSERT INTO SYS_CIDADES VALUES(1439, 'Pocon', 13, 5106505); +INSERT INTO SYS_CIDADES VALUES(1440, 'Pontal do Araguaia', 13, 5106653); +INSERT INTO SYS_CIDADES VALUES(1441, 'Ponte Branca', 13, 5106703); +INSERT INTO SYS_CIDADES VALUES(1442, 'Pontes e Lacerda', 13, 5106752); +INSERT INTO SYS_CIDADES VALUES(1443, 'Porto Alegre do Norte', 13, 5106778); +INSERT INTO SYS_CIDADES VALUES(1444, 'Porto dos Gachos', 13, 5106802); +INSERT INTO SYS_CIDADES VALUES(1445, 'Porto Esperidio', 13, 5106828); +INSERT INTO SYS_CIDADES VALUES(1446, 'Porto Estrela', 13, 5106851); +INSERT INTO SYS_CIDADES VALUES(1447, 'Poxoro', 13, 5107008); +INSERT INTO SYS_CIDADES VALUES(1448, 'Primavera do Leste', 13, 5107040); +INSERT INTO SYS_CIDADES VALUES(1449, 'Querncia', 13, 5107065); +INSERT INTO SYS_CIDADES VALUES(1450, 'Reserva do Cabaal', 13, 5107156); +INSERT INTO SYS_CIDADES VALUES(1451, 'Ribeiro Cascalheira', 13, 5107180); +INSERT INTO SYS_CIDADES VALUES(1452, 'Ribeirozinho', 13, 5107198); +INSERT INTO SYS_CIDADES VALUES(1453, 'Rio Branco', 13, 5107206); +INSERT INTO SYS_CIDADES VALUES(1454, 'Rondolndia', 13, 5107578); +INSERT INTO SYS_CIDADES VALUES(1455, 'Rondonpolis', 13, 5107602); +INSERT INTO SYS_CIDADES VALUES(1456, 'Rosrio Oeste', 13, 5107701); +INSERT INTO SYS_CIDADES VALUES(1457, 'Salto do Cu', 13, 5107750); +INSERT INTO SYS_CIDADES VALUES(1458, 'Santa Carmem', 13, 5107248); +INSERT INTO SYS_CIDADES VALUES(1459, 'Santa Cruz do Xingu', 13, 5107743); +INSERT INTO SYS_CIDADES VALUES(1460, 'Santa Rita do Trivelato', 13, 5107768); +INSERT INTO SYS_CIDADES VALUES(1461, 'Santa Terezinha', 13, 5107776); +INSERT INTO SYS_CIDADES VALUES(1462, 'Santo Afonso', 13, 5107263); +INSERT INTO SYS_CIDADES VALUES(1463, 'Santo Antnio do Leste', 13, 5107792); +INSERT INTO SYS_CIDADES VALUES(1464, 'Santo Antnio do Leverger', 13, 5107800); +INSERT INTO SYS_CIDADES VALUES(1465, 'So Flix do Araguaia', 13, 5107859); +INSERT INTO SYS_CIDADES VALUES(1466, 'So Jos do Povo', 13, 5107297); +INSERT INTO SYS_CIDADES VALUES(1467, 'So Jos do Rio Claro', 13, 5107305); +INSERT INTO SYS_CIDADES VALUES(1468, 'So Jos do Xingu', 13, 5107354); +INSERT INTO SYS_CIDADES VALUES(1469, 'So Jos dos Quatro Marcos', 13, 5107107); +INSERT INTO SYS_CIDADES VALUES(1470, 'So Pedro da Cipa', 13, 5107404); +INSERT INTO SYS_CIDADES VALUES(1471, 'Sapezal', 13, 5107875); +INSERT INTO SYS_CIDADES VALUES(1472, 'Serra Nova Dourada', 13, 5107883); +INSERT INTO SYS_CIDADES VALUES(1473, 'Sinop', 13, 5107909); +INSERT INTO SYS_CIDADES VALUES(1474, 'Sorriso', 13, 5107925); +INSERT INTO SYS_CIDADES VALUES(1475, 'Tabapor', 13, 5107941); +INSERT INTO SYS_CIDADES VALUES(1476, 'Tangar da Serra', 13, 5107958); +INSERT INTO SYS_CIDADES VALUES(1477, 'Tapurah', 13, 5108006); +INSERT INTO SYS_CIDADES VALUES(1478, 'Terra Nova do Norte', 13, 5108055); +INSERT INTO SYS_CIDADES VALUES(1479, 'Tesouro', 13, 5108105); +INSERT INTO SYS_CIDADES VALUES(1480, 'Torixoru', 13, 5108204); +INSERT INTO SYS_CIDADES VALUES(1481, 'Unio do Sul', 13, 5108303); +INSERT INTO SYS_CIDADES VALUES(1482, 'Vale de So Domingos', 13, 5108352); +INSERT INTO SYS_CIDADES VALUES(1483, 'Vrzea Grande', 13, 5108402); +INSERT INTO SYS_CIDADES VALUES(1484, 'Vera', 13, 5108501); +INSERT INTO SYS_CIDADES VALUES(1485, 'Vila Bela da Santssima Trindade', 13, 5105507); +INSERT INTO SYS_CIDADES VALUES(1486, 'Vila Rica', 13, 5108600); +INSERT INTO SYS_CIDADES VALUES(1487, 'gua Clara', 12, 5000203); +INSERT INTO SYS_CIDADES VALUES(1488, 'Alcinpolis', 12, 5000252); +INSERT INTO SYS_CIDADES VALUES(1489, 'Amamba', 12, 5000609); +INSERT INTO SYS_CIDADES VALUES(1490, 'Anastcio', 12, 5000708); +INSERT INTO SYS_CIDADES VALUES(1491, 'Anaurilndia', 12, 5000807); +INSERT INTO SYS_CIDADES VALUES(1492, 'Anglica', 12, 5000856); +INSERT INTO SYS_CIDADES VALUES(1493, 'Antnio Joo', 12, 5000906); +INSERT INTO SYS_CIDADES VALUES(1494, 'Aparecida do Taboado', 12, 5001003); +INSERT INTO SYS_CIDADES VALUES(1495, 'Aquidauana', 12, 5001102); +INSERT INTO SYS_CIDADES VALUES(1496, 'Aral Moreira', 12, 5001243); +INSERT INTO SYS_CIDADES VALUES(1497, 'Bandeirantes', 12, 5001508); +INSERT INTO SYS_CIDADES VALUES(1498, 'Bataguassu', 12, 5001904); +INSERT INTO SYS_CIDADES VALUES(1500, 'Bela Vista', 12, 5002100); +INSERT INTO SYS_CIDADES VALUES(1501, 'Bodoquena', 12, 5002159); +INSERT INTO SYS_CIDADES VALUES(1502, 'Bonito', 12, 5002209); +INSERT INTO SYS_CIDADES VALUES(1503, 'Brasilndia', 12, 5002308); +INSERT INTO SYS_CIDADES VALUES(1504, 'Caarap', 12, 5002407); +INSERT INTO SYS_CIDADES VALUES(1505, 'Camapu', 12, 5002605); +INSERT INTO SYS_CIDADES VALUES(1506, 'Campo Grande', 12, 5002704); +INSERT INTO SYS_CIDADES VALUES(1507, 'Caracol', 12, 5002803); +INSERT INTO SYS_CIDADES VALUES(1508, 'Cassilndia', 12, 5002902); +INSERT INTO SYS_CIDADES VALUES(1509, 'Chapado do Sul', 12, 5002951); +INSERT INTO SYS_CIDADES VALUES(1510, 'Corguinho', 12, 5003108); +INSERT INTO SYS_CIDADES VALUES(1511, 'Coronel Sapucaia', 12, 5003157); +INSERT INTO SYS_CIDADES VALUES(1512, 'Corumb', 12, 5003207); +INSERT INTO SYS_CIDADES VALUES(1513, 'Costa Rica', 12, 5003256); +INSERT INTO SYS_CIDADES VALUES(1514, 'Coxim', 12, 5003306); +INSERT INTO SYS_CIDADES VALUES(1515, 'Deodpolis', 12, 5003454); +INSERT INTO SYS_CIDADES VALUES(1516, 'Dois Irmos do Buriti', 12, 5003488); +INSERT INTO SYS_CIDADES VALUES(1517, 'Douradina', 12, 5003504); +INSERT INTO SYS_CIDADES VALUES(1518, 'Dourados', 12, 5003702); +INSERT INTO SYS_CIDADES VALUES(1519, 'Eldorado', 12, 5003751); +INSERT INTO SYS_CIDADES VALUES(1520, 'Ftima do Sul', 12, 5003801); +INSERT INTO SYS_CIDADES VALUES(1521, 'Figueiro', 12, 5003900); +INSERT INTO SYS_CIDADES VALUES(1522, 'Glria de Dourados', 12, 5004007); +INSERT INTO SYS_CIDADES VALUES(1523, 'Guia Lopes da Laguna', 12, 5004106); +INSERT INTO SYS_CIDADES VALUES(1524, 'Iguatemi', 12, 5004304); +INSERT INTO SYS_CIDADES VALUES(1525, 'Inocncia', 12, 5004403); +INSERT INTO SYS_CIDADES VALUES(1526, 'Itapor', 12, 5004502); +INSERT INTO SYS_CIDADES VALUES(1527, 'Itaquira', 12, 5004601); +INSERT INTO SYS_CIDADES VALUES(1528, 'Ivinhema', 12, 5004700); +INSERT INTO SYS_CIDADES VALUES(1529, 'Japor', 12, 5004809); +INSERT INTO SYS_CIDADES VALUES(1530, 'Jaraguari', 12, 5004908); +INSERT INTO SYS_CIDADES VALUES(1531, 'Jardim', 12, 5005004); +INSERT INTO SYS_CIDADES VALUES(1532, 'Jate', 12, 5005103); +INSERT INTO SYS_CIDADES VALUES(1533, 'Juti', 12, 5005152); +INSERT INTO SYS_CIDADES VALUES(1534, 'Ladrio', 12, 5005202); +INSERT INTO SYS_CIDADES VALUES(1535, 'Laguna Carap', 12, 5005251); +INSERT INTO SYS_CIDADES VALUES(1536, 'Maracaju', 12, 5005400); +INSERT INTO SYS_CIDADES VALUES(1537, 'Miranda', 12, 5005608); +INSERT INTO SYS_CIDADES VALUES(1538, 'Mundo Novo', 12, 5005681); +INSERT INTO SYS_CIDADES VALUES(1539, 'Navira', 12, 5005707); +INSERT INTO SYS_CIDADES VALUES(1540, 'Nioaque', 12, 5005806); +INSERT INTO SYS_CIDADES VALUES(1541, 'Nova Alvorada do Sul', 12, 5006002); +INSERT INTO SYS_CIDADES VALUES(1542, 'Nova Andradina', 12, 5006200); +INSERT INTO SYS_CIDADES VALUES(1543, 'Novo Horizonte do Sul', 12, 5006259); +INSERT INTO SYS_CIDADES VALUES(1544, 'Paranaba', 12, 5006309); +INSERT INTO SYS_CIDADES VALUES(1545, 'Paranhos', 12, 5006358); +INSERT INTO SYS_CIDADES VALUES(1546, 'Pedro Gomes', 12, 5006408); +INSERT INTO SYS_CIDADES VALUES(1547, 'Ponta Por', 12, 5006606); +INSERT INTO SYS_CIDADES VALUES(1548, 'Porto Murtinho', 12, 5006903); +INSERT INTO SYS_CIDADES VALUES(1549, 'Ribas do Rio Pardo', 12, 5007109); +INSERT INTO SYS_CIDADES VALUES(1550, 'Rio Brilhante', 12, 5007208); +INSERT INTO SYS_CIDADES VALUES(1551, 'Rio Negro', 12, 5007307); +INSERT INTO SYS_CIDADES VALUES(1552, 'Rio Verde de Mato Grosso', 12, 5007406); +INSERT INTO SYS_CIDADES VALUES(1553, 'Rochedo', 12, 5007505); +INSERT INTO SYS_CIDADES VALUES(1554, 'Santa Rita do Pardo', 12, 5007554); +INSERT INTO SYS_CIDADES VALUES(1555, 'So Gabriel do Oeste', 12, 5007695); +INSERT INTO SYS_CIDADES VALUES(1556, 'Selvria', 12, 5007802); +INSERT INTO SYS_CIDADES VALUES(1557, 'Sete Quedas', 12, 5007703); +INSERT INTO SYS_CIDADES VALUES(1558, 'Sidrolndia', 12, 5007901); +INSERT INTO SYS_CIDADES VALUES(1559, 'Sonora', 12, 5007935); +INSERT INTO SYS_CIDADES VALUES(1560, 'Tacuru', 12, 5007950); +INSERT INTO SYS_CIDADES VALUES(1561, 'Taquarussu', 12, 5007976); +INSERT INTO SYS_CIDADES VALUES(1562, 'Terenos', 12, 5008008); +INSERT INTO SYS_CIDADES VALUES(1563, 'Trs Lagoas', 12, 5008305); +INSERT INTO SYS_CIDADES VALUES(1564, 'Vicentina', 12, 5008404); +INSERT INTO SYS_CIDADES VALUES(1565, 'Abadia dos Dourados', 11, 3100104); +INSERT INTO SYS_CIDADES VALUES(1566, 'Abaet', 11, 3100203); +INSERT INTO SYS_CIDADES VALUES(1567, 'Abre Campo', 11, 3100302); +INSERT INTO SYS_CIDADES VALUES(1568, 'Acaiaca', 11, 3100401); +INSERT INTO SYS_CIDADES VALUES(1569, 'Aucena', 11, 3100500); +INSERT INTO SYS_CIDADES VALUES(1570, 'gua Boa', 11, 3100609); +INSERT INTO SYS_CIDADES VALUES(1571, 'gua Comprida', 11, 3100708); +INSERT INTO SYS_CIDADES VALUES(1572, 'Aguanil', 11, 3100807); +INSERT INTO SYS_CIDADES VALUES(1573, 'guas Formosas', 11, 3100906); +INSERT INTO SYS_CIDADES VALUES(1574, 'guas Vermelhas', 11, 3101003); +INSERT INTO SYS_CIDADES VALUES(1575, 'Aimors', 11, 3101102); +INSERT INTO SYS_CIDADES VALUES(1576, 'Aiuruoca', 11, 3101201); +INSERT INTO SYS_CIDADES VALUES(1577, 'Alagoa', 11, 3101300); +INSERT INTO SYS_CIDADES VALUES(1578, 'Albertina', 11, 3101409); +INSERT INTO SYS_CIDADES VALUES(1579, 'Alm Paraba', 11, 3101508); +INSERT INTO SYS_CIDADES VALUES(1580, 'Alfenas', 11, 3101607); +INSERT INTO SYS_CIDADES VALUES(1581, 'Alfredo Vasconcelos', 11, 3101631); +INSERT INTO SYS_CIDADES VALUES(1582, 'Almenara', 11, 3101706); +INSERT INTO SYS_CIDADES VALUES(1583, 'Alpercata', 11, 3101805); +INSERT INTO SYS_CIDADES VALUES(1584, 'Alpinpolis', 11, 3101904); +INSERT INTO SYS_CIDADES VALUES(1585, 'Alterosa', 11, 3102001); +INSERT INTO SYS_CIDADES VALUES(1586, 'Alto Capara', 11, 3102050); +INSERT INTO SYS_CIDADES VALUES(1587, 'Alto Jequitib', 11, 3153509); +INSERT INTO SYS_CIDADES VALUES(1588, 'Alto Rio Doce', 11, 3102100); +INSERT INTO SYS_CIDADES VALUES(1589, 'Alvarenga', 11, 3102209); +INSERT INTO SYS_CIDADES VALUES(1590, 'Alvinpolis', 11, 3102308); +INSERT INTO SYS_CIDADES VALUES(1591, 'Alvorada de Minas', 11, 3102407); +INSERT INTO SYS_CIDADES VALUES(1592, 'Amparo do Serra', 11, 3102506); +INSERT INTO SYS_CIDADES VALUES(1593, 'Andradas', 11, 3102605); +INSERT INTO SYS_CIDADES VALUES(1594, 'Andrelndia', 11, 3102803); +INSERT INTO SYS_CIDADES VALUES(1595, 'Angelndia', 11, 3102852); +INSERT INTO SYS_CIDADES VALUES(1596, 'Antnio Carlos', 11, 3102902); +INSERT INTO SYS_CIDADES VALUES(1597, 'Antnio Dias', 11, 3103009); +INSERT INTO SYS_CIDADES VALUES(1598, 'Antnio Prado de Minas', 11, 3103108); +INSERT INTO SYS_CIDADES VALUES(1599, 'Araa', 11, 3103207); +INSERT INTO SYS_CIDADES VALUES(1600, 'Aracitaba', 11, 3103306); +INSERT INTO SYS_CIDADES VALUES(1601, 'Araua', 11, 3103405); +INSERT INTO SYS_CIDADES VALUES(1602, 'Araguari', 11, 3103504); +INSERT INTO SYS_CIDADES VALUES(1603, 'Arantina', 11, 3103603); +INSERT INTO SYS_CIDADES VALUES(1604, 'Araponga', 11, 3103702); +INSERT INTO SYS_CIDADES VALUES(1605, 'Arapor', 11, 3103751); +INSERT INTO SYS_CIDADES VALUES(1606, 'Arapu', 11, 3103801); +INSERT INTO SYS_CIDADES VALUES(1607, 'Arajos', 11, 3103900); +INSERT INTO SYS_CIDADES VALUES(1608, 'Arax', 11, 3104007); +INSERT INTO SYS_CIDADES VALUES(1609, 'Arceburgo', 11, 3104106); +INSERT INTO SYS_CIDADES VALUES(1610, 'Arcos', 11, 3104205); +INSERT INTO SYS_CIDADES VALUES(1611, 'Areado', 11, 3104304); +INSERT INTO SYS_CIDADES VALUES(1612, 'Argirita', 11, 3104403); +INSERT INTO SYS_CIDADES VALUES(1613, 'Aricanduva', 11, 3104452); +INSERT INTO SYS_CIDADES VALUES(1614, 'Arinos', 11, 3104502); +INSERT INTO SYS_CIDADES VALUES(1615, 'Astolfo Dutra', 11, 3104601); +INSERT INTO SYS_CIDADES VALUES(1616, 'Atalia', 11, 3104700); +INSERT INTO SYS_CIDADES VALUES(1617, 'Augusto de Lima', 11, 3104809); +INSERT INTO SYS_CIDADES VALUES(1618, 'Baependi', 11, 3104908); +INSERT INTO SYS_CIDADES VALUES(1619, 'Baldim', 11, 3105004); +INSERT INTO SYS_CIDADES VALUES(1620, 'Bambu', 11, 3105103); +INSERT INTO SYS_CIDADES VALUES(1621, 'Bandeira', 11, 3105202); +INSERT INTO SYS_CIDADES VALUES(1622, 'Bandeira do Sul', 11, 3105301); +INSERT INTO SYS_CIDADES VALUES(1623, 'Baro de Cocais', 11, 3105400); +INSERT INTO SYS_CIDADES VALUES(1624, 'Baro de Monte Alto', 11, 3105509); +INSERT INTO SYS_CIDADES VALUES(1625, 'Barbacena', 11, 3105608); +INSERT INTO SYS_CIDADES VALUES(1626, 'Barra Longa', 11, 3105707); +INSERT INTO SYS_CIDADES VALUES(1627, 'Barroso', 11, 3105905); +INSERT INTO SYS_CIDADES VALUES(1628, 'Bela Vista de Minas', 11, 3106002); +INSERT INTO SYS_CIDADES VALUES(1629, 'Belmiro Braga', 11, 3106101); +INSERT INTO SYS_CIDADES VALUES(1630, 'Belo Horizonte', 11, 3106200); +INSERT INTO SYS_CIDADES VALUES(1631, 'Belo Oriente', 11, 3106309); +INSERT INTO SYS_CIDADES VALUES(1632, 'Belo Vale', 11, 3106408); +INSERT INTO SYS_CIDADES VALUES(1633, 'Berilo', 11, 3106507); +INSERT INTO SYS_CIDADES VALUES(1634, 'Berizal', 11, 3106655); +INSERT INTO SYS_CIDADES VALUES(1635, 'Bertpolis', 11, 3106606); +INSERT INTO SYS_CIDADES VALUES(1636, 'Betim', 11, 3106705); +INSERT INTO SYS_CIDADES VALUES(1637, 'Bias Fortes', 11, 3106804); +INSERT INTO SYS_CIDADES VALUES(1638, 'Bicas', 11, 3106903); +INSERT INTO SYS_CIDADES VALUES(1639, 'Biquinhas', 11, 3107000); +INSERT INTO SYS_CIDADES VALUES(1640, 'Boa Esperana', 11, 3107109); +INSERT INTO SYS_CIDADES VALUES(1641, 'Bocaina de Minas', 11, 3107208); +INSERT INTO SYS_CIDADES VALUES(1642, 'Bocaiva', 11, 3107307); +INSERT INTO SYS_CIDADES VALUES(1643, 'Bom Despacho', 11, 3107406); +INSERT INTO SYS_CIDADES VALUES(1644, 'Bom Jardim de Minas', 11, 3107505); +INSERT INTO SYS_CIDADES VALUES(1645, 'Bom Jesus da Penha', 11, 3107604); +INSERT INTO SYS_CIDADES VALUES(1646, 'Bom Jesus do Amparo', 11, 3107703); +INSERT INTO SYS_CIDADES VALUES(1647, 'Bom Jesus do Galho', 11, 3107802); +INSERT INTO SYS_CIDADES VALUES(1648, 'Bom Repouso', 11, 3107901); +INSERT INTO SYS_CIDADES VALUES(1649, 'Bom Sucesso', 11, 3108008); +INSERT INTO SYS_CIDADES VALUES(1650, 'Bonfim', 11, 3108107); +INSERT INTO SYS_CIDADES VALUES(1651, 'Bonfinpolis de Minas', 11, 3108206); +INSERT INTO SYS_CIDADES VALUES(1652, 'Bonito de Minas', 11, 3108255); +INSERT INTO SYS_CIDADES VALUES(1653, 'Borda da Mata', 11, 3108305); +INSERT INTO SYS_CIDADES VALUES(1654, 'Botelhos', 11, 3108404); +INSERT INTO SYS_CIDADES VALUES(1655, 'Botumirim', 11, 3108503); +INSERT INTO SYS_CIDADES VALUES(1656, 'Brs Pires', 11, 3108701); +INSERT INTO SYS_CIDADES VALUES(1657, 'Brasilndia de Minas', 11, 3108552); +INSERT INTO SYS_CIDADES VALUES(1658, 'Braslia de Minas', 11, 3108602); +INSERT INTO SYS_CIDADES VALUES(1659, 'Braspolis', 11, 3108909); +INSERT INTO SYS_CIDADES VALUES(1660, 'Branas', 11, 3108800); +INSERT INTO SYS_CIDADES VALUES(1661, 'Brumadinho', 11, 3109006); +INSERT INTO SYS_CIDADES VALUES(1662, 'Bueno Brando', 11, 3109105); +INSERT INTO SYS_CIDADES VALUES(1663, 'Buenpolis', 11, 3109204); +INSERT INTO SYS_CIDADES VALUES(1664, 'Bugre', 11, 3109253); +INSERT INTO SYS_CIDADES VALUES(1665, 'Buritis', 11, 3109303); +INSERT INTO SYS_CIDADES VALUES(1666, 'Buritizeiro', 11, 3109402); +INSERT INTO SYS_CIDADES VALUES(1667, 'Cabeceira Grande', 11, 3109451); +INSERT INTO SYS_CIDADES VALUES(1668, 'Cabo Verde', 11, 3109501); +INSERT INTO SYS_CIDADES VALUES(1669, 'Cachoeira da Prata', 11, 3109600); +INSERT INTO SYS_CIDADES VALUES(1670, 'Cachoeira de Minas', 11, 3109709); +INSERT INTO SYS_CIDADES VALUES(1671, 'Cachoeira de Paje', 11, 3102704); +INSERT INTO SYS_CIDADES VALUES(1672, 'Cachoeira Dourada', 11, 3109808); +INSERT INTO SYS_CIDADES VALUES(1673, 'Caetanpolis', 11, 3109907); +INSERT INTO SYS_CIDADES VALUES(1674, 'Caet', 11, 3110004); +INSERT INTO SYS_CIDADES VALUES(1675, 'Caiana', 11, 3110103); +INSERT INTO SYS_CIDADES VALUES(1676, 'Cajuri', 11, 3110202); +INSERT INTO SYS_CIDADES VALUES(1677, 'Caldas', 11, 3110301); +INSERT INTO SYS_CIDADES VALUES(1678, 'Camacho', 11, 3110400); +INSERT INTO SYS_CIDADES VALUES(1679, 'Camanducaia', 11, 3110509); +INSERT INTO SYS_CIDADES VALUES(1680, 'Cambu', 11, 3110608); +INSERT INTO SYS_CIDADES VALUES(1681, 'Cambuquira', 11, 3110707); +INSERT INTO SYS_CIDADES VALUES(1682, 'Campanrio', 11, 3110806); +INSERT INTO SYS_CIDADES VALUES(1683, 'Campanha', 11, 3110905); +INSERT INTO SYS_CIDADES VALUES(1684, 'Campestre', 11, 3111002); +INSERT INTO SYS_CIDADES VALUES(1685, 'Campina Verde', 11, 3111101); +INSERT INTO SYS_CIDADES VALUES(1686, 'Campo Azul', 11, 3111150); +INSERT INTO SYS_CIDADES VALUES(1687, 'Campo Belo', 11, 3111200); +INSERT INTO SYS_CIDADES VALUES(1688, 'Campo do Meio', 11, 3111309); +INSERT INTO SYS_CIDADES VALUES(1689, 'Campo Florido', 11, 3111408); +INSERT INTO SYS_CIDADES VALUES(1690, 'Campos Altos', 11, 3111507); +INSERT INTO SYS_CIDADES VALUES(1691, 'Campos Gerais', 11, 3111606); +INSERT INTO SYS_CIDADES VALUES(1692, 'Cana Verde', 11, 3111903); +INSERT INTO SYS_CIDADES VALUES(1693, 'Cana', 11, 3111705); +INSERT INTO SYS_CIDADES VALUES(1694, 'Canpolis', 11, 3111804); +INSERT INTO SYS_CIDADES VALUES(1695, 'Candeias', 11, 3112000); +INSERT INTO SYS_CIDADES VALUES(1696, 'Cantagalo', 11, 3112059); +INSERT INTO SYS_CIDADES VALUES(1697, 'Capara', 11, 3112109); +INSERT INTO SYS_CIDADES VALUES(1698, 'Capela Nova', 11, 3112208); +INSERT INTO SYS_CIDADES VALUES(1699, 'Capelinha', 11, 3112307); +INSERT INTO SYS_CIDADES VALUES(1700, 'Capetinga', 11, 3112406); +INSERT INTO SYS_CIDADES VALUES(1701, 'Capim Branco', 11, 3112505); +INSERT INTO SYS_CIDADES VALUES(1702, 'Capinpolis', 11, 3112604); +INSERT INTO SYS_CIDADES VALUES(1703, 'Capito Andrade', 11, 3112653); +INSERT INTO SYS_CIDADES VALUES(1704, 'Capito Enas', 11, 3112703); +INSERT INTO SYS_CIDADES VALUES(1705, 'Capitlio', 11, 3112802); +INSERT INTO SYS_CIDADES VALUES(1706, 'Caputira', 11, 3112901); +INSERT INTO SYS_CIDADES VALUES(1707, 'Cara', 11, 3113008); +INSERT INTO SYS_CIDADES VALUES(1708, 'Caranaba', 11, 3113107); +INSERT INTO SYS_CIDADES VALUES(1709, 'Caranda', 11, 3113206); +INSERT INTO SYS_CIDADES VALUES(1710, 'Carangola', 11, 3113305); +INSERT INTO SYS_CIDADES VALUES(1711, 'Caratinga', 11, 3113404); +INSERT INTO SYS_CIDADES VALUES(1712, 'Carbonita', 11, 3113503); +INSERT INTO SYS_CIDADES VALUES(1713, 'Careau', 11, 3113602); +INSERT INTO SYS_CIDADES VALUES(1714, 'Carlos Chagas', 11, 3113701); +INSERT INTO SYS_CIDADES VALUES(1715, 'Carmsia', 11, 3113800); +INSERT INTO SYS_CIDADES VALUES(1716, 'Carmo da Cachoeira', 11, 3113909); +INSERT INTO SYS_CIDADES VALUES(1717, 'Carmo da Mata', 11, 3114006); +INSERT INTO SYS_CIDADES VALUES(1718, 'Carmo de Minas', 11, 3114105); +INSERT INTO SYS_CIDADES VALUES(1719, 'Carmo do Cajuru', 11, 3114204); +INSERT INTO SYS_CIDADES VALUES(1720, 'Carmo do Paranaba', 11, 3114303); +INSERT INTO SYS_CIDADES VALUES(1721, 'Carmo do Rio Claro', 11, 3114402); +INSERT INTO SYS_CIDADES VALUES(1722, 'Carmpolis de Minas', 11, 3114501); +INSERT INTO SYS_CIDADES VALUES(1723, 'Carneirinho', 11, 3114550); +INSERT INTO SYS_CIDADES VALUES(1724, 'Carrancas', 11, 3114600); +INSERT INTO SYS_CIDADES VALUES(1725, 'Carvalhpolis', 11, 3114709); +INSERT INTO SYS_CIDADES VALUES(1726, 'Carvalhos', 11, 3114808); +INSERT INTO SYS_CIDADES VALUES(1727, 'Casa Grande', 11, 3114907); +INSERT INTO SYS_CIDADES VALUES(1728, 'Cascalho Rico', 11, 3115003); +INSERT INTO SYS_CIDADES VALUES(1729, 'Cssia', 11, 3115102); +INSERT INTO SYS_CIDADES VALUES(1730, 'Cataguases', 11, 3115300); +INSERT INTO SYS_CIDADES VALUES(1731, 'Catas Altas', 11, 3115359); +INSERT INTO SYS_CIDADES VALUES(1732, 'Catas Altas da Noruega', 11, 3115409); +INSERT INTO SYS_CIDADES VALUES(1733, 'Catuji', 11, 3115458); +INSERT INTO SYS_CIDADES VALUES(1734, 'Catuti', 11, 3115474); +INSERT INTO SYS_CIDADES VALUES(1735, 'Caxambu', 11, 3115508); +INSERT INTO SYS_CIDADES VALUES(1736, 'Cedro do Abaet', 11, 3115607); +INSERT INTO SYS_CIDADES VALUES(1737, 'Central de Minas', 11, 3115706); +INSERT INTO SYS_CIDADES VALUES(1738, 'Centralina', 11, 3115805); +INSERT INTO SYS_CIDADES VALUES(1739, 'Chcara', 11, 3115904); +INSERT INTO SYS_CIDADES VALUES(1740, 'Chal', 11, 3116001); +INSERT INTO SYS_CIDADES VALUES(1741, 'Chapada do Norte', 11, 3116100); +INSERT INTO SYS_CIDADES VALUES(1742, 'Chapada Gacha', 11, 3116159); +INSERT INTO SYS_CIDADES VALUES(1743, 'Chiador', 11, 3116209); +INSERT INTO SYS_CIDADES VALUES(1744, 'Cipotnea', 11, 3116308); +INSERT INTO SYS_CIDADES VALUES(1745, 'Claraval', 11, 3116407); +INSERT INTO SYS_CIDADES VALUES(1746, 'Claro dos Poes', 11, 3116506); +INSERT INTO SYS_CIDADES VALUES(1747, 'Cludio', 11, 3116605); +INSERT INTO SYS_CIDADES VALUES(1748, 'Coimbra', 11, 3116704); +INSERT INTO SYS_CIDADES VALUES(1749, 'Coluna', 11, 3116803); +INSERT INTO SYS_CIDADES VALUES(1750, 'Comendador Gomes', 11, 3116902); +INSERT INTO SYS_CIDADES VALUES(1751, 'Comercinho', 11, 3117009); +INSERT INTO SYS_CIDADES VALUES(1752, 'Conceio da Aparecida', 11, 3117108); +INSERT INTO SYS_CIDADES VALUES(1753, 'Conceio da Barra de Minas', 11, 3115201); +INSERT INTO SYS_CIDADES VALUES(1754, 'Conceio das Alagoas', 11, 3117306); +INSERT INTO SYS_CIDADES VALUES(1755, 'Conceio das Pedras', 11, 3117207); +INSERT INTO SYS_CIDADES VALUES(1756, 'Conceio de Ipanema', 11, 3117405); +INSERT INTO SYS_CIDADES VALUES(1757, 'Conceio do Mato Dentro', 11, 3117504); +INSERT INTO SYS_CIDADES VALUES(1758, 'Conceio do Par', 11, 3117603); +INSERT INTO SYS_CIDADES VALUES(1759, 'Conceio do Rio Verde', 11, 3117702); +INSERT INTO SYS_CIDADES VALUES(1760, 'Conceio dos Ouros', 11, 3117801); +INSERT INTO SYS_CIDADES VALUES(1761, 'Cnego Marinho', 11, 3117836); +INSERT INTO SYS_CIDADES VALUES(1762, 'Confins', 11, 3117876); +INSERT INTO SYS_CIDADES VALUES(1763, 'Congonhal', 11, 3117900); +INSERT INTO SYS_CIDADES VALUES(1764, 'Congonhas', 11, 3118007); +INSERT INTO SYS_CIDADES VALUES(1765, 'Congonhas do Norte', 11, 3118106); +INSERT INTO SYS_CIDADES VALUES(1766, 'Conquista', 11, 3118205); +INSERT INTO SYS_CIDADES VALUES(1767, 'Conselheiro Lafaiete', 11, 3118304); +INSERT INTO SYS_CIDADES VALUES(1768, 'Conselheiro Pena', 11, 3118403); +INSERT INTO SYS_CIDADES VALUES(1769, 'Consolao', 11, 3118502); +INSERT INTO SYS_CIDADES VALUES(1770, 'Contagem', 11, 3118601); +INSERT INTO SYS_CIDADES VALUES(1771, 'Coqueiral', 11, 3118700); +INSERT INTO SYS_CIDADES VALUES(1772, 'Corao de Jesus', 11, 3118809); +INSERT INTO SYS_CIDADES VALUES(1773, 'Cordisburgo', 11, 3118908); +INSERT INTO SYS_CIDADES VALUES(1774, 'Cordislndia', 11, 3119005); +INSERT INTO SYS_CIDADES VALUES(1775, 'Corinto', 11, 3119104); +INSERT INTO SYS_CIDADES VALUES(1776, 'Coroaci', 11, 3119203); +INSERT INTO SYS_CIDADES VALUES(1777, 'Coromandel', 11, 3119302); +INSERT INTO SYS_CIDADES VALUES(1778, 'Coronel Fabriciano', 11, 3119401); +INSERT INTO SYS_CIDADES VALUES(1779, 'Coronel Murta', 11, 3119500); +INSERT INTO SYS_CIDADES VALUES(1780, 'Coronel Pacheco', 11, 3119609); +INSERT INTO SYS_CIDADES VALUES(1781, 'Coronel Xavier Chaves', 11, 3119708); +INSERT INTO SYS_CIDADES VALUES(1782, 'Crrego Danta', 11, 3119807); +INSERT INTO SYS_CIDADES VALUES(1783, 'Crrego do Bom Jesus', 11, 3119906); +INSERT INTO SYS_CIDADES VALUES(1784, 'Crrego Fundo', 11, 3119955); +INSERT INTO SYS_CIDADES VALUES(1785, 'Crrego Novo', 11, 3120003); +INSERT INTO SYS_CIDADES VALUES(1786, 'Couto de Magalhes de Minas', 11, 3120102); +INSERT INTO SYS_CIDADES VALUES(1787, 'Crislita', 11, 3120151); +INSERT INTO SYS_CIDADES VALUES(1788, 'Cristais', 11, 3120201); +INSERT INTO SYS_CIDADES VALUES(1789, 'Cristlia', 11, 3120300); +INSERT INTO SYS_CIDADES VALUES(1790, 'Cristiano Otoni', 11, 3120409); +INSERT INTO SYS_CIDADES VALUES(1791, 'Cristina', 11, 3120508); +INSERT INTO SYS_CIDADES VALUES(1792, 'Crucilndia', 11, 3120607); +INSERT INTO SYS_CIDADES VALUES(1793, 'Cruzeiro da Fortaleza', 11, 3120706); +INSERT INTO SYS_CIDADES VALUES(1794, 'Cruzlia', 11, 3120805); +INSERT INTO SYS_CIDADES VALUES(1795, 'Cuparaque', 11, 3120839); +INSERT INTO SYS_CIDADES VALUES(1796, 'Curral de Dentro', 11, 3120870); +INSERT INTO SYS_CIDADES VALUES(1797, 'Curvelo', 11, 3120904); +INSERT INTO SYS_CIDADES VALUES(1798, 'Datas', 11, 3121001); +INSERT INTO SYS_CIDADES VALUES(1799, 'Delfim Moreira', 11, 3121100); +INSERT INTO SYS_CIDADES VALUES(1800, 'Delfinpolis', 11, 3121209); +INSERT INTO SYS_CIDADES VALUES(1801, 'Delta', 11, 3121258); +INSERT INTO SYS_CIDADES VALUES(1802, 'Descoberto', 11, 3121308); +INSERT INTO SYS_CIDADES VALUES(1803, 'Desterro de Entre Rios', 11, 3121407); +INSERT INTO SYS_CIDADES VALUES(1804, 'Desterro do Melo', 11, 3121506); +INSERT INTO SYS_CIDADES VALUES(1805, 'Diamantina', 11, 3121605); +INSERT INTO SYS_CIDADES VALUES(1806, 'Diogo de Vasconcelos', 11, 3121704); +INSERT INTO SYS_CIDADES VALUES(1807, 'Dionsio', 11, 3121803); +INSERT INTO SYS_CIDADES VALUES(1808, 'Divinsia', 11, 3121902); +INSERT INTO SYS_CIDADES VALUES(1809, 'Divino', 11, 3122009); +INSERT INTO SYS_CIDADES VALUES(1810, 'Divino das Laranjeiras', 11, 3122108); +INSERT INTO SYS_CIDADES VALUES(1811, 'Divinolndia de Minas', 11, 3122207); +INSERT INTO SYS_CIDADES VALUES(1812, 'Divinpolis', 11, 3122306); +INSERT INTO SYS_CIDADES VALUES(1813, 'Divisa Alegre', 11, 3122355); +INSERT INTO SYS_CIDADES VALUES(1814, 'Divisa Nova', 11, 3122405); +INSERT INTO SYS_CIDADES VALUES(1815, 'Divispolis', 11, 3122454); +INSERT INTO SYS_CIDADES VALUES(1816, 'Dom Bosco', 11, 3122470); +INSERT INTO SYS_CIDADES VALUES(1817, 'Dom Cavati', 11, 3122504); +INSERT INTO SYS_CIDADES VALUES(1818, 'Dom Joaquim', 11, 3122603); +INSERT INTO SYS_CIDADES VALUES(1819, 'Dom Silvrio', 11, 3122702); +INSERT INTO SYS_CIDADES VALUES(1820, 'Dom Vioso', 11, 3122801); +INSERT INTO SYS_CIDADES VALUES(1821, 'Dona Eusbia', 11, 3122900); +INSERT INTO SYS_CIDADES VALUES(1822, 'Dores de Campos', 11, 3123007); +INSERT INTO SYS_CIDADES VALUES(1823, 'Dores de Guanhes', 11, 3123106); +INSERT INTO SYS_CIDADES VALUES(1824, 'Dores do Indai', 11, 3123205); +INSERT INTO SYS_CIDADES VALUES(1825, 'Dores do Turvo', 11, 3123304); +INSERT INTO SYS_CIDADES VALUES(1826, 'Dorespolis', 11, 3123403); +INSERT INTO SYS_CIDADES VALUES(1827, 'Douradoquara', 11, 3123502); +INSERT INTO SYS_CIDADES VALUES(1828, 'Durand', 11, 3123528); +INSERT INTO SYS_CIDADES VALUES(1829, 'Eli Mendes', 11, 3123601); +INSERT INTO SYS_CIDADES VALUES(1830, 'Engenheiro Caldas', 11, 3123700); +INSERT INTO SYS_CIDADES VALUES(1831, 'Engenheiro Navarro', 11, 3123809); +INSERT INTO SYS_CIDADES VALUES(1832, 'Entre Folhas', 11, 3123858); +INSERT INTO SYS_CIDADES VALUES(1833, 'Entre Rios de Minas', 11, 3123908); +INSERT INTO SYS_CIDADES VALUES(1834, 'Ervlia', 11, 3124005); +INSERT INTO SYS_CIDADES VALUES(1835, 'Esmeraldas', 11, 3124104); +INSERT INTO SYS_CIDADES VALUES(1836, 'Espera Feliz', 11, 3124203); +INSERT INTO SYS_CIDADES VALUES(1837, 'Espinosa', 11, 3124302); +INSERT INTO SYS_CIDADES VALUES(1838, 'Esprito Santo do Dourado', 11, 3124401); +INSERT INTO SYS_CIDADES VALUES(1839, 'Estiva', 11, 3124500); +INSERT INTO SYS_CIDADES VALUES(1840, 'Estrela Dalva', 11, 3124609); +INSERT INTO SYS_CIDADES VALUES(1841, 'Estrela do Indai', 11, 3124708); +INSERT INTO SYS_CIDADES VALUES(1842, 'Estrela do Sul', 11, 3124807); +INSERT INTO SYS_CIDADES VALUES(1843, 'Eugenpolis', 11, 3124906); +INSERT INTO SYS_CIDADES VALUES(1844, 'Ewbank da Cmara', 11, 3125002); +INSERT INTO SYS_CIDADES VALUES(1845, 'Extrema', 11, 3125101); +INSERT INTO SYS_CIDADES VALUES(1846, 'Fama', 11, 3125200); +INSERT INTO SYS_CIDADES VALUES(1847, 'Faria Lemos', 11, 3125309); +INSERT INTO SYS_CIDADES VALUES(1848, 'Felcio dos Santos', 11, 3125408); +INSERT INTO SYS_CIDADES VALUES(1849, 'Felisburgo', 11, 3125606); +INSERT INTO SYS_CIDADES VALUES(1850, 'Felixlndia', 11, 3125705); +INSERT INTO SYS_CIDADES VALUES(1851, 'Fernandes Tourinho', 11, 3125804); +INSERT INTO SYS_CIDADES VALUES(1852, 'Ferros', 11, 3125903); +INSERT INTO SYS_CIDADES VALUES(1853, 'Fervedouro', 11, 3125952); +INSERT INTO SYS_CIDADES VALUES(1854, 'Florestal', 11, 3126000); +INSERT INTO SYS_CIDADES VALUES(1855, 'Formiga', 11, 3126109); +INSERT INTO SYS_CIDADES VALUES(1856, 'Formoso', 11, 3126208); +INSERT INTO SYS_CIDADES VALUES(1857, 'Fortaleza de Minas', 11, 3126307); +INSERT INTO SYS_CIDADES VALUES(1858, 'Fortuna de Minas', 11, 3126406); +INSERT INTO SYS_CIDADES VALUES(1859, 'Francisco Badar', 11, 3126505); +INSERT INTO SYS_CIDADES VALUES(1860, 'Francisco Dumont', 11, 3126604); +INSERT INTO SYS_CIDADES VALUES(1861, 'Francisco S', 11, 3126703); +INSERT INTO SYS_CIDADES VALUES(1862, 'Franciscpolis', 11, 3126752); +INSERT INTO SYS_CIDADES VALUES(1863, 'Frei Gaspar', 11, 3126802); +INSERT INTO SYS_CIDADES VALUES(1864, 'Frei Inocncio', 11, 3126901); +INSERT INTO SYS_CIDADES VALUES(1865, 'Frei Lagonegro', 11, 3126950); +INSERT INTO SYS_CIDADES VALUES(1866, 'Fronteira', 11, 3127008); +INSERT INTO SYS_CIDADES VALUES(1867, 'Fronteira dos Vales', 11, 3127057); +INSERT INTO SYS_CIDADES VALUES(1868, 'Fruta de Leite', 11, 3127073); +INSERT INTO SYS_CIDADES VALUES(1869, 'Frutal', 11, 3127107); +INSERT INTO SYS_CIDADES VALUES(1870, 'Funilndia', 11, 3127206); +INSERT INTO SYS_CIDADES VALUES(1871, 'Galilia', 11, 3127305); +INSERT INTO SYS_CIDADES VALUES(1872, 'Gameleiras', 11, 3127339); +INSERT INTO SYS_CIDADES VALUES(1873, 'Glaucilndia', 11, 3127354); +INSERT INTO SYS_CIDADES VALUES(1874, 'Goiabeira', 11, 3127370); +INSERT INTO SYS_CIDADES VALUES(1875, 'Goian', 11, 3127388); +INSERT INTO SYS_CIDADES VALUES(1876, 'Gonalves', 11, 3127404); +INSERT INTO SYS_CIDADES VALUES(1877, 'Gonzaga', 11, 3127503); +INSERT INTO SYS_CIDADES VALUES(1878, 'Gouveia', 11, 3127602); +INSERT INTO SYS_CIDADES VALUES(1879, 'Governador Valadares', 11, 3127701); +INSERT INTO SYS_CIDADES VALUES(1880, 'Gro Mogol', 11, 3127800); +INSERT INTO SYS_CIDADES VALUES(1881, 'Grupiara', 11, 3127909); +INSERT INTO SYS_CIDADES VALUES(1882, 'Guanhes', 11, 3128006); +INSERT INTO SYS_CIDADES VALUES(1883, 'Guap', 11, 3128105); +INSERT INTO SYS_CIDADES VALUES(1884, 'Guaraciaba', 11, 3128204); +INSERT INTO SYS_CIDADES VALUES(1885, 'Guaraciama', 11, 3128253); +INSERT INTO SYS_CIDADES VALUES(1886, 'Guaransia', 11, 3128303); +INSERT INTO SYS_CIDADES VALUES(1887, 'Guarani', 11, 3128402); +INSERT INTO SYS_CIDADES VALUES(1888, 'Guarar', 11, 3128501); +INSERT INTO SYS_CIDADES VALUES(1889, 'Guarda-Mor', 11, 3128600); +INSERT INTO SYS_CIDADES VALUES(1890, 'Guaxup', 11, 3128709); +INSERT INTO SYS_CIDADES VALUES(1891, 'Guidoval', 11, 3128808); +INSERT INTO SYS_CIDADES VALUES(1892, 'Guimarnia', 11, 3128907); +INSERT INTO SYS_CIDADES VALUES(1893, 'Guiricema', 11, 3129004); +INSERT INTO SYS_CIDADES VALUES(1894, 'Gurinhat', 11, 3129103); +INSERT INTO SYS_CIDADES VALUES(1895, 'Heliodora', 11, 3129202); +INSERT INTO SYS_CIDADES VALUES(1896, 'Iapu', 11, 3129301); +INSERT INTO SYS_CIDADES VALUES(1897, 'Ibertioga', 11, 3129400); +INSERT INTO SYS_CIDADES VALUES(1898, 'Ibi', 11, 3129509); +INSERT INTO SYS_CIDADES VALUES(1899, 'Ibia', 11, 3129608); +INSERT INTO SYS_CIDADES VALUES(1900, 'Ibiracatu', 11, 3129657); +INSERT INTO SYS_CIDADES VALUES(1901, 'Ibiraci', 11, 3129707); +INSERT INTO SYS_CIDADES VALUES(1902, 'Ibirit', 11, 3129806); +INSERT INTO SYS_CIDADES VALUES(1903, 'Ibitira de Minas', 11, 3129905); +INSERT INTO SYS_CIDADES VALUES(1904, 'Ibituruna', 11, 3130002); +INSERT INTO SYS_CIDADES VALUES(1905, 'Icara de Minas', 11, 3130051); +INSERT INTO SYS_CIDADES VALUES(1906, 'Igarap', 11, 3130101); +INSERT INTO SYS_CIDADES VALUES(1907, 'Igaratinga', 11, 3130200); +INSERT INTO SYS_CIDADES VALUES(1908, 'Iguatama', 11, 3130309); +INSERT INTO SYS_CIDADES VALUES(1909, 'Ijaci', 11, 3130408); +INSERT INTO SYS_CIDADES VALUES(1910, 'Ilicnea', 11, 3130507); +INSERT INTO SYS_CIDADES VALUES(1911, 'Imb de Minas', 11, 3130556); +INSERT INTO SYS_CIDADES VALUES(1912, 'Inconfidentes', 11, 3130606); +INSERT INTO SYS_CIDADES VALUES(1913, 'Indaiabira', 11, 3130655); +INSERT INTO SYS_CIDADES VALUES(1914, 'Indianpolis', 11, 3130705); +INSERT INTO SYS_CIDADES VALUES(1915, 'Inga', 11, 3130804); +INSERT INTO SYS_CIDADES VALUES(1916, 'Inhapim', 11, 3130903); +INSERT INTO SYS_CIDADES VALUES(1917, 'Inhama', 11, 3131000); +INSERT INTO SYS_CIDADES VALUES(1918, 'Inimutaba', 11, 3131109); +INSERT INTO SYS_CIDADES VALUES(1919, 'Ipaba', 11, 3131158); +INSERT INTO SYS_CIDADES VALUES(1920, 'Ipanema', 11, 3131208); +INSERT INTO SYS_CIDADES VALUES(1921, 'Ipatinga', 11, 3131307); +INSERT INTO SYS_CIDADES VALUES(1922, 'Ipiau', 11, 3131406); +INSERT INTO SYS_CIDADES VALUES(1923, 'Ipuina', 11, 3131505); +INSERT INTO SYS_CIDADES VALUES(1924, 'Ira de Minas', 11, 3131604); +INSERT INTO SYS_CIDADES VALUES(1925, 'Itabira', 11, 3131703); +INSERT INTO SYS_CIDADES VALUES(1927, 'Itabirito', 11, 3131901); +INSERT INTO SYS_CIDADES VALUES(1928, 'Itacambira', 11, 3132008); +INSERT INTO SYS_CIDADES VALUES(1929, 'Itacarambi', 11, 3132107); +INSERT INTO SYS_CIDADES VALUES(1930, 'Itaguara', 11, 3132206); +INSERT INTO SYS_CIDADES VALUES(1931, 'Itaip', 11, 3132305); +INSERT INTO SYS_CIDADES VALUES(1932, 'Itajub', 11, 3132404); +INSERT INTO SYS_CIDADES VALUES(1933, 'Itamarandiba', 11, 3132503); +INSERT INTO SYS_CIDADES VALUES(1934, 'Itamarati de Minas', 11, 3132602); +INSERT INTO SYS_CIDADES VALUES(1935, 'Itambacuri', 11, 3132701); +INSERT INTO SYS_CIDADES VALUES(1936, 'Itamb do Mato Dentro', 11, 3132800); +INSERT INTO SYS_CIDADES VALUES(1937, 'Itamogi', 11, 3132909); +INSERT INTO SYS_CIDADES VALUES(1938, 'Itamonte', 11, 3133006); +INSERT INTO SYS_CIDADES VALUES(1939, 'Itanhandu', 11, 3133105); +INSERT INTO SYS_CIDADES VALUES(1940, 'Itanhomi', 11, 3133204); +INSERT INTO SYS_CIDADES VALUES(1941, 'Itaobim', 11, 3133303); +INSERT INTO SYS_CIDADES VALUES(1942, 'Itapagipe', 11, 3133402); +INSERT INTO SYS_CIDADES VALUES(1943, 'Itapecerica', 11, 3133501); +INSERT INTO SYS_CIDADES VALUES(1944, 'Itapeva', 11, 3133600); +INSERT INTO SYS_CIDADES VALUES(1945, 'Itatiaiuu', 11, 3133709); +INSERT INTO SYS_CIDADES VALUES(1946, 'Ita de Minas', 11, 3133758); +INSERT INTO SYS_CIDADES VALUES(1947, 'Itana', 11, 3133808); +INSERT INTO SYS_CIDADES VALUES(1948, 'Itaverava', 11, 3133907); +INSERT INTO SYS_CIDADES VALUES(1949, 'Itinga', 11, 3134004); +INSERT INTO SYS_CIDADES VALUES(1950, 'Itueta', 11, 3134103); +INSERT INTO SYS_CIDADES VALUES(1951, 'Ituiutaba', 11, 3134202); +INSERT INTO SYS_CIDADES VALUES(1952, 'Itumirim', 11, 3134301); +INSERT INTO SYS_CIDADES VALUES(1953, 'Iturama', 11, 3134400); +INSERT INTO SYS_CIDADES VALUES(1954, 'Itutinga', 11, 3134509); +INSERT INTO SYS_CIDADES VALUES(1955, 'Jaboticatubas', 11, 3134608); +INSERT INTO SYS_CIDADES VALUES(1956, 'Jacinto', 11, 3134707); +INSERT INTO SYS_CIDADES VALUES(1957, 'Jacu', 11, 3134806); +INSERT INTO SYS_CIDADES VALUES(1958, 'Jacutinga', 11, 3134905); +INSERT INTO SYS_CIDADES VALUES(1959, 'Jaguarau', 11, 3135001); +INSERT INTO SYS_CIDADES VALUES(1960, 'Jaba', 11, 3135050); +INSERT INTO SYS_CIDADES VALUES(1961, 'Jampruca', 11, 3135076); +INSERT INTO SYS_CIDADES VALUES(1962, 'Janaba', 11, 3135100); +INSERT INTO SYS_CIDADES VALUES(1963, 'Januria', 11, 3135209); +INSERT INTO SYS_CIDADES VALUES(1964, 'Japaraba', 11, 3135308); +INSERT INTO SYS_CIDADES VALUES(1965, 'Japonvar', 11, 3135357); +INSERT INTO SYS_CIDADES VALUES(1966, 'Jeceaba', 11, 3135407); +INSERT INTO SYS_CIDADES VALUES(1967, 'Jenipapo de Minas', 11, 3135456); +INSERT INTO SYS_CIDADES VALUES(1968, 'Jequeri', 11, 3135506); +INSERT INTO SYS_CIDADES VALUES(1969, 'Jequita', 11, 3135605); +INSERT INTO SYS_CIDADES VALUES(1970, 'Jequitib', 11, 3135704); +INSERT INTO SYS_CIDADES VALUES(1971, 'Jequitinhonha', 11, 3135803); +INSERT INTO SYS_CIDADES VALUES(1972, 'Jesunia', 11, 3135902); +INSERT INTO SYS_CIDADES VALUES(1973, 'Joama', 11, 3136009); +INSERT INTO SYS_CIDADES VALUES(1974, 'Joansia', 11, 3136108); +INSERT INTO SYS_CIDADES VALUES(1975, 'Joo Monlevade', 11, 3136207); +INSERT INTO SYS_CIDADES VALUES(1976, 'Joo Pinheiro', 11, 3136306); +INSERT INTO SYS_CIDADES VALUES(1977, 'Joaquim Felcio', 11, 3136405); +INSERT INTO SYS_CIDADES VALUES(1978, 'Jordnia', 11, 3136504); +INSERT INTO SYS_CIDADES VALUES(1979, 'Jos Gonalves de Minas', 11, 3136520); +INSERT INTO SYS_CIDADES VALUES(1980, 'Jos Raydan', 11, 3136553); +INSERT INTO SYS_CIDADES VALUES(1981, 'Josenpolis', 11, 3136579); +INSERT INTO SYS_CIDADES VALUES(1982, 'Juatuba', 11, 3136652); +INSERT INTO SYS_CIDADES VALUES(1983, 'Juiz de Fora', 11, 3136702); +INSERT INTO SYS_CIDADES VALUES(1984, 'Juramento', 11, 3136801); +INSERT INTO SYS_CIDADES VALUES(1985, 'Juruaia', 11, 3136900); +INSERT INTO SYS_CIDADES VALUES(1986, 'Juvenlia', 11, 3136959); +INSERT INTO SYS_CIDADES VALUES(1987, 'Ladainha', 11, 3137007); +INSERT INTO SYS_CIDADES VALUES(1988, 'Lagamar', 11, 3137106); +INSERT INTO SYS_CIDADES VALUES(1989, 'Lagoa da Prata', 11, 3137205); +INSERT INTO SYS_CIDADES VALUES(1990, 'Lagoa dos Patos', 11, 3137304); +INSERT INTO SYS_CIDADES VALUES(1991, 'Lagoa Dourada', 11, 3137403); +INSERT INTO SYS_CIDADES VALUES(1992, 'Lagoa Formosa', 11, 3137502); +INSERT INTO SYS_CIDADES VALUES(1993, 'Lagoa Grande', 11, 3137536); +INSERT INTO SYS_CIDADES VALUES(1994, 'Lagoa Santa', 11, 3137601); +INSERT INTO SYS_CIDADES VALUES(1995, 'Lajinha', 11, 3137700); +INSERT INTO SYS_CIDADES VALUES(1996, 'Lambari', 11, 3137809); +INSERT INTO SYS_CIDADES VALUES(1997, 'Lamim', 11, 3137908); +INSERT INTO SYS_CIDADES VALUES(1998, 'Laranjal', 11, 3138005); +INSERT INTO SYS_CIDADES VALUES(1999, 'Lassance', 11, 3138104); +INSERT INTO SYS_CIDADES VALUES(2000, 'Lavras', 11, 3138203); +INSERT INTO SYS_CIDADES VALUES(2001, 'Leandro Ferreira', 11, 3138302); +INSERT INTO SYS_CIDADES VALUES(2002, 'Leme do Prado', 11, 3138351); +INSERT INTO SYS_CIDADES VALUES(2003, 'Leopoldina', 11, 3138401); +INSERT INTO SYS_CIDADES VALUES(2004, 'Liberdade', 11, 3138500); +INSERT INTO SYS_CIDADES VALUES(2005, 'Lima Duarte', 11, 3138609); +INSERT INTO SYS_CIDADES VALUES(2006, 'Limeira do Oeste', 11, 3138625); +INSERT INTO SYS_CIDADES VALUES(2007, 'Lontra', 11, 3138658); +INSERT INTO SYS_CIDADES VALUES(2008, 'Luisburgo', 11, 3138674); +INSERT INTO SYS_CIDADES VALUES(2009, 'Luislndia', 11, 3138682); +INSERT INTO SYS_CIDADES VALUES(2010, 'Luminrias', 11, 3138708); +INSERT INTO SYS_CIDADES VALUES(2011, 'Luz', 11, 3138807); +INSERT INTO SYS_CIDADES VALUES(2012, 'Machacalis', 11, 3138906); +INSERT INTO SYS_CIDADES VALUES(2013, 'Machado', 11, 3139003); +INSERT INTO SYS_CIDADES VALUES(2014, 'Madre de Deus de Minas', 11, 3139102); +INSERT INTO SYS_CIDADES VALUES(2015, 'Malacacheta', 11, 3139201); +INSERT INTO SYS_CIDADES VALUES(2016, 'Mamonas', 11, 3139250); +INSERT INTO SYS_CIDADES VALUES(2017, 'Manga', 11, 3139300); +INSERT INTO SYS_CIDADES VALUES(2018, 'Manhuau', 11, 3139409); +INSERT INTO SYS_CIDADES VALUES(2019, 'Manhumirim', 11, 3139508); +INSERT INTO SYS_CIDADES VALUES(2020, 'Mantena', 11, 3139607); +INSERT INTO SYS_CIDADES VALUES(2021, 'Mar de Espanha', 11, 3139805); +INSERT INTO SYS_CIDADES VALUES(2022, 'Maravilhas', 11, 3139706); +INSERT INTO SYS_CIDADES VALUES(2023, 'Maria da F', 11, 3139904); +INSERT INTO SYS_CIDADES VALUES(2024, 'Mariana', 11, 3140001); +INSERT INTO SYS_CIDADES VALUES(2025, 'Marilac', 11, 3140100); +INSERT INTO SYS_CIDADES VALUES(2026, 'Mrio Campos', 11, 3140159); +INSERT INTO SYS_CIDADES VALUES(2027, 'Marip de Minas', 11, 3140209); +INSERT INTO SYS_CIDADES VALUES(2028, 'Marliria', 11, 3140308); +INSERT INTO SYS_CIDADES VALUES(2029, 'Marmelpolis', 11, 3140407); +INSERT INTO SYS_CIDADES VALUES(2030, 'Martinho Campos', 11, 3140506); +INSERT INTO SYS_CIDADES VALUES(2031, 'Martins Soares', 11, 3140530); +INSERT INTO SYS_CIDADES VALUES(2032, 'Mata Verde', 11, 3140555); +INSERT INTO SYS_CIDADES VALUES(2033, 'Materlndia', 11, 3140605); +INSERT INTO SYS_CIDADES VALUES(2034, 'Mateus Leme', 11, 3140704); +INSERT INTO SYS_CIDADES VALUES(2035, 'Mathias Lobato', 11, 3171501); +INSERT INTO SYS_CIDADES VALUES(2036, 'Matias Barbosa', 11, 3140803); +INSERT INTO SYS_CIDADES VALUES(2037, 'Matias Cardoso', 11, 3140852); +INSERT INTO SYS_CIDADES VALUES(2038, 'Matip', 11, 3140902); +INSERT INTO SYS_CIDADES VALUES(2039, 'Mato Verde', 11, 3141009); +INSERT INTO SYS_CIDADES VALUES(2040, 'Matozinhos', 11, 3141108); +INSERT INTO SYS_CIDADES VALUES(2041, 'Matutina', 11, 3141207); +INSERT INTO SYS_CIDADES VALUES(2042, 'Medeiros', 11, 3141306); +INSERT INTO SYS_CIDADES VALUES(2043, 'Medina', 11, 3141405); +INSERT INTO SYS_CIDADES VALUES(2044, 'Mendes Pimentel', 11, 3141504); +INSERT INTO SYS_CIDADES VALUES(2045, 'Mercs', 11, 3141603); +INSERT INTO SYS_CIDADES VALUES(2046, 'Mesquita', 11, 3141702); +INSERT INTO SYS_CIDADES VALUES(2047, 'Minas Novas', 11, 3141801); +INSERT INTO SYS_CIDADES VALUES(2048, 'Minduri', 11, 3141900); +INSERT INTO SYS_CIDADES VALUES(2049, 'Mirabela', 11, 3142007); +INSERT INTO SYS_CIDADES VALUES(2050, 'Miradouro', 11, 3142106); +INSERT INTO SYS_CIDADES VALUES(2051, 'Mira', 11, 3142205); +INSERT INTO SYS_CIDADES VALUES(2052, 'Miravnia', 11, 3142254); +INSERT INTO SYS_CIDADES VALUES(2053, 'Moeda', 11, 3142304); +INSERT INTO SYS_CIDADES VALUES(2054, 'Moema', 11, 3142403); +INSERT INTO SYS_CIDADES VALUES(2055, 'Monjolos', 11, 3142502); +INSERT INTO SYS_CIDADES VALUES(2056, 'Monsenhor Paulo', 11, 3142601); +INSERT INTO SYS_CIDADES VALUES(2057, 'Montalvnia', 11, 3142700); +INSERT INTO SYS_CIDADES VALUES(2058, 'Monte Alegre de Minas', 11, 3142809); +INSERT INTO SYS_CIDADES VALUES(2059, 'Monte Azul', 11, 3142908); +INSERT INTO SYS_CIDADES VALUES(2060, 'Monte Belo', 11, 3143005); +INSERT INTO SYS_CIDADES VALUES(2061, 'Monte Carmelo', 11, 3143104); +INSERT INTO SYS_CIDADES VALUES(2062, 'Monte Formoso', 11, 3143153); +INSERT INTO SYS_CIDADES VALUES(2063, 'Monte Santo de Minas', 11, 3143203); +INSERT INTO SYS_CIDADES VALUES(2064, 'Monte Sio', 11, 3143401); +INSERT INTO SYS_CIDADES VALUES(2065, 'Montes Claros', 11, 3143302); +INSERT INTO SYS_CIDADES VALUES(2066, 'Montezuma', 11, 3143450); +INSERT INTO SYS_CIDADES VALUES(2067, 'Morada Nova de Minas', 11, 3143500); +INSERT INTO SYS_CIDADES VALUES(2068, 'Morro da Gara', 11, 3143609); +INSERT INTO SYS_CIDADES VALUES(2069, 'Morro do Pilar', 11, 3143708); +INSERT INTO SYS_CIDADES VALUES(2070, 'Munhoz', 11, 3143807); +INSERT INTO SYS_CIDADES VALUES(2071, 'Muria', 11, 3143906); +INSERT INTO SYS_CIDADES VALUES(2072, 'Mutum', 11, 3144003); +INSERT INTO SYS_CIDADES VALUES(2073, 'Muzambinho', 11, 3144102); +INSERT INTO SYS_CIDADES VALUES(2074, 'Nacip Raydan', 11, 3144201); +INSERT INTO SYS_CIDADES VALUES(2075, 'Nanuque', 11, 3144300); +INSERT INTO SYS_CIDADES VALUES(2076, 'Naque', 11, 3144359); +INSERT INTO SYS_CIDADES VALUES(2077, 'Natalndia', 11, 3144375); +INSERT INTO SYS_CIDADES VALUES(2078, 'Natrcia', 11, 3144409); +INSERT INTO SYS_CIDADES VALUES(2079, 'Nazareno', 11, 3144508); +INSERT INTO SYS_CIDADES VALUES(2080, 'Nepomuceno', 11, 3144607); +INSERT INTO SYS_CIDADES VALUES(2081, 'Ninheira', 11, 3144656); +INSERT INTO SYS_CIDADES VALUES(2082, 'Nova Belm', 11, 3144672); +INSERT INTO SYS_CIDADES VALUES(2083, 'Nova Era', 11, 3144706); +INSERT INTO SYS_CIDADES VALUES(2084, 'Nova Lima', 11, 3144805); +INSERT INTO SYS_CIDADES VALUES(2085, 'Nova Mdica', 11, 3144904); +INSERT INTO SYS_CIDADES VALUES(2086, 'Nova Ponte', 11, 3145000); +INSERT INTO SYS_CIDADES VALUES(2087, 'Nova Porteirinha', 11, 3145059); +INSERT INTO SYS_CIDADES VALUES(2088, 'Nova Resende', 11, 3145109); +INSERT INTO SYS_CIDADES VALUES(2089, 'Nova Serrana', 11, 3145208); +INSERT INTO SYS_CIDADES VALUES(2090, 'Nova Unio', 11, 3136603); +INSERT INTO SYS_CIDADES VALUES(2091, 'Novo Cruzeiro', 11, 3145307); +INSERT INTO SYS_CIDADES VALUES(2092, 'Novo Oriente de Minas', 11, 3145356); +INSERT INTO SYS_CIDADES VALUES(2093, 'Novorizonte', 11, 3145372); +INSERT INTO SYS_CIDADES VALUES(2094, 'Olaria', 11, 3145406); +INSERT INTO SYS_CIDADES VALUES(2095, 'Olhos-d`gua', 11, 3145455); +INSERT INTO SYS_CIDADES VALUES(2096, 'Olmpio Noronha', 11, 3145505); +INSERT INTO SYS_CIDADES VALUES(2097, 'Oliveira', 11, 3145604); +INSERT INTO SYS_CIDADES VALUES(2098, 'Oliveira Fortes', 11, 3145703); +INSERT INTO SYS_CIDADES VALUES(2099, 'Ona de Pitangui', 11, 3145802); +INSERT INTO SYS_CIDADES VALUES(2100, 'Oratrios', 11, 3145851); +INSERT INTO SYS_CIDADES VALUES(2101, 'Oriznia', 11, 3145877); +INSERT INTO SYS_CIDADES VALUES(2102, 'Ouro Branco', 11, 3145901); +INSERT INTO SYS_CIDADES VALUES(2103, 'Ouro Fino', 11, 3146008); +INSERT INTO SYS_CIDADES VALUES(2104, 'Ouro Preto', 11, 3146107); +INSERT INTO SYS_CIDADES VALUES(2105, 'Ouro Verde de Minas', 11, 3146206); +INSERT INTO SYS_CIDADES VALUES(2106, 'Padre Carvalho', 11, 3146255); +INSERT INTO SYS_CIDADES VALUES(2107, 'Padre Paraso', 11, 3146305); +INSERT INTO SYS_CIDADES VALUES(2108, 'Pai Pedro', 11, 3146552); +INSERT INTO SYS_CIDADES VALUES(2109, 'Paineiras', 11, 3146404); +INSERT INTO SYS_CIDADES VALUES(2110, 'Pains', 11, 3146503); +INSERT INTO SYS_CIDADES VALUES(2111, 'Paiva', 11, 3146602); +INSERT INTO SYS_CIDADES VALUES(2112, 'Palma', 11, 3146701); +INSERT INTO SYS_CIDADES VALUES(2113, 'Palmpolis', 11, 3146750); +INSERT INTO SYS_CIDADES VALUES(2114, 'Papagaios', 11, 3146909); +INSERT INTO SYS_CIDADES VALUES(2115, 'Par de Minas', 11, 3147105); +INSERT INTO SYS_CIDADES VALUES(2116, 'Paracatu', 11, 3147006); +INSERT INTO SYS_CIDADES VALUES(2117, 'Paraguau', 11, 3147204); +INSERT INTO SYS_CIDADES VALUES(2118, 'Paraispolis', 11, 3147303); +INSERT INTO SYS_CIDADES VALUES(2119, 'Paraopeba', 11, 3147402); +INSERT INTO SYS_CIDADES VALUES(2120, 'Passa Quatro', 11, 3147600); +INSERT INTO SYS_CIDADES VALUES(2121, 'Passa Tempo', 11, 3147709); +INSERT INTO SYS_CIDADES VALUES(2122, 'Passabm', 11, 3147501); +INSERT INTO SYS_CIDADES VALUES(2123, 'Passa-Vinte', 11, 3147808); +INSERT INTO SYS_CIDADES VALUES(2124, 'Passos', 11, 3147907); +INSERT INTO SYS_CIDADES VALUES(2125, 'Patis', 11, 3147956); +INSERT INTO SYS_CIDADES VALUES(2126, 'Patos de Minas', 11, 3148004); +INSERT INTO SYS_CIDADES VALUES(2127, 'Patrocnio', 11, 3148103); +INSERT INTO SYS_CIDADES VALUES(2128, 'Patrocnio do Muria', 11, 3148202); +INSERT INTO SYS_CIDADES VALUES(2129, 'Paula Cndido', 11, 3148301); +INSERT INTO SYS_CIDADES VALUES(2130, 'Paulistas', 11, 3148400); +INSERT INTO SYS_CIDADES VALUES(2131, 'Pavo', 11, 3148509); +INSERT INTO SYS_CIDADES VALUES(2132, 'Peanha', 11, 3148608); +INSERT INTO SYS_CIDADES VALUES(2133, 'Pedra Azul', 11, 3148707); +INSERT INTO SYS_CIDADES VALUES(2134, 'Pedra Bonita', 11, 3148756); +INSERT INTO SYS_CIDADES VALUES(2135, 'Pedra do Anta', 11, 3148806); +INSERT INTO SYS_CIDADES VALUES(2136, 'Pedra do Indai', 11, 3148905); +INSERT INTO SYS_CIDADES VALUES(2137, 'Pedra Dourada', 11, 3149002); +INSERT INTO SYS_CIDADES VALUES(2138, 'Pedralva', 11, 3149101); +INSERT INTO SYS_CIDADES VALUES(2139, 'Pedras de Maria da Cruz', 11, 3149150); +INSERT INTO SYS_CIDADES VALUES(2140, 'Pedrinpolis', 11, 3149200); +INSERT INTO SYS_CIDADES VALUES(2141, 'Pedro Leopoldo', 11, 3149309); +INSERT INTO SYS_CIDADES VALUES(2142, 'Pedro Teixeira', 11, 3149408); +INSERT INTO SYS_CIDADES VALUES(2143, 'Pequeri', 11, 3149507); +INSERT INTO SYS_CIDADES VALUES(2144, 'Pequi', 11, 3149606); +INSERT INTO SYS_CIDADES VALUES(2145, 'Perdigo', 11, 3149705); +INSERT INTO SYS_CIDADES VALUES(2146, 'Perdizes', 11, 3149804); +INSERT INTO SYS_CIDADES VALUES(2147, 'Perdes', 11, 3149903); +INSERT INTO SYS_CIDADES VALUES(2148, 'Periquito', 11, 3149952); +INSERT INTO SYS_CIDADES VALUES(2149, 'Pescador', 11, 3150000); +INSERT INTO SYS_CIDADES VALUES(2150, 'Piau', 11, 3150109); +INSERT INTO SYS_CIDADES VALUES(2151, 'Piedade de Caratinga', 11, 3150158); +INSERT INTO SYS_CIDADES VALUES(2152, 'Piedade de Ponte Nova', 11, 3150208); +INSERT INTO SYS_CIDADES VALUES(2153, 'Piedade do Rio Grande', 11, 3150307); +INSERT INTO SYS_CIDADES VALUES(2154, 'Piedade dos Gerais', 11, 3150406); +INSERT INTO SYS_CIDADES VALUES(2155, 'Pimenta', 11, 3150505); +INSERT INTO SYS_CIDADES VALUES(2156, 'Pingo-d`gua', 11, 3150539); +INSERT INTO SYS_CIDADES VALUES(2157, 'Pintpolis', 11, 3150570); +INSERT INTO SYS_CIDADES VALUES(2158, 'Piracema', 11, 3150604); +INSERT INTO SYS_CIDADES VALUES(2159, 'Pirajuba', 11, 3150703); +INSERT INTO SYS_CIDADES VALUES(2160, 'Piranga', 11, 3150802); +INSERT INTO SYS_CIDADES VALUES(2161, 'Piranguu', 11, 3150901); +INSERT INTO SYS_CIDADES VALUES(2162, 'Piranguinho', 11, 3151008); +INSERT INTO SYS_CIDADES VALUES(2163, 'Pirapetinga', 11, 3151107); +INSERT INTO SYS_CIDADES VALUES(2164, 'Pirapora', 11, 3151206); +INSERT INTO SYS_CIDADES VALUES(2165, 'Piraba', 11, 3151305); +INSERT INTO SYS_CIDADES VALUES(2166, 'Pitangui', 11, 3151404); +INSERT INTO SYS_CIDADES VALUES(2167, 'Piumhi', 11, 3151503); +INSERT INTO SYS_CIDADES VALUES(2168, 'Planura', 11, 3151602); +INSERT INTO SYS_CIDADES VALUES(2169, 'Poo Fundo', 11, 3151701); +INSERT INTO SYS_CIDADES VALUES(2170, 'Poos de Caldas', 11, 3151800); +INSERT INTO SYS_CIDADES VALUES(2171, 'Pocrane', 11, 3151909); +INSERT INTO SYS_CIDADES VALUES(2172, 'Pompu', 11, 3152006); +INSERT INTO SYS_CIDADES VALUES(2173, 'Ponte Nova', 11, 3152105); +INSERT INTO SYS_CIDADES VALUES(2174, 'Ponto Chique', 11, 3152131); +INSERT INTO SYS_CIDADES VALUES(2175, 'Ponto dos Volantes', 11, 3152170); +INSERT INTO SYS_CIDADES VALUES(2176, 'Porteirinha', 11, 3152204); +INSERT INTO SYS_CIDADES VALUES(2177, 'Porto Firme', 11, 3152303); +INSERT INTO SYS_CIDADES VALUES(2178, 'Pot', 11, 3152402); +INSERT INTO SYS_CIDADES VALUES(2179, 'Pouso Alegre', 11, 3152501); +INSERT INTO SYS_CIDADES VALUES(2180, 'Pouso Alto', 11, 3152600); +INSERT INTO SYS_CIDADES VALUES(2181, 'Prados', 11, 3152709); +INSERT INTO SYS_CIDADES VALUES(2182, 'Prata', 11, 3152808); +INSERT INTO SYS_CIDADES VALUES(2183, 'Pratpolis', 11, 3152907); +INSERT INTO SYS_CIDADES VALUES(2184, 'Pratinha', 11, 3153004); +INSERT INTO SYS_CIDADES VALUES(2185, 'Presidente Bernardes', 11, 3153103); +INSERT INTO SYS_CIDADES VALUES(2186, 'Presidente Juscelino', 11, 3153202); +INSERT INTO SYS_CIDADES VALUES(2187, 'Presidente Kubitschek', 11, 3153301); +INSERT INTO SYS_CIDADES VALUES(2188, 'Presidente Olegrio', 11, 3153400); +INSERT INTO SYS_CIDADES VALUES(2189, 'Prudente de Morais', 11, 3153608); +INSERT INTO SYS_CIDADES VALUES(2190, 'Quartel Geral', 11, 3153707); +INSERT INTO SYS_CIDADES VALUES(2191, 'Queluzito', 11, 3153806); +INSERT INTO SYS_CIDADES VALUES(2192, 'Raposos', 11, 3153905); +INSERT INTO SYS_CIDADES VALUES(2193, 'Raul Soares', 11, 3154002); +INSERT INTO SYS_CIDADES VALUES(2194, 'Recreio', 11, 3154101); +INSERT INTO SYS_CIDADES VALUES(2195, 'Reduto', 11, 3154150); +INSERT INTO SYS_CIDADES VALUES(2196, 'Resende Costa', 11, 3154200); +INSERT INTO SYS_CIDADES VALUES(2197, 'Resplendor', 11, 3154309); +INSERT INTO SYS_CIDADES VALUES(2198, 'Ressaquinha', 11, 3154408); +INSERT INTO SYS_CIDADES VALUES(2199, 'Riachinho', 11, 3154457); +INSERT INTO SYS_CIDADES VALUES(2200, 'Riacho dos Machados', 11, 3154507); +INSERT INTO SYS_CIDADES VALUES(2201, 'Ribeiro das Neves', 11, 3154606); +INSERT INTO SYS_CIDADES VALUES(2202, 'Ribeiro Vermelho', 11, 3154705); +INSERT INTO SYS_CIDADES VALUES(2203, 'Rio Acima', 11, 3154804); +INSERT INTO SYS_CIDADES VALUES(2204, 'Rio Casca', 11, 3154903); +INSERT INTO SYS_CIDADES VALUES(2205, 'Rio do Prado', 11, 3155108); +INSERT INTO SYS_CIDADES VALUES(2206, 'Rio Doce', 11, 3155009); +INSERT INTO SYS_CIDADES VALUES(2207, 'Rio Espera', 11, 3155207); +INSERT INTO SYS_CIDADES VALUES(2208, 'Rio Manso', 11, 3155306); +INSERT INTO SYS_CIDADES VALUES(2209, 'Rio Novo', 11, 3155405); +INSERT INTO SYS_CIDADES VALUES(2210, 'Rio Paranaba', 11, 3155504); +INSERT INTO SYS_CIDADES VALUES(2211, 'Rio Pardo de Minas', 11, 3155603); +INSERT INTO SYS_CIDADES VALUES(2212, 'Rio Piracicaba', 11, 3155702); +INSERT INTO SYS_CIDADES VALUES(2213, 'Rio Pomba', 11, 3155801); +INSERT INTO SYS_CIDADES VALUES(2214, 'Rio Preto', 11, 3155900); +INSERT INTO SYS_CIDADES VALUES(2215, 'Rio Vermelho', 11, 3156007); +INSERT INTO SYS_CIDADES VALUES(2216, 'Ritpolis', 11, 3156106); +INSERT INTO SYS_CIDADES VALUES(2217, 'Rochedo de Minas', 11, 3156205); +INSERT INTO SYS_CIDADES VALUES(2218, 'Rodeiro', 11, 3156304); +INSERT INTO SYS_CIDADES VALUES(2219, 'Romaria', 11, 3156403); +INSERT INTO SYS_CIDADES VALUES(2220, 'Rosrio da Limeira', 11, 3156452); +INSERT INTO SYS_CIDADES VALUES(2221, 'Rubelita', 11, 3156502); +INSERT INTO SYS_CIDADES VALUES(2222, 'Rubim', 11, 3156601); +INSERT INTO SYS_CIDADES VALUES(2223, 'Sabar', 11, 3156700); +INSERT INTO SYS_CIDADES VALUES(2224, 'Sabinpolis', 11, 3156809); +INSERT INTO SYS_CIDADES VALUES(2225, 'Sacramento', 11, 3156908); +INSERT INTO SYS_CIDADES VALUES(2226, 'Salinas', 11, 3157005); +INSERT INTO SYS_CIDADES VALUES(2227, 'Salto da Divisa', 11, 3157104); +INSERT INTO SYS_CIDADES VALUES(2228, 'Santa Brbara', 11, 3157203); +INSERT INTO SYS_CIDADES VALUES(2229, 'Santa Brbara do Leste', 11, 3157252); +INSERT INTO SYS_CIDADES VALUES(2230, 'Santa Brbara do Monte Verde', 11, 3157278); +INSERT INTO SYS_CIDADES VALUES(2231, 'Santa Brbara do Tugrio', 11, 3157302); +INSERT INTO SYS_CIDADES VALUES(2232, 'Santa Cruz de Minas', 11, 3157336); +INSERT INTO SYS_CIDADES VALUES(2233, 'Santa Cruz de Salinas', 11, 3157377); +INSERT INTO SYS_CIDADES VALUES(2234, 'Santa Cruz do Escalvado', 11, 3157401); +INSERT INTO SYS_CIDADES VALUES(2235, 'Santa Efignia de Minas', 11, 3157500); +INSERT INTO SYS_CIDADES VALUES(2236, 'Santa F de Minas', 11, 3157609); +INSERT INTO SYS_CIDADES VALUES(2237, 'Santa Helena de Minas', 11, 3157658); +INSERT INTO SYS_CIDADES VALUES(2238, 'Santa Juliana', 11, 3157708); +INSERT INTO SYS_CIDADES VALUES(2239, 'Santa Luzia', 11, 3157807); +INSERT INTO SYS_CIDADES VALUES(2240, 'Santa Margarida', 11, 3157906); +INSERT INTO SYS_CIDADES VALUES(2241, 'Santa Maria de Itabira', 11, 3158003); +INSERT INTO SYS_CIDADES VALUES(2242, 'Santa Maria do Salto', 11, 3158102); +INSERT INTO SYS_CIDADES VALUES(2243, 'Santa Maria do Suau', 11, 3158201); +INSERT INTO SYS_CIDADES VALUES(2244, 'Santa Rita de Caldas', 11, 3159209); +INSERT INTO SYS_CIDADES VALUES(2245, 'Santa Rita de Ibitipoca', 11, 3159407); +INSERT INTO SYS_CIDADES VALUES(2246, 'Santa Rita de Jacutinga', 11, 3159308); +INSERT INTO SYS_CIDADES VALUES(2247, 'Santa Rita de Minas', 11, 3159357); +INSERT INTO SYS_CIDADES VALUES(2248, 'Santa Rita do Itueto', 11, 3159506); +INSERT INTO SYS_CIDADES VALUES(2249, 'Santa Rita do Sapuca', 11, 3159605); +INSERT INTO SYS_CIDADES VALUES(2250, 'Santa Rosa da Serra', 11, 3159704); +INSERT INTO SYS_CIDADES VALUES(2251, 'Santa Vitria', 11, 3159803); +INSERT INTO SYS_CIDADES VALUES(2252, 'Santana da Vargem', 11, 3158300); +INSERT INTO SYS_CIDADES VALUES(2253, 'Santana de Cataguases', 11, 3158409); +INSERT INTO SYS_CIDADES VALUES(2254, 'Santana de Pirapama', 11, 3158508); +INSERT INTO SYS_CIDADES VALUES(2255, 'Santana do Deserto', 11, 3158607); +INSERT INTO SYS_CIDADES VALUES(2256, 'Santana do Garambu', 11, 3158706); +INSERT INTO SYS_CIDADES VALUES(2257, 'Santana do Jacar', 11, 3158805); +INSERT INTO SYS_CIDADES VALUES(2258, 'Santana do Manhuau', 11, 3158904); +INSERT INTO SYS_CIDADES VALUES(2259, 'Santana do Paraso', 11, 3158953); +INSERT INTO SYS_CIDADES VALUES(2260, 'Santana do Riacho', 11, 3159001); +INSERT INTO SYS_CIDADES VALUES(2261, 'Santana dos Montes', 11, 3159100); +INSERT INTO SYS_CIDADES VALUES(2262, 'Santo Antnio do Amparo', 11, 3159902); +INSERT INTO SYS_CIDADES VALUES(2263, 'Santo Antnio do Aventureiro', 11, 3160009); +INSERT INTO SYS_CIDADES VALUES(2264, 'Santo Antnio do Grama', 11, 3160108); +INSERT INTO SYS_CIDADES VALUES(2265, 'Santo Antnio do Itamb', 11, 3160207); +INSERT INTO SYS_CIDADES VALUES(2266, 'Santo Antnio do Jacinto', 11, 3160306); +INSERT INTO SYS_CIDADES VALUES(2267, 'Santo Antnio do Monte', 11, 3160405); +INSERT INTO SYS_CIDADES VALUES(2268, 'Santo Antnio do Retiro', 11, 3160454); +INSERT INTO SYS_CIDADES VALUES(2269, 'Santo Antnio do Rio Abaixo', 11, 3160504); +INSERT INTO SYS_CIDADES VALUES(2270, 'Santo Hiplito', 11, 3160603); +INSERT INTO SYS_CIDADES VALUES(2271, 'Santos Dumont', 11, 3160702); +INSERT INTO SYS_CIDADES VALUES(2272, 'So Bento Abade', 11, 3160801); +INSERT INTO SYS_CIDADES VALUES(2273, 'So Brs do Suau', 11, 3160900); +INSERT INTO SYS_CIDADES VALUES(2274, 'So Domingos das Dores', 11, 3160959); +INSERT INTO SYS_CIDADES VALUES(2275, 'So Domingos do Prata', 11, 3161007); +INSERT INTO SYS_CIDADES VALUES(2276, 'So Flix de Minas', 11, 3161056); +INSERT INTO SYS_CIDADES VALUES(2277, 'So Francisco', 11, 3161106); +INSERT INTO SYS_CIDADES VALUES(2278, 'So Francisco de Paula', 11, 3161205); +INSERT INTO SYS_CIDADES VALUES(2279, 'So Francisco de Sales', 11, 3161304); +INSERT INTO SYS_CIDADES VALUES(2280, 'So Francisco do Glria', 11, 3161403); +INSERT INTO SYS_CIDADES VALUES(2281, 'So Geraldo', 11, 3161502); +INSERT INTO SYS_CIDADES VALUES(2282, 'So Geraldo da Piedade', 11, 3161601); +INSERT INTO SYS_CIDADES VALUES(2283, 'So Geraldo do Baixio', 11, 3161650); +INSERT INTO SYS_CIDADES VALUES(2284, 'So Gonalo do Abaet', 11, 3161700); +INSERT INTO SYS_CIDADES VALUES(2285, 'So Gonalo do Par', 11, 3161809); +INSERT INTO SYS_CIDADES VALUES(2286, 'So Gonalo do Rio Abaixo', 11, 3161908); +INSERT INTO SYS_CIDADES VALUES(2287, 'So Gonalo do Rio Preto', 11, 3125507); +INSERT INTO SYS_CIDADES VALUES(2288, 'So Gonalo do Sapuca', 11, 3162005); +INSERT INTO SYS_CIDADES VALUES(2289, 'So Gotardo', 11, 3162104); +INSERT INTO SYS_CIDADES VALUES(2290, 'So Joo Batista do Glria', 11, 3162203); +INSERT INTO SYS_CIDADES VALUES(2291, 'So Joo da Lagoa', 11, 3162252); +INSERT INTO SYS_CIDADES VALUES(2292, 'So Joo da Mata', 11, 3162302); +INSERT INTO SYS_CIDADES VALUES(2293, 'So Joo da Ponte', 11, 3162401); +INSERT INTO SYS_CIDADES VALUES(2294, 'So Joo das Misses', 11, 3162450); +INSERT INTO SYS_CIDADES VALUES(2295, 'So Joo del Rei', 11, 3162500); +INSERT INTO SYS_CIDADES VALUES(2296, 'So Joo do Manhuau', 11, 3162559); +INSERT INTO SYS_CIDADES VALUES(2297, 'So Joo do Manteninha', 11, 3162575); +INSERT INTO SYS_CIDADES VALUES(2298, 'So Joo do Oriente', 11, 3162609); +INSERT INTO SYS_CIDADES VALUES(2299, 'So Joo do Pacu', 11, 3162658); +INSERT INTO SYS_CIDADES VALUES(2300, 'So Joo do Paraso', 11, 3162708); +INSERT INTO SYS_CIDADES VALUES(2301, 'So Joo Evangelista', 11, 3162807); +INSERT INTO SYS_CIDADES VALUES(2302, 'So Joo Nepomuceno', 11, 3162906); +INSERT INTO SYS_CIDADES VALUES(2303, 'So Joaquim de Bicas', 11, 3162922); +INSERT INTO SYS_CIDADES VALUES(2304, 'So Jos da Barra', 11, 3162948); +INSERT INTO SYS_CIDADES VALUES(2305, 'So Jos da Lapa', 11, 3162955); +INSERT INTO SYS_CIDADES VALUES(2306, 'So Jos da Safira', 11, 3163003); +INSERT INTO SYS_CIDADES VALUES(2307, 'So Jos da Varginha', 11, 3163102); +INSERT INTO SYS_CIDADES VALUES(2308, 'So Jos do Alegre', 11, 3163201); +INSERT INTO SYS_CIDADES VALUES(2309, 'So Jos do Divino', 11, 3163300); +INSERT INTO SYS_CIDADES VALUES(2310, 'So Jos do Goiabal', 11, 3163409); +INSERT INTO SYS_CIDADES VALUES(2311, 'So Jos do Jacuri', 11, 3163508); +INSERT INTO SYS_CIDADES VALUES(2312, 'So Jos do Mantimento', 11, 3163607); +INSERT INTO SYS_CIDADES VALUES(2313, 'So Loureno', 11, 3163706); +INSERT INTO SYS_CIDADES VALUES(2314, 'So Miguel do Anta', 11, 3163805); +INSERT INTO SYS_CIDADES VALUES(2315, 'So Pedro da Unio', 11, 3163904); +INSERT INTO SYS_CIDADES VALUES(2316, 'So Pedro do Suau', 11, 3164100); +INSERT INTO SYS_CIDADES VALUES(2317, 'So Pedro dos Ferros', 11, 3164001); +INSERT INTO SYS_CIDADES VALUES(2318, 'So Romo', 11, 3164209); +INSERT INTO SYS_CIDADES VALUES(2319, 'So Roque de Minas', 11, 3164308); +INSERT INTO SYS_CIDADES VALUES(2320, 'So Sebastio da Bela Vista', 11, 3164407); +INSERT INTO SYS_CIDADES VALUES(2321, 'So Sebastio da Vargem Alegre', 11, 3164431); +INSERT INTO SYS_CIDADES VALUES(2322, 'So Sebastio do Anta', 11, 3164472); +INSERT INTO SYS_CIDADES VALUES(2323, 'So Sebastio do Maranho', 11, 3164506); +INSERT INTO SYS_CIDADES VALUES(2324, 'So Sebastio do Oeste', 11, 3164605); +INSERT INTO SYS_CIDADES VALUES(2325, 'So Sebastio do Paraso', 11, 3164704); +INSERT INTO SYS_CIDADES VALUES(2326, 'So Sebastio do Rio Preto', 11, 3164803); +INSERT INTO SYS_CIDADES VALUES(2327, 'So Sebastio do Rio Verde', 11, 3164902); +INSERT INTO SYS_CIDADES VALUES(2328, 'So Thom das Letras', 11, 3165206); +INSERT INTO SYS_CIDADES VALUES(2329, 'So Tiago', 11, 3165008); +INSERT INTO SYS_CIDADES VALUES(2330, 'So Toms de Aquino', 11, 3165107); +INSERT INTO SYS_CIDADES VALUES(2331, 'So Vicente de Minas', 11, 3165305); +INSERT INTO SYS_CIDADES VALUES(2332, 'Sapuca-Mirim', 11, 3165404); +INSERT INTO SYS_CIDADES VALUES(2333, 'Sardo', 11, 3165503); +INSERT INTO SYS_CIDADES VALUES(2334, 'Sarzedo', 11, 3165537); +INSERT INTO SYS_CIDADES VALUES(2335, 'Sem-Peixe', 11, 3165560); +INSERT INTO SYS_CIDADES VALUES(2336, 'Senador Amaral', 11, 3165578); +INSERT INTO SYS_CIDADES VALUES(2337, 'Senador Cortes', 11, 3165602); +INSERT INTO SYS_CIDADES VALUES(2338, 'Senador Firmino', 11, 3165701); +INSERT INTO SYS_CIDADES VALUES(2339, 'Senador Jos Bento', 11, 3165800); +INSERT INTO SYS_CIDADES VALUES(2340, 'Senador Modestino Gonalves', 11, 3165909); +INSERT INTO SYS_CIDADES VALUES(2341, 'Senhora de Oliveira', 11, 3166006); +INSERT INTO SYS_CIDADES VALUES(2342, 'Senhora do Porto', 11, 3166105); +INSERT INTO SYS_CIDADES VALUES(2343, 'Senhora dos Remdios', 11, 3166204); +INSERT INTO SYS_CIDADES VALUES(2344, 'Sericita', 11, 3166303); +INSERT INTO SYS_CIDADES VALUES(2345, 'Seritinga', 11, 3166402); +INSERT INTO SYS_CIDADES VALUES(2346, 'Serra Azul de Minas', 11, 3166501); +INSERT INTO SYS_CIDADES VALUES(2347, 'Serra da Saudade', 11, 3166600); +INSERT INTO SYS_CIDADES VALUES(2348, 'Serra do Salitre', 11, 3166808); +INSERT INTO SYS_CIDADES VALUES(2349, 'Serra dos Aimors', 11, 3166709); +INSERT INTO SYS_CIDADES VALUES(2350, 'Serrania', 11, 3166907); +INSERT INTO SYS_CIDADES VALUES(2351, 'Serranpolis de Minas', 11, 3166956); +INSERT INTO SYS_CIDADES VALUES(2352, 'Serranos', 11, 3167004); +INSERT INTO SYS_CIDADES VALUES(2353, 'Serro', 11, 3167103); +INSERT INTO SYS_CIDADES VALUES(2354, 'Sete Lagoas', 11, 3167202); +INSERT INTO SYS_CIDADES VALUES(2355, 'Setubinha', 11, 3165552); +INSERT INTO SYS_CIDADES VALUES(2356, 'Silveirnia', 11, 3167301); +INSERT INTO SYS_CIDADES VALUES(2357, 'Silvianpolis', 11, 3167400); +INSERT INTO SYS_CIDADES VALUES(2358, 'Simo Pereira', 11, 3167509); +INSERT INTO SYS_CIDADES VALUES(2359, 'Simonsia', 11, 3167608); +INSERT INTO SYS_CIDADES VALUES(2360, 'Sobrlia', 11, 3167707); +INSERT INTO SYS_CIDADES VALUES(2361, 'Soledade de Minas', 11, 3167806); +INSERT INTO SYS_CIDADES VALUES(2362, 'Tabuleiro', 11, 3167905); +INSERT INTO SYS_CIDADES VALUES(2363, 'Taiobeiras', 11, 3168002); +INSERT INTO SYS_CIDADES VALUES(2364, 'Taparuba', 11, 3168051); +INSERT INTO SYS_CIDADES VALUES(2365, 'Tapira', 11, 3168101); +INSERT INTO SYS_CIDADES VALUES(2366, 'Tapira', 11, 3168200); +INSERT INTO SYS_CIDADES VALUES(2367, 'Taquarau de Minas', 11, 3168309); +INSERT INTO SYS_CIDADES VALUES(2368, 'Tarumirim', 11, 3168408); +INSERT INTO SYS_CIDADES VALUES(2369, 'Teixeiras', 11, 3168507); +INSERT INTO SYS_CIDADES VALUES(2370, 'Tefilo Otoni', 11, 3168606); +INSERT INTO SYS_CIDADES VALUES(2371, 'Timteo', 11, 3168705); +INSERT INTO SYS_CIDADES VALUES(2372, 'Tiradentes', 11, 3168804); +INSERT INTO SYS_CIDADES VALUES(2373, 'Tiros', 11, 3168903); +INSERT INTO SYS_CIDADES VALUES(2374, 'Tocantins', 11, 3169000); +INSERT INTO SYS_CIDADES VALUES(2375, 'Tocos do Moji', 11, 3169059); +INSERT INTO SYS_CIDADES VALUES(2376, 'Toledo', 11, 3169109); +INSERT INTO SYS_CIDADES VALUES(2377, 'Tombos', 11, 3169208); +INSERT INTO SYS_CIDADES VALUES(2378, 'Trs Coraes', 11, 3169307); +INSERT INTO SYS_CIDADES VALUES(2379, 'Trs Marias', 11, 3169356); +INSERT INTO SYS_CIDADES VALUES(2380, 'Trs Pontas', 11, 3169406); +INSERT INTO SYS_CIDADES VALUES(2381, 'Tumiritinga', 11, 3169505); +INSERT INTO SYS_CIDADES VALUES(2382, 'Tupaciguara', 11, 3169604); +INSERT INTO SYS_CIDADES VALUES(2383, 'Turmalina', 11, 3169703); +INSERT INTO SYS_CIDADES VALUES(2384, 'Turvolndia', 11, 3169802); +INSERT INTO SYS_CIDADES VALUES(2385, 'Ub', 11, 3169901); +INSERT INTO SYS_CIDADES VALUES(2386, 'Uba', 11, 3170008); +INSERT INTO SYS_CIDADES VALUES(2387, 'Ubaporanga', 11, 3170057); +INSERT INTO SYS_CIDADES VALUES(2388, 'Uberaba', 11, 3170107); +INSERT INTO SYS_CIDADES VALUES(2389, 'Uberlndia', 11, 3170206); +INSERT INTO SYS_CIDADES VALUES(2390, 'Umburatiba', 11, 3170305); +INSERT INTO SYS_CIDADES VALUES(2391, 'Una', 11, 3170404); +INSERT INTO SYS_CIDADES VALUES(2392, 'Unio de Minas', 11, 3170438); +INSERT INTO SYS_CIDADES VALUES(2393, 'Uruana de Minas', 11, 3170479); +INSERT INTO SYS_CIDADES VALUES(2394, 'Urucnia', 11, 3170503); +INSERT INTO SYS_CIDADES VALUES(2395, 'Urucuia', 11, 3170529); +INSERT INTO SYS_CIDADES VALUES(2396, 'Vargem Alegre', 11, 3170578); +INSERT INTO SYS_CIDADES VALUES(2397, 'Vargem Bonita', 11, 3170602); +INSERT INTO SYS_CIDADES VALUES(2398, 'Vargem Grande do Rio Pardo', 11, 3170651); +INSERT INTO SYS_CIDADES VALUES(2399, 'Varginha', 11, 3170701); +INSERT INTO SYS_CIDADES VALUES(2400, 'Varjo de Minas', 11, 3170750); +INSERT INTO SYS_CIDADES VALUES(2401, 'Vrzea da Palma', 11, 3170800); +INSERT INTO SYS_CIDADES VALUES(2402, 'Varzelndia', 11, 3170909); +INSERT INTO SYS_CIDADES VALUES(2403, 'Vazante', 11, 3171006); +INSERT INTO SYS_CIDADES VALUES(2404, 'Verdelndia', 11, 3171030); +INSERT INTO SYS_CIDADES VALUES(2405, 'Veredinha', 11, 3171071); +INSERT INTO SYS_CIDADES VALUES(2406, 'Verssimo', 11, 3171105); +INSERT INTO SYS_CIDADES VALUES(2407, 'Vermelho Novo', 11, 3171154); +INSERT INTO SYS_CIDADES VALUES(2408, 'Vespasiano', 11, 3171204); +INSERT INTO SYS_CIDADES VALUES(2409, 'Viosa', 11, 3171303); +INSERT INTO SYS_CIDADES VALUES(2410, 'Vieiras', 11, 3171402); +INSERT INTO SYS_CIDADES VALUES(2411, 'Virgem da Lapa', 11, 3171600); +INSERT INTO SYS_CIDADES VALUES(2412, 'Virgnia', 11, 3171709); +INSERT INTO SYS_CIDADES VALUES(2413, 'Virginpolis', 11, 3171808); +INSERT INTO SYS_CIDADES VALUES(2414, 'Virgolndia', 11, 3171907); +INSERT INTO SYS_CIDADES VALUES(2415, 'Visconde do Rio Branco', 11, 3172004); +INSERT INTO SYS_CIDADES VALUES(2416, 'Volta Grande', 11, 3172103); +INSERT INTO SYS_CIDADES VALUES(2417, 'Wenceslau Braz', 11, 3172202); +INSERT INTO SYS_CIDADES VALUES(2418, 'Abaetetuba', 14, 1500107); +INSERT INTO SYS_CIDADES VALUES(2419, 'Abel Figueiredo', 14, 1500131); +INSERT INTO SYS_CIDADES VALUES(2420, 'Acar', 14, 1500206); +INSERT INTO SYS_CIDADES VALUES(2421, 'Afu', 14, 1500305); +INSERT INTO SYS_CIDADES VALUES(2422, 'gua Azul do Norte', 14, 1500347); +INSERT INTO SYS_CIDADES VALUES(2423, 'Alenquer', 14, 1500404); +INSERT INTO SYS_CIDADES VALUES(2424, 'Almeirim', 14, 1500503); +INSERT INTO SYS_CIDADES VALUES(2425, 'Altamira', 14, 1500602); +INSERT INTO SYS_CIDADES VALUES(2426, 'Anajs', 14, 1500701); +INSERT INTO SYS_CIDADES VALUES(2427, 'Ananindeua', 14, 1500800); +INSERT INTO SYS_CIDADES VALUES(2428, 'Anapu', 14, 1500859); +INSERT INTO SYS_CIDADES VALUES(2429, 'Augusto Corra', 14, 1500909); +INSERT INTO SYS_CIDADES VALUES(2430, 'Aurora do Par', 14, 1500958); +INSERT INTO SYS_CIDADES VALUES(2431, 'Aveiro', 14, 1501006); +INSERT INTO SYS_CIDADES VALUES(2432, 'Bagre', 14, 1501105); +INSERT INTO SYS_CIDADES VALUES(2433, 'Baio', 14, 1501204); +INSERT INTO SYS_CIDADES VALUES(2434, 'Bannach', 14, 1501253); +INSERT INTO SYS_CIDADES VALUES(2435, 'Barcarena', 14, 1501303); +INSERT INTO SYS_CIDADES VALUES(2436, 'Belm', 14, 1501402); +INSERT INTO SYS_CIDADES VALUES(2437, 'Belterra', 14, 1501451); +INSERT INTO SYS_CIDADES VALUES(2438, 'Benevides', 14, 1501501); +INSERT INTO SYS_CIDADES VALUES(2439, 'Bom Jesus do Tocantins', 14, 1501576); +INSERT INTO SYS_CIDADES VALUES(2440, 'Bonito', 14, 1501600); +INSERT INTO SYS_CIDADES VALUES(2441, 'Bragana', 14, 1501709); +INSERT INTO SYS_CIDADES VALUES(2442, 'Brasil Novo', 14, 1501725); +INSERT INTO SYS_CIDADES VALUES(2443, 'Brejo Grande do Araguaia', 14, 1501758); +INSERT INTO SYS_CIDADES VALUES(2444, 'Breu Branco', 14, 1501782); +INSERT INTO SYS_CIDADES VALUES(2445, 'Breves', 14, 1501808); +INSERT INTO SYS_CIDADES VALUES(2446, 'Bujaru', 14, 1501907); +INSERT INTO SYS_CIDADES VALUES(2447, 'Cachoeira do Arari', 14, 1502004); +INSERT INTO SYS_CIDADES VALUES(2448, 'Cachoeira do Piri', 14, 1501956); +INSERT INTO SYS_CIDADES VALUES(2449, 'Camet', 14, 1502103); +INSERT INTO SYS_CIDADES VALUES(2450, 'Cana dos Carajs', 14, 1502152); +INSERT INTO SYS_CIDADES VALUES(2451, 'Capanema', 14, 1502202); +INSERT INTO SYS_CIDADES VALUES(2452, 'Capito Poo', 14, 1502301); +INSERT INTO SYS_CIDADES VALUES(2453, 'Castanhal', 14, 1502400); +INSERT INTO SYS_CIDADES VALUES(2454, 'Chaves', 14, 1502509); +INSERT INTO SYS_CIDADES VALUES(2455, 'Colares', 14, 1502608); +INSERT INTO SYS_CIDADES VALUES(2456, 'Conceio do Araguaia', 14, 1502707); +INSERT INTO SYS_CIDADES VALUES(2457, 'Concrdia do Par', 14, 1502756); +INSERT INTO SYS_CIDADES VALUES(2458, 'Cumaru do Norte', 14, 1502764); +INSERT INTO SYS_CIDADES VALUES(2459, 'Curionpolis', 14, 1502772); +INSERT INTO SYS_CIDADES VALUES(2460, 'Curralinho', 14, 1502806); +INSERT INTO SYS_CIDADES VALUES(2461, 'Curu', 14, 1502855); +INSERT INTO SYS_CIDADES VALUES(2462, 'Curu', 14, 1502905); +INSERT INTO SYS_CIDADES VALUES(2463, 'Dom Eliseu', 14, 1502939); +INSERT INTO SYS_CIDADES VALUES(2464, 'Eldorado dos Carajs', 14, 1502954); +INSERT INTO SYS_CIDADES VALUES(2465, 'Faro', 14, 1503002); +INSERT INTO SYS_CIDADES VALUES(2466, 'Floresta do Araguaia', 14, 1503044); +INSERT INTO SYS_CIDADES VALUES(2467, 'Garrafo do Norte', 14, 1503077); +INSERT INTO SYS_CIDADES VALUES(2468, 'Goiansia do Par', 14, 1503093); +INSERT INTO SYS_CIDADES VALUES(2469, 'Gurup', 14, 1503101); +INSERT INTO SYS_CIDADES VALUES(2470, 'Igarap-Au', 14, 1503200); +INSERT INTO SYS_CIDADES VALUES(2471, 'Igarap-Miri', 14, 1503309); +INSERT INTO SYS_CIDADES VALUES(2472, 'Inhangapi', 14, 1503408); +INSERT INTO SYS_CIDADES VALUES(2473, 'Ipixuna do Par', 14, 1503457); +INSERT INTO SYS_CIDADES VALUES(2474, 'Irituia', 14, 1503507); +INSERT INTO SYS_CIDADES VALUES(2475, 'Itaituba', 14, 1503606); +INSERT INTO SYS_CIDADES VALUES(2476, 'Itupiranga', 14, 1503705); +INSERT INTO SYS_CIDADES VALUES(2477, 'Jacareacanga', 14, 1503754); +INSERT INTO SYS_CIDADES VALUES(2478, 'Jacund', 14, 1503804); +INSERT INTO SYS_CIDADES VALUES(2479, 'Juruti', 14, 1503903); +INSERT INTO SYS_CIDADES VALUES(2480, 'Limoeiro do Ajuru', 14, 1504000); +INSERT INTO SYS_CIDADES VALUES(2481, 'Me do Rio', 14, 1504059); +INSERT INTO SYS_CIDADES VALUES(2482, 'Magalhes Barata', 14, 1504109); +INSERT INTO SYS_CIDADES VALUES(2483, 'Marab', 14, 1504208); +INSERT INTO SYS_CIDADES VALUES(2484, 'Maracan', 14, 1504307); +INSERT INTO SYS_CIDADES VALUES(2485, 'Marapanim', 14, 1504406); +INSERT INTO SYS_CIDADES VALUES(2486, 'Marituba', 14, 1504422); +INSERT INTO SYS_CIDADES VALUES(2487, 'Medicilndia', 14, 1504455); +INSERT INTO SYS_CIDADES VALUES(2488, 'Melgao', 14, 1504505); +INSERT INTO SYS_CIDADES VALUES(2489, 'Mocajuba', 14, 1504604); +INSERT INTO SYS_CIDADES VALUES(2490, 'Moju', 14, 1504703); +INSERT INTO SYS_CIDADES VALUES(2491, 'Monte Alegre', 14, 1504802); +INSERT INTO SYS_CIDADES VALUES(2492, 'Muan', 14, 1504901); +INSERT INTO SYS_CIDADES VALUES(2493, 'Nova Esperana do Piri', 14, 1504950); +INSERT INTO SYS_CIDADES VALUES(2494, 'Nova Ipixuna', 14, 1504976); +INSERT INTO SYS_CIDADES VALUES(2495, 'Nova Timboteua', 14, 1505007); +INSERT INTO SYS_CIDADES VALUES(2496, 'Novo Progresso', 14, 1505031); +INSERT INTO SYS_CIDADES VALUES(2497, 'Novo Repartimento', 14, 1505064); +INSERT INTO SYS_CIDADES VALUES(2498, 'bidos', 14, 1505106); +INSERT INTO SYS_CIDADES VALUES(2499, 'Oeiras do Par', 14, 1505205); +INSERT INTO SYS_CIDADES VALUES(2500, 'Oriximin', 14, 1505304); +INSERT INTO SYS_CIDADES VALUES(2501, 'Ourm', 14, 1505403); +INSERT INTO SYS_CIDADES VALUES(2502, 'Ourilndia do Norte', 14, 1505437); +INSERT INTO SYS_CIDADES VALUES(2503, 'Pacaj', 14, 1505486); +INSERT INTO SYS_CIDADES VALUES(2504, 'Palestina do Par', 14, 1505494); +INSERT INTO SYS_CIDADES VALUES(2505, 'Paragominas', 14, 1505502); +INSERT INTO SYS_CIDADES VALUES(2506, 'Parauapebas', 14, 1505536); +INSERT INTO SYS_CIDADES VALUES(2507, 'Pau d`Arco', 14, 1505551); +INSERT INTO SYS_CIDADES VALUES(2508, 'Peixe-Boi', 14, 1505601); +INSERT INTO SYS_CIDADES VALUES(2509, 'Piarra', 14, 1505635); +INSERT INTO SYS_CIDADES VALUES(2510, 'Placas', 14, 1505650); +INSERT INTO SYS_CIDADES VALUES(2511, 'Ponta de Pedras', 14, 1505700); +INSERT INTO SYS_CIDADES VALUES(2512, 'Portel', 14, 1505809); +INSERT INTO SYS_CIDADES VALUES(2513, 'Porto de Moz', 14, 1505908); +INSERT INTO SYS_CIDADES VALUES(2514, 'Prainha', 14, 1506005); +INSERT INTO SYS_CIDADES VALUES(2515, 'Primavera', 14, 1506104); +INSERT INTO SYS_CIDADES VALUES(2516, 'Quatipuru', 14, 1506112); +INSERT INTO SYS_CIDADES VALUES(2517, 'Redeno', 14, 1506138); +INSERT INTO SYS_CIDADES VALUES(2518, 'Rio Maria', 14, 1506161); +INSERT INTO SYS_CIDADES VALUES(2519, 'Rondon do Par', 14, 1506187); +INSERT INTO SYS_CIDADES VALUES(2520, 'Rurpolis', 14, 1506195); +INSERT INTO SYS_CIDADES VALUES(2521, 'Salinpolis', 14, 1506203); +INSERT INTO SYS_CIDADES VALUES(2522, 'Salvaterra', 14, 1506302); +INSERT INTO SYS_CIDADES VALUES(2523, 'Santa Brbara do Par', 14, 1506351); +INSERT INTO SYS_CIDADES VALUES(2524, 'Santa Cruz do Arari', 14, 1506401); +INSERT INTO SYS_CIDADES VALUES(2525, 'Santa Isabel do Par', 14, 1506500); +INSERT INTO SYS_CIDADES VALUES(2526, 'Santa Luzia do Par', 14, 1506559); +INSERT INTO SYS_CIDADES VALUES(2527, 'Santa Maria das Barreiras', 14, 1506583); +INSERT INTO SYS_CIDADES VALUES(2528, 'Santa Maria do Par', 14, 1506609); +INSERT INTO SYS_CIDADES VALUES(2529, 'Santana do Araguaia', 14, 1506708); +INSERT INTO SYS_CIDADES VALUES(2530, 'Santarm', 14, 1506807); +INSERT INTO SYS_CIDADES VALUES(2531, 'Santarm Novo', 14, 1506906); +INSERT INTO SYS_CIDADES VALUES(2532, 'Santo Antnio do Tau', 14, 1507003); +INSERT INTO SYS_CIDADES VALUES(2533, 'So Caetano de Odivelas', 14, 1507102); +INSERT INTO SYS_CIDADES VALUES(2534, 'So Domingos do Araguaia', 14, 1507151); +INSERT INTO SYS_CIDADES VALUES(2535, 'So Domingos do Capim', 14, 1507201); +INSERT INTO SYS_CIDADES VALUES(2536, 'So Flix do Xingu', 14, 1507300); +INSERT INTO SYS_CIDADES VALUES(2537, 'So Francisco do Par', 14, 1507409); +INSERT INTO SYS_CIDADES VALUES(2538, 'So Geraldo do Araguaia', 14, 1507458); +INSERT INTO SYS_CIDADES VALUES(2539, 'So Joo da Ponta', 14, 1507466); +INSERT INTO SYS_CIDADES VALUES(2540, 'So Joo de Pirabas', 14, 1507474); +INSERT INTO SYS_CIDADES VALUES(2541, 'So Joo do Araguaia', 14, 1507508); +INSERT INTO SYS_CIDADES VALUES(2542, 'So Miguel do Guam', 14, 1507607); +INSERT INTO SYS_CIDADES VALUES(2543, 'So Sebastio da Boa Vista', 14, 1507706); +INSERT INTO SYS_CIDADES VALUES(2544, 'Sapucaia', 14, 1507755); +INSERT INTO SYS_CIDADES VALUES(2545, 'Senador Jos Porfrio', 14, 1507805); +INSERT INTO SYS_CIDADES VALUES(2546, 'Soure', 14, 1507904); +INSERT INTO SYS_CIDADES VALUES(2547, 'Tailndia', 14, 1507953); +INSERT INTO SYS_CIDADES VALUES(2548, 'Terra Alta', 14, 1507961); +INSERT INTO SYS_CIDADES VALUES(2549, 'Terra Santa', 14, 1507979); +INSERT INTO SYS_CIDADES VALUES(2550, 'Tom-Au', 14, 1508001); +INSERT INTO SYS_CIDADES VALUES(2551, 'Tracuateua', 14, 1508035); +INSERT INTO SYS_CIDADES VALUES(2552, 'Trairo', 14, 1508050); +INSERT INTO SYS_CIDADES VALUES(2553, 'Tucum', 14, 1508084); +INSERT INTO SYS_CIDADES VALUES(2554, 'Tucuru', 14, 1508100); +INSERT INTO SYS_CIDADES VALUES(2555, 'Ulianpolis', 14, 1508126); +INSERT INTO SYS_CIDADES VALUES(2556, 'Uruar', 14, 1508159); +INSERT INTO SYS_CIDADES VALUES(2557, 'Vigia', 14, 1508209); +INSERT INTO SYS_CIDADES VALUES(2558, 'Viseu', 14, 1508308); +INSERT INTO SYS_CIDADES VALUES(2559, 'Vitria do Xingu', 14, 1508357); +INSERT INTO SYS_CIDADES VALUES(2560, 'Xinguara', 14, 1508407); +INSERT INTO SYS_CIDADES VALUES(2561, 'gua Branca', 15, 2500106); +INSERT INTO SYS_CIDADES VALUES(2562, 'Aguiar', 15, 2500205); +INSERT INTO SYS_CIDADES VALUES(2563, 'Alagoa Grande', 15, 2500304); +INSERT INTO SYS_CIDADES VALUES(2564, 'Alagoa Nova', 15, 2500403); +INSERT INTO SYS_CIDADES VALUES(2565, 'Alagoinha', 15, 2500502); +INSERT INTO SYS_CIDADES VALUES(2566, 'Alcantil', 15, 2500536); +INSERT INTO SYS_CIDADES VALUES(2567, 'Algodo de Jandara', 15, 2500577); +INSERT INTO SYS_CIDADES VALUES(2568, 'Alhandra', 15, 2500601); +INSERT INTO SYS_CIDADES VALUES(2569, 'Amparo', 15, 2500734); +INSERT INTO SYS_CIDADES VALUES(2570, 'Aparecida', 15, 2500775); +INSERT INTO SYS_CIDADES VALUES(2571, 'Araagi', 15, 2500809); +INSERT INTO SYS_CIDADES VALUES(2572, 'Arara', 15, 2500908); +INSERT INTO SYS_CIDADES VALUES(2573, 'Araruna', 15, 2501005); +INSERT INTO SYS_CIDADES VALUES(2574, 'Areia', 15, 2501104); +INSERT INTO SYS_CIDADES VALUES(2575, 'Areia de Baranas', 15, 2501153); +INSERT INTO SYS_CIDADES VALUES(2576, 'Areial', 15, 2501203); +INSERT INTO SYS_CIDADES VALUES(2577, 'Aroeiras', 15, 2501302); +INSERT INTO SYS_CIDADES VALUES(2578, 'Assuno', 15, 2501351); +INSERT INTO SYS_CIDADES VALUES(2579, 'Baa da Traio', 15, 2501401); +INSERT INTO SYS_CIDADES VALUES(2580, 'Bananeiras', 15, 2501500); +INSERT INTO SYS_CIDADES VALUES(2581, 'Barana', 15, 2501534); +INSERT INTO SYS_CIDADES VALUES(2582, 'Barra de Santa Rosa', 15, 2501609); +INSERT INTO SYS_CIDADES VALUES(2583, 'Barra de Santana', 15, 2501575); +INSERT INTO SYS_CIDADES VALUES(2584, 'Barra de So Miguel', 15, 2501708); +INSERT INTO SYS_CIDADES VALUES(2585, 'Bayeux', 15, 2501807); +INSERT INTO SYS_CIDADES VALUES(2586, 'Belm', 15, 2501906); +INSERT INTO SYS_CIDADES VALUES(2587, 'Belm do Brejo do Cruz', 15, 2502003); +INSERT INTO SYS_CIDADES VALUES(2588, 'Bernardino Batista', 15, 2502052); +INSERT INTO SYS_CIDADES VALUES(2589, 'Boa Ventura', 15, 2502102); +INSERT INTO SYS_CIDADES VALUES(2590, 'Boa Vista', 15, 2502151); +INSERT INTO SYS_CIDADES VALUES(2591, 'Bom Jesus', 15, 2502201); +INSERT INTO SYS_CIDADES VALUES(2592, 'Bom Sucesso', 15, 2502300); +INSERT INTO SYS_CIDADES VALUES(2593, 'Bonito de Santa F', 15, 2502409); +INSERT INTO SYS_CIDADES VALUES(2594, 'Boqueiro', 15, 2502508); +INSERT INTO SYS_CIDADES VALUES(2595, 'Borborema', 15, 2502706); +INSERT INTO SYS_CIDADES VALUES(2596, 'Brejo do Cruz', 15, 2502805); +INSERT INTO SYS_CIDADES VALUES(2597, 'Brejo dos Santos', 15, 2502904); +INSERT INTO SYS_CIDADES VALUES(2598, 'Caapor', 15, 2503001); +INSERT INTO SYS_CIDADES VALUES(2599, 'Cabaceiras', 15, 2503100); +INSERT INTO SYS_CIDADES VALUES(2600, 'Cabedelo', 15, 2503209); +INSERT INTO SYS_CIDADES VALUES(2601, 'Cachoeira dos ndios', 15, 2503308); +INSERT INTO SYS_CIDADES VALUES(2602, 'Cacimba de Areia', 15, 2503407); +INSERT INTO SYS_CIDADES VALUES(2603, 'Cacimba de Dentro', 15, 2503506); +INSERT INTO SYS_CIDADES VALUES(2604, 'Cacimbas', 15, 2503555); +INSERT INTO SYS_CIDADES VALUES(2605, 'Caiara', 15, 2503605); +INSERT INTO SYS_CIDADES VALUES(2606, 'Cajazeiras', 15, 2503704); +INSERT INTO SYS_CIDADES VALUES(2607, 'Cajazeirinhas', 15, 2503753); +INSERT INTO SYS_CIDADES VALUES(2608, 'Caldas Brando', 15, 2503803); +INSERT INTO SYS_CIDADES VALUES(2609, 'Camala', 15, 2503902); +INSERT INTO SYS_CIDADES VALUES(2610, 'Campina Grande', 15, 2504009); +INSERT INTO SYS_CIDADES VALUES(2611, 'Campo de Santana', 15, 2516409); +INSERT INTO SYS_CIDADES VALUES(2612, 'Capim', 15, 2504033); +INSERT INTO SYS_CIDADES VALUES(2613, 'Carabas', 15, 2504074); +INSERT INTO SYS_CIDADES VALUES(2614, 'Carrapateira', 15, 2504108); +INSERT INTO SYS_CIDADES VALUES(2615, 'Casserengue', 15, 2504157); +INSERT INTO SYS_CIDADES VALUES(2616, 'Catingueira', 15, 2504207); +INSERT INTO SYS_CIDADES VALUES(2617, 'Catol do Rocha', 15, 2504306); +INSERT INTO SYS_CIDADES VALUES(2618, 'Caturit', 15, 2504355); +INSERT INTO SYS_CIDADES VALUES(2619, 'Conceio', 15, 2504405); +INSERT INTO SYS_CIDADES VALUES(2620, 'Condado', 15, 2504504); +INSERT INTO SYS_CIDADES VALUES(2621, 'Conde', 15, 2504603); +INSERT INTO SYS_CIDADES VALUES(2622, 'Congo', 15, 2504702); +INSERT INTO SYS_CIDADES VALUES(2623, 'Coremas', 15, 2504801); +INSERT INTO SYS_CIDADES VALUES(2624, 'Coxixola', 15, 2504850); +INSERT INTO SYS_CIDADES VALUES(2625, 'Cruz do Esprito Santo', 15, 2504900); +INSERT INTO SYS_CIDADES VALUES(2626, 'Cubati', 15, 2505006); +INSERT INTO SYS_CIDADES VALUES(2627, 'Cuit', 15, 2505105); +INSERT INTO SYS_CIDADES VALUES(2628, 'Cuit de Mamanguape', 15, 2505238); +INSERT INTO SYS_CIDADES VALUES(2629, 'Cuitegi', 15, 2505204); +INSERT INTO SYS_CIDADES VALUES(2630, 'Curral de Cima', 15, 2505279); +INSERT INTO SYS_CIDADES VALUES(2631, 'Curral Velho', 15, 2505303); +INSERT INTO SYS_CIDADES VALUES(2632, 'Damio', 15, 2505352); +INSERT INTO SYS_CIDADES VALUES(2633, 'Desterro', 15, 2505402); +INSERT INTO SYS_CIDADES VALUES(2634, 'Diamante', 15, 2505600); +INSERT INTO SYS_CIDADES VALUES(2635, 'Dona Ins', 15, 2505709); +INSERT INTO SYS_CIDADES VALUES(2636, 'Duas Estradas', 15, 2505808); +INSERT INTO SYS_CIDADES VALUES(2637, 'Emas', 15, 2505907); +INSERT INTO SYS_CIDADES VALUES(2638, 'Esperana', 15, 2506004); +INSERT INTO SYS_CIDADES VALUES(2639, 'Fagundes', 15, 2506103); +INSERT INTO SYS_CIDADES VALUES(2640, 'Frei Martinho', 15, 2506202); +INSERT INTO SYS_CIDADES VALUES(2641, 'Gado Bravo', 15, 2506251); +INSERT INTO SYS_CIDADES VALUES(2642, 'Guarabira', 15, 2506301); +INSERT INTO SYS_CIDADES VALUES(2643, 'Gurinhm', 15, 2506400); +INSERT INTO SYS_CIDADES VALUES(2644, 'Gurjo', 15, 2506509); +INSERT INTO SYS_CIDADES VALUES(2645, 'Ibiara', 15, 2506608); +INSERT INTO SYS_CIDADES VALUES(2646, 'Igaracy', 15, 2502607); +INSERT INTO SYS_CIDADES VALUES(2647, 'Imaculada', 15, 2506707); +INSERT INTO SYS_CIDADES VALUES(2648, 'Ing', 15, 2506806); +INSERT INTO SYS_CIDADES VALUES(2649, 'Itabaiana', 15, 2506905); +INSERT INTO SYS_CIDADES VALUES(2650, 'Itaporanga', 15, 2507002); +INSERT INTO SYS_CIDADES VALUES(2651, 'Itapororoca', 15, 2507101); +INSERT INTO SYS_CIDADES VALUES(2652, 'Itatuba', 15, 2507200); +INSERT INTO SYS_CIDADES VALUES(2653, 'Jacara', 15, 2507309); +INSERT INTO SYS_CIDADES VALUES(2654, 'Jeric', 15, 2507408); +INSERT INTO SYS_CIDADES VALUES(2655, 'Joo Pessoa', 15, 2507507); +INSERT INTO SYS_CIDADES VALUES(2656, 'Juarez Tvora', 15, 2507606); +INSERT INTO SYS_CIDADES VALUES(2657, 'Juazeirinho', 15, 2507705); +INSERT INTO SYS_CIDADES VALUES(2658, 'Junco do Serid', 15, 2507804); +INSERT INTO SYS_CIDADES VALUES(2659, 'Juripiranga', 15, 2507903); +INSERT INTO SYS_CIDADES VALUES(2660, 'Juru', 15, 2508000); +INSERT INTO SYS_CIDADES VALUES(2661, 'Lagoa', 15, 2508109); +INSERT INTO SYS_CIDADES VALUES(2662, 'Lagoa de Dentro', 15, 2508208); +INSERT INTO SYS_CIDADES VALUES(2663, 'Lagoa Seca', 15, 2508307); +INSERT INTO SYS_CIDADES VALUES(2664, 'Lastro', 15, 2508406); +INSERT INTO SYS_CIDADES VALUES(2665, 'Livramento', 15, 2508505); +INSERT INTO SYS_CIDADES VALUES(2666, 'Logradouro', 15, 2508554); +INSERT INTO SYS_CIDADES VALUES(2667, 'Lucena', 15, 2508604); +INSERT INTO SYS_CIDADES VALUES(2668, 'Me d`gua', 15, 2508703); +INSERT INTO SYS_CIDADES VALUES(2669, 'Malta', 15, 2508802); +INSERT INTO SYS_CIDADES VALUES(2670, 'Mamanguape', 15, 2508901); +INSERT INTO SYS_CIDADES VALUES(2671, 'Manara', 15, 2509008); +INSERT INTO SYS_CIDADES VALUES(2672, 'Marcao', 15, 2509057); +INSERT INTO SYS_CIDADES VALUES(2673, 'Mari', 15, 2509107); +INSERT INTO SYS_CIDADES VALUES(2674, 'Marizpolis', 15, 2509156); +INSERT INTO SYS_CIDADES VALUES(2675, 'Massaranduba', 15, 2509206); +INSERT INTO SYS_CIDADES VALUES(2676, 'Mataraca', 15, 2509305); +INSERT INTO SYS_CIDADES VALUES(2677, 'Matinhas', 15, 2509339); +INSERT INTO SYS_CIDADES VALUES(2678, 'Mato Grosso', 15, 2509370); +INSERT INTO SYS_CIDADES VALUES(2679, 'Maturia', 15, 2509396); +INSERT INTO SYS_CIDADES VALUES(2680, 'Mogeiro', 15, 2509404); +INSERT INTO SYS_CIDADES VALUES(2681, 'Montadas', 15, 2509503); +INSERT INTO SYS_CIDADES VALUES(2682, 'Monte Horebe', 15, 2509602); +INSERT INTO SYS_CIDADES VALUES(2683, 'Monteiro', 15, 2509701); +INSERT INTO SYS_CIDADES VALUES(2684, 'Mulungu', 15, 2509800); +INSERT INTO SYS_CIDADES VALUES(2685, 'Natuba', 15, 2509909); +INSERT INTO SYS_CIDADES VALUES(2686, 'Nazarezinho', 15, 2510006); +INSERT INTO SYS_CIDADES VALUES(2687, 'Nova Floresta', 15, 2510105); +INSERT INTO SYS_CIDADES VALUES(2688, 'Nova Olinda', 15, 2510204); +INSERT INTO SYS_CIDADES VALUES(2689, 'Nova Palmeira', 15, 2510303); +INSERT INTO SYS_CIDADES VALUES(2690, 'Olho d`gua', 15, 2510402); +INSERT INTO SYS_CIDADES VALUES(2691, 'Olivedos', 15, 2510501); +INSERT INTO SYS_CIDADES VALUES(2692, 'Ouro Velho', 15, 2510600); +INSERT INTO SYS_CIDADES VALUES(2693, 'Parari', 15, 2510659); +INSERT INTO SYS_CIDADES VALUES(2694, 'Passagem', 15, 2510709); +INSERT INTO SYS_CIDADES VALUES(2695, 'Patos', 15, 2510808); +INSERT INTO SYS_CIDADES VALUES(2696, 'Paulista', 15, 2510907); +INSERT INTO SYS_CIDADES VALUES(2697, 'Pedra Branca', 15, 2511004); +INSERT INTO SYS_CIDADES VALUES(2698, 'Pedra Lavrada', 15, 2511103); +INSERT INTO SYS_CIDADES VALUES(2699, 'Pedras de Fogo', 15, 2511202); +INSERT INTO SYS_CIDADES VALUES(2700, 'Pedro Rgis', 15, 2512721); +INSERT INTO SYS_CIDADES VALUES(2701, 'Pianc', 15, 2511301); +INSERT INTO SYS_CIDADES VALUES(2702, 'Picu', 15, 2511400); +INSERT INTO SYS_CIDADES VALUES(2703, 'Pilar', 15, 2511509); +INSERT INTO SYS_CIDADES VALUES(2704, 'Piles', 15, 2511608); +INSERT INTO SYS_CIDADES VALUES(2705, 'Pilezinhos', 15, 2511707); +INSERT INTO SYS_CIDADES VALUES(2706, 'Pirpirituba', 15, 2511806); +INSERT INTO SYS_CIDADES VALUES(2707, 'Pitimbu', 15, 2511905); +INSERT INTO SYS_CIDADES VALUES(2708, 'Pocinhos', 15, 2512002); +INSERT INTO SYS_CIDADES VALUES(2709, 'Poo Dantas', 15, 2512036); +INSERT INTO SYS_CIDADES VALUES(2710, 'Poo de Jos de Moura', 15, 2512077); +INSERT INTO SYS_CIDADES VALUES(2711, 'Pombal', 15, 2512101); +INSERT INTO SYS_CIDADES VALUES(2712, 'Prata', 15, 2512200); +INSERT INTO SYS_CIDADES VALUES(2713, 'Princesa Isabel', 15, 2512309); +INSERT INTO SYS_CIDADES VALUES(2714, 'Puxinan', 15, 2512408); +INSERT INTO SYS_CIDADES VALUES(2715, 'Queimadas', 15, 2512507); +INSERT INTO SYS_CIDADES VALUES(2716, 'Quixab', 15, 2512606); +INSERT INTO SYS_CIDADES VALUES(2717, 'Remgio', 15, 2512705); +INSERT INTO SYS_CIDADES VALUES(2718, 'Riacho', 15, 2512747); +INSERT INTO SYS_CIDADES VALUES(2719, 'Riacho do Bacamarte', 15, 2512754); +INSERT INTO SYS_CIDADES VALUES(2720, 'Riacho do Poo', 15, 2512762); +INSERT INTO SYS_CIDADES VALUES(2721, 'Riacho de Santo Antnio', 15, 2512788); +INSERT INTO SYS_CIDADES VALUES(2722, 'Riacho dos Cavalos', 15, 2512804); +INSERT INTO SYS_CIDADES VALUES(2723, 'Rio Tinto', 15, 2512903); +INSERT INTO SYS_CIDADES VALUES(2724, 'Salgadinho', 15, 2513000); +INSERT INTO SYS_CIDADES VALUES(2725, 'Salgado de So Flix', 15, 2513109); +INSERT INTO SYS_CIDADES VALUES(2726, 'Santa Ceclia', 15, 2513158); +INSERT INTO SYS_CIDADES VALUES(2727, 'Santa Cruz', 15, 2513208); +INSERT INTO SYS_CIDADES VALUES(2728, 'Santa Helena', 15, 2513307); +INSERT INTO SYS_CIDADES VALUES(2729, 'Santa Ins', 15, 2513356); +INSERT INTO SYS_CIDADES VALUES(2730, 'Santa Luzia', 15, 2513406); +INSERT INTO SYS_CIDADES VALUES(2731, 'Santa Rita', 15, 2513703); +INSERT INTO SYS_CIDADES VALUES(2732, 'Santa Teresinha', 15, 2513802); +INSERT INTO SYS_CIDADES VALUES(2733, 'Santana de Mangueira', 15, 2513505); +INSERT INTO SYS_CIDADES VALUES(2734, 'Santana dos Garrotes', 15, 2513604); +INSERT INTO SYS_CIDADES VALUES(2735, 'Santarm', 15, 2513653); +INSERT INTO SYS_CIDADES VALUES(2736, 'Santo Andr', 15, 2513851); +INSERT INTO SYS_CIDADES VALUES(2737, 'So Bentinho', 15, 2513927); +INSERT INTO SYS_CIDADES VALUES(2738, 'So Bento', 15, 2513901); +INSERT INTO SYS_CIDADES VALUES(2739, 'So Domingos de Pombal', 15, 2513968); +INSERT INTO SYS_CIDADES VALUES(2740, 'So Domingos do Cariri', 15, 2513943); +INSERT INTO SYS_CIDADES VALUES(2741, 'So Francisco', 15, 2513984); +INSERT INTO SYS_CIDADES VALUES(2742, 'So Joo do Cariri', 15, 2514008); +INSERT INTO SYS_CIDADES VALUES(2743, 'So Joo do Rio do Peixe', 15, 2500700); +INSERT INTO SYS_CIDADES VALUES(2744, 'So Joo do Tigre', 15, 2514107); +INSERT INTO SYS_CIDADES VALUES(2745, 'So Jos da Lagoa Tapada', 15, 2514206); +INSERT INTO SYS_CIDADES VALUES(2746, 'So Jos de Caiana', 15, 2514305); +INSERT INTO SYS_CIDADES VALUES(2747, 'So Jos de Espinharas', 15, 2514404); +INSERT INTO SYS_CIDADES VALUES(2748, 'So Jos de Piranhas', 15, 2514503); +INSERT INTO SYS_CIDADES VALUES(2749, 'So Jos de Princesa', 15, 2514552); +INSERT INTO SYS_CIDADES VALUES(2750, 'So Jos do Bonfim', 15, 2514602); +INSERT INTO SYS_CIDADES VALUES(2751, 'So Jos do Brejo do Cruz', 15, 2514651); +INSERT INTO SYS_CIDADES VALUES(2752, 'So Jos do Sabugi', 15, 2514701); +INSERT INTO SYS_CIDADES VALUES(2753, 'So Jos dos Cordeiros', 15, 2514800); +INSERT INTO SYS_CIDADES VALUES(2754, 'So Jos dos Ramos', 15, 2514453); +INSERT INTO SYS_CIDADES VALUES(2755, 'So Mamede', 15, 2514909); +INSERT INTO SYS_CIDADES VALUES(2756, 'So Miguel de Taipu', 15, 2515005); +INSERT INTO SYS_CIDADES VALUES(2757, 'So Sebastio de Lagoa de Roa', 15, 2515104); +INSERT INTO SYS_CIDADES VALUES(2758, 'So Sebastio do Umbuzeiro', 15, 2515203); +INSERT INTO SYS_CIDADES VALUES(2759, 'Sap', 15, 2515302); +INSERT INTO SYS_CIDADES VALUES(2760, 'Serid', 15, 2515401); +INSERT INTO SYS_CIDADES VALUES(2761, 'Serra Branca', 15, 2515500); +INSERT INTO SYS_CIDADES VALUES(2762, 'Serra da Raiz', 15, 2515609); +INSERT INTO SYS_CIDADES VALUES(2763, 'Serra Grande', 15, 2515708); +INSERT INTO SYS_CIDADES VALUES(2764, 'Serra Redonda', 15, 2515807); +INSERT INTO SYS_CIDADES VALUES(2765, 'Serraria', 15, 2515906); +INSERT INTO SYS_CIDADES VALUES(2766, 'Sertozinho', 15, 2515930); +INSERT INTO SYS_CIDADES VALUES(2767, 'Sobrado', 15, 2515971); +INSERT INTO SYS_CIDADES VALUES(2768, 'Solnea', 15, 2516003); +INSERT INTO SYS_CIDADES VALUES(2769, 'Soledade', 15, 2516102); +INSERT INTO SYS_CIDADES VALUES(2770, 'Sossgo', 15, 2516151); +INSERT INTO SYS_CIDADES VALUES(2771, 'Sousa', 15, 2516201); +INSERT INTO SYS_CIDADES VALUES(2772, 'Sum', 15, 2516300); +INSERT INTO SYS_CIDADES VALUES(2773, 'Tapero', 15, 2516508); +INSERT INTO SYS_CIDADES VALUES(2774, 'Tavares', 15, 2516607); +INSERT INTO SYS_CIDADES VALUES(2775, 'Teixeira', 15, 2516706); +INSERT INTO SYS_CIDADES VALUES(2776, 'Tenrio', 15, 2516755); +INSERT INTO SYS_CIDADES VALUES(2777, 'Triunfo', 15, 2516805); +INSERT INTO SYS_CIDADES VALUES(2778, 'Uirana', 15, 2516904); +INSERT INTO SYS_CIDADES VALUES(2779, 'Umbuzeiro', 15, 2517001); +INSERT INTO SYS_CIDADES VALUES(2780, 'Vrzea', 15, 2517100); +INSERT INTO SYS_CIDADES VALUES(2781, 'Vieirpolis', 15, 2517209); +INSERT INTO SYS_CIDADES VALUES(2782, 'Vista Serrana', 15, 2505501); +INSERT INTO SYS_CIDADES VALUES(2783, 'Zabel', 15, 2517407); +INSERT INTO SYS_CIDADES VALUES(2784, 'Abati', 18, 4100103); +INSERT INTO SYS_CIDADES VALUES(2785, 'Adrianpolis', 18, 4100202); +INSERT INTO SYS_CIDADES VALUES(2786, 'Agudos do Sul', 18, 4100301); +INSERT INTO SYS_CIDADES VALUES(2787, 'Almirante Tamandar', 18, 4100400); +INSERT INTO SYS_CIDADES VALUES(2788, 'Altamira do Paran', 18, 4100459); +INSERT INTO SYS_CIDADES VALUES(2789, 'Alto Paraso', 18, 4128625); +INSERT INTO SYS_CIDADES VALUES(2790, 'Alto Paran', 18, 4100608); +INSERT INTO SYS_CIDADES VALUES(2791, 'Alto Piquiri', 18, 4100707); +INSERT INTO SYS_CIDADES VALUES(2792, 'Altnia', 18, 4100509); +INSERT INTO SYS_CIDADES VALUES(2793, 'Alvorada do Sul', 18, 4100806); +INSERT INTO SYS_CIDADES VALUES(2794, 'Amapor', 18, 4100905); +INSERT INTO SYS_CIDADES VALUES(2795, 'Ampre', 18, 4101002); +INSERT INTO SYS_CIDADES VALUES(2796, 'Anahy', 18, 4101051); +INSERT INTO SYS_CIDADES VALUES(2797, 'Andir', 18, 4101101); +INSERT INTO SYS_CIDADES VALUES(2798, 'ngulo', 18, 4101150); +INSERT INTO SYS_CIDADES VALUES(2799, 'Antonina', 18, 4101200); +INSERT INTO SYS_CIDADES VALUES(2800, 'Antnio Olinto', 18, 4101309); +INSERT INTO SYS_CIDADES VALUES(2801, 'Apucarana', 18, 4101408); +INSERT INTO SYS_CIDADES VALUES(2802, 'Arapongas', 18, 4101507); +INSERT INTO SYS_CIDADES VALUES(2803, 'Arapoti', 18, 4101606); +INSERT INTO SYS_CIDADES VALUES(2804, 'Arapu', 18, 4101655); +INSERT INTO SYS_CIDADES VALUES(2805, 'Araruna', 18, 4101705); +INSERT INTO SYS_CIDADES VALUES(2806, 'Araucria', 18, 4101804); +INSERT INTO SYS_CIDADES VALUES(2807, 'Ariranha do Iva', 18, 4101853); +INSERT INTO SYS_CIDADES VALUES(2808, 'Assa', 18, 4101903); +INSERT INTO SYS_CIDADES VALUES(2809, 'Assis Chateaubriand', 18, 4102000); +INSERT INTO SYS_CIDADES VALUES(2810, 'Astorga', 18, 4102109); +INSERT INTO SYS_CIDADES VALUES(2811, 'Atalaia', 18, 4102208); +INSERT INTO SYS_CIDADES VALUES(2812, 'Balsa Nova', 18, 4102307); +INSERT INTO SYS_CIDADES VALUES(2813, 'Bandeirantes', 18, 4102406); +INSERT INTO SYS_CIDADES VALUES(2814, 'Barbosa Ferraz', 18, 4102505); +INSERT INTO SYS_CIDADES VALUES(2815, 'Barra do Jacar', 18, 4102703); +INSERT INTO SYS_CIDADES VALUES(2816, 'Barraco', 18, 4102604); +INSERT INTO SYS_CIDADES VALUES(2817, 'Bela Vista da Caroba', 18, 4102752); +INSERT INTO SYS_CIDADES VALUES(2818, 'Bela Vista do Paraso', 18, 4102802); +INSERT INTO SYS_CIDADES VALUES(2819, 'Bituruna', 18, 4102901); +INSERT INTO SYS_CIDADES VALUES(2820, 'Boa Esperana', 18, 4103008); +INSERT INTO SYS_CIDADES VALUES(2821, 'Boa Esperana do Iguau', 18, 4103024); +INSERT INTO SYS_CIDADES VALUES(2822, 'Boa Ventura de So Roque', 18, 4103040); +INSERT INTO SYS_CIDADES VALUES(2823, 'Boa Vista da Aparecida', 18, 4103057); +INSERT INTO SYS_CIDADES VALUES(2824, 'Bocaiva do Sul', 18, 4103107); +INSERT INTO SYS_CIDADES VALUES(2825, 'Bom Jesus do Sul', 18, 4103156); +INSERT INTO SYS_CIDADES VALUES(2826, 'Bom Sucesso', 18, 4103206); +INSERT INTO SYS_CIDADES VALUES(2827, 'Bom Sucesso do Sul', 18, 4103222); +INSERT INTO SYS_CIDADES VALUES(2828, 'Borrazpolis', 18, 4103305); +INSERT INTO SYS_CIDADES VALUES(2829, 'Braganey', 18, 4103354); +INSERT INTO SYS_CIDADES VALUES(2830, 'Brasilndia do Sul', 18, 4103370); +INSERT INTO SYS_CIDADES VALUES(2831, 'Cafeara', 18, 4103404); +INSERT INTO SYS_CIDADES VALUES(2832, 'Cafelndia', 18, 4103453); +INSERT INTO SYS_CIDADES VALUES(2833, 'Cafezal do Sul', 18, 4103479); +INSERT INTO SYS_CIDADES VALUES(2834, 'Califrnia', 18, 4103503); +INSERT INTO SYS_CIDADES VALUES(2835, 'Cambar', 18, 4103602); +INSERT INTO SYS_CIDADES VALUES(2836, 'Camb', 18, 4103701); +INSERT INTO SYS_CIDADES VALUES(2837, 'Cambira', 18, 4103800); +INSERT INTO SYS_CIDADES VALUES(2838, 'Campina da Lagoa', 18, 4103909); +INSERT INTO SYS_CIDADES VALUES(2839, 'Campina do Simo', 18, 4103958); +INSERT INTO SYS_CIDADES VALUES(2840, 'Campina Grande do Sul', 18, 4104006); +INSERT INTO SYS_CIDADES VALUES(2841, 'Campo Bonito', 18, 4104055); +INSERT INTO SYS_CIDADES VALUES(2842, 'Campo do Tenente', 18, 4104105); +INSERT INTO SYS_CIDADES VALUES(2843, 'Campo Largo', 18, 4104204); +INSERT INTO SYS_CIDADES VALUES(2844, 'Campo Magro', 18, 4104253); +INSERT INTO SYS_CIDADES VALUES(2845, 'Campo Mouro', 18, 4104303); +INSERT INTO SYS_CIDADES VALUES(2846, 'Cndido de Abreu', 18, 4104402); +INSERT INTO SYS_CIDADES VALUES(2847, 'Candi', 18, 4104428); +INSERT INTO SYS_CIDADES VALUES(2848, 'Cantagalo', 18, 4104451); +INSERT INTO SYS_CIDADES VALUES(2849, 'Capanema', 18, 4104501); +INSERT INTO SYS_CIDADES VALUES(2850, 'Capito Lenidas Marques', 18, 4104600); +INSERT INTO SYS_CIDADES VALUES(2851, 'Carambe', 18, 4104659); +INSERT INTO SYS_CIDADES VALUES(2852, 'Carlpolis', 18, 4104709); +INSERT INTO SYS_CIDADES VALUES(2853, 'Cascavel', 18, 4104808); +INSERT INTO SYS_CIDADES VALUES(2854, 'Castro', 18, 4104907); +INSERT INTO SYS_CIDADES VALUES(2855, 'Catanduvas', 18, 4105003); +INSERT INTO SYS_CIDADES VALUES(2856, 'Centenrio do Sul', 18, 4105102); +INSERT INTO SYS_CIDADES VALUES(2857, 'Cerro Azul', 18, 4105201); +INSERT INTO SYS_CIDADES VALUES(2858, 'Cu Azul', 18, 4105300); +INSERT INTO SYS_CIDADES VALUES(2859, 'Chopinzinho', 18, 4105409); +INSERT INTO SYS_CIDADES VALUES(2860, 'Cianorte', 18, 4105508); +INSERT INTO SYS_CIDADES VALUES(2861, 'Cidade Gacha', 18, 4105607); +INSERT INTO SYS_CIDADES VALUES(2862, 'Clevelndia', 18, 4105706); +INSERT INTO SYS_CIDADES VALUES(2863, 'Colombo', 18, 4105805); +INSERT INTO SYS_CIDADES VALUES(2864, 'Colorado', 18, 4105904); +INSERT INTO SYS_CIDADES VALUES(2865, 'Congonhinhas', 18, 4106001); +INSERT INTO SYS_CIDADES VALUES(2866, 'Conselheiro Mairinck', 18, 4106100); +INSERT INTO SYS_CIDADES VALUES(2867, 'Contenda', 18, 4106209); +INSERT INTO SYS_CIDADES VALUES(2868, 'Corblia', 18, 4106308); +INSERT INTO SYS_CIDADES VALUES(2869, 'Cornlio Procpio', 18, 4106407); +INSERT INTO SYS_CIDADES VALUES(2870, 'Coronel Domingos Soares', 18, 4106456); +INSERT INTO SYS_CIDADES VALUES(2871, 'Coronel Vivida', 18, 4106506); +INSERT INTO SYS_CIDADES VALUES(2872, 'Corumbata do Sul', 18, 4106555); +INSERT INTO SYS_CIDADES VALUES(2873, 'Cruz Machado', 18, 4106803); +INSERT INTO SYS_CIDADES VALUES(2874, 'Cruzeiro do Iguau', 18, 4106571); +INSERT INTO SYS_CIDADES VALUES(2875, 'Cruzeiro do Oeste', 18, 4106605); +INSERT INTO SYS_CIDADES VALUES(2876, 'Cruzeiro do Sul', 18, 4106704); +INSERT INTO SYS_CIDADES VALUES(2877, 'Cruzmaltina', 18, 4106852); +INSERT INTO SYS_CIDADES VALUES(2878, 'Curitiba', 18, 4106902); +INSERT INTO SYS_CIDADES VALUES(2879, 'Curiva', 18, 4107009); +INSERT INTO SYS_CIDADES VALUES(2880, 'Diamante d`Oeste', 18, 4107157); +INSERT INTO SYS_CIDADES VALUES(2881, 'Diamante do Norte', 18, 4107108); +INSERT INTO SYS_CIDADES VALUES(2882, 'Diamante do Sul', 18, 4107124); +INSERT INTO SYS_CIDADES VALUES(2883, 'Dois Vizinhos', 18, 4107207); +INSERT INTO SYS_CIDADES VALUES(2884, 'Douradina', 18, 4107256); +INSERT INTO SYS_CIDADES VALUES(2885, 'Doutor Camargo', 18, 4107306); +INSERT INTO SYS_CIDADES VALUES(2886, 'Doutor Ulysses', 18, 4128633); +INSERT INTO SYS_CIDADES VALUES(2887, 'Enas Marques', 18, 4107405); +INSERT INTO SYS_CIDADES VALUES(2888, 'Engenheiro Beltro', 18, 4107504); +INSERT INTO SYS_CIDADES VALUES(2889, 'Entre Rios do Oeste', 18, 4107538); +INSERT INTO SYS_CIDADES VALUES(2890, 'Esperana Nova', 18, 4107520); +INSERT INTO SYS_CIDADES VALUES(2891, 'Espigo Alto do Iguau', 18, 4107546); +INSERT INTO SYS_CIDADES VALUES(2892, 'Farol', 18, 4107553); +INSERT INTO SYS_CIDADES VALUES(2893, 'Faxinal', 18, 4107603); +INSERT INTO SYS_CIDADES VALUES(2894, 'Fazenda Rio Grande', 18, 4107652); +INSERT INTO SYS_CIDADES VALUES(2895, 'Fnix', 18, 4107702); +INSERT INTO SYS_CIDADES VALUES(2896, 'Fernandes Pinheiro', 18, 4107736); +INSERT INTO SYS_CIDADES VALUES(2897, 'Figueira', 18, 4107751); +INSERT INTO SYS_CIDADES VALUES(2898, 'Flor da Serra do Sul', 18, 4107850); +INSERT INTO SYS_CIDADES VALUES(2899, 'Flora', 18, 4107801); +INSERT INTO SYS_CIDADES VALUES(2900, 'Floresta', 18, 4107900); +INSERT INTO SYS_CIDADES VALUES(2901, 'Florestpolis', 18, 4108007); +INSERT INTO SYS_CIDADES VALUES(2902, 'Flrida', 18, 4108106); +INSERT INTO SYS_CIDADES VALUES(2903, 'Formosa do Oeste', 18, 4108205); +INSERT INTO SYS_CIDADES VALUES(2904, 'Foz do Iguau', 18, 4108304); +INSERT INTO SYS_CIDADES VALUES(2905, 'Foz do Jordo', 18, 4108452); +INSERT INTO SYS_CIDADES VALUES(2906, 'Francisco Alves', 18, 4108320); +INSERT INTO SYS_CIDADES VALUES(2907, 'Francisco Beltro', 18, 4108403); +INSERT INTO SYS_CIDADES VALUES(2908, 'General Carneiro', 18, 4108502); +INSERT INTO SYS_CIDADES VALUES(2909, 'Godoy Moreira', 18, 4108551); +INSERT INTO SYS_CIDADES VALUES(2910, 'Goioer', 18, 4108601); +INSERT INTO SYS_CIDADES VALUES(2911, 'Goioxim', 18, 4108650); +INSERT INTO SYS_CIDADES VALUES(2912, 'Grandes Rios', 18, 4108700); +INSERT INTO SYS_CIDADES VALUES(2913, 'Guara', 18, 4108809); +INSERT INTO SYS_CIDADES VALUES(2914, 'Guaira', 18, 4108908); +INSERT INTO SYS_CIDADES VALUES(2915, 'Guamiranga', 18, 4108957); +INSERT INTO SYS_CIDADES VALUES(2916, 'Guapirama', 18, 4109005); +INSERT INTO SYS_CIDADES VALUES(2917, 'Guaporema', 18, 4109104); +INSERT INTO SYS_CIDADES VALUES(2918, 'Guaraci', 18, 4109203); +INSERT INTO SYS_CIDADES VALUES(2919, 'Guaraniau', 18, 4109302); +INSERT INTO SYS_CIDADES VALUES(2920, 'Guarapuava', 18, 4109401); +INSERT INTO SYS_CIDADES VALUES(2921, 'Guaraqueaba', 18, 4109500); +INSERT INTO SYS_CIDADES VALUES(2922, 'Guaratuba', 18, 4109609); +INSERT INTO SYS_CIDADES VALUES(2923, 'Honrio Serpa', 18, 4109658); +INSERT INTO SYS_CIDADES VALUES(2924, 'Ibaiti', 18, 4109708); +INSERT INTO SYS_CIDADES VALUES(2925, 'Ibema', 18, 4109757); +INSERT INTO SYS_CIDADES VALUES(2926, 'Ibipor', 18, 4109807); +INSERT INTO SYS_CIDADES VALUES(2927, 'Icarama', 18, 4109906); +INSERT INTO SYS_CIDADES VALUES(2928, 'Iguarau', 18, 4110003); +INSERT INTO SYS_CIDADES VALUES(2929, 'Iguatu', 18, 4110052); +INSERT INTO SYS_CIDADES VALUES(2930, 'Imba', 18, 4110078); +INSERT INTO SYS_CIDADES VALUES(2931, 'Imbituva', 18, 4110102); +INSERT INTO SYS_CIDADES VALUES(2932, 'Incio Martins', 18, 4110201); +INSERT INTO SYS_CIDADES VALUES(2933, 'Inaj', 18, 4110300); +INSERT INTO SYS_CIDADES VALUES(2934, 'Indianpolis', 18, 4110409); +INSERT INTO SYS_CIDADES VALUES(2935, 'Ipiranga', 18, 4110508); +INSERT INTO SYS_CIDADES VALUES(2936, 'Ipor', 18, 4110607); +INSERT INTO SYS_CIDADES VALUES(2937, 'Iracema do Oeste', 18, 4110656); +INSERT INTO SYS_CIDADES VALUES(2938, 'Irati', 18, 4110706); +INSERT INTO SYS_CIDADES VALUES(2939, 'Iretama', 18, 4110805); +INSERT INTO SYS_CIDADES VALUES(2940, 'Itaguaj', 18, 4110904); +INSERT INTO SYS_CIDADES VALUES(2941, 'Itaipulndia', 18, 4110953); +INSERT INTO SYS_CIDADES VALUES(2942, 'Itambarac', 18, 4111001); +INSERT INTO SYS_CIDADES VALUES(2943, 'Itamb', 18, 4111100); +INSERT INTO SYS_CIDADES VALUES(2944, 'Itapejara d`Oeste', 18, 4111209); +INSERT INTO SYS_CIDADES VALUES(2945, 'Itaperuu', 18, 4111258); +INSERT INTO SYS_CIDADES VALUES(2946, 'Itana do Sul', 18, 4111308); +INSERT INTO SYS_CIDADES VALUES(2947, 'Iva', 18, 4111407); +INSERT INTO SYS_CIDADES VALUES(2948, 'Ivaipor', 18, 4111506); +INSERT INTO SYS_CIDADES VALUES(2949, 'Ivat', 18, 4111555); +INSERT INTO SYS_CIDADES VALUES(2950, 'Ivatuba', 18, 4111605); +INSERT INTO SYS_CIDADES VALUES(2951, 'Jaboti', 18, 4111704); +INSERT INTO SYS_CIDADES VALUES(2952, 'Jacarezinho', 18, 4111803); +INSERT INTO SYS_CIDADES VALUES(2953, 'Jaguapit', 18, 4111902); +INSERT INTO SYS_CIDADES VALUES(2954, 'Jaguariava', 18, 4112009); +INSERT INTO SYS_CIDADES VALUES(2955, 'Jandaia do Sul', 18, 4112108); +INSERT INTO SYS_CIDADES VALUES(2956, 'Janipolis', 18, 4112207); +INSERT INTO SYS_CIDADES VALUES(2957, 'Japira', 18, 4112306); +INSERT INTO SYS_CIDADES VALUES(2958, 'Japur', 18, 4112405); +INSERT INTO SYS_CIDADES VALUES(2959, 'Jardim Alegre', 18, 4112504); +INSERT INTO SYS_CIDADES VALUES(2960, 'Jardim Olinda', 18, 4112603); +INSERT INTO SYS_CIDADES VALUES(2961, 'Jataizinho', 18, 4112702); +INSERT INTO SYS_CIDADES VALUES(2962, 'Jesutas', 18, 4112751); +INSERT INTO SYS_CIDADES VALUES(2963, 'Joaquim Tvora', 18, 4112801); +INSERT INTO SYS_CIDADES VALUES(2964, 'Jundia do Sul', 18, 4112900); +INSERT INTO SYS_CIDADES VALUES(2965, 'Juranda', 18, 4112959); +INSERT INTO SYS_CIDADES VALUES(2966, 'Jussara', 18, 4113007); +INSERT INTO SYS_CIDADES VALUES(2967, 'Kalor', 18, 4113106); +INSERT INTO SYS_CIDADES VALUES(2968, 'Lapa', 18, 4113205); +INSERT INTO SYS_CIDADES VALUES(2969, 'Laranjal', 18, 4113254); +INSERT INTO SYS_CIDADES VALUES(2970, 'Laranjeiras do Sul', 18, 4113304); +INSERT INTO SYS_CIDADES VALUES(2971, 'Lepolis', 18, 4113403); +INSERT INTO SYS_CIDADES VALUES(2972, 'Lidianpolis', 18, 4113429); +INSERT INTO SYS_CIDADES VALUES(2973, 'Lindoeste', 18, 4113452); +INSERT INTO SYS_CIDADES VALUES(2974, 'Loanda', 18, 4113502); +INSERT INTO SYS_CIDADES VALUES(2975, 'Lobato', 18, 4113601); +INSERT INTO SYS_CIDADES VALUES(2976, 'Londrina', 18, 4113700); +INSERT INTO SYS_CIDADES VALUES(2977, 'Luiziana', 18, 4113734); +INSERT INTO SYS_CIDADES VALUES(2978, 'Lunardelli', 18, 4113759); +INSERT INTO SYS_CIDADES VALUES(2979, 'Lupionpolis', 18, 4113809); +INSERT INTO SYS_CIDADES VALUES(2980, 'Mallet', 18, 4113908); +INSERT INTO SYS_CIDADES VALUES(2981, 'Mambor', 18, 4114005); +INSERT INTO SYS_CIDADES VALUES(2982, 'Mandaguau', 18, 4114104); +INSERT INTO SYS_CIDADES VALUES(2983, 'Mandaguari', 18, 4114203); +INSERT INTO SYS_CIDADES VALUES(2984, 'Mandirituba', 18, 4114302); +INSERT INTO SYS_CIDADES VALUES(2985, 'Manfrinpolis', 18, 4114351); +INSERT INTO SYS_CIDADES VALUES(2986, 'Mangueirinha', 18, 4114401); +INSERT INTO SYS_CIDADES VALUES(2987, 'Manoel Ribas', 18, 4114500); +INSERT INTO SYS_CIDADES VALUES(2988, 'Marechal Cndido Rondon', 18, 4114609); +INSERT INTO SYS_CIDADES VALUES(2989, 'Maria Helena', 18, 4114708); +INSERT INTO SYS_CIDADES VALUES(2990, 'Marialva', 18, 4114807); +INSERT INTO SYS_CIDADES VALUES(2991, 'Marilndia do Sul', 18, 4114906); +INSERT INTO SYS_CIDADES VALUES(2992, 'Marilena', 18, 4115002); +INSERT INTO SYS_CIDADES VALUES(2993, 'Mariluz', 18, 4115101); +INSERT INTO SYS_CIDADES VALUES(2994, 'Maring', 18, 4115200); +INSERT INTO SYS_CIDADES VALUES(2995, 'Maripolis', 18, 4115309); +INSERT INTO SYS_CIDADES VALUES(2996, 'Marip', 18, 4115358); +INSERT INTO SYS_CIDADES VALUES(2997, 'Marmeleiro', 18, 4115408); +INSERT INTO SYS_CIDADES VALUES(2998, 'Marquinho', 18, 4115457); +INSERT INTO SYS_CIDADES VALUES(2999, 'Marumbi', 18, 4115507); +INSERT INTO SYS_CIDADES VALUES(3000, 'Matelndia', 18, 4115606); +INSERT INTO SYS_CIDADES VALUES(3001, 'Matinhos', 18, 4115705); +INSERT INTO SYS_CIDADES VALUES(3002, 'Mato Rico', 18, 4115739); +INSERT INTO SYS_CIDADES VALUES(3003, 'Mau da Serra', 18, 4115754); +INSERT INTO SYS_CIDADES VALUES(3004, 'Medianeira', 18, 4115804); +INSERT INTO SYS_CIDADES VALUES(3005, 'Mercedes', 18, 4115853); +INSERT INTO SYS_CIDADES VALUES(3006, 'Mirador', 18, 4115903); +INSERT INTO SYS_CIDADES VALUES(3007, 'Miraselva', 18, 4116000); +INSERT INTO SYS_CIDADES VALUES(3008, 'Missal', 18, 4116059); +INSERT INTO SYS_CIDADES VALUES(3009, 'Moreira Sales', 18, 4116109); +INSERT INTO SYS_CIDADES VALUES(3010, 'Morretes', 18, 4116208); +INSERT INTO SYS_CIDADES VALUES(3011, 'Munhoz de Melo', 18, 4116307); +INSERT INTO SYS_CIDADES VALUES(3012, 'Nossa Senhora das Graas', 18, 4116406); +INSERT INTO SYS_CIDADES VALUES(3013, 'Nova Aliana do Iva', 18, 4116505); +INSERT INTO SYS_CIDADES VALUES(3014, 'Nova Amrica da Colina', 18, 4116604); +INSERT INTO SYS_CIDADES VALUES(3015, 'Nova Aurora', 18, 4116703); +INSERT INTO SYS_CIDADES VALUES(3016, 'Nova Cantu', 18, 4116802); +INSERT INTO SYS_CIDADES VALUES(3017, 'Nova Esperana', 18, 4116901); +INSERT INTO SYS_CIDADES VALUES(3018, 'Nova Esperana do Sudoeste', 18, 4116950); +INSERT INTO SYS_CIDADES VALUES(3019, 'Nova Ftima', 18, 4117008); +INSERT INTO SYS_CIDADES VALUES(3020, 'Nova Laranjeiras', 18, 4117057); +INSERT INTO SYS_CIDADES VALUES(3021, 'Nova Londrina', 18, 4117107); +INSERT INTO SYS_CIDADES VALUES(3022, 'Nova Olmpia', 18, 4117206); +INSERT INTO SYS_CIDADES VALUES(3023, 'Nova Prata do Iguau', 18, 4117255); +INSERT INTO SYS_CIDADES VALUES(3024, 'Nova Santa Brbara', 18, 4117214); +INSERT INTO SYS_CIDADES VALUES(3025, 'Nova Santa Rosa', 18, 4117222); +INSERT INTO SYS_CIDADES VALUES(3026, 'Nova Tebas', 18, 4117271); +INSERT INTO SYS_CIDADES VALUES(3027, 'Novo Itacolomi', 18, 4117297); +INSERT INTO SYS_CIDADES VALUES(3028, 'Ortigueira', 18, 4117305); +INSERT INTO SYS_CIDADES VALUES(3029, 'Ourizona', 18, 4117404); +INSERT INTO SYS_CIDADES VALUES(3030, 'Ouro Verde do Oeste', 18, 4117453); +INSERT INTO SYS_CIDADES VALUES(3031, 'Paiandu', 18, 4117503); +INSERT INTO SYS_CIDADES VALUES(3032, 'Palmas', 18, 4117602); +INSERT INTO SYS_CIDADES VALUES(3033, 'Palmeira', 18, 4117701); +INSERT INTO SYS_CIDADES VALUES(3034, 'Palmital', 18, 4117800); +INSERT INTO SYS_CIDADES VALUES(3035, 'Palotina', 18, 4117909); +INSERT INTO SYS_CIDADES VALUES(3036, 'Paraso do Norte', 18, 4118006); +INSERT INTO SYS_CIDADES VALUES(3037, 'Paranacity', 18, 4118105); +INSERT INTO SYS_CIDADES VALUES(3038, 'Paranagu', 18, 4118204); +INSERT INTO SYS_CIDADES VALUES(3039, 'Paranapoema', 18, 4118303); +INSERT INTO SYS_CIDADES VALUES(3040, 'Paranava', 18, 4118402); +INSERT INTO SYS_CIDADES VALUES(3041, 'Pato Bragado', 18, 4118451); +INSERT INTO SYS_CIDADES VALUES(3042, 'Pato Branco', 18, 4118501); +INSERT INTO SYS_CIDADES VALUES(3043, 'Paula Freitas', 18, 4118600); +INSERT INTO SYS_CIDADES VALUES(3044, 'Paulo Frontin', 18, 4118709); +INSERT INTO SYS_CIDADES VALUES(3045, 'Peabiru', 18, 4118808); +INSERT INTO SYS_CIDADES VALUES(3046, 'Perobal', 18, 4118857); +INSERT INTO SYS_CIDADES VALUES(3047, 'Prola', 18, 4118907); +INSERT INTO SYS_CIDADES VALUES(3048, 'Prola d`Oeste', 18, 4119004); +INSERT INTO SYS_CIDADES VALUES(3049, 'Pin', 18, 4119103); +INSERT INTO SYS_CIDADES VALUES(3050, 'Pinhais', 18, 4119152); +INSERT INTO SYS_CIDADES VALUES(3051, 'Pinhal de So Bento', 18, 4119251); +INSERT INTO SYS_CIDADES VALUES(3052, 'Pinhalo', 18, 4119202); +INSERT INTO SYS_CIDADES VALUES(3053, 'Pinho', 18, 4119301); +INSERT INTO SYS_CIDADES VALUES(3054, 'Pira do Sul', 18, 4119400); +INSERT INTO SYS_CIDADES VALUES(3055, 'Piraquara', 18, 4119509); +INSERT INTO SYS_CIDADES VALUES(3056, 'Pitanga', 18, 4119608); +INSERT INTO SYS_CIDADES VALUES(3057, 'Pitangueiras', 18, 4119657); +INSERT INTO SYS_CIDADES VALUES(3058, 'Planaltina do Paran', 18, 4119707); +INSERT INTO SYS_CIDADES VALUES(3059, 'Planalto', 18, 4119806); +INSERT INTO SYS_CIDADES VALUES(3060, 'Ponta Grossa', 18, 4119905); +INSERT INTO SYS_CIDADES VALUES(3061, 'Pontal do Paran', 18, 4119954); +INSERT INTO SYS_CIDADES VALUES(3062, 'Porecatu', 18, 4120002); +INSERT INTO SYS_CIDADES VALUES(3063, 'Porto Amazonas', 18, 4120101); +INSERT INTO SYS_CIDADES VALUES(3064, 'Porto Barreiro', 18, 4120150); +INSERT INTO SYS_CIDADES VALUES(3065, 'Porto Rico', 18, 4120200); +INSERT INTO SYS_CIDADES VALUES(3066, 'Porto Vitria', 18, 4120309); +INSERT INTO SYS_CIDADES VALUES(3067, 'Prado Ferreira', 18, 4120333); +INSERT INTO SYS_CIDADES VALUES(3068, 'Pranchita', 18, 4120358); +INSERT INTO SYS_CIDADES VALUES(3069, 'Presidente Castelo Branco', 18, 4120408); +INSERT INTO SYS_CIDADES VALUES(3070, 'Primeiro de Maio', 18, 4120507); +INSERT INTO SYS_CIDADES VALUES(3071, 'Prudentpolis', 18, 4120606); +INSERT INTO SYS_CIDADES VALUES(3072, 'Quarto Centenrio', 18, 4120655); +INSERT INTO SYS_CIDADES VALUES(3073, 'Quatigu', 18, 4120705); +INSERT INTO SYS_CIDADES VALUES(3074, 'Quatro Barras', 18, 4120804); +INSERT INTO SYS_CIDADES VALUES(3075, 'Quatro Pontes', 18, 4120853); +INSERT INTO SYS_CIDADES VALUES(3076, 'Quedas do Iguau', 18, 4120903); +INSERT INTO SYS_CIDADES VALUES(3077, 'Querncia do Norte', 18, 4121000); +INSERT INTO SYS_CIDADES VALUES(3078, 'Quinta do Sol', 18, 4121109); +INSERT INTO SYS_CIDADES VALUES(3079, 'Quitandinha', 18, 4121208); +INSERT INTO SYS_CIDADES VALUES(3080, 'Ramilndia', 18, 4121257); +INSERT INTO SYS_CIDADES VALUES(3081, 'Rancho Alegre', 18, 4121307); +INSERT INTO SYS_CIDADES VALUES(3082, 'Rancho Alegre d`Oeste', 18, 4121356); +INSERT INTO SYS_CIDADES VALUES(3083, 'Realeza', 18, 4121406); +INSERT INTO SYS_CIDADES VALUES(3084, 'Rebouas', 18, 4121505); +INSERT INTO SYS_CIDADES VALUES(3085, 'Renascena', 18, 4121604); +INSERT INTO SYS_CIDADES VALUES(3086, 'Reserva', 18, 4121703); +INSERT INTO SYS_CIDADES VALUES(3087, 'Reserva do Iguau', 18, 4121752); +INSERT INTO SYS_CIDADES VALUES(3088, 'Ribeiro Claro', 18, 4121802); +INSERT INTO SYS_CIDADES VALUES(3089, 'Ribeiro do Pinhal', 18, 4121901); +INSERT INTO SYS_CIDADES VALUES(3090, 'Rio Azul', 18, 4122008); +INSERT INTO SYS_CIDADES VALUES(3091, 'Rio Bom', 18, 4122107); +INSERT INTO SYS_CIDADES VALUES(3092, 'Rio Bonito do Iguau', 18, 4122156); +INSERT INTO SYS_CIDADES VALUES(3093, 'Rio Branco do Iva', 18, 4122172); +INSERT INTO SYS_CIDADES VALUES(3094, 'Rio Branco do Sul', 18, 4122206); +INSERT INTO SYS_CIDADES VALUES(3095, 'Rio Negro', 18, 4122305); +INSERT INTO SYS_CIDADES VALUES(3096, 'Rolndia', 18, 4122404); +INSERT INTO SYS_CIDADES VALUES(3097, 'Roncador', 18, 4122503); +INSERT INTO SYS_CIDADES VALUES(3098, 'Rondon', 18, 4122602); +INSERT INTO SYS_CIDADES VALUES(3099, 'Rosrio do Iva', 18, 4122651); +INSERT INTO SYS_CIDADES VALUES(3100, 'Sabudia', 18, 4122701); +INSERT INTO SYS_CIDADES VALUES(3101, 'Salgado Filho', 18, 4122800); +INSERT INTO SYS_CIDADES VALUES(3102, 'Salto do Itarar', 18, 4122909); +INSERT INTO SYS_CIDADES VALUES(3103, 'Salto do Lontra', 18, 4123006); +INSERT INTO SYS_CIDADES VALUES(3104, 'Santa Amlia', 18, 4123105); +INSERT INTO SYS_CIDADES VALUES(3105, 'Santa Ceclia do Pavo', 18, 4123204); +INSERT INTO SYS_CIDADES VALUES(3106, 'Santa Cruz de Monte Castelo', 18, 4123303); +INSERT INTO SYS_CIDADES VALUES(3107, 'Santa F', 18, 4123402); +INSERT INTO SYS_CIDADES VALUES(3108, 'Santa Helena', 18, 4123501); +INSERT INTO SYS_CIDADES VALUES(3109, 'Santa Ins', 18, 4123600); +INSERT INTO SYS_CIDADES VALUES(3110, 'Santa Isabel do Iva', 18, 4123709); +INSERT INTO SYS_CIDADES VALUES(3111, 'Santa Izabel do Oeste', 18, 4123808); +INSERT INTO SYS_CIDADES VALUES(3112, 'Santa Lcia', 18, 4123824); +INSERT INTO SYS_CIDADES VALUES(3113, 'Santa Maria do Oeste', 18, 4123857); +INSERT INTO SYS_CIDADES VALUES(3114, 'Santa Mariana', 18, 4123907); +INSERT INTO SYS_CIDADES VALUES(3115, 'Santa Mnica', 18, 4123956); +INSERT INTO SYS_CIDADES VALUES(3116, 'Santa Tereza do Oeste', 18, 4124020); +INSERT INTO SYS_CIDADES VALUES(3117, 'Santa Terezinha de Itaipu', 18, 4124053); +INSERT INTO SYS_CIDADES VALUES(3118, 'Santana do Itarar', 18, 4124004); +INSERT INTO SYS_CIDADES VALUES(3119, 'Santo Antnio da Platina', 18, 4124103); +INSERT INTO SYS_CIDADES VALUES(3120, 'Santo Antnio do Caiu', 18, 4124202); +INSERT INTO SYS_CIDADES VALUES(3121, 'Santo Antnio do Paraso', 18, 4124301); +INSERT INTO SYS_CIDADES VALUES(3122, 'Santo Antnio do Sudoeste', 18, 4124400); +INSERT INTO SYS_CIDADES VALUES(3123, 'Santo Incio', 18, 4124509); +INSERT INTO SYS_CIDADES VALUES(3124, 'So Carlos do Iva', 18, 4124608); +INSERT INTO SYS_CIDADES VALUES(3125, 'So Jernimo da Serra', 18, 4124707); +INSERT INTO SYS_CIDADES VALUES(3126, 'So Joo', 18, 4124806); +INSERT INTO SYS_CIDADES VALUES(3127, 'So Joo do Caiu', 18, 4124905); +INSERT INTO SYS_CIDADES VALUES(3128, 'So Joo do Iva', 18, 4125001); +INSERT INTO SYS_CIDADES VALUES(3129, 'So Joo do Triunfo', 18, 4125100); +INSERT INTO SYS_CIDADES VALUES(3130, 'So Jorge d`Oeste', 18, 4125209); +INSERT INTO SYS_CIDADES VALUES(3131, 'So Jorge do Iva', 18, 4125308); +INSERT INTO SYS_CIDADES VALUES(3132, 'So Jorge do Patrocnio', 18, 4125357); +INSERT INTO SYS_CIDADES VALUES(3133, 'So Jos da Boa Vista', 18, 4125407); +INSERT INTO SYS_CIDADES VALUES(3134, 'So Jos das Palmeiras', 18, 4125456); +INSERT INTO SYS_CIDADES VALUES(3135, 'So Jos dos Pinhais', 18, 4125506); +INSERT INTO SYS_CIDADES VALUES(3136, 'So Manoel do Paran', 18, 4125555); +INSERT INTO SYS_CIDADES VALUES(3137, 'So Mateus do Sul', 18, 4125605); +INSERT INTO SYS_CIDADES VALUES(3138, 'So Miguel do Iguau', 18, 4125704); +INSERT INTO SYS_CIDADES VALUES(3139, 'So Pedro do Iguau', 18, 4125753); +INSERT INTO SYS_CIDADES VALUES(3140, 'So Pedro do Iva', 18, 4125803); +INSERT INTO SYS_CIDADES VALUES(3141, 'So Pedro do Paran', 18, 4125902); +INSERT INTO SYS_CIDADES VALUES(3142, 'So Sebastio da Amoreira', 18, 4126009); +INSERT INTO SYS_CIDADES VALUES(3143, 'So Tom', 18, 4126108); +INSERT INTO SYS_CIDADES VALUES(3144, 'Sapopema', 18, 4126207); +INSERT INTO SYS_CIDADES VALUES(3145, 'Sarandi', 18, 4126256); +INSERT INTO SYS_CIDADES VALUES(3146, 'Saudade do Iguau', 18, 4126272); +INSERT INTO SYS_CIDADES VALUES(3147, 'Sengs', 18, 4126306); +INSERT INTO SYS_CIDADES VALUES(3148, 'Serranpolis do Iguau', 18, 4126355); +INSERT INTO SYS_CIDADES VALUES(3149, 'Sertaneja', 18, 4126405); +INSERT INTO SYS_CIDADES VALUES(3150, 'Sertanpolis', 18, 4126504); +INSERT INTO SYS_CIDADES VALUES(3151, 'Siqueira Campos', 18, 4126603); +INSERT INTO SYS_CIDADES VALUES(3152, 'Sulina', 18, 4126652); +INSERT INTO SYS_CIDADES VALUES(3153, 'Tamarana', 18, 4126678); +INSERT INTO SYS_CIDADES VALUES(3154, 'Tamboara', 18, 4126702); +INSERT INTO SYS_CIDADES VALUES(3155, 'Tapejara', 18, 4126801); +INSERT INTO SYS_CIDADES VALUES(3156, 'Tapira', 18, 4126900); +INSERT INTO SYS_CIDADES VALUES(3157, 'Teixeira Soares', 18, 4127007); +INSERT INTO SYS_CIDADES VALUES(3158, 'Telmaco Borba', 18, 4127106); +INSERT INTO SYS_CIDADES VALUES(3159, 'Terra Boa', 18, 4127205); +INSERT INTO SYS_CIDADES VALUES(3160, 'Terra Rica', 18, 4127304); +INSERT INTO SYS_CIDADES VALUES(3161, 'Terra Roxa', 18, 4127403); +INSERT INTO SYS_CIDADES VALUES(3162, 'Tibagi', 18, 4127502); +INSERT INTO SYS_CIDADES VALUES(3163, 'Tijucas do Sul', 18, 4127601); +INSERT INTO SYS_CIDADES VALUES(3164, 'Toledo', 18, 4127700); +INSERT INTO SYS_CIDADES VALUES(3165, 'Tomazina', 18, 4127809); +INSERT INTO SYS_CIDADES VALUES(3166, 'Trs Barras do Paran', 18, 4127858); +INSERT INTO SYS_CIDADES VALUES(3167, 'Tunas do Paran', 18, 4127882); +INSERT INTO SYS_CIDADES VALUES(3168, 'Tuneiras do Oeste', 18, 4127908); +INSERT INTO SYS_CIDADES VALUES(3169, 'Tupssi', 18, 4127957); +INSERT INTO SYS_CIDADES VALUES(3170, 'Turvo', 18, 4127965); +INSERT INTO SYS_CIDADES VALUES(3171, 'Ubirat', 18, 4128005); +INSERT INTO SYS_CIDADES VALUES(3172, 'Umuarama', 18, 4128104); +INSERT INTO SYS_CIDADES VALUES(3173, 'Unio da Vitria', 18, 4128203); +INSERT INTO SYS_CIDADES VALUES(3174, 'Uniflor', 18, 4128302); +INSERT INTO SYS_CIDADES VALUES(3175, 'Ura', 18, 4128401); +INSERT INTO SYS_CIDADES VALUES(3176, 'Ventania', 18, 4128534); +INSERT INTO SYS_CIDADES VALUES(3177, 'Vera Cruz do Oeste', 18, 4128559); +INSERT INTO SYS_CIDADES VALUES(3178, 'Ver', 18, 4128609); +INSERT INTO SYS_CIDADES VALUES(3179, 'Virmond', 18, 4128658); +INSERT INTO SYS_CIDADES VALUES(3180, 'Vitorino', 18, 4128708); +INSERT INTO SYS_CIDADES VALUES(3181, 'Wenceslau Braz', 18, 4128500); +INSERT INTO SYS_CIDADES VALUES(3182, 'Xambr', 18, 4128807); +INSERT INTO SYS_CIDADES VALUES(3183, 'Abreu e Lima', 16, 2600054); +INSERT INTO SYS_CIDADES VALUES(3184, 'Afogados da Ingazeira', 16, 2600104); +INSERT INTO SYS_CIDADES VALUES(3185, 'Afrnio', 16, 2600203); +INSERT INTO SYS_CIDADES VALUES(3186, 'Agrestina', 16, 2600302); +INSERT INTO SYS_CIDADES VALUES(3187, 'gua Preta', 16, 2600401); +INSERT INTO SYS_CIDADES VALUES(3188, 'guas Belas', 16, 2600500); +INSERT INTO SYS_CIDADES VALUES(3189, 'Alagoinha', 16, 2600609); +INSERT INTO SYS_CIDADES VALUES(3190, 'Aliana', 16, 2600708); +INSERT INTO SYS_CIDADES VALUES(3191, 'Altinho', 16, 2600807); +INSERT INTO SYS_CIDADES VALUES(3192, 'Amaraji', 16, 2600906); +INSERT INTO SYS_CIDADES VALUES(3193, 'Angelim', 16, 2601003); +INSERT INTO SYS_CIDADES VALUES(3194, 'Araoiaba', 16, 2601052); +INSERT INTO SYS_CIDADES VALUES(3195, 'Araripina', 16, 2601102); +INSERT INTO SYS_CIDADES VALUES(3196, 'Arcoverde', 16, 2601201); +INSERT INTO SYS_CIDADES VALUES(3197, 'Barra de Guabiraba', 16, 2601300); +INSERT INTO SYS_CIDADES VALUES(3198, 'Barreiros', 16, 2601409); +INSERT INTO SYS_CIDADES VALUES(3199, 'Belm de Maria', 16, 2601508); +INSERT INTO SYS_CIDADES VALUES(3200, 'Belm de So Francisco', 16, 2601607); +INSERT INTO SYS_CIDADES VALUES(3201, 'Belo Jardim', 16, 2601706); +INSERT INTO SYS_CIDADES VALUES(3202, 'Betnia', 16, 2601805); +INSERT INTO SYS_CIDADES VALUES(3203, 'Bezerros', 16, 2601904); +INSERT INTO SYS_CIDADES VALUES(3204, 'Bodoc', 16, 2602001); +INSERT INTO SYS_CIDADES VALUES(3205, 'Bom Conselho', 16, 2602100); +INSERT INTO SYS_CIDADES VALUES(3206, 'Bom Jardim', 16, 2602209); +INSERT INTO SYS_CIDADES VALUES(3207, 'Bonito', 16, 2602308); +INSERT INTO SYS_CIDADES VALUES(3208, 'Brejo', 16, 2602407); +INSERT INTO SYS_CIDADES VALUES(3209, 'Brejinho', 16, 2602506); +INSERT INTO SYS_CIDADES VALUES(3210, 'Brejo da Madre de Deus', 16, 2602605); +INSERT INTO SYS_CIDADES VALUES(3211, 'Buenos Aires', 16, 2602704); +INSERT INTO SYS_CIDADES VALUES(3212, 'Buque', 16, 2602803); +INSERT INTO SYS_CIDADES VALUES(3213, 'Cabo de Santo Agostinho', 16, 2602902); +INSERT INTO SYS_CIDADES VALUES(3214, 'Cabrob', 16, 2603009); +INSERT INTO SYS_CIDADES VALUES(3215, 'Cachoeirinha', 16, 2603108); +INSERT INTO SYS_CIDADES VALUES(3216, 'Caets', 16, 2603207); +INSERT INTO SYS_CIDADES VALUES(3217, 'Calado', 16, 2603306); +INSERT INTO SYS_CIDADES VALUES(3218, 'Calumbi', 16, 2603405); +INSERT INTO SYS_CIDADES VALUES(3219, 'Camaragibe', 16, 2603454); +INSERT INTO SYS_CIDADES VALUES(3220, 'Camocim de So Flix', 16, 2603504); +INSERT INTO SYS_CIDADES VALUES(3221, 'Camutanga', 16, 2603603); +INSERT INTO SYS_CIDADES VALUES(3222, 'Canhotinho', 16, 2603702); +INSERT INTO SYS_CIDADES VALUES(3223, 'Capoeiras', 16, 2603801); +INSERT INTO SYS_CIDADES VALUES(3224, 'Carnaba', 16, 2603900); +INSERT INTO SYS_CIDADES VALUES(3225, 'Carnaubeira da Penha', 16, 2603926); +INSERT INTO SYS_CIDADES VALUES(3226, 'Carpina', 16, 2604007); +INSERT INTO SYS_CIDADES VALUES(3227, 'Caruaru', 16, 2604106); +INSERT INTO SYS_CIDADES VALUES(3228, 'Casinhas', 16, 2604155); +INSERT INTO SYS_CIDADES VALUES(3229, 'Catende', 16, 2604205); +INSERT INTO SYS_CIDADES VALUES(3230, 'Cedro', 16, 2604304); +INSERT INTO SYS_CIDADES VALUES(3231, 'Ch de Alegria', 16, 2604403); +INSERT INTO SYS_CIDADES VALUES(3232, 'Ch Grande', 16, 2604502); +INSERT INTO SYS_CIDADES VALUES(3233, 'Condado', 16, 2604601); +INSERT INTO SYS_CIDADES VALUES(3234, 'Correntes', 16, 2604700); +INSERT INTO SYS_CIDADES VALUES(3235, 'Corts', 16, 2604809); +INSERT INTO SYS_CIDADES VALUES(3236, 'Cumaru', 16, 2604908); +INSERT INTO SYS_CIDADES VALUES(3237, 'Cupira', 16, 2605004); +INSERT INTO SYS_CIDADES VALUES(3238, 'Custdia', 16, 2605103); +INSERT INTO SYS_CIDADES VALUES(3239, 'Dormentes', 16, 2605152); +INSERT INTO SYS_CIDADES VALUES(3240, 'Escada', 16, 2605202); +INSERT INTO SYS_CIDADES VALUES(3241, 'Exu', 16, 2605301); +INSERT INTO SYS_CIDADES VALUES(3242, 'Feira Nova', 16, 2605400); +INSERT INTO SYS_CIDADES VALUES(3243, 'Fernando de Noronha', 16, 2605459); +INSERT INTO SYS_CIDADES VALUES(3244, 'Ferreiros', 16, 2605509); +INSERT INTO SYS_CIDADES VALUES(3245, 'Flores', 16, 2605608); +INSERT INTO SYS_CIDADES VALUES(3246, 'Floresta', 16, 2605707); +INSERT INTO SYS_CIDADES VALUES(3247, 'Frei Miguelinho', 16, 2605806); +INSERT INTO SYS_CIDADES VALUES(3248, 'Gameleira', 16, 2605905); +INSERT INTO SYS_CIDADES VALUES(3249, 'Garanhuns', 16, 2606002); +INSERT INTO SYS_CIDADES VALUES(3250, 'Glria do Goit', 16, 2606101); +INSERT INTO SYS_CIDADES VALUES(3251, 'Goiana', 16, 2606200); +INSERT INTO SYS_CIDADES VALUES(3252, 'Granito', 16, 2606309); +INSERT INTO SYS_CIDADES VALUES(3253, 'Gravat', 16, 2606408); +INSERT INTO SYS_CIDADES VALUES(3254, 'Iati', 16, 2606507); +INSERT INTO SYS_CIDADES VALUES(3255, 'Ibimirim', 16, 2606606); +INSERT INTO SYS_CIDADES VALUES(3256, 'Ibirajuba', 16, 2606705); +INSERT INTO SYS_CIDADES VALUES(3257, 'Igarassu', 16, 2606804); +INSERT INTO SYS_CIDADES VALUES(3258, 'Iguaraci', 16, 2606903); +INSERT INTO SYS_CIDADES VALUES(3259, 'Ilha de Itamarac', 16, 2607604); +INSERT INTO SYS_CIDADES VALUES(3260, 'Inaj', 16, 2607000); +INSERT INTO SYS_CIDADES VALUES(3261, 'Ingazeira', 16, 2607109); +INSERT INTO SYS_CIDADES VALUES(3262, 'Ipojuca', 16, 2607208); +INSERT INTO SYS_CIDADES VALUES(3263, 'Ipubi', 16, 2607307); +INSERT INTO SYS_CIDADES VALUES(3264, 'Itacuruba', 16, 2607406); +INSERT INTO SYS_CIDADES VALUES(3265, 'Itaba', 16, 2607505); +INSERT INTO SYS_CIDADES VALUES(3266, 'Itamb', 16, 2607653); +INSERT INTO SYS_CIDADES VALUES(3267, 'Itapetim', 16, 2607703); +INSERT INTO SYS_CIDADES VALUES(3268, 'Itapissuma', 16, 2607752); +INSERT INTO SYS_CIDADES VALUES(3269, 'Itaquitinga', 16, 2607802); +INSERT INTO SYS_CIDADES VALUES(3270, 'Jaboato dos Guararapes', 16, 2607901); +INSERT INTO SYS_CIDADES VALUES(3271, 'Jaqueira', 16, 2607950); +INSERT INTO SYS_CIDADES VALUES(3272, 'Jataba', 16, 2608008); +INSERT INTO SYS_CIDADES VALUES(3273, 'Jatob', 16, 2608057); +INSERT INTO SYS_CIDADES VALUES(3274, 'Joo Alfredo', 16, 2608107); +INSERT INTO SYS_CIDADES VALUES(3275, 'Joaquim Nabuco', 16, 2608206); +INSERT INTO SYS_CIDADES VALUES(3276, 'Jucati', 16, 2608255); +INSERT INTO SYS_CIDADES VALUES(3277, 'Jupi', 16, 2608305); +INSERT INTO SYS_CIDADES VALUES(3278, 'Jurema', 16, 2608404); +INSERT INTO SYS_CIDADES VALUES(3279, 'Lagoa do Carro', 16, 2608453); +INSERT INTO SYS_CIDADES VALUES(3280, 'Lagoa do Itaenga', 16, 2608503); +INSERT INTO SYS_CIDADES VALUES(3281, 'Lagoa do Ouro', 16, 2608602); +INSERT INTO SYS_CIDADES VALUES(3282, 'Lagoa dos Gatos', 16, 2608701); +INSERT INTO SYS_CIDADES VALUES(3283, 'Lagoa Grande', 16, 2608750); +INSERT INTO SYS_CIDADES VALUES(3284, 'Lajedo', 16, 2608800); +INSERT INTO SYS_CIDADES VALUES(3285, 'Limoeiro', 16, 2608909); +INSERT INTO SYS_CIDADES VALUES(3286, 'Macaparana', 16, 2609006); +INSERT INTO SYS_CIDADES VALUES(3287, 'Machados', 16, 2609105); +INSERT INTO SYS_CIDADES VALUES(3288, 'Manari', 16, 2609154); +INSERT INTO SYS_CIDADES VALUES(3289, 'Maraial', 16, 2609204); +INSERT INTO SYS_CIDADES VALUES(3290, 'Mirandiba', 16, 2609303); +INSERT INTO SYS_CIDADES VALUES(3291, 'Moreilndia', 16, 2614303); +INSERT INTO SYS_CIDADES VALUES(3292, 'Moreno', 16, 2609402); +INSERT INTO SYS_CIDADES VALUES(3293, 'Nazar da Mata', 16, 2609501); +INSERT INTO SYS_CIDADES VALUES(3294, 'Olinda', 16, 2609600); +INSERT INTO SYS_CIDADES VALUES(3295, 'Orob', 16, 2609709); +INSERT INTO SYS_CIDADES VALUES(3296, 'Oroc', 16, 2609808); +INSERT INTO SYS_CIDADES VALUES(3297, 'Ouricuri', 16, 2609907); +INSERT INTO SYS_CIDADES VALUES(3298, 'Palmares', 16, 2610004); +INSERT INTO SYS_CIDADES VALUES(3299, 'Palmeirina', 16, 2610103); +INSERT INTO SYS_CIDADES VALUES(3300, 'Panelas', 16, 2610202); +INSERT INTO SYS_CIDADES VALUES(3301, 'Paranatama', 16, 2610301); +INSERT INTO SYS_CIDADES VALUES(3302, 'Parnamirim', 16, 2610400); +INSERT INTO SYS_CIDADES VALUES(3303, 'Passira', 16, 2610509); +INSERT INTO SYS_CIDADES VALUES(3304, 'Paudalho', 16, 2610608); +INSERT INTO SYS_CIDADES VALUES(3305, 'Paulista', 16, 2610707); +INSERT INTO SYS_CIDADES VALUES(3306, 'Pedra', 16, 2610806); +INSERT INTO SYS_CIDADES VALUES(3307, 'Pesqueira', 16, 2610905); +INSERT INTO SYS_CIDADES VALUES(3308, 'Petrolndia', 16, 2611002); +INSERT INTO SYS_CIDADES VALUES(3309, 'Petrolina', 16, 2611101); +INSERT INTO SYS_CIDADES VALUES(3310, 'Poo', 16, 2611200); +INSERT INTO SYS_CIDADES VALUES(3311, 'Pombos', 16, 2611309); +INSERT INTO SYS_CIDADES VALUES(3312, 'Primavera', 16, 2611408); +INSERT INTO SYS_CIDADES VALUES(3313, 'Quipap', 16, 2611507); +INSERT INTO SYS_CIDADES VALUES(3314, 'Quixaba', 16, 2611533); +INSERT INTO SYS_CIDADES VALUES(3315, 'Recife', 16, 2611606); +INSERT INTO SYS_CIDADES VALUES(3316, 'Riacho das Almas', 16, 2611705); +INSERT INTO SYS_CIDADES VALUES(3317, 'Ribeiro', 16, 2611804); +INSERT INTO SYS_CIDADES VALUES(3318, 'Rio Formoso', 16, 2611903); +INSERT INTO SYS_CIDADES VALUES(3319, 'Sair', 16, 2612000); +INSERT INTO SYS_CIDADES VALUES(3320, 'Salgadinho', 16, 2612109); +INSERT INTO SYS_CIDADES VALUES(3321, 'Salgueiro', 16, 2612208); +INSERT INTO SYS_CIDADES VALUES(3322, 'Salo', 16, 2612307); +INSERT INTO SYS_CIDADES VALUES(3323, 'Sanhar', 16, 2612406); +INSERT INTO SYS_CIDADES VALUES(3324, 'Santa Cruz', 16, 2612455); +INSERT INTO SYS_CIDADES VALUES(3325, 'Santa Cruz da Baixa Verde', 16, 2612471); +INSERT INTO SYS_CIDADES VALUES(3326, 'Santa Cruz do Capibaribe', 16, 2612505); +INSERT INTO SYS_CIDADES VALUES(3327, 'Santa Filomena', 16, 2612554); +INSERT INTO SYS_CIDADES VALUES(3328, 'Santa Maria da Boa Vista', 16, 2612604); +INSERT INTO SYS_CIDADES VALUES(3329, 'Santa Maria do Cambuc', 16, 2612703); +INSERT INTO SYS_CIDADES VALUES(3330, 'Santa Terezinha', 16, 2612802); +INSERT INTO SYS_CIDADES VALUES(3331, 'So Benedito do Sul', 16, 2612901); +INSERT INTO SYS_CIDADES VALUES(3332, 'So Bento do Una', 16, 2613008); +INSERT INTO SYS_CIDADES VALUES(3333, 'So Caitano', 16, 2613107); +INSERT INTO SYS_CIDADES VALUES(3334, 'So Joo', 16, 2613206); +INSERT INTO SYS_CIDADES VALUES(3335, 'So Joaquim do Monte', 16, 2613305); +INSERT INTO SYS_CIDADES VALUES(3336, 'So Jos da Coroa Grande', 16, 2613404); +INSERT INTO SYS_CIDADES VALUES(3337, 'So Jos do Belmonte', 16, 2613503); +INSERT INTO SYS_CIDADES VALUES(3338, 'So Jos do Egito', 16, 2613602); +INSERT INTO SYS_CIDADES VALUES(3339, 'So Loureno da Mata', 16, 2613701); +INSERT INTO SYS_CIDADES VALUES(3340, 'So Vicente Ferrer', 16, 2613800); +INSERT INTO SYS_CIDADES VALUES(3341, 'Serra Talhada', 16, 2613909); +INSERT INTO SYS_CIDADES VALUES(3342, 'Serrita', 16, 2614006); +INSERT INTO SYS_CIDADES VALUES(3343, 'Sertnia', 16, 2614105); +INSERT INTO SYS_CIDADES VALUES(3344, 'Sirinham', 16, 2614204); +INSERT INTO SYS_CIDADES VALUES(3345, 'Solido', 16, 2614402); +INSERT INTO SYS_CIDADES VALUES(3346, 'Surubim', 16, 2614501); +INSERT INTO SYS_CIDADES VALUES(3347, 'Tabira', 16, 2614600); +INSERT INTO SYS_CIDADES VALUES(3348, 'Tacaimb', 16, 2614709); +INSERT INTO SYS_CIDADES VALUES(3349, 'Tacaratu', 16, 2614808); +INSERT INTO SYS_CIDADES VALUES(3350, 'Tamandar', 16, 2614857); +INSERT INTO SYS_CIDADES VALUES(3351, 'Taquaritinga do Norte', 16, 2615003); +INSERT INTO SYS_CIDADES VALUES(3352, 'Terezinha', 16, 2615102); +INSERT INTO SYS_CIDADES VALUES(3353, 'Terra Nova', 16, 2615201); +INSERT INTO SYS_CIDADES VALUES(3354, 'Timbaba', 16, 2615300); +INSERT INTO SYS_CIDADES VALUES(3355, 'Toritama', 16, 2615409); +INSERT INTO SYS_CIDADES VALUES(3356, 'Tracunham', 16, 2615508); +INSERT INTO SYS_CIDADES VALUES(3357, 'Trindade', 16, 2615607); +INSERT INTO SYS_CIDADES VALUES(3358, 'Triunfo', 16, 2615706); +INSERT INTO SYS_CIDADES VALUES(3359, 'Tupanatinga', 16, 2615805); +INSERT INTO SYS_CIDADES VALUES(3360, 'Tuparetama', 16, 2615904); +INSERT INTO SYS_CIDADES VALUES(3361, 'Venturosa', 16, 2616001); +INSERT INTO SYS_CIDADES VALUES(3362, 'Verdejante', 16, 2616100); +INSERT INTO SYS_CIDADES VALUES(3363, 'Vertente do Lrio', 16, 2616183); +INSERT INTO SYS_CIDADES VALUES(3364, 'Vertentes', 16, 2616209); +INSERT INTO SYS_CIDADES VALUES(3365, 'Vicncia', 16, 2616308); +INSERT INTO SYS_CIDADES VALUES(3366, 'Vitria de Santo Anto', 16, 2616407); +INSERT INTO SYS_CIDADES VALUES(3367, 'Xexu', 16, 2616506); +INSERT INTO SYS_CIDADES VALUES(3368, 'Acau', 17, 2200053); +INSERT INTO SYS_CIDADES VALUES(3369, 'Agricolndia', 17, 2200103); +INSERT INTO SYS_CIDADES VALUES(3370, 'gua Branca', 17, 2200202); +INSERT INTO SYS_CIDADES VALUES(3371, 'Alagoinha do Piau', 17, 2200251); +INSERT INTO SYS_CIDADES VALUES(3372, 'Alegrete do Piau', 17, 2200277); +INSERT INTO SYS_CIDADES VALUES(3373, 'Alto Long', 17, 2200301); +INSERT INTO SYS_CIDADES VALUES(3374, 'Altos', 17, 2200400); +INSERT INTO SYS_CIDADES VALUES(3375, 'Alvorada do Gurguia', 17, 2200459); +INSERT INTO SYS_CIDADES VALUES(3376, 'Amarante', 17, 2200509); +INSERT INTO SYS_CIDADES VALUES(3377, 'Angical do Piau', 17, 2200608); +INSERT INTO SYS_CIDADES VALUES(3378, 'Ansio de Abreu', 17, 2200707); +INSERT INTO SYS_CIDADES VALUES(3379, 'Antnio Almeida', 17, 2200806); +INSERT INTO SYS_CIDADES VALUES(3380, 'Aroazes', 17, 2200905); +INSERT INTO SYS_CIDADES VALUES(3381, 'Aroeiras do Itaim', 17, 2200954); +INSERT INTO SYS_CIDADES VALUES(3382, 'Arraial', 17, 2201002); +INSERT INTO SYS_CIDADES VALUES(3383, 'Assuno do Piau', 17, 2201051); +INSERT INTO SYS_CIDADES VALUES(3384, 'Avelino Lopes', 17, 2201101); +INSERT INTO SYS_CIDADES VALUES(3385, 'Baixa Grande do Ribeiro', 17, 2201150); +INSERT INTO SYS_CIDADES VALUES(3386, 'Barra d`Alcntara', 17, 2201176); +INSERT INTO SYS_CIDADES VALUES(3387, 'Barras', 17, 2201200); +INSERT INTO SYS_CIDADES VALUES(3388, 'Barreiras do Piau', 17, 2201309); +INSERT INTO SYS_CIDADES VALUES(3389, 'Barro Duro', 17, 2201408); +INSERT INTO SYS_CIDADES VALUES(3390, 'Batalha', 17, 2201507); +INSERT INTO SYS_CIDADES VALUES(3391, 'Bela Vista do Piau', 17, 2201556); +INSERT INTO SYS_CIDADES VALUES(3392, 'Belm do Piau', 17, 2201572); +INSERT INTO SYS_CIDADES VALUES(3393, 'Beneditinos', 17, 2201606); +INSERT INTO SYS_CIDADES VALUES(3394, 'Bertolnia', 17, 2201705); +INSERT INTO SYS_CIDADES VALUES(3395, 'Betnia do Piau', 17, 2201739); +INSERT INTO SYS_CIDADES VALUES(3396, 'Boa Hora', 17, 2201770); +INSERT INTO SYS_CIDADES VALUES(3397, 'Bocaina', 17, 2201804); +INSERT INTO SYS_CIDADES VALUES(3398, 'Bom Jesus', 17, 2201903); +INSERT INTO SYS_CIDADES VALUES(3399, 'Bom Princpio do Piau', 17, 2201919); +INSERT INTO SYS_CIDADES VALUES(3400, 'Bonfim do Piau', 17, 2201929); +INSERT INTO SYS_CIDADES VALUES(3401, 'Boqueiro do Piau', 17, 2201945); +INSERT INTO SYS_CIDADES VALUES(3402, 'Brasileira', 17, 2201960); +INSERT INTO SYS_CIDADES VALUES(3403, 'Brejo do Piau', 17, 2201988); +INSERT INTO SYS_CIDADES VALUES(3404, 'Buriti dos Lopes', 17, 2202000); +INSERT INTO SYS_CIDADES VALUES(3405, 'Buriti dos Montes', 17, 2202026); +INSERT INTO SYS_CIDADES VALUES(3406, 'Cabeceiras do Piau', 17, 2202059); +INSERT INTO SYS_CIDADES VALUES(3407, 'Cajazeiras do Piau', 17, 2202075); +INSERT INTO SYS_CIDADES VALUES(3408, 'Cajueiro da Praia', 17, 2202083); +INSERT INTO SYS_CIDADES VALUES(3409, 'Caldeiro Grande do Piau', 17, 2202091); +INSERT INTO SYS_CIDADES VALUES(3410, 'Campinas do Piau', 17, 2202109); +INSERT INTO SYS_CIDADES VALUES(3411, 'Campo Alegre do Fidalgo', 17, 2202117); +INSERT INTO SYS_CIDADES VALUES(3412, 'Campo Grande do Piau', 17, 2202133); +INSERT INTO SYS_CIDADES VALUES(3413, 'Campo Largo do Piau', 17, 2202174); +INSERT INTO SYS_CIDADES VALUES(3414, 'Campo Maior', 17, 2202208); +INSERT INTO SYS_CIDADES VALUES(3415, 'Canavieira', 17, 2202251); +INSERT INTO SYS_CIDADES VALUES(3416, 'Canto do Buriti', 17, 2202307); +INSERT INTO SYS_CIDADES VALUES(3417, 'Capito de Campos', 17, 2202406); +INSERT INTO SYS_CIDADES VALUES(3418, 'Capito Gervsio Oliveira', 17, 2202455); +INSERT INTO SYS_CIDADES VALUES(3419, 'Caracol', 17, 2202505); +INSERT INTO SYS_CIDADES VALUES(3420, 'Carabas do Piau', 17, 2202539); +INSERT INTO SYS_CIDADES VALUES(3421, 'Caridade do Piau', 17, 2202554); +INSERT INTO SYS_CIDADES VALUES(3422, 'Castelo do Piau', 17, 2202604); +INSERT INTO SYS_CIDADES VALUES(3423, 'Caxing', 17, 2202653); +INSERT INTO SYS_CIDADES VALUES(3424, 'Cocal', 17, 2202703); +INSERT INTO SYS_CIDADES VALUES(3425, 'Cocal de Telha', 17, 2202711); +INSERT INTO SYS_CIDADES VALUES(3426, 'Cocal dos Alves', 17, 2202729); +INSERT INTO SYS_CIDADES VALUES(3427, 'Coivaras', 17, 2202737); +INSERT INTO SYS_CIDADES VALUES(3428, 'Colnia do Gurguia', 17, 2202752); +INSERT INTO SYS_CIDADES VALUES(3429, 'Colnia do Piau', 17, 2202778); +INSERT INTO SYS_CIDADES VALUES(3430, 'Conceio do Canind', 17, 2202802); +INSERT INTO SYS_CIDADES VALUES(3431, 'Coronel Jos Dias', 17, 2202851); +INSERT INTO SYS_CIDADES VALUES(3432, 'Corrente', 17, 2202901); +INSERT INTO SYS_CIDADES VALUES(3433, 'Cristalndia do Piau', 17, 2203008); +INSERT INTO SYS_CIDADES VALUES(3434, 'Cristino Castro', 17, 2203107); +INSERT INTO SYS_CIDADES VALUES(3435, 'Curimat', 17, 2203206); +INSERT INTO SYS_CIDADES VALUES(3436, 'Currais', 17, 2203230); +INSERT INTO SYS_CIDADES VALUES(3437, 'Curral Novo do Piau', 17, 2203271); +INSERT INTO SYS_CIDADES VALUES(3438, 'Curralinhos', 17, 2203255); +INSERT INTO SYS_CIDADES VALUES(3439, 'Demerval Lobo', 17, 2203305); +INSERT INTO SYS_CIDADES VALUES(3440, 'Dirceu Arcoverde', 17, 2203354); +INSERT INTO SYS_CIDADES VALUES(3441, 'Dom Expedito Lopes', 17, 2203404); +INSERT INTO SYS_CIDADES VALUES(3442, 'Dom Inocncio', 17, 2203453); +INSERT INTO SYS_CIDADES VALUES(3443, 'Domingos Mouro', 17, 2203420); +INSERT INTO SYS_CIDADES VALUES(3444, 'Elesbo Veloso', 17, 2203503); +INSERT INTO SYS_CIDADES VALUES(3445, 'Eliseu Martins', 17, 2203602); +INSERT INTO SYS_CIDADES VALUES(3446, 'Esperantina', 17, 2203701); +INSERT INTO SYS_CIDADES VALUES(3447, 'Fartura do Piau', 17, 2203750); +INSERT INTO SYS_CIDADES VALUES(3448, 'Flores do Piau', 17, 2203800); +INSERT INTO SYS_CIDADES VALUES(3449, 'Floresta do Piau', 17, 2203859); +INSERT INTO SYS_CIDADES VALUES(3450, 'Floriano', 17, 2203909); +INSERT INTO SYS_CIDADES VALUES(3451, 'Francinpolis', 17, 2204006); +INSERT INTO SYS_CIDADES VALUES(3452, 'Francisco Ayres', 17, 2204105); +INSERT INTO SYS_CIDADES VALUES(3453, 'Francisco Macedo', 17, 2204154); +INSERT INTO SYS_CIDADES VALUES(3454, 'Francisco Santos', 17, 2204204); +INSERT INTO SYS_CIDADES VALUES(3455, 'Fronteiras', 17, 2204303); +INSERT INTO SYS_CIDADES VALUES(3456, 'Geminiano', 17, 2204352); +INSERT INTO SYS_CIDADES VALUES(3457, 'Gilbus', 17, 2204402); +INSERT INTO SYS_CIDADES VALUES(3458, 'Guadalupe', 17, 2204501); +INSERT INTO SYS_CIDADES VALUES(3459, 'Guaribas', 17, 2204550); +INSERT INTO SYS_CIDADES VALUES(3460, 'Hugo Napoleo', 17, 2204600); +INSERT INTO SYS_CIDADES VALUES(3461, 'Ilha Grande', 17, 2204659); +INSERT INTO SYS_CIDADES VALUES(3462, 'Inhuma', 17, 2204709); +INSERT INTO SYS_CIDADES VALUES(3463, 'Ipiranga do Piau', 17, 2204808); +INSERT INTO SYS_CIDADES VALUES(3464, 'Isaas Coelho', 17, 2204907); +INSERT INTO SYS_CIDADES VALUES(3465, 'Itainpolis', 17, 2205003); +INSERT INTO SYS_CIDADES VALUES(3466, 'Itaueira', 17, 2205102); +INSERT INTO SYS_CIDADES VALUES(3467, 'Jacobina do Piau', 17, 2205151); +INSERT INTO SYS_CIDADES VALUES(3468, 'Jaics', 17, 2205201); +INSERT INTO SYS_CIDADES VALUES(3469, 'Jardim do Mulato', 17, 2205250); +INSERT INTO SYS_CIDADES VALUES(3470, 'Jatob do Piau', 17, 2205276); +INSERT INTO SYS_CIDADES VALUES(3471, 'Jerumenha', 17, 2205300); +INSERT INTO SYS_CIDADES VALUES(3472, 'Joo Costa', 17, 2205359); +INSERT INTO SYS_CIDADES VALUES(3473, 'Joaquim Pires', 17, 2205409); +INSERT INTO SYS_CIDADES VALUES(3474, 'Joca Marques', 17, 2205458); +INSERT INTO SYS_CIDADES VALUES(3475, 'Jos de Freitas', 17, 2205508); +INSERT INTO SYS_CIDADES VALUES(3476, 'Juazeiro do Piau', 17, 2205516); +INSERT INTO SYS_CIDADES VALUES(3477, 'Jlio Borges', 17, 2205524); +INSERT INTO SYS_CIDADES VALUES(3478, 'Jurema', 17, 2205532); +INSERT INTO SYS_CIDADES VALUES(3479, 'Lagoa Alegre', 17, 2205557); +INSERT INTO SYS_CIDADES VALUES(3480, 'Lagoa de So Francisco', 17, 2205573); +INSERT INTO SYS_CIDADES VALUES(3481, 'Lagoa do Barro do Piau', 17, 2205565); +INSERT INTO SYS_CIDADES VALUES(3482, 'Lagoa do Piau', 17, 2205581); +INSERT INTO SYS_CIDADES VALUES(3483, 'Lagoa do Stio', 17, 2205599); +INSERT INTO SYS_CIDADES VALUES(3484, 'Lagoinha do Piau', 17, 2205540); +INSERT INTO SYS_CIDADES VALUES(3485, 'Landri Sales', 17, 2205607); +INSERT INTO SYS_CIDADES VALUES(3486, 'Lus Correia', 17, 2205706); +INSERT INTO SYS_CIDADES VALUES(3487, 'Luzilndia', 17, 2205805); +INSERT INTO SYS_CIDADES VALUES(3488, 'Madeiro', 17, 2205854); +INSERT INTO SYS_CIDADES VALUES(3489, 'Manoel Emdio', 17, 2205904); +INSERT INTO SYS_CIDADES VALUES(3490, 'Marcolndia', 17, 2205953); +INSERT INTO SYS_CIDADES VALUES(3491, 'Marcos Parente', 17, 2206001); +INSERT INTO SYS_CIDADES VALUES(3492, 'Massap do Piau', 17, 2206050); +INSERT INTO SYS_CIDADES VALUES(3493, 'Matias Olmpio', 17, 2206100); +INSERT INTO SYS_CIDADES VALUES(3494, 'Miguel Alves', 17, 2206209); +INSERT INTO SYS_CIDADES VALUES(3495, 'Miguel Leo', 17, 2206308); +INSERT INTO SYS_CIDADES VALUES(3496, 'Milton Brando', 17, 2206357); +INSERT INTO SYS_CIDADES VALUES(3497, 'Monsenhor Gil', 17, 2206407); +INSERT INTO SYS_CIDADES VALUES(3498, 'Monsenhor Hiplito', 17, 2206506); +INSERT INTO SYS_CIDADES VALUES(3499, 'Monte Alegre do Piau', 17, 2206605); +INSERT INTO SYS_CIDADES VALUES(3500, 'Morro Cabea no Tempo', 17, 2206654); +INSERT INTO SYS_CIDADES VALUES(3501, 'Morro do Chapu do Piau', 17, 2206670); +INSERT INTO SYS_CIDADES VALUES(3502, 'Murici dos Portelas', 17, 2206696); +INSERT INTO SYS_CIDADES VALUES(3503, 'Nazar do Piau', 17, 2206704); +INSERT INTO SYS_CIDADES VALUES(3504, 'Nossa Senhora de Nazar', 17, 2206753); +INSERT INTO SYS_CIDADES VALUES(3505, 'Nossa Senhora dos Remdios', 17, 2206803); +INSERT INTO SYS_CIDADES VALUES(3506, 'Nova Santa Rita', 17, 2207959); +INSERT INTO SYS_CIDADES VALUES(3507, 'Novo Oriente do Piau', 17, 2206902); +INSERT INTO SYS_CIDADES VALUES(3508, 'Novo Santo Antnio', 17, 2206951); +INSERT INTO SYS_CIDADES VALUES(3509, 'Oeiras', 17, 2207009); +INSERT INTO SYS_CIDADES VALUES(3510, 'Olho d`gua do Piau', 17, 2207108); +INSERT INTO SYS_CIDADES VALUES(3511, 'Padre Marcos', 17, 2207207); +INSERT INTO SYS_CIDADES VALUES(3512, 'Paes Landim', 17, 2207306); +INSERT INTO SYS_CIDADES VALUES(3513, 'Paje do Piau', 17, 2207355); +INSERT INTO SYS_CIDADES VALUES(3514, 'Palmeira do Piau', 17, 2207405); +INSERT INTO SYS_CIDADES VALUES(3515, 'Palmeirais', 17, 2207504); +INSERT INTO SYS_CIDADES VALUES(3516, 'Paquet', 17, 2207553); +INSERT INTO SYS_CIDADES VALUES(3517, 'Parnagu', 17, 2207603); +INSERT INTO SYS_CIDADES VALUES(3518, 'Parnaba', 17, 2207702); +INSERT INTO SYS_CIDADES VALUES(3519, 'Passagem Franca do Piau', 17, 2207751); +INSERT INTO SYS_CIDADES VALUES(3520, 'Patos do Piau', 17, 2207777); +INSERT INTO SYS_CIDADES VALUES(3521, 'Pau d`Arco do Piau', 17, 2207793); +INSERT INTO SYS_CIDADES VALUES(3522, 'Paulistana', 17, 2207801); +INSERT INTO SYS_CIDADES VALUES(3523, 'Pavussu', 17, 2207850); +INSERT INTO SYS_CIDADES VALUES(3524, 'Pedro II', 17, 2207900); +INSERT INTO SYS_CIDADES VALUES(3525, 'Pedro Laurentino', 17, 2207934); +INSERT INTO SYS_CIDADES VALUES(3526, 'Picos', 17, 2208007); +INSERT INTO SYS_CIDADES VALUES(3527, 'Pimenteiras', 17, 2208106); +INSERT INTO SYS_CIDADES VALUES(3528, 'Pio IX', 17, 2208205); +INSERT INTO SYS_CIDADES VALUES(3529, 'Piracuruca', 17, 2208304); +INSERT INTO SYS_CIDADES VALUES(3530, 'Piripiri', 17, 2208403); +INSERT INTO SYS_CIDADES VALUES(3531, 'Porto', 17, 2208502); +INSERT INTO SYS_CIDADES VALUES(3532, 'Porto Alegre do Piau', 17, 2208551); +INSERT INTO SYS_CIDADES VALUES(3533, 'Prata do Piau', 17, 2208601); +INSERT INTO SYS_CIDADES VALUES(3534, 'Queimada Nova', 17, 2208650); +INSERT INTO SYS_CIDADES VALUES(3535, 'Redeno do Gurguia', 17, 2208700); +INSERT INTO SYS_CIDADES VALUES(3536, 'Regenerao', 17, 2208809); +INSERT INTO SYS_CIDADES VALUES(3537, 'Riacho Frio', 17, 2208858); +INSERT INTO SYS_CIDADES VALUES(3538, 'Ribeira do Piau', 17, 2208874); +INSERT INTO SYS_CIDADES VALUES(3539, 'Ribeiro Gonalves', 17, 2208908); +INSERT INTO SYS_CIDADES VALUES(3540, 'Rio Grande do Piau', 17, 2209005); +INSERT INTO SYS_CIDADES VALUES(3541, 'Santa Cruz do Piau', 17, 2209104); +INSERT INTO SYS_CIDADES VALUES(3542, 'Santa Cruz dos Milagres', 17, 2209153); +INSERT INTO SYS_CIDADES VALUES(3543, 'Santa Filomena', 17, 2209203); +INSERT INTO SYS_CIDADES VALUES(3544, 'Santa Luz', 17, 2209302); +INSERT INTO SYS_CIDADES VALUES(3545, 'Santa Rosa do Piau', 17, 2209377); +INSERT INTO SYS_CIDADES VALUES(3546, 'Santana do Piau', 17, 2209351); +INSERT INTO SYS_CIDADES VALUES(3547, 'Santo Antnio de Lisboa', 17, 2209401); +INSERT INTO SYS_CIDADES VALUES(3548, 'Santo Antnio dos Milagres', 17, 2209450); +INSERT INTO SYS_CIDADES VALUES(3549, 'Santo Incio do Piau', 17, 2209500); +INSERT INTO SYS_CIDADES VALUES(3550, 'So Braz do Piau', 17, 2209559); +INSERT INTO SYS_CIDADES VALUES(3551, 'So Flix do Piau', 17, 2209609); +INSERT INTO SYS_CIDADES VALUES(3552, 'So Francisco de Assis do Piau', 17, 2209658); +INSERT INTO SYS_CIDADES VALUES(3553, 'So Francisco do Piau', 17, 2209708); +INSERT INTO SYS_CIDADES VALUES(3554, 'So Gonalo do Gurguia', 17, 2209757); +INSERT INTO SYS_CIDADES VALUES(3555, 'So Gonalo do Piau', 17, 2209807); +INSERT INTO SYS_CIDADES VALUES(3556, 'So Joo da Canabrava', 17, 2209856); +INSERT INTO SYS_CIDADES VALUES(3557, 'So Joo da Fronteira', 17, 2209872); +INSERT INTO SYS_CIDADES VALUES(3558, 'So Joo da Serra', 17, 2209906); +INSERT INTO SYS_CIDADES VALUES(3559, 'So Joo da Varjota', 17, 2209955); +INSERT INTO SYS_CIDADES VALUES(3560, 'So Joo do Arraial', 17, 2209971); +INSERT INTO SYS_CIDADES VALUES(3561, 'So Joo do Piau', 17, 2210003); +INSERT INTO SYS_CIDADES VALUES(3562, 'So Jos do Divino', 17, 2210052); +INSERT INTO SYS_CIDADES VALUES(3563, 'So Jos do Peixe', 17, 2210102); +INSERT INTO SYS_CIDADES VALUES(3564, 'So Jos do Piau', 17, 2210201); +INSERT INTO SYS_CIDADES VALUES(3565, 'So Julio', 17, 2210300); +INSERT INTO SYS_CIDADES VALUES(3566, 'So Loureno do Piau', 17, 2210359); +INSERT INTO SYS_CIDADES VALUES(3567, 'So Luis do Piau', 17, 2210375); +INSERT INTO SYS_CIDADES VALUES(3568, 'So Miguel da Baixa Grande', 17, 2210383); +INSERT INTO SYS_CIDADES VALUES(3569, 'So Miguel do Fidalgo', 17, 2210391); +INSERT INTO SYS_CIDADES VALUES(3570, 'So Miguel do Tapuio', 17, 2210409); +INSERT INTO SYS_CIDADES VALUES(3571, 'So Pedro do Piau', 17, 2210508); +INSERT INTO SYS_CIDADES VALUES(3572, 'So Raimundo Nonato', 17, 2210607); +INSERT INTO SYS_CIDADES VALUES(3573, 'Sebastio Barros', 17, 2210623); +INSERT INTO SYS_CIDADES VALUES(3574, 'Sebastio Leal', 17, 2210631); +INSERT INTO SYS_CIDADES VALUES(3575, 'Sigefredo Pacheco', 17, 2210656); +INSERT INTO SYS_CIDADES VALUES(3576, 'Simes', 17, 2210706); +INSERT INTO SYS_CIDADES VALUES(3577, 'Simplcio Mendes', 17, 2210805); +INSERT INTO SYS_CIDADES VALUES(3578, 'Socorro do Piau', 17, 2210904); +INSERT INTO SYS_CIDADES VALUES(3579, 'Sussuapara', 17, 2210938); +INSERT INTO SYS_CIDADES VALUES(3580, 'Tamboril do Piau', 17, 2210953); +INSERT INTO SYS_CIDADES VALUES(3581, 'Tanque do Piau', 17, 2210979); +INSERT INTO SYS_CIDADES VALUES(3582, 'Teresina', 17, 2211001); +INSERT INTO SYS_CIDADES VALUES(3583, 'Unio', 17, 2211100); +INSERT INTO SYS_CIDADES VALUES(3584, 'Uruu', 17, 2211209); +INSERT INTO SYS_CIDADES VALUES(3585, 'Valena do Piau', 17, 2211308); +INSERT INTO SYS_CIDADES VALUES(3586, 'Vrzea Branca', 17, 2211357); +INSERT INTO SYS_CIDADES VALUES(3587, 'Vrzea Grande', 17, 2211407); +INSERT INTO SYS_CIDADES VALUES(3588, 'Vera Mendes', 17, 2211506); +INSERT INTO SYS_CIDADES VALUES(3589, 'Vila Nova do Piau', 17, 2211605); +INSERT INTO SYS_CIDADES VALUES(3590, 'Wall Ferraz', 17, 2211704); +INSERT INTO SYS_CIDADES VALUES(3591, 'Angra dos Reis', 19, 3300100); +INSERT INTO SYS_CIDADES VALUES(3592, 'Aperib', 19, 3300159); +INSERT INTO SYS_CIDADES VALUES(3593, 'Araruama', 19, 3300209); +INSERT INTO SYS_CIDADES VALUES(3594, 'Areal', 19, 3300225); +INSERT INTO SYS_CIDADES VALUES(3595, 'Armao dos Bzios', 19, 3300233); +INSERT INTO SYS_CIDADES VALUES(3596, 'Arraial do Cabo', 19, 3300258); +INSERT INTO SYS_CIDADES VALUES(3597, 'Barra do Pira', 19, 3300308); +INSERT INTO SYS_CIDADES VALUES(3598, 'Barra Mansa', 19, 3300407); +INSERT INTO SYS_CIDADES VALUES(3599, 'Belford Roxo', 19, 3300456); +INSERT INTO SYS_CIDADES VALUES(3600, 'Bom Jardim', 19, 3300506); +INSERT INTO SYS_CIDADES VALUES(3601, 'Bom Jesus do Itabapoana', 19, 3300605); +INSERT INTO SYS_CIDADES VALUES(3602, 'Cabo Frio', 19, 3300704); +INSERT INTO SYS_CIDADES VALUES(3603, 'Cachoeiras de Macacu', 19, 3300803); +INSERT INTO SYS_CIDADES VALUES(3604, 'Cambuci', 19, 3300902); +INSERT INTO SYS_CIDADES VALUES(3605, 'Campos dos Goytacazes', 19, 3301009); +INSERT INTO SYS_CIDADES VALUES(3606, 'Cantagalo', 19, 3301108); +INSERT INTO SYS_CIDADES VALUES(3607, 'Carapebus', 19, 3300936); +INSERT INTO SYS_CIDADES VALUES(3608, 'Cardoso Moreira', 19, 3301157); +INSERT INTO SYS_CIDADES VALUES(3609, 'Carmo', 19, 3301207); +INSERT INTO SYS_CIDADES VALUES(3610, 'Casimiro de Abreu', 19, 3301306); +INSERT INTO SYS_CIDADES VALUES(3611, 'Comendador Levy Gasparian', 19, 3300951); +INSERT INTO SYS_CIDADES VALUES(3612, 'Conceio de Macabu', 19, 3301405); +INSERT INTO SYS_CIDADES VALUES(3613, 'Cordeiro', 19, 3301504); +INSERT INTO SYS_CIDADES VALUES(3614, 'Duas Barras', 19, 3301603); +INSERT INTO SYS_CIDADES VALUES(3615, 'Duque de Caxias', 19, 3301702); +INSERT INTO SYS_CIDADES VALUES(3616, 'Engenheiro Paulo de Frontin', 19, 3301801); +INSERT INTO SYS_CIDADES VALUES(3617, 'Guapimirim', 19, 3301850); +INSERT INTO SYS_CIDADES VALUES(3618, 'Iguaba Grande', 19, 3301876); +INSERT INTO SYS_CIDADES VALUES(3619, 'Itabora', 19, 3301900); +INSERT INTO SYS_CIDADES VALUES(3620, 'Itagua', 19, 3302007); +INSERT INTO SYS_CIDADES VALUES(3621, 'Italva', 19, 3302056); +INSERT INTO SYS_CIDADES VALUES(3622, 'Itaocara', 19, 3302106); +INSERT INTO SYS_CIDADES VALUES(3623, 'Itaperuna', 19, 3302205); +INSERT INTO SYS_CIDADES VALUES(3624, 'Itatiaia', 19, 3302254); +INSERT INTO SYS_CIDADES VALUES(3625, 'Japeri', 19, 3302270); +INSERT INTO SYS_CIDADES VALUES(3626, 'Laje do Muria', 19, 3302304); +INSERT INTO SYS_CIDADES VALUES(3627, 'Maca', 19, 3302403); +INSERT INTO SYS_CIDADES VALUES(3628, 'Macuco', 19, 3302452); +INSERT INTO SYS_CIDADES VALUES(3629, 'Mag', 19, 3302502); +INSERT INTO SYS_CIDADES VALUES(3630, 'Mangaratiba', 19, 3302601); +INSERT INTO SYS_CIDADES VALUES(3631, 'Maric', 19, 3302700); +INSERT INTO SYS_CIDADES VALUES(3632, 'Mendes', 19, 3302809); +INSERT INTO SYS_CIDADES VALUES(3633, 'Mesquita', 19, 3302858); +INSERT INTO SYS_CIDADES VALUES(3634, 'Miguel Pereira', 19, 3302908); +INSERT INTO SYS_CIDADES VALUES(3635, 'Miracema', 19, 3303005); +INSERT INTO SYS_CIDADES VALUES(3636, 'Natividade', 19, 3303104); +INSERT INTO SYS_CIDADES VALUES(3637, 'Nilpolis', 19, 3303203); +INSERT INTO SYS_CIDADES VALUES(3638, 'Niteri', 19, 3303302); +INSERT INTO SYS_CIDADES VALUES(3639, 'Nova Friburgo', 19, 3303401); +INSERT INTO SYS_CIDADES VALUES(3640, 'Nova Iguau', 19, 3303500); +INSERT INTO SYS_CIDADES VALUES(3641, 'Paracambi', 19, 3303609); +INSERT INTO SYS_CIDADES VALUES(3642, 'Paraba do Sul', 19, 3303708); +INSERT INTO SYS_CIDADES VALUES(3643, 'Parati', 19, 3303807); +INSERT INTO SYS_CIDADES VALUES(3644, 'Paty do Alferes', 19, 3303856); +INSERT INTO SYS_CIDADES VALUES(3645, 'Petrpolis', 19, 3303906); +INSERT INTO SYS_CIDADES VALUES(3646, 'Pinheiral', 19, 3303955); +INSERT INTO SYS_CIDADES VALUES(3647, 'Pira', 19, 3304003); +INSERT INTO SYS_CIDADES VALUES(3648, 'Porcincula', 19, 3304102); +INSERT INTO SYS_CIDADES VALUES(3649, 'Porto Real', 19, 3304110); +INSERT INTO SYS_CIDADES VALUES(3650, 'Quatis', 19, 3304128); +INSERT INTO SYS_CIDADES VALUES(3651, 'Queimados', 19, 3304144); +INSERT INTO SYS_CIDADES VALUES(3652, 'Quissam', 19, 3304151); +INSERT INTO SYS_CIDADES VALUES(3653, 'Resende', 19, 3304201); +INSERT INTO SYS_CIDADES VALUES(3654, 'Rio Bonito', 19, 3304300); +INSERT INTO SYS_CIDADES VALUES(3655, 'Rio Claro', 19, 3304409); +INSERT INTO SYS_CIDADES VALUES(3656, 'Rio das Flores', 19, 3304508); +INSERT INTO SYS_CIDADES VALUES(3657, 'Rio das Ostras', 19, 3304524); +INSERT INTO SYS_CIDADES VALUES(3658, 'Rio de Janeiro', 19, 3304557); +INSERT INTO SYS_CIDADES VALUES(3659, 'Santa Maria Madalena', 19, 3304607); +INSERT INTO SYS_CIDADES VALUES(3660, 'Santo Antnio de Pdua', 19, 3304706); +INSERT INTO SYS_CIDADES VALUES(3661, 'So Fidlis', 19, 3304805); +INSERT INTO SYS_CIDADES VALUES(3662, 'So Francisco de Itabapoana', 19, 3304755); +INSERT INTO SYS_CIDADES VALUES(3663, 'So Gonalo', 19, 3304904); +INSERT INTO SYS_CIDADES VALUES(3664, 'So Joo da Barra', 19, 3305000); +INSERT INTO SYS_CIDADES VALUES(3665, 'So Joo de Meriti', 19, 3305109); +INSERT INTO SYS_CIDADES VALUES(3666, 'So Jos de Ub', 19, 3305133); +INSERT INTO SYS_CIDADES VALUES(3667, 'So Jos do Vale do Rio Preto', 19, 3305158); +INSERT INTO SYS_CIDADES VALUES(3668, 'So Pedro da Aldeia', 19, 3305208); +INSERT INTO SYS_CIDADES VALUES(3669, 'So Sebastio do Alto', 19, 3305307); +INSERT INTO SYS_CIDADES VALUES(3670, 'Sapucaia', 19, 3305406); +INSERT INTO SYS_CIDADES VALUES(3671, 'Saquarema', 19, 3305505); +INSERT INTO SYS_CIDADES VALUES(3672, 'Seropdica', 19, 3305554); +INSERT INTO SYS_CIDADES VALUES(3673, 'Silva Jardim', 19, 3305604); +INSERT INTO SYS_CIDADES VALUES(3674, 'Sumidouro', 19, 3305703); +INSERT INTO SYS_CIDADES VALUES(3675, 'Tangu', 19, 3305752); +INSERT INTO SYS_CIDADES VALUES(3676, 'Terespolis', 19, 3305802); +INSERT INTO SYS_CIDADES VALUES(3677, 'Trajano de Morais', 19, 3305901); +INSERT INTO SYS_CIDADES VALUES(3678, 'Trs Rios', 19, 3306008); +INSERT INTO SYS_CIDADES VALUES(3679, 'Valena', 19, 3306107); +INSERT INTO SYS_CIDADES VALUES(3680, 'Varre-Sai', 19, 3306156); +INSERT INTO SYS_CIDADES VALUES(3681, 'Vassouras', 19, 3306206); +INSERT INTO SYS_CIDADES VALUES(3682, 'Volta Redonda', 19, 3306305); +INSERT INTO SYS_CIDADES VALUES(3683, 'Acari', 20, 2400109); +INSERT INTO SYS_CIDADES VALUES(3684, 'Au', 20, 2400208); +INSERT INTO SYS_CIDADES VALUES(3685, 'Afonso Bezerra', 20, 2400307); +INSERT INTO SYS_CIDADES VALUES(3686, 'gua Nova', 20, 2400406); +INSERT INTO SYS_CIDADES VALUES(3687, 'Alexandria', 20, 2400505); +INSERT INTO SYS_CIDADES VALUES(3688, 'Almino Afonso', 20, 2400604); +INSERT INTO SYS_CIDADES VALUES(3689, 'Alto do Rodrigues', 20, 2400703); +INSERT INTO SYS_CIDADES VALUES(3690, 'Jardim de Angicos', 20, 2405504); +INSERT INTO SYS_CIDADES VALUES(3691, 'Antnio Martins', 20, 2400901); +INSERT INTO SYS_CIDADES VALUES(3692, 'Apodi', 20, 2401008); +INSERT INTO SYS_CIDADES VALUES(3693, 'Areia Branca', 20, 2401107); +INSERT INTO SYS_CIDADES VALUES(3694, 'Ars', 20, 2401206); +INSERT INTO SYS_CIDADES VALUES(3695, 'Augusto Severo', 20, 2401305); +INSERT INTO SYS_CIDADES VALUES(3696, 'Baa Formosa', 20, 2401404); +INSERT INTO SYS_CIDADES VALUES(3697, 'Barana', 20, 2401453); +INSERT INTO SYS_CIDADES VALUES(3698, 'Barcelona', 20, 2401503); +INSERT INTO SYS_CIDADES VALUES(3699, 'Bento Fernandes', 20, 2401602); +INSERT INTO SYS_CIDADES VALUES(3700, 'Bod', 20, 2401651); +INSERT INTO SYS_CIDADES VALUES(3701, 'Bom Jesus', 20, 2401701); +INSERT INTO SYS_CIDADES VALUES(3702, 'Brejinho', 20, 2401800); +INSERT INTO SYS_CIDADES VALUES(3703, 'Caiara do Norte', 20, 2401859); +INSERT INTO SYS_CIDADES VALUES(3704, 'Caiara do Rio do Vento', 20, 2401909); +INSERT INTO SYS_CIDADES VALUES(3705, 'Caic', 20, 2402006); +INSERT INTO SYS_CIDADES VALUES(3706, 'Campo Redondo', 20, 2402105); +INSERT INTO SYS_CIDADES VALUES(3707, 'Canguaretama', 20, 2402204); +INSERT INTO SYS_CIDADES VALUES(3708, 'Carabas', 20, 2402303); +INSERT INTO SYS_CIDADES VALUES(3709, 'Carnaba dos Dantas', 20, 2402402); +INSERT INTO SYS_CIDADES VALUES(3710, 'Carnaubais', 20, 2402501); +INSERT INTO SYS_CIDADES VALUES(3711, 'Cear-Mirim', 20, 2402600); +INSERT INTO SYS_CIDADES VALUES(3712, 'Cerro Cor', 20, 2402709); +INSERT INTO SYS_CIDADES VALUES(3713, 'Coronel Ezequiel', 20, 2402808); +INSERT INTO SYS_CIDADES VALUES(3714, 'Coronel Joo Pessoa', 20, 2402907); +INSERT INTO SYS_CIDADES VALUES(3715, 'Cruzeta', 20, 2403004); +INSERT INTO SYS_CIDADES VALUES(3716, 'Currais Novos', 20, 2403103); +INSERT INTO SYS_CIDADES VALUES(3717, 'Doutor Severiano', 20, 2403202); +INSERT INTO SYS_CIDADES VALUES(3718, 'Encanto', 20, 2403301); +INSERT INTO SYS_CIDADES VALUES(3719, 'Equador', 20, 2403400); +INSERT INTO SYS_CIDADES VALUES(3720, 'Esprito Santo', 20, 2403509); +INSERT INTO SYS_CIDADES VALUES(3721, 'Extremoz', 20, 2403608); +INSERT INTO SYS_CIDADES VALUES(3722, 'Felipe Guerra', 20, 2403707); +INSERT INTO SYS_CIDADES VALUES(3723, 'Fernando Pedroza', 20, 2403756); +INSERT INTO SYS_CIDADES VALUES(3724, 'Flornia', 20, 2403806); +INSERT INTO SYS_CIDADES VALUES(3725, 'Francisco Dantas', 20, 2403905); +INSERT INTO SYS_CIDADES VALUES(3726, 'Frutuoso Gomes', 20, 2404002); +INSERT INTO SYS_CIDADES VALUES(3727, 'Galinhos', 20, 2404101); +INSERT INTO SYS_CIDADES VALUES(3728, 'Goianinha', 20, 2404200); +INSERT INTO SYS_CIDADES VALUES(3729, 'Governador Dix-Sept Rosado', 20, 2404309); +INSERT INTO SYS_CIDADES VALUES(3730, 'Grossos', 20, 2404408); +INSERT INTO SYS_CIDADES VALUES(3731, 'Guamar', 20, 2404507); +INSERT INTO SYS_CIDADES VALUES(3732, 'Ielmo Marinho', 20, 2404606); +INSERT INTO SYS_CIDADES VALUES(3733, 'Ipanguau', 20, 2404705); +INSERT INTO SYS_CIDADES VALUES(3734, 'Ipueira', 20, 2404804); +INSERT INTO SYS_CIDADES VALUES(3735, 'Itaj', 20, 2404853); +INSERT INTO SYS_CIDADES VALUES(3736, 'Ita', 20, 2404903); +INSERT INTO SYS_CIDADES VALUES(3737, 'Jaan', 20, 2405009); +INSERT INTO SYS_CIDADES VALUES(3738, 'Jandara', 20, 2405108); +INSERT INTO SYS_CIDADES VALUES(3739, 'Jandus', 20, 2405207); +INSERT INTO SYS_CIDADES VALUES(3740, 'Janurio Cicco', 20, 2405306); +INSERT INTO SYS_CIDADES VALUES(3741, 'Japi', 20, 2405405); +INSERT INTO SYS_CIDADES VALUES(3743, 'Jardim de Piranhas', 20, 2405603); +INSERT INTO SYS_CIDADES VALUES(3744, 'Jardim do Serid', 20, 2405702); +INSERT INTO SYS_CIDADES VALUES(3745, 'Joo Cmara', 20, 2405801); +INSERT INTO SYS_CIDADES VALUES(3746, 'Joo Dias', 20, 2405900); +INSERT INTO SYS_CIDADES VALUES(3747, 'Jos da Penha', 20, 2406007); +INSERT INTO SYS_CIDADES VALUES(3748, 'Jucurutu', 20, 2406106); +INSERT INTO SYS_CIDADES VALUES(3749, 'Jundi', 20, 2406155); +INSERT INTO SYS_CIDADES VALUES(3750, 'Lagoa d`Anta', 20, 2406205); +INSERT INTO SYS_CIDADES VALUES(3751, 'Lagoa de Pedras', 20, 2406304); +INSERT INTO SYS_CIDADES VALUES(3752, 'Lagoa de Velhos', 20, 2406403); +INSERT INTO SYS_CIDADES VALUES(3753, 'Lagoa Nova', 20, 2406502); +INSERT INTO SYS_CIDADES VALUES(3754, 'Lagoa Salgada', 20, 2406601); +INSERT INTO SYS_CIDADES VALUES(3755, 'Lajes', 20, 2406700); +INSERT INTO SYS_CIDADES VALUES(3756, 'Lajes Pintadas', 20, 2406809); +INSERT INTO SYS_CIDADES VALUES(3757, 'Lucrcia', 20, 2406908); +INSERT INTO SYS_CIDADES VALUES(3758, 'Lus Gomes', 20, 2407005); +INSERT INTO SYS_CIDADES VALUES(3759, 'Macaba', 20, 2407104); +INSERT INTO SYS_CIDADES VALUES(3760, 'Macau', 20, 2407203); +INSERT INTO SYS_CIDADES VALUES(3761, 'Major Sales', 20, 2407252); +INSERT INTO SYS_CIDADES VALUES(3762, 'Marcelino Vieira', 20, 2407302); +INSERT INTO SYS_CIDADES VALUES(3763, 'Martins', 20, 2407401); +INSERT INTO SYS_CIDADES VALUES(3764, 'Maxaranguape', 20, 2407500); +INSERT INTO SYS_CIDADES VALUES(3765, 'Messias Targino', 20, 2407609); +INSERT INTO SYS_CIDADES VALUES(3766, 'Montanhas', 20, 2407708); +INSERT INTO SYS_CIDADES VALUES(3767, 'Monte Alegre', 20, 2407807); +INSERT INTO SYS_CIDADES VALUES(3768, 'Monte das Gameleiras', 20, 2407906); +INSERT INTO SYS_CIDADES VALUES(3769, 'Mossor', 20, 2408003); +INSERT INTO SYS_CIDADES VALUES(3770, 'Natal', 20, 2408102); +INSERT INTO SYS_CIDADES VALUES(3771, 'Nsia Floresta', 20, 2408201); +INSERT INTO SYS_CIDADES VALUES(3772, 'Nova Cruz', 20, 2408300); +INSERT INTO SYS_CIDADES VALUES(3773, 'Olho-d`gua do Borges', 20, 2408409); +INSERT INTO SYS_CIDADES VALUES(3774, 'Ouro Branco', 20, 2408508); +INSERT INTO SYS_CIDADES VALUES(3775, 'Paran', 20, 2408607); +INSERT INTO SYS_CIDADES VALUES(3776, 'Para', 20, 2408706); +INSERT INTO SYS_CIDADES VALUES(3777, 'Parazinho', 20, 2408805); +INSERT INTO SYS_CIDADES VALUES(3778, 'Parelhas', 20, 2408904); +INSERT INTO SYS_CIDADES VALUES(3779, 'Parnamirim', 20, 2403251); +INSERT INTO SYS_CIDADES VALUES(3780, 'Passa e Fica', 20, 2409100); +INSERT INTO SYS_CIDADES VALUES(3781, 'Passagem', 20, 2409209); +INSERT INTO SYS_CIDADES VALUES(3782, 'Patu', 20, 2409308); +INSERT INTO SYS_CIDADES VALUES(3783, 'Pau dos Ferros', 20, 2409407); +INSERT INTO SYS_CIDADES VALUES(3784, 'Pedra Grande', 20, 2409506); +INSERT INTO SYS_CIDADES VALUES(3785, 'Pedra Preta', 20, 2409605); +INSERT INTO SYS_CIDADES VALUES(3786, 'Pedro Avelino', 20, 2409704); +INSERT INTO SYS_CIDADES VALUES(3787, 'Pedro Velho', 20, 2409803); +INSERT INTO SYS_CIDADES VALUES(3788, 'Pendncias', 20, 2409902); +INSERT INTO SYS_CIDADES VALUES(3789, 'Piles', 20, 2410009); +INSERT INTO SYS_CIDADES VALUES(3790, 'Poo Branco', 20, 2410108); +INSERT INTO SYS_CIDADES VALUES(3791, 'Portalegre', 20, 2410207); +INSERT INTO SYS_CIDADES VALUES(3792, 'Porto do Mangue', 20, 2410256); +INSERT INTO SYS_CIDADES VALUES(3793, 'Presidente Juscelino', 20, 2410306); +INSERT INTO SYS_CIDADES VALUES(3794, 'Pureza', 20, 2410405); +INSERT INTO SYS_CIDADES VALUES(3795, 'Rafael Fernandes', 20, 2410504); +INSERT INTO SYS_CIDADES VALUES(3796, 'Rafael Godeiro', 20, 2410603); +INSERT INTO SYS_CIDADES VALUES(3797, 'Riacho da Cruz', 20, 2410702); +INSERT INTO SYS_CIDADES VALUES(3798, 'Riacho de Santana', 20, 2410801); +INSERT INTO SYS_CIDADES VALUES(3799, 'Riachuelo', 20, 2410900); +INSERT INTO SYS_CIDADES VALUES(3800, 'Rio do Fogo', 20, 2408953); +INSERT INTO SYS_CIDADES VALUES(3801, 'Rodolfo Fernandes', 20, 2411007); +INSERT INTO SYS_CIDADES VALUES(3802, 'Ruy Barbosa', 20, 2411106); +INSERT INTO SYS_CIDADES VALUES(3803, 'Santa Cruz', 20, 2411205); +INSERT INTO SYS_CIDADES VALUES(3804, 'Santa Maria', 20, 2409332); +INSERT INTO SYS_CIDADES VALUES(3805, 'Santana do Matos', 20, 2411403); +INSERT INTO SYS_CIDADES VALUES(3806, 'Santana do Serid', 20, 2411429); +INSERT INTO SYS_CIDADES VALUES(3807, 'Santo Antnio', 20, 2411502); +INSERT INTO SYS_CIDADES VALUES(3808, 'So Bento do Norte', 20, 2411601); +INSERT INTO SYS_CIDADES VALUES(3809, 'So Bento do Trair', 20, 2411700); +INSERT INTO SYS_CIDADES VALUES(3810, 'So Fernando', 20, 2411809); +INSERT INTO SYS_CIDADES VALUES(3811, 'So Francisco do Oeste', 20, 2411908); +INSERT INTO SYS_CIDADES VALUES(3812, 'So Gonalo do Amarante', 20, 2412005); +INSERT INTO SYS_CIDADES VALUES(3813, 'So Joo do Sabugi', 20, 2412104); +INSERT INTO SYS_CIDADES VALUES(3814, 'So Jos de Mipibu', 20, 2412203); +INSERT INTO SYS_CIDADES VALUES(3815, 'So Jos do Campestre', 20, 2412302); +INSERT INTO SYS_CIDADES VALUES(3816, 'So Jos do Serid', 20, 2412401); +INSERT INTO SYS_CIDADES VALUES(3817, 'So Miguel', 20, 2412500); +INSERT INTO SYS_CIDADES VALUES(3818, 'So Miguel do Gostoso', 20, 2412559); +INSERT INTO SYS_CIDADES VALUES(3819, 'So Paulo do Potengi', 20, 2412609); +INSERT INTO SYS_CIDADES VALUES(3820, 'So Pedro', 20, 2412708); +INSERT INTO SYS_CIDADES VALUES(3821, 'So Rafael', 20, 2412807); +INSERT INTO SYS_CIDADES VALUES(3822, 'So Tom', 20, 2412906); +INSERT INTO SYS_CIDADES VALUES(3823, 'So Vicente', 20, 2413003); +INSERT INTO SYS_CIDADES VALUES(3824, 'Senador Eli de Souza', 20, 2413102); +INSERT INTO SYS_CIDADES VALUES(3825, 'Senador Georgino Avelino', 20, 2413201); +INSERT INTO SYS_CIDADES VALUES(3826, 'Serra de So Bento', 20, 2413300); +INSERT INTO SYS_CIDADES VALUES(3827, 'Serra do Mel', 20, 2413359); +INSERT INTO SYS_CIDADES VALUES(3828, 'Serra Negra do Norte', 20, 2413409); +INSERT INTO SYS_CIDADES VALUES(3829, 'Serrinha', 20, 2413508); +INSERT INTO SYS_CIDADES VALUES(3830, 'Serrinha dos Pintos', 20, 2413557); +INSERT INTO SYS_CIDADES VALUES(3831, 'Severiano Melo', 20, 2413607); +INSERT INTO SYS_CIDADES VALUES(3832, 'Stio Novo', 20, 2413706); +INSERT INTO SYS_CIDADES VALUES(3833, 'Taboleiro Grande', 20, 2413805); +INSERT INTO SYS_CIDADES VALUES(3834, 'Taipu', 20, 2413904); +INSERT INTO SYS_CIDADES VALUES(3835, 'Tangar', 20, 2414001); +INSERT INTO SYS_CIDADES VALUES(3836, 'Tenente Ananias', 20, 2414100); +INSERT INTO SYS_CIDADES VALUES(3837, 'Tenente Laurentino Cruz', 20, 2414159); +INSERT INTO SYS_CIDADES VALUES(3838, 'Tibau', 20, 2411056); +INSERT INTO SYS_CIDADES VALUES(3839, 'Tibau do Sul', 20, 2414209); +INSERT INTO SYS_CIDADES VALUES(3840, 'Timbaba dos Batistas', 20, 2414308); +INSERT INTO SYS_CIDADES VALUES(3841, 'Touros', 20, 2414407); +INSERT INTO SYS_CIDADES VALUES(3842, 'Triunfo Potiguar', 20, 2414456); +INSERT INTO SYS_CIDADES VALUES(3843, 'Umarizal', 20, 2414506); +INSERT INTO SYS_CIDADES VALUES(3844, 'Upanema', 20, 2414605); +INSERT INTO SYS_CIDADES VALUES(3845, 'Vrzea', 20, 2414704); +INSERT INTO SYS_CIDADES VALUES(3846, 'Venha-Ver', 20, 2414753); +INSERT INTO SYS_CIDADES VALUES(3847, 'Vera Cruz', 20, 2414803); +INSERT INTO SYS_CIDADES VALUES(3848, 'Viosa', 20, 2414902); +INSERT INTO SYS_CIDADES VALUES(3849, 'Vila Flor', 20, 2415008); +INSERT INTO SYS_CIDADES VALUES(3850, 'Acegu', 23, 4300034); +INSERT INTO SYS_CIDADES VALUES(3851, 'gua Santa', 23, 4300059); +INSERT INTO SYS_CIDADES VALUES(3852, 'Agudo', 23, 4300109); +INSERT INTO SYS_CIDADES VALUES(3853, 'Ajuricaba', 23, 4300208); +INSERT INTO SYS_CIDADES VALUES(3854, 'Alecrim', 23, 4300307); +INSERT INTO SYS_CIDADES VALUES(3855, 'Alegrete', 23, 4300406); +INSERT INTO SYS_CIDADES VALUES(3856, 'Alegria', 23, 4300455); +INSERT INTO SYS_CIDADES VALUES(3857, 'Almirante Tamandar do Sul', 23, 4300471); +INSERT INTO SYS_CIDADES VALUES(3858, 'Alpestre', 23, 4300505); +INSERT INTO SYS_CIDADES VALUES(3859, 'Alto Alegre', 23, 4300554); +INSERT INTO SYS_CIDADES VALUES(3860, 'Alto Feliz', 23, 4300570); +INSERT INTO SYS_CIDADES VALUES(3861, 'Alvorada', 23, 4300604); +INSERT INTO SYS_CIDADES VALUES(3862, 'Amaral Ferrador', 23, 4300638); +INSERT INTO SYS_CIDADES VALUES(3863, 'Ametista do Sul', 23, 4300646); +INSERT INTO SYS_CIDADES VALUES(3864, 'Andr da Rocha', 23, 4300661); +INSERT INTO SYS_CIDADES VALUES(3865, 'Anta Gorda', 23, 4300703); +INSERT INTO SYS_CIDADES VALUES(3866, 'Antnio Prado', 23, 4300802); +INSERT INTO SYS_CIDADES VALUES(3867, 'Arambar', 23, 4300851); +INSERT INTO SYS_CIDADES VALUES(3868, 'Araric', 23, 4300877); +INSERT INTO SYS_CIDADES VALUES(3869, 'Aratiba', 23, 4300901); +INSERT INTO SYS_CIDADES VALUES(3870, 'Arroio do Meio', 23, 4301008); +INSERT INTO SYS_CIDADES VALUES(3871, 'Arroio do Padre', 23, 4301073); +INSERT INTO SYS_CIDADES VALUES(3872, 'Arroio do Sal', 23, 4301057); +INSERT INTO SYS_CIDADES VALUES(3873, 'Arroio do Tigre', 23, 4301206); +INSERT INTO SYS_CIDADES VALUES(3874, 'Arroio dos Ratos', 23, 4301107); +INSERT INTO SYS_CIDADES VALUES(3875, 'Arroio Grande', 23, 4301305); +INSERT INTO SYS_CIDADES VALUES(3876, 'Arvorezinha', 23, 4301404); +INSERT INTO SYS_CIDADES VALUES(3877, 'Augusto Pestana', 23, 4301503); +INSERT INTO SYS_CIDADES VALUES(3878, 'urea', 23, 4301552); +INSERT INTO SYS_CIDADES VALUES(3879, 'Bag', 23, 4301602); +INSERT INTO SYS_CIDADES VALUES(3880, 'Balnerio Pinhal', 23, 4301636); +INSERT INTO SYS_CIDADES VALUES(3881, 'Baro', 23, 4301651); +INSERT INTO SYS_CIDADES VALUES(3882, 'Baro de Cotegipe', 23, 4301701); +INSERT INTO SYS_CIDADES VALUES(3883, 'Baro do Triunfo', 23, 4301750); +INSERT INTO SYS_CIDADES VALUES(3884, 'Barra do Guarita', 23, 4301859); +INSERT INTO SYS_CIDADES VALUES(3885, 'Barra do Quara', 23, 4301875); +INSERT INTO SYS_CIDADES VALUES(3886, 'Barra do Ribeiro', 23, 4301909); +INSERT INTO SYS_CIDADES VALUES(3887, 'Barra do Rio Azul', 23, 4301925); +INSERT INTO SYS_CIDADES VALUES(3888, 'Barra Funda', 23, 4301958); +INSERT INTO SYS_CIDADES VALUES(3889, 'Barraco', 23, 4301800); +INSERT INTO SYS_CIDADES VALUES(3890, 'Barros Cassal', 23, 4302006); +INSERT INTO SYS_CIDADES VALUES(3891, 'Benjamin Constant do Sul', 23, 4302055); +INSERT INTO SYS_CIDADES VALUES(3892, 'Bento Gonalves', 23, 4302105); +INSERT INTO SYS_CIDADES VALUES(3893, 'Boa Vista das Misses', 23, 4302154); +INSERT INTO SYS_CIDADES VALUES(3894, 'Boa Vista do Buric', 23, 4302204); +INSERT INTO SYS_CIDADES VALUES(3895, 'Boa Vista do Cadeado', 23, 4302220); +INSERT INTO SYS_CIDADES VALUES(3896, 'Boa Vista do Incra', 23, 4302238); +INSERT INTO SYS_CIDADES VALUES(3897, 'Boa Vista do Sul', 23, 4302253); +INSERT INTO SYS_CIDADES VALUES(3898, 'Bom Jesus', 23, 4302303); +INSERT INTO SYS_CIDADES VALUES(3899, 'Bom Princpio', 23, 4302352); +INSERT INTO SYS_CIDADES VALUES(3900, 'Bom Progresso', 23, 4302378); +INSERT INTO SYS_CIDADES VALUES(3901, 'Bom Retiro do Sul', 23, 4302402); +INSERT INTO SYS_CIDADES VALUES(3902, 'Boqueiro do Leo', 23, 4302451); +INSERT INTO SYS_CIDADES VALUES(3903, 'Bossoroca', 23, 4302501); +INSERT INTO SYS_CIDADES VALUES(3904, 'Bozano', 23, 4302584); +INSERT INTO SYS_CIDADES VALUES(3905, 'Braga', 23, 4302600); +INSERT INTO SYS_CIDADES VALUES(3906, 'Brochier', 23, 4302659); +INSERT INTO SYS_CIDADES VALUES(3907, 'Buti', 23, 4302709); +INSERT INTO SYS_CIDADES VALUES(3908, 'Caapava do Sul', 23, 4302808); +INSERT INTO SYS_CIDADES VALUES(3909, 'Cacequi', 23, 4302907); +INSERT INTO SYS_CIDADES VALUES(3910, 'Cachoeira do Sul', 23, 4303004); +INSERT INTO SYS_CIDADES VALUES(3911, 'Cachoeirinha', 23, 4303103); +INSERT INTO SYS_CIDADES VALUES(3912, 'Cacique Doble', 23, 4303202); +INSERT INTO SYS_CIDADES VALUES(3913, 'Caibat', 23, 4303301); +INSERT INTO SYS_CIDADES VALUES(3914, 'Caiara', 23, 4303400); +INSERT INTO SYS_CIDADES VALUES(3915, 'Camaqu', 23, 4303509); +INSERT INTO SYS_CIDADES VALUES(3916, 'Camargo', 23, 4303558); +INSERT INTO SYS_CIDADES VALUES(3917, 'Cambar do Sul', 23, 4303608); +INSERT INTO SYS_CIDADES VALUES(3918, 'Campestre da Serra', 23, 4303673); +INSERT INTO SYS_CIDADES VALUES(3919, 'Campina das Misses', 23, 4303707); +INSERT INTO SYS_CIDADES VALUES(3920, 'Campinas do Sul', 23, 4303806); +INSERT INTO SYS_CIDADES VALUES(3921, 'Campo Bom', 23, 4303905); +INSERT INTO SYS_CIDADES VALUES(3922, 'Campo Novo', 23, 4304002); +INSERT INTO SYS_CIDADES VALUES(3923, 'Campos Borges', 23, 4304101); +INSERT INTO SYS_CIDADES VALUES(3924, 'Candelria', 23, 4304200); +INSERT INTO SYS_CIDADES VALUES(3925, 'Cndido Godi', 23, 4304309); +INSERT INTO SYS_CIDADES VALUES(3926, 'Candiota', 23, 4304358); +INSERT INTO SYS_CIDADES VALUES(3927, 'Canela', 23, 4304408); +INSERT INTO SYS_CIDADES VALUES(3928, 'Canguu', 23, 4304507); +INSERT INTO SYS_CIDADES VALUES(3929, 'Canoas', 23, 4304606); +INSERT INTO SYS_CIDADES VALUES(3930, 'Canudos do Vale', 23, 4304614); +INSERT INTO SYS_CIDADES VALUES(3931, 'Capo Bonito do Sul', 23, 4304622); +INSERT INTO SYS_CIDADES VALUES(3932, 'Capo da Canoa', 23, 4304630); +INSERT INTO SYS_CIDADES VALUES(3933, 'Capo do Cip', 23, 4304655); +INSERT INTO SYS_CIDADES VALUES(3934, 'Capo do Leo', 23, 4304663); +INSERT INTO SYS_CIDADES VALUES(3935, 'Capela de Santana', 23, 4304689); +INSERT INTO SYS_CIDADES VALUES(3936, 'Capito', 23, 4304697); +INSERT INTO SYS_CIDADES VALUES(3937, 'Capivari do Sul', 23, 4304671); +INSERT INTO SYS_CIDADES VALUES(3938, 'Cara', 23, 4304713); +INSERT INTO SYS_CIDADES VALUES(3939, 'Carazinho', 23, 4304705); +INSERT INTO SYS_CIDADES VALUES(3940, 'Carlos Barbosa', 23, 4304804); +INSERT INTO SYS_CIDADES VALUES(3941, 'Carlos Gomes', 23, 4304853); +INSERT INTO SYS_CIDADES VALUES(3942, 'Casca', 23, 4304903); +INSERT INTO SYS_CIDADES VALUES(3943, 'Caseiros', 23, 4304952); +INSERT INTO SYS_CIDADES VALUES(3944, 'Catupe', 23, 4305009); +INSERT INTO SYS_CIDADES VALUES(3945, 'Caxias do Sul', 23, 4305108); +INSERT INTO SYS_CIDADES VALUES(3946, 'Centenrio', 23, 4305116); +INSERT INTO SYS_CIDADES VALUES(3947, 'Cerrito', 23, 4305124); +INSERT INTO SYS_CIDADES VALUES(3948, 'Cerro Branco', 23, 4305132); +INSERT INTO SYS_CIDADES VALUES(3949, 'Cerro Grande', 23, 4305157); +INSERT INTO SYS_CIDADES VALUES(3950, 'Cerro Grande do Sul', 23, 4305173); +INSERT INTO SYS_CIDADES VALUES(3951, 'Cerro Largo', 23, 4305207); +INSERT INTO SYS_CIDADES VALUES(3952, 'Chapada', 23, 4305306); +INSERT INTO SYS_CIDADES VALUES(3953, 'Charqueadas', 23, 4305355); +INSERT INTO SYS_CIDADES VALUES(3954, 'Charrua', 23, 4305371); +INSERT INTO SYS_CIDADES VALUES(3955, 'Chiapetta', 23, 4305405); +INSERT INTO SYS_CIDADES VALUES(3956, 'Chu', 23, 4305439); +INSERT INTO SYS_CIDADES VALUES(3957, 'Chuvisca', 23, 4305447); +INSERT INTO SYS_CIDADES VALUES(3958, 'Cidreira', 23, 4305454); +INSERT INTO SYS_CIDADES VALUES(3959, 'Ciraco', 23, 4305504); +INSERT INTO SYS_CIDADES VALUES(3960, 'Colinas', 23, 4305587); +INSERT INTO SYS_CIDADES VALUES(3961, 'Colorado', 23, 4305603); +INSERT INTO SYS_CIDADES VALUES(3962, 'Condor', 23, 4305702); +INSERT INTO SYS_CIDADES VALUES(3963, 'Constantina', 23, 4305801); +INSERT INTO SYS_CIDADES VALUES(3964, 'Coqueiro Baixo', 23, 4305835); +INSERT INTO SYS_CIDADES VALUES(3965, 'Coqueiros do Sul', 23, 4305850); +INSERT INTO SYS_CIDADES VALUES(3966, 'Coronel Barros', 23, 4305871); +INSERT INTO SYS_CIDADES VALUES(3967, 'Coronel Bicaco', 23, 4305900); +INSERT INTO SYS_CIDADES VALUES(3968, 'Coronel Pilar', 23, 4305934); +INSERT INTO SYS_CIDADES VALUES(3969, 'Cotipor', 23, 4305959); +INSERT INTO SYS_CIDADES VALUES(3970, 'Coxilha', 23, 4305975); +INSERT INTO SYS_CIDADES VALUES(3971, 'Crissiumal', 23, 4306007); +INSERT INTO SYS_CIDADES VALUES(3972, 'Cristal', 23, 4306056); +INSERT INTO SYS_CIDADES VALUES(3973, 'Cristal do Sul', 23, 4306072); +INSERT INTO SYS_CIDADES VALUES(3974, 'Cruz Alta', 23, 4306106); +INSERT INTO SYS_CIDADES VALUES(3975, 'Cruzaltense', 23, 4306130); +INSERT INTO SYS_CIDADES VALUES(3976, 'Cruzeiro do Sul', 23, 4306205); +INSERT INTO SYS_CIDADES VALUES(3977, 'David Canabarro', 23, 4306304); +INSERT INTO SYS_CIDADES VALUES(3978, 'Derrubadas', 23, 4306320); +INSERT INTO SYS_CIDADES VALUES(3979, 'Dezesseis de Novembro', 23, 4306353); +INSERT INTO SYS_CIDADES VALUES(3980, 'Dilermando de Aguiar', 23, 4306379); +INSERT INTO SYS_CIDADES VALUES(3981, 'Dois Irmos', 23, 4306403); +INSERT INTO SYS_CIDADES VALUES(3982, 'Dois Irmos das Misses', 23, 4306429); +INSERT INTO SYS_CIDADES VALUES(3983, 'Dois Lajeados', 23, 4306452); +INSERT INTO SYS_CIDADES VALUES(3984, 'Dom Feliciano', 23, 4306502); +INSERT INTO SYS_CIDADES VALUES(3985, 'Dom Pedrito', 23, 4306601); +INSERT INTO SYS_CIDADES VALUES(3986, 'Dom Pedro de Alcntara', 23, 4306551); +INSERT INTO SYS_CIDADES VALUES(3987, 'Dona Francisca', 23, 4306700); +INSERT INTO SYS_CIDADES VALUES(3988, 'Doutor Maurcio Cardoso', 23, 4306734); +INSERT INTO SYS_CIDADES VALUES(3989, 'Doutor Ricardo', 23, 4306759); +INSERT INTO SYS_CIDADES VALUES(3990, 'Eldorado do Sul', 23, 4306767); +INSERT INTO SYS_CIDADES VALUES(3991, 'Encantado', 23, 4306809); +INSERT INTO SYS_CIDADES VALUES(3992, 'Encruzilhada do Sul', 23, 4306908); +INSERT INTO SYS_CIDADES VALUES(3993, 'Engenho Velho', 23, 4306924); +INSERT INTO SYS_CIDADES VALUES(3994, 'Entre Rios do Sul', 23, 4306957); +INSERT INTO SYS_CIDADES VALUES(3995, 'Entre-Ijus', 23, 4306932); +INSERT INTO SYS_CIDADES VALUES(3996, 'Erebango', 23, 4306973); +INSERT INTO SYS_CIDADES VALUES(3997, 'Erechim', 23, 4307005); +INSERT INTO SYS_CIDADES VALUES(3998, 'Ernestina', 23, 4307054); +INSERT INTO SYS_CIDADES VALUES(3999, 'Erval Grande', 23, 4307203); +INSERT INTO SYS_CIDADES VALUES(4000, 'Erval Seco', 23, 4307302); +INSERT INTO SYS_CIDADES VALUES(4001, 'Esmeralda', 23, 4307401); +INSERT INTO SYS_CIDADES VALUES(4002, 'Esperana do Sul', 23, 4307450); +INSERT INTO SYS_CIDADES VALUES(4003, 'Espumoso', 23, 4307500); +INSERT INTO SYS_CIDADES VALUES(4004, 'Estao', 23, 4307559); +INSERT INTO SYS_CIDADES VALUES(4005, 'Estncia Velha', 23, 4307609); +INSERT INTO SYS_CIDADES VALUES(4006, 'Esteio', 23, 4307708); +INSERT INTO SYS_CIDADES VALUES(4007, 'Estrela', 23, 4307807); +INSERT INTO SYS_CIDADES VALUES(4008, 'Estrela Velha', 23, 4307815); +INSERT INTO SYS_CIDADES VALUES(4009, 'Eugnio de Castro', 23, 4307831); +INSERT INTO SYS_CIDADES VALUES(4010, 'Fagundes Varela', 23, 4307864); +INSERT INTO SYS_CIDADES VALUES(4011, 'Farroupilha', 23, 4307906); +INSERT INTO SYS_CIDADES VALUES(4012, 'Faxinal do Soturno', 23, 4308003); +INSERT INTO SYS_CIDADES VALUES(4013, 'Faxinalzinho', 23, 4308052); +INSERT INTO SYS_CIDADES VALUES(4014, 'Fazenda Vilanova', 23, 4308078); +INSERT INTO SYS_CIDADES VALUES(4015, 'Feliz', 23, 4308102); +INSERT INTO SYS_CIDADES VALUES(4016, 'Flores da Cunha', 23, 4308201); +INSERT INTO SYS_CIDADES VALUES(4017, 'Floriano Peixoto', 23, 4308250); +INSERT INTO SYS_CIDADES VALUES(4018, 'Fontoura Xavier', 23, 4308300); +INSERT INTO SYS_CIDADES VALUES(4019, 'Formigueiro', 23, 4308409); +INSERT INTO SYS_CIDADES VALUES(4020, 'Forquetinha', 23, 4308433); +INSERT INTO SYS_CIDADES VALUES(4021, 'Fortaleza dos Valos', 23, 4308458); +INSERT INTO SYS_CIDADES VALUES(4022, 'Frederico Westphalen', 23, 4308508); +INSERT INTO SYS_CIDADES VALUES(4023, 'Garibaldi', 23, 4308607); +INSERT INTO SYS_CIDADES VALUES(4024, 'Garruchos', 23, 4308656); +INSERT INTO SYS_CIDADES VALUES(4025, 'Gaurama', 23, 4308706); +INSERT INTO SYS_CIDADES VALUES(4026, 'General Cmara', 23, 4308805); +INSERT INTO SYS_CIDADES VALUES(4027, 'Gentil', 23, 4308854); +INSERT INTO SYS_CIDADES VALUES(4028, 'Getlio Vargas', 23, 4308904); +INSERT INTO SYS_CIDADES VALUES(4029, 'Giru', 23, 4309001); +INSERT INTO SYS_CIDADES VALUES(4030, 'Glorinha', 23, 4309050); +INSERT INTO SYS_CIDADES VALUES(4031, 'Gramado', 23, 4309100); +INSERT INTO SYS_CIDADES VALUES(4032, 'Gramado dos Loureiros', 23, 4309126); +INSERT INTO SYS_CIDADES VALUES(4033, 'Gramado Xavier', 23, 4309159); +INSERT INTO SYS_CIDADES VALUES(4034, 'Gravata', 23, 4309209); +INSERT INTO SYS_CIDADES VALUES(4035, 'Guabiju', 23, 4309258); +INSERT INTO SYS_CIDADES VALUES(4036, 'Guaba', 23, 4309308); +INSERT INTO SYS_CIDADES VALUES(4037, 'Guapor', 23, 4309407); +INSERT INTO SYS_CIDADES VALUES(4038, 'Guarani das Misses', 23, 4309506); +INSERT INTO SYS_CIDADES VALUES(4039, 'Harmonia', 23, 4309555); +INSERT INTO SYS_CIDADES VALUES(4040, 'Herval', 23, 4307104); +INSERT INTO SYS_CIDADES VALUES(4041, 'Herveiras', 23, 4309571); +INSERT INTO SYS_CIDADES VALUES(4042, 'Horizontina', 23, 4309605); +INSERT INTO SYS_CIDADES VALUES(4043, 'Hulha Negra', 23, 4309654); +INSERT INTO SYS_CIDADES VALUES(4044, 'Humait', 23, 4309704); +INSERT INTO SYS_CIDADES VALUES(4045, 'Ibarama', 23, 4309753); +INSERT INTO SYS_CIDADES VALUES(4046, 'Ibia', 23, 4309803); +INSERT INTO SYS_CIDADES VALUES(4047, 'Ibiraiaras', 23, 4309902); +INSERT INTO SYS_CIDADES VALUES(4048, 'Ibirapuit', 23, 4309951); +INSERT INTO SYS_CIDADES VALUES(4049, 'Ibirub', 23, 4310009); +INSERT INTO SYS_CIDADES VALUES(4050, 'Igrejinha', 23, 4310108); +INSERT INTO SYS_CIDADES VALUES(4051, 'Iju', 23, 4310207); +INSERT INTO SYS_CIDADES VALUES(4052, 'Ilpolis', 23, 4310306); +INSERT INTO SYS_CIDADES VALUES(4053, 'Imb', 23, 4310330); +INSERT INTO SYS_CIDADES VALUES(4054, 'Imigrante', 23, 4310363); +INSERT INTO SYS_CIDADES VALUES(4055, 'Independncia', 23, 4310405); +INSERT INTO SYS_CIDADES VALUES(4056, 'Inhacor', 23, 4310413); +INSERT INTO SYS_CIDADES VALUES(4057, 'Ip', 23, 4310439); +INSERT INTO SYS_CIDADES VALUES(4058, 'Ipiranga do Sul', 23, 4310462); +INSERT INTO SYS_CIDADES VALUES(4059, 'Ira', 23, 4310504); +INSERT INTO SYS_CIDADES VALUES(4060, 'Itaara', 23, 4310538); +INSERT INTO SYS_CIDADES VALUES(4061, 'Itacurubi', 23, 4310553); +INSERT INTO SYS_CIDADES VALUES(4062, 'Itapuca', 23, 4310579); +INSERT INTO SYS_CIDADES VALUES(4063, 'Itaqui', 23, 4310603); +INSERT INTO SYS_CIDADES VALUES(4064, 'Itati', 23, 4310652); +INSERT INTO SYS_CIDADES VALUES(4065, 'Itatiba do Sul', 23, 4310702); +INSERT INTO SYS_CIDADES VALUES(4066, 'Ivor', 23, 4310751); +INSERT INTO SYS_CIDADES VALUES(4067, 'Ivoti', 23, 4310801); +INSERT INTO SYS_CIDADES VALUES(4068, 'Jaboticaba', 23, 4310850); +INSERT INTO SYS_CIDADES VALUES(4069, 'Jacuizinho', 23, 4310876); +INSERT INTO SYS_CIDADES VALUES(4070, 'Jacutinga', 23, 4310900); +INSERT INTO SYS_CIDADES VALUES(4071, 'Jaguaro', 23, 4311007); +INSERT INTO SYS_CIDADES VALUES(4072, 'Jaguari', 23, 4311106); +INSERT INTO SYS_CIDADES VALUES(4073, 'Jaquirana', 23, 4311122); +INSERT INTO SYS_CIDADES VALUES(4074, 'Jari', 23, 4311130); +INSERT INTO SYS_CIDADES VALUES(4075, 'Jia', 23, 4311155); +INSERT INTO SYS_CIDADES VALUES(4076, 'Jlio de Castilhos', 23, 4311205); +INSERT INTO SYS_CIDADES VALUES(4077, 'Lagoa Bonita do Sul', 23, 4311239); +INSERT INTO SYS_CIDADES VALUES(4078, 'Lagoa dos Trs Cantos', 23, 4311270); +INSERT INTO SYS_CIDADES VALUES(4079, 'Lagoa Vermelha', 23, 4311304); +INSERT INTO SYS_CIDADES VALUES(4080, 'Lagoo', 23, 4311254); +INSERT INTO SYS_CIDADES VALUES(4081, 'Lajeado', 23, 4311403); +INSERT INTO SYS_CIDADES VALUES(4082, 'Lajeado do Bugre', 23, 4311429); +INSERT INTO SYS_CIDADES VALUES(4083, 'Lavras do Sul', 23, 4311502); +INSERT INTO SYS_CIDADES VALUES(4084, 'Liberato Salzano', 23, 4311601); +INSERT INTO SYS_CIDADES VALUES(4085, 'Lindolfo Collor', 23, 4311627); +INSERT INTO SYS_CIDADES VALUES(4086, 'Linha Nova', 23, 4311643); +INSERT INTO SYS_CIDADES VALUES(4087, 'Maambara', 23, 4311718); +INSERT INTO SYS_CIDADES VALUES(4088, 'Machadinho', 23, 4311700); +INSERT INTO SYS_CIDADES VALUES(4089, 'Mampituba', 23, 4311734); +INSERT INTO SYS_CIDADES VALUES(4090, 'Manoel Viana', 23, 4311759); +INSERT INTO SYS_CIDADES VALUES(4091, 'Maquin', 23, 4311775); +INSERT INTO SYS_CIDADES VALUES(4092, 'Marat', 23, 4311791); +INSERT INTO SYS_CIDADES VALUES(4093, 'Marau', 23, 4311809); +INSERT INTO SYS_CIDADES VALUES(4094, 'Marcelino Ramos', 23, 4311908); +INSERT INTO SYS_CIDADES VALUES(4095, 'Mariana Pimentel', 23, 4311981); +INSERT INTO SYS_CIDADES VALUES(4096, 'Mariano Moro', 23, 4312005); +INSERT INTO SYS_CIDADES VALUES(4097, 'Marques de Souza', 23, 4312054); +INSERT INTO SYS_CIDADES VALUES(4098, 'Mata', 23, 4312104); +INSERT INTO SYS_CIDADES VALUES(4099, 'Mato Castelhano', 23, 4312138); +INSERT INTO SYS_CIDADES VALUES(4100, 'Mato Leito', 23, 4312153); +INSERT INTO SYS_CIDADES VALUES(4101, 'Mato Queimado', 23, 4312179); +INSERT INTO SYS_CIDADES VALUES(4102, 'Maximiliano de Almeida', 23, 4312203); +INSERT INTO SYS_CIDADES VALUES(4103, 'Minas do Leo', 23, 4312252); +INSERT INTO SYS_CIDADES VALUES(4104, 'Miragua', 23, 4312302); +INSERT INTO SYS_CIDADES VALUES(4105, 'Montauri', 23, 4312351); +INSERT INTO SYS_CIDADES VALUES(4106, 'Monte Alegre dos Campos', 23, 4312377); +INSERT INTO SYS_CIDADES VALUES(4107, 'Monte Belo do Sul', 23, 4312385); +INSERT INTO SYS_CIDADES VALUES(4108, 'Montenegro', 23, 4312401); +INSERT INTO SYS_CIDADES VALUES(4109, 'Mormao', 23, 4312427); +INSERT INTO SYS_CIDADES VALUES(4110, 'Morrinhos do Sul', 23, 4312443); +INSERT INTO SYS_CIDADES VALUES(4111, 'Morro Redondo', 23, 4312450); +INSERT INTO SYS_CIDADES VALUES(4112, 'Morro Reuter', 23, 4312476); +INSERT INTO SYS_CIDADES VALUES(4113, 'Mostardas', 23, 4312500); +INSERT INTO SYS_CIDADES VALUES(4114, 'Muum', 23, 4312609); +INSERT INTO SYS_CIDADES VALUES(4115, 'Muitos Capes', 23, 4312617); +INSERT INTO SYS_CIDADES VALUES(4116, 'Muliterno', 23, 4312625); +INSERT INTO SYS_CIDADES VALUES(4117, 'No-Me-Toque', 23, 4312658); +INSERT INTO SYS_CIDADES VALUES(4118, 'Nicolau Vergueiro', 23, 4312674); +INSERT INTO SYS_CIDADES VALUES(4119, 'Nonoai', 23, 4312708); +INSERT INTO SYS_CIDADES VALUES(4120, 'Nova Alvorada', 23, 4312757); +INSERT INTO SYS_CIDADES VALUES(4121, 'Nova Ara', 23, 4312807); +INSERT INTO SYS_CIDADES VALUES(4122, 'Nova Bassano', 23, 4312906); +INSERT INTO SYS_CIDADES VALUES(4123, 'Nova Boa Vista', 23, 4312955); +INSERT INTO SYS_CIDADES VALUES(4124, 'Nova Brscia', 23, 4313003); +INSERT INTO SYS_CIDADES VALUES(4125, 'Nova Candelria', 23, 4313011); +INSERT INTO SYS_CIDADES VALUES(4126, 'Nova Esperana do Sul', 23, 4313037); +INSERT INTO SYS_CIDADES VALUES(4127, 'Nova Hartz', 23, 4313060); +INSERT INTO SYS_CIDADES VALUES(4128, 'Nova Pdua', 23, 4313086); +INSERT INTO SYS_CIDADES VALUES(4129, 'Nova Palma', 23, 4313102); +INSERT INTO SYS_CIDADES VALUES(4130, 'Nova Petrpolis', 23, 4313201); +INSERT INTO SYS_CIDADES VALUES(4131, 'Nova Prata', 23, 4313300); +INSERT INTO SYS_CIDADES VALUES(4132, 'Nova Ramada', 23, 4313334); +INSERT INTO SYS_CIDADES VALUES(4133, 'Nova Roma do Sul', 23, 4313359); +INSERT INTO SYS_CIDADES VALUES(4134, 'Nova Santa Rita', 23, 4313375); +INSERT INTO SYS_CIDADES VALUES(4135, 'Novo Barreiro', 23, 4313490); +INSERT INTO SYS_CIDADES VALUES(4136, 'Novo Cabrais', 23, 4313391); +INSERT INTO SYS_CIDADES VALUES(4137, 'Novo Hamburgo', 23, 4313409); +INSERT INTO SYS_CIDADES VALUES(4138, 'Novo Machado', 23, 4313425); +INSERT INTO SYS_CIDADES VALUES(4139, 'Novo Tiradentes', 23, 4313441); +INSERT INTO SYS_CIDADES VALUES(4140, 'Novo Xingu', 23, 4313466); +INSERT INTO SYS_CIDADES VALUES(4141, 'Osrio', 23, 4313508); +INSERT INTO SYS_CIDADES VALUES(4142, 'Paim Filho', 23, 4313607); +INSERT INTO SYS_CIDADES VALUES(4143, 'Palmares do Sul', 23, 4313656); +INSERT INTO SYS_CIDADES VALUES(4144, 'Palmeira das Misses', 23, 4313706); +INSERT INTO SYS_CIDADES VALUES(4145, 'Palmitinho', 23, 4313805); +INSERT INTO SYS_CIDADES VALUES(4146, 'Panambi', 23, 4313904); +INSERT INTO SYS_CIDADES VALUES(4147, 'Pantano Grande', 23, 4313953); +INSERT INTO SYS_CIDADES VALUES(4148, 'Para', 23, 4314001); +INSERT INTO SYS_CIDADES VALUES(4149, 'Paraso do Sul', 23, 4314027); +INSERT INTO SYS_CIDADES VALUES(4150, 'Pareci Novo', 23, 4314035); +INSERT INTO SYS_CIDADES VALUES(4151, 'Parob', 23, 4314050); +INSERT INTO SYS_CIDADES VALUES(4152, 'Passa Sete', 23, 4314068); +INSERT INTO SYS_CIDADES VALUES(4153, 'Passo do Sobrado', 23, 4314076); +INSERT INTO SYS_CIDADES VALUES(4154, 'Passo Fundo', 23, 4314100); +INSERT INTO SYS_CIDADES VALUES(4155, 'Paulo Bento', 23, 4314134); +INSERT INTO SYS_CIDADES VALUES(4156, 'Paverama', 23, 4314159); +INSERT INTO SYS_CIDADES VALUES(4157, 'Pedras Altas', 23, 4314175); +INSERT INTO SYS_CIDADES VALUES(4158, 'Pedro Osrio', 23, 4314209); +INSERT INTO SYS_CIDADES VALUES(4159, 'Pejuara', 23, 4314308); +INSERT INTO SYS_CIDADES VALUES(4160, 'Pelotas', 23, 4314407); +INSERT INTO SYS_CIDADES VALUES(4161, 'Picada Caf', 23, 4314423); +INSERT INTO SYS_CIDADES VALUES(4162, 'Pinhal', 23, 4314456); +INSERT INTO SYS_CIDADES VALUES(4163, 'Pinhal da Serra', 23, 4314464); +INSERT INTO SYS_CIDADES VALUES(4164, 'Pinhal Grande', 23, 4314472); +INSERT INTO SYS_CIDADES VALUES(4165, 'Pinheirinho do Vale', 23, 4314498); +INSERT INTO SYS_CIDADES VALUES(4166, 'Pinheiro Machado', 23, 4314506); +INSERT INTO SYS_CIDADES VALUES(4167, 'Pirap', 23, 4314555); +INSERT INTO SYS_CIDADES VALUES(4168, 'Piratini', 23, 4314605); +INSERT INTO SYS_CIDADES VALUES(4169, 'Planalto', 23, 4314704); +INSERT INTO SYS_CIDADES VALUES(4170, 'Poo das Antas', 23, 4314753); +INSERT INTO SYS_CIDADES VALUES(4171, 'Ponto', 23, 4314779); +INSERT INTO SYS_CIDADES VALUES(4172, 'Ponte Preta', 23, 4314787); +INSERT INTO SYS_CIDADES VALUES(4173, 'Porto', 23, 4314803); +INSERT INTO SYS_CIDADES VALUES(4174, 'Porto Alegre', 23, 4314902); +INSERT INTO SYS_CIDADES VALUES(4175, 'Porto Lucena', 23, 4315008); +INSERT INTO SYS_CIDADES VALUES(4176, 'Porto Mau', 23, 4315057); +INSERT INTO SYS_CIDADES VALUES(4177, 'Porto Vera Cruz', 23, 4315073); +INSERT INTO SYS_CIDADES VALUES(4178, 'Porto Xavier', 23, 4315107); +INSERT INTO SYS_CIDADES VALUES(4179, 'Pouso Novo', 23, 4315131); +INSERT INTO SYS_CIDADES VALUES(4180, 'Presidente Lucena', 23, 4315149); +INSERT INTO SYS_CIDADES VALUES(4181, 'Progresso', 23, 4315156); +INSERT INTO SYS_CIDADES VALUES(4182, 'Protsio Alves', 23, 4315172); +INSERT INTO SYS_CIDADES VALUES(4183, 'Putinga', 23, 4315206); +INSERT INTO SYS_CIDADES VALUES(4184, 'Quara', 23, 4315305); +INSERT INTO SYS_CIDADES VALUES(4185, 'Quatro Irmos', 23, 4315313); +INSERT INTO SYS_CIDADES VALUES(4186, 'Quevedos', 23, 4315321); +INSERT INTO SYS_CIDADES VALUES(4187, 'Quinze de Novembro', 23, 4315354); +INSERT INTO SYS_CIDADES VALUES(4188, 'Redentora', 23, 4315404); +INSERT INTO SYS_CIDADES VALUES(4189, 'Relvado', 23, 4315453); +INSERT INTO SYS_CIDADES VALUES(4190, 'Restinga Seca', 23, 4315503); +INSERT INTO SYS_CIDADES VALUES(4191, 'Rio dos ndios', 23, 4315552); +INSERT INTO SYS_CIDADES VALUES(4192, 'Rio Grande', 23, 4315602); +INSERT INTO SYS_CIDADES VALUES(4193, 'Rio Pardo', 23, 4315701); +INSERT INTO SYS_CIDADES VALUES(4194, 'Riozinho', 23, 4315750); +INSERT INTO SYS_CIDADES VALUES(4195, 'Roca Sales', 23, 4315800); +INSERT INTO SYS_CIDADES VALUES(4196, 'Rodeio Bonito', 23, 4315909); +INSERT INTO SYS_CIDADES VALUES(4197, 'Rolador', 23, 4315958); +INSERT INTO SYS_CIDADES VALUES(4198, 'Rolante', 23, 4316006); +INSERT INTO SYS_CIDADES VALUES(4199, 'Ronda Alta', 23, 4316105); +INSERT INTO SYS_CIDADES VALUES(4200, 'Rondinha', 23, 4316204); +INSERT INTO SYS_CIDADES VALUES(4201, 'Roque Gonzales', 23, 4316303); +INSERT INTO SYS_CIDADES VALUES(4202, 'Rosrio do Sul', 23, 4316402); +INSERT INTO SYS_CIDADES VALUES(4203, 'Sagrada Famlia', 23, 4316428); +INSERT INTO SYS_CIDADES VALUES(4204, 'Saldanha Marinho', 23, 4316436); +INSERT INTO SYS_CIDADES VALUES(4205, 'Salto do Jacu', 23, 4316451); +INSERT INTO SYS_CIDADES VALUES(4206, 'Salvador das Misses', 23, 4316477); +INSERT INTO SYS_CIDADES VALUES(4207, 'Salvador do Sul', 23, 4316501); +INSERT INTO SYS_CIDADES VALUES(4208, 'Sananduva', 23, 4316600); +INSERT INTO SYS_CIDADES VALUES(4209, 'Santa Brbara do Sul', 23, 4316709); +INSERT INTO SYS_CIDADES VALUES(4210, 'Santa Ceclia do Sul', 23, 4316733); +INSERT INTO SYS_CIDADES VALUES(4211, 'Santa Clara do Sul', 23, 4316758); +INSERT INTO SYS_CIDADES VALUES(4212, 'Santa Cruz do Sul', 23, 4316808); +INSERT INTO SYS_CIDADES VALUES(4213, 'Santa Margarida do Sul', 23, 4316972); +INSERT INTO SYS_CIDADES VALUES(4214, 'Santa Maria', 23, 4316907); +INSERT INTO SYS_CIDADES VALUES(4215, 'Santa Maria do Herval', 23, 4316956); +INSERT INTO SYS_CIDADES VALUES(4216, 'Santa Rosa', 23, 4317202); +INSERT INTO SYS_CIDADES VALUES(4217, 'Santa Tereza', 23, 4317251); +INSERT INTO SYS_CIDADES VALUES(4218, 'Santa Vitria do Palmar', 23, 4317301); +INSERT INTO SYS_CIDADES VALUES(4219, 'Santana da Boa Vista', 23, 4317004); +INSERT INTO SYS_CIDADES VALUES(4220, 'Santana do Livramento', 23, 4317103); +INSERT INTO SYS_CIDADES VALUES(4221, 'Santiago', 23, 4317400); +INSERT INTO SYS_CIDADES VALUES(4222, 'Santo ngelo', 23, 4317509); +INSERT INTO SYS_CIDADES VALUES(4223, 'Santo Antnio da Patrulha', 23, 4317608); +INSERT INTO SYS_CIDADES VALUES(4224, 'Santo Antnio das Misses', 23, 4317707); +INSERT INTO SYS_CIDADES VALUES(4225, 'Santo Antnio do Palma', 23, 4317558); +INSERT INTO SYS_CIDADES VALUES(4226, 'Santo Antnio do Planalto', 23, 4317756); +INSERT INTO SYS_CIDADES VALUES(4227, 'Santo Augusto', 23, 4317806); +INSERT INTO SYS_CIDADES VALUES(4228, 'Santo Cristo', 23, 4317905); +INSERT INTO SYS_CIDADES VALUES(4229, 'Santo Expedito do Sul', 23, 4317954); +INSERT INTO SYS_CIDADES VALUES(4230, 'So Borja', 23, 4318002); +INSERT INTO SYS_CIDADES VALUES(4231, 'So Domingos do Sul', 23, 4318051); +INSERT INTO SYS_CIDADES VALUES(4232, 'So Francisco de Assis', 23, 4318101); +INSERT INTO SYS_CIDADES VALUES(4233, 'So Francisco de Paula', 23, 4318200); +INSERT INTO SYS_CIDADES VALUES(4234, 'So Gabriel', 23, 4318309); +INSERT INTO SYS_CIDADES VALUES(4235, 'So Jernimo', 23, 4318408); +INSERT INTO SYS_CIDADES VALUES(4236, 'So Joo da Urtiga', 23, 4318424); +INSERT INTO SYS_CIDADES VALUES(4237, 'So Joo do Polsine', 23, 4318432); +INSERT INTO SYS_CIDADES VALUES(4238, 'So Jorge', 23, 4318440); +INSERT INTO SYS_CIDADES VALUES(4239, 'So Jos das Misses', 23, 4318457); +INSERT INTO SYS_CIDADES VALUES(4240, 'So Jos do Herval', 23, 4318465); +INSERT INTO SYS_CIDADES VALUES(4241, 'So Jos do Hortncio', 23, 4318481); +INSERT INTO SYS_CIDADES VALUES(4242, 'So Jos do Inhacor', 23, 4318499); +INSERT INTO SYS_CIDADES VALUES(4243, 'So Jos do Norte', 23, 4318507); +INSERT INTO SYS_CIDADES VALUES(4244, 'So Jos do Ouro', 23, 4318606); +INSERT INTO SYS_CIDADES VALUES(4245, 'So Jos do Sul', 23, 4318614); +INSERT INTO SYS_CIDADES VALUES(4246, 'So Jos dos Ausentes', 23, 4318622); +INSERT INTO SYS_CIDADES VALUES(4247, 'So Leopoldo', 23, 4318705); +INSERT INTO SYS_CIDADES VALUES(4248, 'So Loureno do Sul', 23, 4318804); +INSERT INTO SYS_CIDADES VALUES(4249, 'So Luiz Gonzaga', 23, 4318903); +INSERT INTO SYS_CIDADES VALUES(4250, 'So Marcos', 23, 4319000); +INSERT INTO SYS_CIDADES VALUES(4251, 'So Martinho', 23, 4319109); +INSERT INTO SYS_CIDADES VALUES(4252, 'So Martinho da Serra', 23, 4319125); +INSERT INTO SYS_CIDADES VALUES(4253, 'So Miguel das Misses', 23, 4319158); +INSERT INTO SYS_CIDADES VALUES(4254, 'So Nicolau', 23, 4319208); +INSERT INTO SYS_CIDADES VALUES(4255, 'So Paulo das Misses', 23, 4319307); +INSERT INTO SYS_CIDADES VALUES(4256, 'So Pedro da Serra', 23, 4319356); +INSERT INTO SYS_CIDADES VALUES(4257, 'So Pedro das Misses', 23, 4319364); +INSERT INTO SYS_CIDADES VALUES(4258, 'So Pedro do Buti', 23, 4319372); +INSERT INTO SYS_CIDADES VALUES(4259, 'So Pedro do Sul', 23, 4319406); +INSERT INTO SYS_CIDADES VALUES(4260, 'So Sebastio do Ca', 23, 4319505); +INSERT INTO SYS_CIDADES VALUES(4261, 'So Sep', 23, 4319604); +INSERT INTO SYS_CIDADES VALUES(4262, 'So Valentim', 23, 4319703); +INSERT INTO SYS_CIDADES VALUES(4263, 'So Valentim do Sul', 23, 4319711); +INSERT INTO SYS_CIDADES VALUES(4264, 'So Valrio do Sul', 23, 4319737); +INSERT INTO SYS_CIDADES VALUES(4265, 'So Vendelino', 23, 4319752); +INSERT INTO SYS_CIDADES VALUES(4266, 'So Vicente do Sul', 23, 4319802); +INSERT INTO SYS_CIDADES VALUES(4267, 'Sapiranga', 23, 4319901); +INSERT INTO SYS_CIDADES VALUES(4268, 'Sapucaia do Sul', 23, 4320008); +INSERT INTO SYS_CIDADES VALUES(4269, 'Sarandi', 23, 4320107); +INSERT INTO SYS_CIDADES VALUES(4270, 'Seberi', 23, 4320206); +INSERT INTO SYS_CIDADES VALUES(4271, 'Sede Nova', 23, 4320230); +INSERT INTO SYS_CIDADES VALUES(4272, 'Segredo', 23, 4320263); +INSERT INTO SYS_CIDADES VALUES(4273, 'Selbach', 23, 4320305); +INSERT INTO SYS_CIDADES VALUES(4274, 'Senador Salgado Filho', 23, 4320321); +INSERT INTO SYS_CIDADES VALUES(4275, 'Sentinela do Sul', 23, 4320354); +INSERT INTO SYS_CIDADES VALUES(4276, 'Serafina Corra', 23, 4320404); +INSERT INTO SYS_CIDADES VALUES(4277, 'Srio', 23, 4320453); +INSERT INTO SYS_CIDADES VALUES(4278, 'Serto', 23, 4320503); +INSERT INTO SYS_CIDADES VALUES(4279, 'Serto Santana', 23, 4320552); +INSERT INTO SYS_CIDADES VALUES(4280, 'Sete de Setembro', 23, 4320578); +INSERT INTO SYS_CIDADES VALUES(4281, 'Severiano de Almeida', 23, 4320602); +INSERT INTO SYS_CIDADES VALUES(4282, 'Silveira Martins', 23, 4320651); +INSERT INTO SYS_CIDADES VALUES(4283, 'Sinimbu', 23, 4320677); +INSERT INTO SYS_CIDADES VALUES(4284, 'Sobradinho', 23, 4320701); +INSERT INTO SYS_CIDADES VALUES(4285, 'Soledade', 23, 4320800); +INSERT INTO SYS_CIDADES VALUES(4286, 'Taba', 23, 4320859); +INSERT INTO SYS_CIDADES VALUES(4287, 'Tapejara', 23, 4320909); +INSERT INTO SYS_CIDADES VALUES(4288, 'Tapera', 23, 4321006); +INSERT INTO SYS_CIDADES VALUES(4289, 'Tapes', 23, 4321105); +INSERT INTO SYS_CIDADES VALUES(4290, 'Taquara', 23, 4321204); +INSERT INTO SYS_CIDADES VALUES(4291, 'Taquari', 23, 4321303); +INSERT INTO SYS_CIDADES VALUES(4292, 'Taquaruu do Sul', 23, 4321329); +INSERT INTO SYS_CIDADES VALUES(4293, 'Tavares', 23, 4321352); +INSERT INTO SYS_CIDADES VALUES(4294, 'Tenente Portela', 23, 4321402); +INSERT INTO SYS_CIDADES VALUES(4295, 'Terra de Areia', 23, 4321436); +INSERT INTO SYS_CIDADES VALUES(4296, 'Teutnia', 23, 4321451); +INSERT INTO SYS_CIDADES VALUES(4297, 'Tio Hugo', 23, 4321469); +INSERT INTO SYS_CIDADES VALUES(4298, 'Tiradentes do Sul', 23, 4321477); +INSERT INTO SYS_CIDADES VALUES(4299, 'Toropi', 23, 4321493); +INSERT INTO SYS_CIDADES VALUES(4300, 'Torres', 23, 4321501); +INSERT INTO SYS_CIDADES VALUES(4301, 'Tramanda', 23, 4321600); +INSERT INTO SYS_CIDADES VALUES(4302, 'Travesseiro', 23, 4321626); +INSERT INTO SYS_CIDADES VALUES(4303, 'Trs Arroios', 23, 4321634); +INSERT INTO SYS_CIDADES VALUES(4304, 'Trs Cachoeiras', 23, 4321667); +INSERT INTO SYS_CIDADES VALUES(4305, 'Trs Coroas', 23, 4321709); +INSERT INTO SYS_CIDADES VALUES(4306, 'Trs de Maio', 23, 4321808); +INSERT INTO SYS_CIDADES VALUES(4307, 'Trs Forquilhas', 23, 4321832); +INSERT INTO SYS_CIDADES VALUES(4308, 'Trs Palmeiras', 23, 4321857); +INSERT INTO SYS_CIDADES VALUES(4309, 'Trs Passos', 23, 4321907); +INSERT INTO SYS_CIDADES VALUES(4310, 'Trindade do Sul', 23, 4321956); +INSERT INTO SYS_CIDADES VALUES(4311, 'Triunfo', 23, 4322004); +INSERT INTO SYS_CIDADES VALUES(4312, 'Tucunduva', 23, 4322103); +INSERT INTO SYS_CIDADES VALUES(4313, 'Tunas', 23, 4322152); +INSERT INTO SYS_CIDADES VALUES(4314, 'Tupanci do Sul', 23, 4322186); +INSERT INTO SYS_CIDADES VALUES(4315, 'Tupanciret', 23, 4322202); +INSERT INTO SYS_CIDADES VALUES(4316, 'Tupandi', 23, 4322251); +INSERT INTO SYS_CIDADES VALUES(4317, 'Tuparendi', 23, 4322301); +INSERT INTO SYS_CIDADES VALUES(4318, 'Turuu', 23, 4322327); +INSERT INTO SYS_CIDADES VALUES(4319, 'Ubiretama', 23, 4322343); +INSERT INTO SYS_CIDADES VALUES(4320, 'Unio da Serra', 23, 4322350); +INSERT INTO SYS_CIDADES VALUES(4321, 'Unistalda', 23, 4322376); +INSERT INTO SYS_CIDADES VALUES(4322, 'Uruguaiana', 23, 4322400); +INSERT INTO SYS_CIDADES VALUES(4323, 'Vacaria', 23, 4322509); +INSERT INTO SYS_CIDADES VALUES(4324, 'Vale do Sol', 23, 4322533); +INSERT INTO SYS_CIDADES VALUES(4325, 'Vale Real', 23, 4322541); +INSERT INTO SYS_CIDADES VALUES(4326, 'Vale Verde', 23, 4322525); +INSERT INTO SYS_CIDADES VALUES(4327, 'Vanini', 23, 4322558); +INSERT INTO SYS_CIDADES VALUES(4328, 'Venncio Aires', 23, 4322608); +INSERT INTO SYS_CIDADES VALUES(4329, 'Vera Cruz', 23, 4322707); +INSERT INTO SYS_CIDADES VALUES(4330, 'Veranpolis', 23, 4322806); +INSERT INTO SYS_CIDADES VALUES(4331, 'Vespasiano Correa', 23, 4322855); +INSERT INTO SYS_CIDADES VALUES(4332, 'Viadutos', 23, 4322905); +INSERT INTO SYS_CIDADES VALUES(4333, 'Viamo', 23, 4323002); +INSERT INTO SYS_CIDADES VALUES(4334, 'Vicente Dutra', 23, 4323101); +INSERT INTO SYS_CIDADES VALUES(4335, 'Victor Graeff', 23, 4323200); +INSERT INTO SYS_CIDADES VALUES(4336, 'Vila Flores', 23, 4323309); +INSERT INTO SYS_CIDADES VALUES(4337, 'Vila Lngaro', 23, 4323358); +INSERT INTO SYS_CIDADES VALUES(4338, 'Vila Maria', 23, 4323408); +INSERT INTO SYS_CIDADES VALUES(4339, 'Vila Nova do Sul', 23, 4323457); +INSERT INTO SYS_CIDADES VALUES(4340, 'Vista Alegre', 23, 4323507); +INSERT INTO SYS_CIDADES VALUES(4341, 'Vista Alegre do Prata', 23, 4323606); +INSERT INTO SYS_CIDADES VALUES(4342, 'Vista Gacha', 23, 4323705); +INSERT INTO SYS_CIDADES VALUES(4343, 'Vitria das Misses', 23, 4323754); +INSERT INTO SYS_CIDADES VALUES(4344, 'Westflia', 23, 4323770); +INSERT INTO SYS_CIDADES VALUES(4345, 'Xangri-l', 23, 4323804); +INSERT INTO SYS_CIDADES VALUES(4346, 'Alta Floresta d`Oeste', 21, 1100015); +INSERT INTO SYS_CIDADES VALUES(4347, 'Alto Alegre dos Parecis', 21, 1100379); +INSERT INTO SYS_CIDADES VALUES(4348, 'Alto Paraso', 21, 1100403); +INSERT INTO SYS_CIDADES VALUES(4349, 'Alvorada d`Oeste', 21, 1100346); +INSERT INTO SYS_CIDADES VALUES(4350, 'Ariquemes', 21, 1100023); +INSERT INTO SYS_CIDADES VALUES(4351, 'Buritis', 21, 1100452); +INSERT INTO SYS_CIDADES VALUES(4352, 'Cabixi', 21, 1100031); +INSERT INTO SYS_CIDADES VALUES(4353, 'Cacaulndia', 21, 1100601); +INSERT INTO SYS_CIDADES VALUES(4354, 'Cacoal', 21, 1100049); +INSERT INTO SYS_CIDADES VALUES(4355, 'Campo Novo de Rondnia', 21, 1100700); +INSERT INTO SYS_CIDADES VALUES(4356, 'Candeias do Jamari', 21, 1100809); +INSERT INTO SYS_CIDADES VALUES(4357, 'Castanheiras', 21, 1100908); +INSERT INTO SYS_CIDADES VALUES(4358, 'Cerejeiras', 21, 1100056); +INSERT INTO SYS_CIDADES VALUES(4359, 'Chupinguaia', 21, 1100924); +INSERT INTO SYS_CIDADES VALUES(4360, 'Colorado do Oeste', 21, 1100064); +INSERT INTO SYS_CIDADES VALUES(4361, 'Corumbiara', 21, 1100072); +INSERT INTO SYS_CIDADES VALUES(4362, 'Costa Marques', 21, 1100080); +INSERT INTO SYS_CIDADES VALUES(4363, 'Cujubim', 21, 1100940); +INSERT INTO SYS_CIDADES VALUES(4364, 'Espigo d`Oeste', 21, 1100098); +INSERT INTO SYS_CIDADES VALUES(4365, 'Governador Jorge Teixeira', 21, 1101005); +INSERT INTO SYS_CIDADES VALUES(4366, 'Guajar-Mirim', 21, 1100106); +INSERT INTO SYS_CIDADES VALUES(4367, 'Itapu do Oeste', 21, 1101104); +INSERT INTO SYS_CIDADES VALUES(4368, 'Jaru', 21, 1100114); +INSERT INTO SYS_CIDADES VALUES(4369, 'Ji-Paran', 21, 1100122); +INSERT INTO SYS_CIDADES VALUES(4370, 'Machadinho d`Oeste', 21, 1100130); +INSERT INTO SYS_CIDADES VALUES(4371, 'Ministro Andreazza', 21, 1101203); +INSERT INTO SYS_CIDADES VALUES(4372, 'Mirante da Serra', 21, 1101302); +INSERT INTO SYS_CIDADES VALUES(4373, 'Monte Negro', 21, 1101401); +INSERT INTO SYS_CIDADES VALUES(4374, 'Nova Brasilndia d`Oeste', 21, 1100148); +INSERT INTO SYS_CIDADES VALUES(4375, 'Nova Mamor', 21, 1100338); +INSERT INTO SYS_CIDADES VALUES(4376, 'Nova Unio', 21, 1101435); +INSERT INTO SYS_CIDADES VALUES(4377, 'Novo Horizonte do Oeste', 21, 1100502); +INSERT INTO SYS_CIDADES VALUES(4378, 'Ouro Preto do Oeste', 21, 1100155); +INSERT INTO SYS_CIDADES VALUES(4379, 'Parecis', 21, 1101450); +INSERT INTO SYS_CIDADES VALUES(4380, 'Pimenta Bueno', 21, 1100189); +INSERT INTO SYS_CIDADES VALUES(4381, 'Pimenteiras do Oeste', 21, 1101468); +INSERT INTO SYS_CIDADES VALUES(4382, 'Porto Velho', 21, 1100205); +INSERT INTO SYS_CIDADES VALUES(4383, 'Presidente Mdici', 21, 1100254); +INSERT INTO SYS_CIDADES VALUES(4384, 'Primavera de Rondnia', 21, 1101476); +INSERT INTO SYS_CIDADES VALUES(4385, 'Rio Crespo', 21, 1100262); +INSERT INTO SYS_CIDADES VALUES(4386, 'Rolim de Moura', 21, 1100288); +INSERT INTO SYS_CIDADES VALUES(4387, 'Santa Luzia d`Oeste', 21, 1100296); +INSERT INTO SYS_CIDADES VALUES(4388, 'So Felipe d`Oeste', 21, 1101484); +INSERT INTO SYS_CIDADES VALUES(4389, 'So Francisco do Guapor', 21, 1101492); +INSERT INTO SYS_CIDADES VALUES(4390, 'So Miguel do Guapor', 21, 1100320); +INSERT INTO SYS_CIDADES VALUES(4391, 'Seringueiras', 21, 1101500); +INSERT INTO SYS_CIDADES VALUES(4392, 'Teixeirpolis', 21, 1101559); +INSERT INTO SYS_CIDADES VALUES(4393, 'Theobroma', 21, 1101609); +INSERT INTO SYS_CIDADES VALUES(4394, 'Urup', 21, 1101708); +INSERT INTO SYS_CIDADES VALUES(4395, 'Vale do Anari', 21, 1101757); +INSERT INTO SYS_CIDADES VALUES(4396, 'Vale do Paraso', 21, 1101807); +INSERT INTO SYS_CIDADES VALUES(4397, 'Vilhena', 21, 1100304); +INSERT INTO SYS_CIDADES VALUES(4398, 'Alto Alegre', 22, 1400050); +INSERT INTO SYS_CIDADES VALUES(4399, 'Amajari', 22, 1400027); +INSERT INTO SYS_CIDADES VALUES(4400, 'Boa Vista', 22, 1400100); +INSERT INTO SYS_CIDADES VALUES(4401, 'Bonfim', 22, 1400159); +INSERT INTO SYS_CIDADES VALUES(4402, 'Cant', 22, 1400175); +INSERT INTO SYS_CIDADES VALUES(4403, 'Caracara', 22, 1400209); +INSERT INTO SYS_CIDADES VALUES(4404, 'Caroebe', 22, 1400233); +INSERT INTO SYS_CIDADES VALUES(4405, 'Iracema', 22, 1400282); +INSERT INTO SYS_CIDADES VALUES(4406, 'Mucaja', 22, 1400308); +INSERT INTO SYS_CIDADES VALUES(4407, 'Normandia', 22, 1400407); +INSERT INTO SYS_CIDADES VALUES(4408, 'Pacaraima', 22, 1400456); +INSERT INTO SYS_CIDADES VALUES(4409, 'Rorainpolis', 22, 1400472); +INSERT INTO SYS_CIDADES VALUES(4410, 'So Joo da Baliza', 22, 1400506); +INSERT INTO SYS_CIDADES VALUES(4411, 'So Luiz', 22, 1400605); +INSERT INTO SYS_CIDADES VALUES(4412, 'Uiramut', 22, 1400704); +INSERT INTO SYS_CIDADES VALUES(4413, 'Abdon Batista', 24, 4200051); +INSERT INTO SYS_CIDADES VALUES(4414, 'Abelardo Luz', 24, 4200101); +INSERT INTO SYS_CIDADES VALUES(4415, 'Agrolndia', 24, 4200200); +INSERT INTO SYS_CIDADES VALUES(4416, 'Agronmica', 24, 4200309); +INSERT INTO SYS_CIDADES VALUES(4417, 'gua Doce', 24, 4200408); +INSERT INTO SYS_CIDADES VALUES(4418, 'guas de Chapec', 24, 4200507); +INSERT INTO SYS_CIDADES VALUES(4419, 'guas Frias', 24, 4200556); +INSERT INTO SYS_CIDADES VALUES(4420, 'guas Mornas', 24, 4200606); +INSERT INTO SYS_CIDADES VALUES(4421, 'Alfredo Wagner', 24, 4200705); +INSERT INTO SYS_CIDADES VALUES(4422, 'Alto Bela Vista', 24, 4200754); +INSERT INTO SYS_CIDADES VALUES(4423, 'Anchieta', 24, 4200804); +INSERT INTO SYS_CIDADES VALUES(4424, 'Angelina', 24, 4200903); +INSERT INTO SYS_CIDADES VALUES(4425, 'Anita Garibaldi', 24, 4201000); +INSERT INTO SYS_CIDADES VALUES(4426, 'Anitpolis', 24, 4201109); +INSERT INTO SYS_CIDADES VALUES(4427, 'Antnio Carlos', 24, 4201208); +INSERT INTO SYS_CIDADES VALUES(4428, 'Apina', 24, 4201257); +INSERT INTO SYS_CIDADES VALUES(4429, 'Arabut', 24, 4201273); +INSERT INTO SYS_CIDADES VALUES(4430, 'Araquari', 24, 4201307); +INSERT INTO SYS_CIDADES VALUES(4431, 'Ararangu', 24, 4201406); +INSERT INTO SYS_CIDADES VALUES(4432, 'Armazm', 24, 4201505); +INSERT INTO SYS_CIDADES VALUES(4433, 'Arroio Trinta', 24, 4201604); +INSERT INTO SYS_CIDADES VALUES(4434, 'Arvoredo', 24, 4201653); +INSERT INTO SYS_CIDADES VALUES(4435, 'Ascurra', 24, 4201703); +INSERT INTO SYS_CIDADES VALUES(4436, 'Atalanta', 24, 4201802); +INSERT INTO SYS_CIDADES VALUES(4437, 'Aurora', 24, 4201901); +INSERT INTO SYS_CIDADES VALUES(4438, 'Balnerio Arroio do Silva', 24, 4201950); +INSERT INTO SYS_CIDADES VALUES(4439, 'Balnerio Barra do Sul', 24, 4202057); +INSERT INTO SYS_CIDADES VALUES(4440, 'Balnerio Cambori', 24, 4202008); +INSERT INTO SYS_CIDADES VALUES(4441, 'Balnerio Gaivota', 24, 4202073); +INSERT INTO SYS_CIDADES VALUES(4442, 'Bandeirante', 24, 4202081); +INSERT INTO SYS_CIDADES VALUES(4443, 'Barra Bonita', 24, 4202099); +INSERT INTO SYS_CIDADES VALUES(4444, 'Barra Velha', 24, 4202107); +INSERT INTO SYS_CIDADES VALUES(4445, 'Bela Vista do Toldo', 24, 4202131); +INSERT INTO SYS_CIDADES VALUES(4446, 'Belmonte', 24, 4202156); +INSERT INTO SYS_CIDADES VALUES(4447, 'Benedito Novo', 24, 4202206); +INSERT INTO SYS_CIDADES VALUES(4448, 'Biguau', 24, 4202305); +INSERT INTO SYS_CIDADES VALUES(4449, 'Blumenau', 24, 4202404); +INSERT INTO SYS_CIDADES VALUES(4450, 'Bocaina do Sul', 24, 4202438); +INSERT INTO SYS_CIDADES VALUES(4451, 'Bom Jardim da Serra', 24, 4202503); +INSERT INTO SYS_CIDADES VALUES(4452, 'Bom Jesus', 24, 4202537); +INSERT INTO SYS_CIDADES VALUES(4453, 'Bom Jesus do Oeste', 24, 4202578); +INSERT INTO SYS_CIDADES VALUES(4454, 'Bom Retiro', 24, 4202602); +INSERT INTO SYS_CIDADES VALUES(4455, 'Bombinhas', 24, 4202453); +INSERT INTO SYS_CIDADES VALUES(4456, 'Botuver', 24, 4202701); +INSERT INTO SYS_CIDADES VALUES(4457, 'Brao do Norte', 24, 4202800); +INSERT INTO SYS_CIDADES VALUES(4458, 'Brao do Trombudo', 24, 4202859); +INSERT INTO SYS_CIDADES VALUES(4459, 'Brunpolis', 24, 4202875); +INSERT INTO SYS_CIDADES VALUES(4460, 'Brusque', 24, 4202909); +INSERT INTO SYS_CIDADES VALUES(4461, 'Caador', 24, 4203006); +INSERT INTO SYS_CIDADES VALUES(4462, 'Caibi', 24, 4203105); +INSERT INTO SYS_CIDADES VALUES(4463, 'Calmon', 24, 4203154); +INSERT INTO SYS_CIDADES VALUES(4464, 'Cambori', 24, 4203204); +INSERT INTO SYS_CIDADES VALUES(4465, 'Campo Alegre', 24, 4203303); +INSERT INTO SYS_CIDADES VALUES(4466, 'Campo Belo do Sul', 24, 4203402); +INSERT INTO SYS_CIDADES VALUES(4467, 'Campo Er', 24, 4203501); +INSERT INTO SYS_CIDADES VALUES(4468, 'Campos Novos', 24, 4203600); +INSERT INTO SYS_CIDADES VALUES(4469, 'Canelinha', 24, 4203709); +INSERT INTO SYS_CIDADES VALUES(4470, 'Canoinhas', 24, 4203808); +INSERT INTO SYS_CIDADES VALUES(4471, 'Capo Alto', 24, 4203253); +INSERT INTO SYS_CIDADES VALUES(4472, 'Capinzal', 24, 4203907); +INSERT INTO SYS_CIDADES VALUES(4473, 'Capivari de Baixo', 24, 4203956); +INSERT INTO SYS_CIDADES VALUES(4474, 'Catanduvas', 24, 4204004); +INSERT INTO SYS_CIDADES VALUES(4475, 'Caxambu do Sul', 24, 4204103); +INSERT INTO SYS_CIDADES VALUES(4476, 'Celso Ramos', 24, 4204152); +INSERT INTO SYS_CIDADES VALUES(4477, 'Cerro Negro', 24, 4204178); +INSERT INTO SYS_CIDADES VALUES(4478, 'Chapado do Lageado', 24, 4204194); +INSERT INTO SYS_CIDADES VALUES(4479, 'Chapec', 24, 4204202); +INSERT INTO SYS_CIDADES VALUES(4480, 'Cocal do Sul', 24, 4204251); +INSERT INTO SYS_CIDADES VALUES(4481, 'Concrdia', 24, 4204301); +INSERT INTO SYS_CIDADES VALUES(4482, 'Cordilheira Alta', 24, 4204350); +INSERT INTO SYS_CIDADES VALUES(4483, 'Coronel Freitas', 24, 4204400); +INSERT INTO SYS_CIDADES VALUES(4484, 'Coronel Martins', 24, 4204459); +INSERT INTO SYS_CIDADES VALUES(4485, 'Correia Pinto', 24, 4204558); +INSERT INTO SYS_CIDADES VALUES(4486, 'Corup', 24, 4204509); +INSERT INTO SYS_CIDADES VALUES(4487, 'Cricima', 24, 4204608); +INSERT INTO SYS_CIDADES VALUES(4488, 'Cunha Por', 24, 4204707); +INSERT INTO SYS_CIDADES VALUES(4489, 'Cunhata', 24, 4204756); +INSERT INTO SYS_CIDADES VALUES(4490, 'Curitibanos', 24, 4204806); +INSERT INTO SYS_CIDADES VALUES(4491, 'Descanso', 24, 4204905); +INSERT INTO SYS_CIDADES VALUES(4492, 'Dionsio Cerqueira', 24, 4205001); +INSERT INTO SYS_CIDADES VALUES(4493, 'Dona Emma', 24, 4205100); +INSERT INTO SYS_CIDADES VALUES(4494, 'Doutor Pedrinho', 24, 4205159); +INSERT INTO SYS_CIDADES VALUES(4495, 'Entre Rios', 24, 4205175); +INSERT INTO SYS_CIDADES VALUES(4496, 'Ermo', 24, 4205191); +INSERT INTO SYS_CIDADES VALUES(4497, 'Erval Velho', 24, 4205209); +INSERT INTO SYS_CIDADES VALUES(4498, 'Faxinal dos Guedes', 24, 4205308); +INSERT INTO SYS_CIDADES VALUES(4499, 'Flor do Serto', 24, 4205357); +INSERT INTO SYS_CIDADES VALUES(4500, 'Florianpolis', 24, 4205407); +INSERT INTO SYS_CIDADES VALUES(4501, 'Formosa do Sul', 24, 4205431); +INSERT INTO SYS_CIDADES VALUES(4502, 'Forquilhinha', 24, 4205456); +INSERT INTO SYS_CIDADES VALUES(4503, 'Fraiburgo', 24, 4205506); +INSERT INTO SYS_CIDADES VALUES(4504, 'Frei Rogrio', 24, 4205555); +INSERT INTO SYS_CIDADES VALUES(4505, 'Galvo', 24, 4205605); +INSERT INTO SYS_CIDADES VALUES(4506, 'Garopaba', 24, 4205704); +INSERT INTO SYS_CIDADES VALUES(4507, 'Garuva', 24, 4205803); +INSERT INTO SYS_CIDADES VALUES(4508, 'Gaspar', 24, 4205902); +INSERT INTO SYS_CIDADES VALUES(4509, 'Governador Celso Ramos', 24, 4206009); +INSERT INTO SYS_CIDADES VALUES(4510, 'Gro Par', 24, 4206108); +INSERT INTO SYS_CIDADES VALUES(4511, 'Gravatal', 24, 4206207); +INSERT INTO SYS_CIDADES VALUES(4512, 'Guabiruba', 24, 4206306); +INSERT INTO SYS_CIDADES VALUES(4513, 'Guaraciaba', 24, 4206405); +INSERT INTO SYS_CIDADES VALUES(4514, 'Guaramirim', 24, 4206504); +INSERT INTO SYS_CIDADES VALUES(4515, 'Guaruj do Sul', 24, 4206603); +INSERT INTO SYS_CIDADES VALUES(4516, 'Guatamb', 24, 4206652); +INSERT INTO SYS_CIDADES VALUES(4517, 'Herval d`Oeste', 24, 4206702); +INSERT INTO SYS_CIDADES VALUES(4518, 'Ibiam', 24, 4206751); +INSERT INTO SYS_CIDADES VALUES(4519, 'Ibicar', 24, 4206801); +INSERT INTO SYS_CIDADES VALUES(4520, 'Ibirama', 24, 4206900); +INSERT INTO SYS_CIDADES VALUES(4521, 'Iara', 24, 4207007); +INSERT INTO SYS_CIDADES VALUES(4522, 'Ilhota', 24, 4207106); +INSERT INTO SYS_CIDADES VALUES(4523, 'Imaru', 24, 4207205); +INSERT INTO SYS_CIDADES VALUES(4524, 'Imbituba', 24, 4207304); +INSERT INTO SYS_CIDADES VALUES(4525, 'Imbuia', 24, 4207403); +INSERT INTO SYS_CIDADES VALUES(4526, 'Indaial', 24, 4207502); +INSERT INTO SYS_CIDADES VALUES(4527, 'Iomer', 24, 4207577); +INSERT INTO SYS_CIDADES VALUES(4528, 'Ipira', 24, 4207601); +INSERT INTO SYS_CIDADES VALUES(4529, 'Ipor do Oeste', 24, 4207650); +INSERT INTO SYS_CIDADES VALUES(4530, 'Ipuau', 24, 4207684); +INSERT INTO SYS_CIDADES VALUES(4531, 'Ipumirim', 24, 4207700); +INSERT INTO SYS_CIDADES VALUES(4532, 'Iraceminha', 24, 4207759); +INSERT INTO SYS_CIDADES VALUES(4533, 'Irani', 24, 4207809); +INSERT INTO SYS_CIDADES VALUES(4534, 'Irati', 24, 4207858); +INSERT INTO SYS_CIDADES VALUES(4535, 'Irinepolis', 24, 4207908); +INSERT INTO SYS_CIDADES VALUES(4536, 'It', 24, 4208005); +INSERT INTO SYS_CIDADES VALUES(4537, 'Itaipolis', 24, 4208104); +INSERT INTO SYS_CIDADES VALUES(4538, 'Itaja', 24, 4208203); +INSERT INTO SYS_CIDADES VALUES(4539, 'Itapema', 24, 4208302); +INSERT INTO SYS_CIDADES VALUES(4540, 'Itapiranga', 24, 4208401); +INSERT INTO SYS_CIDADES VALUES(4541, 'Itapo', 24, 4208450); +INSERT INTO SYS_CIDADES VALUES(4542, 'Ituporanga', 24, 4208500); +INSERT INTO SYS_CIDADES VALUES(4543, 'Jabor', 24, 4208609); +INSERT INTO SYS_CIDADES VALUES(4544, 'Jacinto Machado', 24, 4208708); +INSERT INTO SYS_CIDADES VALUES(4545, 'Jaguaruna', 24, 4208807); +INSERT INTO SYS_CIDADES VALUES(4546, 'Jaragu do Sul', 24, 4208906); +INSERT INTO SYS_CIDADES VALUES(4547, 'Jardinpolis', 24, 4208955); +INSERT INTO SYS_CIDADES VALUES(4548, 'Joaaba', 24, 4209003); +INSERT INTO SYS_CIDADES VALUES(4549, 'Joinville', 24, 4209102); +INSERT INTO SYS_CIDADES VALUES(4550, 'Jos Boiteux', 24, 4209151); +INSERT INTO SYS_CIDADES VALUES(4551, 'Jupi', 24, 4209177); +INSERT INTO SYS_CIDADES VALUES(4552, 'Lacerdpolis', 24, 4209201); +INSERT INTO SYS_CIDADES VALUES(4553, 'Lages', 24, 4209300); +INSERT INTO SYS_CIDADES VALUES(4554, 'Laguna', 24, 4209409); +INSERT INTO SYS_CIDADES VALUES(4555, 'Lajeado Grande', 24, 4209458); +INSERT INTO SYS_CIDADES VALUES(4556, 'Laurentino', 24, 4209508); +INSERT INTO SYS_CIDADES VALUES(4557, 'Lauro Muller', 24, 4209607); +INSERT INTO SYS_CIDADES VALUES(4558, 'Lebon Rgis', 24, 4209706); +INSERT INTO SYS_CIDADES VALUES(4559, 'Leoberto Leal', 24, 4209805); +INSERT INTO SYS_CIDADES VALUES(4560, 'Lindia do Sul', 24, 4209854); +INSERT INTO SYS_CIDADES VALUES(4561, 'Lontras', 24, 4209904); +INSERT INTO SYS_CIDADES VALUES(4562, 'Luiz Alves', 24, 4210001); +INSERT INTO SYS_CIDADES VALUES(4563, 'Luzerna', 24, 4210035); +INSERT INTO SYS_CIDADES VALUES(4564, 'Macieira', 24, 4210050); +INSERT INTO SYS_CIDADES VALUES(4565, 'Mafra', 24, 4210100); +INSERT INTO SYS_CIDADES VALUES(4566, 'Major Gercino', 24, 4210209); +INSERT INTO SYS_CIDADES VALUES(4567, 'Major Vieira', 24, 4210308); +INSERT INTO SYS_CIDADES VALUES(4568, 'Maracaj', 24, 4210407); +INSERT INTO SYS_CIDADES VALUES(4569, 'Maravilha', 24, 4210506); +INSERT INTO SYS_CIDADES VALUES(4570, 'Marema', 24, 4210555); +INSERT INTO SYS_CIDADES VALUES(4571, 'Massaranduba', 24, 4210605); +INSERT INTO SYS_CIDADES VALUES(4572, 'Matos Costa', 24, 4210704); +INSERT INTO SYS_CIDADES VALUES(4573, 'Meleiro', 24, 4210803); +INSERT INTO SYS_CIDADES VALUES(4574, 'Mirim Doce', 24, 4210852); +INSERT INTO SYS_CIDADES VALUES(4575, 'Modelo', 24, 4210902); +INSERT INTO SYS_CIDADES VALUES(4576, 'Monda', 24, 4211009); +INSERT INTO SYS_CIDADES VALUES(4577, 'Monte Carlo', 24, 4211058); +INSERT INTO SYS_CIDADES VALUES(4578, 'Monte Castelo', 24, 4211108); +INSERT INTO SYS_CIDADES VALUES(4579, 'Morro da Fumaa', 24, 4211207); +INSERT INTO SYS_CIDADES VALUES(4580, 'Morro Grande', 24, 4211256); +INSERT INTO SYS_CIDADES VALUES(4581, 'Navegantes', 24, 4211306); +INSERT INTO SYS_CIDADES VALUES(4582, 'Nova Erechim', 24, 4211405); +INSERT INTO SYS_CIDADES VALUES(4583, 'Nova Itaberaba', 24, 4211454); +INSERT INTO SYS_CIDADES VALUES(4584, 'Nova Trento', 24, 4211504); +INSERT INTO SYS_CIDADES VALUES(4585, 'Nova Veneza', 24, 4211603); +INSERT INTO SYS_CIDADES VALUES(4586, 'Novo Horizonte', 24, 4211652); +INSERT INTO SYS_CIDADES VALUES(4587, 'Orleans', 24, 4211702); +INSERT INTO SYS_CIDADES VALUES(4588, 'Otaclio Costa', 24, 4211751); +INSERT INTO SYS_CIDADES VALUES(4589, 'Ouro', 24, 4211801); +INSERT INTO SYS_CIDADES VALUES(4590, 'Ouro Verde', 24, 4211850); +INSERT INTO SYS_CIDADES VALUES(4591, 'Paial', 24, 4211876); +INSERT INTO SYS_CIDADES VALUES(4592, 'Painel', 24, 4211892); +INSERT INTO SYS_CIDADES VALUES(4593, 'Palhoa', 24, 4211900); +INSERT INTO SYS_CIDADES VALUES(4594, 'Palma Sola', 24, 4212007); +INSERT INTO SYS_CIDADES VALUES(4595, 'Palmeira', 24, 4212056); +INSERT INTO SYS_CIDADES VALUES(4596, 'Palmitos', 24, 4212106); +INSERT INTO SYS_CIDADES VALUES(4597, 'Papanduva', 24, 4212205); +INSERT INTO SYS_CIDADES VALUES(4598, 'Paraso', 24, 4212239); +INSERT INTO SYS_CIDADES VALUES(4599, 'Passo de Torres', 24, 4212254); +INSERT INTO SYS_CIDADES VALUES(4600, 'Passos Maia', 24, 4212270); +INSERT INTO SYS_CIDADES VALUES(4601, 'Paulo Lopes', 24, 4212304); +INSERT INTO SYS_CIDADES VALUES(4602, 'Pedras Grandes', 24, 4212403); +INSERT INTO SYS_CIDADES VALUES(4603, 'Penha', 24, 4212502); +INSERT INTO SYS_CIDADES VALUES(4604, 'Peritiba', 24, 4212601); +INSERT INTO SYS_CIDADES VALUES(4605, 'Petrolndia', 24, 4212700); +INSERT INTO SYS_CIDADES VALUES(4606, 'Balnerio Piarras', 24, 4212809); +INSERT INTO SYS_CIDADES VALUES(4607, 'Pinhalzinho', 24, 4212908); +INSERT INTO SYS_CIDADES VALUES(4608, 'Pinheiro Preto', 24, 4213005); +INSERT INTO SYS_CIDADES VALUES(4609, 'Piratuba', 24, 4213104); +INSERT INTO SYS_CIDADES VALUES(4610, 'Planalto Alegre', 24, 4213153); +INSERT INTO SYS_CIDADES VALUES(4611, 'Pomerode', 24, 4213203); +INSERT INTO SYS_CIDADES VALUES(4612, 'Ponte Alta', 24, 4213302); +INSERT INTO SYS_CIDADES VALUES(4613, 'Ponte Alta do Norte', 24, 4213351); +INSERT INTO SYS_CIDADES VALUES(4614, 'Ponte Serrada', 24, 4213401); +INSERT INTO SYS_CIDADES VALUES(4615, 'Porto Belo', 24, 4213500); +INSERT INTO SYS_CIDADES VALUES(4616, 'Porto Unio', 24, 4213609); +INSERT INTO SYS_CIDADES VALUES(4617, 'Pouso Redondo', 24, 4213708); +INSERT INTO SYS_CIDADES VALUES(4618, 'Praia Grande', 24, 4213807); +INSERT INTO SYS_CIDADES VALUES(4620, 'Presidente Getlio', 24, 4214003); +INSERT INTO SYS_CIDADES VALUES(4621, 'Presidente Nereu', 24, 4214102); +INSERT INTO SYS_CIDADES VALUES(4622, 'Princesa', 24, 4214151); +INSERT INTO SYS_CIDADES VALUES(4623, 'Quilombo', 24, 4214201); +INSERT INTO SYS_CIDADES VALUES(4624, 'Rancho Queimado', 24, 4214300); +INSERT INTO SYS_CIDADES VALUES(4625, 'Rio das Antas', 24, 4214409); +INSERT INTO SYS_CIDADES VALUES(4626, 'Rio do Campo', 24, 4214508); +INSERT INTO SYS_CIDADES VALUES(4627, 'Rio do Oeste', 24, 4214607); +INSERT INTO SYS_CIDADES VALUES(4628, 'Rio do Sul', 24, 4214805); +INSERT INTO SYS_CIDADES VALUES(4629, 'Rio dos Cedros', 24, 4214706); +INSERT INTO SYS_CIDADES VALUES(4630, 'Rio Fortuna', 24, 4214904); +INSERT INTO SYS_CIDADES VALUES(4631, 'Rio Negrinho', 24, 4215000); +INSERT INTO SYS_CIDADES VALUES(4632, 'Rio Rufino', 24, 4215059); +INSERT INTO SYS_CIDADES VALUES(4633, 'Riqueza', 24, 4215075); +INSERT INTO SYS_CIDADES VALUES(4634, 'Rodeio', 24, 4215109); +INSERT INTO SYS_CIDADES VALUES(4635, 'Romelndia', 24, 4215208); +INSERT INTO SYS_CIDADES VALUES(4636, 'Salete', 24, 4215307); +INSERT INTO SYS_CIDADES VALUES(4637, 'Saltinho', 24, 4215356); +INSERT INTO SYS_CIDADES VALUES(4638, 'Salto Veloso', 24, 4215406); +INSERT INTO SYS_CIDADES VALUES(4639, 'Sango', 24, 4215455); +INSERT INTO SYS_CIDADES VALUES(4640, 'Santa Ceclia', 24, 4215505); +INSERT INTO SYS_CIDADES VALUES(4641, 'Santa Helena', 24, 4215554); +INSERT INTO SYS_CIDADES VALUES(4642, 'Santa Rosa de Lima', 24, 4215604); +INSERT INTO SYS_CIDADES VALUES(4643, 'Santa Rosa do Sul', 24, 4215653); +INSERT INTO SYS_CIDADES VALUES(4644, 'Santa Terezinha', 24, 4215679); +INSERT INTO SYS_CIDADES VALUES(4645, 'Santa Terezinha do Progresso', 24, 4215687); +INSERT INTO SYS_CIDADES VALUES(4646, 'Santiago do Sul', 24, 4215695); +INSERT INTO SYS_CIDADES VALUES(4647, 'Santo Amaro da Imperatriz', 24, 4215703); +INSERT INTO SYS_CIDADES VALUES(4648, 'So Bento do Sul', 24, 4215802); +INSERT INTO SYS_CIDADES VALUES(4649, 'So Bernardino', 24, 4215752); +INSERT INTO SYS_CIDADES VALUES(4650, 'So Bonifcio', 24, 4215901); +INSERT INTO SYS_CIDADES VALUES(4651, 'So Carlos', 24, 4216008); +INSERT INTO SYS_CIDADES VALUES(4652, 'So Cristovo do Sul', 24, 4216057); +INSERT INTO SYS_CIDADES VALUES(4653, 'So Domingos', 24, 4216107); +INSERT INTO SYS_CIDADES VALUES(4654, 'So Francisco do Sul', 24, 4216206); +INSERT INTO SYS_CIDADES VALUES(4655, 'So Joo Batista', 24, 4216305); +INSERT INTO SYS_CIDADES VALUES(4656, 'So Joo do Itaperi', 24, 4216354); +INSERT INTO SYS_CIDADES VALUES(4657, 'So Joo do Oeste', 24, 4216255); +INSERT INTO SYS_CIDADES VALUES(4658, 'So Joo do Sul', 24, 4216404); +INSERT INTO SYS_CIDADES VALUES(4659, 'So Joaquim', 24, 4216503); +INSERT INTO SYS_CIDADES VALUES(4660, 'So Jos', 24, 4216602); +INSERT INTO SYS_CIDADES VALUES(4661, 'So Jos do Cedro', 24, 4216701); +INSERT INTO SYS_CIDADES VALUES(4662, 'So Jos do Cerrito', 24, 4216800); +INSERT INTO SYS_CIDADES VALUES(4663, 'So Loureno do Oeste', 24, 4216909); +INSERT INTO SYS_CIDADES VALUES(4664, 'So Ludgero', 24, 4217006); +INSERT INTO SYS_CIDADES VALUES(4665, 'So Martinho', 24, 4217105); +INSERT INTO SYS_CIDADES VALUES(4666, 'So Miguel da Boa Vista', 24, 4217154); +INSERT INTO SYS_CIDADES VALUES(4667, 'So Miguel do Oeste', 24, 4217204); +INSERT INTO SYS_CIDADES VALUES(4668, 'So Pedro de Alcntara', 24, 4217253); +INSERT INTO SYS_CIDADES VALUES(4669, 'Saudades', 24, 4217303); +INSERT INTO SYS_CIDADES VALUES(4670, 'Schroeder', 24, 4217402); +INSERT INTO SYS_CIDADES VALUES(4671, 'Seara', 24, 4217501); +INSERT INTO SYS_CIDADES VALUES(4672, 'Serra Alta', 24, 4217550); +INSERT INTO SYS_CIDADES VALUES(4673, 'Siderpolis', 24, 4217600); +INSERT INTO SYS_CIDADES VALUES(4674, 'Sombrio', 24, 4217709); +INSERT INTO SYS_CIDADES VALUES(4675, 'Sul Brasil', 24, 4217758); +INSERT INTO SYS_CIDADES VALUES(4676, 'Tai', 24, 4217808); +INSERT INTO SYS_CIDADES VALUES(4677, 'Tangar', 24, 4217907); +INSERT INTO SYS_CIDADES VALUES(4678, 'Tigrinhos', 24, 4217956); +INSERT INTO SYS_CIDADES VALUES(4679, 'Tijucas', 24, 4218004); +INSERT INTO SYS_CIDADES VALUES(4680, 'Timb do Sul', 24, 4218103); +INSERT INTO SYS_CIDADES VALUES(4681, 'Timb', 24, 4218202); +INSERT INTO SYS_CIDADES VALUES(4682, 'Timb Grande', 24, 4218251); +INSERT INTO SYS_CIDADES VALUES(4683, 'Trs Barras', 24, 4218301); +INSERT INTO SYS_CIDADES VALUES(4684, 'Treviso', 24, 4218350); +INSERT INTO SYS_CIDADES VALUES(4685, 'Treze de Maio', 24, 4218400); +INSERT INTO SYS_CIDADES VALUES(4686, 'Treze Tlias', 24, 4218509); +INSERT INTO SYS_CIDADES VALUES(4687, 'Trombudo Central', 24, 4218608); +INSERT INTO SYS_CIDADES VALUES(4688, 'Tubaro', 24, 4218707); +INSERT INTO SYS_CIDADES VALUES(4689, 'Tunpolis', 24, 4218756); +INSERT INTO SYS_CIDADES VALUES(4690, 'Turvo', 24, 4218806); +INSERT INTO SYS_CIDADES VALUES(4691, 'Unio do Oeste', 24, 4218855); +INSERT INTO SYS_CIDADES VALUES(4692, 'Urubici', 24, 4218905); +INSERT INTO SYS_CIDADES VALUES(4693, 'Urupema', 24, 4218954); +INSERT INTO SYS_CIDADES VALUES(4694, 'Urussanga', 24, 4219002); +INSERT INTO SYS_CIDADES VALUES(4695, 'Vargeo', 24, 4219101); +INSERT INTO SYS_CIDADES VALUES(4696, 'Vargem', 24, 4219150); +INSERT INTO SYS_CIDADES VALUES(4697, 'Vargem Bonita', 24, 4219176); +INSERT INTO SYS_CIDADES VALUES(4698, 'Vidal Ramos', 24, 4219200); +INSERT INTO SYS_CIDADES VALUES(4699, 'Videira', 24, 4219309); +INSERT INTO SYS_CIDADES VALUES(4700, 'Vitor Meireles', 24, 4219358); +INSERT INTO SYS_CIDADES VALUES(4701, 'Witmarsum', 24, 4219408); +INSERT INTO SYS_CIDADES VALUES(4702, 'Xanxer', 24, 4219507); +INSERT INTO SYS_CIDADES VALUES(4703, 'Xavantina', 24, 4219606); +INSERT INTO SYS_CIDADES VALUES(4704, 'Xaxim', 24, 4219705); +INSERT INTO SYS_CIDADES VALUES(4705, 'Zorta', 24, 4219853); +INSERT INTO SYS_CIDADES VALUES(4706, 'Adamantina', 26, 3500105); +INSERT INTO SYS_CIDADES VALUES(4707, 'Adolfo', 26, 3500204); +INSERT INTO SYS_CIDADES VALUES(4708, 'Agua', 26, 3500303); +INSERT INTO SYS_CIDADES VALUES(4709, 'guas da Prata', 26, 3500402); +INSERT INTO SYS_CIDADES VALUES(4710, 'guas de Lindia', 26, 3500501); +INSERT INTO SYS_CIDADES VALUES(4711, 'guas de Santa Brbara', 26, 3500550); +INSERT INTO SYS_CIDADES VALUES(4712, 'guas de So Pedro', 26, 3500600); +INSERT INTO SYS_CIDADES VALUES(4713, 'Agudos', 26, 3500709); +INSERT INTO SYS_CIDADES VALUES(4714, 'Alambari', 26, 3500758); +INSERT INTO SYS_CIDADES VALUES(4715, 'Alfredo Marcondes', 26, 3500808); +INSERT INTO SYS_CIDADES VALUES(4716, 'Altair', 26, 3500907); +INSERT INTO SYS_CIDADES VALUES(4717, 'Altinpolis', 26, 3501004); +INSERT INTO SYS_CIDADES VALUES(4718, 'Alto Alegre', 26, 3501103); +INSERT INTO SYS_CIDADES VALUES(4719, 'Alumnio', 26, 3501152); +INSERT INTO SYS_CIDADES VALUES(4720, 'lvares Florence', 26, 3501202); +INSERT INTO SYS_CIDADES VALUES(4721, 'lvares Machado', 26, 3501301); +INSERT INTO SYS_CIDADES VALUES(4722, 'lvaro de Carvalho', 26, 3501400); +INSERT INTO SYS_CIDADES VALUES(4723, 'Alvinlndia', 26, 3501509); +INSERT INTO SYS_CIDADES VALUES(4724, 'Americana', 26, 3501608); +INSERT INTO SYS_CIDADES VALUES(4725, 'Amrico Brasiliense', 26, 3501707); +INSERT INTO SYS_CIDADES VALUES(4726, 'Amrico de Campos', 26, 3501806); +INSERT INTO SYS_CIDADES VALUES(4727, 'Amparo', 26, 3501905); +INSERT INTO SYS_CIDADES VALUES(4728, 'Analndia', 26, 3502002); +INSERT INTO SYS_CIDADES VALUES(4729, 'Andradina', 26, 3502101); +INSERT INTO SYS_CIDADES VALUES(4730, 'Angatuba', 26, 3502200); +INSERT INTO SYS_CIDADES VALUES(4731, 'Anhembi', 26, 3502309); +INSERT INTO SYS_CIDADES VALUES(4732, 'Anhumas', 26, 3502408); +INSERT INTO SYS_CIDADES VALUES(4733, 'Aparecida', 26, 3502507); +INSERT INTO SYS_CIDADES VALUES(4734, 'Aparecida d`Oeste', 26, 3502606); +INSERT INTO SYS_CIDADES VALUES(4735, 'Apia', 26, 3502705); +INSERT INTO SYS_CIDADES VALUES(4736, 'Araariguama', 26, 3502754); +INSERT INTO SYS_CIDADES VALUES(4737, 'Araatuba', 26, 3502804); +INSERT INTO SYS_CIDADES VALUES(4738, 'Araoiaba da Serra', 26, 3502903); +INSERT INTO SYS_CIDADES VALUES(4739, 'Aramina', 26, 3503000); +INSERT INTO SYS_CIDADES VALUES(4740, 'Arandu', 26, 3503109); +INSERT INTO SYS_CIDADES VALUES(4741, 'Arape', 26, 3503158); +INSERT INTO SYS_CIDADES VALUES(4742, 'Araraquara', 26, 3503208); +INSERT INTO SYS_CIDADES VALUES(4743, 'Araras', 26, 3503307); +INSERT INTO SYS_CIDADES VALUES(4744, 'Arco-ris', 26, 3503356); +INSERT INTO SYS_CIDADES VALUES(4745, 'Arealva', 26, 3503406); +INSERT INTO SYS_CIDADES VALUES(4746, 'Areias', 26, 3503505); +INSERT INTO SYS_CIDADES VALUES(4747, 'Areipolis', 26, 3503604); +INSERT INTO SYS_CIDADES VALUES(4748, 'Ariranha', 26, 3503703); +INSERT INTO SYS_CIDADES VALUES(4749, 'Artur Nogueira', 26, 3503802); +INSERT INTO SYS_CIDADES VALUES(4750, 'Aruj', 26, 3503901); +INSERT INTO SYS_CIDADES VALUES(4751, 'Aspsia', 26, 3503950); +INSERT INTO SYS_CIDADES VALUES(4752, 'Assis', 26, 3504008); +INSERT INTO SYS_CIDADES VALUES(4753, 'Atibaia', 26, 3504107); +INSERT INTO SYS_CIDADES VALUES(4754, 'Auriflama', 26, 3504206); +INSERT INTO SYS_CIDADES VALUES(4755, 'Ava', 26, 3504305); +INSERT INTO SYS_CIDADES VALUES(4756, 'Avanhandava', 26, 3504404); +INSERT INTO SYS_CIDADES VALUES(4757, 'Avar', 26, 3504503); +INSERT INTO SYS_CIDADES VALUES(4758, 'Bady Bassitt', 26, 3504602); +INSERT INTO SYS_CIDADES VALUES(4759, 'Balbinos', 26, 3504701); +INSERT INTO SYS_CIDADES VALUES(4760, 'Blsamo', 26, 3504800); +INSERT INTO SYS_CIDADES VALUES(4761, 'Bananal', 26, 3504909); +INSERT INTO SYS_CIDADES VALUES(4762, 'Baro de Antonina', 26, 3505005); +INSERT INTO SYS_CIDADES VALUES(4763, 'Barbosa', 26, 3505104); +INSERT INTO SYS_CIDADES VALUES(4764, 'Bariri', 26, 3505203); +INSERT INTO SYS_CIDADES VALUES(4765, 'Barra Bonita', 26, 3505302); +INSERT INTO SYS_CIDADES VALUES(4766, 'Barra do Chapu', 26, 3505351); +INSERT INTO SYS_CIDADES VALUES(4767, 'Barra do Turvo', 26, 3505401); +INSERT INTO SYS_CIDADES VALUES(4768, 'Barretos', 26, 3505500); +INSERT INTO SYS_CIDADES VALUES(4769, 'Barrinha', 26, 3505609); +INSERT INTO SYS_CIDADES VALUES(4770, 'Barueri', 26, 3505708); +INSERT INTO SYS_CIDADES VALUES(4771, 'Bastos', 26, 3505807); +INSERT INTO SYS_CIDADES VALUES(4772, 'Batatais', 26, 3505906); +INSERT INTO SYS_CIDADES VALUES(4773, 'Bauru', 26, 3506003); +INSERT INTO SYS_CIDADES VALUES(4774, 'Bebedouro', 26, 3506102); +INSERT INTO SYS_CIDADES VALUES(4775, 'Bento de Abreu', 26, 3506201); +INSERT INTO SYS_CIDADES VALUES(4776, 'Bernardino de Campos', 26, 3506300); +INSERT INTO SYS_CIDADES VALUES(4777, 'Bertioga', 26, 3506359); +INSERT INTO SYS_CIDADES VALUES(4778, 'Bilac', 26, 3506409); +INSERT INTO SYS_CIDADES VALUES(4779, 'Birigui', 26, 3506508); +INSERT INTO SYS_CIDADES VALUES(4780, 'Biritiba-Mirim', 26, 3506607); +INSERT INTO SYS_CIDADES VALUES(4781, 'Boa Esperana do Sul', 26, 3506706); +INSERT INTO SYS_CIDADES VALUES(4782, 'Bocaina', 26, 3506805); +INSERT INTO SYS_CIDADES VALUES(4783, 'Bofete', 26, 3506904); +INSERT INTO SYS_CIDADES VALUES(4784, 'Boituva', 26, 3507001); +INSERT INTO SYS_CIDADES VALUES(4785, 'Bom Jesus dos Perdes', 26, 3507100); +INSERT INTO SYS_CIDADES VALUES(4786, 'Bom Sucesso de Itarar', 26, 3507159); +INSERT INTO SYS_CIDADES VALUES(4787, 'Bor', 26, 3507209); +INSERT INTO SYS_CIDADES VALUES(4788, 'Boracia', 26, 3507308); +INSERT INTO SYS_CIDADES VALUES(4789, 'Borborema', 26, 3507407); +INSERT INTO SYS_CIDADES VALUES(4790, 'Borebi', 26, 3507456); +INSERT INTO SYS_CIDADES VALUES(4791, 'Botucatu', 26, 3507506); +INSERT INTO SYS_CIDADES VALUES(4792, 'Bragana Paulista', 26, 3507605); +INSERT INTO SYS_CIDADES VALUES(4793, 'Brana', 26, 3507704); +INSERT INTO SYS_CIDADES VALUES(4794, 'Brejo Alegre', 26, 3507753); +INSERT INTO SYS_CIDADES VALUES(4795, 'Brodowski', 26, 3507803); +INSERT INTO SYS_CIDADES VALUES(4796, 'Brotas', 26, 3507902); +INSERT INTO SYS_CIDADES VALUES(4797, 'Buri', 26, 3508009); +INSERT INTO SYS_CIDADES VALUES(4798, 'Buritama', 26, 3508108); +INSERT INTO SYS_CIDADES VALUES(4799, 'Buritizal', 26, 3508207); +INSERT INTO SYS_CIDADES VALUES(4800, 'Cabrlia Paulista', 26, 3508306); +INSERT INTO SYS_CIDADES VALUES(4801, 'Cabreva', 26, 3508405); +INSERT INTO SYS_CIDADES VALUES(4802, 'Caapava', 26, 3508504); +INSERT INTO SYS_CIDADES VALUES(4803, 'Cachoeira Paulista', 26, 3508603); +INSERT INTO SYS_CIDADES VALUES(4804, 'Caconde', 26, 3508702); +INSERT INTO SYS_CIDADES VALUES(4805, 'Cafelndia', 26, 3508801); +INSERT INTO SYS_CIDADES VALUES(4806, 'Caiabu', 26, 3508900); +INSERT INTO SYS_CIDADES VALUES(4807, 'Caieiras', 26, 3509007); +INSERT INTO SYS_CIDADES VALUES(4808, 'Caiu', 26, 3509106); +INSERT INTO SYS_CIDADES VALUES(4809, 'Cajamar', 26, 3509205); +INSERT INTO SYS_CIDADES VALUES(4810, 'Cajati', 26, 3509254); +INSERT INTO SYS_CIDADES VALUES(4811, 'Cajobi', 26, 3509304); +INSERT INTO SYS_CIDADES VALUES(4812, 'Cajuru', 26, 3509403); +INSERT INTO SYS_CIDADES VALUES(4813, 'Campina do Monte Alegre', 26, 3509452); +INSERT INTO SYS_CIDADES VALUES(4814, 'Campinas', 26, 3509502); +INSERT INTO SYS_CIDADES VALUES(4815, 'Campo Limpo Paulista', 26, 3509601); +INSERT INTO SYS_CIDADES VALUES(4816, 'Campos do Jordo', 26, 3509700); +INSERT INTO SYS_CIDADES VALUES(4817, 'Campos Novos Paulista', 26, 3509809); +INSERT INTO SYS_CIDADES VALUES(4818, 'Canania', 26, 3509908); +INSERT INTO SYS_CIDADES VALUES(4819, 'Canas', 26, 3509957); +INSERT INTO SYS_CIDADES VALUES(4820, 'Cndido Mota', 26, 3510005); +INSERT INTO SYS_CIDADES VALUES(4821, 'Cndido Rodrigues', 26, 3510104); +INSERT INTO SYS_CIDADES VALUES(4822, 'Canitar', 26, 3510153); +INSERT INTO SYS_CIDADES VALUES(4823, 'Capo Bonito', 26, 3510203); +INSERT INTO SYS_CIDADES VALUES(4824, 'Capela do Alto', 26, 3510302); +INSERT INTO SYS_CIDADES VALUES(4825, 'Capivari', 26, 3510401); +INSERT INTO SYS_CIDADES VALUES(4826, 'Caraguatatuba', 26, 3510500); +INSERT INTO SYS_CIDADES VALUES(4827, 'Carapicuba', 26, 3510609); +INSERT INTO SYS_CIDADES VALUES(4828, 'Cardoso', 26, 3510708); +INSERT INTO SYS_CIDADES VALUES(4829, 'Casa Branca', 26, 3510807); +INSERT INTO SYS_CIDADES VALUES(4830, 'Cssia dos Coqueiros', 26, 3510906); +INSERT INTO SYS_CIDADES VALUES(4831, 'Castilho', 26, 3511003); +INSERT INTO SYS_CIDADES VALUES(4832, 'Catanduva', 26, 3511102); +INSERT INTO SYS_CIDADES VALUES(4833, 'Catigu', 26, 3511201); +INSERT INTO SYS_CIDADES VALUES(4834, 'Cedral', 26, 3511300); +INSERT INTO SYS_CIDADES VALUES(4835, 'Cerqueira Csar', 26, 3511409); +INSERT INTO SYS_CIDADES VALUES(4836, 'Cerquilho', 26, 3511508); +INSERT INTO SYS_CIDADES VALUES(4837, 'Cesrio Lange', 26, 3511607); +INSERT INTO SYS_CIDADES VALUES(4838, 'Charqueada', 26, 3511706); +INSERT INTO SYS_CIDADES VALUES(4839, 'Chavantes', 26, 3557204); +INSERT INTO SYS_CIDADES VALUES(4840, 'Clementina', 26, 3511904); +INSERT INTO SYS_CIDADES VALUES(4841, 'Colina', 26, 3512001); +INSERT INTO SYS_CIDADES VALUES(4842, 'Colmbia', 26, 3512100); +INSERT INTO SYS_CIDADES VALUES(4843, 'Conchal', 26, 3512209); +INSERT INTO SYS_CIDADES VALUES(4844, 'Conchas', 26, 3512308); +INSERT INTO SYS_CIDADES VALUES(4845, 'Cordeirpolis', 26, 3512407); +INSERT INTO SYS_CIDADES VALUES(4846, 'Coroados', 26, 3512506); +INSERT INTO SYS_CIDADES VALUES(4847, 'Coronel Macedo', 26, 3512605); +INSERT INTO SYS_CIDADES VALUES(4848, 'Corumbata', 26, 3512704); +INSERT INTO SYS_CIDADES VALUES(4849, 'Cosmpolis', 26, 3512803); +INSERT INTO SYS_CIDADES VALUES(4850, 'Cosmorama', 26, 3512902); +INSERT INTO SYS_CIDADES VALUES(4851, 'Cotia', 26, 3513009); +INSERT INTO SYS_CIDADES VALUES(4852, 'Cravinhos', 26, 3513108); +INSERT INTO SYS_CIDADES VALUES(4853, 'Cristais Paulista', 26, 3513207); +INSERT INTO SYS_CIDADES VALUES(4854, 'Cruzlia', 26, 3513306); +INSERT INTO SYS_CIDADES VALUES(4855, 'Cruzeiro', 26, 3513405); +INSERT INTO SYS_CIDADES VALUES(4856, 'Cubato', 26, 3513504); +INSERT INTO SYS_CIDADES VALUES(4857, 'Cunha', 26, 3513603); +INSERT INTO SYS_CIDADES VALUES(4858, 'Descalvado', 26, 3513702); +INSERT INTO SYS_CIDADES VALUES(4859, 'Diadema', 26, 3513801); +INSERT INTO SYS_CIDADES VALUES(4860, 'Dirce Reis', 26, 3513850); +INSERT INTO SYS_CIDADES VALUES(4861, 'Divinolndia', 26, 3513900); +INSERT INTO SYS_CIDADES VALUES(4862, 'Dobrada', 26, 3514007); +INSERT INTO SYS_CIDADES VALUES(4863, 'Dois Crregos', 26, 3514106); +INSERT INTO SYS_CIDADES VALUES(4864, 'Dolcinpolis', 26, 3514205); +INSERT INTO SYS_CIDADES VALUES(4865, 'Dourado', 26, 3514304); +INSERT INTO SYS_CIDADES VALUES(4866, 'Dracena', 26, 3514403); +INSERT INTO SYS_CIDADES VALUES(4867, 'Duartina', 26, 3514502); +INSERT INTO SYS_CIDADES VALUES(4868, 'Dumont', 26, 3514601); +INSERT INTO SYS_CIDADES VALUES(4869, 'Echapor', 26, 3514700); +INSERT INTO SYS_CIDADES VALUES(4870, 'Eldorado', 26, 3514809); +INSERT INTO SYS_CIDADES VALUES(4871, 'Elias Fausto', 26, 3514908); +INSERT INTO SYS_CIDADES VALUES(4872, 'Elisirio', 26, 3514924); +INSERT INTO SYS_CIDADES VALUES(4873, 'Embaba', 26, 3514957); +INSERT INTO SYS_CIDADES VALUES(4874, 'Embu', 26, 3515004); +INSERT INTO SYS_CIDADES VALUES(4875, 'Embu-Guau', 26, 3515103); +INSERT INTO SYS_CIDADES VALUES(4876, 'Emilianpolis', 26, 3515129); +INSERT INTO SYS_CIDADES VALUES(4877, 'Engenheiro Coelho', 26, 3515152); +INSERT INTO SYS_CIDADES VALUES(4878, 'Esprito Santo do Pinhal', 26, 3515186); +INSERT INTO SYS_CIDADES VALUES(4879, 'Esprito Santo do Turvo', 26, 3515194); +INSERT INTO SYS_CIDADES VALUES(4880, 'Estiva Gerbi', 26, 3557303); +INSERT INTO SYS_CIDADES VALUES(4881, 'Estrela d`Oeste', 26, 3515202); +INSERT INTO SYS_CIDADES VALUES(4882, 'Estrela do Norte', 26, 3515301); +INSERT INTO SYS_CIDADES VALUES(4883, 'Euclides da Cunha Paulista', 26, 3515350); +INSERT INTO SYS_CIDADES VALUES(4884, 'Fartura', 26, 3515400); +INSERT INTO SYS_CIDADES VALUES(4885, 'Fernando Prestes', 26, 3515608); +INSERT INTO SYS_CIDADES VALUES(4886, 'Fernandpolis', 26, 3515509); +INSERT INTO SYS_CIDADES VALUES(4887, 'Ferno', 26, 3515657); +INSERT INTO SYS_CIDADES VALUES(4888, 'Ferraz de Vasconcelos', 26, 3515707); +INSERT INTO SYS_CIDADES VALUES(4889, 'Flora Rica', 26, 3515806); +INSERT INTO SYS_CIDADES VALUES(4890, 'Floreal', 26, 3515905); +INSERT INTO SYS_CIDADES VALUES(4891, 'Flrida Paulista', 26, 3516002); +INSERT INTO SYS_CIDADES VALUES(4892, 'Flornia', 26, 3516101); +INSERT INTO SYS_CIDADES VALUES(4893, 'Franca', 26, 3516200); +INSERT INTO SYS_CIDADES VALUES(4894, 'Francisco Morato', 26, 3516309); +INSERT INTO SYS_CIDADES VALUES(4895, 'Franco da Rocha', 26, 3516408); +INSERT INTO SYS_CIDADES VALUES(4896, 'Gabriel Monteiro', 26, 3516507); +INSERT INTO SYS_CIDADES VALUES(4897, 'Glia', 26, 3516606); +INSERT INTO SYS_CIDADES VALUES(4898, 'Gara', 26, 3516705); +INSERT INTO SYS_CIDADES VALUES(4899, 'Gasto Vidigal', 26, 3516804); +INSERT INTO SYS_CIDADES VALUES(4900, 'Gavio Peixoto', 26, 3516853); +INSERT INTO SYS_CIDADES VALUES(4901, 'General Salgado', 26, 3516903); +INSERT INTO SYS_CIDADES VALUES(4902, 'Getulina', 26, 3517000); +INSERT INTO SYS_CIDADES VALUES(4903, 'Glicrio', 26, 3517109); +INSERT INTO SYS_CIDADES VALUES(4904, 'Guaiara', 26, 3517208); +INSERT INTO SYS_CIDADES VALUES(4905, 'Guaimb', 26, 3517307); +INSERT INTO SYS_CIDADES VALUES(4906, 'Guara', 26, 3517406); +INSERT INTO SYS_CIDADES VALUES(4907, 'Guapiau', 26, 3517505); +INSERT INTO SYS_CIDADES VALUES(4908, 'Guapiara', 26, 3517604); +INSERT INTO SYS_CIDADES VALUES(4909, 'Guar', 26, 3517703); +INSERT INTO SYS_CIDADES VALUES(4910, 'Guaraa', 26, 3517802); +INSERT INTO SYS_CIDADES VALUES(4911, 'Guaraci', 26, 3517901); +INSERT INTO SYS_CIDADES VALUES(4912, 'Guarani d`Oeste', 26, 3518008); +INSERT INTO SYS_CIDADES VALUES(4913, 'Guarant', 26, 3518107); +INSERT INTO SYS_CIDADES VALUES(4914, 'Guararapes', 26, 3518206); +INSERT INTO SYS_CIDADES VALUES(4915, 'Guararema', 26, 3518305); +INSERT INTO SYS_CIDADES VALUES(4916, 'Guaratinguet', 26, 3518404); +INSERT INTO SYS_CIDADES VALUES(4917, 'Guare', 26, 3518503); +INSERT INTO SYS_CIDADES VALUES(4918, 'Guariba', 26, 3518602); +INSERT INTO SYS_CIDADES VALUES(4919, 'Guaruj', 26, 3518701); +INSERT INTO SYS_CIDADES VALUES(4920, 'Guarulhos', 26, 3518800); +INSERT INTO SYS_CIDADES VALUES(4921, 'Guatapar', 26, 3518859); +INSERT INTO SYS_CIDADES VALUES(4922, 'Guzolndia', 26, 3518909); +INSERT INTO SYS_CIDADES VALUES(4923, 'Herculndia', 26, 3519006); +INSERT INTO SYS_CIDADES VALUES(4924, 'Holambra', 26, 3519055); +INSERT INTO SYS_CIDADES VALUES(4925, 'Hortolndia', 26, 3519071); +INSERT INTO SYS_CIDADES VALUES(4926, 'Iacanga', 26, 3519105); +INSERT INTO SYS_CIDADES VALUES(4927, 'Iacri', 26, 3519204); +INSERT INTO SYS_CIDADES VALUES(4928, 'Iaras', 26, 3519253); +INSERT INTO SYS_CIDADES VALUES(4929, 'Ibat', 26, 3519303); +INSERT INTO SYS_CIDADES VALUES(4930, 'Ibir', 26, 3519402); +INSERT INTO SYS_CIDADES VALUES(4931, 'Ibirarema', 26, 3519501); +INSERT INTO SYS_CIDADES VALUES(4932, 'Ibitinga', 26, 3519600); +INSERT INTO SYS_CIDADES VALUES(4933, 'Ibina', 26, 3519709); +INSERT INTO SYS_CIDADES VALUES(4934, 'Icm', 26, 3519808); +INSERT INTO SYS_CIDADES VALUES(4935, 'Iep', 26, 3519907); +INSERT INTO SYS_CIDADES VALUES(4936, 'Igarau do Tiet', 26, 3520004); +INSERT INTO SYS_CIDADES VALUES(4937, 'Igarapava', 26, 3520103); +INSERT INTO SYS_CIDADES VALUES(4938, 'Igarat', 26, 3520202); +INSERT INTO SYS_CIDADES VALUES(4939, 'Iguape', 26, 3520301); +INSERT INTO SYS_CIDADES VALUES(4940, 'Ilha Comprida', 26, 3520426); +INSERT INTO SYS_CIDADES VALUES(4941, 'Ilha Solteira', 26, 3520442); +INSERT INTO SYS_CIDADES VALUES(4942, 'Ilhabela', 26, 3520400); +INSERT INTO SYS_CIDADES VALUES(4943, 'Indaiatuba', 26, 3520509); +INSERT INTO SYS_CIDADES VALUES(4944, 'Indiana', 26, 3520608); +INSERT INTO SYS_CIDADES VALUES(4945, 'Indiapor', 26, 3520707); +INSERT INTO SYS_CIDADES VALUES(4946, 'Inbia Paulista', 26, 3520806); +INSERT INTO SYS_CIDADES VALUES(4947, 'Ipaussu', 26, 3520905); +INSERT INTO SYS_CIDADES VALUES(4948, 'Iper', 26, 3521002); +INSERT INTO SYS_CIDADES VALUES(4949, 'Ipena', 26, 3521101); +INSERT INTO SYS_CIDADES VALUES(4950, 'Ipigu', 26, 3521150); +INSERT INTO SYS_CIDADES VALUES(4951, 'Iporanga', 26, 3521200); +INSERT INTO SYS_CIDADES VALUES(4952, 'Ipu', 26, 3521309); +INSERT INTO SYS_CIDADES VALUES(4953, 'Iracempolis', 26, 3521408); +INSERT INTO SYS_CIDADES VALUES(4954, 'Irapu', 26, 3521507); +INSERT INTO SYS_CIDADES VALUES(4955, 'Irapuru', 26, 3521606); +INSERT INTO SYS_CIDADES VALUES(4956, 'Itaber', 26, 3521705); +INSERT INTO SYS_CIDADES VALUES(4957, 'Ita', 26, 3521804); +INSERT INTO SYS_CIDADES VALUES(4958, 'Itajobi', 26, 3521903); +INSERT INTO SYS_CIDADES VALUES(4959, 'Itaju', 26, 3522000); +INSERT INTO SYS_CIDADES VALUES(4960, 'Itanham', 26, 3522109); +INSERT INTO SYS_CIDADES VALUES(4961, 'Itaca', 26, 3522158); +INSERT INTO SYS_CIDADES VALUES(4962, 'Itapecerica da Serra', 26, 3522208); +INSERT INTO SYS_CIDADES VALUES(4963, 'Itapetininga', 26, 3522307); +INSERT INTO SYS_CIDADES VALUES(4964, 'Itapeva', 26, 3522406); +INSERT INTO SYS_CIDADES VALUES(4965, 'Itapevi', 26, 3522505); +INSERT INTO SYS_CIDADES VALUES(4966, 'Itapira', 26, 3522604); +INSERT INTO SYS_CIDADES VALUES(4967, 'Itapirapu Paulista', 26, 3522653); +INSERT INTO SYS_CIDADES VALUES(4968, 'Itpolis', 26, 3522703); +INSERT INTO SYS_CIDADES VALUES(4969, 'Itaporanga', 26, 3522802); +INSERT INTO SYS_CIDADES VALUES(4970, 'Itapu', 26, 3522901); +INSERT INTO SYS_CIDADES VALUES(4971, 'Itapura', 26, 3523008); +INSERT INTO SYS_CIDADES VALUES(4972, 'Itaquaquecetuba', 26, 3523107); +INSERT INTO SYS_CIDADES VALUES(4973, 'Itarar', 26, 3523206); +INSERT INTO SYS_CIDADES VALUES(4974, 'Itariri', 26, 3523305); +INSERT INTO SYS_CIDADES VALUES(4975, 'Itatiba', 26, 3523404); +INSERT INTO SYS_CIDADES VALUES(4976, 'Itatinga', 26, 3523503); +INSERT INTO SYS_CIDADES VALUES(4977, 'Itirapina', 26, 3523602); +INSERT INTO SYS_CIDADES VALUES(4978, 'Itirapu', 26, 3523701); +INSERT INTO SYS_CIDADES VALUES(4979, 'Itobi', 26, 3523800); +INSERT INTO SYS_CIDADES VALUES(4980, 'Itu', 26, 3523909); +INSERT INTO SYS_CIDADES VALUES(4981, 'Itupeva', 26, 3524006); +INSERT INTO SYS_CIDADES VALUES(4982, 'Ituverava', 26, 3524105); +INSERT INTO SYS_CIDADES VALUES(4983, 'Jaborandi', 26, 3524204); +INSERT INTO SYS_CIDADES VALUES(4984, 'Jaboticabal', 26, 3524303); +INSERT INTO SYS_CIDADES VALUES(4985, 'Jacare', 26, 3524402); +INSERT INTO SYS_CIDADES VALUES(4986, 'Jaci', 26, 3524501); +INSERT INTO SYS_CIDADES VALUES(4987, 'Jacupiranga', 26, 3524600); +INSERT INTO SYS_CIDADES VALUES(4988, 'Jaguarina', 26, 3524709); +INSERT INTO SYS_CIDADES VALUES(4989, 'Jales', 26, 3524808); +INSERT INTO SYS_CIDADES VALUES(4990, 'Jambeiro', 26, 3524907); +INSERT INTO SYS_CIDADES VALUES(4991, 'Jandira', 26, 3525003); +INSERT INTO SYS_CIDADES VALUES(4992, 'Jardinpolis', 26, 3525102); +INSERT INTO SYS_CIDADES VALUES(4993, 'Jarinu', 26, 3525201); +INSERT INTO SYS_CIDADES VALUES(4994, 'Ja', 26, 3525300); +INSERT INTO SYS_CIDADES VALUES(4995, 'Jeriquara', 26, 3525409); +INSERT INTO SYS_CIDADES VALUES(4996, 'Joanpolis', 26, 3525508); +INSERT INTO SYS_CIDADES VALUES(4997, 'Joo Ramalho', 26, 3525607); +INSERT INTO SYS_CIDADES VALUES(4998, 'Jos Bonifcio', 26, 3525706); +INSERT INTO SYS_CIDADES VALUES(4999, 'Jlio Mesquita', 26, 3525805); +INSERT INTO SYS_CIDADES VALUES(5000, 'Jumirim', 26, 3525854); +INSERT INTO SYS_CIDADES VALUES(5001, 'Jundia', 26, 3525904); +INSERT INTO SYS_CIDADES VALUES(5002, 'Junqueirpolis', 26, 3526001); +INSERT INTO SYS_CIDADES VALUES(5003, 'Juqui', 26, 3526100); +INSERT INTO SYS_CIDADES VALUES(5004, 'Juquitiba', 26, 3526209); +INSERT INTO SYS_CIDADES VALUES(5005, 'Lagoinha', 26, 3526308); +INSERT INTO SYS_CIDADES VALUES(5006, 'Laranjal Paulista', 26, 3526407); +INSERT INTO SYS_CIDADES VALUES(5007, 'Lavnia', 26, 3526506); +INSERT INTO SYS_CIDADES VALUES(5008, 'Lavrinhas', 26, 3526605); +INSERT INTO SYS_CIDADES VALUES(5009, 'Leme', 26, 3526704); +INSERT INTO SYS_CIDADES VALUES(5010, 'Lenis Paulista', 26, 3526803); +INSERT INTO SYS_CIDADES VALUES(5011, 'Limeira', 26, 3526902); +INSERT INTO SYS_CIDADES VALUES(5012, 'Lindia', 26, 3527009); +INSERT INTO SYS_CIDADES VALUES(5013, 'Lins', 26, 3527108); +INSERT INTO SYS_CIDADES VALUES(5014, 'Lorena', 26, 3527207); +INSERT INTO SYS_CIDADES VALUES(5015, 'Lourdes', 26, 3527256); +INSERT INTO SYS_CIDADES VALUES(5016, 'Louveira', 26, 3527306); +INSERT INTO SYS_CIDADES VALUES(5017, 'Luclia', 26, 3527405); +INSERT INTO SYS_CIDADES VALUES(5018, 'Lucianpolis', 26, 3527504); +INSERT INTO SYS_CIDADES VALUES(5019, 'Lus Antnio', 26, 3527603); +INSERT INTO SYS_CIDADES VALUES(5020, 'Luizinia', 26, 3527702); +INSERT INTO SYS_CIDADES VALUES(5021, 'Luprcio', 26, 3527801); +INSERT INTO SYS_CIDADES VALUES(5022, 'Lutcia', 26, 3527900); +INSERT INTO SYS_CIDADES VALUES(5023, 'Macatuba', 26, 3528007); +INSERT INTO SYS_CIDADES VALUES(5024, 'Macaubal', 26, 3528106); +INSERT INTO SYS_CIDADES VALUES(5025, 'Macednia', 26, 3528205); +INSERT INTO SYS_CIDADES VALUES(5026, 'Magda', 26, 3528304); +INSERT INTO SYS_CIDADES VALUES(5027, 'Mairinque', 26, 3528403); +INSERT INTO SYS_CIDADES VALUES(5028, 'Mairipor', 26, 3528502); +INSERT INTO SYS_CIDADES VALUES(5029, 'Manduri', 26, 3528601); +INSERT INTO SYS_CIDADES VALUES(5030, 'Marab Paulista', 26, 3528700); +INSERT INTO SYS_CIDADES VALUES(5031, 'Maraca', 26, 3528809); +INSERT INTO SYS_CIDADES VALUES(5032, 'Marapoama', 26, 3528858); +INSERT INTO SYS_CIDADES VALUES(5033, 'Maripolis', 26, 3528908); +INSERT INTO SYS_CIDADES VALUES(5034, 'Marlia', 26, 3529005); +INSERT INTO SYS_CIDADES VALUES(5035, 'Marinpolis', 26, 3529104); +INSERT INTO SYS_CIDADES VALUES(5036, 'Martinpolis', 26, 3529203); +INSERT INTO SYS_CIDADES VALUES(5037, 'Mato', 26, 3529302); +INSERT INTO SYS_CIDADES VALUES(5038, 'Mau', 26, 3529401); +INSERT INTO SYS_CIDADES VALUES(5039, 'Mendona', 26, 3529500); +INSERT INTO SYS_CIDADES VALUES(5040, 'Meridiano', 26, 3529609); +INSERT INTO SYS_CIDADES VALUES(5041, 'Mespolis', 26, 3529658); +INSERT INTO SYS_CIDADES VALUES(5042, 'Miguelpolis', 26, 3529708); +INSERT INTO SYS_CIDADES VALUES(5043, 'Mineiros do Tiet', 26, 3529807); +INSERT INTO SYS_CIDADES VALUES(5044, 'Mira Estrela', 26, 3530003); +INSERT INTO SYS_CIDADES VALUES(5045, 'Miracatu', 26, 3529906); +INSERT INTO SYS_CIDADES VALUES(5046, 'Mirandpolis', 26, 3530102); +INSERT INTO SYS_CIDADES VALUES(5047, 'Mirante do Paranapanema', 26, 3530201); +INSERT INTO SYS_CIDADES VALUES(5048, 'Mirassol', 26, 3530300); +INSERT INTO SYS_CIDADES VALUES(5049, 'Mirassolndia', 26, 3530409); +INSERT INTO SYS_CIDADES VALUES(5050, 'Mococa', 26, 3530508); +INSERT INTO SYS_CIDADES VALUES(5051, 'Mogi das Cruzes', 26, 3530607); +INSERT INTO SYS_CIDADES VALUES(5052, 'Mogi Guau', 26, 3530706); +INSERT INTO SYS_CIDADES VALUES(5053, 'Moji Mirim', 26, 3530805); +INSERT INTO SYS_CIDADES VALUES(5054, 'Mombuca', 26, 3530904); +INSERT INTO SYS_CIDADES VALUES(5055, 'Mones', 26, 3531001); +INSERT INTO SYS_CIDADES VALUES(5056, 'Mongagu', 26, 3531100); +INSERT INTO SYS_CIDADES VALUES(5057, 'Monte Alegre do Sul', 26, 3531209); +INSERT INTO SYS_CIDADES VALUES(5058, 'Monte Alto', 26, 3531308); +INSERT INTO SYS_CIDADES VALUES(5059, 'Monte Aprazvel', 26, 3531407); +INSERT INTO SYS_CIDADES VALUES(5060, 'Monte Azul Paulista', 26, 3531506); +INSERT INTO SYS_CIDADES VALUES(5061, 'Monte Castelo', 26, 3531605); +INSERT INTO SYS_CIDADES VALUES(5062, 'Monte Mor', 26, 3531803); +INSERT INTO SYS_CIDADES VALUES(5063, 'Monteiro Lobato', 26, 3531704); +INSERT INTO SYS_CIDADES VALUES(5064, 'Morro Agudo', 26, 3531902); +INSERT INTO SYS_CIDADES VALUES(5065, 'Morungaba', 26, 3532009); +INSERT INTO SYS_CIDADES VALUES(5066, 'Motuca', 26, 3532058); +INSERT INTO SYS_CIDADES VALUES(5067, 'Murutinga do Sul', 26, 3532108); +INSERT INTO SYS_CIDADES VALUES(5068, 'Nantes', 26, 3532157); +INSERT INTO SYS_CIDADES VALUES(5069, 'Narandiba', 26, 3532207); +INSERT INTO SYS_CIDADES VALUES(5070, 'Natividade da Serra', 26, 3532306); +INSERT INTO SYS_CIDADES VALUES(5071, 'Nazar Paulista', 26, 3532405); +INSERT INTO SYS_CIDADES VALUES(5072, 'Neves Paulista', 26, 3532504); +INSERT INTO SYS_CIDADES VALUES(5073, 'Nhandeara', 26, 3532603); +INSERT INTO SYS_CIDADES VALUES(5074, 'Nipo', 26, 3532702); +INSERT INTO SYS_CIDADES VALUES(5075, 'Nova Aliana', 26, 3532801); +INSERT INTO SYS_CIDADES VALUES(5076, 'Nova Campina', 26, 3532827); +INSERT INTO SYS_CIDADES VALUES(5077, 'Nova Cana Paulista', 26, 3532843); +INSERT INTO SYS_CIDADES VALUES(5078, 'Nova Castilho', 26, 3532868); +INSERT INTO SYS_CIDADES VALUES(5079, 'Nova Europa', 26, 3532900); +INSERT INTO SYS_CIDADES VALUES(5080, 'Nova Granada', 26, 3533007); +INSERT INTO SYS_CIDADES VALUES(5081, 'Nova Guataporanga', 26, 3533106); +INSERT INTO SYS_CIDADES VALUES(5082, 'Nova Independncia', 26, 3533205); +INSERT INTO SYS_CIDADES VALUES(5083, 'Nova Luzitnia', 26, 3533304); +INSERT INTO SYS_CIDADES VALUES(5084, 'Nova Odessa', 26, 3533403); +INSERT INTO SYS_CIDADES VALUES(5085, 'Novais', 26, 3533254); +INSERT INTO SYS_CIDADES VALUES(5086, 'Novo Horizonte', 26, 3533502); +INSERT INTO SYS_CIDADES VALUES(5087, 'Nuporanga', 26, 3533601); +INSERT INTO SYS_CIDADES VALUES(5088, 'Ocauu', 26, 3533700); +INSERT INTO SYS_CIDADES VALUES(5089, 'leo', 26, 3533809); +INSERT INTO SYS_CIDADES VALUES(5090, 'Olmpia', 26, 3533908); +INSERT INTO SYS_CIDADES VALUES(5091, 'Onda Verde', 26, 3534005); +INSERT INTO SYS_CIDADES VALUES(5092, 'Oriente', 26, 3534104); +INSERT INTO SYS_CIDADES VALUES(5093, 'Orindiva', 26, 3534203); +INSERT INTO SYS_CIDADES VALUES(5094, 'Orlndia', 26, 3534302); +INSERT INTO SYS_CIDADES VALUES(5095, 'Osasco', 26, 3534401); +INSERT INTO SYS_CIDADES VALUES(5096, 'Oscar Bressane', 26, 3534500); +INSERT INTO SYS_CIDADES VALUES(5097, 'Osvaldo Cruz', 26, 3534609); +INSERT INTO SYS_CIDADES VALUES(5098, 'Ourinhos', 26, 3534708); +INSERT INTO SYS_CIDADES VALUES(5099, 'Ouro Verde', 26, 3534807); +INSERT INTO SYS_CIDADES VALUES(5100, 'Ouroeste', 26, 3534757); +INSERT INTO SYS_CIDADES VALUES(5101, 'Pacaembu', 26, 3534906); +INSERT INTO SYS_CIDADES VALUES(5102, 'Palestina', 26, 3535002); +INSERT INTO SYS_CIDADES VALUES(5103, 'Palmares Paulista', 26, 3535101); +INSERT INTO SYS_CIDADES VALUES(5104, 'Palmeira d`Oeste', 26, 3535200); +INSERT INTO SYS_CIDADES VALUES(5105, 'Palmital', 26, 3535309); +INSERT INTO SYS_CIDADES VALUES(5106, 'Panorama', 26, 3535408); +INSERT INTO SYS_CIDADES VALUES(5107, 'Paraguau Paulista', 26, 3535507); +INSERT INTO SYS_CIDADES VALUES(5108, 'Paraibuna', 26, 3535606); +INSERT INTO SYS_CIDADES VALUES(5109, 'Paraso', 26, 3535705); +INSERT INTO SYS_CIDADES VALUES(5110, 'Paranapanema', 26, 3535804); +INSERT INTO SYS_CIDADES VALUES(5111, 'Paranapu', 26, 3535903); +INSERT INTO SYS_CIDADES VALUES(5112, 'Parapu', 26, 3536000); +INSERT INTO SYS_CIDADES VALUES(5113, 'Pardinho', 26, 3536109); +INSERT INTO SYS_CIDADES VALUES(5114, 'Pariquera-Au', 26, 3536208); +INSERT INTO SYS_CIDADES VALUES(5115, 'Parisi', 26, 3536257); +INSERT INTO SYS_CIDADES VALUES(5116, 'Patrocnio Paulista', 26, 3536307); +INSERT INTO SYS_CIDADES VALUES(5117, 'Paulicia', 26, 3536406); +INSERT INTO SYS_CIDADES VALUES(5118, 'Paulnia', 26, 3536505); +INSERT INTO SYS_CIDADES VALUES(5119, 'Paulistnia', 26, 3536570); +INSERT INTO SYS_CIDADES VALUES(5120, 'Paulo de Faria', 26, 3536604); +INSERT INTO SYS_CIDADES VALUES(5121, 'Pederneiras', 26, 3536703); +INSERT INTO SYS_CIDADES VALUES(5122, 'Pedra Bela', 26, 3536802); +INSERT INTO SYS_CIDADES VALUES(5123, 'Pedranpolis', 26, 3536901); +INSERT INTO SYS_CIDADES VALUES(5124, 'Pedregulho', 26, 3537008); +INSERT INTO SYS_CIDADES VALUES(5125, 'Pedreira', 26, 3537107); +INSERT INTO SYS_CIDADES VALUES(5126, 'Pedrinhas Paulista', 26, 3537156); +INSERT INTO SYS_CIDADES VALUES(5127, 'Pedro de Toledo', 26, 3537206); +INSERT INTO SYS_CIDADES VALUES(5128, 'Penpolis', 26, 3537305); +INSERT INTO SYS_CIDADES VALUES(5129, 'Pereira Barreto', 26, 3537404); +INSERT INTO SYS_CIDADES VALUES(5130, 'Pereiras', 26, 3537503); +INSERT INTO SYS_CIDADES VALUES(5131, 'Perube', 26, 3537602); +INSERT INTO SYS_CIDADES VALUES(5132, 'Piacatu', 26, 3537701); +INSERT INTO SYS_CIDADES VALUES(5133, 'Piedade', 26, 3537800); +INSERT INTO SYS_CIDADES VALUES(5134, 'Pilar do Sul', 26, 3537909); +INSERT INTO SYS_CIDADES VALUES(5135, 'Pindamonhangaba', 26, 3538006); +INSERT INTO SYS_CIDADES VALUES(5136, 'Pindorama', 26, 3538105); +INSERT INTO SYS_CIDADES VALUES(5137, 'Pinhalzinho', 26, 3538204); +INSERT INTO SYS_CIDADES VALUES(5138, 'Piquerobi', 26, 3538303); +INSERT INTO SYS_CIDADES VALUES(5139, 'Piquete', 26, 3538501); +INSERT INTO SYS_CIDADES VALUES(5140, 'Piracaia', 26, 3538600); +INSERT INTO SYS_CIDADES VALUES(5141, 'Piracicaba', 26, 3538709); +INSERT INTO SYS_CIDADES VALUES(5142, 'Piraju', 26, 3538808); +INSERT INTO SYS_CIDADES VALUES(5143, 'Piraju', 26, 3538907); +INSERT INTO SYS_CIDADES VALUES(5144, 'Pirangi', 26, 3539004); +INSERT INTO SYS_CIDADES VALUES(5145, 'Pirapora do Bom Jesus', 26, 3539103); +INSERT INTO SYS_CIDADES VALUES(5146, 'Pirapozinho', 26, 3539202); +INSERT INTO SYS_CIDADES VALUES(5147, 'Pirassununga', 26, 3539301); +INSERT INTO SYS_CIDADES VALUES(5148, 'Piratininga', 26, 3539400); +INSERT INTO SYS_CIDADES VALUES(5149, 'Pitangueiras', 26, 3539509); +INSERT INTO SYS_CIDADES VALUES(5150, 'Planalto', 26, 3539608); +INSERT INTO SYS_CIDADES VALUES(5151, 'Platina', 26, 3539707); +INSERT INTO SYS_CIDADES VALUES(5152, 'Po', 26, 3539806); +INSERT INTO SYS_CIDADES VALUES(5153, 'Poloni', 26, 3539905); +INSERT INTO SYS_CIDADES VALUES(5154, 'Pompia', 26, 3540002); +INSERT INTO SYS_CIDADES VALUES(5155, 'Ponga', 26, 3540101); +INSERT INTO SYS_CIDADES VALUES(5156, 'Pontal', 26, 3540200); +INSERT INTO SYS_CIDADES VALUES(5157, 'Pontalinda', 26, 3540259); +INSERT INTO SYS_CIDADES VALUES(5158, 'Pontes Gestal', 26, 3540309); +INSERT INTO SYS_CIDADES VALUES(5159, 'Populina', 26, 3540408); +INSERT INTO SYS_CIDADES VALUES(5160, 'Porangaba', 26, 3540507); +INSERT INTO SYS_CIDADES VALUES(5161, 'Porto Feliz', 26, 3540606); +INSERT INTO SYS_CIDADES VALUES(5162, 'Porto Ferreira', 26, 3540705); +INSERT INTO SYS_CIDADES VALUES(5163, 'Potim', 26, 3540754); +INSERT INTO SYS_CIDADES VALUES(5164, 'Potirendaba', 26, 3540804); +INSERT INTO SYS_CIDADES VALUES(5165, 'Pracinha', 26, 3540853); +INSERT INTO SYS_CIDADES VALUES(5166, 'Pradpolis', 26, 3540903); +INSERT INTO SYS_CIDADES VALUES(5167, 'Praia Grande', 26, 3541000); +INSERT INTO SYS_CIDADES VALUES(5168, 'Pratnia', 26, 3541059); +INSERT INTO SYS_CIDADES VALUES(5169, 'Presidente Alves', 26, 3541109); +INSERT INTO SYS_CIDADES VALUES(5170, 'Presidente Bernardes', 26, 3541208); +INSERT INTO SYS_CIDADES VALUES(5171, 'Presidente Epitcio', 26, 3541307); +INSERT INTO SYS_CIDADES VALUES(5172, 'Presidente Prudente', 26, 3541406); +INSERT INTO SYS_CIDADES VALUES(5173, 'Presidente Venceslau', 26, 3541505); +INSERT INTO SYS_CIDADES VALUES(5174, 'Promisso', 26, 3541604); +INSERT INTO SYS_CIDADES VALUES(5175, 'Quadra', 26, 3541653); +INSERT INTO SYS_CIDADES VALUES(5176, 'Quat', 26, 3541703); +INSERT INTO SYS_CIDADES VALUES(5177, 'Queiroz', 26, 3541802); +INSERT INTO SYS_CIDADES VALUES(5178, 'Queluz', 26, 3541901); +INSERT INTO SYS_CIDADES VALUES(5179, 'Quintana', 26, 3542008); +INSERT INTO SYS_CIDADES VALUES(5180, 'Rafard', 26, 3542107); +INSERT INTO SYS_CIDADES VALUES(5181, 'Rancharia', 26, 3542206); +INSERT INTO SYS_CIDADES VALUES(5182, 'Redeno da Serra', 26, 3542305); +INSERT INTO SYS_CIDADES VALUES(5183, 'Regente Feij', 26, 3542404); +INSERT INTO SYS_CIDADES VALUES(5184, 'Reginpolis', 26, 3542503); +INSERT INTO SYS_CIDADES VALUES(5185, 'Registro', 26, 3542602); +INSERT INTO SYS_CIDADES VALUES(5186, 'Restinga', 26, 3542701); +INSERT INTO SYS_CIDADES VALUES(5187, 'Ribeira', 26, 3542800); +INSERT INTO SYS_CIDADES VALUES(5188, 'Ribeiro Bonito', 26, 3542909); +INSERT INTO SYS_CIDADES VALUES(5189, 'Ribeiro Branco', 26, 3543006); +INSERT INTO SYS_CIDADES VALUES(5190, 'Ribeiro Corrente', 26, 3543105); +INSERT INTO SYS_CIDADES VALUES(5191, 'Ribeiro do Sul', 26, 3543204); +INSERT INTO SYS_CIDADES VALUES(5192, 'Ribeiro dos ndios', 26, 3543238); +INSERT INTO SYS_CIDADES VALUES(5193, 'Ribeiro Grande', 26, 3543253); +INSERT INTO SYS_CIDADES VALUES(5194, 'Ribeiro Pires', 26, 3543303); +INSERT INTO SYS_CIDADES VALUES(5195, 'Ribeiro Preto', 26, 3543402); +INSERT INTO SYS_CIDADES VALUES(5196, 'Rifaina', 26, 3543600); +INSERT INTO SYS_CIDADES VALUES(5197, 'Rinco', 26, 3543709); +INSERT INTO SYS_CIDADES VALUES(5198, 'Rinpolis', 26, 3543808); +INSERT INTO SYS_CIDADES VALUES(5199, 'Rio Claro', 26, 3543907); +INSERT INTO SYS_CIDADES VALUES(5200, 'Rio das Pedras', 26, 3544004); +INSERT INTO SYS_CIDADES VALUES(5201, 'Rio Grande da Serra', 26, 3544103); +INSERT INTO SYS_CIDADES VALUES(5202, 'Riolndia', 26, 3544202); +INSERT INTO SYS_CIDADES VALUES(5203, 'Riversul', 26, 3543501); +INSERT INTO SYS_CIDADES VALUES(5204, 'Rosana', 26, 3544251); +INSERT INTO SYS_CIDADES VALUES(5205, 'Roseira', 26, 3544301); +INSERT INTO SYS_CIDADES VALUES(5206, 'Rubicea', 26, 3544400); +INSERT INTO SYS_CIDADES VALUES(5207, 'Rubinia', 26, 3544509); +INSERT INTO SYS_CIDADES VALUES(5208, 'Sabino', 26, 3544608); +INSERT INTO SYS_CIDADES VALUES(5209, 'Sagres', 26, 3544707); +INSERT INTO SYS_CIDADES VALUES(5210, 'Sales', 26, 3544806); +INSERT INTO SYS_CIDADES VALUES(5211, 'Sales Oliveira', 26, 3544905); +INSERT INTO SYS_CIDADES VALUES(5212, 'Salespolis', 26, 3545001); +INSERT INTO SYS_CIDADES VALUES(5213, 'Salmouro', 26, 3545100); +INSERT INTO SYS_CIDADES VALUES(5214, 'Saltinho', 26, 3545159); +INSERT INTO SYS_CIDADES VALUES(5215, 'Salto', 26, 3545209); +INSERT INTO SYS_CIDADES VALUES(5216, 'Salto de Pirapora', 26, 3545308); +INSERT INTO SYS_CIDADES VALUES(5217, 'Salto Grande', 26, 3545407); +INSERT INTO SYS_CIDADES VALUES(5218, 'Sandovalina', 26, 3545506); +INSERT INTO SYS_CIDADES VALUES(5219, 'Santa Adlia', 26, 3545605); +INSERT INTO SYS_CIDADES VALUES(5220, 'Santa Albertina', 26, 3545704); +INSERT INTO SYS_CIDADES VALUES(5221, 'Santa Brbara d`Oeste', 26, 3545803); +INSERT INTO SYS_CIDADES VALUES(5222, 'Santa Branca', 26, 3546009); +INSERT INTO SYS_CIDADES VALUES(5223, 'Santa Clara d`Oeste', 26, 3546108); +INSERT INTO SYS_CIDADES VALUES(5224, 'Santa Cruz da Conceio', 26, 3546207); +INSERT INTO SYS_CIDADES VALUES(5225, 'Santa Cruz da Esperana', 26, 3546256); +INSERT INTO SYS_CIDADES VALUES(5226, 'Santa Cruz das Palmeiras', 26, 3546306); +INSERT INTO SYS_CIDADES VALUES(5227, 'Santa Cruz do Rio Pardo', 26, 3546405); +INSERT INTO SYS_CIDADES VALUES(5228, 'Santa Ernestina', 26, 3546504); +INSERT INTO SYS_CIDADES VALUES(5229, 'Santa F do Sul', 26, 3546603); +INSERT INTO SYS_CIDADES VALUES(5230, 'Santa Gertrudes', 26, 3546702); +INSERT INTO SYS_CIDADES VALUES(5231, 'Santa Isabel', 26, 3546801); +INSERT INTO SYS_CIDADES VALUES(5232, 'Santa Lcia', 26, 3546900); +INSERT INTO SYS_CIDADES VALUES(5233, 'Santa Maria da Serra', 26, 3547007); +INSERT INTO SYS_CIDADES VALUES(5234, 'Santa Mercedes', 26, 3547106); +INSERT INTO SYS_CIDADES VALUES(5235, 'Santa Rita d`Oeste', 26, 3547403); +INSERT INTO SYS_CIDADES VALUES(5236, 'Santa Rita do Passa Quatro', 26, 3547502); +INSERT INTO SYS_CIDADES VALUES(5237, 'Santa Rosa de Viterbo', 26, 3547601); +INSERT INTO SYS_CIDADES VALUES(5238, 'Santa Salete', 26, 3547650); +INSERT INTO SYS_CIDADES VALUES(5239, 'Santana da Ponte Pensa', 26, 3547205); +INSERT INTO SYS_CIDADES VALUES(5240, 'Santana de Parnaba', 26, 3547304); +INSERT INTO SYS_CIDADES VALUES(5241, 'Santo Anastcio', 26, 3547700); +INSERT INTO SYS_CIDADES VALUES(5242, 'Santo Andr', 26, 3547809); +INSERT INTO SYS_CIDADES VALUES(5243, 'Santo Antnio da Alegria', 26, 3547908); +INSERT INTO SYS_CIDADES VALUES(5244, 'Santo Antnio de Posse', 26, 3548005); +INSERT INTO SYS_CIDADES VALUES(5245, 'Santo Antnio do Aracangu', 26, 3548054); +INSERT INTO SYS_CIDADES VALUES(5246, 'Santo Antnio do Jardim', 26, 3548104); +INSERT INTO SYS_CIDADES VALUES(5247, 'Santo Antnio do Pinhal', 26, 3548203); +INSERT INTO SYS_CIDADES VALUES(5248, 'Santo Expedito', 26, 3548302); +INSERT INTO SYS_CIDADES VALUES(5249, 'Santpolis do Aguape', 26, 3548401); +INSERT INTO SYS_CIDADES VALUES(5250, 'Santos', 26, 3548500); +INSERT INTO SYS_CIDADES VALUES(5251, 'So Bento do Sapuca', 26, 3548609); +INSERT INTO SYS_CIDADES VALUES(5252, 'So Bernardo do Campo', 26, 3548708); +INSERT INTO SYS_CIDADES VALUES(5253, 'So Caetano do Sul', 26, 3548807); +INSERT INTO SYS_CIDADES VALUES(5254, 'So Carlos', 26, 3548906); +INSERT INTO SYS_CIDADES VALUES(5255, 'So Francisco', 26, 3549003); +INSERT INTO SYS_CIDADES VALUES(5256, 'So Joo da Boa Vista', 26, 3549102); +INSERT INTO SYS_CIDADES VALUES(5257, 'So Joo das Duas Pontes', 26, 3549201); +INSERT INTO SYS_CIDADES VALUES(5258, 'So Joo de Iracema', 26, 3549250); +INSERT INTO SYS_CIDADES VALUES(5259, 'So Joo do Pau d`Alho', 26, 3549300); +INSERT INTO SYS_CIDADES VALUES(5260, 'So Joaquim da Barra', 26, 3549409); +INSERT INTO SYS_CIDADES VALUES(5261, 'So Jos da Bela Vista', 26, 3549508); +INSERT INTO SYS_CIDADES VALUES(5262, 'So Jos do Barreiro', 26, 3549607); +INSERT INTO SYS_CIDADES VALUES(5263, 'So Jos do Rio Pardo', 26, 3549706); +INSERT INTO SYS_CIDADES VALUES(5264, 'So Jos do Rio Preto', 26, 3549805); +INSERT INTO SYS_CIDADES VALUES(5265, 'So Jos dos Campos', 26, 3549904); +INSERT INTO SYS_CIDADES VALUES(5266, 'So Loureno da Serra', 26, 3549953); +INSERT INTO SYS_CIDADES VALUES(5267, 'So Lus do Paraitinga', 26, 3550001); +INSERT INTO SYS_CIDADES VALUES(5268, 'So Manuel', 26, 3550100); +INSERT INTO SYS_CIDADES VALUES(5269, 'So Miguel Arcanjo', 26, 3550209); +INSERT INTO SYS_CIDADES VALUES(5270, 'So Paulo', 26, 3550308); +INSERT INTO SYS_CIDADES VALUES(5271, 'So Pedro', 26, 3550407); +INSERT INTO SYS_CIDADES VALUES(5272, 'So Pedro do Turvo', 26, 3550506); +INSERT INTO SYS_CIDADES VALUES(5273, 'So Roque', 26, 3550605); +INSERT INTO SYS_CIDADES VALUES(5274, 'So Sebastio', 26, 3550704); +INSERT INTO SYS_CIDADES VALUES(5275, 'So Sebastio da Grama', 26, 3550803); +INSERT INTO SYS_CIDADES VALUES(5276, 'So Simo', 26, 3550902); +INSERT INTO SYS_CIDADES VALUES(5277, 'So Vicente', 26, 3551009); +INSERT INTO SYS_CIDADES VALUES(5278, 'Sarapu', 26, 3551108); +INSERT INTO SYS_CIDADES VALUES(5279, 'Sarutai', 26, 3551207); +INSERT INTO SYS_CIDADES VALUES(5280, 'Sebastianpolis do Sul', 26, 3551306); +INSERT INTO SYS_CIDADES VALUES(5281, 'Serra Azul', 26, 3551405); +INSERT INTO SYS_CIDADES VALUES(5282, 'Serra Negra', 26, 3551603); +INSERT INTO SYS_CIDADES VALUES(5283, 'Serrana', 26, 3551504); +INSERT INTO SYS_CIDADES VALUES(5284, 'Sertozinho', 26, 3551702); +INSERT INTO SYS_CIDADES VALUES(5285, 'Sete Barras', 26, 3551801); +INSERT INTO SYS_CIDADES VALUES(5286, 'Severnia', 26, 3551900); +INSERT INTO SYS_CIDADES VALUES(5287, 'Silveiras', 26, 3552007); +INSERT INTO SYS_CIDADES VALUES(5288, 'Socorro', 26, 3552106); +INSERT INTO SYS_CIDADES VALUES(5289, 'Sorocaba', 26, 3552205); +INSERT INTO SYS_CIDADES VALUES(5290, 'Sud Mennucci', 26, 3552304); +INSERT INTO SYS_CIDADES VALUES(5291, 'Sumar', 26, 3552403); +INSERT INTO SYS_CIDADES VALUES(5292, 'Suzanpolis', 26, 3552551); +INSERT INTO SYS_CIDADES VALUES(5293, 'Suzano', 26, 3552502); +INSERT INTO SYS_CIDADES VALUES(5294, 'Tabapu', 26, 3552601); +INSERT INTO SYS_CIDADES VALUES(5295, 'Tabatinga', 26, 3552700); +INSERT INTO SYS_CIDADES VALUES(5296, 'Taboo da Serra', 26, 3552809); +INSERT INTO SYS_CIDADES VALUES(5297, 'Taciba', 26, 3552908); +INSERT INTO SYS_CIDADES VALUES(5298, 'Tagua', 26, 3553005); +INSERT INTO SYS_CIDADES VALUES(5299, 'Taiau', 26, 3553104); +INSERT INTO SYS_CIDADES VALUES(5300, 'Taiva', 26, 3553203); +INSERT INTO SYS_CIDADES VALUES(5301, 'Tamba', 26, 3553302); +INSERT INTO SYS_CIDADES VALUES(5302, 'Tanabi', 26, 3553401); +INSERT INTO SYS_CIDADES VALUES(5303, 'Tapira', 26, 3553500); +INSERT INTO SYS_CIDADES VALUES(5304, 'Tapiratiba', 26, 3553609); +INSERT INTO SYS_CIDADES VALUES(5305, 'Taquaral', 26, 3553658); +INSERT INTO SYS_CIDADES VALUES(5306, 'Taquaritinga', 26, 3553708); +INSERT INTO SYS_CIDADES VALUES(5307, 'Taquarituba', 26, 3553807); +INSERT INTO SYS_CIDADES VALUES(5308, 'Taquariva', 26, 3553856); +INSERT INTO SYS_CIDADES VALUES(5309, 'Tarabai', 26, 3553906); +INSERT INTO SYS_CIDADES VALUES(5310, 'Tarum', 26, 3553955); +INSERT INTO SYS_CIDADES VALUES(5311, 'Tatu', 26, 3554003); +INSERT INTO SYS_CIDADES VALUES(5312, 'Taubat', 26, 3554102); +INSERT INTO SYS_CIDADES VALUES(5313, 'Tejup', 26, 3554201); +INSERT INTO SYS_CIDADES VALUES(5314, 'Teodoro Sampaio', 26, 3554300); +INSERT INTO SYS_CIDADES VALUES(5315, 'Terra Roxa', 26, 3554409); +INSERT INTO SYS_CIDADES VALUES(5316, 'Tiet', 26, 3554508); +INSERT INTO SYS_CIDADES VALUES(5317, 'Timburi', 26, 3554607); +INSERT INTO SYS_CIDADES VALUES(5318, 'Torre de Pedra', 26, 3554656); +INSERT INTO SYS_CIDADES VALUES(5319, 'Torrinha', 26, 3554706); +INSERT INTO SYS_CIDADES VALUES(5320, 'Trabiju', 26, 3554755); +INSERT INTO SYS_CIDADES VALUES(5321, 'Trememb', 26, 3554805); +INSERT INTO SYS_CIDADES VALUES(5322, 'Trs Fronteiras', 26, 3554904); +INSERT INTO SYS_CIDADES VALUES(5323, 'Tuiuti', 26, 3554953); +INSERT INTO SYS_CIDADES VALUES(5324, 'Tup', 26, 3555000); +INSERT INTO SYS_CIDADES VALUES(5325, 'Tupi Paulista', 26, 3555109); +INSERT INTO SYS_CIDADES VALUES(5326, 'Turiba', 26, 3555208); +INSERT INTO SYS_CIDADES VALUES(5327, 'Turmalina', 26, 3555307); +INSERT INTO SYS_CIDADES VALUES(5328, 'Ubarana', 26, 3555356); +INSERT INTO SYS_CIDADES VALUES(5329, 'Ubatuba', 26, 3555406); +INSERT INTO SYS_CIDADES VALUES(5330, 'Ubirajara', 26, 3555505); +INSERT INTO SYS_CIDADES VALUES(5331, 'Uchoa', 26, 3555604); +INSERT INTO SYS_CIDADES VALUES(5332, 'Unio Paulista', 26, 3555703); +INSERT INTO SYS_CIDADES VALUES(5333, 'Urnia', 26, 3555802); +INSERT INTO SYS_CIDADES VALUES(5334, 'Uru', 26, 3555901); +INSERT INTO SYS_CIDADES VALUES(5335, 'Urups', 26, 3556008); +INSERT INTO SYS_CIDADES VALUES(5336, 'Valentim Gentil', 26, 3556107); +INSERT INTO SYS_CIDADES VALUES(5337, 'Valinhos', 26, 3556206); +INSERT INTO SYS_CIDADES VALUES(5338, 'Valparaso', 26, 3556305); +INSERT INTO SYS_CIDADES VALUES(5339, 'Vargem', 26, 3556354); +INSERT INTO SYS_CIDADES VALUES(5340, 'Vargem Grande do Sul', 26, 3556404); +INSERT INTO SYS_CIDADES VALUES(5341, 'Vargem Grande Paulista', 26, 3556453); +INSERT INTO SYS_CIDADES VALUES(5342, 'Vrzea Paulista', 26, 3556503); +INSERT INTO SYS_CIDADES VALUES(5343, 'Vera Cruz', 26, 3556602); +INSERT INTO SYS_CIDADES VALUES(5344, 'Vinhedo', 26, 3556701); +INSERT INTO SYS_CIDADES VALUES(5345, 'Viradouro', 26, 3556800); +INSERT INTO SYS_CIDADES VALUES(5346, 'Vista Alegre do Alto', 26, 3556909); +INSERT INTO SYS_CIDADES VALUES(5347, 'Vitria Brasil', 26, 3556958); +INSERT INTO SYS_CIDADES VALUES(5348, 'Votorantim', 26, 3557006); +INSERT INTO SYS_CIDADES VALUES(5349, 'Votuporanga', 26, 3557105); +INSERT INTO SYS_CIDADES VALUES(5350, 'Zacarias', 26, 3557154); +INSERT INTO SYS_CIDADES VALUES(5351, 'Amparo de So Francisco', 25, 2800100); +INSERT INTO SYS_CIDADES VALUES(5352, 'Aquidab', 25, 2800209); +INSERT INTO SYS_CIDADES VALUES(5353, 'Aracaju', 25, 2800308); +INSERT INTO SYS_CIDADES VALUES(5354, 'Arau', 25, 2800407); +INSERT INTO SYS_CIDADES VALUES(5355, 'Areia Branca', 25, 2800506); +INSERT INTO SYS_CIDADES VALUES(5356, 'Barra dos Coqueiros', 25, 2800605); +INSERT INTO SYS_CIDADES VALUES(5357, 'Boquim', 25, 2800670); +INSERT INTO SYS_CIDADES VALUES(5358, 'Brejo Grande', 25, 2800704); +INSERT INTO SYS_CIDADES VALUES(5359, 'Campo do Brito', 25, 2801009); +INSERT INTO SYS_CIDADES VALUES(5360, 'Canhoba', 25, 2801108); +INSERT INTO SYS_CIDADES VALUES(5361, 'Canind de So Francisco', 25, 2801207); +INSERT INTO SYS_CIDADES VALUES(5362, 'Capela', 25, 2801306); +INSERT INTO SYS_CIDADES VALUES(5363, 'Carira', 25, 2801405); +INSERT INTO SYS_CIDADES VALUES(5364, 'Carmpolis', 25, 2801504); +INSERT INTO SYS_CIDADES VALUES(5365, 'Cedro de So Joo', 25, 2801603); +INSERT INTO SYS_CIDADES VALUES(5366, 'Cristinpolis', 25, 2801702); +INSERT INTO SYS_CIDADES VALUES(5367, 'Cumbe', 25, 2801900); +INSERT INTO SYS_CIDADES VALUES(5368, 'Divina Pastora', 25, 2802007); +INSERT INTO SYS_CIDADES VALUES(5369, 'Estncia', 25, 2802106); +INSERT INTO SYS_CIDADES VALUES(5370, 'Feira Nova', 25, 2802205); +INSERT INTO SYS_CIDADES VALUES(5371, 'Frei Paulo', 25, 2802304); +INSERT INTO SYS_CIDADES VALUES(5372, 'Gararu', 25, 2802403); +INSERT INTO SYS_CIDADES VALUES(5373, 'General Maynard', 25, 2802502); +INSERT INTO SYS_CIDADES VALUES(5374, 'Gracho Cardoso', 25, 2802601); +INSERT INTO SYS_CIDADES VALUES(5375, 'Ilha das Flores', 25, 2802700); +INSERT INTO SYS_CIDADES VALUES(5376, 'Indiaroba', 25, 2802809); +INSERT INTO SYS_CIDADES VALUES(5377, 'Itabaiana', 25, 2802908); +INSERT INTO SYS_CIDADES VALUES(5378, 'Itabaianinha', 25, 2803005); +INSERT INTO SYS_CIDADES VALUES(5379, 'Itabi', 25, 2803104); +INSERT INTO SYS_CIDADES VALUES(5380, 'Itaporanga d`Ajuda', 25, 2803203); +INSERT INTO SYS_CIDADES VALUES(5381, 'Japaratuba', 25, 2803302); +INSERT INTO SYS_CIDADES VALUES(5382, 'Japoat', 25, 2803401); +INSERT INTO SYS_CIDADES VALUES(5383, 'Lagarto', 25, 2803500); +INSERT INTO SYS_CIDADES VALUES(5384, 'Laranjeiras', 25, 2803609); +INSERT INTO SYS_CIDADES VALUES(5385, 'Macambira', 25, 2803708); +INSERT INTO SYS_CIDADES VALUES(5386, 'Malhada dos Bois', 25, 2803807); +INSERT INTO SYS_CIDADES VALUES(5387, 'Malhador', 25, 2803906); +INSERT INTO SYS_CIDADES VALUES(5388, 'Maruim', 25, 2804003); +INSERT INTO SYS_CIDADES VALUES(5389, 'Moita Bonita', 25, 2804102); +INSERT INTO SYS_CIDADES VALUES(5390, 'Monte Alegre de Sergipe', 25, 2804201); +INSERT INTO SYS_CIDADES VALUES(5391, 'Muribeca', 25, 2804300); +INSERT INTO SYS_CIDADES VALUES(5392, 'Nepolis', 25, 2804409); +INSERT INTO SYS_CIDADES VALUES(5393, 'Nossa Senhora Aparecida', 25, 2804458); +INSERT INTO SYS_CIDADES VALUES(5394, 'Nossa Senhora da Glria', 25, 2804508); +INSERT INTO SYS_CIDADES VALUES(5395, 'Nossa Senhora das Dores', 25, 2804607); +INSERT INTO SYS_CIDADES VALUES(5396, 'Nossa Senhora de Lourdes', 25, 2804706); +INSERT INTO SYS_CIDADES VALUES(5397, 'Nossa Senhora do Socorro', 25, 2804805); +INSERT INTO SYS_CIDADES VALUES(5398, 'Pacatuba', 25, 2804904); +INSERT INTO SYS_CIDADES VALUES(5399, 'Pedra Mole', 25, 2805000); +INSERT INTO SYS_CIDADES VALUES(5400, 'Pedrinhas', 25, 2805109); +INSERT INTO SYS_CIDADES VALUES(5401, 'Pinho', 25, 2805208); +INSERT INTO SYS_CIDADES VALUES(5402, 'Pirambu', 25, 2805307); +INSERT INTO SYS_CIDADES VALUES(5403, 'Poo Redondo', 25, 2805406); +INSERT INTO SYS_CIDADES VALUES(5404, 'Poo Verde', 25, 2805505); +INSERT INTO SYS_CIDADES VALUES(5405, 'Porto da Folha', 25, 2805604); +INSERT INTO SYS_CIDADES VALUES(5406, 'Propri', 25, 2805703); +INSERT INTO SYS_CIDADES VALUES(5407, 'Riacho do Dantas', 25, 2805802); +INSERT INTO SYS_CIDADES VALUES(5408, 'Riachuelo', 25, 2805901); +INSERT INTO SYS_CIDADES VALUES(5409, 'Ribeirpolis', 25, 2806008); +INSERT INTO SYS_CIDADES VALUES(5410, 'Rosrio do Catete', 25, 2806107); +INSERT INTO SYS_CIDADES VALUES(5411, 'Salgado', 25, 2806206); +INSERT INTO SYS_CIDADES VALUES(5412, 'Santa Luzia do Itanhy', 25, 2806305); +INSERT INTO SYS_CIDADES VALUES(5413, 'Santa Rosa de Lima', 25, 2806503); +INSERT INTO SYS_CIDADES VALUES(5414, 'Santana do So Francisco', 25, 2806404); +INSERT INTO SYS_CIDADES VALUES(5415, 'Santo Amaro das Brotas', 25, 2806602); +INSERT INTO SYS_CIDADES VALUES(5416, 'So Cristvo', 25, 2806701); +INSERT INTO SYS_CIDADES VALUES(5417, 'So Domingos', 25, 2806800); +INSERT INTO SYS_CIDADES VALUES(5418, 'So Francisco', 25, 2806909); +INSERT INTO SYS_CIDADES VALUES(5419, 'So Miguel do Aleixo', 25, 2807006); +INSERT INTO SYS_CIDADES VALUES(5420, 'Simo Dias', 25, 2807105); +INSERT INTO SYS_CIDADES VALUES(5421, 'Siriri', 25, 2807204); +INSERT INTO SYS_CIDADES VALUES(5422, 'Telha', 25, 2807303); +INSERT INTO SYS_CIDADES VALUES(5423, 'Tobias Barreto', 25, 2807402); +INSERT INTO SYS_CIDADES VALUES(5424, 'Tomar do Geru', 25, 2807501); +INSERT INTO SYS_CIDADES VALUES(5425, 'Umbaba', 25, 2807600); +INSERT INTO SYS_CIDADES VALUES(5426, 'Abreulndia', 27, 1700251); +INSERT INTO SYS_CIDADES VALUES(5427, 'Aguiarnpolis', 27, 1700301); +INSERT INTO SYS_CIDADES VALUES(5428, 'Aliana do Tocantins', 27, 1700350); +INSERT INTO SYS_CIDADES VALUES(5429, 'Almas', 27, 1700400); +INSERT INTO SYS_CIDADES VALUES(5430, 'Alvorada', 27, 1700707); +INSERT INTO SYS_CIDADES VALUES(5431, 'Anans', 27, 1701002); +INSERT INTO SYS_CIDADES VALUES(5432, 'Angico', 27, 1701051); +INSERT INTO SYS_CIDADES VALUES(5433, 'Aparecida do Rio Negro', 27, 1701101); +INSERT INTO SYS_CIDADES VALUES(5434, 'Aragominas', 27, 1701309); +INSERT INTO SYS_CIDADES VALUES(5435, 'Araguacema', 27, 1701903); +INSERT INTO SYS_CIDADES VALUES(5436, 'Araguau', 27, 1702000); +INSERT INTO SYS_CIDADES VALUES(5437, 'Araguana', 27, 1702109); +INSERT INTO SYS_CIDADES VALUES(5438, 'Araguan', 27, 1702158); +INSERT INTO SYS_CIDADES VALUES(5439, 'Araguatins', 27, 1702208); +INSERT INTO SYS_CIDADES VALUES(5440, 'Arapoema', 27, 1702307); +INSERT INTO SYS_CIDADES VALUES(5441, 'Arraias', 27, 1702406); +INSERT INTO SYS_CIDADES VALUES(5442, 'Augustinpolis', 27, 1702554); +INSERT INTO SYS_CIDADES VALUES(5443, 'Aurora do Tocantins', 27, 1702703); +INSERT INTO SYS_CIDADES VALUES(5444, 'Axix do Tocantins', 27, 1702901); +INSERT INTO SYS_CIDADES VALUES(5445, 'Babaulndia', 27, 1703008); +INSERT INTO SYS_CIDADES VALUES(5446, 'Bandeirantes do Tocantins', 27, 1703057); +INSERT INTO SYS_CIDADES VALUES(5447, 'Barra do Ouro', 27, 1703073); +INSERT INTO SYS_CIDADES VALUES(5448, 'Barrolndia', 27, 1703107); +INSERT INTO SYS_CIDADES VALUES(5449, 'Bernardo Sayo', 27, 1703206); +INSERT INTO SYS_CIDADES VALUES(5450, 'Bom Jesus do Tocantins', 27, 1703305); +INSERT INTO SYS_CIDADES VALUES(5451, 'Brasilndia do Tocantins', 27, 1703602); +INSERT INTO SYS_CIDADES VALUES(5452, 'Brejinho de Nazar', 27, 1703701); +INSERT INTO SYS_CIDADES VALUES(5453, 'Buriti do Tocantins', 27, 1703800); +INSERT INTO SYS_CIDADES VALUES(5454, 'Cachoeirinha', 27, 1703826); +INSERT INTO SYS_CIDADES VALUES(5455, 'Campos Lindos', 27, 1703842); +INSERT INTO SYS_CIDADES VALUES(5456, 'Cariri do Tocantins', 27, 1703867); +INSERT INTO SYS_CIDADES VALUES(5457, 'Carmolndia', 27, 1703883); +INSERT INTO SYS_CIDADES VALUES(5458, 'Carrasco Bonito', 27, 1703891); +INSERT INTO SYS_CIDADES VALUES(5459, 'Caseara', 27, 1703909); +INSERT INTO SYS_CIDADES VALUES(5460, 'Centenrio', 27, 1704105); +INSERT INTO SYS_CIDADES VALUES(5461, 'Chapada da Natividade', 27, 1705102); +INSERT INTO SYS_CIDADES VALUES(5462, 'Chapada de Areia', 27, 1704600); +INSERT INTO SYS_CIDADES VALUES(5463, 'Colinas do Tocantins', 27, 1705508); +INSERT INTO SYS_CIDADES VALUES(5464, 'Colmia', 27, 1716703); +INSERT INTO SYS_CIDADES VALUES(5465, 'Combinado', 27, 1705557); +INSERT INTO SYS_CIDADES VALUES(5466, 'Conceio do Tocantins', 27, 1705607); +INSERT INTO SYS_CIDADES VALUES(5467, 'Couto de Magalhes', 27, 1706001); +INSERT INTO SYS_CIDADES VALUES(5468, 'Cristalndia', 27, 1706100); +INSERT INTO SYS_CIDADES VALUES(5469, 'Crixs do Tocantins', 27, 1706258); +INSERT INTO SYS_CIDADES VALUES(5470, 'Darcinpolis', 27, 1706506); +INSERT INTO SYS_CIDADES VALUES(5471, 'Dianpolis', 27, 1707009); +INSERT INTO SYS_CIDADES VALUES(5472, 'Divinpolis do Tocantins', 27, 1707108); +INSERT INTO SYS_CIDADES VALUES(5473, 'Dois Irmos do Tocantins', 27, 1707207); +INSERT INTO SYS_CIDADES VALUES(5474, 'Duer', 27, 1707306); +INSERT INTO SYS_CIDADES VALUES(5475, 'Esperantina', 27, 1707405); +INSERT INTO SYS_CIDADES VALUES(5476, 'Ftima', 27, 1707553); +INSERT INTO SYS_CIDADES VALUES(5477, 'Figueirpolis', 27, 1707652); +INSERT INTO SYS_CIDADES VALUES(5478, 'Filadlfia', 27, 1707702); +INSERT INTO SYS_CIDADES VALUES(5479, 'Formoso do Araguaia', 27, 1708205); +INSERT INTO SYS_CIDADES VALUES(5480, 'Fortaleza do Taboco', 27, 1708254); +INSERT INTO SYS_CIDADES VALUES(5481, 'Goianorte', 27, 1708304); +INSERT INTO SYS_CIDADES VALUES(5482, 'Goiatins', 27, 1709005); +INSERT INTO SYS_CIDADES VALUES(5483, 'Guara', 27, 1709302); +INSERT INTO SYS_CIDADES VALUES(5484, 'Gurupi', 27, 1709500); +INSERT INTO SYS_CIDADES VALUES(5485, 'Ipueiras', 27, 1709807); +INSERT INTO SYS_CIDADES VALUES(5486, 'Itacaj', 27, 1710508); +INSERT INTO SYS_CIDADES VALUES(5487, 'Itaguatins', 27, 1710706); +INSERT INTO SYS_CIDADES VALUES(5488, 'Itapiratins', 27, 1710904); +INSERT INTO SYS_CIDADES VALUES(5489, 'Itapor do Tocantins', 27, 1711100); +INSERT INTO SYS_CIDADES VALUES(5490, 'Ja do Tocantins', 27, 1711506); +INSERT INTO SYS_CIDADES VALUES(5491, 'Juarina', 27, 1711803); +INSERT INTO SYS_CIDADES VALUES(5492, 'Lagoa da Confuso', 27, 1711902); +INSERT INTO SYS_CIDADES VALUES(5493, 'Lagoa do Tocantins', 27, 1711951); +INSERT INTO SYS_CIDADES VALUES(5494, 'Lajeado', 27, 1712009); +INSERT INTO SYS_CIDADES VALUES(5495, 'Lavandeira', 27, 1712157); +INSERT INTO SYS_CIDADES VALUES(5496, 'Lizarda', 27, 1712405); +INSERT INTO SYS_CIDADES VALUES(5497, 'Luzinpolis', 27, 1712454); +INSERT INTO SYS_CIDADES VALUES(5498, 'Marianpolis do Tocantins', 27, 1712504); +INSERT INTO SYS_CIDADES VALUES(5499, 'Mateiros', 27, 1712702); +INSERT INTO SYS_CIDADES VALUES(5500, 'Maurilndia do Tocantins', 27, 1712801); +INSERT INTO SYS_CIDADES VALUES(5501, 'Miracema do Tocantins', 27, 1713205); +INSERT INTO SYS_CIDADES VALUES(5502, 'Miranorte', 27, 1713304); +INSERT INTO SYS_CIDADES VALUES(5503, 'Monte do Carmo', 27, 1713601); +INSERT INTO SYS_CIDADES VALUES(5504, 'Monte Santo do Tocantins', 27, 1713700); +INSERT INTO SYS_CIDADES VALUES(5505, 'Muricilndia', 27, 1713957); +INSERT INTO SYS_CIDADES VALUES(5506, 'Natividade', 27, 1714203); +INSERT INTO SYS_CIDADES VALUES(5507, 'Nazar', 27, 1714302); +INSERT INTO SYS_CIDADES VALUES(5508, 'Nova Olinda', 27, 1714880); +INSERT INTO SYS_CIDADES VALUES(5509, 'Nova Rosalndia', 27, 1715002); +INSERT INTO SYS_CIDADES VALUES(5510, 'Novo Acordo', 27, 1715101); +INSERT INTO SYS_CIDADES VALUES(5511, 'Novo Alegre', 27, 1715150); +INSERT INTO SYS_CIDADES VALUES(5512, 'Novo Jardim', 27, 1715259); +INSERT INTO SYS_CIDADES VALUES(5513, 'Oliveira de Ftima', 27, 1715507); +INSERT INTO SYS_CIDADES VALUES(5514, 'Palmas', 27, 1721000); +INSERT INTO SYS_CIDADES VALUES(5515, 'Palmeirante', 27, 1715705); +INSERT INTO SYS_CIDADES VALUES(5516, 'Palmeiras do Tocantins', 27, 1713809); +INSERT INTO SYS_CIDADES VALUES(5517, 'Palmeirpolis', 27, 1715754); +INSERT INTO SYS_CIDADES VALUES(5518, 'Paraso do Tocantins', 27, 1716109); +INSERT INTO SYS_CIDADES VALUES(5519, 'Paran', 27, 1716208); +INSERT INTO SYS_CIDADES VALUES(5520, 'Pau d`Arco', 27, 1716307); +INSERT INTO SYS_CIDADES VALUES(5521, 'Pedro Afonso', 27, 1716505); +INSERT INTO SYS_CIDADES VALUES(5522, 'Peixe', 27, 1716604); +INSERT INTO SYS_CIDADES VALUES(5523, 'Pequizeiro', 27, 1716653); +INSERT INTO SYS_CIDADES VALUES(5524, 'Pindorama do Tocantins', 27, 1717008); +INSERT INTO SYS_CIDADES VALUES(5525, 'Piraqu', 27, 1717206); +INSERT INTO SYS_CIDADES VALUES(5526, 'Pium', 27, 1717503); +INSERT INTO SYS_CIDADES VALUES(5527, 'Ponte Alta do Bom Jesus', 27, 1717800); +INSERT INTO SYS_CIDADES VALUES(5528, 'Ponte Alta do Tocantins', 27, 1717909); +INSERT INTO SYS_CIDADES VALUES(5529, 'Porto Alegre do Tocantins', 27, 1718006); +INSERT INTO SYS_CIDADES VALUES(5530, 'Porto Nacional', 27, 1718204); +INSERT INTO SYS_CIDADES VALUES(5531, 'Praia Norte', 27, 1718303); +INSERT INTO SYS_CIDADES VALUES(5532, 'Presidente Kennedy', 27, 1718402); +INSERT INTO SYS_CIDADES VALUES(5533, 'Pugmil', 27, 1718451); +INSERT INTO SYS_CIDADES VALUES(5534, 'Recursolndia', 27, 1718501); +INSERT INTO SYS_CIDADES VALUES(5535, 'Riachinho', 27, 1718550); +INSERT INTO SYS_CIDADES VALUES(5536, 'Rio da Conceio', 27, 1718659); +INSERT INTO SYS_CIDADES VALUES(5537, 'Rio dos Bois', 27, 1718709); +INSERT INTO SYS_CIDADES VALUES(5538, 'Rio Sono', 27, 1718758); +INSERT INTO SYS_CIDADES VALUES(5539, 'Sampaio', 27, 1718808); +INSERT INTO SYS_CIDADES VALUES(5540, 'Sandolndia', 27, 1718840); +INSERT INTO SYS_CIDADES VALUES(5541, 'Santa F do Araguaia', 27, 1718865); +INSERT INTO SYS_CIDADES VALUES(5542, 'Santa Maria do Tocantins', 27, 1718881); +INSERT INTO SYS_CIDADES VALUES(5543, 'Santa Rita do Tocantins', 27, 1718899); +INSERT INTO SYS_CIDADES VALUES(5544, 'Santa Rosa do Tocantins', 27, 1718907); +INSERT INTO SYS_CIDADES VALUES(5545, 'Santa Tereza do Tocantins', 27, 1719004); +INSERT INTO SYS_CIDADES VALUES(5546, 'Santa Terezinha do Tocantins', 27, 1720002); +INSERT INTO SYS_CIDADES VALUES(5547, 'So Bento do Tocantins', 27, 1720101); +INSERT INTO SYS_CIDADES VALUES(5548, 'So Flix do Tocantins', 27, 1720150); +INSERT INTO SYS_CIDADES VALUES(5549, 'So Miguel do Tocantins', 27, 1720200); +INSERT INTO SYS_CIDADES VALUES(5550, 'So Salvador do Tocantins', 27, 1720259); +INSERT INTO SYS_CIDADES VALUES(5551, 'So Sebastio do Tocantins', 27, 1720309); +INSERT INTO SYS_CIDADES VALUES(5552, 'So Valrio da Natividade', 27, 1720499); +INSERT INTO SYS_CIDADES VALUES(5553, 'Silvanpolis', 27, 1720655); +INSERT INTO SYS_CIDADES VALUES(5554, 'Stio Novo do Tocantins', 27, 1720804); +INSERT INTO SYS_CIDADES VALUES(5555, 'Sucupira', 27, 1720853); +INSERT INTO SYS_CIDADES VALUES(5556, 'Taguatinga', 27, 1720903); +INSERT INTO SYS_CIDADES VALUES(5557, 'Taipas do Tocantins', 27, 1720937); +INSERT INTO SYS_CIDADES VALUES(5558, 'Talism', 27, 1720978); +INSERT INTO SYS_CIDADES VALUES(5559, 'Tocantnia', 27, 1721109); +INSERT INTO SYS_CIDADES VALUES(5560, 'Tocantinpolis', 27, 1721208); +INSERT INTO SYS_CIDADES VALUES(5561, 'Tupirama', 27, 1721257); +INSERT INTO SYS_CIDADES VALUES(5562, 'Tupiratins', 27, 1721307); +INSERT INTO SYS_CIDADES VALUES(5563, 'Wanderlndia', 27, 1722081); +INSERT INTO SYS_CIDADES VALUES(5564, 'Xambio', 27, 1722107); +INSERT INTO SYS_CIDADES VALUES(5575, 'Gama', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5576, 'Taguatinga', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5577, 'Brazlndia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5578, 'Sobradinho', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5579, 'Planaltina', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5580, 'Parano', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5581, 'Ncleo Bandeirante', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5582, 'Ceilndia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5583, 'Guar', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5584, 'Cruzeiro', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5585, 'Samambaia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5586, 'Santa Maria', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5587, 'So Sebastio', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5589, 'Lago Sul', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5590, 'Riacho Fundo', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5591, 'Lago Norte', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5592, 'Candangolndia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5593, 'guas Claras', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5594, 'Riacho Fundo II', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5595, 'Sudoeste/Octogonal', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5596, 'Varjo', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5597, 'Park Way', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5598, 'SCIA', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5599, 'Sobradinho II', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5601, 'Itapo', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5602, 'SIA', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5603, 'Vicente Pires', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5604, 'Fercal', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5574, 'Recanto das Emas', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5600, 'Jardim Botnico', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5605, 'Nazria', 17, 2206720); +INSERT INTO SYS_CIDADES VALUES(5606, 'Paraso das guas', 12, 5006275); +INSERT INTO SYS_CIDADES VALUES(5607, 'Pinto Bandeira', 23, 4314548); +INSERT INTO SYS_CIDADES VALUES(5608, 'Balnerio Rinco', 24, 4220000); +INSERT INTO SYS_CIDADES VALUES(5609, 'Pescaria Brava', 24, 4212650); \ No newline at end of file diff --git a/Win32/Debug/estados.sql b/Win32/Debug/estados.sql new file mode 100644 index 0000000..fd7409c --- /dev/null +++ b/Win32/Debug/estados.sql @@ -0,0 +1,27 @@ +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (12,'AC','Acre',1); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (27,'AL','Alagoas',2); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (13,'AM','Amazonas',3); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (16,'AP','Amap',4); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (29,'BA','Bahia',5); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (23,'CE','Cear',6); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (53,'DF','Distrito Federal',7); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (32,'ES','Esprito Santo',8); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (52,'GO','Gois',9); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (21,'MA','Maranho',10); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (31,'MG','Minas Gerais',11); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (50,'MS','Mato Grosso do Sul',12); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (51,'MT','Mato Grosso',13); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (15,'PA','Par',14); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (25,'PB','Paraba',15); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (26,'PE','Pernambuco',16); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (22,'PI','Piau',17); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (41,'PR','Paran',18); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (33,'RJ','Rio de Janeiro',19); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (24,'RN','Rio Grande do Norte',20); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (11,'RO','Rondnia',21); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (14,'RR','Roraima',22); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (43,'RS','Rio Grande do Sul',23); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (42,'SC','Santa Catarina',24); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (28,'SE','Sergipe',25); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (35,'SP','So Paulo',26); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (17,'TO','Tocantis',27); \ No newline at end of file diff --git a/Win32/Debug/log_recibo71.txt b/Win32/Debug/log_recibo71.txt new file mode 100644 index 0000000..9843756 --- /dev/null +++ b/Win32/Debug/log_recibo71.txt @@ -0,0 +1,90 @@ +############### +05/11/2021 11:16:07 +Open na tabela +Last na tabela +N do ltimo recibo: 007506 +N do novo recibo: 007507 +N do recibo dentro do recibo: 007507 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007507.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2021\NOVEMBRO\05\007507.pdf +Close na tabela. +############### +08/02/2022 15:29:51 +Open na tabela +Last na tabela +N do ltimo recibo: 007507 +N do novo recibo: 007517 +N do recibo dentro do recibo: 007517 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007517.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\08\007517.pdf +Close na tabela. +############### +08/02/2022 15:53:22 +Open na tabela +Last na tabela +N do ltimo recibo: 007517 +N do novo recibo: 007518 +N do recibo dentro do recibo: 007518 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007518.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\08\007518.pdf +Close na tabela. +############### +08/02/2022 15:58:50 +Open na tabela +Last na tabela +N do ltimo recibo: 007518 +N do novo recibo: 007519 +N do recibo dentro do recibo: 007519 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007519.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\08\007519.pdf +Close na tabela. +############### +08/02/2022 16:45:33 +Open na tabela +Last na tabela +N do ltimo recibo: 007519 +N do novo recibo: 007520 +N do recibo dentro do recibo: 007520 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007520.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\08\007520.pdf +Close na tabela. +############### +09/02/2022 10:58:17 +Open na tabela +Last na tabela +N do ltimo recibo: 007520 +N do novo recibo: 007521 +N do recibo dentro do recibo: 007521 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007521.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\09\007521.pdf +Close na tabela. +############### +09/02/2022 11:02:36 +Open na tabela +Last na tabela +N do ltimo recibo: 007521 +N do novo recibo: 007522 +N do recibo dentro do recibo: 007522 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007522.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\09\007522.pdf +Close na tabela. +############### +14/09/2022 11:53:23 +Open na tabela +Last na tabela +N do ltimo recibo: 007522 +N do novo recibo: 007523 +N do recibo dentro do recibo: 007523 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007523.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\SETEMBRO\14\007523.pdf +Close na tabela. +############### +17/02/2023 14:33:29 +Open na tabela +Last na tabela +N do ltimo recibo: 011081 +N do novo recibo: 011082 +N do recibo dentro do recibo: 011082 +Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\011082.pdf +Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2023\FEVEREIRO\17\011082.pdf +Close na tabela. diff --git a/Win32/Debug/nexverse-logo.jpg b/Win32/Debug/nexverse-logo.jpg new file mode 100644 index 0000000..fba1a6b Binary files /dev/null and b/Win32/Debug/nexverse-logo.jpg differ diff --git a/Win32/Debug/popup.ini b/Win32/Debug/popup.ini new file mode 100644 index 0000000..53be302 --- /dev/null +++ b/Win32/Debug/popup.ini @@ -0,0 +1,5 @@ +[MENSAGEM] +;Escreva aqui qualquer mensagem que voc queira por como pop up ao iniciar o programa. +Texto=Conserto de um erro com a gerao de recbos. Ttulos agora podem ser marcados com "Mltiplas formas de pagamento" para sinalizar que houve uma quebra no padro de pagamento. Desta forma eles no iro aparecer na prestao de contas e nem na gerncia, necessitando uma prestao de contas manual. Essa mudana no retroativa. +;Escreva aqui a data para at quando voc deseja que a mensagem aparea ao iniciar o programa +Data-Fim=13/02/2020 \ No newline at end of file diff --git a/Win32/Debug/sintetico.ini b/Win32/Debug/sintetico.ini new file mode 100644 index 0000000..8005251 --- /dev/null +++ b/Win32/Debug/sintetico.ini @@ -0,0 +1,59 @@ +[Dados] +Qtde_Empresas=14 +Periodo=01/04/2020 - 15/04/2020 +[Empresa_1] +TX_FANTASIA=COL SAO THOMAS DE AQUINO - RECENTE +CNPJ= +Valor=45 +[Empresa_2] +TX_FANTASIA=COLEGIO SO TOMS DE AQUINO +CNPJ=01.756.745/0001-48 +Valor=41 +[Empresa_3] +TX_FANTASIA=COLEGIO SO TOMS DE AQUINO PG DIRETO COLEGIO +CNPJ=01.756.745/0001-49 +Valor=211,49 +[Empresa_4] +TX_FANTASIA=COLEGIO SO TOMS DE AQUINO ACORDO +CNPJ=01.756.745/0001-50 +Valor=153,1452 +[Empresa_5] +TX_FANTASIA=COLEGIO SO TOMS DE AQUINO CONFIRM CSTA +CNPJ=01.756.745/0001-50 +Valor=25,7942 +[Empresa_6] +TX_FANTASIA=CONDOMINIO EDIFICIO LINCOLN +CNPJ= +Valor=24,9 +[Empresa_7] +TX_FANTASIA=DR JORGE LUIZ GONALVES +CNPJ=42.654.203/0007-34 +Valor=15,304 +[Empresa_8] +TX_FANTASIA=ESCOLA DE MUSICA DA UNIVERSIDADE CATOLICA DE PETROPOLIS +CNPJ= +Valor=38,01 +[Empresa_9] +TX_FANTASIA=FLVIA RIBEIRO MESSORES +CNPJ= +Valor=1858,08 +[Empresa_10] +TX_FANTASIA=J M CALADOS E SEGURANA +CNPJ=17.738.952/0001-00 +Valor=17,476 +[Empresa_11] +TX_FANTASIA=JOCA +CNPJ=29.144.409/0001-63 +Valor=844,3107 +[Empresa_12] +TX_FANTASIA=UNIVERSIDADE CATOLICA DE PETROPOLIS +CNPJ= +Valor=417,68 +[Empresa_13] +TX_FANTASIA=UNIVERSIDADE CATOLICA DE PETROPOLIS - POS +CNPJ= +Valor=421,05 +[Empresa_14] +TX_FANTASIA=UNIVERSIDADE CATOLICA DE PETROPOLIS MESTRADO +CNPJ= +Valor=809,05 diff --git a/Win32/Debug/sistema.ini b/Win32/Debug/sistema.ini new file mode 100644 index 0000000..16c11f6 --- /dev/null +++ b/Win32/Debug/sistema.ini @@ -0,0 +1,17 @@ +[dados] +dir=localhost:E:\Programa_Cobranca\Win32\Debug\CHARGE.FDB +; dir=COB-SERVER/3051:C:\Nexverse\Banco de Dados\CHARGE.GDB +path=E:\Programa_Cobranca\Win32\Debug +;path=\\COB-SERVER\Nexverse\Banco de Testes +bkp=E:\Programa_Cobranca\Win32\Debug\BKP_EXE +[Backup] +path_db=E:\Programa_Cobranca\Win32\Debug\ +path_bkp=E:\Programa_Cobranca\Win32\Debug\BACKUP_BANCO +host=localhost +[DEVELOPER] +admin=sim +[cert] +pub-key=C:\Certificado\nexverse-pub.pem +priv-key=C:\Certificado\nexverse-private.pem +cert-key=C:\Certificado\certificado.crt +cc=80971431 diff --git a/Win32/Debug/version_control.ini b/Win32/Debug/version_control.ini new file mode 100644 index 0000000..d50353e --- /dev/null +++ b/Win32/Debug/version_control.ini @@ -0,0 +1,2 @@ +[Dados] +version=1.1.4.28 \ No newline at end of file diff --git a/Win32/udtmSystem.dfm b/Win32/udtmSystem.dfm new file mode 100644 index 0000000..02748a6 --- /dev/null +++ b/Win32/udtmSystem.dfm @@ -0,0 +1,1275 @@ +object dtmSystem: TdtmSystem + OldCreateOrder = False + OnCreate = DataModuleCreate + Height = 522 + Width = 891 + object ZConnection: TZConnection + ControlsCodePage = cCP_UTF16 + ClientCodepage = 'WIN1252' + Catalog = '' + Properties.Strings = ( + 'controls_cp=CP_UTF16' + 'codepage=WIN1252' + 'AutoEncodeStrings=ON') + Connected = True + HostName = '' + Port = 0 + Database = 'C:\Program Files (x86)\Programa_Cobranca\CHARGE.GDB' + User = 'sysdba' + Password = 'masterkey' + Protocol = 'firebird-2.5' + Left = 40 + Top = 24 + end + object tblUsuarios: TZTable + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterInsert = tblUsuariosAfterInsert + BeforePost = AtribuirChavePrimaria + AfterPost = RegistarLog + TableName = 'SYS_USUARIOS' + MasterFields = 'ID_GRUPO' + MasterSource = dtsGrupos + LinkedFields = 'ID_GRUPO' + IndexFieldNames = 'TX_NOME Asc' + Left = 40 + Top = 128 + object tblUsuariosID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object tblUsuariosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblUsuariosTX_USUARIO: TWideStringField + FieldName = 'TX_USUARIO' + Size = 10 + end + object tblUsuariosTX_SENHA: TWideStringField + FieldName = 'TX_SENHA' + Size = 40 + end + object tblUsuariosID_GRUPO: TIntegerField + FieldName = 'ID_GRUPO' + end + object tblUsuariosTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object tblUsuariosTP_TROCAPASS: TWideStringField + FieldName = 'TP_TROCAPASS' + Size = 1 + end + end + object dtsUsuarios: TDataSource + DataSet = tblUsuarios + Left = 168 + Top = 128 + end + object tblGrupos: TZTable + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterInsert = tblGruposAfterInsert + BeforePost = tblGruposBeforePost + BeforeDelete = tblGruposBeforeDelete + TableName = 'SYS_GRUPOS' + IndexFieldNames = 'TX_NOME Asc' + Left = 40 + Top = 184 + object tblGruposID_GRUPO: TIntegerField + DisplayLabel = 'ID do Grupo' + FieldName = 'ID_GRUPO' + Required = True + end + object tblGruposTX_NOME: TWideStringField + DisplayLabel = 'Nome' + FieldName = 'TX_NOME' + Size = 40 + end + object tblGruposTP_SU: TWideStringField + DisplayLabel = #201' sudo?' + FieldName = 'TP_SU' + Size = 1 + end + end + object dtsGrupos: TDataSource + DataSet = tblGrupos + OnDataChange = dtsGruposDataChange + Left = 168 + Top = 184 + end + object dtsPermissoes: TDataSource + DataSet = tblPermissoes + Left = 168 + Top = 240 + end + object tblGruposPermissoes: TZTable + Connection = ZConnection + AfterInsert = tblGruposPermissoesAfterInsert + BeforePost = AtribuirChavePrimaria + AfterPost = tblGruposPermissoesAfterPost + AfterDelete = tblGruposPermissoesAfterPost + TableName = 'SYS_GRUPOS_PERMISSOES' + MasterFields = 'ID_GRUPO' + MasterSource = dtsGrupos + LinkedFields = 'ID_GRUPO' + Left = 40 + Top = 296 + object tblGruposPermissoesID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblGruposPermissoesID_GRUPO: TIntegerField + FieldName = 'ID_GRUPO' + end + object tblGruposPermissoesID_PERMISSAO: TIntegerField + FieldName = 'ID_PERMISSAO' + end + object tblGruposPermissoesTX_DESCRICAO: TStringField + FieldKind = fkLookup + FieldName = 'TX_DESCRICAO' + LookupDataSet = tblPermissoes + LookupKeyFields = 'ID_PERMISSAO' + LookupResultField = 'TX_DESCRICAO' + KeyFields = 'ID_PERMISSAO' + Size = 40 + Lookup = True + end + object tblGruposPermissoesTP_ACESSO: TWideStringField + FieldName = 'TP_ACESSO' + Size = 1 + end + end + object dtsGruposPermissoes: TDataSource + DataSet = tblGruposPermissoes + Left = 168 + Top = 296 + end + object qryConsulta: TZQuery + Connection = ZConnection + Params = <> + Left = 168 + Top = 24 + end + object tblEmpresa: TZTable + Connection = ZConnection + SortedFields = 'TX_NOME' + OnCalcFields = tblEmpresaCalcFields + AfterPost = RegistarLog + TableName = 'SYS_EMPRESA' + IndexFieldNames = 'TX_NOME Asc' + WhereMode = wmWhereAll + Left = 40 + Top = 80 + object tblEmpresaID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object tblEmpresaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + object tblEmpresaTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 40 + end + object tblEmpresaTX_ENDERECO: TWideStringField + FieldName = 'TX_ENDERECO' + Size = 100 + end + object tblEmpresaNR_NUMERO: TIntegerField + FieldName = 'NR_NUMERO' + end + object tblEmpresaTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + end + object tblEmpresaTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 60 + end + object tblEmpresaID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object tblEmpresaTX_CEP: TWideStringField + FieldName = 'TX_CEP' + EditMask = '#####-###;1;_' + Size = 9 + end + object tblEmpresaTX_TELEFONE: TWideStringField + FieldName = 'TX_TELEFONE' + EditMask = '(##) ####-####;1;_' + Size = 40 + end + object tblEmpresaTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 60 + end + object tblEmpresaTX_WEBSITE: TWideStringField + FieldName = 'TX_WEBSITE' + Size = 60 + end + object tblEmpresaTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + EditMask = '##.###.###/####-##;1;_' + Size = 18 + end + object tblEmpresaTX_IE: TWideStringField + FieldName = 'TX_IE' + end + object tblEmpresaTX_IM: TWideStringField + FieldName = 'TX_IM' + end + object tblEmpresaID_ESTADO: TIntegerField + FieldKind = fkCalculated + FieldName = 'ID_ESTADO' + KeyFields = 'ID_CIDADE' + Calculated = True + end + object tblEmpresaTL_OBSERVACOES: TWideMemoField + FieldName = 'TL_OBSERVACOES' + BlobType = ftWideMemo + end + object tblEmpresaTX_LOGOMARCA: TWideStringField + FieldName = 'TX_LOGOMARCA' + Size = 100 + end + object tblEmpresaTX_HONORARIOS: TWideStringField + FieldName = 'TX_HONORARIOS' + end + end + object dtsEmpresa: TDataSource + DataSet = tblEmpresa + Left = 168 + Top = 80 + end + object tblCidades: TZTable + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterInsert = tblCidadesAfterInsert + BeforePost = AtribuirChavePrimaria + TableName = 'SYS_CIDADES' + MasterFields = 'ID_ESTADO' + MasterSource = dtsEstados + LinkedFields = 'ID_ESTADO' + IndexFieldNames = 'TX_NOME Asc' + Left = 288 + Top = 80 + object tblCidadesID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + Required = True + end + object tblCidadesTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblCidadesID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object tblCidadesCD_IBGE: TWideStringField + FieldName = 'CD_IBGE' + Size = 10 + end + end + object dtsCidades: TDataSource + DataSet = tblCidades + OnDataChange = dtsCidadesDataChange + Left = 400 + Top = 81 + end + object tblEstados: TZTable + Connection = ZConnection + SortedFields = 'TX_NOME' + BeforePost = AtribuirChavePrimaria + TableName = 'SYS_ESTADOS' + IndexFieldNames = 'TX_NOME Asc' + Left = 288 + Top = 24 + object tblEstadosID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + Required = True + end + object tblEstadosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 40 + end + object tblEstadosCD_ESTADO: TWideStringField + FieldName = 'CD_ESTADO' + Size = 2 + end + object tblEstadosTX_SIGLA: TWideStringField + FieldName = 'TX_SIGLA' + Size = 2 + end + end + object dtsEstados: TDataSource + DataSet = tblEstados + Left = 400 + Top = 24 + end + object tblPermissoes: TZTable + Connection = ZConnection + SortedFields = 'ID_PERMISSAO' + BeforePost = AtribuirChavePrimaria + TableName = 'SYS_PERMISSOES' + IndexFieldNames = 'ID_PERMISSAO Asc' + Left = 40 + Top = 240 + object tblPermissoesID_PERMISSAO: TIntegerField + FieldName = 'ID_PERMISSAO' + Required = True + end + object tblPermissoesCD_PERMISSAO: TWideStringField + FieldName = 'CD_PERMISSAO' + end + object tblPermissoesTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 40 + end + object tblPermissoesID_PARENT: TIntegerField + FieldName = 'ID_PARENT' + end + object tblPermissoesTP_ACESSO: TWideStringField + FieldName = 'TP_ACESSO' + Size = 1 + end + end + object dtsPermDisponiveis: TDataSource + DataSet = tblPermDisponiveis + Left = 168 + Top = 352 + end + object tblPermDisponiveis: TZReadOnlyQuery + Connection = ZConnection + SQL.Strings = ( + 'SELECT * FROM SYS_PERMISSOES WHERE ID_PERMISSAO NOT IN(' + ' SELECT ID_PERMISSAO FROM SYS_GRUPOS_PERMISSOES' + ' WHERE ID_GRUPO=:ID_GRUPO' + ')') + Params = < + item + DataType = ftUnknown + Name = 'ID_GRUPO' + ParamType = ptUnknown + end> + DataSource = dtsGrupos + Left = 40 + Top = 352 + ParamData = < + item + DataType = ftUnknown + Name = 'ID_GRUPO' + ParamType = ptUnknown + end> + object tblPermDisponiveisID_PERMISSAO: TIntegerField + FieldName = 'ID_PERMISSAO' + Required = True + end + object tblPermDisponiveisCD_PERMISSAO: TWideStringField + FieldName = 'CD_PERMISSAO' + end + object tblPermDisponiveisTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 40 + end + end + object tblLog: TZTable + Connection = ZConnection + SortedFields = 'DT_LOG' + SortType = stDescending + AfterInsert = tblLogAfterInsert + BeforePost = AtribuirChavePrimaria + TableName = 'SYS_LOG' + MasterFields = 'ID_USUARIO' + MasterSource = dtsUsuarios + LinkedFields = 'ID_USUARIO' + IndexFieldNames = 'DT_LOG Desc' + Left = 288 + Top = 127 + object tblLogID_LOG: TIntegerField + FieldName = 'ID_LOG' + Required = True + end + object tblLogTX_TABELA: TWideStringField + FieldName = 'TX_TABELA' + end + object tblLogID_REGISTRO: TIntegerField + FieldName = 'ID_REGISTRO' + end + object tblLogTX_ACAO: TWideStringField + FieldName = 'TX_ACAO' + Size = 60 + end + object tblLogID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + end + object tblLogDT_LOG: TDateTimeField + FieldName = 'DT_LOG' + end + end + object dtsLog: TDataSource + DataSet = tblLog + Left = 400 + Top = 127 + end + object tblCHGEmpresa: TZTable + Connection = ZConnection + SortedFields = 'TX_NOME' + OnCalcFields = tblEmpresaCalcFields + BeforePost = tblCHGEmpresaBeforePost + AfterPost = RegistarLog + AfterDelete = tblCHGEmpresaAfterDelete + TableName = 'CHG_EMPRESAS' + IndexFieldNames = 'TX_NOME Asc' + WhereMode = wmWhereAll + Left = 288 + Top = 184 + object tblCHGEmpresaID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object tblCHGEmpresaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + object tblCHGEmpresaTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 40 + end + object tblCHGEmpresaTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + EditMask = '##.###.###/####-##;1;_' + Size = 18 + end + object tblCHGEmpresaTX_IE: TWideStringField + FieldName = 'TX_IE' + end + object tblCHGEmpresaTX_LOGOMARCA: TWideStringField + FieldName = 'TX_LOGOMARCA' + Size = 100 + end + object tblCHGEmpresaTX_ENDERECO: TWideStringField + FieldName = 'TX_ENDERECO' + Size = 100 + end + object tblCHGEmpresaTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + end + object tblCHGEmpresaTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 60 + end + object tblCHGEmpresaID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object tblCHGEmpresaTX_CEP: TWideStringField + FieldName = 'TX_CEP' + EditMask = '#####-###;1;_' + Size = 9 + end + object tblCHGEmpresaTX_TELEFONE: TWideStringField + FieldName = 'TX_TELEFONE' + Size = 40 + end + object tblCHGEmpresaTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 60 + end + object tblCHGEmpresaTX_WEBSITE: TWideStringField + FieldName = 'TX_WEBSITE' + Size = 60 + end + object tblCHGEmpresaTX_IM: TWideStringField + FieldName = 'TX_IM' + end + object tblCHGEmpresaTL_OBSERVACOES: TWideMemoField + FieldName = 'TL_OBSERVACOES' + BlobType = ftWideMemo + end + object tblCHGEmpresaNR_NUMERO: TIntegerField + FieldName = 'NR_NUMERO' + end + object tblCHGEmpresaTX_HONORARIOS: TWideStringField + FieldName = 'TX_HONORARIOS' + end + object tblCHGEmpresaID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + end + object dtsCHGEmpresa: TDataSource + DataSet = tblCHGEmpresa + Left = 400 + Top = 184 + end + object tblPoliticas: TZTable + Connection = ZConnection + SortedFields = 'TX_DESCRICAO' + AfterInsert = tblPoliticasAfterInsert + BeforePost = tblPoliticasBeforePost + AfterPost = tblPoliticasAfterPost + TableName = 'CHG_POLITICAS' + MasterFields = 'ID_EMPRESA' + MasterSource = dtsCHGEmpresa + LinkedFields = 'ID_EMPRESA' + IndexFieldNames = 'TX_DESCRICAO Asc' + Left = 288 + Top = 240 + object tblPoliticasID_POLITICA: TIntegerField + FieldName = 'ID_POLITICA' + Required = True + end + object tblPoliticasID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + end + object tblPoliticasTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 40 + end + object tblPoliticasDT_INICIO: TDateTimeField + FieldName = 'DT_INICIO' + end + object tblPoliticasDT_FIM: TDateTimeField + FieldName = 'DT_FIM' + end + object tblPoliticasPR_ENTRADA: TFloatField + FieldName = 'PR_ENTRADA' + end + object tblPoliticasPR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object tblPoliticasPR_JUROS: TFloatField + FieldName = 'PR_JUROS' + end + object tblPoliticasTP_JUROS: TWideStringField + FieldName = 'TP_JUROS' + Size = 1 + end + object tblPoliticasPR_JUROS_PARCELAS: TFloatField + FieldName = 'PR_JUROS_PARCELAS' + end + object tblPoliticasVL_PARCELA_MINIMO: TFloatField + FieldName = 'VL_PARCELA_MINIMO' + end + object tblPoliticasNR_PARCELA_MAXIMO: TIntegerField + FieldName = 'NR_PARCELA_MAXIMO' + end + object tblPoliticasPR_QUITACAO_INDICADOR: TFloatField + FieldName = 'PR_QUITACAO_INDICADOR' + end + object tblPoliticasPR_QUITACAO_PRINCIPAL: TFloatField + FieldName = 'PR_QUITACAO_PRINCIPAL' + end + object tblPoliticasPR_QUITACAO_MULTA: TFloatField + FieldName = 'PR_QUITACAO_MULTA' + end + object tblPoliticasPR_QUITACAO_JUROS: TFloatField + FieldName = 'PR_QUITACAO_JUROS' + end + object tblPoliticasPR_PARCELA_INDICADOR: TFloatField + FieldName = 'PR_PARCELA_INDICADOR' + end + object tblPoliticasPR_PARCELA_PRINCIPAL: TFloatField + FieldName = 'PR_PARCELA_PRINCIPAL' + end + object tblPoliticasPR_PARCELA_MULTA: TFloatField + FieldName = 'PR_PARCELA_MULTA' + end + object tblPoliticasPR_PARCELA_JUROS: TFloatField + FieldName = 'PR_PARCELA_JUROS' + end + object tblPoliticasTP_PARCELA: TWideStringField + FieldName = 'TP_PARCELA' + Size = 1 + end + end + object tblFaixas: TZTable + Connection = ZConnection + SortedFields = 'TX_DESCRICAO' + AfterInsert = tblFaixasAfterInsert + BeforePost = tblFaixasBeforePost + TableName = 'CHG_FAIXAS' + MasterFields = 'ID_POLITICA' + MasterSource = dtsPoliticas + LinkedFields = 'ID_POLITICA' + IndexFieldNames = 'TX_DESCRICAO Asc' + Left = 288 + Top = 296 + object tblFaixasID_FAIXA: TIntegerField + FieldName = 'ID_FAIXA' + Required = True + end + object tblFaixasID_POLITICA: TIntegerField + FieldName = 'ID_POLITICA' + end + object tblFaixasTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 40 + end + object tblFaixasVL_INICIO: TFloatField + FieldName = 'VL_INICIO' + end + object tblFaixasVL_FINAL: TFloatField + FieldName = 'VL_FINAL' + end + object tblFaixasVL_PAGAMENTO_INICIO: TFloatField + FieldName = 'VL_PAGAMENTO_INICIO' + end + object tblFaixasVL_PAGAMENTO_FINAL: TFloatField + FieldName = 'VL_PAGAMENTO_FINAL' + end + object tblFaixasPR_FAIXA: TFloatField + FieldName = 'PR_FAIXA' + end + object tblFaixasDT_INICIO: TIntegerField + FieldName = 'DT_INICIO' + end + object tblFaixasDT_FINAL: TIntegerField + FieldName = 'DT_FINAL' + end + end + object dtsPoliticas: TDataSource + DataSet = tblPoliticas + Left = 400 + Top = 240 + end + object dtsFaixas: TDataSource + DataSet = tblFaixas + Left = 400 + Top = 296 + end + object tblDevedores: TZTable + Connection = ZConnection + SortedFields = 'TX_NOME' + BeforePost = tblDevedoresBeforeost + TableName = 'CHG_DEVEDORES' + IndexFieldNames = 'TX_NOME Asc' + Left = 288 + Top = 352 + object tblDevedoresID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblDevedoresTP_CLIENTE: TWideStringField + FieldName = 'TP_CLIENTE' + Size = 1 + end + object tblDevedoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblDevedoresTX_PAI: TWideStringField + FieldName = 'TX_PAI' + Size = 60 + end + object tblDevedoresTX_MAE: TWideStringField + FieldName = 'TX_MAE' + Size = 60 + end + object tblDevedoresDT_CADASTRO: TDateTimeField + FieldName = 'DT_CADASTRO' + end + object tblDevedoresCD_CPF: TWideStringField + FieldName = 'CD_CPF' + EditMask = '999.999.999-99;1;_' + Size = 14 + end + object tblDevedoresCD_CNPJ: TWideStringField + FieldName = 'CD_CNPJ' + EditMask = '##.###.###/####-##;1;_' + Size = 18 + end + object tblDevedoresTL_MEMO: TWideMemoField + FieldName = 'TL_MEMO' + BlobType = ftWideMemo + end + object tblDevedoresID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + object tblDevedoresCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + end + object tblDevedoresCD_RG: TWideStringField + FieldName = 'CD_RG' + end + end + object dtsDevedores: TDataSource + DataSet = tblDevedores + Left = 400 + Top = 352 + end + object tblEnderecos: TZTable + Connection = ZConnection + SortedFields = 'TX_LOGRADOURO' + BeforePost = tblEnderecosBeforePost + TableName = 'CHG_ENDERECOS' + MasterFields = 'ID_DEVEDOR' + MasterSource = dtsDevedores + LinkedFields = 'ID_DEVEDOR' + IndexFieldNames = 'TX_LOGRADOURO Asc' + Left = 512 + Top = 24 + object tblEnderecosID_ENDERECO: TIntegerField + FieldName = 'ID_ENDERECO' + Required = True + end + object tblEnderecosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblEnderecosTP_ENDERECO: TWideStringField + FieldName = 'TP_ENDERECO' + Size = 1 + end + object tblEnderecosTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object tblEnderecosTX_LOGRADOURO: TWideStringField + FieldName = 'TX_LOGRADOURO' + Size = 100 + end + object tblEnderecosTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 100 + end + object tblEnderecosID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + Required = True + end + object tblEnderecosTX_CEP: TWideStringField + FieldName = 'TX_CEP' + EditMask = '#####-###;1;_' + Size = 9 + end + object tblEnderecosTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + Size = 100 + end + object tblEnderecosNR_NUMERO: TFloatField + FieldName = 'NR_NUMERO' + end + object tblEnderecosTP_REFERENCIA: TWideStringField + FieldName = 'TP_REFERENCIA' + Size = 1 + end + object tblEnderecosID_HIGIENIZADORA: TIntegerField + FieldName = 'ID_HIGIENIZADORA' + end + object tblEnderecosID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object tblEnderecosTX_ESTADO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ESTADO' + LookupDataSet = tblEstados + LookupKeyFields = 'ID_ESTADO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_ESTADO' + Size = 60 + Lookup = True + end + object tblEnderecosTX_CIDADE: TStringField + FieldKind = fkLookup + FieldName = 'TX_CIDADE' + LookupDataSet = tblCidades + LookupKeyFields = 'ID_CIDADE' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_CIDADE' + Lookup = True + end + end + object dtsCHGEnderecos: TDataSource + DataSet = tblEnderecos + Left = 648 + Top = 24 + end + object tblTelefones: TZTable + Connection = ZConnection + SortedFields = 'NR_NUMERO' + BeforePost = tblTelefonesBeforePost + TableName = 'CHG_TELEFONES' + MasterFields = 'ID_DEVEDOR' + MasterSource = dtsDevedores + LinkedFields = 'ID_DEVEDOR' + IndexFieldNames = 'NR_NUMERO Asc' + Left = 512 + Top = 80 + object tblTelefonesID_TELEFONE: TIntegerField + FieldName = 'ID_TELEFONE' + Required = True + end + object tblTelefonesID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblTelefonesNR_NUMERO: TWideStringField + FieldName = 'NR_NUMERO' + EditMask = '!\(99\)0000-00009;1;_' + end + object tblTelefonesTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object tblTelefonesTP_TIPOTEL: TWideStringField + FieldName = 'TP_TIPOTEL' + Size = 1 + end + object tblTelefonesTX_DESC: TWideStringField + FieldName = 'TX_DESC' + Size = 100 + end + object tblTelefonesTX_OBS: TWideMemoField + FieldName = 'TX_OBS' + BlobType = ftWideMemo + end + end + object dtsTelefones: TDataSource + DataSet = tblTelefones + Left = 648 + Top = 80 + end + object tblTitulos: TZTable + Connection = ZConnection + SortedFields = 'ID_TITULO' + OnCalcFields = tblTitulosCalcFields + BeforePost = tblTitulosBeforePost + TableName = 'CHG_TITULOS' + MasterFields = 'ID_DEVEDOR' + MasterSource = dtsDevedores + LinkedFields = 'ID_DEVEDOR' + IndexFieldNames = 'ID_TITULO Asc' + Left = 512 + Top = 128 + object tblTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object tblTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object tblTitulosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object tblTitulosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + end + object tblTitulosDT_ENTRADA: TDateTimeField + FieldName = 'DT_ENTRADA' + end + object tblTitulosVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + end + object tblTitulosTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 1 + end + object tblTitulosCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + Size = 100 + end + end + object dtsTitulos: TDataSource + DataSet = tblTitulos + Left = 648 + Top = 128 + end + object ZSQLProcessor1: TZSQLProcessor + Params = <> + Connection = ZConnection + Delimiter = ';' + Left = 40 + Top = 416 + end + object tblProvidencias: TZTable + Connection = ZConnection + SortedFields = 'ID_PROVIDENCIA' + BeforeEdit = tblProvidenciasBeforeEdit + BeforePost = tblProvidenciasBeforePost + BeforeDelete = tblProvidenciasBeforeDelete + TableName = 'CHG_PROVIDENCIAS' + IndexFieldNames = 'ID_PROVIDENCIA Asc' + Left = 512 + Top = 240 + object tblProvidenciasID_PROVIDENCIA: TIntegerField + DisplayWidth = 5 + FieldName = 'ID_PROVIDENCIA' + Required = True + end + object tblProvidenciasTX_NOME: TWideStringField + DisplayWidth = 72 + FieldName = 'TX_NOME' + Size = 60 + end + object tblProvidenciasTX_DESCRICAO: TWideStringField + DisplayWidth = 306 + FieldName = 'TX_DESCRICAO' + Size = 255 + end + end + object dtsProvidencias: TDataSource + DataSet = tblProvidencias + Left = 648 + Top = 240 + end + object tblInadimplencias: TZTable + Connection = ZConnection + SortedFields = 'ID_INADIMPLENCIA' + BeforePost = tblInadimplenciasBeforePost + TableName = 'CHG_INADIMPLENCIAS' + IndexFieldNames = 'ID_INADIMPLENCIA Asc' + Left = 512 + Top = 184 + object tblInadimplenciasID_INADIMPLENCIA: TIntegerField + FieldName = 'ID_INADIMPLENCIA' + Required = True + end + object tblInadimplenciasTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + end + object dtsInadimplencias: TDataSource + DataSet = tblInadimplencias + Left = 648 + Top = 184 + end + object tblCampanhaCob: TZTable + Connection = ZConnection + SortedFields = 'ID_ITEM' + BeforePost = tblCampanhaCobBeforePost + TableName = 'CHG_CAMPANHAS_COBRADORES' + MasterFields = 'ID_CAMPANHA' + MasterSource = dtsCobCampanha + LinkedFields = 'ID_CAMPANHA' + IndexFieldNames = 'ID_ITEM Asc' + Left = 512 + Top = 352 + object tblCampanhaCobID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblCampanhaCobID_CAMPANHA: TIntegerField + FieldName = 'ID_CAMPANHA' + end + object tblCampanhaCobID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + end + object dtsCampanhaCob: TDataSource + DataSet = tblCampanhaCob + Left = 648 + Top = 352 + end + object tblUsuariosConsulta: TZTable + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterInsert = tblUsuariosAfterInsert + BeforePost = AtribuirChavePrimaria + AfterPost = RegistarLog + TableName = 'SYS_USUARIOS' + LinkedFields = 'ID_GRUPO' + IndexFieldNames = 'TX_NOME Asc' + Left = 168 + Top = 408 + object tblUsuariosConsultaID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object tblUsuariosConsultaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblUsuariosConsultaTX_USUARIO: TWideStringField + FieldName = 'TX_USUARIO' + Size = 10 + end + object tblUsuariosConsultaTX_SENHA: TWideStringField + FieldName = 'TX_SENHA' + Size = 40 + end + object tblUsuariosConsultaID_GRUPO: TIntegerField + FieldName = 'ID_GRUPO' + end + object tblUsuariosConsultaTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object tblUsuariosConsultaTP_TROCAPASS: TWideStringField + FieldName = 'TP_TROCAPASS' + Size = 1 + end + end + object tblCampanhaDevedores: TZTable + Connection = ZConnection + SortedFields = 'ID_ITEM' + BeforePost = tblCampanhaDevedoresBeforePost + TableName = 'CHG_CAMPANHAS_DEVEDORES' + MasterFields = 'ID_CAMPANHA' + MasterSource = dtsCobCampanha + LinkedFields = 'ID_CAMPANHA' + IndexFieldNames = 'ID_ITEM Asc' + Left = 512 + Top = 408 + object tblCampanhaDevedoresID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblCampanhaDevedoresID_CAMPANHA: TIntegerField + FieldName = 'ID_CAMPANHA' + Required = True + end + object tblCampanhaDevedoresID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblCampanhaDevedoresTX_NOME: TStringField + FieldKind = fkLookup + FieldName = 'TX_NOME' + LookupDataSet = tblDevedores + LookupKeyFields = 'ID_DEVEDOR' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_DEVEDOR' + Size = 60 + Lookup = True + end + object tblCampanhaDevedoresTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + end + object tblCampanhaDevedoresTP_ESTADO: TWideStringField + FieldName = 'TP_ESTADO' + Size = 1 + end + end + object dtsCampanhaDevedores: TDataSource + DataSet = tblCampanhaDevedores + Left = 648 + Top = 408 + end + object tblCobCampanha: TZTable + Connection = ZConnection + SortedFields = 'ID_CAMPANHA' + BeforePost = tblCobCampanhaBeforePost + TableName = 'CHG_CAMPANHAS' + IndexFieldNames = 'ID_CAMPANHA Asc' + Left = 512 + Top = 296 + object tblCobCampanhaID_CAMPANHA: TIntegerField + FieldName = 'ID_CAMPANHA' + Required = True + end + object tblCobCampanhaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 40 + end + object tblCobCampanhaTP_ATIVA: TWideStringField + FieldName = 'TP_ATIVA' + Size = 1 + end + object tblCobCampanhaTP_CONCLUIDA: TWideStringField + FieldName = 'TP_CONCLUIDA' + Size = 1 + end + object tblCobCampanhaTX_DESC: TWideStringField + FieldName = 'TX_DESC' + Size = 255 + end + object tblCobCampanhaDT_CAD: TDateField + FieldName = 'DT_CAD' + end + end + object dtsCobCampanha: TDataSource + DataSet = tblCobCampanha + Left = 648 + Top = 296 + end + object tblHistorico: TZTable + Connection = ZConnection + SortedFields = 'ID_HISTORICO' + OnCalcFields = tblHistoricoCalcFields + BeforePost = tblHistoricoBeforePost + TableName = 'CHG_HISTORICO' + MasterFields = 'ID_DEVEDOR' + MasterSource = dtsDevedores + LinkedFields = 'ID_DEVEDOR' + IndexFieldNames = 'ID_HISTORICO Asc' + Left = 288 + Top = 408 + object tblHistoricoID_HISTORICO: TIntegerField + FieldName = 'ID_HISTORICO' + Required = True + end + object tblHistoricoID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object tblHistoricoID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + object tblHistoricoID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + end + object tblHistoricoID_PROVIDENCIA: TIntegerField + FieldName = 'ID_PROVIDENCIA' + Required = True + end + object tblHistoricoDT_CONTATO: TDateTimeField + FieldName = 'DT_CONTATO' + end + object tblHistoricoDT_AGENDAMENTO: TDateTimeField + FieldName = 'DT_AGENDAMENTO' + end + object tblHistoricoDT_HORAMARCADA: TTimeField + FieldName = 'DT_HORAMARCADA' + end + object tblHistoricoTP_VAIPAGAR: TWideStringField + FieldName = 'TP_VAIPAGAR' + Size = 1 + end + object tblHistoricoTP_AGENDAMENTO: TWideStringField + FieldName = 'TP_AGENDAMENTO' + Size = 1 + end + object tblHistoricoCD_PROTOCOLO: TWideStringField + FieldName = 'CD_PROTOCOLO' + Size = 10 + end + object tblHistoricoTL_MEMO: TWideMemoField + FieldName = 'TL_MEMO' + BlobType = ftWideMemo + end + object tblHistoricoTX_PROVIDENCIA: TStringField + FieldKind = fkLookup + FieldName = 'TX_PROVIDENCIA' + LookupDataSet = tblProvidencias + LookupKeyFields = 'ID_PROVIDENCIA' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_PROVIDENCIA' + Lookup = True + end + object tblHistoricoTX_MEMO: TStringField + FieldKind = fkCalculated + FieldName = 'TX_MEMO' + Size = 10 + Calculated = True + end + object tblHistoricoTX_COBRADOR: TStringField + FieldKind = fkLookup + FieldName = 'TX_COBRADOR' + LookupDataSet = tblUsuarios + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_COBRADOR' + Size = 60 + Lookup = True + end + object tblHistoricoTX_TITULO: TStringField + FieldKind = fkLookup + FieldName = 'TX_TITULO' + LookupDataSet = tblTitulos + LookupKeyFields = 'ID_TITULO' + LookupResultField = 'TX_PRODUTO' + KeyFields = 'ID_TITULO' + Size = 60 + Lookup = True + end + end + object dtsHistorico: TDataSource + DataSet = tblHistorico + Left = 400 + Top = 408 + end + object ROQueryFaixa: TZReadOnlyQuery + Connection = ZConnection + Params = <> + Left = 40 + Top = 464 + end + object dtsQueryFaixa: TDataSource + DataSet = ROQueryFaixa + Left = 168 + Top = 464 + end + object ROquerypesquisas: TZReadOnlyQuery + Connection = ZConnection + Params = <> + Left = 288 + Top = 464 + end + object dtsROquerypesquisas: TDataSource + DataSet = ROquerypesquisas + Left = 408 + Top = 464 + end + object tblAgenda: TZTable + Connection = ZConnection + SortedFields = 'ID_AGENDA' + BeforePost = tblAgendaBeforePost + TableName = 'CHG_AGENDA' + MasterFields = 'ID_USUARIO' + MasterSource = dtsUsuarios + IndexFieldNames = 'ID_AGENDA Asc' + Left = 760 + Top = 24 + object tblAgendaID_AGENDA: TIntegerField + FieldName = 'ID_AGENDA' + Required = True + end + object tblAgendaID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + Required = True + end + object tblAgendaID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblAgendaDT_AGENDADA: TDateField + FieldName = 'DT_AGENDADA' + end + object tblAgendaHR_AGENDADA: TTimeField + FieldName = 'HR_AGENDADA' + end + object tblAgendaTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 1 + end + end + object dtsAgenda: TDataSource + DataSet = tblAgenda + Left = 832 + Top = 24 + end + object tblLayouts: TZTable + Connection = ZConnection + SortedFields = 'ID_LAYOUT' + BeforePost = tblLayoutsBeforePost + TableName = 'SYS_LAYOUTS' + IndexFieldNames = 'ID_LAYOUT Asc' + Left = 760 + Top = 80 + object tblLayoutsID_LAYOUT: TIntegerField + FieldName = 'ID_LAYOUT' + Required = True + end + object tblLayoutsTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 40 + end + object tblLayoutsSTR_CAMPOS: TWideStringField + FieldName = 'STR_CAMPOS' + Size = 255 + end + object tblLayoutsNR_QNTCAMPOS: TFloatField + FieldName = 'NR_QNTCAMPOS' + end + end + object dtsLayout: TDataSource + DataSet = tblLayouts + Left = 832 + Top = 80 + end +end diff --git a/Win32/ufrmAtendimento.pas b/Win32/ufrmAtendimento.pas new file mode 100644 index 0000000..8de0b63 --- /dev/null +++ b/Win32/ufrmAtendimento.pas @@ -0,0 +1,2536 @@ +unit ufrmAtendimento; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, DateUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, + ZAbstractDataset, ZDataset, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.Mask, + Vcl.DBCtrls, Vcl.ComCtrls, Vcl.ExtCtrls, rDBComponents, Vcl.CheckLst, + StrUtils, ClipBrd, System.MaskUtils, System.UITypes, System.Math, + Vcl.Menus, Vcl.Buttons, System.ImageList, Vcl.ImgList; + +type + THackDBNavigator = class(TDBNavigator); + +type + TfrmAtendimento = class(TForm) + gb_pesquisar: TGroupBox; + lbl_pesquisar: TLabel; + edt_campop: TEdit; + btn_pesquisar: TButton; + dbgrd_pesquisar: TDBGrid; + cbx_tiponome: TComboBox; + qryPesquisa: TZQuery; + dtsPesquisa: TDataSource; + gb_cabecalho: TGroupBox; + lbl_nomec: TLabel; + dbedt_nomec: TDBEdit; + dtsDevedor: TDataSource; + lbl_cpfcnpjc: TLabel; + dbedt_cpfcnpjc: TDBEdit; + gb_dados: TGroupBox; + pcDevedor: TPageControl; + tabCadastro: TTabSheet; + navdevedor: TDBNavigator; + dbedt_nome: TDBEdit; + dbedt_nomepai: TDBEdit; + lbl_nomepai: TLabel; + dbedt_nomemae: TDBEdit; + lbl_nomemae: TLabel; + lbl_nome: TLabel; + lbl_cpfcnpj: TLabel; + dbedt_cpfcnpj: TDBEdit; + lbl_rg: TLabel; + dbedt_rg: TDBEdit; + lbl_coddev: TLabel; + dbedt_coddev: TDBEdit; + lbl_datanasc: TLabel; + rdbdtp_datanasc: TrDBDateTimePicker; + lbl_datacad: TLabel; + rdbdtp_datacad: TrDBDateTimePicker; + Panel1: TPanel; + dbrgrp_tpdevedor: TDBRadioGroup; + lbl_tppessoa: TLabel; + pnl_cadastro: TPanel; + tabEnderecos: TTabSheet; + pnl_enderecos: TPanel; + dbgrd_enderecos: TDBGrid; + DBMemo1: TDBMemo; + lbl_obs: TLabel; + lbl_rua: TLabel; + dbedt_rua: TDBEdit; + dtsEnderecos: TDataSource; + lbl_num: TLabel; + dbedt_num: TDBEdit; + lbl_comp: TLabel; + dbedt_comp: TDBEdit; + lbl_cep: TLabel; + dbedt_cep: TDBEdit; + lbl_bairro: TLabel; + dbedt_bairro: TDBEdit; + lbl_uf: TLabel; + dblucmbox_uf: TDBLookupComboBox; + lbl_cidade: TLabel; + dblucmbox_cidade: TDBLookupComboBox; + Panel2: TPanel; + dbrg_situacao: TDBRadioGroup; + Panel6: TPanel; + dbrg_ref: TDBRadioGroup; + Panel7: TPanel; + dbrg_tpend: TDBRadioGroup; + lbl_tpend: TLabel; + lbl_situacao: TLabel; + lbl_ref: TLabel; + navenderecos: TDBNavigator; + tabTelefones: TTabSheet; + pnl_telefones: TPanel; + dbgrd_tel: TDBGrid; + lbl_tel: TLabel; + dbedt_tel: TDBEdit; + lbl_desctel: TLabel; + dbedt_desctel: TDBEdit; + lbl_obstel: TLabel; + btn_clearmemo: TButton; + dbmem_tel: TDBMemo; + lbl_tipo: TLabel; + lbl_sittel: TLabel; + Panel3: TPanel; + dbrg_sittel: TDBRadioGroup; + Panel4: TPanel; + dbrg_tipotel: TDBRadioGroup; + navtelefones: TDBNavigator; + tabTitulos: TTabSheet; + pnl_titulos: TPanel; + dtsTelefones: TDataSource; + clb_empresas: TCheckListBox; + dbedit_produto: TDBEdit; + dbedt_codemp: TDBEdit; + dbedt_vltit: TDBEdit; + Label2: TLabel; + lbl_dataent: TLabel; + lbl_datavenc: TLabel; + lbl_empresas: TLabel; + lbl_sittit: TLabel; + lbl_tit: TLabel; + lbl_vltit: TLabel; + Panel5: TPanel; + dbrg_tit: TDBRadioGroup; + pnl_cor1: TPanel; + pnl_color2: TPanel; + pnl_color3: TPanel; + pnl_color4: TPanel; + pnl_color5: TPanel; + pnl_color6: TPanel; + pnl_color7: TPanel; + rDBDateTimePicker1: TrDBDateTimePicker; + rdbdt_entrada: TrDBDateTimePicker; + dbgrd_tit: TDBGrid; + tabHistorico: TTabSheet; + pnl_hist: TPanel; + dbgrd_historico: TDBGrid; + dbmemo_box: TDBMemo; + navtitulos: TDBNavigator; + navhistorico: TDBNavigator; + tabCalc: TTabSheet; + lv_titulos: TListView; + dtsListaTitulos: TDataSource; + queryListaTitulos: TZQuery; + queryListaTitulosID_TITULO: TIntegerField; + queryListaTitulosID_DEVEDOR: TIntegerField; + queryListaTitulosID_EMPRESA: TIntegerField; + queryListaTitulosTX_PRODUTO: TWideStringField; + queryListaTitulosVL_TITULO: TCurrencyField; + queryListaTitulosDT_ENTRADA: TDateTimeField; + queryListaTitulosDT_VENCIMENTO: TDateTimeField; + queryListaTitulosDT_ATRASO: TIntegerField; + queryListaTitulosTP_SITUACAO: TWideStringField; + queryListaTitulosCD_DEVEDOR: TWideStringField; + queryListaTitulosNOME_EMPRESA: TStringField; + queryListaTitulosPR_ENTRADA: TFloatField; + queryListaTitulosVL_ENTRADA: TCurrencyField; + queryListaTitulosPR_JUROS: TFloatField; + queryListaTitulosVL_JUROS: TCurrencyField; + queryListaTitulosPR_MULTA: TFloatField; + queryListaTitulosVL_MULTA: TCurrencyField; + queryListaTitulosVL_ENCARGOS: TCurrencyField; + queryListaTitulosVL_CORRIGIDO: TCurrencyField; + queryListaTitulosPR_INDICADOR: TFloatField; + queryListaTitulosVL_INDICADOR: TCurrencyField; + queryListaTitulosPR_QUITACAO_INDICADOR: TFloatField; + queryListaTitulosVL_DESC_QUIT_IND: TCurrencyField; + queryListaTitulosPR_QUITACAO_PRINCIPAL: TFloatField; + queryListaTitulosVL_DESC_QUIT_PRIN: TCurrencyField; + queryListaTitulosPR_QUITACAO_MULTA: TFloatField; + queryListaTitulosVL_DESC_QUIT_MULTA: TCurrencyField; + queryListaTitulosPR_QUITACAO_JUROS: TFloatField; + queryListaTitulosVL_DESC_QUIT_JUROS: TCurrencyField; + queryListaTitulosPR_PARCELA_INDICADOR: TFloatField; + queryListaTitulosVL_DESC_PAR_IND: TCurrencyField; + queryListaTitulosPR_PARCELA_PRINCIPAL: TFloatField; + queryListaTitulosVL_DESC_PAR_PRIN: TCurrencyField; + queryListaTitulosPR_PARCELA_MULTA: TFloatField; + queryListaTitulosVL_DESC_PAR_MULTA: TCurrencyField; + queryListaTitulosPR_PARCELA_JUROS: TFloatField; + queryListaTitulosVL_DESC_PAR_JUROS: TCurrencyField; + queryListaTitulosNR_PARCELAS: TIntegerField; + dbgrd_listtitulos: TDBGrid; + lbl_somatitulos: TLabel; + lbl_parcelamento: TLabel; + lbl_somaentrada: TLabel; + lbl_vlaquitar: TLabel; + lbl_extras: TLabel; + lbl_somajuros: TLabel; + lbl_somamulta: TLabel; + lbl_somaindicador: TLabel; + lbl_desctot: TLabel; + lbl_datapgmnto: TLabel; + edt_somatitulos: TEdit; + edt_nrparcelas: TEdit; + up_nrparcelas: TUpDown; + edt_somaentrada: TEdit; + edt_vlaquitar: TEdit; + edt_extras: TEdit; + edt_somajuros: TEdit; + edt_somamulta: TEdit; + edt_somaindicador: TEdit; + cb_nmulta: TCheckBox; + edt_desctot: TEdit; + dtp_atrasorecalc: TDateTimePicker; + lv_parcelas: TListView; + gb_descontosquit: TGroupBox; + lbl_indquitar: TLabel; + lbl_principalquitar: TLabel; + lbl_multasquitar: TLabel; + lbl_jurosquitar: TLabel; + edt_indquitar: TEdit; + edt_principalquitar: TEdit; + edt_multasquitar: TEdit; + up_encquitar: TUpDown; + up_principalquitar: TUpDown; + up_multasquitar: TUpDown; + edt_jurosquitar: TEdit; + up_jurosquitar: TUpDown; + cb_descquit: TCheckBox; + gb_descontospar: TGroupBox; + lbl_indparcelas: TLabel; + lbl_jurosparcelas: TLabel; + lbl_multasparcelas: TLabel; + lbl_principalparcelas: TLabel; + edt_indparcelas: TEdit; + edt_jurosparcelas: TEdit; + edt_multasparcelas: TEdit; + edt_principalparcelas: TEdit; + up_encparcelas: TUpDown; + up_jurosparcelas: TUpDown; + up_multasparcelas: TUpDown; + up_principalparcelas: TUpDown; + cb_descpar: TCheckBox; + btn_fechamento: TButton; + ppmnu_copiar: TPopupMenu; + copiar_conteudo: TMenuItem; + B1: TMenuItem; + C1: TMenuItem; + btn_close: TButton; + dtsProtocolos: TDataSource; + dbgrd_protocolos: TDBGrid; + btn_verprotocolo: TButton; + tabFechamento: TTabSheet; + lv_prevtitulos: TListView; + btn_concluir: TButton; + lv_fechamento: TListView; + lbl_prevtitulos: TLabel; + lbl_vltotal: TLabel; + edt_vltotal: TEdit; + lbl_apagamento: TLabel; + lbl_dpagamento: TLabel; + cbx_excentrada: TCheckBox; + edt_excentrada: TEdit; + queryListaTitulosTP_DESPESA: TWideStringField; + queryListaTitulosVL_DESPESA: TCurrencyField; + dtsTitulos: TDataSource; + pnl_cheque: TPanel; + lbl_banco: TLabel; + lbl_nrcheque: TLabel; + lbl_motivo: TLabel; + dbedt_banco: TDBEdit; + dbedt_nrcheque: TDBEdit; + dbedt_motivo: TDBEdit; + dbcbx_tpcheque: TDBCheckBox; + pnl_despesa: TPanel; + dbrg_despesa: TDBRadioGroup; + lbl_tpdespesa: TLabel; + lbl_depesa: TLabel; + dbedt_despesa: TDBEdit; + dtsqryConsulta: TDataSource; + qryConsulta: TZQuery; + clb_beneficiarioscalculo: TCheckListBox; + lbl_beneficiarioscalculo: TLabel; + clb_indices: TCheckListBox; + lbl_indices: TLabel; + queryListaTitulosVL_INDICES: TCurrencyField; + Label1: TLabel; + edt_indices: TEdit; + btn_verrecibos: TButton; + queryConteudoRecibo: TZQuery; + lbl_formarecebimento: TLabel; + edt_formarecebimento: TEdit; + ImageList1: TImageList; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + edt_nrchequerecibo: TEdit; + edt_bancorecibo: TEdit; + edt_pracarecibo: TEdit; + lbl_obsrecibo: TLabel; + re_obsrecibo: TRichEdit; + procedure btn_pesquisarClick(Sender: TObject); + procedure dbgrd_pesquisarDblClick(Sender: TObject); + procedure dtsDevedorDataChange(Sender: TObject; Field: TField); + procedure clb_empresasClickCheck(Sender: TObject); + procedure dbgrd_titCellClick(Column: TColumn); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure queryListaTitulosCalcFields(DataSet: TDataSet); + procedure edt_campopKeyPress(Sender: TObject; var Key: Char); + procedure lv_titulosChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure edt_nrparcelasChange(Sender: TObject); + procedure cb_nmultaClick(Sender: TObject); + procedure cb_descquitClick(Sender: TObject); + procedure cb_descparClick(Sender: TObject); + procedure edt_indquitarChange(Sender: TObject); + procedure edt_principalquitarChange(Sender: TObject); + procedure edt_multasquitarChange(Sender: TObject); + procedure edt_jurosquitarChange(Sender: TObject); + procedure edt_indparcelasChange(Sender: TObject); + procedure edt_principalparcelasChange(Sender: TObject); + procedure edt_multasparcelasChange(Sender: TObject); + procedure edt_jurosparcelasChange(Sender: TObject); + procedure copiar_conteudoClick(Sender: TObject); + procedure btn_closeClick(Sender: TObject); + procedure dtp_atrasorecalcChange(Sender: TObject); + procedure btn_verprotocoloClick(Sender: TObject); + procedure cbx_descfixoClick(Sender: TObject); + procedure cbx_acrfixoClick(Sender: TObject); + procedure pcDevedorChanging(Sender: TObject; var AllowChange: Boolean); + procedure pcDevedorChange(Sender: TObject); + procedure btn_fechamentoClick(Sender: TObject); + procedure btn_concluirClick(Sender: TObject); + procedure cbx_excentradaClick(Sender: TObject); + procedure edt_acrfixoKeyPress(Sender: TObject; var Key: Char); + procedure edt_excentradaKeyPress(Sender: TObject; var Key: Char); + procedure edt_descfixoKeyPress(Sender: TObject; var Key: Char); + procedure edt_descfixoChange(Sender: TObject); + procedure edt_acrfixoChange(Sender: TObject); + procedure edt_excentradaChange(Sender: TObject); + procedure dtsTitulosDataChange(Sender: TObject; Field: TField); + procedure dtsTitulosStateChange(Sender: TObject); + procedure clb_beneficiarioscalculoClickCheck(Sender: TObject); + procedure clb_indicesClickCheck(Sender: TObject); + procedure btn_verrecibosClick(Sender: TObject); + private + FListViewOldWndProc: TWndMethod; + FlistViewOldWndProc2: TWndMethod; + atendimento: string; + pagina: integer; + + procedure ListViewNewWndProc(var Msg: TMessage); + procedure ListViewNewWndProc2(var Msg: TMessage); + procedure CriarLista; + procedure CalcValorParcelas; + procedure Att_campos; + procedure CarregaProtocolo; + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); + { Private declarations } + public + data_parcelas: array of TDate; + old_id: integer; + index_pagamento: integer; + clpbrd: string; + forma_pagamento: string; + tipo_pagamento: string; + nome_titulos: string; + parcelamento: array of currency; + { Public declarations } + end; + +var + frmAtendimento: TfrmAtendimento; + +implementation + +{$R *.dfm} + +uses udtmSystem, CommCtrl, ufrmFechamentoAtendimento, urelRecibo, uExtenso; + +procedure TfrmAtendimento.Att_campos; +var + soma_nominal, soma_encargos, soma_corrigido, soma_entrada, soma_juros, + soma_multas, soma_indicador, { desc_fixo, acr_fixo, } soma_indices + : currency; + i, n_parcelas, quit_ind, quit_prin, quit_multa, quit_juros, parc_ind, + parc_prin, parc_multa, parc_juros: integer; +begin + soma_nominal := 0.00; + soma_encargos := 0.00; + soma_corrigido := 0.00; + soma_entrada := 0.00; + soma_juros := 0.00; + soma_multas := 0.00; + soma_indicador := 0.00; + soma_indices := 0.00; + + n_parcelas := 0; + + quit_ind := 0; + quit_prin := 0; + quit_multa := 0; + quit_juros := 0; + + parc_ind := 0; + parc_prin := 0; + parc_multa := 0; + parc_juros := 0; + + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + soma_nominal := soma_nominal + queryListaTitulosVL_TITULO.AsCurrency; + soma_encargos := soma_encargos + queryListaTitulosVL_ENCARGOS.AsCurrency; + soma_corrigido := soma_corrigido + queryListaTitulosVL_CORRIGIDO. + AsCurrency; + soma_entrada := soma_entrada + queryListaTitulosVL_ENTRADA.AsCurrency; + soma_juros := soma_juros + queryListaTitulosVL_JUROS.AsCurrency; + soma_multas := soma_multas + queryListaTitulosVL_MULTA.AsCurrency; + soma_indicador := soma_indicador + queryListaTitulosVL_INDICADOR. + AsCurrency; + soma_indices := soma_indices + queryListaTitulosVL_INDICES.AsCurrency; + if n_parcelas < (queryListaTitulosNR_PARCELAS.AsInteger) then + begin + n_parcelas := queryListaTitulosNR_PARCELAS.AsInteger; + end; + + if quit_ind < (queryListaTitulosPR_QUITACAO_INDICADOR.AsInteger) then + begin + quit_ind := queryListaTitulosPR_QUITACAO_INDICADOR.AsInteger; + end; + if quit_prin < (queryListaTitulosPR_QUITACAO_PRINCIPAL.AsInteger) then + begin + quit_prin := queryListaTitulosPR_QUITACAO_PRINCIPAL.AsInteger; + end; + if quit_multa < (queryListaTitulosPR_QUITACAO_MULTA.AsInteger) then + begin + quit_multa := queryListaTitulosPR_QUITACAO_MULTA.AsInteger; + end; + if quit_juros < (queryListaTitulosPR_QUITACAO_JUROS.AsInteger) then + begin + quit_juros := queryListaTitulosPR_QUITACAO_JUROS.AsInteger; + end; + + if parc_ind < (queryListaTitulosPR_PARCELA_INDICADOR.AsInteger) then + begin + parc_ind := queryListaTitulosPR_PARCELA_INDICADOR.AsInteger; + end; + if parc_prin < (queryListaTitulosPR_PARCELA_PRINCIPAL.AsInteger) then + begin + parc_prin := queryListaTitulosPR_PARCELA_PRINCIPAL.AsInteger; + end; + if parc_multa < (queryListaTitulosPR_PARCELA_MULTA.AsInteger) then + begin + parc_multa := queryListaTitulosPR_PARCELA_MULTA.AsInteger; + end; + if parc_juros < (queryListaTitulosPR_PARCELA_JUROS.AsInteger) then + begin + parc_juros := queryListaTitulosPR_PARCELA_JUROS.AsInteger; + end; + + end; + end; + + edt_somatitulos.Text := CurrToStrF(soma_nominal, ffCurrency, 2); + edt_indices.Text := CurrToStrF(soma_indices, ffCurrency, 2); + edt_extras.Text := CurrToStrF(soma_encargos, ffCurrency, 2); + edt_vlaquitar.Text := CurrToStrF(soma_corrigido, ffCurrency, 2); + if cbx_excentrada.Checked then + begin + edt_somaentrada.Text := CurrToStrF(StrToCurr(edt_excentrada.Text), + ffCurrency, 2); + end + else + begin + edt_somaentrada.Text := CurrToStrF(soma_entrada, ffCurrency, 2); + end; + edt_somaindicador.Text := CurrToStrF(soma_indicador, ffCurrency, 2); + edt_somamulta.Text := CurrToStrF(soma_multas, ffCurrency, 2); + edt_somajuros.Text := CurrToStrF(soma_juros, ffCurrency, 2); + up_nrparcelas.Max := n_parcelas; + + up_encquitar.Max := quit_ind; + up_principalquitar.Max := quit_prin; + up_multasquitar.Max := quit_multa; + up_jurosquitar.Max := quit_juros; + + up_encparcelas.Max := parc_ind; + up_principalparcelas.Max := parc_prin; + up_multasparcelas.Max := parc_multa; + up_jurosparcelas.Max := parc_juros; +end; + +procedure TfrmAtendimento.btn_fechamentoClick(Sender: TObject); +var + i, j, k: integer; + parcela, valor, juros, dividendo, somatotal, a: currency; +begin + + with TfrmFechamentoAtendimento.Create(self) do + begin + ShowModal; + if ModalResult = mrOk then + begin + atendimento := 'fechamento'; + pcDevedor.TabIndex := 6; + lv_prevtitulos.Clear; + lv_fechamento.Clear; + + dtmSystem.tblConteudoRecibo.Open; + if dtmSystem.tblConteudoRecibo.RecordCount <> 0 then + begin + dtmSystem.tblConteudoRecibo.Close; + queryConteudoRecibo.Close; + queryConteudoRecibo.SQL.Text := 'delete from SYS_CONTEUDO_RECIBO'; + queryConteudoRecibo.ExecSQL; + end; + dtmSystem.tblConteudoRecibo.Open; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + with lv_prevtitulos.Items.Add do + begin + Caption := queryListaTitulos.FieldByName('TX_PRODUTO').AsString; + + SubItems.Add(CurrToStrF(queryListaTitulos.FieldByName('VL_TITULO') + .AsCurrency, ffCurrency, 2)); + SubItems.Add + (CurrToStrF(queryListaTitulos.FieldByName('VL_CORRIGIDO') + .AsCurrency, ffCurrency, 2)); + end; + if forma_pagamento = 'Q' then + begin + dtmSystem.tblConteudoRecibo.Append; + dtmSystem.tblConteudoReciboTX_NOME.AsString := + queryListaTitulosTX_PRODUTO.AsString; + dtmSystem.tblConteudoReciboVL_PRINCIPAL.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_TITULO.AsCurrency)); + dtmSystem.tblConteudoReciboVL_JUROS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_JUROS.AsCurrency)); + dtmSystem.tblConteudoReciboVL_MULTA.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_MULTA.AsCurrency)); + dtmSystem.tblConteudoReciboVL_ENCARGOS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_ENCARGOS.AsCurrency)); + dtmSystem.tblConteudoReciboVL_DESCONTOS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency)); + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_CORRIGIDO.AsCurrency)); + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + queryListaTitulosDT_VENCIMENTO.AsDateTime; + dtmSystem.tblConteudoRecibo.Post; + end; + end; + end; + lv_prevtitulos.Columns[1].Alignment := taRightJustify; + lv_prevtitulos.Columns[2].Alignment := taRightJustify; + if forma_pagamento = 'Q' then + begin + lv_fechamento.Visible := False; + lbl_dpagamento.Visible := False; + somatotal := 0; + for k := 0 to lv_prevtitulos.Items.Count - 1 do + begin + with lv_prevtitulos.Items[k] do + begin + case index_pagamento of + // 0=Dinheiro;1=Dbito;2=Crdito;3=Cheque; + 1: + begin + a := (StrToCurr(stringreplace(copy(lv_prevtitulos.Items[k] + .SubItems[1], 4, length(lv_prevtitulos.Items[k].SubItems[1]) + - 3), '.', '', [rfReplaceAll, rfIgnoreCase])) * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + SubItems[1] := + CurrToStrF + (StrToCurr(stringreplace(copy(lv_prevtitulos.Items[k] + .SubItems[1], 4, length(lv_prevtitulos.Items[k].SubItems[1]) + - 3), '.', '', [rfReplaceAll, rfIgnoreCase])) + a, + ffCurrency, 2); + somatotal := somatotal + + (StrToCurr(stringreplace(copy(SubItems[1], 4, + length(SubItems[1]) - 3), '.', '', [rfReplaceAll, + rfIgnoreCase]))); + end; + 2: + begin + a := (StrToCurr(stringreplace(copy(lv_prevtitulos.Items[k] + .SubItems[1], 4, length(lv_prevtitulos.Items[k].SubItems[1]) + - 3), '.', '', [rfReplaceAll, rfIgnoreCase])) * + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100)); + SubItems[1] := + CurrToStrF + (StrToCurr(stringreplace(copy(lv_prevtitulos.Items[k] + .SubItems[1], 4, length(lv_prevtitulos.Items[k].SubItems[1]) + - 3), '.', '', [rfReplaceAll, rfIgnoreCase])) + a, + ffCurrency, 2); + somatotal := somatotal + + (StrToCurr(stringreplace(copy(SubItems[1], 4, + length(SubItems[1]) - 3), '.', '', [rfReplaceAll, + rfIgnoreCase]))); + end; + end; + end; + end; + if somatotal <> 0 then + begin + edt_vltotal.Text := CurrToStrF(somatotal, ffCurrency, 2); + end + else + begin + edt_vltotal.Text := edt_vlaquitar.Text; + end; + end; + if forma_pagamento = 'P' then + begin + // dtmSystem.tblConteudoRecibo.Append; + // dtmSystem.tblConteudoReciboTX_NOME.AsString := 'Entrada'; + // dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + // StrToCurr(copy(edt_somaentrada.Text, 3, + // length(edt_somaentrada.Text) - 3)); + // dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + // StrToDate(FormatDateTime('dd/mm/yyyy', data_parcelas[0])); + // dtmSystem.tblConteudoRecibo.Post; + lv_fechamento.Visible := True; + lbl_dpagamento.Visible := True; + somatotal := 0; + for j := 0 to strtoint(edt_nrparcelas.Text) do + begin + with lv_fechamento.Items.Add do + begin + if j = 0 then + begin + Caption := 'Entrada'; + SubItems.Add(edt_somaentrada.Text); + SubItems.Add(DateToStr(data_parcelas[0])); + end + else + begin + Caption := 'Parcela n ' + inttostr(j) + '/' + + edt_nrparcelas.Text; + // 0=Dinheiro;1=Dbito;2=Crdito;3=Cheque; + case index_pagamento of + 0, 1, 3: + begin + SubItems.Add(CurrToStrF(parcelamento[j - 1], + ffCurrency, 2)); + SubItems.Add(DateToStr(data_parcelas[j])); + end; + 2: + begin + valor := (StrToCurr(stringreplace(copy(edt_vlaquitar.Text, + 4, length(edt_vlaquitar.Text) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase]))) - + (StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase]))); + + juros := (dtmSystem.tblEmpresaPR_FINANCIAMENTO. + AsFloat / 100); + + dividendo := + (1 - (1 / (power(1 + + (dtmSystem.tblEmpresaPR_FINANCIAMENTO.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := (valor * juros) / dividendo; + case strtoint(edt_nrparcelas.Text) of + 1: + begin + parcela := + RoundTo(parcela + + (parcela * (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat + / 100)), -2); + + end; + 2, 3: + begin + parcela := + RoundTo(parcela + + (parcela * (dtmSystem.tblEmpresaPR_CRED3.AsFloat / + 100)), -2); + end; + 4, 5, 6: + begin + parcela := + RoundTo(parcela + + (parcela * (dtmSystem.tblEmpresaPR_CRED6.AsFloat / + 100)), -2); + end; + 7, 8, 9, 10, 11, 12: + begin + parcela := + RoundTo(parcela + + (parcela * (dtmSystem.tblEmpresaPR_CRED12.AsFloat / + 100)), -2); + end; + end; + SubItems.Add(CurrToStrF(parcela, ffCurrency, 2)); + SubItems.Add(DateToStr(data_parcelas[j])); + somatotal := somatotal + parcela; + end; + end; + end; + end; + if j = 0 then + begin + dtmSystem.tblConteudoRecibo.Append; + dtmSystem.tblConteudoReciboTX_NOME.AsString := 'Entrada'; + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + StrToCurr(copy(edt_somaentrada.Text, 3, + length(edt_somaentrada.Text) - 3)); + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + StrToDate(FormatDateTime('dd/mm/yyyy', data_parcelas[0])); + dtmSystem.tblConteudoRecibo.Post; + end + else + begin + dtmSystem.tblConteudoRecibo.Append; + dtmSystem.tblConteudoReciboTX_NOME.AsString := 'Parcela n ' + + inttostr(j); + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + (StrToCurr(stringreplace(copy(lv_fechamento.Items[j].SubItems[0], + 4, length(lv_fechamento.Items[j].SubItems[0]) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase]))); + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + StrToDate(FormatDateTime('dd/mm/yyyy', data_parcelas[j])); + dtmSystem.tblConteudoRecibo.Post; + end; + end; + if somatotal <> 0 then + begin + edt_vltotal.Text := + CurrToStrF(somatotal + + StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll, + rfIgnoreCase])), ffCurrency, 2); + end + else + begin + edt_vltotal.Text := edt_vlaquitar.Text; + end; + end; + end; + end; + // edt_formarecebimento.Text := ''; +end; + +procedure TfrmAtendimento.btn_pesquisarClick(Sender: TObject); +var + string_query, tx_pesquisa, help_cpfcnpj: string; +begin + if edt_campop.Text <> '' then + begin + tx_pesquisa := UpperCase(stringreplace(edt_campop.Text, ' ', '%', + [rfReplaceAll])); + + string_query := 'select tx_nome, tx_pai, tx_mae from chg_devedores where '; + case cbx_tiponome.ItemIndex of + 0: + begin + string_query := string_query + 'upper(TX_NOME) LIKE ' + + QuotedStr('%' + tx_pesquisa + '%') + ' ORDER BY TX_NOME '; + end; + 1: + begin + string_query := string_query + 'upper(TX_PAI) LIKE ' + + QuotedStr('%' + tx_pesquisa + '%') + ' ORDER BY TX_NOME '; + end; + 2: + begin + string_query := string_query + 'upper(TX_MAE) LIKE ' + + QuotedStr('%' + tx_pesquisa + '%') + ' ORDER BY TX_NOME '; + end; + 3: + begin + tx_pesquisa := stringreplace(tx_pesquisa, '.', '', [rfReplaceAll]); + tx_pesquisa := stringreplace(tx_pesquisa, '-', '', [rfReplaceAll]); + tx_pesquisa := stringreplace(tx_pesquisa, '/', '', [rfReplaceAll]); + if length(tx_pesquisa) < 14 then + begin + help_cpfcnpj := copy(tx_pesquisa, 1, 3) + '.' + + copy(tx_pesquisa, 4, 3) + '.' + copy(tx_pesquisa, 7, 3) + '-' + + RightStr(tx_pesquisa, 2); + string_query := string_query + 'CD_CPF like ' + + QuotedStr(help_cpfcnpj) + ' order by tx_nome '; + end + else if length(tx_pesquisa) >= 14 then + begin + help_cpfcnpj := copy(tx_pesquisa, 1, 2) + '.' + + copy(tx_pesquisa, 3, 3) + '.' + copy(tx_pesquisa, 6, 3) + '/' + + copy(tx_pesquisa, 9, 4) + '-' + RightStr(tx_pesquisa, 2); + string_query := string_query + 'CD_CNPJ like ' + + QuotedStr(help_cpfcnpj) + ' order by tx_nome '; + end; + end; + 4: + begin + string_query := string_query + + 'ID_DEVEDOR in (select id_devedor from chg_titulos where cd_devedor like ' + + QuotedStr('%' + tx_pesquisa + '%') + ')'; + end; + 5: + begin + if copy(tx_pesquisa, 1, 1) <> '(' then + begin + tx_pesquisa := '(' + tx_pesquisa; + end; + if copy(tx_pesquisa, 4, 1) <> ')' then + begin + tx_pesquisa := copy(tx_pesquisa, 1, 3) + ')' + + copy(tx_pesquisa, 4, 15); + end; + if copy(tx_pesquisa, 9, 1) <> '-' then + begin + tx_pesquisa := copy(tx_pesquisa, 1, 8) + '-' + + copy(tx_pesquisa, 9, 15); + end; + if (length(tx_pesquisa) < 13) or (length(tx_pesquisa) > 14) then + begin + MessageDlg('Nmero de telefone invlido.', mtWarning, [mbOK], 0); + exit; + end; + string_query := string_query + + 'ID_DEVEDOR in (SELECT ID_DEVEDOR FROM CHG_TELEFONES WHERE NR_NUMERO like ' + + QuotedStr(tx_pesquisa) + ')'; + end; + end; + end; + + with qryPesquisa do + begin + Close; + SQL.Text := string_query; + + Open; + end; + dbgrd_pesquisar.Columns[0].FieldName := 'tx_nome'; + dbgrd_pesquisar.Columns[0].Title.Caption := 'Nome do Devedor'; + dbgrd_pesquisar.Columns[1].FieldName := 'tx_pai'; + dbgrd_pesquisar.Columns[1].Title.Caption := 'Nome do Pai'; + dbgrd_pesquisar.Columns[2].FieldName := 'tx_mae'; + dbgrd_pesquisar.Columns[2].Title.Caption := 'Nome da Me'; + +end; + +procedure TfrmAtendimento.btn_verprotocoloClick(Sender: TObject); +begin + CarregaProtocolo; +end; + +procedure TfrmAtendimento.btn_verrecibosClick(Sender: TObject); +var + old_nr: string; + k, l: integer; + // i: integer; +begin + with dtmSystem do + begin + tblRecibo.Open; + tblConteudoRecibo.Open; + tblConteudoRecibo.RecNo := 1; + if tblRecibo.RecordCount = 0 then + begin + tblRecibo.Append; + tblReciboNR_RECIBO.AsString := '000001'; +// tblReciboTX_NOME.AsString := 'temp'; + tblRecibo.Post; + end; + tblRecibo.RecNo := tblRecibo.RecordCount; + old_nr := tblReciboNR_RECIBO.AsString; + if forma_pagamento = 'Q' then + begin + if tblReciboTX_NOME.AsString <> 'temp' then + begin + tblRecibo.Append; + tblReciboNR_RECIBO.AsString := + Format('%.*d', [6, strtoint(old_nr) + 1]); +// tblReciboTX_NOME.AsString := 'temp'; + tblRecibo.Post; + end; + tblRecibo.Filtered := true; + tblRecibo.Filter := 'ID_RECIBO = ' + inttostr(tblRecibo.RecNo); + relRecibo := TrelRecibo.Create(self); + with relRecibo do + begin + frdblbl_nome.left := frlbl_recebemos.left + frlbl_recebemos.Width + 5; + frdblbl_nome2v.left := frdblbl_nome.left; + frdblbl_cpf.left := frdblbl_nome.left + frdblbl_nome.Width + 10; + frdblbl_cpf2v.left := frdblbl_cpf.left; + frlbl_valortot.Caption := frlbl_valortot.Caption + edt_vltotal.Text; + frlbl_valortot2v.Caption := frlbl_valortot.Caption; + frlbl_vlextenso.left := frlbl_valortot.Width + 5; + frlbl_vlextenso2v.left := frlbl_vlextenso.left; + frlbl_vlextenso.Caption := '(' + valorPorExtenso + (strtofloat(copy(stringreplace(edt_vltotal.Text, '.', '', []), 4, + length(edt_vltotal.Text) - 3))) + ')'; + frlbl_vlextenso2v.Caption := frlbl_vlextenso.Caption; + frlbl_formarecebimento.Caption := frlbl_formarecebimento.Caption + + edt_formarecebimento.Text; + frlbl_formarecebimento2v.Caption := frlbl_formarecebimento.Caption; + for k := 0 to re_obsrecibo.Lines.Count - 1 do + begin + fr_membobs.Lines.Add(re_obsrecibo.Lines[k]); + fr_membobs2v.Lines.Add(re_obsrecibo.Lines[k]); + end; + if index_pagamento = 3 then + begin + frpnl_cheque.Visible := True; + frlbl_obscheque.Visible := True; + if edt_nrchequerecibo.Text <> '' then + begin + frlbl_nrcheque.Caption := frlbl_nrcheque.Caption + + edt_nrchequerecibo.Text; + frlbl_nrcheque2v.Caption := frlbl_nrcheque.Caption; + end; + if edt_bancorecibo.Text <> '' then + begin + frlbl_banco.Caption := frlbl_banco.Caption + edt_bancorecibo.Text; + frlbl_banco2v.Caption := frlbl_banco.Caption; + end; + if edt_pracarecibo.Text <> '' then + begin + frlbl_praca.Caption := frlbl_praca.Caption + edt_pracarecibo.Text; + frlbl_praca2v.Caption := frlbl_praca.Caption; + end; + end; + dtmSystem.tblCidades.Locate('ID_CIDADE', + dtmSystem.tblEmpresaID_CIDADE.AsString, []); + dtmSystem.tblEstados.Locate('ID_ESTADO', + dtmSystem.tblEmpresaID_ESTADO.AsString, []); + frlbl_headerbot.Caption := + UpperCase(dtmSystem.tblEmpresaTX_ENDERECO.AsString + ' ' + + dtmSystem.tblEmpresaNR_NUMERO.AsString + ' ' + + dtmSystem.tblEmpresaTX_COMPLEMENTO.AsString + ' - ' + + dtmSystem.tblEmpresaTX_BAIRRO.AsString + ' - ' + + dtmSystem.tblCidadesTX_NOME.AsString + ' - ' + + dtmSystem.tblEstadosTX_SIGLA.AsString + ' - TEL: ' + + dtmSystem.tblEmpresaTX_TELEFONE.AsString); + frlbl_headerbot2v.Caption := frlbl_headerbot.Caption; + frlbl_headertop.Caption := + UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + ' - CNPJ: ' + + dtmSystem.tblEmpresaTX_CNPJ.AsString); + frlbl_headertop2v.Caption := frlbl_headertop.Caption; + if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 170; + frdbimg_logo.Width := 133; + end; + if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 170; + end; + if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 133; + end; + frRecibo.PreviewModal; + end; + end + else + begin + for l := 0 to strtoint(edt_nrparcelas.Text) do + begin + if StrToCurr(edt_excentrada.Text) = 0 then + begin + continue; + end + else + begin + + end; + end; + if tblReciboTX_NOME.AsString <> '' then + begin + tblRecibo.Append; + tblReciboNR_RECIBO.AsString := + Format('%.*d', [6, strtoint(old_nr) + 1]); + tblRecibo.Post; + end; + relRecibo := TrelRecibo.Create(self); + dtmSystem.tblConteudoRecibo.RecNo := 1; + with relRecibo do + begin + frdblbl_nome.left := frlbl_recebemos.left + frlbl_recebemos.Width + 5; + frdblbl_nome2v.left := frdblbl_nome.left; + frdblbl_cpf.left := frdblbl_nome.left + frdblbl_nome.Width + 10; + frdblbl_cpf2v.left := frdblbl_cpf.left; + frlbl_valortot.Caption := frlbl_valortot.Caption + + CurrToStrF(dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency, + ffCurrency, 2); + frlbl_valortot2v.Caption := frlbl_valortot.Caption; + frlbl_vlextenso.left := frlbl_valortot.Width + 5; + frlbl_vlextenso2v.left := frlbl_vlextenso.left; + frlbl_vlextenso.Caption := '(' + valorPorExtenso + (dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency) + ')'; + frlbl_vlextenso2v.Caption := frlbl_vlextenso.Caption; + frlbl_formarecebimento.Caption := frlbl_formarecebimento.Caption + + edt_formarecebimento.Text; + frlbl_formarecebimento2v.Caption := frlbl_formarecebimento.Caption; + for k := 0 to re_obsrecibo.Lines.Count - 1 do + begin + fr_membobs.Lines.Add(re_obsrecibo.Lines[k]); + fr_membobs2v.Lines.Add(re_obsrecibo.Lines[k]); + end; + if index_pagamento = 3 then + begin + frpnl_cheque.Visible := True; + frlbl_obscheque.Visible := True; + frpnl_cheque2v.Visible := True; + frlbl_obscheque2v.Visible := True; + if edt_nrchequerecibo.Text <> '' then + begin + frlbl_nrcheque.Caption := frlbl_nrcheque.Caption + + edt_nrchequerecibo.Text; + frlbl_nrcheque2v.Caption := frlbl_nrcheque.Caption; + end; + if edt_bancorecibo.Text <> '' then + begin + frlbl_banco.Caption := frlbl_banco.Caption + edt_bancorecibo.Text; + frlbl_banco2v.Caption := frlbl_banco.Caption; + end; + if edt_pracarecibo.Text <> '' then + begin + frlbl_praca.Caption := frlbl_praca.Caption + edt_pracarecibo.Text; + frlbl_praca2v.Caption := frlbl_praca.Caption; + end; + end; + dtmSystem.tblCidades.Locate('ID_CIDADE', + dtmSystem.tblEmpresaID_CIDADE.AsString, []); + dtmSystem.tblEstados.Locate('ID_ESTADO', + dtmSystem.tblEmpresaID_ESTADO.AsString, []); + frlbl_headerbot.Caption := + UpperCase(dtmSystem.tblEmpresaTX_ENDERECO.AsString + ' ' + + dtmSystem.tblEmpresaNR_NUMERO.AsString + ' ' + + dtmSystem.tblEmpresaTX_COMPLEMENTO.AsString + ' - ' + + dtmSystem.tblEmpresaTX_BAIRRO.AsString + ' - ' + + dtmSystem.tblCidadesTX_NOME.AsString + ' - ' + + dtmSystem.tblEstadosTX_SIGLA.AsString + ' - TEL: ' + + dtmSystem.tblEmpresaTX_TELEFONE.AsString); + frlbl_headerbot2v.Caption := frlbl_headerbot.Caption; + frlbl_headertop.Caption := + UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + ' - CNPJ: ' + + dtmSystem.tblEmpresaTX_CNPJ.AsString); + frlbl_headertop2v.Caption := frlbl_headertop.Caption; + if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 170; + frdbimg_logo.Width := 133; + end; + if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 170; + end; + if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 133; + end; + frRecibo.PreviewModal; + end; + end; + tblRecibo.Close; + end; + +end; + +procedure TfrmAtendimento.btn_closeClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmAtendimento.btn_concluirClick(Sender: TObject); +var + i, j: integer; +begin + // atendimento := 'atendendo'; + // pcDevedor.TabIndex := 5; + dtmSystem.tblTitulos.RecNo := 1; + if forma_pagamento = 'Q' then + begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + with dtmSystem do + begin + tblTitulos.Locate('ID_TITULO', + queryListaTitulosID_TITULO.AsInteger, []); + tblTitulos.Edit; + tblTitulosTP_SITUACAO.AsString := 'QC'; + tblTitulosVL_MULTA.AsCurrency := queryListaTitulosVL_MULTA.AsCurrency; + tblTitulosVL_JUROS.AsCurrency := queryListaTitulosVL_JUROS.AsCurrency; + tblTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency; + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency; + tblTitulosDT_PAGAMENTO.AsDateTime := Date; + tblTitulos.Post; + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblHistoricoID_TITULO.AsInteger := tblTitulosID_TITULO.AsInteger; + tblHistoricoID_PROVIDENCIA.AsInteger := 2; + // 2 = quitado com a empresa de cobrana + tblHistoricoDT_CONTATO.AsDateTime := Date; + tblHistoricoTL_MEMO.AsString := 'O ttulo ' + + tblTitulosTX_PRODUTO.AsString + ' - ' + + tblTitulosCD_DEVEDOR.AsString + ', pertencente ao devedor ' + + tblDevedoresTX_NOME.AsString + ' foi quitado no dia ' + + DateToStr(Date) + ' na empresa ' + tblEmpresaTX_NOME.AsString + '.'; + tblHistorico.Post; + end; + end; + end; + end; + + if forma_pagamento = 'P' then + begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + with dtmSystem do + begin + tblTitulos.Locate('ID_TITULO', + queryListaTitulosID_TITULO.AsInteger, []); + tblTitulos.Edit; + tblTitulosTP_SITUACAO.AsString := 'AC'; + tblTitulosVL_MULTA.AsCurrency := queryListaTitulosVL_MULTA.AsCurrency; + tblTitulosVL_JUROS.AsCurrency := queryListaTitulosVL_JUROS.AsCurrency; + tblTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency; + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency; + tblTitulos.Post; + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblHistoricoID_TITULO.AsInteger := tblTitulosID_TITULO.AsInteger; + tblHistoricoID_PROVIDENCIA.AsInteger := 3; + // 3 = acordado com a empresa de cobrana + tblHistoricoDT_CONTATO.AsDateTime := Date; + tblHistoricoTL_MEMO.AsString := 'O ttulo ' + + tblTitulosTX_PRODUTO.AsString + ' - ' + + tblTitulosCD_DEVEDOR.AsString + ', pertencente ao devedor ' + + tblDevedoresTX_NOME.AsString + ' foi acordado no dia ' + + DateToStr(Date) + ' na empresa ' + tblEmpresaTX_NOME.AsString + + ' para ser parcelado.'; + tblHistorico.Post; + end; + end; + end; + if dtmSystem.tblCHGEmpresaTP_CONFIANCA.AsString = 'S' then + begin + if index_pagamento = 1 then + begin + for j := 0 to lv_fechamento.Items.Count - 1 do + begin + with dtmSystem do + begin + tblTitulos.Append; + if j = 0 then + begin + tblTitulosTX_PRODUTO.AsString := 'Entrada'; + tblTitulosID_EMPRESA.AsInteger := 1; + tblTitulosDT_VENCIMENTO.AsDateTime := Date; + tblTitulosDT_ENTRADA.AsDateTime := Date; + tblTitulosVL_TITULO.AsCurrency := + StrToCurr(copy(edt_somaentrada.Text, 3, + length(edt_somaentrada.Text) - 3)); + tblTitulosTP_SITUACAO.AsString := 'QC'; + // tblTitulosCD_DEVEDOR.AsString := tblDevedoresCD_DEVEDOR.AsString; + end + else + begin + tblTitulosTX_PRODUTO.AsString := 'Parcela n ' + inttostr(j); + tblTitulosID_EMPRESA.AsInteger := 1; + // if j = 1 then + // begin + // tblTitulosDT_VENCIMENTO.AsDateTime := Date; + // tblTitulosDT_ENTRADA.AsDateTime := Date; + // tblTitulosVL_TITULO.AsCurrency := + // StrToCurr(copy(lv_fechamento.Items[1].SubItems[0], 3, + // length(lv_fechamento.Items[1].SubItems[0]) - 3)); + // tblTitulosTP_SITUACAO.AsString := 'QC'; + // //tblTitulosCD_DEVEDOR.AsString := tblDevedoresCD_DEVEDOR.AsString; + // end + // else + // begin + tblTitulosDT_VENCIMENTO.AsDateTime := + StrToDate(lv_fechamento.Items[j].SubItems[1]); + tblTitulosDT_ENTRADA.AsDateTime := Date; + tblTitulosVL_TITULO.AsCurrency := + StrToCurr(copy(lv_fechamento.Items[j].SubItems[0], 3, + length(lv_fechamento.Items[j].SubItems[1]) - 3)); + tblTitulosTP_SITUACAO.AsString := 'A'; + // tblTitulosCD_DEVEDOR.AsString := tblDevedoresCD_DEVEDOR.AsString; + // end; + end; + tblTitulos.Post; + end; + end; + end; + end; + + end; + atendimento := 'atendendo'; + btn_concluir.Enabled := False; + Close; +end; + +procedure TfrmAtendimento.CalcValorParcelas; +var + i, j, k, Y: integer; + valor_parcela, valor_entrada: currency; + data_helper: TDate; + dia_antes, dia_depois, mes, ano: Word; +begin + setlength(parcelamento, 0); + lv_parcelas.Clear; + valor_entrada := 0; + if strtoint(edt_nrparcelas.Text) >= 1 then + begin + setlength(parcelamento, strtoint(edt_nrparcelas.Text)); + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + if strtoint(edt_nrparcelas.Text) <= queryListaTitulosNR_PARCELAS.AsInteger + then + begin + if cb_nmulta.Checked then + begin + valor_parcela := (queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_ENTRADA.AsCurrency - + queryListaTitulosVL_MULTA.AsCurrency) / + strtofloat(edt_nrparcelas.Text); + valor_entrada := valor_entrada + + (queryListaTitulosVL_ENTRADA.AsCurrency); + end + else + begin + valor_parcela := (queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_ENTRADA.AsCurrency) / + strtofloat(edt_nrparcelas.Text); + end; + for j := 0 to strtoint(edt_nrparcelas.Text) - 1 do + begin + parcelamento[j] := parcelamento[j] + valor_parcela; + end; + end + else + begin + if cb_nmulta.Checked then + begin + valor_parcela := (queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_ENTRADA.AsCurrency - + queryListaTitulosVL_MULTA.AsCurrency) / + queryListaTitulosNR_PARCELAS.AsInteger; + valor_entrada := valor_entrada + + (queryListaTitulosVL_ENTRADA.AsCurrency); + end + else + begin + valor_parcela := (queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_ENTRADA.AsCurrency) / + queryListaTitulosNR_PARCELAS.AsInteger; + end; + for j := 0 to strtoint(lv_titulos.Items[i].SubItems[4]) - 1 do + begin + parcelamento[j] := parcelamento[j] + valor_parcela; + end; + end; + end; + end; + // if cbx_excentrada.Checked then + // begin + // valor_entrada := StrToCurr(edt_excentrada.Text); + // end; + // if cbx_descfixo.Checked then + // begin + // valor_entrada := valor_entrada - StrToCurr(edt_descfixo.Text); + // end; + // if cbx_acrfixo.Checked then + // begin + // valor_entrada := valor_entrada + StrToCurr(edt_acrfixo.Text); + // end; + lv_parcelas.Items.Add; + lv_parcelas.Items[0].Caption := 'Entrada'; + if cb_nmulta.Checked then + begin + lv_parcelas.Items[0].SubItems.Add(CurrToStrF(valor_entrada, + ffCurrency, 2)); + end + else + begin + lv_parcelas.Items[0].SubItems.Add(edt_somaentrada.Text); + end; + + for k := 0 to length(parcelamento) - 1 do + begin + lv_parcelas.Items.Add; + lv_parcelas.Items[k + 1].Caption := 'Parcela n ' + inttostr(k + 1); + lv_parcelas.Items[k + 1].SubItems.Add(CurrToStrF(parcelamento[k], + ffCurrency, 2)); + end; + setlength(data_parcelas, strtoint(edt_nrparcelas.Text) + 1); + data_helper := dtp_atrasorecalc.Date; + DecodeDate(dtp_atrasorecalc.Date, ano, mes, dia_antes); + for Y := 0 to strtoint(edt_nrparcelas.Text) do + begin + data_parcelas[Y] := data_helper; + data_helper := IncMonth(data_helper); + DecodeDate(data_helper, ano, mes, dia_depois); + if (mes = 3) and (dia_antes = 29) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper); + end; + if (mes = 3) and (dia_antes = 30) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper, 2); + end; + if (mes = 3) and (dia_antes = 31) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper, 3); + end; + end; + end + else + begin + lv_parcelas.Clear; + end; +end; + +procedure TfrmAtendimento.CarregaProtocolo; +var + qnt_titulos: integer; + i: integer; + list_titulos: TStringList; + h: integer; +begin + + list_titulos := TStringList.Create; + list_titulos.Clear; + list_titulos.Delimiter := ';'; + + qnt_titulos := dtmSystem.tblProtocoloQNT_TITULOS.AsInteger; + list_titulos.DelimitedText := dtmSystem.tblProtocoloID_TITULOS.AsString; + + queryListaTitulos.First; + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', + queryListaTitulosID_EMPRESA.AsInteger, []); + for h := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + if clb_beneficiarioscalculo.Items[h] = dtmSystem.tblCHGEmpresaTX_NOME.AsString + then + begin + clb_beneficiarioscalculo.Checked[h] := True; + end; + end; + for i := 0 to qnt_titulos - 1 do + begin + while not queryListaTitulos.Eof do + begin + if list_titulos[i] = queryListaTitulosID_TITULO.AsString then + begin + lv_titulos.Items[queryListaTitulos.RecNo - 1].Checked := True; + end; + queryListaTitulos.Next; + end; + end; + + if dtmSystem.tblProtocoloTP_DESC_QUIT.AsString = 'S' then + begin + cb_descquit.Checked; + cb_descquitClick(self); + edt_indquitar.Text := dtmSystem.tblProtocoloPR_QUIT_INDICADOR.AsString; + edt_jurosquitar.Text := dtmSystem.tblProtocoloPR_QUIT_JUROS.AsString; + edt_multasquitar.Text := dtmSystem.tblProtocoloPR_QUIT_MULTA.AsString; + edt_principalquitar.Text := + dtmSystem.tblProtocoloPR_QUIT_PRINCIPAL.AsString; + end; + + if dtmSystem.tblProtocoloTP_DESC_PAR.AsString = 'S' then + begin + cb_descpar.Checked; + cb_descparClick(self); + edt_indparcelas.Text := + dtmSystem.tblProtocoloPR_PARCELAR_INDICADOR.AsString; + edt_jurosparcelas.Text := dtmSystem.tblProtocoloPR_PARCELAR_JUROS.AsString; + edt_multasparcelas.Text := dtmSystem.tblProtocoloPR_PARCELAR_MULTA.AsString; + edt_principalparcelas.Text := + dtmSystem.tblProtocoloPR_PARCELAR_PRINCIPAL.AsString; + end; + + CalcValorParcelas; + Att_campos; + +end; + +procedure TfrmAtendimento.cbx_acrfixoClick(Sender: TObject); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cbx_descfixoClick(Sender: TObject); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cbx_excentradaClick(Sender: TObject); +begin + edt_excentrada.Enabled := cbx_excentrada.Enabled; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cb_descparClick(Sender: TObject); +begin + if cb_descpar.Checked then + begin + cb_descquit.Checked := False; + gb_descontospar.Enabled := True; + gb_descontosquit.Enabled := False; + end + else + begin + gb_descontospar.Enabled := False; + end; + if not gb_descontospar.Enabled then + begin + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + end; +end; + +procedure TfrmAtendimento.cb_descquitClick(Sender: TObject); +begin + + if cb_descquit.Checked then + begin + cb_descpar.Checked := False; + gb_descontosquit.Enabled := True; + gb_descontospar.Enabled := False; + edt_nrparcelas.Text := '0'; + end + else + begin + gb_descontosquit.Enabled := False; + end; + if not gb_descontosquit.Enabled then + begin + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + end; +end; + +procedure TfrmAtendimento.cb_nmultaClick(Sender: TObject); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.clb_beneficiarioscalculoClickCheck(Sender: TObject); +var + i: integer; +begin + with TCheckListBox(Sender) do + begin + if Checked[ItemIndex] then + begin + Items.beginupdate; + for i := 0 to Items.Count - 1 do + if i = ItemIndex then + begin + continue; + end + else + begin + Checked[i] := False; + end; + Items.EndUpdate; + end; + end; + CriarLista; +end; + +procedure TfrmAtendimento.clb_empresasClickCheck(Sender: TObject); +var + i: integer; +begin + inherited; + with TCheckListBox(Sender) do + begin + if Checked[ItemIndex] then + begin + Items.beginupdate; + for i := 0 to Items.Count - 1 do + if i = ItemIndex then + begin + continue + end + else + begin + Checked[i] := False; + end; + Items.EndUpdate; + end; + end; +end; + +procedure TfrmAtendimento.clb_indicesClickCheck(Sender: TObject); +begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.copiar_conteudoClick(Sender: TObject); +var + nomes, valores: array of string; + spaces: string; + i, j, tam, Count: integer; + k: integer; +begin + clpbrd := ''; + + if lv_parcelas.Items.Count > 0 then + begin + setlength(nomes, lv_parcelas.Items.Count); + setlength(valores, lv_parcelas.Items.Count); + for i := 0 to lv_parcelas.Items.Count - 1 do + begin + nomes[i] := lv_parcelas.Items.Item[i].Caption + ':'; + valores[i] := lv_parcelas.Items.Item[i].SubItems[0]; + end; + end; + + for j := 0 to lv_parcelas.Items.Count - 1 do + begin + tam := length(nomes[j]) + length(valores[j]); + Count := 32 - tam; + spaces := ''; + for k := 0 to Count - 1 do + begin + spaces := spaces + ' '; + end; + if j = 0 then + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[0]) + sLineBreak; + end + else + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[j]) + sLineBreak; + end; + end; + if Sender is TMenuItem then + begin + Clipboard.AsText := clpbrd; + end; +end; + +procedure TfrmAtendimento.CriarLista; +var + h: integer; +begin + if queryListaTitulos.Connection = nil then + // BACALHAU, NO TEM EXPLICAO. S FUNCIONA. + begin + exit; + end; + dtmSystem.tblCHGEmpresa.Open; + for h := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + if clb_beneficiarioscalculo.Checked[h] then + begin + dtmSystem.tblCHGEmpresa.Locate('TX_NOME', + clb_beneficiarioscalculo.Items[h], []); + end; + end; + + queryListaTitulos.SQL.Clear; + queryListaTitulos.SQL.Text := + 'select * from (select * from chg_titulos where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + + ') where (tp_situacao = ''A'') and' + '(id_empresa = ' + + dtmSystem.tblCHGEmpresaID_EMPRESA.AsString + ')'; + queryListaTitulos.Open; + + queryListaTitulos.First; + + lv_titulos.Clear; + + while not queryListaTitulos.Eof do + begin + dtmSystem.tblFaixas.Filter := '(DT_INICIO < ' + + queryListaTitulosDT_ATRASO.AsString + ')and(DT_FINAL > ' + + queryListaTitulosDT_ATRASO.AsString + ')'; + dtmSystem.tblFaixas.Filtered := True; + dtmSystem.tblFaixas.Open; + dtmSystem.tblPoliticas.Open; + dtmSystem.tblPoliticas.Locate('ID_POLITICA', + dtmSystem.tblFaixasID_POLITICA.AsString, []); + with lv_titulos.Items.Add do + begin + SubItems.Add(queryListaTitulos.FieldByName('NOME_EMPRESA').AsString); + SubItems.Add(queryListaTitulos.FieldByName('TX_PRODUTO').AsString); + SubItems.Add(CurrToStrF(queryListaTitulos.FieldByName('VL_TITULO') + .AsCurrency, ffCurrency, 2)); + SubItems.Add(queryListaTitulos.FieldByName('CD_DEVEDOR').AsString); + SubItems.Add(queryListaTitulos.FieldByName('NR_PARCELAS').AsString); + SubItems.Add(queryListaTitulos.FieldByName('DT_VENCIMENTO').AsString); + SubItems.Add(queryListaTitulos.FieldByName('DT_ENTRADA').AsString); + end; + lv_titulos.Column[0].Alignment := taCenter; + dtmSystem.tblFaixas.Filtered := False; + queryListaTitulos.Next; + end; +end; + +procedure TfrmAtendimento.dbgrd_pesquisarDblClick(Sender: TObject); +begin + dtmSystem.tblDevedores.Locate('TX_NOME', qryPesquisa.FieldByName('TX_NOME') + .AsString, []); +end; + +procedure TfrmAtendimento.dbgrd_titCellClick(Column: TColumn); +var + i: integer; +begin + inherited; + for i := 0 to clb_empresas.Items.Count - 1 do + begin + dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); + if dtmSystem.tblTitulosID_EMPRESA.AsString = dtmSystem. + tblCHGEmpresaID_EMPRESA.AsString then + begin + clb_empresas.Checked[i] := True; + end + else + begin + clb_empresas.Checked[i] := False; + end; + end; +end; + +procedure TfrmAtendimento.dtp_atrasorecalcChange(Sender: TObject); +begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.dtsDevedorDataChange(Sender: TObject; Field: TField); +var + new_id: integer; +begin + if qryConsulta.Connection = nil then + begin + exit; + end; + + if dtsDevedor.DataSet.FieldByName('TP_CLIENTE').AsString = 'F' then + begin + dbedt_cpfcnpj.DataField := 'CD_CPF'; + dbedt_cpfcnpjc.DataField := 'CD_CPF'; + end + else + begin + dbedt_cpfcnpj.DataField := 'CD_CNPJ'; + dbedt_cpfcnpjc.DataField := 'CD_CNPJ'; + end; + + new_id := dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + if old_id <> new_id then + begin + old_id := new_id; + clb_beneficiarioscalculo.Clear; + + qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + '(select id_empresa from chg_titulos' + + ' where (tp_situacao = ''A'') and (id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + qryConsulta.Open; + qryConsulta.First; + while not qryConsulta.Eof do + begin + clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + .AsString); + qryConsulta.Next; + end; + + CriarLista; + // clb_beneficiarioscalculo.Checked[0] := True; + end; + +end; + +procedure TfrmAtendimento.dtsTitulosDataChange(Sender: TObject; Field: TField); +begin + if (Field = dtmSystem.tblTitulosVL_DESPESA) or + (Field = dtmSystem.tblTitulosTP_DESPESA) then + begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; +end; + +procedure TfrmAtendimento.dtsTitulosStateChange(Sender: TObject); +begin + dtmSystem.AlterReadOnly(pnl_titulos, dtsTitulos.DataSet); + dtmSystem.AlterReadOnly(pnl_cheque, dtsTitulos.DataSet); + +end; + +procedure TfrmAtendimento.edt_descfixoChange(Sender: TObject); +begin + // if length(edt_descfixo.Text) < 1 then + // begin + // edt_descfixo.Text := '0'; + // end; + // Att_campos; + // CalcValorParcelas; +end; + +procedure TfrmAtendimento.edt_descfixoKeyPress(Sender: TObject; var Key: Char); +begin + // if not(Key in [#8, '0' .. '9', + // System.SysUtils.FormatSettings.DecimalSeparator]) then + // begin + // Key := #0; + // end + // else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + // (Pos(Key, edt_descfixo.Text) > 0) then + // begin + // Key := #0; + // end; +end; + +procedure TfrmAtendimento.edt_excentradaChange(Sender: TObject); +begin + if length(edt_excentrada.Text) < 1 then + begin + edt_excentrada.Text := '0'; + end; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.edt_excentradaKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_excentrada.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_acrfixoChange(Sender: TObject); +begin + // if length(edt_acrfixo.Text) < 1 then + // begin + // edt_acrfixo.Text := '0'; + // end; + // Att_campos; + // CalcValorParcelas; +end; + +procedure TfrmAtendimento.edt_acrfixoKeyPress(Sender: TObject; var Key: Char); +begin + // if not(Key in [#8, '0' .. '9', + // System.SysUtils.FormatSettings.DecimalSeparator]) then + // begin + // Key := #0; + // end + // else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + // (Pos(Key, edt_acrfixo.Text) > 0) then + // begin + // Key := #0; + // end; +end; + +procedure TfrmAtendimento.edt_campopKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if edt_campop.Text <> '' then + begin + btn_pesquisar.Click; + end; + end; + +end; + +procedure TfrmAtendimento.edt_indparcelasChange(Sender: TObject); +begin + if edt_indparcelas.Text <> '' then + begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_encparcelas.Max = 0 then + begin + edt_indparcelas.Text := '0'; + exit; + end; +end; + +procedure TfrmAtendimento.edt_indquitarChange(Sender: TObject); +begin + if edt_indquitar.Text <> '' then + begin + queryListaTitulos.Refresh; + Att_campos; + end; + if up_encquitar.Max = 0 then + begin + edt_indquitar.Text := '0'; + exit; + end; +end; + +procedure TfrmAtendimento.edt_jurosparcelasChange(Sender: TObject); +begin + if edt_jurosparcelas.Text <> '' then + begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_jurosparcelas.Max = 0 then + begin + edt_jurosparcelas.Text := '0'; + exit; + end; +end; + +procedure TfrmAtendimento.edt_jurosquitarChange(Sender: TObject); +begin + if edt_jurosquitar.Text <> '' then + begin + queryListaTitulos.Refresh; + Att_campos; + end; + if up_jurosquitar.Max = 0 then + begin + edt_jurosquitar.Text := '0'; + exit; + end; +end; + +procedure TfrmAtendimento.edt_multasparcelasChange(Sender: TObject); +begin + if edt_multasparcelas.Text <> '' then + begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_multasparcelas.Max = 0 then + begin + edt_multasparcelas.Text := '0'; + exit; + end; +end; + +procedure TfrmAtendimento.edt_multasquitarChange(Sender: TObject); +begin + if edt_multasquitar.Text <> '' then + begin + queryListaTitulos.Refresh; + Att_campos; + end; + if up_multasquitar.Max = 0 then + begin + edt_multasquitar.Text := '0'; + exit; + end; +end; + +procedure TfrmAtendimento.edt_nrparcelasChange(Sender: TObject); +begin + if cb_descquit.Checked then + begin + edt_nrparcelas.Text := '0'; + end; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.edt_principalparcelasChange(Sender: TObject); +begin + if edt_principalparcelas.Text <> '' then + begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_principalparcelas.Max = 0 then + begin + edt_principalparcelas.Text := '0'; + exit; + end; +end; + +procedure TfrmAtendimento.edt_principalquitarChange(Sender: TObject); +begin + if edt_principalquitar.Text <> '' then + begin + queryListaTitulos.Refresh; + Att_campos; + end; + if up_principalquitar.Max = 0 then + begin + edt_principalquitar.Text := '0'; + exit; + end; +end; + +procedure TfrmAtendimento.FormCreate(Sender: TObject); +var + Pos: integer; +begin + Pos := 0; + old_id := -1; + atendimento := 'atendendo'; + dtp_atrasorecalc.Date := Date; + + with dtmSystem do + begin + + if not tblDevedores.Active then + begin + tblDevedores.Open; + end; + tblEnderecos.Open; + tblTelefones.Open; + tblTitulos.Open; + tblProtocolo.Open; + tblEmpresa.Open; + tblEmpresa.First; + tblCHGEmpresa.Open; + tblCHGEmpresa.First; + // setlength(cbl_hints,pos+1); pegar do banco texto para jogar nas hints + while not tblCHGEmpresa.Eof do + begin + clb_empresas.Items.Add(tblCHGEmpresaTX_NOME.AsString); + // cbl_hints[pos] := tblCHGEmpresaTX_CNPJ.AsString; + if tblTitulosID_EMPRESA.AsString = tblCHGEmpresaID_EMPRESA.AsString then + begin + clb_empresas.Checked[Pos] := True; + end; + tblCHGEmpresa.Next; + Pos := Pos + 1; + // setlength(cbl_hints,pos+1); + end; + + tblIndices.Open; + tblIndices.First; + while not tblIndices.Eof do + begin + clb_indices.Items.Add(tblIndicesTX_NOME.AsString); + // cbl_hints[pos] := tblCHGEmpresaTX_CNPJ.AsString; + tblIndices.Next; + // setlength(cbl_hints,pos+1); + end; + tblHistorico.Open; + end; + + dbgrd_enderecos.DataSource.DataSet.First; + + gb_descontosquit.Enabled := cb_descquit.Checked; + gb_descontospar.Enabled := cb_descpar.Checked; + + FListViewOldWndProc := lv_titulos.WindowProc; + lv_titulos.WindowProc := ListViewNewWndProc; + FlistViewOldWndProc2 := lv_parcelas.WindowProc; + lv_parcelas.WindowProc := ListViewNewWndProc2; + // FListViewOldWndProc3 := lv_prevtitulos.WindowProc; + // lv_prevtitulos.WindowProc := ListViewNewWndProc3; + // FlistViewOldWndProc4 := lv_fechamento.WindowProc; + // lv_fechamento.WindowProc := ListViewNewWndProc4; + + SetupHackedNavigator(navdevedor, ImageList1, 's'); + SetupHackedNavigator(navenderecos, ImageList1, 's'); + SetupHackedNavigator(navtelefones, ImageList1, 's'); + SetupHackedNavigator(navtitulos, ImageList1, 's'); + SetupHackedNavigator(navhistorico, ImageList1, 's'); + + pcDevedor.ActivePageIndex := 0; + dtsDevedor.DataSet.Refresh; + CriarLista; +end; + +procedure TfrmAtendimento.FormDestroy(Sender: TObject); +begin + lv_titulos.WindowProc := FListViewOldWndProc; + FListViewOldWndProc := nil; +end; + +procedure TfrmAtendimento.ListViewNewWndProc(var Msg: TMessage); +var + hdn: ^THDNotify; +begin + if Msg.Msg = WM_NOTIFY then + begin + hdn := Pointer(Msg.lParam); + + if (hdn.hdr.code = HDN_BeginTrackW) or (hdn.hdr.code = HDN_BeginTrackA) then + begin + Msg.result := 1 + end + else + begin + FListViewOldWndProc(Msg); + end; + end + else + begin + FListViewOldWndProc(Msg); + end; +end; + +procedure TfrmAtendimento.ListViewNewWndProc2(var Msg: TMessage); +var + hdn: ^THDNotify; +begin + if Msg.Msg = WM_NOTIFY then + begin + hdn := Pointer(Msg.lParam); + + if (hdn.hdr.code = HDN_BeginTrackW) or (hdn.hdr.code = HDN_BeginTrackA) then + begin + Msg.result := 1 + end + else + begin + FlistViewOldWndProc2(Msg); + end; + end + else + begin + FlistViewOldWndProc2(Msg); + end; +end; + +procedure TfrmAtendimento.lv_titulosChange(Sender: TObject; Item: TListItem; + Change: TItemChange); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.pcDevedorChange(Sender: TObject); +begin + if pcDevedor.TabIndex = 6 then + begin + if atendimento = 'atendendo' then + begin + pcDevedor.TabIndex := pagina; + end; + if (atendimento = 'fechamento') and (pcDevedor.TabIndex <> 6) then + begin + pcDevedor.TabIndex := 6; + end; + end; +end; + +procedure TfrmAtendimento.pcDevedorChanging(Sender: TObject; + var AllowChange: Boolean); +begin + pagina := pcDevedor.TabIndex; +end; + +procedure TfrmAtendimento.queryListaTitulosCalcFields(DataSet: TDataSet); +var + vl_corrigido, vl_cor_antes_desc, vl_nominal, vl_indices, pl_juros, pl_multa, + pl_indicador, pl_entrada, pl_encargos, regra_3: currency; + g: integer; +begin + // quant de dias de atraso + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', + queryListaTitulosID_EMPRESA.AsString, []); + queryListaTitulosDT_ATRASO.AsInteger := DaysBetween(dtp_atrasorecalc.Date, + queryListaTitulosDT_VENCIMENTO.AsDateTime); + vl_nominal := queryListaTitulosVL_TITULO.AsCurrency; + + with dtmSystem do + begin + + if ROQueryFaixa.Connection = nil then + // BACALHAU, NO TEM EXPLICAO. S FUNCIONA. + begin + exit; + end; + + ROQueryFaixa.SQL.Clear; + ROQueryFaixa.SQL.Add('select pr_faixa from chg_faixas where DT_INICIO < ' + + queryListaTitulosDT_ATRASO.AsString + ' and DT_FINAL > ' + + queryListaTitulosDT_ATRASO.AsString); + ROQueryFaixa.Open; + + // valor da parcela do indicador + queryListaTitulosPR_INDICADOR.AsFloat := + ROQueryFaixa.FieldByName('PR_FAIXA').AsFloat; + pl_indicador := vl_nominal * (queryListaTitulosPR_INDICADOR.AsFloat / 100); + queryListaTitulosVL_INDICADOR.AsCurrency := pl_indicador; + + ROQueryFaixa.SQL.Clear; + ROQueryFaixa.SQL.Add + ('select * from chg_politicas where id_politica in (select id_politica from chg_faixas where DT_INICIO < ' + + queryListaTitulosDT_ATRASO.AsString + ' and DT_FINAL > ' + + queryListaTitulosDT_ATRASO.AsString + ')'); + ROQueryFaixa.Open; + + // nmero mx de parcelamento + queryListaTitulosNR_PARCELAS.AsInteger := + ROQueryFaixa.FieldByName('NR_PARCELA_MAXIMO').AsInteger; + + // parcela do juros + queryListaTitulosPR_JUROS.AsFloat := ROQueryFaixa.FieldByName + ('PR_JUROS').AsFloat; + pl_juros := vl_nominal * ((queryListaTitulosPR_JUROS.AsFloat / 30) / 100) * + queryListaTitulosDT_ATRASO.AsInteger; + queryListaTitulosVL_JUROS.AsCurrency := pl_juros; + + // parcela da multa + queryListaTitulosPR_MULTA.AsFloat := ROQueryFaixa.FieldByName + ('PR_MULTA').AsFloat; + pl_multa := (queryListaTitulosPR_MULTA.AsFloat / 100) * vl_nominal; + queryListaTitulosVL_MULTA.AsCurrency := pl_multa; + + vl_indices := 0; + for g := 0 to clb_indices.Items.Count - 1 do + begin + if clb_indices.Checked[g] then + begin + dtmSystem.tblIndices.RecNo := g + 1; + vl_indices := vl_indices + + (vl_nominal * (((dtmSystem.tblIndicesPR_INDICE.AsFloat / 30) / 100) * + queryListaTitulosDT_ATRASO.AsInteger)); + end; + end; + // valor dos ndices + queryListaTitulosVL_INDICES.AsCurrency := vl_indices; + + pl_encargos := pl_multa + pl_juros + pl_indicador + vl_indices; + vl_corrigido := vl_nominal + pl_encargos; + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_corrigido; + vl_cor_antes_desc := vl_corrigido; + + if cb_nmulta.Checked then + begin + pl_encargos := pl_encargos - pl_multa; + vl_corrigido := vl_nominal + pl_encargos; + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_corrigido; + end; + + // valor encargos + queryListaTitulosVL_ENCARGOS.AsCurrency := pl_encargos; + + // parcela da entrada + queryListaTitulosPR_ENTRADA.AsFloat := + ROQueryFaixa.FieldByName('PR_ENTRADA').AsFloat; + if cbx_excentrada.Checked then + begin + pl_entrada := StrToCurr(edt_excentrada.Text); + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada; + end + else + begin + pl_entrada := vl_corrigido * (queryListaTitulosPR_ENTRADA.AsFloat / 100); + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada; + end; + + // % descontos + queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat := + ROQueryFaixa.FieldByName('PR_QUITACAO_INDICADOR').AsFloat; + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat := + ROQueryFaixa.FieldByName('PR_QUITACAO_PRINCIPAL').AsFloat; + queryListaTitulosPR_QUITACAO_MULTA.AsFloat := + ROQueryFaixa.FieldByName('PR_QUITACAO_MULTA').AsFloat; + queryListaTitulosPR_QUITACAO_JUROS.AsFloat := + ROQueryFaixa.FieldByName('PR_QUITACAO_JUROS').AsFloat; + queryListaTitulosPR_PARCELA_INDICADOR.AsFloat := + ROQueryFaixa.FieldByName('PR_PARCELA_INDICADOR').AsFloat; + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat := + ROQueryFaixa.FieldByName('PR_PARCELA_PRINCIPAL').AsFloat; + queryListaTitulosPR_PARCELA_MULTA.AsFloat := + ROQueryFaixa.FieldByName('PR_PARCELA_MULTA').AsFloat; + queryListaTitulosPR_PARCELA_JUROS.AsFloat := + ROQueryFaixa.FieldByName('PR_PARCELA_JUROS').AsFloat; + + tblFaixas.Filtered := False; + end; + + // Descontos sobre Quitar + if strtoint(edt_indquitar.Text) > queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (strtoint(edt_indquitar.Text) / 100); + end; + if strtoint(edt_principalquitar.Text) > + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat then + begin + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (strtoint(edt_principalquitar.Text) / 100); + end; + if strtoint(edt_multasquitar.Text) > queryListaTitulosPR_QUITACAO_MULTA.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (queryListaTitulosPR_QUITACAO_MULTA.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (strtoint(edt_multasquitar.Text) / 100); + end; + if strtoint(edt_jurosquitar.Text) > queryListaTitulosPR_QUITACAO_JUROS.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (queryListaTitulosPR_QUITACAO_JUROS.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (strtoint(edt_jurosquitar.Text) / 100); + end; + + // Descontos sobre Parcelar + if strtoint(edt_indparcelas.Text) > queryListaTitulosPR_PARCELA_INDICADOR.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (queryListaTitulosPR_PARCELA_INDICADOR.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (strtoint(edt_indparcelas.Text) / 100); + end; + if strtoint(edt_principalparcelas.Text) > + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat then + begin + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (strtoint(edt_principalparcelas.Text) / 100); + end; + if strtoint(edt_multasparcelas.Text) > queryListaTitulosPR_PARCELA_MULTA.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (queryListaTitulosPR_PARCELA_MULTA.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (strtoint(edt_multasparcelas.Text) / 100); + end; + if strtoint(edt_jurosparcelas.Text) > queryListaTitulosPR_PARCELA_JUROS.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (queryListaTitulosPR_PARCELA_JUROS.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (strtoint(edt_jurosparcelas.Text) / 100); + end; + + if (cb_descquit.Checked) then + begin + queryListaTitulosVL_INDICADOR.AsCurrency := pl_indicador - + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency; + queryListaTitulosVL_TITULO.AsCurrency := vl_nominal - + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency; + queryListaTitulosVL_JUROS.AsCurrency := pl_juros - + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency; + queryListaTitulosVL_MULTA.AsCurrency := pl_multa - + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency; + if cb_nmulta.Checked then + begin + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency + + queryListaTitulosVL_INDICADOR.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency; + if cbx_excentrada.Checked then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + end + else + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + end + else + begin + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency + + queryListaTitulosVL_INDICADOR.AsCurrency + + queryListaTitulosVL_MULTA.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency; + if cbx_excentrada.Checked then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + end + else + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + end; + end; + + if (cb_descpar.Checked) and (strtoint(edt_nrparcelas.Text) >= 1) then + begin + queryListaTitulosVL_INDICADOR.AsCurrency := pl_indicador - + queryListaTitulosVL_DESC_PAR_IND.AsCurrency; + queryListaTitulosVL_TITULO.AsCurrency := vl_nominal - + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency; + queryListaTitulosVL_JUROS.AsCurrency := pl_juros - + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency; + queryListaTitulosVL_MULTA.AsCurrency := pl_multa - + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency; + if cb_nmulta.Checked then + begin + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency + + queryListaTitulosVL_INDICADOR.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency; + if cbx_excentrada.Checked then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + end + else + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + end + else + begin + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency + + queryListaTitulosVL_INDICADOR.AsCurrency + + queryListaTitulosVL_MULTA.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency; + if cbx_excentrada.Checked then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + end + else + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + end; + end; + if vl_cor_antes_desc <> queryListaTitulosVL_CORRIGIDO.AsCurrency then + begin + regra_3 := vl_cor_antes_desc - queryListaTitulosVL_CORRIGIDO.AsCurrency; + edt_desctot.Text := formatfloat('0.##', + ((regra_3 * 100) / vl_cor_antes_desc)); + end + else + begin + edt_desctot.Text := '0'; + end; + if queryListaTitulosVL_DESPESA.AsCurrency <> 0 then + begin + if queryListaTitulosTP_DESPESA.AsString = 'A' then + begin + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency + + queryListaTitulosVL_DESPESA.AsCurrency; + if cbx_excentrada.Checked then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + end + else + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + end; + if queryListaTitulosTP_DESPESA.AsString = 'D' then + begin + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_DESPESA.AsCurrency; + if cbx_excentrada.Checked then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + end + else + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + end; + end; +end; + +{ procedure TfrmAtendimento.rg_tipopagamentoClick(Sender: TObject); + begin + // 0=dinheiro;1=dbito;2=crdito;3=cheque; + if tipo_pagamento = 'Q' then + begin + case rg_tipopagamento.ItemIndex of + 0: + end; + end; + if tipo_pagamento = 'P' then + begin + + end; + + end; } + +procedure TfrmAtendimento.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if LowerCase(S) = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +end. diff --git a/Win32/urelRecibo.dfm b/Win32/urelRecibo.dfm new file mode 100644 index 0000000..8897045 --- /dev/null +++ b/Win32/urelRecibo.dfm @@ -0,0 +1,1530 @@ +inherited relRecibo: TrelRecibo + BorderStyle = bsNone + Caption = 'relRecibo' + ClientHeight = 1151 + ClientWidth = 800 + ExplicitTop = -514 + ExplicitWidth = 800 + ExplicitHeight = 1151 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 1132 + Width = 800 + ExplicitTop = 1132 + ExplicitWidth = 800 + end + object frRecibo: TRLReport + Left = -2 + Top = 0 + Width = 794 + Height = 1123 + Margins.LeftMargin = 5.000000000000000000 + Margins.RightMargin = 5.000000000000000000 + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + Title = 'Recibo' + AfterPrint = frReciboAfterPrint + BeforePrint = frReciboBeforePrint + object frsubdbnd1: TRLSubDetail + Left = 19 + Top = 38 + Width = 756 + Height = 419 + DataSource = dtsTitulos + object frb_detail: TRLBand + Left = 0 + Top = 200 + Width = 756 + Height = 69 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + Borders.FixedLeft = True + object frdblbl_produto: TRLDBText + Left = 1 + Top = 18 + Width = 64 + Height = 31 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'TX_NOME' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_vencimento: TRLDBText + Left = 136 + Top = 53 + Width = 112 + Height = 16 + Align = faBottomOnly + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_juros: TRLDBText + Left = 324 + Top = 53 + Width = 70 + Height = 16 + Align = faBottomOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_multa: TRLDBText + Left = 378 + Top = 53 + Width = 70 + Height = 16 + Align = faBottomOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_principal: TRLDBText + Left = 244 + Top = 53 + Width = 94 + Height = 16 + Align = faBottomOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_encargos: TRLDBText + Left = 433 + Top = 53 + Width = 101 + Height = 16 + Align = faBottomOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_descontos: TRLDBText + Left = 567 + Top = 53 + Width = 108 + Height = 16 + Align = faBottomOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Text = '' + end + object frdblbl_total: TRLDBText + Left = 658 + Top = 53 + Width = 99 + Height = 16 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Text = '' + end + object frpnl_headers: TRLPanel + Left = 1 + Top = 36 + Width = 755 + Height = 16 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_vencimento: TRLLabel + Left = 135 + Top = 0 + Width = 89 + Height = 16 + Align = faBottomOnly + Caption = 'VENCIMENTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_principal: TRLLabel + Left = 243 + Top = 0 + Width = 74 + Height = 16 + Align = faBottomOnly + Caption = 'PRINCIPAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_encargos: TRLLabel + Left = 432 + Top = 0 + Width = 77 + Height = 16 + Align = faBottomOnly + Caption = 'ENCARGOS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_descontos: TRLLabel + Left = 566 + Top = 0 + Width = 85 + Height = 16 + Align = faBottomOnly + Caption = 'DESCONTOS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_total: TRLLabel + Left = 657 + Top = 0 + Width = 47 + Height = 16 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + Caption = 'TOTAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_juros: TRLLabel + Left = 323 + Top = 0 + Width = 48 + Height = 16 + Align = faBottomOnly + Caption = 'JUROS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_multa: TRLLabel + Left = 377 + Top = 0 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'MULTA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frlbl_referente: TRLLabel + Left = 1 + Top = 1 + Width = 74 + Height = 16 + Align = faLeftTop + Caption = 'Referente '#224':' + end + end + object frb_footer: TRLBand + Left = 0 + Top = 269 + Width = 756 + Height = 150 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_organizasum: TRLPanel + Left = 0 + Top = 1 + Width = 761 + Height = 16 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + end + object fr_time: TRLSystemInfo + Left = 675 + Top = 136 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + object fr_date: TRLSystemInfo + Left = 567 + Top = 136 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object frlbl_empresa: TRLLabel + Left = 1 + Top = 133 + Width = 236 + Height = 16 + Align = faLeftBottom + Caption = 'COBES ASS DE SERVI'#199'OS S/S LTDA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_usuario: TRLLabel + Left = 243 + Top = 133 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'Caixa: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frdbresult_juros: TRLDBResult + Left = 324 + Top = 1 + Width = 109 + Height = 16 + Align = faTopOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_multa: TRLDBResult + Left = 378 + Top = 1 + Width = 109 + Height = 16 + Align = faTopOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_principal: TRLDBResult + Left = 244 + Top = 1 + Width = 133 + Height = 16 + Align = faTopOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_encargos: TRLDBResult + Left = 433 + Top = 1 + Width = 140 + Height = 16 + Align = faTopOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Info = riSum + Text = '' + end + object frdbresult_descontos: TRLDBResult + Left = 567 + Top = 1 + Width = 147 + Height = 16 + Align = faTopOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Info = riSum + Text = '' + end + object frdbresult_total: TRLDBResult + Left = 658 + Top = 1 + Width = 138 + Height = 16 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Info = riSum + Text = '' + end + object frdblbl_usuario: TRLDBText + Left = 290 + Top = 133 + Width = 64 + Height = 16 + Align = faBottomOnly + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsUsuarios + Text = '' + end + object frlbl_formarecebimento: TRLLabel + Left = 1 + Top = 22 + Width = 161 + Height = 16 + Align = faLeftOnly + Caption = 'Forma de Recebimento: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_obscheque: TRLLabel + Left = 1 + Top = 63 + Width = 545 + Height = 16 + Align = faLeftOnly + Caption = + 'Obs.: O PRESENTE RECIBO S'#211' TER'#193' VALIDADE AP'#211'S A COMPENSA'#199#195'O DO C' + + 'HEQUE' + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold, fsUnderline] + ParentFont = False + Visible = False + end + object frpnl_cheque: TRLPanel + Left = 1 + Top = 41 + Width = 520 + Height = 16 + Align = faLeftOnly + Visible = False + object frlbl_nrcheque: TRLLabel + Left = 0 + Top = 0 + Width = 94 + Height = 16 + Align = faLeft + Caption = 'Nr'#186' do cheque: ' + end + object frlbl_banco: TRLLabel + Left = 94 + Top = 0 + Width = 49 + Height = 16 + Align = faLeft + Caption = 'Banco: ' + end + object frlbl_praca: TRLLabel + Left = 143 + Top = 0 + Width = 46 + Height = 16 + Align = faLeft + Caption = 'Pra'#231'a: ' + end + end + object frlbl_obs1: TRLLabel + Left = 1 + Top = 85 + Width = 83 + Height = 16 + Align = faLeftOnly + Caption = 'Observa'#231#245'es:' + end + object fr_membobs: TRLMemo + Left = 1 + Top = 101 + Width = 754 + Height = 16 + Align = faLeftOnly + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsUnderline] + ParentFont = False + end + end + object frb_header: TRLBand + Left = 0 + Top = 0 + Width = 756 + Height = 135 + AutoSize = True + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + Transparent = False + object frpnl_logo: TRLPanel + Left = 1 + Top = 1 + Width = 150 + Height = 133 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 0 + Width = 150 + Height = 133 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object frpnl_headertop: TRLPanel + Left = 151 + Top = 1 + Width = 604 + Height = 68 + Align = faTop + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_headertop: TRLLabel + Left = 0 + Top = 0 + Width = 425 + Height = 16 + Align = faLeftTop + Caption = 'ASSESSORIA DE SERVI'#199'OS LTDA - EPP CNPJ : 36.058.162/0001-28' + end + end + object frpnl_headerbot: TRLPanel + Left = 151 + Top = 69 + Width = 604 + Height = 65 + Align = faBottom + object frlbl_headerbot: TRLLabel + Left = 0 + Top = 0 + Width = 440 + Height = 16 + Align = faLeftTop + Caption = 'RUA + NUMERO + COMP + BAIRRO + CIDADE + ESTADO + TELEFONE' + end + end + end + object frb_header2: TRLBand + Left = 0 + Top = 135 + Width = 756 + Height = 65 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + Borders.FixedLeft = True + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + object frlbl_valortot: TRLLabel + Left = 1 + Top = 48 + Width = 46 + Height = 16 + Align = faLeftOnly + Caption = 'Valor: ' + end + object frlbl_vlextenso: TRLLabel + Left = 49 + Top = 48 + Width = 97 + Height = 16 + end + object frpnl_nome: TRLPanel + Left = 1 + Top = 26 + Width = 754 + Height = 16 + Align = faLeftOnly + object frdblbl_cpf: TRLDBText + Left = 163 + Top = 0 + Width = 93 + Height = 16 + Align = faLeft + DataField = 'CD_CPF' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = ' CPF: ' + end + object frdblbl_nome: TRLDBText + Left = 99 + Top = 0 + Width = 64 + Height = 16 + Align = faLeft + DataField = 'TX_NOME' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frlbl_recebemos: TRLLabel + Left = 0 + Top = 0 + Width = 99 + Height = 16 + Align = faLeft + Caption = 'Recebemos de: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object frpnl_recibo: TRLPanel + Left = -1 + Top = 0 + Width = 257 + Height = 24 + Align = faTopOnly + object frdblbl_nrrecibo: TRLDBText + Left = 120 + Top = 0 + Width = 127 + Height = 24 + DataField = 'NR_RECIBO' + DataSource = dtsReport + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + object frlbl_recibo: TRLLabel + Left = 0 + Top = 0 + Width = 121 + Height = 24 + Caption = 'RECIBO N'#186':' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + end + end + object frsubdbndmeio: TRLSubDetail + Left = 19 + Top = 457 + Width = 756 + Height = 15 + DataSource = dtsTitulos + object RLBand5: TRLBand + Left = 0 + Top = 0 + Width = 756 + Height = 16 + end + end + object frsubdbnd2: TRLSubDetail + Left = 19 + Top = 472 + Width = 756 + Height = 419 + DataSource = dtsTitulos + BeforePrint = frsubdbnd2BeforePrint + object frb_detail2v: TRLBand + Left = 0 + Top = 200 + Width = 756 + Height = 69 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + Borders.FixedLeft = True + PageBreaking = pbAfterPrint + object RLDBText8: TRLDBText + Left = 1 + Top = 18 + Width = 64 + Height = 31 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'TX_NOME' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText9: TRLDBText + Left = 136 + Top = 53 + Width = 112 + Height = 16 + Align = faBottomOnly + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText10: TRLDBText + Left = 324 + Top = 53 + Width = 70 + Height = 16 + Align = faBottomOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText11: TRLDBText + Left = 378 + Top = 53 + Width = 70 + Height = 16 + Align = faBottomOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText12: TRLDBText + Left = 244 + Top = 53 + Width = 94 + Height = 16 + Align = faBottomOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText13: TRLDBText + Left = 433 + Top = 53 + Width = 101 + Height = 16 + Align = faBottomOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText14: TRLDBText + Left = 567 + Top = 53 + Width = 108 + Height = 16 + Align = faBottomOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Text = '' + end + object RLDBText15: TRLDBText + Left = 658 + Top = 53 + Width = 99 + Height = 16 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Text = '' + end + object RLPanel1: TRLPanel + Left = 1 + Top = 36 + Width = 755 + Height = 16 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = False + Borders.DrawBottom = False + object RLLabel4: TRLLabel + Left = 135 + Top = 0 + Width = 89 + Height = 16 + Align = faBottomOnly + Caption = 'VENCIMENTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel11: TRLLabel + Left = 243 + Top = 0 + Width = 74 + Height = 16 + Align = faBottomOnly + Caption = 'PRINCIPAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel12: TRLLabel + Left = 432 + Top = 0 + Width = 77 + Height = 16 + Align = faBottomOnly + Caption = 'ENCARGOS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel13: TRLLabel + Left = 566 + Top = 0 + Width = 85 + Height = 16 + Align = faBottomOnly + Caption = 'DESCONTOS' + end + object RLLabel14: TRLLabel + Left = 657 + Top = 0 + Width = 44 + Height = 16 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + Caption = 'TOTAL' + end + object RLLabel15: TRLLabel + Left = 323 + Top = 0 + Width = 48 + Height = 16 + Align = faBottomOnly + Caption = 'JUROS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel16: TRLLabel + Left = 377 + Top = 0 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'MULTA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLLabel17: TRLLabel + Left = 1 + Top = 1 + Width = 74 + Height = 16 + Align = faLeftTop + Caption = 'Referente '#224':' + end + end + object frb_footer2v: TRLBand + Left = 0 + Top = 269 + Width = 756 + Height = 150 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLPanel3: TRLPanel + Left = 0 + Top = 1 + Width = 761 + Height = 16 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + end + object RLSystemInfo1: TRLSystemInfo + Left = 675 + Top = 136 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + object RLSystemInfo2: TRLSystemInfo + Left = 567 + Top = 136 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLLabel18: TRLLabel + Left = 1 + Top = 133 + Width = 236 + Height = 16 + Align = faLeftBottom + Caption = 'COBES ASS DE SERVI'#199'OS S/S LTDA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel19: TRLLabel + Left = 243 + Top = 133 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'Caixa: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLDBResult7: TRLDBResult + Left = 324 + Top = 1 + Width = 109 + Height = 16 + Align = faTopOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult8: TRLDBResult + Left = 378 + Top = 1 + Width = 109 + Height = 16 + Align = faTopOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult9: TRLDBResult + Left = 244 + Top = 1 + Width = 133 + Height = 16 + Align = faTopOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult10: TRLDBResult + Left = 433 + Top = 1 + Width = 140 + Height = 16 + Align = faTopOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Info = riSum + Text = '' + end + object RLDBResult11: TRLDBResult + Left = 567 + Top = 1 + Width = 147 + Height = 16 + Align = faTopOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Info = riSum + Text = '' + end + object RLDBResult12: TRLDBResult + Left = 658 + Top = 1 + Width = 138 + Height = 16 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Info = riSum + Text = '' + end + object RLDBText16: TRLDBText + Left = 290 + Top = 133 + Width = 64 + Height = 16 + Align = faBottomOnly + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsUsuarios + Text = '' + end + object frlbl_formarecebimento2v: TRLLabel + Left = 1 + Top = 22 + Width = 161 + Height = 16 + Align = faLeftOnly + Caption = 'Forma de Recebimento: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_obscheque2v: TRLLabel + Left = 1 + Top = 63 + Width = 545 + Height = 16 + Align = faLeftOnly + Caption = + 'Obs.: O PRESENTE RECIBO S'#211' TER'#193' VALIDADE AP'#211'S A COMPENSA'#199#195'O DO C' + + 'HEQUE' + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold, fsUnderline] + ParentFont = False + Visible = False + end + object frpnl_cheque2v: TRLPanel + Left = 1 + Top = 41 + Width = 520 + Height = 16 + Align = faLeftOnly + Visible = False + object frlbl_nrcheque2v: TRLLabel + Left = 0 + Top = 0 + Width = 94 + Height = 16 + Align = faLeft + Caption = 'Nr'#186' do cheque: ' + end + object frlbl_banco2v: TRLLabel + Left = 94 + Top = 0 + Width = 49 + Height = 16 + Align = faLeft + Caption = 'Banco: ' + end + object frlbl_praca2v: TRLLabel + Left = 143 + Top = 0 + Width = 46 + Height = 16 + Align = faLeft + Caption = 'Pra'#231'a: ' + end + end + object RLLabel25: TRLLabel + Left = 1 + Top = 85 + Width = 83 + Height = 16 + Align = faLeftOnly + Caption = 'Observa'#231#245'es:' + end + object fr_membobs2v: TRLMemo + Left = 1 + Top = 101 + Width = 754 + Height = 16 + Align = faLeftOnly + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsUnderline] + ParentFont = False + end + end + object frb_header2v: TRLBand + Left = 0 + Top = 0 + Width = 756 + Height = 135 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + Transparent = False + object RLPanel5: TRLPanel + Left = 1 + Top = 1 + Width = 150 + Height = 133 + Align = faLeftMost + object RLDBImage2: TRLDBImage + Left = 0 + Top = 0 + Width = 150 + Height = 133 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object RLPanel6: TRLPanel + Left = 151 + Top = 1 + Width = 604 + Height = 68 + Align = faTop + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_headertop2v: TRLLabel + Left = 0 + Top = 0 + Width = 425 + Height = 16 + Align = faLeftTop + Caption = 'ASSESSORIA DE SERVI'#199'OS LTDA - EPP CNPJ : 36.058.162/0001-28' + end + end + object RLPanel7: TRLPanel + Left = 151 + Top = 69 + Width = 604 + Height = 65 + Align = faBottom + object frlbl_headerbot2v: TRLLabel + Left = 0 + Top = 0 + Width = 500 + Height = 16 + Align = faLeftTop + Caption = + 'RUA DO IMPERADOR 288 SL 403 - CENTRO - PETROPOLIS - RJ - TEL 22' + + '44-2525' + end + end + end + object frb_header22v: TRLBand + Left = 0 + Top = 135 + Width = 756 + Height = 65 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + Borders.FixedLeft = True + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + object frlbl_valortot2v: TRLLabel + Left = 1 + Top = 48 + Width = 46 + Height = 16 + Align = faLeftOnly + Caption = 'Valor: ' + end + object frlbl_vlextenso2v: TRLLabel + Left = 49 + Top = 48 + Width = 111 + Height = 16 + end + object RLPanel8: TRLPanel + Left = 1 + Top = 26 + Width = 754 + Height = 16 + Align = faLeftOnly + object frdblbl_cpf2v: TRLDBText + Left = 163 + Top = 0 + Width = 93 + Height = 16 + Align = faLeft + DataField = 'CD_CPF' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = ' CPF: ' + end + object frdblbl_nome2v: TRLDBText + Left = 99 + Top = 0 + Width = 64 + Height = 16 + Align = faLeft + DataField = 'TX_NOME' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLLabel30: TRLLabel + Left = 0 + Top = 0 + Width = 99 + Height = 16 + Align = faLeft + Caption = 'Recebemos de: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object RLPanel9: TRLPanel + Left = -1 + Top = 0 + Width = 257 + Height = 24 + Align = faTopOnly + object RLDBText19: TRLDBText + Left = 120 + Top = 0 + Width = 127 + Height = 24 + DataField = 'NR_RECIBO' + DataSource = dtsReport + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + object RLLabel31: TRLLabel + Left = 0 + Top = 0 + Width = 121 + Height = 24 + Caption = 'RECIBO N'#186':' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + end + end + end + object dtsReport: TDataSource + DataSet = dtmSystem.tblRecibo + Left = 608 + Top = 8 + end + object dtsDevedor: TDataSource + DataSet = dtmSystem.tblDevedores + Left = 681 + Top = 8 + end + object dtsTitulos: TDataSource + DataSet = dtmSystem.tblConteudoRecibo + Left = 753 + Top = 8 + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + ImageFormat = ifBitmap + Left = 550 + Top = 8 + end +end diff --git a/Win32/urelRecibo.pas b/Win32/urelRecibo.pas new file mode 100644 index 0000000..cc05180 --- /dev/null +++ b/Win32/urelRecibo.pas @@ -0,0 +1,225 @@ +unit urelRecibo; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, RLReport, Data.DB, + Vcl.ComCtrls, RLRichText, RLFilters, RLPDFFilter, RLPreviewForm, RLPrinters; + +type + TrelRecibo = class(TmstMaster) + dtsReport: TDataSource; + dtsDevedor: TDataSource; + dtsTitulos: TDataSource; + fr_filterpdf: TRLPDFFilter; + frRecibo: TRLReport; + frb_header: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frpnl_headertop: TRLPanel; + frlbl_headertop: TRLLabel; + frpnl_headerbot: TRLPanel; + frlbl_headerbot: TRLLabel; + frb_header2: TRLBand; + frlbl_valortot: TRLLabel; + frlbl_vlextenso: TRLLabel; + frpnl_nome: TRLPanel; + frdblbl_cpf: TRLDBText; + frdblbl_nome: TRLDBText; + frlbl_recebemos: TRLLabel; + frpnl_recibo: TRLPanel; + frdblbl_nrrecibo: TRLDBText; + frlbl_recibo: TRLLabel; + frb_footer: TRLBand; + frpnl_organizasum: TRLPanel; + fr_time: TRLSystemInfo; + fr_date: TRLSystemInfo; + frlbl_empresa: TRLLabel; + frlbl_usuario: TRLLabel; + frdbresult_juros: TRLDBResult; + frdbresult_multa: TRLDBResult; + frdbresult_principal: TRLDBResult; + frdbresult_encargos: TRLDBResult; + frdbresult_descontos: TRLDBResult; + frdbresult_total: TRLDBResult; + frdblbl_usuario: TRLDBText; + frlbl_formarecebimento: TRLLabel; + frlbl_obscheque: TRLLabel; + frpnl_cheque: TRLPanel; + frlbl_nrcheque: TRLLabel; + frlbl_banco: TRLLabel; + frlbl_praca: TRLLabel; + frlbl_obs1: TRLLabel; + fr_membobs: TRLMemo; + frb_detail: TRLBand; + frdblbl_produto: TRLDBText; + frdblbl_vencimento: TRLDBText; + frdblbl_juros: TRLDBText; + frdblbl_multa: TRLDBText; + frdblbl_principal: TRLDBText; + frdblbl_encargos: TRLDBText; + frdblbl_descontos: TRLDBText; + frdblbl_total: TRLDBText; + frpnl_headers: TRLPanel; + frlbl_vencimento: TRLLabel; + frlbl_principal: TRLLabel; + frlbl_encargos: TRLLabel; + frlbl_descontos: TRLLabel; + frlbl_total: TRLLabel; + frlbl_juros: TRLLabel; + frlbl_multa: TRLLabel; + frlbl_referente: TRLLabel; + frsubdbnd1: TRLSubDetail; + frsubdbndmeio: TRLSubDetail; + frb_detail2v: TRLBand; + RLDBText8: TRLDBText; + RLDBText9: TRLDBText; + RLDBText10: TRLDBText; + RLDBText11: TRLDBText; + RLDBText12: TRLDBText; + RLDBText13: TRLDBText; + RLDBText14: TRLDBText; + RLDBText15: TRLDBText; + RLPanel1: TRLPanel; + RLLabel4: TRLLabel; + RLLabel11: TRLLabel; + RLLabel12: TRLLabel; + RLLabel13: TRLLabel; + RLLabel14: TRLLabel; + RLLabel15: TRLLabel; + RLLabel16: TRLLabel; + RLLabel17: TRLLabel; + frb_footer2v: TRLBand; + RLPanel3: TRLPanel; + RLSystemInfo1: TRLSystemInfo; + RLSystemInfo2: TRLSystemInfo; + RLLabel18: TRLLabel; + RLLabel19: TRLLabel; + RLDBResult7: TRLDBResult; + RLDBResult8: TRLDBResult; + RLDBResult9: TRLDBResult; + RLDBResult10: TRLDBResult; + RLDBResult11: TRLDBResult; + RLDBResult12: TRLDBResult; + RLDBText16: TRLDBText; + frlbl_formarecebimento2v: TRLLabel; + frlbl_obscheque2v: TRLLabel; + frpnl_cheque2v: TRLPanel; + frlbl_nrcheque2v: TRLLabel; + frlbl_banco2v: TRLLabel; + frlbl_praca2v: TRLLabel; + RLLabel25: TRLLabel; + fr_membobs2v: TRLMemo; + frb_header2v: TRLBand; + RLPanel5: TRLPanel; + RLDBImage2: TRLDBImage; + RLPanel6: TRLPanel; + frlbl_headertop2v: TRLLabel; + RLPanel7: TRLPanel; + frlbl_headerbot2v: TRLLabel; + frb_header22v: TRLBand; + frlbl_valortot2v: TRLLabel; + frlbl_vlextenso2v: TRLLabel; + RLPanel8: TRLPanel; + frdblbl_cpf2v: TRLDBText; + frdblbl_nome2v: TRLDBText; + RLLabel30: TRLLabel; + RLPanel9: TRLPanel; + RLDBText19: TRLDBText; + RLLabel31: TRLLabel; + frsubdbnd2: TRLSubDetail; + RLBand5: TRLBand; + procedure frReciboBeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure frReciboAfterPrint(Sender: TObject); + procedure frsubdbnd2BeforePrint(Sender: TObject; var PrintIt: Boolean); + private + procedure SalvarReciboPDF; + { Private declarations } + public + { Public declarations } + end; + +var + relRecibo: TrelRecibo; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmAtendimento; + +procedure TrelRecibo.frReciboAfterPrint(Sender: TObject); +begin + frmAtendimento.btn_concluir.Enabled := true; + SalvarReciboPDF; +end; + +procedure TrelRecibo.frReciboBeforePrint(Sender: TObject; var PrintIt: Boolean); +begin + //dtsReport.dataset.open; + dtsDevedor.dataset.open; + dtsTitulos.dataset.open; +end; + +procedure TrelRecibo.frsubdbnd2BeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + //dtsReport.DataSet.Open; + //dtsReport.DataSet.RecNo := dtsReport.DataSet.RecordCount; + //dtmSystem.tblConteudoRecibo.RecNo := 1; +end; + +procedure TrelRecibo.SalvarReciboPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; + path := ExtractFilePath(Application.ExeName) + 'RECIBOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + file_name := path + '\' + dtmSystem.tblReciboNR_RECIBO.AsString + '.pdf'; + fr_filterpdf.FileName := file_name; + frRecibo.SaveToFile(file_name); +end; + +end. diff --git a/banco.sql b/banco.sql new file mode 100644 index 0000000..9686d82 --- /dev/null +++ b/banco.sql @@ -0,0 +1,1122 @@ +/******************************************************************************* + * Selected metadata objects + * ------------------------- + * Extracted at 02/07/2019 10:18:38 + ******************************************************************************/ + +/******************************************************************************* + * Roles + * ----- + * Extracted at 02/07/2019 10:18:38 + ******************************************************************************/ + +/* "PUBLIC" is a system role, no CREATE ROLE statement. */ +/* "RDB$ADMIN" is a system role, no CREATE ROLE statement. */ +/******************************************************************************* + * UDFs + * ---- + * Extracted at 02/07/2019 10:18:38 + ******************************************************************************/ + +/******************************************************************************* + * Domains + * ------- + * Extracted at 02/07/2019 10:18:38 + ******************************************************************************/ + +CREATE DOMAIN BL AS + BLOB SUB_TYPE 0 SEGMENT SIZE 80 +; +CREATE DOMAIN CD_10 AS + VARCHAR(10) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN CD_20 AS + VARCHAR(20) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN CD_PLACA AS + CHAR(8) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN DT AS + TIMESTAMP +; +CREATE DOMAIN HR AS + CHAR(5) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN HS AS + CHAR(8) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN HT AS + CHAR(6) CHARACTER SET WIN1252 + DEFAULT ' 00:00' + COLLATE WIN1252; +CREATE DOMAIN ID AS + INTEGER +; +CREATE DOMAIN NI AS + INTEGER +; +CREATE DOMAIN NR AS + NUMERIC(15,3) +; +CREATE DOMAIN PL AS + NUMERIC(9,6) +; +CREATE DOMAIN PR AS + NUMERIC(5,2) +; +CREATE DOMAIN TL AS + BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1252 +; +CREATE DOMAIN TP_1 AS + CHAR(1) CHARACTER SET WIN1252 + DEFAULT ' ' + COLLATE WIN1252; +CREATE DOMAIN TP_2 AS + CHAR(2) CHARACTER SET WIN1252 + DEFAULT ' ' + COLLATE WIN1252; +CREATE DOMAIN TP_3 AS + CHAR(3) CHARACTER SET WIN1252 + DEFAULT ' ' + COLLATE WIN1252; +CREATE DOMAIN TTIME AS + TIME +; +CREATE DOMAIN TX_10 AS + VARCHAR(10) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_100 AS + VARCHAR(100) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_20 AS + VARCHAR(20) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_200 AS + VARCHAR(200) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_255 AS + VARCHAR(255) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_40 AS + VARCHAR(40) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_60 AS + VARCHAR(60) CHARACTER SET WIN1252 + COLLATE PXW_INTL850; +CREATE DOMAIN TX_CEP AS + CHAR(9) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_CI AS + VARCHAR(60) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_CNPJ AS + CHAR(18) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_CPF AS + CHAR(14) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_ESTADO AS + CHAR(2) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_IE AS + VARCHAR(15) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_IM AS + VARCHAR(20) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN TX_UNIDADE AS + VARCHAR(6) CHARACTER SET WIN1252 + COLLATE WIN1252; +CREATE DOMAIN VL AS + NUMERIC(15,2) + DEFAULT 0 +; +/******************************************************************************* + * Tables + * ------ + * Extracted at 02/07/2019 10:18:38 + ******************************************************************************/ + +CREATE TABLE CHG_AGENDA +( + ID_AGENDA ID NOT NULL, + ID_COBRADOR ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + DT_AGENDADA DATE, + HR_AGENDADA TTIME , + TP_SITUACAO TP_1 , + DT_QUE_AGENDOU DT , + QUEM_AGENDOU ID +); +CREATE TABLE CHG_CAMPANHAS +( + ID_CAMPANHA ID NOT NULL, + TX_NOME TX_40 , + TP_ATIVA TP_1 , + TP_CONCLUIDA TP_1 , + TX_DESC TX_255 , + DT_CAD DATE, + QUEM_CAD ID , + TL_DESC TL +); +CREATE TABLE CHG_CAMPANHAS_COBRADORES +( + ID_ITEM ID NOT NULL, + ID_CAMPANHA ID , + ID_COBRADOR ID , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_CAMPANHAS_DEVEDORES +( + ID_ITEM ID NOT NULL, + ID_CAMPANHA ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + TX_DOCUMENTO TX_20 , + TP_ESTADO TP_1 , + TP_COBRANDO INTEGER, + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_COBRANCA_TITULOS +( + ID_PROTOCOLO ID NOT NULL, + CD_PROTOCOLO CD_20 NOT NULL, + QNT_TITULOS NI NOT NULL, + ID_EMPRESA ID , + ID_TITULOS TL NOT NULL, + ID_DEVEDOR ID NOT NULL, + VL_ENTRADA VL NOT NULL, + VL_JUROS VL NOT NULL, + VL_MULTA VL NOT NULL, + VL_INDICADOR VL NOT NULL, + VL_ENCARGOS VL NOT NULL, + VL_CORRIGIDO VL NOT NULL, + TP_DESC_QUIT TP_1 NOT NULL, + PR_QUIT_JUROS NR NOT NULL, + PR_QUIT_MULTA NR NOT NULL, + PR_QUIT_INDICADOR NR NOT NULL, + PR_QUIT_PRINCIPAL NR NOT NULL, + TP_DESC_QUIT_COR TP_1 , + PR_QUIT_COR PR , + TP_DESC_PAR TP_1 NOT NULL, + NR_PARCELAS NI NOT NULL, + PR_PARCELAR_JUROS NR NOT NULL, + PR_PARCELAR_MULTA NR NOT NULL, + PR_PARCELAR_INDICADOR NR NOT NULL, + PR_PARCELAR_PRINCIPAL NR NOT NULL, + TP_DESC_PAR_COR TP_1 , + PR_PARCELAR_COR PR , + DT_PROTOCOLO DT , + TP_PAG TP_2 , + PR_ENTRADA PR +); +CREATE TABLE CHG_CONFIGURACAO +( + ID_CONFIGURACAO ID NOT NULL +); +CREATE TABLE CHG_DESPESAS_TITULOS +( + ID_DESPESA ID NOT NULL, + ID_TITULO ID NOT NULL, + TX_DESCRICAO TX_60 , + VL_DESPESA VL , + TP_DESPESA TX_10 +); +CREATE TABLE CHG_DEVEDORES +( + ID_DEVEDOR ID NOT NULL, + TP_CLIENTE TP_1 , + TX_PAI TX_60 , + TX_NOME TX_60 , + TX_MAE TX_60 , + DT_CADASTRO DT , + DT_NASC DT , + CD_CPF TX_CPF , + CD_CNPJ TX_CNPJ , + TL_MEMO TL , + ID_COBRADOR ID , + CD_RG TX_20 , + CD_DEVEDOR CD_20 , + TX_EMAIL TX_60 , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_EMAILS +( + ID_EMAIL ID NOT NULL, + ID_DEVEDOR ID , + TX_EMAIL TX_40 , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_EMPRESAS +( + ID_EMPRESA ID NOT NULL, + TX_NOME TX_100 , + TX_FANTASIA TX_100 , + TX_CNPJ TX_CNPJ , + TX_IE TX_20 , + TX_ENDERECO TX_100 , + TX_COMPLEMENTO TX_20 , + ID_CIDADE ID , + TX_BAIRRO TX_60 , + ID_ESTADO ID , + TX_CEP TX_CEP , + TX_TELEFONE TX_40 , + TX_EMAIL TX_60 , + TX_WEBSITE TX_60 , + NR_NUMERO NI , + TX_IM TX_20 , + TL_OBSERVACOES TL , + ID_REPASSE ID , + TP_ENTRADA TP_2 NOT NULL, + PR_MULTA PR NOT NULL, + PR_JUROS PR NOT NULL, + NR_PARCELAS INTEGER, + PR_DESC_QUIT_PRIN PR NOT NULL, + PR_DESC_QUIT_JUROS PR NOT NULL, + PR_DESC_QUIT_MULTA PR NOT NULL, + PR_DESC_QUIT_IND_FIN PR NOT NULL, + PR_DESC_QUIT_COR PR , + PR_DESC_FINAN_PRIN PR NOT NULL, + PR_DESC_FINAN_JUROS PR NOT NULL, + PR_DESC_FINAN_MULTA PR NOT NULL, + PR_DESC_FINAN_IND_FIN PR NOT NULL, + PR_DESC_FINAN_COR PR , + PR_INDICADOR_FINANCEIRO PR NOT NULL, + PR_JUROS_PARCELAR PR , + PR_ENTRADA_MIN PR , + PR_ENTRADA_MAX PR , + TP_CHEQUE TP_1 , + TP_CRED TP_1 , + TP_DIN TP_1 , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_ENDERECOS +( + ID_ENDERECO ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + TP_ENDERECO TP_1 , + TP_ATIVO TP_1 , + TX_LOGRADOURO TX_100 , + TX_BAIRRO TX_100 , + ID_CIDADE ID , + ID_ESTADO ID , + TX_CEP TX_CEP , + TX_COMPLEMENTO TX_100 , + NR_NUMERO NR , + TP_REFERENCIA TP_1 , + ID_HIGIENIZADORA ID , + TP_CONFIRMADO TP_1 , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_FAIXAS +( + ID_FAIXA ID NOT NULL, + ID_POLITICA ID , + TX_DESCRICAO TX_40 , + ATRASO_MIN INTEGER, + ATRASO_MAX INTEGER, + PR_JUROS PR NOT NULL, + PR_MULTA PR NOT NULL, + PR_DESC_QUIT_PRIN PR NOT NULL, + PR_DESC_QUIT_JUROS PR NOT NULL, + PR_DESC_QUIT_MULTA PR NOT NULL, + PR_DESC_QUIT_IND_FIN PR NOT NULL, + PR_DESC_QUIT_COR PR , + PR_DESC_FINAN_PRIN PR NOT NULL, + PR_DESC_FINAN_JUROS PR NOT NULL, + PR_DESC_FINAN_MULTA PR NOT NULL, + PR_DESC_FINAN_COR PR , + PR_DESC_FINAN_IND_FIN PR NOT NULL, + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT , + DT_MIN DT , + DT_MAX DT , + TP_FAIXA TP_1 +); +CREATE TABLE CHG_FILTRO +( + ID_FILTRO ID NOT NULL, + TX_NOME_FILTRO TX_255 , + TP_CREDOR TP_1 , + TX_CREDOR TX_255 , + TP_PROVIDENCIA TP_1 , + TX_PROVIDENCIA TX_255 , + CD_PROVIDENCIA TP_1 , + TP_VALOR TP_1 , + VL_VALORIN VL , + VL_VALORFIM VL , + TP_AGENDADO TP_1 , + TX_AGENDADO TP_1 , + TP_NOME TP_1 , + TX_NOME TX_10 , + TP_ATRASO TP_1 , + TX_ATRASOIN INTEGER, + TX_ATRASOFIM INTEGER, + TP_PESSOA TP_1 , + CD_PESSOA TP_1 , + TP_TITULO TP_1 , + CD_TITULO TP_1 , + CD_ORDEM TP_1 , + TL_CREDOR TL , + TL_PROV TL +); +CREATE TABLE CHG_HISTORICO +( + ID_HISTORICO ID NOT NULL, + ID_DEVEDOR ID , + ID_COBRADOR ID , + ID_TITULO ID , + ID_PROVIDENCIA ID , + DT_CONTATO DT , + TP_AGENDAMENTO TP_1 , + CD_PROTOCOLO CD_20 , + TL_MEMO TL , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT , + ID_TITULOS TX_255 +); +CREATE TABLE CHG_INADIMPLENCIAS +( + ID_INADIMPLENCIA ID NOT NULL, + TX_NOME TX_100 +); +CREATE TABLE CHG_INDICADORES_FINANCEIROS +( + ID_INDICADOR ID NOT NULL, + ID_CHG_EMPRESA ID NOT NULL, + PR_INDICADOR PR , + VL_INDICADOR VL , + TP_INDICADOR TP_1 DEFAULT '%', + ATRASO_MIN INTEGER, + ATRASO_MAX INTEGER +); +CREATE TABLE CHG_POLITICAS +( + ID_POLITICA ID NOT NULL, + ID_EMPRESA ID , + TX_DESCRICAO TX_40 , + DT_INICIO DT , + DT_FIM DT , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_PROVIDENCIAS +( + ID_PROVIDENCIA ID NOT NULL, + TX_NOME TX_60 , + TX_DESCRICAO TX_255 , + TP_PROVIDENCIA TX_10 +); +CREATE TABLE CHG_TELEFONES +( + ID_TELEFONE ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + NR_DDD VARCHAR( 4) CHARACTER SET WIN1252 COLLATE WIN1252, + NR_NUMERO TX_20 , + TP_ATIVO TP_1 , + TP_TIPOTEL TP_1 , + TX_DESC TX_100 , + TX_OBS TL , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE CHG_TITULOS +( + ID_TITULO ID NOT NULL, + ID_DEVEDOR ID NOT NULL, + ID_EMPRESA ID NOT NULL, + TX_PRODUTO TX_100 , + VL_TITULO VL , + DT_ENTRADA DT , + DT_VENCIMENTO DT NOT NULL, + TP_SITUACAO TP_2 , + CD_DEVEDOR TX_100 , + TP_CHEQUE TP_1 NOT NULL, + ID_BANCO ID , + TX_NRCHEQUE TX_20 , + TP_MOTIVO TP_2 , + VL_DESPESA VL , + TP_DESPESA TP_1 , + VL_MULTA VL , + VL_JUROS VL , + VL_ENCARGOS VL , + VL_CORRIGIDO VL , + DT_PAGAMENTO DT , + TX_OBS TL , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT , + ID_IMPLANTACAO ID , + DT_IMPLANTACAO DT , + QTDE_PARCELAS INTEGER, + VL_DESC_PRINCIPAL VL , + DT_EMISSAO_RECIBO DT +); +CREATE TABLE SYS_ACORDOS +( + ID_ITEM ID NOT NULL, + ID_ACORDO ID NOT NULL, + ID_PARCELA ID NOT NULL, + ID_ORIGINAL ID NOT NULL, + ID_DEVEDOR ID NOT NULL +); +CREATE TABLE SYS_CAMPANHAS_OLD +( + ID_ITEM ID NOT NULL, + ID_CAMPANHA ID NOT NULL, + TX_NOME_CAMPANHA TX_40 NOT NULL, + ID_DEVEDOR ID NOT NULL, + ID_USUARIO ID NOT NULL, + DT_TRANSF DT NOT NULL, + TP_ACAO TX_20 +); +CREATE TABLE SYS_CIDADES +( + ID_CIDADE ID NOT NULL, + TX_NOME TX_60 , + ID_ESTADO ID , + CD_IBGE CD_10 +); +CREATE TABLE SYS_CONTAS +( + ID_CONTA ID NOT NULL, + TX_DESCRICAO TX_60 , + CD_AGENCIA CD_10 , + CD_AGENCIA_DV CHAR( 1) COLLATE ISO8859_1, + CD_CEDENTE CD_20 , + CD_CEDENTE_DV CHAR( 1) COLLATE ISO8859_1, + CD_CONVENIO CD_20 , + CD_CONVENIO_DV CHAR( 1) COLLATE ISO8859_1, + CD_CONTA CD_10 , + CD_CONTA_DV CHAR( 1) COLLATE ISO8859_1, + ID_BANCO ID , + TP_SITUACAO TP_1 , + CD_MODALIDADE CD_10 +); +CREATE TABLE SYS_CONTEUDO_RECIBO +( + ID_CONTEUDO ID NOT NULL, + TX_NOME TX_255 , + DT_VENCIMENTO DT , + VL_PRINCIPAL VL , + VL_JUROS VL , + VL_MULTA VL , + VL_ENCARGOS VL , + VL_DESCONTOS VL , + VL_CORRIGIDO VL , + ID_RECIBO ID , + VL_DESPESA VL , + TX_DEPESA TX_255 , + VL_EXTRAS VL +); +CREATE TABLE SYS_DUPLICADOS +( + ID_DUPLICADO ID NOT NULL, + TX_NOMEDEVEDOR TX_60 , + CD_CPF TX_CPF , + TX_NOMETITULO TX_100 , + VL_TITULO VL , + DT_VENCIMENTO DT , + TP_ACAO TP_1 , + CD_CNPJ TX_CNPJ +); +CREATE TABLE SYS_EMPRESA +( + ID_EMPRESA ID NOT NULL, + TX_NOME TX_100 , + TX_FANTASIA TX_40 , + TX_ENDERECO TX_100 , + NR_NUMERO NI , + TX_COMPLEMENTO TX_20 , + TX_BAIRRO TX_60 , + ID_CIDADE ID , + TX_CEP TX_CEP , + TX_TELEFONE TX_40 , + TX_WEBSITE TX_60 , + TX_CNPJ TX_CNPJ , + TX_IE TX_20 , + TX_IM TX_20 , + TL_OBSERVACOES TL , + TX_LOGOMARCA TX_100 , + TX_HONORARIOS TX_20 , + PR_DEBITO PR , + PR_CREDVISTA PR , + PR_CRED3 PR , + PR_CRED6 PR , + PR_CRED12 PR , + IMG_LOGO BL , + PR_FINANCIAMENTO PR , + TX_TITULO TX_60 , + ID_ESTADO ID , + TX_EMAILNOME TX_100 , + TX_EMAIL TX_100 , + TX_SMTP TX_100 , + TX_PORTA TX_10 , + TX_USUARIO TX_100 , + TX_SENHA TX_100 , + PR_BANCO_DEBITO PR , + PR_BANCO_CREDVISTA PR , + PR_BANCO_CRED3 PR , + PR_BANCO_CRED6 PR , + PR_BANCO_CRED12 PR , + TP_TLS TP_1 , + TP_SSL TP_1 +); +CREATE TABLE SYS_ESTADOS +( + ID_ESTADO ID NOT NULL, + TX_NOME TX_40 , + CD_ESTADO TX_ESTADO , + TX_SIGLA TP_2 +); +CREATE TABLE SYS_GRUPOS +( + ID_GRUPO ID NOT NULL, + TX_NOME TX_40 , + TP_SU TP_1 +); +CREATE TABLE SYS_GRUPOS_PERMISSOES +( + ID_ITEM ID NOT NULL, + ID_GRUPO ID , + ID_PERMISSAO ID , + TP_ACESSO TP_1 +); +CREATE TABLE SYS_INDICES +( + ID_INDICE ID NOT NULL, + TX_NOME TX_60 , + PR_INDICE PR NOT NULL +); +CREATE TABLE SYS_LAYOUTS +( + ID_LAYOUT ID NOT NULL, + TX_NOME TX_40 , + STR_CAMPOS TX_255 , + NR_QNTCAMPOS NR +); +CREATE TABLE SYS_LOG +( + ID_LOG ID NOT NULL, + TX_TABELA TX_20 , + ID_REGISTRO ID , + TX_ACAO TX_255 , + ID_USUARIO ID , + DT_LOG DT DEFAULT 'NOW' +); +CREATE TABLE SYS_LOGINS +( + ID_LOGIN ID NOT NULL, + ID_USUARIO ID , + DT_LOGIN DATE, + HR_LOGIN TIME, + DT_LOGOFF DATE, + HR_LOGOFF TIME +); +CREATE TABLE SYS_PERMISSOES +( + ID_PERMISSAO ID NOT NULL, + CD_PERMISSAO CD_20 , + TX_DESCRICAO TX_40 , + ID_PARENT ID , + TP_ACESSO TP_1 +); +CREATE TABLE SYS_RECIBOS +( + ID_RECIBO ID NOT NULL, + NR_RECIBO TX_20 NOT NULL, + TX_NOME TX_255 , + TX_CPF TX_CPF , + TX_CNPJ TX_CNPJ , + ID_DEVEDOR ID , + VL_TOTAL VL , + VL_PRINCIPAL VL , + VL_JUROS VL , + VL_MULTA VL , + VL_ENCARGOS VL , + VL_DESCONTOS VL , + VL_CORRIGIDO VL , + TX_CREDOR TX_200 , + TX_NOMETITULOS TX_255 , + TX_VENCIMENTOS TX_255 , + TP_RECEBIMENTO TP_2 , + NR_CHEQUE TX_20 , + ID_BANCO ID , + TX_PRACA TX_200 , + ID_USUARIO ID , + DT_IMPRESSAO DT , + TX_CAMINHO TX_255 , + TP_CANCELADO TP_1 +); +CREATE TABLE SYS_REPASSES +( + ID_REPASSE ID NOT NULL, + PR_PRINCIPAL PR , + PR_JUROS PR , + PR_MULTA PR , + PR_ENCARGOS PR , + PR_CORRIGIDO PR , + TX_NOME TX_40 +); +CREATE TABLE SYS_REPASSES_FASES +( + ID_FASE ID NOT NULL, + PR_PRINCIPAL PR , + PR_JUROS PR , + PR_MULTA PR , + PR_ENCARGOS PR , + PR_CORRIGIDO PR , + MIN_ATRASO INTEGER, + MAX_ATRASO INTEGER, + ID_REPASSE ID , + ID_ULTIMO_USUARIO ID , + DT_HORA_ULTIMA_ATT DT +); +CREATE TABLE SYS_SESSAO +( + ID_SESSAO ID NOT NULL, + ID_USUARIO ID , + TP_ATIVA TP_1 +); +CREATE TABLE SYS_TEXTO_EMAIL +( + ID_TEXTO ID NOT NULL, + TX_DESCRICAO TX_255 NOT NULL, + TL_TEXTO TL NOT NULL +); +CREATE TABLE SYS_USUARIOS +( + ID_USUARIO ID NOT NULL, + TX_NOME TX_60 , + TX_USUARIO TX_10 , + TX_SENHA TX_40 , + ID_GRUPO ID , + TP_ATIVO TP_1 , + TP_TROCAPASS TP_1 , + TX_EMAILNOME TX_100 , + TX_EMAIL TX_100 , + TX_SMTP TX_100 , + TX_PORTA TX_10 , + TX_USUARIOEMAIL TX_100 , + TX_SENHAEMAIL TX_100 , + TP_TLS TP_1 , + TP_SSL TP_1 +); +/******************************************************************************* + * Indices + * ------- + * Extracted at 02/07/2019 10:18:39 + ******************************************************************************/ + +CREATE ASC INDEX I_CHG_AGENDA_COBRADOR_ASC ON CHG_AGENDA (ID_COBRADOR); +CREATE DESC INDEX I_CHG_AGENDA_COBRADOR_DESC ON CHG_AGENDA (ID_COBRADOR); +CREATE ASC INDEX I_CHG_AGENDA_DR_AGENDA_ASC ON CHG_AGENDA (HR_AGENDADA); +CREATE ASC INDEX I_CHG_AGENDA_DT_AGENDA_ASC ON CHG_AGENDA (DT_AGENDADA); +CREATE DESC INDEX I_CHG_AGENDA_DT_AGENDA_DESC ON CHG_AGENDA (DT_AGENDADA); +CREATE ASC INDEX I_CHG_AGENDA_HR_AGENDA_DESC ON CHG_AGENDA (HR_AGENDADA); +CREATE ASC INDEX I_CHG_AGENDA_ID_DEVEDOR_ASC ON CHG_AGENDA (ID_DEVEDOR); +CREATE DESC INDEX I_CHG_AGENDA_ID_DEVEDOR_DESC ON CHG_AGENDA (ID_DEVEDOR); +CREATE ASC INDEX I_CHG_AGENDA_TP_SITUACAO_ASC ON CHG_AGENDA (TP_SITUACAO); +CREATE DESC INDEX I_CHG_AGENDA_TP_SITUACAO_DESC ON CHG_AGENDA (TP_SITUACAO); +CREATE ASC INDEX I_CHG_DEVEDORES_CNPJ_ASC ON CHG_DEVEDORES (CD_CNPJ); +CREATE DESC INDEX I_CHG_DEVEDORES_CNPJ_DESC ON CHG_DEVEDORES (CD_CNPJ); +CREATE ASC INDEX I_CHG_DEVEDORES_CPF_ASC ON CHG_DEVEDORES (CD_CPF); +CREATE DESC INDEX I_CHG_DEVEDORES_CPF_DESC ON CHG_DEVEDORES (CD_CPF); +CREATE ASC INDEX I_CHG_DEVEDORES_ID_DEVEDOR_ASC ON CHG_DEVEDORES (ID_DEVEDOR); +CREATE DESC INDEX I_CHG_DEVEDORES_ID_DEVEDOR_DESC ON CHG_DEVEDORES (ID_DEVEDOR); +CREATE ASC INDEX I_CHG_DEVEDORES_TP_CLIENTE_ASC ON CHG_DEVEDORES (TP_CLIENTE); +CREATE DESC INDEX I_CHG_DEVEDORES_TP_CLIENTE_DESC ON CHG_DEVEDORES (TP_CLIENTE); +CREATE ASC INDEX I_CHG_DEVEDORES_TX_NOME_ASC ON CHG_DEVEDORES (TX_NOME); +CREATE DESC INDEX I_CHG_DEVEDORES_TX_NOME_DESC ON CHG_DEVEDORES (TX_NOME); +CREATE ASC INDEX I_CHG_EMAILS_ID_DEVEDOR_ASC ON CHG_EMAILS (ID_DEVEDOR); +CREATE DESC INDEX I_CHG_EMAILS_ID_DEVEDOR_DESC ON CHG_EMAILS (ID_DEVEDOR); +CREATE ASC INDEX I_CHG_EMAILS_ID_EMAIL_ASC ON CHG_EMAILS (ID_EMAIL); +CREATE DESC INDEX I_CHG_EMAILS_ID_EMAIL_DESC ON CHG_EMAILS (ID_EMAIL); +CREATE ASC INDEX I_CHG_EMAILS_TX_EMAIL_ASC ON CHG_EMAILS (TX_EMAIL); +CREATE DESC INDEX I_CHG_EMAILS_TX_EMAIL_DESC ON CHG_EMAILS (TX_EMAIL); +CREATE ASC INDEX I_CHG_HISTORICO_COBRADOR_ASC ON CHG_HISTORICO (ID_COBRADOR); +CREATE DESC INDEX I_CHG_HISTORICO_COBRADOR_DESC ON CHG_HISTORICO (ID_COBRADOR); +CREATE ASC INDEX I_CHG_HISTORICO_DT_CONTATO_ASC ON CHG_HISTORICO (DT_CONTATO); +CREATE DESC INDEX I_CHG_HISTORICO_DT_CONTATO_DESC ON CHG_HISTORICO (DT_CONTATO); +CREATE ASC INDEX I_CHG_HISTORICO_ID_DEVEDOR_ASC ON CHG_HISTORICO (ID_DEVEDOR); +CREATE DESC INDEX I_CHG_HISTORICO_ID_DEVEDOR_DESC ON CHG_HISTORICO (ID_DEVEDOR); +CREATE ASC INDEX I_CHG_HISTORICO_ID_HIST_ASC ON CHG_HISTORICO (ID_HISTORICO); +CREATE DESC INDEX I_CHG_HISTORICO_ID_HIST_DESC ON CHG_HISTORICO (ID_HISTORICO); +CREATE ASC INDEX I_CHG_HISTORICO_ID_PROVI_ASC ON CHG_HISTORICO (ID_PROVIDENCIA); +CREATE DESC INDEX I_CHG_HISTORICO_ID_PROV_DESC ON CHG_HISTORICO (ID_PROVIDENCIA); +CREATE ASC INDEX I_CHG_TELEFONES_NR_NUMERO_ASC ON CHG_TELEFONES (NR_NUMERO); +CREATE DESC INDEX I_CHG_TELEFONES_NR_NUMERO_DESC ON CHG_TELEFONES (NR_NUMERO); +CREATE ASC INDEX I_CHG_TITULOS_DT_ENTRADA_ASC ON CHG_TITULOS (DT_ENTRADA); +CREATE DESC INDEX I_CHG_TITULOS_DT_ENTRADA_DESC ON CHG_TITULOS (DT_ENTRADA); +CREATE ASC INDEX I_CHG_TITULOS_DT_PAG_ASC ON CHG_TITULOS (DT_PAGAMENTO); +CREATE DESC INDEX I_CHG_TITULOS_DT_PAG_DESC ON CHG_TITULOS (DT_PAGAMENTO); +CREATE ASC INDEX I_CHG_TITULOS_DT_VENC_ASC ON CHG_TITULOS (DT_VENCIMENTO); +CREATE DESC INDEX I_CHG_TITULOS_DT_VENC_DESC ON CHG_TITULOS (DT_VENCIMENTO); +CREATE ASC INDEX I_CHG_TITULOS_ID_DEVEDOR_ASC ON CHG_TITULOS (ID_DEVEDOR); +CREATE DESC INDEX I_CHG_TITULOS_ID_DEVEDOR_DESC ON CHG_TITULOS (ID_DEVEDOR); +CREATE ASC INDEX I_CHG_TITULOS_ID_EMPRESA_ASC ON CHG_TITULOS (ID_EMPRESA); +CREATE ASC INDEX I_CHG_TITULOS_ID_EMPRESA_DESC ON CHG_TITULOS (ID_EMPRESA); +CREATE ASC INDEX I_CHG_TITULOS_ID_TITULO_ASC ON CHG_TITULOS (ID_TITULO); +CREATE DESC INDEX I_CHG_TITULOS_ID_TITULO_DESC ON CHG_TITULOS (ID_TITULO); +CREATE ASC INDEX I_CHG_TITULOS_TP_SITUACAO_ASC ON CHG_TITULOS (TP_SITUACAO); +CREATE DESC INDEX I_CHG_TITULOS_TP_SITUACAO_DESC ON CHG_TITULOS (TP_SITUACAO); +CREATE ASC INDEX I_CHG_TITULOS_TX_PRODUTO_ASC ON CHG_TITULOS (TX_PRODUTO); +CREATE DESC INDEX I_CHG_TITULOS_TX_PRODUTO_DESC ON CHG_TITULOS (TX_PRODUTO); +CREATE ASC INDEX I_CHG_TITULOS_VL_TITULO_ASC ON CHG_TITULOS (VL_TITULO); +CREATE DESC INDEX I_CHG_TITULOS_VL_TITULO_DESC ON CHG_TITULOS (VL_TITULO); +/******************************************************************************* + * Primary Key Constraints + * ----------------------- + * Extracted at 02/07/2019 10:18:39 + ******************************************************************************/ + +ALTER TABLE CHG_AGENDA ADD CONSTRAINT PK_CHG_AGENDA PRIMARY KEY + (ID_AGENDA); + +ALTER TABLE CHG_CAMPANHAS ADD CONSTRAINT PK_CHG_CAMPANHAS PRIMARY KEY + (ID_CAMPANHA); + +ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT PK_CHG_CAMPANHAS_COBRADORES PRIMARY KEY + (ID_ITEM); + +ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT PK_CHG_CAMPANHAS_DEVEDORES PRIMARY KEY + (ID_ITEM); + +ALTER TABLE CHG_COBRANCA_TITULOS ADD CONSTRAINT PK_CHG_COBRANCA_TITULOS PRIMARY KEY + (ID_PROTOCOLO); + +ALTER TABLE CHG_CONFIGURACAO ADD CONSTRAINT PK_CHG_CONFIGURACAO PRIMARY KEY + (ID_CONFIGURACAO); + +ALTER TABLE CHG_DESPESAS_TITULOS ADD CONSTRAINT PK_CHG_DESPESAS_TITULOS PRIMARY KEY + (ID_DESPESA); + +ALTER TABLE CHG_DEVEDORES ADD CONSTRAINT PK_CHG_DEVEDORES PRIMARY KEY + (ID_DEVEDOR); + +ALTER TABLE CHG_EMAILS ADD CONSTRAINT PK_CHG_EMAILS PRIMARY KEY + (ID_EMAIL); + +ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT PK_CHG_EMPRESAS PRIMARY KEY + (ID_EMPRESA); + +ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT PK_CHG_ENDERECOS PRIMARY KEY + (ID_ENDERECO); + +ALTER TABLE CHG_FAIXAS ADD CONSTRAINT PK_CHG_FAIXAS PRIMARY KEY + (ID_FAIXA); + +ALTER TABLE CHG_FILTRO ADD CONSTRAINT PK_CHG_FILTRO PRIMARY KEY + (ID_FILTRO); + +ALTER TABLE CHG_HISTORICO ADD CONSTRAINT PK_CHG_HISTORICO PRIMARY KEY + (ID_HISTORICO); + +ALTER TABLE CHG_INADIMPLENCIAS ADD CONSTRAINT PK_CHG_INADIMPLENCIAS PRIMARY KEY + (ID_INADIMPLENCIA); + +ALTER TABLE CHG_INDICADORES_FINANCEIROS ADD CONSTRAINT PK_CHG_INDICADORES_FINANCEI PRIMARY KEY + (ID_INDICADOR); + +ALTER TABLE CHG_POLITICAS ADD CONSTRAINT PK_CHG_POLITICAS PRIMARY KEY + (ID_POLITICA); + +ALTER TABLE CHG_PROVIDENCIAS ADD CONSTRAINT PK_CHG_PROVIDENCIAS PRIMARY KEY + (ID_PROVIDENCIA); + +ALTER TABLE CHG_TELEFONES ADD CONSTRAINT PK_CHG_TELEFONES PRIMARY KEY + (ID_TELEFONE); + +ALTER TABLE CHG_TITULOS ADD CONSTRAINT PK_CHG_TITULOS PRIMARY KEY + (ID_TITULO); + +ALTER TABLE SYS_ACORDOS ADD CONSTRAINT PK_SYS_ACORDOS PRIMARY KEY + (ID_ITEM); + +ALTER TABLE SYS_CAMPANHAS_OLD ADD CONSTRAINT PK_SYS_CAMPANHAS_OLD PRIMARY KEY + (ID_ITEM); + +ALTER TABLE SYS_CIDADES ADD CONSTRAINT PK_SYS_CIDADES PRIMARY KEY + (ID_CIDADE); + +ALTER TABLE SYS_CONTAS ADD CONSTRAINT PK_SYS_CONTAS PRIMARY KEY + (ID_CONTA); + +ALTER TABLE SYS_CONTEUDO_RECIBO ADD CONSTRAINT PK_SYS_CONTEUDO_RECIBO PRIMARY KEY + (ID_CONTEUDO); + +ALTER TABLE SYS_DUPLICADOS ADD CONSTRAINT PK_SYS_DUPLICADOS PRIMARY KEY + (ID_DUPLICADO); + +ALTER TABLE SYS_EMPRESA ADD CONSTRAINT PK_SYS_EMPRESA PRIMARY KEY + (ID_EMPRESA); + +ALTER TABLE SYS_ESTADOS ADD CONSTRAINT PK_SYS_ESTADOS PRIMARY KEY + (ID_ESTADO); + +ALTER TABLE SYS_GRUPOS ADD CONSTRAINT PK_SYS_GRUPOS PRIMARY KEY + (ID_GRUPO); + +ALTER TABLE SYS_GRUPOS_PERMISSOES ADD CONSTRAINT PK_SYS_GRUPOS_PERMISSOES PRIMARY KEY + (ID_ITEM); + +ALTER TABLE SYS_INDICES ADD CONSTRAINT PK_SYS_INDICES PRIMARY KEY + (ID_INDICE); + +ALTER TABLE SYS_LAYOUTS ADD CONSTRAINT PK_SYS_LAYOUTS PRIMARY KEY + (ID_LAYOUT); + +ALTER TABLE SYS_LOG ADD CONSTRAINT PK_SYS_LOG PRIMARY KEY + (ID_LOG); + +ALTER TABLE SYS_LOGINS ADD CONSTRAINT PK_SYS_LOGINS PRIMARY KEY + (ID_LOGIN); + +ALTER TABLE SYS_PERMISSOES ADD CONSTRAINT PK_SYS_PERMISSOES PRIMARY KEY + (ID_PERMISSAO); + +ALTER TABLE SYS_RECIBOS ADD CONSTRAINT PK_SYS_RECIBOS PRIMARY KEY + (ID_RECIBO); + +ALTER TABLE SYS_REPASSES ADD CONSTRAINT PK_SYS_REPASSES PRIMARY KEY + (ID_REPASSE); + +ALTER TABLE SYS_REPASSES_FASES ADD CONSTRAINT PK_SYS_REPASSES_FASES PRIMARY KEY + (ID_FASE); + +ALTER TABLE SYS_SESSAO ADD CONSTRAINT PK_SYS_SESSAO PRIMARY KEY + (ID_SESSAO); + +ALTER TABLE SYS_TEXTO_EMAIL ADD CONSTRAINT PK_SYS_TEXTO_EMAIL PRIMARY KEY + (ID_TEXTO); + +ALTER TABLE SYS_USUARIOS ADD CONSTRAINT PK_SYS_USUARIOS PRIMARY KEY + (ID_USUARIO); + +/******************************************************************************* + * Foreign Key Constraints + * ----------------------- + * Extracted at 02/07/2019 10:18:39 + ******************************************************************************/ + +ALTER TABLE CHG_AGENDA ADD CONSTRAINT FK_CHG_AGENDA_SYS_USUARIOS + FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS + (ID_USUARIO) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_CAMPANH + FOREIGN KEY (ID_CAMPANHA) REFERENCES CHG_CAMPANHAS + (ID_CAMPANHA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_DEVEDORES + FOREIGN KEY (ID_CAMPANHA) REFERENCES CHG_CAMPANHAS + (ID_CAMPANHA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT FK_CHG_CAMPANH_SYS_USUARIO + FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS + (ID_USUARIO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_COBRANCA_TITULOS ADD CONSTRAINT FK_CHG_COBRANC_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_DESPESAS_TITULOS ADD CONSTRAINT FK_CHG_DESPESAS_CHG_TITULOS + FOREIGN KEY (ID_TITULO) REFERENCES CHG_TITULOS + (ID_TITULO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_DEVEDORES ADD CONSTRAINT FK_CHG_DEVEDOR_SYS_USUARIO + FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS + (ID_USUARIO) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_EMAILS ADD CONSTRAINT FK_CHG_EMAILS_DEVEDORES + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESAS_SYS_CIDADES + FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES + (ID_CIDADE) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESAS_SYS_ESTADOS + FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS + (ID_ESTADO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESA_SYS_REPASSE + FOREIGN KEY (ID_REPASSE) REFERENCES SYS_REPASSES + (ID_REPASSE) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDERECO_SYS_CIDADES + FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES + (ID_CIDADE) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDERECO_SYS_ESTADOS + FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS + (ID_ESTADO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDEREC_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_FAIXAS ADD CONSTRAINT FK_CHG_FAIXAS_CHG_POLITICAS + FOREIGN KEY (ID_POLITICA) REFERENCES CHG_POLITICAS + (ID_POLITICA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORIC_CHG_TITULOS + FOREIGN KEY (ID_TITULO) REFERENCES CHG_TITULOS + (ID_TITULO) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORI_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORI_CHG_PROVIDE + FOREIGN KEY (ID_PROVIDENCIA) REFERENCES CHG_PROVIDENCIAS + (ID_PROVIDENCIA) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_INDICADORES_FINANCEIROS ADD CONSTRAINT FK_CHG_INDICAD_CHG_EMPRESA + FOREIGN KEY (ID_CHG_EMPRESA) REFERENCES CHG_EMPRESAS + (ID_EMPRESA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_POLITICAS ADD CONSTRAINT FK_CHG_POLITIC_CHG_EMPRESA + FOREIGN KEY (ID_EMPRESA) REFERENCES CHG_EMPRESAS + (ID_EMPRESA) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE CHG_TELEFONES ADD CONSTRAINT FK_CHG_TELEFON_CHG_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_TITULOS ADD CONSTRAINT FK_CHG_TITULOS_CHG_DEVEDORE + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE NO ACTION +; + +ALTER TABLE CHG_TITULOS ADD CONSTRAINT FK_CHG_TITULOS_CHG_EMPRESAS + FOREIGN KEY (ID_EMPRESA) REFERENCES CHG_EMPRESAS + (ID_EMPRESA) + ON DELETE SET NULL + ON UPDATE NO ACTION +; + +ALTER TABLE SYS_ACORDOS ADD CONSTRAINT FK_SYS_ACORDOS_DEVEDOR + FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES + (ID_DEVEDOR) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE SYS_CIDADES ADD CONSTRAINT FK_SYS_CIDADES_SYS_ESTADOS + FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS + (ID_ESTADO) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE SYS_EMPRESA ADD CONSTRAINT FK_SYS_EMPRESA_SYS_CIDADES + FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES + (ID_CIDADE) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE SYS_EMPRESA ADD CONSTRAINT FK_SYS_EMPRESA_SYS_ESTADOS + FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS + (ID_ESTADO) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE SYS_GRUPOS_PERMISSOES ADD CONSTRAINT FK_SYS_GRUPOS_PERMISSOES_SY + FOREIGN KEY (ID_GRUPO) REFERENCES SYS_GRUPOS + (ID_GRUPO) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + +ALTER TABLE SYS_REPASSES_FASES ADD CONSTRAINT FK_SYS_REPASSES_SYS_REPASSE + FOREIGN KEY (ID_REPASSE) REFERENCES SYS_REPASSES + (ID_REPASSE) + ON DELETE CASCADE + ON UPDATE CASCADE +; + +ALTER TABLE SYS_USUARIOS ADD CONSTRAINT FK_SYS_USUARIOS_SYS_GRUPOS + FOREIGN KEY (ID_GRUPO) REFERENCES SYS_GRUPOS + (ID_GRUPO) + ON DELETE NO ACTION + ON UPDATE NO ACTION +; + diff --git a/cidades.sql b/cidades.sql new file mode 100644 index 0000000..6ee65c4 --- /dev/null +++ b/cidades.sql @@ -0,0 +1,5595 @@ +INSERT INTO SYS_CIDADES VALUES(1, 'Afonso Cláudio', 8, 3200102); +INSERT INTO SYS_CIDADES VALUES(2, 'Água Doce do Norte', 8, 3200169); +INSERT INTO SYS_CIDADES VALUES(3, 'Águia Branca', 8, 3200136); +INSERT INTO SYS_CIDADES VALUES(4, 'Alegre', 8, 3200201); +INSERT INTO SYS_CIDADES VALUES(5, 'Alfredo Chaves', 8, 3200300); +INSERT INTO SYS_CIDADES VALUES(6, 'Alto Rio Novo', 8, 3200359); +INSERT INTO SYS_CIDADES VALUES(7, 'Anchieta', 8, 3200409); +INSERT INTO SYS_CIDADES VALUES(8, 'Apiacá', 8, 3200508); +INSERT INTO SYS_CIDADES VALUES(9, 'Aracruz', 8, 3200607); +INSERT INTO SYS_CIDADES VALUES(10, 'Atilio Vivacqua', 8, 3200706); +INSERT INTO SYS_CIDADES VALUES(11, 'Baixo Guandu', 8, 3200805); +INSERT INTO SYS_CIDADES VALUES(12, 'Barra de São Francisco', 8, 3200904); +INSERT INTO SYS_CIDADES VALUES(13, 'Boa Esperança', 8, 3201001); +INSERT INTO SYS_CIDADES VALUES(14, 'Bom Jesus do Norte', 8, 3201100); +INSERT INTO SYS_CIDADES VALUES(15, 'Brejetuba', 8, 3201159); +INSERT INTO SYS_CIDADES VALUES(16, 'Cachoeiro de Itapemirim', 8, 3201209); +INSERT INTO SYS_CIDADES VALUES(17, 'Cariacica', 8, 3201308); +INSERT INTO SYS_CIDADES VALUES(18, 'Castelo', 8, 3201407); +INSERT INTO SYS_CIDADES VALUES(19, 'Colatina', 8, 3201506); +INSERT INTO SYS_CIDADES VALUES(20, 'Conceição da Barra', 8, 3201605); +INSERT INTO SYS_CIDADES VALUES(21, 'Conceição do Castelo', 8, 3201704); +INSERT INTO SYS_CIDADES VALUES(22, 'Divino de São Lourenço', 8, 3201803); +INSERT INTO SYS_CIDADES VALUES(23, 'Domingos Martins', 8, 3201902); +INSERT INTO SYS_CIDADES VALUES(24, 'Dores do Rio Preto', 8, 3202009); +INSERT INTO SYS_CIDADES VALUES(25, 'Ecoporanga', 8, 3202108); +INSERT INTO SYS_CIDADES VALUES(26, 'Fundão', 8, 3202207); +INSERT INTO SYS_CIDADES VALUES(27, 'Governador Lindenberg', 8, 3202256); +INSERT INTO SYS_CIDADES VALUES(28, 'Guaçuí', 8, 3202306); +INSERT INTO SYS_CIDADES VALUES(29, 'Guarapari', 8, 3202405); +INSERT INTO SYS_CIDADES VALUES(30, 'Ibatiba', 8, 3202454); +INSERT INTO SYS_CIDADES VALUES(31, 'Ibiraçu', 8, 3202504); +INSERT INTO SYS_CIDADES VALUES(32, 'Ibitirama', 8, 3202553); +INSERT INTO SYS_CIDADES VALUES(33, 'Iconha', 8, 3202603); +INSERT INTO SYS_CIDADES VALUES(34, 'Irupi', 8, 3202652); +INSERT INTO SYS_CIDADES VALUES(35, 'Itaguaçu', 8, 3202702); +INSERT INTO SYS_CIDADES VALUES(36, 'Itapemirim', 8, 3202801); +INSERT INTO SYS_CIDADES VALUES(37, 'Itarana', 8, 3202900); +INSERT INTO SYS_CIDADES VALUES(38, 'Iúna', 8, 3203007); +INSERT INTO SYS_CIDADES VALUES(39, 'Jaguaré', 8, 3203056); +INSERT INTO SYS_CIDADES VALUES(40, 'Jerônimo Monteiro', 8, 3203106); +INSERT INTO SYS_CIDADES VALUES(41, 'João Neiva', 8, 3203130); +INSERT INTO SYS_CIDADES VALUES(42, 'Laranja da Terra', 8, 3203163); +INSERT INTO SYS_CIDADES VALUES(43, 'Linhares', 8, 3203205); +INSERT INTO SYS_CIDADES VALUES(44, 'Mantenópolis', 8, 3203304); +INSERT INTO SYS_CIDADES VALUES(45, 'Marataízes', 8, 3203320); +INSERT INTO SYS_CIDADES VALUES(46, 'Marechal Floriano', 8, 3203346); +INSERT INTO SYS_CIDADES VALUES(47, 'Marilândia', 8, 3203353); +INSERT INTO SYS_CIDADES VALUES(48, 'Mimoso do Sul', 8, 3203403); +INSERT INTO SYS_CIDADES VALUES(49, 'Montanha', 8, 3203502); +INSERT INTO SYS_CIDADES VALUES(50, 'Mucurici', 8, 3203601); +INSERT INTO SYS_CIDADES VALUES(51, 'Muniz Freire', 8, 3203700); +INSERT INTO SYS_CIDADES VALUES(52, 'Muqui', 8, 3203809); +INSERT INTO SYS_CIDADES VALUES(53, 'Nova Venécia', 8, 3203908); +INSERT INTO SYS_CIDADES VALUES(54, 'Pancas', 8, 3204005); +INSERT INTO SYS_CIDADES VALUES(55, 'Pedro Canário', 8, 3204054); +INSERT INTO SYS_CIDADES VALUES(56, 'Pinheiros', 8, 3204104); +INSERT INTO SYS_CIDADES VALUES(57, 'Piúma', 8, 3204203); +INSERT INTO SYS_CIDADES VALUES(58, 'Ponto Belo', 8, 3204252); +INSERT INTO SYS_CIDADES VALUES(59, 'Presidente Kennedy', 8, 3204302); +INSERT INTO SYS_CIDADES VALUES(60, 'Rio Bananal', 8, 3204351); +INSERT INTO SYS_CIDADES VALUES(61, 'Rio Novo do Sul', 8, 3204401); +INSERT INTO SYS_CIDADES VALUES(62, 'Santa Leopoldina', 8, 3204500); +INSERT INTO SYS_CIDADES VALUES(63, 'Santa Maria de Jetibá', 8, 3204559); +INSERT INTO SYS_CIDADES VALUES(64, 'Santa Teresa', 8, 3204609); +INSERT INTO SYS_CIDADES VALUES(65, 'São Domingos do Norte', 8, 3204658); +INSERT INTO SYS_CIDADES VALUES(66, 'São Gabriel da Palha', 8, 3204708); +INSERT INTO SYS_CIDADES VALUES(67, 'São José do Calçado', 8, 3204807); +INSERT INTO SYS_CIDADES VALUES(68, 'São Mateus', 8, 3204906); +INSERT INTO SYS_CIDADES VALUES(69, 'São Roque do Canaã', 8, 3204955); +INSERT INTO SYS_CIDADES VALUES(70, 'Serra', 8, 3205002); +INSERT INTO SYS_CIDADES VALUES(71, 'Sooretama', 8, 3205010); +INSERT INTO SYS_CIDADES VALUES(72, 'Vargem Alta', 8, 3205036); +INSERT INTO SYS_CIDADES VALUES(73, 'Venda Nova do Imigrante', 8, 3205069); +INSERT INTO SYS_CIDADES VALUES(74, 'Viana', 8, 3205101); +INSERT INTO SYS_CIDADES VALUES(75, 'Vila Pavão', 8, 3205150); +INSERT INTO SYS_CIDADES VALUES(76, 'Vila Valério', 8, 3205176); +INSERT INTO SYS_CIDADES VALUES(77, 'Vila Velha', 8, 3205200); +INSERT INTO SYS_CIDADES VALUES(78, 'Vitória', 8, 3205309); +INSERT INTO SYS_CIDADES VALUES(79, 'Acrelândia', 1, 1200013); +INSERT INTO SYS_CIDADES VALUES(80, 'Assis Brasil', 1, 1200054); +INSERT INTO SYS_CIDADES VALUES(81, 'Brasiléia', 1, 1200104); +INSERT INTO SYS_CIDADES VALUES(82, 'Bujari', 1, 1200138); +INSERT INTO SYS_CIDADES VALUES(83, 'Capixaba', 1, 1200179); +INSERT INTO SYS_CIDADES VALUES(84, 'Cruzeiro do Sul', 1, 1200203); +INSERT INTO SYS_CIDADES VALUES(85, 'Epitaciolândia', 1, 1200252); +INSERT INTO SYS_CIDADES VALUES(86, 'Feijó', 1, 1200302); +INSERT INTO SYS_CIDADES VALUES(87, 'Jordão', 1, 1200328); +INSERT INTO SYS_CIDADES VALUES(88, 'Mâncio Lima', 1, 1200336); +INSERT INTO SYS_CIDADES VALUES(89, 'Manoel Urbano', 1, 1200344); +INSERT INTO SYS_CIDADES VALUES(90, 'Marechal Thaumaturgo', 1, 1200351); +INSERT INTO SYS_CIDADES VALUES(91, 'Plácido de Castro', 1, 1200385); +INSERT INTO SYS_CIDADES VALUES(92, 'Porto Acre', 1, 1200807); +INSERT INTO SYS_CIDADES VALUES(93, 'Porto Walter', 1, 1200393); +INSERT INTO SYS_CIDADES VALUES(94, 'Rio Branco', 1, 1200401); +INSERT INTO SYS_CIDADES VALUES(95, 'Rodrigues Alves', 1, 1200427); +INSERT INTO SYS_CIDADES VALUES(96, 'Santa Rosa do Purus', 1, 1200435); +INSERT INTO SYS_CIDADES VALUES(97, 'Sena Madureira', 1, 1200500); +INSERT INTO SYS_CIDADES VALUES(98, 'Senador Guiomard', 1, 1200450); +INSERT INTO SYS_CIDADES VALUES(99, 'Tarauacá', 1, 1200609); +INSERT INTO SYS_CIDADES VALUES(100, 'Xapuri', 1, 1200708); +INSERT INTO SYS_CIDADES VALUES(101, 'Água Branca', 2, 2700102); +INSERT INTO SYS_CIDADES VALUES(102, 'Anadia', 2, 2700201); +INSERT INTO SYS_CIDADES VALUES(103, 'Arapiraca', 2, 2700300); +INSERT INTO SYS_CIDADES VALUES(104, 'Atalaia', 2, 2700409); +INSERT INTO SYS_CIDADES VALUES(105, 'Barra de Santo Antônio', 2, 2700508); +INSERT INTO SYS_CIDADES VALUES(106, 'Barra de São Miguel', 2, 2700607); +INSERT INTO SYS_CIDADES VALUES(107, 'Batalha', 2, 2700706); +INSERT INTO SYS_CIDADES VALUES(108, 'Belém', 2, 2700805); +INSERT INTO SYS_CIDADES VALUES(109, 'Belo Monte', 2, 2700904); +INSERT INTO SYS_CIDADES VALUES(110, 'Boca da Mata', 2, 2701001); +INSERT INTO SYS_CIDADES VALUES(111, 'Branquinha', 2, 2701100); +INSERT INTO SYS_CIDADES VALUES(112, 'Cacimbinhas', 2, 2701209); +INSERT INTO SYS_CIDADES VALUES(113, 'Cajueiro', 2, 2701308); +INSERT INTO SYS_CIDADES VALUES(114, 'Campestre', 2, 2701357); +INSERT INTO SYS_CIDADES VALUES(115, 'Campo Alegre', 2, 2701407); +INSERT INTO SYS_CIDADES VALUES(116, 'Campo Grande', 2, 2701506); +INSERT INTO SYS_CIDADES VALUES(117, 'Canapi', 2, 2701605); +INSERT INTO SYS_CIDADES VALUES(118, 'Capela', 2, 2701704); +INSERT INTO SYS_CIDADES VALUES(119, 'Carneiros', 2, 2701803); +INSERT INTO SYS_CIDADES VALUES(120, 'Chã Preta', 2, 2701902); +INSERT INTO SYS_CIDADES VALUES(121, 'Coité do Nóia', 2, 2702009); +INSERT INTO SYS_CIDADES VALUES(122, 'Colônia Leopoldina', 2, 2702108); +INSERT INTO SYS_CIDADES VALUES(123, 'Coqueiro Seco', 2, 2702207); +INSERT INTO SYS_CIDADES VALUES(124, 'Coruripe', 2, 2702306); +INSERT INTO SYS_CIDADES VALUES(125, 'Craíbas', 2, 2702355); +INSERT INTO SYS_CIDADES VALUES(126, 'Delmiro Gouveia', 2, 2702405); +INSERT INTO SYS_CIDADES VALUES(127, 'Dois Riachos', 2, 2702504); +INSERT INTO SYS_CIDADES VALUES(128, 'Estrela de Alagoas', 2, 2702553); +INSERT INTO SYS_CIDADES VALUES(129, 'Feira Grande', 2, 2702603); +INSERT INTO SYS_CIDADES VALUES(130, 'Feliz Deserto', 2, 2702702); +INSERT INTO SYS_CIDADES VALUES(131, 'Flexeiras', 2, 2702801); +INSERT INTO SYS_CIDADES VALUES(132, 'Girau do Ponciano', 2, 2702900); +INSERT INTO SYS_CIDADES VALUES(133, 'Ibateguara', 2, 2703007); +INSERT INTO SYS_CIDADES VALUES(134, 'Igaci', 2, 2703106); +INSERT INTO SYS_CIDADES VALUES(135, 'Igreja Nova', 2, 2703205); +INSERT INTO SYS_CIDADES VALUES(136, 'Inhapi', 2, 2703304); +INSERT INTO SYS_CIDADES VALUES(137, 'Jacaré dos Homens', 2, 2703403); +INSERT INTO SYS_CIDADES VALUES(138, 'Jacuípe', 2, 2703502); +INSERT INTO SYS_CIDADES VALUES(139, 'Japaratinga', 2, 2703601); +INSERT INTO SYS_CIDADES VALUES(140, 'Jaramataia', 2, 2703700); +INSERT INTO SYS_CIDADES VALUES(141, 'Jequiá da Praia', 2, 2703759); +INSERT INTO SYS_CIDADES VALUES(142, 'Joaquim Gomes', 2, 2703809); +INSERT INTO SYS_CIDADES VALUES(143, 'Jundiá', 2, 2703908); +INSERT INTO SYS_CIDADES VALUES(144, 'Junqueiro', 2, 2704005); +INSERT INTO SYS_CIDADES VALUES(145, 'Lagoa da Canoa', 2, 2704104); +INSERT INTO SYS_CIDADES VALUES(146, 'Limoeiro de Anadia', 2, 2704203); +INSERT INTO SYS_CIDADES VALUES(147, 'Maceió', 2, 2704302); +INSERT INTO SYS_CIDADES VALUES(148, 'Major Isidoro', 2, 2704401); +INSERT INTO SYS_CIDADES VALUES(149, 'Mar Vermelho', 2, 2704906); +INSERT INTO SYS_CIDADES VALUES(150, 'Maragogi', 2, 2704500); +INSERT INTO SYS_CIDADES VALUES(151, 'Maravilha', 2, 2704609); +INSERT INTO SYS_CIDADES VALUES(152, 'Marechal Deodoro', 2, 2704708); +INSERT INTO SYS_CIDADES VALUES(153, 'Maribondo', 2, 2704807); +INSERT INTO SYS_CIDADES VALUES(154, 'Mata Grande', 2, 2705002); +INSERT INTO SYS_CIDADES VALUES(155, 'Matriz de Camaragibe', 2, 2705101); +INSERT INTO SYS_CIDADES VALUES(156, 'Messias', 2, 2705200); +INSERT INTO SYS_CIDADES VALUES(157, 'Minador do Negrão', 2, 2705309); +INSERT INTO SYS_CIDADES VALUES(158, 'Monteirópolis', 2, 2705408); +INSERT INTO SYS_CIDADES VALUES(159, 'Murici', 2, 2705507); +INSERT INTO SYS_CIDADES VALUES(160, 'Novo Lino', 2, 2705606); +INSERT INTO SYS_CIDADES VALUES(161, 'Olho d`Água das Flores', 2, 2705705); +INSERT INTO SYS_CIDADES VALUES(162, 'Olho d`Água do Casado', 2, 2705804); +INSERT INTO SYS_CIDADES VALUES(163, 'Olho d`Água Grande', 2, 2705903); +INSERT INTO SYS_CIDADES VALUES(164, 'Olivença', 2, 2706000); +INSERT INTO SYS_CIDADES VALUES(165, 'Ouro Branco', 2, 2706109); +INSERT INTO SYS_CIDADES VALUES(166, 'Palestina', 2, 2706208); +INSERT INTO SYS_CIDADES VALUES(167, 'Palmeira dos Índios', 2, 2706307); +INSERT INTO SYS_CIDADES VALUES(168, 'Pão de Açúcar', 2, 2706406); +INSERT INTO SYS_CIDADES VALUES(169, 'Pariconha', 2, 2706422); +INSERT INTO SYS_CIDADES VALUES(170, 'Paripueira', 2, 2706448); +INSERT INTO SYS_CIDADES VALUES(171, 'Passo de Camaragibe', 2, 2706505); +INSERT INTO SYS_CIDADES VALUES(172, 'Paulo Jacinto', 2, 2706604); +INSERT INTO SYS_CIDADES VALUES(173, 'Penedo', 2, 2706703); +INSERT INTO SYS_CIDADES VALUES(174, 'Piaçabuçu', 2, 2706802); +INSERT INTO SYS_CIDADES VALUES(175, 'Pilar', 2, 2706901); +INSERT INTO SYS_CIDADES VALUES(176, 'Pindoba', 2, 2707008); +INSERT INTO SYS_CIDADES VALUES(177, 'Piranhas', 2, 2707107); +INSERT INTO SYS_CIDADES VALUES(178, 'Poço das Trincheiras', 2, 2707206); +INSERT INTO SYS_CIDADES VALUES(179, 'Porto Calvo', 2, 2707305); +INSERT INTO SYS_CIDADES VALUES(180, 'Porto de Pedras', 2, 2707404); +INSERT INTO SYS_CIDADES VALUES(181, 'Porto Real do Colégio', 2, 2707503); +INSERT INTO SYS_CIDADES VALUES(182, 'Quebrangulo', 2, 2707602); +INSERT INTO SYS_CIDADES VALUES(183, 'Rio Largo', 2, 2707701); +INSERT INTO SYS_CIDADES VALUES(184, 'Roteiro', 2, 2707800); +INSERT INTO SYS_CIDADES VALUES(185, 'Santa Luzia do Norte', 2, 2707909); +INSERT INTO SYS_CIDADES VALUES(186, 'Santana do Ipanema', 2, 2708006); +INSERT INTO SYS_CIDADES VALUES(187, 'Santana do Mundaú', 2, 2708105); +INSERT INTO SYS_CIDADES VALUES(188, 'São Brás', 2, 2708204); +INSERT INTO SYS_CIDADES VALUES(189, 'São José da Laje', 2, 2708303); +INSERT INTO SYS_CIDADES VALUES(190, 'São José da Tapera', 2, 2708402); +INSERT INTO SYS_CIDADES VALUES(191, 'São Luís do Quitunde', 2, 2708501); +INSERT INTO SYS_CIDADES VALUES(192, 'São Miguel dos Campos', 2, 2708600); +INSERT INTO SYS_CIDADES VALUES(193, 'São Miguel dos Milagres', 2, 2708709); +INSERT INTO SYS_CIDADES VALUES(194, 'São Sebastião', 2, 2708808); +INSERT INTO SYS_CIDADES VALUES(195, 'Satuba', 2, 2708907); +INSERT INTO SYS_CIDADES VALUES(196, 'Senador Rui Palmeira', 2, 2708956); +INSERT INTO SYS_CIDADES VALUES(197, 'Tanque d`Arca', 2, 2709004); +INSERT INTO SYS_CIDADES VALUES(198, 'Taquarana', 2, 2709103); +INSERT INTO SYS_CIDADES VALUES(199, 'Teotônio Vilela', 2, 2709152); +INSERT INTO SYS_CIDADES VALUES(200, 'Traipu', 2, 2709202); +INSERT INTO SYS_CIDADES VALUES(201, 'União dos Palmares', 2, 2709301); +INSERT INTO SYS_CIDADES VALUES(202, 'Viçosa', 2, 2709400); +INSERT INTO SYS_CIDADES VALUES(203, 'Amapá', 4, 1600105); +INSERT INTO SYS_CIDADES VALUES(204, 'Calçoene', 4, 1600204); +INSERT INTO SYS_CIDADES VALUES(205, 'Cutias', 4, 1600212); +INSERT INTO SYS_CIDADES VALUES(206, 'Ferreira Gomes', 4, 1600238); +INSERT INTO SYS_CIDADES VALUES(207, 'Itaubal', 4, 1600253); +INSERT INTO SYS_CIDADES VALUES(208, 'Laranjal do Jari', 4, 1600279); +INSERT INTO SYS_CIDADES VALUES(209, 'Macapá', 4, 1600303); +INSERT INTO SYS_CIDADES VALUES(210, 'Mazagão', 4, 1600402); +INSERT INTO SYS_CIDADES VALUES(211, 'Oiapoque', 4, 1600501); +INSERT INTO SYS_CIDADES VALUES(212, 'Pedra Branca do Amaparí', 4, 1600154); +INSERT INTO SYS_CIDADES VALUES(213, 'Porto Grande', 4, 1600535); +INSERT INTO SYS_CIDADES VALUES(214, 'Pracuúba', 4, 1600550); +INSERT INTO SYS_CIDADES VALUES(215, 'Santana', 4, 1600600); +INSERT INTO SYS_CIDADES VALUES(216, 'Serra do Navio', 4, 1600055); +INSERT INTO SYS_CIDADES VALUES(217, 'Tartarugalzinho', 4, 1600709); +INSERT INTO SYS_CIDADES VALUES(218, 'Vitória do Jari', 4, 1600808); +INSERT INTO SYS_CIDADES VALUES(219, 'Alvarães', 3, 1300029); +INSERT INTO SYS_CIDADES VALUES(220, 'Amaturá', 3, 1300060); +INSERT INTO SYS_CIDADES VALUES(221, 'Anamã', 3, 1300086); +INSERT INTO SYS_CIDADES VALUES(222, 'Anori', 3, 1300102); +INSERT INTO SYS_CIDADES VALUES(223, 'Apuí', 3, 1300144); +INSERT INTO SYS_CIDADES VALUES(224, 'Atalaia do Norte', 3, 1300201); +INSERT INTO SYS_CIDADES VALUES(225, 'Autazes', 3, 1300300); +INSERT INTO SYS_CIDADES VALUES(226, 'Barcelos', 3, 1300409); +INSERT INTO SYS_CIDADES VALUES(227, 'Barreirinha', 3, 1300508); +INSERT INTO SYS_CIDADES VALUES(228, 'Benjamin Constant', 3, 1300607); +INSERT INTO SYS_CIDADES VALUES(229, 'Beruri', 3, 1300631); +INSERT INTO SYS_CIDADES VALUES(230, 'Boa Vista do Ramos', 3, 1300680); +INSERT INTO SYS_CIDADES VALUES(231, 'Boca do Acre', 3, 1300706); +INSERT INTO SYS_CIDADES VALUES(232, 'Borba', 3, 1300805); +INSERT INTO SYS_CIDADES VALUES(233, 'Caapiranga', 3, 1300839); +INSERT INTO SYS_CIDADES VALUES(234, 'Canutama', 3, 1300904); +INSERT INTO SYS_CIDADES VALUES(235, 'Carauari', 3, 1301001); +INSERT INTO SYS_CIDADES VALUES(236, 'Careiro', 3, 1301100); +INSERT INTO SYS_CIDADES VALUES(237, 'Careiro da Várzea', 3, 1301159); +INSERT INTO SYS_CIDADES VALUES(238, 'Coari', 3, 1301209); +INSERT INTO SYS_CIDADES VALUES(239, 'Codajás', 3, 1301308); +INSERT INTO SYS_CIDADES VALUES(240, 'Eirunepé', 3, 1301407); +INSERT INTO SYS_CIDADES VALUES(241, 'Envira', 3, 1301506); +INSERT INTO SYS_CIDADES VALUES(242, 'Fonte Boa', 3, 1301605); +INSERT INTO SYS_CIDADES VALUES(243, 'Guajará', 3, 1301654); +INSERT INTO SYS_CIDADES VALUES(244, 'Humaitá', 3, 1301704); +INSERT INTO SYS_CIDADES VALUES(245, 'Ipixuna', 3, 1301803); +INSERT INTO SYS_CIDADES VALUES(246, 'Iranduba', 3, 1301852); +INSERT INTO SYS_CIDADES VALUES(247, 'Itacoatiara', 3, 1301902); +INSERT INTO SYS_CIDADES VALUES(248, 'Itamarati', 3, 1301951); +INSERT INTO SYS_CIDADES VALUES(249, 'Itapiranga', 3, 1302009); +INSERT INTO SYS_CIDADES VALUES(250, 'Japurá', 3, 1302108); +INSERT INTO SYS_CIDADES VALUES(251, 'Juruá', 3, 1302207); +INSERT INTO SYS_CIDADES VALUES(252, 'Jutaí', 3, 1302306); +INSERT INTO SYS_CIDADES VALUES(253, 'Lábrea', 3, 1302405); +INSERT INTO SYS_CIDADES VALUES(254, 'Manacapuru', 3, 1302504); +INSERT INTO SYS_CIDADES VALUES(255, 'Manaquiri', 3, 1302553); +INSERT INTO SYS_CIDADES VALUES(256, 'Manaus', 3, 1302603); +INSERT INTO SYS_CIDADES VALUES(257, 'Manicoré', 3, 1302702); +INSERT INTO SYS_CIDADES VALUES(258, 'Maraã', 3, 1302801); +INSERT INTO SYS_CIDADES VALUES(259, 'Maués', 3, 1302900); +INSERT INTO SYS_CIDADES VALUES(260, 'Nhamundá', 3, 1303007); +INSERT INTO SYS_CIDADES VALUES(261, 'Nova Olinda do Norte', 3, 1303106); +INSERT INTO SYS_CIDADES VALUES(262, 'Novo Airão', 3, 1303205); +INSERT INTO SYS_CIDADES VALUES(263, 'Novo Aripuanã', 3, 1303304); +INSERT INTO SYS_CIDADES VALUES(264, 'Parintins', 3, 1303403); +INSERT INTO SYS_CIDADES VALUES(265, 'Pauini', 3, 1303502); +INSERT INTO SYS_CIDADES VALUES(266, 'Presidente Figueiredo', 3, 1303536); +INSERT INTO SYS_CIDADES VALUES(267, 'Rio Preto da Eva', 3, 1303569); +INSERT INTO SYS_CIDADES VALUES(268, 'Santa Isabel do Rio Negro', 3, 1303601); +INSERT INTO SYS_CIDADES VALUES(269, 'Santo Antônio do Içá', 3, 1303700); +INSERT INTO SYS_CIDADES VALUES(270, 'São Gabriel da Cachoeira', 3, 1303809); +INSERT INTO SYS_CIDADES VALUES(271, 'São Paulo de Olivença', 3, 1303908); +INSERT INTO SYS_CIDADES VALUES(272, 'São Sebastião do Uatumã', 3, 1303957); +INSERT INTO SYS_CIDADES VALUES(273, 'Silves', 3, 1304005); +INSERT INTO SYS_CIDADES VALUES(274, 'Tabatinga', 3, 1304062); +INSERT INTO SYS_CIDADES VALUES(275, 'Tapauá', 3, 1304104); +INSERT INTO SYS_CIDADES VALUES(276, 'Tefé', 3, 1304203); +INSERT INTO SYS_CIDADES VALUES(277, 'Tonantins', 3, 1304237); +INSERT INTO SYS_CIDADES VALUES(278, 'Uarini', 3, 1304260); +INSERT INTO SYS_CIDADES VALUES(279, 'Urucará', 3, 1304302); +INSERT INTO SYS_CIDADES VALUES(280, 'Urucurituba', 3, 1304401); +INSERT INTO SYS_CIDADES VALUES(281, 'Abaíra', 5, 2900108); +INSERT INTO SYS_CIDADES VALUES(282, 'Abaré', 5, 2900207); +INSERT INTO SYS_CIDADES VALUES(283, 'Acajutiba', 5, 2900306); +INSERT INTO SYS_CIDADES VALUES(284, 'Adustina', 5, 2900355); +INSERT INTO SYS_CIDADES VALUES(285, 'Água Fria', 5, 2900405); +INSERT INTO SYS_CIDADES VALUES(286, 'Aiquara', 5, 2900603); +INSERT INTO SYS_CIDADES VALUES(287, 'Alagoinhas', 5, 2900702); +INSERT INTO SYS_CIDADES VALUES(288, 'Alcobaça', 5, 2900801); +INSERT INTO SYS_CIDADES VALUES(289, 'Almadina', 5, 2900900); +INSERT INTO SYS_CIDADES VALUES(290, 'Amargosa', 5, 2901007); +INSERT INTO SYS_CIDADES VALUES(291, 'Amélia Rodrigues', 5, 2901106); +INSERT INTO SYS_CIDADES VALUES(292, 'América Dourada', 5, 2901155); +INSERT INTO SYS_CIDADES VALUES(293, 'Anagé', 5, 2901205); +INSERT INTO SYS_CIDADES VALUES(294, 'Andaraí', 5, 2901304); +INSERT INTO SYS_CIDADES VALUES(295, 'Andorinha', 5, 2901353); +INSERT INTO SYS_CIDADES VALUES(296, 'Angical', 5, 2901403); +INSERT INTO SYS_CIDADES VALUES(297, 'Anguera', 5, 2901502); +INSERT INTO SYS_CIDADES VALUES(298, 'Antas', 5, 2901601); +INSERT INTO SYS_CIDADES VALUES(299, 'Antônio Cardoso', 5, 2901700); +INSERT INTO SYS_CIDADES VALUES(300, 'Antônio Gonçalves', 5, 2901809); +INSERT INTO SYS_CIDADES VALUES(301, 'Aporá', 5, 2901908); +INSERT INTO SYS_CIDADES VALUES(302, 'Apuarema', 5, 2901957); +INSERT INTO SYS_CIDADES VALUES(303, 'Araças', 5, 2902054); +INSERT INTO SYS_CIDADES VALUES(304, 'Aracatu', 5, 2902005); +INSERT INTO SYS_CIDADES VALUES(305, 'Araci', 5, 2902104); +INSERT INTO SYS_CIDADES VALUES(306, 'Aramari', 5, 2902203); +INSERT INTO SYS_CIDADES VALUES(307, 'Arataca', 5, 2902252); +INSERT INTO SYS_CIDADES VALUES(308, 'Aratuípe', 5, 2902302); +INSERT INTO SYS_CIDADES VALUES(309, 'Aurelino Leal', 5, 2902401); +INSERT INTO SYS_CIDADES VALUES(310, 'Baianópolis', 5, 2902500); +INSERT INTO SYS_CIDADES VALUES(311, 'Baixa Grande', 5, 2902609); +INSERT INTO SYS_CIDADES VALUES(312, 'Banzaê', 5, 2902658); +INSERT INTO SYS_CIDADES VALUES(313, 'Barra', 5, 2902708); +INSERT INTO SYS_CIDADES VALUES(314, 'Barra da Estiva', 5, 2902807); +INSERT INTO SYS_CIDADES VALUES(315, 'Barra do Choça', 5, 2902906); +INSERT INTO SYS_CIDADES VALUES(316, 'Barra do Mendes', 5, 2903003); +INSERT INTO SYS_CIDADES VALUES(317, 'Barra do Rocha', 5, 2903102); +INSERT INTO SYS_CIDADES VALUES(318, 'Barreiras', 5, 2903201); +INSERT INTO SYS_CIDADES VALUES(319, 'Barro Alto', 5, 2903235); +INSERT INTO SYS_CIDADES VALUES(320, 'Barro Preto (antigo Gov. Lomanto Jr.)', 5, 2903300); +INSERT INTO SYS_CIDADES VALUES(321, 'Barrocas', 5, 2903276); +INSERT INTO SYS_CIDADES VALUES(322, 'Belmonte', 5, 2903409); +INSERT INTO SYS_CIDADES VALUES(323, 'Belo Campo', 5, 2903508); +INSERT INTO SYS_CIDADES VALUES(324, 'Biritinga', 5, 2903607); +INSERT INTO SYS_CIDADES VALUES(325, 'Boa Nova', 5, 2903706); +INSERT INTO SYS_CIDADES VALUES(326, 'Boa Vista do Tupim', 5, 2903805); +INSERT INTO SYS_CIDADES VALUES(327, 'Bom Jesus da Lapa', 5, 2903904); +INSERT INTO SYS_CIDADES VALUES(328, 'Bom Jesus da Serra', 5, 2903953); +INSERT INTO SYS_CIDADES VALUES(329, 'Boninal', 5, 2904001); +INSERT INTO SYS_CIDADES VALUES(330, 'Bonito', 5, 2904050); +INSERT INTO SYS_CIDADES VALUES(331, 'Boquira', 5, 2904100); +INSERT INTO SYS_CIDADES VALUES(332, 'Botuporã', 5, 2904209); +INSERT INTO SYS_CIDADES VALUES(333, 'Brejões', 5, 2904308); +INSERT INTO SYS_CIDADES VALUES(334, 'Brejolândia', 5, 2904407); +INSERT INTO SYS_CIDADES VALUES(335, 'Brotas de Macaúbas', 5, 2904506); +INSERT INTO SYS_CIDADES VALUES(336, 'Brumado', 5, 2904605); +INSERT INTO SYS_CIDADES VALUES(337, 'Buerarema', 5, 2904704); +INSERT INTO SYS_CIDADES VALUES(338, 'Buritirama', 5, 2904753); +INSERT INTO SYS_CIDADES VALUES(339, 'Caatiba', 5, 2904803); +INSERT INTO SYS_CIDADES VALUES(340, 'Cabaceiras do Paraguaçu', 5, 2904852); +INSERT INTO SYS_CIDADES VALUES(341, 'Cachoeira', 5, 2904902); +INSERT INTO SYS_CIDADES VALUES(342, 'Caculé', 5, 2905008); +INSERT INTO SYS_CIDADES VALUES(343, 'Caém', 5, 2905107); +INSERT INTO SYS_CIDADES VALUES(344, 'Caetanos', 5, 2905156); +INSERT INTO SYS_CIDADES VALUES(345, 'Caetité', 5, 2905206); +INSERT INTO SYS_CIDADES VALUES(346, 'Cafarnaum', 5, 2905305); +INSERT INTO SYS_CIDADES VALUES(347, 'Cairu', 5, 2905404); +INSERT INTO SYS_CIDADES VALUES(348, 'Caldeirão Grande', 5, 2905503); +INSERT INTO SYS_CIDADES VALUES(349, 'Camacan', 5, 2905602); +INSERT INTO SYS_CIDADES VALUES(350, 'Camaçari', 5, 2905701); +INSERT INTO SYS_CIDADES VALUES(351, 'Camamu', 5, 2905800); +INSERT INTO SYS_CIDADES VALUES(352, 'Campo Alegre de Lourdes', 5, 2905909); +INSERT INTO SYS_CIDADES VALUES(353, 'Campo Formoso', 5, 2906006); +INSERT INTO SYS_CIDADES VALUES(354, 'Canápolis', 5, 2906105); +INSERT INTO SYS_CIDADES VALUES(355, 'Canarana', 5, 2906204); +INSERT INTO SYS_CIDADES VALUES(356, 'Canavieiras', 5, 2906303); +INSERT INTO SYS_CIDADES VALUES(357, 'Candeal', 5, 2906402); +INSERT INTO SYS_CIDADES VALUES(358, 'Candeias', 5, 2906501); +INSERT INTO SYS_CIDADES VALUES(359, 'Candiba', 5, 2906600); +INSERT INTO SYS_CIDADES VALUES(360, 'Cândido Sales', 5, 2906709); +INSERT INTO SYS_CIDADES VALUES(361, 'Cansanção', 5, 2906808); +INSERT INTO SYS_CIDADES VALUES(362, 'Canudos', 5, 2906824); +INSERT INTO SYS_CIDADES VALUES(363, 'Capela do Alto Alegre', 5, 2906857); +INSERT INTO SYS_CIDADES VALUES(364, 'Capim Grosso', 5, 2906873); +INSERT INTO SYS_CIDADES VALUES(365, 'Caraíbas', 5, 2906899); +INSERT INTO SYS_CIDADES VALUES(366, 'Caravelas', 5, 2906907); +INSERT INTO SYS_CIDADES VALUES(367, 'Cardeal da Silva', 5, 2907004); +INSERT INTO SYS_CIDADES VALUES(368, 'Carinhanha', 5, 2907103); +INSERT INTO SYS_CIDADES VALUES(369, 'Casa Nova', 5, 2907202); +INSERT INTO SYS_CIDADES VALUES(370, 'Castro Alves', 5, 2907301); +INSERT INTO SYS_CIDADES VALUES(371, 'Catolândia', 5, 2907400); +INSERT INTO SYS_CIDADES VALUES(372, 'Catu', 5, 2907509); +INSERT INTO SYS_CIDADES VALUES(373, 'Caturama', 5, 2907558); +INSERT INTO SYS_CIDADES VALUES(374, 'Central', 5, 2907608); +INSERT INTO SYS_CIDADES VALUES(375, 'Chorrochó', 5, 2907707); +INSERT INTO SYS_CIDADES VALUES(376, 'Cícero Dantas', 5, 2907806); +INSERT INTO SYS_CIDADES VALUES(377, 'Cipó', 5, 2907905); +INSERT INTO SYS_CIDADES VALUES(378, 'Coaraci', 5, 2908002); +INSERT INTO SYS_CIDADES VALUES(379, 'Cocos', 5, 2908101); +INSERT INTO SYS_CIDADES VALUES(380, 'Conceição da Feira', 5, 2908200); +INSERT INTO SYS_CIDADES VALUES(381, 'Conceição do Almeida', 5, 2908309); +INSERT INTO SYS_CIDADES VALUES(382, 'Conceição do Coité', 5, 2908408); +INSERT INTO SYS_CIDADES VALUES(383, 'Conceição do Jacuípe', 5, 2908507); +INSERT INTO SYS_CIDADES VALUES(384, 'Conde', 5, 2908606); +INSERT INTO SYS_CIDADES VALUES(385, 'Condeúba', 5, 2908705); +INSERT INTO SYS_CIDADES VALUES(386, 'Contendas do Sincorá', 5, 2908804); +INSERT INTO SYS_CIDADES VALUES(387, 'Coração de Maria', 5, 2908903); +INSERT INTO SYS_CIDADES VALUES(388, 'Cordeiros', 5, 2909000); +INSERT INTO SYS_CIDADES VALUES(389, 'Coribe', 5, 2909109); +INSERT INTO SYS_CIDADES VALUES(390, 'Coronel João Sá', 5, 2909208); +INSERT INTO SYS_CIDADES VALUES(391, 'Correntina', 5, 2909307); +INSERT INTO SYS_CIDADES VALUES(392, 'Cotegipe', 5, 2909406); +INSERT INTO SYS_CIDADES VALUES(393, 'Cravolândia', 5, 2909505); +INSERT INTO SYS_CIDADES VALUES(394, 'Crisópolis', 5, 2909604); +INSERT INTO SYS_CIDADES VALUES(395, 'Cristópolis', 5, 2909703); +INSERT INTO SYS_CIDADES VALUES(396, 'Cruz das Almas', 5, 2909802); +INSERT INTO SYS_CIDADES VALUES(397, 'Curaçá', 5, 2909901); +INSERT INTO SYS_CIDADES VALUES(398, 'Dário Meira', 5, 2910008); +INSERT INTO SYS_CIDADES VALUES(399, 'Dias d`Ávila', 5, 2910057); +INSERT INTO SYS_CIDADES VALUES(400, 'Dom Basílio', 5, 2910107); +INSERT INTO SYS_CIDADES VALUES(401, 'Dom Macedo Costa', 5, 2910206); +INSERT INTO SYS_CIDADES VALUES(402, 'Elísio Medrado', 5, 2910305); +INSERT INTO SYS_CIDADES VALUES(403, 'Encruzilhada', 5, 2910404); +INSERT INTO SYS_CIDADES VALUES(404, 'Entre Rios', 5, 2910503); +INSERT INTO SYS_CIDADES VALUES(405, 'Érico Cardoso', 5, 2900504); +INSERT INTO SYS_CIDADES VALUES(406, 'Esplanada', 5, 2910602); +INSERT INTO SYS_CIDADES VALUES(407, 'Euclides da Cunha', 5, 2910701); +INSERT INTO SYS_CIDADES VALUES(408, 'Eunápolis', 5, 2910727); +INSERT INTO SYS_CIDADES VALUES(409, 'Fátima', 5, 2910750); +INSERT INTO SYS_CIDADES VALUES(410, 'Feira da Mata', 5, 2910776); +INSERT INTO SYS_CIDADES VALUES(411, 'Feira de Santana', 5, 2910800); +INSERT INTO SYS_CIDADES VALUES(412, 'Filadélfia', 5, 2910859); +INSERT INTO SYS_CIDADES VALUES(413, 'Firmino Alves', 5, 2910909); +INSERT INTO SYS_CIDADES VALUES(414, 'Floresta Azul', 5, 2911006); +INSERT INTO SYS_CIDADES VALUES(415, 'Formosa do Rio Preto', 5, 2911105); +INSERT INTO SYS_CIDADES VALUES(416, 'Gandu', 5, 2911204); +INSERT INTO SYS_CIDADES VALUES(417, 'Gavião', 5, 2911253); +INSERT INTO SYS_CIDADES VALUES(418, 'Gentio do Ouro', 5, 2911303); +INSERT INTO SYS_CIDADES VALUES(419, 'Glória', 5, 2911402); +INSERT INTO SYS_CIDADES VALUES(420, 'Gongogi', 5, 2911501); +INSERT INTO SYS_CIDADES VALUES(421, 'Governador Mangabeira', 5, 2911600); +INSERT INTO SYS_CIDADES VALUES(422, 'Guajeru', 5, 2911659); +INSERT INTO SYS_CIDADES VALUES(423, 'Guanambi', 5, 2911709); +INSERT INTO SYS_CIDADES VALUES(424, 'Guaratinga', 5, 2911808); +INSERT INTO SYS_CIDADES VALUES(425, 'Heliópolis', 5, 2911857); +INSERT INTO SYS_CIDADES VALUES(426, 'Iaçu', 5, 2911907); +INSERT INTO SYS_CIDADES VALUES(427, 'Ibiassucê', 5, 2912004); +INSERT INTO SYS_CIDADES VALUES(428, 'Ibicaraí', 5, 2912103); +INSERT INTO SYS_CIDADES VALUES(429, 'Ibicoara', 5, 2912202); +INSERT INTO SYS_CIDADES VALUES(430, 'Ibicuí', 5, 2912301); +INSERT INTO SYS_CIDADES VALUES(431, 'Ibipeba', 5, 2912400); +INSERT INTO SYS_CIDADES VALUES(432, 'Ibipitanga', 5, 2912509); +INSERT INTO SYS_CIDADES VALUES(433, 'Ibiquera', 5, 2912608); +INSERT INTO SYS_CIDADES VALUES(434, 'Ibirapitanga', 5, 2912707); +INSERT INTO SYS_CIDADES VALUES(435, 'Ibirapuã', 5, 2912806); +INSERT INTO SYS_CIDADES VALUES(436, 'Ibirataia', 5, 2912905); +INSERT INTO SYS_CIDADES VALUES(437, 'Ibitiara', 5, 2913002); +INSERT INTO SYS_CIDADES VALUES(438, 'Ibititá', 5, 2913101); +INSERT INTO SYS_CIDADES VALUES(439, 'Ibotirama', 5, 2913200); +INSERT INTO SYS_CIDADES VALUES(440, 'Ichu', 5, 2913309); +INSERT INTO SYS_CIDADES VALUES(441, 'Igaporã', 5, 2913408); +INSERT INTO SYS_CIDADES VALUES(442, 'Igrapiúna', 5, 2913457); +INSERT INTO SYS_CIDADES VALUES(443, 'Iguaí', 5, 2913507); +INSERT INTO SYS_CIDADES VALUES(444, 'Ilhéus', 5, 2913606); +INSERT INTO SYS_CIDADES VALUES(445, 'Inhambupe', 5, 2913705); +INSERT INTO SYS_CIDADES VALUES(446, 'Ipecaetá', 5, 2913804); +INSERT INTO SYS_CIDADES VALUES(447, 'Ipiaú', 5, 2913903); +INSERT INTO SYS_CIDADES VALUES(448, 'Ipirá', 5, 2914000); +INSERT INTO SYS_CIDADES VALUES(449, 'Ipupiara', 5, 2914109); +INSERT INTO SYS_CIDADES VALUES(450, 'Irajuba', 5, 2914208); +INSERT INTO SYS_CIDADES VALUES(451, 'Iramaia', 5, 2914307); +INSERT INTO SYS_CIDADES VALUES(452, 'Iraquara', 5, 2914406); +INSERT INTO SYS_CIDADES VALUES(453, 'Irará', 5, 2914505); +INSERT INTO SYS_CIDADES VALUES(454, 'Irecê', 5, 2914604); +INSERT INTO SYS_CIDADES VALUES(455, 'Itabela', 5, 2914653); +INSERT INTO SYS_CIDADES VALUES(456, 'Itaberaba', 5, 2914703); +INSERT INTO SYS_CIDADES VALUES(457, 'Itabuna', 5, 2914802); +INSERT INTO SYS_CIDADES VALUES(458, 'Itacaré', 5, 2914901); +INSERT INTO SYS_CIDADES VALUES(459, 'Itaeté', 5, 2915007); +INSERT INTO SYS_CIDADES VALUES(460, 'Itagi', 5, 2915106); +INSERT INTO SYS_CIDADES VALUES(461, 'Itagibá', 5, 2915205); +INSERT INTO SYS_CIDADES VALUES(462, 'Itagimirim', 5, 2915304); +INSERT INTO SYS_CIDADES VALUES(463, 'Itaguaçu da Bahia', 5, 2915353); +INSERT INTO SYS_CIDADES VALUES(464, 'Itaju do Colônia', 5, 2915403); +INSERT INTO SYS_CIDADES VALUES(465, 'Itajuípe', 5, 2915502); +INSERT INTO SYS_CIDADES VALUES(466, 'Itamaraju', 5, 2915601); +INSERT INTO SYS_CIDADES VALUES(467, 'Itamari', 5, 2915700); +INSERT INTO SYS_CIDADES VALUES(468, 'Itambé', 5, 2915809); +INSERT INTO SYS_CIDADES VALUES(469, 'Itanagra', 5, 2915908); +INSERT INTO SYS_CIDADES VALUES(470, 'Itanhém', 5, 2916005); +INSERT INTO SYS_CIDADES VALUES(471, 'Itaparica', 5, 2916104); +INSERT INTO SYS_CIDADES VALUES(472, 'Itapé', 5, 2916203); +INSERT INTO SYS_CIDADES VALUES(473, 'Itapebi', 5, 2916302); +INSERT INTO SYS_CIDADES VALUES(474, 'Itapetinga', 5, 2916401); +INSERT INTO SYS_CIDADES VALUES(475, 'Itapicuru', 5, 2916500); +INSERT INTO SYS_CIDADES VALUES(476, 'Itapitanga', 5, 2916609); +INSERT INTO SYS_CIDADES VALUES(477, 'Itaquara', 5, 2916708); +INSERT INTO SYS_CIDADES VALUES(478, 'Itarantim', 5, 2916807); +INSERT INTO SYS_CIDADES VALUES(479, 'Itatim', 5, 2916856); +INSERT INTO SYS_CIDADES VALUES(480, 'Itiruçu', 5, 2916906); +INSERT INTO SYS_CIDADES VALUES(481, 'Itiúba', 5, 2917003); +INSERT INTO SYS_CIDADES VALUES(482, 'Itororó', 5, 2917102); +INSERT INTO SYS_CIDADES VALUES(483, 'Ituaçu', 5, 2917201); +INSERT INTO SYS_CIDADES VALUES(484, 'Ituberá', 5, 2917300); +INSERT INTO SYS_CIDADES VALUES(485, 'Iuiú', 5, 2917334); +INSERT INTO SYS_CIDADES VALUES(486, 'Jaborandi', 5, 2917359); +INSERT INTO SYS_CIDADES VALUES(487, 'Jacaraci', 5, 2917409); +INSERT INTO SYS_CIDADES VALUES(488, 'Jacobina', 5, 2917508); +INSERT INTO SYS_CIDADES VALUES(489, 'Jaguaquara', 5, 2917607); +INSERT INTO SYS_CIDADES VALUES(490, 'Jaguarari', 5, 2917706); +INSERT INTO SYS_CIDADES VALUES(491, 'Jaguaripe', 5, 2917805); +INSERT INTO SYS_CIDADES VALUES(492, 'Jandaíra', 5, 2917904); +INSERT INTO SYS_CIDADES VALUES(493, 'Jequié', 5, 2918001); +INSERT INTO SYS_CIDADES VALUES(494, 'Jeremoabo', 5, 2918100); +INSERT INTO SYS_CIDADES VALUES(495, 'Jiquiriçá', 5, 2918209); +INSERT INTO SYS_CIDADES VALUES(496, 'Jitaúna', 5, 2918308); +INSERT INTO SYS_CIDADES VALUES(497, 'João Dourado', 5, 2918357); +INSERT INTO SYS_CIDADES VALUES(498, 'Juazeiro', 5, 2918407); +INSERT INTO SYS_CIDADES VALUES(499, 'Jucuruçu', 5, 2918456); +INSERT INTO SYS_CIDADES VALUES(500, 'Jussara', 5, 2918506); +INSERT INTO SYS_CIDADES VALUES(501, 'Jussari', 5, 2918555); +INSERT INTO SYS_CIDADES VALUES(502, 'Jussiape', 5, 2918605); +INSERT INTO SYS_CIDADES VALUES(503, 'Lafaiete Coutinho', 5, 2918704); +INSERT INTO SYS_CIDADES VALUES(504, 'Lagoa Real', 5, 2918753); +INSERT INTO SYS_CIDADES VALUES(505, 'Laje', 5, 2918803); +INSERT INTO SYS_CIDADES VALUES(506, 'Lajedão', 5, 2918902); +INSERT INTO SYS_CIDADES VALUES(507, 'Lajedinho', 5, 2919009); +INSERT INTO SYS_CIDADES VALUES(508, 'Lajedo do Tabocal', 5, 2919058); +INSERT INTO SYS_CIDADES VALUES(509, 'Lamarão', 5, 2919108); +INSERT INTO SYS_CIDADES VALUES(510, 'Lapão', 5, 2919157); +INSERT INTO SYS_CIDADES VALUES(511, 'Lauro de Freitas', 5, 2919207); +INSERT INTO SYS_CIDADES VALUES(512, 'Lençóis', 5, 2919306); +INSERT INTO SYS_CIDADES VALUES(513, 'Licínio de Almeida', 5, 2919405); +INSERT INTO SYS_CIDADES VALUES(514, 'Livramento de Nossa Senhora', 5, 2919504); +INSERT INTO SYS_CIDADES VALUES(515, 'Luís Eduardo Magalhães', 5, 2919553); +INSERT INTO SYS_CIDADES VALUES(516, 'Macajuba', 5, 2919603); +INSERT INTO SYS_CIDADES VALUES(517, 'Macarani', 5, 2919702); +INSERT INTO SYS_CIDADES VALUES(518, 'Macaúbas', 5, 2919801); +INSERT INTO SYS_CIDADES VALUES(519, 'Macururé', 5, 2919900); +INSERT INTO SYS_CIDADES VALUES(520, 'Madre de Deus', 5, 2919926); +INSERT INTO SYS_CIDADES VALUES(521, 'Maetinga', 5, 2919959); +INSERT INTO SYS_CIDADES VALUES(522, 'Maiquinique', 5, 2920007); +INSERT INTO SYS_CIDADES VALUES(523, 'Mairi', 5, 2920106); +INSERT INTO SYS_CIDADES VALUES(524, 'Malhada', 5, 2920205); +INSERT INTO SYS_CIDADES VALUES(525, 'Malhada de Pedras', 5, 2920304); +INSERT INTO SYS_CIDADES VALUES(526, 'Manoel Vitorino', 5, 2920403); +INSERT INTO SYS_CIDADES VALUES(527, 'Mansidão', 5, 2920452); +INSERT INTO SYS_CIDADES VALUES(528, 'Maracás', 5, 2920502); +INSERT INTO SYS_CIDADES VALUES(529, 'Maragogipe', 5, 2920601); +INSERT INTO SYS_CIDADES VALUES(530, 'Maraú', 5, 2920700); +INSERT INTO SYS_CIDADES VALUES(531, 'Marcionílio Souza', 5, 2920809); +INSERT INTO SYS_CIDADES VALUES(532, 'Mascote', 5, 2920908); +INSERT INTO SYS_CIDADES VALUES(533, 'Mata de São João', 5, 2921005); +INSERT INTO SYS_CIDADES VALUES(534, 'Matina', 5, 2921054); +INSERT INTO SYS_CIDADES VALUES(535, 'Medeiros Neto', 5, 2921104); +INSERT INTO SYS_CIDADES VALUES(536, 'Miguel Calmon', 5, 2921203); +INSERT INTO SYS_CIDADES VALUES(537, 'Milagres', 5, 2921302); +INSERT INTO SYS_CIDADES VALUES(538, 'Mirangaba', 5, 2921401); +INSERT INTO SYS_CIDADES VALUES(539, 'Mirante', 5, 2921450); +INSERT INTO SYS_CIDADES VALUES(540, 'Monte Santo', 5, 2921500); +INSERT INTO SYS_CIDADES VALUES(541, 'Morpará', 5, 2921609); +INSERT INTO SYS_CIDADES VALUES(542, 'Morro do Chapéu', 5, 2921708); +INSERT INTO SYS_CIDADES VALUES(543, 'Mortugaba', 5, 2921807); +INSERT INTO SYS_CIDADES VALUES(544, 'Mucugê', 5, 2921906); +INSERT INTO SYS_CIDADES VALUES(545, 'Mucuri', 5, 2922003); +INSERT INTO SYS_CIDADES VALUES(546, 'Mulungu do Morro', 5, 2922052); +INSERT INTO SYS_CIDADES VALUES(547, 'Mundo Novo', 5, 2922102); +INSERT INTO SYS_CIDADES VALUES(548, 'Muniz Ferreira', 5, 2922201); +INSERT INTO SYS_CIDADES VALUES(549, 'Muquém de São Francisco', 5, 2922250); +INSERT INTO SYS_CIDADES VALUES(550, 'Muritiba', 5, 2922300); +INSERT INTO SYS_CIDADES VALUES(551, 'Mutuípe', 5, 2922409); +INSERT INTO SYS_CIDADES VALUES(552, 'Nazaré', 5, 2922508); +INSERT INTO SYS_CIDADES VALUES(553, 'Nilo Peçanha', 5, 2922607); +INSERT INTO SYS_CIDADES VALUES(554, 'Nordestina', 5, 2922656); +INSERT INTO SYS_CIDADES VALUES(555, 'Nova Canaã', 5, 2922706); +INSERT INTO SYS_CIDADES VALUES(556, 'Nova Fátima', 5, 2922730); +INSERT INTO SYS_CIDADES VALUES(557, 'Nova Ibiá', 5, 2922755); +INSERT INTO SYS_CIDADES VALUES(558, 'Nova Itarana', 5, 2922805); +INSERT INTO SYS_CIDADES VALUES(559, 'Nova Redenção', 5, 2922854); +INSERT INTO SYS_CIDADES VALUES(560, 'Nova Soure', 5, 2922904); +INSERT INTO SYS_CIDADES VALUES(561, 'Nova Viçosa', 5, 2923001); +INSERT INTO SYS_CIDADES VALUES(562, 'Novo Horizonte', 5, 2923035); +INSERT INTO SYS_CIDADES VALUES(563, 'Novo Triunfo', 5, 2923050); +INSERT INTO SYS_CIDADES VALUES(564, 'Olindina', 5, 2923100); +INSERT INTO SYS_CIDADES VALUES(565, 'Oliveira dos Brejinhos', 5, 2923209); +INSERT INTO SYS_CIDADES VALUES(566, 'Ouriçangas', 5, 2923308); +INSERT INTO SYS_CIDADES VALUES(567, 'Ourolândia', 5, 2923357); +INSERT INTO SYS_CIDADES VALUES(568, 'Palmas de Monte Alto', 5, 2923407); +INSERT INTO SYS_CIDADES VALUES(569, 'Palmeiras', 5, 2923506); +INSERT INTO SYS_CIDADES VALUES(570, 'Paramirim', 5, 2923605); +INSERT INTO SYS_CIDADES VALUES(571, 'Paratinga', 5, 2923704); +INSERT INTO SYS_CIDADES VALUES(572, 'Paripiranga', 5, 2923803); +INSERT INTO SYS_CIDADES VALUES(573, 'Pau Brasil', 5, 2923902); +INSERT INTO SYS_CIDADES VALUES(574, 'Paulo Afonso', 5, 2924009); +INSERT INTO SYS_CIDADES VALUES(575, 'Pé de Serra', 5, 2924058); +INSERT INTO SYS_CIDADES VALUES(576, 'Pedrão', 5, 2924108); +INSERT INTO SYS_CIDADES VALUES(577, 'Pedro Alexandre', 5, 2924207); +INSERT INTO SYS_CIDADES VALUES(578, 'Piatã', 5, 2924306); +INSERT INTO SYS_CIDADES VALUES(579, 'Pilão Arcado', 5, 2924405); +INSERT INTO SYS_CIDADES VALUES(580, 'Pindaí', 5, 2924504); +INSERT INTO SYS_CIDADES VALUES(581, 'Pindobaçu', 5, 2924603); +INSERT INTO SYS_CIDADES VALUES(582, 'Pintadas', 5, 2924652); +INSERT INTO SYS_CIDADES VALUES(583, 'Piraí do Norte', 5, 2924678); +INSERT INTO SYS_CIDADES VALUES(584, 'Piripá', 5, 2924702); +INSERT INTO SYS_CIDADES VALUES(585, 'Piritiba', 5, 2924801); +INSERT INTO SYS_CIDADES VALUES(586, 'Planaltino', 5, 2924900); +INSERT INTO SYS_CIDADES VALUES(587, 'Planalto', 5, 2925006); +INSERT INTO SYS_CIDADES VALUES(588, 'Poções', 5, 2925105); +INSERT INTO SYS_CIDADES VALUES(589, 'Pojuca', 5, 2925204); +INSERT INTO SYS_CIDADES VALUES(590, 'Ponto Novo', 5, 2925253); +INSERT INTO SYS_CIDADES VALUES(591, 'Porto Seguro', 5, 2925303); +INSERT INTO SYS_CIDADES VALUES(592, 'Potiraguá', 5, 2925402); +INSERT INTO SYS_CIDADES VALUES(593, 'Prado', 5, 2925501); +INSERT INTO SYS_CIDADES VALUES(594, 'Presidente Dutra', 5, 2925600); +INSERT INTO SYS_CIDADES VALUES(595, 'Presidente Jânio Quadros', 5, 2925709); +INSERT INTO SYS_CIDADES VALUES(596, 'Presidente Tancredo Neves', 5, 2925758); +INSERT INTO SYS_CIDADES VALUES(597, 'Queimadas', 5, 2925808); +INSERT INTO SYS_CIDADES VALUES(598, 'Quijingue', 5, 2925907); +INSERT INTO SYS_CIDADES VALUES(599, 'Quixabeira', 5, 2925931); +INSERT INTO SYS_CIDADES VALUES(600, 'Rafael Jambeiro', 5, 2925956); +INSERT INTO SYS_CIDADES VALUES(601, 'Remanso', 5, 2926004); +INSERT INTO SYS_CIDADES VALUES(602, 'Retirolândia', 5, 2926103); +INSERT INTO SYS_CIDADES VALUES(603, 'Riachão das Neves', 5, 2926202); +INSERT INTO SYS_CIDADES VALUES(604, 'Riachão do Jacuípe', 5, 2926301); +INSERT INTO SYS_CIDADES VALUES(605, 'Riacho de Santana', 5, 2926400); +INSERT INTO SYS_CIDADES VALUES(606, 'Ribeira do Amparo', 5, 2926509); +INSERT INTO SYS_CIDADES VALUES(607, 'Ribeira do Pombal', 5, 2926608); +INSERT INTO SYS_CIDADES VALUES(608, 'Ribeirão do Largo', 5, 2926657); +INSERT INTO SYS_CIDADES VALUES(609, 'Rio de Contas', 5, 2926707); +INSERT INTO SYS_CIDADES VALUES(610, 'Rio do Antônio', 5, 2926806); +INSERT INTO SYS_CIDADES VALUES(611, 'Rio do Pires', 5, 2926905); +INSERT INTO SYS_CIDADES VALUES(612, 'Rio Real', 5, 2927002); +INSERT INTO SYS_CIDADES VALUES(613, 'Rodelas', 5, 2927101); +INSERT INTO SYS_CIDADES VALUES(614, 'Ruy Barbosa', 5, 2927200); +INSERT INTO SYS_CIDADES VALUES(615, 'Salinas da Margarida', 5, 2927309); +INSERT INTO SYS_CIDADES VALUES(616, 'Salvador', 5, 2927408); +INSERT INTO SYS_CIDADES VALUES(617, 'Santa Bárbara', 5, 2927507); +INSERT INTO SYS_CIDADES VALUES(618, 'Santa Brígida', 5, 2927606); +INSERT INTO SYS_CIDADES VALUES(619, 'Santa Cruz Cabrália', 5, 2927705); +INSERT INTO SYS_CIDADES VALUES(620, 'Santa Cruz da Vitória', 5, 2927804); +INSERT INTO SYS_CIDADES VALUES(621, 'Santa Inês', 5, 2927903); +INSERT INTO SYS_CIDADES VALUES(622, 'Santa Luzia', 5, 2928059); +INSERT INTO SYS_CIDADES VALUES(623, 'Santa Maria da Vitória', 5, 2928109); +INSERT INTO SYS_CIDADES VALUES(624, 'Santa Rita de Cássia', 5, 2928406); +INSERT INTO SYS_CIDADES VALUES(625, 'Santa Teresinha', 5, 2928505); +INSERT INTO SYS_CIDADES VALUES(626, 'Santaluz', 5, 2928000); +INSERT INTO SYS_CIDADES VALUES(627, 'Santana', 5, 2928208); +INSERT INTO SYS_CIDADES VALUES(628, 'Santanópolis', 5, 2928307); +INSERT INTO SYS_CIDADES VALUES(629, 'Santo Amaro', 5, 2928604); +INSERT INTO SYS_CIDADES VALUES(630, 'Santo Antônio de Jesus', 5, 2928703); +INSERT INTO SYS_CIDADES VALUES(631, 'Santo Estêvão', 5, 2928802); +INSERT INTO SYS_CIDADES VALUES(632, 'São Desidério', 5, 2928901); +INSERT INTO SYS_CIDADES VALUES(633, 'São Domingos', 5, 2928950); +INSERT INTO SYS_CIDADES VALUES(634, 'São Felipe', 5, 2929107); +INSERT INTO SYS_CIDADES VALUES(635, 'São Félix', 5, 2929008); +INSERT INTO SYS_CIDADES VALUES(636, 'São Félix do Coribe', 5, 2929057); +INSERT INTO SYS_CIDADES VALUES(637, 'São Francisco do Conde', 5, 2929206); +INSERT INTO SYS_CIDADES VALUES(638, 'São Gabriel', 5, 2929255); +INSERT INTO SYS_CIDADES VALUES(639, 'São Gonçalo dos Campos', 5, 2929305); +INSERT INTO SYS_CIDADES VALUES(640, 'São José da Vitória', 5, 2929354); +INSERT INTO SYS_CIDADES VALUES(641, 'São José do Jacuípe', 5, 2929370); +INSERT INTO SYS_CIDADES VALUES(642, 'São Miguel das Matas', 5, 2929404); +INSERT INTO SYS_CIDADES VALUES(643, 'São Sebastião do Passé', 5, 2929503); +INSERT INTO SYS_CIDADES VALUES(644, 'Sapeaçu', 5, 2929602); +INSERT INTO SYS_CIDADES VALUES(645, 'Sátiro Dias', 5, 2929701); +INSERT INTO SYS_CIDADES VALUES(646, 'Saubara', 5, 2929750); +INSERT INTO SYS_CIDADES VALUES(647, 'Saúde', 5, 2929800); +INSERT INTO SYS_CIDADES VALUES(648, 'Seabra', 5, 2929909); +INSERT INTO SYS_CIDADES VALUES(649, 'Sebastião Laranjeiras', 5, 2930006); +INSERT INTO SYS_CIDADES VALUES(650, 'Senhor do Bonfim', 5, 2930105); +INSERT INTO SYS_CIDADES VALUES(651, 'Sento Sé', 5, 2930204); +INSERT INTO SYS_CIDADES VALUES(652, 'Serra do Ramalho', 5, 2930154); +INSERT INTO SYS_CIDADES VALUES(653, 'Serra Dourada', 5, 2930303); +INSERT INTO SYS_CIDADES VALUES(654, 'Serra Preta', 5, 2930402); +INSERT INTO SYS_CIDADES VALUES(655, 'Serrinha', 5, 2930501); +INSERT INTO SYS_CIDADES VALUES(656, 'Serrolândia', 5, 2930600); +INSERT INTO SYS_CIDADES VALUES(657, 'Simões Filho', 5, 2930709); +INSERT INTO SYS_CIDADES VALUES(658, 'Sítio do Mato', 5, 2930758); +INSERT INTO SYS_CIDADES VALUES(659, 'Sítio do Quinto', 5, 2930766); +INSERT INTO SYS_CIDADES VALUES(660, 'Sobradinho', 5, 2930774); +INSERT INTO SYS_CIDADES VALUES(661, 'Souto Soares', 5, 2930808); +INSERT INTO SYS_CIDADES VALUES(662, 'Tabocas do Brejo Velho', 5, 2930907); +INSERT INTO SYS_CIDADES VALUES(663, 'Tanhaçu', 5, 2931004); +INSERT INTO SYS_CIDADES VALUES(664, 'Tanque Novo', 5, 2931053); +INSERT INTO SYS_CIDADES VALUES(665, 'Tanquinho', 5, 2931103); +INSERT INTO SYS_CIDADES VALUES(666, 'Taperoá', 5, 2931202); +INSERT INTO SYS_CIDADES VALUES(667, 'Tapiramutá', 5, 2931301); +INSERT INTO SYS_CIDADES VALUES(668, 'Teixeira de Freitas', 5, 2931350); +INSERT INTO SYS_CIDADES VALUES(669, 'Teodoro Sampaio', 5, 2931400); +INSERT INTO SYS_CIDADES VALUES(670, 'Teofilândia', 5, 2931509); +INSERT INTO SYS_CIDADES VALUES(671, 'Teolândia', 5, 2931608); +INSERT INTO SYS_CIDADES VALUES(672, 'Terra Nova', 5, 2931707); +INSERT INTO SYS_CIDADES VALUES(673, 'Tremedal', 5, 2931806); +INSERT INTO SYS_CIDADES VALUES(674, 'Tucano', 5, 2931905); +INSERT INTO SYS_CIDADES VALUES(675, 'Uauá', 5, 2932002); +INSERT INTO SYS_CIDADES VALUES(676, 'Ubaíra', 5, 2932101); +INSERT INTO SYS_CIDADES VALUES(677, 'Ubaitaba', 5, 2932200); +INSERT INTO SYS_CIDADES VALUES(678, 'Ubatã', 5, 2932309); +INSERT INTO SYS_CIDADES VALUES(679, 'Uibaí', 5, 2932408); +INSERT INTO SYS_CIDADES VALUES(680, 'Umburanas', 5, 2932457); +INSERT INTO SYS_CIDADES VALUES(681, 'Una', 5, 2932507); +INSERT INTO SYS_CIDADES VALUES(682, 'Urandi', 5, 2932606); +INSERT INTO SYS_CIDADES VALUES(683, 'Uruçuca', 5, 2932705); +INSERT INTO SYS_CIDADES VALUES(684, 'Utinga', 5, 2932804); +INSERT INTO SYS_CIDADES VALUES(685, 'Valença', 5, 2932903); +INSERT INTO SYS_CIDADES VALUES(686, 'Valente', 5, 2933000); +INSERT INTO SYS_CIDADES VALUES(687, 'Várzea da Roça', 5, 2933059); +INSERT INTO SYS_CIDADES VALUES(688, 'Várzea do Poço', 5, 2933109); +INSERT INTO SYS_CIDADES VALUES(689, 'Várzea Nova', 5, 2933158); +INSERT INTO SYS_CIDADES VALUES(690, 'Varzedo', 5, 2933174); +INSERT INTO SYS_CIDADES VALUES(691, 'Vera Cruz', 5, 2933208); +INSERT INTO SYS_CIDADES VALUES(692, 'Vereda', 5, 2933257); +INSERT INTO SYS_CIDADES VALUES(693, 'Vitória da Conquista', 5, 2933307); +INSERT INTO SYS_CIDADES VALUES(694, 'Wagner', 5, 2933406); +INSERT INTO SYS_CIDADES VALUES(695, 'Wanderley', 5, 2933455); +INSERT INTO SYS_CIDADES VALUES(696, 'Wenceslau Guimarães', 5, 2933505); +INSERT INTO SYS_CIDADES VALUES(697, 'Xique-Xique', 5, 2933604); +INSERT INTO SYS_CIDADES VALUES(698, 'Abaiara', 6, 2300101); +INSERT INTO SYS_CIDADES VALUES(699, 'Acarape', 6, 2300150); +INSERT INTO SYS_CIDADES VALUES(700, 'Acaraú', 6, 2300200); +INSERT INTO SYS_CIDADES VALUES(701, 'Acopiara', 6, 2300309); +INSERT INTO SYS_CIDADES VALUES(702, 'Aiuaba', 6, 2300408); +INSERT INTO SYS_CIDADES VALUES(703, 'Alcântaras', 6, 2300507); +INSERT INTO SYS_CIDADES VALUES(704, 'Altaneira', 6, 2300606); +INSERT INTO SYS_CIDADES VALUES(705, 'Alto Santo', 6, 2300705); +INSERT INTO SYS_CIDADES VALUES(706, 'Amontada', 6, 2300754); +INSERT INTO SYS_CIDADES VALUES(707, 'Antonina do Norte', 6, 2300804); +INSERT INTO SYS_CIDADES VALUES(708, 'Apuiarés', 6, 2300903); +INSERT INTO SYS_CIDADES VALUES(709, 'Aquiraz', 6, 2301000); +INSERT INTO SYS_CIDADES VALUES(710, 'Aracati', 6, 2301109); +INSERT INTO SYS_CIDADES VALUES(711, 'Aracoiaba', 6, 2301208); +INSERT INTO SYS_CIDADES VALUES(712, 'Ararendá', 6, 2301257); +INSERT INTO SYS_CIDADES VALUES(713, 'Araripe', 6, 2301307); +INSERT INTO SYS_CIDADES VALUES(714, 'Aratuba', 6, 2301406); +INSERT INTO SYS_CIDADES VALUES(715, 'Arneiroz', 6, 2301505); +INSERT INTO SYS_CIDADES VALUES(716, 'Assaré', 6, 2301604); +INSERT INTO SYS_CIDADES VALUES(717, 'Aurora', 6, 2301703); +INSERT INTO SYS_CIDADES VALUES(718, 'Baixio', 6, 2301802); +INSERT INTO SYS_CIDADES VALUES(719, 'Banabuiú', 6, 2301851); +INSERT INTO SYS_CIDADES VALUES(720, 'Barbalha', 6, 2301901); +INSERT INTO SYS_CIDADES VALUES(721, 'Barreira', 6, 2301950); +INSERT INTO SYS_CIDADES VALUES(722, 'Barro', 6, 2302008); +INSERT INTO SYS_CIDADES VALUES(723, 'Barroquinha', 6, 2302057); +INSERT INTO SYS_CIDADES VALUES(724, 'Baturité', 6, 2302107); +INSERT INTO SYS_CIDADES VALUES(725, 'Beberibe', 6, 2302206); +INSERT INTO SYS_CIDADES VALUES(726, 'Bela Cruz', 6, 2302305); +INSERT INTO SYS_CIDADES VALUES(727, 'Boa Viagem', 6, 2302404); +INSERT INTO SYS_CIDADES VALUES(728, 'Brejo Santo', 6, 2302503); +INSERT INTO SYS_CIDADES VALUES(729, 'Camocim', 6, 2302602); +INSERT INTO SYS_CIDADES VALUES(730, 'Campos Sales', 6, 2302701); +INSERT INTO SYS_CIDADES VALUES(731, 'Canindé', 6, 2302800); +INSERT INTO SYS_CIDADES VALUES(732, 'Capistrano', 6, 2302909); +INSERT INTO SYS_CIDADES VALUES(733, 'Caridade', 6, 2303006); +INSERT INTO SYS_CIDADES VALUES(734, 'Cariré', 6, 2303105); +INSERT INTO SYS_CIDADES VALUES(735, 'Caririaçu', 6, 2303204); +INSERT INTO SYS_CIDADES VALUES(736, 'Cariús', 6, 2303303); +INSERT INTO SYS_CIDADES VALUES(737, 'Carnaubal', 6, 2303402); +INSERT INTO SYS_CIDADES VALUES(738, 'Cascavel', 6, 2303501); +INSERT INTO SYS_CIDADES VALUES(739, 'Catarina', 6, 2303600); +INSERT INTO SYS_CIDADES VALUES(740, 'Catunda', 6, 2303659); +INSERT INTO SYS_CIDADES VALUES(741, 'Caucaia', 6, 2303709); +INSERT INTO SYS_CIDADES VALUES(742, 'Cedro', 6, 2303808); +INSERT INTO SYS_CIDADES VALUES(743, 'Chaval', 6, 2303907); +INSERT INTO SYS_CIDADES VALUES(744, 'Choró', 6, 2303931); +INSERT INTO SYS_CIDADES VALUES(745, 'Chorozinho', 6, 2303956); +INSERT INTO SYS_CIDADES VALUES(746, 'Coreaú', 6, 2304004); +INSERT INTO SYS_CIDADES VALUES(747, 'Crateús', 6, 2304103); +INSERT INTO SYS_CIDADES VALUES(748, 'Crato', 6, 2304202); +INSERT INTO SYS_CIDADES VALUES(749, 'Croatá', 6, 2304236); +INSERT INTO SYS_CIDADES VALUES(750, 'Cruz', 6, 2304251); +INSERT INTO SYS_CIDADES VALUES(751, 'Deputado Irapuan Pinheiro', 6, 2304269); +INSERT INTO SYS_CIDADES VALUES(752, 'Ererê', 6, 2304277); +INSERT INTO SYS_CIDADES VALUES(753, 'Eusébio', 6, 2304285); +INSERT INTO SYS_CIDADES VALUES(754, 'Farias Brito', 6, 2304301); +INSERT INTO SYS_CIDADES VALUES(755, 'Forquilha', 6, 2304350); +INSERT INTO SYS_CIDADES VALUES(756, 'Fortaleza', 6, 2304400); +INSERT INTO SYS_CIDADES VALUES(757, 'Fortim', 6, 2304459); +INSERT INTO SYS_CIDADES VALUES(758, 'Frecheirinha', 6, 2304509); +INSERT INTO SYS_CIDADES VALUES(759, 'General Sampaio', 6, 2304608); +INSERT INTO SYS_CIDADES VALUES(760, 'Graça', 6, 2304657); +INSERT INTO SYS_CIDADES VALUES(761, 'Granja', 6, 2304707); +INSERT INTO SYS_CIDADES VALUES(762, 'Granjeiro', 6, 2304806); +INSERT INTO SYS_CIDADES VALUES(763, 'Groaíras', 6, 2304905); +INSERT INTO SYS_CIDADES VALUES(764, 'Guaiúba', 6, 2304954); +INSERT INTO SYS_CIDADES VALUES(765, 'Guaraciaba do Norte', 6, 2305001); +INSERT INTO SYS_CIDADES VALUES(766, 'Guaramiranga', 6, 2305100); +INSERT INTO SYS_CIDADES VALUES(767, 'Hidrolândia', 6, 2305209); +INSERT INTO SYS_CIDADES VALUES(768, 'Horizonte', 6, 2305233); +INSERT INTO SYS_CIDADES VALUES(769, 'Ibaretama', 6, 2305266); +INSERT INTO SYS_CIDADES VALUES(770, 'Ibiapina', 6, 2305308); +INSERT INTO SYS_CIDADES VALUES(771, 'Ibicuitinga', 6, 2305332); +INSERT INTO SYS_CIDADES VALUES(772, 'Icapuí', 6, 2305357); +INSERT INTO SYS_CIDADES VALUES(773, 'Icó', 6, 2305407); +INSERT INTO SYS_CIDADES VALUES(774, 'Iguatu', 6, 2305506); +INSERT INTO SYS_CIDADES VALUES(775, 'Independência', 6, 2305605); +INSERT INTO SYS_CIDADES VALUES(776, 'Ipaporanga', 6, 2305654); +INSERT INTO SYS_CIDADES VALUES(777, 'Ipaumirim', 6, 2305704); +INSERT INTO SYS_CIDADES VALUES(778, 'Ipu', 6, 2305803); +INSERT INTO SYS_CIDADES VALUES(779, 'Ipueiras', 6, 2305902); +INSERT INTO SYS_CIDADES VALUES(780, 'Iracema', 6, 2306009); +INSERT INTO SYS_CIDADES VALUES(781, 'Irauçuba', 6, 2306108); +INSERT INTO SYS_CIDADES VALUES(782, 'Itaiçaba', 6, 2306207); +INSERT INTO SYS_CIDADES VALUES(783, 'Itaitinga', 6, 2306256); +INSERT INTO SYS_CIDADES VALUES(784, 'Itapagé', 6, 2306306); +INSERT INTO SYS_CIDADES VALUES(785, 'Itapipoca', 6, 2306405); +INSERT INTO SYS_CIDADES VALUES(786, 'Itapiúna', 6, 2306504); +INSERT INTO SYS_CIDADES VALUES(787, 'Itarema', 6, 2306553); +INSERT INTO SYS_CIDADES VALUES(788, 'Itatira', 6, 2306603); +INSERT INTO SYS_CIDADES VALUES(789, 'Jaguaretama', 6, 2306702); +INSERT INTO SYS_CIDADES VALUES(790, 'Jaguaribara', 6, 2306801); +INSERT INTO SYS_CIDADES VALUES(791, 'Jaguaribe', 6, 2306900); +INSERT INTO SYS_CIDADES VALUES(792, 'Jaguaruana', 6, 2307007); +INSERT INTO SYS_CIDADES VALUES(793, 'Jardim', 6, 2307106); +INSERT INTO SYS_CIDADES VALUES(794, 'Jati', 6, 2307205); +INSERT INTO SYS_CIDADES VALUES(795, 'Jijoca de Jericoacoara', 6, 2307254); +INSERT INTO SYS_CIDADES VALUES(796, 'Juazeiro do Norte', 6, 2307304); +INSERT INTO SYS_CIDADES VALUES(797, 'Jucás', 6, 2307403); +INSERT INTO SYS_CIDADES VALUES(798, 'Lavras da Mangabeira', 6, 2307502); +INSERT INTO SYS_CIDADES VALUES(799, 'Limoeiro do Norte', 6, 2307601); +INSERT INTO SYS_CIDADES VALUES(800, 'Madalena', 6, 2307635); +INSERT INTO SYS_CIDADES VALUES(801, 'Maracanaú', 6, 2307650); +INSERT INTO SYS_CIDADES VALUES(802, 'Maranguape', 6, 2307700); +INSERT INTO SYS_CIDADES VALUES(803, 'Marco', 6, 2307809); +INSERT INTO SYS_CIDADES VALUES(804, 'Martinópole', 6, 2307908); +INSERT INTO SYS_CIDADES VALUES(805, 'Massapê', 6, 2308005); +INSERT INTO SYS_CIDADES VALUES(806, 'Mauriti', 6, 2308104); +INSERT INTO SYS_CIDADES VALUES(807, 'Meruoca', 6, 2308203); +INSERT INTO SYS_CIDADES VALUES(808, 'Milagres', 6, 2308302); +INSERT INTO SYS_CIDADES VALUES(809, 'Milhã', 6, 2308351); +INSERT INTO SYS_CIDADES VALUES(810, 'Miraíma', 6, 2308377); +INSERT INTO SYS_CIDADES VALUES(811, 'Missão Velha', 6, 2308401); +INSERT INTO SYS_CIDADES VALUES(812, 'Mombaça', 6, 2308500); +INSERT INTO SYS_CIDADES VALUES(813, 'Monsenhor Tabosa', 6, 2308609); +INSERT INTO SYS_CIDADES VALUES(814, 'Morada Nova', 6, 2308708); +INSERT INTO SYS_CIDADES VALUES(815, 'Moraújo', 6, 2308807); +INSERT INTO SYS_CIDADES VALUES(816, 'Morrinhos', 6, 2308906); +INSERT INTO SYS_CIDADES VALUES(817, 'Mucambo', 6, 2309003); +INSERT INTO SYS_CIDADES VALUES(818, 'Mulungu', 6, 2309102); +INSERT INTO SYS_CIDADES VALUES(819, 'Nova Olinda', 6, 2309201); +INSERT INTO SYS_CIDADES VALUES(820, 'Nova Russas', 6, 2309300); +INSERT INTO SYS_CIDADES VALUES(821, 'Novo Oriente', 6, 2309409); +INSERT INTO SYS_CIDADES VALUES(822, 'Ocara', 6, 2309458); +INSERT INTO SYS_CIDADES VALUES(823, 'Orós', 6, 2309508); +INSERT INTO SYS_CIDADES VALUES(824, 'Pacajus', 6, 2309607); +INSERT INTO SYS_CIDADES VALUES(825, 'Pacatuba', 6, 2309706); +INSERT INTO SYS_CIDADES VALUES(826, 'Pacoti', 6, 2309805); +INSERT INTO SYS_CIDADES VALUES(827, 'Pacujá', 6, 2309904); +INSERT INTO SYS_CIDADES VALUES(828, 'Palhano', 6, 2310001); +INSERT INTO SYS_CIDADES VALUES(829, 'Palmácia', 6, 2310100); +INSERT INTO SYS_CIDADES VALUES(830, 'Paracuru', 6, 2310209); +INSERT INTO SYS_CIDADES VALUES(831, 'Paraipaba', 6, 2310258); +INSERT INTO SYS_CIDADES VALUES(832, 'Parambu', 6, 2310308); +INSERT INTO SYS_CIDADES VALUES(833, 'Paramoti', 6, 2310407); +INSERT INTO SYS_CIDADES VALUES(834, 'Pedra Branca', 6, 2310506); +INSERT INTO SYS_CIDADES VALUES(835, 'Penaforte', 6, 2310605); +INSERT INTO SYS_CIDADES VALUES(836, 'Pentecoste', 6, 2310704); +INSERT INTO SYS_CIDADES VALUES(837, 'Pereiro', 6, 2310803); +INSERT INTO SYS_CIDADES VALUES(838, 'Pindoretama', 6, 2310852); +INSERT INTO SYS_CIDADES VALUES(839, 'Piquet Carneiro', 6, 2310902); +INSERT INTO SYS_CIDADES VALUES(840, 'Pires Ferreira', 6, 2310951); +INSERT INTO SYS_CIDADES VALUES(841, 'Poranga', 6, 2311009); +INSERT INTO SYS_CIDADES VALUES(842, 'Porteiras', 6, 2311108); +INSERT INTO SYS_CIDADES VALUES(843, 'Potengi', 6, 2311207); +INSERT INTO SYS_CIDADES VALUES(844, 'Potiretama', 6, 2311231); +INSERT INTO SYS_CIDADES VALUES(845, 'Quiterianópolis', 6, 2311264); +INSERT INTO SYS_CIDADES VALUES(846, 'Quixadá', 6, 2311306); +INSERT INTO SYS_CIDADES VALUES(847, 'Quixelô', 6, 2311355); +INSERT INTO SYS_CIDADES VALUES(848, 'Quixeramobim', 6, 2311405); +INSERT INTO SYS_CIDADES VALUES(849, 'Quixeré', 6, 2311504); +INSERT INTO SYS_CIDADES VALUES(850, 'Redenção', 6, 2311603); +INSERT INTO SYS_CIDADES VALUES(851, 'Reriutaba', 6, 2311702); +INSERT INTO SYS_CIDADES VALUES(852, 'Russas', 6, 2311801); +INSERT INTO SYS_CIDADES VALUES(853, 'Saboeiro', 6, 2311900); +INSERT INTO SYS_CIDADES VALUES(854, 'Salitre', 6, 2311959); +INSERT INTO SYS_CIDADES VALUES(855, 'Santa Quitéria', 6, 2312205); +INSERT INTO SYS_CIDADES VALUES(856, 'Santana do Acaraú', 6, 2312007); +INSERT INTO SYS_CIDADES VALUES(857, 'Santana do Cariri', 6, 2312106); +INSERT INTO SYS_CIDADES VALUES(858, 'São Benedito', 6, 2312304); +INSERT INTO SYS_CIDADES VALUES(859, 'São Gonçalo do Amarante', 6, 2312403); +INSERT INTO SYS_CIDADES VALUES(860, 'São João do Jaguaribe', 6, 2312502); +INSERT INTO SYS_CIDADES VALUES(861, 'São Luís do Curu', 6, 2312601); +INSERT INTO SYS_CIDADES VALUES(862, 'Senador Pompeu', 6, 2312700); +INSERT INTO SYS_CIDADES VALUES(863, 'Senador Sá', 6, 2312809); +INSERT INTO SYS_CIDADES VALUES(864, 'Sobral', 6, 2312908); +INSERT INTO SYS_CIDADES VALUES(865, 'Solonópole', 6, 2313005); +INSERT INTO SYS_CIDADES VALUES(866, 'Tabuleiro do Norte', 6, 2313104); +INSERT INTO SYS_CIDADES VALUES(867, 'Tamboril', 6, 2313203); +INSERT INTO SYS_CIDADES VALUES(868, 'Tarrafas', 6, 2313252); +INSERT INTO SYS_CIDADES VALUES(869, 'Tauá', 6, 2313302); +INSERT INTO SYS_CIDADES VALUES(870, 'Tejuçuoca', 6, 2313351); +INSERT INTO SYS_CIDADES VALUES(871, 'Tianguá', 6, 2313401); +INSERT INTO SYS_CIDADES VALUES(872, 'Trairi', 6, 2313500); +INSERT INTO SYS_CIDADES VALUES(873, 'Tururu', 6, 2313559); +INSERT INTO SYS_CIDADES VALUES(874, 'Ubajara', 6, 2313609); +INSERT INTO SYS_CIDADES VALUES(875, 'Umari', 6, 2313708); +INSERT INTO SYS_CIDADES VALUES(876, 'Umirim', 6, 2313757); +INSERT INTO SYS_CIDADES VALUES(877, 'Uruburetama', 6, 2313807); +INSERT INTO SYS_CIDADES VALUES(878, 'Uruoca', 6, 2313906); +INSERT INTO SYS_CIDADES VALUES(879, 'Varjota', 6, 2313955); +INSERT INTO SYS_CIDADES VALUES(880, 'Várzea Alegre', 6, 2314003); +INSERT INTO SYS_CIDADES VALUES(881, 'Viçosa do Ceará', 6, 2314102); +INSERT INTO SYS_CIDADES VALUES(882, 'Brasília', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(883, 'Abadia de Goiás', 9, 5200050); +INSERT INTO SYS_CIDADES VALUES(884, 'Abadiânia', 9, 5200100); +INSERT INTO SYS_CIDADES VALUES(885, 'Acreúna', 9, 5200134); +INSERT INTO SYS_CIDADES VALUES(886, 'Adelândia', 9, 5200159); +INSERT INTO SYS_CIDADES VALUES(887, 'Água Fria de Goiás', 9, 5200175); +INSERT INTO SYS_CIDADES VALUES(888, 'Água Limpa', 9, 5200209); +INSERT INTO SYS_CIDADES VALUES(889, 'Águas Lindas de Goiás', 9, 5200258); +INSERT INTO SYS_CIDADES VALUES(890, 'Alexânia', 9, 5200308); +INSERT INTO SYS_CIDADES VALUES(891, 'Aloândia', 9, 5200506); +INSERT INTO SYS_CIDADES VALUES(892, 'Alto Horizonte', 9, 5200555); +INSERT INTO SYS_CIDADES VALUES(893, 'Alto Paraíso de Goiás', 9, 5200605); +INSERT INTO SYS_CIDADES VALUES(894, 'Alvorada do Norte', 9, 5200803); +INSERT INTO SYS_CIDADES VALUES(895, 'Amaralina', 9, 5200829); +INSERT INTO SYS_CIDADES VALUES(896, 'Americano do Brasil', 9, 5200852); +INSERT INTO SYS_CIDADES VALUES(897, 'Amorinópolis', 9, 5200902); +INSERT INTO SYS_CIDADES VALUES(898, 'Anápolis', 9, 5201108); +INSERT INTO SYS_CIDADES VALUES(899, 'Anhanguera', 9, 5201207); +INSERT INTO SYS_CIDADES VALUES(900, 'Anicuns', 9, 5201306); +INSERT INTO SYS_CIDADES VALUES(901, 'Aparecida de Goiânia', 9, 5201405); +INSERT INTO SYS_CIDADES VALUES(902, 'Aparecida do Rio Doce', 9, 5201454); +INSERT INTO SYS_CIDADES VALUES(903, 'Aporé', 9, 5201504); +INSERT INTO SYS_CIDADES VALUES(904, 'Araçu', 9, 5201603); +INSERT INTO SYS_CIDADES VALUES(905, 'Aragarças', 9, 5201702); +INSERT INTO SYS_CIDADES VALUES(906, 'Aragoiânia', 9, 5201801); +INSERT INTO SYS_CIDADES VALUES(907, 'Araguapaz', 9, 5202155); +INSERT INTO SYS_CIDADES VALUES(908, 'Arenópolis', 9, 5202353); +INSERT INTO SYS_CIDADES VALUES(909, 'Aruanã', 9, 5202502); +INSERT INTO SYS_CIDADES VALUES(910, 'Aurilândia', 9, 5202601); +INSERT INTO SYS_CIDADES VALUES(911, 'Avelinópolis', 9, 5202809); +INSERT INTO SYS_CIDADES VALUES(912, 'Baliza', 9, 5203104); +INSERT INTO SYS_CIDADES VALUES(913, 'Barro Alto', 9, 5203203); +INSERT INTO SYS_CIDADES VALUES(914, 'Bela Vista de Goiás', 9, 5203302); +INSERT INTO SYS_CIDADES VALUES(915, 'Bom Jardim de Goiás', 9, 5203401); +INSERT INTO SYS_CIDADES VALUES(916, 'Bom Jesus de Goiás', 9, 5203500); +INSERT INTO SYS_CIDADES VALUES(917, 'Bonfinópolis', 9, 5203559); +INSERT INTO SYS_CIDADES VALUES(918, 'Bonópolis', 9, 5203575); +INSERT INTO SYS_CIDADES VALUES(919, 'Brazabrantes', 9, 5203609); +INSERT INTO SYS_CIDADES VALUES(920, 'Britânia', 9, 5203807); +INSERT INTO SYS_CIDADES VALUES(921, 'Buriti Alegre', 9, 5203906); +INSERT INTO SYS_CIDADES VALUES(922, 'Buriti de Goiás', 9, 5203939); +INSERT INTO SYS_CIDADES VALUES(923, 'Buritinópolis', 9, 5203962); +INSERT INTO SYS_CIDADES VALUES(924, 'Cabeceiras', 9, 5204003); +INSERT INTO SYS_CIDADES VALUES(925, 'Cachoeira Alta', 9, 5204102); +INSERT INTO SYS_CIDADES VALUES(926, 'Cachoeira de Goiás', 9, 5204201); +INSERT INTO SYS_CIDADES VALUES(927, 'Cachoeira Dourada', 9, 5204250); +INSERT INTO SYS_CIDADES VALUES(928, 'Caçu', 9, 5204300); +INSERT INTO SYS_CIDADES VALUES(929, 'Caiapônia', 9, 5204409); +INSERT INTO SYS_CIDADES VALUES(930, 'Caldas Novas', 9, 5204508); +INSERT INTO SYS_CIDADES VALUES(931, 'Caldazinha', 9, 5204557); +INSERT INTO SYS_CIDADES VALUES(932, 'Campestre de Goiás', 9, 5204607); +INSERT INTO SYS_CIDADES VALUES(933, 'Campinaçu', 9, 5204656); +INSERT INTO SYS_CIDADES VALUES(934, 'Campinorte', 9, 5204706); +INSERT INTO SYS_CIDADES VALUES(935, 'Campo Alegre de Goiás', 9, 5204805); +INSERT INTO SYS_CIDADES VALUES(936, 'Campo Limpo de Goiás', 9, 5204854); +INSERT INTO SYS_CIDADES VALUES(937, 'Campos Belos', 9, 5204904); +INSERT INTO SYS_CIDADES VALUES(938, 'Campos Verdes', 9, 5204953); +INSERT INTO SYS_CIDADES VALUES(939, 'Carmo do Rio Verde', 9, 5205000); +INSERT INTO SYS_CIDADES VALUES(940, 'Castelândia', 9, 5205059); +INSERT INTO SYS_CIDADES VALUES(941, 'Catalão', 9, 5205109); +INSERT INTO SYS_CIDADES VALUES(942, 'Caturaí', 9, 5205208); +INSERT INTO SYS_CIDADES VALUES(943, 'Cavalcante', 9, 5205307); +INSERT INTO SYS_CIDADES VALUES(944, 'Ceres', 9, 5205406); +INSERT INTO SYS_CIDADES VALUES(945, 'Cezarina', 9, 5205455); +INSERT INTO SYS_CIDADES VALUES(946, 'Chapadão do Céu', 9, 5205471); +INSERT INTO SYS_CIDADES VALUES(947, 'Cidade Ocidental', 9, 5205497); +INSERT INTO SYS_CIDADES VALUES(948, 'Cocalzinho de Goiás', 9, 5205513); +INSERT INTO SYS_CIDADES VALUES(949, 'Colinas do Sul', 9, 5205521); +INSERT INTO SYS_CIDADES VALUES(950, 'Córrego do Ouro', 9, 5205703); +INSERT INTO SYS_CIDADES VALUES(951, 'Corumbá de Goiás', 9, 5205802); +INSERT INTO SYS_CIDADES VALUES(952, 'Corumbaíba', 9, 5205901); +INSERT INTO SYS_CIDADES VALUES(953, 'Cristalina', 9, 5206206); +INSERT INTO SYS_CIDADES VALUES(954, 'Cristianópolis', 9, 5206305); +INSERT INTO SYS_CIDADES VALUES(955, 'Crixás', 9, 5206404); +INSERT INTO SYS_CIDADES VALUES(956, 'Cromínia', 9, 5206503); +INSERT INTO SYS_CIDADES VALUES(957, 'Cumari', 9, 5206602); +INSERT INTO SYS_CIDADES VALUES(958, 'Damianópolis', 9, 5206701); +INSERT INTO SYS_CIDADES VALUES(959, 'Damolândia', 9, 5206800); +INSERT INTO SYS_CIDADES VALUES(960, 'Davinópolis', 9, 5206909); +INSERT INTO SYS_CIDADES VALUES(961, 'Diorama', 9, 5207105); +INSERT INTO SYS_CIDADES VALUES(962, 'Divinópolis de Goiás', 9, 5208301); +INSERT INTO SYS_CIDADES VALUES(963, 'Doverlândia', 9, 5207253); +INSERT INTO SYS_CIDADES VALUES(964, 'Edealina', 9, 5207352); +INSERT INTO SYS_CIDADES VALUES(965, 'Edéia', 9, 5207402); +INSERT INTO SYS_CIDADES VALUES(966, 'Estrela do Norte', 9, 5207501); +INSERT INTO SYS_CIDADES VALUES(967, 'Faina', 9, 5207535); +INSERT INTO SYS_CIDADES VALUES(968, 'Fazenda Nova', 9, 5207600); +INSERT INTO SYS_CIDADES VALUES(969, 'Firminópolis', 9, 5207808); +INSERT INTO SYS_CIDADES VALUES(970, 'Flores de Goiás', 9, 5207907); +INSERT INTO SYS_CIDADES VALUES(971, 'Formosa', 9, 5208004); +INSERT INTO SYS_CIDADES VALUES(972, 'Formoso', 9, 5208103); +INSERT INTO SYS_CIDADES VALUES(973, 'Gameleira de Goiás', 9, 5208152); +INSERT INTO SYS_CIDADES VALUES(974, 'Goianápolis', 9, 5208400); +INSERT INTO SYS_CIDADES VALUES(975, 'Goiandira', 9, 5208509); +INSERT INTO SYS_CIDADES VALUES(976, 'Goianésia', 9, 5208608); +INSERT INTO SYS_CIDADES VALUES(977, 'Goiânia', 9, 5208707); +INSERT INTO SYS_CIDADES VALUES(978, 'Goianira', 9, 5208806); +INSERT INTO SYS_CIDADES VALUES(979, 'Goiás', 9, 5208905); +INSERT INTO SYS_CIDADES VALUES(980, 'Goiatuba', 9, 5209101); +INSERT INTO SYS_CIDADES VALUES(981, 'Gouvelândia', 9, 5209150); +INSERT INTO SYS_CIDADES VALUES(982, 'Guapó', 9, 5209200); +INSERT INTO SYS_CIDADES VALUES(983, 'Guaraíta', 9, 5209291); +INSERT INTO SYS_CIDADES VALUES(984, 'Guarani de Goiás', 9, 5209408); +INSERT INTO SYS_CIDADES VALUES(985, 'Guarinos', 9, 5209457); +INSERT INTO SYS_CIDADES VALUES(986, 'Heitoraí', 9, 5209606); +INSERT INTO SYS_CIDADES VALUES(987, 'Hidrolândia', 9, 5209705); +INSERT INTO SYS_CIDADES VALUES(988, 'Hidrolina', 9, 5209804); +INSERT INTO SYS_CIDADES VALUES(989, 'Iaciara', 9, 5209903); +INSERT INTO SYS_CIDADES VALUES(990, 'Inaciolândia', 9, 5209937); +INSERT INTO SYS_CIDADES VALUES(991, 'Indiara', 9, 5209952); +INSERT INTO SYS_CIDADES VALUES(992, 'Inhumas', 9, 5210000); +INSERT INTO SYS_CIDADES VALUES(993, 'Ipameri', 9, 5210109); +INSERT INTO SYS_CIDADES VALUES(994, 'Ipiranga de Goiás', 9, 5210158); +INSERT INTO SYS_CIDADES VALUES(995, 'Iporá', 9, 5210208); +INSERT INTO SYS_CIDADES VALUES(996, 'Israelândia', 9, 5210307); +INSERT INTO SYS_CIDADES VALUES(997, 'Itaberaí', 9, 5210406); +INSERT INTO SYS_CIDADES VALUES(998, 'Itaguari', 9, 5210562); +INSERT INTO SYS_CIDADES VALUES(999, 'Itaguaru', 9, 5210604); +INSERT INTO SYS_CIDADES VALUES(1000, 'Itajá', 9, 5210802); +INSERT INTO SYS_CIDADES VALUES(1001, 'Itapaci', 9, 5210901); +INSERT INTO SYS_CIDADES VALUES(1002, 'Itapirapuã', 9, 5211008); +INSERT INTO SYS_CIDADES VALUES(1003, 'Itapuranga', 9, 5211206); +INSERT INTO SYS_CIDADES VALUES(1004, 'Itarumã', 9, 5211305); +INSERT INTO SYS_CIDADES VALUES(1005, 'Itauçu', 9, 5211404); +INSERT INTO SYS_CIDADES VALUES(1006, 'Itumbiara', 9, 5211503); +INSERT INTO SYS_CIDADES VALUES(1007, 'Ivolândia', 9, 5211602); +INSERT INTO SYS_CIDADES VALUES(1008, 'Jandaia', 9, 5211701); +INSERT INTO SYS_CIDADES VALUES(1009, 'Jaraguá', 9, 5211800); +INSERT INTO SYS_CIDADES VALUES(1010, 'Jataí', 9, 5211909); +INSERT INTO SYS_CIDADES VALUES(1011, 'Jaupaci', 9, 5212006); +INSERT INTO SYS_CIDADES VALUES(1012, 'Jesúpolis', 9, 5212055); +INSERT INTO SYS_CIDADES VALUES(1013, 'Joviânia', 9, 5212105); +INSERT INTO SYS_CIDADES VALUES(1014, 'Jussara', 9, 5212204); +INSERT INTO SYS_CIDADES VALUES(1015, 'Lagoa Santa', 9, 5212253); +INSERT INTO SYS_CIDADES VALUES(1016, 'Leopoldo de Bulhões', 9, 5212303); +INSERT INTO SYS_CIDADES VALUES(1017, 'Luziânia', 9, 5212501); +INSERT INTO SYS_CIDADES VALUES(1018, 'Mairipotaba', 9, 5212600); +INSERT INTO SYS_CIDADES VALUES(1019, 'Mambaí', 9, 5212709); +INSERT INTO SYS_CIDADES VALUES(1020, 'Mara Rosa', 9, 5212808); +INSERT INTO SYS_CIDADES VALUES(1021, 'Marzagão', 9, 5212907); +INSERT INTO SYS_CIDADES VALUES(1022, 'Matrinchã', 9, 5212956); +INSERT INTO SYS_CIDADES VALUES(1023, 'Maurilândia', 9, 5213004); +INSERT INTO SYS_CIDADES VALUES(1024, 'Mimoso de Goiás', 9, 5213053); +INSERT INTO SYS_CIDADES VALUES(1025, 'Minaçu', 9, 5213087); +INSERT INTO SYS_CIDADES VALUES(1026, 'Mineiros', 9, 5213103); +INSERT INTO SYS_CIDADES VALUES(1027, 'Moiporá', 9, 5213400); +INSERT INTO SYS_CIDADES VALUES(1028, 'Monte Alegre de Goiás', 9, 5213509); +INSERT INTO SYS_CIDADES VALUES(1029, 'Montes Claros de Goiás', 9, 5213707); +INSERT INTO SYS_CIDADES VALUES(1030, 'Montividiu', 9, 5213756); +INSERT INTO SYS_CIDADES VALUES(1031, 'Montividiu do Norte', 9, 5213772); +INSERT INTO SYS_CIDADES VALUES(1032, 'Morrinhos', 9, 5213806); +INSERT INTO SYS_CIDADES VALUES(1033, 'Morro Agudo de Goiás', 9, 5213855); +INSERT INTO SYS_CIDADES VALUES(1034, 'Mossâmedes', 9, 5213905); +INSERT INTO SYS_CIDADES VALUES(1035, 'Mozarlândia', 9, 5214002); +INSERT INTO SYS_CIDADES VALUES(1036, 'Mundo Novo', 9, 5214051); +INSERT INTO SYS_CIDADES VALUES(1037, 'Mutunópolis', 9, 5214101); +INSERT INTO SYS_CIDADES VALUES(1038, 'Nazário', 9, 5214408); +INSERT INTO SYS_CIDADES VALUES(1039, 'Nerópolis', 9, 5214507); +INSERT INTO SYS_CIDADES VALUES(1040, 'Niquelândia', 9, 5214606); +INSERT INTO SYS_CIDADES VALUES(1041, 'Nova América', 9, 5214705); +INSERT INTO SYS_CIDADES VALUES(1042, 'Nova Aurora', 9, 5214804); +INSERT INTO SYS_CIDADES VALUES(1043, 'Nova Crixás', 9, 5214838); +INSERT INTO SYS_CIDADES VALUES(1044, 'Nova Glória', 9, 5214861); +INSERT INTO SYS_CIDADES VALUES(1045, 'Nova Iguaçu de Goiás', 9, 5214879); +INSERT INTO SYS_CIDADES VALUES(1046, 'Nova Roma', 9, 5214903); +INSERT INTO SYS_CIDADES VALUES(1047, 'Nova Veneza', 9, 5215009); +INSERT INTO SYS_CIDADES VALUES(1048, 'Novo Brasil', 9, 5215207); +INSERT INTO SYS_CIDADES VALUES(1049, 'Novo Gama', 9, 5215231); +INSERT INTO SYS_CIDADES VALUES(1050, 'Novo Planalto', 9, 5215256); +INSERT INTO SYS_CIDADES VALUES(1051, 'Orizona', 9, 5215306); +INSERT INTO SYS_CIDADES VALUES(1052, 'Ouro Verde de Goiás', 9, 5215405); +INSERT INTO SYS_CIDADES VALUES(1053, 'Ouvidor', 9, 5215504); +INSERT INTO SYS_CIDADES VALUES(1054, 'Padre Bernardo', 9, 5215603); +INSERT INTO SYS_CIDADES VALUES(1055, 'Palestina de Goiás', 9, 5215652); +INSERT INTO SYS_CIDADES VALUES(1056, 'Palmeiras de Goiás', 9, 5215702); +INSERT INTO SYS_CIDADES VALUES(1057, 'Palmelo', 9, 5215801); +INSERT INTO SYS_CIDADES VALUES(1058, 'Palminópolis', 9, 5215900); +INSERT INTO SYS_CIDADES VALUES(1059, 'Panamá', 9, 5216007); +INSERT INTO SYS_CIDADES VALUES(1060, 'Paranaiguara', 9, 5216304); +INSERT INTO SYS_CIDADES VALUES(1061, 'Paraúna', 9, 5216403); +INSERT INTO SYS_CIDADES VALUES(1062, 'Perolândia', 9, 5216452); +INSERT INTO SYS_CIDADES VALUES(1063, 'Petrolina de Goiás', 9, 5216809); +INSERT INTO SYS_CIDADES VALUES(1064, 'Pilar de Goiás', 9, 5216908); +INSERT INTO SYS_CIDADES VALUES(1065, 'Piracanjuba', 9, 5217104); +INSERT INTO SYS_CIDADES VALUES(1066, 'Piranhas', 9, 5217203); +INSERT INTO SYS_CIDADES VALUES(1067, 'Pirenópolis', 9, 5217302); +INSERT INTO SYS_CIDADES VALUES(1068, 'Pires do Rio', 9, 5217401); +INSERT INTO SYS_CIDADES VALUES(1069, 'Planaltina', 9, 5217609); +INSERT INTO SYS_CIDADES VALUES(1070, 'Pontalina', 9, 5217708); +INSERT INTO SYS_CIDADES VALUES(1071, 'Porangatu', 9, 5218003); +INSERT INTO SYS_CIDADES VALUES(1072, 'Porteirão', 9, 5218052); +INSERT INTO SYS_CIDADES VALUES(1073, 'Portelândia', 9, 5218102); +INSERT INTO SYS_CIDADES VALUES(1074, 'Posse', 9, 5218300); +INSERT INTO SYS_CIDADES VALUES(1075, 'Professor Jamil', 9, 5218391); +INSERT INTO SYS_CIDADES VALUES(1076, 'Quirinópolis', 9, 5218508); +INSERT INTO SYS_CIDADES VALUES(1077, 'Rialma', 9, 5218607); +INSERT INTO SYS_CIDADES VALUES(1078, 'Rianápolis', 9, 5218706); +INSERT INTO SYS_CIDADES VALUES(1079, 'Rio Quente', 9, 5218789); +INSERT INTO SYS_CIDADES VALUES(1080, 'Rio Verde', 9, 5218805); +INSERT INTO SYS_CIDADES VALUES(1081, 'Rubiataba', 9, 5218904); +INSERT INTO SYS_CIDADES VALUES(1082, 'Sanclerlândia', 9, 5219001); +INSERT INTO SYS_CIDADES VALUES(1083, 'Santa Bárbara de Goiás', 9, 5219100); +INSERT INTO SYS_CIDADES VALUES(1084, 'Santa Cruz de Goiás', 9, 5219209); +INSERT INTO SYS_CIDADES VALUES(1085, 'Santa Fé de Goiás', 9, 5219258); +INSERT INTO SYS_CIDADES VALUES(1086, 'Santa Helena de Goiás', 9, 5219308); +INSERT INTO SYS_CIDADES VALUES(1087, 'Santa Isabel', 9, 5219357); +INSERT INTO SYS_CIDADES VALUES(1088, 'Santa Rita do Araguaia', 9, 5219407); +INSERT INTO SYS_CIDADES VALUES(1089, 'Santa Rita do Novo Destino', 9, 5219456); +INSERT INTO SYS_CIDADES VALUES(1090, 'Santa Rosa de Goiás', 9, 5219506); +INSERT INTO SYS_CIDADES VALUES(1091, 'Santa Tereza de Goiás', 9, 5219605); +INSERT INTO SYS_CIDADES VALUES(1092, 'Santa Terezinha de Goiás', 9, 5219704); +INSERT INTO SYS_CIDADES VALUES(1093, 'Santo Antônio da Barra', 9, 5219712); +INSERT INTO SYS_CIDADES VALUES(1094, 'Santo Antônio de Goiás', 9, 5219738); +INSERT INTO SYS_CIDADES VALUES(1095, 'Santo Antônio do Descoberto', 9, 5219753); +INSERT INTO SYS_CIDADES VALUES(1096, 'São Domingos', 9, 5219803); +INSERT INTO SYS_CIDADES VALUES(1097, 'São Francisco de Goiás', 9, 5219902); +INSERT INTO SYS_CIDADES VALUES(1098, 'São João d`Aliança', 9, 5220009); +INSERT INTO SYS_CIDADES VALUES(1099, 'São João da Paraúna', 9, 5220058); +INSERT INTO SYS_CIDADES VALUES(1100, 'São Luís de Montes Belos', 9, 5220108); +INSERT INTO SYS_CIDADES VALUES(1101, 'São Luíz do Norte', 9, 5220157); +INSERT INTO SYS_CIDADES VALUES(1102, 'São Miguel do Araguaia', 9, 5220207); +INSERT INTO SYS_CIDADES VALUES(1103, 'São Miguel do Passa Quatro', 9, 5220264); +INSERT INTO SYS_CIDADES VALUES(1104, 'São Patrício', 9, 5220280); +INSERT INTO SYS_CIDADES VALUES(1105, 'São Simão', 9, 5220405); +INSERT INTO SYS_CIDADES VALUES(1106, 'Senador Canedo', 9, 5220454); +INSERT INTO SYS_CIDADES VALUES(1107, 'Serranópolis', 9, 5220504); +INSERT INTO SYS_CIDADES VALUES(1108, 'Silvânia', 9, 5220603); +INSERT INTO SYS_CIDADES VALUES(1109, 'Simolândia', 9, 5220686); +INSERT INTO SYS_CIDADES VALUES(1110, 'Sítio d`Abadia', 9, 5220702); +INSERT INTO SYS_CIDADES VALUES(1111, 'Taquaral de Goiás', 9, 5221007); +INSERT INTO SYS_CIDADES VALUES(1112, 'Teresina de Goiás', 9, 5221080); +INSERT INTO SYS_CIDADES VALUES(1113, 'Terezópolis de Goiás', 9, 5221197); +INSERT INTO SYS_CIDADES VALUES(1114, 'Três Ranchos', 9, 5221304); +INSERT INTO SYS_CIDADES VALUES(1115, 'Trindade', 9, 5221403); +INSERT INTO SYS_CIDADES VALUES(1116, 'Trombas', 9, 5221452); +INSERT INTO SYS_CIDADES VALUES(1117, 'Turvânia', 9, 5221502); +INSERT INTO SYS_CIDADES VALUES(1118, 'Turvelândia', 9, 5221551); +INSERT INTO SYS_CIDADES VALUES(1119, 'Uirapuru', 9, 5221577); +INSERT INTO SYS_CIDADES VALUES(1120, 'Uruaçu', 9, 5221601); +INSERT INTO SYS_CIDADES VALUES(1121, 'Uruana', 9, 5221700); +INSERT INTO SYS_CIDADES VALUES(1122, 'Urutaí', 9, 5221809); +INSERT INTO SYS_CIDADES VALUES(1123, 'Valparaíso de Goiás', 9, 5221858); +INSERT INTO SYS_CIDADES VALUES(1124, 'Varjão', 9, 5221908); +INSERT INTO SYS_CIDADES VALUES(1125, 'Vianópolis', 9, 5222005); +INSERT INTO SYS_CIDADES VALUES(1126, 'Vicentinópolis', 9, 5222054); +INSERT INTO SYS_CIDADES VALUES(1127, 'Vila Boa', 9, 5222203); +INSERT INTO SYS_CIDADES VALUES(1128, 'Vila Propício', 9, 5222302); +INSERT INTO SYS_CIDADES VALUES(1129, 'Açailândia', 10, 2100055); +INSERT INTO SYS_CIDADES VALUES(1130, 'Afonso Cunha', 10, 2100105); +INSERT INTO SYS_CIDADES VALUES(1131, 'Água Doce do Maranhão', 10, 2100154); +INSERT INTO SYS_CIDADES VALUES(1132, 'Alcântara', 10, 2100204); +INSERT INTO SYS_CIDADES VALUES(1133, 'Aldeias Altas', 10, 2100303); +INSERT INTO SYS_CIDADES VALUES(1134, 'Altamira do Maranhão', 10, 2100402); +INSERT INTO SYS_CIDADES VALUES(1135, 'Alto Alegre do Maranhão', 10, 2100436); +INSERT INTO SYS_CIDADES VALUES(1136, 'Alto Alegre do Pindaré', 10, 2100477); +INSERT INTO SYS_CIDADES VALUES(1137, 'Alto Parnaíba', 10, 2100501); +INSERT INTO SYS_CIDADES VALUES(1138, 'Amapá do Maranhão', 10, 2100550); +INSERT INTO SYS_CIDADES VALUES(1139, 'Amarante do Maranhão', 10, 2100600); +INSERT INTO SYS_CIDADES VALUES(1140, 'Anajatuba', 10, 2100709); +INSERT INTO SYS_CIDADES VALUES(1141, 'Anapurus', 10, 2100808); +INSERT INTO SYS_CIDADES VALUES(1142, 'Apicum-Açu', 10, 2100832); +INSERT INTO SYS_CIDADES VALUES(1143, 'Araguanã', 10, 2100873); +INSERT INTO SYS_CIDADES VALUES(1144, 'Araioses', 10, 2100907); +INSERT INTO SYS_CIDADES VALUES(1145, 'Arame', 10, 2100956); +INSERT INTO SYS_CIDADES VALUES(1146, 'Arari', 10, 2101004); +INSERT INTO SYS_CIDADES VALUES(1147, 'Axixá', 10, 2101103); +INSERT INTO SYS_CIDADES VALUES(1148, 'Bacabal', 10, 2101202); +INSERT INTO SYS_CIDADES VALUES(1149, 'Bacabeira', 10, 2101251); +INSERT INTO SYS_CIDADES VALUES(1150, 'Bacuri', 10, 2101301); +INSERT INTO SYS_CIDADES VALUES(1151, 'Bacurituba', 10, 2101350); +INSERT INTO SYS_CIDADES VALUES(1152, 'Balsas', 10, 2101400); +INSERT INTO SYS_CIDADES VALUES(1153, 'Barão de Grajaú', 10, 2101509); +INSERT INTO SYS_CIDADES VALUES(1154, 'Barra do Corda', 10, 2101608); +INSERT INTO SYS_CIDADES VALUES(1155, 'Barreirinhas', 10, 2101707); +INSERT INTO SYS_CIDADES VALUES(1156, 'Bela Vista do Maranhão', 10, 2101772); +INSERT INTO SYS_CIDADES VALUES(1157, 'Belágua', 10, 2101731); +INSERT INTO SYS_CIDADES VALUES(1158, 'Benedito Leite', 10, 2101806); +INSERT INTO SYS_CIDADES VALUES(1159, 'Bequimão', 10, 2101905); +INSERT INTO SYS_CIDADES VALUES(1160, 'Bernardo do Mearim', 10, 2101939); +INSERT INTO SYS_CIDADES VALUES(1161, 'Boa Vista do Gurupi', 10, 2101970); +INSERT INTO SYS_CIDADES VALUES(1162, 'Bom Jardim', 10, 2102002); +INSERT INTO SYS_CIDADES VALUES(1163, 'Bom Jesus das Selvas', 10, 2102036); +INSERT INTO SYS_CIDADES VALUES(1164, 'Bom Lugar', 10, 2102077); +INSERT INTO SYS_CIDADES VALUES(1165, 'Brejo', 10, 2102101); +INSERT INTO SYS_CIDADES VALUES(1166, 'Brejo de Areia', 10, 2102150); +INSERT INTO SYS_CIDADES VALUES(1167, 'Buriti', 10, 2102200); +INSERT INTO SYS_CIDADES VALUES(1168, 'Buriti Bravo', 10, 2102309); +INSERT INTO SYS_CIDADES VALUES(1169, 'Buriticupu', 10, 2102325); +INSERT INTO SYS_CIDADES VALUES(1170, 'Buritirana', 10, 2102358); +INSERT INTO SYS_CIDADES VALUES(1171, 'Cachoeira Grande', 10, 2102374); +INSERT INTO SYS_CIDADES VALUES(1172, 'Cajapió', 10, 2102408); +INSERT INTO SYS_CIDADES VALUES(1173, 'Cajari', 10, 2102507); +INSERT INTO SYS_CIDADES VALUES(1174, 'Campestre do Maranhão', 10, 2102556); +INSERT INTO SYS_CIDADES VALUES(1175, 'Cândido Mendes', 10, 2102606); +INSERT INTO SYS_CIDADES VALUES(1176, 'Cantanhede', 10, 2102705); +INSERT INTO SYS_CIDADES VALUES(1177, 'Capinzal do Norte', 10, 2102754); +INSERT INTO SYS_CIDADES VALUES(1178, 'Carolina', 10, 2102804); +INSERT INTO SYS_CIDADES VALUES(1179, 'Carutapera', 10, 2102903); +INSERT INTO SYS_CIDADES VALUES(1180, 'Caxias', 10, 2103000); +INSERT INTO SYS_CIDADES VALUES(1181, 'Cedral', 10, 2103109); +INSERT INTO SYS_CIDADES VALUES(1182, 'Central do Maranhão', 10, 2103125); +INSERT INTO SYS_CIDADES VALUES(1183, 'Centro do Guilherme', 10, 2103158); +INSERT INTO SYS_CIDADES VALUES(1184, 'Centro Novo do Maranhão', 10, 2103174); +INSERT INTO SYS_CIDADES VALUES(1185, 'Chapadinha', 10, 2103208); +INSERT INTO SYS_CIDADES VALUES(1186, 'Cidelândia', 10, 2103257); +INSERT INTO SYS_CIDADES VALUES(1187, 'Codó', 10, 2103307); +INSERT INTO SYS_CIDADES VALUES(1188, 'Coelho Neto', 10, 2103406); +INSERT INTO SYS_CIDADES VALUES(1189, 'Colinas', 10, 2103505); +INSERT INTO SYS_CIDADES VALUES(1190, 'Conceição do Lago-Açu', 10, 2103554); +INSERT INTO SYS_CIDADES VALUES(1191, 'Coroatá', 10, 2103604); +INSERT INTO SYS_CIDADES VALUES(1192, 'Cururupu', 10, 2103703); +INSERT INTO SYS_CIDADES VALUES(1193, 'Davinópolis', 10, 2103752); +INSERT INTO SYS_CIDADES VALUES(1194, 'Dom Pedro', 10, 2103802); +INSERT INTO SYS_CIDADES VALUES(1195, 'Duque Bacelar', 10, 2103901); +INSERT INTO SYS_CIDADES VALUES(1196, 'Esperantinópolis', 10, 2104008); +INSERT INTO SYS_CIDADES VALUES(1197, 'Estreito', 10, 2104057); +INSERT INTO SYS_CIDADES VALUES(1198, 'Feira Nova do Maranhão', 10, 2104073); +INSERT INTO SYS_CIDADES VALUES(1199, 'Fernando Falcão', 10, 2104081); +INSERT INTO SYS_CIDADES VALUES(1200, 'Formosa da Serra Negra', 10, 2104099); +INSERT INTO SYS_CIDADES VALUES(1201, 'Fortaleza dos Nogueiras', 10, 2104107); +INSERT INTO SYS_CIDADES VALUES(1202, 'Fortuna', 10, 2104206); +INSERT INTO SYS_CIDADES VALUES(1203, 'Godofredo Viana', 10, 2104305); +INSERT INTO SYS_CIDADES VALUES(1204, 'Gonçalves Dias', 10, 2104404); +INSERT INTO SYS_CIDADES VALUES(1205, 'Governador Archer', 10, 2104503); +INSERT INTO SYS_CIDADES VALUES(1206, 'Governador Edison Lobão', 10, 2104552); +INSERT INTO SYS_CIDADES VALUES(1207, 'Governador Eugênio Barros', 10, 2104602); +INSERT INTO SYS_CIDADES VALUES(1208, 'Governador Luiz Rocha', 10, 2104628); +INSERT INTO SYS_CIDADES VALUES(1209, 'Governador Newton Bello', 10, 2104651); +INSERT INTO SYS_CIDADES VALUES(1210, 'Governador Nunes Freire', 10, 2104677); +INSERT INTO SYS_CIDADES VALUES(1211, 'Graça Aranha', 10, 2104701); +INSERT INTO SYS_CIDADES VALUES(1212, 'Grajaú', 10, 2104800); +INSERT INTO SYS_CIDADES VALUES(1213, 'Guimarães', 10, 2104909); +INSERT INTO SYS_CIDADES VALUES(1214, 'Humberto de Campos', 10, 2105005); +INSERT INTO SYS_CIDADES VALUES(1215, 'Icatu', 10, 2105104); +INSERT INTO SYS_CIDADES VALUES(1216, 'Igarapé do Meio', 10, 2105153); +INSERT INTO SYS_CIDADES VALUES(1217, 'Igarapé Grande', 10, 2105203); +INSERT INTO SYS_CIDADES VALUES(1218, 'Imperatriz', 10, 2105302); +INSERT INTO SYS_CIDADES VALUES(1219, 'Itaipava do Grajaú', 10, 2105351); +INSERT INTO SYS_CIDADES VALUES(1220, 'Itapecuru Mirim', 10, 2105401); +INSERT INTO SYS_CIDADES VALUES(1221, 'Itinga do Maranhão', 10, 2105427); +INSERT INTO SYS_CIDADES VALUES(1222, 'Jatobá', 10, 2105450); +INSERT INTO SYS_CIDADES VALUES(1223, 'Jenipapo dos Vieiras', 10, 2105476); +INSERT INTO SYS_CIDADES VALUES(1224, 'João Lisboa', 10, 2105500); +INSERT INTO SYS_CIDADES VALUES(1225, 'Joselândia', 10, 2105609); +INSERT INTO SYS_CIDADES VALUES(1226, 'Junco do Maranhão', 10, 2105658); +INSERT INTO SYS_CIDADES VALUES(1227, 'Lago da Pedra', 10, 2105708); +INSERT INTO SYS_CIDADES VALUES(1228, 'Lago do Junco', 10, 2105807); +INSERT INTO SYS_CIDADES VALUES(1229, 'Lago dos Rodrigues', 10, 2105948); +INSERT INTO SYS_CIDADES VALUES(1230, 'Lago Verde', 10, 2105906); +INSERT INTO SYS_CIDADES VALUES(1231, 'Lagoa do Mato', 10, 2105922); +INSERT INTO SYS_CIDADES VALUES(1232, 'Lagoa Grande do Maranhão', 10, 2105963); +INSERT INTO SYS_CIDADES VALUES(1233, 'Lajeado Novo', 10, 2105989); +INSERT INTO SYS_CIDADES VALUES(1234, 'Lima Campos', 10, 2106003); +INSERT INTO SYS_CIDADES VALUES(1235, 'Loreto', 10, 2106102); +INSERT INTO SYS_CIDADES VALUES(1236, 'Luís Domingues', 10, 2106201); +INSERT INTO SYS_CIDADES VALUES(1237, 'Magalhães de Almeida', 10, 2106300); +INSERT INTO SYS_CIDADES VALUES(1238, 'Maracaçumé', 10, 2106326); +INSERT INTO SYS_CIDADES VALUES(1239, 'Marajá do Sena', 10, 2106359); +INSERT INTO SYS_CIDADES VALUES(1240, 'Maranhãozinho', 10, 2106375); +INSERT INTO SYS_CIDADES VALUES(1241, 'Mata Roma', 10, 2106409); +INSERT INTO SYS_CIDADES VALUES(1242, 'Matinha', 10, 2106508); +INSERT INTO SYS_CIDADES VALUES(1243, 'Matões', 10, 2106607); +INSERT INTO SYS_CIDADES VALUES(1244, 'Matões do Norte', 10, 2106631); +INSERT INTO SYS_CIDADES VALUES(1245, 'Milagres do Maranhão', 10, 2106672); +INSERT INTO SYS_CIDADES VALUES(1246, 'Mirador', 10, 2106706); +INSERT INTO SYS_CIDADES VALUES(1247, 'Miranda do Norte', 10, 2106755); +INSERT INTO SYS_CIDADES VALUES(1248, 'Mirinzal', 10, 2106805); +INSERT INTO SYS_CIDADES VALUES(1249, 'Monção', 10, 2106904); +INSERT INTO SYS_CIDADES VALUES(1250, 'Montes Altos', 10, 2107001); +INSERT INTO SYS_CIDADES VALUES(1251, 'Morros', 10, 2107100); +INSERT INTO SYS_CIDADES VALUES(1252, 'Nina Rodrigues', 10, 2107209); +INSERT INTO SYS_CIDADES VALUES(1253, 'Nova Colinas', 10, 2107258); +INSERT INTO SYS_CIDADES VALUES(1254, 'Nova Iorque', 10, 2107308); +INSERT INTO SYS_CIDADES VALUES(1255, 'Nova Olinda do Maranhão', 10, 2107357); +INSERT INTO SYS_CIDADES VALUES(1256, 'Olho d`Água das Cunhãs', 10, 2107407); +INSERT INTO SYS_CIDADES VALUES(1257, 'Olinda Nova do Maranhão', 10, 2107456); +INSERT INTO SYS_CIDADES VALUES(1258, 'Paço do Lumiar', 10, 2107506); +INSERT INTO SYS_CIDADES VALUES(1259, 'Palmeirândia', 10, 2107605); +INSERT INTO SYS_CIDADES VALUES(1260, 'Paraibano', 10, 2107704); +INSERT INTO SYS_CIDADES VALUES(1261, 'Parnarama', 10, 2107803); +INSERT INTO SYS_CIDADES VALUES(1262, 'Passagem Franca', 10, 2107902); +INSERT INTO SYS_CIDADES VALUES(1263, 'Pastos Bons', 10, 2108009); +INSERT INTO SYS_CIDADES VALUES(1264, 'Paulino Neves', 10, 2108058); +INSERT INTO SYS_CIDADES VALUES(1265, 'Paulo Ramos', 10, 2108108); +INSERT INTO SYS_CIDADES VALUES(1266, 'Pedreiras', 10, 2108207); +INSERT INTO SYS_CIDADES VALUES(1267, 'Pedro do Rosário', 10, 2108256); +INSERT INTO SYS_CIDADES VALUES(1268, 'Penalva', 10, 2108306); +INSERT INTO SYS_CIDADES VALUES(1269, 'Peri Mirim', 10, 2108405); +INSERT INTO SYS_CIDADES VALUES(1270, 'Peritoró', 10, 2108454); +INSERT INTO SYS_CIDADES VALUES(1271, 'Pindaré-Mirim', 10, 2108504); +INSERT INTO SYS_CIDADES VALUES(1272, 'Pinheiro', 10, 2108603); +INSERT INTO SYS_CIDADES VALUES(1273, 'Pio XII', 10, 2108702); +INSERT INTO SYS_CIDADES VALUES(1274, 'Pirapemas', 10, 2108801); +INSERT INTO SYS_CIDADES VALUES(1275, 'Poção de Pedras', 10, 2108900); +INSERT INTO SYS_CIDADES VALUES(1276, 'Porto Franco', 10, 2109007); +INSERT INTO SYS_CIDADES VALUES(1277, 'Porto Rico do Maranhão', 10, 2109056); +INSERT INTO SYS_CIDADES VALUES(1278, 'Presidente Dutra', 10, 2109106); +INSERT INTO SYS_CIDADES VALUES(1279, 'Presidente Juscelino', 10, 2109205); +INSERT INTO SYS_CIDADES VALUES(1280, 'Presidente Médici', 10, 2109239); +INSERT INTO SYS_CIDADES VALUES(1281, 'Presidente Sarney', 10, 2109270); +INSERT INTO SYS_CIDADES VALUES(1282, 'Presidente Vargas', 10, 2109304); +INSERT INTO SYS_CIDADES VALUES(1283, 'Primeira Cruz', 10, 2109403); +INSERT INTO SYS_CIDADES VALUES(1284, 'Raposa', 10, 2109452); +INSERT INTO SYS_CIDADES VALUES(1285, 'Riachão', 10, 2109502); +INSERT INTO SYS_CIDADES VALUES(1286, 'Ribamar Fiquene', 10, 2109551); +INSERT INTO SYS_CIDADES VALUES(1287, 'Rosário', 10, 2109601); +INSERT INTO SYS_CIDADES VALUES(1288, 'Sambaíba', 10, 2109700); +INSERT INTO SYS_CIDADES VALUES(1289, 'Santa Filomena do Maranhão', 10, 2109759); +INSERT INTO SYS_CIDADES VALUES(1290, 'Santa Helena', 10, 2109809); +INSERT INTO SYS_CIDADES VALUES(1291, 'Santa Inês', 10, 2109908); +INSERT INTO SYS_CIDADES VALUES(1292, 'Santa Luzia', 10, 2110005); +INSERT INTO SYS_CIDADES VALUES(1293, 'Santa Luzia do Paruá', 10, 2110039); +INSERT INTO SYS_CIDADES VALUES(1294, 'Santa Quitéria do Maranhão', 10, 2110104); +INSERT INTO SYS_CIDADES VALUES(1295, 'Santa Rita', 10, 2110203); +INSERT INTO SYS_CIDADES VALUES(1296, 'Santana do Maranhão', 10, 2110237); +INSERT INTO SYS_CIDADES VALUES(1297, 'Santo Amaro do Maranhão', 10, 2110278); +INSERT INTO SYS_CIDADES VALUES(1298, 'Santo Antônio dos Lopes', 10, 2110302); +INSERT INTO SYS_CIDADES VALUES(1299, 'São Benedito do Rio Preto', 10, 2110401); +INSERT INTO SYS_CIDADES VALUES(1300, 'São Bento', 10, 2110500); +INSERT INTO SYS_CIDADES VALUES(1301, 'São Bernardo', 10, 2110609); +INSERT INTO SYS_CIDADES VALUES(1302, 'São Domingos do Azeitão', 10, 2110658); +INSERT INTO SYS_CIDADES VALUES(1303, 'São Domingos do Maranhão', 10, 2110708); +INSERT INTO SYS_CIDADES VALUES(1304, 'São Félix de Balsas', 10, 2110807); +INSERT INTO SYS_CIDADES VALUES(1305, 'São Francisco do Brejão', 10, 2110856); +INSERT INTO SYS_CIDADES VALUES(1306, 'São Francisco do Maranhão', 10, 2110906); +INSERT INTO SYS_CIDADES VALUES(1307, 'São João Batista', 10, 2111003); +INSERT INTO SYS_CIDADES VALUES(1308, 'São João do Carú', 10, 2111029); +INSERT INTO SYS_CIDADES VALUES(1309, 'São João do Paraíso', 10, 2111052); +INSERT INTO SYS_CIDADES VALUES(1310, 'São João do Soter', 10, 2111078); +INSERT INTO SYS_CIDADES VALUES(1311, 'São João dos Patos', 10, 2111102); +INSERT INTO SYS_CIDADES VALUES(1312, 'São José de Ribamar', 10, 2111201); +INSERT INTO SYS_CIDADES VALUES(1313, 'São José dos Basílios', 10, 2111250); +INSERT INTO SYS_CIDADES VALUES(1314, 'São Luís', 10, 2111300); +INSERT INTO SYS_CIDADES VALUES(1315, 'São Luís Gonzaga do Maranhão', 10, 2111409); +INSERT INTO SYS_CIDADES VALUES(1316, 'São Mateus do Maranhão', 10, 2111508); +INSERT INTO SYS_CIDADES VALUES(1317, 'São Pedro da Água Branca', 10, 2111532); +INSERT INTO SYS_CIDADES VALUES(1318, 'São Pedro dos Crentes', 10, 2111573); +INSERT INTO SYS_CIDADES VALUES(1319, 'São Raimundo das Mangabeiras', 10, 2111607); +INSERT INTO SYS_CIDADES VALUES(1320, 'São Raimundo do Doca Bezerra', 10, 2111631); +INSERT INTO SYS_CIDADES VALUES(1321, 'São Roberto', 10, 2111672); +INSERT INTO SYS_CIDADES VALUES(1322, 'São Vicente Ferrer', 10, 2111706); +INSERT INTO SYS_CIDADES VALUES(1323, 'Satubinha', 10, 2111722); +INSERT INTO SYS_CIDADES VALUES(1324, 'Senador Alexandre Costa', 10, 2111748); +INSERT INTO SYS_CIDADES VALUES(1325, 'Senador La Rocque', 10, 2111763); +INSERT INTO SYS_CIDADES VALUES(1326, 'Serrano do Maranhão', 10, 2111789); +INSERT INTO SYS_CIDADES VALUES(1327, 'Sítio Novo', 10, 2111805); +INSERT INTO SYS_CIDADES VALUES(1328, 'Sucupira do Norte', 10, 2111904); +INSERT INTO SYS_CIDADES VALUES(1329, 'Sucupira do Riachão', 10, 2111953); +INSERT INTO SYS_CIDADES VALUES(1330, 'Tasso Fragoso', 10, 2112001); +INSERT INTO SYS_CIDADES VALUES(1331, 'Timbiras', 10, 2112100); +INSERT INTO SYS_CIDADES VALUES(1332, 'Timon', 10, 2112209); +INSERT INTO SYS_CIDADES VALUES(1333, 'Trizidela do Vale', 10, 2112233); +INSERT INTO SYS_CIDADES VALUES(1334, 'Tufilândia', 10, 2112274); +INSERT INTO SYS_CIDADES VALUES(1335, 'Tuntum', 10, 2112308); +INSERT INTO SYS_CIDADES VALUES(1336, 'Turiaçu', 10, 2112407); +INSERT INTO SYS_CIDADES VALUES(1337, 'Turilândia', 10, 2112456); +INSERT INTO SYS_CIDADES VALUES(1338, 'Tutóia', 10, 2112506); +INSERT INTO SYS_CIDADES VALUES(1339, 'Urbano Santos', 10, 2112605); +INSERT INTO SYS_CIDADES VALUES(1340, 'Vargem Grande', 10, 2112704); +INSERT INTO SYS_CIDADES VALUES(1341, 'Viana', 10, 2112803); +INSERT INTO SYS_CIDADES VALUES(1342, 'Vila Nova dos Martírios', 10, 2112852); +INSERT INTO SYS_CIDADES VALUES(1343, 'Vitória do Mearim', 10, 2112902); +INSERT INTO SYS_CIDADES VALUES(1344, 'Vitorino Freire', 10, 2113009); +INSERT INTO SYS_CIDADES VALUES(1345, 'Zé Doca', 10, 2114007); +INSERT INTO SYS_CIDADES VALUES(1346, 'Acorizal', 13, 5100102); +INSERT INTO SYS_CIDADES VALUES(1347, 'Água Boa', 13, 5100201); +INSERT INTO SYS_CIDADES VALUES(1348, 'Alta Floresta', 13, 5100250); +INSERT INTO SYS_CIDADES VALUES(1349, 'Alto Araguaia', 13, 5100300); +INSERT INTO SYS_CIDADES VALUES(1350, 'Alto Boa Vista', 13, 5100359); +INSERT INTO SYS_CIDADES VALUES(1351, 'Alto Garças', 13, 5100409); +INSERT INTO SYS_CIDADES VALUES(1352, 'Alto Paraguai', 13, 5100508); +INSERT INTO SYS_CIDADES VALUES(1353, 'Alto Taquari', 13, 5100607); +INSERT INTO SYS_CIDADES VALUES(1354, 'Apiacás', 13, 5100805); +INSERT INTO SYS_CIDADES VALUES(1355, 'Araguaiana', 13, 5101001); +INSERT INTO SYS_CIDADES VALUES(1356, 'Araguainha', 13, 5101209); +INSERT INTO SYS_CIDADES VALUES(1357, 'Araputanga', 13, 5101258); +INSERT INTO SYS_CIDADES VALUES(1358, 'Arenápolis', 13, 5101308); +INSERT INTO SYS_CIDADES VALUES(1359, 'Aripuanã', 13, 5101407); +INSERT INTO SYS_CIDADES VALUES(1360, 'Barão de Melgaço', 13, 5101605); +INSERT INTO SYS_CIDADES VALUES(1361, 'Barra do Bugres', 13, 5101704); +INSERT INTO SYS_CIDADES VALUES(1362, 'Barra do Garças', 13, 5101803); +INSERT INTO SYS_CIDADES VALUES(1363, 'Bom Jesus do Araguaia', 13, 5101852); +INSERT INTO SYS_CIDADES VALUES(1364, 'Brasnorte', 13, 5101902); +INSERT INTO SYS_CIDADES VALUES(1365, 'Cáceres', 13, 5102504); +INSERT INTO SYS_CIDADES VALUES(1366, 'Campinápolis', 13, 5102603); +INSERT INTO SYS_CIDADES VALUES(1367, 'Campo Novo do Parecis', 13, 5102637); +INSERT INTO SYS_CIDADES VALUES(1368, 'Campo Verde', 13, 5102678); +INSERT INTO SYS_CIDADES VALUES(1369, 'Campos de Júlio', 13, 5102686); +INSERT INTO SYS_CIDADES VALUES(1370, 'Canabrava do Norte', 13, 5102694); +INSERT INTO SYS_CIDADES VALUES(1371, 'Canarana', 13, 5102702); +INSERT INTO SYS_CIDADES VALUES(1372, 'Carlinda', 13, 5102793); +INSERT INTO SYS_CIDADES VALUES(1373, 'Castanheira', 13, 5102850); +INSERT INTO SYS_CIDADES VALUES(1374, 'Chapada dos Guimarães', 13, 5103007); +INSERT INTO SYS_CIDADES VALUES(1375, 'Cláudia', 13, 5103056); +INSERT INTO SYS_CIDADES VALUES(1376, 'Cocalinho', 13, 5103106); +INSERT INTO SYS_CIDADES VALUES(1377, 'Colíder', 13, 5103205); +INSERT INTO SYS_CIDADES VALUES(1378, 'Colniza', 13, 5103254); +INSERT INTO SYS_CIDADES VALUES(1379, 'Comodoro', 13, 5103304); +INSERT INTO SYS_CIDADES VALUES(1380, 'Confresa', 13, 5103353); +INSERT INTO SYS_CIDADES VALUES(1381, 'Conquista d`Oeste', 13, 5103361); +INSERT INTO SYS_CIDADES VALUES(1382, 'Cotriguaçu', 13, 5103379); +INSERT INTO SYS_CIDADES VALUES(1383, 'Cuiabá', 13, 5103403); +INSERT INTO SYS_CIDADES VALUES(1384, 'Curvelândia', 13, 5103437); +INSERT INTO SYS_CIDADES VALUES(1386, 'Denise', 13, 5103452); +INSERT INTO SYS_CIDADES VALUES(1387, 'Diamantino', 13, 5103502); +INSERT INTO SYS_CIDADES VALUES(1388, 'Dom Aquino', 13, 5103601); +INSERT INTO SYS_CIDADES VALUES(1389, 'Feliz Natal', 13, 5103700); +INSERT INTO SYS_CIDADES VALUES(1390, 'Figueirópolis d`Oeste', 13, 5103809); +INSERT INTO SYS_CIDADES VALUES(1391, 'Gaúcha do Norte', 13, 5103858); +INSERT INTO SYS_CIDADES VALUES(1392, 'General Carneiro', 13, 5103908); +INSERT INTO SYS_CIDADES VALUES(1393, 'Glória d`Oeste', 13, 5103957); +INSERT INTO SYS_CIDADES VALUES(1394, 'Guarantã do Norte', 13, 5104104); +INSERT INTO SYS_CIDADES VALUES(1395, 'Guiratinga', 13, 5104203); +INSERT INTO SYS_CIDADES VALUES(1396, 'Indiavaí', 13, 5104500); +INSERT INTO SYS_CIDADES VALUES(1397, 'Ipiranga do Norte', 13, 5104526); +INSERT INTO SYS_CIDADES VALUES(1398, 'Itanhangá', 13, 5104542); +INSERT INTO SYS_CIDADES VALUES(1399, 'Itaúba', 13, 5104559); +INSERT INTO SYS_CIDADES VALUES(1400, 'Itiquira', 13, 5104609); +INSERT INTO SYS_CIDADES VALUES(1401, 'Jaciara', 13, 5104807); +INSERT INTO SYS_CIDADES VALUES(1402, 'Jangada', 13, 5104906); +INSERT INTO SYS_CIDADES VALUES(1403, 'Jauru', 13, 5105002); +INSERT INTO SYS_CIDADES VALUES(1404, 'Juara', 13, 5105101); +INSERT INTO SYS_CIDADES VALUES(1405, 'Juína', 13, 5105150); +INSERT INTO SYS_CIDADES VALUES(1406, 'Juruena', 13, 5105176); +INSERT INTO SYS_CIDADES VALUES(1407, 'Juscimeira', 13, 5105200); +INSERT INTO SYS_CIDADES VALUES(1408, 'Lambari d`Oeste', 13, 5105234); +INSERT INTO SYS_CIDADES VALUES(1409, 'Lucas do Rio Verde', 13, 5105259); +INSERT INTO SYS_CIDADES VALUES(1410, 'Luciára', 13, 5105309); +INSERT INTO SYS_CIDADES VALUES(1411, 'Marcelândia', 13, 5105580); +INSERT INTO SYS_CIDADES VALUES(1412, 'Matupá', 13, 5105606); +INSERT INTO SYS_CIDADES VALUES(1413, 'Mirassol d`Oeste', 13, 5105622); +INSERT INTO SYS_CIDADES VALUES(1414, 'Nobres', 13, 5105903); +INSERT INTO SYS_CIDADES VALUES(1415, 'Nortelândia', 13, 5106000); +INSERT INTO SYS_CIDADES VALUES(1416, 'Nossa Senhora do Livramento', 13, 5106109); +INSERT INTO SYS_CIDADES VALUES(1417, 'Nova Bandeirantes', 13, 5106158); +INSERT INTO SYS_CIDADES VALUES(1418, 'Nova Brasilândia', 13, 5106208); +INSERT INTO SYS_CIDADES VALUES(1419, 'Nova Canaã do Norte', 13, 5106216); +INSERT INTO SYS_CIDADES VALUES(1420, 'Nova Guarita', 13, 5108808); +INSERT INTO SYS_CIDADES VALUES(1421, 'Nova Lacerda', 13, 5106182); +INSERT INTO SYS_CIDADES VALUES(1422, 'Nova Marilândia', 13, 5108857); +INSERT INTO SYS_CIDADES VALUES(1423, 'Nova Maringá', 13, 5108907); +INSERT INTO SYS_CIDADES VALUES(1424, 'Nova Monte verde', 13, 5108956); +INSERT INTO SYS_CIDADES VALUES(1425, 'Nova Mutum', 13, 5106224); +INSERT INTO SYS_CIDADES VALUES(1426, 'Nova Olímpia', 13, 5106232); +INSERT INTO SYS_CIDADES VALUES(1427, 'Nova Santa Helena', 13, 5106190); +INSERT INTO SYS_CIDADES VALUES(1428, 'Nova Ubiratã', 13, 5106240); +INSERT INTO SYS_CIDADES VALUES(1429, 'Nova Xavantina', 13, 5106257); +INSERT INTO SYS_CIDADES VALUES(1430, 'Novo Horizonte do Norte', 13, 5106273); +INSERT INTO SYS_CIDADES VALUES(1431, 'Novo Mundo', 13, 5106265); +INSERT INTO SYS_CIDADES VALUES(1432, 'Novo Santo Antônio', 13, 5106315); +INSERT INTO SYS_CIDADES VALUES(1433, 'Novo São Joaquim', 13, 5106281); +INSERT INTO SYS_CIDADES VALUES(1434, 'Paranaíta', 13, 5106299); +INSERT INTO SYS_CIDADES VALUES(1435, 'Paranatinga', 13, 5106307); +INSERT INTO SYS_CIDADES VALUES(1436, 'Pedra Preta', 13, 5106372); +INSERT INTO SYS_CIDADES VALUES(1437, 'Peixoto de Azevedo', 13, 5106422); +INSERT INTO SYS_CIDADES VALUES(1438, 'Planalto da Serra', 13, 5106455); +INSERT INTO SYS_CIDADES VALUES(1439, 'Poconé', 13, 5106505); +INSERT INTO SYS_CIDADES VALUES(1440, 'Pontal do Araguaia', 13, 5106653); +INSERT INTO SYS_CIDADES VALUES(1441, 'Ponte Branca', 13, 5106703); +INSERT INTO SYS_CIDADES VALUES(1442, 'Pontes e Lacerda', 13, 5106752); +INSERT INTO SYS_CIDADES VALUES(1443, 'Porto Alegre do Norte', 13, 5106778); +INSERT INTO SYS_CIDADES VALUES(1444, 'Porto dos Gaúchos', 13, 5106802); +INSERT INTO SYS_CIDADES VALUES(1445, 'Porto Esperidião', 13, 5106828); +INSERT INTO SYS_CIDADES VALUES(1446, 'Porto Estrela', 13, 5106851); +INSERT INTO SYS_CIDADES VALUES(1447, 'Poxoréo', 13, 5107008); +INSERT INTO SYS_CIDADES VALUES(1448, 'Primavera do Leste', 13, 5107040); +INSERT INTO SYS_CIDADES VALUES(1449, 'Querência', 13, 5107065); +INSERT INTO SYS_CIDADES VALUES(1450, 'Reserva do Cabaçal', 13, 5107156); +INSERT INTO SYS_CIDADES VALUES(1451, 'Ribeirão Cascalheira', 13, 5107180); +INSERT INTO SYS_CIDADES VALUES(1452, 'Ribeirãozinho', 13, 5107198); +INSERT INTO SYS_CIDADES VALUES(1453, 'Rio Branco', 13, 5107206); +INSERT INTO SYS_CIDADES VALUES(1454, 'Rondolândia', 13, 5107578); +INSERT INTO SYS_CIDADES VALUES(1455, 'Rondonópolis', 13, 5107602); +INSERT INTO SYS_CIDADES VALUES(1456, 'Rosário Oeste', 13, 5107701); +INSERT INTO SYS_CIDADES VALUES(1457, 'Salto do Céu', 13, 5107750); +INSERT INTO SYS_CIDADES VALUES(1458, 'Santa Carmem', 13, 5107248); +INSERT INTO SYS_CIDADES VALUES(1459, 'Santa Cruz do Xingu', 13, 5107743); +INSERT INTO SYS_CIDADES VALUES(1460, 'Santa Rita do Trivelato', 13, 5107768); +INSERT INTO SYS_CIDADES VALUES(1461, 'Santa Terezinha', 13, 5107776); +INSERT INTO SYS_CIDADES VALUES(1462, 'Santo Afonso', 13, 5107263); +INSERT INTO SYS_CIDADES VALUES(1463, 'Santo Antônio do Leste', 13, 5107792); +INSERT INTO SYS_CIDADES VALUES(1464, 'Santo Antônio do Leverger', 13, 5107800); +INSERT INTO SYS_CIDADES VALUES(1465, 'São Félix do Araguaia', 13, 5107859); +INSERT INTO SYS_CIDADES VALUES(1466, 'São José do Povo', 13, 5107297); +INSERT INTO SYS_CIDADES VALUES(1467, 'São José do Rio Claro', 13, 5107305); +INSERT INTO SYS_CIDADES VALUES(1468, 'São José do Xingu', 13, 5107354); +INSERT INTO SYS_CIDADES VALUES(1469, 'São José dos Quatro Marcos', 13, 5107107); +INSERT INTO SYS_CIDADES VALUES(1470, 'São Pedro da Cipa', 13, 5107404); +INSERT INTO SYS_CIDADES VALUES(1471, 'Sapezal', 13, 5107875); +INSERT INTO SYS_CIDADES VALUES(1472, 'Serra Nova Dourada', 13, 5107883); +INSERT INTO SYS_CIDADES VALUES(1473, 'Sinop', 13, 5107909); +INSERT INTO SYS_CIDADES VALUES(1474, 'Sorriso', 13, 5107925); +INSERT INTO SYS_CIDADES VALUES(1475, 'Tabaporã', 13, 5107941); +INSERT INTO SYS_CIDADES VALUES(1476, 'Tangará da Serra', 13, 5107958); +INSERT INTO SYS_CIDADES VALUES(1477, 'Tapurah', 13, 5108006); +INSERT INTO SYS_CIDADES VALUES(1478, 'Terra Nova do Norte', 13, 5108055); +INSERT INTO SYS_CIDADES VALUES(1479, 'Tesouro', 13, 5108105); +INSERT INTO SYS_CIDADES VALUES(1480, 'Torixoréu', 13, 5108204); +INSERT INTO SYS_CIDADES VALUES(1481, 'União do Sul', 13, 5108303); +INSERT INTO SYS_CIDADES VALUES(1482, 'Vale de São Domingos', 13, 5108352); +INSERT INTO SYS_CIDADES VALUES(1483, 'Várzea Grande', 13, 5108402); +INSERT INTO SYS_CIDADES VALUES(1484, 'Vera', 13, 5108501); +INSERT INTO SYS_CIDADES VALUES(1485, 'Vila Bela da Santíssima Trindade', 13, 5105507); +INSERT INTO SYS_CIDADES VALUES(1486, 'Vila Rica', 13, 5108600); +INSERT INTO SYS_CIDADES VALUES(1487, 'Água Clara', 12, 5000203); +INSERT INTO SYS_CIDADES VALUES(1488, 'Alcinópolis', 12, 5000252); +INSERT INTO SYS_CIDADES VALUES(1489, 'Amambaí', 12, 5000609); +INSERT INTO SYS_CIDADES VALUES(1490, 'Anastácio', 12, 5000708); +INSERT INTO SYS_CIDADES VALUES(1491, 'Anaurilândia', 12, 5000807); +INSERT INTO SYS_CIDADES VALUES(1492, 'Angélica', 12, 5000856); +INSERT INTO SYS_CIDADES VALUES(1493, 'Antônio João', 12, 5000906); +INSERT INTO SYS_CIDADES VALUES(1494, 'Aparecida do Taboado', 12, 5001003); +INSERT INTO SYS_CIDADES VALUES(1495, 'Aquidauana', 12, 5001102); +INSERT INTO SYS_CIDADES VALUES(1496, 'Aral Moreira', 12, 5001243); +INSERT INTO SYS_CIDADES VALUES(1497, 'Bandeirantes', 12, 5001508); +INSERT INTO SYS_CIDADES VALUES(1498, 'Bataguassu', 12, 5001904); +INSERT INTO SYS_CIDADES VALUES(1500, 'Bela Vista', 12, 5002100); +INSERT INTO SYS_CIDADES VALUES(1501, 'Bodoquena', 12, 5002159); +INSERT INTO SYS_CIDADES VALUES(1502, 'Bonito', 12, 5002209); +INSERT INTO SYS_CIDADES VALUES(1503, 'Brasilândia', 12, 5002308); +INSERT INTO SYS_CIDADES VALUES(1504, 'Caarapó', 12, 5002407); +INSERT INTO SYS_CIDADES VALUES(1505, 'Camapuã', 12, 5002605); +INSERT INTO SYS_CIDADES VALUES(1506, 'Campo Grande', 12, 5002704); +INSERT INTO SYS_CIDADES VALUES(1507, 'Caracol', 12, 5002803); +INSERT INTO SYS_CIDADES VALUES(1508, 'Cassilândia', 12, 5002902); +INSERT INTO SYS_CIDADES VALUES(1509, 'Chapadão do Sul', 12, 5002951); +INSERT INTO SYS_CIDADES VALUES(1510, 'Corguinho', 12, 5003108); +INSERT INTO SYS_CIDADES VALUES(1511, 'Coronel Sapucaia', 12, 5003157); +INSERT INTO SYS_CIDADES VALUES(1512, 'Corumbá', 12, 5003207); +INSERT INTO SYS_CIDADES VALUES(1513, 'Costa Rica', 12, 5003256); +INSERT INTO SYS_CIDADES VALUES(1514, 'Coxim', 12, 5003306); +INSERT INTO SYS_CIDADES VALUES(1515, 'Deodápolis', 12, 5003454); +INSERT INTO SYS_CIDADES VALUES(1516, 'Dois Irmãos do Buriti', 12, 5003488); +INSERT INTO SYS_CIDADES VALUES(1517, 'Douradina', 12, 5003504); +INSERT INTO SYS_CIDADES VALUES(1518, 'Dourados', 12, 5003702); +INSERT INTO SYS_CIDADES VALUES(1519, 'Eldorado', 12, 5003751); +INSERT INTO SYS_CIDADES VALUES(1520, 'Fátima do Sul', 12, 5003801); +INSERT INTO SYS_CIDADES VALUES(1521, 'Figueirão', 12, 5003900); +INSERT INTO SYS_CIDADES VALUES(1522, 'Glória de Dourados', 12, 5004007); +INSERT INTO SYS_CIDADES VALUES(1523, 'Guia Lopes da Laguna', 12, 5004106); +INSERT INTO SYS_CIDADES VALUES(1524, 'Iguatemi', 12, 5004304); +INSERT INTO SYS_CIDADES VALUES(1525, 'Inocência', 12, 5004403); +INSERT INTO SYS_CIDADES VALUES(1526, 'Itaporã', 12, 5004502); +INSERT INTO SYS_CIDADES VALUES(1527, 'Itaquiraí', 12, 5004601); +INSERT INTO SYS_CIDADES VALUES(1528, 'Ivinhema', 12, 5004700); +INSERT INTO SYS_CIDADES VALUES(1529, 'Japorã', 12, 5004809); +INSERT INTO SYS_CIDADES VALUES(1530, 'Jaraguari', 12, 5004908); +INSERT INTO SYS_CIDADES VALUES(1531, 'Jardim', 12, 5005004); +INSERT INTO SYS_CIDADES VALUES(1532, 'Jateí', 12, 5005103); +INSERT INTO SYS_CIDADES VALUES(1533, 'Juti', 12, 5005152); +INSERT INTO SYS_CIDADES VALUES(1534, 'Ladário', 12, 5005202); +INSERT INTO SYS_CIDADES VALUES(1535, 'Laguna Carapã', 12, 5005251); +INSERT INTO SYS_CIDADES VALUES(1536, 'Maracaju', 12, 5005400); +INSERT INTO SYS_CIDADES VALUES(1537, 'Miranda', 12, 5005608); +INSERT INTO SYS_CIDADES VALUES(1538, 'Mundo Novo', 12, 5005681); +INSERT INTO SYS_CIDADES VALUES(1539, 'Naviraí', 12, 5005707); +INSERT INTO SYS_CIDADES VALUES(1540, 'Nioaque', 12, 5005806); +INSERT INTO SYS_CIDADES VALUES(1541, 'Nova Alvorada do Sul', 12, 5006002); +INSERT INTO SYS_CIDADES VALUES(1542, 'Nova Andradina', 12, 5006200); +INSERT INTO SYS_CIDADES VALUES(1543, 'Novo Horizonte do Sul', 12, 5006259); +INSERT INTO SYS_CIDADES VALUES(1544, 'Paranaíba', 12, 5006309); +INSERT INTO SYS_CIDADES VALUES(1545, 'Paranhos', 12, 5006358); +INSERT INTO SYS_CIDADES VALUES(1546, 'Pedro Gomes', 12, 5006408); +INSERT INTO SYS_CIDADES VALUES(1547, 'Ponta Porã', 12, 5006606); +INSERT INTO SYS_CIDADES VALUES(1548, 'Porto Murtinho', 12, 5006903); +INSERT INTO SYS_CIDADES VALUES(1549, 'Ribas do Rio Pardo', 12, 5007109); +INSERT INTO SYS_CIDADES VALUES(1550, 'Rio Brilhante', 12, 5007208); +INSERT INTO SYS_CIDADES VALUES(1551, 'Rio Negro', 12, 5007307); +INSERT INTO SYS_CIDADES VALUES(1552, 'Rio Verde de Mato Grosso', 12, 5007406); +INSERT INTO SYS_CIDADES VALUES(1553, 'Rochedo', 12, 5007505); +INSERT INTO SYS_CIDADES VALUES(1554, 'Santa Rita do Pardo', 12, 5007554); +INSERT INTO SYS_CIDADES VALUES(1555, 'São Gabriel do Oeste', 12, 5007695); +INSERT INTO SYS_CIDADES VALUES(1556, 'Selvíria', 12, 5007802); +INSERT INTO SYS_CIDADES VALUES(1557, 'Sete Quedas', 12, 5007703); +INSERT INTO SYS_CIDADES VALUES(1558, 'Sidrolândia', 12, 5007901); +INSERT INTO SYS_CIDADES VALUES(1559, 'Sonora', 12, 5007935); +INSERT INTO SYS_CIDADES VALUES(1560, 'Tacuru', 12, 5007950); +INSERT INTO SYS_CIDADES VALUES(1561, 'Taquarussu', 12, 5007976); +INSERT INTO SYS_CIDADES VALUES(1562, 'Terenos', 12, 5008008); +INSERT INTO SYS_CIDADES VALUES(1563, 'Três Lagoas', 12, 5008305); +INSERT INTO SYS_CIDADES VALUES(1564, 'Vicentina', 12, 5008404); +INSERT INTO SYS_CIDADES VALUES(1565, 'Abadia dos Dourados', 11, 3100104); +INSERT INTO SYS_CIDADES VALUES(1566, 'Abaeté', 11, 3100203); +INSERT INTO SYS_CIDADES VALUES(1567, 'Abre Campo', 11, 3100302); +INSERT INTO SYS_CIDADES VALUES(1568, 'Acaiaca', 11, 3100401); +INSERT INTO SYS_CIDADES VALUES(1569, 'Açucena', 11, 3100500); +INSERT INTO SYS_CIDADES VALUES(1570, 'Água Boa', 11, 3100609); +INSERT INTO SYS_CIDADES VALUES(1571, 'Água Comprida', 11, 3100708); +INSERT INTO SYS_CIDADES VALUES(1572, 'Aguanil', 11, 3100807); +INSERT INTO SYS_CIDADES VALUES(1573, 'Águas Formosas', 11, 3100906); +INSERT INTO SYS_CIDADES VALUES(1574, 'Águas Vermelhas', 11, 3101003); +INSERT INTO SYS_CIDADES VALUES(1575, 'Aimorés', 11, 3101102); +INSERT INTO SYS_CIDADES VALUES(1576, 'Aiuruoca', 11, 3101201); +INSERT INTO SYS_CIDADES VALUES(1577, 'Alagoa', 11, 3101300); +INSERT INTO SYS_CIDADES VALUES(1578, 'Albertina', 11, 3101409); +INSERT INTO SYS_CIDADES VALUES(1579, 'Além Paraíba', 11, 3101508); +INSERT INTO SYS_CIDADES VALUES(1580, 'Alfenas', 11, 3101607); +INSERT INTO SYS_CIDADES VALUES(1581, 'Alfredo Vasconcelos', 11, 3101631); +INSERT INTO SYS_CIDADES VALUES(1582, 'Almenara', 11, 3101706); +INSERT INTO SYS_CIDADES VALUES(1583, 'Alpercata', 11, 3101805); +INSERT INTO SYS_CIDADES VALUES(1584, 'Alpinópolis', 11, 3101904); +INSERT INTO SYS_CIDADES VALUES(1585, 'Alterosa', 11, 3102001); +INSERT INTO SYS_CIDADES VALUES(1586, 'Alto Caparaó', 11, 3102050); +INSERT INTO SYS_CIDADES VALUES(1587, 'Alto Jequitibá', 11, 3153509); +INSERT INTO SYS_CIDADES VALUES(1588, 'Alto Rio Doce', 11, 3102100); +INSERT INTO SYS_CIDADES VALUES(1589, 'Alvarenga', 11, 3102209); +INSERT INTO SYS_CIDADES VALUES(1590, 'Alvinópolis', 11, 3102308); +INSERT INTO SYS_CIDADES VALUES(1591, 'Alvorada de Minas', 11, 3102407); +INSERT INTO SYS_CIDADES VALUES(1592, 'Amparo do Serra', 11, 3102506); +INSERT INTO SYS_CIDADES VALUES(1593, 'Andradas', 11, 3102605); +INSERT INTO SYS_CIDADES VALUES(1594, 'Andrelândia', 11, 3102803); +INSERT INTO SYS_CIDADES VALUES(1595, 'Angelândia', 11, 3102852); +INSERT INTO SYS_CIDADES VALUES(1596, 'Antônio Carlos', 11, 3102902); +INSERT INTO SYS_CIDADES VALUES(1597, 'Antônio Dias', 11, 3103009); +INSERT INTO SYS_CIDADES VALUES(1598, 'Antônio Prado de Minas', 11, 3103108); +INSERT INTO SYS_CIDADES VALUES(1599, 'Araçaí', 11, 3103207); +INSERT INTO SYS_CIDADES VALUES(1600, 'Aracitaba', 11, 3103306); +INSERT INTO SYS_CIDADES VALUES(1601, 'Araçuaí', 11, 3103405); +INSERT INTO SYS_CIDADES VALUES(1602, 'Araguari', 11, 3103504); +INSERT INTO SYS_CIDADES VALUES(1603, 'Arantina', 11, 3103603); +INSERT INTO SYS_CIDADES VALUES(1604, 'Araponga', 11, 3103702); +INSERT INTO SYS_CIDADES VALUES(1605, 'Araporã', 11, 3103751); +INSERT INTO SYS_CIDADES VALUES(1606, 'Arapuá', 11, 3103801); +INSERT INTO SYS_CIDADES VALUES(1607, 'Araújos', 11, 3103900); +INSERT INTO SYS_CIDADES VALUES(1608, 'Araxá', 11, 3104007); +INSERT INTO SYS_CIDADES VALUES(1609, 'Arceburgo', 11, 3104106); +INSERT INTO SYS_CIDADES VALUES(1610, 'Arcos', 11, 3104205); +INSERT INTO SYS_CIDADES VALUES(1611, 'Areado', 11, 3104304); +INSERT INTO SYS_CIDADES VALUES(1612, 'Argirita', 11, 3104403); +INSERT INTO SYS_CIDADES VALUES(1613, 'Aricanduva', 11, 3104452); +INSERT INTO SYS_CIDADES VALUES(1614, 'Arinos', 11, 3104502); +INSERT INTO SYS_CIDADES VALUES(1615, 'Astolfo Dutra', 11, 3104601); +INSERT INTO SYS_CIDADES VALUES(1616, 'Ataléia', 11, 3104700); +INSERT INTO SYS_CIDADES VALUES(1617, 'Augusto de Lima', 11, 3104809); +INSERT INTO SYS_CIDADES VALUES(1618, 'Baependi', 11, 3104908); +INSERT INTO SYS_CIDADES VALUES(1619, 'Baldim', 11, 3105004); +INSERT INTO SYS_CIDADES VALUES(1620, 'Bambuí', 11, 3105103); +INSERT INTO SYS_CIDADES VALUES(1621, 'Bandeira', 11, 3105202); +INSERT INTO SYS_CIDADES VALUES(1622, 'Bandeira do Sul', 11, 3105301); +INSERT INTO SYS_CIDADES VALUES(1623, 'Barão de Cocais', 11, 3105400); +INSERT INTO SYS_CIDADES VALUES(1624, 'Barão de Monte Alto', 11, 3105509); +INSERT INTO SYS_CIDADES VALUES(1625, 'Barbacena', 11, 3105608); +INSERT INTO SYS_CIDADES VALUES(1626, 'Barra Longa', 11, 3105707); +INSERT INTO SYS_CIDADES VALUES(1627, 'Barroso', 11, 3105905); +INSERT INTO SYS_CIDADES VALUES(1628, 'Bela Vista de Minas', 11, 3106002); +INSERT INTO SYS_CIDADES VALUES(1629, 'Belmiro Braga', 11, 3106101); +INSERT INTO SYS_CIDADES VALUES(1630, 'Belo Horizonte', 11, 3106200); +INSERT INTO SYS_CIDADES VALUES(1631, 'Belo Oriente', 11, 3106309); +INSERT INTO SYS_CIDADES VALUES(1632, 'Belo Vale', 11, 3106408); +INSERT INTO SYS_CIDADES VALUES(1633, 'Berilo', 11, 3106507); +INSERT INTO SYS_CIDADES VALUES(1634, 'Berizal', 11, 3106655); +INSERT INTO SYS_CIDADES VALUES(1635, 'Bertópolis', 11, 3106606); +INSERT INTO SYS_CIDADES VALUES(1636, 'Betim', 11, 3106705); +INSERT INTO SYS_CIDADES VALUES(1637, 'Bias Fortes', 11, 3106804); +INSERT INTO SYS_CIDADES VALUES(1638, 'Bicas', 11, 3106903); +INSERT INTO SYS_CIDADES VALUES(1639, 'Biquinhas', 11, 3107000); +INSERT INTO SYS_CIDADES VALUES(1640, 'Boa Esperança', 11, 3107109); +INSERT INTO SYS_CIDADES VALUES(1641, 'Bocaina de Minas', 11, 3107208); +INSERT INTO SYS_CIDADES VALUES(1642, 'Bocaiúva', 11, 3107307); +INSERT INTO SYS_CIDADES VALUES(1643, 'Bom Despacho', 11, 3107406); +INSERT INTO SYS_CIDADES VALUES(1644, 'Bom Jardim de Minas', 11, 3107505); +INSERT INTO SYS_CIDADES VALUES(1645, 'Bom Jesus da Penha', 11, 3107604); +INSERT INTO SYS_CIDADES VALUES(1646, 'Bom Jesus do Amparo', 11, 3107703); +INSERT INTO SYS_CIDADES VALUES(1647, 'Bom Jesus do Galho', 11, 3107802); +INSERT INTO SYS_CIDADES VALUES(1648, 'Bom Repouso', 11, 3107901); +INSERT INTO SYS_CIDADES VALUES(1649, 'Bom Sucesso', 11, 3108008); +INSERT INTO SYS_CIDADES VALUES(1650, 'Bonfim', 11, 3108107); +INSERT INTO SYS_CIDADES VALUES(1651, 'Bonfinópolis de Minas', 11, 3108206); +INSERT INTO SYS_CIDADES VALUES(1652, 'Bonito de Minas', 11, 3108255); +INSERT INTO SYS_CIDADES VALUES(1653, 'Borda da Mata', 11, 3108305); +INSERT INTO SYS_CIDADES VALUES(1654, 'Botelhos', 11, 3108404); +INSERT INTO SYS_CIDADES VALUES(1655, 'Botumirim', 11, 3108503); +INSERT INTO SYS_CIDADES VALUES(1656, 'Brás Pires', 11, 3108701); +INSERT INTO SYS_CIDADES VALUES(1657, 'Brasilândia de Minas', 11, 3108552); +INSERT INTO SYS_CIDADES VALUES(1658, 'Brasília de Minas', 11, 3108602); +INSERT INTO SYS_CIDADES VALUES(1659, 'Brasópolis', 11, 3108909); +INSERT INTO SYS_CIDADES VALUES(1660, 'Braúnas', 11, 3108800); +INSERT INTO SYS_CIDADES VALUES(1661, 'Brumadinho', 11, 3109006); +INSERT INTO SYS_CIDADES VALUES(1662, 'Bueno Brandão', 11, 3109105); +INSERT INTO SYS_CIDADES VALUES(1663, 'Buenópolis', 11, 3109204); +INSERT INTO SYS_CIDADES VALUES(1664, 'Bugre', 11, 3109253); +INSERT INTO SYS_CIDADES VALUES(1665, 'Buritis', 11, 3109303); +INSERT INTO SYS_CIDADES VALUES(1666, 'Buritizeiro', 11, 3109402); +INSERT INTO SYS_CIDADES VALUES(1667, 'Cabeceira Grande', 11, 3109451); +INSERT INTO SYS_CIDADES VALUES(1668, 'Cabo Verde', 11, 3109501); +INSERT INTO SYS_CIDADES VALUES(1669, 'Cachoeira da Prata', 11, 3109600); +INSERT INTO SYS_CIDADES VALUES(1670, 'Cachoeira de Minas', 11, 3109709); +INSERT INTO SYS_CIDADES VALUES(1671, 'Cachoeira de Pajeú', 11, 3102704); +INSERT INTO SYS_CIDADES VALUES(1672, 'Cachoeira Dourada', 11, 3109808); +INSERT INTO SYS_CIDADES VALUES(1673, 'Caetanópolis', 11, 3109907); +INSERT INTO SYS_CIDADES VALUES(1674, 'Caeté', 11, 3110004); +INSERT INTO SYS_CIDADES VALUES(1675, 'Caiana', 11, 3110103); +INSERT INTO SYS_CIDADES VALUES(1676, 'Cajuri', 11, 3110202); +INSERT INTO SYS_CIDADES VALUES(1677, 'Caldas', 11, 3110301); +INSERT INTO SYS_CIDADES VALUES(1678, 'Camacho', 11, 3110400); +INSERT INTO SYS_CIDADES VALUES(1679, 'Camanducaia', 11, 3110509); +INSERT INTO SYS_CIDADES VALUES(1680, 'Cambuí', 11, 3110608); +INSERT INTO SYS_CIDADES VALUES(1681, 'Cambuquira', 11, 3110707); +INSERT INTO SYS_CIDADES VALUES(1682, 'Campanário', 11, 3110806); +INSERT INTO SYS_CIDADES VALUES(1683, 'Campanha', 11, 3110905); +INSERT INTO SYS_CIDADES VALUES(1684, 'Campestre', 11, 3111002); +INSERT INTO SYS_CIDADES VALUES(1685, 'Campina Verde', 11, 3111101); +INSERT INTO SYS_CIDADES VALUES(1686, 'Campo Azul', 11, 3111150); +INSERT INTO SYS_CIDADES VALUES(1687, 'Campo Belo', 11, 3111200); +INSERT INTO SYS_CIDADES VALUES(1688, 'Campo do Meio', 11, 3111309); +INSERT INTO SYS_CIDADES VALUES(1689, 'Campo Florido', 11, 3111408); +INSERT INTO SYS_CIDADES VALUES(1690, 'Campos Altos', 11, 3111507); +INSERT INTO SYS_CIDADES VALUES(1691, 'Campos Gerais', 11, 3111606); +INSERT INTO SYS_CIDADES VALUES(1692, 'Cana Verde', 11, 3111903); +INSERT INTO SYS_CIDADES VALUES(1693, 'Canaã', 11, 3111705); +INSERT INTO SYS_CIDADES VALUES(1694, 'Canápolis', 11, 3111804); +INSERT INTO SYS_CIDADES VALUES(1695, 'Candeias', 11, 3112000); +INSERT INTO SYS_CIDADES VALUES(1696, 'Cantagalo', 11, 3112059); +INSERT INTO SYS_CIDADES VALUES(1697, 'Caparaó', 11, 3112109); +INSERT INTO SYS_CIDADES VALUES(1698, 'Capela Nova', 11, 3112208); +INSERT INTO SYS_CIDADES VALUES(1699, 'Capelinha', 11, 3112307); +INSERT INTO SYS_CIDADES VALUES(1700, 'Capetinga', 11, 3112406); +INSERT INTO SYS_CIDADES VALUES(1701, 'Capim Branco', 11, 3112505); +INSERT INTO SYS_CIDADES VALUES(1702, 'Capinópolis', 11, 3112604); +INSERT INTO SYS_CIDADES VALUES(1703, 'Capitão Andrade', 11, 3112653); +INSERT INTO SYS_CIDADES VALUES(1704, 'Capitão Enéas', 11, 3112703); +INSERT INTO SYS_CIDADES VALUES(1705, 'Capitólio', 11, 3112802); +INSERT INTO SYS_CIDADES VALUES(1706, 'Caputira', 11, 3112901); +INSERT INTO SYS_CIDADES VALUES(1707, 'Caraí', 11, 3113008); +INSERT INTO SYS_CIDADES VALUES(1708, 'Caranaíba', 11, 3113107); +INSERT INTO SYS_CIDADES VALUES(1709, 'Carandaí', 11, 3113206); +INSERT INTO SYS_CIDADES VALUES(1710, 'Carangola', 11, 3113305); +INSERT INTO SYS_CIDADES VALUES(1711, 'Caratinga', 11, 3113404); +INSERT INTO SYS_CIDADES VALUES(1712, 'Carbonita', 11, 3113503); +INSERT INTO SYS_CIDADES VALUES(1713, 'Careaçu', 11, 3113602); +INSERT INTO SYS_CIDADES VALUES(1714, 'Carlos Chagas', 11, 3113701); +INSERT INTO SYS_CIDADES VALUES(1715, 'Carmésia', 11, 3113800); +INSERT INTO SYS_CIDADES VALUES(1716, 'Carmo da Cachoeira', 11, 3113909); +INSERT INTO SYS_CIDADES VALUES(1717, 'Carmo da Mata', 11, 3114006); +INSERT INTO SYS_CIDADES VALUES(1718, 'Carmo de Minas', 11, 3114105); +INSERT INTO SYS_CIDADES VALUES(1719, 'Carmo do Cajuru', 11, 3114204); +INSERT INTO SYS_CIDADES VALUES(1720, 'Carmo do Paranaíba', 11, 3114303); +INSERT INTO SYS_CIDADES VALUES(1721, 'Carmo do Rio Claro', 11, 3114402); +INSERT INTO SYS_CIDADES VALUES(1722, 'Carmópolis de Minas', 11, 3114501); +INSERT INTO SYS_CIDADES VALUES(1723, 'Carneirinho', 11, 3114550); +INSERT INTO SYS_CIDADES VALUES(1724, 'Carrancas', 11, 3114600); +INSERT INTO SYS_CIDADES VALUES(1725, 'Carvalhópolis', 11, 3114709); +INSERT INTO SYS_CIDADES VALUES(1726, 'Carvalhos', 11, 3114808); +INSERT INTO SYS_CIDADES VALUES(1727, 'Casa Grande', 11, 3114907); +INSERT INTO SYS_CIDADES VALUES(1728, 'Cascalho Rico', 11, 3115003); +INSERT INTO SYS_CIDADES VALUES(1729, 'Cássia', 11, 3115102); +INSERT INTO SYS_CIDADES VALUES(1730, 'Cataguases', 11, 3115300); +INSERT INTO SYS_CIDADES VALUES(1731, 'Catas Altas', 11, 3115359); +INSERT INTO SYS_CIDADES VALUES(1732, 'Catas Altas da Noruega', 11, 3115409); +INSERT INTO SYS_CIDADES VALUES(1733, 'Catuji', 11, 3115458); +INSERT INTO SYS_CIDADES VALUES(1734, 'Catuti', 11, 3115474); +INSERT INTO SYS_CIDADES VALUES(1735, 'Caxambu', 11, 3115508); +INSERT INTO SYS_CIDADES VALUES(1736, 'Cedro do Abaeté', 11, 3115607); +INSERT INTO SYS_CIDADES VALUES(1737, 'Central de Minas', 11, 3115706); +INSERT INTO SYS_CIDADES VALUES(1738, 'Centralina', 11, 3115805); +INSERT INTO SYS_CIDADES VALUES(1739, 'Chácara', 11, 3115904); +INSERT INTO SYS_CIDADES VALUES(1740, 'Chalé', 11, 3116001); +INSERT INTO SYS_CIDADES VALUES(1741, 'Chapada do Norte', 11, 3116100); +INSERT INTO SYS_CIDADES VALUES(1742, 'Chapada Gaúcha', 11, 3116159); +INSERT INTO SYS_CIDADES VALUES(1743, 'Chiador', 11, 3116209); +INSERT INTO SYS_CIDADES VALUES(1744, 'Cipotânea', 11, 3116308); +INSERT INTO SYS_CIDADES VALUES(1745, 'Claraval', 11, 3116407); +INSERT INTO SYS_CIDADES VALUES(1746, 'Claro dos Poções', 11, 3116506); +INSERT INTO SYS_CIDADES VALUES(1747, 'Cláudio', 11, 3116605); +INSERT INTO SYS_CIDADES VALUES(1748, 'Coimbra', 11, 3116704); +INSERT INTO SYS_CIDADES VALUES(1749, 'Coluna', 11, 3116803); +INSERT INTO SYS_CIDADES VALUES(1750, 'Comendador Gomes', 11, 3116902); +INSERT INTO SYS_CIDADES VALUES(1751, 'Comercinho', 11, 3117009); +INSERT INTO SYS_CIDADES VALUES(1752, 'Conceição da Aparecida', 11, 3117108); +INSERT INTO SYS_CIDADES VALUES(1753, 'Conceição da Barra de Minas', 11, 3115201); +INSERT INTO SYS_CIDADES VALUES(1754, 'Conceição das Alagoas', 11, 3117306); +INSERT INTO SYS_CIDADES VALUES(1755, 'Conceição das Pedras', 11, 3117207); +INSERT INTO SYS_CIDADES VALUES(1756, 'Conceição de Ipanema', 11, 3117405); +INSERT INTO SYS_CIDADES VALUES(1757, 'Conceição do Mato Dentro', 11, 3117504); +INSERT INTO SYS_CIDADES VALUES(1758, 'Conceição do Pará', 11, 3117603); +INSERT INTO SYS_CIDADES VALUES(1759, 'Conceição do Rio Verde', 11, 3117702); +INSERT INTO SYS_CIDADES VALUES(1760, 'Conceição dos Ouros', 11, 3117801); +INSERT INTO SYS_CIDADES VALUES(1761, 'Cônego Marinho', 11, 3117836); +INSERT INTO SYS_CIDADES VALUES(1762, 'Confins', 11, 3117876); +INSERT INTO SYS_CIDADES VALUES(1763, 'Congonhal', 11, 3117900); +INSERT INTO SYS_CIDADES VALUES(1764, 'Congonhas', 11, 3118007); +INSERT INTO SYS_CIDADES VALUES(1765, 'Congonhas do Norte', 11, 3118106); +INSERT INTO SYS_CIDADES VALUES(1766, 'Conquista', 11, 3118205); +INSERT INTO SYS_CIDADES VALUES(1767, 'Conselheiro Lafaiete', 11, 3118304); +INSERT INTO SYS_CIDADES VALUES(1768, 'Conselheiro Pena', 11, 3118403); +INSERT INTO SYS_CIDADES VALUES(1769, 'Consolação', 11, 3118502); +INSERT INTO SYS_CIDADES VALUES(1770, 'Contagem', 11, 3118601); +INSERT INTO SYS_CIDADES VALUES(1771, 'Coqueiral', 11, 3118700); +INSERT INTO SYS_CIDADES VALUES(1772, 'Coração de Jesus', 11, 3118809); +INSERT INTO SYS_CIDADES VALUES(1773, 'Cordisburgo', 11, 3118908); +INSERT INTO SYS_CIDADES VALUES(1774, 'Cordislândia', 11, 3119005); +INSERT INTO SYS_CIDADES VALUES(1775, 'Corinto', 11, 3119104); +INSERT INTO SYS_CIDADES VALUES(1776, 'Coroaci', 11, 3119203); +INSERT INTO SYS_CIDADES VALUES(1777, 'Coromandel', 11, 3119302); +INSERT INTO SYS_CIDADES VALUES(1778, 'Coronel Fabriciano', 11, 3119401); +INSERT INTO SYS_CIDADES VALUES(1779, 'Coronel Murta', 11, 3119500); +INSERT INTO SYS_CIDADES VALUES(1780, 'Coronel Pacheco', 11, 3119609); +INSERT INTO SYS_CIDADES VALUES(1781, 'Coronel Xavier Chaves', 11, 3119708); +INSERT INTO SYS_CIDADES VALUES(1782, 'Córrego Danta', 11, 3119807); +INSERT INTO SYS_CIDADES VALUES(1783, 'Córrego do Bom Jesus', 11, 3119906); +INSERT INTO SYS_CIDADES VALUES(1784, 'Córrego Fundo', 11, 3119955); +INSERT INTO SYS_CIDADES VALUES(1785, 'Córrego Novo', 11, 3120003); +INSERT INTO SYS_CIDADES VALUES(1786, 'Couto de Magalhães de Minas', 11, 3120102); +INSERT INTO SYS_CIDADES VALUES(1787, 'Crisólita', 11, 3120151); +INSERT INTO SYS_CIDADES VALUES(1788, 'Cristais', 11, 3120201); +INSERT INTO SYS_CIDADES VALUES(1789, 'Cristália', 11, 3120300); +INSERT INTO SYS_CIDADES VALUES(1790, 'Cristiano Otoni', 11, 3120409); +INSERT INTO SYS_CIDADES VALUES(1791, 'Cristina', 11, 3120508); +INSERT INTO SYS_CIDADES VALUES(1792, 'Crucilândia', 11, 3120607); +INSERT INTO SYS_CIDADES VALUES(1793, 'Cruzeiro da Fortaleza', 11, 3120706); +INSERT INTO SYS_CIDADES VALUES(1794, 'Cruzília', 11, 3120805); +INSERT INTO SYS_CIDADES VALUES(1795, 'Cuparaque', 11, 3120839); +INSERT INTO SYS_CIDADES VALUES(1796, 'Curral de Dentro', 11, 3120870); +INSERT INTO SYS_CIDADES VALUES(1797, 'Curvelo', 11, 3120904); +INSERT INTO SYS_CIDADES VALUES(1798, 'Datas', 11, 3121001); +INSERT INTO SYS_CIDADES VALUES(1799, 'Delfim Moreira', 11, 3121100); +INSERT INTO SYS_CIDADES VALUES(1800, 'Delfinópolis', 11, 3121209); +INSERT INTO SYS_CIDADES VALUES(1801, 'Delta', 11, 3121258); +INSERT INTO SYS_CIDADES VALUES(1802, 'Descoberto', 11, 3121308); +INSERT INTO SYS_CIDADES VALUES(1803, 'Desterro de Entre Rios', 11, 3121407); +INSERT INTO SYS_CIDADES VALUES(1804, 'Desterro do Melo', 11, 3121506); +INSERT INTO SYS_CIDADES VALUES(1805, 'Diamantina', 11, 3121605); +INSERT INTO SYS_CIDADES VALUES(1806, 'Diogo de Vasconcelos', 11, 3121704); +INSERT INTO SYS_CIDADES VALUES(1807, 'Dionísio', 11, 3121803); +INSERT INTO SYS_CIDADES VALUES(1808, 'Divinésia', 11, 3121902); +INSERT INTO SYS_CIDADES VALUES(1809, 'Divino', 11, 3122009); +INSERT INTO SYS_CIDADES VALUES(1810, 'Divino das Laranjeiras', 11, 3122108); +INSERT INTO SYS_CIDADES VALUES(1811, 'Divinolândia de Minas', 11, 3122207); +INSERT INTO SYS_CIDADES VALUES(1812, 'Divinópolis', 11, 3122306); +INSERT INTO SYS_CIDADES VALUES(1813, 'Divisa Alegre', 11, 3122355); +INSERT INTO SYS_CIDADES VALUES(1814, 'Divisa Nova', 11, 3122405); +INSERT INTO SYS_CIDADES VALUES(1815, 'Divisópolis', 11, 3122454); +INSERT INTO SYS_CIDADES VALUES(1816, 'Dom Bosco', 11, 3122470); +INSERT INTO SYS_CIDADES VALUES(1817, 'Dom Cavati', 11, 3122504); +INSERT INTO SYS_CIDADES VALUES(1818, 'Dom Joaquim', 11, 3122603); +INSERT INTO SYS_CIDADES VALUES(1819, 'Dom Silvério', 11, 3122702); +INSERT INTO SYS_CIDADES VALUES(1820, 'Dom Viçoso', 11, 3122801); +INSERT INTO SYS_CIDADES VALUES(1821, 'Dona Eusébia', 11, 3122900); +INSERT INTO SYS_CIDADES VALUES(1822, 'Dores de Campos', 11, 3123007); +INSERT INTO SYS_CIDADES VALUES(1823, 'Dores de Guanhães', 11, 3123106); +INSERT INTO SYS_CIDADES VALUES(1824, 'Dores do Indaiá', 11, 3123205); +INSERT INTO SYS_CIDADES VALUES(1825, 'Dores do Turvo', 11, 3123304); +INSERT INTO SYS_CIDADES VALUES(1826, 'Doresópolis', 11, 3123403); +INSERT INTO SYS_CIDADES VALUES(1827, 'Douradoquara', 11, 3123502); +INSERT INTO SYS_CIDADES VALUES(1828, 'Durandé', 11, 3123528); +INSERT INTO SYS_CIDADES VALUES(1829, 'Elói Mendes', 11, 3123601); +INSERT INTO SYS_CIDADES VALUES(1830, 'Engenheiro Caldas', 11, 3123700); +INSERT INTO SYS_CIDADES VALUES(1831, 'Engenheiro Navarro', 11, 3123809); +INSERT INTO SYS_CIDADES VALUES(1832, 'Entre Folhas', 11, 3123858); +INSERT INTO SYS_CIDADES VALUES(1833, 'Entre Rios de Minas', 11, 3123908); +INSERT INTO SYS_CIDADES VALUES(1834, 'Ervália', 11, 3124005); +INSERT INTO SYS_CIDADES VALUES(1835, 'Esmeraldas', 11, 3124104); +INSERT INTO SYS_CIDADES VALUES(1836, 'Espera Feliz', 11, 3124203); +INSERT INTO SYS_CIDADES VALUES(1837, 'Espinosa', 11, 3124302); +INSERT INTO SYS_CIDADES VALUES(1838, 'Espírito Santo do Dourado', 11, 3124401); +INSERT INTO SYS_CIDADES VALUES(1839, 'Estiva', 11, 3124500); +INSERT INTO SYS_CIDADES VALUES(1840, 'Estrela Dalva', 11, 3124609); +INSERT INTO SYS_CIDADES VALUES(1841, 'Estrela do Indaiá', 11, 3124708); +INSERT INTO SYS_CIDADES VALUES(1842, 'Estrela do Sul', 11, 3124807); +INSERT INTO SYS_CIDADES VALUES(1843, 'Eugenópolis', 11, 3124906); +INSERT INTO SYS_CIDADES VALUES(1844, 'Ewbank da Câmara', 11, 3125002); +INSERT INTO SYS_CIDADES VALUES(1845, 'Extrema', 11, 3125101); +INSERT INTO SYS_CIDADES VALUES(1846, 'Fama', 11, 3125200); +INSERT INTO SYS_CIDADES VALUES(1847, 'Faria Lemos', 11, 3125309); +INSERT INTO SYS_CIDADES VALUES(1848, 'Felício dos Santos', 11, 3125408); +INSERT INTO SYS_CIDADES VALUES(1849, 'Felisburgo', 11, 3125606); +INSERT INTO SYS_CIDADES VALUES(1850, 'Felixlândia', 11, 3125705); +INSERT INTO SYS_CIDADES VALUES(1851, 'Fernandes Tourinho', 11, 3125804); +INSERT INTO SYS_CIDADES VALUES(1852, 'Ferros', 11, 3125903); +INSERT INTO SYS_CIDADES VALUES(1853, 'Fervedouro', 11, 3125952); +INSERT INTO SYS_CIDADES VALUES(1854, 'Florestal', 11, 3126000); +INSERT INTO SYS_CIDADES VALUES(1855, 'Formiga', 11, 3126109); +INSERT INTO SYS_CIDADES VALUES(1856, 'Formoso', 11, 3126208); +INSERT INTO SYS_CIDADES VALUES(1857, 'Fortaleza de Minas', 11, 3126307); +INSERT INTO SYS_CIDADES VALUES(1858, 'Fortuna de Minas', 11, 3126406); +INSERT INTO SYS_CIDADES VALUES(1859, 'Francisco Badaró', 11, 3126505); +INSERT INTO SYS_CIDADES VALUES(1860, 'Francisco Dumont', 11, 3126604); +INSERT INTO SYS_CIDADES VALUES(1861, 'Francisco Sá', 11, 3126703); +INSERT INTO SYS_CIDADES VALUES(1862, 'Franciscópolis', 11, 3126752); +INSERT INTO SYS_CIDADES VALUES(1863, 'Frei Gaspar', 11, 3126802); +INSERT INTO SYS_CIDADES VALUES(1864, 'Frei Inocêncio', 11, 3126901); +INSERT INTO SYS_CIDADES VALUES(1865, 'Frei Lagonegro', 11, 3126950); +INSERT INTO SYS_CIDADES VALUES(1866, 'Fronteira', 11, 3127008); +INSERT INTO SYS_CIDADES VALUES(1867, 'Fronteira dos Vales', 11, 3127057); +INSERT INTO SYS_CIDADES VALUES(1868, 'Fruta de Leite', 11, 3127073); +INSERT INTO SYS_CIDADES VALUES(1869, 'Frutal', 11, 3127107); +INSERT INTO SYS_CIDADES VALUES(1870, 'Funilândia', 11, 3127206); +INSERT INTO SYS_CIDADES VALUES(1871, 'Galiléia', 11, 3127305); +INSERT INTO SYS_CIDADES VALUES(1872, 'Gameleiras', 11, 3127339); +INSERT INTO SYS_CIDADES VALUES(1873, 'Glaucilândia', 11, 3127354); +INSERT INTO SYS_CIDADES VALUES(1874, 'Goiabeira', 11, 3127370); +INSERT INTO SYS_CIDADES VALUES(1875, 'Goianá', 11, 3127388); +INSERT INTO SYS_CIDADES VALUES(1876, 'Gonçalves', 11, 3127404); +INSERT INTO SYS_CIDADES VALUES(1877, 'Gonzaga', 11, 3127503); +INSERT INTO SYS_CIDADES VALUES(1878, 'Gouveia', 11, 3127602); +INSERT INTO SYS_CIDADES VALUES(1879, 'Governador Valadares', 11, 3127701); +INSERT INTO SYS_CIDADES VALUES(1880, 'Grão Mogol', 11, 3127800); +INSERT INTO SYS_CIDADES VALUES(1881, 'Grupiara', 11, 3127909); +INSERT INTO SYS_CIDADES VALUES(1882, 'Guanhães', 11, 3128006); +INSERT INTO SYS_CIDADES VALUES(1883, 'Guapé', 11, 3128105); +INSERT INTO SYS_CIDADES VALUES(1884, 'Guaraciaba', 11, 3128204); +INSERT INTO SYS_CIDADES VALUES(1885, 'Guaraciama', 11, 3128253); +INSERT INTO SYS_CIDADES VALUES(1886, 'Guaranésia', 11, 3128303); +INSERT INTO SYS_CIDADES VALUES(1887, 'Guarani', 11, 3128402); +INSERT INTO SYS_CIDADES VALUES(1888, 'Guarará', 11, 3128501); +INSERT INTO SYS_CIDADES VALUES(1889, 'Guarda-Mor', 11, 3128600); +INSERT INTO SYS_CIDADES VALUES(1890, 'Guaxupé', 11, 3128709); +INSERT INTO SYS_CIDADES VALUES(1891, 'Guidoval', 11, 3128808); +INSERT INTO SYS_CIDADES VALUES(1892, 'Guimarânia', 11, 3128907); +INSERT INTO SYS_CIDADES VALUES(1893, 'Guiricema', 11, 3129004); +INSERT INTO SYS_CIDADES VALUES(1894, 'Gurinhatã', 11, 3129103); +INSERT INTO SYS_CIDADES VALUES(1895, 'Heliodora', 11, 3129202); +INSERT INTO SYS_CIDADES VALUES(1896, 'Iapu', 11, 3129301); +INSERT INTO SYS_CIDADES VALUES(1897, 'Ibertioga', 11, 3129400); +INSERT INTO SYS_CIDADES VALUES(1898, 'Ibiá', 11, 3129509); +INSERT INTO SYS_CIDADES VALUES(1899, 'Ibiaí', 11, 3129608); +INSERT INTO SYS_CIDADES VALUES(1900, 'Ibiracatu', 11, 3129657); +INSERT INTO SYS_CIDADES VALUES(1901, 'Ibiraci', 11, 3129707); +INSERT INTO SYS_CIDADES VALUES(1902, 'Ibirité', 11, 3129806); +INSERT INTO SYS_CIDADES VALUES(1903, 'Ibitiúra de Minas', 11, 3129905); +INSERT INTO SYS_CIDADES VALUES(1904, 'Ibituruna', 11, 3130002); +INSERT INTO SYS_CIDADES VALUES(1905, 'Icaraí de Minas', 11, 3130051); +INSERT INTO SYS_CIDADES VALUES(1906, 'Igarapé', 11, 3130101); +INSERT INTO SYS_CIDADES VALUES(1907, 'Igaratinga', 11, 3130200); +INSERT INTO SYS_CIDADES VALUES(1908, 'Iguatama', 11, 3130309); +INSERT INTO SYS_CIDADES VALUES(1909, 'Ijaci', 11, 3130408); +INSERT INTO SYS_CIDADES VALUES(1910, 'Ilicínea', 11, 3130507); +INSERT INTO SYS_CIDADES VALUES(1911, 'Imbé de Minas', 11, 3130556); +INSERT INTO SYS_CIDADES VALUES(1912, 'Inconfidentes', 11, 3130606); +INSERT INTO SYS_CIDADES VALUES(1913, 'Indaiabira', 11, 3130655); +INSERT INTO SYS_CIDADES VALUES(1914, 'Indianópolis', 11, 3130705); +INSERT INTO SYS_CIDADES VALUES(1915, 'Ingaí', 11, 3130804); +INSERT INTO SYS_CIDADES VALUES(1916, 'Inhapim', 11, 3130903); +INSERT INTO SYS_CIDADES VALUES(1917, 'Inhaúma', 11, 3131000); +INSERT INTO SYS_CIDADES VALUES(1918, 'Inimutaba', 11, 3131109); +INSERT INTO SYS_CIDADES VALUES(1919, 'Ipaba', 11, 3131158); +INSERT INTO SYS_CIDADES VALUES(1920, 'Ipanema', 11, 3131208); +INSERT INTO SYS_CIDADES VALUES(1921, 'Ipatinga', 11, 3131307); +INSERT INTO SYS_CIDADES VALUES(1922, 'Ipiaçu', 11, 3131406); +INSERT INTO SYS_CIDADES VALUES(1923, 'Ipuiúna', 11, 3131505); +INSERT INTO SYS_CIDADES VALUES(1924, 'Iraí de Minas', 11, 3131604); +INSERT INTO SYS_CIDADES VALUES(1925, 'Itabira', 11, 3131703); +INSERT INTO SYS_CIDADES VALUES(1927, 'Itabirito', 11, 3131901); +INSERT INTO SYS_CIDADES VALUES(1928, 'Itacambira', 11, 3132008); +INSERT INTO SYS_CIDADES VALUES(1929, 'Itacarambi', 11, 3132107); +INSERT INTO SYS_CIDADES VALUES(1930, 'Itaguara', 11, 3132206); +INSERT INTO SYS_CIDADES VALUES(1931, 'Itaipé', 11, 3132305); +INSERT INTO SYS_CIDADES VALUES(1932, 'Itajubá', 11, 3132404); +INSERT INTO SYS_CIDADES VALUES(1933, 'Itamarandiba', 11, 3132503); +INSERT INTO SYS_CIDADES VALUES(1934, 'Itamarati de Minas', 11, 3132602); +INSERT INTO SYS_CIDADES VALUES(1935, 'Itambacuri', 11, 3132701); +INSERT INTO SYS_CIDADES VALUES(1936, 'Itambé do Mato Dentro', 11, 3132800); +INSERT INTO SYS_CIDADES VALUES(1937, 'Itamogi', 11, 3132909); +INSERT INTO SYS_CIDADES VALUES(1938, 'Itamonte', 11, 3133006); +INSERT INTO SYS_CIDADES VALUES(1939, 'Itanhandu', 11, 3133105); +INSERT INTO SYS_CIDADES VALUES(1940, 'Itanhomi', 11, 3133204); +INSERT INTO SYS_CIDADES VALUES(1941, 'Itaobim', 11, 3133303); +INSERT INTO SYS_CIDADES VALUES(1942, 'Itapagipe', 11, 3133402); +INSERT INTO SYS_CIDADES VALUES(1943, 'Itapecerica', 11, 3133501); +INSERT INTO SYS_CIDADES VALUES(1944, 'Itapeva', 11, 3133600); +INSERT INTO SYS_CIDADES VALUES(1945, 'Itatiaiuçu', 11, 3133709); +INSERT INTO SYS_CIDADES VALUES(1946, 'Itaú de Minas', 11, 3133758); +INSERT INTO SYS_CIDADES VALUES(1947, 'Itaúna', 11, 3133808); +INSERT INTO SYS_CIDADES VALUES(1948, 'Itaverava', 11, 3133907); +INSERT INTO SYS_CIDADES VALUES(1949, 'Itinga', 11, 3134004); +INSERT INTO SYS_CIDADES VALUES(1950, 'Itueta', 11, 3134103); +INSERT INTO SYS_CIDADES VALUES(1951, 'Ituiutaba', 11, 3134202); +INSERT INTO SYS_CIDADES VALUES(1952, 'Itumirim', 11, 3134301); +INSERT INTO SYS_CIDADES VALUES(1953, 'Iturama', 11, 3134400); +INSERT INTO SYS_CIDADES VALUES(1954, 'Itutinga', 11, 3134509); +INSERT INTO SYS_CIDADES VALUES(1955, 'Jaboticatubas', 11, 3134608); +INSERT INTO SYS_CIDADES VALUES(1956, 'Jacinto', 11, 3134707); +INSERT INTO SYS_CIDADES VALUES(1957, 'Jacuí', 11, 3134806); +INSERT INTO SYS_CIDADES VALUES(1958, 'Jacutinga', 11, 3134905); +INSERT INTO SYS_CIDADES VALUES(1959, 'Jaguaraçu', 11, 3135001); +INSERT INTO SYS_CIDADES VALUES(1960, 'Jaíba', 11, 3135050); +INSERT INTO SYS_CIDADES VALUES(1961, 'Jampruca', 11, 3135076); +INSERT INTO SYS_CIDADES VALUES(1962, 'Janaúba', 11, 3135100); +INSERT INTO SYS_CIDADES VALUES(1963, 'Januária', 11, 3135209); +INSERT INTO SYS_CIDADES VALUES(1964, 'Japaraíba', 11, 3135308); +INSERT INTO SYS_CIDADES VALUES(1965, 'Japonvar', 11, 3135357); +INSERT INTO SYS_CIDADES VALUES(1966, 'Jeceaba', 11, 3135407); +INSERT INTO SYS_CIDADES VALUES(1967, 'Jenipapo de Minas', 11, 3135456); +INSERT INTO SYS_CIDADES VALUES(1968, 'Jequeri', 11, 3135506); +INSERT INTO SYS_CIDADES VALUES(1969, 'Jequitaí', 11, 3135605); +INSERT INTO SYS_CIDADES VALUES(1970, 'Jequitibá', 11, 3135704); +INSERT INTO SYS_CIDADES VALUES(1971, 'Jequitinhonha', 11, 3135803); +INSERT INTO SYS_CIDADES VALUES(1972, 'Jesuânia', 11, 3135902); +INSERT INTO SYS_CIDADES VALUES(1973, 'Joaíma', 11, 3136009); +INSERT INTO SYS_CIDADES VALUES(1974, 'Joanésia', 11, 3136108); +INSERT INTO SYS_CIDADES VALUES(1975, 'João Monlevade', 11, 3136207); +INSERT INTO SYS_CIDADES VALUES(1976, 'João Pinheiro', 11, 3136306); +INSERT INTO SYS_CIDADES VALUES(1977, 'Joaquim Felício', 11, 3136405); +INSERT INTO SYS_CIDADES VALUES(1978, 'Jordânia', 11, 3136504); +INSERT INTO SYS_CIDADES VALUES(1979, 'José Gonçalves de Minas', 11, 3136520); +INSERT INTO SYS_CIDADES VALUES(1980, 'José Raydan', 11, 3136553); +INSERT INTO SYS_CIDADES VALUES(1981, 'Josenópolis', 11, 3136579); +INSERT INTO SYS_CIDADES VALUES(1982, 'Juatuba', 11, 3136652); +INSERT INTO SYS_CIDADES VALUES(1983, 'Juiz de Fora', 11, 3136702); +INSERT INTO SYS_CIDADES VALUES(1984, 'Juramento', 11, 3136801); +INSERT INTO SYS_CIDADES VALUES(1985, 'Juruaia', 11, 3136900); +INSERT INTO SYS_CIDADES VALUES(1986, 'Juvenília', 11, 3136959); +INSERT INTO SYS_CIDADES VALUES(1987, 'Ladainha', 11, 3137007); +INSERT INTO SYS_CIDADES VALUES(1988, 'Lagamar', 11, 3137106); +INSERT INTO SYS_CIDADES VALUES(1989, 'Lagoa da Prata', 11, 3137205); +INSERT INTO SYS_CIDADES VALUES(1990, 'Lagoa dos Patos', 11, 3137304); +INSERT INTO SYS_CIDADES VALUES(1991, 'Lagoa Dourada', 11, 3137403); +INSERT INTO SYS_CIDADES VALUES(1992, 'Lagoa Formosa', 11, 3137502); +INSERT INTO SYS_CIDADES VALUES(1993, 'Lagoa Grande', 11, 3137536); +INSERT INTO SYS_CIDADES VALUES(1994, 'Lagoa Santa', 11, 3137601); +INSERT INTO SYS_CIDADES VALUES(1995, 'Lajinha', 11, 3137700); +INSERT INTO SYS_CIDADES VALUES(1996, 'Lambari', 11, 3137809); +INSERT INTO SYS_CIDADES VALUES(1997, 'Lamim', 11, 3137908); +INSERT INTO SYS_CIDADES VALUES(1998, 'Laranjal', 11, 3138005); +INSERT INTO SYS_CIDADES VALUES(1999, 'Lassance', 11, 3138104); +INSERT INTO SYS_CIDADES VALUES(2000, 'Lavras', 11, 3138203); +INSERT INTO SYS_CIDADES VALUES(2001, 'Leandro Ferreira', 11, 3138302); +INSERT INTO SYS_CIDADES VALUES(2002, 'Leme do Prado', 11, 3138351); +INSERT INTO SYS_CIDADES VALUES(2003, 'Leopoldina', 11, 3138401); +INSERT INTO SYS_CIDADES VALUES(2004, 'Liberdade', 11, 3138500); +INSERT INTO SYS_CIDADES VALUES(2005, 'Lima Duarte', 11, 3138609); +INSERT INTO SYS_CIDADES VALUES(2006, 'Limeira do Oeste', 11, 3138625); +INSERT INTO SYS_CIDADES VALUES(2007, 'Lontra', 11, 3138658); +INSERT INTO SYS_CIDADES VALUES(2008, 'Luisburgo', 11, 3138674); +INSERT INTO SYS_CIDADES VALUES(2009, 'Luislândia', 11, 3138682); +INSERT INTO SYS_CIDADES VALUES(2010, 'Luminárias', 11, 3138708); +INSERT INTO SYS_CIDADES VALUES(2011, 'Luz', 11, 3138807); +INSERT INTO SYS_CIDADES VALUES(2012, 'Machacalis', 11, 3138906); +INSERT INTO SYS_CIDADES VALUES(2013, 'Machado', 11, 3139003); +INSERT INTO SYS_CIDADES VALUES(2014, 'Madre de Deus de Minas', 11, 3139102); +INSERT INTO SYS_CIDADES VALUES(2015, 'Malacacheta', 11, 3139201); +INSERT INTO SYS_CIDADES VALUES(2016, 'Mamonas', 11, 3139250); +INSERT INTO SYS_CIDADES VALUES(2017, 'Manga', 11, 3139300); +INSERT INTO SYS_CIDADES VALUES(2018, 'Manhuaçu', 11, 3139409); +INSERT INTO SYS_CIDADES VALUES(2019, 'Manhumirim', 11, 3139508); +INSERT INTO SYS_CIDADES VALUES(2020, 'Mantena', 11, 3139607); +INSERT INTO SYS_CIDADES VALUES(2021, 'Mar de Espanha', 11, 3139805); +INSERT INTO SYS_CIDADES VALUES(2022, 'Maravilhas', 11, 3139706); +INSERT INTO SYS_CIDADES VALUES(2023, 'Maria da Fé', 11, 3139904); +INSERT INTO SYS_CIDADES VALUES(2024, 'Mariana', 11, 3140001); +INSERT INTO SYS_CIDADES VALUES(2025, 'Marilac', 11, 3140100); +INSERT INTO SYS_CIDADES VALUES(2026, 'Mário Campos', 11, 3140159); +INSERT INTO SYS_CIDADES VALUES(2027, 'Maripá de Minas', 11, 3140209); +INSERT INTO SYS_CIDADES VALUES(2028, 'Marliéria', 11, 3140308); +INSERT INTO SYS_CIDADES VALUES(2029, 'Marmelópolis', 11, 3140407); +INSERT INTO SYS_CIDADES VALUES(2030, 'Martinho Campos', 11, 3140506); +INSERT INTO SYS_CIDADES VALUES(2031, 'Martins Soares', 11, 3140530); +INSERT INTO SYS_CIDADES VALUES(2032, 'Mata Verde', 11, 3140555); +INSERT INTO SYS_CIDADES VALUES(2033, 'Materlândia', 11, 3140605); +INSERT INTO SYS_CIDADES VALUES(2034, 'Mateus Leme', 11, 3140704); +INSERT INTO SYS_CIDADES VALUES(2035, 'Mathias Lobato', 11, 3171501); +INSERT INTO SYS_CIDADES VALUES(2036, 'Matias Barbosa', 11, 3140803); +INSERT INTO SYS_CIDADES VALUES(2037, 'Matias Cardoso', 11, 3140852); +INSERT INTO SYS_CIDADES VALUES(2038, 'Matipó', 11, 3140902); +INSERT INTO SYS_CIDADES VALUES(2039, 'Mato Verde', 11, 3141009); +INSERT INTO SYS_CIDADES VALUES(2040, 'Matozinhos', 11, 3141108); +INSERT INTO SYS_CIDADES VALUES(2041, 'Matutina', 11, 3141207); +INSERT INTO SYS_CIDADES VALUES(2042, 'Medeiros', 11, 3141306); +INSERT INTO SYS_CIDADES VALUES(2043, 'Medina', 11, 3141405); +INSERT INTO SYS_CIDADES VALUES(2044, 'Mendes Pimentel', 11, 3141504); +INSERT INTO SYS_CIDADES VALUES(2045, 'Mercês', 11, 3141603); +INSERT INTO SYS_CIDADES VALUES(2046, 'Mesquita', 11, 3141702); +INSERT INTO SYS_CIDADES VALUES(2047, 'Minas Novas', 11, 3141801); +INSERT INTO SYS_CIDADES VALUES(2048, 'Minduri', 11, 3141900); +INSERT INTO SYS_CIDADES VALUES(2049, 'Mirabela', 11, 3142007); +INSERT INTO SYS_CIDADES VALUES(2050, 'Miradouro', 11, 3142106); +INSERT INTO SYS_CIDADES VALUES(2051, 'Miraí', 11, 3142205); +INSERT INTO SYS_CIDADES VALUES(2052, 'Miravânia', 11, 3142254); +INSERT INTO SYS_CIDADES VALUES(2053, 'Moeda', 11, 3142304); +INSERT INTO SYS_CIDADES VALUES(2054, 'Moema', 11, 3142403); +INSERT INTO SYS_CIDADES VALUES(2055, 'Monjolos', 11, 3142502); +INSERT INTO SYS_CIDADES VALUES(2056, 'Monsenhor Paulo', 11, 3142601); +INSERT INTO SYS_CIDADES VALUES(2057, 'Montalvânia', 11, 3142700); +INSERT INTO SYS_CIDADES VALUES(2058, 'Monte Alegre de Minas', 11, 3142809); +INSERT INTO SYS_CIDADES VALUES(2059, 'Monte Azul', 11, 3142908); +INSERT INTO SYS_CIDADES VALUES(2060, 'Monte Belo', 11, 3143005); +INSERT INTO SYS_CIDADES VALUES(2061, 'Monte Carmelo', 11, 3143104); +INSERT INTO SYS_CIDADES VALUES(2062, 'Monte Formoso', 11, 3143153); +INSERT INTO SYS_CIDADES VALUES(2063, 'Monte Santo de Minas', 11, 3143203); +INSERT INTO SYS_CIDADES VALUES(2064, 'Monte Sião', 11, 3143401); +INSERT INTO SYS_CIDADES VALUES(2065, 'Montes Claros', 11, 3143302); +INSERT INTO SYS_CIDADES VALUES(2066, 'Montezuma', 11, 3143450); +INSERT INTO SYS_CIDADES VALUES(2067, 'Morada Nova de Minas', 11, 3143500); +INSERT INTO SYS_CIDADES VALUES(2068, 'Morro da Garça', 11, 3143609); +INSERT INTO SYS_CIDADES VALUES(2069, 'Morro do Pilar', 11, 3143708); +INSERT INTO SYS_CIDADES VALUES(2070, 'Munhoz', 11, 3143807); +INSERT INTO SYS_CIDADES VALUES(2071, 'Muriaé', 11, 3143906); +INSERT INTO SYS_CIDADES VALUES(2072, 'Mutum', 11, 3144003); +INSERT INTO SYS_CIDADES VALUES(2073, 'Muzambinho', 11, 3144102); +INSERT INTO SYS_CIDADES VALUES(2074, 'Nacip Raydan', 11, 3144201); +INSERT INTO SYS_CIDADES VALUES(2075, 'Nanuque', 11, 3144300); +INSERT INTO SYS_CIDADES VALUES(2076, 'Naque', 11, 3144359); +INSERT INTO SYS_CIDADES VALUES(2077, 'Natalândia', 11, 3144375); +INSERT INTO SYS_CIDADES VALUES(2078, 'Natércia', 11, 3144409); +INSERT INTO SYS_CIDADES VALUES(2079, 'Nazareno', 11, 3144508); +INSERT INTO SYS_CIDADES VALUES(2080, 'Nepomuceno', 11, 3144607); +INSERT INTO SYS_CIDADES VALUES(2081, 'Ninheira', 11, 3144656); +INSERT INTO SYS_CIDADES VALUES(2082, 'Nova Belém', 11, 3144672); +INSERT INTO SYS_CIDADES VALUES(2083, 'Nova Era', 11, 3144706); +INSERT INTO SYS_CIDADES VALUES(2084, 'Nova Lima', 11, 3144805); +INSERT INTO SYS_CIDADES VALUES(2085, 'Nova Módica', 11, 3144904); +INSERT INTO SYS_CIDADES VALUES(2086, 'Nova Ponte', 11, 3145000); +INSERT INTO SYS_CIDADES VALUES(2087, 'Nova Porteirinha', 11, 3145059); +INSERT INTO SYS_CIDADES VALUES(2088, 'Nova Resende', 11, 3145109); +INSERT INTO SYS_CIDADES VALUES(2089, 'Nova Serrana', 11, 3145208); +INSERT INTO SYS_CIDADES VALUES(2090, 'Nova União', 11, 3136603); +INSERT INTO SYS_CIDADES VALUES(2091, 'Novo Cruzeiro', 11, 3145307); +INSERT INTO SYS_CIDADES VALUES(2092, 'Novo Oriente de Minas', 11, 3145356); +INSERT INTO SYS_CIDADES VALUES(2093, 'Novorizonte', 11, 3145372); +INSERT INTO SYS_CIDADES VALUES(2094, 'Olaria', 11, 3145406); +INSERT INTO SYS_CIDADES VALUES(2095, 'Olhos-d`Água', 11, 3145455); +INSERT INTO SYS_CIDADES VALUES(2096, 'Olímpio Noronha', 11, 3145505); +INSERT INTO SYS_CIDADES VALUES(2097, 'Oliveira', 11, 3145604); +INSERT INTO SYS_CIDADES VALUES(2098, 'Oliveira Fortes', 11, 3145703); +INSERT INTO SYS_CIDADES VALUES(2099, 'Onça de Pitangui', 11, 3145802); +INSERT INTO SYS_CIDADES VALUES(2100, 'Oratórios', 11, 3145851); +INSERT INTO SYS_CIDADES VALUES(2101, 'Orizânia', 11, 3145877); +INSERT INTO SYS_CIDADES VALUES(2102, 'Ouro Branco', 11, 3145901); +INSERT INTO SYS_CIDADES VALUES(2103, 'Ouro Fino', 11, 3146008); +INSERT INTO SYS_CIDADES VALUES(2104, 'Ouro Preto', 11, 3146107); +INSERT INTO SYS_CIDADES VALUES(2105, 'Ouro Verde de Minas', 11, 3146206); +INSERT INTO SYS_CIDADES VALUES(2106, 'Padre Carvalho', 11, 3146255); +INSERT INTO SYS_CIDADES VALUES(2107, 'Padre Paraíso', 11, 3146305); +INSERT INTO SYS_CIDADES VALUES(2108, 'Pai Pedro', 11, 3146552); +INSERT INTO SYS_CIDADES VALUES(2109, 'Paineiras', 11, 3146404); +INSERT INTO SYS_CIDADES VALUES(2110, 'Pains', 11, 3146503); +INSERT INTO SYS_CIDADES VALUES(2111, 'Paiva', 11, 3146602); +INSERT INTO SYS_CIDADES VALUES(2112, 'Palma', 11, 3146701); +INSERT INTO SYS_CIDADES VALUES(2113, 'Palmópolis', 11, 3146750); +INSERT INTO SYS_CIDADES VALUES(2114, 'Papagaios', 11, 3146909); +INSERT INTO SYS_CIDADES VALUES(2115, 'Pará de Minas', 11, 3147105); +INSERT INTO SYS_CIDADES VALUES(2116, 'Paracatu', 11, 3147006); +INSERT INTO SYS_CIDADES VALUES(2117, 'Paraguaçu', 11, 3147204); +INSERT INTO SYS_CIDADES VALUES(2118, 'Paraisópolis', 11, 3147303); +INSERT INTO SYS_CIDADES VALUES(2119, 'Paraopeba', 11, 3147402); +INSERT INTO SYS_CIDADES VALUES(2120, 'Passa Quatro', 11, 3147600); +INSERT INTO SYS_CIDADES VALUES(2121, 'Passa Tempo', 11, 3147709); +INSERT INTO SYS_CIDADES VALUES(2122, 'Passabém', 11, 3147501); +INSERT INTO SYS_CIDADES VALUES(2123, 'Passa-Vinte', 11, 3147808); +INSERT INTO SYS_CIDADES VALUES(2124, 'Passos', 11, 3147907); +INSERT INTO SYS_CIDADES VALUES(2125, 'Patis', 11, 3147956); +INSERT INTO SYS_CIDADES VALUES(2126, 'Patos de Minas', 11, 3148004); +INSERT INTO SYS_CIDADES VALUES(2127, 'Patrocínio', 11, 3148103); +INSERT INTO SYS_CIDADES VALUES(2128, 'Patrocínio do Muriaé', 11, 3148202); +INSERT INTO SYS_CIDADES VALUES(2129, 'Paula Cândido', 11, 3148301); +INSERT INTO SYS_CIDADES VALUES(2130, 'Paulistas', 11, 3148400); +INSERT INTO SYS_CIDADES VALUES(2131, 'Pavão', 11, 3148509); +INSERT INTO SYS_CIDADES VALUES(2132, 'Peçanha', 11, 3148608); +INSERT INTO SYS_CIDADES VALUES(2133, 'Pedra Azul', 11, 3148707); +INSERT INTO SYS_CIDADES VALUES(2134, 'Pedra Bonita', 11, 3148756); +INSERT INTO SYS_CIDADES VALUES(2135, 'Pedra do Anta', 11, 3148806); +INSERT INTO SYS_CIDADES VALUES(2136, 'Pedra do Indaiá', 11, 3148905); +INSERT INTO SYS_CIDADES VALUES(2137, 'Pedra Dourada', 11, 3149002); +INSERT INTO SYS_CIDADES VALUES(2138, 'Pedralva', 11, 3149101); +INSERT INTO SYS_CIDADES VALUES(2139, 'Pedras de Maria da Cruz', 11, 3149150); +INSERT INTO SYS_CIDADES VALUES(2140, 'Pedrinópolis', 11, 3149200); +INSERT INTO SYS_CIDADES VALUES(2141, 'Pedro Leopoldo', 11, 3149309); +INSERT INTO SYS_CIDADES VALUES(2142, 'Pedro Teixeira', 11, 3149408); +INSERT INTO SYS_CIDADES VALUES(2143, 'Pequeri', 11, 3149507); +INSERT INTO SYS_CIDADES VALUES(2144, 'Pequi', 11, 3149606); +INSERT INTO SYS_CIDADES VALUES(2145, 'Perdigão', 11, 3149705); +INSERT INTO SYS_CIDADES VALUES(2146, 'Perdizes', 11, 3149804); +INSERT INTO SYS_CIDADES VALUES(2147, 'Perdões', 11, 3149903); +INSERT INTO SYS_CIDADES VALUES(2148, 'Periquito', 11, 3149952); +INSERT INTO SYS_CIDADES VALUES(2149, 'Pescador', 11, 3150000); +INSERT INTO SYS_CIDADES VALUES(2150, 'Piau', 11, 3150109); +INSERT INTO SYS_CIDADES VALUES(2151, 'Piedade de Caratinga', 11, 3150158); +INSERT INTO SYS_CIDADES VALUES(2152, 'Piedade de Ponte Nova', 11, 3150208); +INSERT INTO SYS_CIDADES VALUES(2153, 'Piedade do Rio Grande', 11, 3150307); +INSERT INTO SYS_CIDADES VALUES(2154, 'Piedade dos Gerais', 11, 3150406); +INSERT INTO SYS_CIDADES VALUES(2155, 'Pimenta', 11, 3150505); +INSERT INTO SYS_CIDADES VALUES(2156, 'Pingo-d`Água', 11, 3150539); +INSERT INTO SYS_CIDADES VALUES(2157, 'Pintópolis', 11, 3150570); +INSERT INTO SYS_CIDADES VALUES(2158, 'Piracema', 11, 3150604); +INSERT INTO SYS_CIDADES VALUES(2159, 'Pirajuba', 11, 3150703); +INSERT INTO SYS_CIDADES VALUES(2160, 'Piranga', 11, 3150802); +INSERT INTO SYS_CIDADES VALUES(2161, 'Piranguçu', 11, 3150901); +INSERT INTO SYS_CIDADES VALUES(2162, 'Piranguinho', 11, 3151008); +INSERT INTO SYS_CIDADES VALUES(2163, 'Pirapetinga', 11, 3151107); +INSERT INTO SYS_CIDADES VALUES(2164, 'Pirapora', 11, 3151206); +INSERT INTO SYS_CIDADES VALUES(2165, 'Piraúba', 11, 3151305); +INSERT INTO SYS_CIDADES VALUES(2166, 'Pitangui', 11, 3151404); +INSERT INTO SYS_CIDADES VALUES(2167, 'Piumhi', 11, 3151503); +INSERT INTO SYS_CIDADES VALUES(2168, 'Planura', 11, 3151602); +INSERT INTO SYS_CIDADES VALUES(2169, 'Poço Fundo', 11, 3151701); +INSERT INTO SYS_CIDADES VALUES(2170, 'Poços de Caldas', 11, 3151800); +INSERT INTO SYS_CIDADES VALUES(2171, 'Pocrane', 11, 3151909); +INSERT INTO SYS_CIDADES VALUES(2172, 'Pompéu', 11, 3152006); +INSERT INTO SYS_CIDADES VALUES(2173, 'Ponte Nova', 11, 3152105); +INSERT INTO SYS_CIDADES VALUES(2174, 'Ponto Chique', 11, 3152131); +INSERT INTO SYS_CIDADES VALUES(2175, 'Ponto dos Volantes', 11, 3152170); +INSERT INTO SYS_CIDADES VALUES(2176, 'Porteirinha', 11, 3152204); +INSERT INTO SYS_CIDADES VALUES(2177, 'Porto Firme', 11, 3152303); +INSERT INTO SYS_CIDADES VALUES(2178, 'Poté', 11, 3152402); +INSERT INTO SYS_CIDADES VALUES(2179, 'Pouso Alegre', 11, 3152501); +INSERT INTO SYS_CIDADES VALUES(2180, 'Pouso Alto', 11, 3152600); +INSERT INTO SYS_CIDADES VALUES(2181, 'Prados', 11, 3152709); +INSERT INTO SYS_CIDADES VALUES(2182, 'Prata', 11, 3152808); +INSERT INTO SYS_CIDADES VALUES(2183, 'Pratápolis', 11, 3152907); +INSERT INTO SYS_CIDADES VALUES(2184, 'Pratinha', 11, 3153004); +INSERT INTO SYS_CIDADES VALUES(2185, 'Presidente Bernardes', 11, 3153103); +INSERT INTO SYS_CIDADES VALUES(2186, 'Presidente Juscelino', 11, 3153202); +INSERT INTO SYS_CIDADES VALUES(2187, 'Presidente Kubitschek', 11, 3153301); +INSERT INTO SYS_CIDADES VALUES(2188, 'Presidente Olegário', 11, 3153400); +INSERT INTO SYS_CIDADES VALUES(2189, 'Prudente de Morais', 11, 3153608); +INSERT INTO SYS_CIDADES VALUES(2190, 'Quartel Geral', 11, 3153707); +INSERT INTO SYS_CIDADES VALUES(2191, 'Queluzito', 11, 3153806); +INSERT INTO SYS_CIDADES VALUES(2192, 'Raposos', 11, 3153905); +INSERT INTO SYS_CIDADES VALUES(2193, 'Raul Soares', 11, 3154002); +INSERT INTO SYS_CIDADES VALUES(2194, 'Recreio', 11, 3154101); +INSERT INTO SYS_CIDADES VALUES(2195, 'Reduto', 11, 3154150); +INSERT INTO SYS_CIDADES VALUES(2196, 'Resende Costa', 11, 3154200); +INSERT INTO SYS_CIDADES VALUES(2197, 'Resplendor', 11, 3154309); +INSERT INTO SYS_CIDADES VALUES(2198, 'Ressaquinha', 11, 3154408); +INSERT INTO SYS_CIDADES VALUES(2199, 'Riachinho', 11, 3154457); +INSERT INTO SYS_CIDADES VALUES(2200, 'Riacho dos Machados', 11, 3154507); +INSERT INTO SYS_CIDADES VALUES(2201, 'Ribeirão das Neves', 11, 3154606); +INSERT INTO SYS_CIDADES VALUES(2202, 'Ribeirão Vermelho', 11, 3154705); +INSERT INTO SYS_CIDADES VALUES(2203, 'Rio Acima', 11, 3154804); +INSERT INTO SYS_CIDADES VALUES(2204, 'Rio Casca', 11, 3154903); +INSERT INTO SYS_CIDADES VALUES(2205, 'Rio do Prado', 11, 3155108); +INSERT INTO SYS_CIDADES VALUES(2206, 'Rio Doce', 11, 3155009); +INSERT INTO SYS_CIDADES VALUES(2207, 'Rio Espera', 11, 3155207); +INSERT INTO SYS_CIDADES VALUES(2208, 'Rio Manso', 11, 3155306); +INSERT INTO SYS_CIDADES VALUES(2209, 'Rio Novo', 11, 3155405); +INSERT INTO SYS_CIDADES VALUES(2210, 'Rio Paranaíba', 11, 3155504); +INSERT INTO SYS_CIDADES VALUES(2211, 'Rio Pardo de Minas', 11, 3155603); +INSERT INTO SYS_CIDADES VALUES(2212, 'Rio Piracicaba', 11, 3155702); +INSERT INTO SYS_CIDADES VALUES(2213, 'Rio Pomba', 11, 3155801); +INSERT INTO SYS_CIDADES VALUES(2214, 'Rio Preto', 11, 3155900); +INSERT INTO SYS_CIDADES VALUES(2215, 'Rio Vermelho', 11, 3156007); +INSERT INTO SYS_CIDADES VALUES(2216, 'Ritápolis', 11, 3156106); +INSERT INTO SYS_CIDADES VALUES(2217, 'Rochedo de Minas', 11, 3156205); +INSERT INTO SYS_CIDADES VALUES(2218, 'Rodeiro', 11, 3156304); +INSERT INTO SYS_CIDADES VALUES(2219, 'Romaria', 11, 3156403); +INSERT INTO SYS_CIDADES VALUES(2220, 'Rosário da Limeira', 11, 3156452); +INSERT INTO SYS_CIDADES VALUES(2221, 'Rubelita', 11, 3156502); +INSERT INTO SYS_CIDADES VALUES(2222, 'Rubim', 11, 3156601); +INSERT INTO SYS_CIDADES VALUES(2223, 'Sabará', 11, 3156700); +INSERT INTO SYS_CIDADES VALUES(2224, 'Sabinópolis', 11, 3156809); +INSERT INTO SYS_CIDADES VALUES(2225, 'Sacramento', 11, 3156908); +INSERT INTO SYS_CIDADES VALUES(2226, 'Salinas', 11, 3157005); +INSERT INTO SYS_CIDADES VALUES(2227, 'Salto da Divisa', 11, 3157104); +INSERT INTO SYS_CIDADES VALUES(2228, 'Santa Bárbara', 11, 3157203); +INSERT INTO SYS_CIDADES VALUES(2229, 'Santa Bárbara do Leste', 11, 3157252); +INSERT INTO SYS_CIDADES VALUES(2230, 'Santa Bárbara do Monte Verde', 11, 3157278); +INSERT INTO SYS_CIDADES VALUES(2231, 'Santa Bárbara do Tugúrio', 11, 3157302); +INSERT INTO SYS_CIDADES VALUES(2232, 'Santa Cruz de Minas', 11, 3157336); +INSERT INTO SYS_CIDADES VALUES(2233, 'Santa Cruz de Salinas', 11, 3157377); +INSERT INTO SYS_CIDADES VALUES(2234, 'Santa Cruz do Escalvado', 11, 3157401); +INSERT INTO SYS_CIDADES VALUES(2235, 'Santa Efigênia de Minas', 11, 3157500); +INSERT INTO SYS_CIDADES VALUES(2236, 'Santa Fé de Minas', 11, 3157609); +INSERT INTO SYS_CIDADES VALUES(2237, 'Santa Helena de Minas', 11, 3157658); +INSERT INTO SYS_CIDADES VALUES(2238, 'Santa Juliana', 11, 3157708); +INSERT INTO SYS_CIDADES VALUES(2239, 'Santa Luzia', 11, 3157807); +INSERT INTO SYS_CIDADES VALUES(2240, 'Santa Margarida', 11, 3157906); +INSERT INTO SYS_CIDADES VALUES(2241, 'Santa Maria de Itabira', 11, 3158003); +INSERT INTO SYS_CIDADES VALUES(2242, 'Santa Maria do Salto', 11, 3158102); +INSERT INTO SYS_CIDADES VALUES(2243, 'Santa Maria do Suaçuí', 11, 3158201); +INSERT INTO SYS_CIDADES VALUES(2244, 'Santa Rita de Caldas', 11, 3159209); +INSERT INTO SYS_CIDADES VALUES(2245, 'Santa Rita de Ibitipoca', 11, 3159407); +INSERT INTO SYS_CIDADES VALUES(2246, 'Santa Rita de Jacutinga', 11, 3159308); +INSERT INTO SYS_CIDADES VALUES(2247, 'Santa Rita de Minas', 11, 3159357); +INSERT INTO SYS_CIDADES VALUES(2248, 'Santa Rita do Itueto', 11, 3159506); +INSERT INTO SYS_CIDADES VALUES(2249, 'Santa Rita do Sapucaí', 11, 3159605); +INSERT INTO SYS_CIDADES VALUES(2250, 'Santa Rosa da Serra', 11, 3159704); +INSERT INTO SYS_CIDADES VALUES(2251, 'Santa Vitória', 11, 3159803); +INSERT INTO SYS_CIDADES VALUES(2252, 'Santana da Vargem', 11, 3158300); +INSERT INTO SYS_CIDADES VALUES(2253, 'Santana de Cataguases', 11, 3158409); +INSERT INTO SYS_CIDADES VALUES(2254, 'Santana de Pirapama', 11, 3158508); +INSERT INTO SYS_CIDADES VALUES(2255, 'Santana do Deserto', 11, 3158607); +INSERT INTO SYS_CIDADES VALUES(2256, 'Santana do Garambéu', 11, 3158706); +INSERT INTO SYS_CIDADES VALUES(2257, 'Santana do Jacaré', 11, 3158805); +INSERT INTO SYS_CIDADES VALUES(2258, 'Santana do Manhuaçu', 11, 3158904); +INSERT INTO SYS_CIDADES VALUES(2259, 'Santana do Paraíso', 11, 3158953); +INSERT INTO SYS_CIDADES VALUES(2260, 'Santana do Riacho', 11, 3159001); +INSERT INTO SYS_CIDADES VALUES(2261, 'Santana dos Montes', 11, 3159100); +INSERT INTO SYS_CIDADES VALUES(2262, 'Santo Antônio do Amparo', 11, 3159902); +INSERT INTO SYS_CIDADES VALUES(2263, 'Santo Antônio do Aventureiro', 11, 3160009); +INSERT INTO SYS_CIDADES VALUES(2264, 'Santo Antônio do Grama', 11, 3160108); +INSERT INTO SYS_CIDADES VALUES(2265, 'Santo Antônio do Itambé', 11, 3160207); +INSERT INTO SYS_CIDADES VALUES(2266, 'Santo Antônio do Jacinto', 11, 3160306); +INSERT INTO SYS_CIDADES VALUES(2267, 'Santo Antônio do Monte', 11, 3160405); +INSERT INTO SYS_CIDADES VALUES(2268, 'Santo Antônio do Retiro', 11, 3160454); +INSERT INTO SYS_CIDADES VALUES(2269, 'Santo Antônio do Rio Abaixo', 11, 3160504); +INSERT INTO SYS_CIDADES VALUES(2270, 'Santo Hipólito', 11, 3160603); +INSERT INTO SYS_CIDADES VALUES(2271, 'Santos Dumont', 11, 3160702); +INSERT INTO SYS_CIDADES VALUES(2272, 'São Bento Abade', 11, 3160801); +INSERT INTO SYS_CIDADES VALUES(2273, 'São Brás do Suaçuí', 11, 3160900); +INSERT INTO SYS_CIDADES VALUES(2274, 'São Domingos das Dores', 11, 3160959); +INSERT INTO SYS_CIDADES VALUES(2275, 'São Domingos do Prata', 11, 3161007); +INSERT INTO SYS_CIDADES VALUES(2276, 'São Félix de Minas', 11, 3161056); +INSERT INTO SYS_CIDADES VALUES(2277, 'São Francisco', 11, 3161106); +INSERT INTO SYS_CIDADES VALUES(2278, 'São Francisco de Paula', 11, 3161205); +INSERT INTO SYS_CIDADES VALUES(2279, 'São Francisco de Sales', 11, 3161304); +INSERT INTO SYS_CIDADES VALUES(2280, 'São Francisco do Glória', 11, 3161403); +INSERT INTO SYS_CIDADES VALUES(2281, 'São Geraldo', 11, 3161502); +INSERT INTO SYS_CIDADES VALUES(2282, 'São Geraldo da Piedade', 11, 3161601); +INSERT INTO SYS_CIDADES VALUES(2283, 'São Geraldo do Baixio', 11, 3161650); +INSERT INTO SYS_CIDADES VALUES(2284, 'São Gonçalo do Abaeté', 11, 3161700); +INSERT INTO SYS_CIDADES VALUES(2285, 'São Gonçalo do Pará', 11, 3161809); +INSERT INTO SYS_CIDADES VALUES(2286, 'São Gonçalo do Rio Abaixo', 11, 3161908); +INSERT INTO SYS_CIDADES VALUES(2287, 'São Gonçalo do Rio Preto', 11, 3125507); +INSERT INTO SYS_CIDADES VALUES(2288, 'São Gonçalo do Sapucaí', 11, 3162005); +INSERT INTO SYS_CIDADES VALUES(2289, 'São Gotardo', 11, 3162104); +INSERT INTO SYS_CIDADES VALUES(2290, 'São João Batista do Glória', 11, 3162203); +INSERT INTO SYS_CIDADES VALUES(2291, 'São João da Lagoa', 11, 3162252); +INSERT INTO SYS_CIDADES VALUES(2292, 'São João da Mata', 11, 3162302); +INSERT INTO SYS_CIDADES VALUES(2293, 'São João da Ponte', 11, 3162401); +INSERT INTO SYS_CIDADES VALUES(2294, 'São João das Missões', 11, 3162450); +INSERT INTO SYS_CIDADES VALUES(2295, 'São João del Rei', 11, 3162500); +INSERT INTO SYS_CIDADES VALUES(2296, 'São João do Manhuaçu', 11, 3162559); +INSERT INTO SYS_CIDADES VALUES(2297, 'São João do Manteninha', 11, 3162575); +INSERT INTO SYS_CIDADES VALUES(2298, 'São João do Oriente', 11, 3162609); +INSERT INTO SYS_CIDADES VALUES(2299, 'São João do Pacuí', 11, 3162658); +INSERT INTO SYS_CIDADES VALUES(2300, 'São João do Paraíso', 11, 3162708); +INSERT INTO SYS_CIDADES VALUES(2301, 'São João Evangelista', 11, 3162807); +INSERT INTO SYS_CIDADES VALUES(2302, 'São João Nepomuceno', 11, 3162906); +INSERT INTO SYS_CIDADES VALUES(2303, 'São Joaquim de Bicas', 11, 3162922); +INSERT INTO SYS_CIDADES VALUES(2304, 'São José da Barra', 11, 3162948); +INSERT INTO SYS_CIDADES VALUES(2305, 'São José da Lapa', 11, 3162955); +INSERT INTO SYS_CIDADES VALUES(2306, 'São José da Safira', 11, 3163003); +INSERT INTO SYS_CIDADES VALUES(2307, 'São José da Varginha', 11, 3163102); +INSERT INTO SYS_CIDADES VALUES(2308, 'São José do Alegre', 11, 3163201); +INSERT INTO SYS_CIDADES VALUES(2309, 'São José do Divino', 11, 3163300); +INSERT INTO SYS_CIDADES VALUES(2310, 'São José do Goiabal', 11, 3163409); +INSERT INTO SYS_CIDADES VALUES(2311, 'São José do Jacuri', 11, 3163508); +INSERT INTO SYS_CIDADES VALUES(2312, 'São José do Mantimento', 11, 3163607); +INSERT INTO SYS_CIDADES VALUES(2313, 'São Lourenço', 11, 3163706); +INSERT INTO SYS_CIDADES VALUES(2314, 'São Miguel do Anta', 11, 3163805); +INSERT INTO SYS_CIDADES VALUES(2315, 'São Pedro da União', 11, 3163904); +INSERT INTO SYS_CIDADES VALUES(2316, 'São Pedro do Suaçuí', 11, 3164100); +INSERT INTO SYS_CIDADES VALUES(2317, 'São Pedro dos Ferros', 11, 3164001); +INSERT INTO SYS_CIDADES VALUES(2318, 'São Romão', 11, 3164209); +INSERT INTO SYS_CIDADES VALUES(2319, 'São Roque de Minas', 11, 3164308); +INSERT INTO SYS_CIDADES VALUES(2320, 'São Sebastião da Bela Vista', 11, 3164407); +INSERT INTO SYS_CIDADES VALUES(2321, 'São Sebastião da Vargem Alegre', 11, 3164431); +INSERT INTO SYS_CIDADES VALUES(2322, 'São Sebastião do Anta', 11, 3164472); +INSERT INTO SYS_CIDADES VALUES(2323, 'São Sebastião do Maranhão', 11, 3164506); +INSERT INTO SYS_CIDADES VALUES(2324, 'São Sebastião do Oeste', 11, 3164605); +INSERT INTO SYS_CIDADES VALUES(2325, 'São Sebastião do Paraíso', 11, 3164704); +INSERT INTO SYS_CIDADES VALUES(2326, 'São Sebastião do Rio Preto', 11, 3164803); +INSERT INTO SYS_CIDADES VALUES(2327, 'São Sebastião do Rio Verde', 11, 3164902); +INSERT INTO SYS_CIDADES VALUES(2328, 'São Thomé das Letras', 11, 3165206); +INSERT INTO SYS_CIDADES VALUES(2329, 'São Tiago', 11, 3165008); +INSERT INTO SYS_CIDADES VALUES(2330, 'São Tomás de Aquino', 11, 3165107); +INSERT INTO SYS_CIDADES VALUES(2331, 'São Vicente de Minas', 11, 3165305); +INSERT INTO SYS_CIDADES VALUES(2332, 'Sapucaí-Mirim', 11, 3165404); +INSERT INTO SYS_CIDADES VALUES(2333, 'Sardoá', 11, 3165503); +INSERT INTO SYS_CIDADES VALUES(2334, 'Sarzedo', 11, 3165537); +INSERT INTO SYS_CIDADES VALUES(2335, 'Sem-Peixe', 11, 3165560); +INSERT INTO SYS_CIDADES VALUES(2336, 'Senador Amaral', 11, 3165578); +INSERT INTO SYS_CIDADES VALUES(2337, 'Senador Cortes', 11, 3165602); +INSERT INTO SYS_CIDADES VALUES(2338, 'Senador Firmino', 11, 3165701); +INSERT INTO SYS_CIDADES VALUES(2339, 'Senador José Bento', 11, 3165800); +INSERT INTO SYS_CIDADES VALUES(2340, 'Senador Modestino Gonçalves', 11, 3165909); +INSERT INTO SYS_CIDADES VALUES(2341, 'Senhora de Oliveira', 11, 3166006); +INSERT INTO SYS_CIDADES VALUES(2342, 'Senhora do Porto', 11, 3166105); +INSERT INTO SYS_CIDADES VALUES(2343, 'Senhora dos Remédios', 11, 3166204); +INSERT INTO SYS_CIDADES VALUES(2344, 'Sericita', 11, 3166303); +INSERT INTO SYS_CIDADES VALUES(2345, 'Seritinga', 11, 3166402); +INSERT INTO SYS_CIDADES VALUES(2346, 'Serra Azul de Minas', 11, 3166501); +INSERT INTO SYS_CIDADES VALUES(2347, 'Serra da Saudade', 11, 3166600); +INSERT INTO SYS_CIDADES VALUES(2348, 'Serra do Salitre', 11, 3166808); +INSERT INTO SYS_CIDADES VALUES(2349, 'Serra dos Aimorés', 11, 3166709); +INSERT INTO SYS_CIDADES VALUES(2350, 'Serrania', 11, 3166907); +INSERT INTO SYS_CIDADES VALUES(2351, 'Serranópolis de Minas', 11, 3166956); +INSERT INTO SYS_CIDADES VALUES(2352, 'Serranos', 11, 3167004); +INSERT INTO SYS_CIDADES VALUES(2353, 'Serro', 11, 3167103); +INSERT INTO SYS_CIDADES VALUES(2354, 'Sete Lagoas', 11, 3167202); +INSERT INTO SYS_CIDADES VALUES(2355, 'Setubinha', 11, 3165552); +INSERT INTO SYS_CIDADES VALUES(2356, 'Silveirânia', 11, 3167301); +INSERT INTO SYS_CIDADES VALUES(2357, 'Silvianópolis', 11, 3167400); +INSERT INTO SYS_CIDADES VALUES(2358, 'Simão Pereira', 11, 3167509); +INSERT INTO SYS_CIDADES VALUES(2359, 'Simonésia', 11, 3167608); +INSERT INTO SYS_CIDADES VALUES(2360, 'Sobrália', 11, 3167707); +INSERT INTO SYS_CIDADES VALUES(2361, 'Soledade de Minas', 11, 3167806); +INSERT INTO SYS_CIDADES VALUES(2362, 'Tabuleiro', 11, 3167905); +INSERT INTO SYS_CIDADES VALUES(2363, 'Taiobeiras', 11, 3168002); +INSERT INTO SYS_CIDADES VALUES(2364, 'Taparuba', 11, 3168051); +INSERT INTO SYS_CIDADES VALUES(2365, 'Tapira', 11, 3168101); +INSERT INTO SYS_CIDADES VALUES(2366, 'Tapiraí', 11, 3168200); +INSERT INTO SYS_CIDADES VALUES(2367, 'Taquaraçu de Minas', 11, 3168309); +INSERT INTO SYS_CIDADES VALUES(2368, 'Tarumirim', 11, 3168408); +INSERT INTO SYS_CIDADES VALUES(2369, 'Teixeiras', 11, 3168507); +INSERT INTO SYS_CIDADES VALUES(2370, 'Teófilo Otoni', 11, 3168606); +INSERT INTO SYS_CIDADES VALUES(2371, 'Timóteo', 11, 3168705); +INSERT INTO SYS_CIDADES VALUES(2372, 'Tiradentes', 11, 3168804); +INSERT INTO SYS_CIDADES VALUES(2373, 'Tiros', 11, 3168903); +INSERT INTO SYS_CIDADES VALUES(2374, 'Tocantins', 11, 3169000); +INSERT INTO SYS_CIDADES VALUES(2375, 'Tocos do Moji', 11, 3169059); +INSERT INTO SYS_CIDADES VALUES(2376, 'Toledo', 11, 3169109); +INSERT INTO SYS_CIDADES VALUES(2377, 'Tombos', 11, 3169208); +INSERT INTO SYS_CIDADES VALUES(2378, 'Três Corações', 11, 3169307); +INSERT INTO SYS_CIDADES VALUES(2379, 'Três Marias', 11, 3169356); +INSERT INTO SYS_CIDADES VALUES(2380, 'Três Pontas', 11, 3169406); +INSERT INTO SYS_CIDADES VALUES(2381, 'Tumiritinga', 11, 3169505); +INSERT INTO SYS_CIDADES VALUES(2382, 'Tupaciguara', 11, 3169604); +INSERT INTO SYS_CIDADES VALUES(2383, 'Turmalina', 11, 3169703); +INSERT INTO SYS_CIDADES VALUES(2384, 'Turvolândia', 11, 3169802); +INSERT INTO SYS_CIDADES VALUES(2385, 'Ubá', 11, 3169901); +INSERT INTO SYS_CIDADES VALUES(2386, 'Ubaí', 11, 3170008); +INSERT INTO SYS_CIDADES VALUES(2387, 'Ubaporanga', 11, 3170057); +INSERT INTO SYS_CIDADES VALUES(2388, 'Uberaba', 11, 3170107); +INSERT INTO SYS_CIDADES VALUES(2389, 'Uberlândia', 11, 3170206); +INSERT INTO SYS_CIDADES VALUES(2390, 'Umburatiba', 11, 3170305); +INSERT INTO SYS_CIDADES VALUES(2391, 'Unaí', 11, 3170404); +INSERT INTO SYS_CIDADES VALUES(2392, 'União de Minas', 11, 3170438); +INSERT INTO SYS_CIDADES VALUES(2393, 'Uruana de Minas', 11, 3170479); +INSERT INTO SYS_CIDADES VALUES(2394, 'Urucânia', 11, 3170503); +INSERT INTO SYS_CIDADES VALUES(2395, 'Urucuia', 11, 3170529); +INSERT INTO SYS_CIDADES VALUES(2396, 'Vargem Alegre', 11, 3170578); +INSERT INTO SYS_CIDADES VALUES(2397, 'Vargem Bonita', 11, 3170602); +INSERT INTO SYS_CIDADES VALUES(2398, 'Vargem Grande do Rio Pardo', 11, 3170651); +INSERT INTO SYS_CIDADES VALUES(2399, 'Varginha', 11, 3170701); +INSERT INTO SYS_CIDADES VALUES(2400, 'Varjão de Minas', 11, 3170750); +INSERT INTO SYS_CIDADES VALUES(2401, 'Várzea da Palma', 11, 3170800); +INSERT INTO SYS_CIDADES VALUES(2402, 'Varzelândia', 11, 3170909); +INSERT INTO SYS_CIDADES VALUES(2403, 'Vazante', 11, 3171006); +INSERT INTO SYS_CIDADES VALUES(2404, 'Verdelândia', 11, 3171030); +INSERT INTO SYS_CIDADES VALUES(2405, 'Veredinha', 11, 3171071); +INSERT INTO SYS_CIDADES VALUES(2406, 'Veríssimo', 11, 3171105); +INSERT INTO SYS_CIDADES VALUES(2407, 'Vermelho Novo', 11, 3171154); +INSERT INTO SYS_CIDADES VALUES(2408, 'Vespasiano', 11, 3171204); +INSERT INTO SYS_CIDADES VALUES(2409, 'Viçosa', 11, 3171303); +INSERT INTO SYS_CIDADES VALUES(2410, 'Vieiras', 11, 3171402); +INSERT INTO SYS_CIDADES VALUES(2411, 'Virgem da Lapa', 11, 3171600); +INSERT INTO SYS_CIDADES VALUES(2412, 'Virgínia', 11, 3171709); +INSERT INTO SYS_CIDADES VALUES(2413, 'Virginópolis', 11, 3171808); +INSERT INTO SYS_CIDADES VALUES(2414, 'Virgolândia', 11, 3171907); +INSERT INTO SYS_CIDADES VALUES(2415, 'Visconde do Rio Branco', 11, 3172004); +INSERT INTO SYS_CIDADES VALUES(2416, 'Volta Grande', 11, 3172103); +INSERT INTO SYS_CIDADES VALUES(2417, 'Wenceslau Braz', 11, 3172202); +INSERT INTO SYS_CIDADES VALUES(2418, 'Abaetetuba', 14, 1500107); +INSERT INTO SYS_CIDADES VALUES(2419, 'Abel Figueiredo', 14, 1500131); +INSERT INTO SYS_CIDADES VALUES(2420, 'Acará', 14, 1500206); +INSERT INTO SYS_CIDADES VALUES(2421, 'Afuá', 14, 1500305); +INSERT INTO SYS_CIDADES VALUES(2422, 'Água Azul do Norte', 14, 1500347); +INSERT INTO SYS_CIDADES VALUES(2423, 'Alenquer', 14, 1500404); +INSERT INTO SYS_CIDADES VALUES(2424, 'Almeirim', 14, 1500503); +INSERT INTO SYS_CIDADES VALUES(2425, 'Altamira', 14, 1500602); +INSERT INTO SYS_CIDADES VALUES(2426, 'Anajás', 14, 1500701); +INSERT INTO SYS_CIDADES VALUES(2427, 'Ananindeua', 14, 1500800); +INSERT INTO SYS_CIDADES VALUES(2428, 'Anapu', 14, 1500859); +INSERT INTO SYS_CIDADES VALUES(2429, 'Augusto Corrêa', 14, 1500909); +INSERT INTO SYS_CIDADES VALUES(2430, 'Aurora do Pará', 14, 1500958); +INSERT INTO SYS_CIDADES VALUES(2431, 'Aveiro', 14, 1501006); +INSERT INTO SYS_CIDADES VALUES(2432, 'Bagre', 14, 1501105); +INSERT INTO SYS_CIDADES VALUES(2433, 'Baião', 14, 1501204); +INSERT INTO SYS_CIDADES VALUES(2434, 'Bannach', 14, 1501253); +INSERT INTO SYS_CIDADES VALUES(2435, 'Barcarena', 14, 1501303); +INSERT INTO SYS_CIDADES VALUES(2436, 'Belém', 14, 1501402); +INSERT INTO SYS_CIDADES VALUES(2437, 'Belterra', 14, 1501451); +INSERT INTO SYS_CIDADES VALUES(2438, 'Benevides', 14, 1501501); +INSERT INTO SYS_CIDADES VALUES(2439, 'Bom Jesus do Tocantins', 14, 1501576); +INSERT INTO SYS_CIDADES VALUES(2440, 'Bonito', 14, 1501600); +INSERT INTO SYS_CIDADES VALUES(2441, 'Bragança', 14, 1501709); +INSERT INTO SYS_CIDADES VALUES(2442, 'Brasil Novo', 14, 1501725); +INSERT INTO SYS_CIDADES VALUES(2443, 'Brejo Grande do Araguaia', 14, 1501758); +INSERT INTO SYS_CIDADES VALUES(2444, 'Breu Branco', 14, 1501782); +INSERT INTO SYS_CIDADES VALUES(2445, 'Breves', 14, 1501808); +INSERT INTO SYS_CIDADES VALUES(2446, 'Bujaru', 14, 1501907); +INSERT INTO SYS_CIDADES VALUES(2447, 'Cachoeira do Arari', 14, 1502004); +INSERT INTO SYS_CIDADES VALUES(2448, 'Cachoeira do Piriá', 14, 1501956); +INSERT INTO SYS_CIDADES VALUES(2449, 'Cametá', 14, 1502103); +INSERT INTO SYS_CIDADES VALUES(2450, 'Canaã dos Carajás', 14, 1502152); +INSERT INTO SYS_CIDADES VALUES(2451, 'Capanema', 14, 1502202); +INSERT INTO SYS_CIDADES VALUES(2452, 'Capitão Poço', 14, 1502301); +INSERT INTO SYS_CIDADES VALUES(2453, 'Castanhal', 14, 1502400); +INSERT INTO SYS_CIDADES VALUES(2454, 'Chaves', 14, 1502509); +INSERT INTO SYS_CIDADES VALUES(2455, 'Colares', 14, 1502608); +INSERT INTO SYS_CIDADES VALUES(2456, 'Conceição do Araguaia', 14, 1502707); +INSERT INTO SYS_CIDADES VALUES(2457, 'Concórdia do Pará', 14, 1502756); +INSERT INTO SYS_CIDADES VALUES(2458, 'Cumaru do Norte', 14, 1502764); +INSERT INTO SYS_CIDADES VALUES(2459, 'Curionópolis', 14, 1502772); +INSERT INTO SYS_CIDADES VALUES(2460, 'Curralinho', 14, 1502806); +INSERT INTO SYS_CIDADES VALUES(2461, 'Curuá', 14, 1502855); +INSERT INTO SYS_CIDADES VALUES(2462, 'Curuçá', 14, 1502905); +INSERT INTO SYS_CIDADES VALUES(2463, 'Dom Eliseu', 14, 1502939); +INSERT INTO SYS_CIDADES VALUES(2464, 'Eldorado dos Carajás', 14, 1502954); +INSERT INTO SYS_CIDADES VALUES(2465, 'Faro', 14, 1503002); +INSERT INTO SYS_CIDADES VALUES(2466, 'Floresta do Araguaia', 14, 1503044); +INSERT INTO SYS_CIDADES VALUES(2467, 'Garrafão do Norte', 14, 1503077); +INSERT INTO SYS_CIDADES VALUES(2468, 'Goianésia do Pará', 14, 1503093); +INSERT INTO SYS_CIDADES VALUES(2469, 'Gurupá', 14, 1503101); +INSERT INTO SYS_CIDADES VALUES(2470, 'Igarapé-Açu', 14, 1503200); +INSERT INTO SYS_CIDADES VALUES(2471, 'Igarapé-Miri', 14, 1503309); +INSERT INTO SYS_CIDADES VALUES(2472, 'Inhangapi', 14, 1503408); +INSERT INTO SYS_CIDADES VALUES(2473, 'Ipixuna do Pará', 14, 1503457); +INSERT INTO SYS_CIDADES VALUES(2474, 'Irituia', 14, 1503507); +INSERT INTO SYS_CIDADES VALUES(2475, 'Itaituba', 14, 1503606); +INSERT INTO SYS_CIDADES VALUES(2476, 'Itupiranga', 14, 1503705); +INSERT INTO SYS_CIDADES VALUES(2477, 'Jacareacanga', 14, 1503754); +INSERT INTO SYS_CIDADES VALUES(2478, 'Jacundá', 14, 1503804); +INSERT INTO SYS_CIDADES VALUES(2479, 'Juruti', 14, 1503903); +INSERT INTO SYS_CIDADES VALUES(2480, 'Limoeiro do Ajuru', 14, 1504000); +INSERT INTO SYS_CIDADES VALUES(2481, 'Mãe do Rio', 14, 1504059); +INSERT INTO SYS_CIDADES VALUES(2482, 'Magalhães Barata', 14, 1504109); +INSERT INTO SYS_CIDADES VALUES(2483, 'Marabá', 14, 1504208); +INSERT INTO SYS_CIDADES VALUES(2484, 'Maracanã', 14, 1504307); +INSERT INTO SYS_CIDADES VALUES(2485, 'Marapanim', 14, 1504406); +INSERT INTO SYS_CIDADES VALUES(2486, 'Marituba', 14, 1504422); +INSERT INTO SYS_CIDADES VALUES(2487, 'Medicilândia', 14, 1504455); +INSERT INTO SYS_CIDADES VALUES(2488, 'Melgaço', 14, 1504505); +INSERT INTO SYS_CIDADES VALUES(2489, 'Mocajuba', 14, 1504604); +INSERT INTO SYS_CIDADES VALUES(2490, 'Moju', 14, 1504703); +INSERT INTO SYS_CIDADES VALUES(2491, 'Monte Alegre', 14, 1504802); +INSERT INTO SYS_CIDADES VALUES(2492, 'Muaná', 14, 1504901); +INSERT INTO SYS_CIDADES VALUES(2493, 'Nova Esperança do Piriá', 14, 1504950); +INSERT INTO SYS_CIDADES VALUES(2494, 'Nova Ipixuna', 14, 1504976); +INSERT INTO SYS_CIDADES VALUES(2495, 'Nova Timboteua', 14, 1505007); +INSERT INTO SYS_CIDADES VALUES(2496, 'Novo Progresso', 14, 1505031); +INSERT INTO SYS_CIDADES VALUES(2497, 'Novo Repartimento', 14, 1505064); +INSERT INTO SYS_CIDADES VALUES(2498, 'Óbidos', 14, 1505106); +INSERT INTO SYS_CIDADES VALUES(2499, 'Oeiras do Pará', 14, 1505205); +INSERT INTO SYS_CIDADES VALUES(2500, 'Oriximiná', 14, 1505304); +INSERT INTO SYS_CIDADES VALUES(2501, 'Ourém', 14, 1505403); +INSERT INTO SYS_CIDADES VALUES(2502, 'Ourilândia do Norte', 14, 1505437); +INSERT INTO SYS_CIDADES VALUES(2503, 'Pacajá', 14, 1505486); +INSERT INTO SYS_CIDADES VALUES(2504, 'Palestina do Pará', 14, 1505494); +INSERT INTO SYS_CIDADES VALUES(2505, 'Paragominas', 14, 1505502); +INSERT INTO SYS_CIDADES VALUES(2506, 'Parauapebas', 14, 1505536); +INSERT INTO SYS_CIDADES VALUES(2507, 'Pau d`Arco', 14, 1505551); +INSERT INTO SYS_CIDADES VALUES(2508, 'Peixe-Boi', 14, 1505601); +INSERT INTO SYS_CIDADES VALUES(2509, 'Piçarra', 14, 1505635); +INSERT INTO SYS_CIDADES VALUES(2510, 'Placas', 14, 1505650); +INSERT INTO SYS_CIDADES VALUES(2511, 'Ponta de Pedras', 14, 1505700); +INSERT INTO SYS_CIDADES VALUES(2512, 'Portel', 14, 1505809); +INSERT INTO SYS_CIDADES VALUES(2513, 'Porto de Moz', 14, 1505908); +INSERT INTO SYS_CIDADES VALUES(2514, 'Prainha', 14, 1506005); +INSERT INTO SYS_CIDADES VALUES(2515, 'Primavera', 14, 1506104); +INSERT INTO SYS_CIDADES VALUES(2516, 'Quatipuru', 14, 1506112); +INSERT INTO SYS_CIDADES VALUES(2517, 'Redenção', 14, 1506138); +INSERT INTO SYS_CIDADES VALUES(2518, 'Rio Maria', 14, 1506161); +INSERT INTO SYS_CIDADES VALUES(2519, 'Rondon do Pará', 14, 1506187); +INSERT INTO SYS_CIDADES VALUES(2520, 'Rurópolis', 14, 1506195); +INSERT INTO SYS_CIDADES VALUES(2521, 'Salinópolis', 14, 1506203); +INSERT INTO SYS_CIDADES VALUES(2522, 'Salvaterra', 14, 1506302); +INSERT INTO SYS_CIDADES VALUES(2523, 'Santa Bárbara do Pará', 14, 1506351); +INSERT INTO SYS_CIDADES VALUES(2524, 'Santa Cruz do Arari', 14, 1506401); +INSERT INTO SYS_CIDADES VALUES(2525, 'Santa Isabel do Pará', 14, 1506500); +INSERT INTO SYS_CIDADES VALUES(2526, 'Santa Luzia do Pará', 14, 1506559); +INSERT INTO SYS_CIDADES VALUES(2527, 'Santa Maria das Barreiras', 14, 1506583); +INSERT INTO SYS_CIDADES VALUES(2528, 'Santa Maria do Pará', 14, 1506609); +INSERT INTO SYS_CIDADES VALUES(2529, 'Santana do Araguaia', 14, 1506708); +INSERT INTO SYS_CIDADES VALUES(2530, 'Santarém', 14, 1506807); +INSERT INTO SYS_CIDADES VALUES(2531, 'Santarém Novo', 14, 1506906); +INSERT INTO SYS_CIDADES VALUES(2532, 'Santo Antônio do Tauá', 14, 1507003); +INSERT INTO SYS_CIDADES VALUES(2533, 'São Caetano de Odivelas', 14, 1507102); +INSERT INTO SYS_CIDADES VALUES(2534, 'São Domingos do Araguaia', 14, 1507151); +INSERT INTO SYS_CIDADES VALUES(2535, 'São Domingos do Capim', 14, 1507201); +INSERT INTO SYS_CIDADES VALUES(2536, 'São Félix do Xingu', 14, 1507300); +INSERT INTO SYS_CIDADES VALUES(2537, 'São Francisco do Pará', 14, 1507409); +INSERT INTO SYS_CIDADES VALUES(2538, 'São Geraldo do Araguaia', 14, 1507458); +INSERT INTO SYS_CIDADES VALUES(2539, 'São João da Ponta', 14, 1507466); +INSERT INTO SYS_CIDADES VALUES(2540, 'São João de Pirabas', 14, 1507474); +INSERT INTO SYS_CIDADES VALUES(2541, 'São João do Araguaia', 14, 1507508); +INSERT INTO SYS_CIDADES VALUES(2542, 'São Miguel do Guamá', 14, 1507607); +INSERT INTO SYS_CIDADES VALUES(2543, 'São Sebastião da Boa Vista', 14, 1507706); +INSERT INTO SYS_CIDADES VALUES(2544, 'Sapucaia', 14, 1507755); +INSERT INTO SYS_CIDADES VALUES(2545, 'Senador José Porfírio', 14, 1507805); +INSERT INTO SYS_CIDADES VALUES(2546, 'Soure', 14, 1507904); +INSERT INTO SYS_CIDADES VALUES(2547, 'Tailândia', 14, 1507953); +INSERT INTO SYS_CIDADES VALUES(2548, 'Terra Alta', 14, 1507961); +INSERT INTO SYS_CIDADES VALUES(2549, 'Terra Santa', 14, 1507979); +INSERT INTO SYS_CIDADES VALUES(2550, 'Tomé-Açu', 14, 1508001); +INSERT INTO SYS_CIDADES VALUES(2551, 'Tracuateua', 14, 1508035); +INSERT INTO SYS_CIDADES VALUES(2552, 'Trairão', 14, 1508050); +INSERT INTO SYS_CIDADES VALUES(2553, 'Tucumã', 14, 1508084); +INSERT INTO SYS_CIDADES VALUES(2554, 'Tucuruí', 14, 1508100); +INSERT INTO SYS_CIDADES VALUES(2555, 'Ulianópolis', 14, 1508126); +INSERT INTO SYS_CIDADES VALUES(2556, 'Uruará', 14, 1508159); +INSERT INTO SYS_CIDADES VALUES(2557, 'Vigia', 14, 1508209); +INSERT INTO SYS_CIDADES VALUES(2558, 'Viseu', 14, 1508308); +INSERT INTO SYS_CIDADES VALUES(2559, 'Vitória do Xingu', 14, 1508357); +INSERT INTO SYS_CIDADES VALUES(2560, 'Xinguara', 14, 1508407); +INSERT INTO SYS_CIDADES VALUES(2561, 'Água Branca', 15, 2500106); +INSERT INTO SYS_CIDADES VALUES(2562, 'Aguiar', 15, 2500205); +INSERT INTO SYS_CIDADES VALUES(2563, 'Alagoa Grande', 15, 2500304); +INSERT INTO SYS_CIDADES VALUES(2564, 'Alagoa Nova', 15, 2500403); +INSERT INTO SYS_CIDADES VALUES(2565, 'Alagoinha', 15, 2500502); +INSERT INTO SYS_CIDADES VALUES(2566, 'Alcantil', 15, 2500536); +INSERT INTO SYS_CIDADES VALUES(2567, 'Algodão de Jandaíra', 15, 2500577); +INSERT INTO SYS_CIDADES VALUES(2568, 'Alhandra', 15, 2500601); +INSERT INTO SYS_CIDADES VALUES(2569, 'Amparo', 15, 2500734); +INSERT INTO SYS_CIDADES VALUES(2570, 'Aparecida', 15, 2500775); +INSERT INTO SYS_CIDADES VALUES(2571, 'Araçagi', 15, 2500809); +INSERT INTO SYS_CIDADES VALUES(2572, 'Arara', 15, 2500908); +INSERT INTO SYS_CIDADES VALUES(2573, 'Araruna', 15, 2501005); +INSERT INTO SYS_CIDADES VALUES(2574, 'Areia', 15, 2501104); +INSERT INTO SYS_CIDADES VALUES(2575, 'Areia de Baraúnas', 15, 2501153); +INSERT INTO SYS_CIDADES VALUES(2576, 'Areial', 15, 2501203); +INSERT INTO SYS_CIDADES VALUES(2577, 'Aroeiras', 15, 2501302); +INSERT INTO SYS_CIDADES VALUES(2578, 'Assunção', 15, 2501351); +INSERT INTO SYS_CIDADES VALUES(2579, 'Baía da Traição', 15, 2501401); +INSERT INTO SYS_CIDADES VALUES(2580, 'Bananeiras', 15, 2501500); +INSERT INTO SYS_CIDADES VALUES(2581, 'Baraúna', 15, 2501534); +INSERT INTO SYS_CIDADES VALUES(2582, 'Barra de Santa Rosa', 15, 2501609); +INSERT INTO SYS_CIDADES VALUES(2583, 'Barra de Santana', 15, 2501575); +INSERT INTO SYS_CIDADES VALUES(2584, 'Barra de São Miguel', 15, 2501708); +INSERT INTO SYS_CIDADES VALUES(2585, 'Bayeux', 15, 2501807); +INSERT INTO SYS_CIDADES VALUES(2586, 'Belém', 15, 2501906); +INSERT INTO SYS_CIDADES VALUES(2587, 'Belém do Brejo do Cruz', 15, 2502003); +INSERT INTO SYS_CIDADES VALUES(2588, 'Bernardino Batista', 15, 2502052); +INSERT INTO SYS_CIDADES VALUES(2589, 'Boa Ventura', 15, 2502102); +INSERT INTO SYS_CIDADES VALUES(2590, 'Boa Vista', 15, 2502151); +INSERT INTO SYS_CIDADES VALUES(2591, 'Bom Jesus', 15, 2502201); +INSERT INTO SYS_CIDADES VALUES(2592, 'Bom Sucesso', 15, 2502300); +INSERT INTO SYS_CIDADES VALUES(2593, 'Bonito de Santa Fé', 15, 2502409); +INSERT INTO SYS_CIDADES VALUES(2594, 'Boqueirão', 15, 2502508); +INSERT INTO SYS_CIDADES VALUES(2595, 'Borborema', 15, 2502706); +INSERT INTO SYS_CIDADES VALUES(2596, 'Brejo do Cruz', 15, 2502805); +INSERT INTO SYS_CIDADES VALUES(2597, 'Brejo dos Santos', 15, 2502904); +INSERT INTO SYS_CIDADES VALUES(2598, 'Caaporã', 15, 2503001); +INSERT INTO SYS_CIDADES VALUES(2599, 'Cabaceiras', 15, 2503100); +INSERT INTO SYS_CIDADES VALUES(2600, 'Cabedelo', 15, 2503209); +INSERT INTO SYS_CIDADES VALUES(2601, 'Cachoeira dos Índios', 15, 2503308); +INSERT INTO SYS_CIDADES VALUES(2602, 'Cacimba de Areia', 15, 2503407); +INSERT INTO SYS_CIDADES VALUES(2603, 'Cacimba de Dentro', 15, 2503506); +INSERT INTO SYS_CIDADES VALUES(2604, 'Cacimbas', 15, 2503555); +INSERT INTO SYS_CIDADES VALUES(2605, 'Caiçara', 15, 2503605); +INSERT INTO SYS_CIDADES VALUES(2606, 'Cajazeiras', 15, 2503704); +INSERT INTO SYS_CIDADES VALUES(2607, 'Cajazeirinhas', 15, 2503753); +INSERT INTO SYS_CIDADES VALUES(2608, 'Caldas Brandão', 15, 2503803); +INSERT INTO SYS_CIDADES VALUES(2609, 'Camalaú', 15, 2503902); +INSERT INTO SYS_CIDADES VALUES(2610, 'Campina Grande', 15, 2504009); +INSERT INTO SYS_CIDADES VALUES(2611, 'Campo de Santana', 15, 2516409); +INSERT INTO SYS_CIDADES VALUES(2612, 'Capim', 15, 2504033); +INSERT INTO SYS_CIDADES VALUES(2613, 'Caraúbas', 15, 2504074); +INSERT INTO SYS_CIDADES VALUES(2614, 'Carrapateira', 15, 2504108); +INSERT INTO SYS_CIDADES VALUES(2615, 'Casserengue', 15, 2504157); +INSERT INTO SYS_CIDADES VALUES(2616, 'Catingueira', 15, 2504207); +INSERT INTO SYS_CIDADES VALUES(2617, 'Catolé do Rocha', 15, 2504306); +INSERT INTO SYS_CIDADES VALUES(2618, 'Caturité', 15, 2504355); +INSERT INTO SYS_CIDADES VALUES(2619, 'Conceição', 15, 2504405); +INSERT INTO SYS_CIDADES VALUES(2620, 'Condado', 15, 2504504); +INSERT INTO SYS_CIDADES VALUES(2621, 'Conde', 15, 2504603); +INSERT INTO SYS_CIDADES VALUES(2622, 'Congo', 15, 2504702); +INSERT INTO SYS_CIDADES VALUES(2623, 'Coremas', 15, 2504801); +INSERT INTO SYS_CIDADES VALUES(2624, 'Coxixola', 15, 2504850); +INSERT INTO SYS_CIDADES VALUES(2625, 'Cruz do Espírito Santo', 15, 2504900); +INSERT INTO SYS_CIDADES VALUES(2626, 'Cubati', 15, 2505006); +INSERT INTO SYS_CIDADES VALUES(2627, 'Cuité', 15, 2505105); +INSERT INTO SYS_CIDADES VALUES(2628, 'Cuité de Mamanguape', 15, 2505238); +INSERT INTO SYS_CIDADES VALUES(2629, 'Cuitegi', 15, 2505204); +INSERT INTO SYS_CIDADES VALUES(2630, 'Curral de Cima', 15, 2505279); +INSERT INTO SYS_CIDADES VALUES(2631, 'Curral Velho', 15, 2505303); +INSERT INTO SYS_CIDADES VALUES(2632, 'Damião', 15, 2505352); +INSERT INTO SYS_CIDADES VALUES(2633, 'Desterro', 15, 2505402); +INSERT INTO SYS_CIDADES VALUES(2634, 'Diamante', 15, 2505600); +INSERT INTO SYS_CIDADES VALUES(2635, 'Dona Inês', 15, 2505709); +INSERT INTO SYS_CIDADES VALUES(2636, 'Duas Estradas', 15, 2505808); +INSERT INTO SYS_CIDADES VALUES(2637, 'Emas', 15, 2505907); +INSERT INTO SYS_CIDADES VALUES(2638, 'Esperança', 15, 2506004); +INSERT INTO SYS_CIDADES VALUES(2639, 'Fagundes', 15, 2506103); +INSERT INTO SYS_CIDADES VALUES(2640, 'Frei Martinho', 15, 2506202); +INSERT INTO SYS_CIDADES VALUES(2641, 'Gado Bravo', 15, 2506251); +INSERT INTO SYS_CIDADES VALUES(2642, 'Guarabira', 15, 2506301); +INSERT INTO SYS_CIDADES VALUES(2643, 'Gurinhém', 15, 2506400); +INSERT INTO SYS_CIDADES VALUES(2644, 'Gurjão', 15, 2506509); +INSERT INTO SYS_CIDADES VALUES(2645, 'Ibiara', 15, 2506608); +INSERT INTO SYS_CIDADES VALUES(2646, 'Igaracy', 15, 2502607); +INSERT INTO SYS_CIDADES VALUES(2647, 'Imaculada', 15, 2506707); +INSERT INTO SYS_CIDADES VALUES(2648, 'Ingá', 15, 2506806); +INSERT INTO SYS_CIDADES VALUES(2649, 'Itabaiana', 15, 2506905); +INSERT INTO SYS_CIDADES VALUES(2650, 'Itaporanga', 15, 2507002); +INSERT INTO SYS_CIDADES VALUES(2651, 'Itapororoca', 15, 2507101); +INSERT INTO SYS_CIDADES VALUES(2652, 'Itatuba', 15, 2507200); +INSERT INTO SYS_CIDADES VALUES(2653, 'Jacaraú', 15, 2507309); +INSERT INTO SYS_CIDADES VALUES(2654, 'Jericó', 15, 2507408); +INSERT INTO SYS_CIDADES VALUES(2655, 'João Pessoa', 15, 2507507); +INSERT INTO SYS_CIDADES VALUES(2656, 'Juarez Távora', 15, 2507606); +INSERT INTO SYS_CIDADES VALUES(2657, 'Juazeirinho', 15, 2507705); +INSERT INTO SYS_CIDADES VALUES(2658, 'Junco do Seridó', 15, 2507804); +INSERT INTO SYS_CIDADES VALUES(2659, 'Juripiranga', 15, 2507903); +INSERT INTO SYS_CIDADES VALUES(2660, 'Juru', 15, 2508000); +INSERT INTO SYS_CIDADES VALUES(2661, 'Lagoa', 15, 2508109); +INSERT INTO SYS_CIDADES VALUES(2662, 'Lagoa de Dentro', 15, 2508208); +INSERT INTO SYS_CIDADES VALUES(2663, 'Lagoa Seca', 15, 2508307); +INSERT INTO SYS_CIDADES VALUES(2664, 'Lastro', 15, 2508406); +INSERT INTO SYS_CIDADES VALUES(2665, 'Livramento', 15, 2508505); +INSERT INTO SYS_CIDADES VALUES(2666, 'Logradouro', 15, 2508554); +INSERT INTO SYS_CIDADES VALUES(2667, 'Lucena', 15, 2508604); +INSERT INTO SYS_CIDADES VALUES(2668, 'Mãe d`Água', 15, 2508703); +INSERT INTO SYS_CIDADES VALUES(2669, 'Malta', 15, 2508802); +INSERT INTO SYS_CIDADES VALUES(2670, 'Mamanguape', 15, 2508901); +INSERT INTO SYS_CIDADES VALUES(2671, 'Manaíra', 15, 2509008); +INSERT INTO SYS_CIDADES VALUES(2672, 'Marcação', 15, 2509057); +INSERT INTO SYS_CIDADES VALUES(2673, 'Mari', 15, 2509107); +INSERT INTO SYS_CIDADES VALUES(2674, 'Marizópolis', 15, 2509156); +INSERT INTO SYS_CIDADES VALUES(2675, 'Massaranduba', 15, 2509206); +INSERT INTO SYS_CIDADES VALUES(2676, 'Mataraca', 15, 2509305); +INSERT INTO SYS_CIDADES VALUES(2677, 'Matinhas', 15, 2509339); +INSERT INTO SYS_CIDADES VALUES(2678, 'Mato Grosso', 15, 2509370); +INSERT INTO SYS_CIDADES VALUES(2679, 'Maturéia', 15, 2509396); +INSERT INTO SYS_CIDADES VALUES(2680, 'Mogeiro', 15, 2509404); +INSERT INTO SYS_CIDADES VALUES(2681, 'Montadas', 15, 2509503); +INSERT INTO SYS_CIDADES VALUES(2682, 'Monte Horebe', 15, 2509602); +INSERT INTO SYS_CIDADES VALUES(2683, 'Monteiro', 15, 2509701); +INSERT INTO SYS_CIDADES VALUES(2684, 'Mulungu', 15, 2509800); +INSERT INTO SYS_CIDADES VALUES(2685, 'Natuba', 15, 2509909); +INSERT INTO SYS_CIDADES VALUES(2686, 'Nazarezinho', 15, 2510006); +INSERT INTO SYS_CIDADES VALUES(2687, 'Nova Floresta', 15, 2510105); +INSERT INTO SYS_CIDADES VALUES(2688, 'Nova Olinda', 15, 2510204); +INSERT INTO SYS_CIDADES VALUES(2689, 'Nova Palmeira', 15, 2510303); +INSERT INTO SYS_CIDADES VALUES(2690, 'Olho d`Água', 15, 2510402); +INSERT INTO SYS_CIDADES VALUES(2691, 'Olivedos', 15, 2510501); +INSERT INTO SYS_CIDADES VALUES(2692, 'Ouro Velho', 15, 2510600); +INSERT INTO SYS_CIDADES VALUES(2693, 'Parari', 15, 2510659); +INSERT INTO SYS_CIDADES VALUES(2694, 'Passagem', 15, 2510709); +INSERT INTO SYS_CIDADES VALUES(2695, 'Patos', 15, 2510808); +INSERT INTO SYS_CIDADES VALUES(2696, 'Paulista', 15, 2510907); +INSERT INTO SYS_CIDADES VALUES(2697, 'Pedra Branca', 15, 2511004); +INSERT INTO SYS_CIDADES VALUES(2698, 'Pedra Lavrada', 15, 2511103); +INSERT INTO SYS_CIDADES VALUES(2699, 'Pedras de Fogo', 15, 2511202); +INSERT INTO SYS_CIDADES VALUES(2700, 'Pedro Régis', 15, 2512721); +INSERT INTO SYS_CIDADES VALUES(2701, 'Piancó', 15, 2511301); +INSERT INTO SYS_CIDADES VALUES(2702, 'Picuí', 15, 2511400); +INSERT INTO SYS_CIDADES VALUES(2703, 'Pilar', 15, 2511509); +INSERT INTO SYS_CIDADES VALUES(2704, 'Pilões', 15, 2511608); +INSERT INTO SYS_CIDADES VALUES(2705, 'Pilõezinhos', 15, 2511707); +INSERT INTO SYS_CIDADES VALUES(2706, 'Pirpirituba', 15, 2511806); +INSERT INTO SYS_CIDADES VALUES(2707, 'Pitimbu', 15, 2511905); +INSERT INTO SYS_CIDADES VALUES(2708, 'Pocinhos', 15, 2512002); +INSERT INTO SYS_CIDADES VALUES(2709, 'Poço Dantas', 15, 2512036); +INSERT INTO SYS_CIDADES VALUES(2710, 'Poço de José de Moura', 15, 2512077); +INSERT INTO SYS_CIDADES VALUES(2711, 'Pombal', 15, 2512101); +INSERT INTO SYS_CIDADES VALUES(2712, 'Prata', 15, 2512200); +INSERT INTO SYS_CIDADES VALUES(2713, 'Princesa Isabel', 15, 2512309); +INSERT INTO SYS_CIDADES VALUES(2714, 'Puxinanã', 15, 2512408); +INSERT INTO SYS_CIDADES VALUES(2715, 'Queimadas', 15, 2512507); +INSERT INTO SYS_CIDADES VALUES(2716, 'Quixabá', 15, 2512606); +INSERT INTO SYS_CIDADES VALUES(2717, 'Remígio', 15, 2512705); +INSERT INTO SYS_CIDADES VALUES(2718, 'Riachão', 15, 2512747); +INSERT INTO SYS_CIDADES VALUES(2719, 'Riachão do Bacamarte', 15, 2512754); +INSERT INTO SYS_CIDADES VALUES(2720, 'Riachão do Poço', 15, 2512762); +INSERT INTO SYS_CIDADES VALUES(2721, 'Riacho de Santo Antônio', 15, 2512788); +INSERT INTO SYS_CIDADES VALUES(2722, 'Riacho dos Cavalos', 15, 2512804); +INSERT INTO SYS_CIDADES VALUES(2723, 'Rio Tinto', 15, 2512903); +INSERT INTO SYS_CIDADES VALUES(2724, 'Salgadinho', 15, 2513000); +INSERT INTO SYS_CIDADES VALUES(2725, 'Salgado de São Félix', 15, 2513109); +INSERT INTO SYS_CIDADES VALUES(2726, 'Santa Cecília', 15, 2513158); +INSERT INTO SYS_CIDADES VALUES(2727, 'Santa Cruz', 15, 2513208); +INSERT INTO SYS_CIDADES VALUES(2728, 'Santa Helena', 15, 2513307); +INSERT INTO SYS_CIDADES VALUES(2729, 'Santa Inês', 15, 2513356); +INSERT INTO SYS_CIDADES VALUES(2730, 'Santa Luzia', 15, 2513406); +INSERT INTO SYS_CIDADES VALUES(2731, 'Santa Rita', 15, 2513703); +INSERT INTO SYS_CIDADES VALUES(2732, 'Santa Teresinha', 15, 2513802); +INSERT INTO SYS_CIDADES VALUES(2733, 'Santana de Mangueira', 15, 2513505); +INSERT INTO SYS_CIDADES VALUES(2734, 'Santana dos Garrotes', 15, 2513604); +INSERT INTO SYS_CIDADES VALUES(2735, 'Santarém', 15, 2513653); +INSERT INTO SYS_CIDADES VALUES(2736, 'Santo André', 15, 2513851); +INSERT INTO SYS_CIDADES VALUES(2737, 'São Bentinho', 15, 2513927); +INSERT INTO SYS_CIDADES VALUES(2738, 'São Bento', 15, 2513901); +INSERT INTO SYS_CIDADES VALUES(2739, 'São Domingos de Pombal', 15, 2513968); +INSERT INTO SYS_CIDADES VALUES(2740, 'São Domingos do Cariri', 15, 2513943); +INSERT INTO SYS_CIDADES VALUES(2741, 'São Francisco', 15, 2513984); +INSERT INTO SYS_CIDADES VALUES(2742, 'São João do Cariri', 15, 2514008); +INSERT INTO SYS_CIDADES VALUES(2743, 'São João do Rio do Peixe', 15, 2500700); +INSERT INTO SYS_CIDADES VALUES(2744, 'São João do Tigre', 15, 2514107); +INSERT INTO SYS_CIDADES VALUES(2745, 'São José da Lagoa Tapada', 15, 2514206); +INSERT INTO SYS_CIDADES VALUES(2746, 'São José de Caiana', 15, 2514305); +INSERT INTO SYS_CIDADES VALUES(2747, 'São José de Espinharas', 15, 2514404); +INSERT INTO SYS_CIDADES VALUES(2748, 'São José de Piranhas', 15, 2514503); +INSERT INTO SYS_CIDADES VALUES(2749, 'São José de Princesa', 15, 2514552); +INSERT INTO SYS_CIDADES VALUES(2750, 'São José do Bonfim', 15, 2514602); +INSERT INTO SYS_CIDADES VALUES(2751, 'São José do Brejo do Cruz', 15, 2514651); +INSERT INTO SYS_CIDADES VALUES(2752, 'São José do Sabugi', 15, 2514701); +INSERT INTO SYS_CIDADES VALUES(2753, 'São José dos Cordeiros', 15, 2514800); +INSERT INTO SYS_CIDADES VALUES(2754, 'São José dos Ramos', 15, 2514453); +INSERT INTO SYS_CIDADES VALUES(2755, 'São Mamede', 15, 2514909); +INSERT INTO SYS_CIDADES VALUES(2756, 'São Miguel de Taipu', 15, 2515005); +INSERT INTO SYS_CIDADES VALUES(2757, 'São Sebastião de Lagoa de Roça', 15, 2515104); +INSERT INTO SYS_CIDADES VALUES(2758, 'São Sebastião do Umbuzeiro', 15, 2515203); +INSERT INTO SYS_CIDADES VALUES(2759, 'Sapé', 15, 2515302); +INSERT INTO SYS_CIDADES VALUES(2760, 'Seridó', 15, 2515401); +INSERT INTO SYS_CIDADES VALUES(2761, 'Serra Branca', 15, 2515500); +INSERT INTO SYS_CIDADES VALUES(2762, 'Serra da Raiz', 15, 2515609); +INSERT INTO SYS_CIDADES VALUES(2763, 'Serra Grande', 15, 2515708); +INSERT INTO SYS_CIDADES VALUES(2764, 'Serra Redonda', 15, 2515807); +INSERT INTO SYS_CIDADES VALUES(2765, 'Serraria', 15, 2515906); +INSERT INTO SYS_CIDADES VALUES(2766, 'Sertãozinho', 15, 2515930); +INSERT INTO SYS_CIDADES VALUES(2767, 'Sobrado', 15, 2515971); +INSERT INTO SYS_CIDADES VALUES(2768, 'Solânea', 15, 2516003); +INSERT INTO SYS_CIDADES VALUES(2769, 'Soledade', 15, 2516102); +INSERT INTO SYS_CIDADES VALUES(2770, 'Sossêgo', 15, 2516151); +INSERT INTO SYS_CIDADES VALUES(2771, 'Sousa', 15, 2516201); +INSERT INTO SYS_CIDADES VALUES(2772, 'Sumé', 15, 2516300); +INSERT INTO SYS_CIDADES VALUES(2773, 'Taperoá', 15, 2516508); +INSERT INTO SYS_CIDADES VALUES(2774, 'Tavares', 15, 2516607); +INSERT INTO SYS_CIDADES VALUES(2775, 'Teixeira', 15, 2516706); +INSERT INTO SYS_CIDADES VALUES(2776, 'Tenório', 15, 2516755); +INSERT INTO SYS_CIDADES VALUES(2777, 'Triunfo', 15, 2516805); +INSERT INTO SYS_CIDADES VALUES(2778, 'Uiraúna', 15, 2516904); +INSERT INTO SYS_CIDADES VALUES(2779, 'Umbuzeiro', 15, 2517001); +INSERT INTO SYS_CIDADES VALUES(2780, 'Várzea', 15, 2517100); +INSERT INTO SYS_CIDADES VALUES(2781, 'Vieirópolis', 15, 2517209); +INSERT INTO SYS_CIDADES VALUES(2782, 'Vista Serrana', 15, 2505501); +INSERT INTO SYS_CIDADES VALUES(2783, 'Zabelê', 15, 2517407); +INSERT INTO SYS_CIDADES VALUES(2784, 'Abatiá', 18, 4100103); +INSERT INTO SYS_CIDADES VALUES(2785, 'Adrianópolis', 18, 4100202); +INSERT INTO SYS_CIDADES VALUES(2786, 'Agudos do Sul', 18, 4100301); +INSERT INTO SYS_CIDADES VALUES(2787, 'Almirante Tamandaré', 18, 4100400); +INSERT INTO SYS_CIDADES VALUES(2788, 'Altamira do Paraná', 18, 4100459); +INSERT INTO SYS_CIDADES VALUES(2789, 'Alto Paraíso', 18, 4128625); +INSERT INTO SYS_CIDADES VALUES(2790, 'Alto Paraná', 18, 4100608); +INSERT INTO SYS_CIDADES VALUES(2791, 'Alto Piquiri', 18, 4100707); +INSERT INTO SYS_CIDADES VALUES(2792, 'Altônia', 18, 4100509); +INSERT INTO SYS_CIDADES VALUES(2793, 'Alvorada do Sul', 18, 4100806); +INSERT INTO SYS_CIDADES VALUES(2794, 'Amaporã', 18, 4100905); +INSERT INTO SYS_CIDADES VALUES(2795, 'Ampére', 18, 4101002); +INSERT INTO SYS_CIDADES VALUES(2796, 'Anahy', 18, 4101051); +INSERT INTO SYS_CIDADES VALUES(2797, 'Andirá', 18, 4101101); +INSERT INTO SYS_CIDADES VALUES(2798, 'Ângulo', 18, 4101150); +INSERT INTO SYS_CIDADES VALUES(2799, 'Antonina', 18, 4101200); +INSERT INTO SYS_CIDADES VALUES(2800, 'Antônio Olinto', 18, 4101309); +INSERT INTO SYS_CIDADES VALUES(2801, 'Apucarana', 18, 4101408); +INSERT INTO SYS_CIDADES VALUES(2802, 'Arapongas', 18, 4101507); +INSERT INTO SYS_CIDADES VALUES(2803, 'Arapoti', 18, 4101606); +INSERT INTO SYS_CIDADES VALUES(2804, 'Arapuã', 18, 4101655); +INSERT INTO SYS_CIDADES VALUES(2805, 'Araruna', 18, 4101705); +INSERT INTO SYS_CIDADES VALUES(2806, 'Araucária', 18, 4101804); +INSERT INTO SYS_CIDADES VALUES(2807, 'Ariranha do Ivaí', 18, 4101853); +INSERT INTO SYS_CIDADES VALUES(2808, 'Assaí', 18, 4101903); +INSERT INTO SYS_CIDADES VALUES(2809, 'Assis Chateaubriand', 18, 4102000); +INSERT INTO SYS_CIDADES VALUES(2810, 'Astorga', 18, 4102109); +INSERT INTO SYS_CIDADES VALUES(2811, 'Atalaia', 18, 4102208); +INSERT INTO SYS_CIDADES VALUES(2812, 'Balsa Nova', 18, 4102307); +INSERT INTO SYS_CIDADES VALUES(2813, 'Bandeirantes', 18, 4102406); +INSERT INTO SYS_CIDADES VALUES(2814, 'Barbosa Ferraz', 18, 4102505); +INSERT INTO SYS_CIDADES VALUES(2815, 'Barra do Jacaré', 18, 4102703); +INSERT INTO SYS_CIDADES VALUES(2816, 'Barracão', 18, 4102604); +INSERT INTO SYS_CIDADES VALUES(2817, 'Bela Vista da Caroba', 18, 4102752); +INSERT INTO SYS_CIDADES VALUES(2818, 'Bela Vista do Paraíso', 18, 4102802); +INSERT INTO SYS_CIDADES VALUES(2819, 'Bituruna', 18, 4102901); +INSERT INTO SYS_CIDADES VALUES(2820, 'Boa Esperança', 18, 4103008); +INSERT INTO SYS_CIDADES VALUES(2821, 'Boa Esperança do Iguaçu', 18, 4103024); +INSERT INTO SYS_CIDADES VALUES(2822, 'Boa Ventura de São Roque', 18, 4103040); +INSERT INTO SYS_CIDADES VALUES(2823, 'Boa Vista da Aparecida', 18, 4103057); +INSERT INTO SYS_CIDADES VALUES(2824, 'Bocaiúva do Sul', 18, 4103107); +INSERT INTO SYS_CIDADES VALUES(2825, 'Bom Jesus do Sul', 18, 4103156); +INSERT INTO SYS_CIDADES VALUES(2826, 'Bom Sucesso', 18, 4103206); +INSERT INTO SYS_CIDADES VALUES(2827, 'Bom Sucesso do Sul', 18, 4103222); +INSERT INTO SYS_CIDADES VALUES(2828, 'Borrazópolis', 18, 4103305); +INSERT INTO SYS_CIDADES VALUES(2829, 'Braganey', 18, 4103354); +INSERT INTO SYS_CIDADES VALUES(2830, 'Brasilândia do Sul', 18, 4103370); +INSERT INTO SYS_CIDADES VALUES(2831, 'Cafeara', 18, 4103404); +INSERT INTO SYS_CIDADES VALUES(2832, 'Cafelândia', 18, 4103453); +INSERT INTO SYS_CIDADES VALUES(2833, 'Cafezal do Sul', 18, 4103479); +INSERT INTO SYS_CIDADES VALUES(2834, 'Califórnia', 18, 4103503); +INSERT INTO SYS_CIDADES VALUES(2835, 'Cambará', 18, 4103602); +INSERT INTO SYS_CIDADES VALUES(2836, 'Cambé', 18, 4103701); +INSERT INTO SYS_CIDADES VALUES(2837, 'Cambira', 18, 4103800); +INSERT INTO SYS_CIDADES VALUES(2838, 'Campina da Lagoa', 18, 4103909); +INSERT INTO SYS_CIDADES VALUES(2839, 'Campina do Simão', 18, 4103958); +INSERT INTO SYS_CIDADES VALUES(2840, 'Campina Grande do Sul', 18, 4104006); +INSERT INTO SYS_CIDADES VALUES(2841, 'Campo Bonito', 18, 4104055); +INSERT INTO SYS_CIDADES VALUES(2842, 'Campo do Tenente', 18, 4104105); +INSERT INTO SYS_CIDADES VALUES(2843, 'Campo Largo', 18, 4104204); +INSERT INTO SYS_CIDADES VALUES(2844, 'Campo Magro', 18, 4104253); +INSERT INTO SYS_CIDADES VALUES(2845, 'Campo Mourão', 18, 4104303); +INSERT INTO SYS_CIDADES VALUES(2846, 'Cândido de Abreu', 18, 4104402); +INSERT INTO SYS_CIDADES VALUES(2847, 'Candói', 18, 4104428); +INSERT INTO SYS_CIDADES VALUES(2848, 'Cantagalo', 18, 4104451); +INSERT INTO SYS_CIDADES VALUES(2849, 'Capanema', 18, 4104501); +INSERT INTO SYS_CIDADES VALUES(2850, 'Capitão Leônidas Marques', 18, 4104600); +INSERT INTO SYS_CIDADES VALUES(2851, 'Carambeí', 18, 4104659); +INSERT INTO SYS_CIDADES VALUES(2852, 'Carlópolis', 18, 4104709); +INSERT INTO SYS_CIDADES VALUES(2853, 'Cascavel', 18, 4104808); +INSERT INTO SYS_CIDADES VALUES(2854, 'Castro', 18, 4104907); +INSERT INTO SYS_CIDADES VALUES(2855, 'Catanduvas', 18, 4105003); +INSERT INTO SYS_CIDADES VALUES(2856, 'Centenário do Sul', 18, 4105102); +INSERT INTO SYS_CIDADES VALUES(2857, 'Cerro Azul', 18, 4105201); +INSERT INTO SYS_CIDADES VALUES(2858, 'Céu Azul', 18, 4105300); +INSERT INTO SYS_CIDADES VALUES(2859, 'Chopinzinho', 18, 4105409); +INSERT INTO SYS_CIDADES VALUES(2860, 'Cianorte', 18, 4105508); +INSERT INTO SYS_CIDADES VALUES(2861, 'Cidade Gaúcha', 18, 4105607); +INSERT INTO SYS_CIDADES VALUES(2862, 'Clevelândia', 18, 4105706); +INSERT INTO SYS_CIDADES VALUES(2863, 'Colombo', 18, 4105805); +INSERT INTO SYS_CIDADES VALUES(2864, 'Colorado', 18, 4105904); +INSERT INTO SYS_CIDADES VALUES(2865, 'Congonhinhas', 18, 4106001); +INSERT INTO SYS_CIDADES VALUES(2866, 'Conselheiro Mairinck', 18, 4106100); +INSERT INTO SYS_CIDADES VALUES(2867, 'Contenda', 18, 4106209); +INSERT INTO SYS_CIDADES VALUES(2868, 'Corbélia', 18, 4106308); +INSERT INTO SYS_CIDADES VALUES(2869, 'Cornélio Procópio', 18, 4106407); +INSERT INTO SYS_CIDADES VALUES(2870, 'Coronel Domingos Soares', 18, 4106456); +INSERT INTO SYS_CIDADES VALUES(2871, 'Coronel Vivida', 18, 4106506); +INSERT INTO SYS_CIDADES VALUES(2872, 'Corumbataí do Sul', 18, 4106555); +INSERT INTO SYS_CIDADES VALUES(2873, 'Cruz Machado', 18, 4106803); +INSERT INTO SYS_CIDADES VALUES(2874, 'Cruzeiro do Iguaçu', 18, 4106571); +INSERT INTO SYS_CIDADES VALUES(2875, 'Cruzeiro do Oeste', 18, 4106605); +INSERT INTO SYS_CIDADES VALUES(2876, 'Cruzeiro do Sul', 18, 4106704); +INSERT INTO SYS_CIDADES VALUES(2877, 'Cruzmaltina', 18, 4106852); +INSERT INTO SYS_CIDADES VALUES(2878, 'Curitiba', 18, 4106902); +INSERT INTO SYS_CIDADES VALUES(2879, 'Curiúva', 18, 4107009); +INSERT INTO SYS_CIDADES VALUES(2880, 'Diamante d`Oeste', 18, 4107157); +INSERT INTO SYS_CIDADES VALUES(2881, 'Diamante do Norte', 18, 4107108); +INSERT INTO SYS_CIDADES VALUES(2882, 'Diamante do Sul', 18, 4107124); +INSERT INTO SYS_CIDADES VALUES(2883, 'Dois Vizinhos', 18, 4107207); +INSERT INTO SYS_CIDADES VALUES(2884, 'Douradina', 18, 4107256); +INSERT INTO SYS_CIDADES VALUES(2885, 'Doutor Camargo', 18, 4107306); +INSERT INTO SYS_CIDADES VALUES(2886, 'Doutor Ulysses', 18, 4128633); +INSERT INTO SYS_CIDADES VALUES(2887, 'Enéas Marques', 18, 4107405); +INSERT INTO SYS_CIDADES VALUES(2888, 'Engenheiro Beltrão', 18, 4107504); +INSERT INTO SYS_CIDADES VALUES(2889, 'Entre Rios do Oeste', 18, 4107538); +INSERT INTO SYS_CIDADES VALUES(2890, 'Esperança Nova', 18, 4107520); +INSERT INTO SYS_CIDADES VALUES(2891, 'Espigão Alto do Iguaçu', 18, 4107546); +INSERT INTO SYS_CIDADES VALUES(2892, 'Farol', 18, 4107553); +INSERT INTO SYS_CIDADES VALUES(2893, 'Faxinal', 18, 4107603); +INSERT INTO SYS_CIDADES VALUES(2894, 'Fazenda Rio Grande', 18, 4107652); +INSERT INTO SYS_CIDADES VALUES(2895, 'Fênix', 18, 4107702); +INSERT INTO SYS_CIDADES VALUES(2896, 'Fernandes Pinheiro', 18, 4107736); +INSERT INTO SYS_CIDADES VALUES(2897, 'Figueira', 18, 4107751); +INSERT INTO SYS_CIDADES VALUES(2898, 'Flor da Serra do Sul', 18, 4107850); +INSERT INTO SYS_CIDADES VALUES(2899, 'Floraí', 18, 4107801); +INSERT INTO SYS_CIDADES VALUES(2900, 'Floresta', 18, 4107900); +INSERT INTO SYS_CIDADES VALUES(2901, 'Florestópolis', 18, 4108007); +INSERT INTO SYS_CIDADES VALUES(2902, 'Flórida', 18, 4108106); +INSERT INTO SYS_CIDADES VALUES(2903, 'Formosa do Oeste', 18, 4108205); +INSERT INTO SYS_CIDADES VALUES(2904, 'Foz do Iguaçu', 18, 4108304); +INSERT INTO SYS_CIDADES VALUES(2905, 'Foz do Jordão', 18, 4108452); +INSERT INTO SYS_CIDADES VALUES(2906, 'Francisco Alves', 18, 4108320); +INSERT INTO SYS_CIDADES VALUES(2907, 'Francisco Beltrão', 18, 4108403); +INSERT INTO SYS_CIDADES VALUES(2908, 'General Carneiro', 18, 4108502); +INSERT INTO SYS_CIDADES VALUES(2909, 'Godoy Moreira', 18, 4108551); +INSERT INTO SYS_CIDADES VALUES(2910, 'Goioerê', 18, 4108601); +INSERT INTO SYS_CIDADES VALUES(2911, 'Goioxim', 18, 4108650); +INSERT INTO SYS_CIDADES VALUES(2912, 'Grandes Rios', 18, 4108700); +INSERT INTO SYS_CIDADES VALUES(2913, 'Guaíra', 18, 4108809); +INSERT INTO SYS_CIDADES VALUES(2914, 'Guairaçá', 18, 4108908); +INSERT INTO SYS_CIDADES VALUES(2915, 'Guamiranga', 18, 4108957); +INSERT INTO SYS_CIDADES VALUES(2916, 'Guapirama', 18, 4109005); +INSERT INTO SYS_CIDADES VALUES(2917, 'Guaporema', 18, 4109104); +INSERT INTO SYS_CIDADES VALUES(2918, 'Guaraci', 18, 4109203); +INSERT INTO SYS_CIDADES VALUES(2919, 'Guaraniaçu', 18, 4109302); +INSERT INTO SYS_CIDADES VALUES(2920, 'Guarapuava', 18, 4109401); +INSERT INTO SYS_CIDADES VALUES(2921, 'Guaraqueçaba', 18, 4109500); +INSERT INTO SYS_CIDADES VALUES(2922, 'Guaratuba', 18, 4109609); +INSERT INTO SYS_CIDADES VALUES(2923, 'Honório Serpa', 18, 4109658); +INSERT INTO SYS_CIDADES VALUES(2924, 'Ibaiti', 18, 4109708); +INSERT INTO SYS_CIDADES VALUES(2925, 'Ibema', 18, 4109757); +INSERT INTO SYS_CIDADES VALUES(2926, 'Ibiporã', 18, 4109807); +INSERT INTO SYS_CIDADES VALUES(2927, 'Icaraíma', 18, 4109906); +INSERT INTO SYS_CIDADES VALUES(2928, 'Iguaraçu', 18, 4110003); +INSERT INTO SYS_CIDADES VALUES(2929, 'Iguatu', 18, 4110052); +INSERT INTO SYS_CIDADES VALUES(2930, 'Imbaú', 18, 4110078); +INSERT INTO SYS_CIDADES VALUES(2931, 'Imbituva', 18, 4110102); +INSERT INTO SYS_CIDADES VALUES(2932, 'Inácio Martins', 18, 4110201); +INSERT INTO SYS_CIDADES VALUES(2933, 'Inajá', 18, 4110300); +INSERT INTO SYS_CIDADES VALUES(2934, 'Indianópolis', 18, 4110409); +INSERT INTO SYS_CIDADES VALUES(2935, 'Ipiranga', 18, 4110508); +INSERT INTO SYS_CIDADES VALUES(2936, 'Iporã', 18, 4110607); +INSERT INTO SYS_CIDADES VALUES(2937, 'Iracema do Oeste', 18, 4110656); +INSERT INTO SYS_CIDADES VALUES(2938, 'Irati', 18, 4110706); +INSERT INTO SYS_CIDADES VALUES(2939, 'Iretama', 18, 4110805); +INSERT INTO SYS_CIDADES VALUES(2940, 'Itaguajé', 18, 4110904); +INSERT INTO SYS_CIDADES VALUES(2941, 'Itaipulândia', 18, 4110953); +INSERT INTO SYS_CIDADES VALUES(2942, 'Itambaracá', 18, 4111001); +INSERT INTO SYS_CIDADES VALUES(2943, 'Itambé', 18, 4111100); +INSERT INTO SYS_CIDADES VALUES(2944, 'Itapejara d`Oeste', 18, 4111209); +INSERT INTO SYS_CIDADES VALUES(2945, 'Itaperuçu', 18, 4111258); +INSERT INTO SYS_CIDADES VALUES(2946, 'Itaúna do Sul', 18, 4111308); +INSERT INTO SYS_CIDADES VALUES(2947, 'Ivaí', 18, 4111407); +INSERT INTO SYS_CIDADES VALUES(2948, 'Ivaiporã', 18, 4111506); +INSERT INTO SYS_CIDADES VALUES(2949, 'Ivaté', 18, 4111555); +INSERT INTO SYS_CIDADES VALUES(2950, 'Ivatuba', 18, 4111605); +INSERT INTO SYS_CIDADES VALUES(2951, 'Jaboti', 18, 4111704); +INSERT INTO SYS_CIDADES VALUES(2952, 'Jacarezinho', 18, 4111803); +INSERT INTO SYS_CIDADES VALUES(2953, 'Jaguapitã', 18, 4111902); +INSERT INTO SYS_CIDADES VALUES(2954, 'Jaguariaíva', 18, 4112009); +INSERT INTO SYS_CIDADES VALUES(2955, 'Jandaia do Sul', 18, 4112108); +INSERT INTO SYS_CIDADES VALUES(2956, 'Janiópolis', 18, 4112207); +INSERT INTO SYS_CIDADES VALUES(2957, 'Japira', 18, 4112306); +INSERT INTO SYS_CIDADES VALUES(2958, 'Japurá', 18, 4112405); +INSERT INTO SYS_CIDADES VALUES(2959, 'Jardim Alegre', 18, 4112504); +INSERT INTO SYS_CIDADES VALUES(2960, 'Jardim Olinda', 18, 4112603); +INSERT INTO SYS_CIDADES VALUES(2961, 'Jataizinho', 18, 4112702); +INSERT INTO SYS_CIDADES VALUES(2962, 'Jesuítas', 18, 4112751); +INSERT INTO SYS_CIDADES VALUES(2963, 'Joaquim Távora', 18, 4112801); +INSERT INTO SYS_CIDADES VALUES(2964, 'Jundiaí do Sul', 18, 4112900); +INSERT INTO SYS_CIDADES VALUES(2965, 'Juranda', 18, 4112959); +INSERT INTO SYS_CIDADES VALUES(2966, 'Jussara', 18, 4113007); +INSERT INTO SYS_CIDADES VALUES(2967, 'Kaloré', 18, 4113106); +INSERT INTO SYS_CIDADES VALUES(2968, 'Lapa', 18, 4113205); +INSERT INTO SYS_CIDADES VALUES(2969, 'Laranjal', 18, 4113254); +INSERT INTO SYS_CIDADES VALUES(2970, 'Laranjeiras do Sul', 18, 4113304); +INSERT INTO SYS_CIDADES VALUES(2971, 'Leópolis', 18, 4113403); +INSERT INTO SYS_CIDADES VALUES(2972, 'Lidianópolis', 18, 4113429); +INSERT INTO SYS_CIDADES VALUES(2973, 'Lindoeste', 18, 4113452); +INSERT INTO SYS_CIDADES VALUES(2974, 'Loanda', 18, 4113502); +INSERT INTO SYS_CIDADES VALUES(2975, 'Lobato', 18, 4113601); +INSERT INTO SYS_CIDADES VALUES(2976, 'Londrina', 18, 4113700); +INSERT INTO SYS_CIDADES VALUES(2977, 'Luiziana', 18, 4113734); +INSERT INTO SYS_CIDADES VALUES(2978, 'Lunardelli', 18, 4113759); +INSERT INTO SYS_CIDADES VALUES(2979, 'Lupionópolis', 18, 4113809); +INSERT INTO SYS_CIDADES VALUES(2980, 'Mallet', 18, 4113908); +INSERT INTO SYS_CIDADES VALUES(2981, 'Mamborê', 18, 4114005); +INSERT INTO SYS_CIDADES VALUES(2982, 'Mandaguaçu', 18, 4114104); +INSERT INTO SYS_CIDADES VALUES(2983, 'Mandaguari', 18, 4114203); +INSERT INTO SYS_CIDADES VALUES(2984, 'Mandirituba', 18, 4114302); +INSERT INTO SYS_CIDADES VALUES(2985, 'Manfrinópolis', 18, 4114351); +INSERT INTO SYS_CIDADES VALUES(2986, 'Mangueirinha', 18, 4114401); +INSERT INTO SYS_CIDADES VALUES(2987, 'Manoel Ribas', 18, 4114500); +INSERT INTO SYS_CIDADES VALUES(2988, 'Marechal Cândido Rondon', 18, 4114609); +INSERT INTO SYS_CIDADES VALUES(2989, 'Maria Helena', 18, 4114708); +INSERT INTO SYS_CIDADES VALUES(2990, 'Marialva', 18, 4114807); +INSERT INTO SYS_CIDADES VALUES(2991, 'Marilândia do Sul', 18, 4114906); +INSERT INTO SYS_CIDADES VALUES(2992, 'Marilena', 18, 4115002); +INSERT INTO SYS_CIDADES VALUES(2993, 'Mariluz', 18, 4115101); +INSERT INTO SYS_CIDADES VALUES(2994, 'Maringá', 18, 4115200); +INSERT INTO SYS_CIDADES VALUES(2995, 'Mariópolis', 18, 4115309); +INSERT INTO SYS_CIDADES VALUES(2996, 'Maripá', 18, 4115358); +INSERT INTO SYS_CIDADES VALUES(2997, 'Marmeleiro', 18, 4115408); +INSERT INTO SYS_CIDADES VALUES(2998, 'Marquinho', 18, 4115457); +INSERT INTO SYS_CIDADES VALUES(2999, 'Marumbi', 18, 4115507); +INSERT INTO SYS_CIDADES VALUES(3000, 'Matelândia', 18, 4115606); +INSERT INTO SYS_CIDADES VALUES(3001, 'Matinhos', 18, 4115705); +INSERT INTO SYS_CIDADES VALUES(3002, 'Mato Rico', 18, 4115739); +INSERT INTO SYS_CIDADES VALUES(3003, 'Mauá da Serra', 18, 4115754); +INSERT INTO SYS_CIDADES VALUES(3004, 'Medianeira', 18, 4115804); +INSERT INTO SYS_CIDADES VALUES(3005, 'Mercedes', 18, 4115853); +INSERT INTO SYS_CIDADES VALUES(3006, 'Mirador', 18, 4115903); +INSERT INTO SYS_CIDADES VALUES(3007, 'Miraselva', 18, 4116000); +INSERT INTO SYS_CIDADES VALUES(3008, 'Missal', 18, 4116059); +INSERT INTO SYS_CIDADES VALUES(3009, 'Moreira Sales', 18, 4116109); +INSERT INTO SYS_CIDADES VALUES(3010, 'Morretes', 18, 4116208); +INSERT INTO SYS_CIDADES VALUES(3011, 'Munhoz de Melo', 18, 4116307); +INSERT INTO SYS_CIDADES VALUES(3012, 'Nossa Senhora das Graças', 18, 4116406); +INSERT INTO SYS_CIDADES VALUES(3013, 'Nova Aliança do Ivaí', 18, 4116505); +INSERT INTO SYS_CIDADES VALUES(3014, 'Nova América da Colina', 18, 4116604); +INSERT INTO SYS_CIDADES VALUES(3015, 'Nova Aurora', 18, 4116703); +INSERT INTO SYS_CIDADES VALUES(3016, 'Nova Cantu', 18, 4116802); +INSERT INTO SYS_CIDADES VALUES(3017, 'Nova Esperança', 18, 4116901); +INSERT INTO SYS_CIDADES VALUES(3018, 'Nova Esperança do Sudoeste', 18, 4116950); +INSERT INTO SYS_CIDADES VALUES(3019, 'Nova Fátima', 18, 4117008); +INSERT INTO SYS_CIDADES VALUES(3020, 'Nova Laranjeiras', 18, 4117057); +INSERT INTO SYS_CIDADES VALUES(3021, 'Nova Londrina', 18, 4117107); +INSERT INTO SYS_CIDADES VALUES(3022, 'Nova Olímpia', 18, 4117206); +INSERT INTO SYS_CIDADES VALUES(3023, 'Nova Prata do Iguaçu', 18, 4117255); +INSERT INTO SYS_CIDADES VALUES(3024, 'Nova Santa Bárbara', 18, 4117214); +INSERT INTO SYS_CIDADES VALUES(3025, 'Nova Santa Rosa', 18, 4117222); +INSERT INTO SYS_CIDADES VALUES(3026, 'Nova Tebas', 18, 4117271); +INSERT INTO SYS_CIDADES VALUES(3027, 'Novo Itacolomi', 18, 4117297); +INSERT INTO SYS_CIDADES VALUES(3028, 'Ortigueira', 18, 4117305); +INSERT INTO SYS_CIDADES VALUES(3029, 'Ourizona', 18, 4117404); +INSERT INTO SYS_CIDADES VALUES(3030, 'Ouro Verde do Oeste', 18, 4117453); +INSERT INTO SYS_CIDADES VALUES(3031, 'Paiçandu', 18, 4117503); +INSERT INTO SYS_CIDADES VALUES(3032, 'Palmas', 18, 4117602); +INSERT INTO SYS_CIDADES VALUES(3033, 'Palmeira', 18, 4117701); +INSERT INTO SYS_CIDADES VALUES(3034, 'Palmital', 18, 4117800); +INSERT INTO SYS_CIDADES VALUES(3035, 'Palotina', 18, 4117909); +INSERT INTO SYS_CIDADES VALUES(3036, 'Paraíso do Norte', 18, 4118006); +INSERT INTO SYS_CIDADES VALUES(3037, 'Paranacity', 18, 4118105); +INSERT INTO SYS_CIDADES VALUES(3038, 'Paranaguá', 18, 4118204); +INSERT INTO SYS_CIDADES VALUES(3039, 'Paranapoema', 18, 4118303); +INSERT INTO SYS_CIDADES VALUES(3040, 'Paranavaí', 18, 4118402); +INSERT INTO SYS_CIDADES VALUES(3041, 'Pato Bragado', 18, 4118451); +INSERT INTO SYS_CIDADES VALUES(3042, 'Pato Branco', 18, 4118501); +INSERT INTO SYS_CIDADES VALUES(3043, 'Paula Freitas', 18, 4118600); +INSERT INTO SYS_CIDADES VALUES(3044, 'Paulo Frontin', 18, 4118709); +INSERT INTO SYS_CIDADES VALUES(3045, 'Peabiru', 18, 4118808); +INSERT INTO SYS_CIDADES VALUES(3046, 'Perobal', 18, 4118857); +INSERT INTO SYS_CIDADES VALUES(3047, 'Pérola', 18, 4118907); +INSERT INTO SYS_CIDADES VALUES(3048, 'Pérola d`Oeste', 18, 4119004); +INSERT INTO SYS_CIDADES VALUES(3049, 'Piên', 18, 4119103); +INSERT INTO SYS_CIDADES VALUES(3050, 'Pinhais', 18, 4119152); +INSERT INTO SYS_CIDADES VALUES(3051, 'Pinhal de São Bento', 18, 4119251); +INSERT INTO SYS_CIDADES VALUES(3052, 'Pinhalão', 18, 4119202); +INSERT INTO SYS_CIDADES VALUES(3053, 'Pinhão', 18, 4119301); +INSERT INTO SYS_CIDADES VALUES(3054, 'Piraí do Sul', 18, 4119400); +INSERT INTO SYS_CIDADES VALUES(3055, 'Piraquara', 18, 4119509); +INSERT INTO SYS_CIDADES VALUES(3056, 'Pitanga', 18, 4119608); +INSERT INTO SYS_CIDADES VALUES(3057, 'Pitangueiras', 18, 4119657); +INSERT INTO SYS_CIDADES VALUES(3058, 'Planaltina do Paraná', 18, 4119707); +INSERT INTO SYS_CIDADES VALUES(3059, 'Planalto', 18, 4119806); +INSERT INTO SYS_CIDADES VALUES(3060, 'Ponta Grossa', 18, 4119905); +INSERT INTO SYS_CIDADES VALUES(3061, 'Pontal do Paraná', 18, 4119954); +INSERT INTO SYS_CIDADES VALUES(3062, 'Porecatu', 18, 4120002); +INSERT INTO SYS_CIDADES VALUES(3063, 'Porto Amazonas', 18, 4120101); +INSERT INTO SYS_CIDADES VALUES(3064, 'Porto Barreiro', 18, 4120150); +INSERT INTO SYS_CIDADES VALUES(3065, 'Porto Rico', 18, 4120200); +INSERT INTO SYS_CIDADES VALUES(3066, 'Porto Vitória', 18, 4120309); +INSERT INTO SYS_CIDADES VALUES(3067, 'Prado Ferreira', 18, 4120333); +INSERT INTO SYS_CIDADES VALUES(3068, 'Pranchita', 18, 4120358); +INSERT INTO SYS_CIDADES VALUES(3069, 'Presidente Castelo Branco', 18, 4120408); +INSERT INTO SYS_CIDADES VALUES(3070, 'Primeiro de Maio', 18, 4120507); +INSERT INTO SYS_CIDADES VALUES(3071, 'Prudentópolis', 18, 4120606); +INSERT INTO SYS_CIDADES VALUES(3072, 'Quarto Centenário', 18, 4120655); +INSERT INTO SYS_CIDADES VALUES(3073, 'Quatiguá', 18, 4120705); +INSERT INTO SYS_CIDADES VALUES(3074, 'Quatro Barras', 18, 4120804); +INSERT INTO SYS_CIDADES VALUES(3075, 'Quatro Pontes', 18, 4120853); +INSERT INTO SYS_CIDADES VALUES(3076, 'Quedas do Iguaçu', 18, 4120903); +INSERT INTO SYS_CIDADES VALUES(3077, 'Querência do Norte', 18, 4121000); +INSERT INTO SYS_CIDADES VALUES(3078, 'Quinta do Sol', 18, 4121109); +INSERT INTO SYS_CIDADES VALUES(3079, 'Quitandinha', 18, 4121208); +INSERT INTO SYS_CIDADES VALUES(3080, 'Ramilândia', 18, 4121257); +INSERT INTO SYS_CIDADES VALUES(3081, 'Rancho Alegre', 18, 4121307); +INSERT INTO SYS_CIDADES VALUES(3082, 'Rancho Alegre d`Oeste', 18, 4121356); +INSERT INTO SYS_CIDADES VALUES(3083, 'Realeza', 18, 4121406); +INSERT INTO SYS_CIDADES VALUES(3084, 'Rebouças', 18, 4121505); +INSERT INTO SYS_CIDADES VALUES(3085, 'Renascença', 18, 4121604); +INSERT INTO SYS_CIDADES VALUES(3086, 'Reserva', 18, 4121703); +INSERT INTO SYS_CIDADES VALUES(3087, 'Reserva do Iguaçu', 18, 4121752); +INSERT INTO SYS_CIDADES VALUES(3088, 'Ribeirão Claro', 18, 4121802); +INSERT INTO SYS_CIDADES VALUES(3089, 'Ribeirão do Pinhal', 18, 4121901); +INSERT INTO SYS_CIDADES VALUES(3090, 'Rio Azul', 18, 4122008); +INSERT INTO SYS_CIDADES VALUES(3091, 'Rio Bom', 18, 4122107); +INSERT INTO SYS_CIDADES VALUES(3092, 'Rio Bonito do Iguaçu', 18, 4122156); +INSERT INTO SYS_CIDADES VALUES(3093, 'Rio Branco do Ivaí', 18, 4122172); +INSERT INTO SYS_CIDADES VALUES(3094, 'Rio Branco do Sul', 18, 4122206); +INSERT INTO SYS_CIDADES VALUES(3095, 'Rio Negro', 18, 4122305); +INSERT INTO SYS_CIDADES VALUES(3096, 'Rolândia', 18, 4122404); +INSERT INTO SYS_CIDADES VALUES(3097, 'Roncador', 18, 4122503); +INSERT INTO SYS_CIDADES VALUES(3098, 'Rondon', 18, 4122602); +INSERT INTO SYS_CIDADES VALUES(3099, 'Rosário do Ivaí', 18, 4122651); +INSERT INTO SYS_CIDADES VALUES(3100, 'Sabáudia', 18, 4122701); +INSERT INTO SYS_CIDADES VALUES(3101, 'Salgado Filho', 18, 4122800); +INSERT INTO SYS_CIDADES VALUES(3102, 'Salto do Itararé', 18, 4122909); +INSERT INTO SYS_CIDADES VALUES(3103, 'Salto do Lontra', 18, 4123006); +INSERT INTO SYS_CIDADES VALUES(3104, 'Santa Amélia', 18, 4123105); +INSERT INTO SYS_CIDADES VALUES(3105, 'Santa Cecília do Pavão', 18, 4123204); +INSERT INTO SYS_CIDADES VALUES(3106, 'Santa Cruz de Monte Castelo', 18, 4123303); +INSERT INTO SYS_CIDADES VALUES(3107, 'Santa Fé', 18, 4123402); +INSERT INTO SYS_CIDADES VALUES(3108, 'Santa Helena', 18, 4123501); +INSERT INTO SYS_CIDADES VALUES(3109, 'Santa Inês', 18, 4123600); +INSERT INTO SYS_CIDADES VALUES(3110, 'Santa Isabel do Ivaí', 18, 4123709); +INSERT INTO SYS_CIDADES VALUES(3111, 'Santa Izabel do Oeste', 18, 4123808); +INSERT INTO SYS_CIDADES VALUES(3112, 'Santa Lúcia', 18, 4123824); +INSERT INTO SYS_CIDADES VALUES(3113, 'Santa Maria do Oeste', 18, 4123857); +INSERT INTO SYS_CIDADES VALUES(3114, 'Santa Mariana', 18, 4123907); +INSERT INTO SYS_CIDADES VALUES(3115, 'Santa Mônica', 18, 4123956); +INSERT INTO SYS_CIDADES VALUES(3116, 'Santa Tereza do Oeste', 18, 4124020); +INSERT INTO SYS_CIDADES VALUES(3117, 'Santa Terezinha de Itaipu', 18, 4124053); +INSERT INTO SYS_CIDADES VALUES(3118, 'Santana do Itararé', 18, 4124004); +INSERT INTO SYS_CIDADES VALUES(3119, 'Santo Antônio da Platina', 18, 4124103); +INSERT INTO SYS_CIDADES VALUES(3120, 'Santo Antônio do Caiuá', 18, 4124202); +INSERT INTO SYS_CIDADES VALUES(3121, 'Santo Antônio do Paraíso', 18, 4124301); +INSERT INTO SYS_CIDADES VALUES(3122, 'Santo Antônio do Sudoeste', 18, 4124400); +INSERT INTO SYS_CIDADES VALUES(3123, 'Santo Inácio', 18, 4124509); +INSERT INTO SYS_CIDADES VALUES(3124, 'São Carlos do Ivaí', 18, 4124608); +INSERT INTO SYS_CIDADES VALUES(3125, 'São Jerônimo da Serra', 18, 4124707); +INSERT INTO SYS_CIDADES VALUES(3126, 'São João', 18, 4124806); +INSERT INTO SYS_CIDADES VALUES(3127, 'São João do Caiuá', 18, 4124905); +INSERT INTO SYS_CIDADES VALUES(3128, 'São João do Ivaí', 18, 4125001); +INSERT INTO SYS_CIDADES VALUES(3129, 'São João do Triunfo', 18, 4125100); +INSERT INTO SYS_CIDADES VALUES(3130, 'São Jorge d`Oeste', 18, 4125209); +INSERT INTO SYS_CIDADES VALUES(3131, 'São Jorge do Ivaí', 18, 4125308); +INSERT INTO SYS_CIDADES VALUES(3132, 'São Jorge do Patrocínio', 18, 4125357); +INSERT INTO SYS_CIDADES VALUES(3133, 'São José da Boa Vista', 18, 4125407); +INSERT INTO SYS_CIDADES VALUES(3134, 'São José das Palmeiras', 18, 4125456); +INSERT INTO SYS_CIDADES VALUES(3135, 'São José dos Pinhais', 18, 4125506); +INSERT INTO SYS_CIDADES VALUES(3136, 'São Manoel do Paraná', 18, 4125555); +INSERT INTO SYS_CIDADES VALUES(3137, 'São Mateus do Sul', 18, 4125605); +INSERT INTO SYS_CIDADES VALUES(3138, 'São Miguel do Iguaçu', 18, 4125704); +INSERT INTO SYS_CIDADES VALUES(3139, 'São Pedro do Iguaçu', 18, 4125753); +INSERT INTO SYS_CIDADES VALUES(3140, 'São Pedro do Ivaí', 18, 4125803); +INSERT INTO SYS_CIDADES VALUES(3141, 'São Pedro do Paraná', 18, 4125902); +INSERT INTO SYS_CIDADES VALUES(3142, 'São Sebastião da Amoreira', 18, 4126009); +INSERT INTO SYS_CIDADES VALUES(3143, 'São Tomé', 18, 4126108); +INSERT INTO SYS_CIDADES VALUES(3144, 'Sapopema', 18, 4126207); +INSERT INTO SYS_CIDADES VALUES(3145, 'Sarandi', 18, 4126256); +INSERT INTO SYS_CIDADES VALUES(3146, 'Saudade do Iguaçu', 18, 4126272); +INSERT INTO SYS_CIDADES VALUES(3147, 'Sengés', 18, 4126306); +INSERT INTO SYS_CIDADES VALUES(3148, 'Serranópolis do Iguaçu', 18, 4126355); +INSERT INTO SYS_CIDADES VALUES(3149, 'Sertaneja', 18, 4126405); +INSERT INTO SYS_CIDADES VALUES(3150, 'Sertanópolis', 18, 4126504); +INSERT INTO SYS_CIDADES VALUES(3151, 'Siqueira Campos', 18, 4126603); +INSERT INTO SYS_CIDADES VALUES(3152, 'Sulina', 18, 4126652); +INSERT INTO SYS_CIDADES VALUES(3153, 'Tamarana', 18, 4126678); +INSERT INTO SYS_CIDADES VALUES(3154, 'Tamboara', 18, 4126702); +INSERT INTO SYS_CIDADES VALUES(3155, 'Tapejara', 18, 4126801); +INSERT INTO SYS_CIDADES VALUES(3156, 'Tapira', 18, 4126900); +INSERT INTO SYS_CIDADES VALUES(3157, 'Teixeira Soares', 18, 4127007); +INSERT INTO SYS_CIDADES VALUES(3158, 'Telêmaco Borba', 18, 4127106); +INSERT INTO SYS_CIDADES VALUES(3159, 'Terra Boa', 18, 4127205); +INSERT INTO SYS_CIDADES VALUES(3160, 'Terra Rica', 18, 4127304); +INSERT INTO SYS_CIDADES VALUES(3161, 'Terra Roxa', 18, 4127403); +INSERT INTO SYS_CIDADES VALUES(3162, 'Tibagi', 18, 4127502); +INSERT INTO SYS_CIDADES VALUES(3163, 'Tijucas do Sul', 18, 4127601); +INSERT INTO SYS_CIDADES VALUES(3164, 'Toledo', 18, 4127700); +INSERT INTO SYS_CIDADES VALUES(3165, 'Tomazina', 18, 4127809); +INSERT INTO SYS_CIDADES VALUES(3166, 'Três Barras do Paraná', 18, 4127858); +INSERT INTO SYS_CIDADES VALUES(3167, 'Tunas do Paraná', 18, 4127882); +INSERT INTO SYS_CIDADES VALUES(3168, 'Tuneiras do Oeste', 18, 4127908); +INSERT INTO SYS_CIDADES VALUES(3169, 'Tupãssi', 18, 4127957); +INSERT INTO SYS_CIDADES VALUES(3170, 'Turvo', 18, 4127965); +INSERT INTO SYS_CIDADES VALUES(3171, 'Ubiratã', 18, 4128005); +INSERT INTO SYS_CIDADES VALUES(3172, 'Umuarama', 18, 4128104); +INSERT INTO SYS_CIDADES VALUES(3173, 'União da Vitória', 18, 4128203); +INSERT INTO SYS_CIDADES VALUES(3174, 'Uniflor', 18, 4128302); +INSERT INTO SYS_CIDADES VALUES(3175, 'Uraí', 18, 4128401); +INSERT INTO SYS_CIDADES VALUES(3176, 'Ventania', 18, 4128534); +INSERT INTO SYS_CIDADES VALUES(3177, 'Vera Cruz do Oeste', 18, 4128559); +INSERT INTO SYS_CIDADES VALUES(3178, 'Verê', 18, 4128609); +INSERT INTO SYS_CIDADES VALUES(3179, 'Virmond', 18, 4128658); +INSERT INTO SYS_CIDADES VALUES(3180, 'Vitorino', 18, 4128708); +INSERT INTO SYS_CIDADES VALUES(3181, 'Wenceslau Braz', 18, 4128500); +INSERT INTO SYS_CIDADES VALUES(3182, 'Xambrê', 18, 4128807); +INSERT INTO SYS_CIDADES VALUES(3183, 'Abreu e Lima', 16, 2600054); +INSERT INTO SYS_CIDADES VALUES(3184, 'Afogados da Ingazeira', 16, 2600104); +INSERT INTO SYS_CIDADES VALUES(3185, 'Afrânio', 16, 2600203); +INSERT INTO SYS_CIDADES VALUES(3186, 'Agrestina', 16, 2600302); +INSERT INTO SYS_CIDADES VALUES(3187, 'Água Preta', 16, 2600401); +INSERT INTO SYS_CIDADES VALUES(3188, 'Águas Belas', 16, 2600500); +INSERT INTO SYS_CIDADES VALUES(3189, 'Alagoinha', 16, 2600609); +INSERT INTO SYS_CIDADES VALUES(3190, 'Aliança', 16, 2600708); +INSERT INTO SYS_CIDADES VALUES(3191, 'Altinho', 16, 2600807); +INSERT INTO SYS_CIDADES VALUES(3192, 'Amaraji', 16, 2600906); +INSERT INTO SYS_CIDADES VALUES(3193, 'Angelim', 16, 2601003); +INSERT INTO SYS_CIDADES VALUES(3194, 'Araçoiaba', 16, 2601052); +INSERT INTO SYS_CIDADES VALUES(3195, 'Araripina', 16, 2601102); +INSERT INTO SYS_CIDADES VALUES(3196, 'Arcoverde', 16, 2601201); +INSERT INTO SYS_CIDADES VALUES(3197, 'Barra de Guabiraba', 16, 2601300); +INSERT INTO SYS_CIDADES VALUES(3198, 'Barreiros', 16, 2601409); +INSERT INTO SYS_CIDADES VALUES(3199, 'Belém de Maria', 16, 2601508); +INSERT INTO SYS_CIDADES VALUES(3200, 'Belém de São Francisco', 16, 2601607); +INSERT INTO SYS_CIDADES VALUES(3201, 'Belo Jardim', 16, 2601706); +INSERT INTO SYS_CIDADES VALUES(3202, 'Betânia', 16, 2601805); +INSERT INTO SYS_CIDADES VALUES(3203, 'Bezerros', 16, 2601904); +INSERT INTO SYS_CIDADES VALUES(3204, 'Bodocó', 16, 2602001); +INSERT INTO SYS_CIDADES VALUES(3205, 'Bom Conselho', 16, 2602100); +INSERT INTO SYS_CIDADES VALUES(3206, 'Bom Jardim', 16, 2602209); +INSERT INTO SYS_CIDADES VALUES(3207, 'Bonito', 16, 2602308); +INSERT INTO SYS_CIDADES VALUES(3208, 'Brejão', 16, 2602407); +INSERT INTO SYS_CIDADES VALUES(3209, 'Brejinho', 16, 2602506); +INSERT INTO SYS_CIDADES VALUES(3210, 'Brejo da Madre de Deus', 16, 2602605); +INSERT INTO SYS_CIDADES VALUES(3211, 'Buenos Aires', 16, 2602704); +INSERT INTO SYS_CIDADES VALUES(3212, 'Buíque', 16, 2602803); +INSERT INTO SYS_CIDADES VALUES(3213, 'Cabo de Santo Agostinho', 16, 2602902); +INSERT INTO SYS_CIDADES VALUES(3214, 'Cabrobó', 16, 2603009); +INSERT INTO SYS_CIDADES VALUES(3215, 'Cachoeirinha', 16, 2603108); +INSERT INTO SYS_CIDADES VALUES(3216, 'Caetés', 16, 2603207); +INSERT INTO SYS_CIDADES VALUES(3217, 'Calçado', 16, 2603306); +INSERT INTO SYS_CIDADES VALUES(3218, 'Calumbi', 16, 2603405); +INSERT INTO SYS_CIDADES VALUES(3219, 'Camaragibe', 16, 2603454); +INSERT INTO SYS_CIDADES VALUES(3220, 'Camocim de São Félix', 16, 2603504); +INSERT INTO SYS_CIDADES VALUES(3221, 'Camutanga', 16, 2603603); +INSERT INTO SYS_CIDADES VALUES(3222, 'Canhotinho', 16, 2603702); +INSERT INTO SYS_CIDADES VALUES(3223, 'Capoeiras', 16, 2603801); +INSERT INTO SYS_CIDADES VALUES(3224, 'Carnaíba', 16, 2603900); +INSERT INTO SYS_CIDADES VALUES(3225, 'Carnaubeira da Penha', 16, 2603926); +INSERT INTO SYS_CIDADES VALUES(3226, 'Carpina', 16, 2604007); +INSERT INTO SYS_CIDADES VALUES(3227, 'Caruaru', 16, 2604106); +INSERT INTO SYS_CIDADES VALUES(3228, 'Casinhas', 16, 2604155); +INSERT INTO SYS_CIDADES VALUES(3229, 'Catende', 16, 2604205); +INSERT INTO SYS_CIDADES VALUES(3230, 'Cedro', 16, 2604304); +INSERT INTO SYS_CIDADES VALUES(3231, 'Chã de Alegria', 16, 2604403); +INSERT INTO SYS_CIDADES VALUES(3232, 'Chã Grande', 16, 2604502); +INSERT INTO SYS_CIDADES VALUES(3233, 'Condado', 16, 2604601); +INSERT INTO SYS_CIDADES VALUES(3234, 'Correntes', 16, 2604700); +INSERT INTO SYS_CIDADES VALUES(3235, 'Cortês', 16, 2604809); +INSERT INTO SYS_CIDADES VALUES(3236, 'Cumaru', 16, 2604908); +INSERT INTO SYS_CIDADES VALUES(3237, 'Cupira', 16, 2605004); +INSERT INTO SYS_CIDADES VALUES(3238, 'Custódia', 16, 2605103); +INSERT INTO SYS_CIDADES VALUES(3239, 'Dormentes', 16, 2605152); +INSERT INTO SYS_CIDADES VALUES(3240, 'Escada', 16, 2605202); +INSERT INTO SYS_CIDADES VALUES(3241, 'Exu', 16, 2605301); +INSERT INTO SYS_CIDADES VALUES(3242, 'Feira Nova', 16, 2605400); +INSERT INTO SYS_CIDADES VALUES(3243, 'Fernando de Noronha', 16, 2605459); +INSERT INTO SYS_CIDADES VALUES(3244, 'Ferreiros', 16, 2605509); +INSERT INTO SYS_CIDADES VALUES(3245, 'Flores', 16, 2605608); +INSERT INTO SYS_CIDADES VALUES(3246, 'Floresta', 16, 2605707); +INSERT INTO SYS_CIDADES VALUES(3247, 'Frei Miguelinho', 16, 2605806); +INSERT INTO SYS_CIDADES VALUES(3248, 'Gameleira', 16, 2605905); +INSERT INTO SYS_CIDADES VALUES(3249, 'Garanhuns', 16, 2606002); +INSERT INTO SYS_CIDADES VALUES(3250, 'Glória do Goitá', 16, 2606101); +INSERT INTO SYS_CIDADES VALUES(3251, 'Goiana', 16, 2606200); +INSERT INTO SYS_CIDADES VALUES(3252, 'Granito', 16, 2606309); +INSERT INTO SYS_CIDADES VALUES(3253, 'Gravatá', 16, 2606408); +INSERT INTO SYS_CIDADES VALUES(3254, 'Iati', 16, 2606507); +INSERT INTO SYS_CIDADES VALUES(3255, 'Ibimirim', 16, 2606606); +INSERT INTO SYS_CIDADES VALUES(3256, 'Ibirajuba', 16, 2606705); +INSERT INTO SYS_CIDADES VALUES(3257, 'Igarassu', 16, 2606804); +INSERT INTO SYS_CIDADES VALUES(3258, 'Iguaraci', 16, 2606903); +INSERT INTO SYS_CIDADES VALUES(3259, 'Ilha de Itamaracá', 16, 2607604); +INSERT INTO SYS_CIDADES VALUES(3260, 'Inajá', 16, 2607000); +INSERT INTO SYS_CIDADES VALUES(3261, 'Ingazeira', 16, 2607109); +INSERT INTO SYS_CIDADES VALUES(3262, 'Ipojuca', 16, 2607208); +INSERT INTO SYS_CIDADES VALUES(3263, 'Ipubi', 16, 2607307); +INSERT INTO SYS_CIDADES VALUES(3264, 'Itacuruba', 16, 2607406); +INSERT INTO SYS_CIDADES VALUES(3265, 'Itaíba', 16, 2607505); +INSERT INTO SYS_CIDADES VALUES(3266, 'Itambé', 16, 2607653); +INSERT INTO SYS_CIDADES VALUES(3267, 'Itapetim', 16, 2607703); +INSERT INTO SYS_CIDADES VALUES(3268, 'Itapissuma', 16, 2607752); +INSERT INTO SYS_CIDADES VALUES(3269, 'Itaquitinga', 16, 2607802); +INSERT INTO SYS_CIDADES VALUES(3270, 'Jaboatão dos Guararapes', 16, 2607901); +INSERT INTO SYS_CIDADES VALUES(3271, 'Jaqueira', 16, 2607950); +INSERT INTO SYS_CIDADES VALUES(3272, 'Jataúba', 16, 2608008); +INSERT INTO SYS_CIDADES VALUES(3273, 'Jatobá', 16, 2608057); +INSERT INTO SYS_CIDADES VALUES(3274, 'João Alfredo', 16, 2608107); +INSERT INTO SYS_CIDADES VALUES(3275, 'Joaquim Nabuco', 16, 2608206); +INSERT INTO SYS_CIDADES VALUES(3276, 'Jucati', 16, 2608255); +INSERT INTO SYS_CIDADES VALUES(3277, 'Jupi', 16, 2608305); +INSERT INTO SYS_CIDADES VALUES(3278, 'Jurema', 16, 2608404); +INSERT INTO SYS_CIDADES VALUES(3279, 'Lagoa do Carro', 16, 2608453); +INSERT INTO SYS_CIDADES VALUES(3280, 'Lagoa do Itaenga', 16, 2608503); +INSERT INTO SYS_CIDADES VALUES(3281, 'Lagoa do Ouro', 16, 2608602); +INSERT INTO SYS_CIDADES VALUES(3282, 'Lagoa dos Gatos', 16, 2608701); +INSERT INTO SYS_CIDADES VALUES(3283, 'Lagoa Grande', 16, 2608750); +INSERT INTO SYS_CIDADES VALUES(3284, 'Lajedo', 16, 2608800); +INSERT INTO SYS_CIDADES VALUES(3285, 'Limoeiro', 16, 2608909); +INSERT INTO SYS_CIDADES VALUES(3286, 'Macaparana', 16, 2609006); +INSERT INTO SYS_CIDADES VALUES(3287, 'Machados', 16, 2609105); +INSERT INTO SYS_CIDADES VALUES(3288, 'Manari', 16, 2609154); +INSERT INTO SYS_CIDADES VALUES(3289, 'Maraial', 16, 2609204); +INSERT INTO SYS_CIDADES VALUES(3290, 'Mirandiba', 16, 2609303); +INSERT INTO SYS_CIDADES VALUES(3291, 'Moreilândia', 16, 2614303); +INSERT INTO SYS_CIDADES VALUES(3292, 'Moreno', 16, 2609402); +INSERT INTO SYS_CIDADES VALUES(3293, 'Nazaré da Mata', 16, 2609501); +INSERT INTO SYS_CIDADES VALUES(3294, 'Olinda', 16, 2609600); +INSERT INTO SYS_CIDADES VALUES(3295, 'Orobó', 16, 2609709); +INSERT INTO SYS_CIDADES VALUES(3296, 'Orocó', 16, 2609808); +INSERT INTO SYS_CIDADES VALUES(3297, 'Ouricuri', 16, 2609907); +INSERT INTO SYS_CIDADES VALUES(3298, 'Palmares', 16, 2610004); +INSERT INTO SYS_CIDADES VALUES(3299, 'Palmeirina', 16, 2610103); +INSERT INTO SYS_CIDADES VALUES(3300, 'Panelas', 16, 2610202); +INSERT INTO SYS_CIDADES VALUES(3301, 'Paranatama', 16, 2610301); +INSERT INTO SYS_CIDADES VALUES(3302, 'Parnamirim', 16, 2610400); +INSERT INTO SYS_CIDADES VALUES(3303, 'Passira', 16, 2610509); +INSERT INTO SYS_CIDADES VALUES(3304, 'Paudalho', 16, 2610608); +INSERT INTO SYS_CIDADES VALUES(3305, 'Paulista', 16, 2610707); +INSERT INTO SYS_CIDADES VALUES(3306, 'Pedra', 16, 2610806); +INSERT INTO SYS_CIDADES VALUES(3307, 'Pesqueira', 16, 2610905); +INSERT INTO SYS_CIDADES VALUES(3308, 'Petrolândia', 16, 2611002); +INSERT INTO SYS_CIDADES VALUES(3309, 'Petrolina', 16, 2611101); +INSERT INTO SYS_CIDADES VALUES(3310, 'Poção', 16, 2611200); +INSERT INTO SYS_CIDADES VALUES(3311, 'Pombos', 16, 2611309); +INSERT INTO SYS_CIDADES VALUES(3312, 'Primavera', 16, 2611408); +INSERT INTO SYS_CIDADES VALUES(3313, 'Quipapá', 16, 2611507); +INSERT INTO SYS_CIDADES VALUES(3314, 'Quixaba', 16, 2611533); +INSERT INTO SYS_CIDADES VALUES(3315, 'Recife', 16, 2611606); +INSERT INTO SYS_CIDADES VALUES(3316, 'Riacho das Almas', 16, 2611705); +INSERT INTO SYS_CIDADES VALUES(3317, 'Ribeirão', 16, 2611804); +INSERT INTO SYS_CIDADES VALUES(3318, 'Rio Formoso', 16, 2611903); +INSERT INTO SYS_CIDADES VALUES(3319, 'Sairé', 16, 2612000); +INSERT INTO SYS_CIDADES VALUES(3320, 'Salgadinho', 16, 2612109); +INSERT INTO SYS_CIDADES VALUES(3321, 'Salgueiro', 16, 2612208); +INSERT INTO SYS_CIDADES VALUES(3322, 'Saloá', 16, 2612307); +INSERT INTO SYS_CIDADES VALUES(3323, 'Sanharó', 16, 2612406); +INSERT INTO SYS_CIDADES VALUES(3324, 'Santa Cruz', 16, 2612455); +INSERT INTO SYS_CIDADES VALUES(3325, 'Santa Cruz da Baixa Verde', 16, 2612471); +INSERT INTO SYS_CIDADES VALUES(3326, 'Santa Cruz do Capibaribe', 16, 2612505); +INSERT INTO SYS_CIDADES VALUES(3327, 'Santa Filomena', 16, 2612554); +INSERT INTO SYS_CIDADES VALUES(3328, 'Santa Maria da Boa Vista', 16, 2612604); +INSERT INTO SYS_CIDADES VALUES(3329, 'Santa Maria do Cambucá', 16, 2612703); +INSERT INTO SYS_CIDADES VALUES(3330, 'Santa Terezinha', 16, 2612802); +INSERT INTO SYS_CIDADES VALUES(3331, 'São Benedito do Sul', 16, 2612901); +INSERT INTO SYS_CIDADES VALUES(3332, 'São Bento do Una', 16, 2613008); +INSERT INTO SYS_CIDADES VALUES(3333, 'São Caitano', 16, 2613107); +INSERT INTO SYS_CIDADES VALUES(3334, 'São João', 16, 2613206); +INSERT INTO SYS_CIDADES VALUES(3335, 'São Joaquim do Monte', 16, 2613305); +INSERT INTO SYS_CIDADES VALUES(3336, 'São José da Coroa Grande', 16, 2613404); +INSERT INTO SYS_CIDADES VALUES(3337, 'São José do Belmonte', 16, 2613503); +INSERT INTO SYS_CIDADES VALUES(3338, 'São José do Egito', 16, 2613602); +INSERT INTO SYS_CIDADES VALUES(3339, 'São Lourenço da Mata', 16, 2613701); +INSERT INTO SYS_CIDADES VALUES(3340, 'São Vicente Ferrer', 16, 2613800); +INSERT INTO SYS_CIDADES VALUES(3341, 'Serra Talhada', 16, 2613909); +INSERT INTO SYS_CIDADES VALUES(3342, 'Serrita', 16, 2614006); +INSERT INTO SYS_CIDADES VALUES(3343, 'Sertânia', 16, 2614105); +INSERT INTO SYS_CIDADES VALUES(3344, 'Sirinhaém', 16, 2614204); +INSERT INTO SYS_CIDADES VALUES(3345, 'Solidão', 16, 2614402); +INSERT INTO SYS_CIDADES VALUES(3346, 'Surubim', 16, 2614501); +INSERT INTO SYS_CIDADES VALUES(3347, 'Tabira', 16, 2614600); +INSERT INTO SYS_CIDADES VALUES(3348, 'Tacaimbó', 16, 2614709); +INSERT INTO SYS_CIDADES VALUES(3349, 'Tacaratu', 16, 2614808); +INSERT INTO SYS_CIDADES VALUES(3350, 'Tamandaré', 16, 2614857); +INSERT INTO SYS_CIDADES VALUES(3351, 'Taquaritinga do Norte', 16, 2615003); +INSERT INTO SYS_CIDADES VALUES(3352, 'Terezinha', 16, 2615102); +INSERT INTO SYS_CIDADES VALUES(3353, 'Terra Nova', 16, 2615201); +INSERT INTO SYS_CIDADES VALUES(3354, 'Timbaúba', 16, 2615300); +INSERT INTO SYS_CIDADES VALUES(3355, 'Toritama', 16, 2615409); +INSERT INTO SYS_CIDADES VALUES(3356, 'Tracunhaém', 16, 2615508); +INSERT INTO SYS_CIDADES VALUES(3357, 'Trindade', 16, 2615607); +INSERT INTO SYS_CIDADES VALUES(3358, 'Triunfo', 16, 2615706); +INSERT INTO SYS_CIDADES VALUES(3359, 'Tupanatinga', 16, 2615805); +INSERT INTO SYS_CIDADES VALUES(3360, 'Tuparetama', 16, 2615904); +INSERT INTO SYS_CIDADES VALUES(3361, 'Venturosa', 16, 2616001); +INSERT INTO SYS_CIDADES VALUES(3362, 'Verdejante', 16, 2616100); +INSERT INTO SYS_CIDADES VALUES(3363, 'Vertente do Lério', 16, 2616183); +INSERT INTO SYS_CIDADES VALUES(3364, 'Vertentes', 16, 2616209); +INSERT INTO SYS_CIDADES VALUES(3365, 'Vicência', 16, 2616308); +INSERT INTO SYS_CIDADES VALUES(3366, 'Vitória de Santo Antão', 16, 2616407); +INSERT INTO SYS_CIDADES VALUES(3367, 'Xexéu', 16, 2616506); +INSERT INTO SYS_CIDADES VALUES(3368, 'Acauã', 17, 2200053); +INSERT INTO SYS_CIDADES VALUES(3369, 'Agricolândia', 17, 2200103); +INSERT INTO SYS_CIDADES VALUES(3370, 'Água Branca', 17, 2200202); +INSERT INTO SYS_CIDADES VALUES(3371, 'Alagoinha do Piauí', 17, 2200251); +INSERT INTO SYS_CIDADES VALUES(3372, 'Alegrete do Piauí', 17, 2200277); +INSERT INTO SYS_CIDADES VALUES(3373, 'Alto Longá', 17, 2200301); +INSERT INTO SYS_CIDADES VALUES(3374, 'Altos', 17, 2200400); +INSERT INTO SYS_CIDADES VALUES(3375, 'Alvorada do Gurguéia', 17, 2200459); +INSERT INTO SYS_CIDADES VALUES(3376, 'Amarante', 17, 2200509); +INSERT INTO SYS_CIDADES VALUES(3377, 'Angical do Piauí', 17, 2200608); +INSERT INTO SYS_CIDADES VALUES(3378, 'Anísio de Abreu', 17, 2200707); +INSERT INTO SYS_CIDADES VALUES(3379, 'Antônio Almeida', 17, 2200806); +INSERT INTO SYS_CIDADES VALUES(3380, 'Aroazes', 17, 2200905); +INSERT INTO SYS_CIDADES VALUES(3381, 'Aroeiras do Itaim', 17, 2200954); +INSERT INTO SYS_CIDADES VALUES(3382, 'Arraial', 17, 2201002); +INSERT INTO SYS_CIDADES VALUES(3383, 'Assunção do Piauí', 17, 2201051); +INSERT INTO SYS_CIDADES VALUES(3384, 'Avelino Lopes', 17, 2201101); +INSERT INTO SYS_CIDADES VALUES(3385, 'Baixa Grande do Ribeiro', 17, 2201150); +INSERT INTO SYS_CIDADES VALUES(3386, 'Barra d`Alcântara', 17, 2201176); +INSERT INTO SYS_CIDADES VALUES(3387, 'Barras', 17, 2201200); +INSERT INTO SYS_CIDADES VALUES(3388, 'Barreiras do Piauí', 17, 2201309); +INSERT INTO SYS_CIDADES VALUES(3389, 'Barro Duro', 17, 2201408); +INSERT INTO SYS_CIDADES VALUES(3390, 'Batalha', 17, 2201507); +INSERT INTO SYS_CIDADES VALUES(3391, 'Bela Vista do Piauí', 17, 2201556); +INSERT INTO SYS_CIDADES VALUES(3392, 'Belém do Piauí', 17, 2201572); +INSERT INTO SYS_CIDADES VALUES(3393, 'Beneditinos', 17, 2201606); +INSERT INTO SYS_CIDADES VALUES(3394, 'Bertolínia', 17, 2201705); +INSERT INTO SYS_CIDADES VALUES(3395, 'Betânia do Piauí', 17, 2201739); +INSERT INTO SYS_CIDADES VALUES(3396, 'Boa Hora', 17, 2201770); +INSERT INTO SYS_CIDADES VALUES(3397, 'Bocaina', 17, 2201804); +INSERT INTO SYS_CIDADES VALUES(3398, 'Bom Jesus', 17, 2201903); +INSERT INTO SYS_CIDADES VALUES(3399, 'Bom Princípio do Piauí', 17, 2201919); +INSERT INTO SYS_CIDADES VALUES(3400, 'Bonfim do Piauí', 17, 2201929); +INSERT INTO SYS_CIDADES VALUES(3401, 'Boqueirão do Piauí', 17, 2201945); +INSERT INTO SYS_CIDADES VALUES(3402, 'Brasileira', 17, 2201960); +INSERT INTO SYS_CIDADES VALUES(3403, 'Brejo do Piauí', 17, 2201988); +INSERT INTO SYS_CIDADES VALUES(3404, 'Buriti dos Lopes', 17, 2202000); +INSERT INTO SYS_CIDADES VALUES(3405, 'Buriti dos Montes', 17, 2202026); +INSERT INTO SYS_CIDADES VALUES(3406, 'Cabeceiras do Piauí', 17, 2202059); +INSERT INTO SYS_CIDADES VALUES(3407, 'Cajazeiras do Piauí', 17, 2202075); +INSERT INTO SYS_CIDADES VALUES(3408, 'Cajueiro da Praia', 17, 2202083); +INSERT INTO SYS_CIDADES VALUES(3409, 'Caldeirão Grande do Piauí', 17, 2202091); +INSERT INTO SYS_CIDADES VALUES(3410, 'Campinas do Piauí', 17, 2202109); +INSERT INTO SYS_CIDADES VALUES(3411, 'Campo Alegre do Fidalgo', 17, 2202117); +INSERT INTO SYS_CIDADES VALUES(3412, 'Campo Grande do Piauí', 17, 2202133); +INSERT INTO SYS_CIDADES VALUES(3413, 'Campo Largo do Piauí', 17, 2202174); +INSERT INTO SYS_CIDADES VALUES(3414, 'Campo Maior', 17, 2202208); +INSERT INTO SYS_CIDADES VALUES(3415, 'Canavieira', 17, 2202251); +INSERT INTO SYS_CIDADES VALUES(3416, 'Canto do Buriti', 17, 2202307); +INSERT INTO SYS_CIDADES VALUES(3417, 'Capitão de Campos', 17, 2202406); +INSERT INTO SYS_CIDADES VALUES(3418, 'Capitão Gervásio Oliveira', 17, 2202455); +INSERT INTO SYS_CIDADES VALUES(3419, 'Caracol', 17, 2202505); +INSERT INTO SYS_CIDADES VALUES(3420, 'Caraúbas do Piauí', 17, 2202539); +INSERT INTO SYS_CIDADES VALUES(3421, 'Caridade do Piauí', 17, 2202554); +INSERT INTO SYS_CIDADES VALUES(3422, 'Castelo do Piauí', 17, 2202604); +INSERT INTO SYS_CIDADES VALUES(3423, 'Caxingó', 17, 2202653); +INSERT INTO SYS_CIDADES VALUES(3424, 'Cocal', 17, 2202703); +INSERT INTO SYS_CIDADES VALUES(3425, 'Cocal de Telha', 17, 2202711); +INSERT INTO SYS_CIDADES VALUES(3426, 'Cocal dos Alves', 17, 2202729); +INSERT INTO SYS_CIDADES VALUES(3427, 'Coivaras', 17, 2202737); +INSERT INTO SYS_CIDADES VALUES(3428, 'Colônia do Gurguéia', 17, 2202752); +INSERT INTO SYS_CIDADES VALUES(3429, 'Colônia do Piauí', 17, 2202778); +INSERT INTO SYS_CIDADES VALUES(3430, 'Conceição do Canindé', 17, 2202802); +INSERT INTO SYS_CIDADES VALUES(3431, 'Coronel José Dias', 17, 2202851); +INSERT INTO SYS_CIDADES VALUES(3432, 'Corrente', 17, 2202901); +INSERT INTO SYS_CIDADES VALUES(3433, 'Cristalândia do Piauí', 17, 2203008); +INSERT INTO SYS_CIDADES VALUES(3434, 'Cristino Castro', 17, 2203107); +INSERT INTO SYS_CIDADES VALUES(3435, 'Curimatá', 17, 2203206); +INSERT INTO SYS_CIDADES VALUES(3436, 'Currais', 17, 2203230); +INSERT INTO SYS_CIDADES VALUES(3437, 'Curral Novo do Piauí', 17, 2203271); +INSERT INTO SYS_CIDADES VALUES(3438, 'Curralinhos', 17, 2203255); +INSERT INTO SYS_CIDADES VALUES(3439, 'Demerval Lobão', 17, 2203305); +INSERT INTO SYS_CIDADES VALUES(3440, 'Dirceu Arcoverde', 17, 2203354); +INSERT INTO SYS_CIDADES VALUES(3441, 'Dom Expedito Lopes', 17, 2203404); +INSERT INTO SYS_CIDADES VALUES(3442, 'Dom Inocêncio', 17, 2203453); +INSERT INTO SYS_CIDADES VALUES(3443, 'Domingos Mourão', 17, 2203420); +INSERT INTO SYS_CIDADES VALUES(3444, 'Elesbão Veloso', 17, 2203503); +INSERT INTO SYS_CIDADES VALUES(3445, 'Eliseu Martins', 17, 2203602); +INSERT INTO SYS_CIDADES VALUES(3446, 'Esperantina', 17, 2203701); +INSERT INTO SYS_CIDADES VALUES(3447, 'Fartura do Piauí', 17, 2203750); +INSERT INTO SYS_CIDADES VALUES(3448, 'Flores do Piauí', 17, 2203800); +INSERT INTO SYS_CIDADES VALUES(3449, 'Floresta do Piauí', 17, 2203859); +INSERT INTO SYS_CIDADES VALUES(3450, 'Floriano', 17, 2203909); +INSERT INTO SYS_CIDADES VALUES(3451, 'Francinópolis', 17, 2204006); +INSERT INTO SYS_CIDADES VALUES(3452, 'Francisco Ayres', 17, 2204105); +INSERT INTO SYS_CIDADES VALUES(3453, 'Francisco Macedo', 17, 2204154); +INSERT INTO SYS_CIDADES VALUES(3454, 'Francisco Santos', 17, 2204204); +INSERT INTO SYS_CIDADES VALUES(3455, 'Fronteiras', 17, 2204303); +INSERT INTO SYS_CIDADES VALUES(3456, 'Geminiano', 17, 2204352); +INSERT INTO SYS_CIDADES VALUES(3457, 'Gilbués', 17, 2204402); +INSERT INTO SYS_CIDADES VALUES(3458, 'Guadalupe', 17, 2204501); +INSERT INTO SYS_CIDADES VALUES(3459, 'Guaribas', 17, 2204550); +INSERT INTO SYS_CIDADES VALUES(3460, 'Hugo Napoleão', 17, 2204600); +INSERT INTO SYS_CIDADES VALUES(3461, 'Ilha Grande', 17, 2204659); +INSERT INTO SYS_CIDADES VALUES(3462, 'Inhuma', 17, 2204709); +INSERT INTO SYS_CIDADES VALUES(3463, 'Ipiranga do Piauí', 17, 2204808); +INSERT INTO SYS_CIDADES VALUES(3464, 'Isaías Coelho', 17, 2204907); +INSERT INTO SYS_CIDADES VALUES(3465, 'Itainópolis', 17, 2205003); +INSERT INTO SYS_CIDADES VALUES(3466, 'Itaueira', 17, 2205102); +INSERT INTO SYS_CIDADES VALUES(3467, 'Jacobina do Piauí', 17, 2205151); +INSERT INTO SYS_CIDADES VALUES(3468, 'Jaicós', 17, 2205201); +INSERT INTO SYS_CIDADES VALUES(3469, 'Jardim do Mulato', 17, 2205250); +INSERT INTO SYS_CIDADES VALUES(3470, 'Jatobá do Piauí', 17, 2205276); +INSERT INTO SYS_CIDADES VALUES(3471, 'Jerumenha', 17, 2205300); +INSERT INTO SYS_CIDADES VALUES(3472, 'João Costa', 17, 2205359); +INSERT INTO SYS_CIDADES VALUES(3473, 'Joaquim Pires', 17, 2205409); +INSERT INTO SYS_CIDADES VALUES(3474, 'Joca Marques', 17, 2205458); +INSERT INTO SYS_CIDADES VALUES(3475, 'José de Freitas', 17, 2205508); +INSERT INTO SYS_CIDADES VALUES(3476, 'Juazeiro do Piauí', 17, 2205516); +INSERT INTO SYS_CIDADES VALUES(3477, 'Júlio Borges', 17, 2205524); +INSERT INTO SYS_CIDADES VALUES(3478, 'Jurema', 17, 2205532); +INSERT INTO SYS_CIDADES VALUES(3479, 'Lagoa Alegre', 17, 2205557); +INSERT INTO SYS_CIDADES VALUES(3480, 'Lagoa de São Francisco', 17, 2205573); +INSERT INTO SYS_CIDADES VALUES(3481, 'Lagoa do Barro do Piauí', 17, 2205565); +INSERT INTO SYS_CIDADES VALUES(3482, 'Lagoa do Piauí', 17, 2205581); +INSERT INTO SYS_CIDADES VALUES(3483, 'Lagoa do Sítio', 17, 2205599); +INSERT INTO SYS_CIDADES VALUES(3484, 'Lagoinha do Piauí', 17, 2205540); +INSERT INTO SYS_CIDADES VALUES(3485, 'Landri Sales', 17, 2205607); +INSERT INTO SYS_CIDADES VALUES(3486, 'Luís Correia', 17, 2205706); +INSERT INTO SYS_CIDADES VALUES(3487, 'Luzilândia', 17, 2205805); +INSERT INTO SYS_CIDADES VALUES(3488, 'Madeiro', 17, 2205854); +INSERT INTO SYS_CIDADES VALUES(3489, 'Manoel Emídio', 17, 2205904); +INSERT INTO SYS_CIDADES VALUES(3490, 'Marcolândia', 17, 2205953); +INSERT INTO SYS_CIDADES VALUES(3491, 'Marcos Parente', 17, 2206001); +INSERT INTO SYS_CIDADES VALUES(3492, 'Massapê do Piauí', 17, 2206050); +INSERT INTO SYS_CIDADES VALUES(3493, 'Matias Olímpio', 17, 2206100); +INSERT INTO SYS_CIDADES VALUES(3494, 'Miguel Alves', 17, 2206209); +INSERT INTO SYS_CIDADES VALUES(3495, 'Miguel Leão', 17, 2206308); +INSERT INTO SYS_CIDADES VALUES(3496, 'Milton Brandão', 17, 2206357); +INSERT INTO SYS_CIDADES VALUES(3497, 'Monsenhor Gil', 17, 2206407); +INSERT INTO SYS_CIDADES VALUES(3498, 'Monsenhor Hipólito', 17, 2206506); +INSERT INTO SYS_CIDADES VALUES(3499, 'Monte Alegre do Piauí', 17, 2206605); +INSERT INTO SYS_CIDADES VALUES(3500, 'Morro Cabeça no Tempo', 17, 2206654); +INSERT INTO SYS_CIDADES VALUES(3501, 'Morro do Chapéu do Piauí', 17, 2206670); +INSERT INTO SYS_CIDADES VALUES(3502, 'Murici dos Portelas', 17, 2206696); +INSERT INTO SYS_CIDADES VALUES(3503, 'Nazaré do Piauí', 17, 2206704); +INSERT INTO SYS_CIDADES VALUES(3504, 'Nossa Senhora de Nazaré', 17, 2206753); +INSERT INTO SYS_CIDADES VALUES(3505, 'Nossa Senhora dos Remédios', 17, 2206803); +INSERT INTO SYS_CIDADES VALUES(3506, 'Nova Santa Rita', 17, 2207959); +INSERT INTO SYS_CIDADES VALUES(3507, 'Novo Oriente do Piauí', 17, 2206902); +INSERT INTO SYS_CIDADES VALUES(3508, 'Novo Santo Antônio', 17, 2206951); +INSERT INTO SYS_CIDADES VALUES(3509, 'Oeiras', 17, 2207009); +INSERT INTO SYS_CIDADES VALUES(3510, 'Olho d`Água do Piauí', 17, 2207108); +INSERT INTO SYS_CIDADES VALUES(3511, 'Padre Marcos', 17, 2207207); +INSERT INTO SYS_CIDADES VALUES(3512, 'Paes Landim', 17, 2207306); +INSERT INTO SYS_CIDADES VALUES(3513, 'Pajeú do Piauí', 17, 2207355); +INSERT INTO SYS_CIDADES VALUES(3514, 'Palmeira do Piauí', 17, 2207405); +INSERT INTO SYS_CIDADES VALUES(3515, 'Palmeirais', 17, 2207504); +INSERT INTO SYS_CIDADES VALUES(3516, 'Paquetá', 17, 2207553); +INSERT INTO SYS_CIDADES VALUES(3517, 'Parnaguá', 17, 2207603); +INSERT INTO SYS_CIDADES VALUES(3518, 'Parnaíba', 17, 2207702); +INSERT INTO SYS_CIDADES VALUES(3519, 'Passagem Franca do Piauí', 17, 2207751); +INSERT INTO SYS_CIDADES VALUES(3520, 'Patos do Piauí', 17, 2207777); +INSERT INTO SYS_CIDADES VALUES(3521, 'Pau d`Arco do Piauí', 17, 2207793); +INSERT INTO SYS_CIDADES VALUES(3522, 'Paulistana', 17, 2207801); +INSERT INTO SYS_CIDADES VALUES(3523, 'Pavussu', 17, 2207850); +INSERT INTO SYS_CIDADES VALUES(3524, 'Pedro II', 17, 2207900); +INSERT INTO SYS_CIDADES VALUES(3525, 'Pedro Laurentino', 17, 2207934); +INSERT INTO SYS_CIDADES VALUES(3526, 'Picos', 17, 2208007); +INSERT INTO SYS_CIDADES VALUES(3527, 'Pimenteiras', 17, 2208106); +INSERT INTO SYS_CIDADES VALUES(3528, 'Pio IX', 17, 2208205); +INSERT INTO SYS_CIDADES VALUES(3529, 'Piracuruca', 17, 2208304); +INSERT INTO SYS_CIDADES VALUES(3530, 'Piripiri', 17, 2208403); +INSERT INTO SYS_CIDADES VALUES(3531, 'Porto', 17, 2208502); +INSERT INTO SYS_CIDADES VALUES(3532, 'Porto Alegre do Piauí', 17, 2208551); +INSERT INTO SYS_CIDADES VALUES(3533, 'Prata do Piauí', 17, 2208601); +INSERT INTO SYS_CIDADES VALUES(3534, 'Queimada Nova', 17, 2208650); +INSERT INTO SYS_CIDADES VALUES(3535, 'Redenção do Gurguéia', 17, 2208700); +INSERT INTO SYS_CIDADES VALUES(3536, 'Regeneração', 17, 2208809); +INSERT INTO SYS_CIDADES VALUES(3537, 'Riacho Frio', 17, 2208858); +INSERT INTO SYS_CIDADES VALUES(3538, 'Ribeira do Piauí', 17, 2208874); +INSERT INTO SYS_CIDADES VALUES(3539, 'Ribeiro Gonçalves', 17, 2208908); +INSERT INTO SYS_CIDADES VALUES(3540, 'Rio Grande do Piauí', 17, 2209005); +INSERT INTO SYS_CIDADES VALUES(3541, 'Santa Cruz do Piauí', 17, 2209104); +INSERT INTO SYS_CIDADES VALUES(3542, 'Santa Cruz dos Milagres', 17, 2209153); +INSERT INTO SYS_CIDADES VALUES(3543, 'Santa Filomena', 17, 2209203); +INSERT INTO SYS_CIDADES VALUES(3544, 'Santa Luz', 17, 2209302); +INSERT INTO SYS_CIDADES VALUES(3545, 'Santa Rosa do Piauí', 17, 2209377); +INSERT INTO SYS_CIDADES VALUES(3546, 'Santana do Piauí', 17, 2209351); +INSERT INTO SYS_CIDADES VALUES(3547, 'Santo Antônio de Lisboa', 17, 2209401); +INSERT INTO SYS_CIDADES VALUES(3548, 'Santo Antônio dos Milagres', 17, 2209450); +INSERT INTO SYS_CIDADES VALUES(3549, 'Santo Inácio do Piauí', 17, 2209500); +INSERT INTO SYS_CIDADES VALUES(3550, 'São Braz do Piauí', 17, 2209559); +INSERT INTO SYS_CIDADES VALUES(3551, 'São Félix do Piauí', 17, 2209609); +INSERT INTO SYS_CIDADES VALUES(3552, 'São Francisco de Assis do Piauí', 17, 2209658); +INSERT INTO SYS_CIDADES VALUES(3553, 'São Francisco do Piauí', 17, 2209708); +INSERT INTO SYS_CIDADES VALUES(3554, 'São Gonçalo do Gurguéia', 17, 2209757); +INSERT INTO SYS_CIDADES VALUES(3555, 'São Gonçalo do Piauí', 17, 2209807); +INSERT INTO SYS_CIDADES VALUES(3556, 'São João da Canabrava', 17, 2209856); +INSERT INTO SYS_CIDADES VALUES(3557, 'São João da Fronteira', 17, 2209872); +INSERT INTO SYS_CIDADES VALUES(3558, 'São João da Serra', 17, 2209906); +INSERT INTO SYS_CIDADES VALUES(3559, 'São João da Varjota', 17, 2209955); +INSERT INTO SYS_CIDADES VALUES(3560, 'São João do Arraial', 17, 2209971); +INSERT INTO SYS_CIDADES VALUES(3561, 'São João do Piauí', 17, 2210003); +INSERT INTO SYS_CIDADES VALUES(3562, 'São José do Divino', 17, 2210052); +INSERT INTO SYS_CIDADES VALUES(3563, 'São José do Peixe', 17, 2210102); +INSERT INTO SYS_CIDADES VALUES(3564, 'São José do Piauí', 17, 2210201); +INSERT INTO SYS_CIDADES VALUES(3565, 'São Julião', 17, 2210300); +INSERT INTO SYS_CIDADES VALUES(3566, 'São Lourenço do Piauí', 17, 2210359); +INSERT INTO SYS_CIDADES VALUES(3567, 'São Luis do Piauí', 17, 2210375); +INSERT INTO SYS_CIDADES VALUES(3568, 'São Miguel da Baixa Grande', 17, 2210383); +INSERT INTO SYS_CIDADES VALUES(3569, 'São Miguel do Fidalgo', 17, 2210391); +INSERT INTO SYS_CIDADES VALUES(3570, 'São Miguel do Tapuio', 17, 2210409); +INSERT INTO SYS_CIDADES VALUES(3571, 'São Pedro do Piauí', 17, 2210508); +INSERT INTO SYS_CIDADES VALUES(3572, 'São Raimundo Nonato', 17, 2210607); +INSERT INTO SYS_CIDADES VALUES(3573, 'Sebastião Barros', 17, 2210623); +INSERT INTO SYS_CIDADES VALUES(3574, 'Sebastião Leal', 17, 2210631); +INSERT INTO SYS_CIDADES VALUES(3575, 'Sigefredo Pacheco', 17, 2210656); +INSERT INTO SYS_CIDADES VALUES(3576, 'Simões', 17, 2210706); +INSERT INTO SYS_CIDADES VALUES(3577, 'Simplício Mendes', 17, 2210805); +INSERT INTO SYS_CIDADES VALUES(3578, 'Socorro do Piauí', 17, 2210904); +INSERT INTO SYS_CIDADES VALUES(3579, 'Sussuapara', 17, 2210938); +INSERT INTO SYS_CIDADES VALUES(3580, 'Tamboril do Piauí', 17, 2210953); +INSERT INTO SYS_CIDADES VALUES(3581, 'Tanque do Piauí', 17, 2210979); +INSERT INTO SYS_CIDADES VALUES(3582, 'Teresina', 17, 2211001); +INSERT INTO SYS_CIDADES VALUES(3583, 'União', 17, 2211100); +INSERT INTO SYS_CIDADES VALUES(3584, 'Uruçuí', 17, 2211209); +INSERT INTO SYS_CIDADES VALUES(3585, 'Valença do Piauí', 17, 2211308); +INSERT INTO SYS_CIDADES VALUES(3586, 'Várzea Branca', 17, 2211357); +INSERT INTO SYS_CIDADES VALUES(3587, 'Várzea Grande', 17, 2211407); +INSERT INTO SYS_CIDADES VALUES(3588, 'Vera Mendes', 17, 2211506); +INSERT INTO SYS_CIDADES VALUES(3589, 'Vila Nova do Piauí', 17, 2211605); +INSERT INTO SYS_CIDADES VALUES(3590, 'Wall Ferraz', 17, 2211704); +INSERT INTO SYS_CIDADES VALUES(3591, 'Angra dos Reis', 19, 3300100); +INSERT INTO SYS_CIDADES VALUES(3592, 'Aperibé', 19, 3300159); +INSERT INTO SYS_CIDADES VALUES(3593, 'Araruama', 19, 3300209); +INSERT INTO SYS_CIDADES VALUES(3594, 'Areal', 19, 3300225); +INSERT INTO SYS_CIDADES VALUES(3595, 'Armação dos Búzios', 19, 3300233); +INSERT INTO SYS_CIDADES VALUES(3596, 'Arraial do Cabo', 19, 3300258); +INSERT INTO SYS_CIDADES VALUES(3597, 'Barra do Piraí', 19, 3300308); +INSERT INTO SYS_CIDADES VALUES(3598, 'Barra Mansa', 19, 3300407); +INSERT INTO SYS_CIDADES VALUES(3599, 'Belford Roxo', 19, 3300456); +INSERT INTO SYS_CIDADES VALUES(3600, 'Bom Jardim', 19, 3300506); +INSERT INTO SYS_CIDADES VALUES(3601, 'Bom Jesus do Itabapoana', 19, 3300605); +INSERT INTO SYS_CIDADES VALUES(3602, 'Cabo Frio', 19, 3300704); +INSERT INTO SYS_CIDADES VALUES(3603, 'Cachoeiras de Macacu', 19, 3300803); +INSERT INTO SYS_CIDADES VALUES(3604, 'Cambuci', 19, 3300902); +INSERT INTO SYS_CIDADES VALUES(3605, 'Campos dos Goytacazes', 19, 3301009); +INSERT INTO SYS_CIDADES VALUES(3606, 'Cantagalo', 19, 3301108); +INSERT INTO SYS_CIDADES VALUES(3607, 'Carapebus', 19, 3300936); +INSERT INTO SYS_CIDADES VALUES(3608, 'Cardoso Moreira', 19, 3301157); +INSERT INTO SYS_CIDADES VALUES(3609, 'Carmo', 19, 3301207); +INSERT INTO SYS_CIDADES VALUES(3610, 'Casimiro de Abreu', 19, 3301306); +INSERT INTO SYS_CIDADES VALUES(3611, 'Comendador Levy Gasparian', 19, 3300951); +INSERT INTO SYS_CIDADES VALUES(3612, 'Conceição de Macabu', 19, 3301405); +INSERT INTO SYS_CIDADES VALUES(3613, 'Cordeiro', 19, 3301504); +INSERT INTO SYS_CIDADES VALUES(3614, 'Duas Barras', 19, 3301603); +INSERT INTO SYS_CIDADES VALUES(3615, 'Duque de Caxias', 19, 3301702); +INSERT INTO SYS_CIDADES VALUES(3616, 'Engenheiro Paulo de Frontin', 19, 3301801); +INSERT INTO SYS_CIDADES VALUES(3617, 'Guapimirim', 19, 3301850); +INSERT INTO SYS_CIDADES VALUES(3618, 'Iguaba Grande', 19, 3301876); +INSERT INTO SYS_CIDADES VALUES(3619, 'Itaboraí', 19, 3301900); +INSERT INTO SYS_CIDADES VALUES(3620, 'Itaguaí', 19, 3302007); +INSERT INTO SYS_CIDADES VALUES(3621, 'Italva', 19, 3302056); +INSERT INTO SYS_CIDADES VALUES(3622, 'Itaocara', 19, 3302106); +INSERT INTO SYS_CIDADES VALUES(3623, 'Itaperuna', 19, 3302205); +INSERT INTO SYS_CIDADES VALUES(3624, 'Itatiaia', 19, 3302254); +INSERT INTO SYS_CIDADES VALUES(3625, 'Japeri', 19, 3302270); +INSERT INTO SYS_CIDADES VALUES(3626, 'Laje do Muriaé', 19, 3302304); +INSERT INTO SYS_CIDADES VALUES(3627, 'Macaé', 19, 3302403); +INSERT INTO SYS_CIDADES VALUES(3628, 'Macuco', 19, 3302452); +INSERT INTO SYS_CIDADES VALUES(3629, 'Magé', 19, 3302502); +INSERT INTO SYS_CIDADES VALUES(3630, 'Mangaratiba', 19, 3302601); +INSERT INTO SYS_CIDADES VALUES(3631, 'Maricá', 19, 3302700); +INSERT INTO SYS_CIDADES VALUES(3632, 'Mendes', 19, 3302809); +INSERT INTO SYS_CIDADES VALUES(3633, 'Mesquita', 19, 3302858); +INSERT INTO SYS_CIDADES VALUES(3634, 'Miguel Pereira', 19, 3302908); +INSERT INTO SYS_CIDADES VALUES(3635, 'Miracema', 19, 3303005); +INSERT INTO SYS_CIDADES VALUES(3636, 'Natividade', 19, 3303104); +INSERT INTO SYS_CIDADES VALUES(3637, 'Nilópolis', 19, 3303203); +INSERT INTO SYS_CIDADES VALUES(3638, 'Niterói', 19, 3303302); +INSERT INTO SYS_CIDADES VALUES(3639, 'Nova Friburgo', 19, 3303401); +INSERT INTO SYS_CIDADES VALUES(3640, 'Nova Iguaçu', 19, 3303500); +INSERT INTO SYS_CIDADES VALUES(3641, 'Paracambi', 19, 3303609); +INSERT INTO SYS_CIDADES VALUES(3642, 'Paraíba do Sul', 19, 3303708); +INSERT INTO SYS_CIDADES VALUES(3643, 'Parati', 19, 3303807); +INSERT INTO SYS_CIDADES VALUES(3644, 'Paty do Alferes', 19, 3303856); +INSERT INTO SYS_CIDADES VALUES(3645, 'Petrópolis', 19, 3303906); +INSERT INTO SYS_CIDADES VALUES(3646, 'Pinheiral', 19, 3303955); +INSERT INTO SYS_CIDADES VALUES(3647, 'Piraí', 19, 3304003); +INSERT INTO SYS_CIDADES VALUES(3648, 'Porciúncula', 19, 3304102); +INSERT INTO SYS_CIDADES VALUES(3649, 'Porto Real', 19, 3304110); +INSERT INTO SYS_CIDADES VALUES(3650, 'Quatis', 19, 3304128); +INSERT INTO SYS_CIDADES VALUES(3651, 'Queimados', 19, 3304144); +INSERT INTO SYS_CIDADES VALUES(3652, 'Quissamã', 19, 3304151); +INSERT INTO SYS_CIDADES VALUES(3653, 'Resende', 19, 3304201); +INSERT INTO SYS_CIDADES VALUES(3654, 'Rio Bonito', 19, 3304300); +INSERT INTO SYS_CIDADES VALUES(3655, 'Rio Claro', 19, 3304409); +INSERT INTO SYS_CIDADES VALUES(3656, 'Rio das Flores', 19, 3304508); +INSERT INTO SYS_CIDADES VALUES(3657, 'Rio das Ostras', 19, 3304524); +INSERT INTO SYS_CIDADES VALUES(3658, 'Rio de Janeiro', 19, 3304557); +INSERT INTO SYS_CIDADES VALUES(3659, 'Santa Maria Madalena', 19, 3304607); +INSERT INTO SYS_CIDADES VALUES(3660, 'Santo Antônio de Pádua', 19, 3304706); +INSERT INTO SYS_CIDADES VALUES(3661, 'São Fidélis', 19, 3304805); +INSERT INTO SYS_CIDADES VALUES(3662, 'São Francisco de Itabapoana', 19, 3304755); +INSERT INTO SYS_CIDADES VALUES(3663, 'São Gonçalo', 19, 3304904); +INSERT INTO SYS_CIDADES VALUES(3664, 'São João da Barra', 19, 3305000); +INSERT INTO SYS_CIDADES VALUES(3665, 'São João de Meriti', 19, 3305109); +INSERT INTO SYS_CIDADES VALUES(3666, 'São José de Ubá', 19, 3305133); +INSERT INTO SYS_CIDADES VALUES(3667, 'São José do Vale do Rio Preto', 19, 3305158); +INSERT INTO SYS_CIDADES VALUES(3668, 'São Pedro da Aldeia', 19, 3305208); +INSERT INTO SYS_CIDADES VALUES(3669, 'São Sebastião do Alto', 19, 3305307); +INSERT INTO SYS_CIDADES VALUES(3670, 'Sapucaia', 19, 3305406); +INSERT INTO SYS_CIDADES VALUES(3671, 'Saquarema', 19, 3305505); +INSERT INTO SYS_CIDADES VALUES(3672, 'Seropédica', 19, 3305554); +INSERT INTO SYS_CIDADES VALUES(3673, 'Silva Jardim', 19, 3305604); +INSERT INTO SYS_CIDADES VALUES(3674, 'Sumidouro', 19, 3305703); +INSERT INTO SYS_CIDADES VALUES(3675, 'Tanguá', 19, 3305752); +INSERT INTO SYS_CIDADES VALUES(3676, 'Teresópolis', 19, 3305802); +INSERT INTO SYS_CIDADES VALUES(3677, 'Trajano de Morais', 19, 3305901); +INSERT INTO SYS_CIDADES VALUES(3678, 'Três Rios', 19, 3306008); +INSERT INTO SYS_CIDADES VALUES(3679, 'Valença', 19, 3306107); +INSERT INTO SYS_CIDADES VALUES(3680, 'Varre-Sai', 19, 3306156); +INSERT INTO SYS_CIDADES VALUES(3681, 'Vassouras', 19, 3306206); +INSERT INTO SYS_CIDADES VALUES(3682, 'Volta Redonda', 19, 3306305); +INSERT INTO SYS_CIDADES VALUES(3683, 'Acari', 20, 2400109); +INSERT INTO SYS_CIDADES VALUES(3684, 'Açu', 20, 2400208); +INSERT INTO SYS_CIDADES VALUES(3685, 'Afonso Bezerra', 20, 2400307); +INSERT INTO SYS_CIDADES VALUES(3686, 'Água Nova', 20, 2400406); +INSERT INTO SYS_CIDADES VALUES(3687, 'Alexandria', 20, 2400505); +INSERT INTO SYS_CIDADES VALUES(3688, 'Almino Afonso', 20, 2400604); +INSERT INTO SYS_CIDADES VALUES(3689, 'Alto do Rodrigues', 20, 2400703); +INSERT INTO SYS_CIDADES VALUES(3690, 'Jardim de Angicos', 20, 2405504); +INSERT INTO SYS_CIDADES VALUES(3691, 'Antônio Martins', 20, 2400901); +INSERT INTO SYS_CIDADES VALUES(3692, 'Apodi', 20, 2401008); +INSERT INTO SYS_CIDADES VALUES(3693, 'Areia Branca', 20, 2401107); +INSERT INTO SYS_CIDADES VALUES(3694, 'Arês', 20, 2401206); +INSERT INTO SYS_CIDADES VALUES(3695, 'Augusto Severo', 20, 2401305); +INSERT INTO SYS_CIDADES VALUES(3696, 'Baía Formosa', 20, 2401404); +INSERT INTO SYS_CIDADES VALUES(3697, 'Baraúna', 20, 2401453); +INSERT INTO SYS_CIDADES VALUES(3698, 'Barcelona', 20, 2401503); +INSERT INTO SYS_CIDADES VALUES(3699, 'Bento Fernandes', 20, 2401602); +INSERT INTO SYS_CIDADES VALUES(3700, 'Bodó', 20, 2401651); +INSERT INTO SYS_CIDADES VALUES(3701, 'Bom Jesus', 20, 2401701); +INSERT INTO SYS_CIDADES VALUES(3702, 'Brejinho', 20, 2401800); +INSERT INTO SYS_CIDADES VALUES(3703, 'Caiçara do Norte', 20, 2401859); +INSERT INTO SYS_CIDADES VALUES(3704, 'Caiçara do Rio do Vento', 20, 2401909); +INSERT INTO SYS_CIDADES VALUES(3705, 'Caicó', 20, 2402006); +INSERT INTO SYS_CIDADES VALUES(3706, 'Campo Redondo', 20, 2402105); +INSERT INTO SYS_CIDADES VALUES(3707, 'Canguaretama', 20, 2402204); +INSERT INTO SYS_CIDADES VALUES(3708, 'Caraúbas', 20, 2402303); +INSERT INTO SYS_CIDADES VALUES(3709, 'Carnaúba dos Dantas', 20, 2402402); +INSERT INTO SYS_CIDADES VALUES(3710, 'Carnaubais', 20, 2402501); +INSERT INTO SYS_CIDADES VALUES(3711, 'Ceará-Mirim', 20, 2402600); +INSERT INTO SYS_CIDADES VALUES(3712, 'Cerro Corá', 20, 2402709); +INSERT INTO SYS_CIDADES VALUES(3713, 'Coronel Ezequiel', 20, 2402808); +INSERT INTO SYS_CIDADES VALUES(3714, 'Coronel João Pessoa', 20, 2402907); +INSERT INTO SYS_CIDADES VALUES(3715, 'Cruzeta', 20, 2403004); +INSERT INTO SYS_CIDADES VALUES(3716, 'Currais Novos', 20, 2403103); +INSERT INTO SYS_CIDADES VALUES(3717, 'Doutor Severiano', 20, 2403202); +INSERT INTO SYS_CIDADES VALUES(3718, 'Encanto', 20, 2403301); +INSERT INTO SYS_CIDADES VALUES(3719, 'Equador', 20, 2403400); +INSERT INTO SYS_CIDADES VALUES(3720, 'Espírito Santo', 20, 2403509); +INSERT INTO SYS_CIDADES VALUES(3721, 'Extremoz', 20, 2403608); +INSERT INTO SYS_CIDADES VALUES(3722, 'Felipe Guerra', 20, 2403707); +INSERT INTO SYS_CIDADES VALUES(3723, 'Fernando Pedroza', 20, 2403756); +INSERT INTO SYS_CIDADES VALUES(3724, 'Florânia', 20, 2403806); +INSERT INTO SYS_CIDADES VALUES(3725, 'Francisco Dantas', 20, 2403905); +INSERT INTO SYS_CIDADES VALUES(3726, 'Frutuoso Gomes', 20, 2404002); +INSERT INTO SYS_CIDADES VALUES(3727, 'Galinhos', 20, 2404101); +INSERT INTO SYS_CIDADES VALUES(3728, 'Goianinha', 20, 2404200); +INSERT INTO SYS_CIDADES VALUES(3729, 'Governador Dix-Sept Rosado', 20, 2404309); +INSERT INTO SYS_CIDADES VALUES(3730, 'Grossos', 20, 2404408); +INSERT INTO SYS_CIDADES VALUES(3731, 'Guamaré', 20, 2404507); +INSERT INTO SYS_CIDADES VALUES(3732, 'Ielmo Marinho', 20, 2404606); +INSERT INTO SYS_CIDADES VALUES(3733, 'Ipanguaçu', 20, 2404705); +INSERT INTO SYS_CIDADES VALUES(3734, 'Ipueira', 20, 2404804); +INSERT INTO SYS_CIDADES VALUES(3735, 'Itajá', 20, 2404853); +INSERT INTO SYS_CIDADES VALUES(3736, 'Itaú', 20, 2404903); +INSERT INTO SYS_CIDADES VALUES(3737, 'Jaçanã', 20, 2405009); +INSERT INTO SYS_CIDADES VALUES(3738, 'Jandaíra', 20, 2405108); +INSERT INTO SYS_CIDADES VALUES(3739, 'Janduís', 20, 2405207); +INSERT INTO SYS_CIDADES VALUES(3740, 'Januário Cicco', 20, 2405306); +INSERT INTO SYS_CIDADES VALUES(3741, 'Japi', 20, 2405405); +INSERT INTO SYS_CIDADES VALUES(3743, 'Jardim de Piranhas', 20, 2405603); +INSERT INTO SYS_CIDADES VALUES(3744, 'Jardim do Seridó', 20, 2405702); +INSERT INTO SYS_CIDADES VALUES(3745, 'João Câmara', 20, 2405801); +INSERT INTO SYS_CIDADES VALUES(3746, 'João Dias', 20, 2405900); +INSERT INTO SYS_CIDADES VALUES(3747, 'José da Penha', 20, 2406007); +INSERT INTO SYS_CIDADES VALUES(3748, 'Jucurutu', 20, 2406106); +INSERT INTO SYS_CIDADES VALUES(3749, 'Jundiá', 20, 2406155); +INSERT INTO SYS_CIDADES VALUES(3750, 'Lagoa d`Anta', 20, 2406205); +INSERT INTO SYS_CIDADES VALUES(3751, 'Lagoa de Pedras', 20, 2406304); +INSERT INTO SYS_CIDADES VALUES(3752, 'Lagoa de Velhos', 20, 2406403); +INSERT INTO SYS_CIDADES VALUES(3753, 'Lagoa Nova', 20, 2406502); +INSERT INTO SYS_CIDADES VALUES(3754, 'Lagoa Salgada', 20, 2406601); +INSERT INTO SYS_CIDADES VALUES(3755, 'Lajes', 20, 2406700); +INSERT INTO SYS_CIDADES VALUES(3756, 'Lajes Pintadas', 20, 2406809); +INSERT INTO SYS_CIDADES VALUES(3757, 'Lucrécia', 20, 2406908); +INSERT INTO SYS_CIDADES VALUES(3758, 'Luís Gomes', 20, 2407005); +INSERT INTO SYS_CIDADES VALUES(3759, 'Macaíba', 20, 2407104); +INSERT INTO SYS_CIDADES VALUES(3760, 'Macau', 20, 2407203); +INSERT INTO SYS_CIDADES VALUES(3761, 'Major Sales', 20, 2407252); +INSERT INTO SYS_CIDADES VALUES(3762, 'Marcelino Vieira', 20, 2407302); +INSERT INTO SYS_CIDADES VALUES(3763, 'Martins', 20, 2407401); +INSERT INTO SYS_CIDADES VALUES(3764, 'Maxaranguape', 20, 2407500); +INSERT INTO SYS_CIDADES VALUES(3765, 'Messias Targino', 20, 2407609); +INSERT INTO SYS_CIDADES VALUES(3766, 'Montanhas', 20, 2407708); +INSERT INTO SYS_CIDADES VALUES(3767, 'Monte Alegre', 20, 2407807); +INSERT INTO SYS_CIDADES VALUES(3768, 'Monte das Gameleiras', 20, 2407906); +INSERT INTO SYS_CIDADES VALUES(3769, 'Mossoró', 20, 2408003); +INSERT INTO SYS_CIDADES VALUES(3770, 'Natal', 20, 2408102); +INSERT INTO SYS_CIDADES VALUES(3771, 'Nísia Floresta', 20, 2408201); +INSERT INTO SYS_CIDADES VALUES(3772, 'Nova Cruz', 20, 2408300); +INSERT INTO SYS_CIDADES VALUES(3773, 'Olho-d`Água do Borges', 20, 2408409); +INSERT INTO SYS_CIDADES VALUES(3774, 'Ouro Branco', 20, 2408508); +INSERT INTO SYS_CIDADES VALUES(3775, 'Paraná', 20, 2408607); +INSERT INTO SYS_CIDADES VALUES(3776, 'Paraú', 20, 2408706); +INSERT INTO SYS_CIDADES VALUES(3777, 'Parazinho', 20, 2408805); +INSERT INTO SYS_CIDADES VALUES(3778, 'Parelhas', 20, 2408904); +INSERT INTO SYS_CIDADES VALUES(3779, 'Parnamirim', 20, 2403251); +INSERT INTO SYS_CIDADES VALUES(3780, 'Passa e Fica', 20, 2409100); +INSERT INTO SYS_CIDADES VALUES(3781, 'Passagem', 20, 2409209); +INSERT INTO SYS_CIDADES VALUES(3782, 'Patu', 20, 2409308); +INSERT INTO SYS_CIDADES VALUES(3783, 'Pau dos Ferros', 20, 2409407); +INSERT INTO SYS_CIDADES VALUES(3784, 'Pedra Grande', 20, 2409506); +INSERT INTO SYS_CIDADES VALUES(3785, 'Pedra Preta', 20, 2409605); +INSERT INTO SYS_CIDADES VALUES(3786, 'Pedro Avelino', 20, 2409704); +INSERT INTO SYS_CIDADES VALUES(3787, 'Pedro Velho', 20, 2409803); +INSERT INTO SYS_CIDADES VALUES(3788, 'Pendências', 20, 2409902); +INSERT INTO SYS_CIDADES VALUES(3789, 'Pilões', 20, 2410009); +INSERT INTO SYS_CIDADES VALUES(3790, 'Poço Branco', 20, 2410108); +INSERT INTO SYS_CIDADES VALUES(3791, 'Portalegre', 20, 2410207); +INSERT INTO SYS_CIDADES VALUES(3792, 'Porto do Mangue', 20, 2410256); +INSERT INTO SYS_CIDADES VALUES(3793, 'Presidente Juscelino', 20, 2410306); +INSERT INTO SYS_CIDADES VALUES(3794, 'Pureza', 20, 2410405); +INSERT INTO SYS_CIDADES VALUES(3795, 'Rafael Fernandes', 20, 2410504); +INSERT INTO SYS_CIDADES VALUES(3796, 'Rafael Godeiro', 20, 2410603); +INSERT INTO SYS_CIDADES VALUES(3797, 'Riacho da Cruz', 20, 2410702); +INSERT INTO SYS_CIDADES VALUES(3798, 'Riacho de Santana', 20, 2410801); +INSERT INTO SYS_CIDADES VALUES(3799, 'Riachuelo', 20, 2410900); +INSERT INTO SYS_CIDADES VALUES(3800, 'Rio do Fogo', 20, 2408953); +INSERT INTO SYS_CIDADES VALUES(3801, 'Rodolfo Fernandes', 20, 2411007); +INSERT INTO SYS_CIDADES VALUES(3802, 'Ruy Barbosa', 20, 2411106); +INSERT INTO SYS_CIDADES VALUES(3803, 'Santa Cruz', 20, 2411205); +INSERT INTO SYS_CIDADES VALUES(3804, 'Santa Maria', 20, 2409332); +INSERT INTO SYS_CIDADES VALUES(3805, 'Santana do Matos', 20, 2411403); +INSERT INTO SYS_CIDADES VALUES(3806, 'Santana do Seridó', 20, 2411429); +INSERT INTO SYS_CIDADES VALUES(3807, 'Santo Antônio', 20, 2411502); +INSERT INTO SYS_CIDADES VALUES(3808, 'São Bento do Norte', 20, 2411601); +INSERT INTO SYS_CIDADES VALUES(3809, 'São Bento do Trairí', 20, 2411700); +INSERT INTO SYS_CIDADES VALUES(3810, 'São Fernando', 20, 2411809); +INSERT INTO SYS_CIDADES VALUES(3811, 'São Francisco do Oeste', 20, 2411908); +INSERT INTO SYS_CIDADES VALUES(3812, 'São Gonçalo do Amarante', 20, 2412005); +INSERT INTO SYS_CIDADES VALUES(3813, 'São João do Sabugi', 20, 2412104); +INSERT INTO SYS_CIDADES VALUES(3814, 'São José de Mipibu', 20, 2412203); +INSERT INTO SYS_CIDADES VALUES(3815, 'São José do Campestre', 20, 2412302); +INSERT INTO SYS_CIDADES VALUES(3816, 'São José do Seridó', 20, 2412401); +INSERT INTO SYS_CIDADES VALUES(3817, 'São Miguel', 20, 2412500); +INSERT INTO SYS_CIDADES VALUES(3818, 'São Miguel do Gostoso', 20, 2412559); +INSERT INTO SYS_CIDADES VALUES(3819, 'São Paulo do Potengi', 20, 2412609); +INSERT INTO SYS_CIDADES VALUES(3820, 'São Pedro', 20, 2412708); +INSERT INTO SYS_CIDADES VALUES(3821, 'São Rafael', 20, 2412807); +INSERT INTO SYS_CIDADES VALUES(3822, 'São Tomé', 20, 2412906); +INSERT INTO SYS_CIDADES VALUES(3823, 'São Vicente', 20, 2413003); +INSERT INTO SYS_CIDADES VALUES(3824, 'Senador Elói de Souza', 20, 2413102); +INSERT INTO SYS_CIDADES VALUES(3825, 'Senador Georgino Avelino', 20, 2413201); +INSERT INTO SYS_CIDADES VALUES(3826, 'Serra de São Bento', 20, 2413300); +INSERT INTO SYS_CIDADES VALUES(3827, 'Serra do Mel', 20, 2413359); +INSERT INTO SYS_CIDADES VALUES(3828, 'Serra Negra do Norte', 20, 2413409); +INSERT INTO SYS_CIDADES VALUES(3829, 'Serrinha', 20, 2413508); +INSERT INTO SYS_CIDADES VALUES(3830, 'Serrinha dos Pintos', 20, 2413557); +INSERT INTO SYS_CIDADES VALUES(3831, 'Severiano Melo', 20, 2413607); +INSERT INTO SYS_CIDADES VALUES(3832, 'Sítio Novo', 20, 2413706); +INSERT INTO SYS_CIDADES VALUES(3833, 'Taboleiro Grande', 20, 2413805); +INSERT INTO SYS_CIDADES VALUES(3834, 'Taipu', 20, 2413904); +INSERT INTO SYS_CIDADES VALUES(3835, 'Tangará', 20, 2414001); +INSERT INTO SYS_CIDADES VALUES(3836, 'Tenente Ananias', 20, 2414100); +INSERT INTO SYS_CIDADES VALUES(3837, 'Tenente Laurentino Cruz', 20, 2414159); +INSERT INTO SYS_CIDADES VALUES(3838, 'Tibau', 20, 2411056); +INSERT INTO SYS_CIDADES VALUES(3839, 'Tibau do Sul', 20, 2414209); +INSERT INTO SYS_CIDADES VALUES(3840, 'Timbaúba dos Batistas', 20, 2414308); +INSERT INTO SYS_CIDADES VALUES(3841, 'Touros', 20, 2414407); +INSERT INTO SYS_CIDADES VALUES(3842, 'Triunfo Potiguar', 20, 2414456); +INSERT INTO SYS_CIDADES VALUES(3843, 'Umarizal', 20, 2414506); +INSERT INTO SYS_CIDADES VALUES(3844, 'Upanema', 20, 2414605); +INSERT INTO SYS_CIDADES VALUES(3845, 'Várzea', 20, 2414704); +INSERT INTO SYS_CIDADES VALUES(3846, 'Venha-Ver', 20, 2414753); +INSERT INTO SYS_CIDADES VALUES(3847, 'Vera Cruz', 20, 2414803); +INSERT INTO SYS_CIDADES VALUES(3848, 'Viçosa', 20, 2414902); +INSERT INTO SYS_CIDADES VALUES(3849, 'Vila Flor', 20, 2415008); +INSERT INTO SYS_CIDADES VALUES(3850, 'Aceguá', 23, 4300034); +INSERT INTO SYS_CIDADES VALUES(3851, 'Água Santa', 23, 4300059); +INSERT INTO SYS_CIDADES VALUES(3852, 'Agudo', 23, 4300109); +INSERT INTO SYS_CIDADES VALUES(3853, 'Ajuricaba', 23, 4300208); +INSERT INTO SYS_CIDADES VALUES(3854, 'Alecrim', 23, 4300307); +INSERT INTO SYS_CIDADES VALUES(3855, 'Alegrete', 23, 4300406); +INSERT INTO SYS_CIDADES VALUES(3856, 'Alegria', 23, 4300455); +INSERT INTO SYS_CIDADES VALUES(3857, 'Almirante Tamandaré do Sul', 23, 4300471); +INSERT INTO SYS_CIDADES VALUES(3858, 'Alpestre', 23, 4300505); +INSERT INTO SYS_CIDADES VALUES(3859, 'Alto Alegre', 23, 4300554); +INSERT INTO SYS_CIDADES VALUES(3860, 'Alto Feliz', 23, 4300570); +INSERT INTO SYS_CIDADES VALUES(3861, 'Alvorada', 23, 4300604); +INSERT INTO SYS_CIDADES VALUES(3862, 'Amaral Ferrador', 23, 4300638); +INSERT INTO SYS_CIDADES VALUES(3863, 'Ametista do Sul', 23, 4300646); +INSERT INTO SYS_CIDADES VALUES(3864, 'André da Rocha', 23, 4300661); +INSERT INTO SYS_CIDADES VALUES(3865, 'Anta Gorda', 23, 4300703); +INSERT INTO SYS_CIDADES VALUES(3866, 'Antônio Prado', 23, 4300802); +INSERT INTO SYS_CIDADES VALUES(3867, 'Arambaré', 23, 4300851); +INSERT INTO SYS_CIDADES VALUES(3868, 'Araricá', 23, 4300877); +INSERT INTO SYS_CIDADES VALUES(3869, 'Aratiba', 23, 4300901); +INSERT INTO SYS_CIDADES VALUES(3870, 'Arroio do Meio', 23, 4301008); +INSERT INTO SYS_CIDADES VALUES(3871, 'Arroio do Padre', 23, 4301073); +INSERT INTO SYS_CIDADES VALUES(3872, 'Arroio do Sal', 23, 4301057); +INSERT INTO SYS_CIDADES VALUES(3873, 'Arroio do Tigre', 23, 4301206); +INSERT INTO SYS_CIDADES VALUES(3874, 'Arroio dos Ratos', 23, 4301107); +INSERT INTO SYS_CIDADES VALUES(3875, 'Arroio Grande', 23, 4301305); +INSERT INTO SYS_CIDADES VALUES(3876, 'Arvorezinha', 23, 4301404); +INSERT INTO SYS_CIDADES VALUES(3877, 'Augusto Pestana', 23, 4301503); +INSERT INTO SYS_CIDADES VALUES(3878, 'Áurea', 23, 4301552); +INSERT INTO SYS_CIDADES VALUES(3879, 'Bagé', 23, 4301602); +INSERT INTO SYS_CIDADES VALUES(3880, 'Balneário Pinhal', 23, 4301636); +INSERT INTO SYS_CIDADES VALUES(3881, 'Barão', 23, 4301651); +INSERT INTO SYS_CIDADES VALUES(3882, 'Barão de Cotegipe', 23, 4301701); +INSERT INTO SYS_CIDADES VALUES(3883, 'Barão do Triunfo', 23, 4301750); +INSERT INTO SYS_CIDADES VALUES(3884, 'Barra do Guarita', 23, 4301859); +INSERT INTO SYS_CIDADES VALUES(3885, 'Barra do Quaraí', 23, 4301875); +INSERT INTO SYS_CIDADES VALUES(3886, 'Barra do Ribeiro', 23, 4301909); +INSERT INTO SYS_CIDADES VALUES(3887, 'Barra do Rio Azul', 23, 4301925); +INSERT INTO SYS_CIDADES VALUES(3888, 'Barra Funda', 23, 4301958); +INSERT INTO SYS_CIDADES VALUES(3889, 'Barracão', 23, 4301800); +INSERT INTO SYS_CIDADES VALUES(3890, 'Barros Cassal', 23, 4302006); +INSERT INTO SYS_CIDADES VALUES(3891, 'Benjamin Constant do Sul', 23, 4302055); +INSERT INTO SYS_CIDADES VALUES(3892, 'Bento Gonçalves', 23, 4302105); +INSERT INTO SYS_CIDADES VALUES(3893, 'Boa Vista das Missões', 23, 4302154); +INSERT INTO SYS_CIDADES VALUES(3894, 'Boa Vista do Buricá', 23, 4302204); +INSERT INTO SYS_CIDADES VALUES(3895, 'Boa Vista do Cadeado', 23, 4302220); +INSERT INTO SYS_CIDADES VALUES(3896, 'Boa Vista do Incra', 23, 4302238); +INSERT INTO SYS_CIDADES VALUES(3897, 'Boa Vista do Sul', 23, 4302253); +INSERT INTO SYS_CIDADES VALUES(3898, 'Bom Jesus', 23, 4302303); +INSERT INTO SYS_CIDADES VALUES(3899, 'Bom Princípio', 23, 4302352); +INSERT INTO SYS_CIDADES VALUES(3900, 'Bom Progresso', 23, 4302378); +INSERT INTO SYS_CIDADES VALUES(3901, 'Bom Retiro do Sul', 23, 4302402); +INSERT INTO SYS_CIDADES VALUES(3902, 'Boqueirão do Leão', 23, 4302451); +INSERT INTO SYS_CIDADES VALUES(3903, 'Bossoroca', 23, 4302501); +INSERT INTO SYS_CIDADES VALUES(3904, 'Bozano', 23, 4302584); +INSERT INTO SYS_CIDADES VALUES(3905, 'Braga', 23, 4302600); +INSERT INTO SYS_CIDADES VALUES(3906, 'Brochier', 23, 4302659); +INSERT INTO SYS_CIDADES VALUES(3907, 'Butiá', 23, 4302709); +INSERT INTO SYS_CIDADES VALUES(3908, 'Caçapava do Sul', 23, 4302808); +INSERT INTO SYS_CIDADES VALUES(3909, 'Cacequi', 23, 4302907); +INSERT INTO SYS_CIDADES VALUES(3910, 'Cachoeira do Sul', 23, 4303004); +INSERT INTO SYS_CIDADES VALUES(3911, 'Cachoeirinha', 23, 4303103); +INSERT INTO SYS_CIDADES VALUES(3912, 'Cacique Doble', 23, 4303202); +INSERT INTO SYS_CIDADES VALUES(3913, 'Caibaté', 23, 4303301); +INSERT INTO SYS_CIDADES VALUES(3914, 'Caiçara', 23, 4303400); +INSERT INTO SYS_CIDADES VALUES(3915, 'Camaquã', 23, 4303509); +INSERT INTO SYS_CIDADES VALUES(3916, 'Camargo', 23, 4303558); +INSERT INTO SYS_CIDADES VALUES(3917, 'Cambará do Sul', 23, 4303608); +INSERT INTO SYS_CIDADES VALUES(3918, 'Campestre da Serra', 23, 4303673); +INSERT INTO SYS_CIDADES VALUES(3919, 'Campina das Missões', 23, 4303707); +INSERT INTO SYS_CIDADES VALUES(3920, 'Campinas do Sul', 23, 4303806); +INSERT INTO SYS_CIDADES VALUES(3921, 'Campo Bom', 23, 4303905); +INSERT INTO SYS_CIDADES VALUES(3922, 'Campo Novo', 23, 4304002); +INSERT INTO SYS_CIDADES VALUES(3923, 'Campos Borges', 23, 4304101); +INSERT INTO SYS_CIDADES VALUES(3924, 'Candelária', 23, 4304200); +INSERT INTO SYS_CIDADES VALUES(3925, 'Cândido Godói', 23, 4304309); +INSERT INTO SYS_CIDADES VALUES(3926, 'Candiota', 23, 4304358); +INSERT INTO SYS_CIDADES VALUES(3927, 'Canela', 23, 4304408); +INSERT INTO SYS_CIDADES VALUES(3928, 'Canguçu', 23, 4304507); +INSERT INTO SYS_CIDADES VALUES(3929, 'Canoas', 23, 4304606); +INSERT INTO SYS_CIDADES VALUES(3930, 'Canudos do Vale', 23, 4304614); +INSERT INTO SYS_CIDADES VALUES(3931, 'Capão Bonito do Sul', 23, 4304622); +INSERT INTO SYS_CIDADES VALUES(3932, 'Capão da Canoa', 23, 4304630); +INSERT INTO SYS_CIDADES VALUES(3933, 'Capão do Cipó', 23, 4304655); +INSERT INTO SYS_CIDADES VALUES(3934, 'Capão do Leão', 23, 4304663); +INSERT INTO SYS_CIDADES VALUES(3935, 'Capela de Santana', 23, 4304689); +INSERT INTO SYS_CIDADES VALUES(3936, 'Capitão', 23, 4304697); +INSERT INTO SYS_CIDADES VALUES(3937, 'Capivari do Sul', 23, 4304671); +INSERT INTO SYS_CIDADES VALUES(3938, 'Caraá', 23, 4304713); +INSERT INTO SYS_CIDADES VALUES(3939, 'Carazinho', 23, 4304705); +INSERT INTO SYS_CIDADES VALUES(3940, 'Carlos Barbosa', 23, 4304804); +INSERT INTO SYS_CIDADES VALUES(3941, 'Carlos Gomes', 23, 4304853); +INSERT INTO SYS_CIDADES VALUES(3942, 'Casca', 23, 4304903); +INSERT INTO SYS_CIDADES VALUES(3943, 'Caseiros', 23, 4304952); +INSERT INTO SYS_CIDADES VALUES(3944, 'Catuípe', 23, 4305009); +INSERT INTO SYS_CIDADES VALUES(3945, 'Caxias do Sul', 23, 4305108); +INSERT INTO SYS_CIDADES VALUES(3946, 'Centenário', 23, 4305116); +INSERT INTO SYS_CIDADES VALUES(3947, 'Cerrito', 23, 4305124); +INSERT INTO SYS_CIDADES VALUES(3948, 'Cerro Branco', 23, 4305132); +INSERT INTO SYS_CIDADES VALUES(3949, 'Cerro Grande', 23, 4305157); +INSERT INTO SYS_CIDADES VALUES(3950, 'Cerro Grande do Sul', 23, 4305173); +INSERT INTO SYS_CIDADES VALUES(3951, 'Cerro Largo', 23, 4305207); +INSERT INTO SYS_CIDADES VALUES(3952, 'Chapada', 23, 4305306); +INSERT INTO SYS_CIDADES VALUES(3953, 'Charqueadas', 23, 4305355); +INSERT INTO SYS_CIDADES VALUES(3954, 'Charrua', 23, 4305371); +INSERT INTO SYS_CIDADES VALUES(3955, 'Chiapetta', 23, 4305405); +INSERT INTO SYS_CIDADES VALUES(3956, 'Chuí', 23, 4305439); +INSERT INTO SYS_CIDADES VALUES(3957, 'Chuvisca', 23, 4305447); +INSERT INTO SYS_CIDADES VALUES(3958, 'Cidreira', 23, 4305454); +INSERT INTO SYS_CIDADES VALUES(3959, 'Ciríaco', 23, 4305504); +INSERT INTO SYS_CIDADES VALUES(3960, 'Colinas', 23, 4305587); +INSERT INTO SYS_CIDADES VALUES(3961, 'Colorado', 23, 4305603); +INSERT INTO SYS_CIDADES VALUES(3962, 'Condor', 23, 4305702); +INSERT INTO SYS_CIDADES VALUES(3963, 'Constantina', 23, 4305801); +INSERT INTO SYS_CIDADES VALUES(3964, 'Coqueiro Baixo', 23, 4305835); +INSERT INTO SYS_CIDADES VALUES(3965, 'Coqueiros do Sul', 23, 4305850); +INSERT INTO SYS_CIDADES VALUES(3966, 'Coronel Barros', 23, 4305871); +INSERT INTO SYS_CIDADES VALUES(3967, 'Coronel Bicaco', 23, 4305900); +INSERT INTO SYS_CIDADES VALUES(3968, 'Coronel Pilar', 23, 4305934); +INSERT INTO SYS_CIDADES VALUES(3969, 'Cotiporã', 23, 4305959); +INSERT INTO SYS_CIDADES VALUES(3970, 'Coxilha', 23, 4305975); +INSERT INTO SYS_CIDADES VALUES(3971, 'Crissiumal', 23, 4306007); +INSERT INTO SYS_CIDADES VALUES(3972, 'Cristal', 23, 4306056); +INSERT INTO SYS_CIDADES VALUES(3973, 'Cristal do Sul', 23, 4306072); +INSERT INTO SYS_CIDADES VALUES(3974, 'Cruz Alta', 23, 4306106); +INSERT INTO SYS_CIDADES VALUES(3975, 'Cruzaltense', 23, 4306130); +INSERT INTO SYS_CIDADES VALUES(3976, 'Cruzeiro do Sul', 23, 4306205); +INSERT INTO SYS_CIDADES VALUES(3977, 'David Canabarro', 23, 4306304); +INSERT INTO SYS_CIDADES VALUES(3978, 'Derrubadas', 23, 4306320); +INSERT INTO SYS_CIDADES VALUES(3979, 'Dezesseis de Novembro', 23, 4306353); +INSERT INTO SYS_CIDADES VALUES(3980, 'Dilermando de Aguiar', 23, 4306379); +INSERT INTO SYS_CIDADES VALUES(3981, 'Dois Irmãos', 23, 4306403); +INSERT INTO SYS_CIDADES VALUES(3982, 'Dois Irmãos das Missões', 23, 4306429); +INSERT INTO SYS_CIDADES VALUES(3983, 'Dois Lajeados', 23, 4306452); +INSERT INTO SYS_CIDADES VALUES(3984, 'Dom Feliciano', 23, 4306502); +INSERT INTO SYS_CIDADES VALUES(3985, 'Dom Pedrito', 23, 4306601); +INSERT INTO SYS_CIDADES VALUES(3986, 'Dom Pedro de Alcântara', 23, 4306551); +INSERT INTO SYS_CIDADES VALUES(3987, 'Dona Francisca', 23, 4306700); +INSERT INTO SYS_CIDADES VALUES(3988, 'Doutor Maurício Cardoso', 23, 4306734); +INSERT INTO SYS_CIDADES VALUES(3989, 'Doutor Ricardo', 23, 4306759); +INSERT INTO SYS_CIDADES VALUES(3990, 'Eldorado do Sul', 23, 4306767); +INSERT INTO SYS_CIDADES VALUES(3991, 'Encantado', 23, 4306809); +INSERT INTO SYS_CIDADES VALUES(3992, 'Encruzilhada do Sul', 23, 4306908); +INSERT INTO SYS_CIDADES VALUES(3993, 'Engenho Velho', 23, 4306924); +INSERT INTO SYS_CIDADES VALUES(3994, 'Entre Rios do Sul', 23, 4306957); +INSERT INTO SYS_CIDADES VALUES(3995, 'Entre-Ijuís', 23, 4306932); +INSERT INTO SYS_CIDADES VALUES(3996, 'Erebango', 23, 4306973); +INSERT INTO SYS_CIDADES VALUES(3997, 'Erechim', 23, 4307005); +INSERT INTO SYS_CIDADES VALUES(3998, 'Ernestina', 23, 4307054); +INSERT INTO SYS_CIDADES VALUES(3999, 'Erval Grande', 23, 4307203); +INSERT INTO SYS_CIDADES VALUES(4000, 'Erval Seco', 23, 4307302); +INSERT INTO SYS_CIDADES VALUES(4001, 'Esmeralda', 23, 4307401); +INSERT INTO SYS_CIDADES VALUES(4002, 'Esperança do Sul', 23, 4307450); +INSERT INTO SYS_CIDADES VALUES(4003, 'Espumoso', 23, 4307500); +INSERT INTO SYS_CIDADES VALUES(4004, 'Estação', 23, 4307559); +INSERT INTO SYS_CIDADES VALUES(4005, 'Estância Velha', 23, 4307609); +INSERT INTO SYS_CIDADES VALUES(4006, 'Esteio', 23, 4307708); +INSERT INTO SYS_CIDADES VALUES(4007, 'Estrela', 23, 4307807); +INSERT INTO SYS_CIDADES VALUES(4008, 'Estrela Velha', 23, 4307815); +INSERT INTO SYS_CIDADES VALUES(4009, 'Eugênio de Castro', 23, 4307831); +INSERT INTO SYS_CIDADES VALUES(4010, 'Fagundes Varela', 23, 4307864); +INSERT INTO SYS_CIDADES VALUES(4011, 'Farroupilha', 23, 4307906); +INSERT INTO SYS_CIDADES VALUES(4012, 'Faxinal do Soturno', 23, 4308003); +INSERT INTO SYS_CIDADES VALUES(4013, 'Faxinalzinho', 23, 4308052); +INSERT INTO SYS_CIDADES VALUES(4014, 'Fazenda Vilanova', 23, 4308078); +INSERT INTO SYS_CIDADES VALUES(4015, 'Feliz', 23, 4308102); +INSERT INTO SYS_CIDADES VALUES(4016, 'Flores da Cunha', 23, 4308201); +INSERT INTO SYS_CIDADES VALUES(4017, 'Floriano Peixoto', 23, 4308250); +INSERT INTO SYS_CIDADES VALUES(4018, 'Fontoura Xavier', 23, 4308300); +INSERT INTO SYS_CIDADES VALUES(4019, 'Formigueiro', 23, 4308409); +INSERT INTO SYS_CIDADES VALUES(4020, 'Forquetinha', 23, 4308433); +INSERT INTO SYS_CIDADES VALUES(4021, 'Fortaleza dos Valos', 23, 4308458); +INSERT INTO SYS_CIDADES VALUES(4022, 'Frederico Westphalen', 23, 4308508); +INSERT INTO SYS_CIDADES VALUES(4023, 'Garibaldi', 23, 4308607); +INSERT INTO SYS_CIDADES VALUES(4024, 'Garruchos', 23, 4308656); +INSERT INTO SYS_CIDADES VALUES(4025, 'Gaurama', 23, 4308706); +INSERT INTO SYS_CIDADES VALUES(4026, 'General Câmara', 23, 4308805); +INSERT INTO SYS_CIDADES VALUES(4027, 'Gentil', 23, 4308854); +INSERT INTO SYS_CIDADES VALUES(4028, 'Getúlio Vargas', 23, 4308904); +INSERT INTO SYS_CIDADES VALUES(4029, 'Giruá', 23, 4309001); +INSERT INTO SYS_CIDADES VALUES(4030, 'Glorinha', 23, 4309050); +INSERT INTO SYS_CIDADES VALUES(4031, 'Gramado', 23, 4309100); +INSERT INTO SYS_CIDADES VALUES(4032, 'Gramado dos Loureiros', 23, 4309126); +INSERT INTO SYS_CIDADES VALUES(4033, 'Gramado Xavier', 23, 4309159); +INSERT INTO SYS_CIDADES VALUES(4034, 'Gravataí', 23, 4309209); +INSERT INTO SYS_CIDADES VALUES(4035, 'Guabiju', 23, 4309258); +INSERT INTO SYS_CIDADES VALUES(4036, 'Guaíba', 23, 4309308); +INSERT INTO SYS_CIDADES VALUES(4037, 'Guaporé', 23, 4309407); +INSERT INTO SYS_CIDADES VALUES(4038, 'Guarani das Missões', 23, 4309506); +INSERT INTO SYS_CIDADES VALUES(4039, 'Harmonia', 23, 4309555); +INSERT INTO SYS_CIDADES VALUES(4040, 'Herval', 23, 4307104); +INSERT INTO SYS_CIDADES VALUES(4041, 'Herveiras', 23, 4309571); +INSERT INTO SYS_CIDADES VALUES(4042, 'Horizontina', 23, 4309605); +INSERT INTO SYS_CIDADES VALUES(4043, 'Hulha Negra', 23, 4309654); +INSERT INTO SYS_CIDADES VALUES(4044, 'Humaitá', 23, 4309704); +INSERT INTO SYS_CIDADES VALUES(4045, 'Ibarama', 23, 4309753); +INSERT INTO SYS_CIDADES VALUES(4046, 'Ibiaçá', 23, 4309803); +INSERT INTO SYS_CIDADES VALUES(4047, 'Ibiraiaras', 23, 4309902); +INSERT INTO SYS_CIDADES VALUES(4048, 'Ibirapuitã', 23, 4309951); +INSERT INTO SYS_CIDADES VALUES(4049, 'Ibirubá', 23, 4310009); +INSERT INTO SYS_CIDADES VALUES(4050, 'Igrejinha', 23, 4310108); +INSERT INTO SYS_CIDADES VALUES(4051, 'Ijuí', 23, 4310207); +INSERT INTO SYS_CIDADES VALUES(4052, 'Ilópolis', 23, 4310306); +INSERT INTO SYS_CIDADES VALUES(4053, 'Imbé', 23, 4310330); +INSERT INTO SYS_CIDADES VALUES(4054, 'Imigrante', 23, 4310363); +INSERT INTO SYS_CIDADES VALUES(4055, 'Independência', 23, 4310405); +INSERT INTO SYS_CIDADES VALUES(4056, 'Inhacorá', 23, 4310413); +INSERT INTO SYS_CIDADES VALUES(4057, 'Ipê', 23, 4310439); +INSERT INTO SYS_CIDADES VALUES(4058, 'Ipiranga do Sul', 23, 4310462); +INSERT INTO SYS_CIDADES VALUES(4059, 'Iraí', 23, 4310504); +INSERT INTO SYS_CIDADES VALUES(4060, 'Itaara', 23, 4310538); +INSERT INTO SYS_CIDADES VALUES(4061, 'Itacurubi', 23, 4310553); +INSERT INTO SYS_CIDADES VALUES(4062, 'Itapuca', 23, 4310579); +INSERT INTO SYS_CIDADES VALUES(4063, 'Itaqui', 23, 4310603); +INSERT INTO SYS_CIDADES VALUES(4064, 'Itati', 23, 4310652); +INSERT INTO SYS_CIDADES VALUES(4065, 'Itatiba do Sul', 23, 4310702); +INSERT INTO SYS_CIDADES VALUES(4066, 'Ivorá', 23, 4310751); +INSERT INTO SYS_CIDADES VALUES(4067, 'Ivoti', 23, 4310801); +INSERT INTO SYS_CIDADES VALUES(4068, 'Jaboticaba', 23, 4310850); +INSERT INTO SYS_CIDADES VALUES(4069, 'Jacuizinho', 23, 4310876); +INSERT INTO SYS_CIDADES VALUES(4070, 'Jacutinga', 23, 4310900); +INSERT INTO SYS_CIDADES VALUES(4071, 'Jaguarão', 23, 4311007); +INSERT INTO SYS_CIDADES VALUES(4072, 'Jaguari', 23, 4311106); +INSERT INTO SYS_CIDADES VALUES(4073, 'Jaquirana', 23, 4311122); +INSERT INTO SYS_CIDADES VALUES(4074, 'Jari', 23, 4311130); +INSERT INTO SYS_CIDADES VALUES(4075, 'Jóia', 23, 4311155); +INSERT INTO SYS_CIDADES VALUES(4076, 'Júlio de Castilhos', 23, 4311205); +INSERT INTO SYS_CIDADES VALUES(4077, 'Lagoa Bonita do Sul', 23, 4311239); +INSERT INTO SYS_CIDADES VALUES(4078, 'Lagoa dos Três Cantos', 23, 4311270); +INSERT INTO SYS_CIDADES VALUES(4079, 'Lagoa Vermelha', 23, 4311304); +INSERT INTO SYS_CIDADES VALUES(4080, 'Lagoão', 23, 4311254); +INSERT INTO SYS_CIDADES VALUES(4081, 'Lajeado', 23, 4311403); +INSERT INTO SYS_CIDADES VALUES(4082, 'Lajeado do Bugre', 23, 4311429); +INSERT INTO SYS_CIDADES VALUES(4083, 'Lavras do Sul', 23, 4311502); +INSERT INTO SYS_CIDADES VALUES(4084, 'Liberato Salzano', 23, 4311601); +INSERT INTO SYS_CIDADES VALUES(4085, 'Lindolfo Collor', 23, 4311627); +INSERT INTO SYS_CIDADES VALUES(4086, 'Linha Nova', 23, 4311643); +INSERT INTO SYS_CIDADES VALUES(4087, 'Maçambara', 23, 4311718); +INSERT INTO SYS_CIDADES VALUES(4088, 'Machadinho', 23, 4311700); +INSERT INTO SYS_CIDADES VALUES(4089, 'Mampituba', 23, 4311734); +INSERT INTO SYS_CIDADES VALUES(4090, 'Manoel Viana', 23, 4311759); +INSERT INTO SYS_CIDADES VALUES(4091, 'Maquiné', 23, 4311775); +INSERT INTO SYS_CIDADES VALUES(4092, 'Maratá', 23, 4311791); +INSERT INTO SYS_CIDADES VALUES(4093, 'Marau', 23, 4311809); +INSERT INTO SYS_CIDADES VALUES(4094, 'Marcelino Ramos', 23, 4311908); +INSERT INTO SYS_CIDADES VALUES(4095, 'Mariana Pimentel', 23, 4311981); +INSERT INTO SYS_CIDADES VALUES(4096, 'Mariano Moro', 23, 4312005); +INSERT INTO SYS_CIDADES VALUES(4097, 'Marques de Souza', 23, 4312054); +INSERT INTO SYS_CIDADES VALUES(4098, 'Mata', 23, 4312104); +INSERT INTO SYS_CIDADES VALUES(4099, 'Mato Castelhano', 23, 4312138); +INSERT INTO SYS_CIDADES VALUES(4100, 'Mato Leitão', 23, 4312153); +INSERT INTO SYS_CIDADES VALUES(4101, 'Mato Queimado', 23, 4312179); +INSERT INTO SYS_CIDADES VALUES(4102, 'Maximiliano de Almeida', 23, 4312203); +INSERT INTO SYS_CIDADES VALUES(4103, 'Minas do Leão', 23, 4312252); +INSERT INTO SYS_CIDADES VALUES(4104, 'Miraguaí', 23, 4312302); +INSERT INTO SYS_CIDADES VALUES(4105, 'Montauri', 23, 4312351); +INSERT INTO SYS_CIDADES VALUES(4106, 'Monte Alegre dos Campos', 23, 4312377); +INSERT INTO SYS_CIDADES VALUES(4107, 'Monte Belo do Sul', 23, 4312385); +INSERT INTO SYS_CIDADES VALUES(4108, 'Montenegro', 23, 4312401); +INSERT INTO SYS_CIDADES VALUES(4109, 'Mormaço', 23, 4312427); +INSERT INTO SYS_CIDADES VALUES(4110, 'Morrinhos do Sul', 23, 4312443); +INSERT INTO SYS_CIDADES VALUES(4111, 'Morro Redondo', 23, 4312450); +INSERT INTO SYS_CIDADES VALUES(4112, 'Morro Reuter', 23, 4312476); +INSERT INTO SYS_CIDADES VALUES(4113, 'Mostardas', 23, 4312500); +INSERT INTO SYS_CIDADES VALUES(4114, 'Muçum', 23, 4312609); +INSERT INTO SYS_CIDADES VALUES(4115, 'Muitos Capões', 23, 4312617); +INSERT INTO SYS_CIDADES VALUES(4116, 'Muliterno', 23, 4312625); +INSERT INTO SYS_CIDADES VALUES(4117, 'Não-Me-Toque', 23, 4312658); +INSERT INTO SYS_CIDADES VALUES(4118, 'Nicolau Vergueiro', 23, 4312674); +INSERT INTO SYS_CIDADES VALUES(4119, 'Nonoai', 23, 4312708); +INSERT INTO SYS_CIDADES VALUES(4120, 'Nova Alvorada', 23, 4312757); +INSERT INTO SYS_CIDADES VALUES(4121, 'Nova Araçá', 23, 4312807); +INSERT INTO SYS_CIDADES VALUES(4122, 'Nova Bassano', 23, 4312906); +INSERT INTO SYS_CIDADES VALUES(4123, 'Nova Boa Vista', 23, 4312955); +INSERT INTO SYS_CIDADES VALUES(4124, 'Nova Bréscia', 23, 4313003); +INSERT INTO SYS_CIDADES VALUES(4125, 'Nova Candelária', 23, 4313011); +INSERT INTO SYS_CIDADES VALUES(4126, 'Nova Esperança do Sul', 23, 4313037); +INSERT INTO SYS_CIDADES VALUES(4127, 'Nova Hartz', 23, 4313060); +INSERT INTO SYS_CIDADES VALUES(4128, 'Nova Pádua', 23, 4313086); +INSERT INTO SYS_CIDADES VALUES(4129, 'Nova Palma', 23, 4313102); +INSERT INTO SYS_CIDADES VALUES(4130, 'Nova Petrópolis', 23, 4313201); +INSERT INTO SYS_CIDADES VALUES(4131, 'Nova Prata', 23, 4313300); +INSERT INTO SYS_CIDADES VALUES(4132, 'Nova Ramada', 23, 4313334); +INSERT INTO SYS_CIDADES VALUES(4133, 'Nova Roma do Sul', 23, 4313359); +INSERT INTO SYS_CIDADES VALUES(4134, 'Nova Santa Rita', 23, 4313375); +INSERT INTO SYS_CIDADES VALUES(4135, 'Novo Barreiro', 23, 4313490); +INSERT INTO SYS_CIDADES VALUES(4136, 'Novo Cabrais', 23, 4313391); +INSERT INTO SYS_CIDADES VALUES(4137, 'Novo Hamburgo', 23, 4313409); +INSERT INTO SYS_CIDADES VALUES(4138, 'Novo Machado', 23, 4313425); +INSERT INTO SYS_CIDADES VALUES(4139, 'Novo Tiradentes', 23, 4313441); +INSERT INTO SYS_CIDADES VALUES(4140, 'Novo Xingu', 23, 4313466); +INSERT INTO SYS_CIDADES VALUES(4141, 'Osório', 23, 4313508); +INSERT INTO SYS_CIDADES VALUES(4142, 'Paim Filho', 23, 4313607); +INSERT INTO SYS_CIDADES VALUES(4143, 'Palmares do Sul', 23, 4313656); +INSERT INTO SYS_CIDADES VALUES(4144, 'Palmeira das Missões', 23, 4313706); +INSERT INTO SYS_CIDADES VALUES(4145, 'Palmitinho', 23, 4313805); +INSERT INTO SYS_CIDADES VALUES(4146, 'Panambi', 23, 4313904); +INSERT INTO SYS_CIDADES VALUES(4147, 'Pantano Grande', 23, 4313953); +INSERT INTO SYS_CIDADES VALUES(4148, 'Paraí', 23, 4314001); +INSERT INTO SYS_CIDADES VALUES(4149, 'Paraíso do Sul', 23, 4314027); +INSERT INTO SYS_CIDADES VALUES(4150, 'Pareci Novo', 23, 4314035); +INSERT INTO SYS_CIDADES VALUES(4151, 'Parobé', 23, 4314050); +INSERT INTO SYS_CIDADES VALUES(4152, 'Passa Sete', 23, 4314068); +INSERT INTO SYS_CIDADES VALUES(4153, 'Passo do Sobrado', 23, 4314076); +INSERT INTO SYS_CIDADES VALUES(4154, 'Passo Fundo', 23, 4314100); +INSERT INTO SYS_CIDADES VALUES(4155, 'Paulo Bento', 23, 4314134); +INSERT INTO SYS_CIDADES VALUES(4156, 'Paverama', 23, 4314159); +INSERT INTO SYS_CIDADES VALUES(4157, 'Pedras Altas', 23, 4314175); +INSERT INTO SYS_CIDADES VALUES(4158, 'Pedro Osório', 23, 4314209); +INSERT INTO SYS_CIDADES VALUES(4159, 'Pejuçara', 23, 4314308); +INSERT INTO SYS_CIDADES VALUES(4160, 'Pelotas', 23, 4314407); +INSERT INTO SYS_CIDADES VALUES(4161, 'Picada Café', 23, 4314423); +INSERT INTO SYS_CIDADES VALUES(4162, 'Pinhal', 23, 4314456); +INSERT INTO SYS_CIDADES VALUES(4163, 'Pinhal da Serra', 23, 4314464); +INSERT INTO SYS_CIDADES VALUES(4164, 'Pinhal Grande', 23, 4314472); +INSERT INTO SYS_CIDADES VALUES(4165, 'Pinheirinho do Vale', 23, 4314498); +INSERT INTO SYS_CIDADES VALUES(4166, 'Pinheiro Machado', 23, 4314506); +INSERT INTO SYS_CIDADES VALUES(4167, 'Pirapó', 23, 4314555); +INSERT INTO SYS_CIDADES VALUES(4168, 'Piratini', 23, 4314605); +INSERT INTO SYS_CIDADES VALUES(4169, 'Planalto', 23, 4314704); +INSERT INTO SYS_CIDADES VALUES(4170, 'Poço das Antas', 23, 4314753); +INSERT INTO SYS_CIDADES VALUES(4171, 'Pontão', 23, 4314779); +INSERT INTO SYS_CIDADES VALUES(4172, 'Ponte Preta', 23, 4314787); +INSERT INTO SYS_CIDADES VALUES(4173, 'Portão', 23, 4314803); +INSERT INTO SYS_CIDADES VALUES(4174, 'Porto Alegre', 23, 4314902); +INSERT INTO SYS_CIDADES VALUES(4175, 'Porto Lucena', 23, 4315008); +INSERT INTO SYS_CIDADES VALUES(4176, 'Porto Mauá', 23, 4315057); +INSERT INTO SYS_CIDADES VALUES(4177, 'Porto Vera Cruz', 23, 4315073); +INSERT INTO SYS_CIDADES VALUES(4178, 'Porto Xavier', 23, 4315107); +INSERT INTO SYS_CIDADES VALUES(4179, 'Pouso Novo', 23, 4315131); +INSERT INTO SYS_CIDADES VALUES(4180, 'Presidente Lucena', 23, 4315149); +INSERT INTO SYS_CIDADES VALUES(4181, 'Progresso', 23, 4315156); +INSERT INTO SYS_CIDADES VALUES(4182, 'Protásio Alves', 23, 4315172); +INSERT INTO SYS_CIDADES VALUES(4183, 'Putinga', 23, 4315206); +INSERT INTO SYS_CIDADES VALUES(4184, 'Quaraí', 23, 4315305); +INSERT INTO SYS_CIDADES VALUES(4185, 'Quatro Irmãos', 23, 4315313); +INSERT INTO SYS_CIDADES VALUES(4186, 'Quevedos', 23, 4315321); +INSERT INTO SYS_CIDADES VALUES(4187, 'Quinze de Novembro', 23, 4315354); +INSERT INTO SYS_CIDADES VALUES(4188, 'Redentora', 23, 4315404); +INSERT INTO SYS_CIDADES VALUES(4189, 'Relvado', 23, 4315453); +INSERT INTO SYS_CIDADES VALUES(4190, 'Restinga Seca', 23, 4315503); +INSERT INTO SYS_CIDADES VALUES(4191, 'Rio dos Índios', 23, 4315552); +INSERT INTO SYS_CIDADES VALUES(4192, 'Rio Grande', 23, 4315602); +INSERT INTO SYS_CIDADES VALUES(4193, 'Rio Pardo', 23, 4315701); +INSERT INTO SYS_CIDADES VALUES(4194, 'Riozinho', 23, 4315750); +INSERT INTO SYS_CIDADES VALUES(4195, 'Roca Sales', 23, 4315800); +INSERT INTO SYS_CIDADES VALUES(4196, 'Rodeio Bonito', 23, 4315909); +INSERT INTO SYS_CIDADES VALUES(4197, 'Rolador', 23, 4315958); +INSERT INTO SYS_CIDADES VALUES(4198, 'Rolante', 23, 4316006); +INSERT INTO SYS_CIDADES VALUES(4199, 'Ronda Alta', 23, 4316105); +INSERT INTO SYS_CIDADES VALUES(4200, 'Rondinha', 23, 4316204); +INSERT INTO SYS_CIDADES VALUES(4201, 'Roque Gonzales', 23, 4316303); +INSERT INTO SYS_CIDADES VALUES(4202, 'Rosário do Sul', 23, 4316402); +INSERT INTO SYS_CIDADES VALUES(4203, 'Sagrada Família', 23, 4316428); +INSERT INTO SYS_CIDADES VALUES(4204, 'Saldanha Marinho', 23, 4316436); +INSERT INTO SYS_CIDADES VALUES(4205, 'Salto do Jacuí', 23, 4316451); +INSERT INTO SYS_CIDADES VALUES(4206, 'Salvador das Missões', 23, 4316477); +INSERT INTO SYS_CIDADES VALUES(4207, 'Salvador do Sul', 23, 4316501); +INSERT INTO SYS_CIDADES VALUES(4208, 'Sananduva', 23, 4316600); +INSERT INTO SYS_CIDADES VALUES(4209, 'Santa Bárbara do Sul', 23, 4316709); +INSERT INTO SYS_CIDADES VALUES(4210, 'Santa Cecília do Sul', 23, 4316733); +INSERT INTO SYS_CIDADES VALUES(4211, 'Santa Clara do Sul', 23, 4316758); +INSERT INTO SYS_CIDADES VALUES(4212, 'Santa Cruz do Sul', 23, 4316808); +INSERT INTO SYS_CIDADES VALUES(4213, 'Santa Margarida do Sul', 23, 4316972); +INSERT INTO SYS_CIDADES VALUES(4214, 'Santa Maria', 23, 4316907); +INSERT INTO SYS_CIDADES VALUES(4215, 'Santa Maria do Herval', 23, 4316956); +INSERT INTO SYS_CIDADES VALUES(4216, 'Santa Rosa', 23, 4317202); +INSERT INTO SYS_CIDADES VALUES(4217, 'Santa Tereza', 23, 4317251); +INSERT INTO SYS_CIDADES VALUES(4218, 'Santa Vitória do Palmar', 23, 4317301); +INSERT INTO SYS_CIDADES VALUES(4219, 'Santana da Boa Vista', 23, 4317004); +INSERT INTO SYS_CIDADES VALUES(4220, 'Santana do Livramento', 23, 4317103); +INSERT INTO SYS_CIDADES VALUES(4221, 'Santiago', 23, 4317400); +INSERT INTO SYS_CIDADES VALUES(4222, 'Santo Ângelo', 23, 4317509); +INSERT INTO SYS_CIDADES VALUES(4223, 'Santo Antônio da Patrulha', 23, 4317608); +INSERT INTO SYS_CIDADES VALUES(4224, 'Santo Antônio das Missões', 23, 4317707); +INSERT INTO SYS_CIDADES VALUES(4225, 'Santo Antônio do Palma', 23, 4317558); +INSERT INTO SYS_CIDADES VALUES(4226, 'Santo Antônio do Planalto', 23, 4317756); +INSERT INTO SYS_CIDADES VALUES(4227, 'Santo Augusto', 23, 4317806); +INSERT INTO SYS_CIDADES VALUES(4228, 'Santo Cristo', 23, 4317905); +INSERT INTO SYS_CIDADES VALUES(4229, 'Santo Expedito do Sul', 23, 4317954); +INSERT INTO SYS_CIDADES VALUES(4230, 'São Borja', 23, 4318002); +INSERT INTO SYS_CIDADES VALUES(4231, 'São Domingos do Sul', 23, 4318051); +INSERT INTO SYS_CIDADES VALUES(4232, 'São Francisco de Assis', 23, 4318101); +INSERT INTO SYS_CIDADES VALUES(4233, 'São Francisco de Paula', 23, 4318200); +INSERT INTO SYS_CIDADES VALUES(4234, 'São Gabriel', 23, 4318309); +INSERT INTO SYS_CIDADES VALUES(4235, 'São Jerônimo', 23, 4318408); +INSERT INTO SYS_CIDADES VALUES(4236, 'São João da Urtiga', 23, 4318424); +INSERT INTO SYS_CIDADES VALUES(4237, 'São João do Polêsine', 23, 4318432); +INSERT INTO SYS_CIDADES VALUES(4238, 'São Jorge', 23, 4318440); +INSERT INTO SYS_CIDADES VALUES(4239, 'São José das Missões', 23, 4318457); +INSERT INTO SYS_CIDADES VALUES(4240, 'São José do Herval', 23, 4318465); +INSERT INTO SYS_CIDADES VALUES(4241, 'São José do Hortêncio', 23, 4318481); +INSERT INTO SYS_CIDADES VALUES(4242, 'São José do Inhacorá', 23, 4318499); +INSERT INTO SYS_CIDADES VALUES(4243, 'São José do Norte', 23, 4318507); +INSERT INTO SYS_CIDADES VALUES(4244, 'São José do Ouro', 23, 4318606); +INSERT INTO SYS_CIDADES VALUES(4245, 'São José do Sul', 23, 4318614); +INSERT INTO SYS_CIDADES VALUES(4246, 'São José dos Ausentes', 23, 4318622); +INSERT INTO SYS_CIDADES VALUES(4247, 'São Leopoldo', 23, 4318705); +INSERT INTO SYS_CIDADES VALUES(4248, 'São Lourenço do Sul', 23, 4318804); +INSERT INTO SYS_CIDADES VALUES(4249, 'São Luiz Gonzaga', 23, 4318903); +INSERT INTO SYS_CIDADES VALUES(4250, 'São Marcos', 23, 4319000); +INSERT INTO SYS_CIDADES VALUES(4251, 'São Martinho', 23, 4319109); +INSERT INTO SYS_CIDADES VALUES(4252, 'São Martinho da Serra', 23, 4319125); +INSERT INTO SYS_CIDADES VALUES(4253, 'São Miguel das Missões', 23, 4319158); +INSERT INTO SYS_CIDADES VALUES(4254, 'São Nicolau', 23, 4319208); +INSERT INTO SYS_CIDADES VALUES(4255, 'São Paulo das Missões', 23, 4319307); +INSERT INTO SYS_CIDADES VALUES(4256, 'São Pedro da Serra', 23, 4319356); +INSERT INTO SYS_CIDADES VALUES(4257, 'São Pedro das Missões', 23, 4319364); +INSERT INTO SYS_CIDADES VALUES(4258, 'São Pedro do Butiá', 23, 4319372); +INSERT INTO SYS_CIDADES VALUES(4259, 'São Pedro do Sul', 23, 4319406); +INSERT INTO SYS_CIDADES VALUES(4260, 'São Sebastião do Caí', 23, 4319505); +INSERT INTO SYS_CIDADES VALUES(4261, 'São Sepé', 23, 4319604); +INSERT INTO SYS_CIDADES VALUES(4262, 'São Valentim', 23, 4319703); +INSERT INTO SYS_CIDADES VALUES(4263, 'São Valentim do Sul', 23, 4319711); +INSERT INTO SYS_CIDADES VALUES(4264, 'São Valério do Sul', 23, 4319737); +INSERT INTO SYS_CIDADES VALUES(4265, 'São Vendelino', 23, 4319752); +INSERT INTO SYS_CIDADES VALUES(4266, 'São Vicente do Sul', 23, 4319802); +INSERT INTO SYS_CIDADES VALUES(4267, 'Sapiranga', 23, 4319901); +INSERT INTO SYS_CIDADES VALUES(4268, 'Sapucaia do Sul', 23, 4320008); +INSERT INTO SYS_CIDADES VALUES(4269, 'Sarandi', 23, 4320107); +INSERT INTO SYS_CIDADES VALUES(4270, 'Seberi', 23, 4320206); +INSERT INTO SYS_CIDADES VALUES(4271, 'Sede Nova', 23, 4320230); +INSERT INTO SYS_CIDADES VALUES(4272, 'Segredo', 23, 4320263); +INSERT INTO SYS_CIDADES VALUES(4273, 'Selbach', 23, 4320305); +INSERT INTO SYS_CIDADES VALUES(4274, 'Senador Salgado Filho', 23, 4320321); +INSERT INTO SYS_CIDADES VALUES(4275, 'Sentinela do Sul', 23, 4320354); +INSERT INTO SYS_CIDADES VALUES(4276, 'Serafina Corrêa', 23, 4320404); +INSERT INTO SYS_CIDADES VALUES(4277, 'Sério', 23, 4320453); +INSERT INTO SYS_CIDADES VALUES(4278, 'Sertão', 23, 4320503); +INSERT INTO SYS_CIDADES VALUES(4279, 'Sertão Santana', 23, 4320552); +INSERT INTO SYS_CIDADES VALUES(4280, 'Sete de Setembro', 23, 4320578); +INSERT INTO SYS_CIDADES VALUES(4281, 'Severiano de Almeida', 23, 4320602); +INSERT INTO SYS_CIDADES VALUES(4282, 'Silveira Martins', 23, 4320651); +INSERT INTO SYS_CIDADES VALUES(4283, 'Sinimbu', 23, 4320677); +INSERT INTO SYS_CIDADES VALUES(4284, 'Sobradinho', 23, 4320701); +INSERT INTO SYS_CIDADES VALUES(4285, 'Soledade', 23, 4320800); +INSERT INTO SYS_CIDADES VALUES(4286, 'Tabaí', 23, 4320859); +INSERT INTO SYS_CIDADES VALUES(4287, 'Tapejara', 23, 4320909); +INSERT INTO SYS_CIDADES VALUES(4288, 'Tapera', 23, 4321006); +INSERT INTO SYS_CIDADES VALUES(4289, 'Tapes', 23, 4321105); +INSERT INTO SYS_CIDADES VALUES(4290, 'Taquara', 23, 4321204); +INSERT INTO SYS_CIDADES VALUES(4291, 'Taquari', 23, 4321303); +INSERT INTO SYS_CIDADES VALUES(4292, 'Taquaruçu do Sul', 23, 4321329); +INSERT INTO SYS_CIDADES VALUES(4293, 'Tavares', 23, 4321352); +INSERT INTO SYS_CIDADES VALUES(4294, 'Tenente Portela', 23, 4321402); +INSERT INTO SYS_CIDADES VALUES(4295, 'Terra de Areia', 23, 4321436); +INSERT INTO SYS_CIDADES VALUES(4296, 'Teutônia', 23, 4321451); +INSERT INTO SYS_CIDADES VALUES(4297, 'Tio Hugo', 23, 4321469); +INSERT INTO SYS_CIDADES VALUES(4298, 'Tiradentes do Sul', 23, 4321477); +INSERT INTO SYS_CIDADES VALUES(4299, 'Toropi', 23, 4321493); +INSERT INTO SYS_CIDADES VALUES(4300, 'Torres', 23, 4321501); +INSERT INTO SYS_CIDADES VALUES(4301, 'Tramandaí', 23, 4321600); +INSERT INTO SYS_CIDADES VALUES(4302, 'Travesseiro', 23, 4321626); +INSERT INTO SYS_CIDADES VALUES(4303, 'Três Arroios', 23, 4321634); +INSERT INTO SYS_CIDADES VALUES(4304, 'Três Cachoeiras', 23, 4321667); +INSERT INTO SYS_CIDADES VALUES(4305, 'Três Coroas', 23, 4321709); +INSERT INTO SYS_CIDADES VALUES(4306, 'Três de Maio', 23, 4321808); +INSERT INTO SYS_CIDADES VALUES(4307, 'Três Forquilhas', 23, 4321832); +INSERT INTO SYS_CIDADES VALUES(4308, 'Três Palmeiras', 23, 4321857); +INSERT INTO SYS_CIDADES VALUES(4309, 'Três Passos', 23, 4321907); +INSERT INTO SYS_CIDADES VALUES(4310, 'Trindade do Sul', 23, 4321956); +INSERT INTO SYS_CIDADES VALUES(4311, 'Triunfo', 23, 4322004); +INSERT INTO SYS_CIDADES VALUES(4312, 'Tucunduva', 23, 4322103); +INSERT INTO SYS_CIDADES VALUES(4313, 'Tunas', 23, 4322152); +INSERT INTO SYS_CIDADES VALUES(4314, 'Tupanci do Sul', 23, 4322186); +INSERT INTO SYS_CIDADES VALUES(4315, 'Tupanciretã', 23, 4322202); +INSERT INTO SYS_CIDADES VALUES(4316, 'Tupandi', 23, 4322251); +INSERT INTO SYS_CIDADES VALUES(4317, 'Tuparendi', 23, 4322301); +INSERT INTO SYS_CIDADES VALUES(4318, 'Turuçu', 23, 4322327); +INSERT INTO SYS_CIDADES VALUES(4319, 'Ubiretama', 23, 4322343); +INSERT INTO SYS_CIDADES VALUES(4320, 'União da Serra', 23, 4322350); +INSERT INTO SYS_CIDADES VALUES(4321, 'Unistalda', 23, 4322376); +INSERT INTO SYS_CIDADES VALUES(4322, 'Uruguaiana', 23, 4322400); +INSERT INTO SYS_CIDADES VALUES(4323, 'Vacaria', 23, 4322509); +INSERT INTO SYS_CIDADES VALUES(4324, 'Vale do Sol', 23, 4322533); +INSERT INTO SYS_CIDADES VALUES(4325, 'Vale Real', 23, 4322541); +INSERT INTO SYS_CIDADES VALUES(4326, 'Vale Verde', 23, 4322525); +INSERT INTO SYS_CIDADES VALUES(4327, 'Vanini', 23, 4322558); +INSERT INTO SYS_CIDADES VALUES(4328, 'Venâncio Aires', 23, 4322608); +INSERT INTO SYS_CIDADES VALUES(4329, 'Vera Cruz', 23, 4322707); +INSERT INTO SYS_CIDADES VALUES(4330, 'Veranópolis', 23, 4322806); +INSERT INTO SYS_CIDADES VALUES(4331, 'Vespasiano Correa', 23, 4322855); +INSERT INTO SYS_CIDADES VALUES(4332, 'Viadutos', 23, 4322905); +INSERT INTO SYS_CIDADES VALUES(4333, 'Viamão', 23, 4323002); +INSERT INTO SYS_CIDADES VALUES(4334, 'Vicente Dutra', 23, 4323101); +INSERT INTO SYS_CIDADES VALUES(4335, 'Victor Graeff', 23, 4323200); +INSERT INTO SYS_CIDADES VALUES(4336, 'Vila Flores', 23, 4323309); +INSERT INTO SYS_CIDADES VALUES(4337, 'Vila Lângaro', 23, 4323358); +INSERT INTO SYS_CIDADES VALUES(4338, 'Vila Maria', 23, 4323408); +INSERT INTO SYS_CIDADES VALUES(4339, 'Vila Nova do Sul', 23, 4323457); +INSERT INTO SYS_CIDADES VALUES(4340, 'Vista Alegre', 23, 4323507); +INSERT INTO SYS_CIDADES VALUES(4341, 'Vista Alegre do Prata', 23, 4323606); +INSERT INTO SYS_CIDADES VALUES(4342, 'Vista Gaúcha', 23, 4323705); +INSERT INTO SYS_CIDADES VALUES(4343, 'Vitória das Missões', 23, 4323754); +INSERT INTO SYS_CIDADES VALUES(4344, 'Westfália', 23, 4323770); +INSERT INTO SYS_CIDADES VALUES(4345, 'Xangri-lá', 23, 4323804); +INSERT INTO SYS_CIDADES VALUES(4346, 'Alta Floresta d`Oeste', 21, 1100015); +INSERT INTO SYS_CIDADES VALUES(4347, 'Alto Alegre dos Parecis', 21, 1100379); +INSERT INTO SYS_CIDADES VALUES(4348, 'Alto Paraíso', 21, 1100403); +INSERT INTO SYS_CIDADES VALUES(4349, 'Alvorada d`Oeste', 21, 1100346); +INSERT INTO SYS_CIDADES VALUES(4350, 'Ariquemes', 21, 1100023); +INSERT INTO SYS_CIDADES VALUES(4351, 'Buritis', 21, 1100452); +INSERT INTO SYS_CIDADES VALUES(4352, 'Cabixi', 21, 1100031); +INSERT INTO SYS_CIDADES VALUES(4353, 'Cacaulândia', 21, 1100601); +INSERT INTO SYS_CIDADES VALUES(4354, 'Cacoal', 21, 1100049); +INSERT INTO SYS_CIDADES VALUES(4355, 'Campo Novo de Rondônia', 21, 1100700); +INSERT INTO SYS_CIDADES VALUES(4356, 'Candeias do Jamari', 21, 1100809); +INSERT INTO SYS_CIDADES VALUES(4357, 'Castanheiras', 21, 1100908); +INSERT INTO SYS_CIDADES VALUES(4358, 'Cerejeiras', 21, 1100056); +INSERT INTO SYS_CIDADES VALUES(4359, 'Chupinguaia', 21, 1100924); +INSERT INTO SYS_CIDADES VALUES(4360, 'Colorado do Oeste', 21, 1100064); +INSERT INTO SYS_CIDADES VALUES(4361, 'Corumbiara', 21, 1100072); +INSERT INTO SYS_CIDADES VALUES(4362, 'Costa Marques', 21, 1100080); +INSERT INTO SYS_CIDADES VALUES(4363, 'Cujubim', 21, 1100940); +INSERT INTO SYS_CIDADES VALUES(4364, 'Espigão d`Oeste', 21, 1100098); +INSERT INTO SYS_CIDADES VALUES(4365, 'Governador Jorge Teixeira', 21, 1101005); +INSERT INTO SYS_CIDADES VALUES(4366, 'Guajará-Mirim', 21, 1100106); +INSERT INTO SYS_CIDADES VALUES(4367, 'Itapuã do Oeste', 21, 1101104); +INSERT INTO SYS_CIDADES VALUES(4368, 'Jaru', 21, 1100114); +INSERT INTO SYS_CIDADES VALUES(4369, 'Ji-Paraná', 21, 1100122); +INSERT INTO SYS_CIDADES VALUES(4370, 'Machadinho d`Oeste', 21, 1100130); +INSERT INTO SYS_CIDADES VALUES(4371, 'Ministro Andreazza', 21, 1101203); +INSERT INTO SYS_CIDADES VALUES(4372, 'Mirante da Serra', 21, 1101302); +INSERT INTO SYS_CIDADES VALUES(4373, 'Monte Negro', 21, 1101401); +INSERT INTO SYS_CIDADES VALUES(4374, 'Nova Brasilândia d`Oeste', 21, 1100148); +INSERT INTO SYS_CIDADES VALUES(4375, 'Nova Mamoré', 21, 1100338); +INSERT INTO SYS_CIDADES VALUES(4376, 'Nova União', 21, 1101435); +INSERT INTO SYS_CIDADES VALUES(4377, 'Novo Horizonte do Oeste', 21, 1100502); +INSERT INTO SYS_CIDADES VALUES(4378, 'Ouro Preto do Oeste', 21, 1100155); +INSERT INTO SYS_CIDADES VALUES(4379, 'Parecis', 21, 1101450); +INSERT INTO SYS_CIDADES VALUES(4380, 'Pimenta Bueno', 21, 1100189); +INSERT INTO SYS_CIDADES VALUES(4381, 'Pimenteiras do Oeste', 21, 1101468); +INSERT INTO SYS_CIDADES VALUES(4382, 'Porto Velho', 21, 1100205); +INSERT INTO SYS_CIDADES VALUES(4383, 'Presidente Médici', 21, 1100254); +INSERT INTO SYS_CIDADES VALUES(4384, 'Primavera de Rondônia', 21, 1101476); +INSERT INTO SYS_CIDADES VALUES(4385, 'Rio Crespo', 21, 1100262); +INSERT INTO SYS_CIDADES VALUES(4386, 'Rolim de Moura', 21, 1100288); +INSERT INTO SYS_CIDADES VALUES(4387, 'Santa Luzia d`Oeste', 21, 1100296); +INSERT INTO SYS_CIDADES VALUES(4388, 'São Felipe d`Oeste', 21, 1101484); +INSERT INTO SYS_CIDADES VALUES(4389, 'São Francisco do Guaporé', 21, 1101492); +INSERT INTO SYS_CIDADES VALUES(4390, 'São Miguel do Guaporé', 21, 1100320); +INSERT INTO SYS_CIDADES VALUES(4391, 'Seringueiras', 21, 1101500); +INSERT INTO SYS_CIDADES VALUES(4392, 'Teixeirópolis', 21, 1101559); +INSERT INTO SYS_CIDADES VALUES(4393, 'Theobroma', 21, 1101609); +INSERT INTO SYS_CIDADES VALUES(4394, 'Urupá', 21, 1101708); +INSERT INTO SYS_CIDADES VALUES(4395, 'Vale do Anari', 21, 1101757); +INSERT INTO SYS_CIDADES VALUES(4396, 'Vale do Paraíso', 21, 1101807); +INSERT INTO SYS_CIDADES VALUES(4397, 'Vilhena', 21, 1100304); +INSERT INTO SYS_CIDADES VALUES(4398, 'Alto Alegre', 22, 1400050); +INSERT INTO SYS_CIDADES VALUES(4399, 'Amajari', 22, 1400027); +INSERT INTO SYS_CIDADES VALUES(4400, 'Boa Vista', 22, 1400100); +INSERT INTO SYS_CIDADES VALUES(4401, 'Bonfim', 22, 1400159); +INSERT INTO SYS_CIDADES VALUES(4402, 'Cantá', 22, 1400175); +INSERT INTO SYS_CIDADES VALUES(4403, 'Caracaraí', 22, 1400209); +INSERT INTO SYS_CIDADES VALUES(4404, 'Caroebe', 22, 1400233); +INSERT INTO SYS_CIDADES VALUES(4405, 'Iracema', 22, 1400282); +INSERT INTO SYS_CIDADES VALUES(4406, 'Mucajaí', 22, 1400308); +INSERT INTO SYS_CIDADES VALUES(4407, 'Normandia', 22, 1400407); +INSERT INTO SYS_CIDADES VALUES(4408, 'Pacaraima', 22, 1400456); +INSERT INTO SYS_CIDADES VALUES(4409, 'Rorainópolis', 22, 1400472); +INSERT INTO SYS_CIDADES VALUES(4410, 'São João da Baliza', 22, 1400506); +INSERT INTO SYS_CIDADES VALUES(4411, 'São Luiz', 22, 1400605); +INSERT INTO SYS_CIDADES VALUES(4412, 'Uiramutã', 22, 1400704); +INSERT INTO SYS_CIDADES VALUES(4413, 'Abdon Batista', 24, 4200051); +INSERT INTO SYS_CIDADES VALUES(4414, 'Abelardo Luz', 24, 4200101); +INSERT INTO SYS_CIDADES VALUES(4415, 'Agrolândia', 24, 4200200); +INSERT INTO SYS_CIDADES VALUES(4416, 'Agronômica', 24, 4200309); +INSERT INTO SYS_CIDADES VALUES(4417, 'Água Doce', 24, 4200408); +INSERT INTO SYS_CIDADES VALUES(4418, 'Águas de Chapecó', 24, 4200507); +INSERT INTO SYS_CIDADES VALUES(4419, 'Águas Frias', 24, 4200556); +INSERT INTO SYS_CIDADES VALUES(4420, 'Águas Mornas', 24, 4200606); +INSERT INTO SYS_CIDADES VALUES(4421, 'Alfredo Wagner', 24, 4200705); +INSERT INTO SYS_CIDADES VALUES(4422, 'Alto Bela Vista', 24, 4200754); +INSERT INTO SYS_CIDADES VALUES(4423, 'Anchieta', 24, 4200804); +INSERT INTO SYS_CIDADES VALUES(4424, 'Angelina', 24, 4200903); +INSERT INTO SYS_CIDADES VALUES(4425, 'Anita Garibaldi', 24, 4201000); +INSERT INTO SYS_CIDADES VALUES(4426, 'Anitápolis', 24, 4201109); +INSERT INTO SYS_CIDADES VALUES(4427, 'Antônio Carlos', 24, 4201208); +INSERT INTO SYS_CIDADES VALUES(4428, 'Apiúna', 24, 4201257); +INSERT INTO SYS_CIDADES VALUES(4429, 'Arabutã', 24, 4201273); +INSERT INTO SYS_CIDADES VALUES(4430, 'Araquari', 24, 4201307); +INSERT INTO SYS_CIDADES VALUES(4431, 'Araranguá', 24, 4201406); +INSERT INTO SYS_CIDADES VALUES(4432, 'Armazém', 24, 4201505); +INSERT INTO SYS_CIDADES VALUES(4433, 'Arroio Trinta', 24, 4201604); +INSERT INTO SYS_CIDADES VALUES(4434, 'Arvoredo', 24, 4201653); +INSERT INTO SYS_CIDADES VALUES(4435, 'Ascurra', 24, 4201703); +INSERT INTO SYS_CIDADES VALUES(4436, 'Atalanta', 24, 4201802); +INSERT INTO SYS_CIDADES VALUES(4437, 'Aurora', 24, 4201901); +INSERT INTO SYS_CIDADES VALUES(4438, 'Balneário Arroio do Silva', 24, 4201950); +INSERT INTO SYS_CIDADES VALUES(4439, 'Balneário Barra do Sul', 24, 4202057); +INSERT INTO SYS_CIDADES VALUES(4440, 'Balneário Camboriú', 24, 4202008); +INSERT INTO SYS_CIDADES VALUES(4441, 'Balneário Gaivota', 24, 4202073); +INSERT INTO SYS_CIDADES VALUES(4442, 'Bandeirante', 24, 4202081); +INSERT INTO SYS_CIDADES VALUES(4443, 'Barra Bonita', 24, 4202099); +INSERT INTO SYS_CIDADES VALUES(4444, 'Barra Velha', 24, 4202107); +INSERT INTO SYS_CIDADES VALUES(4445, 'Bela Vista do Toldo', 24, 4202131); +INSERT INTO SYS_CIDADES VALUES(4446, 'Belmonte', 24, 4202156); +INSERT INTO SYS_CIDADES VALUES(4447, 'Benedito Novo', 24, 4202206); +INSERT INTO SYS_CIDADES VALUES(4448, 'Biguaçu', 24, 4202305); +INSERT INTO SYS_CIDADES VALUES(4449, 'Blumenau', 24, 4202404); +INSERT INTO SYS_CIDADES VALUES(4450, 'Bocaina do Sul', 24, 4202438); +INSERT INTO SYS_CIDADES VALUES(4451, 'Bom Jardim da Serra', 24, 4202503); +INSERT INTO SYS_CIDADES VALUES(4452, 'Bom Jesus', 24, 4202537); +INSERT INTO SYS_CIDADES VALUES(4453, 'Bom Jesus do Oeste', 24, 4202578); +INSERT INTO SYS_CIDADES VALUES(4454, 'Bom Retiro', 24, 4202602); +INSERT INTO SYS_CIDADES VALUES(4455, 'Bombinhas', 24, 4202453); +INSERT INTO SYS_CIDADES VALUES(4456, 'Botuverá', 24, 4202701); +INSERT INTO SYS_CIDADES VALUES(4457, 'Braço do Norte', 24, 4202800); +INSERT INTO SYS_CIDADES VALUES(4458, 'Braço do Trombudo', 24, 4202859); +INSERT INTO SYS_CIDADES VALUES(4459, 'Brunópolis', 24, 4202875); +INSERT INTO SYS_CIDADES VALUES(4460, 'Brusque', 24, 4202909); +INSERT INTO SYS_CIDADES VALUES(4461, 'Caçador', 24, 4203006); +INSERT INTO SYS_CIDADES VALUES(4462, 'Caibi', 24, 4203105); +INSERT INTO SYS_CIDADES VALUES(4463, 'Calmon', 24, 4203154); +INSERT INTO SYS_CIDADES VALUES(4464, 'Camboriú', 24, 4203204); +INSERT INTO SYS_CIDADES VALUES(4465, 'Campo Alegre', 24, 4203303); +INSERT INTO SYS_CIDADES VALUES(4466, 'Campo Belo do Sul', 24, 4203402); +INSERT INTO SYS_CIDADES VALUES(4467, 'Campo Erê', 24, 4203501); +INSERT INTO SYS_CIDADES VALUES(4468, 'Campos Novos', 24, 4203600); +INSERT INTO SYS_CIDADES VALUES(4469, 'Canelinha', 24, 4203709); +INSERT INTO SYS_CIDADES VALUES(4470, 'Canoinhas', 24, 4203808); +INSERT INTO SYS_CIDADES VALUES(4471, 'Capão Alto', 24, 4203253); +INSERT INTO SYS_CIDADES VALUES(4472, 'Capinzal', 24, 4203907); +INSERT INTO SYS_CIDADES VALUES(4473, 'Capivari de Baixo', 24, 4203956); +INSERT INTO SYS_CIDADES VALUES(4474, 'Catanduvas', 24, 4204004); +INSERT INTO SYS_CIDADES VALUES(4475, 'Caxambu do Sul', 24, 4204103); +INSERT INTO SYS_CIDADES VALUES(4476, 'Celso Ramos', 24, 4204152); +INSERT INTO SYS_CIDADES VALUES(4477, 'Cerro Negro', 24, 4204178); +INSERT INTO SYS_CIDADES VALUES(4478, 'Chapadão do Lageado', 24, 4204194); +INSERT INTO SYS_CIDADES VALUES(4479, 'Chapecó', 24, 4204202); +INSERT INTO SYS_CIDADES VALUES(4480, 'Cocal do Sul', 24, 4204251); +INSERT INTO SYS_CIDADES VALUES(4481, 'Concórdia', 24, 4204301); +INSERT INTO SYS_CIDADES VALUES(4482, 'Cordilheira Alta', 24, 4204350); +INSERT INTO SYS_CIDADES VALUES(4483, 'Coronel Freitas', 24, 4204400); +INSERT INTO SYS_CIDADES VALUES(4484, 'Coronel Martins', 24, 4204459); +INSERT INTO SYS_CIDADES VALUES(4485, 'Correia Pinto', 24, 4204558); +INSERT INTO SYS_CIDADES VALUES(4486, 'Corupá', 24, 4204509); +INSERT INTO SYS_CIDADES VALUES(4487, 'Criciúma', 24, 4204608); +INSERT INTO SYS_CIDADES VALUES(4488, 'Cunha Porã', 24, 4204707); +INSERT INTO SYS_CIDADES VALUES(4489, 'Cunhataí', 24, 4204756); +INSERT INTO SYS_CIDADES VALUES(4490, 'Curitibanos', 24, 4204806); +INSERT INTO SYS_CIDADES VALUES(4491, 'Descanso', 24, 4204905); +INSERT INTO SYS_CIDADES VALUES(4492, 'Dionísio Cerqueira', 24, 4205001); +INSERT INTO SYS_CIDADES VALUES(4493, 'Dona Emma', 24, 4205100); +INSERT INTO SYS_CIDADES VALUES(4494, 'Doutor Pedrinho', 24, 4205159); +INSERT INTO SYS_CIDADES VALUES(4495, 'Entre Rios', 24, 4205175); +INSERT INTO SYS_CIDADES VALUES(4496, 'Ermo', 24, 4205191); +INSERT INTO SYS_CIDADES VALUES(4497, 'Erval Velho', 24, 4205209); +INSERT INTO SYS_CIDADES VALUES(4498, 'Faxinal dos Guedes', 24, 4205308); +INSERT INTO SYS_CIDADES VALUES(4499, 'Flor do Sertão', 24, 4205357); +INSERT INTO SYS_CIDADES VALUES(4500, 'Florianópolis', 24, 4205407); +INSERT INTO SYS_CIDADES VALUES(4501, 'Formosa do Sul', 24, 4205431); +INSERT INTO SYS_CIDADES VALUES(4502, 'Forquilhinha', 24, 4205456); +INSERT INTO SYS_CIDADES VALUES(4503, 'Fraiburgo', 24, 4205506); +INSERT INTO SYS_CIDADES VALUES(4504, 'Frei Rogério', 24, 4205555); +INSERT INTO SYS_CIDADES VALUES(4505, 'Galvão', 24, 4205605); +INSERT INTO SYS_CIDADES VALUES(4506, 'Garopaba', 24, 4205704); +INSERT INTO SYS_CIDADES VALUES(4507, 'Garuva', 24, 4205803); +INSERT INTO SYS_CIDADES VALUES(4508, 'Gaspar', 24, 4205902); +INSERT INTO SYS_CIDADES VALUES(4509, 'Governador Celso Ramos', 24, 4206009); +INSERT INTO SYS_CIDADES VALUES(4510, 'Grão Pará', 24, 4206108); +INSERT INTO SYS_CIDADES VALUES(4511, 'Gravatal', 24, 4206207); +INSERT INTO SYS_CIDADES VALUES(4512, 'Guabiruba', 24, 4206306); +INSERT INTO SYS_CIDADES VALUES(4513, 'Guaraciaba', 24, 4206405); +INSERT INTO SYS_CIDADES VALUES(4514, 'Guaramirim', 24, 4206504); +INSERT INTO SYS_CIDADES VALUES(4515, 'Guarujá do Sul', 24, 4206603); +INSERT INTO SYS_CIDADES VALUES(4516, 'Guatambú', 24, 4206652); +INSERT INTO SYS_CIDADES VALUES(4517, 'Herval d`Oeste', 24, 4206702); +INSERT INTO SYS_CIDADES VALUES(4518, 'Ibiam', 24, 4206751); +INSERT INTO SYS_CIDADES VALUES(4519, 'Ibicaré', 24, 4206801); +INSERT INTO SYS_CIDADES VALUES(4520, 'Ibirama', 24, 4206900); +INSERT INTO SYS_CIDADES VALUES(4521, 'Içara', 24, 4207007); +INSERT INTO SYS_CIDADES VALUES(4522, 'Ilhota', 24, 4207106); +INSERT INTO SYS_CIDADES VALUES(4523, 'Imaruí', 24, 4207205); +INSERT INTO SYS_CIDADES VALUES(4524, 'Imbituba', 24, 4207304); +INSERT INTO SYS_CIDADES VALUES(4525, 'Imbuia', 24, 4207403); +INSERT INTO SYS_CIDADES VALUES(4526, 'Indaial', 24, 4207502); +INSERT INTO SYS_CIDADES VALUES(4527, 'Iomerê', 24, 4207577); +INSERT INTO SYS_CIDADES VALUES(4528, 'Ipira', 24, 4207601); +INSERT INTO SYS_CIDADES VALUES(4529, 'Iporã do Oeste', 24, 4207650); +INSERT INTO SYS_CIDADES VALUES(4530, 'Ipuaçu', 24, 4207684); +INSERT INTO SYS_CIDADES VALUES(4531, 'Ipumirim', 24, 4207700); +INSERT INTO SYS_CIDADES VALUES(4532, 'Iraceminha', 24, 4207759); +INSERT INTO SYS_CIDADES VALUES(4533, 'Irani', 24, 4207809); +INSERT INTO SYS_CIDADES VALUES(4534, 'Irati', 24, 4207858); +INSERT INTO SYS_CIDADES VALUES(4535, 'Irineópolis', 24, 4207908); +INSERT INTO SYS_CIDADES VALUES(4536, 'Itá', 24, 4208005); +INSERT INTO SYS_CIDADES VALUES(4537, 'Itaiópolis', 24, 4208104); +INSERT INTO SYS_CIDADES VALUES(4538, 'Itajaí', 24, 4208203); +INSERT INTO SYS_CIDADES VALUES(4539, 'Itapema', 24, 4208302); +INSERT INTO SYS_CIDADES VALUES(4540, 'Itapiranga', 24, 4208401); +INSERT INTO SYS_CIDADES VALUES(4541, 'Itapoá', 24, 4208450); +INSERT INTO SYS_CIDADES VALUES(4542, 'Ituporanga', 24, 4208500); +INSERT INTO SYS_CIDADES VALUES(4543, 'Jaborá', 24, 4208609); +INSERT INTO SYS_CIDADES VALUES(4544, 'Jacinto Machado', 24, 4208708); +INSERT INTO SYS_CIDADES VALUES(4545, 'Jaguaruna', 24, 4208807); +INSERT INTO SYS_CIDADES VALUES(4546, 'Jaraguá do Sul', 24, 4208906); +INSERT INTO SYS_CIDADES VALUES(4547, 'Jardinópolis', 24, 4208955); +INSERT INTO SYS_CIDADES VALUES(4548, 'Joaçaba', 24, 4209003); +INSERT INTO SYS_CIDADES VALUES(4549, 'Joinville', 24, 4209102); +INSERT INTO SYS_CIDADES VALUES(4550, 'José Boiteux', 24, 4209151); +INSERT INTO SYS_CIDADES VALUES(4551, 'Jupiá', 24, 4209177); +INSERT INTO SYS_CIDADES VALUES(4552, 'Lacerdópolis', 24, 4209201); +INSERT INTO SYS_CIDADES VALUES(4553, 'Lages', 24, 4209300); +INSERT INTO SYS_CIDADES VALUES(4554, 'Laguna', 24, 4209409); +INSERT INTO SYS_CIDADES VALUES(4555, 'Lajeado Grande', 24, 4209458); +INSERT INTO SYS_CIDADES VALUES(4556, 'Laurentino', 24, 4209508); +INSERT INTO SYS_CIDADES VALUES(4557, 'Lauro Muller', 24, 4209607); +INSERT INTO SYS_CIDADES VALUES(4558, 'Lebon Régis', 24, 4209706); +INSERT INTO SYS_CIDADES VALUES(4559, 'Leoberto Leal', 24, 4209805); +INSERT INTO SYS_CIDADES VALUES(4560, 'Lindóia do Sul', 24, 4209854); +INSERT INTO SYS_CIDADES VALUES(4561, 'Lontras', 24, 4209904); +INSERT INTO SYS_CIDADES VALUES(4562, 'Luiz Alves', 24, 4210001); +INSERT INTO SYS_CIDADES VALUES(4563, 'Luzerna', 24, 4210035); +INSERT INTO SYS_CIDADES VALUES(4564, 'Macieira', 24, 4210050); +INSERT INTO SYS_CIDADES VALUES(4565, 'Mafra', 24, 4210100); +INSERT INTO SYS_CIDADES VALUES(4566, 'Major Gercino', 24, 4210209); +INSERT INTO SYS_CIDADES VALUES(4567, 'Major Vieira', 24, 4210308); +INSERT INTO SYS_CIDADES VALUES(4568, 'Maracajá', 24, 4210407); +INSERT INTO SYS_CIDADES VALUES(4569, 'Maravilha', 24, 4210506); +INSERT INTO SYS_CIDADES VALUES(4570, 'Marema', 24, 4210555); +INSERT INTO SYS_CIDADES VALUES(4571, 'Massaranduba', 24, 4210605); +INSERT INTO SYS_CIDADES VALUES(4572, 'Matos Costa', 24, 4210704); +INSERT INTO SYS_CIDADES VALUES(4573, 'Meleiro', 24, 4210803); +INSERT INTO SYS_CIDADES VALUES(4574, 'Mirim Doce', 24, 4210852); +INSERT INTO SYS_CIDADES VALUES(4575, 'Modelo', 24, 4210902); +INSERT INTO SYS_CIDADES VALUES(4576, 'Mondaí', 24, 4211009); +INSERT INTO SYS_CIDADES VALUES(4577, 'Monte Carlo', 24, 4211058); +INSERT INTO SYS_CIDADES VALUES(4578, 'Monte Castelo', 24, 4211108); +INSERT INTO SYS_CIDADES VALUES(4579, 'Morro da Fumaça', 24, 4211207); +INSERT INTO SYS_CIDADES VALUES(4580, 'Morro Grande', 24, 4211256); +INSERT INTO SYS_CIDADES VALUES(4581, 'Navegantes', 24, 4211306); +INSERT INTO SYS_CIDADES VALUES(4582, 'Nova Erechim', 24, 4211405); +INSERT INTO SYS_CIDADES VALUES(4583, 'Nova Itaberaba', 24, 4211454); +INSERT INTO SYS_CIDADES VALUES(4584, 'Nova Trento', 24, 4211504); +INSERT INTO SYS_CIDADES VALUES(4585, 'Nova Veneza', 24, 4211603); +INSERT INTO SYS_CIDADES VALUES(4586, 'Novo Horizonte', 24, 4211652); +INSERT INTO SYS_CIDADES VALUES(4587, 'Orleans', 24, 4211702); +INSERT INTO SYS_CIDADES VALUES(4588, 'Otacílio Costa', 24, 4211751); +INSERT INTO SYS_CIDADES VALUES(4589, 'Ouro', 24, 4211801); +INSERT INTO SYS_CIDADES VALUES(4590, 'Ouro Verde', 24, 4211850); +INSERT INTO SYS_CIDADES VALUES(4591, 'Paial', 24, 4211876); +INSERT INTO SYS_CIDADES VALUES(4592, 'Painel', 24, 4211892); +INSERT INTO SYS_CIDADES VALUES(4593, 'Palhoça', 24, 4211900); +INSERT INTO SYS_CIDADES VALUES(4594, 'Palma Sola', 24, 4212007); +INSERT INTO SYS_CIDADES VALUES(4595, 'Palmeira', 24, 4212056); +INSERT INTO SYS_CIDADES VALUES(4596, 'Palmitos', 24, 4212106); +INSERT INTO SYS_CIDADES VALUES(4597, 'Papanduva', 24, 4212205); +INSERT INTO SYS_CIDADES VALUES(4598, 'Paraíso', 24, 4212239); +INSERT INTO SYS_CIDADES VALUES(4599, 'Passo de Torres', 24, 4212254); +INSERT INTO SYS_CIDADES VALUES(4600, 'Passos Maia', 24, 4212270); +INSERT INTO SYS_CIDADES VALUES(4601, 'Paulo Lopes', 24, 4212304); +INSERT INTO SYS_CIDADES VALUES(4602, 'Pedras Grandes', 24, 4212403); +INSERT INTO SYS_CIDADES VALUES(4603, 'Penha', 24, 4212502); +INSERT INTO SYS_CIDADES VALUES(4604, 'Peritiba', 24, 4212601); +INSERT INTO SYS_CIDADES VALUES(4605, 'Petrolândia', 24, 4212700); +INSERT INTO SYS_CIDADES VALUES(4606, 'Balneário Piçarras', 24, 4212809); +INSERT INTO SYS_CIDADES VALUES(4607, 'Pinhalzinho', 24, 4212908); +INSERT INTO SYS_CIDADES VALUES(4608, 'Pinheiro Preto', 24, 4213005); +INSERT INTO SYS_CIDADES VALUES(4609, 'Piratuba', 24, 4213104); +INSERT INTO SYS_CIDADES VALUES(4610, 'Planalto Alegre', 24, 4213153); +INSERT INTO SYS_CIDADES VALUES(4611, 'Pomerode', 24, 4213203); +INSERT INTO SYS_CIDADES VALUES(4612, 'Ponte Alta', 24, 4213302); +INSERT INTO SYS_CIDADES VALUES(4613, 'Ponte Alta do Norte', 24, 4213351); +INSERT INTO SYS_CIDADES VALUES(4614, 'Ponte Serrada', 24, 4213401); +INSERT INTO SYS_CIDADES VALUES(4615, 'Porto Belo', 24, 4213500); +INSERT INTO SYS_CIDADES VALUES(4616, 'Porto União', 24, 4213609); +INSERT INTO SYS_CIDADES VALUES(4617, 'Pouso Redondo', 24, 4213708); +INSERT INTO SYS_CIDADES VALUES(4618, 'Praia Grande', 24, 4213807); +INSERT INTO SYS_CIDADES VALUES(4620, 'Presidente Getúlio', 24, 4214003); +INSERT INTO SYS_CIDADES VALUES(4621, 'Presidente Nereu', 24, 4214102); +INSERT INTO SYS_CIDADES VALUES(4622, 'Princesa', 24, 4214151); +INSERT INTO SYS_CIDADES VALUES(4623, 'Quilombo', 24, 4214201); +INSERT INTO SYS_CIDADES VALUES(4624, 'Rancho Queimado', 24, 4214300); +INSERT INTO SYS_CIDADES VALUES(4625, 'Rio das Antas', 24, 4214409); +INSERT INTO SYS_CIDADES VALUES(4626, 'Rio do Campo', 24, 4214508); +INSERT INTO SYS_CIDADES VALUES(4627, 'Rio do Oeste', 24, 4214607); +INSERT INTO SYS_CIDADES VALUES(4628, 'Rio do Sul', 24, 4214805); +INSERT INTO SYS_CIDADES VALUES(4629, 'Rio dos Cedros', 24, 4214706); +INSERT INTO SYS_CIDADES VALUES(4630, 'Rio Fortuna', 24, 4214904); +INSERT INTO SYS_CIDADES VALUES(4631, 'Rio Negrinho', 24, 4215000); +INSERT INTO SYS_CIDADES VALUES(4632, 'Rio Rufino', 24, 4215059); +INSERT INTO SYS_CIDADES VALUES(4633, 'Riqueza', 24, 4215075); +INSERT INTO SYS_CIDADES VALUES(4634, 'Rodeio', 24, 4215109); +INSERT INTO SYS_CIDADES VALUES(4635, 'Romelândia', 24, 4215208); +INSERT INTO SYS_CIDADES VALUES(4636, 'Salete', 24, 4215307); +INSERT INTO SYS_CIDADES VALUES(4637, 'Saltinho', 24, 4215356); +INSERT INTO SYS_CIDADES VALUES(4638, 'Salto Veloso', 24, 4215406); +INSERT INTO SYS_CIDADES VALUES(4639, 'Sangão', 24, 4215455); +INSERT INTO SYS_CIDADES VALUES(4640, 'Santa Cecília', 24, 4215505); +INSERT INTO SYS_CIDADES VALUES(4641, 'Santa Helena', 24, 4215554); +INSERT INTO SYS_CIDADES VALUES(4642, 'Santa Rosa de Lima', 24, 4215604); +INSERT INTO SYS_CIDADES VALUES(4643, 'Santa Rosa do Sul', 24, 4215653); +INSERT INTO SYS_CIDADES VALUES(4644, 'Santa Terezinha', 24, 4215679); +INSERT INTO SYS_CIDADES VALUES(4645, 'Santa Terezinha do Progresso', 24, 4215687); +INSERT INTO SYS_CIDADES VALUES(4646, 'Santiago do Sul', 24, 4215695); +INSERT INTO SYS_CIDADES VALUES(4647, 'Santo Amaro da Imperatriz', 24, 4215703); +INSERT INTO SYS_CIDADES VALUES(4648, 'São Bento do Sul', 24, 4215802); +INSERT INTO SYS_CIDADES VALUES(4649, 'São Bernardino', 24, 4215752); +INSERT INTO SYS_CIDADES VALUES(4650, 'São Bonifácio', 24, 4215901); +INSERT INTO SYS_CIDADES VALUES(4651, 'São Carlos', 24, 4216008); +INSERT INTO SYS_CIDADES VALUES(4652, 'São Cristovão do Sul', 24, 4216057); +INSERT INTO SYS_CIDADES VALUES(4653, 'São Domingos', 24, 4216107); +INSERT INTO SYS_CIDADES VALUES(4654, 'São Francisco do Sul', 24, 4216206); +INSERT INTO SYS_CIDADES VALUES(4655, 'São João Batista', 24, 4216305); +INSERT INTO SYS_CIDADES VALUES(4656, 'São João do Itaperiú', 24, 4216354); +INSERT INTO SYS_CIDADES VALUES(4657, 'São João do Oeste', 24, 4216255); +INSERT INTO SYS_CIDADES VALUES(4658, 'São João do Sul', 24, 4216404); +INSERT INTO SYS_CIDADES VALUES(4659, 'São Joaquim', 24, 4216503); +INSERT INTO SYS_CIDADES VALUES(4660, 'São José', 24, 4216602); +INSERT INTO SYS_CIDADES VALUES(4661, 'São José do Cedro', 24, 4216701); +INSERT INTO SYS_CIDADES VALUES(4662, 'São José do Cerrito', 24, 4216800); +INSERT INTO SYS_CIDADES VALUES(4663, 'São Lourenço do Oeste', 24, 4216909); +INSERT INTO SYS_CIDADES VALUES(4664, 'São Ludgero', 24, 4217006); +INSERT INTO SYS_CIDADES VALUES(4665, 'São Martinho', 24, 4217105); +INSERT INTO SYS_CIDADES VALUES(4666, 'São Miguel da Boa Vista', 24, 4217154); +INSERT INTO SYS_CIDADES VALUES(4667, 'São Miguel do Oeste', 24, 4217204); +INSERT INTO SYS_CIDADES VALUES(4668, 'São Pedro de Alcântara', 24, 4217253); +INSERT INTO SYS_CIDADES VALUES(4669, 'Saudades', 24, 4217303); +INSERT INTO SYS_CIDADES VALUES(4670, 'Schroeder', 24, 4217402); +INSERT INTO SYS_CIDADES VALUES(4671, 'Seara', 24, 4217501); +INSERT INTO SYS_CIDADES VALUES(4672, 'Serra Alta', 24, 4217550); +INSERT INTO SYS_CIDADES VALUES(4673, 'Siderópolis', 24, 4217600); +INSERT INTO SYS_CIDADES VALUES(4674, 'Sombrio', 24, 4217709); +INSERT INTO SYS_CIDADES VALUES(4675, 'Sul Brasil', 24, 4217758); +INSERT INTO SYS_CIDADES VALUES(4676, 'Taió', 24, 4217808); +INSERT INTO SYS_CIDADES VALUES(4677, 'Tangará', 24, 4217907); +INSERT INTO SYS_CIDADES VALUES(4678, 'Tigrinhos', 24, 4217956); +INSERT INTO SYS_CIDADES VALUES(4679, 'Tijucas', 24, 4218004); +INSERT INTO SYS_CIDADES VALUES(4680, 'Timbé do Sul', 24, 4218103); +INSERT INTO SYS_CIDADES VALUES(4681, 'Timbó', 24, 4218202); +INSERT INTO SYS_CIDADES VALUES(4682, 'Timbó Grande', 24, 4218251); +INSERT INTO SYS_CIDADES VALUES(4683, 'Três Barras', 24, 4218301); +INSERT INTO SYS_CIDADES VALUES(4684, 'Treviso', 24, 4218350); +INSERT INTO SYS_CIDADES VALUES(4685, 'Treze de Maio', 24, 4218400); +INSERT INTO SYS_CIDADES VALUES(4686, 'Treze Tílias', 24, 4218509); +INSERT INTO SYS_CIDADES VALUES(4687, 'Trombudo Central', 24, 4218608); +INSERT INTO SYS_CIDADES VALUES(4688, 'Tubarão', 24, 4218707); +INSERT INTO SYS_CIDADES VALUES(4689, 'Tunápolis', 24, 4218756); +INSERT INTO SYS_CIDADES VALUES(4690, 'Turvo', 24, 4218806); +INSERT INTO SYS_CIDADES VALUES(4691, 'União do Oeste', 24, 4218855); +INSERT INTO SYS_CIDADES VALUES(4692, 'Urubici', 24, 4218905); +INSERT INTO SYS_CIDADES VALUES(4693, 'Urupema', 24, 4218954); +INSERT INTO SYS_CIDADES VALUES(4694, 'Urussanga', 24, 4219002); +INSERT INTO SYS_CIDADES VALUES(4695, 'Vargeão', 24, 4219101); +INSERT INTO SYS_CIDADES VALUES(4696, 'Vargem', 24, 4219150); +INSERT INTO SYS_CIDADES VALUES(4697, 'Vargem Bonita', 24, 4219176); +INSERT INTO SYS_CIDADES VALUES(4698, 'Vidal Ramos', 24, 4219200); +INSERT INTO SYS_CIDADES VALUES(4699, 'Videira', 24, 4219309); +INSERT INTO SYS_CIDADES VALUES(4700, 'Vitor Meireles', 24, 4219358); +INSERT INTO SYS_CIDADES VALUES(4701, 'Witmarsum', 24, 4219408); +INSERT INTO SYS_CIDADES VALUES(4702, 'Xanxerê', 24, 4219507); +INSERT INTO SYS_CIDADES VALUES(4703, 'Xavantina', 24, 4219606); +INSERT INTO SYS_CIDADES VALUES(4704, 'Xaxim', 24, 4219705); +INSERT INTO SYS_CIDADES VALUES(4705, 'Zortéa', 24, 4219853); +INSERT INTO SYS_CIDADES VALUES(4706, 'Adamantina', 26, 3500105); +INSERT INTO SYS_CIDADES VALUES(4707, 'Adolfo', 26, 3500204); +INSERT INTO SYS_CIDADES VALUES(4708, 'Aguaí', 26, 3500303); +INSERT INTO SYS_CIDADES VALUES(4709, 'Águas da Prata', 26, 3500402); +INSERT INTO SYS_CIDADES VALUES(4710, 'Águas de Lindóia', 26, 3500501); +INSERT INTO SYS_CIDADES VALUES(4711, 'Águas de Santa Bárbara', 26, 3500550); +INSERT INTO SYS_CIDADES VALUES(4712, 'Águas de São Pedro', 26, 3500600); +INSERT INTO SYS_CIDADES VALUES(4713, 'Agudos', 26, 3500709); +INSERT INTO SYS_CIDADES VALUES(4714, 'Alambari', 26, 3500758); +INSERT INTO SYS_CIDADES VALUES(4715, 'Alfredo Marcondes', 26, 3500808); +INSERT INTO SYS_CIDADES VALUES(4716, 'Altair', 26, 3500907); +INSERT INTO SYS_CIDADES VALUES(4717, 'Altinópolis', 26, 3501004); +INSERT INTO SYS_CIDADES VALUES(4718, 'Alto Alegre', 26, 3501103); +INSERT INTO SYS_CIDADES VALUES(4719, 'Alumínio', 26, 3501152); +INSERT INTO SYS_CIDADES VALUES(4720, 'Álvares Florence', 26, 3501202); +INSERT INTO SYS_CIDADES VALUES(4721, 'Álvares Machado', 26, 3501301); +INSERT INTO SYS_CIDADES VALUES(4722, 'Álvaro de Carvalho', 26, 3501400); +INSERT INTO SYS_CIDADES VALUES(4723, 'Alvinlândia', 26, 3501509); +INSERT INTO SYS_CIDADES VALUES(4724, 'Americana', 26, 3501608); +INSERT INTO SYS_CIDADES VALUES(4725, 'Américo Brasiliense', 26, 3501707); +INSERT INTO SYS_CIDADES VALUES(4726, 'Américo de Campos', 26, 3501806); +INSERT INTO SYS_CIDADES VALUES(4727, 'Amparo', 26, 3501905); +INSERT INTO SYS_CIDADES VALUES(4728, 'Analândia', 26, 3502002); +INSERT INTO SYS_CIDADES VALUES(4729, 'Andradina', 26, 3502101); +INSERT INTO SYS_CIDADES VALUES(4730, 'Angatuba', 26, 3502200); +INSERT INTO SYS_CIDADES VALUES(4731, 'Anhembi', 26, 3502309); +INSERT INTO SYS_CIDADES VALUES(4732, 'Anhumas', 26, 3502408); +INSERT INTO SYS_CIDADES VALUES(4733, 'Aparecida', 26, 3502507); +INSERT INTO SYS_CIDADES VALUES(4734, 'Aparecida d`Oeste', 26, 3502606); +INSERT INTO SYS_CIDADES VALUES(4735, 'Apiaí', 26, 3502705); +INSERT INTO SYS_CIDADES VALUES(4736, 'Araçariguama', 26, 3502754); +INSERT INTO SYS_CIDADES VALUES(4737, 'Araçatuba', 26, 3502804); +INSERT INTO SYS_CIDADES VALUES(4738, 'Araçoiaba da Serra', 26, 3502903); +INSERT INTO SYS_CIDADES VALUES(4739, 'Aramina', 26, 3503000); +INSERT INTO SYS_CIDADES VALUES(4740, 'Arandu', 26, 3503109); +INSERT INTO SYS_CIDADES VALUES(4741, 'Arapeí', 26, 3503158); +INSERT INTO SYS_CIDADES VALUES(4742, 'Araraquara', 26, 3503208); +INSERT INTO SYS_CIDADES VALUES(4743, 'Araras', 26, 3503307); +INSERT INTO SYS_CIDADES VALUES(4744, 'Arco-Íris', 26, 3503356); +INSERT INTO SYS_CIDADES VALUES(4745, 'Arealva', 26, 3503406); +INSERT INTO SYS_CIDADES VALUES(4746, 'Areias', 26, 3503505); +INSERT INTO SYS_CIDADES VALUES(4747, 'Areiópolis', 26, 3503604); +INSERT INTO SYS_CIDADES VALUES(4748, 'Ariranha', 26, 3503703); +INSERT INTO SYS_CIDADES VALUES(4749, 'Artur Nogueira', 26, 3503802); +INSERT INTO SYS_CIDADES VALUES(4750, 'Arujá', 26, 3503901); +INSERT INTO SYS_CIDADES VALUES(4751, 'Aspásia', 26, 3503950); +INSERT INTO SYS_CIDADES VALUES(4752, 'Assis', 26, 3504008); +INSERT INTO SYS_CIDADES VALUES(4753, 'Atibaia', 26, 3504107); +INSERT INTO SYS_CIDADES VALUES(4754, 'Auriflama', 26, 3504206); +INSERT INTO SYS_CIDADES VALUES(4755, 'Avaí', 26, 3504305); +INSERT INTO SYS_CIDADES VALUES(4756, 'Avanhandava', 26, 3504404); +INSERT INTO SYS_CIDADES VALUES(4757, 'Avaré', 26, 3504503); +INSERT INTO SYS_CIDADES VALUES(4758, 'Bady Bassitt', 26, 3504602); +INSERT INTO SYS_CIDADES VALUES(4759, 'Balbinos', 26, 3504701); +INSERT INTO SYS_CIDADES VALUES(4760, 'Bálsamo', 26, 3504800); +INSERT INTO SYS_CIDADES VALUES(4761, 'Bananal', 26, 3504909); +INSERT INTO SYS_CIDADES VALUES(4762, 'Barão de Antonina', 26, 3505005); +INSERT INTO SYS_CIDADES VALUES(4763, 'Barbosa', 26, 3505104); +INSERT INTO SYS_CIDADES VALUES(4764, 'Bariri', 26, 3505203); +INSERT INTO SYS_CIDADES VALUES(4765, 'Barra Bonita', 26, 3505302); +INSERT INTO SYS_CIDADES VALUES(4766, 'Barra do Chapéu', 26, 3505351); +INSERT INTO SYS_CIDADES VALUES(4767, 'Barra do Turvo', 26, 3505401); +INSERT INTO SYS_CIDADES VALUES(4768, 'Barretos', 26, 3505500); +INSERT INTO SYS_CIDADES VALUES(4769, 'Barrinha', 26, 3505609); +INSERT INTO SYS_CIDADES VALUES(4770, 'Barueri', 26, 3505708); +INSERT INTO SYS_CIDADES VALUES(4771, 'Bastos', 26, 3505807); +INSERT INTO SYS_CIDADES VALUES(4772, 'Batatais', 26, 3505906); +INSERT INTO SYS_CIDADES VALUES(4773, 'Bauru', 26, 3506003); +INSERT INTO SYS_CIDADES VALUES(4774, 'Bebedouro', 26, 3506102); +INSERT INTO SYS_CIDADES VALUES(4775, 'Bento de Abreu', 26, 3506201); +INSERT INTO SYS_CIDADES VALUES(4776, 'Bernardino de Campos', 26, 3506300); +INSERT INTO SYS_CIDADES VALUES(4777, 'Bertioga', 26, 3506359); +INSERT INTO SYS_CIDADES VALUES(4778, 'Bilac', 26, 3506409); +INSERT INTO SYS_CIDADES VALUES(4779, 'Birigui', 26, 3506508); +INSERT INTO SYS_CIDADES VALUES(4780, 'Biritiba-Mirim', 26, 3506607); +INSERT INTO SYS_CIDADES VALUES(4781, 'Boa Esperança do Sul', 26, 3506706); +INSERT INTO SYS_CIDADES VALUES(4782, 'Bocaina', 26, 3506805); +INSERT INTO SYS_CIDADES VALUES(4783, 'Bofete', 26, 3506904); +INSERT INTO SYS_CIDADES VALUES(4784, 'Boituva', 26, 3507001); +INSERT INTO SYS_CIDADES VALUES(4785, 'Bom Jesus dos Perdões', 26, 3507100); +INSERT INTO SYS_CIDADES VALUES(4786, 'Bom Sucesso de Itararé', 26, 3507159); +INSERT INTO SYS_CIDADES VALUES(4787, 'Borá', 26, 3507209); +INSERT INTO SYS_CIDADES VALUES(4788, 'Boracéia', 26, 3507308); +INSERT INTO SYS_CIDADES VALUES(4789, 'Borborema', 26, 3507407); +INSERT INTO SYS_CIDADES VALUES(4790, 'Borebi', 26, 3507456); +INSERT INTO SYS_CIDADES VALUES(4791, 'Botucatu', 26, 3507506); +INSERT INTO SYS_CIDADES VALUES(4792, 'Bragança Paulista', 26, 3507605); +INSERT INTO SYS_CIDADES VALUES(4793, 'Braúna', 26, 3507704); +INSERT INTO SYS_CIDADES VALUES(4794, 'Brejo Alegre', 26, 3507753); +INSERT INTO SYS_CIDADES VALUES(4795, 'Brodowski', 26, 3507803); +INSERT INTO SYS_CIDADES VALUES(4796, 'Brotas', 26, 3507902); +INSERT INTO SYS_CIDADES VALUES(4797, 'Buri', 26, 3508009); +INSERT INTO SYS_CIDADES VALUES(4798, 'Buritama', 26, 3508108); +INSERT INTO SYS_CIDADES VALUES(4799, 'Buritizal', 26, 3508207); +INSERT INTO SYS_CIDADES VALUES(4800, 'Cabrália Paulista', 26, 3508306); +INSERT INTO SYS_CIDADES VALUES(4801, 'Cabreúva', 26, 3508405); +INSERT INTO SYS_CIDADES VALUES(4802, 'Caçapava', 26, 3508504); +INSERT INTO SYS_CIDADES VALUES(4803, 'Cachoeira Paulista', 26, 3508603); +INSERT INTO SYS_CIDADES VALUES(4804, 'Caconde', 26, 3508702); +INSERT INTO SYS_CIDADES VALUES(4805, 'Cafelândia', 26, 3508801); +INSERT INTO SYS_CIDADES VALUES(4806, 'Caiabu', 26, 3508900); +INSERT INTO SYS_CIDADES VALUES(4807, 'Caieiras', 26, 3509007); +INSERT INTO SYS_CIDADES VALUES(4808, 'Caiuá', 26, 3509106); +INSERT INTO SYS_CIDADES VALUES(4809, 'Cajamar', 26, 3509205); +INSERT INTO SYS_CIDADES VALUES(4810, 'Cajati', 26, 3509254); +INSERT INTO SYS_CIDADES VALUES(4811, 'Cajobi', 26, 3509304); +INSERT INTO SYS_CIDADES VALUES(4812, 'Cajuru', 26, 3509403); +INSERT INTO SYS_CIDADES VALUES(4813, 'Campina do Monte Alegre', 26, 3509452); +INSERT INTO SYS_CIDADES VALUES(4814, 'Campinas', 26, 3509502); +INSERT INTO SYS_CIDADES VALUES(4815, 'Campo Limpo Paulista', 26, 3509601); +INSERT INTO SYS_CIDADES VALUES(4816, 'Campos do Jordão', 26, 3509700); +INSERT INTO SYS_CIDADES VALUES(4817, 'Campos Novos Paulista', 26, 3509809); +INSERT INTO SYS_CIDADES VALUES(4818, 'Cananéia', 26, 3509908); +INSERT INTO SYS_CIDADES VALUES(4819, 'Canas', 26, 3509957); +INSERT INTO SYS_CIDADES VALUES(4820, 'Cândido Mota', 26, 3510005); +INSERT INTO SYS_CIDADES VALUES(4821, 'Cândido Rodrigues', 26, 3510104); +INSERT INTO SYS_CIDADES VALUES(4822, 'Canitar', 26, 3510153); +INSERT INTO SYS_CIDADES VALUES(4823, 'Capão Bonito', 26, 3510203); +INSERT INTO SYS_CIDADES VALUES(4824, 'Capela do Alto', 26, 3510302); +INSERT INTO SYS_CIDADES VALUES(4825, 'Capivari', 26, 3510401); +INSERT INTO SYS_CIDADES VALUES(4826, 'Caraguatatuba', 26, 3510500); +INSERT INTO SYS_CIDADES VALUES(4827, 'Carapicuíba', 26, 3510609); +INSERT INTO SYS_CIDADES VALUES(4828, 'Cardoso', 26, 3510708); +INSERT INTO SYS_CIDADES VALUES(4829, 'Casa Branca', 26, 3510807); +INSERT INTO SYS_CIDADES VALUES(4830, 'Cássia dos Coqueiros', 26, 3510906); +INSERT INTO SYS_CIDADES VALUES(4831, 'Castilho', 26, 3511003); +INSERT INTO SYS_CIDADES VALUES(4832, 'Catanduva', 26, 3511102); +INSERT INTO SYS_CIDADES VALUES(4833, 'Catiguá', 26, 3511201); +INSERT INTO SYS_CIDADES VALUES(4834, 'Cedral', 26, 3511300); +INSERT INTO SYS_CIDADES VALUES(4835, 'Cerqueira César', 26, 3511409); +INSERT INTO SYS_CIDADES VALUES(4836, 'Cerquilho', 26, 3511508); +INSERT INTO SYS_CIDADES VALUES(4837, 'Cesário Lange', 26, 3511607); +INSERT INTO SYS_CIDADES VALUES(4838, 'Charqueada', 26, 3511706); +INSERT INTO SYS_CIDADES VALUES(4839, 'Chavantes', 26, 3557204); +INSERT INTO SYS_CIDADES VALUES(4840, 'Clementina', 26, 3511904); +INSERT INTO SYS_CIDADES VALUES(4841, 'Colina', 26, 3512001); +INSERT INTO SYS_CIDADES VALUES(4842, 'Colômbia', 26, 3512100); +INSERT INTO SYS_CIDADES VALUES(4843, 'Conchal', 26, 3512209); +INSERT INTO SYS_CIDADES VALUES(4844, 'Conchas', 26, 3512308); +INSERT INTO SYS_CIDADES VALUES(4845, 'Cordeirópolis', 26, 3512407); +INSERT INTO SYS_CIDADES VALUES(4846, 'Coroados', 26, 3512506); +INSERT INTO SYS_CIDADES VALUES(4847, 'Coronel Macedo', 26, 3512605); +INSERT INTO SYS_CIDADES VALUES(4848, 'Corumbataí', 26, 3512704); +INSERT INTO SYS_CIDADES VALUES(4849, 'Cosmópolis', 26, 3512803); +INSERT INTO SYS_CIDADES VALUES(4850, 'Cosmorama', 26, 3512902); +INSERT INTO SYS_CIDADES VALUES(4851, 'Cotia', 26, 3513009); +INSERT INTO SYS_CIDADES VALUES(4852, 'Cravinhos', 26, 3513108); +INSERT INTO SYS_CIDADES VALUES(4853, 'Cristais Paulista', 26, 3513207); +INSERT INTO SYS_CIDADES VALUES(4854, 'Cruzália', 26, 3513306); +INSERT INTO SYS_CIDADES VALUES(4855, 'Cruzeiro', 26, 3513405); +INSERT INTO SYS_CIDADES VALUES(4856, 'Cubatão', 26, 3513504); +INSERT INTO SYS_CIDADES VALUES(4857, 'Cunha', 26, 3513603); +INSERT INTO SYS_CIDADES VALUES(4858, 'Descalvado', 26, 3513702); +INSERT INTO SYS_CIDADES VALUES(4859, 'Diadema', 26, 3513801); +INSERT INTO SYS_CIDADES VALUES(4860, 'Dirce Reis', 26, 3513850); +INSERT INTO SYS_CIDADES VALUES(4861, 'Divinolândia', 26, 3513900); +INSERT INTO SYS_CIDADES VALUES(4862, 'Dobrada', 26, 3514007); +INSERT INTO SYS_CIDADES VALUES(4863, 'Dois Córregos', 26, 3514106); +INSERT INTO SYS_CIDADES VALUES(4864, 'Dolcinópolis', 26, 3514205); +INSERT INTO SYS_CIDADES VALUES(4865, 'Dourado', 26, 3514304); +INSERT INTO SYS_CIDADES VALUES(4866, 'Dracena', 26, 3514403); +INSERT INTO SYS_CIDADES VALUES(4867, 'Duartina', 26, 3514502); +INSERT INTO SYS_CIDADES VALUES(4868, 'Dumont', 26, 3514601); +INSERT INTO SYS_CIDADES VALUES(4869, 'Echaporã', 26, 3514700); +INSERT INTO SYS_CIDADES VALUES(4870, 'Eldorado', 26, 3514809); +INSERT INTO SYS_CIDADES VALUES(4871, 'Elias Fausto', 26, 3514908); +INSERT INTO SYS_CIDADES VALUES(4872, 'Elisiário', 26, 3514924); +INSERT INTO SYS_CIDADES VALUES(4873, 'Embaúba', 26, 3514957); +INSERT INTO SYS_CIDADES VALUES(4874, 'Embu', 26, 3515004); +INSERT INTO SYS_CIDADES VALUES(4875, 'Embu-Guaçu', 26, 3515103); +INSERT INTO SYS_CIDADES VALUES(4876, 'Emilianópolis', 26, 3515129); +INSERT INTO SYS_CIDADES VALUES(4877, 'Engenheiro Coelho', 26, 3515152); +INSERT INTO SYS_CIDADES VALUES(4878, 'Espírito Santo do Pinhal', 26, 3515186); +INSERT INTO SYS_CIDADES VALUES(4879, 'Espírito Santo do Turvo', 26, 3515194); +INSERT INTO SYS_CIDADES VALUES(4880, 'Estiva Gerbi', 26, 3557303); +INSERT INTO SYS_CIDADES VALUES(4881, 'Estrela d`Oeste', 26, 3515202); +INSERT INTO SYS_CIDADES VALUES(4882, 'Estrela do Norte', 26, 3515301); +INSERT INTO SYS_CIDADES VALUES(4883, 'Euclides da Cunha Paulista', 26, 3515350); +INSERT INTO SYS_CIDADES VALUES(4884, 'Fartura', 26, 3515400); +INSERT INTO SYS_CIDADES VALUES(4885, 'Fernando Prestes', 26, 3515608); +INSERT INTO SYS_CIDADES VALUES(4886, 'Fernandópolis', 26, 3515509); +INSERT INTO SYS_CIDADES VALUES(4887, 'Fernão', 26, 3515657); +INSERT INTO SYS_CIDADES VALUES(4888, 'Ferraz de Vasconcelos', 26, 3515707); +INSERT INTO SYS_CIDADES VALUES(4889, 'Flora Rica', 26, 3515806); +INSERT INTO SYS_CIDADES VALUES(4890, 'Floreal', 26, 3515905); +INSERT INTO SYS_CIDADES VALUES(4891, 'Flórida Paulista', 26, 3516002); +INSERT INTO SYS_CIDADES VALUES(4892, 'Florínia', 26, 3516101); +INSERT INTO SYS_CIDADES VALUES(4893, 'Franca', 26, 3516200); +INSERT INTO SYS_CIDADES VALUES(4894, 'Francisco Morato', 26, 3516309); +INSERT INTO SYS_CIDADES VALUES(4895, 'Franco da Rocha', 26, 3516408); +INSERT INTO SYS_CIDADES VALUES(4896, 'Gabriel Monteiro', 26, 3516507); +INSERT INTO SYS_CIDADES VALUES(4897, 'Gália', 26, 3516606); +INSERT INTO SYS_CIDADES VALUES(4898, 'Garça', 26, 3516705); +INSERT INTO SYS_CIDADES VALUES(4899, 'Gastão Vidigal', 26, 3516804); +INSERT INTO SYS_CIDADES VALUES(4900, 'Gavião Peixoto', 26, 3516853); +INSERT INTO SYS_CIDADES VALUES(4901, 'General Salgado', 26, 3516903); +INSERT INTO SYS_CIDADES VALUES(4902, 'Getulina', 26, 3517000); +INSERT INTO SYS_CIDADES VALUES(4903, 'Glicério', 26, 3517109); +INSERT INTO SYS_CIDADES VALUES(4904, 'Guaiçara', 26, 3517208); +INSERT INTO SYS_CIDADES VALUES(4905, 'Guaimbê', 26, 3517307); +INSERT INTO SYS_CIDADES VALUES(4906, 'Guaíra', 26, 3517406); +INSERT INTO SYS_CIDADES VALUES(4907, 'Guapiaçu', 26, 3517505); +INSERT INTO SYS_CIDADES VALUES(4908, 'Guapiara', 26, 3517604); +INSERT INTO SYS_CIDADES VALUES(4909, 'Guará', 26, 3517703); +INSERT INTO SYS_CIDADES VALUES(4910, 'Guaraçaí', 26, 3517802); +INSERT INTO SYS_CIDADES VALUES(4911, 'Guaraci', 26, 3517901); +INSERT INTO SYS_CIDADES VALUES(4912, 'Guarani d`Oeste', 26, 3518008); +INSERT INTO SYS_CIDADES VALUES(4913, 'Guarantã', 26, 3518107); +INSERT INTO SYS_CIDADES VALUES(4914, 'Guararapes', 26, 3518206); +INSERT INTO SYS_CIDADES VALUES(4915, 'Guararema', 26, 3518305); +INSERT INTO SYS_CIDADES VALUES(4916, 'Guaratinguetá', 26, 3518404); +INSERT INTO SYS_CIDADES VALUES(4917, 'Guareí', 26, 3518503); +INSERT INTO SYS_CIDADES VALUES(4918, 'Guariba', 26, 3518602); +INSERT INTO SYS_CIDADES VALUES(4919, 'Guarujá', 26, 3518701); +INSERT INTO SYS_CIDADES VALUES(4920, 'Guarulhos', 26, 3518800); +INSERT INTO SYS_CIDADES VALUES(4921, 'Guatapará', 26, 3518859); +INSERT INTO SYS_CIDADES VALUES(4922, 'Guzolândia', 26, 3518909); +INSERT INTO SYS_CIDADES VALUES(4923, 'Herculândia', 26, 3519006); +INSERT INTO SYS_CIDADES VALUES(4924, 'Holambra', 26, 3519055); +INSERT INTO SYS_CIDADES VALUES(4925, 'Hortolândia', 26, 3519071); +INSERT INTO SYS_CIDADES VALUES(4926, 'Iacanga', 26, 3519105); +INSERT INTO SYS_CIDADES VALUES(4927, 'Iacri', 26, 3519204); +INSERT INTO SYS_CIDADES VALUES(4928, 'Iaras', 26, 3519253); +INSERT INTO SYS_CIDADES VALUES(4929, 'Ibaté', 26, 3519303); +INSERT INTO SYS_CIDADES VALUES(4930, 'Ibirá', 26, 3519402); +INSERT INTO SYS_CIDADES VALUES(4931, 'Ibirarema', 26, 3519501); +INSERT INTO SYS_CIDADES VALUES(4932, 'Ibitinga', 26, 3519600); +INSERT INTO SYS_CIDADES VALUES(4933, 'Ibiúna', 26, 3519709); +INSERT INTO SYS_CIDADES VALUES(4934, 'Icém', 26, 3519808); +INSERT INTO SYS_CIDADES VALUES(4935, 'Iepê', 26, 3519907); +INSERT INTO SYS_CIDADES VALUES(4936, 'Igaraçu do Tietê', 26, 3520004); +INSERT INTO SYS_CIDADES VALUES(4937, 'Igarapava', 26, 3520103); +INSERT INTO SYS_CIDADES VALUES(4938, 'Igaratá', 26, 3520202); +INSERT INTO SYS_CIDADES VALUES(4939, 'Iguape', 26, 3520301); +INSERT INTO SYS_CIDADES VALUES(4940, 'Ilha Comprida', 26, 3520426); +INSERT INTO SYS_CIDADES VALUES(4941, 'Ilha Solteira', 26, 3520442); +INSERT INTO SYS_CIDADES VALUES(4942, 'Ilhabela', 26, 3520400); +INSERT INTO SYS_CIDADES VALUES(4943, 'Indaiatuba', 26, 3520509); +INSERT INTO SYS_CIDADES VALUES(4944, 'Indiana', 26, 3520608); +INSERT INTO SYS_CIDADES VALUES(4945, 'Indiaporã', 26, 3520707); +INSERT INTO SYS_CIDADES VALUES(4946, 'Inúbia Paulista', 26, 3520806); +INSERT INTO SYS_CIDADES VALUES(4947, 'Ipaussu', 26, 3520905); +INSERT INTO SYS_CIDADES VALUES(4948, 'Iperó', 26, 3521002); +INSERT INTO SYS_CIDADES VALUES(4949, 'Ipeúna', 26, 3521101); +INSERT INTO SYS_CIDADES VALUES(4950, 'Ipiguá', 26, 3521150); +INSERT INTO SYS_CIDADES VALUES(4951, 'Iporanga', 26, 3521200); +INSERT INTO SYS_CIDADES VALUES(4952, 'Ipuã', 26, 3521309); +INSERT INTO SYS_CIDADES VALUES(4953, 'Iracemápolis', 26, 3521408); +INSERT INTO SYS_CIDADES VALUES(4954, 'Irapuã', 26, 3521507); +INSERT INTO SYS_CIDADES VALUES(4955, 'Irapuru', 26, 3521606); +INSERT INTO SYS_CIDADES VALUES(4956, 'Itaberá', 26, 3521705); +INSERT INTO SYS_CIDADES VALUES(4957, 'Itaí', 26, 3521804); +INSERT INTO SYS_CIDADES VALUES(4958, 'Itajobi', 26, 3521903); +INSERT INTO SYS_CIDADES VALUES(4959, 'Itaju', 26, 3522000); +INSERT INTO SYS_CIDADES VALUES(4960, 'Itanhaém', 26, 3522109); +INSERT INTO SYS_CIDADES VALUES(4961, 'Itaóca', 26, 3522158); +INSERT INTO SYS_CIDADES VALUES(4962, 'Itapecerica da Serra', 26, 3522208); +INSERT INTO SYS_CIDADES VALUES(4963, 'Itapetininga', 26, 3522307); +INSERT INTO SYS_CIDADES VALUES(4964, 'Itapeva', 26, 3522406); +INSERT INTO SYS_CIDADES VALUES(4965, 'Itapevi', 26, 3522505); +INSERT INTO SYS_CIDADES VALUES(4966, 'Itapira', 26, 3522604); +INSERT INTO SYS_CIDADES VALUES(4967, 'Itapirapuã Paulista', 26, 3522653); +INSERT INTO SYS_CIDADES VALUES(4968, 'Itápolis', 26, 3522703); +INSERT INTO SYS_CIDADES VALUES(4969, 'Itaporanga', 26, 3522802); +INSERT INTO SYS_CIDADES VALUES(4970, 'Itapuí', 26, 3522901); +INSERT INTO SYS_CIDADES VALUES(4971, 'Itapura', 26, 3523008); +INSERT INTO SYS_CIDADES VALUES(4972, 'Itaquaquecetuba', 26, 3523107); +INSERT INTO SYS_CIDADES VALUES(4973, 'Itararé', 26, 3523206); +INSERT INTO SYS_CIDADES VALUES(4974, 'Itariri', 26, 3523305); +INSERT INTO SYS_CIDADES VALUES(4975, 'Itatiba', 26, 3523404); +INSERT INTO SYS_CIDADES VALUES(4976, 'Itatinga', 26, 3523503); +INSERT INTO SYS_CIDADES VALUES(4977, 'Itirapina', 26, 3523602); +INSERT INTO SYS_CIDADES VALUES(4978, 'Itirapuã', 26, 3523701); +INSERT INTO SYS_CIDADES VALUES(4979, 'Itobi', 26, 3523800); +INSERT INTO SYS_CIDADES VALUES(4980, 'Itu', 26, 3523909); +INSERT INTO SYS_CIDADES VALUES(4981, 'Itupeva', 26, 3524006); +INSERT INTO SYS_CIDADES VALUES(4982, 'Ituverava', 26, 3524105); +INSERT INTO SYS_CIDADES VALUES(4983, 'Jaborandi', 26, 3524204); +INSERT INTO SYS_CIDADES VALUES(4984, 'Jaboticabal', 26, 3524303); +INSERT INTO SYS_CIDADES VALUES(4985, 'Jacareí', 26, 3524402); +INSERT INTO SYS_CIDADES VALUES(4986, 'Jaci', 26, 3524501); +INSERT INTO SYS_CIDADES VALUES(4987, 'Jacupiranga', 26, 3524600); +INSERT INTO SYS_CIDADES VALUES(4988, 'Jaguariúna', 26, 3524709); +INSERT INTO SYS_CIDADES VALUES(4989, 'Jales', 26, 3524808); +INSERT INTO SYS_CIDADES VALUES(4990, 'Jambeiro', 26, 3524907); +INSERT INTO SYS_CIDADES VALUES(4991, 'Jandira', 26, 3525003); +INSERT INTO SYS_CIDADES VALUES(4992, 'Jardinópolis', 26, 3525102); +INSERT INTO SYS_CIDADES VALUES(4993, 'Jarinu', 26, 3525201); +INSERT INTO SYS_CIDADES VALUES(4994, 'Jaú', 26, 3525300); +INSERT INTO SYS_CIDADES VALUES(4995, 'Jeriquara', 26, 3525409); +INSERT INTO SYS_CIDADES VALUES(4996, 'Joanópolis', 26, 3525508); +INSERT INTO SYS_CIDADES VALUES(4997, 'João Ramalho', 26, 3525607); +INSERT INTO SYS_CIDADES VALUES(4998, 'José Bonifácio', 26, 3525706); +INSERT INTO SYS_CIDADES VALUES(4999, 'Júlio Mesquita', 26, 3525805); +INSERT INTO SYS_CIDADES VALUES(5000, 'Jumirim', 26, 3525854); +INSERT INTO SYS_CIDADES VALUES(5001, 'Jundiaí', 26, 3525904); +INSERT INTO SYS_CIDADES VALUES(5002, 'Junqueirópolis', 26, 3526001); +INSERT INTO SYS_CIDADES VALUES(5003, 'Juquiá', 26, 3526100); +INSERT INTO SYS_CIDADES VALUES(5004, 'Juquitiba', 26, 3526209); +INSERT INTO SYS_CIDADES VALUES(5005, 'Lagoinha', 26, 3526308); +INSERT INTO SYS_CIDADES VALUES(5006, 'Laranjal Paulista', 26, 3526407); +INSERT INTO SYS_CIDADES VALUES(5007, 'Lavínia', 26, 3526506); +INSERT INTO SYS_CIDADES VALUES(5008, 'Lavrinhas', 26, 3526605); +INSERT INTO SYS_CIDADES VALUES(5009, 'Leme', 26, 3526704); +INSERT INTO SYS_CIDADES VALUES(5010, 'Lençóis Paulista', 26, 3526803); +INSERT INTO SYS_CIDADES VALUES(5011, 'Limeira', 26, 3526902); +INSERT INTO SYS_CIDADES VALUES(5012, 'Lindóia', 26, 3527009); +INSERT INTO SYS_CIDADES VALUES(5013, 'Lins', 26, 3527108); +INSERT INTO SYS_CIDADES VALUES(5014, 'Lorena', 26, 3527207); +INSERT INTO SYS_CIDADES VALUES(5015, 'Lourdes', 26, 3527256); +INSERT INTO SYS_CIDADES VALUES(5016, 'Louveira', 26, 3527306); +INSERT INTO SYS_CIDADES VALUES(5017, 'Lucélia', 26, 3527405); +INSERT INTO SYS_CIDADES VALUES(5018, 'Lucianópolis', 26, 3527504); +INSERT INTO SYS_CIDADES VALUES(5019, 'Luís Antônio', 26, 3527603); +INSERT INTO SYS_CIDADES VALUES(5020, 'Luiziânia', 26, 3527702); +INSERT INTO SYS_CIDADES VALUES(5021, 'Lupércio', 26, 3527801); +INSERT INTO SYS_CIDADES VALUES(5022, 'Lutécia', 26, 3527900); +INSERT INTO SYS_CIDADES VALUES(5023, 'Macatuba', 26, 3528007); +INSERT INTO SYS_CIDADES VALUES(5024, 'Macaubal', 26, 3528106); +INSERT INTO SYS_CIDADES VALUES(5025, 'Macedônia', 26, 3528205); +INSERT INTO SYS_CIDADES VALUES(5026, 'Magda', 26, 3528304); +INSERT INTO SYS_CIDADES VALUES(5027, 'Mairinque', 26, 3528403); +INSERT INTO SYS_CIDADES VALUES(5028, 'Mairiporã', 26, 3528502); +INSERT INTO SYS_CIDADES VALUES(5029, 'Manduri', 26, 3528601); +INSERT INTO SYS_CIDADES VALUES(5030, 'Marabá Paulista', 26, 3528700); +INSERT INTO SYS_CIDADES VALUES(5031, 'Maracaí', 26, 3528809); +INSERT INTO SYS_CIDADES VALUES(5032, 'Marapoama', 26, 3528858); +INSERT INTO SYS_CIDADES VALUES(5033, 'Mariápolis', 26, 3528908); +INSERT INTO SYS_CIDADES VALUES(5034, 'Marília', 26, 3529005); +INSERT INTO SYS_CIDADES VALUES(5035, 'Marinópolis', 26, 3529104); +INSERT INTO SYS_CIDADES VALUES(5036, 'Martinópolis', 26, 3529203); +INSERT INTO SYS_CIDADES VALUES(5037, 'Matão', 26, 3529302); +INSERT INTO SYS_CIDADES VALUES(5038, 'Mauá', 26, 3529401); +INSERT INTO SYS_CIDADES VALUES(5039, 'Mendonça', 26, 3529500); +INSERT INTO SYS_CIDADES VALUES(5040, 'Meridiano', 26, 3529609); +INSERT INTO SYS_CIDADES VALUES(5041, 'Mesópolis', 26, 3529658); +INSERT INTO SYS_CIDADES VALUES(5042, 'Miguelópolis', 26, 3529708); +INSERT INTO SYS_CIDADES VALUES(5043, 'Mineiros do Tietê', 26, 3529807); +INSERT INTO SYS_CIDADES VALUES(5044, 'Mira Estrela', 26, 3530003); +INSERT INTO SYS_CIDADES VALUES(5045, 'Miracatu', 26, 3529906); +INSERT INTO SYS_CIDADES VALUES(5046, 'Mirandópolis', 26, 3530102); +INSERT INTO SYS_CIDADES VALUES(5047, 'Mirante do Paranapanema', 26, 3530201); +INSERT INTO SYS_CIDADES VALUES(5048, 'Mirassol', 26, 3530300); +INSERT INTO SYS_CIDADES VALUES(5049, 'Mirassolândia', 26, 3530409); +INSERT INTO SYS_CIDADES VALUES(5050, 'Mococa', 26, 3530508); +INSERT INTO SYS_CIDADES VALUES(5051, 'Mogi das Cruzes', 26, 3530607); +INSERT INTO SYS_CIDADES VALUES(5052, 'Mogi Guaçu', 26, 3530706); +INSERT INTO SYS_CIDADES VALUES(5053, 'Moji Mirim', 26, 3530805); +INSERT INTO SYS_CIDADES VALUES(5054, 'Mombuca', 26, 3530904); +INSERT INTO SYS_CIDADES VALUES(5055, 'Monções', 26, 3531001); +INSERT INTO SYS_CIDADES VALUES(5056, 'Mongaguá', 26, 3531100); +INSERT INTO SYS_CIDADES VALUES(5057, 'Monte Alegre do Sul', 26, 3531209); +INSERT INTO SYS_CIDADES VALUES(5058, 'Monte Alto', 26, 3531308); +INSERT INTO SYS_CIDADES VALUES(5059, 'Monte Aprazível', 26, 3531407); +INSERT INTO SYS_CIDADES VALUES(5060, 'Monte Azul Paulista', 26, 3531506); +INSERT INTO SYS_CIDADES VALUES(5061, 'Monte Castelo', 26, 3531605); +INSERT INTO SYS_CIDADES VALUES(5062, 'Monte Mor', 26, 3531803); +INSERT INTO SYS_CIDADES VALUES(5063, 'Monteiro Lobato', 26, 3531704); +INSERT INTO SYS_CIDADES VALUES(5064, 'Morro Agudo', 26, 3531902); +INSERT INTO SYS_CIDADES VALUES(5065, 'Morungaba', 26, 3532009); +INSERT INTO SYS_CIDADES VALUES(5066, 'Motuca', 26, 3532058); +INSERT INTO SYS_CIDADES VALUES(5067, 'Murutinga do Sul', 26, 3532108); +INSERT INTO SYS_CIDADES VALUES(5068, 'Nantes', 26, 3532157); +INSERT INTO SYS_CIDADES VALUES(5069, 'Narandiba', 26, 3532207); +INSERT INTO SYS_CIDADES VALUES(5070, 'Natividade da Serra', 26, 3532306); +INSERT INTO SYS_CIDADES VALUES(5071, 'Nazaré Paulista', 26, 3532405); +INSERT INTO SYS_CIDADES VALUES(5072, 'Neves Paulista', 26, 3532504); +INSERT INTO SYS_CIDADES VALUES(5073, 'Nhandeara', 26, 3532603); +INSERT INTO SYS_CIDADES VALUES(5074, 'Nipoã', 26, 3532702); +INSERT INTO SYS_CIDADES VALUES(5075, 'Nova Aliança', 26, 3532801); +INSERT INTO SYS_CIDADES VALUES(5076, 'Nova Campina', 26, 3532827); +INSERT INTO SYS_CIDADES VALUES(5077, 'Nova Canaã Paulista', 26, 3532843); +INSERT INTO SYS_CIDADES VALUES(5078, 'Nova Castilho', 26, 3532868); +INSERT INTO SYS_CIDADES VALUES(5079, 'Nova Europa', 26, 3532900); +INSERT INTO SYS_CIDADES VALUES(5080, 'Nova Granada', 26, 3533007); +INSERT INTO SYS_CIDADES VALUES(5081, 'Nova Guataporanga', 26, 3533106); +INSERT INTO SYS_CIDADES VALUES(5082, 'Nova Independência', 26, 3533205); +INSERT INTO SYS_CIDADES VALUES(5083, 'Nova Luzitânia', 26, 3533304); +INSERT INTO SYS_CIDADES VALUES(5084, 'Nova Odessa', 26, 3533403); +INSERT INTO SYS_CIDADES VALUES(5085, 'Novais', 26, 3533254); +INSERT INTO SYS_CIDADES VALUES(5086, 'Novo Horizonte', 26, 3533502); +INSERT INTO SYS_CIDADES VALUES(5087, 'Nuporanga', 26, 3533601); +INSERT INTO SYS_CIDADES VALUES(5088, 'Ocauçu', 26, 3533700); +INSERT INTO SYS_CIDADES VALUES(5089, 'Óleo', 26, 3533809); +INSERT INTO SYS_CIDADES VALUES(5090, 'Olímpia', 26, 3533908); +INSERT INTO SYS_CIDADES VALUES(5091, 'Onda Verde', 26, 3534005); +INSERT INTO SYS_CIDADES VALUES(5092, 'Oriente', 26, 3534104); +INSERT INTO SYS_CIDADES VALUES(5093, 'Orindiúva', 26, 3534203); +INSERT INTO SYS_CIDADES VALUES(5094, 'Orlândia', 26, 3534302); +INSERT INTO SYS_CIDADES VALUES(5095, 'Osasco', 26, 3534401); +INSERT INTO SYS_CIDADES VALUES(5096, 'Oscar Bressane', 26, 3534500); +INSERT INTO SYS_CIDADES VALUES(5097, 'Osvaldo Cruz', 26, 3534609); +INSERT INTO SYS_CIDADES VALUES(5098, 'Ourinhos', 26, 3534708); +INSERT INTO SYS_CIDADES VALUES(5099, 'Ouro Verde', 26, 3534807); +INSERT INTO SYS_CIDADES VALUES(5100, 'Ouroeste', 26, 3534757); +INSERT INTO SYS_CIDADES VALUES(5101, 'Pacaembu', 26, 3534906); +INSERT INTO SYS_CIDADES VALUES(5102, 'Palestina', 26, 3535002); +INSERT INTO SYS_CIDADES VALUES(5103, 'Palmares Paulista', 26, 3535101); +INSERT INTO SYS_CIDADES VALUES(5104, 'Palmeira d`Oeste', 26, 3535200); +INSERT INTO SYS_CIDADES VALUES(5105, 'Palmital', 26, 3535309); +INSERT INTO SYS_CIDADES VALUES(5106, 'Panorama', 26, 3535408); +INSERT INTO SYS_CIDADES VALUES(5107, 'Paraguaçu Paulista', 26, 3535507); +INSERT INTO SYS_CIDADES VALUES(5108, 'Paraibuna', 26, 3535606); +INSERT INTO SYS_CIDADES VALUES(5109, 'Paraíso', 26, 3535705); +INSERT INTO SYS_CIDADES VALUES(5110, 'Paranapanema', 26, 3535804); +INSERT INTO SYS_CIDADES VALUES(5111, 'Paranapuã', 26, 3535903); +INSERT INTO SYS_CIDADES VALUES(5112, 'Parapuã', 26, 3536000); +INSERT INTO SYS_CIDADES VALUES(5113, 'Pardinho', 26, 3536109); +INSERT INTO SYS_CIDADES VALUES(5114, 'Pariquera-Açu', 26, 3536208); +INSERT INTO SYS_CIDADES VALUES(5115, 'Parisi', 26, 3536257); +INSERT INTO SYS_CIDADES VALUES(5116, 'Patrocínio Paulista', 26, 3536307); +INSERT INTO SYS_CIDADES VALUES(5117, 'Paulicéia', 26, 3536406); +INSERT INTO SYS_CIDADES VALUES(5118, 'Paulínia', 26, 3536505); +INSERT INTO SYS_CIDADES VALUES(5119, 'Paulistânia', 26, 3536570); +INSERT INTO SYS_CIDADES VALUES(5120, 'Paulo de Faria', 26, 3536604); +INSERT INTO SYS_CIDADES VALUES(5121, 'Pederneiras', 26, 3536703); +INSERT INTO SYS_CIDADES VALUES(5122, 'Pedra Bela', 26, 3536802); +INSERT INTO SYS_CIDADES VALUES(5123, 'Pedranópolis', 26, 3536901); +INSERT INTO SYS_CIDADES VALUES(5124, 'Pedregulho', 26, 3537008); +INSERT INTO SYS_CIDADES VALUES(5125, 'Pedreira', 26, 3537107); +INSERT INTO SYS_CIDADES VALUES(5126, 'Pedrinhas Paulista', 26, 3537156); +INSERT INTO SYS_CIDADES VALUES(5127, 'Pedro de Toledo', 26, 3537206); +INSERT INTO SYS_CIDADES VALUES(5128, 'Penápolis', 26, 3537305); +INSERT INTO SYS_CIDADES VALUES(5129, 'Pereira Barreto', 26, 3537404); +INSERT INTO SYS_CIDADES VALUES(5130, 'Pereiras', 26, 3537503); +INSERT INTO SYS_CIDADES VALUES(5131, 'Peruíbe', 26, 3537602); +INSERT INTO SYS_CIDADES VALUES(5132, 'Piacatu', 26, 3537701); +INSERT INTO SYS_CIDADES VALUES(5133, 'Piedade', 26, 3537800); +INSERT INTO SYS_CIDADES VALUES(5134, 'Pilar do Sul', 26, 3537909); +INSERT INTO SYS_CIDADES VALUES(5135, 'Pindamonhangaba', 26, 3538006); +INSERT INTO SYS_CIDADES VALUES(5136, 'Pindorama', 26, 3538105); +INSERT INTO SYS_CIDADES VALUES(5137, 'Pinhalzinho', 26, 3538204); +INSERT INTO SYS_CIDADES VALUES(5138, 'Piquerobi', 26, 3538303); +INSERT INTO SYS_CIDADES VALUES(5139, 'Piquete', 26, 3538501); +INSERT INTO SYS_CIDADES VALUES(5140, 'Piracaia', 26, 3538600); +INSERT INTO SYS_CIDADES VALUES(5141, 'Piracicaba', 26, 3538709); +INSERT INTO SYS_CIDADES VALUES(5142, 'Piraju', 26, 3538808); +INSERT INTO SYS_CIDADES VALUES(5143, 'Pirajuí', 26, 3538907); +INSERT INTO SYS_CIDADES VALUES(5144, 'Pirangi', 26, 3539004); +INSERT INTO SYS_CIDADES VALUES(5145, 'Pirapora do Bom Jesus', 26, 3539103); +INSERT INTO SYS_CIDADES VALUES(5146, 'Pirapozinho', 26, 3539202); +INSERT INTO SYS_CIDADES VALUES(5147, 'Pirassununga', 26, 3539301); +INSERT INTO SYS_CIDADES VALUES(5148, 'Piratininga', 26, 3539400); +INSERT INTO SYS_CIDADES VALUES(5149, 'Pitangueiras', 26, 3539509); +INSERT INTO SYS_CIDADES VALUES(5150, 'Planalto', 26, 3539608); +INSERT INTO SYS_CIDADES VALUES(5151, 'Platina', 26, 3539707); +INSERT INTO SYS_CIDADES VALUES(5152, 'Poá', 26, 3539806); +INSERT INTO SYS_CIDADES VALUES(5153, 'Poloni', 26, 3539905); +INSERT INTO SYS_CIDADES VALUES(5154, 'Pompéia', 26, 3540002); +INSERT INTO SYS_CIDADES VALUES(5155, 'Pongaí', 26, 3540101); +INSERT INTO SYS_CIDADES VALUES(5156, 'Pontal', 26, 3540200); +INSERT INTO SYS_CIDADES VALUES(5157, 'Pontalinda', 26, 3540259); +INSERT INTO SYS_CIDADES VALUES(5158, 'Pontes Gestal', 26, 3540309); +INSERT INTO SYS_CIDADES VALUES(5159, 'Populina', 26, 3540408); +INSERT INTO SYS_CIDADES VALUES(5160, 'Porangaba', 26, 3540507); +INSERT INTO SYS_CIDADES VALUES(5161, 'Porto Feliz', 26, 3540606); +INSERT INTO SYS_CIDADES VALUES(5162, 'Porto Ferreira', 26, 3540705); +INSERT INTO SYS_CIDADES VALUES(5163, 'Potim', 26, 3540754); +INSERT INTO SYS_CIDADES VALUES(5164, 'Potirendaba', 26, 3540804); +INSERT INTO SYS_CIDADES VALUES(5165, 'Pracinha', 26, 3540853); +INSERT INTO SYS_CIDADES VALUES(5166, 'Pradópolis', 26, 3540903); +INSERT INTO SYS_CIDADES VALUES(5167, 'Praia Grande', 26, 3541000); +INSERT INTO SYS_CIDADES VALUES(5168, 'Pratânia', 26, 3541059); +INSERT INTO SYS_CIDADES VALUES(5169, 'Presidente Alves', 26, 3541109); +INSERT INTO SYS_CIDADES VALUES(5170, 'Presidente Bernardes', 26, 3541208); +INSERT INTO SYS_CIDADES VALUES(5171, 'Presidente Epitácio', 26, 3541307); +INSERT INTO SYS_CIDADES VALUES(5172, 'Presidente Prudente', 26, 3541406); +INSERT INTO SYS_CIDADES VALUES(5173, 'Presidente Venceslau', 26, 3541505); +INSERT INTO SYS_CIDADES VALUES(5174, 'Promissão', 26, 3541604); +INSERT INTO SYS_CIDADES VALUES(5175, 'Quadra', 26, 3541653); +INSERT INTO SYS_CIDADES VALUES(5176, 'Quatá', 26, 3541703); +INSERT INTO SYS_CIDADES VALUES(5177, 'Queiroz', 26, 3541802); +INSERT INTO SYS_CIDADES VALUES(5178, 'Queluz', 26, 3541901); +INSERT INTO SYS_CIDADES VALUES(5179, 'Quintana', 26, 3542008); +INSERT INTO SYS_CIDADES VALUES(5180, 'Rafard', 26, 3542107); +INSERT INTO SYS_CIDADES VALUES(5181, 'Rancharia', 26, 3542206); +INSERT INTO SYS_CIDADES VALUES(5182, 'Redenção da Serra', 26, 3542305); +INSERT INTO SYS_CIDADES VALUES(5183, 'Regente Feijó', 26, 3542404); +INSERT INTO SYS_CIDADES VALUES(5184, 'Reginópolis', 26, 3542503); +INSERT INTO SYS_CIDADES VALUES(5185, 'Registro', 26, 3542602); +INSERT INTO SYS_CIDADES VALUES(5186, 'Restinga', 26, 3542701); +INSERT INTO SYS_CIDADES VALUES(5187, 'Ribeira', 26, 3542800); +INSERT INTO SYS_CIDADES VALUES(5188, 'Ribeirão Bonito', 26, 3542909); +INSERT INTO SYS_CIDADES VALUES(5189, 'Ribeirão Branco', 26, 3543006); +INSERT INTO SYS_CIDADES VALUES(5190, 'Ribeirão Corrente', 26, 3543105); +INSERT INTO SYS_CIDADES VALUES(5191, 'Ribeirão do Sul', 26, 3543204); +INSERT INTO SYS_CIDADES VALUES(5192, 'Ribeirão dos Índios', 26, 3543238); +INSERT INTO SYS_CIDADES VALUES(5193, 'Ribeirão Grande', 26, 3543253); +INSERT INTO SYS_CIDADES VALUES(5194, 'Ribeirão Pires', 26, 3543303); +INSERT INTO SYS_CIDADES VALUES(5195, 'Ribeirão Preto', 26, 3543402); +INSERT INTO SYS_CIDADES VALUES(5196, 'Rifaina', 26, 3543600); +INSERT INTO SYS_CIDADES VALUES(5197, 'Rincão', 26, 3543709); +INSERT INTO SYS_CIDADES VALUES(5198, 'Rinópolis', 26, 3543808); +INSERT INTO SYS_CIDADES VALUES(5199, 'Rio Claro', 26, 3543907); +INSERT INTO SYS_CIDADES VALUES(5200, 'Rio das Pedras', 26, 3544004); +INSERT INTO SYS_CIDADES VALUES(5201, 'Rio Grande da Serra', 26, 3544103); +INSERT INTO SYS_CIDADES VALUES(5202, 'Riolândia', 26, 3544202); +INSERT INTO SYS_CIDADES VALUES(5203, 'Riversul', 26, 3543501); +INSERT INTO SYS_CIDADES VALUES(5204, 'Rosana', 26, 3544251); +INSERT INTO SYS_CIDADES VALUES(5205, 'Roseira', 26, 3544301); +INSERT INTO SYS_CIDADES VALUES(5206, 'Rubiácea', 26, 3544400); +INSERT INTO SYS_CIDADES VALUES(5207, 'Rubinéia', 26, 3544509); +INSERT INTO SYS_CIDADES VALUES(5208, 'Sabino', 26, 3544608); +INSERT INTO SYS_CIDADES VALUES(5209, 'Sagres', 26, 3544707); +INSERT INTO SYS_CIDADES VALUES(5210, 'Sales', 26, 3544806); +INSERT INTO SYS_CIDADES VALUES(5211, 'Sales Oliveira', 26, 3544905); +INSERT INTO SYS_CIDADES VALUES(5212, 'Salesópolis', 26, 3545001); +INSERT INTO SYS_CIDADES VALUES(5213, 'Salmourão', 26, 3545100); +INSERT INTO SYS_CIDADES VALUES(5214, 'Saltinho', 26, 3545159); +INSERT INTO SYS_CIDADES VALUES(5215, 'Salto', 26, 3545209); +INSERT INTO SYS_CIDADES VALUES(5216, 'Salto de Pirapora', 26, 3545308); +INSERT INTO SYS_CIDADES VALUES(5217, 'Salto Grande', 26, 3545407); +INSERT INTO SYS_CIDADES VALUES(5218, 'Sandovalina', 26, 3545506); +INSERT INTO SYS_CIDADES VALUES(5219, 'Santa Adélia', 26, 3545605); +INSERT INTO SYS_CIDADES VALUES(5220, 'Santa Albertina', 26, 3545704); +INSERT INTO SYS_CIDADES VALUES(5221, 'Santa Bárbara d`Oeste', 26, 3545803); +INSERT INTO SYS_CIDADES VALUES(5222, 'Santa Branca', 26, 3546009); +INSERT INTO SYS_CIDADES VALUES(5223, 'Santa Clara d`Oeste', 26, 3546108); +INSERT INTO SYS_CIDADES VALUES(5224, 'Santa Cruz da Conceição', 26, 3546207); +INSERT INTO SYS_CIDADES VALUES(5225, 'Santa Cruz da Esperança', 26, 3546256); +INSERT INTO SYS_CIDADES VALUES(5226, 'Santa Cruz das Palmeiras', 26, 3546306); +INSERT INTO SYS_CIDADES VALUES(5227, 'Santa Cruz do Rio Pardo', 26, 3546405); +INSERT INTO SYS_CIDADES VALUES(5228, 'Santa Ernestina', 26, 3546504); +INSERT INTO SYS_CIDADES VALUES(5229, 'Santa Fé do Sul', 26, 3546603); +INSERT INTO SYS_CIDADES VALUES(5230, 'Santa Gertrudes', 26, 3546702); +INSERT INTO SYS_CIDADES VALUES(5231, 'Santa Isabel', 26, 3546801); +INSERT INTO SYS_CIDADES VALUES(5232, 'Santa Lúcia', 26, 3546900); +INSERT INTO SYS_CIDADES VALUES(5233, 'Santa Maria da Serra', 26, 3547007); +INSERT INTO SYS_CIDADES VALUES(5234, 'Santa Mercedes', 26, 3547106); +INSERT INTO SYS_CIDADES VALUES(5235, 'Santa Rita d`Oeste', 26, 3547403); +INSERT INTO SYS_CIDADES VALUES(5236, 'Santa Rita do Passa Quatro', 26, 3547502); +INSERT INTO SYS_CIDADES VALUES(5237, 'Santa Rosa de Viterbo', 26, 3547601); +INSERT INTO SYS_CIDADES VALUES(5238, 'Santa Salete', 26, 3547650); +INSERT INTO SYS_CIDADES VALUES(5239, 'Santana da Ponte Pensa', 26, 3547205); +INSERT INTO SYS_CIDADES VALUES(5240, 'Santana de Parnaíba', 26, 3547304); +INSERT INTO SYS_CIDADES VALUES(5241, 'Santo Anastácio', 26, 3547700); +INSERT INTO SYS_CIDADES VALUES(5242, 'Santo André', 26, 3547809); +INSERT INTO SYS_CIDADES VALUES(5243, 'Santo Antônio da Alegria', 26, 3547908); +INSERT INTO SYS_CIDADES VALUES(5244, 'Santo Antônio de Posse', 26, 3548005); +INSERT INTO SYS_CIDADES VALUES(5245, 'Santo Antônio do Aracanguá', 26, 3548054); +INSERT INTO SYS_CIDADES VALUES(5246, 'Santo Antônio do Jardim', 26, 3548104); +INSERT INTO SYS_CIDADES VALUES(5247, 'Santo Antônio do Pinhal', 26, 3548203); +INSERT INTO SYS_CIDADES VALUES(5248, 'Santo Expedito', 26, 3548302); +INSERT INTO SYS_CIDADES VALUES(5249, 'Santópolis do Aguapeí', 26, 3548401); +INSERT INTO SYS_CIDADES VALUES(5250, 'Santos', 26, 3548500); +INSERT INTO SYS_CIDADES VALUES(5251, 'São Bento do Sapucaí', 26, 3548609); +INSERT INTO SYS_CIDADES VALUES(5252, 'São Bernardo do Campo', 26, 3548708); +INSERT INTO SYS_CIDADES VALUES(5253, 'São Caetano do Sul', 26, 3548807); +INSERT INTO SYS_CIDADES VALUES(5254, 'São Carlos', 26, 3548906); +INSERT INTO SYS_CIDADES VALUES(5255, 'São Francisco', 26, 3549003); +INSERT INTO SYS_CIDADES VALUES(5256, 'São João da Boa Vista', 26, 3549102); +INSERT INTO SYS_CIDADES VALUES(5257, 'São João das Duas Pontes', 26, 3549201); +INSERT INTO SYS_CIDADES VALUES(5258, 'São João de Iracema', 26, 3549250); +INSERT INTO SYS_CIDADES VALUES(5259, 'São João do Pau d`Alho', 26, 3549300); +INSERT INTO SYS_CIDADES VALUES(5260, 'São Joaquim da Barra', 26, 3549409); +INSERT INTO SYS_CIDADES VALUES(5261, 'São José da Bela Vista', 26, 3549508); +INSERT INTO SYS_CIDADES VALUES(5262, 'São José do Barreiro', 26, 3549607); +INSERT INTO SYS_CIDADES VALUES(5263, 'São José do Rio Pardo', 26, 3549706); +INSERT INTO SYS_CIDADES VALUES(5264, 'São José do Rio Preto', 26, 3549805); +INSERT INTO SYS_CIDADES VALUES(5265, 'São José dos Campos', 26, 3549904); +INSERT INTO SYS_CIDADES VALUES(5266, 'São Lourenço da Serra', 26, 3549953); +INSERT INTO SYS_CIDADES VALUES(5267, 'São Luís do Paraitinga', 26, 3550001); +INSERT INTO SYS_CIDADES VALUES(5268, 'São Manuel', 26, 3550100); +INSERT INTO SYS_CIDADES VALUES(5269, 'São Miguel Arcanjo', 26, 3550209); +INSERT INTO SYS_CIDADES VALUES(5270, 'São Paulo', 26, 3550308); +INSERT INTO SYS_CIDADES VALUES(5271, 'São Pedro', 26, 3550407); +INSERT INTO SYS_CIDADES VALUES(5272, 'São Pedro do Turvo', 26, 3550506); +INSERT INTO SYS_CIDADES VALUES(5273, 'São Roque', 26, 3550605); +INSERT INTO SYS_CIDADES VALUES(5274, 'São Sebastião', 26, 3550704); +INSERT INTO SYS_CIDADES VALUES(5275, 'São Sebastião da Grama', 26, 3550803); +INSERT INTO SYS_CIDADES VALUES(5276, 'São Simão', 26, 3550902); +INSERT INTO SYS_CIDADES VALUES(5277, 'São Vicente', 26, 3551009); +INSERT INTO SYS_CIDADES VALUES(5278, 'Sarapuí', 26, 3551108); +INSERT INTO SYS_CIDADES VALUES(5279, 'Sarutaiá', 26, 3551207); +INSERT INTO SYS_CIDADES VALUES(5280, 'Sebastianópolis do Sul', 26, 3551306); +INSERT INTO SYS_CIDADES VALUES(5281, 'Serra Azul', 26, 3551405); +INSERT INTO SYS_CIDADES VALUES(5282, 'Serra Negra', 26, 3551603); +INSERT INTO SYS_CIDADES VALUES(5283, 'Serrana', 26, 3551504); +INSERT INTO SYS_CIDADES VALUES(5284, 'Sertãozinho', 26, 3551702); +INSERT INTO SYS_CIDADES VALUES(5285, 'Sete Barras', 26, 3551801); +INSERT INTO SYS_CIDADES VALUES(5286, 'Severínia', 26, 3551900); +INSERT INTO SYS_CIDADES VALUES(5287, 'Silveiras', 26, 3552007); +INSERT INTO SYS_CIDADES VALUES(5288, 'Socorro', 26, 3552106); +INSERT INTO SYS_CIDADES VALUES(5289, 'Sorocaba', 26, 3552205); +INSERT INTO SYS_CIDADES VALUES(5290, 'Sud Mennucci', 26, 3552304); +INSERT INTO SYS_CIDADES VALUES(5291, 'Sumaré', 26, 3552403); +INSERT INTO SYS_CIDADES VALUES(5292, 'Suzanápolis', 26, 3552551); +INSERT INTO SYS_CIDADES VALUES(5293, 'Suzano', 26, 3552502); +INSERT INTO SYS_CIDADES VALUES(5294, 'Tabapuã', 26, 3552601); +INSERT INTO SYS_CIDADES VALUES(5295, 'Tabatinga', 26, 3552700); +INSERT INTO SYS_CIDADES VALUES(5296, 'Taboão da Serra', 26, 3552809); +INSERT INTO SYS_CIDADES VALUES(5297, 'Taciba', 26, 3552908); +INSERT INTO SYS_CIDADES VALUES(5298, 'Taguaí', 26, 3553005); +INSERT INTO SYS_CIDADES VALUES(5299, 'Taiaçu', 26, 3553104); +INSERT INTO SYS_CIDADES VALUES(5300, 'Taiúva', 26, 3553203); +INSERT INTO SYS_CIDADES VALUES(5301, 'Tambaú', 26, 3553302); +INSERT INTO SYS_CIDADES VALUES(5302, 'Tanabi', 26, 3553401); +INSERT INTO SYS_CIDADES VALUES(5303, 'Tapiraí', 26, 3553500); +INSERT INTO SYS_CIDADES VALUES(5304, 'Tapiratiba', 26, 3553609); +INSERT INTO SYS_CIDADES VALUES(5305, 'Taquaral', 26, 3553658); +INSERT INTO SYS_CIDADES VALUES(5306, 'Taquaritinga', 26, 3553708); +INSERT INTO SYS_CIDADES VALUES(5307, 'Taquarituba', 26, 3553807); +INSERT INTO SYS_CIDADES VALUES(5308, 'Taquarivaí', 26, 3553856); +INSERT INTO SYS_CIDADES VALUES(5309, 'Tarabai', 26, 3553906); +INSERT INTO SYS_CIDADES VALUES(5310, 'Tarumã', 26, 3553955); +INSERT INTO SYS_CIDADES VALUES(5311, 'Tatuí', 26, 3554003); +INSERT INTO SYS_CIDADES VALUES(5312, 'Taubaté', 26, 3554102); +INSERT INTO SYS_CIDADES VALUES(5313, 'Tejupá', 26, 3554201); +INSERT INTO SYS_CIDADES VALUES(5314, 'Teodoro Sampaio', 26, 3554300); +INSERT INTO SYS_CIDADES VALUES(5315, 'Terra Roxa', 26, 3554409); +INSERT INTO SYS_CIDADES VALUES(5316, 'Tietê', 26, 3554508); +INSERT INTO SYS_CIDADES VALUES(5317, 'Timburi', 26, 3554607); +INSERT INTO SYS_CIDADES VALUES(5318, 'Torre de Pedra', 26, 3554656); +INSERT INTO SYS_CIDADES VALUES(5319, 'Torrinha', 26, 3554706); +INSERT INTO SYS_CIDADES VALUES(5320, 'Trabiju', 26, 3554755); +INSERT INTO SYS_CIDADES VALUES(5321, 'Tremembé', 26, 3554805); +INSERT INTO SYS_CIDADES VALUES(5322, 'Três Fronteiras', 26, 3554904); +INSERT INTO SYS_CIDADES VALUES(5323, 'Tuiuti', 26, 3554953); +INSERT INTO SYS_CIDADES VALUES(5324, 'Tupã', 26, 3555000); +INSERT INTO SYS_CIDADES VALUES(5325, 'Tupi Paulista', 26, 3555109); +INSERT INTO SYS_CIDADES VALUES(5326, 'Turiúba', 26, 3555208); +INSERT INTO SYS_CIDADES VALUES(5327, 'Turmalina', 26, 3555307); +INSERT INTO SYS_CIDADES VALUES(5328, 'Ubarana', 26, 3555356); +INSERT INTO SYS_CIDADES VALUES(5329, 'Ubatuba', 26, 3555406); +INSERT INTO SYS_CIDADES VALUES(5330, 'Ubirajara', 26, 3555505); +INSERT INTO SYS_CIDADES VALUES(5331, 'Uchoa', 26, 3555604); +INSERT INTO SYS_CIDADES VALUES(5332, 'União Paulista', 26, 3555703); +INSERT INTO SYS_CIDADES VALUES(5333, 'Urânia', 26, 3555802); +INSERT INTO SYS_CIDADES VALUES(5334, 'Uru', 26, 3555901); +INSERT INTO SYS_CIDADES VALUES(5335, 'Urupês', 26, 3556008); +INSERT INTO SYS_CIDADES VALUES(5336, 'Valentim Gentil', 26, 3556107); +INSERT INTO SYS_CIDADES VALUES(5337, 'Valinhos', 26, 3556206); +INSERT INTO SYS_CIDADES VALUES(5338, 'Valparaíso', 26, 3556305); +INSERT INTO SYS_CIDADES VALUES(5339, 'Vargem', 26, 3556354); +INSERT INTO SYS_CIDADES VALUES(5340, 'Vargem Grande do Sul', 26, 3556404); +INSERT INTO SYS_CIDADES VALUES(5341, 'Vargem Grande Paulista', 26, 3556453); +INSERT INTO SYS_CIDADES VALUES(5342, 'Várzea Paulista', 26, 3556503); +INSERT INTO SYS_CIDADES VALUES(5343, 'Vera Cruz', 26, 3556602); +INSERT INTO SYS_CIDADES VALUES(5344, 'Vinhedo', 26, 3556701); +INSERT INTO SYS_CIDADES VALUES(5345, 'Viradouro', 26, 3556800); +INSERT INTO SYS_CIDADES VALUES(5346, 'Vista Alegre do Alto', 26, 3556909); +INSERT INTO SYS_CIDADES VALUES(5347, 'Vitória Brasil', 26, 3556958); +INSERT INTO SYS_CIDADES VALUES(5348, 'Votorantim', 26, 3557006); +INSERT INTO SYS_CIDADES VALUES(5349, 'Votuporanga', 26, 3557105); +INSERT INTO SYS_CIDADES VALUES(5350, 'Zacarias', 26, 3557154); +INSERT INTO SYS_CIDADES VALUES(5351, 'Amparo de São Francisco', 25, 2800100); +INSERT INTO SYS_CIDADES VALUES(5352, 'Aquidabã', 25, 2800209); +INSERT INTO SYS_CIDADES VALUES(5353, 'Aracaju', 25, 2800308); +INSERT INTO SYS_CIDADES VALUES(5354, 'Arauá', 25, 2800407); +INSERT INTO SYS_CIDADES VALUES(5355, 'Areia Branca', 25, 2800506); +INSERT INTO SYS_CIDADES VALUES(5356, 'Barra dos Coqueiros', 25, 2800605); +INSERT INTO SYS_CIDADES VALUES(5357, 'Boquim', 25, 2800670); +INSERT INTO SYS_CIDADES VALUES(5358, 'Brejo Grande', 25, 2800704); +INSERT INTO SYS_CIDADES VALUES(5359, 'Campo do Brito', 25, 2801009); +INSERT INTO SYS_CIDADES VALUES(5360, 'Canhoba', 25, 2801108); +INSERT INTO SYS_CIDADES VALUES(5361, 'Canindé de São Francisco', 25, 2801207); +INSERT INTO SYS_CIDADES VALUES(5362, 'Capela', 25, 2801306); +INSERT INTO SYS_CIDADES VALUES(5363, 'Carira', 25, 2801405); +INSERT INTO SYS_CIDADES VALUES(5364, 'Carmópolis', 25, 2801504); +INSERT INTO SYS_CIDADES VALUES(5365, 'Cedro de São João', 25, 2801603); +INSERT INTO SYS_CIDADES VALUES(5366, 'Cristinápolis', 25, 2801702); +INSERT INTO SYS_CIDADES VALUES(5367, 'Cumbe', 25, 2801900); +INSERT INTO SYS_CIDADES VALUES(5368, 'Divina Pastora', 25, 2802007); +INSERT INTO SYS_CIDADES VALUES(5369, 'Estância', 25, 2802106); +INSERT INTO SYS_CIDADES VALUES(5370, 'Feira Nova', 25, 2802205); +INSERT INTO SYS_CIDADES VALUES(5371, 'Frei Paulo', 25, 2802304); +INSERT INTO SYS_CIDADES VALUES(5372, 'Gararu', 25, 2802403); +INSERT INTO SYS_CIDADES VALUES(5373, 'General Maynard', 25, 2802502); +INSERT INTO SYS_CIDADES VALUES(5374, 'Gracho Cardoso', 25, 2802601); +INSERT INTO SYS_CIDADES VALUES(5375, 'Ilha das Flores', 25, 2802700); +INSERT INTO SYS_CIDADES VALUES(5376, 'Indiaroba', 25, 2802809); +INSERT INTO SYS_CIDADES VALUES(5377, 'Itabaiana', 25, 2802908); +INSERT INTO SYS_CIDADES VALUES(5378, 'Itabaianinha', 25, 2803005); +INSERT INTO SYS_CIDADES VALUES(5379, 'Itabi', 25, 2803104); +INSERT INTO SYS_CIDADES VALUES(5380, 'Itaporanga d`Ajuda', 25, 2803203); +INSERT INTO SYS_CIDADES VALUES(5381, 'Japaratuba', 25, 2803302); +INSERT INTO SYS_CIDADES VALUES(5382, 'Japoatã', 25, 2803401); +INSERT INTO SYS_CIDADES VALUES(5383, 'Lagarto', 25, 2803500); +INSERT INTO SYS_CIDADES VALUES(5384, 'Laranjeiras', 25, 2803609); +INSERT INTO SYS_CIDADES VALUES(5385, 'Macambira', 25, 2803708); +INSERT INTO SYS_CIDADES VALUES(5386, 'Malhada dos Bois', 25, 2803807); +INSERT INTO SYS_CIDADES VALUES(5387, 'Malhador', 25, 2803906); +INSERT INTO SYS_CIDADES VALUES(5388, 'Maruim', 25, 2804003); +INSERT INTO SYS_CIDADES VALUES(5389, 'Moita Bonita', 25, 2804102); +INSERT INTO SYS_CIDADES VALUES(5390, 'Monte Alegre de Sergipe', 25, 2804201); +INSERT INTO SYS_CIDADES VALUES(5391, 'Muribeca', 25, 2804300); +INSERT INTO SYS_CIDADES VALUES(5392, 'Neópolis', 25, 2804409); +INSERT INTO SYS_CIDADES VALUES(5393, 'Nossa Senhora Aparecida', 25, 2804458); +INSERT INTO SYS_CIDADES VALUES(5394, 'Nossa Senhora da Glória', 25, 2804508); +INSERT INTO SYS_CIDADES VALUES(5395, 'Nossa Senhora das Dores', 25, 2804607); +INSERT INTO SYS_CIDADES VALUES(5396, 'Nossa Senhora de Lourdes', 25, 2804706); +INSERT INTO SYS_CIDADES VALUES(5397, 'Nossa Senhora do Socorro', 25, 2804805); +INSERT INTO SYS_CIDADES VALUES(5398, 'Pacatuba', 25, 2804904); +INSERT INTO SYS_CIDADES VALUES(5399, 'Pedra Mole', 25, 2805000); +INSERT INTO SYS_CIDADES VALUES(5400, 'Pedrinhas', 25, 2805109); +INSERT INTO SYS_CIDADES VALUES(5401, 'Pinhão', 25, 2805208); +INSERT INTO SYS_CIDADES VALUES(5402, 'Pirambu', 25, 2805307); +INSERT INTO SYS_CIDADES VALUES(5403, 'Poço Redondo', 25, 2805406); +INSERT INTO SYS_CIDADES VALUES(5404, 'Poço Verde', 25, 2805505); +INSERT INTO SYS_CIDADES VALUES(5405, 'Porto da Folha', 25, 2805604); +INSERT INTO SYS_CIDADES VALUES(5406, 'Propriá', 25, 2805703); +INSERT INTO SYS_CIDADES VALUES(5407, 'Riachão do Dantas', 25, 2805802); +INSERT INTO SYS_CIDADES VALUES(5408, 'Riachuelo', 25, 2805901); +INSERT INTO SYS_CIDADES VALUES(5409, 'Ribeirópolis', 25, 2806008); +INSERT INTO SYS_CIDADES VALUES(5410, 'Rosário do Catete', 25, 2806107); +INSERT INTO SYS_CIDADES VALUES(5411, 'Salgado', 25, 2806206); +INSERT INTO SYS_CIDADES VALUES(5412, 'Santa Luzia do Itanhy', 25, 2806305); +INSERT INTO SYS_CIDADES VALUES(5413, 'Santa Rosa de Lima', 25, 2806503); +INSERT INTO SYS_CIDADES VALUES(5414, 'Santana do São Francisco', 25, 2806404); +INSERT INTO SYS_CIDADES VALUES(5415, 'Santo Amaro das Brotas', 25, 2806602); +INSERT INTO SYS_CIDADES VALUES(5416, 'São Cristóvão', 25, 2806701); +INSERT INTO SYS_CIDADES VALUES(5417, 'São Domingos', 25, 2806800); +INSERT INTO SYS_CIDADES VALUES(5418, 'São Francisco', 25, 2806909); +INSERT INTO SYS_CIDADES VALUES(5419, 'São Miguel do Aleixo', 25, 2807006); +INSERT INTO SYS_CIDADES VALUES(5420, 'Simão Dias', 25, 2807105); +INSERT INTO SYS_CIDADES VALUES(5421, 'Siriri', 25, 2807204); +INSERT INTO SYS_CIDADES VALUES(5422, 'Telha', 25, 2807303); +INSERT INTO SYS_CIDADES VALUES(5423, 'Tobias Barreto', 25, 2807402); +INSERT INTO SYS_CIDADES VALUES(5424, 'Tomar do Geru', 25, 2807501); +INSERT INTO SYS_CIDADES VALUES(5425, 'Umbaúba', 25, 2807600); +INSERT INTO SYS_CIDADES VALUES(5426, 'Abreulândia', 27, 1700251); +INSERT INTO SYS_CIDADES VALUES(5427, 'Aguiarnópolis', 27, 1700301); +INSERT INTO SYS_CIDADES VALUES(5428, 'Aliança do Tocantins', 27, 1700350); +INSERT INTO SYS_CIDADES VALUES(5429, 'Almas', 27, 1700400); +INSERT INTO SYS_CIDADES VALUES(5430, 'Alvorada', 27, 1700707); +INSERT INTO SYS_CIDADES VALUES(5431, 'Ananás', 27, 1701002); +INSERT INTO SYS_CIDADES VALUES(5432, 'Angico', 27, 1701051); +INSERT INTO SYS_CIDADES VALUES(5433, 'Aparecida do Rio Negro', 27, 1701101); +INSERT INTO SYS_CIDADES VALUES(5434, 'Aragominas', 27, 1701309); +INSERT INTO SYS_CIDADES VALUES(5435, 'Araguacema', 27, 1701903); +INSERT INTO SYS_CIDADES VALUES(5436, 'Araguaçu', 27, 1702000); +INSERT INTO SYS_CIDADES VALUES(5437, 'Araguaína', 27, 1702109); +INSERT INTO SYS_CIDADES VALUES(5438, 'Araguanã', 27, 1702158); +INSERT INTO SYS_CIDADES VALUES(5439, 'Araguatins', 27, 1702208); +INSERT INTO SYS_CIDADES VALUES(5440, 'Arapoema', 27, 1702307); +INSERT INTO SYS_CIDADES VALUES(5441, 'Arraias', 27, 1702406); +INSERT INTO SYS_CIDADES VALUES(5442, 'Augustinópolis', 27, 1702554); +INSERT INTO SYS_CIDADES VALUES(5443, 'Aurora do Tocantins', 27, 1702703); +INSERT INTO SYS_CIDADES VALUES(5444, 'Axixá do Tocantins', 27, 1702901); +INSERT INTO SYS_CIDADES VALUES(5445, 'Babaçulândia', 27, 1703008); +INSERT INTO SYS_CIDADES VALUES(5446, 'Bandeirantes do Tocantins', 27, 1703057); +INSERT INTO SYS_CIDADES VALUES(5447, 'Barra do Ouro', 27, 1703073); +INSERT INTO SYS_CIDADES VALUES(5448, 'Barrolândia', 27, 1703107); +INSERT INTO SYS_CIDADES VALUES(5449, 'Bernardo Sayão', 27, 1703206); +INSERT INTO SYS_CIDADES VALUES(5450, 'Bom Jesus do Tocantins', 27, 1703305); +INSERT INTO SYS_CIDADES VALUES(5451, 'Brasilândia do Tocantins', 27, 1703602); +INSERT INTO SYS_CIDADES VALUES(5452, 'Brejinho de Nazaré', 27, 1703701); +INSERT INTO SYS_CIDADES VALUES(5453, 'Buriti do Tocantins', 27, 1703800); +INSERT INTO SYS_CIDADES VALUES(5454, 'Cachoeirinha', 27, 1703826); +INSERT INTO SYS_CIDADES VALUES(5455, 'Campos Lindos', 27, 1703842); +INSERT INTO SYS_CIDADES VALUES(5456, 'Cariri do Tocantins', 27, 1703867); +INSERT INTO SYS_CIDADES VALUES(5457, 'Carmolândia', 27, 1703883); +INSERT INTO SYS_CIDADES VALUES(5458, 'Carrasco Bonito', 27, 1703891); +INSERT INTO SYS_CIDADES VALUES(5459, 'Caseara', 27, 1703909); +INSERT INTO SYS_CIDADES VALUES(5460, 'Centenário', 27, 1704105); +INSERT INTO SYS_CIDADES VALUES(5461, 'Chapada da Natividade', 27, 1705102); +INSERT INTO SYS_CIDADES VALUES(5462, 'Chapada de Areia', 27, 1704600); +INSERT INTO SYS_CIDADES VALUES(5463, 'Colinas do Tocantins', 27, 1705508); +INSERT INTO SYS_CIDADES VALUES(5464, 'Colméia', 27, 1716703); +INSERT INTO SYS_CIDADES VALUES(5465, 'Combinado', 27, 1705557); +INSERT INTO SYS_CIDADES VALUES(5466, 'Conceição do Tocantins', 27, 1705607); +INSERT INTO SYS_CIDADES VALUES(5467, 'Couto de Magalhães', 27, 1706001); +INSERT INTO SYS_CIDADES VALUES(5468, 'Cristalândia', 27, 1706100); +INSERT INTO SYS_CIDADES VALUES(5469, 'Crixás do Tocantins', 27, 1706258); +INSERT INTO SYS_CIDADES VALUES(5470, 'Darcinópolis', 27, 1706506); +INSERT INTO SYS_CIDADES VALUES(5471, 'Dianópolis', 27, 1707009); +INSERT INTO SYS_CIDADES VALUES(5472, 'Divinópolis do Tocantins', 27, 1707108); +INSERT INTO SYS_CIDADES VALUES(5473, 'Dois Irmãos do Tocantins', 27, 1707207); +INSERT INTO SYS_CIDADES VALUES(5474, 'Dueré', 27, 1707306); +INSERT INTO SYS_CIDADES VALUES(5475, 'Esperantina', 27, 1707405); +INSERT INTO SYS_CIDADES VALUES(5476, 'Fátima', 27, 1707553); +INSERT INTO SYS_CIDADES VALUES(5477, 'Figueirópolis', 27, 1707652); +INSERT INTO SYS_CIDADES VALUES(5478, 'Filadélfia', 27, 1707702); +INSERT INTO SYS_CIDADES VALUES(5479, 'Formoso do Araguaia', 27, 1708205); +INSERT INTO SYS_CIDADES VALUES(5480, 'Fortaleza do Tabocão', 27, 1708254); +INSERT INTO SYS_CIDADES VALUES(5481, 'Goianorte', 27, 1708304); +INSERT INTO SYS_CIDADES VALUES(5482, 'Goiatins', 27, 1709005); +INSERT INTO SYS_CIDADES VALUES(5483, 'Guaraí', 27, 1709302); +INSERT INTO SYS_CIDADES VALUES(5484, 'Gurupi', 27, 1709500); +INSERT INTO SYS_CIDADES VALUES(5485, 'Ipueiras', 27, 1709807); +INSERT INTO SYS_CIDADES VALUES(5486, 'Itacajá', 27, 1710508); +INSERT INTO SYS_CIDADES VALUES(5487, 'Itaguatins', 27, 1710706); +INSERT INTO SYS_CIDADES VALUES(5488, 'Itapiratins', 27, 1710904); +INSERT INTO SYS_CIDADES VALUES(5489, 'Itaporã do Tocantins', 27, 1711100); +INSERT INTO SYS_CIDADES VALUES(5490, 'Jaú do Tocantins', 27, 1711506); +INSERT INTO SYS_CIDADES VALUES(5491, 'Juarina', 27, 1711803); +INSERT INTO SYS_CIDADES VALUES(5492, 'Lagoa da Confusão', 27, 1711902); +INSERT INTO SYS_CIDADES VALUES(5493, 'Lagoa do Tocantins', 27, 1711951); +INSERT INTO SYS_CIDADES VALUES(5494, 'Lajeado', 27, 1712009); +INSERT INTO SYS_CIDADES VALUES(5495, 'Lavandeira', 27, 1712157); +INSERT INTO SYS_CIDADES VALUES(5496, 'Lizarda', 27, 1712405); +INSERT INTO SYS_CIDADES VALUES(5497, 'Luzinópolis', 27, 1712454); +INSERT INTO SYS_CIDADES VALUES(5498, 'Marianópolis do Tocantins', 27, 1712504); +INSERT INTO SYS_CIDADES VALUES(5499, 'Mateiros', 27, 1712702); +INSERT INTO SYS_CIDADES VALUES(5500, 'Maurilândia do Tocantins', 27, 1712801); +INSERT INTO SYS_CIDADES VALUES(5501, 'Miracema do Tocantins', 27, 1713205); +INSERT INTO SYS_CIDADES VALUES(5502, 'Miranorte', 27, 1713304); +INSERT INTO SYS_CIDADES VALUES(5503, 'Monte do Carmo', 27, 1713601); +INSERT INTO SYS_CIDADES VALUES(5504, 'Monte Santo do Tocantins', 27, 1713700); +INSERT INTO SYS_CIDADES VALUES(5505, 'Muricilândia', 27, 1713957); +INSERT INTO SYS_CIDADES VALUES(5506, 'Natividade', 27, 1714203); +INSERT INTO SYS_CIDADES VALUES(5507, 'Nazaré', 27, 1714302); +INSERT INTO SYS_CIDADES VALUES(5508, 'Nova Olinda', 27, 1714880); +INSERT INTO SYS_CIDADES VALUES(5509, 'Nova Rosalândia', 27, 1715002); +INSERT INTO SYS_CIDADES VALUES(5510, 'Novo Acordo', 27, 1715101); +INSERT INTO SYS_CIDADES VALUES(5511, 'Novo Alegre', 27, 1715150); +INSERT INTO SYS_CIDADES VALUES(5512, 'Novo Jardim', 27, 1715259); +INSERT INTO SYS_CIDADES VALUES(5513, 'Oliveira de Fátima', 27, 1715507); +INSERT INTO SYS_CIDADES VALUES(5514, 'Palmas', 27, 1721000); +INSERT INTO SYS_CIDADES VALUES(5515, 'Palmeirante', 27, 1715705); +INSERT INTO SYS_CIDADES VALUES(5516, 'Palmeiras do Tocantins', 27, 1713809); +INSERT INTO SYS_CIDADES VALUES(5517, 'Palmeirópolis', 27, 1715754); +INSERT INTO SYS_CIDADES VALUES(5518, 'Paraíso do Tocantins', 27, 1716109); +INSERT INTO SYS_CIDADES VALUES(5519, 'Paranã', 27, 1716208); +INSERT INTO SYS_CIDADES VALUES(5520, 'Pau d`Arco', 27, 1716307); +INSERT INTO SYS_CIDADES VALUES(5521, 'Pedro Afonso', 27, 1716505); +INSERT INTO SYS_CIDADES VALUES(5522, 'Peixe', 27, 1716604); +INSERT INTO SYS_CIDADES VALUES(5523, 'Pequizeiro', 27, 1716653); +INSERT INTO SYS_CIDADES VALUES(5524, 'Pindorama do Tocantins', 27, 1717008); +INSERT INTO SYS_CIDADES VALUES(5525, 'Piraquê', 27, 1717206); +INSERT INTO SYS_CIDADES VALUES(5526, 'Pium', 27, 1717503); +INSERT INTO SYS_CIDADES VALUES(5527, 'Ponte Alta do Bom Jesus', 27, 1717800); +INSERT INTO SYS_CIDADES VALUES(5528, 'Ponte Alta do Tocantins', 27, 1717909); +INSERT INTO SYS_CIDADES VALUES(5529, 'Porto Alegre do Tocantins', 27, 1718006); +INSERT INTO SYS_CIDADES VALUES(5530, 'Porto Nacional', 27, 1718204); +INSERT INTO SYS_CIDADES VALUES(5531, 'Praia Norte', 27, 1718303); +INSERT INTO SYS_CIDADES VALUES(5532, 'Presidente Kennedy', 27, 1718402); +INSERT INTO SYS_CIDADES VALUES(5533, 'Pugmil', 27, 1718451); +INSERT INTO SYS_CIDADES VALUES(5534, 'Recursolândia', 27, 1718501); +INSERT INTO SYS_CIDADES VALUES(5535, 'Riachinho', 27, 1718550); +INSERT INTO SYS_CIDADES VALUES(5536, 'Rio da Conceição', 27, 1718659); +INSERT INTO SYS_CIDADES VALUES(5537, 'Rio dos Bois', 27, 1718709); +INSERT INTO SYS_CIDADES VALUES(5538, 'Rio Sono', 27, 1718758); +INSERT INTO SYS_CIDADES VALUES(5539, 'Sampaio', 27, 1718808); +INSERT INTO SYS_CIDADES VALUES(5540, 'Sandolândia', 27, 1718840); +INSERT INTO SYS_CIDADES VALUES(5541, 'Santa Fé do Araguaia', 27, 1718865); +INSERT INTO SYS_CIDADES VALUES(5542, 'Santa Maria do Tocantins', 27, 1718881); +INSERT INTO SYS_CIDADES VALUES(5543, 'Santa Rita do Tocantins', 27, 1718899); +INSERT INTO SYS_CIDADES VALUES(5544, 'Santa Rosa do Tocantins', 27, 1718907); +INSERT INTO SYS_CIDADES VALUES(5545, 'Santa Tereza do Tocantins', 27, 1719004); +INSERT INTO SYS_CIDADES VALUES(5546, 'Santa Terezinha do Tocantins', 27, 1720002); +INSERT INTO SYS_CIDADES VALUES(5547, 'São Bento do Tocantins', 27, 1720101); +INSERT INTO SYS_CIDADES VALUES(5548, 'São Félix do Tocantins', 27, 1720150); +INSERT INTO SYS_CIDADES VALUES(5549, 'São Miguel do Tocantins', 27, 1720200); +INSERT INTO SYS_CIDADES VALUES(5550, 'São Salvador do Tocantins', 27, 1720259); +INSERT INTO SYS_CIDADES VALUES(5551, 'São Sebastião do Tocantins', 27, 1720309); +INSERT INTO SYS_CIDADES VALUES(5552, 'São Valério da Natividade', 27, 1720499); +INSERT INTO SYS_CIDADES VALUES(5553, 'Silvanópolis', 27, 1720655); +INSERT INTO SYS_CIDADES VALUES(5554, 'Sítio Novo do Tocantins', 27, 1720804); +INSERT INTO SYS_CIDADES VALUES(5555, 'Sucupira', 27, 1720853); +INSERT INTO SYS_CIDADES VALUES(5556, 'Taguatinga', 27, 1720903); +INSERT INTO SYS_CIDADES VALUES(5557, 'Taipas do Tocantins', 27, 1720937); +INSERT INTO SYS_CIDADES VALUES(5558, 'Talismã', 27, 1720978); +INSERT INTO SYS_CIDADES VALUES(5559, 'Tocantínia', 27, 1721109); +INSERT INTO SYS_CIDADES VALUES(5560, 'Tocantinópolis', 27, 1721208); +INSERT INTO SYS_CIDADES VALUES(5561, 'Tupirama', 27, 1721257); +INSERT INTO SYS_CIDADES VALUES(5562, 'Tupiratins', 27, 1721307); +INSERT INTO SYS_CIDADES VALUES(5563, 'Wanderlândia', 27, 1722081); +INSERT INTO SYS_CIDADES VALUES(5564, 'Xambioá', 27, 1722107); +INSERT INTO SYS_CIDADES VALUES(5575, 'Gama', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5576, 'Taguatinga', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5577, 'Brazlândia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5578, 'Sobradinho', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5579, 'Planaltina', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5580, 'Paranoá', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5581, 'Núcleo Bandeirante', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5582, 'Ceilândia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5583, 'Guará', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5584, 'Cruzeiro', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5585, 'Samambaia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5586, 'Santa Maria', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5587, 'São Sebastião', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5589, 'Lago Sul', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5590, 'Riacho Fundo', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5591, 'Lago Norte', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5592, 'Candangolândia', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5593, 'Águas Claras', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5594, 'Riacho Fundo II', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5595, 'Sudoeste/Octogonal', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5596, 'Varjão', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5597, 'Park Way', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5598, 'SCIA', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5599, 'Sobradinho II', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5601, 'Itapoã', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5602, 'SIA', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5603, 'Vicente Pires', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5604, 'Fercal', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5574, 'Recanto das Emas', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5600, 'Jardim Botânico', 7, 5300108); +INSERT INTO SYS_CIDADES VALUES(5605, 'Nazária', 17, 2206720); +INSERT INTO SYS_CIDADES VALUES(5606, 'Paraíso das Águas', 12, 5006275); +INSERT INTO SYS_CIDADES VALUES(5607, 'Pinto Bandeira', 23, 4314548); +INSERT INTO SYS_CIDADES VALUES(5608, 'Balneário Rincão', 24, 4220000); +INSERT INTO SYS_CIDADES VALUES(5609, 'Pescaria Brava', 24, 4212650); +#INSERT INTO SYS_CIDADES VALUES(5610, 'Exterior', 99, 9999999); \ No newline at end of file diff --git a/estados.sql b/estados.sql new file mode 100644 index 0000000..1061602 --- /dev/null +++ b/estados.sql @@ -0,0 +1,27 @@ +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (12,'AC','Acre',1); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (27,'AL','Alagoas',2); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (13,'AM','Amazonas',3); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (16,'AP','Amapá',4); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (29,'BA','Bahia',5); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (23,'CE','Ceará',6); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (53,'DF','Distrito Federal',7); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (32,'ES','Espírito Santo',8); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (52,'GO','Goiás',9); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (21,'MA','Maranhão',10); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (31,'MG','Minas Gerais',11); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (50,'MS','Mato Grosso do Sul',12); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (51,'MT','Mato Grosso',13); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (15,'PA','Pará',14); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (25,'PB','Paraíba',15); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (26,'PE','Pernambuco',16); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (22,'PI','Piauí',17); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (41,'PR','Paraná',18); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (33,'RJ','Rio de Janeiro',19); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (24,'RN','Rio Grande do Norte',20); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (11,'RO','Rondônia',21); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (14,'RR','Roraima',22); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (43,'RS','Rio Grande do Sul',23); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (42,'SC','Santa Catarina',24); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (28,'SE','Sergipe',25); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (35,'SP','São Paulo',26); +INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (17,'TO','Tocantis',27); \ No newline at end of file diff --git a/sistema.ini b/sistema.ini new file mode 100644 index 0000000..810cda9 --- /dev/null +++ b/sistema.ini @@ -0,0 +1,7 @@ +[dados] +dir=E:\Programa_Cobranca\CHARGE.GDB +;dir=C:\Program Files (x86)\Programa_Cobranca\banco_flavia\CHARGE.GDB +constructor=C:\Program Files (x86)\Programa_Cobranca\banco.sql +[atualizacao] +situacao=S +caminho=DELPHI_DEV-PC:C:\Controle_Versao \ No newline at end of file diff --git a/uExtenso.pas b/uExtenso.pas new file mode 100644 index 0000000..bdd7c86 --- /dev/null +++ b/uExtenso.pas @@ -0,0 +1,318 @@ +unit uExtenso; + +interface + +function valorPorExtenso(vlr: real): string; +function Extenso(Valor : Extended; Moeda: Boolean; Tipo : Integer = 0): String; + +implementation + +uses SysUtils; + +function valorPorExtenso(vlr: real): string; +const + unidade: array [1 .. 19] of string = ('um', 'dois', 'trs', 'quatro', 'cinco', + 'seis', 'sete', 'oito', 'nove', 'dez', 'onze', 'doze', 'treze', 'quatorze', + 'quinze', 'dezesseis', 'dezessete', 'dezoito', 'dezenove'); + centena: array [1 .. 9] of string = ('cento', 'duzentos', 'trezentos', + 'quatrocentos', 'quinhentos', 'seiscentos', 'setecentos', 'oitocentos', + 'novecentos'); + dezena: array [2 .. 9] of string = ('vinte', 'trinta', 'quarenta', + 'cinquenta', 'sessenta', 'setenta', 'oitenta', 'noventa'); + qualificaS: array [0 .. 4] of string = ('', 'mil', 'milho', 'bilho', + 'trilho'); + qualificaP: array [0 .. 4] of string = ('', 'mil', 'milhes', 'bilhes', + 'trilhes'); +var + inteiro: Int64; + resto: real; + vlrS, s, saux, vlrP, centavos: string; + n, unid, dez, cent, tam, i: integer; + umReal, tem: boolean; +begin + if (vlr = 0) then + begin + valorPorExtenso := 'zero'; + exit; + end; + + inteiro := trunc(vlr); // parte inteira do valor + resto := vlr - inteiro; // parte fracionria do valor + vlrS := inttostr(inteiro); + if (length(vlrS) > 15) then + begin + valorPorExtenso := 'Erro: valor superior a 999 trilhes.'; + exit; + end; + + s := ''; + centavos := inttostr(round(resto * 100)); + + // definindo o extenso da parte inteira do valor + i := 0; + umReal := false; + tem := false; + while (vlrS <> '0') do + begin + tam := length(vlrS); + // retira do valor a 1a. parte, 2a. parte, por exemplo, para 123456789: + // 1a. parte = 789 (centena) + // 2a. parte = 456 (mil) + // 3a. parte = 123 (milhes) + if (tam > 3) then + begin + vlrP := copy(vlrS, tam - 2, tam); + vlrS := copy(vlrS, 1, tam - 3); + end + else + begin // ltima parte do valor + vlrP := vlrS; + vlrS := '0'; + end; + if (vlrP <> '000') then + begin + saux := ''; + if (vlrP = '100') then + saux := 'cem' + else + begin + n := strtoint(vlrP); // para n = 371, tem-se: + cent := n div 100; // cent = 3 (centena trezentos) + dez := (n mod 100) div 10; // dez = 7 (dezena setenta) + unid := (n mod 100) mod 10; // unid = 1 (unidade um) + if (cent <> 0) then + saux := centena[cent]; + if ((dez <> 0) or (unid <> 0)) then + begin + if ((n mod 100) <= 19) then + begin + if (length(saux) <> 0) then + saux := saux + ' e ' + unidade[n mod 100] + else + saux := unidade[n mod 100]; + end + else + begin + if (length(saux) <> 0) then + saux := saux + ' e ' + dezena[dez] + else + saux := dezena[dez]; + if (unid <> 0) then + if (length(saux) <> 0) then + saux := saux + ' e ' + unidade[unid] + else + saux := unidade[unid]; + end; + end; + end; + if ((vlrP = '1') or (vlrP = '001')) then + begin + if (i = 0) // 1a. parte do valor (um real) + then + umReal := true + else + saux := saux + ' ' + qualificaS[i]; + end + else if (i <> 0) then + saux := saux + ' ' + qualificaP[i]; + if (length(s) <> 0) then + s := saux + ', ' + s + else + s := saux; + end; + if (((i = 0) or (i = 1)) and (length(s) <> 0)) then + tem := true; // tem centena ou mil no valor + i := i + 1; // prximo qualificador: 1- mil, 2- milho, 3- bilho, ... + end; + + if (length(s) <> 0) then + begin + if (umReal) then + s := s + ' real' + else if (tem) then + s := s + ' reais' + else + s := s + ' de reais'; + end; + // definindo o extenso dos centavos do valor + if (centavos <> '0') // valor com centavos + then + begin + if (length(s) <> 0) // se no valor somente com centavos + then + s := s + ' e '; + if (centavos = '1') then + s := s + 'um centavo' + else + begin + n := strtoint(centavos); + if (n <= 19) then + s := s + unidade[n] + else + begin // para n = 37, tem-se: + unid := n mod 10; // unid = 37 % 10 = 7 (unidade sete) + dez := n div 10; // dez = 37 / 10 = 3 (dezena trinta) + s := s + dezena[dez]; + if (unid <> 0) then + s := s + ' e ' + unidade[unid]; + end; + s := s + ' centavos'; + end; + end; + valorPorExtenso := s; +end; + +function Extenso(Valor : Extended; Moeda: Boolean; Tipo : Integer = 0): String; +var + Centavos, Centena, Milhar, Milhao, Bilhao, Texto : string; +const + Unidades: array [1..9] of string = ('um', 'dois', 'trs','quatro','cinco', + 'seis', 'sete', 'oito','nove'); + Dez : array [1..9] of string = ('onze', 'doze', 'treze', 'quatorze', + 'quinze', 'dezesseis', 'dezessete', 'dezoito', 'dezenove'); + Dezenas : array [1..9] of string = ('dez', 'vinte', 'trinta', + 'quarenta', 'cinqenta', 'sessenta', 'setenta', 'oitenta', 'noventa'); + Centenas: array [1..9] of string = ('cento', 'duzentos', 'trezentos', + 'quatrocentos', 'quinhentos', 'seiscentos', 'setecentos', 'oitocentos', + 'novecentos'); + function ifs( Expressao: Boolean; CasoVerdadeiro, CasoFalso:String): String; + begin + if Expressao then + Result := CasoVerdadeiro + else + Result :=CasoFalso; + end; + function MiniExtenso( Valor: ShortString ): string; + var + Unidade, Dezena, Centena: String; + begin + if (Valor[2] = '1') and (Valor[3] <> '0') then + begin + Unidade := Dez[StrToInt(Valor[3])]; + Dezena := ''; + end + else + begin + if Valor[2] <> '0' then + Dezena := Dezenas[StrToInt(Valor[2])]; + if Valor[3] <> '0' then + unidade := Unidades[StrToInt(Valor[3])]; + end; + if (Valor[1] = '1') and (Unidade = '') and (Dezena = '') then + centena := 'cem' + else + if Valor[1] <> '0' then + Centena := Centenas[StrToInt(Valor[1])] + else + Centena := ''; + + Result := Centena + ifs( (Centena <> '') and ((Dezena <> '') or + (Unidade <> '')),' e ', '') + Dezena + ifs( (Dezena <> '') and + (Unidade <> ''), ' e ','') + Unidade; + end; +begin + if Valor = 0 then + begin + if Moeda then + Result := '' + else + Result := 'zero'; + + Exit; + end; + + Texto := FormatFloat( '000000000000.00', Valor ); + Centavos := MiniExtenso( '0' + Copy( Texto, 14, 2 ) ); + Centena := MiniExtenso( Copy( Texto, 10, 3 ) ); + Milhar := MiniExtenso( Copy( Texto, 7, 3 ) ); + + if Milhar <> '' then + Milhar := Milhar + ' mil'; + + Milhao := MiniExtenso( Copy( Texto, 4, 3 ) ); + + if Milhao <> '' then + begin + Milhao := Milhao + + ifs( Copy( Texto, 4, + 3 ) = '001', ' milho', ' milhes'); + end; + + Bilhao := MiniExtenso( Copy( Texto, 1, 3 ) ); + + if Bilhao <> '' then + begin + Bilhao := Bilhao + ifs( Copy( Texto, 1, 3 ) = '001', ' bilho', + ' bilhes'); + end; + + Result := Bilhao + ifs( (Bilhao <> '') and (Milhao + Milhar + + Centena <> ''), + ifs((Pos(' e ', Bilhao) > 0) or (Pos( ' e ', + Milhao + Milhar + Centena ) > 0), ', ', ' e '), '') + + Milhao + ifs( (Milhao <> '') and (Milhar + Centena <> ''), + ifs((Pos(' e ', Milhao) > 0) or + (Pos( ' e ', Milhar + Centena ) > 0 ),', ', ' e '), '') + + Milhar + ifs( (Milhar <> '') and + (Centena <> ''), ifs(Pos( ' e ', Centena ) > 0, ', ', ' e '),'') + + Centena; + + if Moeda then + begin + if Tipo=0 then + begin + if (Bilhao <> '') and (Milhao + Milhar + Centena = '') then + Result := Bilhao + ' de reais' + else + if (Milhao <> '') and (Milhar + Centena = '') then + Result := Milhao + ' de reais' + else + Result := Bilhao + ifs( (Bilhao <> '') and (Milhao + Milhar + + Centena <> ''), ifs((Pos(' e ', Bilhao) > 0) or (Pos( ' e ', + Milhao +Milhar + Centena ) > 0), ', ', ' e '), '') + Milhao + ifs( + (Milhao <> '') and (Milhar + Centena <> ''), ifs((Pos(' e ', + Milhao) > 0) or (Pos( ' e ', Milhar + Centena ) > 0 ),', ', + ' e '), '') + Milhar + ifs( (Milhar <> '') and (Centena <> ''), + ifs(Pos( ' e ', Centena ) > 0, ', ', ' e '),'') + + Centena + ifs( Int(Valor) = 1, ' real', ' reais'); + if Centavos <> '' then + begin + if Valor > 1 then + Result := Result + ' e ' + Centavos + ifs( Copy( + Texto, 14, 2 )= '01', ' centavo', ' centavos' ) + else + Result := Centavos + ifs( Copy( Texto, 14, 2 )= '01', + ' centavo', ' centavos' ); + end; + end + else + begin + if (Bilhao <> '') and (Milhao + Milhar + Centena = '') then + Result := Bilhao + ' de dolares americanos' + else + if (Milhao <> '') and (Milhar + Centena = '') then + Result := Milhao + ' de dolares americanos' + else + Result := Bilhao + ifs( (Bilhao <> '') and (Milhao + Milhar + + Centena <> ''), ifs((Pos(' e ', Bilhao) > 0) or (Pos( ' e ', + Milhao + Milhar + Centena ) > 0),', ', ' e '), '') + Milhao + + ifs( (Milhao <> '') and (Milhar + Centena <> ''), ifs((Pos(' e ', + Milhao) > 0) or (Pos( ' e ', Milhar + Centena ) > 0 ),', ', + ' e '), '') + Milhar + ifs( (Milhar <> '') and (Centena <> ''), + ifs(Pos( ' e ', Centena ) > 0,', ', ' e '),'') + Centena + ifs( + Int(Valor) = 1, ' dolar americano', ' dolares americanos'); + + if Centavos <> '' then + begin + if Valor > 1 then + Result := Result + ' e ' + Centavos + ifs( Copy( Texto, 14, 2 )= + '01', ' cent', ' cents' ) + else + Result := Centavos + ifs( Copy( Texto, 14, 2 )= '01', ' cent', ' ' + + 'cents' ); + end; + end; + end; +end; + +end. diff --git a/uFuncoes.pas b/uFuncoes.pas new file mode 100644 index 0000000..ef167b4 --- /dev/null +++ b/uFuncoes.pas @@ -0,0 +1,3417 @@ + +{ + + Funes + + Versao 2.11 - 13/05/2016 + + - Juntar elementos de lista + + Versao 2.10 - 20/04/2010 + + - Formatar CEP, CPF e CNPJ + + Verso 2.9 - 08/07/2006 + + - Funes para controle de servios + + Verso 2.8 - 08/03/2006 + + - criada GetUserName + + - criada GetComputerName + + - criada GetIdeDiskSerialNumber + + Verso 2.7.1 - 29/08/2005 + + - criada a funo LerCampoWeb + + Verso 2.7.0 - 24/09/2003 + + - function MinToHr(min: integer): String; + + - Acerto no clculo - formato de sada hhh:mm + + - function DecToMin(dec:real): integer; + + - Acerto no clculo + + - function HrToMin(hora: String): Integer; + + - Para os formatos hhh:mm e hh:mm + + Verso 2.6.0 - 21/05/2003 + + - Incluso da funo fillspacesl, inserir espaos esquerda + + + Verso 2.5.0 - 06/03/2003 + + - Incluso das funes + + function datetoyyyymmdd + + function datetoddmmyyyy + + + Verso 2.4.1 - 22/01/2003 + + - Acerto no roundprecise e roundprecise2 + para converter os valores recebidos + por causa de um erro que no convertia + 3.015 para 3.02, somente quando o valor + vinha no parmetro precisamente + + Verso 2.4.0 - 15/01/2003 + + - RoundValue corigida para + arredondar xx,9 para xx+1 + + Verso 2.3.0 - 09/01/2003 + + - Implementao das funes bancrias + + Verso 2.2.0 - 08/01/2003 + + - Implementao das converses de horas + + Verso 2.1.0 - 02/01/2003 + + - DateToDDMMYY corrigido o ano + - Replace corrigido + - RoundValue corrigida + + Verso 2.0 - 20/10/2002 + + - Implementao das funes bsicas + +} + + +unit uFuncoes; + +interface + +uses SysUtils, Controls, Classes, Windows, Dialogs, Registry, + ActiveX, ComObj, ShlObj, Winsock, WinSvc, ShellAPI, Variants, + WinInet, Mapi, Forms; + + +type + TShortcut = (scDesktop, scQuickLaunch, scSendTo, scStart, scPrograms); + + +// +// Internet +// + +function ConectadoInternet: Boolean; + +function EnviarEmail(Endereco: String; Assunto: String = ''; Texto: String = ''; + stlAnexo: TStringList = nil; AEnviarDireto: boolean = False): Boolean; + +// +// Bancrias +// + +function fatorvencimento(data: TDateTime): string; + +function mod10(valor: string): string; + +function mod11(valor: string): string; +function mod11barsantander(valor: string): string; +function mod11santander(valor: string): string; +function mod11bradesco(valor: string): string; + +function dacbarcode(tmp: string):string; + +function reprnumerica(tmp: string):string; + +// +// Valores +// + +function StrToCurrency(s: string): real; + +function RoundInteger(value: real):integer; + +function RoundCurrency(value: currency):currency; + +function RoundValue(value: real):real; + +function ValToCurr(tmp: string): real; + + + +// +// Strings +// + +function LerCampoWeb(msg,campo,default,tipo: string): string; + +function PlainText(s: string): string; + +function OnlyNumbers(s: string): string; + +function replace(tag:string; s1, s2:char):string; + +function ReplaceStr(S,Localizar,Substituir : string) : string; + +function blockjustify(s: string; tam:integer):string; + +function center(s: string; l: integer): string; + +function fillspaces(tmp: string; count: integer):string; + +function fillspacesl(tmp: string; count: integer):string; + +function fillzeros(tmp: string; count: integer):string; + +function fillcurrency(tmp: currency; count: integer):string; + +function replicate(tmp: string; count: integer): string; + +function getword(tmp: string; pos:integer):string; + +function RightStr(const str: string; size: word): String; + +function MidStr(const str: string; from, size: word): String; + +function LeftStr(const str: string; size: word): String; + +procedure ParseDelimited(const sl : TStrings; const value : string; const delimiter : string) ; + +function HexToInt(const HexStr: string): longint; + +function ExtractIP(Path: string): string; + +function RemoveIP(Path: string): string; + +function FormatarCEP(const CEP: string): string; + +function FormatarCPF(const CPF: string): string; + +function FormatarCNPJ(const CNPJ: string): string; + +// +// Datas +// + +function DataUtilAleatoria(dt_inicio, dt_fim: TDateTime): TDateTime; + +function DiaSemana(Data: TDateTime): String; + +function day(data: TDate): Word; + +function month(data: TDate): Word; + +function year(data: TDate): Word; + +function firstday(month, year: word): TDateTime; + +function lastday(month, year: word): TDateTime; + +function ddmmyytodate(tmp: string): TDateTime; + +function ddmmyyyytodate(tmp: string):TDate; + +function datetoddmmyy(tmp: TDateTime):string; + +function datetoddmmyyyy(tmp: TDateTime):string; + +function datetoyyyymmdd(tmp: TDateTime):string; + +//Retorna uma data reduzida de "xMeses" meses, podendo ser corrido ou no +function DiminuiMes (dData : TDateTime; xMeses : Integer; lCorrido : Boolean) : TDateTime; + +//Retorna uma data acrescida de "xMeses" meses, podendo ser corrido ou no +function SomaMes (dData : TDateTime; xMeses : Integer; lCorrido : boolean) : TDateTime; + +//Retorna o ltimo dia til caso a data informada caia em um fim de semana +function DiaUtilAnterior (dData : TDateTime) : TDateTime; + +//Retorna o prximo dia til caso a data informada caia em um fim de semana +function ProximoDiaUtil (dData : TDateTime) : TDateTime; + +//Verifica se uma data informada cai em um final de semana +function IsWeekEnd (dData : TDateTime) : boolean; + +//Retorna data do ltimo dia do ms, ou ltimo dia til, de uma data informada +function LastDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; + +//Retorna data do primeiro dia do ms, ou primeiro dia til, de uma data informada +function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; + +//Retorna uma data no Ms seguinte a uma data informada +function NextMonth (Data : TDateTime) : TDateTime; +Function PriorMonth (Data : TDateTime) : TDateTime; + +//Retorna a data vlida imediatamente posterior a uma data invlida +function ProxDataValida (Ano, Mes, Dia : Word) : TDateTime; + +//Retorna a data vlida imediatamente anterior a uma data invlida +function UltDataValida (Ano, Mes, Dia : Word) : TDateTime; + + +// +// Horas +// + +function HrToMin(hora: String): Integer; + +function MinToHr(min: integer): String; + +function MinToDec(min:real): real; + +function DecToMin(dec:real): integer; + + +// +// Verificao +// + +function VerificaCPF(Value: string): Boolean; + +function VerificaCNPJ(Value: string): Boolean; + + +// +// Arquivos +// + +procedure CopyFile(const sourcefilename, targetfilename: string); + +procedure CopyFileType(const sourcefilename, targetfilename, filetype: string); + +procedure DeleteDir(hHandle:THandle; Const sPath:String); + +procedure Deltree(cPath: string); + +function FileInUse(FileName: string): Boolean; + + +// +// Sistema +// + +function GetUserName: string; + +function GetComputerName: string; + +function GetComputerIP: string; + +function GetIdeDiskSerialNumber: string; + +function FindVolumeSerial(const Drive : PChar): string; + +function GetBiosSerial: string; + +function GetBiosInfoAsText: string; + +function GetBiosCheckSum: string; + +//function GetHashedBiosInfo: string; + +function GetFileVersion(const FileName: TFileName; var Major, Minor, Release, Build: word): boolean; + +function CreateShortcut(aTarget,startDir,aCaption,aGroup: string; aLoc: TShortcut; silent: Boolean): Boolean; + +procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean); + +function ServiceStopped(sMachine, sService: string): boolean; + +function ServiceRunning(sMachine, sService: string): boolean; + +function ServiceGetStatus(sMachine, sService: string): DWord; + +function ServiceStart(sMachine, sService: string): boolean; + +function ServiceStop(sMachine, sService: string): boolean; + +procedure RunOnStartUp(ApTitle, ApPathFile: string; RunOnce: Boolean); + +procedure RemoveFromStartUp(ApTitle: string); + +function CheckStartUp(ApTitle: string): boolean; + +procedure SetRegistryData(RootKey: HKEY; Key, Value: string; RegDataType: TRegDataType; Data: variant); + +function GetRegistryData(RootKey: HKEY; Key, Value: string): variant; + +procedure AcertarData(data: TDateTime); + +// Function GetNetUserName: string; + +// +// Arrays +// + +function join(const separator: string; const pieces: array of String): string; + +// +// Criptografia +// + +function Crypt(Opcao: String; Dados: String): String; + +function NumAleatorio(Qtd: Integer):string; + +implementation + + +function ConectadoInternet: Boolean; +const + INTERNET_CONNECTION_MODEM = 1; + INTERNET_CONNECTION_LAN = 2; + INTERNET_CONNECTION_PROXY = 4; + INTERNET_CONNECTION_MODEM_BUSY = 8; +var + dwConnectionTypes : DWORD; +begin + dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; + If InternetGetConnectedState(@dwConnectionTypes,0) then + Result := True + else + Result := False; +end; + +function FormatarCEP(const CEP: string): string; +var + I: integer; +begin + Result := ''; + for I := 1 to Length(CEP) do + if CEP[I] in ['0'..'9'] then + Result := Result + CEP[I]; + if Length(Result) <> 8 then + result := CEP + else + Result := + Copy(Result, 1, 5) + '-' + + Copy(Result, 6, 3); +end; + +function FormatarCPF(const CPF: string): string; +var + I: integer; +begin + Result := ''; + for I := 1 to Length(CPF) do + if CPF[I] in ['0'..'9'] then + Result := Result + CPF[I]; + if Length(Result) <> 11 then + result := CPF + else + Result := + Copy(Result, 1, 3) + '.' + + Copy(Result, 4, 3) + '.' + + Copy(Result, 7, 3) + '-' + + Copy(Result, 10, 2); +end; + +function FormatarCNPJ(const CNPJ: string): string; +var + I: integer; +begin + Result := ''; + for I := 1 to Length(CNPJ) do + if CNPJ[I] in ['0'..'9'] then + Result := Result + CNPJ[I]; + if Length(Result) <> 14 then + result := CNPJ + else + Result := + Copy(Result, 1, 2) + '.' + + Copy(Result, 3, 3) + '.' + + Copy(Result, 6, 3) + '/' + + Copy(Result, 9, 4) + '-' + + Copy(Result, 13, 2); +end; + + +procedure AcertarData(data: TDateTime); +var SystemTime: TSystemTime; +begin + + with SystemTime do + begin + // Definindo o dia do sistema + wYear := StrToInt(FormatDateTime('yyyy', data)); + wMonth := StrToInt(FormatDateTime('mm', data)); + wDay := StrToInt(FormatDateTime('dd', data)); + // Definindo a hora do sistema + wHour := StrToInt(FormatDateTime('hh', data)); + wMinute := StrToInt(FormatDateTime('nn', data)); + wSecond := StrToInt(FormatDateTime('ss', data)); + end; + + //Colocar a hora e data do sistema + SetLocalTime(SystemTime); + +end; + + +function DataUtilAleatoria(dt_inicio, dt_fim: TDateTime): TDateTime; +{Retorna uma data aleatria em dia til entre 2 datas limites} +var dt_sorteio: TDateTime; + nr_intervalo, nr_dias: integer; +begin + + Randomize; + + // Calcula os nmeros de dias entre as datas + + nr_intervalo := Trunc(dt_fim - dt_inicio); + + // Pega um intervalo qualquer e calcula a nova data + + nr_dias := Random(nr_intervalo); + + dt_sorteio := dt_inicio + nr_dias; + + // Se for Sbado ou Domingo tira 2 + + if (DayOfWeek(dt_sorteio) = 1) or (DayOfWeek(dt_sorteio) = 7) then + dt_sorteio := dt_sorteio - 2; + + Result := dt_sorteio; + +end; + + +function ExtractIP(Path: string): string; +begin + + result := copy(path, 1, pos(':', path)-1); + +end; + + +function RemoveIP(Path: string): string; +begin + + result := copy(path, pos(':', path)+1, length(path)); + +end; + + +function HexToInt(const HexStr: string): longint; +var +iNdx: integer; +cTmp: Char; +begin +result := 0; +for iNdx := 1 to Length(HexStr) do +begin +cTmp := HexStr[iNdx]; +case cTmp of +'0'..'9': Result := 16 * Result + (Ord(cTmp) - $30); +'A'..'F': Result := 16 * Result + (Ord(cTmp) - $37); +'a'..'f': Result := 16 * Result + (Ord(cTmp) - $57); +else +raise EConvertError.Create('Illegal character in hex string'); +end; +end; +end; + +procedure CopyFile(const sourcefilename, targetfilename: string); +var S, T: TFileStream; +begin + S := TFileStream.Create( sourcefilename, fmOpenRead ); + try + T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate ); + try + T.CopyFrom(S, S.Size ) ; + finally + T.Free; + end; + finally + S.Free; + end; +end; + + +procedure CopyFileType(const sourcefilename, targetfilename, filetype: string); +var + intFound: Integer; + SearchRec: TSearchRec; +begin + { + intFound := FindFirst(sourcefilename+filetype, faAnyFile, SearchRec); + + while intFound = 0 do + begin + + CopyFile(sourcefilename+SearchRec.Name, targetfilename+SearchRec.Name); + + intFound := FindNext(SearchRec); + + end; + + FindClose(SearchRec); + } +end; + +procedure DeleteDir( hHandle : THandle; Const sPath : String ); +var + OpStruc: TSHFileOpStruct; + FromBuffer, ToBuffer: Array[0..128] of Char; +begin + fillChar( OpStruc, Sizeof(OpStruc), 0 ); + FillChar( FromBuffer, Sizeof(FromBuffer), 0 ); + FillChar( ToBuffer, Sizeof(ToBuffer), 0 ); + StrPCopy( FromBuffer, sPath); + With OpStruc Do + Begin + Wnd:= hHandle; + wFunc:=FO_DELETE; + pFrom:= @FromBuffer; + pTo:= @ToBuffer; + fFlags:= FOF_NOCONFIRMATION; + fAnyOperationsAborted:=False; + hNameMappings:=nil; + //lpszProgressTitle:=nil; + End; + ShFileOperation(OpStruc); +end; + +procedure Deltree(cPath: string); +// +// Remove um diretorio +// +var +search: TSearchRec; +nFiles: integer; +begin +nFiles:=FindFirst( cPath + '\*.*', faAnyFile, search ); +while nFiles=0 do + begin + if Search.Attr = faDirectory then + begin + if (Search.Name<>'.') and (Search.Name<>'..') then + begin + Deltree( cPath + '\' + Search.Name ); + RMDir( cPath + '\' + Search.Name ); + end; + end + else + begin + SysUtils.DeleteFile(cPath + '\' + Search.Name); + end; + nFiles:=FindNext( Search ); + end; +SysUtils.FindClose(Search); +RMDir(cPath); +end; + +function LerCampoWeb(msg,campo,default,tipo: string): string; +var i: integer; + msglist: TStringList; + s: string; +begin + + // Delimita o campo + + campo := campo + ':'; + + msglist := TStringList.Create; + + msglist.Text := msg; + + result := ''; + + // Percorre as linhas procurando a varivel + + for i := 0 to msglist.Count-1 do + begin + + if copy(msglist.strings[i], 1, length(campo)) = campo then + begin + + result := copy(msglist.strings[i], length(campo)+2, length(msglist.strings[i])-length(campo)+1); + + end; + + end; + + if trim(result) = '' then result := default; + + + // Se o campo for tarifa, troca os pontos '.' por vrgulas ',' + + if tipo = 'tarifa' then + begin + Replace(result, '.', ','); + end; + + // Verifica se o campo numrico e tira os pontos '.' + + if default = '0' then + begin + s := result; + while Pos('.', s) > 0 do Delete(s,Pos('.', s),1); + result := s; + end; + +end; + + +// +// Bancrias +// + +function fatorvencimento(data: TDateTime): string; +{O fator de vencimento a quantidade de dias entre 07/Nov/1997 e a data de vencimento do ttulo} +begin + + if data >= EncodeDate(1997,10,07) then + + result := IntToStr(Trunc(data - EncodeDate(1997,10,07))) + + else + + result := '0000'; + +end; + +function mod10(valor: String) : string; +{ + Rotina usada para clculo de alguns dgitos verificadores + Pega-se cada um dos dgitos contidos no parmetro VALOR, da direita para a + esquerda e multiplica-se por 2121212... + Soma-se cada um dos subprodutos. Caso algum dos subprodutos tenha mais de um + dgito, deve-se somar cada um dos dgitos. (Exemplo: 7*2 = 14 >> 1+4 = 5) + Divide-se a soma por 10. + Faz-se a operao 10-Resto da diviso e devolve-se o resultado dessa operao + como resultado da funo Modulo10. + Obs.: Caso o resultado seja maior que 9, dever ser substitudo por 0 (ZERO). +} +var + Auxiliar : string; + Contador, Peso : integer; + Digito : integer; +begin + Auxiliar := ''; + Peso := 2; + for Contador := Length(Valor) downto 1 do + begin + Auxiliar := IntToStr(StrToInt(Valor[Contador]) * Peso) + Auxiliar; + if Peso = 1 then + Peso := 2 + else + Peso := 1; + end; + + Digito := 0; + for Contador := 1 to Length(Auxiliar) do + begin + Digito := Digito + StrToInt(Auxiliar[Contador]); + end; + Digito := 10 - (Digito mod 10); + if (Digito > 9) then + Digito := 0; + Result := IntToStr(Digito); +end; + + +function mod11(Valor: string): string; +{ + Rotina muito usada para calcular dgitos verificadores + Pega-se cada um dos dgitos contidos no parmetro VALOR, da direita para a + esquerda e multiplica-se pela seqncia de pesos 2, 3, 4 ... at BASE. + Por exemplo: se a base for 9, os pesos sero 2,3,4,5,6,7,8,9,2,3,4,5... + Se a base for 7, os pesos sero 2,3,4,5,6,7,2,3,4... + Soma-se cada um dos subprodutos. + Divide-se a soma por 11. + Faz-se a operao 11-Resto da diviso e devolve-se o resultado dessa operao + como resultado da funo Modulo11. + Obs.: Caso o resultado seja maior que 9, dever ser substitudo por 0 (ZERO). +} +var + Soma : integer; + Contador, Peso, Digito, resto : integer; +begin + + // Bancos + // + // Real + // Itau + // Caixa Econmica + // Unibanco - Para COD BARRAS se dig - 0/1/10 entao dig = 1 + // para NOSSO NUMERO se dig - 0/1/10 entao dig = 0 + + Soma := 0; + Peso := 2; + for Contador := Length(Valor) downto 1 do + begin + Soma := Soma + (StrToInt(Valor[Contador]) * Peso); + if Peso < 9 then + Peso := Peso + 1 + else + Peso := 2; + end; + + resto := (soma mod 11); + + digito := 11 - resto; + + if (digito = 0) then digito := 1; + if (digito = 1) then digito := 1; + if (digito > 9) then digito := 1; + + result := IntToStr(digito); + +end; + +function mod11santander(valor: string): string; +{ + Rotina muito usada para calcular dgitos verificadores + Pega-se cada um dos dgitos contidos no parmetro VALOR, da direita para a + esquerda e multiplica-se pela seqncia de pesos 2, 3, 4 ... at BASE. + Por exemplo: se a base for 9, os pesos sero 2,3,4,5,6,7,8,9,2,3,4,5... + Se a base for 7, os pesos sero 2,3,4,5,6,7,2,3,4... + Soma-se cada um dos subprodutos. + Divide-se a soma por 11. + Faz-se a operao 11-Resto da diviso e devolve-se o resultado dessa operao + como resultado da funo Modulo11. + Obs.: Caso o resultado seja maior que 9, dever ser substitudo por 0 (ZERO). +} +var soma : integer; + contador, peso, digito, resto : integer; +begin + + Soma := 0; + Peso := 2; + + for Contador := Length(Valor) downto 1 do + begin + Soma := Soma + (StrToInt(Valor[Contador]) * Peso); + if Peso < 9 then + Peso := Peso + 1 + else + Peso := 2; + end; + + resto := (soma mod 11); + + digito := 11 - resto; + + if (resto = 0) then digito := 0; + if (resto = 1) then digito := 0; + if (resto > 9) then digito := 1; + + result := IntToStr(digito); + +end; + + +function mod11barsantander(valor: string): string; +{ + Rotina muito usada para calcular dgitos verificadores + Pega-se cada um dos dgitos contidos no parmetro VALOR, da direita para a + esquerda e multiplica-se pela seqncia de pesos 2, 3, 4 ... at BASE. + Por exemplo: se a base for 9, os pesos sero 2,3,4,5,6,7,8,9,2,3,4,5... + Se a base for 7, os pesos sero 2,3,4,5,6,7,2,3,4... + Soma-se cada um dos subprodutos. + Divide-se a soma por 11. + Faz-se a operao 11-Resto da diviso e devolve-se o resultado dessa operao + como resultado da funo Modulo11. + Obs.: Caso o resultado seja maior que 9, dever ser substitudo por 0 (ZERO). +} +var soma : integer; + contador, peso, digito, resto : integer; +begin + + Soma := 0; + Peso := 2; + + for Contador := Length(Valor) downto 1 do + begin + Soma := Soma + (StrToInt(Valor[Contador]) * Peso); + if Peso < 9 then + Peso := Peso + 1 + else + Peso := 2; + end; + + resto := (soma mod 11); + + digito := 11 - resto; + + if (resto = 0) then digito := 1; + if (resto = 1) then digito := 1; + if (resto > 9) then digito := 1; + + result := IntToStr(digito); + +end; + +function mod11bradesco(valor: string): string; + +{ + Rotina muito usada para calcular dgitos verificadores + Pega-se cada um dos dgitos contidos no parmetro VALOR, da direita para a + esquerda e multiplica-se pela seqncia de pesos 2, 3, 4 ... at BASE. + Por exemplo: se a base for 9, os pesos serao 2,3,4,5,6,7,8,9,2,3,4,5... + Se a base for 7, os pesos serao 2,3,4,5,6,7,2,3,4... + Soma-se cada um dos subprodutos. + Divide-se a soma por 11. + Faz-se a operaao 11-Resto da divisao e devolve-se o resultado dessa operaao + como resultado da funao Modulo11. + Obs.: Caso o resultado seja maior que 9, dever ser substitudo por 0 (ZERO). + +} + +var Soma : integer; + Contador, Peso, Digito : integer; + +begin + + Soma := 0; + Peso := 2; + + for Contador := Length(valor) downto 1 do + begin + + Soma := Soma + (StrToInt(Copy(valor,Contador,1)) * Peso); + + if (Peso < 7) and (Peso >= 2) then + Peso := Peso + 1 + else + Peso := 2; + + end; // for + + Digito := (Soma * 10) mod 11; + + if (Digito > 9) then + result:='P' + else + result := IntToStr(Digito); + +end; + + +function reprnumerica(tmp:string): string; +var campo1, campo2, campo3, campo4, campo5: string; +begin + + campo1 := copy(tmp,1,9); + campo2 := copy(tmp,10,10); + campo3 := copy(tmp,20,10); + campo4 := copy(tmp,30,1); + campo5 := copy(tmp,31,14); + + campo1 := campo1 + mod10(campo1); + campo2 := campo2 + mod10(campo2); + campo3 := campo3 + mod10(campo3); + + result := copy(campo1,1,5)+'.'+copy(campo1,6,5)+' '+ + copy(campo2,1,5)+'.'+copy(campo2,6,6)+' '+ + copy(campo3,1,5)+'.'+copy(campo3,6,6)+' '+ + campo4+' '+campo5; +end; + + +function dacbarcode(tmp: string):string; +begin + + result := copy(tmp,1,4) + mod11(tmp) + copy(tmp,5,39); + +end; + +// +// Valores +// + +function RoundInteger(value: real):integer; +// Arredonda para cima se for >= 0.5 e arredonda para baixo se for <= 0.4 +begin + + result := trunc(value+0.5); + +end; + + +function RoundCurrency(value: currency):currency; +// Arredonda para cima se for >= 0.5 e arredonda para baixo se for <= 0.4 +begin + + // value := strtofloat(floattostr(value)); + + result := trunc((value*100)+0.5)/100; + +end; + + +function fillspaces(tmp: string; count: integer):string; +begin + + result := copy(trim(tmp)+StringOfChar(' ',count),1,count); + +end; + +function fillspacesl(tmp: string; count: integer):string; +begin + + tmp := trim(tmp); + + result := StringOfChar(' ',count-length(tmp)) + tmp; + +end; + +function fillzeros(tmp: string; count: integer):string; +begin + + fillzeros := copy(StringOfChar('0',count)+tmp,length(tmp)+1,count); + +end; + + +function fillcurrency(tmp: currency; count: integer):string; +var s, inteiro, decimal: string; +begin + + s := formatfloat('0.00',tmp); + inteiro := copy(s,1,length(s)-3); + decimal := copy(s,length(s)-1,2); + + fillcurrency := fillzeros(inteiro,count-2)+decimal; + +end; + +function datetoddmmyy(tmp: TDateTime):string; +begin + result := FormatDateTime('ddmmyy', tmp); + // result := copy(DateToStr(tmp),1,2)+copy(DateToStr(tmp),4,2)+copy(DateToStr(tmp),length(DateToStr(tmp))-1,2); +end; + +function datetoddmmyyyy(tmp: TDateTime):string; +begin + result := FormatDateTime('ddmmyyyy', tmp); +end; + +function datetoyyyymmdd(tmp: TDateTime):string; +begin + result := FormatDateTime('yyyymmdd', tmp); +end; + +function ddmmyytodate(tmp: string):TDateTime; +var Year, Month, Day: word; +begin + if (length(trim(tmp)) = 0) or (tmp = '000000') then + begin + result := 0; + end + else begin + Year := StrToInt(copy(tmp,5,2)); + Month := StrToint(copy(tmp,3,2)); + Day := StrToInt(copy(tmp,1,2)); + // Y2K + if year > 50 then + Year := Year + 1900 + else + Year := Year + 2000; + result := EncodeDate(Year, Month, Day); + end; +end; + +function ddmmyyyytodate(tmp: string):TDate; +var Year, Month, Day: word; +begin + if (length(trim(tmp)) = 0) or (tmp = '00000000') then + begin + result := 0; + end + else begin + Day := StrToInt(copy(tmp,1,2)); + Month := StrToint(copy(tmp,3,2)); + Year := StrToInt(copy(tmp,5,4)); + result := EncodeDate(Year, Month, Day); + end; +end; + + +function valtocurr(tmp: string): real; +begin + + ValToCurr := StrToInt(copy(tmp,1,11)) + (StrToInt(copy(tmp,12,2))/100); + +end; + + +function PlainText(s: string): string; +var i: integer; +begin + + for i := 1 to length(s) do + begin + + case s[i] of + + '','','','','': s[i] := 'a'; + '','','','' : s[i] := 'e'; + '','','','' : s[i] := 'i'; + '','','','','': s[i] := 'o'; + '','','','' : s[i] := 'u'; + '' : s[i] := 'c'; + + '','','','','': s[i] := 'A'; + '','','','' : s[i] := 'E'; + '','','','' : s[i] := 'I'; + '','','','','': s[i] := 'O'; + '','','','' : s[i] := 'U'; + '' : s[i] := 'C'; + + end; + + end; + + PlainText := s; + +end; + + +function StrToCurrency(s: string): real; +begin + +// ShowMessage(onlynumbers(s)); + +// ShowMessage(replace(onlynumbers(s),'.',',')); + + result := StrToFloatDef(replace(onlynumbers(s),'.',','),0); + +end; + + +function OnlyNumbers(s: string): string; +var i: byte; +begin + + result := ''; + for i := 1 To Length(s) do + if s[i] in ['0'..'9'] then + result := result + s[i]; + + { + while pos('', s) > 0 do delete(s, pos('', s), 6); + + while pos('.', s) > 0 do delete(s, pos('.', s), 1); + + while pos('-', s) > 0 do delete(s, pos('-', s), 1); + + while pos('/', s) > 0 do delete(s, pos('/', s), 1); + + while pos('(', s) > 0 do delete(s, pos('(', s), 1); + + while pos(')', s) > 0 do delete(s, pos(')', s), 1); + + while pos(' ', s) > 0 do delete(s, pos(' ', s), 1); + + while pos('<', s) > 0 do delete(s, pos('<', s), 1); + + while pos('>', s) > 0 do delete(s, pos('>', s), 1); + + while pos('R$', s) > 0 do delete(s, pos('R$', s), 2); + } + + //result := s; + +end; + + +function firstday(month, year: word): TDateTime; +begin + + result := EncodeDate(year, month, 1); + +end; + + +function lastday(month, year: word): TDateTime; +var ndia, nmes, nano: word; + data: TDate; +begin + + data := EncodeDate(year, month, 28); + + while TRUE do + begin + + data := data + 1; + DecodeDate(data, nano, nmes, ndia); + if (nmes <> month) then break; + + end; + + lastday := data - 1; + +end; + + +function replace(tag:string; s1, s2:char):string; +var i: integer; +begin + + for i := 1 to length(tag) do + begin + + if tag[i] = s1 then tag[i] := s2; + + end; + + replace := tag; + +end; + + +function ReplaceStr (S,Localizar,Substituir : string) : string; +var + Retorno: String; + Posicao: Integer; +begin + Retorno := S; + //Obtendo a posio inicial da substring Localizar na string Localizar. + Posicao := Pos (Localizar, Retorno); + if Posicao <> 0 then // Verificando se a substring Localizar existe. + begin + // Excluindo a Localizar. + Delete(Retorno, Posicao, Length (Localizar)); + // Inserindo a string do parmetro Substituir + Insert(Substituir, Retorno , Posicao); + end; +Result := Retorno; +end; + +function getword(tmp: string; pos:integer):string; +var c,i : integer; + s: string; +begin + + c := 0; + + s := ''; + + i := 1; + + while i <= length(tmp) do + begin + + if tmp[i] <> ' ' then + begin + + while (tmp[i] <> ' ') and (i <= length(tmp)) do + begin + + s := s + tmp[i]; + + i := i + 1; + + end; + + c := c + 1; + + if (c = pos) or (i = length(tmp)) then + begin + + result := s; + + exit; + + end; + + s := ''; + + end; + + i := i + 1; + + end; + + result := ''; + +end; + + +function DiaSemana(Data: TDateTime): String; +{Retorna o dia da semana em Extenso de uma determinada data} +const + Dias : Array[1..7] of String[07] = ('dom', 'seg', 'ter','qua','qui', 'sex', 'sab'); +begin + Result := Dias[DayOfWeek(Data)]; +end; + + +function blockjustify(s: string; tam:integer):string; +var i: integer; +begin + + i := length(s); + + while length(s) < tam do + begin + + if (s[i] = ' ') then insert(' ',s,i); + i := i - 1; + + end; + + blockjustify := s; + +end; + +// +// arredonda valor no formato 0.0123 +// + +function roundvalue(value: real):real; +var svalor: string; + v: integer; + c: string; + i: integer; +begin + + if value = round(value) then + begin + result := value; + exit; + end; + + // + // Verifica se a casa depois da virgula + // nove e torna o nmero inteiro mais um + // + + svalor := FloatToStr(value)+'0000'; + + if copy(svalor, pos(',', svalor)+1, 1) = '9' then + begin + result := trunc(value)+1; + exit; + end; + + // + // Faz o arredondamento desde o final + // + + for i := 5 downto 5 do + begin + + if StrToInt(svalor[i]) >= 5 then + begin + + if StrToInt(svalor[i-1]) < 9 then + begin + v := StrToInt(svalor[i-1])+1; + c := IntToStr(v); + svalor[i-1] := c[1]; + end + else + begin + v := StrToInt(copy(svalor,i-2,2))+1; + c := IntToStr(v); + svalor[i-1] := c[2]; + svalor[i-2] := c[1]; + end; + + end; + + end; + + result := StrToFloat(copy(svalor,1,4)); + +end; + +function day(data: TDate): Word; +var dia, mes, ano: word; +begin + + Decodedate(data, ano, mes, dia); + + result := dia; + +end; + + +function month(data: TDate): Word; +var dia, mes, ano: word; +begin + + DecodeDate( data, ano, mes, dia); + + result := mes; + +end; + + +function year(data: TDate): Word; +var dia, mes, ano: word; +begin + + Decodedate(data, ano, mes, dia); + + result := ano; + +end; + + +function center(s: string; l: integer): string; +var spc: integer; +begin + + if length(s) > l then s := copy(s,1,l); + + spc := (l-length(s)) div 2; + + center := StringOfChar(' ',spc)+s; + +end; + + +// +// Horas +// + + +function HrToMin(hora: String): Integer; +var p: integer; +begin + + p := pos(':', hora); + + if p > 0 then + result := (StrToInt(copy(hora,1,p-1))*60) + StrToInt(copy(hora,p+1,2)) + else + result := 0; + +end; + + +function MinToHr(min: integer): String; +var m: integer; +begin + + m := DecToMin((min/60)-int(min/60)); + + result := fillspacesl(inttostr(trunc(min/60)),3)+':'+fillzeros(inttostr(m),2); + + if length(trim(result)) = 4 then result := ' 0'+trim(result); + +end; + + +function MinToDec(min:real): real; +begin + + result := min / 60; + +end; + + +function DecToMin(dec:real): integer; +begin + + result := trunc((dec/1.666666) * 100); + +end; + +function VerificaCPF(Value: string): Boolean; +var + localCPF : string; + localResult : boolean; + digit1, digit2 : integer; + ii,soma : integer; + +begin + + localCPF := ''; + localResult := False; + + {analisa CPF no formato 999.999.999-00} + if Length(Value) = 14 then + if (Copy(Value,4,1)+Copy(Value,8,1)+Copy(Value,12,1) = '..-') then + begin + localCPF := Copy(Value,1,3) + Copy(Value,5,3) + Copy(Value,9,3) + + Copy(Value,13,2); + localResult := True; + end; + + {analisa CPF no formato 99999999900} + if Length(Value) = 11 then + begin + localCPF := Value; + localResult := True; + end; + + {comeca a verificacao do digito} + if localResult then + try + {1 digito} + soma := 0; + for ii := 1 to 9 do Inc(soma, StrToInt(Copy(localCPF, 10-ii, 1))*(ii+1)); + digit1 := 11 - (soma mod 11); + if digit1 > 9 then digit1 := 0; + + {2 digito} + soma := 0; + for ii := 1 to 10 do Inc(soma, StrToInt(Copy(localCPF, 11-ii, 1))*(ii+1)); + digit2 := 11 - (soma mod 11); + if digit2 > 9 then digit2 := 0; + + {Checa os dois dgitos} + if (Digit1 = StrToInt(Copy(localCPF, 10, 1))) and + (Digit2 = StrToInt(Copy(localCPF, 11, 1))) then + localResult := True + else + localResult := False; + except + localResult := False; + end; + + result := localResult; + +end; + +function VerificaCNPJ(Value: string): Boolean; + +var + localCGC : string; + localResult : boolean; + digit1, digit2 : integer; + ii,soma : integer; + +begin + + localCGC := ''; + localResult := False; + + {analisa CNPJ no formato 99.999.999/9999-00} + if Length(Value) = 18 then + if (Copy(Value,3,1)+Copy(Value,7,1)+Copy(Value,11,1)+Copy(Value,16,1) = '../-') then + begin + localCGC := Copy(Value,1,2) + Copy(Value,4,3) + Copy(Value,8,3) + + Copy(Value,12,4) + Copy(Value,17,2); + localResult := True; + end; + + {analisa CGC no formato 99999999999900} + if Length(Value) = 14 then + begin + localCGC := Value; + localResult := True; + end; + + {comeca a verificacao do digito} + if localResult then + try + {1 digito} + soma := 0; + for ii := 1 to 12 do + begin + if ii < 5 then + Inc(soma, StrToInt(Copy(localCGC, ii, 1))*(6-ii)) + else + Inc(soma, StrToInt(Copy(localCGC, ii, 1))*(14-ii)) + end; + digit1 := 11 - (soma mod 11); + if digit1 > 9 then digit1 := 0; + + {2 digito} + soma := 0; + for ii := 1 to 13 do + begin + if ii < 6 then + Inc(soma, StrToInt(Copy(localCGC, ii, 1))*(7-ii)) + else + Inc(soma, StrToInt(Copy(localCGC, ii, 1))*(15-ii)) + end; + digit2 := 11 - (soma mod 11); + if digit2 > 9 then digit2 := 0; + + {Checa os dois dgitos} + if (Digit1 = StrToInt(Copy(localCGC, 13, 1))) and + (Digit2 = StrToInt(Copy(localCGC, 14, 1))) then + localResult := True + else + localResult := False; + except + localResult := False; + end; + + result := localResult; + +end; + + + +function replicate(tmp: string; count: integer): string; +var i: integer; + str: string; +begin + + str := ''; + + for i:= 1 to count do str:= str + tmp; + + result := Str; + +end; + +function GetFileVersion(const FileName: TFileName; + var Major, Minor, Release, Build: word): boolean; + // Returns True on success and False on failure. + var + size, len: longword; + handle: THandle; + buffer: pchar; + pinfo: ^VS_FIXEDFILEINFO; + +begin + + Result := False; + size := GetFileVersionInfoSize(Pointer(FileName), handle); + if size > 0 then begin + GetMem(buffer, size); + if GetFileVersionInfo(Pointer(FileName), 0, size, buffer) + then + if VerQueryValue(buffer, '\', pointer(pinfo), len) then begin + Major := HiWord(pinfo.dwFileVersionMS); + Minor := LoWord(pinfo.dwFileVersionMS); + Release := HiWord(pinfo.dwFileVersionLS); + Build := LoWord(pinfo.dwFileVersionLS); + Result := True; + end; + FreeMem(buffer); + end; + +end; + + +function GetComputerName: string; +var pcComputer: PChar; + dwCSize: DWORD; +begin + + dwCSize := MAX_COMPUTERNAME_LENGTH + 1; + + GetMem(pcComputer, dwCSize ); + + try + + if Windows.GetComputerName(pcComputer, dwCSize ) then + + Result := pcComputer; + + finally + + FreeMem(pcComputer); + + end; + +end; + + +function GetIdeDiskSerialNumber: String; +type + TSrbIoControl = packed record + HeaderLength : ULONG; + Signature : Array[0..7] of Char; + Timeout : ULONG; + ControlCode : ULONG; + ReturnCode : ULONG; + Length : ULONG; + end; + SRB_IO_CONTROL = TSrbIoControl; + PSrbIoControl = ^TSrbIoControl; + + TIDERegs = packed record + bFeaturesReg : Byte; // especificar "comandos" SMART + bSectorCountReg : Byte; // registro de contador de setor + bSectorNumberReg : Byte; // registro de nmero de setores + bCylLowReg : Byte; // valor de cilindro (byte mais baixo) + bCylHighReg : Byte; // valor de cilindro (byte mais alto) + bDriveHeadReg : Byte; // registro de drive/cabea + bCommandReg : Byte; // comando IDE + bReserved : Byte; // reservado- tem que ser zero + end; + IDEREGS = TIDERegs; + PIDERegs = ^TIDERegs; + + TSendCmdInParams = packed record + cBufferSize : DWORD; + irDriveRegs : TIDERegs; + bDriveNumber : Byte; + bReserved : Array[0..2] of Byte; + dwReserved : Array[0..3] of DWORD; + bBuffer : Array[0..0] of Byte; + end; + SENDCMDINPARAMS = TSendCmdInParams; + PSendCmdInParams = ^TSendCmdInParams; + + TIdSector = packed record + wGenConfig : Word; + wNumCyls : Word; + wReserved : Word; + wNumHeads : Word; + wBytesPerTrack : Word; + wBytesPerSector : Word; + wSectorsPerTrack : Word; + wVendorUnique : Array[0..2] of Word; + sSerialNumber : Array[0..19] of Char; + wBufferType : Word; + wBufferSize : Word; + wECCSize : Word; + sFirmwareRev : Array[0..7] of Char; + sModelNumber : Array[0..39] of Char; + wMoreVendorUnique : Word; + wDoubleWordIO : Word; + wCapabilities : Word; + wReserved1 : Word; + wPIOTiming : Word; + wDMATiming : Word; + wBS : Word; + wNumCurrentCyls : Word; + wNumCurrentHeads : Word; + wNumCurrentSectorsPerTrack : Word; + ulCurrentSectorCapacity : ULONG; + wMultSectorStuff : Word; + ulTotalAddressableSectors : ULONG; + wSingleWordDMA : Word; + wMultiWordDMA : Word; + bReserved : Array[0..127] of Byte; + end; + PIdSector = ^TIdSector; + + const + IDE_ID_FUNCTION = $EC; + IDENTIFY_BUFFER_SIZE = 512; + DFP_RECEIVE_DRIVE_DATA = $0007c088; + IOCTL_SCSI_MINIPORT = $0004d008; + IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501; + DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE; + BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize; + W9xBufferSize = IDENTIFY_BUFFER_SIZE+16; + var + hDevice : THandle; + cbBytesReturned : DWORD; + pInData : PSendCmdInParams; + pOutData : Pointer; // PSendCmdOutParams + Buffer : Array[0..BufferSize-1] of Byte; + srbControl : TSrbIoControl absolute Buffer; + + procedure ChangeByteOrder( var Data; Size : Integer ); + var ptr : PChar; + i : Integer; + c : Char; + begin + ptr := @Data; + for i := 0 to (Size shr 1)-1 do + begin + c := ptr^; + ptr^ := (ptr+1)^; + (ptr+1)^ := c; + Inc(ptr,2); + end; + end; + + begin + Result := ''; + FillChar(Buffer,BufferSize,#0); + if Win32Platform=VER_PLATFORM_WIN32_NT then + // Windows NT, Windows 2000, Windows XP + begin + // recuperar handle da porta SCSI + hDevice := CreateFile('\\.\Scsi0:', + // Nota: '\\.\C:' precisa de privilgios administrativos + GENERIC_READ or GENERIC_WRITE, + FILE_SHARE_READ or FILE_SHARE_WRITE, + nil, OPEN_EXISTING, 0, 0); + if hDevice=INVALID_HANDLE_VALUE then Exit; + try + srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL); + System.Move('SCSIDISK',srbControl.Signature,8); + srbControl.Timeout := 2; + srbControl.Length := DataSize; + srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY; + pInData := PSendCmdInParams(PChar(@Buffer) + +SizeOf(SRB_IO_CONTROL)); + pOutData := pInData; + with pInData^ do + begin + cBufferSize := IDENTIFY_BUFFER_SIZE; + bDriveNumber := 0; + with irDriveRegs do + begin + bFeaturesReg := 0; + bSectorCountReg := 1; + bSectorNumberReg := 1; + bCylLowReg := 0; + bCylHighReg := 0; + bDriveHeadReg := $A0; + bCommandReg := IDE_ID_FUNCTION; + end; + end; + if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, + @Buffer, BufferSize, @Buffer, BufferSize, + cbBytesReturned, nil ) then Exit; + finally + CloseHandle(hDevice); + end; + end + else + begin + // Windows 95 OSR2, Windows 98, Windows ME + hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, + CREATE_NEW, 0, 0 ); + if hDevice=INVALID_HANDLE_VALUE then Exit; + try + pInData := PSendCmdInParams(@Buffer); + pOutData := @pInData^.bBuffer; + with pInData^ do + begin + cBufferSize := IDENTIFY_BUFFER_SIZE; + bDriveNumber := 0; + with irDriveRegs do + begin + bFeaturesReg := 0; + bSectorCountReg := 1; + bSectorNumberReg := 1; + bCylLowReg := 0; + bCylHighReg := 0; + bDriveHeadReg := $A0; + bCommandReg := IDE_ID_FUNCTION; + end; + end; + if not DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA, + pInData, SizeOf(TSendCmdInParams)-1, pOutData, + W9xBufferSize, cbBytesReturned, nil ) then Exit; + finally + CloseHandle(hDevice); + end; + end; + with PIdSector(PChar(pOutData)+16)^ do + begin + ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber)); + SetString(Result,sSerialNumber,SizeOf(sSerialNumber)); + end; + +end; + +function GetUserName(): string; +var vErrorCode: Variant; + pcNetworkName: PChar; + cBufferSize: Cardinal; + me: Array [0..256] of Char; +begin + + cBufferSize := 127; // size of the buffer for the name + + pcNetworkName := ''; // pchar of the network name + + vErrorCode := WNetGetUser(pcNetworkName, me, cBufferSize); // i holds + + // error messages, me is assigned loginnamr + + result := string(me); + +end; + + +function GetBiosSerial: string; +var + sMainBoardBiosCopyright, + sMainBoardBiosDate, + sMainBoardBiosName, + sMainBoardBiosSerialNo: string; +begin + + try + sMainBoardBiosName := string(PChar(Ptr($FE061))); // Bios name + sMainBoardBiosCopyright := string(PChar(Ptr($FE091))); // Bios copyright + sMainBoardBiosDate := string(PChar(Ptr($FFFF5))); // Bios date + sMainBoardBiosSerialNo := string(PChar(Ptr($FEC71))); // Bios serial number + except + sMainBoardBiosName := 'Unsupported'; + sMainBoardBiosCopyright := 'Unsupported'; + sMainBoardBiosDate := 'Unsupported'; + sMainBoardBiosSerialNo := 'Unsupported'; + end; + + result := sMainBoardBiosSerialNo; + +end; + +function GetBiosCheckSum: string; +var + s: int64; + i: longword; + p: PChar; +begin + i := 0; + s := 0; + p := PChar($F0000); + repeat + inc(s, Int64(Ord(p^)) shl i); + if i < 64 then inc(i) else i := 0; + inc(p); + until p > PChar($FFFFF); + Result := IntToHex(s,16); +end; + + +function GetBiosInfoAsText: string; +var + p, q: pchar; +begin + q := nil; + p := PChar(Ptr($FE000)); + repeat + if q <> nil then begin + if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin + if (p^ = #0) and (p - q >= 8) then begin + Result := Result + TrimRight(String(q)) + #13#10; + end; + q := nil; + end; + end else + if p^ in [#33..#126, #169, #184] then + q := p; + inc(p); + until p > PChar(Ptr($FFFFF)); + Result := TrimRight(Result); +end; + + +function FindVolumeSerial(const Drive : PChar) : string; +var + VolumeSerialNumber : DWORD; + MaximumComponentLength : DWORD; + FileSystemFlags : DWORD; + SerialNumber : string; +begin + Result:=''; + + GetVolumeInformation( + Drive, + nil, + 0, + @VolumeSerialNumber, + MaximumComponentLength, + FileSystemFlags, + nil, + 0) ; + SerialNumber := + IntToHex(HiWord(VolumeSerialNumber), 4) + + '-' + + IntToHex(LoWord(VolumeSerialNumber), 4) ; + + Result := SerialNumber; + +end; (*FindVolumeSerial*) + + + +//-------------------------------------------------- +//Funes para manipulao de datas +// + +//Retorna a data vlida imediatamente anterior a uma data invlida +Function UltDataValida (Ano, Mes, Dia : Word) : TDateTime; +Var Continua : Boolean; +DataAux : TDateTime; +begin +Continua := True; +DataAux := date; +while Continua do +Try +DataAux := EncodeDate (Ano, Mes, Dia); +Continua := False; +Except +Dec (Dia); +End; +UltDataValida := DataAux; +end; + +//Retorna a data vlida imediatamente posterior a uma data invlida +Function ProxDataValida (Ano, Mes, Dia : Word) : TDateTime; +Var Continua : Boolean; +DataAux : TDateTime; +begin +Continua := True; +DataAux := date; +while Continua do +Try +DataAux := EncodeDate (Ano, Mes, Dia); +Continua := False; +Except +Inc(Dia); +End; +ProxDataValida := DataAux; +end; + +//Retorna uma data no Ms seguinte a uma data informada +Function NextMonth (Data : TDateTime) : TDateTime; +var Ano, Mes, Dia : word; +begin +DecodeDate(Data, Ano, Mes, Dia); +if Mes = 12 Then begin +Mes := 1; +Inc (Ano); +end else +Inc (Mes); +NextMonth := UltDataValida (Ano, Mes, Dia); +end; + +//Retorna uma data no Ms anterior a uma data informada +function PriorMonth (Data : TDateTime) : TDateTime; +var + Ano, Mes, Dia : word; +begin + DecodeDate(Data, Ano, Mes, Dia); + + if Mes = 1 then + begin + Mes := 12; + Dec(Ano); + end else + Dec(Mes); + + PriorMonth := UltDataValida (Ano, Mes, Dia); +end; + +//Retorna data do primeiro dia do ms, ou primeiro dia til, de uma data informada +function FirstDayOfMonth(Data : TDateTime; lSabDom : Boolean): TDateTime; +var + Ano, Mes, Dia : word; + DiaDaSemana : Integer; +begin + DecodeDate (Data, Ano, Mes, Dia); + Dia := 1; + if lSabDom then + begin + DiaDaSemana := DayOfWeek (Data); + + if DiaDaSemana = 1 then + Dia := 2 + else if DiaDaSemana = 7 then + Dia := 3; + end; + + FirstDayOfMonth := EncodeDate (Ano, Mes, Dia); + +end; + +//Retorna data do ltimo dia do ms, ou ltimo dia til, de uma data informada +Function LastDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; +var Ano, Mes, Dia : word; +AuxData : TDateTime; +DiaDaSemana : Integer; +begin +AuxData := FirstDayOfMonth (NextMonth (Data), False) - 1; +if lSabDom Then begin +DecodeDate (Auxdata, Ano, Mes, Dia); +DiaDaSemana := DayOfWeek (AuxData); +if DiaDaSemana = 1 Then +Dia := Dia - 2 +else +if DiaDaSemana = 7 Then +Dec (Dia); +AuxData := EnCodeDate (Ano, Mes, Dia); +end; +LastDayOfMonth := AuxData; +end; + +//Verifica se uma data informada cai em um final de semana +Function IsWeekEnd (dData : TDateTime) : boolean; +begin +result := false; +if (DayOfWeek(dData) = 1) or (DayOfWeek(dData) = 7) Then +result := true; +end; + +//Retorna o prximo dia til caso a data informada caia em um fim de semana +Function ProximoDiaUtil (dData : TDateTime) : TDateTime; +begin +if DayOfWeek(dData) = 7 then +dData := dData + 2 +else if DayOfWeek(dData) = 1 then +dData := dData + 1; +ProximoDiaUtil := dData; +end; + +//Retorna o ltimo dia til caso a data informada caia em um fim de semana +Function DiaUtilAnterior (dData : TDateTime) : TDateTime; +begin +if DayOfWeek(dData) = 7 then +dData := dData - 1 +else if DayOfWeek(dData) = 1 then +dData := dData - 2; +DiaUtilAnterior := dData; +end; + +//Retorna uma data acrescida de "xMeses" meses, podendo ser corrido ou no +Function SomaMes (dData : TDateTime; xMeses : Integer; lCorrido : boolean) : TDateTime; +var Ano, Mes, Dia : word; +DataAux : TDateTime; +begin +DecodeDate(dData, Ano, Mes, Dia); +Mes := Mes + xMeses; +Ano := Ano + (Mes DIV 12); +Mes := Mes mod 12; +DataAux := UltDataValida (Ano, Mes, Dia); +if not lCorrido Then +DataAux := DataAux - 1; +SomaMes := DataAux; +end; + +//Retorna uma data reduzida de "xMeses" meses, podendo ser corrido ou no +Function DiminuiMes (dData : TDateTime; xMeses : Integer; lCorrido : Boolean) : TDateTime; +var Ano, Mes, Dia : word; +DataAux : TDateTime; +xMes : SmallInt; +begin +DecodeDate(dData, Ano, Mes, Dia); +Ano := Ano - (xMeses DIV 12); +xMeses := xMeses mod 12; +xMes := Mes - xMeses; +if xMes > 0 Then +Mes := xMes +else begin +Ano := Ano -1; +Mes := xMes + 12; +end; +DataAux := UltDataValida (Ano, Mes, Dia); +if not lCorrido then +DataAux := DataAux + 1; +DiminuiMes := DataAux; +end; + +{ +//-------------------------------------------------- + +function CreateShortcut(SourceFileName: string; // the file the shortcut points to + Location: ShortcutType; // shortcut location + SubFolder, // subfolder of location + WorkingDir, // working directory property of the shortcut + Parameters, + Description: string): // description property of the shortcut + string; +const + SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; + QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; +var + MyObject: IUnknown; + MySLink: IShellLink; + MyPFile: IPersistFile; + Directory, LinkName: string; + WFileName: WideString; + Reg: TRegIniFile; +begin + + MyObject := CreateComObject(CLSID_ShellLink); + MySLink := MyObject as IShellLink; + MyPFile := MyObject as IPersistFile; + + MySLink.SetPath(PChar(SourceFileName)); + MySLink.SetArguments(PChar(Parameters)); + MySLink.SetDescription(PChar(Description)); + + LinkName := ChangeFileExt(SourceFileName, '.lnk'); + LinkName := ExtractFileName(LinkName); + + // Quicklauch + if Location = scQUICKLAUNCH then + begin + Reg := TRegIniFile.Create(QUICK_LAUNCH_ROOT); + try + Directory := Reg.ReadString('MapGroups', 'Quick Launch', ''); + finally + Reg.Free; + end; + end + else + // Other locations + begin + Reg := TRegIniFile.Create(SHELL_FOLDERS_ROOT); + try + case Location of + scOTHERFOLDER : Directory := SubFolder; + scDESKTOP : Directory := Reg.ReadString('Shell Folders', 'Desktop', ''); + scSTARTMENU : Directory := Reg.ReadString('Shell Folders', 'Start Menu', ''); + scSENDTO : Directory := Reg.ReadString('Shell Folders', 'SendTo', ''); + end; + finally + Reg.Free; + end; + end; + + if Directory <> '' then + begin + + if (SubFolder <> '') and (Location <> scOTHERFOLDER) then + WFileName := Directory + '\' + SubFolder + '\' + LinkName + else + WFileName := Directory + '\' + LinkName; + + + if WorkingDir = '' then + MySLink.SetWorkingDirectory(PChar(ExtractFilePath(SourceFileName))) + else + MySLink.SetWorkingDirectory(PChar(WorkingDir)); + + MyPFile.Save(PWChar(WFileName), False); + + Result := WFileName; + + end; + +end; + +function GetProgramDir: string; +var + reg: TRegistry; +begin + reg := TRegistry.Create; + try + reg.RootKey := HKEY_CURRENT_USER; + reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False); + Result := reg.ReadString('Programs'); + reg.CloseKey; + finally + reg.Free; + end; +end; + } + +{ + function CreateAShortcut(aTarget,startDir,aCaption,aGroup: string; + aLoc: TShortcut; silent: Boolean): Boolean; + + HISTORY: Original version by + ======== - Jon E. Scott + web: http://members.xoom.com/jescott ("Delphi Code Tips") + email: jescott@xoommail.com + + Some improvements and comments 1999-06-18 by + Bjorn Mossberg: mossberg@mindspring.com + + PURPOSE: To create a shortcut on the desktop, start menu, + ======== in a program group, in the SendTo folder, + or in the SysTray region. + + REQUIRES: + ========= + uses ShlObj, ComObj, Registry, ActiveX; // and others + + type + TShortcut = (sc_Desktop, sc_QuickLaunch, sc_SendTo, + sc_Start, sc_Programs); + + PARAMETERS: + =========== + + aTarget: The full path to the executable file + for which a shortcut is to be created. + + startDir: String specifying the folder that is to be made + current before aTarget executes. May be blank. + + aCaption: String specifying the "legend" to be written + under the icon. May be left blank, in which + case the name of the executable file minus + its extension is used. + Caution: Use only legal file characters! + + aGroup: Meaningful only when aLoc=sc_Programs, + sc_Desktop, or sc_SendTo. + Specifies the name of the subfolder to + which the shortcut is to be added. + Should already exist. + + aLoc: One of the values of type ShortcutType: + +} + +function CreateShortcut(aTarget,startDir,aCaption,aGroup: string; + aLoc: TShortcut; silent: Boolean): Boolean; +var + anObject: IUnknown; + + function MergedPath(rootDir,subDir: String): String; + var + n: Integer; + begin + n := Length(rootDir); + if n=0 then Result := subDir + else begin + if rootDir[n]='\' then Delete(rootDir,n,1); + n := Length(subDir); + if n=0 then Result := rootDir + else begin + if subDir[1]='\' then Delete(subDir,1,1); + Result := rootDir + '\' + subDir; + end; + end; + end; + + function SaveLinkFile(aCap,aFldr: String): Boolean; + var + aPFile: IPersistFile; + s,fName: String; + wName: WideString; + i: Integer; + begin + {Save a copy of the object as a link file. + Try up to 3 times, using tails " (2)" and " (3)".} + Result := False; + aPFile := anObject as IPersistFile; + s := EmptyStr; + for i:=1 to 3 do begin + fName := aCap + s + '.lnk'; + wName := MergedPath(aFldr,fName); + Result := S_OK=aPFile.Save(PWChar(wName), False); + if Result then Break; + s := Format(' (%d)',[i]); + end; + end; + + +const + BaseKey = 'Software\MicroSoft\Windows\CurrentVersion'; + Shell_Folders = 'Shell Folders'; + VDesktop = 'Desktop'; + ProgramMenu = '"Start | Programs" menu'; +var + aDir,aVar: String; + aDesc: String; + dskTop: String; + s,msg: String; +begin + Result := False; + if NOT (CoInitialize(nil) in [S_OK,S_FALSE]) then begin + //ShowMessage('Could not initialize OLE COM Library'); + Exit; + end; + + {Create an object that can be used as a shortcut + and later saved as a customized ???.lnk file.} + anObject := CreateComObject(CLSID_ShellLink); + try + with anObject as IShellLink do begin + {Write in "Target" in the link file: + The full path of the executable file} + SetPath(PChar(aTarget)); + + {If supplied, write in "Start In" in the link file: + The folder to be made current before executing "Target".} + if (Length(startDir)>0) AND DirectoryExists(startDir) then + SetWorkingDirectory(PChar(startDir)); + end; + + {If aCaption is supplied we use that as the caption + under the icon representing the shortcut. + Otherwise we simply strip the extension + from the name of the target file. + NOTE: The name of the link file is "aCaption.lnk". } + if Length(aCaption)=0 then + aCaption := ExtractFileName(aTarget); + //aCaption := ReplaceAll(aCaption,'/','-'); {May need other fixing.} + aCaption := ChangeFileExt(aCaption, EmptyStr); + + aVar := EmptyStr; + aDesc := EmptyStr; + case aLoc of + scStart: aVar := 'Start Menu'; + scPrograms: begin + aVar := 'Programs'; + aDesc := ProgramMenu; + end; + scSendTo: begin + aVar := 'SendTo'; + aDesc := aVar + ' menu'; + end; + scQuickLaunch: + with TRegIniFile.Create(BaseKey+'\GrpConv') do try + aVar := 'Quick Launch'; {Need aVar for msg later} + aDir := ReadString('MapGroups',aVar,EmptyStr); + aDesc := aVar + ' (SysTray) area'; + finally + Free; + end; + else + aVar := VDesktop; {Default} + end; + if Length(aDesc)=0 then + aDesc := aVar; + + with TRegIniFile.Create(BaseKey+'\Explorer') do try + {Always get the path to the Desktop as a fallback.} + dskTop := ReadString(Shell_Folders,VDesktop,EmptyStr); + if Length(aDir)=0 then begin + {Here for all cases except _QUICKLAUNCH} + if Length(aVar)>0 then {Paranoid check} + aDir := ReadString(Shell_Folders,aVar,EmptyStr); + if Length(aDir)=0 then {Should never happen, but ...} + aDir := dskTop; + end; + finally + Free; + end; + + if Length(aDir)=0 then + {Hard to imagine that we'll ever be here.} + //ShowMessage('Could not determine where to create new shortcut!') + else begin + msg := Format('Added shortcut "%s" to the %s',[aCaption,aDesc]); + {Subfolders do not make sense for the SysTray or StartMenu.} + if (Length(aGroup)>0) AND + (aLoc in [scDesktop,scSendTo,scPrograms]) then + begin + {The caller is suggesting a subfolder which + we hope exists. Use it only if it does!} + s := MergedPath(aDir,aGroup); + if DirectoryExists(s) then begin + aDir := s; + AppendStr(msg,Format(' in the subfolder "%s"',[aGroup])); + end else + msg := Format('"%s" is not a subfolder of the %s.' + +' Added the shortcut directly instead.',[aGroup,aDesc]); + end; + + {Save a copy of the object as a link file. + Try up to 3 times, using tails " (2)" and " (3)".} + Result := SaveLinkFile(aCaption,aDir); + + if NOT Result then + msg := 'Could not create shortcut to ' + aTarget; + if NOT Result OR NOT silent then + ShowMessage(msg); + + if (Length(dskTop)>0) AND (aDir<>dskTop) AND + {Since the dskTop folder is well defined, and not the + one we just added the shortcut to, we offer to add a + copy of the shortcut to the Desktop as well. + We do this whether we failed above or not.} + (mrYes=MessageDlg('Would you like to add a copy'+ + ' of the shortcut to the desktop?', + mtConfirmation,[mbYes,mbNo],0)) then + begin + {Don't reset Result unless we are successful!} + msg := 'esktop shortcut to '+aTarget; + if SaveLinkFile(aCaption,dskTop) then begin + Result := True; + msg := 'D'+msg+' successfully created!'; + end else + msg := 'Could not create d'+msg; + if NOT Result OR NOT silent then + ShowMessage(msg); + end; + end; + finally +// TComObject(anObject).Free; {Cannot do this! Memory leak???} + CoUninitialize; + end; +end; + +function GetComputerIP: String; +var + WSAData: TWSAData; + HostEnt: PHostEnt; + Name,IP:string; +begin + + WSAStartup(2, WSAData); + SetLength(Name, 255); + Gethostname(PChar(Name), 255); + SetLength(Name, StrLen(PChar(Name))); + HostEnt := gethostbyname(PChar(Name)); + + with HostEnt^ do + begin + IP := Format('%d.%d.%d.%d', + [Byte(h_addr^[0]),Byte(h_addr^[1]), + Byte(h_addr^[2]),Byte(h_addr^[3])]); + end; + + result := IP; + + WSACleanup; + +end; + + +procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean); +{************************************************************ +* Procedure PostKeyEx32 +* +* Parameters: +* key : virtual keycode of the key to send. For printable +* keys this is simply the ANSI code (Ord(character)). +* shift : state of the modifier keys. This is a set, so you +* can set several of these keys (shift, control, alt, +* mouse buttons) in tandem. The TShiftState type is +* declared in the Classes Unit. +* specialkey: normally this should be False. Set it to True to +* specify a key on the numeric keypad, for example. +* Description: +* Uses keybd_event to manufacture a series of key events matching +* the passed parameters. The events go to the control with focus. +* Note that for characters key is always the upper-case version of +* the character. Sending without any modifier keys will result in +* a lower-case character, sending it with [ssShift] will result +* in an upper-case character! +// Code by P. Below +************************************************************} +type + TShiftKeyInfo = record + shift: Byte; + vkey: Byte; + end; + byteset = set of 0..7; +const + shiftkeys: array [1..3] of TShiftKeyInfo = + ((shift: Ord(ssCtrl); vkey: VK_CONTROL), + (shift: Ord(ssShift); vkey: VK_SHIFT), + (shift: Ord(ssAlt); vkey: VK_MENU)); +var + flag: DWORD; + bShift: ByteSet absolute shift; + i: Integer; +begin + for i := 1 to 3 do + begin + if shiftkeys[i].shift in bShift then + keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0); + end; { For } + if specialkey then + flag := KEYEVENTF_EXTENDEDKEY + else + flag := 0; + + keybd_event(key, MapvirtualKey(key, 0), flag, 0); + flag := flag or KEYEVENTF_KEYUP; + keybd_event(key, MapvirtualKey(key, 0), flag, 0); + + for i := 3 downto 1 do + begin + if shiftkeys[i].shift in bShift then + keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), + KEYEVENTF_KEYUP, 0); + end; { For } +end; { PostKeyEx32 } + + + + +//------------------------------------- +// return TRUE if the specified +// service is running, defined by +// the status code SERVICE_RUNNING. +// return FALSE if the service +// is in any other state, including +// any pending states +// +function ServiceRunning( + sMachine, + sService : string ) : boolean; +begin + Result := SERVICE_RUNNING = + ServiceGetStatus( + sMachine, sService ); +end; + + +//------------------------------------- +// return TRUE if the specified +// service was stopped, defined by +// the status code SERVICE_STOPPED. +// +function ServiceStopped( + sMachine, + sService : string ) : boolean; +begin + Result := SERVICE_STOPPED = + ServiceGetStatus( + sMachine, sService ); +end; + + +//------------------------------------- +// get service status +// +// return status code if successful +// -1 if not +// +// return codes: +// SERVICE_STOPPED +// SERVICE_RUNNING +// SERVICE_PAUSED +// +// following return codes +// are used to indicate that +// the service is in the +// middle of getting to one +// of the above states: +// SERVICE_START_PENDING +// SERVICE_STOP_PENDING +// SERVICE_CONTINUE_PENDING +// SERVICE_PAUSE_PENDING +// +// sMachine: +// machine name, ie: \SERVER +// empty = local machine +// +// sService +// service name, ie: Alerter +// +function ServiceGetStatus(sMachine, sService: string): DWord; +var + // + // service control + // manager handle + schm, + // + // service handle + schs : SC_Handle; + // + // service status + ss : TServiceStatus; + // + // current service status + dwStat : integer; + +begin + + dwStat := -1; + + // connect to the service + // control manager + schm := OpenSCManager( + PChar(sMachine), + Nil, + SC_MANAGER_CONNECT); + + // if successful... + if(schm > 0)then + begin + // open a handle to + // the specified service + schs := OpenService( + schm, + PChar(sService), + // we want to + // query service status + SERVICE_QUERY_STATUS); + + // if successful... + if(schs > 0)then + begin + // retrieve the current status + // of the specified service + if(QueryServiceStatus( + schs, + ss))then + begin + dwStat := ss.dwCurrentState; + end; + + // close service handle + CloseServiceHandle(schs); + end; + + // close service control + // manager handle + CloseServiceHandle(schm); + end; + + Result := dwStat; +end; + + +// +// start service +// +// return TRUE if successful +// +// sMachine: +// machine name, ie: \SERVER +// empty = local machine +// +// sService +// service name, ie: Alerter +// +function ServiceStart(sMachine, sService: string ): boolean; +var + // + // service control + // manager handle + schm, + // + // service handle + schs : SC_Handle; + // + // service status + ss : TServiceStatus; + // + // temp char pointer + psTemp : PChar; + // + // check point + dwChkP : DWord; + +begin + + ss.dwCurrentState := 0; + + // connect to the service + // control manager + schm := OpenSCManager( + PChar(sMachine), + Nil, + SC_MANAGER_CONNECT); + + // if successful... + if(schm > 0)then + begin + // open a handle to + // the specified service + schs := OpenService( + schm, + PChar(sService), + // we want to + // start the service and + SERVICE_START or + // query service status + SERVICE_QUERY_STATUS); + + // if successful... + if(schs > 0)then + begin + psTemp := Nil; + if(StartService( + schs, + 0, + psTemp))then + begin + // check status + if(QueryServiceStatus( + schs, + ss))then + begin + while(SERVICE_RUNNING + <> ss.dwCurrentState)do + begin + // + // dwCheckPoint contains a + // value that the service + // increments periodically + // to report its progress + // during a lengthy + // operation. + // + // save current value + // + dwChkP := ss.dwCheckPoint; + + // + // wait a bit before + // checking status again + // + // dwWaitHint is the + // estimated amount of time + // the calling program + // should wait before calling + // QueryServiceStatus() again + // + // idle events should be + // handled here... + // + Sleep(ss.dwWaitHint); + + if(not QueryServiceStatus( + schs, + ss))then + begin + // couldn't check status + // break from the loop + break; + end; + + if(ss.dwCheckPoint < + dwChkP)then + begin + // QueryServiceStatus + // didn't increment + // dwCheckPoint as it + // should have. + // avoid an infinite + // loop by breaking + break; + end; + end; + end; + end; + + // close service handle + CloseServiceHandle(schs); + end; + + // close service control + // manager handle + CloseServiceHandle(schm); + end; + + // return TRUE if + // the service status is running + Result := + SERVICE_RUNNING = + ss.dwCurrentState; +end; + + +// +// stop service +// +// return TRUE if successful +// +// sMachine: +// machine name, ie: \SERVER +// empty = local machine +// +// sService +// service name, ie: Alerter +// +function ServiceStop( + sMachine, + sService : string ) : boolean; +var + // + // service control + // manager handle + schm, + // + // service handle + schs : SC_Handle; + // + // service status + ss : TServiceStatus; + // + // check point + dwChkP : DWord; +begin + // connect to the service + // control manager + schm := OpenSCManager( + PChar(sMachine), + Nil, + SC_MANAGER_CONNECT); + + // if successful... + if(schm > 0)then + begin + // open a handle to + // the specified service + schs := OpenService( + schm, + PChar(sService), + // we want to + // stop the service and + SERVICE_STOP or + // query service status + SERVICE_QUERY_STATUS); + + // if successful... + if(schs > 0)then + begin + if(ControlService( + schs, + SERVICE_CONTROL_STOP, + ss))then + begin + // check status + if(QueryServiceStatus( + schs, + ss))then + begin + while(SERVICE_STOPPED + <> ss.dwCurrentState)do + begin + // + // dwCheckPoint contains a + // value that the service + // increments periodically + // to report its progress + // during a lengthy + // operation. + // + // save current value + // + dwChkP := ss.dwCheckPoint; + + // + // wait a bit before + // checking status again + // + // dwWaitHint is the + // estimated amount of time + // the calling program + // should wait before calling + // QueryServiceStatus() again + // + // idle events should be + // handled here... + // + Sleep(ss.dwWaitHint); + + if(not QueryServiceStatus( + schs, + ss))then + begin + // couldn't check status + // break from the loop + break; + end; + + if(ss.dwCheckPoint < + dwChkP)then + begin + // QueryServiceStatus + // didn't increment + // dwCheckPoint as it + // should have. + // avoid an infinite + // loop by breaking + break; + end; + end; + end; + end; + + // close service handle + CloseServiceHandle(schs); + end; + + // close service control + // manager handle + CloseServiceHandle(schm); + end; + + // return TRUE if + // the service status is stopped + Result := + SERVICE_STOPPED = + ss.dwCurrentState; +end; + +function FileInUse(FileName: string): Boolean; +var hFileRes: HFILE; +begin + Result := False; + if not FileExists(FileName) then exit; + hFileRes := CreateFile(PChar(FileName), + GENERIC_READ or GENERIC_WRITE, + 0, + nil, + OPEN_EXISTING, + FILE_ATTRIBUTE_NORMAL, + 0); + Result := (hFileRes = INVALID_HANDLE_VALUE); + if not Result then + CloseHandle(hFileRes); +end; + +{ + +You can write a value to one of two keys in the Windows Registry +under the HKEY_LOCAL_MACHINE root key: + +Software\Microsoft\Windows\CurrentVersion\RunOnce: +the application will start just ONCE, on the next startup of Windows. +Afterwards, the new registry key is deleted automatically. + +Software\Microsoft\Windows\CurrentVersion\Run: +in this case, the application will start on EVERY Windows startup. +The registry key that was created will stay in the registry, until you delete it. + +} + +procedure RunOnStartUp(ApTitle, ApPathFile: string; RunOnce: Boolean); +var + Reg: TRegistry; + TheKey: string; +begin + Reg := TRegistry.Create; + Reg.RootKey := HKEY_LOCAL_MACHINE; + TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run'; + if RunOnce then TheKey := TheKey + 'Once'; + // Open key, or create it if it doesn't exist + Reg.OpenKey(TheKey, True); + Reg.WriteString(ApTitle, ApPathFile); + Reg.CloseKey; + Reg.Free; +end; + +{ + +Here's the Delphi source code for deleting an +entry from the Software\Microsoft\Windows\CurrentVersion\Run key, +located in the HKEY_LOCAL_MACHINE root key: + +} + +procedure RemoveFromStartUp(ApTitle: string); +var + Reg: TRegistry; + TheKey: string; + ListOfEntries: TStringList; + i: integer; +begin + Reg := TRegistry.Create; + Reg.RootKey := HKEY_LOCAL_MACHINE; + TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run'; + // Check if key exist... + // ...if yes, try to delete the entry for ApTitle + if not Reg.OpenKey(TheKey, False) then + ShowMessage('Key not found') + else begin + if Reg.DeleteValue(ApTitle) then + // ShowMessage('Removed: ' + ApTitle) + else + // ShowMessage('Not found: ' + ApTitle); + end; + Reg.CloseKey; + Reg.Free; +end; + + +function CheckStartUp(ApTitle: string): boolean; +var + Reg: TRegistry; + TheKey: string; + value: string; + ListOfEntries: TStringList; + i: integer; +begin + + Reg := TRegistry.Create; + Reg.RootKey := HKEY_LOCAL_MACHINE; + TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run'; + + // Check if key exist... + + if Reg.OpenKey(TheKey, False) then + begin + + value := Reg.ReadString(ApTitle); + + if value = '' then + result := False + else + result := True; + + end + else + begin + + result := False + + end; + + Reg.CloseKey; + Reg.Free; + +end; + + +// +// SetRegistryData(HKEY_LOCAL_MACHINE, +// '\Software\Microsoft\Windows\CurrentVersion', +// 'RegisteredOrganization', rdString, 'Latium Software'); +// + +procedure SetRegistryData(RootKey: HKEY; Key, Value: string; + RegDataType: TRegDataType; Data: variant); +var + Reg: TRegistry; + s: string; +begin + Reg := TRegistry.Create(KEY_WRITE); + try + Reg.RootKey := RootKey; + if Reg.OpenKey(Key, True) then begin + try + if RegDataType = rdUnknown then + RegDataType := Reg.GetDataType(Value); + if RegDataType = rdString then + Reg.WriteString(Value, Data) + else if RegDataType = rdExpandString then + Reg.WriteExpandString(Value, Data) + else if RegDataType = rdInteger then + Reg.WriteInteger(Value, Data) + else if RegDataType = rdBinary then begin + s := Data; + Reg.WriteBinaryData(Value, PChar(s)^, Length(s)); + end else + raise Exception.Create(SysErrorMessage(ERROR_CANTWRITE)); + except + Reg.CloseKey; + raise; + end; + Reg.CloseKey; + end else + raise Exception.Create(SysErrorMessage(GetLastError)); + finally + Reg.Free; + end; +end; + +function GetRegistryData(RootKey: HKEY; Key, Value: string): variant; +var + Reg: TRegistry; + RegDataType: TRegDataType; + DataSize, Len: integer; + s: string; +label cantread; +begin + Reg := nil; + try + Reg := TRegistry.Create(KEY_QUERY_VALUE); + Reg.RootKey := RootKey; + if Reg.OpenKeyReadOnly(Key) then begin + try + RegDataType := Reg.GetDataType(Value); + if (RegDataType = rdString) or + (RegDataType = rdExpandString) then + Result := Reg.ReadString(Value) + else if RegDataType = rdInteger then + Result := Reg.ReadInteger(Value) + else if RegDataType = rdBinary then begin + DataSize := Reg.GetDataSize(Value); + if DataSize = -1 then goto cantread; + SetLength(s, DataSize); + Len := Reg.ReadBinaryData(Value, PChar(s)^, DataSize); + if Len <> DataSize then goto cantread; + Result := s; + end else +cantread: + raise Exception.Create(SysErrorMessage(ERROR_CANTREAD)); + except + s := ''; // Deallocates memory if allocated + Reg.CloseKey; + raise; + end; + Reg.CloseKey; + end else + raise Exception.Create(SysErrorMessage(GetLastError)); + except + Reg.Free; + raise; + end; + Reg.Free; +end; + + +function RightStr(Const Str: String; Size: Word): String; +begin + if Size > Length(Str) then Size := Length(Str) ; + RightStr := Copy(Str, Length(Str)-Size+1, Size) +end; + +function MidStr(Const Str: String; From, Size: Word): String; +begin + MidStr := Copy(Str, From, Size) +end; + +function LeftStr(Const Str: String; Size: Word): String; +begin + LeftStr := Copy(Str, 1, Size) +end; + +// +// Usage (fills in Memo1) : +// ParseDelimited(Memo1.lines,'Zarko;Gajic;;DelphiGuide',';') +// + +procedure ParseDelimited(const sl : TStrings; const value : string; const delimiter : string) ; +var + dx : integer; + ns : string; + txt : string; + delta : integer; +begin + delta := Length(delimiter) ; + txt := value + delimiter; + sl.BeginUpdate; + sl.Clear; + try + while Length(txt) > 0 do + begin + dx := Pos(delimiter, txt) ; + ns := Copy(txt,0,dx-1) ; + sl.Add(ns) ; + txt := Copy(txt,dx+delta,MaxInt) ; + end; + finally + sl.EndUpdate; + end; +end; + + +// +// Enviar Email Pelo Outlook +// + +function EnviarEmail(Endereco: String; Assunto: String = ''; Texto: String = ''; + stlAnexo: TStringList = nil; AEnviarDireto: boolean = False): Boolean; +type + TAttachAccessArray = array [0..0] of TMapiFileDesc; + PAttachAccessArray = ^TAttachAccessArray; +var + MapiMessage: TMapiMessage; + MError: Cardinal; + Sender: TMapiRecipDesc; + PRecip, Recipients: PMapiRecipDesc; + + Attachments: PAttachAccessArray; + x: integer; +begin + + Result := False; + MapiMessage.nRecipCount := 1; + GetMem( Recipients, MapiMessage.nRecipCount * Sizeof(TMapiRecipDesc) ); + Attachments := nil; + + try + with MapiMessage do + begin + { Assunto e Texto } + ulReserved := 0; + lpszSubject := PAnsichar(PChar( Assunto )); + lpszNoteText := PAnsichar(PChar( Texto )); + + lpszMessageType := nil; + lpszDateReceived := nil; + lpszConversationID := nil; + flFlags := 0; + Sender.ulReserved := 0; + Sender.ulRecipClass := MAPI_ORIG; + Sender.lpszName := PAnsichar(PChar( '' )); + Sender.lpszAddress := PAnsichar(PChar( '' )); + Sender.ulEIDSize := 0; + Sender.lpEntryID := nil; + lpOriginator := @Sender; + + { Endereo } + PRecip := Recipients; + PRecip^.ulReserved := 0; + PRecip^.ulRecipClass := MAPI_TO; + + PRecip^.lpszName := PAnsichar(PChar( Endereco )); + PRecip^.lpszAddress := StrNew( PAnsichar(PChar('SMTP:' + Endereco ) )); + + PRecip^.ulEIDSize := 0; + PRecip^.lpEntryID := nil; + //Inc( PRecip ); + lpRecips := Recipients; + + { Anexa os arquivos } + if stlAnexo = nil then + begin + stlAnexo := TStringList.Create; + stlAnexo.Clear; + end; + + { Deleta do stlAnexo os arquivos que no existem } + for x := 0 to stlAnexo.Count - 1 do + if not FileExists( stlAnexo.Strings[x] ) then + stlAnexo.Delete(x); + + { Anexa os arquivos } + if stlAnexo.Count > 0 then + begin + GetMem(Attachments, SizeOf(TMapiFileDesc) * stlAnexo.Count); + for x := 0 to stlAnexo.Count - 1 do + begin + Attachments[x].ulReserved := 0; + Attachments[x].flFlags := 0; + Attachments[x].nPosition := ULONG($FFFFFFFF); + Attachments[x].lpszPathName := StrNew( PAnsichar(PChar(stlAnexo.Strings[x]) )); + Attachments[x].lpszFileName := + StrNew( PAnsichar(PChar( ExtractFileName(stlAnexo.Strings[x]) ) )); + Attachments[x].lpFileType := nil; + end; + end + {endif}; + nFileCount := stlAnexo.Count; + lpFiles := @Attachments^; + end; + + { Enviando o e-mail } + if not AEnviarDireto then + MError := MapiSendMail(0, Application.Handle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) + else + MError := MapiSendMail(0, Application.Handle, MapiMessage, MAPI_LOGON_UI or MAPI_NEW_SESSION or MAPI_SENT, 0); + + case MError of + MAPI_E_USER_ABORT: ; + { Mostra mensagem que o envio do e-mail foi abortado pelo usurio. + Portanto, no ser mostrado nada } + + SUCCESS_SUCCESS: + Result := True; + else + MessageDlg( 'Ocorreu um erro inesperado!'#13'Cdigo: ' + + IntToStr(MError), mtError, [mbOk], 0); + end; + finally + PRecip := Recipients; + StrDispose( PRecip^.lpszAddress ); + //Inc( PRecip ); + + FreeMem( Recipients, MapiMessage.nRecipCount * Sizeof(TMapiRecipDesc) ); + for x := 0 to stlAnexo.Count - 1 do + begin + StrDispose( Attachments[x].lpszPathName ); + StrDispose( Attachments[x].lpszFileName ); + end; + end; +end; + +//////////////////////////////////////////////////////////////////////////////// +// Procedure - join // +// Author - Ronald Buster // +// Added by - Felipe Ramos // +// Added at - 05/2016 // +// // +// Returns a string containing a string representation of all the array // +// elements in the same order, with the separator string between each element.// +//////////////////////////////////////////////////////////////////////////////// + +function join(const separator: string; const pieces: array of String): string; +var + I: Integer; +begin + Result := ''; + for I := 0 to High(Pieces) do + if Pieces[i] <> '' then + Result := Result + separator + Pieces[I]; + Delete(Result, 1, Length(separator)); +end; + +{Funo para criptografar e descriptografar uma string} +function Crypt(Opcao : String; Dados : String): String; +var + I : Integer; + Key : Word; + Res : String; +const + C1 = 33598; + C2 = 24219; + Chave = 16854; +begin + Key := Chave; + for I := 1 to length(Dados) do + begin + Res := Res + Char(Byte(Dados[I]) xor (Key shr 8)); + if Opcao = 'CRYPT' then + Key := (Byte(Res[I]) + Chave) * C1 + C2; + if Opcao = 'DECRYPT' then + Key := (Byte(Dados[I]) + Chave) * C1 + C2; + end; + Result := Res; +end; + +function NumAleatorio(Qtd: Integer):string; +var + I, A, P : Integer; + Num: array of Integer; +begin + Result := ''; + + SetLength(Num,Qtd);// Recebe a quantidade de suportes + + Randomize; + + for I := 0 to Qtd - 1 do + Num[I] := I+1; + for I := Qtd - 1 downto 0 do + begin + P := Random(I+1); + A := Num[I]; + Num[I] := Num[P]; + Num[P] := A; + end; + + for I := 0 to Qtd - 1 do + Result := Result + IntToStr(Num[I]); +end; +{ +//Para Capturar o usurio Logado no Windows +function GetNetUserName: string; +var + NetUserNameLength: DWord; +begin + NetUserNameLength:=50; + SetLength(Result, NetUserNameLength); + GetUserName(pChar(Result),NetUserNameLength); + SetLength(Result, StrLen(pChar(Result))); +end; + } +end. + + +{ + +EXEMPLOS + + +if( ServiceStart( + '\ComputerName', + 'alerter' ) )then +begin + // "alerter" service on \ComputerName + // was started + // take appropriate action here +end; + +// stop "alerter" service +// running on the local +// computer +if( ServiceStop( + '', + 'alerter' ) )then +begin +end; + + +---------------- + +if( ServiceRunning( + '\ComputerName', + 'alerter' ) )then +begin + // "alerter" service on \ComputerName + // is running + // take appropriate action here +end; + +if( ServiceRunning( + '', + 'alerter' ) )then +begin + // "alerter" service on the + // local computer is running +end; + +if( ServiceStopped( + '', + 'alerter' ) )then +begin + // "alerter" service on the + // local computer is in the + // "stopped" state (not running) +end; + + +} diff --git a/uHelperFunctions.pas b/uHelperFunctions.pas new file mode 100644 index 0000000..bb34654 --- /dev/null +++ b/uHelperFunctions.pas @@ -0,0 +1,73 @@ +unit uHelperFunctions; + +interface + +function plaintext(s: string): string; + +procedure LogError(FileName, Msg: string); + +implementation + +uses IOUtils, StrUtils, Math, SysUtils, Forms, IniFiles; + +function plaintext(s: string): string; +var + i: integer; +begin + + for i := 1 to Length(s) do + begin + + case s[i] of + + '', '', '', '', '': + s[i] := 'a'; + '', '', '', '': + s[i] := 'e'; + '', '', '', '': + s[i] := 'i'; + '', '', '', '', '': + s[i] := 'o'; + '', '', '', '': + s[i] := 'u'; + '': + s[i] := 'c'; + + '', '', '', '', '': + s[i] := 'A'; + '', '', '', '': + s[i] := 'E'; + '', '', '', '': + s[i] := 'I'; + '', '', '', '', '': + s[i] := 'O'; + '', '', '', '': + s[i] := 'U'; + '': + s[i] := 'C'; + + end; + + end; + + plaintext := s; + +end; + +procedure LogError(FileName, Msg: string); +begin + try + TFile.AppendAllText(TPath.Combine(ExtractFilePath(Application.ExeName), + Format('%s%s%s', [FileName, FormatDateTime('YYYY-mm-dd', Date), '.log'])), + Format('[ERROR] %s: %s', [FormatDateTime('dd/mm/YYYY hh:mm:ss:zzz', Now), + Msg + sLineBreak]), TEncoding.UTF8); + except + TFile.AppendAllText(TPath.Combine(ExtractFilePath(Application.ExeName), + Format('ErroLog%s%s%s', [FileName, FormatDateTime('YYYY-mm-dd', Date), + '.log'])), Format('[ERROR] %s: %s', + [FormatDateTime('dd/mm/YYYY hh:mm:ss:zzz', Now), Msg + sLineBreak]), + TEncoding.UTF8); + end; +end; + +end. diff --git a/ucadCampanha - Copy.pas b/ucadCampanha - Copy.pas new file mode 100644 index 0000000..e6a1ba4 --- /dev/null +++ b/ucadCampanha - Copy.pas @@ -0,0 +1,151 @@ +mb_log.Lines.Clear; + mb_log.Lines.Add(DateTimetostr(Now)); + mb_log.Lines.Add(''); + mb_log.Lines.Add('Adicionando PontoVendas.'); + mb_log.Lines.Add(''); + mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + + 'log_PontoVenda.txt'); + with dtmSystem do + begin + zqryPontoVendaZerado.Open; + if zqryPontoVendaZerado.RecordCount = 0 then + begin + zroqryPontoVenda1.Open; + zroqryPontoVenda1.First; + mb_log.Lines.Add('---------------------Banco #1---------------------'); + mb_log.Lines.Add(''); + mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + + 'log_PontoVenda.txt'); + while not zroqryPontoVenda1.Eof do + begin + try + zqryPontoVendaZerado.Append; + for i := 1 to zroqryPontoVenda1.Fields.Count - 1 do + begin + excptPontoVenda := zroqryPontoVenda1.Fields[i].FieldName; + zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda1.Fields + [i].AsString; + mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda1.RecNo) + + ' - Campo: ' + excptPontoVenda); + Application.ProcessMessages; + end; + zroqryUsuario1.Locate('ID_USUARIO', + zroqryPontoVenda1ID_USUARIO.AsInteger, []); + zqryUsuarioZerado.Locate('TX_NOME', + zroqryUsuario1TX_NOME.AsString, []); + zqryPontoVendaZeradoID_USUARIO.AsString := + zqryUsuarioZeradoID_USUARIO.AsString; + zroqryEstoque1.Locate('ID_ESTOQUE', + zroqryPontoVenda1ID_ESTOQUE.AsInteger, []); + zqryEstoqueZerado.Locate('TX_DESCRICAO', + zroqryEstoque1TX_DESCRICAO.AsString, []); + zqryPontoVendaZeradoID_ESTOQUE.AsString := + zqryEstoqueZeradoID_ESTOQUE.AsString; + zqryPontoVendaZerado.Post; + zroqryPontoVenda1.Next; + except + mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda1.RecNo) + + ' - Campo: ' + excptPontoVenda); + zqryPontoVendaZerado.Cancel; + zroqryPontoVenda1.Next; + end; + Application.ProcessMessages; + end; + mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + + 'log_PontoVenda.txt'); + + zroqryPontoVenda2.Open; + zroqryPontoVenda2.First; + mb_log.Lines.Add(''); + mb_log.Lines.Add('---------------------Banco #2---------------------'); + mb_log.Lines.Add(''); + mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + + 'log_PontoVenda.txt'); + while not zroqryPontoVenda2.Eof do + begin + try + zqryPontoVendaZerado.Append; + for i := 1 to zroqryPontoVenda2.Fields.Count - 1 do + begin + excptPontoVenda := zroqryPontoVenda2.Fields[i].FieldName; + zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda2.Fields + [i].AsString; + mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) + + ' - Campo: ' + excptPontoVenda); + end; + excptPontoVenda := 'ID_USUARIO'; + zroqryUsuario2.Locate('ID_USUARIO', + zroqryPontoVenda2ID_USUARIO.AsInteger, []); + zqryUsuarioZerado.Locate('TX_NOME', + zroqryUsuario2TX_NOME.AsString, []); + zqryPontoVendaZeradoID_USUARIO.AsString := + zqryUsuarioZeradoID_USUARIO.AsString; + mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) + + ' - Campo: ' + excptPontoVenda); + zroqryEstoque2.Locate('ID_ESTOQUE', + zroqryPontoVenda2ID_ESTOQUE.AsInteger, []); + zqryEstoqueZerado.Locate('TX_DESCRICAO', + zroqryEstoque2TX_DESCRICAO.AsString, []); + zqryPontoVendaZeradoID_ESTOQUE.AsString := + zqryEstoqueZeradoID_ESTOQUE.AsString; + zqryPontoVendaZerado.Post; + zroqryPontoVenda2.Next; + except + mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda2.RecNo) + + ' - Campo: ' + excptPontoVenda); + zqryPontoVendaZerado.Cancel; + zroqryPontoVenda2.Next; + end; + Application.ProcessMessages; + end; + mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + + 'log_PontoVenda.txt'); + + zroqryPontoVenda3.Open; + zroqryPontoVenda3.First; + mb_log.Lines.Add(''); + mb_log.Lines.Add('---------------------Banco #3---------------------'); + mb_log.Lines.Add(''); + mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + + 'log_PontoVenda.txt'); + while not zroqryPontoVenda3.Eof do + begin + try + zqryPontoVendaZerado.Append; + for i := 1 to zroqryPontoVenda3.Fields.Count - 1 do + begin + excptPontoVenda := zroqryPontoVenda3.Fields[i].FieldName; + zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda3.Fields + [i].AsString; + mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda3.RecNo) + + ' - Campo: ' + excptPontoVenda); + end; + excptPontoVenda := 'ID_USUARIO'; + zroqryUsuario3.Locate('ID_USUARIO', + zroqryPontoVenda3ID_USUARIO.AsInteger, []); + zqryUsuarioZerado.Locate('TX_NOME', + zroqryUsuario3TX_NOME.AsString, []); + zqryPontoVendaZeradoID_USUARIO.AsString := + zqryUsuarioZeradoID_USUARIO.AsString; + mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) + + ' - Campo: ' + excptPontoVenda); + zroqryEstoque3.Locate('ID_ESTOQUE', + zroqryPontoVenda3ID_ESTOQUE.AsInteger, []); + zqryEstoqueZerado.Locate('TX_DESCRICAO', + zroqryEstoque3TX_DESCRICAO.AsString, []); + zqryPontoVendaZeradoID_ESTOQUE.AsString := + zqryEstoqueZeradoID_ESTOQUE.AsString; + zqryPontoVendaZerado.Post; + zroqryPontoVenda3.Next; + except + mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda3.RecNo) + + ' - Campo: ' + excptPontoVenda); + zqryPontoVendaZerado.Cancel; + zroqryPontoVenda3.Next; + end; + Application.ProcessMessages; + end; + end; + mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + + 'log_PontoVenda.txt'); + end; \ No newline at end of file diff --git a/ucadCampanha.dfm b/ucadCampanha.dfm new file mode 100644 index 0000000..53ff826 --- /dev/null +++ b/ucadCampanha.dfm @@ -0,0 +1,1118 @@ +inherited cadCampanha: TcadCampanha + Left = 0 + Top = 0 + Caption = 'Cadastro de Campanhas' + ClientHeight = 673 + ClientWidth = 860 + Menu = mnuFiltro + OnMouseWheel = FormMouseWheel + OnShow = FormShow + ExplicitWidth = 866 + ExplicitHeight = 721 + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel [0] + Left = 155 + Top = 389 + Width = 100 + Height = 13 + Caption = 'Nome da Campanha:' + end + object sbx_filtro: TScrollBox [1] + Left = 3 + Top = 19 + Width = 350 + Height = 358 + HorzScrollBar.Range = 326 + VertScrollBar.Position = 223 + VertScrollBar.Range = 1080 + AutoScroll = False + BevelInner = bvNone + BevelOuter = bvNone + ParentBackground = True + TabOrder = 10 + OnMouseWheelDown = sbx_filtroMouseWheelDown + OnMouseWheelUp = sbx_filtroMouseWheelUp + object pnl_providências: TPanel + Left = 0 + Top = 99 + Width = 326 + Height = 306 + TabOrder = 0 + object Label5: TLabel + Left = 9 + Top = 277 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label6: TLabel + Left = 151 + Top = 277 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_providencias: TCheckBox + Left = 8 + Top = 4 + Width = 105 + Height = 17 + Caption = 'Provid'#234'ncia:' + TabOrder = 0 + OnClick = cb_providenciasClick + end + object clb_providencias: TCheckListBox + Left = 8 + Top = 27 + Width = 313 + Height = 142 + OnClickCheck = clb_providenciasClickCheck + Enabled = False + ItemHeight = 13 + PopupMenu = ppm_marcar + TabOrder = 1 + end + object pnl_filtroprov: TPanel + Left = 7 + Top = 175 + Width = 315 + Height = 68 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 2 + object rg_filtroprov: TRadioGroup + Left = -3 + Top = -15 + Width = 321 + Height = 82 + Color = clWhite + Columns = 2 + Items.Strings = ( + 'Contenha' + 'N'#227'o contenha' + 'Seja a '#218'ltima' + 'Positivas' + 'Negativas') + ParentBackground = False + ParentColor = False + TabOrder = 0 + OnClick = rg_filtroprovClick + end + end + object dtp_provin: TDateTimePicker + Left = 32 + Top = 273 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 3 + end + object dtp_provfim: TDateTimePicker + Left = 174 + Top = 273 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 4 + end + object cb_periodoprov: TCheckBox + Left = 7 + Top = 250 + Width = 97 + Height = 17 + Caption = 'Per'#237'odo' + TabOrder = 5 + OnClick = cb_periodoprovClick + end + object cb_bacalhau: TCheckBox + Left = 215 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Bacalhau' + Enabled = False + TabOrder = 6 + Visible = False + end + object edt_pprov: TEdit + Left = 198 + Top = 3 + Width = 121 + Height = 21 + Enabled = False + TabOrder = 7 + OnChange = edt_pprovChange + end + end + object pnl_beneficiarios: TPanel + Left = 0 + Top = -223 + Width = 326 + Height = 318 + TabOrder = 1 + object Label11: TLabel + Left = 8 + Top = 198 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label12: TLabel + Left = 8 + Top = 226 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object Label13: TLabel + Left = 180 + Top = 198 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label14: TLabel + Left = 180 + Top = 226 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_beneficiarios: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Credor:' + TabOrder = 0 + OnClick = cb_beneficiariosClick + end + object clb_beneficiarios: TCheckListBox + Left = 8 + Top = 27 + Width = 313 + Height = 142 + OnClickCheck = clb_beneficiariosClickCheck + Enabled = False + ItemHeight = 13 + PopupMenu = ppm_marcar + TabOrder = 1 + end + object edt_pcredor: TEdit + Left = 198 + Top = 3 + Width = 121 + Height = 21 + Enabled = False + TabOrder = 2 + OnChange = edt_pcredorChange + end + object cb_credorentrada: TCheckBox + Left = 9 + Top = 175 + Width = 118 + Height = 17 + Caption = 'Entrada do Credor:' + Enabled = False + TabOrder = 3 + OnClick = cb_credorentradaClick + end + object dtp_credorentrada1: TDateTimePicker + Left = 31 + Top = 194 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 4 + end + object dtp_credorentrada2: TDateTimePicker + Left = 31 + Top = 222 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 5 + end + object cb_credorvencimento: TCheckBox + Left = 181 + Top = 175 + Width = 131 + Height = 17 + Caption = 'Vencimento do Credor:' + Enabled = False + TabOrder = 6 + OnClick = cb_credorvencimentoClick + end + object dtp_credorvenc1: TDateTimePicker + Left = 203 + Top = 194 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 7 + end + object dtp_credorvenc2: TDateTimePicker + Left = 203 + Top = 222 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 8 + end + object Panel3: TPanel + Left = 4 + Top = 276 + Width = 313 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 9 + object rg_credortptitulo: TRadioGroup + Left = -3 + Top = -15 + Width = 321 + Height = 43 + Color = clWhite + Columns = 3 + Enabled = False + Items.Strings = ( + 'Todos' + 'Abertos' + 'Baixados') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + object pnl_vencimento: TPanel + Left = -2 + Top = 864 + Width = 328 + Height = 91 + TabOrder = 2 + Visible = False + object lbl_vencicomeco: TLabel + Left = 12 + Top = 36 + Width = 17 + Height = 13 + Caption = 'De:' + end + object lbl_vencifim: TLabel + Left = 12 + Top = 64 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object Label3: TLabel + Left = 194 + Top = 38 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label4: TLabel + Left = 194 + Top = 66 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_vencimento: TCheckBox + Left = 12 + Top = 6 + Width = 121 + Height = 17 + Caption = 'Vencimento do T'#237'tulo:' + TabOrder = 0 + OnClick = cb_vencimentoClick + end + object dtp_vencicomeco: TDateTimePicker + Left = 35 + Top = 32 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 1 + end + object dtp_vencifim: TDateTimePicker + Left = 35 + Top = 60 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 2 + end + object dtp_entradacomeco: TDateTimePicker + Left = 217 + Top = 34 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 3 + end + object dtp_entradafim: TDateTimePicker + Left = 217 + Top = 62 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 4 + end + object cb_entrada: TCheckBox + Left = 194 + Top = 6 + Width = 110 + Height = 17 + Caption = 'Entrada do T'#237'tulo:' + TabOrder = 5 + OnClick = cb_entradaClick + end + end + object pnl_agendamento: TPanel + Left = -1 + Top = 411 + Width = 327 + Height = 130 + TabOrder = 3 + object lbl_agendcomeco: TLabel + Left = 8 + Top = 107 + Width = 17 + Height = 13 + Caption = 'De:' + end + object lbl_agendfim: TLabel + Left = 137 + Top = 107 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_agendamento: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Agendamento:' + TabOrder = 0 + OnClick = cb_agendamentoClick + end + object dtp_agendcomeco: TDateTimePicker + Left = 31 + Top = 103 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + TabOrder = 1 + end + object dtp_agendfim: TDateTimePicker + Left = 162 + Top = 103 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + TabOrder = 2 + end + object pnl_buttons: TPanel + Left = 8 + Top = 27 + Width = 312 + Height = 70 + BevelKind = bkTile + BevelOuter = bvNone + BiDiMode = bdLeftToRight + Color = clWhite + Enabled = False + ParentBiDiMode = False + ParentBackground = False + TabOrder = 3 + object rb_todos: TRadioButton + Left = 5 + Top = 4 + Width = 60 + Height = 17 + Caption = 'Todos' + TabOrder = 0 + OnClick = rb_todosClick + end + object rb_somente: TRadioButton + Left = 5 + Top = 24 + Width = 116 + Height = 17 + Caption = 'Somente Agendados' + TabOrder = 1 + OnClick = rb_somenteClick + end + object rb_periodo: TRadioButton + Left = 5 + Top = 44 + Width = 138 + Height = 17 + Caption = 'Agendados no Per'#237'odo' + TabOrder = 2 + OnClick = rb_periodoClick + end + object rb_vencido: TRadioButton + Left = 139 + Top = 4 + Width = 126 + Height = 17 + Caption = 'Agendamento Vencido' + TabOrder = 3 + OnClick = rb_vencidoClick + end + object rb_naoincluir: TRadioButton + Left = 139 + Top = 24 + Width = 126 + Height = 17 + Caption = 'N'#227'o incluir Agendados' + TabOrder = 4 + OnClick = rb_naoincluirClick + end + end + end + object pnl_ordem: TPanel + Left = 0 + Top = 804 + Width = 328 + Height = 54 + TabOrder = 4 + object cb_saldocresc: TCheckBox + Left = 8 + Top = 26 + Width = 193 + Height = 21 + Caption = 'Ordem Crescente de saldo devedor' + TabOrder = 0 + WordWrap = True + OnClick = cb_saldocrescClick + end + object cb_saldodesc: TCheckBox + Left = 8 + Top = 8 + Width = 205 + Height = 17 + Caption = 'Ordem Decrescente de saldo devedor' + TabOrder = 1 + WordWrap = True + OnClick = cb_saldodescClick + end + end + object pnl_faixavalor: TPanel + Left = 1 + Top = 547 + Width = 326 + Height = 62 + TabOrder = 5 + object lbl_faixain: TLabel + Left = 8 + Top = 30 + Width = 17 + Height = 13 + Caption = 'De:' + end + object lbl_faixafim: TLabel + Left = 136 + Top = 30 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_faixavalor: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Valor devido:' + TabOrder = 0 + OnClick = cb_faixavalorClick + end + object edt_faixain: TEdit + Left = 31 + Top = 27 + Width = 99 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 1 + Text = '0,00' + OnKeyPress = edt_faixainKeyPress + end + object edt_faixafim: TEdit + Left = 161 + Top = 27 + Width = 99 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 2 + Text = '0,00' + OnKeyPress = edt_faixafimKeyPress + end + end + object pnl_alfabeto: TPanel + Left = 0 + Top = 615 + Width = 328 + Height = 55 + TabOrder = 6 + object Label7: TLabel + Left = 7 + Top = 29 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label8: TLabel + Left = 136 + Top = 29 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_faixanome: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Faixa de nomes:' + TabOrder = 0 + OnClick = cb_faixanomeClick + end + object edt_nomein: TEdit + Left = 30 + Top = 27 + Width = 66 + Height = 21 + CharCase = ecUpperCase + MaxLength = 1 + TabOrder = 1 + Text = 'A' + OnKeyPress = edt_nomeinKeyPress + end + object edt_nomefim: TEdit + Left = 161 + Top = 27 + Width = 66 + Height = 21 + CharCase = ecUpperCase + MaxLength = 1 + TabOrder = 2 + Text = 'Z' + OnKeyPress = edt_nomefimKeyPress + end + end + object pnl_atraso: TPanel + Left = 0 + Top = 676 + Width = 328 + Height = 55 + TabOrder = 7 + object Label9: TLabel + Left = 7 + Top = 29 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label10: TLabel + Left = 136 + Top = 29 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_atraso: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Faixa de atraso:' + TabOrder = 0 + OnClick = cb_atrasoClick + end + object edt_atrasoin: TEdit + Left = 30 + Top = 27 + Width = 66 + Height = 21 + CharCase = ecUpperCase + MaxLength = 1 + NumbersOnly = True + TabOrder = 1 + Text = '0' + OnChange = edt_atrasoinChange + end + object edt_atrasofim: TEdit + Left = 161 + Top = 27 + Width = 66 + Height = 21 + CharCase = ecUpperCase + MaxLength = 1 + NumbersOnly = True + TabOrder = 2 + Text = '999999' + OnChange = edt_atrasofimChange + end + end + object pnl_tipopessoa: TPanel + Left = 0 + Top = 737 + Width = 328 + Height = 61 + TabOrder = 8 + object cb_tipopessoa: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Tipo de pessoa:' + TabOrder = 0 + OnClick = cb_tipopessoaClick + end + object Panel1: TPanel + Left = 8 + Top = 25 + Width = 313 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 1 + object rg_tipopessoa: TRadioGroup + Left = -3 + Top = -15 + Width = 321 + Height = 43 + Color = clWhite + Columns = 2 + Enabled = False + Items.Strings = ( + 'F'#237'sica' + 'Jur'#237'dica') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + object pnl_titulo: TPanel + Left = 0 + Top = 1163 + Width = 328 + Height = 61 + TabOrder = 9 + Visible = False + object cb_titulo: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Tipo de t'#237'tulo:' + TabOrder = 0 + OnClick = cb_tituloClick + end + object Panel5: TPanel + Left = 8 + Top = 25 + Width = 313 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 1 + object rg_titulo: TRadioGroup + Left = -3 + Top = -15 + Width = 321 + Height = 43 + Color = clWhite + Columns = 3 + Enabled = False + Items.Strings = ( + 'Todos' + 'Abertos' + 'Baixados') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + object pnl_cobradores: TPanel + Left = -2 + Top = 961 + Width = 328 + Height = 196 + TabOrder = 10 + Visible = False + object clb_usuarios: TCheckListBox + Left = 8 + Top = 27 + Width = 315 + Height = 160 + OnClickCheck = clb_usuariosClickCheck + Enabled = False + ItemHeight = 13 + TabOrder = 0 + end + object cb_cobradores: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Usu'#225'rios:' + Enabled = False + TabOrder = 1 + OnClick = cb_cobradoresClick + end + object edt_puser: TEdit + Left = 200 + Top = 3 + Width = 121 + Height = 21 + Enabled = False + TabOrder = 2 + OnChange = edt_puserChange + end + end + end + inherited stbStatus: TStatusBar + Top = 654 + Width = 860 + ExplicitTop = 654 + ExplicitWidth = 860 + end + object Panel2: TPanel + Left = 359 + Top = 18 + Width = 288 + Height = 190 + TabOrder = 1 + object Label2: TLabel + Left = 8 + Top = 8 + Width = 126 + Height = 13 + Caption = 'Cobradores da Campanha:' + end + object clb_cobradores: TCheckListBox + Left = 8 + Top = 27 + Width = 273 + Height = 152 + OnClickCheck = clb_cobradoresClickCheck + ItemHeight = 13 + PopupMenu = ppm_marcar + TabOrder = 0 + end + end + object btn_cancel: TButton + Left = 573 + Top = 384 + Width = 75 + Height = 25 + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 3 + OnClick = btn_cancelClick + end + object btn_ok: TButton + Left = 492 + Top = 384 + Width = 75 + Height = 25 + Caption = 'Ok' + Enabled = False + ModalResult = 1 + TabOrder = 4 + OnClick = btn_okClick + end + object edt_nomecamp: TEdit + Left = 259 + Top = 386 + Width = 230 + Height = 21 + TabOrder = 5 + end + object pnl_qntdevedores: TPanel + Left = 359 + Top = 254 + Width = 288 + Height = 36 + TabOrder = 6 + object lbl_qntdevedores: TLabel + Left = 8 + Top = 12 + Width = 82 + Height = 16 + Caption = 'Devedores:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + end + object pnl_qnttitulos: TPanel + Left = 359 + Top = 298 + Width = 288 + Height = 36 + TabOrder = 7 + object lbl_qnttitulos: TLabel + Left = 8 + Top = 12 + Width = 52 + Height = 16 + Caption = 'T'#237'tulos:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + end + object pnl_valorestitulos: TPanel + Left = 359 + Top = 341 + Width = 288 + Height = 36 + TabOrder = 8 + object lbl_valorestitulos: TLabel + Left = 8 + Top = 12 + Width = 41 + Height = 16 + Caption = 'Total:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + end + object Panel4: TPanel + Left = 359 + Top = 214 + Width = 288 + Height = 34 + TabOrder = 9 + object cb_campativa: TCheckBox + Left = 8 + Top = 9 + Width = 97 + Height = 17 + Caption = 'Campanha ativa' + TabOrder = 0 + end + end + object pnl_escolhefiltro: TPanel + Left = 653 + Top = 18 + Width = 199 + Height = 633 + TabOrder = 11 + object dbgrd_filtro: TDBGrid + Left = 3 + Top = 5 + Width = 192 + Height = 625 + DataSource = dtsFiltros + Options = [dgTitles, dgColLines, dgTabs, dgConfirmDelete] + PopupMenu = ppmnuDeletar + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnCellClick = dbgrd_filtroCellClick + Columns = < + item + Expanded = False + FieldName = 'TX_NOME_FILTRO' + Title.Caption = 'Nome' + Visible = True + end> + end + end + object pnl_txt: TPanel + Left = 8 + Top = 411 + Width = 640 + Height = 22 + BevelKind = bkSoft + TabOrder = 12 + end + object mem_desc: TMemo + Left = 653 + Top = 0 + Width = 199 + Height = 17 + Enabled = False + Lines.Strings = ( + 'mem_desc') + TabOrder = 13 + Visible = False + end + object dbgrd_camp: TDBGrid + Left = 8 + Top = 439 + Width = 639 + Height = 209 + DataSource = dtsCadCampanha + PopupMenu = ppmnuAcoesExtras + TabOrder = 14 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = dbgrd_campTitleClick + end + object btn_pesquisa: TButton + Left = 8 + Top = 383 + Width = 93 + Height = 25 + Caption = 'Pesquisar' + TabOrder = 2 + OnClick = btn_pesquisaClick + end + object ppm_marcar: TPopupMenu + OnPopup = ppm_marcarPopup + Left = 256 + Top = 80 + object MarcarTodos1: TMenuItem + Caption = 'Marcar Todos' + OnClick = MarcarTodos1Click + end + object DesmarcarTodos1: TMenuItem + Caption = 'Desmarcar Todos' + OnClick = DesmarcarTodos1Click + end + object N1: TMenuItem + Caption = '-' + end + end + object dtsCadCampanha: TDataSource + DataSet = queryCampanha + Left = 312 + Top = 481 + end + object queryCampanha: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 408 + Top = 481 + end + object dtsQueryRel: TDataSource + DataSet = queryRel + Left = 312 + Top = 529 + end + object queryRel: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0 * from chg_historico;') + Params = <> + Left = 408 + Top = 529 + end + object mnuFiltro: TMainMenu + OwnerDraw = True + Left = 175 + Top = 3 + object Filtrodepesquisa1: TMenuItem + Caption = 'Filtro de pesquisa' + object Novofiltro1: TMenuItem + Caption = 'Novo filtro' + OnClick = Novofiltro1Click + end + object Salvarfiltro1: TMenuItem + Caption = 'Salvar filtro' + OnClick = Salvarfiltro1Click + end + end + object Relatrio1: TMenuItem + Caption = 'Relat'#243'rio' + object Gerarplanilha1: TMenuItem + Caption = 'Exportar campanha para planilha' + OnClick = Gerarplanilha1Click + end + end + end + object dtsFiltros: TDataSource + DataSet = dtmSystem.tblFiltros + Left = 701 + Top = 32 + end + object ppmnuDeletar: TPopupMenu + Left = 709 + Top = 114 + object ApagarFiltro1: TMenuItem + Caption = 'Apagar Filtro' + OnClick = ApagarFiltro1Click + end + end + object ppmnuAcoesExtras: TPopupMenu + Left = 196 + Top = 525 + object mnuMassprov: TMenuItem + Caption = 'Lan'#231'ar Provid'#234'ncia em Massa' + Visible = False + OnClick = mnuMassprovClick + end + object mnuFichaDev: TMenuItem + Caption = 'Ficha do Devedor' + OnClick = mnuFichaDevClick + end + end + object ZSQLProcessor: TZSQLProcessor + Params = <> + Connection = dtmSystem.ZConnection + Delimiter = ';' + Left = 500 + Top = 477 + end +end diff --git a/ucadCampanha.pas b/ucadCampanha.pas new file mode 100644 index 0000000..83c6247 --- /dev/null +++ b/ucadCampanha.pas @@ -0,0 +1,2192 @@ +unit ucadCampanha; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.DateUtils, System.win.ComObj, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ExtCtrls, + Vcl.ComCtrls, Vcl.CheckLst, Vcl.Menus, StrUtils, Data.DB, ZAbstractRODataset, + ZAbstractDataset, ZDataset, Vcl.Grids, Vcl.DBGrids, ZSqlProcessor; + +type + TcadCampanha = class(TmstMaster) + pnl_beneficiarios: TPanel; + pnl_providncias: TPanel; + Panel2: TPanel; + cb_beneficiarios: TCheckBox; + cb_providencias: TCheckBox; + clb_beneficiarios: TCheckListBox; + clb_cobradores: TCheckListBox; + clb_providencias: TCheckListBox; + ppm_marcar: TPopupMenu; + MarcarTodos1: TMenuItem; + DesmarcarTodos1: TMenuItem; + N1: TMenuItem; + dtsCadCampanha: TDataSource; + queryCampanha: TZQuery; + btn_pesquisa: TButton; + btn_cancel: TButton; + btn_ok: TButton; + pnl_agendamento: TPanel; + cb_agendamento: TCheckBox; + dtp_agendcomeco: TDateTimePicker; + lbl_agendcomeco: TLabel; + lbl_agendfim: TLabel; + dtp_agendfim: TDateTimePicker; + pnl_buttons: TPanel; + rb_todos: TRadioButton; + rb_somente: TRadioButton; + rb_periodo: TRadioButton; + rb_vencido: TRadioButton; + rb_naoincluir: TRadioButton; + edt_nomecamp: TEdit; + Label1: TLabel; + pnl_vencimento: TPanel; + cb_vencimento: TCheckBox; + lbl_vencicomeco: TLabel; + dtp_vencicomeco: TDateTimePicker; + lbl_vencifim: TLabel; + dtp_vencifim: TDateTimePicker; + pnl_qntdevedores: TPanel; + lbl_qntdevedores: TLabel; + pnl_qnttitulos: TPanel; + lbl_qnttitulos: TLabel; + pnl_valorestitulos: TPanel; + lbl_valorestitulos: TLabel; + Panel4: TPanel; + cb_campativa: TCheckBox; + Label2: TLabel; + pnl_ordem: TPanel; + cb_saldocresc: TCheckBox; + cb_saldodesc: TCheckBox; + dtp_entradacomeco: TDateTimePicker; + Label3: TLabel; + Label4: TLabel; + dtp_entradafim: TDateTimePicker; + cb_entrada: TCheckBox; + sbx_filtro: TScrollBox; + rg_filtroprov: TRadioGroup; + pnl_filtroprov: TPanel; + pnl_faixavalor: TPanel; + cb_faixavalor: TCheckBox; + lbl_faixain: TLabel; + lbl_faixafim: TLabel; + edt_faixain: TEdit; + edt_faixafim: TEdit; + Label5: TLabel; + dtp_provin: TDateTimePicker; + Label6: TLabel; + dtp_provfim: TDateTimePicker; + cb_periodoprov: TCheckBox; + pnl_alfabeto: TPanel; + cb_faixanome: TCheckBox; + Label7: TLabel; + Label8: TLabel; + edt_nomein: TEdit; + edt_nomefim: TEdit; + pnl_atraso: TPanel; + Label9: TLabel; + Label10: TLabel; + cb_atraso: TCheckBox; + edt_atrasoin: TEdit; + edt_atrasofim: TEdit; + dtsQueryRel: TDataSource; + queryRel: TZQuery; + pnl_escolhefiltro: TPanel; + pnl_tipopessoa: TPanel; + cb_tipopessoa: TCheckBox; + Panel1: TPanel; + rg_tipopessoa: TRadioGroup; + pnl_titulo: TPanel; + cb_titulo: TCheckBox; + Panel5: TPanel; + rg_titulo: TRadioGroup; + mnuFiltro: TMainMenu; + Filtrodepesquisa1: TMenuItem; + Novofiltro1: TMenuItem; + Salvarfiltro1: TMenuItem; + dtsFiltros: TDataSource; + ppmnuDeletar: TPopupMenu; + ApagarFiltro1: TMenuItem; + dbgrd_filtro: TDBGrid; + Relatrio1: TMenuItem; + Gerarplanilha1: TMenuItem; + pnl_cobradores: TPanel; + clb_usuarios: TCheckListBox; + cb_cobradores: TCheckBox; + cb_bacalhau: TCheckBox; + ppmnuAcoesExtras: TPopupMenu; + mnuMassprov: TMenuItem; + edt_pcredor: TEdit; + edt_pprov: TEdit; + edt_puser: TEdit; + ZSqlProcessor: TZSQLProcessor; + pnl_txt: TPanel; + cb_credorentrada: TCheckBox; + Label11: TLabel; + dtp_credorentrada1: TDateTimePicker; + Label12: TLabel; + dtp_credorentrada2: TDateTimePicker; + cb_credorvencimento: TCheckBox; + Label13: TLabel; + dtp_credorvenc1: TDateTimePicker; + Label14: TLabel; + dtp_credorvenc2: TDateTimePicker; + Panel3: TPanel; + rg_credortptitulo: TRadioGroup; + mem_desc: TMemo; + dbgrd_camp: TDBGrid; + mnuFichaDev: TMenuItem; + procedure FormCreate(Sender: TObject); + procedure clb_beneficiariosClickCheck(Sender: TObject); + procedure cb_beneficiariosClick(Sender: TObject); + procedure cb_providenciasClick(Sender: TObject); + procedure clb_cobradoresClickCheck(Sender: TObject); + procedure clb_providenciasClickCheck(Sender: TObject); + procedure MarcarTodos1Click(Sender: TObject); + procedure DesmarcarTodos1Click(Sender: TObject); + procedure ppm_marcarPopup(Sender: TObject); + procedure btn_pesquisaClick(Sender: TObject); + procedure btn_cancelClick(Sender: TObject); + procedure btn_okClick(Sender: TObject); + procedure rb_todosClick(Sender: TObject); + procedure rb_somenteClick(Sender: TObject); + procedure rb_periodoClick(Sender: TObject); + procedure rb_vencidoClick(Sender: TObject); + procedure rb_naoincluirClick(Sender: TObject); + procedure cb_agendamentoClick(Sender: TObject); + procedure cb_vencimentoClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure cb_saldodescClick(Sender: TObject); + procedure cb_saldocrescClick(Sender: TObject); + procedure cb_entradaClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure edt_faixainKeyPress(Sender: TObject; var Key: Char); + procedure edt_faixafimKeyPress(Sender: TObject; var Key: Char); + procedure cb_faixavalorClick(Sender: TObject); + procedure cb_periodoprovClick(Sender: TObject); + procedure cb_faixanomeClick(Sender: TObject); + procedure edt_nomeinKeyPress(Sender: TObject; var Key: Char); + procedure edt_nomefimKeyPress(Sender: TObject; var Key: Char); + procedure edt_atrasoinChange(Sender: TObject); + procedure edt_atrasofimChange(Sender: TObject); + procedure sbx_filtroMouseWheelUp(Sender: TObject; Shift: TShiftState; + MousePos: TPoint; var Handled: Boolean); + procedure sbx_filtroMouseWheelDown(Sender: TObject; Shift: TShiftState; + MousePos: TPoint; var Handled: Boolean); + procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; + WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); + procedure cb_tipopessoaClick(Sender: TObject); + procedure cb_tituloClick(Sender: TObject); + procedure Novofiltro1Click(Sender: TObject); + procedure Salvarfiltro1Click(Sender: TObject); + procedure cb_atrasoClick(Sender: TObject); + procedure dbgrd_filtroCellClick(Column: TColumn); + procedure ApagarFiltro1Click(Sender: TObject); + procedure Gerarplanilha1Click(Sender: TObject); + procedure clb_usuariosClickCheck(Sender: TObject); + procedure cb_cobradoresClick(Sender: TObject); + procedure dbgrd_campTitleClick(Column: TColumn); + procedure DBGrid2TitleClick(Column: TColumn); + procedure mnuMassprovClick(Sender: TObject); + procedure rg_filtroprovClick(Sender: TObject); + procedure edt_pcredorChange(Sender: TObject); + procedure edt_pprovChange(Sender: TObject); + procedure edt_puserChange(Sender: TObject); + procedure cb_credorentradaClick(Sender: TObject); + procedure cb_credorvencimentoClick(Sender: TObject); + procedure cb_credortptituloClick(Sender: TObject); + procedure mnuFichaDevClick(Sender: TObject); + private + { Private declarations } + procedure HandlePopupItem(Sender: TObject); + procedure marca_todos(clb: TCheckListBox); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + procedure AdjustCheckListBox(var CB: TCheckListBox); + function FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; + public + desc: string; + posi: TPoint; + total_titulos: Integer; + valor_total: double; + id_old: Integer; + mass_prov: string; + pesquisando: Boolean; + function checa_marcados: Boolean; + + { Public declarations } + end; + +var + cadCampanha: TcadCampanha; + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmCampanha, ufrmCobranca, + System.UITypes, ufrmEscolheProvidencia, ucadDevedores; + +procedure TcadCampanha.AdjustCheckListBox(var CB: TCheckListBox); +var + i, nMaxWidth, nItemWidth: Integer; +begin + // ajustar os checklistbox para poder ter scroll horizontal + nMaxWidth := CB.ClientWidth; + for i := 0 to CB.Items.Count - 1 do + begin + nItemWidth := CB.Canvas.TextWidth(CB.Items[i]) + 20; + if (nItemWidth > nMaxWidth) then + nMaxWidth := nItemWidth; + end; + if (nMaxWidth > CB.ClientWidth) then + begin + CB.ScrollWidth := nMaxWidth; + end; +end; + +procedure TcadCampanha.ApagarFiltro1Click(Sender: TObject); +begin + inherited; + if MessageDlg('Deseja realmente apagar o filtro?', mtConfirmation, + [mbYes, mbNo], 0) = mrYes then + begin + dtmSystem.tblFiltros.Delete; + end; +end; + +procedure TcadCampanha.btn_cancelClick(Sender: TObject); +begin + // d'uh + Close; +end; + +procedure TcadCampanha.btn_okClick(Sender: TObject); +var + i, campanha: Integer; + algumcob: Boolean; +begin + algumcob := false; + for i := 1 to clb_cobradores.Items.Count - 1 do + begin + if clb_cobradores.Checked[i] then + begin + algumcob := true; + end; + end; + if algumcob = false then + begin + if MessageDlg('Voc est prestes a criar uma campanha sem cobradores.' + + ' Deseja continuar?', mtInformation, mbYesNo, 0) = mrNo then + begin + ModalResult := mrNone; + Abort; + end; + end; + // cria a campanha conforme o resultado do filtro utilizado + if edt_nomecamp.Text <> '' then + begin + Screen.Cursor := crHourGlass; + with dtmSystem do + begin + tblCobCampanha.Append; + tblCobCampanhaTX_NOME.AsString := edt_nomecamp.Text; + tblCobCampanhaDT_CAD.AsString := FormatDateTime('DD/MM/YYYY', Date); + tblCobCampanhaTX_DESC.AsString := desc; + tblCobCampanhaTL_DESC.AsString := mem_desc.Lines.Text; + if cb_campativa.Checked then + begin + tblCobCampanhaTP_ATIVA.AsString := '1'; + end + else + begin + tblCobCampanhaTP_ATIVA.AsString := '0'; + end; + tblCobCampanhaTP_CONCLUIDA.AsInteger := 0; + tblCobCampanhaQUEM_CAD.AsInteger := dtmSystem.id_usuario; + tblCobCampanha.Post; + campanha := tblCobCampanhaID_CAMPANHA.AsInteger; +// dbgrd_camp.DataSource.DataSet.DisableControls; +// frmCampanha.dbg_consultados.DataSource.DataSet.DisableControls; + // queryCampanha.DisableControls; + // queryCampanha.First; + // tblCampanhaDevedores.DisableControls; + // pb_campanha.Position := 0; + // if not tblCampanhaDevedores.Active then + // begin + // tblCampanhaDevedores.Open; + // end; + // while not queryCampanha.Eof do + // begin + // tblCampanhaDevedores.Append; + // tblCampanhaDevedoresID_CAMPANHA.AsInteger := campanha; + // tblCampanhaDevedoresID_DEVEDOR.AsInteger := + // queryCampanha.FieldByName('ID_DEVEDOR').AsInteger; + // tblCampanhaDevedoresTX_DOCUMENTO.AsString := + // queryCampanha.FieldByName('TX_DOCUMENTO').AsString; + // tblCampanhaDevedoresTP_ESTADO.AsString := 'A'; + // tblCampanhaDevedoresTP_COBRANDO.AsInteger := -1; + // tblCampanhaDevedores.Post; + // Application.ProcessMessages; + // queryCampanha.Next; + // pb_campanha.StepIt; + // end; + pnl_txt.Caption := + 'Montando campanha. Este procedimento pode demorar alguns minutos. Por favor aguarde.'; + ZSqlProcessor.Script.Text := StringReplace(queryCampanha.SQL.Text, + 'select t.id_devedor,', + 'insert into chg_campanhas_devedores(id_item, id_campanha, id_devedor, tx_documento, tp_estado, tp_cobrando) select coalesce((select max(id_item) + 1 from chg_campanhas_devedores), 1) as id_item,' + + tblCobCampanhaID_CAMPANHA.AsString + + ' as id_campanha, g.id_devedor, g.tx_documento, ''A'' as tp_estado, -1 as tp_cobrando from ( select t.id_devedor,', + [rfIgnoreCase]); + ZSqlProcessor.Script.Add(') g'); + ZSqlProcessor.Execute; + // queryCampanha.EnableControls; + // tblCampanhaDevedores.EnableControls; +// dbgrd_camp.DataSource.DataSet.EnableControls; +// frmCampanha.dbg_consultados.DataSource.DataSet.EnableControls; + + for i := 1 to clb_cobradores.Items.Count - 1 do + begin + if clb_cobradores.Checked[i] then + begin + tblCampanhaCob.Append; + // monta tabela de relao campanha - cobrador + tblCampanhaCobID_CAMPANHA.AsInteger := campanha; + tblUsuariosConsulta.Locate('TX_NOME', clb_cobradores.Items[i], []); + tblCampanhaCobID_COBRADOR.AsInteger := + tblUsuariosConsultaID_USUARIO.AsInteger; + tblCampanhaCobID_ULTIMO_USUARIO.AsInteger := dtmSystem.id_usuario; + tblCampanhaCobDT_HORA_ULTIMA_ATT.AsDateTime := Now; + tblCampanhaCob.Post; + end; + end; + end; + Screen.Cursor := crDefault; + ModalResult := mrOk; + pnl_txt.Caption := 'Campanha gerada.'; + end + else + begin + MessageDlg('Por favor insira um nome para a campanha.', mtError, [mbok], 0); + ModalResult := mrNone; + edt_nomecamp.SetFocus; + end; + +end; + +procedure TcadCampanha.btn_pesquisaClick(Sender: TObject); +var + string_selecionados, dt_inicio, dt_fim, order_by: string; + i: Integer; + //qtde: integer; +begin + pesquisando := true; + valor_total := 0; + total_titulos := 0; + if checa_marcados = false then + begin + MessageDlg('Por favor escolha um filtro antes de realizar uma pesquisa.', + mtWarning, [mbok], 0); + Abort; + end; + if cb_beneficiarios.Checked and (rg_credortptitulo.ItemIndex < 0) then + begin + MessageDlg('Por favor escolha o tipo de ttulo para o filtro.', mtWarning, + [mbok], 0); + Abort; + end; + string_selecionados := ''; + desc := 'Campos Selecionados:'; + + // pb_campanha.Position := 0; + + // comea o sofrimento + queryCampanha.SQL.Clear; + with queryCampanha.SQL do // incio dasql + begin + Add('select t.id_devedor,'); + Add('d.tx_nome,'); + Add('case when d.tp_cliente = ' + QuotedStr('F') + ' then d.cd_cpf'); + Add('when d.tp_cliente = ' + QuotedStr('J') + ' then d.cd_cnpj'); + Add('end as tx_documento,'); + Add('count(t.id_titulo) as quant,'); + Add('sum(t.vl_titulo) as total'); + Add('from chg_titulos t'); + Add('left join chg_devedores d on d.id_devedor = t.id_devedor'); + Add('where'); + end; + + mem_desc.Lines.Clear; + + if cb_beneficiarios.Checked then // se beneficiarios t selecionado + begin + mem_desc.Lines.Add('Credores:'); + //qtde := 0; + for i := 1 to clb_beneficiarios.Items.Count - 1 do + begin + if clb_beneficiarios.Checked[i] then + begin + dtmSystem.tblCHGEmpresa.RecNo := i; + string_selecionados := string_selecionados + + dtmSystem.tblCHGEmpresaID_EMPRESA.AsString + ','; + mem_desc.Lines.Add(dtmSystem.tblCHGEmpresaTX_NOME.AsString + '.'); + //Inc(qtde, 1); + end; + end; + string_selecionados := LeftStr(string_selecionados, + length(string_selecionados) - 1); + with queryCampanha.SQL do + begin + Add('t.id_empresa in '); + Add('(' + string_selecionados + ')'); + if cb_credorentrada.Checked then + begin + dt_inicio := DateToStr(dtp_credorentrada1.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_credorentrada2.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + Add('and'); + Add('cast(t.dt_entrada as date) >= ' + QuotedStr(dt_inicio) + ' and '); + Add('cast(t.dt_entrada as date) <= ' + QuotedStr(dt_fim)); + mem_desc.Lines.Add('Entrada entre ' + DateToStr(dtp_credorentrada1.Date) + + ' e ' + DateToStr(dtp_credorentrada2.Date) + '.'); + end; + if cb_credorvencimento.Checked then + begin + dt_inicio := DateToStr(dtp_credorvenc1.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_credorvenc2.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + Add('and'); + Add('cast(t.dt_vencimento as date) >= ' + QuotedStr(dt_inicio) + + ' and '); + Add('cast(t.dt_vencimento as date) <= ' + QuotedStr(dt_fim)); + mem_desc.Lines.Add('Vencimento entre ' + + DateToStr(dtp_credorentrada1.Date) + ' e ' + + DateToStr(dtp_credorentrada2.Date) + '.'); + end; + // if cb_credortptitulo.Checked then + // begin + Add('and'); + case rg_credortptitulo.ItemIndex of + 0: + begin + Add('t.TP_SITUACAO <> ' + QuotedStr('')); + mem_desc.Lines.Add('Todos os ttulos.'); + end; + 1: + begin + Add('(t.TP_SITUACAO = ' + QuotedStr('A') + 'or t.TP_SITUACAO = ' + + QuotedStr('AC') + ')'); + mem_desc.Lines.Add('Ttulos abertos.'); + end; + 2: + begin + Add('(t.TP_SITUACAO = ' + QuotedStr('B') + ' OR '); + Add('t.TP_SITUACAO = ' + QuotedStr('QC')+ ' OR '); + Add('t.TP_SITUACAO = ' + QuotedStr('QB') + ')'); + mem_desc.Lines.Add('Ttulos baixados.'); + end; + end; + // end; + Add('and '); + end; + string_selecionados := ''; + desc := desc + ' Credores, '; + end; + + if cb_providencias.Checked then // se providncias ta selecionado + begin + // selecionoup := 0; + mem_desc.Lines.Add('Providncias.'); + //qtde := 0; + for i := 1 to clb_providencias.Items.Count - 1 do + begin + if clb_providencias.Checked[i] then + begin + dtmSystem.tblProvidencias.RecNo := i; + string_selecionados := string_selecionados + + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString + ','; + // selecionoup := 1; + mem_desc.Lines.Add(dtmSystem.tblProvidenciasTX_NOME.AsString + '.'); + //Inc(qtde, 1); + end; + end; + string_selecionados := LeftStr(string_selecionados, + length(string_selecionados) - 1); + if rg_filtroprov.ItemIndex >= 0 then + // se escolheu algum filtro + begin + case rg_filtroprov.ItemIndex of + 0: + begin + with queryCampanha.SQL do + // contenha providencia + begin + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where h.id_providencia in'); + Add('(' + string_selecionados + ')'); + mem_desc.Lines.Add('Contenha as providncias acima.'); + end; + end; + 1: // no contenha + begin + with queryCampanha.SQL do + begin + Add('t.id_devedor not in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where h.id_providencia in'); + Add('(' + string_selecionados + ')'); + mem_desc.Lines.Add('No contenha as providncias acima.'); + end; + end; + 2: // seja a ltima providencia lanada + begin + with queryCampanha.SQL do + begin + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('inner join (SELECT h.id_devedor, MAX(h.ID_HISTORICO) AS MAXHIST FROM CHG_HISTORICO h'); + Add('group by id_devedor)'); + Add('hist on hist.id_devedor = h.id_devedor and h.id_historico = hist.maxhist'); + Add('where h.id_providencia in'); + Add('(' + string_selecionados + ')'); + mem_desc.Lines.Add + ('ltima providncia tenha sido alguma das acima.'); + // Add('group by id_devedor)'); + // Add('hist on hist.id_devedor = h.id_devedor and h.id_historico = hist.max_hist)'); + end; + end; + 3: // positivas + begin + with queryCampanha.SQL do + begin + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where'); + Add('h.id_providencia in'); + Add('(select p.id_providencia from chg_providencias p where'); + Add('p.tp_providencia = ' + QuotedStr('Positiva') + ')'); + mem_desc.Lines.Add('Todas as providncias positivas.'); + end; + end; + 4: // negativas + begin + with queryCampanha.SQL do + begin + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where'); + Add('h.id_providencia in'); + Add('(select p.id_providencia from chg_providencias p where'); + Add('p.tp_providencia = ' + QuotedStr('Negativa') + ')'); + mem_desc.Lines.Add('Todas as providncias negativas.'); + end; + end; + end; + string_selecionados := ''; + with queryCampanha.SQL do + begin + if cb_periodoprov.Checked then + // se escolheu um perodo de lanamento da providencia + begin + dt_inicio := DateToStr(dtp_provin.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + + '-' + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_provfim.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + Add('and '); + Add('cast(h.dt_contato as date) >= ' + QuotedStr(dt_inicio)); + Add('and '); + Add('cast(h.dt_contato as date) <= ' + QuotedStr(dt_fim)); + mem_desc.Lines.Add('Perodo de acionamento entre ' + + DateToStr(dtp_provin.Date) + ' e ' + + DateToStr(dtp_provfim.Date) + '.'); + Add(') '); + // Add('hist on hist.id_devedor = h.id_devedor and h.id_historico = hist.maxhist)'); + Add('and '); + end + else + begin + Add(') '); + // Add('hist on hist.id_devedor = h.id_devedor and h.id_historico = hist.maxhist)'); + // Add(')'); + Add('and '); + end; + end; + end; + string_selecionados := ''; + desc := desc + ' Providncias, '; + end; + + if cb_tipopessoa.Checked then // tipo de pessoa + begin + mem_desc.Lines.Add('Tipo de pessoas:'); + with queryCampanha.SQL do + begin + case rg_tipopessoa.ItemIndex of + 0: + begin + Add('d.tp_cliente = ' + QuotedStr('F')); + Add('and '); + mem_desc.Lines.Add('Fsica.'); + end; + 1: + begin + Add('d.tp_cliente = ' + QuotedStr('J')); + Add('and '); + mem_desc.Lines.Add('Jurdica.'); + end; + end; + end; + desc := desc + ' Tipo de pessoa, '; + end; + + if cb_agendamento.Checked then // Agendamento + begin + mem_desc.Lines.Add('Agendamento:'); + with queryCampanha.SQL do + begin + if rb_todos.Checked then // todos + begin + // Add('chg_devedores.id_devedor in'); + // Add('(select id_devedor from chg_agenda where tp_situacao = ''A'' or tp_situacao = ''C'')'); + // Add('and '); + mem_desc.Lines.Add('Incluir todos agendados.'); + end; + + if rb_somente.Checked then // somente os abertos + begin + Add('t.id_devedor in'); + Add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A') + ')'); + Add('and '); + mem_desc.Lines.Add('Apenas aqueles em aberto.'); + end; + + if rb_periodo.Checked then // durante perodo + begin + dt_inicio := DateToStr(dtp_agendcomeco.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_agendfim.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + Add('t.id_devedor in'); + Add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A')); + Add('and '); + Add('cast(dt_agendada as date) >= ' + QuotedStr(dt_inicio) + ' '); + Add('and '); + Add('cast(dt_agendada as date) <= ' + QuotedStr(dt_fim) + ')'); + Add('and '); + mem_desc.Lines.Add('Perodo de acionamento entre ' + + DateToStr(dtp_agendcomeco.Date) + ' e ' + + DateToStr(dtp_agendfim.Date) + '.'); + end; + + if rb_vencido.Checked then // vencimento do agendamento + begin + // Add('chg_devedores.id_devedor in'); + Add('t.id_devedor in'); + Add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A')); + Add('and '); + Add('a.dt_agendada <= ' + QuotedStr(FormatDateTime('YYYY-MM-DD', + Date)) + ')'); + Add('and '); + mem_desc.Lines.Add('Agendamentos vencidos.'); + end; + + if rb_naoincluir.Checked then // no incluir + begin + Add('t.id_devedor not in'); + Add('(select a.id_devedor from chg_agenda a where tp_situacao = ' + + QuotedStr('A') + ')'); + Add('and '); + mem_desc.Lines.Add('No incluir agendados.'); + end; + end; + desc := desc + ' Agendamento, '; + end; + + if cb_faixanome.Checked then // faixa de nomes + begin + with queryCampanha.SQL do + begin + // Upper(d.TX_NOME) similar to '[A-M]_*' + Add('Upper(d.TX_NOME COLLATE WIN_PTBR) similar to ' + '''[' + edt_nomein.Text + '-' + + edt_nomefim.Text + ']_*'''); + Add('and '); + end; + desc := desc + ' Nome, '; + mem_desc.Lines.Add('Nomes entre ' + edt_nomein.Text + ' e ' + + edt_nomefim.Text + '.'); + end; + + if cb_atraso.Checked then // dias de atraso no ttulo + begin + with queryCampanha.SQL do + begin + // datediff(day,t.dt_vencimento,cast('now' as date)) >= 1 + Add('datediff(day,cast(t.dt_vencimento as date),cast(''now'' as date)) >= ' + + edt_atrasoin.Text); + Add('and '); + Add('datediff(day,cast(t.dt_vencimento as date),cast(''now'' as date)) <= ' + + edt_atrasofim.Text); + Add('and '); + mem_desc.Lines.Add('Ttulos com atrasado entre ' + edt_atrasoin.Text + + ' e ' + edt_atrasofim.Text + '.'); + end; + desc := desc + ' Atraso, '; + end; + + desc := LeftStr(desc, length(desc) - 2); + desc := desc + '.'; + queryCampanha.SQL.Delete(queryCampanha.SQL.Count - 1); + queryCampanha.SQL.Add('group by t.ID_DEVEDOR, d.TX_NOME, TX_DOCUMENTO'); + // agrupar a query + + if cb_faixavalor.Checked then // valor do ttulo + begin + queryCampanha.SQL.Add('having'); + queryCampanha.SQL.Add('(' + StringReplace(edt_faixain.Text, ',', '.', + [rfReplaceAll, rfReplaceAll]) + ' <= sum(t.vl_titulo))'); + queryCampanha.SQL.Add('and'); + queryCampanha.SQL.Add('(' + 'sum(t.vl_titulo) <= ' + + StringReplace(edt_faixafim.Text, ',', '.', + [rfReplaceAll, rfReplaceAll]) + ')'); + desc := desc + ' Valor devido, '; + mem_desc.Lines.Add('Ttulos com valores entre ' + edt_faixain.Text + ' e ' + + edt_faixafim.Text + '.'); + end; + + order_by := ''; + if cb_saldocresc.Checked then + begin + order_by := 'total, d.tx_nome'; + end + else if cb_saldodesc.Checked then + begin + order_by := 'total desc, d.tx_nome'; + end + else + begin + order_by := 'd.tx_nome'; + end; + queryCampanha.SQL.Add('order by ' + order_by); + // if (selecionoub =1) and (selecionouc =1) and (selecionoup = 1) then //se escolheu algo dentro dos filtros + // if erro_sql = '' then + // begin + pnl_txt.Caption := + 'Realizando a Pesquisa. Este procedimento pode demorar alguns minutos. Por favor aguarde.'; + Screen.Cursor := crHourGlass; + // Application.ProcessMessages; + queryCampanha.Open; + dbgrd_camp.Columns[0].Title.Caption := 'ID'; + dbgrd_camp.Columns[1].Title.Caption := 'Nome'; + dbgrd_camp.Columns[2].Title.Caption := 'Documento'; + dbgrd_camp.Columns[3].Visible := false; + dbgrd_camp.Columns[4].Visible := false; + total_titulos := 0; + queryCampanha.First; + + while not queryCampanha.Eof do + begin + total_titulos := total_titulos + queryCampanha.FieldByName('quant') + .AsInteger; + valor_total := valor_total + queryCampanha.FieldByName('total').AsFloat; + Application.ProcessMessages; + queryCampanha.Next; + end; + + queryCampanha.First; + lbl_qntdevedores.Caption := 'Devedores: ' + + IntToStr(queryCampanha.RecordCount) + '.'; + lbl_qnttitulos.Caption := 'Ttulos: ' + IntToStr(total_titulos) + '.'; + lbl_valorestitulos.Caption := 'Total: R$' + FormatFloat('0.00', + valor_total) + '.'; + // FormatFloat('0.00',valor_total) + Screen.Cursor := crDefault; + if queryCampanha.RecordCount > 0 then + begin + btn_ok.Enabled := true; + // pb_campanha.max := queryCampanha.RecordCount; + queryCampanha.First; + end + else + begin + btn_ok.Enabled := false; + end; + pnl_txt.Caption := 'Pesquisa realizada.'; + // end + // else + // begin + // MessageDlg('Voc selecinou o(os) filtro(os): ' + erro_sql + + // 'mas no os configurou corretamente.' + ' Por favor configure-os.', + // mtWarning, [mbok], 0); + // end; +end; + +procedure TcadCampanha.cb_agendamentoClick(Sender: TObject); +begin + + // habilitar ou desabilitar o panel + if cb_agendamento.Checked = true then + begin + pnl_buttons.Enabled := true; + end + else + begin + pnl_buttons.Enabled := false; + end; + +end; + +procedure TcadCampanha.cb_atrasoClick(Sender: TObject); +begin + inherited; + edt_atrasoin.Enabled := cb_atraso.Checked; + edt_atrasofim.Enabled := cb_atraso.Checked; +end; + +procedure TcadCampanha.cb_beneficiariosClick(Sender: TObject); +begin + // habilitar ou desabilitar o list box + clb_beneficiarios.Enabled := cb_beneficiarios.Checked; + edt_pcredor.Enabled := cb_beneficiarios.Checked; + cb_credorentrada.Enabled := cb_beneficiarios.Checked; + cb_credorvencimento.Enabled := cb_beneficiarios.Checked; + rg_credortptitulo.Enabled := cb_beneficiarios.Checked; + // cb_credortptitulo.Enabled := cb_beneficiarios.Checked; +end; + +procedure TcadCampanha.cb_cobradoresClick(Sender: TObject); +begin + inherited; + clb_usuarios.Enabled := cb_cobradores.Checked; + edt_puser.Enabled := cb_cobradores.Checked; +end; + +procedure TcadCampanha.cb_credorentradaClick(Sender: TObject); +begin + inherited; + dtp_credorentrada1.Enabled := cb_credorentrada.Checked; + dtp_credorentrada2.Enabled := cb_credorentrada.Checked; +end; + +procedure TcadCampanha.cb_credortptituloClick(Sender: TObject); +begin + inherited; + // rg_credortptitulo.Enabled := cb_credortptitulo.Checked; +end; + +procedure TcadCampanha.cb_credorvencimentoClick(Sender: TObject); +begin + inherited; + dtp_credorvenc1.Enabled := cb_credorvencimento.Checked; + dtp_credorvenc2.Enabled := cb_credorvencimento.Checked; +end; + +procedure TcadCampanha.cb_entradaClick(Sender: TObject); +begin + + if cb_entrada.Checked = true then + begin + dtp_entradacomeco.Enabled := true; + dtp_entradafim.Enabled := true; + end + else + begin + dtp_entradacomeco.Enabled := false; + dtp_entradafim.Enabled := false; + end; +end; + +procedure TcadCampanha.cb_faixanomeClick(Sender: TObject); +begin + inherited; + edt_nomein.Enabled := cb_faixanome.Checked; + edt_nomefim.Enabled := cb_faixanome.Checked; +end; + +procedure TcadCampanha.cb_faixavalorClick(Sender: TObject); +begin + inherited; + edt_faixain.Enabled := cb_faixavalor.Checked; + edt_faixafim.Enabled := cb_faixavalor.Checked; +end; + +procedure TcadCampanha.cb_periodoprovClick(Sender: TObject); +begin + inherited; + dtp_provin.Enabled := cb_periodoprov.Checked; + dtp_provfim.Enabled := cb_periodoprov.Checked; +end; + +procedure TcadCampanha.cb_providenciasClick(Sender: TObject); +begin + + // habilitar ou desabilitar o list box + if cb_providencias.Checked = true then + begin + clb_providencias.Enabled := true; + edt_pprov.Enabled := true; + end + else + begin + clb_providencias.Enabled := false; + edt_pprov.Enabled := false; + end; +end; + +procedure TcadCampanha.cb_saldocrescClick(Sender: TObject); +begin + if cb_saldocresc.Checked then + begin + cb_saldodesc.Checked := false; + end; +end; + +procedure TcadCampanha.cb_saldodescClick(Sender: TObject); +begin + if cb_saldodesc.Checked then + begin + cb_saldocresc.Checked := false; + end; + +end; + +procedure TcadCampanha.cb_tipopessoaClick(Sender: TObject); +begin + inherited; + rg_tipopessoa.Enabled := cb_tipopessoa.Checked; +end; + +procedure TcadCampanha.cb_tituloClick(Sender: TObject); +begin + inherited; + // rg_credortptitulo.Enabled := cb_credortptitulo.Checked; +end; + +procedure TcadCampanha.cb_vencimentoClick(Sender: TObject); +begin + // habilitar ou desabilitar o list box + if cb_vencimento.Checked = true then + begin + dtp_vencicomeco.Enabled := true; + dtp_vencifim.Enabled := true; + end + else + begin + dtp_vencicomeco.Enabled := false; + dtp_vencifim.Enabled := false; + end; +end; + +procedure TcadCampanha.clb_beneficiariosClickCheck(Sender: TObject); +begin + marca_todos(clb_beneficiarios); +end; + +procedure TcadCampanha.clb_cobradoresClickCheck(Sender: TObject); +begin + + marca_todos(clb_cobradores); +end; + +procedure TcadCampanha.clb_providenciasClickCheck(Sender: TObject); +begin + + marca_todos(clb_providencias); +end; + +procedure TcadCampanha.clb_usuariosClickCheck(Sender: TObject); +begin + inherited; + marca_todos(clb_usuarios); +end; + +procedure TcadCampanha.dbgrd_filtroCellClick(Column: TColumn); +var + campos: TStringList; + i: Integer; +begin + inherited; + // montar as opes conforme filtro escolhido + with dtmSystem do + begin + if tblFiltros.RecordCount > 0 then + begin + if tblFiltrosTP_CREDOR.AsString = '1' then + begin + cb_beneficiarios.Checked := true; + cb_beneficiariosClick(Self); + if length(tblFiltrosTX_CREDOR.AsString) > 0 then + begin + campos := TStringList.Create; + try + campos.Clear; + campos.Delimiter := ';'; + campos.DelimitedText := tblFiltrosTL_CREDOR.AsString; + finally + for i := 0 to campos.Count - 2 do + begin + clb_beneficiarios.Checked[strtoint(campos[i])] := true; + end; + end; + end; + if tblFiltrosTP_TITULO.AsString = '1' then + begin + // cb_credortptitulo.Checked := true; + // cb_credortptituloClick(self); + if tblFiltrosCD_TITULO.AsInteger >= 0 then + begin + rg_credortptitulo.ItemIndex := tblFiltrosCD_TITULO.AsInteger; + end; + end; + end; + + if tblFiltrosTP_PROVIDENCIA.AsString = '1' then + begin + cb_providencias.Checked := true; + cb_providenciasClick(Self); + if length(tblFiltrosTX_CREDOR.AsString) > 0 then + begin + campos := TStringList.Create; + try + campos.Clear; + campos.Delimiter := ';'; + campos.DelimitedText := tblFiltrosTL_PROV.AsString; + finally + for i := 0 to campos.Count - 2 do + begin + clb_providencias.Checked[strtoint(campos[i])] := true; + end; + end; + end; + if tblFiltrosCD_PROVIDENCIA.AsInteger >= 0 then + begin + rg_filtroprov.ItemIndex := tblFiltrosCD_PROVIDENCIA.AsInteger; + end; + end; + + if tblFiltrosTP_VALOR.AsString = '1' then + begin + cb_faixavalor.Checked := true; + cb_faixavalorClick(Self); + if tblFiltrosVL_VALORIN.AsString <> '' then + begin + edt_faixain.Text := tblFiltrosVL_VALORIN.AsString; + end; + if tblFiltrosVL_VALORFIM.AsString <> '' then + begin + edt_faixafim.Text := tblFiltrosVL_VALORFIM.AsString; + end; + end; + + if tblFiltrosTP_AGENDADO.AsString = '1' then + begin + cb_agendamento.Checked := true; + cb_agendamentoClick(Self); + case tblFiltrosTX_AGENDADO.AsInteger of + 0: + begin + rb_todos.Checked := true; + end; + 1: + begin + rb_somente.Checked := true; + end; + 2: + begin + rb_periodo.Checked := true; + end; + 3: + begin + rb_vencido.Checked := true; + end; + 4: + begin + rb_naoincluir.Checked := true; + end; + end; + end; + + if tblFiltrosTP_NOME.AsString = '1' then + begin + cb_faixanome.Checked := true; + cb_faixanomeClick(Self); + edt_nomein.Text := copy(tblFiltrosTX_NOME.AsString, 1, 1); + edt_nomefim.Text := copy(tblFiltrosTX_NOME.AsString, 2, 1); + end; + + if tblFiltrosTP_ATRASO.AsString = '1' then + begin + cb_atraso.Checked := true; + cb_atrasoClick(Self); + edt_atrasoin.Text := tblFiltrosTX_ATRASOIN.AsString; + edt_atrasofim.Text := tblFiltrosTX_ATRASOFIM.AsString; + end; + + if tblFiltrosTP_PESSOA.AsString = '1' then + begin + cb_tipopessoa.Checked := true; + cb_tipopessoaClick(Self); + if tblFiltrosCD_PESSOA.AsInteger >= 0 then + begin + rg_tipopessoa.ItemIndex := tblFiltrosCD_PESSOA.AsInteger; + end; + end; + + if tblFiltrosCD_ORDEM.AsString <> '' then + begin + case tblFiltrosCD_ORDEM.AsInteger of + 1: + begin + cb_saldocresc.Checked := true; + end; + 2: + begin + cb_saldodesc.Checked := true; + end; + end; + end; + end; + end; + +end; + +procedure TcadCampanha.dbgrd_campTitleClick(Column: TColumn); +begin + inherited; + // dar sorting na tabela conforme a coluna clicada + if Column.Title.Caption <> '' then + begin + if Pos(Column.Field.FieldName, queryCampanha.SortedFields) = 1 then + begin + if queryCampanha.SortType = stAscending then + begin + queryCampanha.SortType := stDescending; + end + else + begin + queryCampanha.SortType := stAscending; + end; + end + else + begin + queryCampanha.SortedFields := Column.Field.FieldName; + if queryCampanha.SortType = stAscending then + begin + queryCampanha.SortType := stDescending; + end + else + begin + queryCampanha.SortType := stAscending; + end; + end; + end; + queryCampanha.First; +end; + +procedure TcadCampanha.DBGrid2TitleClick(Column: TColumn); +begin + inherited; + if Column.Title.Caption <> '' then + begin + if Pos(Column.Field.FieldName, queryRel.SortedFields) = 1 then + begin + if queryRel.SortType = stAscending then + begin + queryRel.SortType := stDescending; + end + else + begin + queryRel.SortType := stAscending; + end; + end + else + begin + queryRel.SortedFields := Column.Field.FieldName; + if queryRel.SortType = stAscending then + begin + queryRel.SortType := stDescending; + end + else + begin + queryRel.SortType := stAscending; + end; + end; + end; + queryRel.First; +end; + +procedure TcadCampanha.DesmarcarTodos1Click(Sender: TObject); +var + i: Integer; // func do popupmenu pra desmarcar todos +begin // dependendo de quem chamou o popup + + if ppm_marcar.PopupComponent.Name = 'clb_beneficiarios' then + begin + for i := 0 to clb_beneficiarios.Items.Count - 1 do + begin + clb_beneficiarios.Checked[i] := false; + end; + end; + + if ppm_marcar.PopupComponent.Name = 'clb_cobradores' then + begin + for i := 0 to clb_cobradores.Items.Count - 1 do + begin + clb_cobradores.Checked[i] := false; + end; + end; + + if ppm_marcar.PopupComponent.Name = 'clb_providencias' then + begin + for i := 0 to clb_providencias.Items.Count - 1 do + begin + clb_providencias.Checked[i] := false; + end; + end; +end; + +//function TcadCampanha.FindControlAtPos(AScreenPos: TPoint): TControl; +//var +// i: Integer; +// f, m: TForm; +// p: TPoint; +// r: TRect; +//begin +// // funo para descobrir o controle que se encontra abaixo do mouse +// Result := nil; +// for i := Screen.FormCount - 1 downto 0 do +// begin +// f := Screen.Forms[i]; +// if f.Visible and (f.Parent = nil) and (f.FormStyle <> fsMDIChild) and +// TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height) +// .Contains(AScreenPos) then +// Result := f; +// end; +// Result := FindSubcontrolAtPos(Result, AScreenPos, AScreenPos); +// if (Result is TForm) and (TForm(Result).ClientHandle <> 0) then +// begin +// Winapi.Windows.GetWindowRect(TForm(Result).ClientHandle, r); +// p := TPoint.Create(AScreenPos.X - r.Left, AScreenPos.Y - r.Top); +// m := nil; +// for i := TForm(Result).MDIChildCount - 1 downto 0 do +// begin +// f := TForm(Result).MDIChildren[i]; +// if TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height) +// .Contains(p) then +// m := f; +// end; +// if m <> nil then +// Result := FindSubcontrolAtPos(m, AScreenPos, p); +// end; +//end; + +function TcadCampanha.FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; +var + i: Integer; + C: TControl; +begin + Result := nil; + C := AControl; + if (C = nil) or not C.Visible or not TRect.Create(C.Left, C.Top, + C.Left + C.Width, C.Top + C.Height).Contains(AClientPos) then + exit; + Result := AControl; + if AControl is TWinControl then + for i := 0 to TWinControl(AControl).ControlCount - 1 do + begin + C := FindSubcontrolAtPos(TWinControl(AControl).Controls[i], AScreenPos, + AControl.ScreenToClient(AScreenPos)); + if C <> nil then + Result := C; + end; +end; + +procedure TcadCampanha.FormClose(Sender: TObject; var Action: TCloseAction); +begin + queryCampanha.Close; + dtmSystem.tblCHGEmpresa.Close; + dtmSystem.tblUsuariosConsulta.Close; + dtmSystem.tblProvidencias.Close; + dtmSystem.tblGrupos.Close; + // cadCampanha := nil; + Action := caFree; +end; + +procedure TcadCampanha.FormCreate(Sender: TObject); +var + Item: TMenuItem; +begin + mass_prov := ''; + with dtmSystem do + begin + if not(tblCHGEmpresa.Active) then + begin + tblCHGEmpresa.Open; + end; + tblCHGEmpresa.First; + clb_beneficiarios.Items.Add('Marcar Todos'); + + while not tblCHGEmpresa.Eof do // preenche o list box + begin + clb_beneficiarios.Items.Add(tblCHGEmpresaTX_NOME.AsString); + tblCHGEmpresa.Next; + end; + + if not(tblUsuariosConsulta.Active) then + begin + tblUsuariosConsulta.Open; + end; + tblUsuariosConsulta.First; + clb_cobradores.Items.Add('Marcar Todos'); + clb_usuarios.Items.Add('Marcar Todos'); + while not tblUsuariosConsulta.Eof do // preenche o list box + begin + clb_cobradores.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + clb_usuarios.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + tblUsuariosConsulta.Next; + end; + + if not(tblProvidencias.Active) then + begin + tblProvidencias.Open; + end; + tblProvidencias.First; + clb_providencias.Items.Add('Marcar Todos'); + while not tblProvidencias.Eof do // preenche o list box + begin + clb_providencias.Items.Add(tblProvidenciasTX_NOME.AsString); + tblProvidencias.Next; + end; + + if not(tblGrupos.Active) then + begin + tblGrupos.Open; + end; + tblGrupos.First; + while not tblGrupos.Eof do + begin + Item := TMenuItem.Create(ppm_marcar); + Item.Caption := tblGruposTX_NOME.AsString; + // cria os menus extras do popupmenu + Item.Visible := false; // conforme necessidade dos grupos + Item.OnClick := HandlePopupItem; + ppm_marcar.Items.Add(Item); + tblGrupos.Next; + end; + + if not tblFiltros.Active then + begin + tblFiltros.Open; + end; + + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + + end; + cb_saldodesc.Checked := true; + dtp_credorentrada1.Date := Date; + dtp_credorentrada2.Date := Date; + dtp_credorvenc1.Date := Date; + dtp_credorvenc2.Date := Date; + dtp_provin.Date := Date; + dtp_provfim.Date := Date; + dtp_vencicomeco.Date := Date; + dtp_vencifim.Date := Date; + dtp_entradacomeco.Date := Date; + dtp_entradafim.Date := Date; + + id_old := -1; + + AdjustCheckListBox(clb_beneficiarios); + AdjustCheckListBox(clb_cobradores); + AdjustCheckListBox(clb_providencias); + AdjustCheckListBox(clb_usuarios); + +end; + +procedure TcadCampanha.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TcadCampanha.FormMouseWheel(Sender: TObject; Shift: TShiftState; + WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); +begin + // posi := Mouse.CursorPos; + // Control := FindControlAtPos(posi); + // if Control is TScrollBox then + // begin + sbx_filtro.VertScrollBar.Position := sbx_filtro.VertScrollBar.Position - + (WheelDelta div 12); + // end; +end; + +procedure TcadCampanha.FormShow(Sender: TObject); +begin + inherited; + sbx_filtro.VertScrollBar.Position := 0; +end; + +procedure TcadCampanha.Gerarplanilha1Click(Sender: TObject); + +var + OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param: Variant; + i, j: Integer; +begin + // gera a planilha do relatrio da campanha + if dbgrd_camp.DataSource.DataSet.RecordCount = 0 then + begin + Abort; + end; + + btn_pesquisa.Enabled := false; + btn_ok.Enabled := false; + btn_cancel.Enabled := false; + + Screen.Cursor := crHourGlass; + + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + + LoadParams := VarArrayCreate([0, 0], varVariant); + Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param.Name := 'Hidden'; + Param.Value := true; + LoadParams[0] := Param; + + OOExec := OpenDesktop.LoadComponentFromURL('private:factory/scalc', '_blank', + 0, LoadParams); + OOCalc := OOExec.Sheets; + Planilha := OOCalc.getbyIndex(0); + + // pb_campanha.max := DBGrid2.DataSource.DataSet.RecordCount; + // pb_campanha.Position := 0; + + dbgrd_camp.DataSource.DataSet.First; + + for j := 0 to dbgrd_camp.DataSource.DataSet.RecordCount do + begin + for i := 0 to dbgrd_camp.Columns.Count - 1 do + begin + if j = 0 then + begin + Planilha.getCellByPosition(i, j).string := dbgrd_camp.Columns[i] + .Title.Caption; + end + else + begin + Planilha.getCellByPosition(i, j).string := dbgrd_camp.Columns[i] + .Field.AsString; + end; + Planilha.getCellByPosition(i, j).getColumns.getbyIndex(0) + .OptimalWidth := true; + Application.ProcessMessages; + end; + if j > 0 then + begin + if not(dbgrd_camp.DataSource.DataSet.Eof) then + begin + dbgrd_camp.DataSource.DataSet.Next; + end; + // pb_campanha.StepIt; + end; + end; + + try + OOExec.CurrentController.Frame.ContainerWindow.Visible := true; + finally + OpenOffice := Unassigned; + btn_pesquisa.Enabled := true; + btn_ok.Enabled := true; + btn_cancel.Enabled := true; + end; + + Screen.Cursor := crDefault; +end; + +procedure TcadCampanha.MarcarTodos1Click(Sender: TObject); +var + i: Integer; + // marca todos conforme quem chamou o popupmenu +begin + + if ppm_marcar.PopupComponent.Name = 'clb_beneficiarios' then + begin + for i := 0 to clb_beneficiarios.Items.Count - 1 do + begin + clb_beneficiarios.Checked[i] := true; + end; + end; + + if ppm_marcar.PopupComponent.Name = 'clb_cobradores' then + begin + for i := 0 to clb_cobradores.Items.Count - 1 do + begin + clb_cobradores.Checked[i] := true; + end; + end; + + if ppm_marcar.PopupComponent.Name = 'clb_providencias' then + begin + for i := 0 to clb_providencias.Items.Count - 1 do + begin + clb_providencias.Checked[i] := true; + end; + end; + +end; + +procedure TcadCampanha.marca_todos(clb: TCheckListBox); +var + i, j: Integer; +begin + + with clb do + begin + if Checked[ItemIndex] then + begin + Items.beginupdate; + // marcou o marca todos, marca todos + for i := 0 to Items.Count - 1 do + begin + if (ItemIndex = 0) and (Checked[i] = true) then + begin + for j := 1 to Items.Count - 1 do + begin + Checked[j] := true; + end; + end; + Items.EndUpdate; + end; + end + else + begin + Items.beginupdate; + for i := 0 to Items.Count - 1 do + // desmarcou o marca todos, desmarca todos + begin + if (ItemIndex = 0) and (Checked[i] = false) then + begin + for j := 1 to Items.Count - 1 do + begin + Checked[j] := false; + end; + end; + Items.EndUpdate; + end; + end; + end; +end; + +procedure TcadCampanha.mnuFichaDevClick(Sender: TObject); +begin + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end + else + begin + dtmSystem.tblDevedores.Refresh; + end; + if dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + queryCampanha.FieldByName('ID_DEVEDOR').AsString, []) then + begin + cadDevedores := TcadDevedores.Create(Self); + cadDevedores.ShowModal; + end; +end; + +procedure TcadCampanha.mnuMassprovClick(Sender: TObject); +begin + inherited; + // lanar providncia em massa + // if queryRel.RecordCount > 0 then + // begin + // frmEscolheProv := TfrmEscolheProv.Create(Self); + // frmEscolheProv.ShowModal; + // if frmEscolheProv.ModalResult = mrOk then + // begin + // // pb_campanha.max := queryRel.RecordCount; + // // pb_campanha.Position := 0; + // // pb_campanha.Step := 1; + // queryRel.First; + // dtmSystem.tblProvidencias.Locate('TX_NOME', mass_prov, []); + // if not(dtmSystem.tblHistorico.Active) then + // begin + // dtmSystem.tblHistorico.Open; + // end; + // Application.ProcessMessages; + // while not(queryRel.Eof) do + // begin + // with dtmSystem do + // begin + // tblDevedores.Locate('TX_NOME', queryRel.FieldByName('TX_NOME') + // .AsString, []); + // tblHistorico.Append; + // tblHistoricoID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + // tblHistoricoID_PROVIDENCIA.AsInteger := + // tblProvidenciasID_PROVIDENCIA.AsInteger; + // tblHistoricoID_COBRADOR.AsInteger := id_usuario; + // tblHistoricoDT_CONTATO.AsDateTime := Date; + // tblHistorico.Post; + // end; + // queryRel.Next; + // // pb_campanha.StepIt; + // end; + // dtmSystem.tblHistorico.Close; + // showmessage('Lanamento das providncias em massa terminou!'); + // end; + // end; + +end; + +procedure TcadCampanha.Novofiltro1Click(Sender: TObject); +var + nome: string; +begin + inherited; + nome := ''; + while (nome = '') do + begin + if InputQuery('Insira o nome do filtro', 'Nome: ', nome) then + begin + if nome <> '' then + begin + with dtmSystem do + begin + tblFiltros.Append; + tblFiltrosTX_NOME_FILTRO.AsString := nome; + tblFiltros.Post; + end; + MessageDlg('Por favor salve o filtro ao terminar de configur-lo.', + mtWarning, [mbok], 0); + end + else + begin + MessageDlg('No possvel criar um filtro sem nome.', mtWarning, + [mbok], 0); + end; + end + else + begin + MessageDlg('Voc cancelou a criao de um novo filtro.', mtWarning, + [mbok], 0); + end; + end; + +end; + +//function TcadCampanha.PixtoCM(pix: Integer): double; +//var +// ppcm: double; +//begin +// ppcm := Screen.PixelsPerInch / 2540; +// Result := pix / ppcm; +//end; + +procedure TcadCampanha.ppm_marcarPopup(Sender: TObject); +var + i: Integer; + // mostra ou esconde os menus extras do popupmenu +begin // conforme quem chamou o popupmenu + + if ppm_marcar.PopupComponent.Name = 'clb_cobradores' then + begin + for i := 0 to ppm_marcar.Items.Count - 1 do + begin + if i >= 3 then + begin + ppm_marcar.Items.Items[i].Visible := true; + end; + end; + end + else + begin + for i := 0 to ppm_marcar.Items.Count - 1 do + begin + if i >= 3 then + begin + ppm_marcar.Items.Items[i].Visible := false; + end; + end; + end; +end; + +procedure TcadCampanha.rb_naoincluirClick(Sender: TObject); +begin + + if rb_naoincluir.Checked then + begin + rb_somente.Checked := false; + rb_periodo.Checked := false; + rb_vencido.Checked := false; + rb_todos.Checked := false; + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + end; +end; + +procedure TcadCampanha.rb_periodoClick(Sender: TObject); +begin + + if rb_periodo.Checked then + begin + rb_somente.Checked := false; + rb_todos.Checked := false; + rb_vencido.Checked := false; + rb_naoincluir.Checked := false; + dtp_agendcomeco.Enabled := true; + dtp_agendfim.Enabled := true; + end; +end; + +procedure TcadCampanha.rb_somenteClick(Sender: TObject); +begin + + if rb_somente.Checked then + begin + rb_todos.Checked := false; + rb_periodo.Checked := false; + rb_vencido.Checked := false; + rb_naoincluir.Checked := false; + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + end; +end; + +procedure TcadCampanha.rb_todosClick(Sender: TObject); +begin + + if rb_todos.Checked then + begin + rb_somente.Checked := false; + rb_periodo.Checked := false; + rb_vencido.Checked := false; + rb_naoincluir.Checked := false; + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + end; +end; + +procedure TcadCampanha.rb_vencidoClick(Sender: TObject); +begin + + if rb_vencido.Checked then + begin + rb_somente.Checked := false; + rb_periodo.Checked := false; + rb_todos.Checked := false; + rb_naoincluir.Checked := false; + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + end; +end; + +procedure TcadCampanha.rg_filtroprovClick(Sender: TObject); +var + i: Integer; +begin + inherited; + if (rg_filtroprov.ItemIndex = 3) or (rg_filtroprov.ItemIndex = 4) then + begin + for i := 0 to clb_providencias.Items.Count - 1 do + begin + clb_providencias.Checked[i] := false; + end; + end; +end; + +procedure TcadCampanha.Salvarfiltro1Click(Sender: TObject); +var + i: Integer; + str_helper: string; +begin + inherited; + with dtmSystem do + begin + tblFiltros.Edit; + if cb_beneficiarios.Checked then + begin + tblFiltrosTP_CREDOR.AsInteger := 1; + str_helper := ''; + for i := 0 to clb_beneficiarios.Items.Count - 1 do + begin + if clb_beneficiarios.Checked[i] then + begin + str_helper := str_helper + IntToStr(i) + ';' + end; + end; + tblFiltrosTL_CREDOR.AsString := str_helper; + tblFiltrosTP_TITULO.AsInteger := 1; + tblFiltrosCD_TITULO.AsInteger := rg_credortptitulo.ItemIndex; + end + else + begin + tblFiltrosTP_CREDOR.AsInteger := 0; + tblFiltrosTX_CREDOR.AsString := ''; + tblFiltrosTP_TITULO.AsInteger := 0; + tblFiltrosCD_TITULO.AsString := ''; + end; + + if cb_providencias.Checked then + begin + tblFiltrosTP_PROVIDENCIA.AsInteger := 1; + str_helper := ''; + for i := 0 to clb_providencias.Items.Count - 1 do + begin + if clb_providencias.Checked[i] then + begin + str_helper := str_helper + IntToStr(i) + ';'; + end; + end; + tblFiltrosTL_PROV.AsString := str_helper; + tblFiltrosCD_PROVIDENCIA.AsInteger := rg_filtroprov.ItemIndex; + end + else + begin + tblFiltrosTP_PROVIDENCIA.AsInteger := 0; + tblFiltrosTX_PROVIDENCIA.AsString := ''; + tblFiltrosCD_PROVIDENCIA.AsString := ''; + end; + + if cb_faixavalor.Checked then + begin + tblFiltrosTP_VALOR.AsInteger := 1; + tblFiltrosVL_VALORIN.AsCurrency := StrToCurr(edt_faixain.Text); + tblFiltrosVL_VALORFIM.AsCurrency := StrToCurr(edt_faixafim.Text); + end + else + begin + tblFiltrosTP_VALOR.AsInteger := 0; + tblFiltrosVL_VALORIN.AsString := ''; + tblFiltrosVL_VALORFIM.AsString := ''; + end; + + if cb_agendamento.Checked then + begin + tblFiltrosTP_AGENDADO.AsInteger := 1; + if rb_todos.Checked then + tblFiltrosTX_AGENDADO.AsString := '0'; + if rb_somente.Checked then + tblFiltrosTX_AGENDADO.AsString := '1'; + if rb_periodo.Checked then + tblFiltrosTX_AGENDADO.AsString := '2'; + if rb_vencido.Checked then + tblFiltrosTX_AGENDADO.AsString := '3'; + if rb_naoincluir.Checked then + tblFiltrosTX_AGENDADO.AsString := '4'; + end + else + begin + tblFiltrosTP_AGENDADO.AsInteger := 0; + tblFiltrosTX_AGENDADO.AsString := ''; + end; + + if cb_faixanome.Checked then + begin + tblFiltrosTP_NOME.AsInteger := 1; + tblFiltrosTX_NOME.AsString := edt_nomein.Text + edt_nomefim.Text; + end + else + begin + tblFiltrosTP_NOME.AsInteger := 0; + tblFiltrosTX_NOME.AsString := ''; + end; + + if cb_atraso.Checked then + begin + tblFiltrosTX_ATRASOIN.AsString := edt_atrasoin.Text; + tblFiltrosTX_ATRASOFIM.AsString := edt_atrasofim.Text; + end; + + if cb_tipopessoa.Checked then + begin + tblFiltrosTP_PESSOA.AsInteger := 1; + tblFiltrosCD_PESSOA.AsInteger := rg_tipopessoa.ItemIndex; + end + else + begin + tblFiltrosTP_PESSOA.AsInteger := 0; + tblFiltrosCD_PESSOA.AsString := ''; + end; + + if cb_saldocresc.Checked then + begin + tblFiltrosCD_ORDEM.AsInteger := 1; + end + else if cb_saldodesc.Checked then + begin + tblFiltrosCD_ORDEM.AsInteger := 2; + end + else + begin + tblFiltrosCD_ORDEM.AsInteger := 0; + end; + tblFiltros.Post; + end; +end; + +procedure TcadCampanha.sbx_filtroMouseWheelDown(Sender: TObject; + Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); +begin + inherited; + sbx_filtro.Perform(WM_VSCROLL, 1, 0); +end; + +procedure TcadCampanha.sbx_filtroMouseWheelUp(Sender: TObject; + Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); +begin + inherited; + sbx_filtro.Perform(WM_VSCROLL, 0, 0); +end; + +procedure TcadCampanha.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if Left < workArea.Left then + OffsetRect(Msg.DragRect^, workArea.Left - Left, 0); + + if Top < workArea.Top then + OffsetRect(Msg.DragRect^, 0, workArea.Top - Top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +procedure TcadCampanha.HandlePopupItem(Sender: TObject); +var + menuItem: TMenuItem; + helper: string; + // handler dos menus extras do popupmenu + id_helper: string; + i, cont_helper, cont_helper2: Integer; +begin + cont_helper := 0; + cont_helper2 := 0; + menuItem := TMenuItem(Sender); + helper := ReplaceStr(menuItem.Caption, '&', ''); + with dtmSystem do + begin + tblGrupos.Open; + tblGrupos.First; + while not tblGrupos.Eof do + begin + if helper = tblGruposTX_NOME.AsString then + begin + id_helper := tblGruposID_GRUPO.AsString; + end; + tblGrupos.Next; + end; + end; + + for i := 1 to clb_cobradores.Items.Count - 1 do + begin + dtmSystem.tblUsuariosConsulta.Locate('TX_NOME', + clb_cobradores.Items[i], []); + if dtmSystem.tblUsuariosConsultaID_GRUPO.AsString = id_helper then + begin + if clb_cobradores.Checked[i] = false then + begin + clb_cobradores.Checked[i] := true; + end + else + begin + clb_cobradores.Checked[i] := false; + end; + end; + + if (clb_cobradores.Checked[i] = false) and (i > 0) then + begin + cont_helper := cont_helper + 1 + end; + if (clb_cobradores.Checked[i] = true) and (i > 0) then + begin + cont_helper2 := cont_helper2 + 1 + end; + + end; + + if cont_helper = clb_cobradores.Items.Count - 1 then + begin + clb_cobradores.Checked[0] := false; + end; + if cont_helper2 = clb_cobradores.Items.Count - 1 then + begin + clb_cobradores.Checked[0] := true; + end; +end; + +function TcadCampanha.checa_marcados: Boolean; +begin + if (cb_beneficiarios.Checked = false) and (cb_providencias.Checked = false) + and (cb_agendamento.Checked = false) and (cb_vencimento.Checked = false) and + (cb_faixavalor.Checked = false) and (cb_faixanome.Checked = false) and + (cb_atraso.Checked = false) and (cb_tipopessoa.Checked = false) and + (cb_titulo.Checked = false) and (cb_entrada.Checked = false) and + (cb_cobradores.Checked = false) then + begin + Result := false; + end + else + begin + Result := true; + end; +end; + +procedure TcadCampanha.edt_atrasofimChange(Sender: TObject); +begin + inherited; + if strtoint(edt_atrasofim.Text) < 0 then + begin + edt_atrasofim.Text := '0'; + end; +end; + +procedure TcadCampanha.edt_atrasoinChange(Sender: TObject); +begin + inherited; + if strtoint(edt_atrasoin.Text) < 0 then + begin + edt_atrasoin.Text := '0'; + end; + +end; + +procedure TcadCampanha.edt_faixafimKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_faixafim.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadCampanha.edt_faixainKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_faixain.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadCampanha.edt_nomefimKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key in ['A' .. 'Z', 'a' .. 'z'] then + else + Key := #0; +end; + +procedure TcadCampanha.edt_nomeinKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key in ['A' .. 'Z', 'a' .. 'z'] then + else + Key := #0; +end; + +procedure TcadCampanha.edt_pcredorChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_beneficiarios.Items.Count do + begin + try + if ContainsText(clb_beneficiarios.Items[i], edt_pcredor.Text) then + begin + clb_beneficiarios.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TcadCampanha.edt_pprovChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_providencias.Items.Count do + begin + try + if ContainsText(clb_providencias.Items[i], edt_pprov.Text) then + begin + clb_providencias.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TcadCampanha.edt_puserChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_usuarios.Items.Count do + begin + try + if ContainsText(clb_usuarios.Items[i], edt_puser.Text) then + begin + clb_usuarios.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +end. diff --git a/ucadCobrador.dfm b/ucadCobrador.dfm new file mode 100644 index 0000000..d0abc78 --- /dev/null +++ b/ucadCobrador.dfm @@ -0,0 +1,24 @@ +inherited cadCobrador: TcadCobrador + Caption = 'Cobradores' + ExplicitWidth = 708 + ExplicitHeight = 498 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + inherited pcClientes: TPageControl + inherited tabCadastro: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 649 + ExplicitHeight = 272 + object Label1: TLabel + Left = 3 + Top = 3 + Width = 32 + Height = 13 + Caption = 'Label1' + end + end + end + end +end diff --git a/ucadCobrador.pas b/ucadCobrador.pas new file mode 100644 index 0000000..3754f94 --- /dev/null +++ b/ucadCobrador.pas @@ -0,0 +1,26 @@ +unit ucadCobrador; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls, + Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls; + +type + TcadCobrador = class(TmstCadastro) + Label1: TLabel; + private + { Private declarations } + public + { Public declarations } + end; + +var + cadCobrador: TcadCobrador; + +implementation + +{$R *.dfm} + +end. diff --git a/ucadContas.dfm b/ucadContas.dfm new file mode 100644 index 0000000..32701f0 --- /dev/null +++ b/ucadContas.dfm @@ -0,0 +1,814 @@ +inherited cadContas: TcadContas + Caption = 'Contas' + OnCanResize = FormCanResize + ExplicitTop = -40 + ExplicitWidth = 700 + ExplicitHeight = 491 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + inherited pcClientes: TPageControl + inherited tabCadastro: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 649 + ExplicitHeight = 272 + object lbl_agencia: TLabel + Left = 3 + Top = 3 + Width = 42 + Height = 13 + Caption = 'Ag'#234'ncia:' + end + object lbl_adigito: TLabel + Left = 83 + Top = 3 + Width = 32 + Height = 13 + Caption = 'D'#237'gito:' + end + object lbl_cedente: TLabel + Left = 131 + Top = 3 + Width = 43 + Height = 13 + Caption = 'Cedente:' + end + object lbl_cdigito: TLabel + Left = 263 + Top = 3 + Width = 32 + Height = 13 + Caption = 'D'#237'gito:' + end + object lbl_convenio: TLabel + Left = 309 + Top = 3 + Width = 48 + Height = 13 + Caption = 'Conv'#234'nio:' + end + object lbl_codigito: TLabel + Left = 441 + Top = 3 + Width = 32 + Height = 13 + Caption = 'D'#237'gito:' + end + object lbl_conta: TLabel + Left = 3 + Top = 49 + Width = 31 + Height = 13 + Caption = 'Conta:' + end + object lbl_cadigito: TLabel + Left = 134 + Top = 49 + Width = 32 + Height = 13 + Caption = 'D'#237'gito:' + end + object Label1: TLabel + Left = 186 + Top = 49 + Width = 58 + Height = 13 + Caption = 'Modalidade:' + end + object dbrbx_situacao: TDBRadioGroup + Left = 546 + Top = 3 + Width = 100 + Height = 70 + Caption = 'Situa'#231#227'o' + DataField = 'TP_SITUACAO' + DataSource = dtsDB + Items.Strings = ( + 'Ativa' + 'Suspensa') + TabOrder = 0 + Values.Strings = ( + '1' + '0') + end + object dbedt_agencia: TDBEdit + Left = 3 + Top = 22 + Width = 66 + Height = 21 + DataField = 'CD_AGENCIA' + DataSource = dtsDB + TabOrder = 1 + end + object dbedt_adigito: TDBEdit + Left = 83 + Top = 22 + Width = 32 + Height = 21 + DataField = 'CD_AGENCIA_DV' + DataSource = dtsDB + TabOrder = 2 + end + object dbedt_cedente: TDBEdit + Left = 131 + Top = 22 + Width = 118 + Height = 21 + DataField = 'CD_CEDENTE' + DataSource = dtsDB + TabOrder = 3 + end + object dbedt_cdigito: TDBEdit + Left = 263 + Top = 22 + Width = 32 + Height = 21 + DataField = 'CD_CEDENTE_DV' + DataSource = dtsDB + TabOrder = 4 + end + object dbedt_convenio: TDBEdit + Left = 309 + Top = 22 + Width = 118 + Height = 21 + DataField = 'CD_CONVENIO' + DataSource = dtsDB + TabOrder = 5 + end + object dbedt_codigito: TDBEdit + Left = 441 + Top = 22 + Width = 32 + Height = 21 + DataField = 'CD_CONVENIO_DV' + DataSource = dtsDB + TabOrder = 6 + end + object dbedt_conta: TDBEdit + Left = 3 + Top = 68 + Width = 118 + Height = 21 + DataField = 'CD_CONTA' + DataSource = dtsDB + TabOrder = 7 + end + object dbedt_cadigito: TDBEdit + Left = 134 + Top = 68 + Width = 32 + Height = 21 + DataField = 'CD_CONTA_DV' + DataSource = dtsDB + TabOrder = 8 + end + object DBEdit2: TDBEdit + Left = 186 + Top = 68 + Width = 118 + Height = 21 + DataField = 'CD_MODALIDADE' + DataSource = dtsDB + TabOrder = 9 + end + end + end + object dbgrd_conta: TDBGrid + Left = 19 + Top = 130 + Width = 643 + Height = 174 + DataSource = dtsDB + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + OnTitleClick = dbgrd_contaTitleClick + Columns = < + item + Expanded = False + FieldName = 'ID_CONTA' + Title.Caption = 'ID' + Visible = True + end + item + Expanded = False + FieldName = 'TX_DESCRICAO' + Title.Caption = 'Descri'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'CD_AGENCIA' + Title.Caption = 'Ag'#234'ncia' + Visible = True + end + item + Expanded = False + FieldName = 'CD_AGENCIA_DV' + Title.Caption = 'D'#237'gito' + Visible = True + end + item + Expanded = False + FieldName = 'CD_CEDENTE' + Title.Caption = 'Cedente' + Visible = True + end + item + Expanded = False + FieldName = 'CD_CEDENTE_DV' + Title.Caption = 'D'#237'gito' + Visible = True + end + item + Expanded = False + FieldName = 'CD_CONVENIO' + Title.Caption = 'Conv'#234'nio' + Visible = True + end + item + Expanded = False + FieldName = 'CD_CONVENIO_DV' + Title.Caption = 'D'#237'gito' + Visible = True + end + item + Expanded = False + FieldName = 'CD_CONTA' + Title.Caption = 'Conta' + Visible = True + end + item + Expanded = False + FieldName = 'CD_CONTA_DV' + Title.Caption = 'D'#237'gito' + Visible = True + end + item + Expanded = False + FieldName = 'TP_SITUACAO' + Title.Caption = 'Situa'#231#227'o' + Visible = True + end> + end + end + inherited grpDescricao: TGroupBox + inherited DBEdit1: TDBEdit + DataField = 'TX_DESCRICAO' + end + end + inherited navPrincipal: TDBNavigator + Width = 670 + DataSource = dtsDB + ExplicitWidth = 670 + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblContas + end + object ImageList1: TImageList + Left = 632 + Top = 56 + Bitmap = { + 494C01010C001800E40110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end +end diff --git a/ucadContas.pas b/ucadContas.pas new file mode 100644 index 0000000..37701ec --- /dev/null +++ b/ucadContas.pas @@ -0,0 +1,117 @@ +unit ucadContas; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, + Datasnap.DBClient, Vcl.ExtCtrls, Vcl.DBCtrls, + Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, + System.ImageList, Vcl.ImgList; + +type + TcadContas = class(TmstCadastro) + dbrbx_situacao: TDBRadioGroup; + dbedt_agencia: TDBEdit; + lbl_agencia: TLabel; + dbedt_adigito: TDBEdit; + lbl_adigito: TLabel; + lbl_cedente: TLabel; + dbedt_cedente: TDBEdit; + lbl_cdigito: TLabel; + dbedt_cdigito: TDBEdit; + dbedt_convenio: TDBEdit; + lbl_convenio: TLabel; + lbl_codigito: TLabel; + dbedt_codigito: TDBEdit; + lbl_conta: TLabel; + dbedt_conta: TDBEdit; + dbedt_cadigito: TDBEdit; + lbl_cadigito: TLabel; + dbgrd_conta: TDBGrid; + ImageList1: TImageList; + DBEdit2: TDBEdit; + Label1: TLabel; + procedure FormCreate(Sender: TObject); + procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; + var Resize: Boolean); + procedure WMMoving(var MSG: TWMMoving); message WM_MOVING; + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure dbgrd_contaTitleClick(Column: TColumn); + procedure dtsDBStateChange(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + cadContas: TcadContas; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TcadContas.dbgrd_contaTitleClick(Column: TColumn); +begin + inherited; +dtmSystem.OrganizaPorColuna(dbgrd_conta.DataSource.DataSet, Column); +end; + +procedure TcadContas.dtsDBStateChange(Sender: TObject); +begin + inherited; + dbgrd_conta.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); +end; + +procedure TcadContas.FormCanResize(Sender: TObject; + var NewWidth, NewHeight: Integer; var Resize: Boolean); +begin + inherited; + Resize := false; +end; + +procedure TcadContas.FormCreate(Sender: TObject); +begin + inherited; + dtmSystem.SetupHackedNavigator(navPrincipal, ImageList1, 's'); +end; + +procedure TcadContas.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; +if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TcadContas.WMMoving(var MSG: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with MSG.DragRect^ do + begin + if left < workArea.left then + OffsetRect(MSG.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(MSG.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(MSG.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(MSG.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ucadCredor.dfm b/ucadCredor.dfm new file mode 100644 index 0000000..03f40da --- /dev/null +++ b/ucadCredor.dfm @@ -0,0 +1,3253 @@ +inherited cadCredor: TcadCredor + Left = 327 + Top = 148 + BorderStyle = bsSingle + Caption = 'Cadastro de Credores' + ClientHeight = 586 + ClientWidth = 1060 + Menu = mmnuCredor + PopupMenu = PopupMenu1 + Scaled = False + ShowHint = True + ExplicitTop = -37 + ExplicitWidth = 1066 + ExplicitHeight = 634 + PixelsPerInch = 96 + TextHeight = 13 + object spdbtn_pesquisa: TSpeedButton [0] + Left = 727 + Top = 8 + Width = 67 + Height = 44 + Caption = 'Pesquisa' + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FF314B62 + AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF + 106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + 37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF + 00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2 + 9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC + E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF + FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED + B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF + FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF + DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0 + B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0 + BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1 + D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577 + 6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF} + Layout = blGlyphTop + OnClick = spdbtn_pesquisaClick + end + object spdbtn_verIE: TSpeedButton [1] + Left = 794 + Top = 8 + Width = 72 + Height = 44 + Hint = 'Verificar a Inscri'#231#227'o Estadual' + Caption = 'Verificar IE' + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000000000000000000000000000000000000FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF000063000000630000FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF000063000018B5310018B5310000630000FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF000063000031C64A0021B5390018B5290021B5310000630000FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF000063000042D66B0039CE5A0021AD39000063000018AD290018B531000063 + 0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000063 + 00004AD67B0052DE7B0031B54A0000630000FF00FF0000630000109C210018AD + 310000630000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF000063000042C6630000630000FF00FF00FF00FF00FF00FF00FF00FF000063 + 000018AD290000630000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF0000630000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF0000630000109C210000630000FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF000063000000630000FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF000063000000630000FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00} + Layout = blGlyphTop + ParentShowHint = False + ShowHint = True + OnClick = spdbtn_verIEClick + end + inherited GroupBox2: TGroupBox + Left = 306 + Width = 749 + Height = 440 + ExplicitLeft = 306 + ExplicitWidth = 749 + ExplicitHeight = 440 + inherited pcClientes: TPageControl + Left = 6 + Width = 734 + Height = 414 + ActivePage = tabTabelas + Font.Name = 'MS Sans Serif' + TabStop = False + OnChange = pcClientesChange + ExplicitLeft = 6 + ExplicitWidth = 734 + ExplicitHeight = 414 + inherited tabCadastro: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 726 + ExplicitHeight = 386 + object lbl_cidade: TLabel + Left = 311 + Top = 148 + Width = 36 + Height = 13 + Caption = 'Cidade:' + end + object lbl_bairro: TLabel + Left = 3 + Top = 148 + Width = 30 + Height = 13 + Caption = 'Bairro:' + end + object lbl_tel: TLabel + Left = 590 + Top = 100 + Width = 45 + Height = 13 + Hint = 'Separe telefones com "/".' + Caption = 'Telefone:' + ParentShowHint = False + ShowHint = True + end + object lbl_email: TLabel + Left = 3 + Top = 196 + Width = 31 + Height = 13 + Caption = 'E-mail:' + end + object lbl_website: TLabel + Left = 3 + Top = 244 + Width = 42 + Height = 13 + Caption = 'Website:' + end + object lbl_fantasia: TLabel + Left = 3 + Top = 4 + Width = 74 + Height = 13 + Caption = 'Nome Fantasia:' + end + object lbl_cnpj: TLabel + Left = 3 + Top = 52 + Width = 30 + Height = 13 + Caption = 'CNPJ:' + end + object lbl_inscriest: TLabel + Left = 452 + Top = 52 + Width = 90 + Height = 13 + Caption = 'Inscri'#231#227'o Estadual:' + end + object lbl_inscrimuni: TLabel + Left = 590 + Top = 52 + Width = 94 + Height = 13 + Caption = 'Inscri'#231#227'o Municipal:' + end + object lbl_cep: TLabel + Left = 241 + Top = 52 + Width = 24 + Height = 13 + Caption = 'CEP:' + end + object lbl_end: TLabel + Left = 3 + Top = 100 + Width = 49 + Height = 13 + Caption = 'Endere'#231'o:' + end + object lbl_num: TLabel + Left = 345 + Top = 100 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + end + object lbl_compl: TLabel + Left = 452 + Top = 100 + Width = 67 + Height = 13 + Caption = 'Complemento:' + end + object lbl_uf: TLabel + Left = 194 + Top = 148 + Width = 17 + Height = 13 + Caption = 'UF:' + end + object lbl_repasse: TLabel + Left = 452 + Top = 148 + Width = 98 + Height = 13 + Caption = 'Modelo de Repasse:' + Visible = False + end + object Label8: TLabel + Left = 452 + Top = 196 + Width = 67 + Height = 13 + Caption = 'Departamento' + end + object dblucmbox_cidade: TDBLookupComboBox + Left = 311 + Top = 167 + Width = 121 + Height = 21 + DataField = 'ID_CIDADE' + DataSource = dtmSystem.dtsCHGEmpresa + KeyField = 'ID_CIDADE' + ListField = 'TX_NOME' + ListSource = dtsCidades + TabOrder = 11 + end + object dbedt_bairro: TDBEdit + Left = 3 + Top = 167 + Width = 153 + Height = 21 + DataField = 'TX_BAIRRO' + DataSource = dtsDB + TabOrder = 9 + end + object dbedt_tel: TDBEdit + Left = 590 + Top = 119 + Width = 102 + Height = 21 + DataField = 'TX_TELEFONE' + DataSource = dtsDB + MaxLength = 14 + TabOrder = 8 + end + object dbedt_email: TDBEdit + Left = 3 + Top = 215 + Width = 429 + Height = 21 + DataField = 'TX_EMAIL' + DataSource = dtsDB + TabOrder = 13 + end + object dbedt_website: TDBEdit + Left = 3 + Top = 263 + Width = 429 + Height = 21 + DataField = 'TX_WEBSITE' + DataSource = dtsDB + TabOrder = 14 + end + object dbedt_fantasia: TDBEdit + Left = 3 + Top = 23 + Width = 689 + Height = 21 + DataField = 'TX_FANTASIA' + DataSource = dtsDB + PopupMenu = PopupMenu1 + TabOrder = 0 + end + object dbedt_inscriest: TDBEdit + Left = 452 + Top = 71 + Width = 91 + Height = 21 + DataField = 'TX_IE' + DataSource = dtsDB + TabOrder = 3 + end + object dbedt_inscrimuni: TDBEdit + Left = 590 + Top = 71 + Width = 102 + Height = 21 + DataField = 'TX_IM' + DataSource = dtsDB + TabOrder = 4 + end + object dbedt_cep: TDBEdit + Left = 241 + Top = 71 + Width = 60 + Height = 21 + DataField = 'TX_CEP' + DataSource = dtsDB + TabOrder = 2 + OnKeyPress = dbedt_cepKeyPress + end + object dbedt_end: TDBEdit + Left = 3 + Top = 119 + Width = 298 + Height = 21 + DataField = 'TX_ENDERECO' + DataSource = dtsDB + TabOrder = 5 + end + object dbedt_num: TDBEdit + Left = 345 + Top = 119 + Width = 40 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsDB + TabOrder = 6 + end + object dbedt_compl: TDBEdit + Left = 452 + Top = 119 + Width = 125 + Height = 21 + DataField = 'TX_COMPLEMENTO' + DataSource = dtsDB + TabOrder = 7 + end + object dblucmbox_uf: TDBLookupComboBox + Left = 194 + Top = 167 + Width = 95 + Height = 21 + DataField = 'ID_ESTADO' + DataSource = dtmSystem.dtsCHGEmpresa + KeyField = 'ID_ESTADO' + ListField = 'TX_NOME' + ListSource = dtsEstados + TabOrder = 10 + end + object dbedt_cnpj: TDBEdit + Left = 3 + Top = 71 + Width = 116 + Height = 21 + DataField = 'TX_CNPJ' + DataSource = dtsDB + PopupMenu = PopupMenu1 + TabOrder = 1 + end + object dblucb_repasse: TDBLookupComboBox + Left = 452 + Top = 167 + Width = 125 + Height = 21 + DataField = 'ID_REPASSE' + DataSource = dtmSystem.dtsCHGEmpresa + KeyField = 'ID_REPASSE' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsRepasse + TabOrder = 12 + Visible = False + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 452 + Top = 215 + Width = 237 + Height = 21 + DataField = 'ID_DEPARTAMENTO' + DataSource = dtmSystem.dtsCHGEmpresa + KeyField = 'ID_DEPARTAMENTOS' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsDepartamentos + TabOrder = 15 + end + end + object tabTabelas: TTabSheet + Caption = '&Tabelas de C'#225'lculos' + ImageIndex = 2 + object pcTarifas: TPageControl + Left = 3 + Top = 3 + Width = 720 + Height = 380 + ActivePage = tabRepasses + TabOrder = 0 + object tabBasico: TTabSheet + Caption = '&B'#225'sico' + object GroupBox1: TGroupBox + Left = 3 + Top = 6 + Width = 270 + Height = 278 + Caption = 'Taxas:' + TabOrder = 0 + object lbl_taxabasicaentrada: TLabel + Left = 13 + Top = 210 + Width = 71 + Height = 13 + Caption = '% Entrada Min:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_taxabasicamulta: TLabel + Left = 13 + Top = 20 + Width = 29 + Height = 13 + Caption = 'Multa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_taxabasicajuros: TLabel + Left = 125 + Top = 66 + Width = 39 + Height = 13 + Caption = 'Juros %:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_nparcelasbasico: TLabel + Left = 13 + Top = 66 + Width = 59 + Height = 13 + Caption = 'Qtd M'#225'xima:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_taxabasicaindfin: TLabel + Left = 125 + Top = 117 + Width = 82 + Height = 13 + Caption = 'Juros de Parcela:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 14 + Top = 117 + Width = 99 + Height = 13 + Caption = 'Indicador Financeiro:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 125 + Top = 210 + Width = 74 + Height = 13 + Caption = '% Entrada M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 197 + Top = 66 + Width = 50 + Height = 13 + Caption = 'Juros Fixo:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_taxabasicaentradamin: TDBEdit + Left = 13 + Top = 229 + Width = 62 + Height = 21 + DataField = 'PR_ENTRADA_MIN' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object dbedt_taxabasicamulta: TDBEdit + Left = 13 + Top = 39 + Width = 62 + Height = 21 + DataField = 'PR_MULTA' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_taxabasicajuros: TDBEdit + Left = 125 + Top = 85 + Width = 52 + Height = 21 + DataField = 'PR_JUROS' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dbedt_nparcelasbasico: TDBEdit + Left = 13 + Top = 85 + Width = 94 + Height = 21 + DataField = 'NR_PARCELAS' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object dbedt_taxabasicaindfin: TDBEdit + Left = 125 + Top = 136 + Width = 62 + Height = 21 + DataField = 'PR_JUROS_PARCELAR' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object DBEdit2: TDBEdit + Left = 13 + Top = 136 + Width = 74 + Height = 21 + DataField = 'PR_INDICADOR_FINANCEIRO' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object dbrg_tpentrada: TDBRadioGroup + Left = 13 + Top = 163 + Width = 236 + Height = 41 + Caption = 'Tipo de Entrada' + Columns = 2 + DataField = 'TP_ENTRADA' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Entrada em %' + 'Entrada = Parcelas') + ParentFont = False + TabOrder = 6 + Values.Strings = ( + 'PO' + 'PA') + OnClick = dbrg_tpentradaClick + end + object dbedt_taxabasicaentradamax: TDBEdit + Left = 125 + Top = 229 + Width = 62 + Height = 21 + DataField = 'PR_ENTRADA_MAX' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 7 + end + object DBRadioGroup1: TDBRadioGroup + Left = 120 + Top = 19 + Width = 113 + Height = 41 + Caption = 'Tipo de Juros' + Columns = 2 + DataField = 'TP_JUROS' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + '%' + 'Fixo') + ParentFont = False + TabOrder = 8 + Values.Strings = ( + 'P' + 'N') + OnClick = dbrg_tpentradaClick + end + object DBEdit9: TDBEdit + Left = 197 + Top = 85 + Width = 52 + Height = 21 + DataField = 'NR_JUROS' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 9 + end + end + object GroupBox3: TGroupBox + Left = 286 + Top = 6 + Width = 411 + Height = 278 + Caption = 'Descontos %:' + TabOrder = 1 + object gb_descquitbasico: TGroupBox + Left = 16 + Top = 20 + Width = 377 + Height = 117 + Caption = 'Quita'#231#227'o:' + TabOrder = 0 + object lbl_descquitencbasico: TLabel + Left = 286 + Top = 20 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descquitprinbasico: TLabel + Left = 16 + Top = 20 + Width = 43 + Height = 13 + Caption = 'Principal:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descquitmultabasico: TLabel + Left = 106 + Top = 20 + Width = 29 + Height = 13 + Caption = 'Multa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descquitjurosbasico: TLabel + Left = 196 + Top = 20 + Width = 28 + Height = 13 + Caption = 'Juros:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 16 + Top = 65 + Width = 44 + Height = 13 + Caption = 'Corrigido:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_descquitindfinbasico: TDBEdit + Left = 286 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_IND_FIN' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object dbedt_descquitprinbasico: TDBEdit + Left = 16 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_PRIN' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_descquitmultabasico: TDBEdit + Left = 106 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_MULTA' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dbedt_descquitjurosbasico: TDBEdit + Left = 196 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_JUROS' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object dbedt_descquitcorbasico: TDBEdit + Left = 16 + Top = 84 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_COR' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + end + object gb_descfinbasico: TGroupBox + Left = 16 + Top = 143 + Width = 377 + Height = 117 + Caption = 'Financiamento:' + TabOrder = 1 + object lbl_descfintencbasico: TLabel + Left = 286 + Top = 20 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descfintprinbasico: TLabel + Left = 16 + Top = 20 + Width = 43 + Height = 13 + Caption = 'Principal:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descfintmultabasico: TLabel + Left = 106 + Top = 20 + Width = 29 + Height = 13 + Caption = 'Multa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descfintjurosbasico: TLabel + Left = 196 + Top = 20 + Width = 28 + Height = 13 + Caption = 'Juros:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label2: TLabel + Left = 16 + Top = 65 + Width = 44 + Height = 13 + Caption = 'Corrigido:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_descfinindfinbasico: TDBEdit + Left = 286 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_IND_FIN' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object dbedt_descfinprinbasico: TDBEdit + Left = 16 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_PRIN' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_descfinmultabasico: TDBEdit + Left = 106 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_MULTA' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dbedt_descfinjurosbasico: TDBEdit + Left = 196 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_JUROS' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object dbedt_descfincorbasico: TDBEdit + Left = 16 + Top = 84 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_COR' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + end + end + object GroupBox4: TGroupBox + Left = 3 + Top = 288 + Width = 694 + Height = 61 + Caption = 'Parcelamento:' + TabOrder = 2 + object dbrg_din: TDBRadioGroup + Left = 8 + Top = 13 + Width = 190 + Height = 41 + Caption = 'Dinheiro:' + Columns = 2 + DataField = 'TP_DIN' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Tabela Price' + 'Juros Normal') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'P' + 'J') + OnClick = dbrg_tpentradaClick + end + object dbrg_che: TDBRadioGroup + Left = 254 + Top = 13 + Width = 190 + Height = 41 + Caption = 'Cheque:' + Columns = 2 + DataField = 'TP_CHEQUE' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Tabela Price' + 'Juros Normal') + ParentFont = False + TabOrder = 1 + Values.Strings = ( + 'P' + 'J') + OnClick = dbrg_tpentradaClick + end + object dbrg_cred: TDBRadioGroup + Left = 486 + Top = 13 + Width = 190 + Height = 41 + Caption = 'Cr'#233'dito:' + Columns = 2 + DataField = 'TP_CRED' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Tabela Price' + 'Juros Normal') + ParentFont = False + TabOrder = 2 + Values.Strings = ( + 'P' + 'J') + OnClick = dbrg_tpentradaClick + end + end + end + object tabPolitica: TTabSheet + Caption = '&Pol'#237'tica' + ImageIndex = 1 + object gb_desc: TGroupBox + Left = 351 + Top = 121 + Width = 354 + Height = 228 + Caption = 'Descontos:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object gb_descquitfaixa: TGroupBox + Left = 9 + Top = 18 + Width = 340 + Height = 95 + Caption = 'Quita'#231#227'o:' + TabOrder = 0 + object lbl_descquitindfinfaixa: TLabel + Left = 254 + Top = 20 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descquitprinfaixa: TLabel + Left = 8 + Top = 20 + Width = 43 + Height = 13 + Caption = 'Principal:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descquitmultafaixa: TLabel + Left = 90 + Top = 20 + Width = 29 + Height = 13 + Caption = 'Multa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descquitjurosfaixa: TLabel + Left = 172 + Top = 20 + Width = 28 + Height = 13 + Caption = 'Juros:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label3: TLabel + Left = 8 + Top = 69 + Width = 44 + Height = 13 + Caption = 'Corrigido:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_descquitindfinfaixa: TDBEdit + Left = 254 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_IND_FIN' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object dbedt_descquitprinfaixa: TDBEdit + Left = 8 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_PRIN' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_descquitmultafaixa: TDBEdit + Left = 90 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_MULTA' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dbedt_descquitjurosfaixa: TDBEdit + Left = 172 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_JUROS' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object dbedt_descquitcorfaixa: TDBEdit + Left = 90 + Top = 66 + Width = 74 + Height = 21 + DataField = 'PR_DESC_QUIT_COR' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + end + object gb_descfinfaixa: TGroupBox + Left = 9 + Top = 118 + Width = 340 + Height = 95 + Caption = 'Financiamento:' + TabOrder = 1 + object lbl_descfinindfinfaixa: TLabel + Left = 254 + Top = 20 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descfinprinfaixa: TLabel + Left = 8 + Top = 20 + Width = 43 + Height = 13 + Caption = 'Principal:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descfinmultafaixa: TLabel + Left = 90 + Top = 20 + Width = 29 + Height = 13 + Caption = 'Multa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_descfinjurosfaixa: TLabel + Left = 172 + Top = 20 + Width = 28 + Height = 13 + Caption = 'Juros:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 8 + Top = 68 + Width = 44 + Height = 13 + Caption = 'Corrigido:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_descfinindfinfaixa: TDBEdit + Left = 254 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_IND_FIN' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object dbedt_descfinprinfaixa: TDBEdit + Left = 8 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_PRIN' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_descfinmultafaixa: TDBEdit + Left = 90 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_MULTA' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dbedt_descfinjurosfaixa: TDBEdit + Left = 172 + Top = 39 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_JUROS' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object dbedt_descfincorfaixa: TDBEdit + Left = 90 + Top = 65 + Width = 74 + Height = 21 + DataField = 'PR_DESC_FINAN_COR' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + end + end + object gb_encargos: TGroupBox + Left = 351 + Top = 56 + Width = 354 + Height = 65 + Caption = 'Taxas:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + object pnl_encargos: TPanel + Left = 3 + Top = 16 + Width = 349 + Height = 57 + BevelOuter = bvNone + TabOrder = 0 + object lbl_juros: TLabel + Left = 202 + Top = 0 + Width = 39 + Height = 13 + Caption = 'Juros %:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_multa: TLabel + Left = 17 + Top = 0 + Width = 29 + Height = 13 + Caption = 'Multa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label18: TLabel + Left = 270 + Top = 0 + Width = 50 + Height = 13 + Caption = 'Juros Fixo:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_juros: TDBEdit + Left = 202 + Top = 19 + Width = 62 + Height = 21 + DataField = 'PR_JUROS' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_multa: TDBEdit + Left = 17 + Top = 19 + Width = 62 + Height = 21 + DataField = 'PR_MULTA' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object DBRadioGroup2: TDBRadioGroup + Left = 85 + Top = 2 + Width = 113 + Height = 41 + Caption = 'Tipo de Juros' + Columns = 2 + DataField = 'TP_JUROS' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + '%' + 'Fixo') + ParentFont = False + TabOrder = 2 + Values.Strings = ( + 'P' + 'N') + OnClick = dbrg_tpentradaClick + end + object DBEdit10: TDBEdit + Left = 270 + Top = 19 + Width = 62 + Height = 21 + DataField = 'NR_JUROS' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + end + end + object gb_faixas: TGroupBox + Left = 2 + Top = 175 + Width = 345 + Height = 174 + Caption = 'Faixa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + object lbl_faixa: TLabel + Left = 6 + Top = 15 + Width = 28 + Height = 13 + Caption = 'Faixa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object pnl_faixa: TPanel + Left = 3 + Top = 16 + Width = 339 + Height = 155 + BevelOuter = bvNone + TabOrder = 1 + object lbl_extra1: TLabel + Left = 258 + Top = 45 + Width = 6 + Height = 13 + Caption = 'a' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_fdias: TLabel + Left = 145 + Top = -1 + Width = 67 + Height = 13 + Caption = 'Atraso (Faixa):' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_nomefaixa: TLabel + Left = 3 + Top = 45 + Width = 31 + Height = 13 + Caption = 'Nome:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 270 + Top = -1 + Width = 63 + Height = 13 + Caption = 'Atraso (Dias):' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_diaf: TDBEdit + Left = 270 + Top = 65 + Width = 62 + Height = 21 + DataField = 'ATRASO_MAX' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_diai: TDBEdit + Left = 270 + Top = 18 + Width = 62 + Height = 21 + DataField = 'ATRASO_MIN' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object dbedt_nomefaixa: TDBEdit + Left = 3 + Top = 64 + Width = 136 + Height = 21 + DataField = 'TX_DESCRICAO' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object rDBDateTimePicker1: TrDBDateTimePicker + Left = 145 + Top = 18 + Width = 112 + Height = 21 + Date = 43021.444007488440000000 + Time = 43021.444007488440000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + DataField = 'DT_MIN' + DataSource = dtsFaixa + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object rDBDateTimePicker2: TrDBDateTimePicker + Left = 145 + Top = 64 + Width = 112 + Height = 21 + Date = 43021.444007488440000000 + Time = 43021.444007488440000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 6 + DataField = 'DT_MAX' + DataSource = dtsFaixa + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object dbrg_tpfaixa: TDBRadioGroup + Left = 0 + Top = 91 + Width = 95 + Height = 62 + Caption = 'Tipo de Faixa:' + DataField = 'TP_FAIXA' + DataSource = dtsFaixa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Data' + 'Atraso') + ParentFont = False + TabOrder = 7 + Values.Strings = ( + 'D' + 'A') + end + end + object dbl_faixa: TDBLookupComboBox + Left = 6 + Top = 34 + Width = 136 + Height = 21 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_FAIXA' + ListField = 'TX_DESCRICAO' + ListSource = dtsFaixa + ParentFont = False + TabOrder = 0 + end + object navFaixas: TDBNavigator + Left = 104 + Top = 124 + Width = 235 + Height = 43 + DataSource = dtsFaixa + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] + TabOrder = 2 + BeforeAction = navFaixasBeforeAction + end + end + object gb_politica: TGroupBox + Left = 2 + Top = 56 + Width = 345 + Height = 113 + Caption = 'Pol'#237'tica:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + object pnl_poli: TPanel + Left = 3 + Top = 4 + Width = 339 + Height = 109 + BevelOuter = bvNone + TabOrder = 1 + object lbl_dtfim: TLabel + Left = 219 + Top = 57 + Width = 19 + Height = 13 + Caption = 'Fim:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_dtinicio: TLabel + Left = 219 + Top = 11 + Width = 30 + Height = 13 + Caption = 'In'#237'cio:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_nomepoli: TLabel + Left = 3 + Top = 57 + Width = 31 + Height = 13 + Caption = 'Nome:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbdate_politicaf: TrDBDateTimePicker + Left = 219 + Top = 76 + Width = 113 + Height = 21 + Date = 43021.444007488440000000 + Time = 43021.444007488440000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + DataField = 'DT_FIM' + DataSource = dtsPol + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object dbdate_politicai: TrDBDateTimePicker + Left = 219 + Top = 30 + Width = 113 + Height = 21 + Date = 43021.444007488440000000 + Time = 43021.444007488440000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + DataField = 'DT_INICIO' + DataSource = dtsPol + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object dbedt_nomepoli: TDBEdit + Left = 3 + Top = 76 + Width = 200 + Height = 21 + DataField = 'TX_DESCRICAO' + DataSource = dtsPol + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + end + object dbl_poli: TDBLookupComboBox + Left = 6 + Top = 34 + Width = 200 + Height = 21 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_POLITICA' + ListField = 'TX_DESCRICAO' + ListSource = dtsPol + ParentFont = False + TabOrder = 0 + end + end + object navSecundario: TDBNavigator + Left = 3 + Top = 5 + Width = 702 + Height = 41 + DataSource = dtsPol + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 4 + BeforeAction = navSecundarioBeforeAction + end + end + object tabIndicador: TTabSheet + Caption = '&Indicadores Financeiros' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 2 + ParentFont = False + object navIndicadorFinanceiro: TDBNavigator + Left = 3 + Top = 3 + Width = 462 + Height = 44 + DataSource = dtmSystem.dtsIndicadorFinanceiro + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 0 + BeforeAction = navIndicadorFinanceiroBeforeAction + end + object pnl_indicadorfinanceiro: TPanel + Left = 0 + Top = 53 + Width = 709 + Height = 297 + BevelOuter = bvNone + TabOrder = 1 + object lbl_indfinpr: TLabel + Left = 352 + Top = 9 + Width = 99 + Height = 13 + Caption = 'Indicador Financeiro:' + end + object lbl_indfinatrasomin: TLabel + Left = 352 + Top = 55 + Width = 71 + Height = 13 + Caption = 'Atraso M'#237'nimo:' + end + object lbl_indfinvlfix: TLabel + Left = 505 + Top = 9 + Width = 163 + Height = 13 + Caption = 'Valor Fixo do Indicador Financeiro:' + end + object lbl_indfinatrasomax: TLabel + Left = 505 + Top = 55 + Width = 72 + Height = 13 + Caption = 'Atraso M'#225'ximo:' + end + object dbedt_indfinpr: TDBEdit + Left = 352 + Top = 28 + Width = 121 + Height = 21 + DataField = 'PR_INDICADOR' + DataSource = dtsIndicadorFinanceiro + TabOrder = 0 + end + object dbedt_indfinatrasomin: TDBEdit + Left = 352 + Top = 74 + Width = 121 + Height = 21 + DataField = 'ATRASO_MIN' + DataSource = dtsIndicadorFinanceiro + TabOrder = 1 + end + object dbedt_indfinvlfix: TDBEdit + Left = 505 + Top = 28 + Width = 121 + Height = 21 + DataField = 'VL_INDICADOR' + DataSource = dtsIndicadorFinanceiro + TabOrder = 2 + end + object dbedt_indfinatrasomax: TDBEdit + Left = 505 + Top = 74 + Width = 121 + Height = 21 + DataField = 'ATRASO_MAX' + DataSource = dtsIndicadorFinanceiro + TabOrder = 3 + end + object dbrgrp_indfintipo: TDBRadioGroup + Left = 352 + Top = 101 + Width = 305 + Height = 49 + Caption = 'Tipo de Indicador Utilizado' + Columns = 2 + DataField = 'TP_INDICADOR' + DataSource = dtsIndicadorFinanceiro + Items.Strings = ( + '%' + 'Valor Fixo') + TabOrder = 4 + Values.Strings = ( + '%' + 'V') + end + end + object dbgrd_indicadorfinanceiro: TDBGrid + Left = 3 + Top = 62 + Width = 334 + Height = 283 + DataSource = dtmSystem.dtsIndicadorFinanceiro + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentFont = False + ReadOnly = True + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [fsBold] + OnTitleClick = dbgrd_indicadorfinanceiroTitleClick + Columns = < + item + Expanded = False + FieldName = 'PR_INDICADOR' + Title.Caption = '%' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Width = 46 + Visible = True + end + item + Expanded = False + FieldName = 'VL_INDICADOR' + Title.Caption = 'Valor Fixo' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'TP_INDICADOR' + PickList.Strings = ( + '%' + 'Valor') + Title.Caption = 'Tipo' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Width = 39 + Visible = True + end + item + Expanded = False + FieldName = 'ATRASO_MIN' + Title.Caption = 'Atraso M'#237'nimo' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'ATRASO_MAX' + Title.Caption = 'Atraso M'#225'ximo' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end> + end + end + object tabRepasses: TTabSheet + Caption = 'Repasses' + ImageIndex = 3 + object navRepasse: TDBNavigator + Left = 3 + Top = 3 + Width = 650 + Height = 54 + DataSource = dtsRepasse + TabOrder = 0 + BeforeAction = navRepasseBeforeAction + end + object dbgrdrepasse: TDBGrid + Left = 3 + Top = 63 + Width = 206 + Height = 286 + DataSource = dtsRepasse + Options = [dgColLines, dgTabs, dgConfirmDelete] + ParentShowHint = False + ReadOnly = True + ShowHint = False + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [fsBold] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Visible = True + end> + end + object pcRepasse: TPageControl + Left = 215 + Top = 63 + Width = 494 + Height = 286 + ActivePage = tabRepassedados + TabOrder = 2 + OnChange = pcRepasseChange + object tabRepassedados: TTabSheet + Caption = 'Repasse Principal' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + object Label9: TLabel + Left = 3 + Top = 0 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object Label10: TLabel + Left = 3 + Top = 46 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object Label11: TLabel + Left = 91 + Top = 46 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object Label12: TLabel + Left = 179 + Top = 46 + Width = 29 + Height = 13 + Caption = 'Multa:' + end + object Label13: TLabel + Left = 267 + Top = 46 + Width = 48 + Height = 13 + Caption = 'Encargos:' + end + object Label14: TLabel + Left = 355 + Top = 46 + Width = 44 + Height = 13 + Caption = 'Corrigido:' + end + object Label15: TLabel + Left = 3 + Top = 92 + Width = 23 + Height = 13 + Caption = 'M'#234's:' + end + object Label16: TLabel + Left = 91 + Top = 92 + Width = 22 + Height = 13 + Caption = 'Ano:' + end + object dbgrrepassedados: TDBGrid + Left = 1 + Top = 136 + Width = 482 + Height = 119 + DataSource = dtsRepasse + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentFont = False + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [fsBold] + Columns = < + item + Expanded = False + FieldName = 'PR_PRINCIPAL' + Title.Caption = 'Principal' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'PR_JUROS' + Title.Caption = 'Juros' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'PR_MULTA' + Title.Caption = 'Multa' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'PR_ENCARGOS' + Title.Caption = 'Encargos' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'PR_CORRIGIDO' + Title.Caption = 'Corrigido' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'ID_MES' + PickList.Strings = ( + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10' + '11' + '12') + Title.Caption = 'M'#234's' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'ID_ANO' + PickList.Strings = ( + '2015' + '2016' + '2017' + '2018' + '2019' + '2020' + '2021' + '2022' + '2023' + '2024' + '2025') + Title.Caption = 'Ano' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Width = 57 + Visible = True + end> + end + object DBEdit3: TDBEdit + Left = 3 + Top = 19 + Width = 480 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtsRepasse + TabOrder = 1 + end + object DBEdit4: TDBEdit + Left = 3 + Top = 65 + Width = 70 + Height = 21 + DataField = 'PR_PRINCIPAL' + DataSource = dtsRepasse + TabOrder = 2 + end + object DBEdit5: TDBEdit + Left = 91 + Top = 65 + Width = 70 + Height = 21 + DataField = 'PR_JUROS' + DataSource = dtsRepasse + TabOrder = 3 + end + object DBEdit6: TDBEdit + Left = 179 + Top = 65 + Width = 70 + Height = 21 + DataField = 'PR_MULTA' + DataSource = dtsRepasse + TabOrder = 4 + end + object DBEdit7: TDBEdit + Left = 267 + Top = 65 + Width = 70 + Height = 21 + DataField = 'PR_ENCARGOS' + DataSource = dtsRepasse + TabOrder = 5 + end + object DBEdit8: TDBEdit + Left = 355 + Top = 65 + Width = 70 + Height = 21 + DataField = 'PR_CORRIGIDO' + DataSource = dtsRepasse + TabOrder = 6 + end + object DBComboBox1: TDBComboBox + Left = 3 + Top = 109 + Width = 70 + Height = 21 + DataField = 'ID_MES' + DataSource = dtsRepasse + Items.Strings = ( + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10' + '11' + '12') + TabOrder = 7 + end + object DBComboBox2: TDBComboBox + Left = 91 + Top = 109 + Width = 70 + Height = 21 + DataField = 'ID_ANO' + DataSource = dtsRepasse + Items.Strings = ( + '2015' + '2016' + '2017' + '2018' + '2019' + '2020' + '2021' + '2022' + '2023' + '2024' + '2025') + TabOrder = 8 + end + end + object tabRepasseFase: TTabSheet + Caption = 'Fases de Repasse' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 1 + ParentFont = False + object DBGrid1: TDBGrid + Left = 3 + Top = 47 + Width = 480 + Height = 208 + DataSource = dtsRepasseFase + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'PR_PRINCIPAL' + Title.Caption = 'Principal' + Visible = True + end + item + Expanded = False + FieldName = 'PR_JUROS' + Title.Caption = 'Juros' + Width = 50 + Visible = True + end + item + Expanded = False + FieldName = 'PR_MULTA' + Title.Caption = 'Multa' + Width = 58 + Visible = True + end + item + Expanded = False + FieldName = 'PR_ENCARGOS' + Title.Caption = 'Encargos' + Visible = True + end + item + Expanded = False + FieldName = 'PR_CORRIGIDO' + Title.Caption = 'Corrigido' + Visible = True + end + item + Expanded = False + FieldName = 'MIN_ATRASO' + Title.Caption = 'Atraso Min.' + Visible = True + end + item + Expanded = False + FieldName = 'MAX_ATRASO' + Title.Caption = 'Atraso M'#225'x.' + Visible = True + end> + end + object navrepassefase: TDBNavigator + Left = 3 + Top = 3 + Width = 480 + Height = 38 + DataSource = dtsRepasseFase + TabOrder = 1 + end + end + end + object btn_reprepasse: TButton + Left = 657 + Top = 5 + Width = 52 + Height = 52 + Caption = 'Repetir Repasse' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + Visible = False + WordWrap = True + OnClick = btn_reprepasseClick + end + end + end + end + object tabObservacoes: TTabSheet + Caption = '&Observa'#231#245'es' + ImageIndex = 4 + object dbmemo_obs: TDBMemo + Left = 0 + Top = 32 + Width = 705 + Height = 316 + DataField = 'TL_OBSERVACOES' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object btn_clearmemo: TButton + Left = 630 + Top = 8 + Width = 75 + Height = 18 + Caption = 'Limpar' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = btn_clearmemoClick + end + end + end + end + inherited stbStatus: TStatusBar + Top = 567 + Width = 1060 + ExplicitTop = 567 + ExplicitWidth = 1060 + end + inherited grpDescricao: TGroupBox + Left = 306 + Width = 749 + ExplicitLeft = 306 + ExplicitWidth = 749 + inherited Nome: TLabel + Width = 64 + Caption = 'Raz'#227'o Social:' + ExplicitWidth = 64 + end + inherited DBEdit1: TDBEdit + Left = 16 + Top = 26 + Width = 719 + DataField = 'TX_NOME' + PopupMenu = PopupMenu1 + ExplicitLeft = 16 + ExplicitTop = 26 + ExplicitWidth = 719 + end + end + inherited navPrincipal: TDBNavigator + Width = 720 + DataSource = dtsDB + VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel, nbRefresh] + ParentShowHint = False + ShowHint = True + ExplicitWidth = 720 + end + object gb_listcredores: TGroupBox [6] + Left = 6 + Top = 121 + Width = 294 + Height = 440 + TabOrder = 4 + object dbgrd_credoreslist: TDBGrid + Left = 12 + Top = 11 + Width = 270 + Height = 418 + DataSource = dtsDB + Options = [dgColLines, dgTabs, dgConfirmDelete] + ParentShowHint = False + ReadOnly = True + ShowHint = False + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Visible = True + end> + end + end + object Pesquisa: TGroupBox [7] + Left = 8 + Top = 58 + Width = 292 + Height = 57 + Caption = 'Pesquisa' + TabOrder = 5 + object edt_procura: TEdit + Left = 10 + Top = 24 + Width = 270 + Height = 21 + TabOrder = 0 + OnChange = edt_procuraChange + end + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblCHGEmpresa + OnDataChange = dtsDBDataChange + Left = 832 + Top = 54 + end + object ImageList1: TImageList + Left = 784 + Top = 56 + Bitmap = { + 494C01010C001800500210001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object dtsPol: TDataSource + DataSet = dtmSystem.tblPoliticas + OnStateChange = dtsPolStateChange + OnDataChange = dtsPolDataChange + Left = 814 + Top = 106 + end + object dtsFaixa: TDataSource + DataSet = dtmSystem.tblFaixas + OnStateChange = dtsFaixaStateChange + OnDataChange = dtsFaixaDataChange + Left = 870 + Top = 106 + end + object ACBrCEP1: TACBrCEP + ProxyPort = '8080' + WebService = wsRepublicaVirtual + PesquisarIBGE = True + OnBuscaEfetuada = ACBrCEP1BuscaEfetuada + Left = 894 + Top = 58 + end + object mmnuCredor: TMainMenu + Left = 62 + Top = 154 + object Novo1: TMenuItem + Caption = 'Novo' + Visible = False + object Credor: TMenuItem + Caption = 'Benefici'#225'rio' + OnClick = CredorClick + end + object N1: TMenuItem + Caption = '-' + end + object Poltica1: TMenuItem + Caption = 'Pol'#237'tica' + OnClick = Poltica1Click + end + object Faixa1: TMenuItem + Caption = 'Faixa' + OnClick = Faixa1Click + end + end + end + object dtsCidades: TDataSource + DataSet = dtmSystem.tblCidades + OnDataChange = dtsCidadesDataChange + Left = 634 + Top = 65 + end + object dtsEstados: TDataSource + DataSet = dtmSystem.tblEstados + OnDataChange = dtsEstadosDataChange + Left = 560 + Top = 64 + end + object PopupMenu1: TPopupMenu + OnPopup = PopupMenu1Popup + Left = 386 + Top = 66 + object Copiar1: TMenuItem + Caption = 'Copiar' + OnClick = Copiar1Click + end + end + object dtsIndicadorFinanceiro: TDataSource + DataSet = dtmSystem.tblIndicadorFinanceiro + OnStateChange = dtsIndicadorFinanceiroStateChange + Left = 717 + Top = 74 + end + object dtsRepasse: TDataSource + DataSet = dtmSystem.tblEmpresaRepasse + OnStateChange = dtsRepasseStateChange + Left = 946 + Top = 106 + end + object dtsRepasseFase: TDataSource + DataSet = dtmSystem.tblRepasseFase + OnStateChange = dtsRepasseFaseStateChange + Left = 946 + Top = 154 + end + object zroqryTestaRepasse: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 928 + Top = 16 + end +end diff --git a/ucadCredor.pas b/ucadCredor.pas new file mode 100644 index 0000000..dfd1566 --- /dev/null +++ b/ucadCredor.pas @@ -0,0 +1,1433 @@ +unit ucadCredor; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls, + Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, + Vcl.Buttons, StrUtils, Types, System.ImageList, Vcl.ImgList, ACBrBase, + ACBrSocket, ACBrCEP, rDBComponents, Vcl.Menus, System.UITypes, ClipBrd, + ZAbstractRODataset, + ZDataset; + +// Tentando "Hackear" o TDBNavigator +type + THackDBNavigator = class(TDBNavigator); + +type + TcadCredor = class(TmstCadastro) + lbl_cidade: TLabel; + dblucmbox_cidade: TDBLookupComboBox; + lbl_bairro: TLabel; + dbedt_bairro: TDBEdit; + dbedt_tel: TDBEdit; + lbl_tel: TLabel; + dbedt_email: TDBEdit; + lbl_email: TLabel; + dbedt_website: TDBEdit; + lbl_website: TLabel; + dbedt_fantasia: TDBEdit; + lbl_fantasia: TLabel; + lbl_cnpj: TLabel; + lbl_inscriest: TLabel; + dbedt_inscriest: TDBEdit; + lbl_inscrimuni: TLabel; + dbedt_inscrimuni: TDBEdit; + dbedt_cep: TDBEdit; + lbl_cep: TLabel; + dbedt_end: TDBEdit; + lbl_end: TLabel; + dbedt_num: TDBEdit; + lbl_num: TLabel; + dbedt_compl: TDBEdit; + lbl_compl: TLabel; + dblucmbox_uf: TDBLookupComboBox; + lbl_uf: TLabel; + ImageList1: TImageList; + spdbtn_pesquisa: TSpeedButton; + tabTabelas: TTabSheet; + lbl_dtinicio: TLabel; + lbl_faixa: TLabel; + lbl_dtfim: TLabel; + gb_politica: TGroupBox; + lbl_fdias: TLabel; + dbedt_diai: TDBEdit; + dbedt_diaf: TDBEdit; + lbl_extra1: TLabel; + gb_encargos: TGroupBox; + lbl_multa: TLabel; + dbedt_multa: TDBEdit; + lbl_juros: TLabel; + dbedt_juros: TDBEdit; + gb_desc: TGroupBox; + gb_faixas: TGroupBox; + tabObservacoes: TTabSheet; + dbmemo_obs: TDBMemo; + btn_clearmemo: TButton; + navSecundario: TDBNavigator; + dbl_poli: TDBLookupComboBox; + dbl_faixa: TDBLookupComboBox; + dtsPol: TDataSource; + dtsFaixa: TDataSource; + spdbtn_verIE: TSpeedButton; + ACBrCEP1: TACBrCEP; + dbedt_cnpj: TDBEdit; + dbdate_politicai: TrDBDateTimePicker; + dbdate_politicaf: TrDBDateTimePicker; + gb_listcredores: TGroupBox; + navFaixas: TDBNavigator; + lbl_nomepoli: TLabel; + dbedt_nomepoli: TDBEdit; + lbl_nomefaixa: TLabel; + dbedt_nomefaixa: TDBEdit; + pnl_poli: TPanel; + pnl_encargos: TPanel; + pnl_faixa: TPanel; + mmnuCredor: TMainMenu; + Novo1: TMenuItem; + Credor: TMenuItem; + N1: TMenuItem; + Poltica1: TMenuItem; + Faixa1: TMenuItem; + dtsCidades: TDataSource; + dtsEstados: TDataSource; + PopupMenu1: TPopupMenu; + Copiar1: TMenuItem; + dblucb_repasse: TDBLookupComboBox; + lbl_repasse: TLabel; + dbgrd_credoreslist: TDBGrid; + pcTarifas: TPageControl; + tabBasico: TTabSheet; + tabPolitica: TTabSheet; + GroupBox1: TGroupBox; + dbedt_taxabasicaentradamin: TDBEdit; + lbl_taxabasicaentrada: TLabel; + dbedt_taxabasicamulta: TDBEdit; + lbl_taxabasicamulta: TLabel; + dbedt_taxabasicajuros: TDBEdit; + lbl_taxabasicajuros: TLabel; + dbedt_nparcelasbasico: TDBEdit; + lbl_nparcelasbasico: TLabel; + GroupBox3: TGroupBox; + gb_descquitbasico: TGroupBox; + lbl_descquitencbasico: TLabel; + dbedt_descquitindfinbasico: TDBEdit; + lbl_descquitprinbasico: TLabel; + dbedt_descquitprinbasico: TDBEdit; + lbl_descquitmultabasico: TLabel; + lbl_descquitjurosbasico: TLabel; + dbedt_descquitmultabasico: TDBEdit; + dbedt_descquitjurosbasico: TDBEdit; + gb_descfinbasico: TGroupBox; + lbl_descfintencbasico: TLabel; + dbedt_descfinindfinbasico: TDBEdit; + lbl_descfintprinbasico: TLabel; + dbedt_descfinprinbasico: TDBEdit; + lbl_descfintmultabasico: TLabel; + dbedt_descfinmultabasico: TDBEdit; + lbl_descfintjurosbasico: TLabel; + dbedt_descfinjurosbasico: TDBEdit; + tabIndicador: TTabSheet; + dtsIndicadorFinanceiro: TDataSource; + navIndicadorFinanceiro: TDBNavigator; + pnl_indicadorfinanceiro: TPanel; + dbgrd_indicadorfinanceiro: TDBGrid; + lbl_indfinpr: TLabel; + dbedt_indfinpr: TDBEdit; + dbedt_indfinatrasomin: TDBEdit; + lbl_indfinatrasomin: TLabel; + dbedt_indfinvlfix: TDBEdit; + lbl_indfinvlfix: TLabel; + dbedt_indfinatrasomax: TDBEdit; + lbl_indfinatrasomax: TLabel; + dbrgrp_indfintipo: TDBRadioGroup; + gb_descquitfaixa: TGroupBox; + lbl_descquitindfinfaixa: TLabel; + lbl_descquitprinfaixa: TLabel; + lbl_descquitmultafaixa: TLabel; + lbl_descquitjurosfaixa: TLabel; + dbedt_descquitindfinfaixa: TDBEdit; + dbedt_descquitprinfaixa: TDBEdit; + dbedt_descquitmultafaixa: TDBEdit; + dbedt_descquitjurosfaixa: TDBEdit; + gb_descfinfaixa: TGroupBox; + lbl_descfinindfinfaixa: TLabel; + lbl_descfinprinfaixa: TLabel; + lbl_descfinmultafaixa: TLabel; + lbl_descfinjurosfaixa: TLabel; + dbedt_descfinindfinfaixa: TDBEdit; + dbedt_descfinprinfaixa: TDBEdit; + dbedt_descfinmultafaixa: TDBEdit; + dbedt_descfinjurosfaixa: TDBEdit; + lbl_taxabasicaindfin: TLabel; + dbedt_taxabasicaindfin: TDBEdit; + dbedt_descquitcorbasico: TDBEdit; + Label1: TLabel; + dbedt_descfincorbasico: TDBEdit; + Label2: TLabel; + dbedt_descquitcorfaixa: TDBEdit; + Label3: TLabel; + dbedt_descfincorfaixa: TDBEdit; + Label4: TLabel; + Label5: TLabel; + DBEdit2: TDBEdit; + Pesquisa: TGroupBox; + edt_procura: TEdit; + dbrg_tpentrada: TDBRadioGroup; + Label6: TLabel; + dbedt_taxabasicaentradamax: TDBEdit; + GroupBox4: TGroupBox; + dbrg_din: TDBRadioGroup; + dbrg_che: TDBRadioGroup; + dbrg_cred: TDBRadioGroup; + rDBDateTimePicker1: TrDBDateTimePicker; + rDBDateTimePicker2: TrDBDateTimePicker; + Label7: TLabel; + dbrg_tpfaixa: TDBRadioGroup; + DBLookupComboBox1: TDBLookupComboBox; + Label8: TLabel; + tabRepasses: TTabSheet; + dtsRepasse: TDataSource; + navRepasse: TDBNavigator; + dbgrdrepasse: TDBGrid; + pcRepasse: TPageControl; + tabRepassedados: TTabSheet; + tabRepasseFase: TTabSheet; + dbgrrepassedados: TDBGrid; + Label9: TLabel; + DBEdit3: TDBEdit; + Label10: TLabel; + DBEdit4: TDBEdit; + DBEdit5: TDBEdit; + Label11: TLabel; + DBEdit6: TDBEdit; + Label12: TLabel; + DBEdit7: TDBEdit; + Label13: TLabel; + DBEdit8: TDBEdit; + Label14: TLabel; + DBGrid1: TDBGrid; + navrepassefase: TDBNavigator; + dtsRepasseFase: TDataSource; + DBComboBox1: TDBComboBox; + DBComboBox2: TDBComboBox; + Label15: TLabel; + Label16: TLabel; + btn_reprepasse: TButton; + DBRadioGroup1: TDBRadioGroup; + Label17: TLabel; + DBEdit9: TDBEdit; + DBRadioGroup2: TDBRadioGroup; + DBEdit10: TDBEdit; + Label18: TLabel; + zroqryTestaRepasse: TZReadOnlyQuery; + procedure FormCreate(Sender: TObject); + procedure dtsDBDataChange(Sender: TObject; Field: TField); + procedure spdbtn_pesquisaClick(Sender: TObject); + procedure btn_clearmemoClick(Sender: TObject); + procedure navSecundarioBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure dtsFaixaDataChange(Sender: TObject; Field: TField); + procedure dtsPolDataChange(Sender: TObject; Field: TField); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure spdbtn_verIEClick(Sender: TObject); + procedure ACBrCEP1BuscaEfetuada(Sender: TObject); + procedure dbedt_cepKeyPress(Sender: TObject; var Key: Char); + procedure navFaixasBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure CredorClick(Sender: TObject); + procedure Poltica1Click(Sender: TObject); + procedure Faixa1Click(Sender: TObject); + procedure dtsEstadosDataChange(Sender: TObject; Field: TField); + procedure dtsCidadesDataChange(Sender: TObject; Field: TField); + procedure Copiar1Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure dtsDBStateChange(Sender: TObject); + procedure dtsPolStateChange(Sender: TObject); + procedure dtsFaixaStateChange(Sender: TObject); + procedure PopupMenu1Popup(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure pcClientesChange(Sender: TObject); + procedure dtsIndicadorFinanceiroStateChange(Sender: TObject); + procedure navIndicadorFinanceiroBeforeAction(Sender: TObject; + Button: TNavigateBtn); + procedure FormShow(Sender: TObject); + procedure dbgrd_indicadorfinanceiroTitleClick(Column: TColumn); + procedure edt_procuraChange(Sender: TObject); + procedure dbrg_tpentradaClick(Sender: TObject); + procedure dtsRepasseStateChange(Sender: TObject); + procedure dtsRepasseFaseStateChange(Sender: TObject); + procedure btn_reprepasseClick(Sender: TObject); + procedure navRepasseBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure pcRepasseChange(Sender: TObject); + private + old_id: integer; + function FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; + function FindControlAtPos(AScreenPos: TPoint): TControl; + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + procedure ChecaPermissoes; + { Private declarations } + public + pos: TPoint; + primeiro_cad: Boolean; + { Public declarations } + end; + +var + cadCredor: TcadCredor; + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmPesquisa, ufrmVerIE, ufrmCobranca, ufrmLiberaPermissao; + +procedure TcadCredor.CredorClick(Sender: TObject); +begin + // add um novo beneficirio + pcClientes.TabIndex := 0; + navPrincipal.DataSource.DataSet.Append; +end; + +procedure TcadCredor.btn_clearmemoClick(Sender: TObject); +begin + inherited; + // limpa as linhas do memo box + dbmemo_obs.Lines.Clear; +end; + +procedure TcadCredor.btn_reprepasseClick(Sender: TObject); +var + i, ano: integer; + pr, multa, juros, enc, cor: double; +begin + inherited; + with dtmSystem do + begin + if not tblEmpresaRepasse.IsEmpty then + begin + if Messagedlg + ('Deseja repetir este repasse ao longo do ano a que ele pertence?', + mtConfirmation, [mbYes, mbNo], 0) = mrYes then + begin + pr := tblEmpresaRepassePR_PRINCIPAL.AsFloat; + multa := tblEmpresaRepassePR_MULTA.AsFloat; + juros := tblEmpresaRepassePR_JUROS.AsFloat; + enc := tblEmpresaRepassePR_ENCARGOS.AsFloat; + cor := tblEmpresaRepassePR_CORRIGIDO.AsFloat; + ano := tblEmpresaRepasseID_ANO.AsInteger; + tblEmpresaRepasse.Filtered := false; + tblEmpresaRepasse.Filter := 'ID_ANO = ' + + tblEmpresaRepasseID_ANO.AsString; + tblEmpresaRepasse.Filtered := True; + for i := 1 to 12 do + begin + if not tblEmpresaRepasse.Locate('ID_MES', i, []) then + begin + tblEmpresaRepasse.Append; + tblEmpresaRepassePR_PRINCIPAL.AsFloat := pr; + tblEmpresaRepassePR_MULTA.AsFloat := multa; + tblEmpresaRepassePR_JUROS.AsFloat := juros; + tblEmpresaRepassePR_ENCARGOS.AsFloat := enc; + tblEmpresaRepassePR_CORRIGIDO.AsFloat := cor; + tblEmpresaRepasseID_MES.AsInteger := i; + tblEmpresaRepasseID_ANO.AsInteger := ano; + tblEmpresaRepasseTX_NOME.AsString := inttostr(i) + '/' + + inttostr(ano); + tblEmpresaRepasse.Post; + end; + end; + tblEmpresaRepasse.Filtered := false; + tblEmpresaRepasse.Filter := ''; + Showmessage('Processo terminado!'); + end; + end; + end; +end; + +procedure TcadCredor.ChecaPermissoes; +begin + with dtmSystem do + begin + navPrincipal.Enabled := VerificarPermissao('CBR.02.02.01'); + if not VerificarPermissao('CBR.02.02.01.01') then + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.02.01.02') then + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.02.01.03') then + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbDelete]; + tabTabelas.Enabled := VerificarPermissao('CBR.02.02.01.04'); + navSecundario.Enabled := VerificarPermissao('CBR.02.02.02'); + navFaixas.Enabled := VerificarPermissao('CBR.02.02.03'); + navIndicadorFinanceiro.Enabled := VerificarPermissao('CBR.02.02.04'); + end; +end; + +procedure TcadCredor.Copiar1Click(Sender: TObject); +var + Control: TControl; +begin + // usa duas funes que achei na net pra pegar o controle na pos do mouse pra poder copiar o contedo dele mesmo desabilitado + Control := FindControlAtPos(pos); + if Control is TDBEdit then + begin + Clipboard.AsText := (Control as TDBEdit).Text; + end; + if Control is TDBLookupComboBox then + begin + Clipboard.AsText := (Control as TDBLookupComboBox).Text; + end; + if Control is TrDBDateTimePicker then + begin + Clipboard.AsText := formatdatetime('dd/mm/yyyy', + (Control as TrDBDateTimePicker).Date); + end; + if Control is TDBMemo then + begin + (Control as TDBMemo).SelectAll; + (Control as TDBMemo).CopyToClipboard; + end; +end; + +procedure TcadCredor.dbedt_cepKeyPress(Sender: TObject; var Key: Char); +begin + // busca endereo pelo cep ao apertar enter + if (Key = #13) then + begin + ACBrCEP1.BuscarPorCEP(dbedt_cep.Text); + end; +end; + +procedure TcadCredor.dbgrd_indicadorfinanceiroTitleClick(Column: TColumn); +begin + inherited; + dtmSystem.OrganizaPorColuna + (dbgrd_indicadorfinanceiro.DataSource.DataSet, Column); +end; + +procedure TcadCredor.dbrg_tpentradaClick(Sender: TObject); +begin + inherited; + if dbrg_tpentrada.ItemIndex = 0 then + begin + dbedt_taxabasicaentradamin.Enabled := True; + dbedt_taxabasicaentradamax.Enabled := True; + end + else + begin + dbedt_taxabasicaentradamin.Enabled := false; + dbedt_taxabasicaentradamax.Enabled := false; + end; +end; + +procedure TcadCredor.dtsCidadesDataChange(Sender: TObject; Field: TField); +begin + // arruma o combo box com o id da cidade se existir + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.KeyValue := dtmSystem.tblEnderecosID_CIDADE.AsVariant; + end; +end; + +procedure TcadCredor.dtsDBDataChange(Sender: TObject; Field: TField); +var + new_id: integer; + mes, ano, name: string; +begin + // acontece sempre que muda algum dado no dtsDB desta janela + if dbrg_tpentrada.ItemIndex = 0 then + begin + dbedt_taxabasicaentradamin.Enabled := True; + dbedt_taxabasicaentradamax.Enabled := True; + end + else + begin + dbedt_taxabasicaentradamin.Enabled := false; + dbedt_taxabasicaentradamax.Enabled := false; + end; + stbStatus.Panels[0].Text := 'N de Credores cadastrados: ' + + inttostr(dtsDB.DataSet.RecordCount) + '.'; + // new_id := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; + // if (old_id <> new_id) and (self.Active) then + // begin + navSecundario.Enabled := not(dtsDB.DataSet.IsEmpty); + new_id := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; + if (old_id <> new_id) and (self.Active) then + begin + if old_id <> -1 then + begin + mes := copy(formatdatetime('yyyy-mm-dd', Date), 6, 2); + ano := copy(formatdatetime('yyyy-mm-dd', Date), 1, 4); + zroqryTestaRepasse.SQL.Text := + 'select * from chg_empresa_repasse where id_empresa = ' + + QuotedStr(inttostr(old_id)) + ' and id_mes = ' + QuotedStr(mes) + + ' and id_ano = ' + QuotedStr(ano); + zroqryTestaRepasse.Open; + if zroqryTestaRepasse.IsEmpty then + begin + Showmessage('A empresa ' + name + + ' no possui repasse para este ms. Isso impedir a gerao de recibos de ttulos dessa empresa.'); + end; + end; + old_id := new_id; + name := dtmSystem.tblCHGEmpresaTX_FANTASIA.AsString; + ChecaPermissoes; + end; + +end; + +procedure TcadCredor.dtsDBStateChange(Sender: TObject); +begin + // grpDescricao.Enabled := dtsDB.State in [dsEdit, dsInsert]; + // tabCadastro.Enabled := grpDescricao.Enabled; + inherited; + // dbgrd_credoreslist.Enabled := not(dtsDB.DataSet.IsEmpty); + + // tabCadastro.Enabled := dtsDB.State in [dsEdit, dsInsert]; + tabBasico.Enabled := dtsDB.State in [dsEdit, dsInsert]; + edt_procura.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + tabObservacoes.Enabled := grpDescricao.Enabled; + dbmemo_obs.Enabled := grpDescricao.Enabled; + tabPolitica.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + tabIndicador.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + tabRepasses.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + // tabTabelas.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); +end; + +procedure TcadCredor.dtsEstadosDataChange(Sender: TObject; Field: TField); +begin + // arruma o combo box da cidade e do estado + if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then + begin + dblucmbox_uf.KeyValue := dtmSystem.tblEstadosID_ESTADO.AsVariant; + end; + + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.KeyValue := dtmSystem.tblCidadesID_CIDADE.AsVariant; + end; +end; + +procedure TcadCredor.dtsFaixaDataChange(Sender: TObject; Field: TField); +begin + + if (dtmSystem.tblFaixasID_FAIXA.AsVariant >= 0) and + (dtsFaixa.State in [dsBrowse]) then + begin + dbl_faixa.KeyValue := dtmSystem.tblFaixasID_FAIXA.AsVariant; + end; + +end; + +procedure TcadCredor.dtsFaixaStateChange(Sender: TObject); +begin + // acontece sempre que tiver mudana nos dados do db de faixas, mesma coisa de ali em cima + pnl_faixa.Enabled := dtsFaixa.State in [dsEdit, dsInsert]; + gb_encargos.Enabled := dtsFaixa.State in [dsEdit, dsInsert]; + gb_desc.Enabled := dtsFaixa.State in [dsEdit, dsInsert]; + gb_politica.Enabled := not(dtsFaixa.State in [dsEdit, dsInsert]); + edt_procura.Enabled := not(dtsFaixa.State in [dsEdit, dsInsert]); + // tabCadastro.Enabled := not (dtsFaixa.State in [dsEdit, dsInsert]); + navPrincipal.Enabled := not(dtsFaixa.State in [dsEdit, dsInsert]); + if pcTarifas.ActivePage <> tabBasico then + begin + tabBasico.Enabled := not(dtsFaixa.State in [dsEdit, dsInsert]); + end; + if dtsFaixa.State in [dsEdit, dsInsert] then + begin + tabObservacoes.Enabled := false; + end; + navSecundario.Enabled := not(dtsFaixa.State in [dsEdit, dsInsert]); + +end; + +procedure TcadCredor.dtsIndicadorFinanceiroStateChange(Sender: TObject); +begin + inherited; + pnl_indicadorfinanceiro.Enabled := dtsIndicadorFinanceiro.State + in [dsEdit, dsInsert]; + navPrincipal.Enabled := not(dtsIndicadorFinanceiro.State + in [dsEdit, dsInsert]); + edt_procura.Enabled := not(dtsIndicadorFinanceiro.State + in [dsEdit, dsInsert]); + navSecundario.Enabled := not(dtsIndicadorFinanceiro.State + in [dsEdit, dsInsert]); + navFaixas.Enabled := not(dtsIndicadorFinanceiro.State in [dsEdit, dsInsert]); + +end; + +procedure TcadCredor.dtsPolDataChange(Sender: TObject; Field: TField); +begin + + navFaixas.Enabled := not(dtsPol.DataSet.IsEmpty); + + if (dtmSystem.tblPoliticasID_POLITICA.AsVariant >= 0) and + (dtsPol.State in [dsBrowse]) then + begin + dbl_poli.KeyValue := dtmSystem.tblPoliticasID_POLITICA.AsVariant; + end; + + if (dtmSystem.tblFaixasID_FAIXA.AsVariant >= 0) and + (dtsFaixa.State in [dsBrowse]) then + begin + dbl_faixa.KeyValue := dtmSystem.tblFaixasID_FAIXA.AsVariant; + end; + +end; + +procedure TcadCredor.dtsPolStateChange(Sender: TObject); +begin + // //mesmo de ali em cima, s que com o dbPoliticas + pnl_poli.Enabled := dtsPol.State in [dsEdit, dsInsert]; + dbl_poli.Enabled := not(dtsPol.State in [dsEdit, dsInsert]); + edt_procura.Enabled := not(dtsPol.State in [dsEdit, dsInsert]); + + gb_encargos.Enabled := not(dtsPol.State in [dsEdit, dsInsert]); + gb_faixas.Enabled := not(dtsPol.State in [dsEdit, dsInsert]); + gb_desc.Enabled := not(dtsPol.State in [dsEdit, dsInsert]); + + // tabCadastro.Enabled := not (dtsPol.State in [dsEdit, dsInsert]); + tabObservacoes.Enabled := not(dtsPol.State in [dsEdit, dsInsert]); + tabIndicador.Enabled := not(dtsPol.State in [dsEdit, dsInsert]); + navPrincipal.Enabled := not(dtsPol.State in [dsEdit, dsInsert]); + +end; + +procedure TcadCredor.dtsRepasseFaseStateChange(Sender: TObject); +begin + inherited; + if (dtsRepasseFase.State in [dsEdit, dsInsert]) then + begin + DBGrid1.Options := DBGrid1.Options + [dgEditing]; + end + else + begin + DBGrid1.Options := DBGrid1.Options - [dgEditing]; + end; +end; + +procedure TcadCredor.dtsRepasseStateChange(Sender: TObject); +begin + inherited; + tabRepasseFase.Enabled := not(dtsRepasse.State in [dsEdit, dsInsert]); + tabRepassedados.Enabled := (dtsRepasse.State in [dsEdit, dsInsert]); +end; + +procedure TcadCredor.edt_procuraChange(Sender: TObject); +begin + inherited; + dtmSystem.tblCHGEmpresa.Locate('TX_NOME', edt_procura.Text, + [loCaseInsensitive, loPartialKey]); +end; + +procedure TcadCredor.Faixa1Click(Sender: TObject); +begin + // add faixa + pcClientes.TabIndex := 1; + navFaixas.DataSource.DataSet.Append; +end; + +function TcadCredor.FindControlAtPos(AScreenPos: TPoint): TControl; +var + i: integer; + f, m: TForm; + p: TPoint; + r: TRect; +begin + // acha controle na posio do mouse + Result := nil; + for i := Screen.FormCount - 1 downto 0 do + begin + f := Screen.Forms[i]; + if f.Visible and (f.Parent = nil) and (f.FormStyle <> fsMDIChild) and + TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height) + .Contains(AScreenPos) then + Result := f; + end; + Result := FindSubcontrolAtPos(Result, AScreenPos, AScreenPos); + if (Result is TForm) and (TForm(Result).ClientHandle <> 0) then + begin + Winapi.Windows.GetWindowRect(TForm(Result).ClientHandle, r); + p := TPoint.Create(AScreenPos.X - r.Left, AScreenPos.Y - r.Top); + m := nil; + for i := TForm(Result).MDIChildCount - 1 downto 0 do + begin + f := TForm(Result).MDIChildren[i]; + if TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height) + .Contains(p) then + m := f; + end; + if m <> nil then + Result := FindSubcontrolAtPos(m, AScreenPos, p); + end; +end; + +function TcadCredor.FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; +var + i: integer; + C: TControl; +begin + Result := nil; + C := AControl; + if (C = nil) or not C.Visible or not TRect.Create(C.Left, C.Top, + C.Left + C.Width, C.Top + C.Height).Contains(AClientPos) then + Exit; + Result := AControl; + if AControl is TWinControl then + for i := 0 to TWinControl(AControl).ControlCount - 1 do + begin + C := FindSubcontrolAtPos(TWinControl(AControl).Controls[i], AScreenPos, + AControl.ScreenToClient(AScreenPos)); + if C <> nil then + Result := C; + end; +end; + +procedure TcadCredor.FormClose(Sender: TObject; var Action: TCloseAction); +begin + with dtmSystem do + begin + tblCHGEmpresa.Close; + tblCidades.Close; + tblEstados.Close; + tblPoliticas.Close; + tblFaixas.Close; + tblRepasse.Close; + tblIndicadorFinanceiro.Close; + end; + cadCredor := nil; + Action := caFree; +end; + +procedure TcadCredor.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + + if (navSecundario.DataSource <> nil) or (navFaixas.DataSource <> nil) or + (navPrincipal.DataSource <> nil) then + begin + if (navSecundario.DataSource.State in [dsInsert, dsEdit]) or + (navFaixas.DataSource.State in [dsInsert, dsEdit]) or + (navPrincipal.DataSource.State in [dsInsert, dsEdit]) then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + end; +end; + +procedure TcadCredor.FormCreate(Sender: TObject); +begin + inherited; + // abre tabelas usadas nesta janela + with dtmSystem do + begin + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end; + if not tblEmpresaRepasse.Active then + begin + tblEmpresaRepasse.Open; + end; + if not tblEstados.Active then + begin + tblEstados.Open; + end; + if not tblCidades.Active then + begin + tblCidades.Open; + end; + if not tblPoliticas.Active then + begin + tblPoliticas.Open; + end; + if not tblFaixas.Active then + begin + tblFaixas.Open; + end; + if not tblRepasse.Active then + begin + tblRepasse.Open; + end; + if not tblIndicadorFinanceiro.Active then + begin + tblIndicadorFinanceiro.Open; + end; + end; + + if dtsDB.DataSet.IsEmpty then + begin + dbgrd_credoreslist.Enabled := false; + end + else + begin + dbgrd_credoreslist.Enabled := True; + end; + + // funo usada pra "hackear" o navigator e torn-lo customizvel + SetupHackedNavigator(navPrincipal, ImageList1, 's'); + SetupHackedNavigator(navSecundario, ImageList1, 's'); + SetupHackedNavigator(navFaixas, ImageList1, 's'); + SetupHackedNavigator(navIndicadorFinanceiro, ImageList1, 's'); + SetupHackedNavigator(navRepasse, ImageList1, 's'); + SetupHackedNavigator(navrepassefase, ImageList1, 's'); + + navSecundario.Enabled := not(dtsDB.DataSet.IsEmpty); + navFaixas.Enabled := not(dtsPol.DataSet.IsEmpty); + ChecaPermissoes; + // navPrincipal.Enabled := dtmSystem.VerificarPermissao('BENCBR.01'); + // navSecundario.Enabled := dtmSystem.VerificarPermissao('BENCBR.01'); + // navFaixas.Enabled := dtmSystem.VerificarPermissao('BENCBR.01'); + + pcTarifas.TabIndex := 0; + pcRepasse.TabIndex := 0; + primeiro_cad := false; + old_id := -1; + if dtmSystem.id_grupo = 1 then + begin + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbDelete]; + btn_reprepasse.Visible := True; + btn_reprepasse.Enabled := True; + end; +end; + +procedure TcadCredor.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + // inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; + if (Key = 75) and (Shift = [ssCtrl]) then + begin + // ShowMessage('Ctrl+k is pressed!'); + frmLiberaPermissao := TfrmLiberaPermissao.Create(self); + + with frmLiberaPermissao do + begin + level := 3; + string_permissoes.Add('CBR.02.02.01'); + string_permissoes.Add('CBR.02.02.01.01'); + string_permissoes.Add('CBR.02.02.01.02'); + string_permissoes.Add('CBR.02.02.01.03'); + string_permissoes.Add('CBR.02.02.01.04'); + string_permissoes.Add('CBR.02.02.02'); + string_permissoes.Add('CBR.02.02.03'); + string_permissoes.Add('CBR.02.02.04'); + + ShowModal; + + if ModalResult = mrOk then + begin + case dtmSystem.cod_liberapermissao of + 0: + navPrincipal.Enabled := True; + 1: + begin + navPrincipal.Enabled := True; + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + + [nbInsert]; + end; + 2: + begin + navPrincipal.Enabled := True; + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + + [nbEdit]; + end; + 3: + begin + navPrincipal.Enabled := True; + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + + [nbDelete]; + end; + 4: + tabTabelas.Enabled := True; + 5: + navSecundario.Enabled := True; + 6: + navFaixas.Enabled := True; + 7: + navIndicadorFinanceiro.Enabled := True; + end; + end; + end; + + end; +end; + +procedure TcadCredor.FormShow(Sender: TObject); +begin + inherited; + if not(dtmSystem.tblCHGEmpresa.Active) then + begin + dtmSystem.tblCHGEmpresa.Open; + end; + if dtmSystem.tblCHGEmpresa.IsEmpty then + begin + // navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbInsert]; + dtsDB.DataSet.Append; + primeiro_cad := True; + end; +end; + +procedure TcadCredor.navFaixasBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + // acontece sempre antes de qualquer ao do navigator + // primeiro o meu cdigo, depois o obtido pela herana pq o inherited t l no final + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navFaixas.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + + nbPost: + begin + if dbedt_nomefaixa.Text = '' then + begin + Messagedlg('Por favor insira um nome para a Faixa.', mtWarning, + [mbOK], 0); + Abort; + end; + if dbedt_descquitprinfaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre principal ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitmultafaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre multa ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitjurosfaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre juros ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitcorfaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre corrigido ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitindfinfaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre indicador financeiro ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfinprinfaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre principal ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfinmultafaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre multa ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfinjurosfaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre juros ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfincorfaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre corrigido ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfinindfinfaixa.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre indicador financeiro ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbrg_tpfaixa.ItemIndex < 0 then + begin + Messagedlg('Por favor escolha o tipo de Faixa.', mtWarning, + [mbOK], 0); + Abort; + end; + SelectNext(ActiveControl as TWinControl, True, True); + end; + + nbDelete: + begin + if navFaixas.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + + if Messagedlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + Abort; + + try + dtsFaixa.DataSet.Delete; + except + Showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + Abort; + end; + + nbCancel: + if Messagedlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + Abort; + end; +end; + +procedure TcadCredor.navIndicadorFinanceiroBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + inherited; + // acontece sempre antes de qualquer ao do navigator + // primeiro o meu cdigo, depois o obtido pela herana + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navIndicadorFinanceiro.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + + nbPost: + begin + SelectNext(ActiveControl as TWinControl, True, True); + end; + + nbDelete: + begin + if navIndicadorFinanceiro.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + + if Messagedlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + Abort; + + try + dtsIndicadorFinanceiro.DataSet.Delete; + except + Showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + Abort; + end; + + nbCancel: + if Messagedlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + Abort; + end; +end; + +procedure TcadCredor.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbPost: + begin + if DBEdit1.Text = '' then + begin + Messagedlg + ('Por favor insira uma Razo Social antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_fantasia.Text = '' then + begin + Messagedlg + ('Por favor insira um Nome Fantasia antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_taxabasicamulta.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para multa antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_taxabasicajuros.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para juros antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbrg_tpentrada.ItemIndex < 0 then + begin + Messagedlg + ('Por favor selecione o tipo de entrada a ser utilizada para parcelamento antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbrg_din.ItemIndex < 0 then + begin + Messagedlg + ('Por favor selecione o tipo de juros para parcelameto em Dinheiro antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbrg_che.ItemIndex < 0 then + begin + Messagedlg + ('Por favor selecione o tipo de juros para parcelameto em Cheque antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbrg_cred.ItemIndex < 0 then + begin + Messagedlg + ('Por favor selecione o tipo de juros para parcelameto em Crdito antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if (dbedt_taxabasicaentradamin.Text = '') and + (dbrg_tpentrada.ItemIndex = 0) then + begin + Messagedlg + ('Por favor insira um valor para entrada mnima antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if (dbedt_taxabasicaentradamax.Text = '') and + (dbrg_tpentrada.ItemIndex = 0) then + begin + Messagedlg + ('Por favor insira um valor para entrada mxima antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitprinbasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre principal ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitmultabasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre multa ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitjurosbasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre juros ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitindfinbasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre indicador financeiro ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descquitcorbasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre corrigido ao quitar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfinprinbasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre principal ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfinmultabasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre multa ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfinjurosbasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre juros ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfinindfinbasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre indicador financeiro ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_descfincorbasico.Text = '' then + begin + Messagedlg + ('Por favor insira um valor para desconto sobre corrigido ao financiar antes de finalizar o cadastro do Credor.', + mtWarning, [mbOK], 0); + Abort; + end; + primeiro_cad := false; + end; + nbCancel: + begin + if primeiro_cad = True then + begin + Messagedlg('Por favor termine de cadastrar o Credor.', mtWarning, + [mbOK], 0); + Abort; + end; + end; + end; + inherited; + +end; + +procedure TcadCredor.navRepasseBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + inherited; + case Button of + nbPost: + begin + if (DBComboBox1.ItemIndex < 0) or (DBComboBox2.ItemIndex < 0) then + begin + Messagedlg('Por favor indique o ms e o ano do repasse.', mtWarning, + [mbOK], 0); + Abort; + end; + end; + end; + +end; + +procedure TcadCredor.navSecundarioBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + // acontece sempre antes de qualquer ao do navigator + // primeiro o meu cdigo, depois o obtido pela herana + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navSecundario.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + + nbPost: + begin + if dbedt_nomepoli.Text = '' then + begin + Messagedlg('Por favor insira um nome para a nova poltica.', + mtWarning, [mbOK], 0); + Abort; + end; + + SelectNext(ActiveControl as TWinControl, True, True); + end; + + nbDelete: + begin + if navSecundario.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + + if Messagedlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + Abort; + + try + dtsPol.DataSet.Delete; + except + Showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + Abort; + end; + + nbCancel: + if Messagedlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + Abort; + end; + +end; + +procedure TcadCredor.pcClientesChange(Sender: TObject); +begin + if pcClientes.TabIndex = 1 then + begin + pcTarifas.TabIndex := 0; + end; +end; + +procedure TcadCredor.pcRepasseChange(Sender: TObject); +begin + inherited; + if pcRepasse.TabIndex = 1 then + begin + btn_reprepasse.Enabled := false; + end + else + begin + btn_reprepasse.Enabled := True; + end; +end; + +procedure TcadCredor.Poltica1Click(Sender: TObject); +begin + // add poltica + pcClientes.TabIndex := 1; + navSecundario.DataSource.DataSet.Append; +end; + +procedure TcadCredor.PopupMenu1Popup(Sender: TObject); +begin + pos := Mouse.CursorPos; +end; + +procedure TcadCredor.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if LowerCase(S) = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +procedure TcadCredor.spdbtn_pesquisaClick(Sender: TObject); +begin + inherited; + // abre janela pesquisa + TfrmPesquisa.Create(self).ShowModal; +end; + +procedure TcadCredor.spdbtn_verIEClick(Sender: TObject); +begin + // verifica o IE do beneficirio + frmVerIE := TfrmVerIE.Create(self); + frmVerIE.ShowModal; +end; + +procedure TcadCredor.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if Left < workArea.Left then + OffsetRect(Msg.DragRect^, workArea.Left - Left, 0); + + if Top < workArea.Top then + OffsetRect(Msg.DragRect^, 0, workArea.Top - Top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +procedure TcadCredor.ACBrCEP1BuscaEfetuada(Sender: TObject); +var + i: integer; +begin + // busca por cep + for i := 0 to ACBrCEP1.Enderecos.Count - 1 do + begin + dbedt_end.Text := ACBrCEP1.Enderecos[i].Tipo_Logradouro + ' ' + + ACBrCEP1.Enderecos[i].Logradouro; + dbedt_compl.Text := ACBrCEP1.Enderecos[i].Complemento; + dbedt_bairro.Text := ACBrCEP1.Enderecos[i].Bairro; + end; +end; + +end. diff --git a/ucadDevedores.dfm b/ucadDevedores.dfm new file mode 100644 index 0000000..d932ccb --- /dev/null +++ b/ucadDevedores.dfm @@ -0,0 +1,4610 @@ +inherited cadDevedores: TcadDevedores + BorderStyle = bsSingle + Caption = 'Cadastro de Devedores' + ClientHeight = 687 + ClientWidth = 1115 + Menu = MainMenu1 + PopupMenu = PopupMenu1 + Scaled = False + ExplicitTop = -177 + ExplicitWidth = 1121 + ExplicitHeight = 736 + PixelsPerInch = 96 + TextHeight = 13 + object GroupBox1: TGroupBox [0] + Left = 6 + Top = 58 + Width = 202 + Height = 604 + TabOrder = 4 + Visible = False + object dbgrd_devedoreslist: TDBGrid + Left = 5 + Top = 7 + Width = 192 + Height = 594 + TabStop = False + DataSource = dtsDB + Options = [dgColLines, dgTabs, dgConfirmDelete] + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Visible = True + end> + end + end + inherited GroupBox2: TGroupBox + Left = 8 + Width = 1099 + Height = 541 + ExplicitLeft = 8 + ExplicitWidth = 1099 + ExplicitHeight = 541 + inherited pcClientes: TPageControl + Top = 13 + Width = 1084 + Height = 525 + ActivePage = tabTitulos + Font.Name = 'MS Sans Serif' + TabStop = False + TabWidth = 120 + OnChange = pcClientesChange + OnChanging = pcClientesChanging + ExplicitTop = 13 + ExplicitWidth = 1084 + ExplicitHeight = 525 + inherited tabCadastro: TTabSheet + Enabled = True + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 1076 + ExplicitHeight = 497 + object pnl_email: TPanel + Left = 741 + Top = 49 + Width = 332 + Height = 448 + BevelOuter = bvNone + TabOrder = 2 + object lbl_email: TLabel + Left = 5 + Top = 2 + Width = 28 + Height = 13 + Caption = 'Email:' + end + object dbedt_email: TDBEdit + Left = 3 + Top = 21 + Width = 318 + Height = 21 + TabStop = False + DataField = 'TX_EMAIL' + DataSource = dtsEmail + TabOrder = 0 + end + object dbgrd_email: TDBGrid + Left = 3 + Top = 66 + Width = 318 + Height = 382 + TabStop = False + DataSource = dtsEmail + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_EMAIL' + Title.Caption = 'Email' + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = #218'ltimo Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + end + object pnl_devedores: TPanel + Left = -1 + Top = -1 + Width = 739 + Height = 499 + BevelOuter = bvNone + TabOrder = 1 + object Label1: TLabel + Left = 395 + Top = 146 + Width = 39 + Height = 13 + Caption = 'Usu'#225'rio:' + end + object Label2: TLabel + Left = 592 + Top = 146 + Width = 90 + Height = 13 + Caption = #218'ltima Atualiza'#231#227'o:' + end + object lbl_coddev: TLabel + Left = 395 + Top = 4 + Width = 95 + Height = 13 + Caption = 'C'#243'digo do Devedor:' + end + object lbl_cpfcnpj: TLabel + Left = 209 + Top = 52 + Width = 55 + Height = 13 + Caption = 'CPF/CNPJ:' + end + object lbl_datacad: TLabel + Left = 592 + Top = 4 + Width = 114 + Height = 13 + Caption = 'Data de cadastramento:' + end + object lbl_dtnasc: TLabel + Left = 592 + Top = 52 + Width = 98 + Height = 13 + Caption = 'Data de nascimento:' + end + object lbl_idade: TLabel + Left = 592 + Top = 100 + Width = 30 + Height = 13 + Caption = 'Idade:' + end + object lbl_nome: TLabel + Left = 3 + Top = 4 + Width = 99 + Height = 13 + Caption = 'Nome/Raz'#227'o Social:' + end + object lbl_nomemae: TLabel + Left = 3 + Top = 146 + Width = 70 + Height = 13 + Caption = 'Nome da M'#227'e:' + end + object lbl_nomepai: TLabel + Left = 3 + Top = 100 + Width = 64 + Height = 13 + Caption = 'Nome do Pai:' + end + object lbl_obs: TLabel + Left = 3 + Top = 192 + Width = 66 + Height = 13 + Caption = 'Observa'#231#245'es:' + end + object lbl_rg: TLabel + Left = 395 + Top = 52 + Width = 19 + Height = 13 + Caption = 'RG:' + end + object lbl_tppessoa: TLabel + Left = 3 + Top = 52 + Width = 77 + Height = 13 + Caption = 'Tipo de Pessoa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object DBEdit2: TDBEdit + Left = 395 + Top = 165 + Width = 136 + Height = 21 + TabStop = False + DataField = 'TX_ULTIMO_USUARIO' + DataSource = dtsDB + ReadOnly = True + TabOrder = 10 + end + object DBEdit3: TDBEdit + Left = 592 + Top = 165 + Width = 121 + Height = 21 + TabStop = False + DataField = 'DT_HORA_ULTIMA_ATT' + DataSource = dtsDB + ReadOnly = True + TabOrder = 11 + end + object DBEdit4: TDBEdit + Left = 395 + Top = 119 + Width = 137 + Height = 21 + DataField = 'TX_EMAIL' + DataSource = dtsDB + TabOrder = 12 + Visible = False + end + object dbedt_coddev: TDBEdit + Left = 395 + Top = 23 + Width = 136 + Height = 21 + DataField = 'CD_DEVEDOR' + DataSource = dtsDB + TabOrder = 1 + end + object dbedt_cpfcnpj: TDBEdit + Left = 209 + Top = 71 + Width = 150 + Height = 21 + DataSource = dtsDB + TabOrder = 4 + OnKeyPress = dbedt_cpfcnpjKeyPress + end + object dbedt_nome: TDBEdit + Left = 3 + Top = 23 + Width = 356 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtsDB + TabOrder = 0 + end + object dbedt_nomemae: TDBEdit + Left = 3 + Top = 165 + Width = 356 + Height = 21 + DataField = 'TX_MAE' + DataSource = dtsDB + TabOrder = 8 + end + object dbedt_nomepai: TDBEdit + Left = 3 + Top = 119 + Width = 356 + Height = 21 + DataField = 'TX_PAI' + DataSource = dtsDB + TabOrder = 7 + end + object dbedt_rg: TDBEdit + Left = 395 + Top = 71 + Width = 137 + Height = 21 + DataField = 'CD_RG' + DataSource = dtsDB + TabOrder = 5 + end + object dbmem_obs: TDBMemo + Left = 3 + Top = 211 + Width = 710 + Height = 283 + DataField = 'TL_MEMO' + DataSource = dtsDB + TabOrder = 9 + end + object Panel1: TPanel + Left = 2 + Top = 64 + Width = 196 + Height = 25 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 3 + OnEnter = Panel1Enter + object dbrgrp_tpdevedor: TDBRadioGroup + Left = -5 + Top = -51 + Width = 207 + Height = 127 + Columns = 2 + DataField = 'TP_CLIENTE' + DataSource = dtsDB + Items.Strings = ( + 'Pessoa F'#237'sica' + 'Pessoa Jur'#237'dica') + TabOrder = 0 + TabStop = True + Values.Strings = ( + 'F' + 'J') + end + end + object dbdtp_dtcad: TDBDateTimePicker + Left = 592 + Top = 25 + Width = 121 + Height = 21 + Date = 43171.000000000000000000 + Time = 43171.000000000000000000 + TabOrder = 2 + Caption = '' + DataField = 'DT_CADASTRO' + DataSource = dtsDB + end + object dbdtp_dtnasc: TDBDateTimePicker + Left = 592 + Top = 71 + Width = 121 + Height = 21 + Date = 43171.000000000000000000 + Time = 43171.000000000000000000 + TabOrder = 6 + Caption = '' + DataField = 'DT_NASC' + DataSource = dtsDB + end + end + object navEmail: TDBNavigator + Left = 744 + Top = 3 + Width = 318 + Height = 42 + DataSource = dtsEmail + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 0 + end + end + object tabEndereco: TTabSheet + Caption = '&Endere'#231'os' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 1 + ParentFont = False + object Panel8: TPanel + Left = 0 + Top = 0 + Width = 713 + Height = 145 + BevelOuter = bvNone + TabOrder = 1 + object lbl_ref: TLabel + Left = 579 + Top = 100 + Width = 55 + Height = 13 + Caption = 'Refer'#234'ncia:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_num: TLabel + Left = 469 + Top = 4 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_comp: TLabel + Left = 579 + Top = 4 + Width = 67 + Height = 13 + Caption = 'Complemento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_logradouro: TLabel + Left = 3 + Top = 4 + Width = 49 + Height = 13 + Caption = 'Endere'#231'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_tpend: TLabel + Left = 3 + Top = 52 + Width = 87 + Height = 13 + Caption = 'Tipo de endere'#231'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_situacao: TLabel + Left = 3 + Top = 100 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_cep: TLabel + Left = 176 + Top = 52 + Width = 24 + Height = 13 + Caption = 'CEP:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_bairro: TLabel + Left = 272 + Top = 52 + Width = 30 + Height = 13 + Caption = 'Bairro:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_cidade: TLabel + Left = 579 + Top = 52 + Width = 36 + Height = 13 + Caption = 'Cidade:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_uf: TLabel + Left = 469 + Top = 52 + Width = 17 + Height = 13 + Caption = 'UF:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_confirmado: TLabel + Left = 176 + Top = 100 + Width = 62 + Height = 13 + Caption = 'Confirma'#231#227'o:' + end + object Panel6: TPanel + Left = 579 + Top = 119 + Width = 112 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 9 + object dbrg_ref: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_REFERENCIA' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Pr'#243'prio' + 'Avalista') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'P' + 'A') + end + end + object dbedt_logradouro: TDBEdit + Left = 3 + Top = 23 + Width = 430 + Height = 21 + DataField = 'TX_LOGRADOURO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object dblucmbox_uf: TDBLookupComboBox + Left = 469 + Top = 71 + Width = 92 + Height = 21 + DataField = 'ID_ESTADO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_ESTADO' + ListField = 'TX_NOME' + ListSource = dtsUF + ParentFont = False + TabOrder = 5 + end + object Panel2: TPanel + Left = 3 + Top = 119 + Width = 108 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 8 + object dbrg_situacao: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_ATIVO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Ativo' + 'Inativo') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + object Panel7: TPanel + Left = 3 + Top = 71 + Width = 141 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 7 + object dbrg_tpend: TDBRadioGroup + Left = -6 + Top = -10 + Width = 164 + Height = 31 + Columns = 2 + DataField = 'TP_ENDERECO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Resid'#234'ncia' + 'Trabalho') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'R' + 'T') + end + end + object dbedt_num: TDBEdit + Left = 469 + Top = 23 + Width = 63 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_cep: TDBEdit + Left = 176 + Top = 71 + Width = 65 + Height = 21 + DataField = 'TX_CEP' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnKeyPress = dbedt_cepKeyPress + end + object dbedt_comp: TDBEdit + Left = 579 + Top = 23 + Width = 81 + Height = 21 + DataField = 'TX_COMPLEMENTO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dbedt_bairro: TDBEdit + Left = 272 + Top = 71 + Width = 161 + Height = 21 + DataField = 'TX_BAIRRO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnKeyPress = dbedt_cepKeyPress + end + object dblucmbox_cidade: TDBLookupComboBox + Left = 579 + Top = 71 + Width = 134 + Height = 21 + DataField = 'ID_CIDADE' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_CIDADE' + ListField = 'TX_NOME' + ListSource = dtsCidades + ParentFont = False + TabOrder = 6 + end + object Panel11: TPanel + Left = 172 + Top = 119 + Width = 189 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 10 + object dbrg_confirmado: TDBRadioGroup + Left = -6 + Top = -10 + Width = 197 + Height = 31 + Columns = 2 + DataField = 'TP_CONFIRMADO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Confirmado' + 'N'#227'o Confirmado') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + end + object dbgrd_enderecos: TDBGrid + Left = 3 + Top = 215 + Width = 864 + Height = 279 + TabStop = False + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentFont = False + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_enderecosDrawColumnCell + OnTitleClick = dbgrd_enderecosTitleClick + Columns = < + item + Expanded = False + FieldName = 'TX_LOGRADOURO' + Title.Caption = 'Endere'#231'o' + Width = 185 + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'TX_COMPLEMENTO' + Title.Caption = 'Complemento' + Width = 125 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Width = 32 + Visible = True + end + item + Expanded = False + FieldName = 'TX_BAIRRO' + Title.Caption = 'Bairro' + Width = 93 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ESTADO' + Title.Caption = 'Estado' + Width = 101 + Visible = True + end + item + Expanded = False + FieldName = 'TX_CIDADE' + Title.Caption = 'Cidade' + Visible = True + end + item + Expanded = False + FieldName = 'TX_CEP' + Title.Caption = 'CEP' + Width = 82 + Visible = True + end + item + Expanded = False + FieldName = 'TP_REFERENCIA' + Title.Caption = 'Refer'#234'ncia' + Width = 69 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ENDERECO' + Title.Caption = 'Tipo de Endere'#231'o' + Width = 104 + Visible = True + end + item + Expanded = False + FieldName = 'ID_HIGIENIZADORA' + Title.Caption = 'Higienizadora' + Width = 76 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + object navenderecos: TDBNavigator + Left = 3 + Top = 167 + Width = 305 + Height = 41 + DataSource = dtsEnderecos + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] + Hints.Strings = ( + 'Primeiro Registro' + 'Registro Anterior' + 'Pr'#243'ximo Registro' + #218'ltimo Registro' + 'Criar Registro' + 'Apagar Registro' + 'Editar Registro' + 'Salvar Registro' + 'Cancelar' + 'Atualizar' + 'Apply updates' + 'Cancel updates') + ParentShowHint = False + ShowHint = True + TabOrder = 2 + BeforeAction = navenderecosBeforeAction + end + end + object tabTel: TTabSheet + Caption = '&Telefones' + ImageIndex = 2 + object Panel9: TPanel + Left = 3 + Top = 3 + Width = 864 + Height = 145 + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + object lbl_obstel: TLabel + Left = 518 + Top = 4 + Width = 66 + Height = 13 + Caption = 'Observa'#231#245'es:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_tel: TLabel + Left = 92 + Top = 4 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_desctel: TLabel + Left = 262 + Top = 4 + Width = 51 + Height = 13 + Caption = 'Descri'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_sittel: TLabel + Left = 3 + Top = 52 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_tipo: TLabel + Left = 131 + Top = 52 + Width = 24 + Height = 13 + Caption = 'Tipo:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_ddd: TLabel + Left = 3 + Top = 4 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object Label10: TLabel + Left = 262 + Top = 52 + Width = 67 + Height = 13 + Caption = 'Recado SMS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Panel3: TPanel + Left = 3 + Top = 71 + Width = 108 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 5 + object dbrg_sittel: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_ATIVO' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Ativo' + 'Inativo') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + object dbedt_tel: TDBEdit + Left = 92 + Top = 23 + Width = 94 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbmem_tel: TDBMemo + Left = 518 + Top = 23 + Width = 339 + Height = 115 + DataField = 'TX_OBS' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object Panel4: TPanel + Left = 131 + Top = 71 + Width = 108 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 4 + object dbrg_tipotel: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_TIPOTEL' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Fixo' + 'M'#243'vel') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'F' + 'M') + OnClick = dbrg_tipotelClick + end + end + object dbedt_desctel: TDBEdit + Left = 262 + Top = 23 + Width = 115 + Height = 21 + DataField = 'TX_DESC' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object btn_clearmemo: TButton + Left = 782 + Top = -1 + Width = 75 + Height = 18 + Caption = 'Limpar' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 6 + TabStop = False + OnClick = btn_clearmemoClick + end + object dbedt_ddd: TDBEdit + Left = 0 + Top = 23 + Width = 57 + Height = 21 + DataField = 'NR_DDD' + DataSource = dtsTelefones + TabOrder = 0 + end + object Panel12: TPanel + Left = 262 + Top = 71 + Width = 108 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 7 + object DBRadioGroup1: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_SMS' + DataSource = dtsTelefones + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Sim' + 'N'#227'o') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + end + object dbgrd_tel: TDBGrid + Left = 3 + Top = 215 + Width = 864 + Height = 279 + TabStop = False + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentFont = False + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_telDrawColumnCell + OnTitleClick = dbgrd_telTitleClick + Columns = < + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Width = 39 + Visible = True + end + item + Expanded = False + FieldName = 'NR_DDD' + Title.Caption = 'DDD' + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Visible = True + end + item + Expanded = False + FieldName = 'TP_TIPOTEL' + Title.Caption = 'Tipo' + Width = 67 + Visible = True + end + item + Expanded = False + FieldName = 'TX_DESC' + Title.Caption = 'Descri'#231#227'o' + Width = 460 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + object navtelefones: TDBNavigator + Left = 3 + Top = 167 + Width = 305 + Height = 41 + DataSource = dtsTelefones + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] + ParentShowHint = False + ShowHint = True + TabOrder = 2 + BeforeAction = navtelefonesBeforeAction + end + end + object tabTitulos: TTabSheet + Caption = '&T'#237'tulos' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 3 + ParentFont = False + object Panel10: TPanel + Left = 0 + Top = 0 + Width = 1065 + Height = 494 + BevelOuter = bvNone + TabOrder = 0 + object lbl_dataent: TLabel + Left = 268 + Top = 142 + Width = 80 + Height = 13 + Caption = 'Data de entrada:' + end + object lbl_datavenc: TLabel + Left = 437 + Top = 142 + Width = 99 + Height = 13 + Caption = 'Data de vencimento:' + end + object lbl_sittit: TLabel + Left = 272 + Top = 4 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_tit: TLabel + Left = 3 + Top = 4 + Width = 40 + Height = 13 + Caption = 'Produto:' + end + object lbl_vltit: TLabel + Left = 3 + Top = 50 + Width = 69 + Height = 13 + Caption = 'Valor do t'#237'tulo:' + end + object lbl_cddevedor: TLabel + Left = 139 + Top = 50 + Width = 95 + Height = 13 + Caption = 'C'#243'digo do Devedor:' + end + object lbl_tpdespesa: TLabel + Left = 631 + Top = 146 + Width = 24 + Height = 13 + Caption = 'Tipo:' + Visible = False + end + object Label9: TLabel + Left = 600 + Top = 6 + Width = 22 + Height = 13 + Caption = 'Obs:' + end + object lbl_dtpag: TLabel + Left = 863 + Top = 31 + Width = 98 + Height = 13 + Caption = 'Data de Pagamento:' + end + object Label16: TLabel + Left = 799 + Top = 249 + Width = 100 + Height = 13 + Caption = 'Rela'#231#227'o de Acordos:' + end + object lbl_dtrecibo: TLabel + Left = 863 + Top = 79 + Width = 135 + Height = 13 + Caption = 'Data de Emiss'#227'o do Recibo:' + end + object Label12: TLabel + Left = 437 + Top = 190 + Width = 34 + Height = 13 + Caption = 'Credor:' + end + object pnl_cheque: TPanel + Left = 0 + Top = 94 + Width = 262 + Height = 93 + BevelOuter = bvNone + TabOrder = 8 + object lbl_banco: TLabel + Left = 139 + Top = 2 + Width = 34 + Height = 13 + Caption = 'Banco:' + end + object lbl_nrcheque: TLabel + Left = 3 + Top = 48 + Width = 55 + Height = 13 + Caption = 'N'#186' Cheque:' + end + object lbl_motivo: TLabel + Left = 139 + Top = 48 + Width = 35 + Height = 13 + Caption = 'Motivo:' + end + object dbedt_banco: TDBEdit + Left = 139 + Top = 21 + Width = 118 + Height = 21 + DataField = 'ID_BANCO' + DataSource = dtsTitulos + TabOrder = 0 + end + object dbedt_nrcheque: TDBEdit + Left = 3 + Top = 67 + Width = 121 + Height = 21 + DataField = 'TX_NRCHEQUE' + DataSource = dtsTitulos + TabOrder = 1 + end + object dbedt_motivo: TDBEdit + Left = 139 + Top = 67 + Width = 118 + Height = 21 + DataField = 'TP_MOTIVO' + DataSource = dtsTitulos + TabOrder = 2 + end + end + object dbedit_produto: TDBEdit + Left = 3 + Top = 23 + Width = 254 + Height = 21 + DataField = 'TX_PRODUTO' + DataSource = dtmSystem.dtsTitulos + TabOrder = 0 + end + object dbedt_vltit: TDBEdit + Left = 3 + Top = 69 + Width = 121 + Height = 21 + DataField = 'VL_TITULO' + DataSource = dtmSystem.dtsTitulos + TabOrder = 1 + end + object Panel5: TPanel + Left = 268 + Top = 19 + Width = 318 + Height = 79 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 9 + object dbrg_tit: TDBRadioGroup + Left = -6 + Top = -12 + Width = 332 + Height = 99 + Columns = 2 + DataField = 'TP_SITUACAO' + DataSource = dtmSystem.dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Aberto' + 'Acordo na Cobradora' + 'Acordo no Credor' + 'Devolvido ao Lojista' + 'Baixa manual' + 'Quitado na Cobradora' + 'Quitado no Credor') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'A' + 'AC' + 'AB' + 'AJ' + 'B' + 'QC' + 'QB') + end + object pnl_cor1: TPanel + Left = 133 + Top = 4 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 1 + end + object pnl_color2: TPanel + Left = 133 + Top = 23 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 55295 + ParentBackground = False + TabOrder = 2 + end + object pnl_color3: TPanel + Left = 133 + Top = 42 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 3145645 + ParentBackground = False + TabOrder = 3 + end + object pnl_color4: TPanel + Left = 133 + Top = 62 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clMoneyGreen + ParentBackground = False + TabOrder = 4 + end + object pnl_color5: TPanel + Left = 296 + Top = 4 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clRed + ParentBackground = False + TabOrder = 5 + end + object pnl_color6: TPanel + Left = 296 + Top = 23 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 15453831 + ParentBackground = False + TabOrder = 6 + end + object pnl_color7: TPanel + Left = 296 + Top = 42 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 14772545 + ParentBackground = False + TabOrder = 7 + end + end + object rdbdt_entrada: TrDBDateTimePicker + Left = 268 + Top = 161 + Width = 157 + Height = 23 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + Checked = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + DataField = 'DT_ENTRADA' + DataSource = dtsTitulos + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object rDBDateTimePicker1: TrDBDateTimePicker + Left = 437 + Top = 161 + Width = 150 + Height = 23 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + Checked = False + TabOrder = 6 + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object dbedt_codemp: TDBEdit + Left = 139 + Top = 69 + Width = 118 + Height = 21 + DataField = 'CD_DEVEDOR' + DataSource = dtmSystem.dtsTitulos + TabOrder = 2 + end + object dbcbx_tpcheque: TDBCheckBox + Left = 32 + Top = 108 + Width = 63 + Height = 17 + Caption = 'Cheque' + DataField = 'TP_CHEQUE' + DataSource = dtsTitulos + TabOrder = 7 + ValueChecked = 'S' + ValueUnchecked = 'N;null;nill;;' + OnClick = dbcbx_tpchequeClick + end + object rdbdt_pag: TrDBDateTimePicker + Left = 863 + Top = 50 + Width = 169 + Height = 23 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + Checked = False + DoubleBuffered = True + ParentDoubleBuffered = False + TabOrder = 11 + DataField = 'DT_PAGAMENTO' + DataSource = dtsTitulos + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object DBGrid1: TDBGrid + Left = 799 + Top = 268 + Width = 254 + Height = 226 + DataSource = dtmSystem.dtsQAcordos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + PopupMenu = ppmnuQuebraAcordo + TabOrder = 12 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Valor' + Width = 50 + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Visible = True + end> + end + object rdbdt_recibo: TrDBDateTimePicker + Left = 863 + Top = 98 + Width = 169 + Height = 23 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + Checked = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 14 + DataField = 'DT_EMISSAO_RECIBO' + DataSource = dtsTitulos + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 437 + Top = 209 + Width = 371 + Height = 21 + DataField = 'ID_EMPRESA' + DataSource = dtsTitulos + KeyField = 'ID_EMPRESA' + ListField = 'TX_FANTASIA' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 15 + end + end + object dbmem_titobs: TDBMemo + Left = 600 + Top = 25 + Width = 257 + Height = 162 + DataField = 'TX_OBS' + DataSource = dtsTitulos + TabOrder = 1 + end + object dbgrd_tit: TDBGrid + Left = 3 + Top = 268 + Width = 790 + Height = 226 + TabStop = False + DataSource = dtmSystem.dtsTitulos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentShowHint = False + ReadOnly = True + ShowHint = True + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnCellClick = dbgrd_titCellClick + OnDrawColumnCell = dbgrd_titDrawColumnCell + OnMouseMove = dbgrd_titMouseMove + OnTitleClick = dbgrd_titTitleClick + Columns = < + item + Expanded = False + FieldName = 'ID_TITULO' + Title.Caption = 'ID' + Width = 37 + Visible = True + end + item + Expanded = False + FieldName = 'TX_PRODUTO' + Title.Caption = 'Produto' + Width = 120 + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Data de Vencimento' + Width = 102 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ENTRADA' + Title.Caption = 'Data de Entrada' + Width = 90 + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Valor' + Width = 69 + Visible = True + end + item + Expanded = False + FieldName = 'TP_SITUACAO' + Title.Caption = 'Situa'#231#227'o' + Width = 63 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'TX_IMPLANTADO' + Title.Caption = 'Implanta'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'DT_IMPLANTACAO' + Title.Caption = 'Data de Implanta'#231#227'o' + Visible = True + end> + end + object navtitulos: TDBNavigator + Left = 3 + Top = 211 + Width = 365 + Height = 51 + DataSource = dtsTitulos + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] + ParentShowHint = False + ShowHint = True + TabOrder = 3 + BeforeAction = navtitulosBeforeAction + end + end + object tabHist: TTabSheet + Caption = '&Hist'#243'rico' + ImageIndex = 4 + object Label3: TLabel + Left = 526 + Top = 59 + Width = 59 + Height = 13 + Caption = 'Provid'#234'ncia:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 93 + Top = 59 + Width = 109 + Height = 13 + Caption = 'Data do agendamento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 237 + Top = 59 + Width = 109 + Height = 13 + Caption = 'Hora do agendamento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label8: TLabel + Left = 389 + Top = 59 + Width = 113 + Height = 13 + Caption = 'Agendar para Cobrador:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 760 + Top = 59 + Width = 131 + Height = 13 + Caption = 'Protocolo do hist'#243'rico atual:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object navHistorico: TDBNavigator + Left = 0 + Top = 3 + Width = 408 + Height = 55 + DataSource = dtsHistorico + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + ParentShowHint = False + ShowHint = True + TabOrder = 5 + BeforeAction = navHistoricoBeforeAction + end + object dbgrd_historico: TDBGrid + Left = 0 + Top = 105 + Width = 520 + Height = 389 + DataSource = dtsHistorico + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentFont = False + ReadOnly = True + TabOrder = 6 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [fsBold] + OnDblClick = dbgrd_historicoDblClick + OnTitleClick = dbgrd_historicoTitleClick + Columns = < + item + Expanded = False + FieldName = 'DT_CONTATO' + Title.Caption = 'Data de Contato' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'TX_PROVIDENCIA' + Title.Caption = 'Provid'#234'ncia' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Width = 300 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'Protocolo' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = True + end + item + Expanded = False + FieldName = 'TX_MEMO' + Title.Caption = 'Observa'#231#245'es' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'MS Sans Serif' + Title.Font.Style = [] + Visible = False + end> + end + object dblucb_providencia: TDBLookupComboBox + Left = 526 + Top = 78 + Width = 228 + Height = 21 + DataField = 'ID_PROVIDENCIA' + DataSource = dtsHistorico + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_PROVIDENCIA' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsProvidencias + ParentFont = False + TabOrder = 0 + end + object dtp_agendadatahist: TDateTimePicker + Left = 93 + Top = 78 + Width = 115 + Height = 21 + Date = 43082.430191782410000000 + Time = 43082.430191782410000000 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dtp_agendahorahist: TDateTimePicker + Left = 237 + Top = 78 + Width = 115 + Height = 21 + Date = 43082.430419745370000000 + Time = 43082.430419745370000000 + DateMode = dmUpDown + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 3 + OnChange = dtp_horaagendamentoChange + end + object dblucb_agendacobhist: TDBLookupComboBox + Left = 389 + Top = 78 + Width = 115 + Height = 21 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsCobrador + ParentFont = False + TabOrder = 4 + end + object cb_agendahist: TCheckBox + Left = 9 + Top = 68 + Width = 78 + Height = 21 + Caption = 'Agendar' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnClick = cb_agendahistClick + end + object dbmemo_box: TDBMemo + Left = 526 + Top = 105 + Width = 507 + Height = 389 + DataField = 'TL_MEMO' + DataSource = dtsHistorico + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 7 + end + object btntelefones: TButton + Left = 923 + Top = 74 + Width = 111 + Height = 25 + Hint = 'Inserir todos os telefones do devedor no hist'#243'rico' + Caption = 'Inserir Telefones' + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 8 + OnClick = btntelefonesClick + end + object dbedt_protocolo: TDBEdit + Left = 760 + Top = 78 + Width = 157 + Height = 21 + Hint = 'Abra um novo hist'#243'rico para gerar um protocolo.' + DataField = 'CD_PROTOCOLO' + DataSource = dtsHistorico + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ReadOnly = True + ShowHint = True + TabOrder = 9 + end + end + object tabCalculos: TTabSheet + Caption = '&C'#225'lculos' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 5 + ParentFont = False + object lbl_beneficiarioscalculo: TLabel + Left = 3 + Top = 3 + Width = 34 + Height = 13 + Caption = 'Credor:' + end + object lbl_datapgmnto: TLabel + Left = 968 + Top = 164 + Width = 106 + Height = 13 + Caption = 'Data para pagamento:' + end + object lbl_somatitulos: TLabel + Left = 122 + Top = 164 + Width = 48 + Height = 13 + Caption = 'Principais:' + end + object lbl_vlaquitar: TLabel + Left = 3 + Top = 164 + Width = 71 + Height = 13 + Caption = 'Total Corrigido:' + end + object lbl_somajuros: TLabel + Left = 420 + Top = 164 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_somaentrada: TLabel + Left = 551 + Top = 212 + Width = 40 + Height = 13 + Caption = 'Entrada:' + end + object lbl_somamulta: TLabel + Left = 244 + Top = 164 + Width = 29 + Height = 13 + Caption = 'Multa:' + end + object lbl_parcelamento: TLabel + Left = 645 + Top = 212 + Width = 68 + Height = 13 + Caption = 'Parcelamento:' + end + object lbl_somaindicador: TLabel + Left = 542 + Top = 165 + Width = 48 + Height = 13 + Caption = 'Encargos:' + end + object lbl_extras: TLabel + Left = 644 + Top = 164 + Width = 70 + Height = 13 + Caption = 'Valores Extras:' + end + object lbl_protocolo1: TLabel + Left = 689 + Top = 270 + Width = 48 + Height = 13 + Caption = 'Protocolo:' + end + object Label4: TLabel + Left = 851 + Top = 164 + Width = 103 + Height = 13 + Caption = 'Forma de pagamento:' + end + object lbl_maxpar: TLabel + Left = 714 + Top = 212 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 434 + Top = 213 + Width = 66 + Height = 13 + Caption = '% da Entrada:' + end + object lbl_minentrada: TLabel + Left = 502 + Top = 215 + Width = 20 + Height = 13 + Caption = 'Min:' + end + object lbl_maxentrada: TLabel + Left = 502 + Top = 234 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + end + object lbl_desctot: TLabel + Left = 902 + Top = 76 + Width = 104 + Height = 26 + Caption = 'Desconto em rela'#231#227'o ao valor corrigido (%):' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + Visible = False + WordWrap = True + end + object clb_beneficiarioscalculo: TCheckListBox + Left = 3 + Top = 22 + Width = 193 + Height = 133 + OnClickCheck = clb_beneficiarioscalculoClickCheck + ItemHeight = 13 + TabOrder = 0 + end + object lv_titulos: TListView + Left = 202 + Top = 3 + Width = 871 + Height = 152 + Checkboxes = True + Columns = < + item + Caption = 'Incluir' + MaxWidth = 40 + MinWidth = 40 + Width = 40 + end + item + Caption = 'Empresa' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end + item + Caption = 'Produto' + MaxWidth = 150 + MinWidth = 150 + Width = 150 + end + item + Caption = 'Vencimento' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end + item + Caption = 'Valor' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end + item + Caption = 'C'#243'digo do Devedor' + MaxWidth = 150 + MinWidth = 150 + Width = 150 + end + item + Caption = 'Parcelamento' + MaxWidth = 77 + MinWidth = 77 + Width = 77 + end + item + Caption = 'Entrada' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end> + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ReadOnly = True + RowSelect = True + ParentFont = False + PopupMenu = popmnu_incluir + TabOrder = 1 + ViewStyle = vsReport + OnChange = lv_titulosChange + OnColumnClick = lv_titulosColumnClick + OnCompare = lv_titulosCompare + OnItemChecked = lv_titulosItemChecked + end + object dtp_atrasorecalc: TDateTimePicker + Left = 967 + Top = 183 + Width = 106 + Height = 21 + Date = 43081.425353148150000000 + Time = 43081.425353148150000000 + TabOrder = 2 + OnChange = dtp_atrasorecalcChange + end + object dbgrd_listtitulos: TDBGrid + Left = 0 + Top = 314 + Width = 1073 + Height = 180 + DataSource = dtsListaTitulos + Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 3 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = dbgrd_listtitulosTitleClick + Columns = < + item + Expanded = False + FieldName = 'NOME_EMPRESA' + Title.Caption = 'Empresa' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'TX_PRODUTO' + Title.Caption = 'Produto' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ENTRADA' + Title.Caption = 'Entrada' + Width = 85 + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Principal' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_ENTRADA' + Title.Caption = 'Entrada' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_JUROS' + Title.Caption = 'Juros' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_MULTA' + Title.Caption = 'Multa' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_INDICADOR' + Title.Caption = 'Encargo' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_DESPESA' + Title.Caption = 'Despesa' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_CORRIGIDO' + Title.Caption = 'Corrigido' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ATRASO' + Title.Caption = 'Atraso' + Width = 36 + Visible = True + end + item + Expanded = False + FieldName = 'PR_ENTRADA' + Title.Caption = 'Entrada (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_JUROS' + Title.Caption = 'Juros (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_MULTA' + Title.Caption = 'Multa (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_INDICADOR' + Title.Caption = 'Encargos (%)' + Visible = True + end> + end + object edt_somatitulos: TEdit + Left = 122 + Top = 183 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 4 + Text = 'R$ 0.00' + end + object edt_vlaquitar: TEdit + Left = 3 + Top = 183 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 5 + Text = 'R$ 0.00' + end + object edt_somajuros: TEdit + Left = 420 + Top = 183 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 6 + Text = 'R$ 0.00' + end + object edt_somaentrada: TEdit + Left = 551 + Top = 231 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 7 + Text = 'R$ 0.00' + end + object edt_somamulta: TEdit + Left = 244 + Top = 183 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 8 + Text = 'R$ 0.00' + end + object edt_nrparcelas: TEdit + Left = 644 + Top = 231 + Width = 69 + Height = 21 + Alignment = taRightJustify + TabOrder = 9 + Text = '0' + OnChange = edt_nrparcelasChange + OnExit = edt_nrparcelasExit + end + object up_nrparcelas: TUpDown + Left = 713 + Top = 231 + Width = 16 + Height = 21 + Associate = edt_nrparcelas + TabOrder = 10 + Thousands = False + end + object edt_somaindicador: TEdit + Left = 537 + Top = 183 + Width = 84 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 11 + Text = 'R$ 0.00' + end + object edt_extras: TEdit + Left = 644 + Top = 183 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 12 + Text = 'R$ 0.00' + end + object cb_nmulta: TCheckBox + Left = 291 + Top = 163 + Width = 104 + Height = 17 + Caption = 'N'#227'o cobrar Multa' + TabOrder = 13 + OnClick = cb_nmultaClick + end + object edt_protocolo1: TEdit + Left = 644 + Top = 290 + Width = 115 + Height = 21 + ReadOnly = True + TabOrder = 15 + end + object lv_parcelas: TListView + Left = 765 + Top = 221 + Width = 196 + Height = 87 + Columns = < + item + Caption = 'Parcela' + MaxWidth = 75 + MinWidth = 75 + Width = 75 + end + item + Alignment = taRightJustify + Caption = 'Valor' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end> + FlatScrollBars = True + Items.ItemData = { + 055600000002000000FFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFF000000 + 000745006E0074007200610064006100FFFFFFFFFFFFFFFFFFFFFFFF00000000 + FFFFFFFF000000000A500061007200630065006C00610020006E00BA00} + ReadOnly = True + TabOrder = 16 + ViewStyle = vsReport + end + object pcDescontos: TPageControl + Left = 3 + Top = 210 + Width = 430 + Height = 102 + ActivePage = tabQuitar + TabOrder = 17 + object tabQuitar: TTabSheet + Caption = 'Descontos aos Quitar' + object gb_descontosquit: TGroupBox + Left = -7 + Top = -9 + Width = 434 + Height = 87 + Enabled = False + TabOrder = 0 + object lbl_indquitar: TLabel + Left = 10 + Top = 26 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + end + object lbl_principalquitar: TLabel + Left = 92 + Top = 26 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object lbl_multasquitar: TLabel + Left = 174 + Top = 26 + Width = 34 + Height = 13 + Caption = 'Multas:' + end + object lbl_jurosquitar: TLabel + Left = 256 + Top = 26 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_maxindquit: TLabel + Left = 10 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxprinquit: TLabel + Left = 92 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxmultaquit: TLabel + Left = 174 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxjurosquit: TLabel + Left = 256 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxquitcor: TLabel + Left = 338 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object edt_indquitar: TEdit + Left = 10 + Top = 44 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 0 + Text = '0' + OnChange = edt_indquitarChange + OnKeyPress = edt_indquitarKeyPress + end + object edt_principalquitar: TEdit + Left = 92 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 1 + Text = '0' + OnChange = edt_principalquitarChange + OnKeyPress = edt_principalquitarKeyPress + end + object edt_multasquitar: TEdit + Left = 174 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 2 + Text = '0' + OnChange = edt_multasquitarChange + OnKeyPress = edt_multasquitarKeyPress + end + object up_encquitar: TUpDown + Left = 68 + Top = 44 + Width = 16 + Height = 21 + Associate = edt_indquitar + TabOrder = 3 + end + object up_principalquitar: TUpDown + Left = 150 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_principalquitar + TabOrder = 4 + end + object up_multasquitar: TUpDown + Left = 232 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_multasquitar + TabOrder = 5 + end + object edt_jurosquitar: TEdit + Left = 256 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 6 + Text = '0' + OnChange = edt_jurosquitarChange + OnKeyPress = edt_jurosquitarKeyPress + end + object up_jurosquitar: TUpDown + Left = 314 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_jurosquitar + TabOrder = 7 + end + object cb_desc_quit_cor: TCheckBox + Left = 338 + Top = 25 + Width = 64 + Height = 17 + Caption = 'Corrigido:' + TabOrder = 8 + OnClick = cb_desc_quit_corClick + end + object edt_corquitar: TEdit + Left = 338 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 9 + Text = '0' + OnChange = edt_corquitarChange + OnKeyPress = edt_corquitarKeyPress + end + object ud_corquitar: TUpDown + Left = 396 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_corquitar + TabOrder = 10 + end + end + object cb_descquit: TCheckBox + Left = 3 + Top = -2 + Width = 135 + Height = 17 + Caption = 'Descontos ao Quitar (%):' + TabOrder = 1 + OnClick = cb_descquitClick + end + end + object tabParcelar: TTabSheet + Caption = 'Descontos ao Parcelar' + ImageIndex = 1 + object gb_descontospar: TGroupBox + Left = -4 + Top = -9 + Width = 431 + Height = 87 + Enabled = False + TabOrder = 0 + object lbl_indparcelas: TLabel + Left = 7 + Top = 26 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + end + object lbl_jurosparcelas: TLabel + Left = 253 + Top = 26 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_multasparcelas: TLabel + Left = 171 + Top = 26 + Width = 34 + Height = 13 + Caption = 'Multas:' + end + object lbl_principalparcelas: TLabel + Left = 89 + Top = 26 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object lbl_maxindpar: TLabel + Left = 7 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxprinpar: TLabel + Left = 89 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxmultapar: TLabel + Left = 171 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxjurospar: TLabel + Left = 253 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxparcor: TLabel + Left = 335 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object edt_indparcelas: TEdit + Left = 7 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 0 + Text = '0' + OnChange = edt_indparcelasChange + OnKeyPress = edt_indparcelasKeyPress + end + object edt_jurosparcelas: TEdit + Left = 253 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 1 + Text = '0' + OnChange = edt_jurosparcelasChange + OnKeyPress = edt_jurosparcelasKeyPress + end + object edt_multasparcelas: TEdit + Left = 171 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 2 + Text = '0' + OnChange = edt_multasparcelasChange + OnKeyPress = edt_multasparcelasKeyPress + end + object edt_principalparcelas: TEdit + Left = 89 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 3 + Text = '0' + OnChange = edt_principalparcelasChange + OnKeyPress = edt_principalparcelasKeyPress + end + object up_encparcelas: TUpDown + Left = 65 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_indparcelas + TabOrder = 4 + end + object up_jurosparcelas: TUpDown + Left = 311 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_jurosparcelas + TabOrder = 5 + end + object up_multasparcelas: TUpDown + Left = 229 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_multasparcelas + TabOrder = 6 + end + object up_principalparcelas: TUpDown + Left = 147 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_principalparcelas + TabOrder = 7 + end + object cb_desc_par_cor: TCheckBox + Left = 335 + Top = 25 + Width = 63 + Height = 17 + Caption = 'Corrigido:' + TabOrder = 8 + OnClick = cb_desc_par_corClick + end + object edt_corpar: TEdit + Left = 335 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 9 + Text = '0' + OnChange = edt_corparChange + OnKeyPress = edt_corparKeyPress + end + object ud_corpar: TUpDown + Left = 393 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_corpar + TabOrder = 10 + end + end + object cb_descpar: TCheckBox + Left = 3 + Top = -2 + Width = 146 + Height = 17 + Caption = 'Descontos ao Parcelar (%):' + TabOrder = 1 + OnClick = cb_descparClick + end + end + end + object cb_formapag: TComboBox + Left = 852 + Top = 183 + Width = 86 + Height = 21 + AutoComplete = False + Style = csDropDownList + ItemIndex = 0 + TabOrder = 18 + Text = 'Dinheiro' + OnChange = cb_formapagChange + Items.Strings = ( + 'Dinheiro' + 'D'#233'bito' + 'Cr'#233'dito' + 'Cheque') + end + object btn_protocolo: TButton + Left = 967 + Top = 255 + Width = 106 + Height = 25 + Caption = 'Gerar Protocolo' + TabOrder = 19 + OnClick = btn_protocoloClick + end + object btn_fechamento: TButton + Left = 967 + Top = 226 + Width = 106 + Height = 25 + Caption = 'Fechamento' + TabOrder = 20 + OnClick = btn_fechamentoClick + end + object edt_excentrada: TEdit + Left = 434 + Top = 290 + Width = 87 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 21 + Text = '0,00' + OnChange = edt_excentradaChange + OnKeyPress = edt_excentradaKeyPress + end + object cbx_excentrada: TCheckBox + Left = 434 + Top = 263 + Width = 105 + Height = 17 + Caption = 'Exce'#231#227'o Entrada:' + TabOrder = 22 + OnClick = cbx_excentradaClick + end + object edt_prentrada: TEdit + Left = 433 + Top = 231 + Width = 53 + Height = 21 + Alignment = taRightJustify + NumbersOnly = True + TabOrder = 23 + Text = '0' + OnChange = edt_prentradaChange + end + object ud_entrada: TUpDown + Left = 486 + Top = 231 + Width = 16 + Height = 21 + Associate = edt_prentrada + TabOrder = 24 + end + object btn_relacaodivida: TButton + Left = 967 + Top = 283 + Width = 106 + Height = 25 + Caption = 'Rela'#231#227'o de D'#237'vida' + TabOrder = 25 + OnClick = btn_relacaodividaClick + end + object edt_desctot: TEdit + Left = 902 + Top = 103 + Width = 103 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 14 + Text = '0' + Visible = False + end + object cbx_txextra: TCheckBox + Left = 766 + Top = 158 + Width = 75 + Height = 17 + Caption = 'Taxa Extra:' + TabOrder = 26 + OnClick = cbx_txextraClick + end + object edt_txextra: TEdit + Left = 765 + Top = 183 + Width = 70 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 27 + Text = '0,00' + OnChange = edt_txextraChange + OnKeyPress = edt_txextraKeyPress + end + object cbx_exjurosparcelar: TCheckBox + Left = 542 + Top = 259 + Width = 101 + Height = 26 + Caption = 'Exce'#231#227'o de Juros ao parcelar: (%)' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 28 + WordWrap = True + OnClick = cbx_exjurosparcelarClick + end + object edt_excjurosparcela: TEdit + Left = 544 + Top = 290 + Width = 87 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 29 + Text = '0,00' + OnChange = edt_excjurosparcelaChange + OnKeyPress = edt_excjurosparcelaKeyPress + end + end + object tabFechamento: TTabSheet + Caption = '&Fechamento' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 6 + ParentFont = False + object lbl_dtcobranca: TLabel + Left = 3 + Top = 22 + Width = 109 + Height = 13 + Caption = 'Data do agendamento:' + end + object lbl_horacobranca: TLabel + Left = 3 + Top = 68 + Width = 109 + Height = 13 + Caption = 'Hora do agendamento:' + end + object lbl_protocolo: TLabel + Left = 3 + Top = 114 + Width = 48 + Height = 13 + Caption = 'Protocolo:' + end + object lbl_cobradoragendado: TLabel + Left = 3 + Top = 160 + Width = 113 + Height = 13 + Caption = 'Agendar para Cobrador:' + end + object lbl_tfonte: TLabel + Left = 201 + Top = 3 + Width = 90 + Height = 13 + Caption = 'Tamanho da fonte:' + end + object lbl_providencias: TLabel + Left = 668 + Top = 3 + Width = 64 + Height = 13 + Caption = 'Provid'#234'ncias:' + end + object lbl_prov: TLabel + Left = 668 + Top = 175 + Width = 97 + Height = 13 + Caption = 'Provid'#234'ncia tomada:' + end + object dtp_diaagendamento: TDateTimePicker + Left = 3 + Top = 41 + Width = 159 + Height = 21 + Date = 43082.430191782410000000 + Time = 43082.430191782410000000 + Enabled = False + TabOrder = 0 + OnChange = dtp_diaagendamentoChange + end + object dtp_horaagendamento: TDateTimePicker + Left = 3 + Top = 87 + Width = 159 + Height = 21 + Date = 43082.430419745370000000 + Time = 43082.430419745370000000 + DateMode = dmUpDown + Enabled = False + Kind = dtkTime + TabOrder = 1 + OnChange = dtp_horaagendamentoChange + end + object edt_protocolo: TEdit + Left = 3 + Top = 133 + Width = 159 + Height = 21 + ReadOnly = True + TabOrder = 2 + end + object dblucb_cobradoragendar: TDBLookupComboBox + Left = 3 + Top = 179 + Width = 159 + Height = 21 + Enabled = False + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsCobrador + TabOrder = 3 + end + object btn_recalc: TButton + Left = 668 + Top = 237 + Width = 75 + Height = 25 + Caption = 'Rec'#225'lculo' + TabOrder = 4 + OnClick = btn_recalcClick + end + object edt_fontememo: TEdit + Left = 297 + Top = 0 + Width = 37 + Height = 21 + Alignment = taRightJustify + TabOrder = 5 + Text = '8' + OnExit = edt_fontememoExit + OnKeyDown = edt_fontememoKeyDown + end + object up_fontememo: TUpDown + Left = 334 + Top = 0 + Width = 16 + Height = 21 + Associate = edt_fontememo + Min = 8 + Max = 72 + Position = 8 + TabOrder = 6 + OnClick = up_fontememoClick + end + object cb_negritomemo: TCheckBox + Left = 356 + Top = 2 + Width = 55 + Height = 17 + Caption = 'Negrito' + TabOrder = 7 + OnClick = cb_negritomemoClick + end + object mb_fechamento: TMemo + Left = 201 + Top = 22 + Width = 428 + Height = 260 + Lines.Strings = ( + 'mb_fechamento') + ScrollBars = ssVertical + TabOrder = 8 + end + object dbgrd_providencias: TDBGrid + Left = 668 + Top = 22 + Width = 397 + Height = 147 + DataSource = dtsProvidencias + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 9 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDblClick = dbgrd_providenciasDblClick + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 300 + Visible = True + end> + end + object edt_prov: TEdit + Left = 668 + Top = 194 + Width = 397 + Height = 21 + ReadOnly = True + TabOrder = 10 + end + object btn_concluir: TButton + Left = 932 + Top = 237 + Width = 133 + Height = 25 + Caption = 'Concluir' + TabOrder = 11 + OnClick = btn_concluirClick + end + object dbgrd_resumohist: TDBGrid + Left = 0 + Top = 288 + Width = 1065 + Height = 206 + DataSource = dtsHistorico + Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 12 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = dbgrd_resumohistTitleClick + Columns = < + item + Expanded = False + FieldName = 'ID_HISTORICO' + Title.Caption = 'ID' + Width = 57 + Visible = True + end + item + Expanded = False + FieldName = 'TX_COBRADOR' + Title.Caption = 'Usu'#225'rio' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'TX_PROVIDENCIA' + Title.Caption = 'Provid'#234'ncia' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'DT_CONTATO' + Title.Caption = 'Data do contato' + Width = 85 + Visible = True + end + item + Expanded = False + FieldName = 'DT_AGENDAMENTO' + Title.Caption = 'Data agendada' + Width = 85 + Visible = True + end + item + Expanded = False + FieldName = 'TP_VAIPAGAR' + Title.Caption = 'Vai pagar?' + Visible = True + end + item + Expanded = False + FieldName = 'CD_PROTOCOLO' + Title.Caption = 'Protocolo' + Visible = True + end + item + Expanded = False + FieldName = 'TL_MEMO' + Title.Caption = 'Observa'#231#227'o' + Width = 106 + Visible = True + end> + end + object cb_agendar: TCheckBox + Left = 3 + Top = 3 + Width = 97 + Height = 17 + Caption = 'Agendar' + TabOrder = 13 + OnClick = cb_agendarClick + end + object btn_cancelar: TButton + Left = 25 + Top = 257 + Width = 75 + Height = 25 + Caption = 'Cancelar' + TabOrder = 14 + OnClick = btn_cancelarClick + end + end + end + end + inherited stbStatus: TStatusBar + Top = 668 + Width = 1115 + ExplicitTop = 668 + ExplicitWidth = 1115 + end + inherited grpDescricao: TGroupBox + Left = 8 + Width = 1099 + ExplicitLeft = 8 + ExplicitWidth = 1099 + inherited DBEdit1: TDBEdit + Width = 869 + DataField = 'TX_NOME' + PopupMenu = PopupMenu1 + ExplicitWidth = 869 + end + object pnl_contatos: TPanel + Left = 968 + Top = 20 + Width = 121 + Height = 23 + BevelInner = bvLowered + TabOrder = 1 + object Label15: TLabel + Left = 8 + Top = 5 + Width = 74 + Height = 13 + Caption = 'Acionamentos: ' + end + object dblbl_contatos: TDBText + Left = 81 + Top = 5 + Width = 38 + Height = 17 + DataField = 'QTDE_ACIONAMENTOS' + DataSource = dtmSystem.dtsContatos + end + end + end + inherited navPrincipal: TDBNavigator + Left = 8 + Width = 1098 + DataSource = dtsDB + VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel, nbRefresh] + ParentShowHint = False + ExplicitLeft = 8 + ExplicitWidth = 1098 + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblDevedores + OnDataChange = dtsDBDataChange + Left = 928 + Top = 62 + end + object dtsEnderecos: TDataSource + DataSet = dtmSystem.tblEnderecos + OnStateChange = dtsEnderecosStateChange + OnDataChange = dtsEnderecosDataChange + Left = 102 + Top = 12 + end + object dtsTelefones: TDataSource + DataSet = dtmSystem.tblTelefones + OnStateChange = dtsTelefonesStateChange + OnDataChange = dtsTelefonesDataChange + Left = 928 + Top = 8 + end + object ImageList1: TImageList + Left = 792 + Bitmap = { + 494C01010C001800840510001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object dtsTitulos: TDataSource + DataSet = dtmSystem.tblTitulos + OnStateChange = dtsTitulosStateChange + OnDataChange = dtsTitulosDataChange + Left = 989 + Top = 10 + end + object dtsCidades: TDataSource + DataSet = dtmSystem.tblCidades + OnDataChange = dtsCidadesDataChange + Left = 101 + Top = 63 + end + object dtsUF: TDataSource + DataSet = dtmSystem.tblEstados + OnDataChange = dtsUFDataChange + Left = 989 + Top = 58 + end + object MainMenu1: TMainMenu + Left = 566 + Top = 66 + object Cadastro1: TMenuItem + Caption = 'Cadastro' + object Importao1: TMenuItem + Caption = 'Importa'#231#227'o' + OnClick = Importao1Click + end + object mnuFichatitulos: TMenuItem + Caption = 'Ficha de constata'#231#227'o de t'#237'tulos' + OnClick = mnuFichatitulosClick + end + object mnu_fichahist: TMenuItem + Caption = 'Ficha de Hist'#243'rico' + OnClick = mnu_fichahistClick + end + end + end + object PopupMenu1: TPopupMenu + OnPopup = PopupMenu1Popup + Left = 410 + Top = 258 + object Copiar1: TMenuItem + Caption = 'Copiar' + OnClick = Copiar1Click + end + object copiar_conteudo: TMenuItem + Visible = False + OnClick = copiar_conteudoClick + end + object cp_telddd: TMenuItem + Caption = 'Copiar Telefone com DDD' + Visible = False + OnClick = cp_teldddClick + end + object cp_tel: TMenuItem + Caption = 'Copiar Telefone sem DDD' + Visible = False + OnClick = cp_telClick + end + end + object dtsHistorico: TDataSource + DataSet = dtmSystem.tblHistorico + OnStateChange = dtsHistoricoStateChange + Left = 1062 + Top = 10 + end + object dtsqryConsulta: TDataSource + DataSet = qryConsulta + Left = 720 + Top = 64 + end + object qryConsulta: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 736 + Top = 8 + end + object dtsListaTitulos: TDataSource + DataSet = queryListaTitulos + Left = 264 + Top = 8 + end + object queryListaTitulos: TZQuery + Connection = dtmSystem.ZConnection + OnCalcFields = queryListaTitulosCalcFields + SQL.Strings = ( + 'select first 0 * from chg_titulos;') + Params = <> + Left = 642 + Top = 7 + object queryListaTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object queryListaTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object queryListaTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object queryListaTitulosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object queryListaTitulosVL_TITULO: TCurrencyField + FieldName = 'VL_TITULO' + end + object queryListaTitulosDT_ENTRADA: TDateTimeField + FieldName = 'DT_ENTRADA' + end + object queryListaTitulosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + end + object queryListaTitulosDT_ATRASO: TIntegerField + FieldKind = fkCalculated + FieldName = 'DT_ATRASO' + Calculated = True + end + object queryListaTitulosTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 2 + end + object queryListaTitulosCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + Size = 100 + end + object queryListaTitulosNOME_EMPRESA: TStringField + FieldKind = fkLookup + FieldName = 'NOME_EMPRESA' + LookupDataSet = dtmSystem.tblCHGEmpresa + LookupKeyFields = 'ID_EMPRESA' + LookupResultField = 'TX_FANTASIA' + KeyFields = 'ID_EMPRESA' + Size = 40 + Lookup = True + end + object queryListaTitulosVL_ENTRADA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_ENTRADA' + Calculated = True + end + object queryListaTitulosTP_JUROS: TStringField + FieldKind = fkCalculated + FieldName = 'TP_JUROS' + Size = 1 + Calculated = True + end + object queryListaTitulosPR_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_JUROS' + Calculated = True + end + object queryListaTitulosNR_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'NR_JUROS' + Calculated = True + end + object queryListaTitulosVL_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_JUROS' + Calculated = True + end + object queryListaTitulosPR_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_MULTA' + Calculated = True + end + object queryListaTitulosVL_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_MULTA' + Calculated = True + end + object queryListaTitulosVL_ENCARGOS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_ENCARGOS' + Calculated = True + end + object queryListaTitulosVL_CORRIGIDO: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_CORRIGIDO' + Calculated = True + end + object queryListaTitulosPR_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_INDICADOR: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_INDICADOR' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_IND' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_PRINCIPAL: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_PRIN' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_MULTA' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_JUROS' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_JUROS' + Calculated = True + end + object queryListaTitulosPR_PARCELA_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_IND' + Calculated = True + end + object queryListaTitulosPR_PARCELA_PRINCIPAL: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_PRIN' + Calculated = True + end + object queryListaTitulosPR_PARCELA_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_MULTA' + Calculated = True + end + object queryListaTitulosPR_PARCELA_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_JUROS' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_JUROS' + Calculated = True + end + object queryListaTitulosNR_PARCELAS: TIntegerField + FieldKind = fkCalculated + FieldName = 'NR_PARCELAS' + Calculated = True + end + object queryListaTitulosVL_DESPESA: TCurrencyField + FieldName = 'VL_DESPESA' + end + object queryListaTitulosTP_DESPESA: TWideStringField + FieldName = 'TP_DESPESA' + Size = 1 + end + object queryListaTitulosVL_INDICES: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_INDICES' + Calculated = True + end + object queryListaTitulosVL_PARCELA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_PARCELA' + Calculated = True + end + object queryListaTitulosPR_JUROS_CHEQUE: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_JUROS_CHEQUE' + Calculated = True + end + object queryListaTitulosVL_EXTRAS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_EXTRAS' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_COR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_COR' + Calculated = True + end + object queryListaTitulosPR_PARCELA_COR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_COR' + Calculated = True + end + object queryListaTitulosPR_ENTRADA_MIN: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA_MIN' + Calculated = True + end + object queryListaTitulosPR_ENTRADA_MAX: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA_MAX' + Calculated = True + end + object queryListaTitulosPR_ENTRADA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA' + Calculated = True + end + object queryListaTitulosVL_PRINCIPAL: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_DESC_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_IND' + Calculated = True + end + object queryListaTitulosVL_DESC_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PRIN' + Calculated = True + end + object queryListaTitulosVL_DESC_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_JUROS' + Calculated = True + end + end + object dtsCobrador: TDataSource + DataSet = queryCobradores + OnDataChange = dtsCobradorDataChange + Left = 342 + Top = 56 + end + object queryCobradores: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_usuarios') + Params = <> + Left = 262 + Top = 56 + object queryCobradoresID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object queryCobradoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + end + object dtsProvidencias: TDataSource + DataSet = dtmSystem.tblProvidencias + Left = 31 + Top = 15 + end + object queryHelper: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 568 + Top = 8 + end + object dtsHelper: TDataSource + DataSet = queryHelper + Left = 496 + Top = 56 + end + object dtsHistAgenda: TDataSource + DataSet = ROqryHistAgenda + Left = 416 + Top = 56 + end + object ROqryHistAgenda: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 416 + Top = 8 + end + object dtsCHGEmpresa: TDataSource + DataSet = dtmSystem.tblCHGEmpresa + Left = 851 + Top = 64 + end + object dtsIndicadorFinanceiro: TDataSource + DataSet = dtmSystem.tblIndicadorFinanceiro + Left = 187 + Top = 56 + end + object dtsEmpresa: TDataSource + DataSet = dtmSystem.tblEmpresa + Left = 779 + Top = 64 + end + object popmnu_incluir: TPopupMenu + Left = 498 + Top = 5 + object mnu_incluir: TMenuItem + Caption = 'Incluir Todos' + OnClick = mnu_incluirClick + end + object mnuretirar: TMenuItem + Caption = 'Retirar todos' + OnClick = mnuretirarClick + end + end + object dtsEmail: TDataSource + DataSet = dtmSystem.tblEmail + OnStateChange = dtsEmailStateChange + Left = 1064 + Top = 58 + end + object qryCampanha: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 336 + Top = 8 + end + object ACBrCEP1: TACBrCEP + ProxyPort = '8080' + PesquisarIBGE = True + Left = 864 + Top = 8 + end + object zroqryProvAgend: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 456 + Top = 106 + end + object ppmnuQuebraAcordo: TPopupMenu + Left = 760 + Top = 374 + object mnuQuebraAcordo: TMenuItem + Caption = 'Quebrar Acordo' + OnClick = mnuQuebraAcordoClick + end + end + object ZReadOnlyQuery1: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'SELECT FIRST 0 * FROM SYS_ACORDOS') + Params = <> + Left = 945 + Top = 361 + object ZReadOnlyQuery1ID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object ZReadOnlyQuery1ID_ACORDO: TIntegerField + FieldName = 'ID_ACORDO' + Required = True + end + object ZReadOnlyQuery1ID_PARCELA: TIntegerField + FieldName = 'ID_PARCELA' + Required = True + end + object ZReadOnlyQuery1ID_ORIGINAL: TIntegerField + FieldName = 'ID_ORIGINAL' + Required = True + end + object ZReadOnlyQuery1ID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + end +end diff --git a/ucadDevedores.pas b/ucadDevedores.pas new file mode 100644 index 0000000..7779d9d --- /dev/null +++ b/ucadDevedores.pas @@ -0,0 +1,6401 @@ +unit ucadDevedores; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, + umstCadastro, Data.DB, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, + Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, ACBrBase, ACBrSocket, ACBrCEP, + rDBComponents, System.ImageList, Vcl.ImgList, Vcl.Buttons, Clipbrd, + Vcl.CheckLst, System.UITypes, Vcl.Menus, StrUtils, DBDateTimePicker, + ZAbstractRODataset, ZAbstractDataset, ZDataset, DateUtils, System.Math, + RLReport; + +type + THackDBNavigator = class(TDBNavigator) + end; + +type + TStringDynArray = array of string; + +type + TcadDevedores = class(TmstCadastro) + tabEndereco: TTabSheet; + tabTel: TTabSheet; + dbedt_nome: TDBEdit; + dbedt_cpfcnpj: TDBEdit; + lbl_nome: TLabel; + lbl_cpfcnpj: TLabel; + lbl_datacad: TLabel; + dbgrd_enderecos: TDBGrid; + dbedt_logradouro: TDBEdit; + dbedt_num: TDBEdit; + lbl_logradouro: TLabel; + lbl_num: TLabel; + dbrg_situacao: TDBRadioGroup; + dtsEnderecos: TDataSource; + dtsTelefones: TDataSource; + tabTitulos: TTabSheet; + Panel1: TPanel; + dbrgrp_tpdevedor: TDBRadioGroup; + dbmem_obs: TDBMemo; + lbl_obs: TLabel; + dbedt_comp: TDBEdit; + lbl_comp: TLabel; + Panel2: TPanel; + lbl_tpend: TLabel; + lbl_situacao: TLabel; + lbl_cep: TLabel; + dbedt_cep: TDBEdit; + lbl_bairro: TLabel; + dbedt_bairro: TDBEdit; + lbl_cidade: TLabel; + lbl_uf: TLabel; + dblucmbox_uf: TDBLookupComboBox; + dbedt_tel: TDBEdit; + lbl_tel: TLabel; + Panel3: TPanel; + dbrg_sittel: TDBRadioGroup; + lbl_sittel: TLabel; + Panel4: TPanel; + dbrg_tipotel: TDBRadioGroup; + lbl_tipo: TLabel; + dbgrd_tel: TDBGrid; + dbmem_tel: TDBMemo; + lbl_obstel: TLabel; + lbl_desctel: TLabel; + dbedt_desctel: TDBEdit; + lbl_tit: TLabel; + dbedit_produto: TDBEdit; + lbl_dataent: TLabel; + lbl_datavenc: TLabel; + lbl_vltit: TLabel; + dbedt_vltit: TDBEdit; + Panel5: TPanel; + dbrg_tit: TDBRadioGroup; + lbl_sittit: TLabel; + tabHist: TTabSheet; + dbgrd_historico: TDBGrid; + lbl_tppessoa: TLabel; + ImageList1: TImageList; + lbl_ref: TLabel; + Panel6: TPanel; + dbrg_ref: TDBRadioGroup; + Panel7: TPanel; + dbrg_tpend: TDBRadioGroup; + Panel8: TPanel; + Panel9: TPanel; + btn_clearmemo: TButton; + Panel10: TPanel; + rdbdt_entrada: TrDBDateTimePicker; + rDBDateTimePicker1: TrDBDateTimePicker; + dbedt_codemp: TDBEdit; + lbl_cddevedor: TLabel; + pnl_cor1: TPanel; + pnl_color2: TPanel; + pnl_color3: TPanel; + pnl_color4: TPanel; + pnl_color5: TPanel; + pnl_color6: TPanel; + pnl_color7: TPanel; + GroupBox1: TGroupBox; + navenderecos: TDBNavigator; + dblucmbox_cidade: TDBLookupComboBox; + navtelefones: TDBNavigator; + dtsTitulos: TDataSource; + dtsCidades: TDataSource; + dtsUF: TDataSource; + MainMenu1: TMainMenu; + Cadastro1: TMenuItem; + Importao1: TMenuItem; + lbl_coddev: TLabel; + dbedt_coddev: TDBEdit; + lbl_nomepai: TLabel; + dbedt_nomepai: TDBEdit; + dbedt_nomemae: TDBEdit; + lbl_nomemae: TLabel; + dbedt_rg: TDBEdit; + lbl_rg: TLabel; + lbl_dtnasc: TLabel; + lbl_idade: TLabel; + dbcbx_tpcheque: TDBCheckBox; + lbl_banco: TLabel; + dbedt_banco: TDBEdit; + pnl_cheque: TPanel; + lbl_nrcheque: TLabel; + dbedt_nrcheque: TDBEdit; + lbl_motivo: TLabel; + dbedt_motivo: TDBEdit; + lbl_tpdespesa: TLabel; + PopupMenu1: TPopupMenu; + Copiar1: TMenuItem; + lbl_email: TLabel; + dbedt_email: TDBEdit; + Panel11: TPanel; + dbrg_confirmado: TDBRadioGroup; + lbl_confirmado: TLabel; + navHistorico: TDBNavigator; + dtsHistorico: TDataSource; + tabCalculos: TTabSheet; + lbl_beneficiarioscalculo: TLabel; + clb_beneficiarioscalculo: TCheckListBox; + dtsqryConsulta: TDataSource; + qryConsulta: TZQuery; + dtsListaTitulos: TDataSource; + lv_titulos: TListView; + dtp_atrasorecalc: TDateTimePicker; + lbl_datapgmnto: TLabel; + dbgrd_listtitulos: TDBGrid; + lbl_somatitulos: TLabel; + edt_somatitulos: TEdit; + lbl_vlaquitar: TLabel; + edt_vlaquitar: TEdit; + lbl_somajuros: TLabel; + edt_somajuros: TEdit; + lbl_somaentrada: TLabel; + edt_somaentrada: TEdit; + lbl_somamulta: TLabel; + edt_somamulta: TEdit; + lbl_parcelamento: TLabel; + edt_nrparcelas: TEdit; + up_nrparcelas: TUpDown; + lbl_somaindicador: TLabel; + edt_somaindicador: TEdit; + lbl_extras: TLabel; + edt_extras: TEdit; + cb_nmulta: TCheckBox; + lbl_desctot: TLabel; + edt_desctot: TEdit; + lbl_protocolo1: TLabel; + edt_protocolo1: TEdit; + lv_parcelas: TListView; + pcDescontos: TPageControl; + tabQuitar: TTabSheet; + tabParcelar: TTabSheet; + gb_descontosquit: TGroupBox; + lbl_indquitar: TLabel; + lbl_principalquitar: TLabel; + lbl_multasquitar: TLabel; + lbl_jurosquitar: TLabel; + edt_indquitar: TEdit; + edt_principalquitar: TEdit; + edt_multasquitar: TEdit; + up_encquitar: TUpDown; + up_principalquitar: TUpDown; + up_multasquitar: TUpDown; + edt_jurosquitar: TEdit; + up_jurosquitar: TUpDown; + cb_descquit: TCheckBox; + gb_descontospar: TGroupBox; + lbl_indparcelas: TLabel; + lbl_jurosparcelas: TLabel; + lbl_multasparcelas: TLabel; + lbl_principalparcelas: TLabel; + edt_indparcelas: TEdit; + edt_jurosparcelas: TEdit; + edt_multasparcelas: TEdit; + edt_principalparcelas: TEdit; + up_encparcelas: TUpDown; + up_jurosparcelas: TUpDown; + up_multasparcelas: TUpDown; + up_principalparcelas: TUpDown; + cb_descpar: TCheckBox; + Label4: TLabel; + cb_formapag: TComboBox; + btn_protocolo: TButton; + btn_fechamento: TButton; + queryListaTitulos: TZQuery; + queryListaTitulosID_TITULO: TIntegerField; + queryListaTitulosID_DEVEDOR: TIntegerField; + queryListaTitulosID_EMPRESA: TIntegerField; + queryListaTitulosTX_PRODUTO: TWideStringField; + queryListaTitulosVL_TITULO: TCurrencyField; + queryListaTitulosDT_ENTRADA: TDateTimeField; + queryListaTitulosDT_VENCIMENTO: TDateTimeField; + queryListaTitulosDT_ATRASO: TIntegerField; + queryListaTitulosTP_SITUACAO: TWideStringField; + queryListaTitulosCD_DEVEDOR: TWideStringField; + queryListaTitulosNOME_EMPRESA: TStringField; + queryListaTitulosVL_ENTRADA: TCurrencyField; + queryListaTitulosPR_JUROS: TFloatField; + queryListaTitulosVL_JUROS: TCurrencyField; + queryListaTitulosPR_MULTA: TFloatField; + queryListaTitulosVL_MULTA: TCurrencyField; + queryListaTitulosVL_ENCARGOS: TCurrencyField; + queryListaTitulosVL_CORRIGIDO: TCurrencyField; + queryListaTitulosPR_INDICADOR: TFloatField; + queryListaTitulosVL_INDICADOR: TCurrencyField; + queryListaTitulosPR_QUITACAO_INDICADOR: TFloatField; + queryListaTitulosVL_DESC_QUIT_IND: TCurrencyField; + queryListaTitulosPR_QUITACAO_PRINCIPAL: TFloatField; + queryListaTitulosVL_DESC_QUIT_PRIN: TCurrencyField; + queryListaTitulosPR_QUITACAO_MULTA: TFloatField; + queryListaTitulosVL_DESC_QUIT_MULTA: TCurrencyField; + queryListaTitulosPR_QUITACAO_JUROS: TFloatField; + queryListaTitulosVL_DESC_QUIT_JUROS: TCurrencyField; + queryListaTitulosPR_PARCELA_INDICADOR: TFloatField; + queryListaTitulosVL_DESC_PAR_IND: TCurrencyField; + queryListaTitulosPR_PARCELA_PRINCIPAL: TFloatField; + queryListaTitulosVL_DESC_PAR_PRIN: TCurrencyField; + queryListaTitulosPR_PARCELA_MULTA: TFloatField; + queryListaTitulosVL_DESC_PAR_MULTA: TCurrencyField; + queryListaTitulosPR_PARCELA_JUROS: TFloatField; + queryListaTitulosVL_DESC_PAR_JUROS: TCurrencyField; + queryListaTitulosNR_PARCELAS: TIntegerField; + queryListaTitulosVL_DESPESA: TCurrencyField; + queryListaTitulosTP_DESPESA: TWideStringField; + queryListaTitulosVL_INDICES: TCurrencyField; + tabFechamento: TTabSheet; + lbl_dtcobranca: TLabel; + dtp_diaagendamento: TDateTimePicker; + lbl_horacobranca: TLabel; + dtp_horaagendamento: TDateTimePicker; + lbl_protocolo: TLabel; + edt_protocolo: TEdit; + lbl_cobradoragendado: TLabel; + dblucb_cobradoragendar: TDBLookupComboBox; + btn_recalc: TButton; + lbl_tfonte: TLabel; + edt_fontememo: TEdit; + up_fontememo: TUpDown; + cb_negritomemo: TCheckBox; + mb_fechamento: TMemo; + lbl_providencias: TLabel; + dbgrd_providencias: TDBGrid; + lbl_prov: TLabel; + edt_prov: TEdit; + btn_concluir: TButton; + dbgrd_resumohist: TDBGrid; + copiar_conteudo: TMenuItem; + dtsCobrador: TDataSource; + queryCobradores: TZQuery; + queryCobradoresID_USUARIO: TIntegerField; + queryCobradoresTX_NOME: TWideStringField; + dtsProvidencias: TDataSource; + queryHelper: TZQuery; + dtsHelper: TDataSource; + dtsHistAgenda: TDataSource; + ROqryHistAgenda: TZReadOnlyQuery; + queryListaTitulosVL_PARCELA: TCurrencyField; + queryListaTitulosPR_JUROS_CHEQUE: TFloatField; + dbgrd_devedoreslist: TDBGrid; + queryListaTitulosVL_EXTRAS: TCurrencyField; + dtsCHGEmpresa: TDataSource; + dtsIndicadorFinanceiro: TDataSource; + dtsEmpresa: TDataSource; + lbl_maxindquit: TLabel; + lbl_maxprinquit: TLabel; + lbl_maxmultaquit: TLabel; + lbl_maxjurosquit: TLabel; + lbl_maxindpar: TLabel; + lbl_maxprinpar: TLabel; + lbl_maxmultapar: TLabel; + lbl_maxjurospar: TLabel; + lbl_maxpar: TLabel; + popmnu_incluir: TPopupMenu; + mnu_incluir: TMenuItem; + mnuretirar: TMenuItem; + queryListaTitulosPR_QUITACAO_COR: TFloatField; + queryListaTitulosPR_PARCELA_COR: TFloatField; + cb_desc_par_cor: TCheckBox; + cb_desc_quit_cor: TCheckBox; + edt_corquitar: TEdit; + ud_corquitar: TUpDown; + edt_corpar: TEdit; + ud_corpar: TUpDown; + lbl_maxparcor: TLabel; + lbl_maxquitcor: TLabel; + cb_agendar: TCheckBox; + DBEdit2: TDBEdit; + Label1: TLabel; + DBEdit3: TDBEdit; + Label2: TLabel; + lbl_ddd: TLabel; + dbedt_ddd: TDBEdit; + dblucb_providencia: TDBLookupComboBox; + Label3: TLabel; + edt_excentrada: TEdit; + cbx_excentrada: TCheckBox; + edt_prentrada: TEdit; + Label5: TLabel; + ud_entrada: TUpDown; + lbl_minentrada: TLabel; + lbl_maxentrada: TLabel; + queryListaTitulosPR_ENTRADA_MIN: TFloatField; + queryListaTitulosPR_ENTRADA_MAX: TFloatField; + queryListaTitulosPR_ENTRADA: TFloatField; + Label6: TLabel; + dtp_agendadatahist: TDateTimePicker; + Label7: TLabel; + dtp_agendahorahist: TDateTimePicker; + Label8: TLabel; + dblucb_agendacobhist: TDBLookupComboBox; + cb_agendahist: TCheckBox; + dbmemo_box: TDBMemo; + queryListaTitulosVL_PRINCIPAL: TCurrencyField; + dbmem_titobs: TDBMemo; + Label9: TLabel; + mnuFichatitulos: TMenuItem; + btn_relacaodivida: TButton; + mnu_fichahist: TMenuItem; + cbx_txextra: TCheckBox; + edt_txextra: TEdit; + btntelefones: TButton; + rdbdt_pag: TrDBDateTimePicker; + lbl_dtpag: TLabel; + navEmail: TDBNavigator; + dtsEmail: TDataSource; + dbgrd_email: TDBGrid; + DBEdit4: TDBEdit; + pnl_devedores: TPanel; + pnl_email: TPanel; + qryCampanha: TZReadOnlyQuery; + btn_cancelar: TButton; + dbgrd_tit: TDBGrid; + navtitulos: TDBNavigator; + cbx_exjurosparcelar: TCheckBox; + edt_excjurosparcela: TEdit; + dbdtp_dtcad: TDBDateTimePicker; + dbdtp_dtnasc: TDBDateTimePicker; + ACBrCEP1: TACBrCEP; + DBGrid1: TDBGrid; + Label16: TLabel; + lbl_dtrecibo: TLabel; + queryListaTitulosVL_DESC_IND: TCurrencyField; + queryListaTitulosVL_DESC_PRIN: TCurrencyField; + queryListaTitulosVL_DESC_MULTA: TCurrencyField; + queryListaTitulosVL_DESC_JUROS: TCurrencyField; + pnl_contatos: TPanel; + Label15: TLabel; + dblbl_contatos: TDBText; + zroqryProvAgend: TZReadOnlyQuery; + Panel12: TPanel; + DBRadioGroup1: TDBRadioGroup; + Label10: TLabel; + rdbdt_recibo: TrDBDateTimePicker; + ppmnuQuebraAcordo: TPopupMenu; + mnuQuebraAcordo: TMenuItem; + ZReadOnlyQuery1: TZReadOnlyQuery; + ZReadOnlyQuery1ID_ITEM: TIntegerField; + ZReadOnlyQuery1ID_ACORDO: TIntegerField; + ZReadOnlyQuery1ID_PARCELA: TIntegerField; + ZReadOnlyQuery1ID_ORIGINAL: TIntegerField; + ZReadOnlyQuery1ID_DEVEDOR: TIntegerField; + queryListaTitulosNR_JUROS: TCurrencyField; + queryListaTitulosTP_JUROS: TStringField; + dbedt_protocolo: TDBEdit; + Label11: TLabel; + cp_telddd: TMenuItem; + cp_tel: TMenuItem; + Label12: TLabel; + DBLookupComboBox1: TDBLookupComboBox; + procedure dbedt_cepKeyPress(Sender: TObject; var Key: Char); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure dtsDBDataChange(Sender: TObject; Field: TField); + procedure btn_clearmemoClick(Sender: TObject); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure ACBrCEP1BuscaEfetuada(Sender: TObject); + procedure clb_empresasClickCheck(Sender: TObject); + procedure dbgrd_titCellClick(Column: TColumn); + procedure dbgrd_titDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure Copiar1Click(Sender: TObject); + procedure clb_empresasMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); + procedure dbgrd_titMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); + procedure dbgrd_historicoDblClick(Sender: TObject); + procedure dtsEnderecosDataChange(Sender: TObject; Field: TField); + procedure dtsTitulosDataChange(Sender: TObject; Field: TField); + procedure navtitulosBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure dtsUFDataChange(Sender: TObject; Field: TField); + procedure dtsCidadesDataChange(Sender: TObject; Field: TField); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Importao1Click(Sender: TObject); + procedure dbcbx_tpchequeClick(Sender: TObject); + procedure dtsDBStateChange(Sender: TObject); + procedure dtsEnderecosStateChange(Sender: TObject); + procedure dtsTelefonesStateChange(Sender: TObject); + procedure dtsTitulosStateChange(Sender: TObject); + procedure PopupMenu1Popup(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure dtsHistoricoStateChange(Sender: TObject); + procedure clb_beneficiarioscalculoClickCheck(Sender: TObject); + procedure queryListaTitulosCalcFields(DataSet: TDataSet); + procedure pcClientesChange(Sender: TObject); + procedure cb_nmultaClick(Sender: TObject); + procedure edt_nrparcelasChange(Sender: TObject); + procedure dtp_atrasorecalcChange(Sender: TObject); + procedure cb_descquitClick(Sender: TObject); + procedure cb_descparClick(Sender: TObject); + procedure cb_formapagChange(Sender: TObject); + procedure edt_indquitarChange(Sender: TObject); + procedure edt_principalquitarChange(Sender: TObject); + procedure edt_multasquitarChange(Sender: TObject); + procedure edt_jurosquitarChange(Sender: TObject); + procedure edt_indparcelasChange(Sender: TObject); + procedure edt_principalparcelasChange(Sender: TObject); + procedure edt_multasparcelasChange(Sender: TObject); + procedure edt_jurosparcelasChange(Sender: TObject); + procedure lv_titulosChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure dtp_diaagendamentoChange(Sender: TObject); + procedure pcClientesChanging(Sender: TObject; var AllowChange: Boolean); + procedure btn_protocoloClick(Sender: TObject); + procedure btn_fechamentoClick(Sender: TObject); + procedure copiar_conteudoClick(Sender: TObject); + procedure btn_recalcClick(Sender: TObject); + procedure dtp_horaagendamentoChange(Sender: TObject); + procedure dtsCobradorDataChange(Sender: TObject; Field: TField); + procedure edt_fontememoExit(Sender: TObject); + procedure edt_fontememoKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure up_fontememoClick(Sender: TObject; Button: TUDBtnType); + procedure cb_negritomemoClick(Sender: TObject); + procedure dbgrd_providenciasDblClick(Sender: TObject); + procedure btn_concluirClick(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure navenderecosBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure navtelefonesBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure mnuretirarClick(Sender: TObject); + procedure mnu_incluirClick(Sender: TObject); + procedure edt_nrparcelasExit(Sender: TObject); + procedure lv_titulosItemChecked(Sender: TObject; Item: TListItem); + procedure dbgrd_telDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure dbgrd_enderecosDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure dbgrd_titTitleClick(Column: TColumn); + procedure dbgrd_enderecosTitleClick(Column: TColumn); + procedure dbgrd_telTitleClick(Column: TColumn); + procedure dbgrd_historicoTitleClick(Column: TColumn); + procedure dbgrd_listtitulosTitleClick(Column: TColumn); + procedure dbgrd_resumohistTitleClick(Column: TColumn); + procedure cb_desc_quit_corClick(Sender: TObject); + procedure edt_corquitarChange(Sender: TObject); + procedure cb_desc_par_corClick(Sender: TObject); + procedure edt_corparChange(Sender: TObject); + procedure cb_agendarClick(Sender: TObject); + procedure navHistoricoBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure cbx_excentradaClick(Sender: TObject); + procedure edt_excentradaChange(Sender: TObject); + procedure edt_excentradaKeyPress(Sender: TObject; var Key: Char); + procedure edt_prentradaChange(Sender: TObject); + procedure cb_agendahistClick(Sender: TObject); + procedure lv_titulosColumnClick(Sender: TObject; Column: TListColumn); + procedure lv_titulosCompare(Sender: TObject; Item1, Item2: TListItem; + Data: Integer; var Compare: Integer); + procedure edt_indparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_principalparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_multasparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_jurosparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_corparKeyPress(Sender: TObject; var Key: Char); + procedure edt_indquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_principalquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_multasquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_jurosquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_corquitarKeyPress(Sender: TObject; var Key: Char); + procedure mnuFichatitulosClick(Sender: TObject); + procedure btn_relacaodividaClick(Sender: TObject); + procedure mnu_fichahistClick(Sender: TObject); + procedure cbx_txextraClick(Sender: TObject); + procedure edt_txextraChange(Sender: TObject); + procedure edt_txextraKeyPress(Sender: TObject; var Key: Char); + procedure btntelefonesClick(Sender: TObject); + procedure dtsEmailStateChange(Sender: TObject); + procedure btn_cancelarClick(Sender: TObject); + procedure edt_excjurosparcelaChange(Sender: TObject); + procedure edt_excjurosparcelaKeyPress(Sender: TObject; var Key: Char); + procedure cbx_exjurosparcelarClick(Sender: TObject); + procedure Panel1Enter(Sender: TObject); + procedure dbedt_cpfcnpjKeyPress(Sender: TObject; var Key: Char); + procedure dbrg_tipotelClick(Sender: TObject); + procedure dtsTelefonesDataChange(Sender: TObject; Field: TField); + procedure mnuQuebraAcordoClick(Sender: TObject); + procedure cp_teldddClick(Sender: TObject); + procedure cp_telClick(Sender: TObject); + private + old_id: Integer; + old_id_tit: Integer; + ColumnToSort: Integer; + ficha_dev: Boolean; + id_emps_dev: array of Integer; + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string; size: Integer); + procedure CriarLista; + procedure Att_campos; + procedure CalcValorParcelas; + procedure AdjustCheckListBox; + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + procedure CalcPrice; + procedure ChecaPermissoes; + function CalculaIdade(Birthday, CurrentDate: TDate): Integer; + function FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; + function FindControlAtPos(AScreenPos: TPoint): TControl; + // function EscreveTitulos(): TStringDynArray; + { Private declarations } + public + posi: TPoint; + parcelamento: array of currency; + data_parcelas: array of TDate; + nome_cobrador: string; + dia_agendado: string; + hora_agendado: string; + clpbrd: string; + pagina: Integer; + pesquisa: Integer; + estado_db: Boolean; + importou: Boolean; + fechamento: string; + antes: TTime; + qtde_titulos: Integer; + id_emp: Integer; + str_titulos: string; + selected_id_chg_empresa: Integer; + str_tit: array of Integer; + id_emp_calc: Integer; + ids_tits_calc: array of Boolean; + imp: Boolean; + // cbl_hints : array of string; + // prevIndex : integer; + { Public declarations } + function gerar_protocolo(id_devedor: string): string; + end; + +var + cadDevedores: TcadDevedores; + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmMemoBox, uimpDevedores, ufrmCobranca, + ufrmEfetuarCobranca, ufrmFechamentoDevedor, ufrmLiberaPermissao, urelDados, + ufrmFichaTitulos, urelFichaDivida, urelHistorico, uconfFichaHistorico; + +// no form show eu monto o checklistbox com as empresas que o devedor tem titulos em aberto +// que fica na aba clculos. L, ao selecionar a empresa eu filtro os ttulos e mostro no listview +// usando esses ttulos (querylistatitulos) eu fao todos os clculos para juros, multa, etc +// dentro do oncalc da query e em algumas funes como Att_campos e CalcValorParcelas +// o mesmo processo ocorre nas janelas da frmEfetuarCobranca e frmAtendimento, com pequenas diferenas + +procedure TcadDevedores.AdjustCheckListBox; +var + i, nMaxWidth, nItemWidth: Integer; +begin + // ajusta o checklistbox pra ter scroll horizontal +// nMaxWidth := clb_empresas.ClientWidth; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// nItemWidth := clb_empresas.Canvas.TextWidth(clb_empresas.Items[i]) + 20; +// if (nItemWidth > nMaxWidth) then +// nMaxWidth := nItemWidth; +// end; +// if (nMaxWidth > clb_empresas.ClientWidth) then +// begin +// clb_empresas.ScrollWidth := nMaxWidth; +// end; +end; + +procedure TcadDevedores.Att_campos; +var + soma_nominal, soma_encargos, soma_corrigido, soma_entrada, soma_juros, + soma_multas, soma_indicador { desc_fixo, acr_fixo, soma_indices } + : currency; + i, n_parcelas, quit_ind, quit_prin, quit_multa, quit_juros, parc_ind, + parc_prin, parc_multa, parc_juros, quit_cor, par_cor, minentrada, + maxentrada: Integer; +begin + // atualiza os valores a serem mostrados nos edits + soma_nominal := 0.00; + soma_encargos := 0.00; + soma_corrigido := 0.00; + soma_entrada := 0.00; + soma_juros := 0.00; + soma_multas := 0.00; + soma_indicador := 0.00; + // soma_indices := 0.00; + + n_parcelas := 0; + + quit_ind := 0; + quit_prin := 0; + quit_multa := 0; + quit_juros := 0; + quit_cor := 0; + + minentrada := 0; + maxentrada := 0; + + parc_ind := 0; + parc_prin := 0; + parc_multa := 0; + parc_juros := 0; + par_cor := 0; + queryListaTitulos.DisableControls; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + soma_nominal := soma_nominal + queryListaTitulosVL_TITULO.AsCurrency; + soma_encargos := soma_encargos + queryListaTitulosVL_ENCARGOS.AsCurrency; + soma_corrigido := soma_corrigido + queryListaTitulosVL_CORRIGIDO. + AsCurrency; + soma_entrada := soma_entrada + queryListaTitulosVL_ENTRADA.AsCurrency; + soma_juros := soma_juros + queryListaTitulosVL_JUROS.AsCurrency; + soma_multas := soma_multas + queryListaTitulosVL_MULTA.AsCurrency; + soma_indicador := soma_indicador + queryListaTitulosVL_INDICADOR. + AsCurrency; + // soma_indices := soma_indices + queryListaTitulosVL_INDICES.AsCurrency; + if n_parcelas < (queryListaTitulosNR_PARCELAS.AsInteger) then + begin + n_parcelas := queryListaTitulosNR_PARCELAS.AsInteger; + end; + + if minentrada < (queryListaTitulosPR_ENTRADA_MIN.AsInteger) then + begin + minentrada := queryListaTitulosPR_ENTRADA_MIN.AsInteger; + end; + // edt_prentrada.Text := inttostr(minentrada); + if maxentrada < (queryListaTitulosPR_ENTRADA_MAX.AsInteger) then + begin + maxentrada := queryListaTitulosPR_ENTRADA_MAX.AsInteger; + end; + + if quit_ind < (queryListaTitulosPR_QUITACAO_INDICADOR.AsInteger) then + begin + quit_ind := queryListaTitulosPR_QUITACAO_INDICADOR.AsInteger; + end; + if quit_prin < (queryListaTitulosPR_QUITACAO_PRINCIPAL.AsInteger) then + begin + quit_prin := queryListaTitulosPR_QUITACAO_PRINCIPAL.AsInteger; + end; + if quit_multa < (queryListaTitulosPR_QUITACAO_MULTA.AsInteger) then + begin + quit_multa := queryListaTitulosPR_QUITACAO_MULTA.AsInteger; + end; + if quit_juros < (queryListaTitulosPR_QUITACAO_JUROS.AsInteger) then + begin + quit_juros := queryListaTitulosPR_QUITACAO_JUROS.AsInteger; + end; + if quit_cor < (queryListaTitulosPR_QUITACAO_COR.AsInteger) then + begin + quit_cor := queryListaTitulosPR_QUITACAO_COR.AsInteger; + end; + + if parc_ind < (queryListaTitulosPR_PARCELA_INDICADOR.AsInteger) then + begin + parc_ind := queryListaTitulosPR_PARCELA_INDICADOR.AsInteger; + end; + if parc_prin < (queryListaTitulosPR_PARCELA_PRINCIPAL.AsInteger) then + begin + parc_prin := queryListaTitulosPR_PARCELA_PRINCIPAL.AsInteger; + end; + if parc_multa < (queryListaTitulosPR_PARCELA_MULTA.AsInteger) then + begin + parc_multa := queryListaTitulosPR_PARCELA_MULTA.AsInteger; + end; + if parc_juros < (queryListaTitulosPR_PARCELA_JUROS.AsInteger) then + begin + parc_juros := queryListaTitulosPR_PARCELA_JUROS.AsInteger; + end; + if par_cor < (queryListaTitulosPR_PARCELA_COR.AsInteger) then + begin + par_cor := queryListaTitulosPR_PARCELA_COR.AsInteger; + end; + end; + end; + // queryListaTitulos.First; + queryListaTitulos.EnableControls; + edt_somatitulos.Text := CurrToStrF(soma_nominal, ffCurrency, 2, + dtmSystem.CusFmt); + // edt_indices.Text := CurrToStrF(soma_indices, ffCurrency, 2, dtmSystem.CusFmt); + edt_extras.Text := CurrToStrF(soma_encargos, ffCurrency, 2, dtmSystem.CusFmt); + // if cbx_txextra.Checked then + // begin + // soma_corrigido := soma_corrigido + StrToCurr(edt_txextra.Text); + // end; + edt_vlaquitar.Text := CurrToStrF(soma_corrigido, ffCurrency, 2, + dtmSystem.CusFmt); + + if cbx_excentrada.Checked then + begin + edt_somaentrada.Text := CurrToStrF(StrToCurr(edt_excentrada.Text), + ffCurrency, 2, dtmSystem.CusFmt); + end + else + begin + edt_somaentrada.Text := CurrToStrF(soma_entrada, ffCurrency, 2, + dtmSystem.CusFmt); + end; + { end; } + edt_somaindicador.Text := CurrToStrF(soma_indicador, ffCurrency, 2, + dtmSystem.CusFmt); + edt_somamulta.Text := CurrToStrF(soma_multas, ffCurrency, 2, + dtmSystem.CusFmt); + edt_somajuros.Text := CurrToStrF(soma_juros, ffCurrency, 2, dtmSystem.CusFmt); + up_nrparcelas.Max := n_parcelas; + lbl_maxpar.Caption := 'Mx: ' + inttostr(n_parcelas); + + ud_entrada.Min := minentrada; + ud_entrada.Max := maxentrada; + lbl_minentrada.Caption := 'Min: ' + inttostr(minentrada) + '%'; + lbl_maxentrada.Caption := 'Mx: ' + inttostr(maxentrada) + '%'; + + up_encquitar.Max := quit_ind; + lbl_maxindquit.Caption := 'Mx: ' + inttostr(quit_ind) + '%'; + up_principalquitar.Max := quit_prin; + lbl_maxprinquit.Caption := 'Mx: ' + inttostr(quit_prin) + '%'; + up_multasquitar.Max := quit_multa; + lbl_maxmultaquit.Caption := 'Mx: ' + inttostr(quit_multa) + '%'; + up_jurosquitar.Max := quit_juros; + lbl_maxjurosquit.Caption := 'Mx: ' + inttostr(quit_juros) + '%'; + ud_corquitar.Max := quit_cor; + lbl_maxquitcor.Caption := 'Mx: ' + inttostr(quit_cor) + '%'; + + up_encparcelas.Max := parc_ind; + lbl_maxindpar.Caption := 'Mx: ' + inttostr(parc_ind) + '%'; + up_principalparcelas.Max := parc_prin; + lbl_maxprinpar.Caption := 'Mx: ' + inttostr(parc_prin) + '%'; + up_multasparcelas.Max := parc_multa; + lbl_maxmultapar.Caption := 'Mx: ' + inttostr(parc_multa) + '%'; + up_jurosparcelas.Max := parc_juros; + lbl_maxjurospar.Caption := 'Mx: ' + inttostr(parc_juros) + '%'; + ud_corpar.Max := par_cor; + lbl_maxparcor.Caption := 'Mx: ' + inttostr(par_cor) + '%'; +end; + +procedure TcadDevedores.btntelefonesClick(Sender: TObject); +var + i: Integer; +begin + dtsTelefones.DataSet.First; + i := 1; + while not dtsTelefones.DataSet.Eof do + begin + if dtsTelefones.DataSet.FieldByName('TP_ATIVO').AsString <> 'N' then + begin + dbmemo_box.lines.Add('Telefone n' + inttostr(i) + ': (' + + dtsTelefones.DataSet.FieldByName('nr_ddd').AsString + ')' + + dtsTelefones.DataSet.FieldByName('nr_numero').AsString); + Inc(i, 1); + end; + dtsTelefones.DataSet.Next; + end; +end; + +procedure TcadDevedores.btn_cancelarClick(Sender: TObject); +begin + cb_formapag.ItemIndex := 0; + edt_prov.Text := ''; + edt_protocolo1.Text := ''; + edt_protocolo1.Text := ''; + edt_nrparcelas.Text := '0'; + edt_nrparcelas.OnChange(self); + cb_agendar.Checked := false; + btn_protocolo.Enabled := True; + clb_beneficiarioscalculo.Enabled := True; + lv_titulos.Enabled := True; + edt_nrparcelas.Enabled := True; + up_nrparcelas.Enabled := True; + cb_nmulta.Enabled := True; + dtp_atrasorecalc.Enabled := True; + cb_descquit.Enabled := True; + cb_descpar.Enabled := True; + pcClientes.TabIndex := 0; + fechamento := 'olhando'; +end; + +procedure TcadDevedores.btn_clearmemoClick(Sender: TObject); +begin + dbmem_tel.lines.Clear; +end; + +procedure TcadDevedores.btn_concluirClick(Sender: TObject); +// var +// nao_marcou: Boolean; +// i{, id_emp}: Integer; +// count_titulos: Integer; +// str_titulos: string; +begin + + if not dtmSystem.tblProvidencias.Active then + begin + dtmSystem.tblProvidencias.Open; + end; + if edt_prov.Text = '' then + begin + MessageDlg('Por favor selecione uma providncia.', mtWarning, [mbOK], 0); + abort; + end; + with zroqryProvAgend do + begin + SQL.Clear; + SQL.Add('select * from chg_providencias where tp_forcaagenda = ' + + QuotedStr('Sim') + ' and id_providencia = ' + + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString); + Open; + end; + if (zroqryProvAgend.RecordCount = 1) and (cb_agendar.Checked = false) then + begin + MessageDlg + ('Esta providncia exige que voc agende o devedor. Por favor agende-o.', + mtWarning, [mbOK], 0); + abort; + end; + if (dblucb_cobradoragendar.keyvalue < 0) and (cb_agendar.Checked = True) then + begin + MessageDlg + ('Por favor selecione um cobrador para qual ser agendada a cobrana.', + mtWarning, [mbOK], 0); + abort; + end + else + begin + if (cb_agendar.Checked = True) then + begin + if MessageDlg('Este acionamento possui um agendamento. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + if (dtp_horaagendamento.Time < Timeof(Now)) and + (dtp_diaagendamento.Date <= dateof(Now)) then + begin + MessageDlg + ('Voc est selecionando um horrio para agendamento menor que a hora atual. Por favor verifique o horrio do agendamento.', + mtWarning, [mbOK], 0); + abort; + end; + end; + // queryListaDevedores.RecNo := recno_devedor; + if not dtmSystem.tblHistorico.Active then + begin + dtmSystem.tblHistorico.Open; + end; + if not dtmSystem.tblAgenda.Active then + begin + dtmSystem.tblAgenda.Open; + end; + if not dtmSystem.tblProtocolo.Active then + begin + dtmSystem.tblProtocolo.Open; + end; + if dtmSystem.tblProvidencias.ControlsDisabled then + begin + dtmSystem.tblProvidencias.EnableControls; + end; + cb_formapag.ItemIndex := 0; + // count_titulos := 0; + + edt_nrparcelas.Text := '0'; + edt_nrparcelas.OnChange(self); + + // nao_marcou := true; + + dtmSystem.tblProvidencias.Locate('TX_NOME', edt_prov.Text, []); + edt_prov.Text := ''; + // verifica se o cara cobrado era de uma agenda + dtmSystem.tblAgenda.Refresh; + while dtmSystem.tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + VarArrayOf([dtsDB.DataSet.FieldByName('ID_DEVEDOR').AsInteger, 'A']), [] + ) = True do + begin + dtmSystem.tblAgenda.Edit; + dtmSystem.tblAgendaTP_SITUACAO.AsString := 'B'; + dtmSystem.tblAgenda.Post; + end; + + // for i := 0 to lv_titulos.Items.Count - 1 do + // begin + // if lv_titulos.Items[i].Checked then + // begin + // queryListaTitulos.RecNo := i + 1; + // + // nao_marcou := false; + // // end; + // str_titulos := str_titulos + queryListaTitulosID_TITULO.AsString + ';'; + // id_emp := queryListaTitulosID_EMPRESA.AsInteger; + // Inc(count_titulos); + // end; + // end; + + // with dtmSystem do + // begin + // tblCampanhaDevedores.Filtered := false; + // while tblCampanhaDevedores.Locate('ID_DEVEDOR', + // dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger, []) do + // begin + // // dtmSystem.tblCampanhaDevedores.Edit; + // // dtmSystem.tblCampanhaDevedoresTP_ESTADO.AsString := 'C'; + // // // Saiu da campanha por agendamento + // // dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := -1; + // // dtmSystem.tblCampanhaDevedores.Post; + // dtmSystem.tblCampanhaDevedores.Delete; + // end; + // end; + dtmSystem.ZSQLProcessor1.Script.Text := + 'delete from chg_campanhas_devedores where id_devedor = ' + + QuotedStr(dtmSystem.dtsDevedores.DataSet.FieldByName('ID_DEVEDOR') + .AsString); + dtmSystem.ZSQLProcessor1.Execute; + + // abre um novo histrico com a providencia selecionada e o texto montado + dtmSystem.tblHistorico.Append; + dtmSystem.tblHistoricoID_DEVEDOR.AsString := + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + dtmSystem.tblHistoricoID_TITULOS.AsString := str_titulos; + dtmSystem.tblHistoricoID_PROVIDENCIA.AsString := + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString; + dtmSystem.tblHistoricoDT_CONTATO.AsDateTime := Now; + dtmSystem.tblHistoricoCD_PROTOCOLO.AsString := edt_protocolo.Text; + dtmSystem.tblHistoricoTL_MEMO.AsString := mb_fechamento.Text; + dtmSystem.tblHistorico.Post; + if cb_agendar.Checked then // agenda pra outro cobrador + begin + + dtp_diaagendamentoChange(self); + dtp_horaagendamentoChange(self); + // dtsCobradorDataChange(self,queryCobradores.FieldByName('TX_NOME')); + + with dtmSystem do + begin + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := dblucb_cobradoragendar.keyvalue; + tblAgendaID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := dtp_diaagendamento.Date; + tblAgendaHR_AGENDADA.AsDateTime := dtp_horaagendamento.Time; + tblAgendaDT_QUE_AGENDOU.AsDateTime := Now; + tblAgendaQUEM_AGENDOU.AsInteger := dtmSystem.id_usuario; + tblAgenda.Post; + end; + + end; + { dtmSystem.tblProtocolo.Append; + // preciso revisar protocolo pra usar no atendimento + // no preciso mais + dtmSystem.tblProtocoloCD_PROTOCOLO.AsString := edt_protocolo.Text; + // guardava aqui o que cobrador selecionou na tela + dtmSystem.tblProtocoloQNT_TITULOS.AsInteger := qtde_titulos; + // pra agilizar no atendimento + dtmSystem.tblProtocoloID_EMPRESA.AsInteger := id_emp; + dtmSystem.tblProtocoloID_TITULOS.AsString := str_titulos; + dtmSystem.tblProtocoloID_DEVEDOR.AsString := + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + dtmSystem.tblProtocoloVL_ENTRADA.AsCurrency := + StrToCurr(StringReplace(copy(edt_somaentrada.Text, 4, + Length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase])); + dtmSystem.tblProtocoloPR_ENTRADA.AsFloat := strtofloat(edt_prentrada.Text); + dtmSystem.tblProtocoloVL_JUROS.AsCurrency := + StrToCurr(StringReplace(copy(edt_somajuros.Text, 4, + Length(edt_somajuros.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + // if cb_nmulta.Checked then + // begin + // dtmSystem.tblProtocoloVL_MULTA.AsCurrency := 0; + // end + // else + // begin + dtmSystem.tblProtocoloVL_MULTA.AsCurrency := + StrToCurr(StringReplace(copy(edt_somamulta.Text, 4, + Length(edt_somamulta.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + // end; + dtmSystem.tblProtocoloVL_INDICADOR.AsCurrency := + StrToCurr(StringReplace(copy(edt_somaindicador.Text, 4, + Length(edt_somaindicador.Text) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase])); + dtmSystem.tblProtocoloVL_CORRIGIDO.AsCurrency := + StrToCurr(StringReplace(copy(edt_vlaquitar.Text, 4, + Length(edt_vlaquitar.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + if cb_descquit.Checked then + begin + dtmSystem.tblProtocoloTP_DESC_QUIT.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_QUIT.AsString := 'N'; + end; + if cb_desc_quit_cor.Enabled then + begin + dtmSystem.tblProtocoloTP_DESC_QUIT_COR.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_QUIT_COR.AsString := 'N'; + end; + dtmSystem.tblProtocoloPR_QUIT_JUROS.AsFloat := + strtofloat(edt_jurosquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_MULTA.AsFloat := + strtofloat(edt_multasquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_INDICADOR.AsFloat := + strtofloat(edt_indquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_PRINCIPAL.AsFloat := + strtofloat(edt_principalquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_COR.AsFloat := strtofloat(edt_corquitar.Text); + if cb_descpar.Checked then + begin + dtmSystem.tblProtocoloTP_DESC_PAR.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_PAR.AsString := 'N'; + end; + if cb_desc_par_cor.Enabled then + begin + dtmSystem.tblProtocoloTP_DESC_PAR_COR.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_PAR_COR.AsString := 'N'; + end; + dtmSystem.tblProtocoloPR_PARCELAR_JUROS.AsFloat := + strtofloat(edt_jurosparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_MULTA.AsFloat := + strtofloat(edt_multasparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_INDICADOR.AsFloat := + strtofloat(edt_indparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_PRINCIPAL.AsFloat := + strtofloat(edt_principalparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_COR.AsFloat := + strtofloat(edt_corpar.Text); + dtmSystem.tblProtocoloNR_PARCELAS.AsInteger := + strtoint(edt_nrparcelas.Text); + dtmSystem.tblProtocoloDT_PROTOCOLO.AsDateTime := dtp_atrasorecalc.Date; + if cb_formapag.Text = 'Dinheiro' then + begin + dtmSystem.tblProtocoloTP_PAG.AsString := 'DI'; + end; + if cb_formapag.Text = 'Cheque' then + begin + dtmSystem.tblProtocoloTP_PAG.AsString := 'CQ'; + end; + if cb_formapag.Text = 'Dbito' then + begin + dtmSystem.tblProtocoloTP_PAG.AsString := 'DB'; + end; + if cb_formapag.Text = 'Crdito' then + begin + dtmSystem.tblProtocoloTP_PAG.AsString := 'CR'; + end; + dtmSystem.tblProtocolo.Post; } + + // if nao_marcou then + // begin + // dtmSystem.tblHistorico.Edit; + // dtmSystem.tblHistoricoID_PROVIDENCIA.AsString := + // dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString; + // dtmSystem.tblHistoricoDT_CONTATO.AsDateTime := Now; + // dtmSystem.tblHistoricoCD_PROTOCOLO.AsString := edt_protocolo.Text; + // dtmSystem.tblHistoricoTL_MEMO.AsString := mb_fechamento.Text; + // + // dtmSystem.tblHistorico.Post; + // end; + + dtp_agendadatahist.Date := Date; + dtp_agendahorahist.Time := Timeof(Now); + dtp_diaagendamento.Date := Date; + dtp_horaagendamento.Date := Timeof(Now); + + cb_agendar.Checked := false; + btn_protocolo.Enabled := True; + clb_beneficiarioscalculo.Enabled := True; + lv_titulos.Enabled := True; + edt_nrparcelas.Enabled := True; + up_nrparcelas.Enabled := True; + cb_nmulta.Enabled := True; + dtp_atrasorecalc.Enabled := True; + cb_descquit.Enabled := True; + cb_descpar.Enabled := True; + pcClientes.TabIndex := 0; + fechamento := 'olhando'; + end; +end; + +procedure TcadDevedores.btn_fechamentoClick(Sender: TObject); +var + selecionado: Boolean; + i { , h, k } : Integer; + // titulos: array of string; +begin + selecionado := false; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked = True then + begin + selecionado := True; + end; + end; + if selecionado = True then + begin + dtmSystem.tblProvidencias.Open; + // clb_beneficiarioscalculo.Enabled := false; + // lv_titulos.Enabled := false; + // edt_nrparcelas.Enabled := false; + // up_nrparcelas.Enabled := false; + // cb_nmulta.Enabled := false; + // dtp_atrasorecalc.Enabled := false; + // cb_descquit.Enabled := false; + // cb_descpar.Enabled := false; + // + // if btn_protocolo.Enabled then + // begin + // edt_protocolo.Text := + // gerar_protocolo(dtmSystem.tblDevedoresID_DEVEDOR.AsString); + // edt_protocolo1.Text := edt_protocolo.Text; + // btn_protocolo.Enabled := false; + // end; + // + // fechamento := 'fechamento'; + // pcClientes.TabIndex := 6; + // mb_fechamento.SetFocus; + // + // mb_fechamento.Clear; + // + // mb_fechamento.Lines.Add('Cobrador: ' + dtmSystem.tx_usuario); + // mb_fechamento.Lines.Add(''); + // mb_fechamento.Lines.Add(DateToStr(Date) + ' - ' + TimeToStr(Time)); + // mb_fechamento.Lines.Add(''); + // + // if not dtmSystem.tblTelefones.Active then + // begin + // dtmSystem.tblTelefones.Open; + // end; + // dtmSystem.tblTelefones.First; + // h := 1; + // while not dtmSystem.tblTelefones.Eof do + // begin + // mb_fechamento.Lines.Add('Telefone n' + inttostr(h) + ': ' + + // dtmSystem.tblTelefonesNR_NUMERO.AsString + ' - Situao: '); + // dtmSystem.tblTelefones.Next; + // Inc(h); + // end; + // // dtmSystem.tblTelefones.Close; + // // mb_fechamento.Lines.Add(''); + // // mb_fechamento.Lines.Add(dtmSystem.tblDevedoresTX_NOME.AsString + + // // ' retornou a ligao.'); + // // mb_fechamento.Lines.Add(''); + // + // setlength(titulos, Length(EscreveTitulos())); + // for k := 0 to Length(titulos) - 1 do + // begin + // titulos[k] := EscreveTitulos()[k]; + // end; + // if Length(titulos) > 1 then + // begin + // mb_fechamento.Lines.Add('Foram cobrados os ttulos:'); + // mb_fechamento.Lines.Add(''); + // end + // else + // begin + // mb_fechamento.Lines.Add('Foi cobrado o ttulo:'); + // mb_fechamento.Lines.Add(''); + // end; + // for i := 0 to Length(titulos) - 1 do + // begin + // mb_fechamento.Lines.Add(titulos[i]); + // end; + // mb_fechamento.Lines.Add(''); + // mb_fechamento.Lines.Add(''); + // mb_fechamento.Lines.Add('ADICIONAR TIPO DE NEGOCIAO MANUALMENTE.'); + // mb_fechamento.Lines.Add(''); + // mb_fechamento.Lines.Add(''); + // // mb_fechamento.Lines.Add('Forma de pagamento:'); + // // mb_fechamento.Lines.Add('Data para pagamento: ' + + // // DateToStr(dtp_atrasorecalc.Date)); + // // mb_fechamento.Lines.Add('Valor total corrigido: ' + + // // edt_vlaquitar.Text + '.'); + // // mb_fechamento.Lines.Add('Valor total nominal: ' + + // // edt_somatitulos.Text + '.'); + // // if cb_nmulta.Checked then + // // begin + // // mb_fechamento.Lines.Add('No foi cobrado multa.'); + // // end + // // else + // // begin + // // mb_fechamento.Lines.Add('Valor total da multa: ' + + // // edt_somamulta.Text + '.'); + // // end; + // // mb_fechamento.Lines.Add('Valor total de juros: ' + + // // edt_somajuros.Text + '.'); + // // mb_fechamento.Lines.Add('Valor total de encargos: ' + + // // edt_somaindicador.Text + '.'); + // // if cb_descquit.Checked then + // // begin + // // mb_fechamento.Lines.Add + // // ('Foi concedido descontos conforme a seguir: (QUITAO)'); + // // mb_fechamento.Lines.Add('Porcentagem sobre principal: ' + + // // edt_principalquitar.Text + '%.'); + // // mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + // // edt_multasquitar.Text + '%.'); + // // mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + // // edt_jurosquitar.Text + '%.'); + // // mb_fechamento.Lines.Add('Porcentagem sobre encargos: ' + + // // edt_indquitar.Text + '%.'); + // // mb_fechamento.Lines.Add('Porcentagem sobre encargos: ' + + // // edt_corquitar.Text + '%.') + // // end; + // // mb_fechamento.Lines.Add('Forma de Pagamento sugerida: ' + cb_formapag.Text); + // // mb_fechamento.Lines.Add(''); + // // mb_fechamento.Lines.Add('Quantidade de parcelas: ' + + // // edt_nrparcelas.Text + '.'); + // // copiar_conteudoClick(Copiar1); + // // mb_fechamento.Lines.Add(clpbrd); + // // if cb_descpar.Checked then + // // begin + // // mb_fechamento.Lines.Add + // // ('Foi concedido descontos conforme a seguir: (PARCELAMENTO)'); + // // mb_fechamento.Lines.Add('Porcentagem sobre principal: ' + + // // edt_principalparcelas.Text + '%.'); + // // mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + // // edt_multasparcelas.Text + '%.'); + // // mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + // // edt_jurosparcelas.Text + '%.'); + // // mb_fechamento.Lines.Add('Porcentagem sobre encargos: ' + + // // edt_indparcelas.Text + '%.'); + // // mb_fechamento.Lines.Add('Porcentagem sobre encargos: ' + + // // edt_corpar.Text + '%.'); + // // end; + // // mb_fechamento.Lines.Add('Forma de Pagamento sugerida: ' + cb_formapag.Text); + with TfrmFechamentoDevedor.Create(self) do + begin + ShowModal; + if ModalResult = mrOk then + begin + fechamento := 'fechamento'; + pcClientes.TabIndex := 6; + btn_protocoloClick(self); + mb_fechamento.SetFocus; + end; + end; + + end + else + begin + MessageDlg + ('Por favor selecione um ttulo primeiro para realizar o fechamento.', + mtWarning, [mbOK], 0); + end; +end; + +procedure TcadDevedores.btn_protocoloClick(Sender: TObject); +begin + if edt_protocolo.Text = '' then + begin + edt_protocolo.Text := gerar_protocolo + (dtmSystem.tblDevedoresID_DEVEDOR.AsString); + edt_protocolo1.Text := edt_protocolo.Text; + btn_protocolo.Enabled := false; + end; +end; + +procedure TcadDevedores.btn_recalcClick(Sender: TObject); +begin + // zera algumas variveis e coisas usadas no clculo e no fechamento + dia_agendado := '__/__/____'; + hora_agendado := '__:__'; + nome_cobrador := '__________'; + pcClientes.TabIndex := 5; + clb_beneficiarioscalculo.Enabled := True; + lv_titulos.Enabled := True; + edt_nrparcelas.Enabled := True; + up_nrparcelas.Enabled := True; + cb_nmulta.Enabled := True; + dtp_atrasorecalc.Enabled := True; + cb_descquit.Enabled := True; + cb_descpar.Enabled := True; + cb_agendar.Checked := false; +end; + +procedure TcadDevedores.btn_relacaodividaClick(Sender: TObject); +var + i, j: Integer; + str_filter: string; +begin + if queryListaTitulos.IsEmpty then + begin + MessageDlg('Por favor selecione uma empresa.', mtWarning, [mbOK], 0); + abort; + end + else + begin + ficha_dev := True; + str_filter := ''; + queryListaTitulos.DisableControls; + for j := 0 to Length(str_tit) - 1 do + begin + // queryListaTitulos.RecNo := str_tit[j]; + str_filter := str_filter + 'ID_TITULO = ' + inttostr(str_tit[j]) + ' OR '; + end; + queryListaTitulos.EnableControls; + if Length(str_tit) > 0 then + begin + setlength(str_filter, Length(str_filter) - 3); + queryListaTitulos.Filtered := false; + queryListaTitulos.Filter := str_filter; + queryListaTitulos.Filtered := True; + end; + relFichaDivida := TrelFichaDivida.Create(self); + with relFichaDivida do + begin + form := 'devedor'; + RLLabel7.Caption := RLLabel7.Caption + DateToStr(dtp_atrasorecalc.Date); + RLLabel7.left := floor(frbnd_dados.Width / 2) - floor(RLLabel7.Width / 2); + if cb_descquit.Checked then + begin + frlbl_tipodesc.Caption := 'Desconto concedido ao quitar.'; + RLBand4.Visible := false; + if cb_nmulta.Checked then + begin + frlbl_descmulta.Caption := 'Desc. Multa: 100%'; + end + else + begin + frlbl_descmulta.Caption := 'Desc. Multa: ' + + edt_multasquitar.Text + '%'; + end; + frlbl_descind.Caption := 'Desc. Ind. Fin.: ' + edt_indquitar.Text + '%'; + frlbl_descprin.Caption := 'Desc. Principal: ' + + edt_principalquitar.Text + '%'; + frlbl_descjuros.Caption := 'Desc. Juros: ' + edt_jurosquitar.Text + '%'; + if cb_desc_quit_cor.Checked then + begin + frlbl_desccorrigido.Caption := 'Desc. Corrigido: ' + + edt_corquitar.Text + '%'; + end + else + begin + frlbl_desccorrigido.Caption := ''; + end; + end; + if cb_descpar.Checked then + begin + frlbl_tipodesc.Caption := 'Desconto concedido ao parcelar.'; + RLBand1.Visible := false; + RLBand2.Visible := false; + RLBand3.Visible := false; + if cb_nmulta.Checked then + begin + frlbl_descmulta.Caption := 'Desc. Multa: 100%'; + end + else + begin + frlbl_descmulta.Caption := 'Desc. Multa: ' + + edt_multasparcelas.Text + '%'; + end; + frlbl_descind.Caption := 'Desc. Ind. Fin.: ' + + edt_indparcelas.Text + '%'; + frlbl_descprin.Caption := 'Desc. Principal: ' + + edt_principalparcelas.Text + '%'; + frlbl_descjuros.Caption := 'Desc. Juros: ' + + edt_jurosparcelas.Text + '%'; + if cb_desc_par_cor.Checked then + begin + frlbl_desccorrigido.Caption := 'Desc. Corrigido: ' + + edt_corpar.Text + '%'; + end + else + begin + frlbl_desccorrigido.Caption := ''; + end; + end; + if not(cb_descquit.Checked) and not(cb_descpar.Checked) then + begin + RLBand5.Visible := false; + frlbl_tipodesc.Caption := ''; + end; + j := 0; + if Length(str_tit) = 0 then + begin + mnu_incluir.OnClick(self); + end; + queryListaTitulos.Refresh; + Att_campos; + setlength(lbl_parcelas, strtoint(copy(lbl_maxpar.Caption, 6, + Length(lbl_maxpar.Caption) - 5))); + for i := 0 to strtoint(copy(lbl_maxpar.Caption, 6, + Length(lbl_maxpar.Caption) - 5)) - 1 do + begin + edt_nrparcelas.Text := inttostr(i + 1); + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + lbl_parcelas[i] := TRLLabel.Create(relFichaDivida); + RLBand4.Height := 60 + (22 * (i div 4)); + lbl_parcelas[i].Top := 44 + (22 * (i div 4)); + lbl_parcelas[i].Caption := inttostr(i + 1) + 'x ' + + CurrToStrF(parcelamento[0], ffCurrency, 2, dtmSystem.CusFmt); + lbl_parcelas[i].Parent := RLBand4; + lbl_parcelas[i].left := j * 200; + Inc(j, 1); + if j = 4 then + begin + j := 0; + end; + + end; + if cbx_excentrada.Checked then + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + edt_somaentrada.Text; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + + 'Mesmo valor da parcela'; + end + else + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + edt_somaentrada.Text; + end; + end; + edt_nrparcelas.Text := inttostr(0); + + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + RLReport1.Preview(); + queryListaTitulos.Filtered := false; + mnuretirar.OnClick(self); + setlength(str_tit, 0); + end; + ficha_dev := false; + end; +end; + +procedure TcadDevedores.CalcPrice; +var + valor, juros, parcela, par_extra: currency; + dividendo: double; + qtd: Integer; +begin + qtd := strtoint(edt_nrparcelas.Text); + if dtmSystem.tblPrCartao.Locate('NR_PARCELA', qtd, []) then + begin + if cbx_excentrada.Checked then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / + 100), qtd)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / qtd; + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / + 100), qtd)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / qtd; + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100), + qtd + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / (qtd + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + end; + end + else + begin + queryListaTitulosVL_PARCELA.AsCurrency := 0; + raise Exception.Create + ('No existe % de juros para quantidade de parcelas selecionada. Por favor contate o administrador.'); + end; + + { if cbx_excentrada.Checked then + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + end; + end + else + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / + 100), strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + end; + end; + + end; } + +end; + +function TcadDevedores.CalculaIdade(Birthday, CurrentDate: TDate): Integer; +var + Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word; +begin + DecodeDate(Birthday, Year, Month, Day); + DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay); + if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then + begin + Result := 0; + end + else + begin + Result := CurrentYear - Year; + if (Month > CurrentMonth) then + Dec(Result) + else + begin + if Month = CurrentMonth then + if (Day > CurrentDay) then + Dec(Result); + end; + end; +end; + +procedure TcadDevedores.CalcValorParcelas; +var + i, j, k, Y: Integer; + data_helper: TDate; + dia_antes, dia_depois, mes, ano: Word; +begin + // Clculo do valor de cada parcela e seu respectivo vencimento + setlength(parcelamento, 0); + lv_parcelas.Clear; + if strtoint(edt_nrparcelas.Text) >= 1 then + begin + setlength(parcelamento, strtoint(edt_nrparcelas.Text)); + // queryListaTitulos.DisableControls; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + for j := 0 to strtoint(edt_nrparcelas.Text) - 1 do + begin + parcelamento[j] := parcelamento[j] + + queryListaTitulosVL_PARCELA.AsCurrency; + end; + end; + end; + // queryListaTitulos.EnableControls; + lv_parcelas.Items.Add; + lv_parcelas.Items[0].Caption := 'Entrada'; + { if cb_nmulta.Checked then + begin + lv_parcelas.Items[0].SubItems.Add(CurrToStrF(valor_entrada, ffCurrency, 2, + dtmSystem.CusFmt)); + end + else + begin } + lv_parcelas.Items[0].SubItems.Add(edt_somaentrada.Text); + // end; + + for k := 0 to Length(parcelamento) - 1 do + begin + lv_parcelas.Items.Add; + lv_parcelas.Items[k + 1].Caption := 'Parcela n ' + inttostr(k + 1); + lv_parcelas.Items[k + 1].SubItems.Add(CurrToStrF(parcelamento[k], + ffCurrency, 2, dtmSystem.CusFmt)); + end; + setlength(data_parcelas, strtoint(edt_nrparcelas.Text) + 1); + data_helper := dtp_atrasorecalc.Date; + DecodeDate(dtp_atrasorecalc.Date, ano, mes, dia_antes); + for Y := 0 to strtoint(edt_nrparcelas.Text) do + begin + data_parcelas[Y] := data_helper; + data_helper := IncMonth(data_helper); + DecodeDate(data_helper, ano, mes, dia_depois); + if (mes = 3) and (dia_antes = 29) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper); + end; + if (mes = 3) and (dia_antes = 30) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper, 2); + end; + if (mes = 3) and (dia_antes = 31) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper, 3); + end; + end; + end + else + begin + lv_parcelas.Clear; + end; +end; + +procedure TcadDevedores.cbx_excentradaClick(Sender: TObject); +begin + edt_excentrada.Enabled := cbx_excentrada.Enabled; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.cbx_exjurosparcelarClick(Sender: TObject); +begin + edt_excjurosparcela.Enabled := cbx_exjurosparcelar.Enabled; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.cbx_txextraClick(Sender: TObject); +begin + edt_txextra.Enabled := cbx_txextra.Checked; + if not cbx_txextra.Checked then + begin + edt_txextra.Text := '0,00'; + end; +end; + +procedure TcadDevedores.cb_agendahistClick(Sender: TObject); +begin + dtp_agendadatahist.Enabled := cb_agendahist.Checked; + dtp_agendahorahist.Enabled := cb_agendahist.Checked; + dblucb_agendacobhist.Enabled := cb_agendahist.Checked; +end; + +procedure TcadDevedores.cb_agendarClick(Sender: TObject); +var + i: Integer; +begin + dtp_diaagendamento.Enabled := cb_agendar.Checked; + dtp_horaagendamento.Enabled := cb_agendar.Checked; + dblucb_cobradoragendar.Enabled := cb_agendar.Checked; + if cb_agendar.Checked then + begin + mb_fechamento.lines.Add + ('Foi agendado para o dia __/__/____ para o cobrador __________ no horrio de atendimento __:__.'); + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'Foi agendado para o dia') then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + dia_agendado, FormatDateTime('dd/mm/yyyy', dtp_diaagendamento.Date), + [rfReplaceAll, rfIgnoreCase]); + end; + dia_agendado := FormatDateTime('dd/mm/yyyy', dtp_diaagendamento.Date); + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], hora_agendado) then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + hora_agendado, FormatDateTime('t', dtp_horaagendamento.Date), + [rfReplaceAll, rfIgnoreCase]); + end; + hora_agendado := FormatDateTime('t', dtp_horaagendamento.Date); + end + else + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'Foi agendado para o dia') then + begin + dia_agendado := '__/__/____'; + hora_agendado := '__:__'; + nome_cobrador := '__________'; + mb_fechamento.lines.Delete(i); + end; + end; +end; + +procedure TcadDevedores.cb_descparClick(Sender: TObject); +begin + if cb_descpar.Checked then + begin + cb_descquit.Checked := false; + gb_descontospar.Enabled := True; + gb_descontosquit.Enabled := false; + cb_desc_quit_cor.Checked := false; + end + else + begin + gb_descontospar.Enabled := false; + end; + if not gb_descontospar.Enabled then + begin + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corpar.Text := '0'; + end; +end; + +procedure TcadDevedores.cb_descquitClick(Sender: TObject); +begin + if cb_descquit.Checked then + begin + cb_descpar.Checked := false; + gb_descontosquit.Enabled := True; + gb_descontospar.Enabled := false; + edt_nrparcelas.Text := '0'; + cb_desc_par_cor.Checked := false; + end + else + begin + gb_descontosquit.Enabled := false; + end; + + if not gb_descontosquit.Enabled then + begin + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + edt_corquitar.Text := '0'; + end; +end; + +procedure TcadDevedores.cb_desc_par_corClick(Sender: TObject); +begin + if cb_desc_par_cor.Checked then + begin + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corquitar.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.cb_desc_quit_corClick(Sender: TObject); +begin + if cb_descquit.Checked then + begin + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; +end; + +procedure TcadDevedores.cb_formapagChange(Sender: TObject); +begin + { if { (cb_formapag.ItemIndex = 0) or (cb_formapag.ItemIndex = 1) then + begin + edt_nrparcelas.Text := '0'; + // edt_nrparcelas.OnChange; + end; } + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.cb_negritomemoClick(Sender: TObject); +begin + if cb_negritomemo.Checked then + begin + mb_fechamento.Font.Style := mb_fechamento.Font.Style + [fsbold]; + end + else + begin + mb_fechamento.Font.Style := mb_fechamento.Font.Style - [fsbold]; + end; +end; + +procedure TcadDevedores.cb_nmultaClick(Sender: TObject); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.ChecaPermissoes; +begin + with dtmSystem do + begin + // if perm_caddev then + // begin + navPrincipal.Enabled := VerificarPermissao('CBR.02.01.01.01'); + + if VerificarPermissao('CBR.02.01.01.01.01') then + begin + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbDelete]; + end + else + begin + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbDelete]; + end; + + navEmail.Enabled := VerificarPermissao('CBR.02.01.01.06'); + if not VerificarPermissao('CBR.02.01.01.06.01') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.01.01.06.02') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.01.01.06.03') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbDelete]; + + navenderecos.Enabled := VerificarPermissao('CBR.02.01.01.02'); + if not VerificarPermissao('CBR.02.01.01.02.01') then + navenderecos.VisibleButtons := navenderecos.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.01.01.02.02') then + navenderecos.VisibleButtons := navenderecos.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.01.01.02.03') then + navenderecos.VisibleButtons := navenderecos.VisibleButtons - [nbDelete]; + + navtelefones.Enabled := VerificarPermissao('CBR.02.01.01.03'); + if not VerificarPermissao('CBR.02.01.01.03.01') then + navtelefones.VisibleButtons := navtelefones.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.01.01.03.02') then + navtelefones.VisibleButtons := navtelefones.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.01.01.03.03') then + navtelefones.VisibleButtons := navtelefones.VisibleButtons - [nbDelete]; + + navtitulos.Enabled := VerificarPermissao('CBR.02.01.01.04'); + if not VerificarPermissao('CBR.02.01.01.04.01') then + navtitulos.VisibleButtons := navtitulos.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.01.01.04.02') then + navtitulos.VisibleButtons := navtitulos.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.01.01.04.03') then + navtitulos.VisibleButtons := navtitulos.VisibleButtons - [nbDelete]; + + navHistorico.Enabled := VerificarPermissao('CBR.02.01.01.05'); + if not VerificarPermissao('CBR.02.01.01.05.01') then + navHistorico.VisibleButtons := navHistorico.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.01.01.05.02') then + navHistorico.VisibleButtons := navHistorico.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.01.01.05.03') then + navHistorico.VisibleButtons := navHistorico.VisibleButtons - [nbDelete]; + + tabQuitar.Enabled := VerificarPermissao('CBR.02.01.02.01.01'); + tabParcelar.Enabled := VerificarPermissao('CBR.02.01.02.01.02'); + cb_nmulta.Enabled := VerificarPermissao('CBR.02.01.02.02'); + cbx_txextra.Enabled := VerificarPermissao('CBR.02.01.02.03'); + cbx_excentrada.Enabled := VerificarPermissao('CBR.02.01.02.04'); + perm_caddev := false; + // end; + end; + +end; + +procedure TcadDevedores.clb_beneficiarioscalculoClickCheck(Sender: TObject); +var + i: Integer; + n_marcou: Boolean; +begin + // sempre s poder ter uma empresa marcada e cria a lista de ttulos dela que o devedor tem + n_marcou := True; + with TCheckListBox(Sender) do + begin + if Checked[ItemIndex] then + begin + n_marcou := false; + Items.beginupdate; + id_emp_calc := ItemIndex; + for i := 0 to Items.Count - 1 do + if i = ItemIndex then + begin + continue; + end + else + begin + Checked[i] := false; + end; + Items.EndUpdate; + // lv_titulos.PopupMenu := popmnu_incluir; + end + else + begin + for i := 0 to Items.Count - 1 do + if Checked[i] = True then + begin + n_marcou := false; + id_emp_calc := i; + end; + // lv_titulos.PopupMenu := nil; + end; + end; + if n_marcou then + begin + lv_titulos.Clear; + id_emp_calc := -1; + setlength(ids_tits_calc, 0); + end + else + begin + CriarLista; + end; +end; + +procedure TcadDevedores.clb_empresasClickCheck(Sender: TObject); +var + i: Integer; +begin +// if clb_empresas.Checked[clb_empresas.ItemIndex] then +// begin +// clb_empresas.Items.beginupdate; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// if i = clb_empresas.ItemIndex then +// begin +// dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); +// // clb_empresas.Selected[i] := True; +// selected_id_chg_empresa := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; +// continue; +// end +// else +// begin +// clb_empresas.Checked[i] := false; +// // clb_empresas.Selected[i] := false; +// end; +// end; +// clb_empresas.Items.EndUpdate; +// end; +end; + +procedure TcadDevedores.clb_empresasMouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +// var +// index: integer; +begin + // pega as hints na array de hints e mostra a do item que o mouse est em cima + { index := clb_empresas.ItemAtPos(point(X, Y), true); + if index <> -1 then + begin + clb_empresas.Hint := cbl_hints[index]; + end + else + begin + clb_empresas.Hint := ''; + end; + if index <> prevIndex then + begin + Application.CancelHint; + end; + prevIndex := index; } +end; + +procedure TcadDevedores.Copiar1Click(Sender: TObject); +var + Control: TControl; +begin + // usa duas funes que achei na net pra pegar o controle na pos do mouse pra poder copiar o contedo dele mesmo desabilitado + Control := FindControlAtPos(posi); + if Control is TDBEdit then + begin + Clipboard.AsText := (Control as TDBEdit).Text; + end; + if Control is TDBLookupComboBox then + begin + Clipboard.AsText := (Control as TDBLookupComboBox).Text; + end; + if Control is TrDBDateTimePicker then + begin + Clipboard.AsText := FormatDateTime('dd/mm/yyyy', + (Control as TrDBDateTimePicker).Date); + end; + if Control is TDBMemo then + begin + (Control as TDBMemo).SelectAll; + (Control as TDBMemo).CopyToClipboard; + end; + if Control is TListView then + begin + if Control.Name = 'lv_parcelas' then + begin + copiar_conteudoClick(Copiar1); + end; + end; +end; + +procedure TcadDevedores.copiar_conteudoClick(Sender: TObject); +var + nomes, valores: array of string; + spaces: string; + i, j, tam, Count: Integer; + k: Integer; +begin + clpbrd := ''; + // copia o contedo do listview que contm os dados de parcelamento + if lv_parcelas.Items.Count > 0 then + begin + setlength(nomes, lv_parcelas.Items.Count); + setlength(valores, lv_parcelas.Items.Count); + for i := 0 to lv_parcelas.Items.Count - 1 do + begin + nomes[i] := lv_parcelas.Items.Item[i].Caption + ':'; + valores[i] := lv_parcelas.Items.Item[i].SubItems[0]; + end; + end; + + for j := 0 to lv_parcelas.Items.Count - 1 do + begin + tam := Length(nomes[j]) + Length(valores[j]); + Count := 32 - tam; + spaces := ''; + for k := 0 to Count - 1 do + begin + spaces := spaces + ' '; + end; + if j = 0 then + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[0]) + sLineBreak; + end + else + begin + if copy(valores[0], 4, Length(valores[0]) - 3) = '0,00' then + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[j - 1]) + sLineBreak; + end + else + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[j { - 1 } ]) + sLineBreak; + end; + end; + end; + if Sender is TMenuItem then + begin + Clipboard.AsText := clpbrd; + end; +end; + +procedure TcadDevedores.cp_telClick(Sender: TObject); +begin + Clipboard.AsText := dbedt_tel.Text; +end; + +procedure TcadDevedores.cp_teldddClick(Sender: TObject); +begin + Clipboard.AsText := dbedt_ddd.Text + ' ' + dbedt_tel.Text; +end; + +procedure TcadDevedores.CriarLista; +var + h: Integer; + nMaxWidth: Integer; + i: Integer; + nItemWidth: Integer; + marcou: Boolean; +begin + { if queryListaTitulos.Connection = nil then + // BACALHAU, NO TEM EXPLICAO. S FUNCIONA. + begin + exit; + end; } + // qtde_titulos := 0; + dtmSystem.tblCHGEmpresa.Open; + marcou := false; + // clb_beneficiarioscalculo.Clear; + for h := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + if clb_beneficiarioscalculo.Checked[h] then + begin + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', id_emps_dev[h], []); + marcou := True; + end; + end; + nMaxWidth := clb_beneficiarioscalculo.ClientWidth; + for i := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + nItemWidth := clb_beneficiarioscalculo.Canvas.TextWidth + (clb_beneficiarioscalculo.Items[i]) + 20; + if (nItemWidth > nMaxWidth) then + nMaxWidth := nItemWidth; + end; + if (nMaxWidth > clb_beneficiarioscalculo.ClientWidth) then + begin + clb_beneficiarioscalculo.ScrollWidth := nMaxWidth; + end; + + if marcou then + begin + queryListaTitulos.SQL.Clear; + queryListaTitulos.SQL.Text := + 'select * from (select * from chg_titulos where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + + ') where (tp_situacao = ''A'' or tp_situacao = ''AC'') and' + + '(id_empresa = ' + dtmSystem.tblCHGEmpresaID_EMPRESA.AsString + ')' + + ' order by DT_VENCIMENTO, VL_TITULO'; + queryListaTitulos.Open; + queryListaTitulos.First; + + lv_titulos.Clear; + // queryListaTitulos.DisableControls; + while not queryListaTitulos.Eof do + begin + dtmSystem.tblFaixas.Filter := '(DT_INICIO < ' + + queryListaTitulosDT_ATRASO.AsString + ')and(DT_FINAL > ' + + queryListaTitulosDT_ATRASO.AsString + ')'; + dtmSystem.tblFaixas.Filtered := True; + dtmSystem.tblFaixas.Open; + dtmSystem.tblPoliticas.Open; + dtmSystem.tblPoliticas.Locate('ID_POLITICA', + dtmSystem.tblFaixasID_POLITICA.AsString, []); + with lv_titulos.Items.Add do + begin + SubItems.Add(queryListaTitulos.FieldByName('NOME_EMPRESA').AsString); + SubItems.Add(queryListaTitulos.FieldByName('TX_PRODUTO').AsString); + SubItems.Add(queryListaTitulos.FieldByName('DT_VENCIMENTO').AsString); + SubItems.Add(CurrToStrF(queryListaTitulos.FieldByName('VL_TITULO') + .AsCurrency, ffCurrency, 2, dtmSystem.CusFmt)); + SubItems.Add(queryListaTitulos.FieldByName('CD_DEVEDOR').AsString); + SubItems.Add(queryListaTitulos.FieldByName('NR_PARCELAS').AsString); + SubItems.Add(queryListaTitulos.FieldByName('DT_ENTRADA').AsString); + end; + lv_titulos.Column[0].Alignment := TAlignment.taCenter; + dtmSystem.tblFaixas.Filtered := false; + queryListaTitulos.Next; + end; + end; + + // queryListaTitulos.First; + // queryListaTitulos.EnableControls; + edt_nrparcelas.Text := '0'; + +end; + +procedure TcadDevedores.ACBrCEP1BuscaEfetuada(Sender: TObject); +var + i: Integer; +begin + + // resultado da busca de CEP + for i := 0 to ACBrCEP1.Enderecos.Count - 1 do + begin + dbedt_logradouro.Text := ACBrCEP1.Enderecos[i].Tipo_Logradouro + ' ' + + ACBrCEP1.Enderecos[i].Logradouro; + dbedt_comp.Text := ACBrCEP1.Enderecos[i].Complemento; + dbedt_bairro.Text := ACBrCEP1.Enderecos[i].Bairro; + end; +end; + +procedure TcadDevedores.dbcbx_tpchequeClick(Sender: TObject); +begin + pnl_cheque.Enabled := dbcbx_tpcheque.Checked; +end; + +procedure TcadDevedores.dbedt_cepKeyPress(Sender: TObject; var Key: Char); +begin + + // faz a busca por CEP de pressionar enter no edit de CEP + if (Key = #13) then + begin + ACBrCEP1.BuscarPorCEP(dbedt_cep.Text); + end; +end; + +procedure TcadDevedores.dbedt_cpfcnpjKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if dtmSystem.tblDevedoresTP_CLIENTE.AsString = '' then + begin + MessageDlg('Por favor escolha o tipo de devedor.', mtWarning, [mbOK], 0); + Key := #0; + end; + if (dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'F') then + begin + if not(Key in [#8, '0' .. '9', '.', '-']) then + begin + Key := #0; + end; + end; + if (dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'J') then + begin + if not(Key in [#8, '0' .. '9', '.', '-', '/']) then + begin + Key := #0; + end; + end; +end; + +procedure TcadDevedores.dbgrd_enderecosDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblEnderecos.FieldByName('TP_ATIVO').AsString, + ['S', 'N']) of + 0: + dbgrd_enderecos.Canvas.Brush.Color := clGreen; + 1: + dbgrd_enderecos.Canvas.Brush.Color := $0000FF; + end; + // end; + dbgrd_enderecos.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TcadDevedores.dbgrd_enderecosTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblEnderecos, Column); +end; + +procedure TcadDevedores.dbgrd_historicoDblClick(Sender: TObject); +begin + // if dbgrd_historico.SelectedIndex = 2 then + // begin + // with TfrmMemoBox.Create(self) do + // begin + // Show; + // end; + // end; +end; + +procedure TcadDevedores.dbgrd_historicoTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblHistorico, Column); +end; + +procedure TcadDevedores.dbgrd_listtitulosTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(queryListaTitulos, Column); +end; + +procedure TcadDevedores.dbgrd_providenciasDblClick(Sender: TObject); +var + pt: TPoint; + coord: TGridCoord; + clickheader: Integer; +begin + pt := dbgrd_providencias.ScreenToClient(Mouse.CursorPos); + coord := dbgrd_providencias.MouseCoord(pt.X, pt.Y); + clickheader := coord.Y; + if clickheader > 0 then + begin + if LeftStr(mb_fechamento.lines[mb_fechamento.lines.Count - 1], 3) = 'Pro' + then + begin + mb_fechamento.lines[mb_fechamento.lines.Count - 1] := + 'Providncia tomada: ' + dtmSystem.tblProvidenciasTX_NOME. + AsString + '.'; + end + else + begin + mb_fechamento.lines.Add('Providncia tomada: ' + + dtmSystem.tblProvidenciasTX_NOME.AsString + '.'); + end; + edt_prov.Text := dtmSystem.tblProvidenciasTX_NOME.AsString; + // if dtmSystem.tblProvidenciasID_PROVIDENCIA.AsInteger = 1 then + // begin + // dtp_diaagendamento.Enabled := true; + // dtp_horaagendamento.Enabled := true; + // dblucb_cobradoragendar.Enabled := true; + // end + // else + // begin + // dtp_diaagendamento.Enabled := false; + // dtp_horaagendamento.Enabled := false; + // dblucb_cobradoragendar.Enabled := false; + // end; + end; +end; + +procedure TcadDevedores.dbgrd_resumohistTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblHistorico, Column); +end; + +procedure TcadDevedores.dbgrd_telDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblTelefones.FieldByName('TP_ATIVO').AsString, + ['S', 'N']) of + 0: + dbgrd_tel.Canvas.Brush.Color := clGreen; + 1: + dbgrd_tel.Canvas.Brush.Color := $0000FF; + end; + // end; + dbgrd_tel.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TcadDevedores.dbgrd_telTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblTelefones, Column); +end; + +procedure TcadDevedores.dbgrd_titCellClick(Column: TColumn); +var + i: Integer; +begin + +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); +// if dtmSystem.tblTitulosID_EMPRESA.AsString = dtmSystem. +// tblCHGEmpresaID_EMPRESA.AsString then +// begin +// clb_empresas.Checked[i] := True; +// // clb_empresas.Selected[i] := True; +// end +// else +// begin +// clb_empresas.Checked[i] := false; +// // clb_empresas.Selected[i] := false; +// end; +// end; +end; + +procedure TcadDevedores.dbgrd_titDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + + case AnsiIndexStr(dtmSystem.tblTitulos.FieldByName('TP_SITUACAO').AsString, + ['A', 'AC', 'AB', 'AJ', 'B', 'QC', 'QB']) of + 0: + dbgrd_tit.Canvas.Brush.Color := clWhite; + 1: + dbgrd_tit.Canvas.Brush.Color := $0000D7FF; + 2: + dbgrd_tit.Canvas.Brush.Color := $002FFFAD; + 3: + dbgrd_tit.Canvas.Brush.Color := clMoneyGreen; + 4: + dbgrd_tit.Canvas.Brush.Color := clRed; + 5: + dbgrd_tit.Canvas.Brush.Color := $00EBCE87; + 6: + dbgrd_tit.Canvas.Brush.Color := $00E16941; + end; + // end; + dbgrd_tit.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TcadDevedores.dbgrd_titMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +var + Cell: TGridCoord; +begin + + Cell := dbgrd_tit.MouseCoord(X, Y); + // if cell.Y > 0 then + // begin + // dbgrd_tit.Hint := 'AAAAAAA'; + // end else + // begin + // dbgrd_tit.Hint := ''; + // end; +end; + +procedure TcadDevedores.dbgrd_titTitleClick(Column: TColumn); +begin + inherited; + dtmSystem.OrganizaPorColuna(dtmSystem.tblTitulos, Column); +end; + +procedure TcadDevedores.dbrg_tipotelClick(Sender: TObject); +begin + inherited; + if dbrg_tipotel.ItemIndex = 1 then + begin + DBRadioGroup1.Enabled := True; + end + else + begin + DBRadioGroup1.Enabled := false; + DBRadioGroup1.ItemIndex := -1; + end; +end; + +procedure TcadDevedores.dtp_atrasorecalcChange(Sender: TObject); +begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.dtp_diaagendamentoChange(Sender: TObject); +var + i: Integer; +begin + if pcClientes.ActivePageIndex = 6 then + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'Foi agendado para o dia') then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + dia_agendado, FormatDateTime('dd/mm/yyyy', dtp_diaagendamento.Date), + [rfReplaceAll, rfIgnoreCase]); + end; + dia_agendado := FormatDateTime('dd/mm/yyyy', dtp_diaagendamento.Date); + end; +end; + +procedure TcadDevedores.dtp_horaagendamentoChange(Sender: TObject); +var + i: Integer; +begin + if pcClientes.ActivePageIndex = 6 then + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], hora_agendado) then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + hora_agendado, FormatDateTime('t', dtp_horaagendamento.Date), + [rfReplaceAll, rfIgnoreCase]); + end; + hora_agendado := FormatDateTime('t', dtp_horaagendamento.Date); + end; +end; + +procedure TcadDevedores.dtsCidadesDataChange(Sender: TObject; Field: TField); +begin + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.keyvalue := dtmSystem.tblEnderecosID_CIDADE.AsVariant; + end; +end; + +procedure TcadDevedores.dtsCobradorDataChange(Sender: TObject; Field: TField); +var + i: Integer; +begin + if pcClientes.ActivePageIndex = 6 then + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'para o cobrador') then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + nome_cobrador, queryCobradoresTX_NOME.AsString, + [rfReplaceAll, rfIgnoreCase]); + nome_cobrador := queryCobradoresTX_NOME.AsString; + end; + end; +end; + +procedure TcadDevedores.dtsDBDataChange(Sender: TObject; Field: TField); +var + new_id: Integer; + i: Integer; +begin + // seta que valor vai ser mostrado no edit + with dtmSystem do + begin + if tblDevedoresTP_CLIENTE.AsString = 'F' then + begin + dbedt_cpfcnpj.DataField := 'CD_CPF'; + end; + if tblDevedoresTP_CLIENTE.AsString = 'J' then + begin + dbedt_cpfcnpj.DataField := 'CD_CNPJ'; + end; + end; + + // stbStatus.Panels[0].Text := 'Entradas: ' + + // inttostr(dtsDB.DataSet.RecordCount) + '.'; + + if dtmSystem.tblDevedoresDT_NASC.AsString <> '' then + begin + lbl_idade.Caption := 'Idade: ' + + inttostr(CalculaIdade(dtmSystem.tblDevedoresDT_NASC.AsDateTime, Date)); + end + else + begin + lbl_idade.Caption := 'Idade: '; + end; + + new_id := dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + if (old_id <> new_id) and ((self.Active) or (importou)) and + not(dtsDB.State in [dsInsert]) then + begin + id_emp_calc := -1; + for i := 0 to Length(ids_tits_calc) - 1 do + begin + ids_tits_calc[i] := false; + end; + btn_protocolo.Enabled := True; + edt_protocolo.Text := ''; + edt_protocolo1.Text := ''; + // cb_agendahist.Checked := false; + dtp_agendadatahist.Enabled := false; + // dtp_agendadatahist.Date := Date; + dtp_agendahorahist.Enabled := false; + // dtp_agendahorahist.Time := Timeof(Now); + dblucb_agendacobhist.Enabled := false; + cb_agendar.Checked := false; + importou := false; + dia_agendado := '__/__/____'; + hora_agendado := '__:__'; + nome_cobrador := '__________'; + old_id := new_id; + if qryConsulta.Connection = nil then + // BACALHAU, NO TEM EXPLICAO. S FUNCIONA. + begin + exit; + end; + old_id_tit := -1; + clb_beneficiarioscalculo.Clear; + + if (dtmSystem.tblDevedores.RecordCount > 0) and + (not(dtsDB.State in [dsInsert])) then + begin + qryConsulta.SQL.Clear; + qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + '(select id_empresa from chg_titulos' + + ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + + if not(qryConsulta.Active) then + begin + qryConsulta.Open; + end; + qryConsulta.First; + setlength(id_emps_dev, qryConsulta.RecordCount); + while not qryConsulta.Eof do + begin + clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + .AsString); + id_emps_dev[qryConsulta.RecNo - 1] := + qryConsulta.FieldByName('ID_EMPRESA').AsInteger; + qryConsulta.Next; + end; + end; + pcDescontos.TabIndex := 0; + end; +end; + +procedure TcadDevedores.dtsDBStateChange(Sender: TObject); +begin + pnl_devedores.Enabled := (dtsDB.State in [dsEdit, dsInsert]); + + navEmail.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + navenderecos.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + navtelefones.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + navtitulos.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + navHistorico.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + tabCalculos.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); +end; + +procedure TcadDevedores.dtsEmailStateChange(Sender: TObject); +begin + pnl_email.Enabled := (dtsEmail.State in [dsInsert, dsEdit]); + navPrincipal.Enabled := not(dtsEmail.State in [dsInsert, dsEdit]); + navenderecos.Enabled := not(dtsEmail.State in [dsInsert, dsEdit]); + navtelefones.Enabled := not(dtsEmail.State in [dsInsert, dsEdit]); + navtitulos.Enabled := not(dtsEmail.State in [dsInsert, dsEdit]); + navHistorico.Enabled := not(dtsEmail.State in [dsInsert, dsEdit]); +end; + +procedure TcadDevedores.dtsEnderecosDataChange(Sender: TObject; Field: TField); +begin + if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then + begin + dblucmbox_uf.keyvalue := dtmSystem.tblEstadosID_ESTADO.AsVariant; + end; + + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.keyvalue := dtmSystem.tblCidadesID_CIDADE.AsVariant; + end; +end; + +procedure TcadDevedores.dtsEnderecosStateChange(Sender: TObject); +begin + inherited; + Panel8.Enabled := dtsEnderecos.State in [dsEdit, dsInsert]; + navEmail.Enabled := not(dtsEnderecos.State in [dsEdit, dsInsert]); + navPrincipal.Enabled := not(dtsEnderecos.State in [dsEdit, dsInsert]); + navtelefones.Enabled := not(dtsEnderecos.State in [dsEdit, dsInsert]); + navtitulos.Enabled := not(dtsEnderecos.State in [dsEdit, dsInsert]); + navHistorico.Enabled := not(dtsEnderecos.State in [dsEdit, dsInsert]); + tabCalculos.Enabled := not(dtsEnderecos.State in [dsEdit, dsInsert]); +end; + +procedure TcadDevedores.dtsHistoricoStateChange(Sender: TObject); +begin + inherited; + dbgrd_historico.ReadOnly := dtsHistorico.State in [dsEdit, dsInsert]; + btntelefones.Enabled := dtsHistorico.State in [dsEdit, dsInsert]; + dbmemo_box.ReadOnly := not(dtsHistorico.State in [dsInsert, dsEdit]); + dblucb_providencia.Enabled := dtsHistorico.State in [dsEdit, dsInsert]; + navPrincipal.Enabled := not(dtsHistorico.State in [dsEdit, dsInsert]); + navEmail.Enabled := not(dtsHistorico.State in [dsEdit, dsInsert]); + navenderecos.Enabled := not(dtsHistorico.State in [dsEdit, dsInsert]); + navtelefones.Enabled := not(dtsHistorico.State in [dsEdit, dsInsert]); + navtitulos.Enabled := not(dtsHistorico.State in [dsEdit, dsInsert]); + tabCalculos.Enabled := not(dtsHistorico.State in [dsEdit, dsInsert]); + if dtsHistorico.State in [dsInsert] then + begin + dtsHistorico.DataSet.FieldByName('CD_PROTOCOLO').AsString := + dtmSystem.gerarProtocolo(dtsDB.DataSet.FieldByName('ID_DEVEDOR') + .AsString); + edt_protocolo.Text := gerar_protocolo + (dtmSystem.tblDevedoresID_DEVEDOR.AsString); + edt_protocolo1.Text := edt_protocolo.Text; + btn_protocolo.Enabled := false; + end; +end; + +procedure TcadDevedores.dtsTelefonesDataChange(Sender: TObject; Field: TField); +begin + inherited; + if dbrg_tipotel.ItemIndex = 1 then + begin + DBRadioGroup1.Enabled := True; + end + else + begin + DBRadioGroup1.Enabled := false; + DBRadioGroup1.ItemIndex := -1; + end; + +end; + +procedure TcadDevedores.dtsTelefonesStateChange(Sender: TObject); +begin + inherited; + Panel9.Enabled := dtsTelefones.State in [dsEdit, dsInsert]; + navPrincipal.Enabled := not(dtsTelefones.State in [dsEdit, dsInsert]); + navEmail.Enabled := not(dtsTelefones.State in [dsEdit, dsInsert]); + navenderecos.Enabled := not(dtsTelefones.State in [dsEdit, dsInsert]); + navtitulos.Enabled := not(dtsTelefones.State in [dsEdit, dsInsert]); + navHistorico.Enabled := not(dtsTelefones.State in [dsEdit, dsInsert]); + tabCalculos.Enabled := not(dtsTelefones.State in [dsEdit, dsInsert]); +end; + +procedure TcadDevedores.dtsTitulosDataChange(Sender: TObject; Field: TField); +var + i, new_id_tit: Integer; +begin + pnl_cheque.Enabled := dbcbx_tpcheque.Checked; + new_id_tit := dtmSystem.tblTitulosID_TITULO.AsInteger; + if old_id_tit <> new_id_tit then + begin + old_id_tit := new_id_tit; +// clb_empresas.Items.beginupdate; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.Checked[i] := false; +// // clb_empresas.Selected[i] := false; +// end; +// clb_empresas.Items.EndUpdate; +// if dtmSystem.tblTitulosID_EMPRESA.AsString = '' then +// begin +// selected_id_chg_empresa := -1; +// end +// else +// begin +// dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', +// dtmSystem.tblTitulosID_EMPRESA.AsInteger, []); +// selected_id_chg_empresa := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; +// if clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 +// then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString)] := True; +// // clb_empresas.Selected +// // [clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME. +// // AsString)] := True; +// end; +// end; +// +// if dtsTitulos.DataSet.State in [dsBrowse] then +// begin +// // zroQueryAcordos.SQL.Text := +// // 'select * from sys_acordos where id_original = ' + +// // dtsTitulos.DataSet.FieldByName('id_titulo').AsString; +// // zroQueryAcordos.Open; +// end; + + end; + +// if not(dtsTitulos.DataSet.State in [dsEdit, dsInsert]) then +// begin +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.ItemEnabled[i] := false; +// end; +// end +// else +// begin +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.ItemEnabled[i] := True; +// end; +// end; + +end; + +procedure TcadDevedores.dtsTitulosStateChange(Sender: TObject); +begin + inherited; + Panel10.Enabled := dtsTitulos.State in [dsEdit, dsInsert]; + // dbmem_titobs.Enabled := dtsTitulos.State in [dsEdit, dsInsert]; + dbmem_titobs.ReadOnly := not(dtsTitulos.State in [dsEdit, dsInsert]); + navPrincipal.Enabled := not(dtsTitulos.State in [dsEdit, dsInsert]); + navEmail.Enabled := not(dtsTitulos.State in [dsEdit, dsInsert]); + navenderecos.Enabled := not(dtsTitulos.State in [dsEdit, dsInsert]); + navtelefones.Enabled := not(dtsTitulos.State in [dsEdit, dsInsert]); + navHistorico.Enabled := not(dtsTitulos.State in [dsEdit, dsInsert]); + tabCalculos.Enabled := not(dtsTitulos.State in [dsEdit, dsInsert]); +end; + +procedure TcadDevedores.dtsUFDataChange(Sender: TObject; Field: TField); +begin + + if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then + begin + dblucmbox_uf.keyvalue := dtmSystem.tblEstadosID_ESTADO.AsVariant; + end; + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.keyvalue := dtmSystem.tblCidadesID_CIDADE.AsVariant; + end; + +end; + +procedure TcadDevedores.edt_excjurosparcelaChange(Sender: TObject); +begin + if Length(edt_excjurosparcela.Text) < 1 then + begin + edt_excjurosparcela.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.edt_excjurosparcelaKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_excjurosparcela.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_corparChange(Sender: TObject); +begin + inherited; + try + if (strtofloat(edt_corpar.Text) > -1) and (queryListaTitulos.Active) and + (edt_corpar.Text <> '') then + begin + if strtofloat(edt_corpar.Text) > + strtoint(copy(lbl_maxparcor.Caption, 6, Length(lbl_maxparcor.Caption) - + 1 - 5)) then + begin + edt_corpar.Text := copy(lbl_maxparcor.Caption, 6, + Length(lbl_maxparcor.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if ud_corpar.Max = 0 then + begin + edt_corpar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_corparKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_corpar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_corquitarChange(Sender: TObject); +begin + inherited; + try + if (strtofloat(edt_corquitar.Text) > -1) and (queryListaTitulos.Active) and + (edt_corquitar.Text <> '') then + begin + if strtofloat(edt_corquitar.Text) > + strtoint(copy(lbl_maxquitcor.Caption, 6, Length(lbl_maxquitcor.Caption) + - 1 - 5)) then + begin + edt_corquitar.Text := copy(lbl_maxquitcor.Caption, 6, + Length(lbl_maxquitcor.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if ud_corquitar.Max = 0 then + begin + edt_corquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_corquitarKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_corquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_excentradaChange(Sender: TObject); +begin + if Length(edt_excentrada.Text) < 1 then + begin + edt_excentrada.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.edt_excentradaKeyPress(Sender: TObject; var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_excentrada.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_fontememoExit(Sender: TObject); +begin + if strtoint(edt_fontememo.Text) < 8 then + begin + edt_fontememo.Text := '8'; + mb_fechamento.Font.size := 8; + end; + if strtoint(edt_fontememo.Text) > 72 then + begin + edt_fontememo.Text := '72'; + mb_fechamento.Font.size := 72; + end; + + mb_fechamento.Font.size := strtoint(edt_fontememo.Text); +end; + +procedure TcadDevedores.edt_fontememoKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = vkReturn then + begin + mb_fechamento.SetFocus; + end; +end; + +procedure TcadDevedores.edt_indparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_indparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_indparcelas.Text <> '') then + begin + if strtofloat(edt_indparcelas.Text) > + strtoint(copy(lbl_maxindpar.Caption, 6, Length(lbl_maxindpar.Caption) - + 1 - 5)) then + begin + edt_indparcelas.Text := copy(lbl_maxindpar.Caption, 6, + Length(lbl_maxindpar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_encparcelas.Max = 0 then + begin + edt_indparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_indparcelasKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_indparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_indquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_indquitar.Text) > -1) and (queryListaTitulos.Active) and + (edt_indquitar.Text <> '') then + begin + if strtofloat(edt_indquitar.Text) > + strtoint(copy(lbl_maxindquit.Caption, 6, Length(lbl_maxindquit.Caption) + - 1 - 5)) then + begin + edt_indquitar.Text := copy(lbl_maxindquit.Caption, 6, + Length(lbl_maxindquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_encquitar.Max = 0 then + begin + edt_indquitar.Text := '0'; + exit; + end; + except + + end; + +end; + +procedure TcadDevedores.edt_indquitarKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_indquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_jurosparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_jurosparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_jurosparcelas.Text <> '') then + begin + if strtofloat(edt_jurosparcelas.Text) > + strtoint(copy(lbl_maxjurospar.Caption, 6, + Length(lbl_maxjurospar.Caption) - 1 - 5)) then + begin + edt_jurosparcelas.Text := copy(lbl_maxjurospar.Caption, 6, + Length(lbl_maxjurospar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_jurosparcelas.Max = 0 then + begin + edt_jurosparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_jurosparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_jurosparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_jurosquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_jurosquitar.Text) > -1) and (queryListaTitulos.Active) + and (edt_jurosquitar.Text <> '') then + begin + if strtofloat(edt_jurosquitar.Text) > + strtoint(copy(lbl_maxjurosquit.Caption, 6, + Length(lbl_maxjurosquit.Caption) - 1 - 5)) then + begin + edt_jurosquitar.Text := copy(lbl_maxjurosquit.Caption, 6, + Length(lbl_maxjurosquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_jurosquitar.Max = 0 then + begin + edt_jurosquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_jurosquitarKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_jurosquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_multasparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_multasparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_multasparcelas.Text <> '') then + begin + if strtofloat(edt_multasparcelas.Text) > + strtoint(copy(lbl_maxmultapar.Caption, 6, + Length(lbl_maxmultapar.Caption) - 1 - 5)) then + begin + edt_multasparcelas.Text := copy(lbl_maxmultapar.Caption, 6, + Length(lbl_maxmultapar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_multasparcelas.Max = 0 then + begin + edt_multasparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_multasparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_multasparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_multasquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_multasquitar.Text) > -1) and (queryListaTitulos.Active) + and (edt_multasquitar.Text <> '') then + begin + if strtofloat(edt_multasquitar.Text) > + strtoint(copy(lbl_maxmultaquit.Caption, 6, + Length(lbl_maxmultaquit.Caption) - 1 - 5)) then + begin + edt_multasquitar.Text := copy(lbl_maxmultaquit.Caption, 6, + Length(lbl_maxmultaquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_multasquitar.Max = 0 then + begin + edt_multasquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_multasquitarKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_multasquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_nrparcelasChange(Sender: TObject); +begin + try + if (strtoint(edt_nrparcelas.Text) > -1) and (queryListaTitulos.Active) and + (edt_nrparcelas.Text <> '') then + begin + if strtoint(edt_nrparcelas.Text) > up_nrparcelas.Max then + begin + edt_nrparcelas.Text := inttostr(up_nrparcelas.Max); + end; + if strtoint(edt_nrparcelas.Text) < 0 then + begin + edt_nrparcelas.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if (cb_descquit.Checked) and not(ficha_dev) then + begin + edt_nrparcelas.Text := '0'; + end; + { if cb_formapag.ItemIndex = 1 then + begin + edt_nrparcelas.Text := '0'; + end; } + // Att_campos; + // CalcValorParcelas; + except + + end; +end; + +procedure TcadDevedores.edt_nrparcelasExit(Sender: TObject); +begin + if edt_nrparcelas.Text = '' then + begin + edt_nrparcelas.Text := '0'; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; +end; + +procedure TcadDevedores.edt_prentradaChange(Sender: TObject); +begin + try + if (strtoint(edt_prentrada.Text) > -1) and (queryListaTitulos.Active) and + (edt_prentrada.Text <> '') then + begin + if strtoint(edt_prentrada.Text) > + strtoint(copy(lbl_maxentrada.Caption, 6, Length(lbl_maxentrada.Caption) + - 1 - 5)) then + begin + edt_prentrada.Text := copy(lbl_maxentrada.Caption, 6, + Length(lbl_maxentrada.Caption) - 1 - 5); + end; + if strtoint(edt_prentrada.Text) < + strtoint(copy(lbl_minentrada.Caption, 6, Length(lbl_minentrada.Caption) + - 1 - 5)) then + begin + edt_prentrada.Text := copy(lbl_minentrada.Caption, 6, + Length(lbl_minentrada.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if ud_entrada.Max = 0 then + begin + edt_prentrada.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_principalparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_principalparcelas.Text) > -1) and + (queryListaTitulos.Active) and (edt_principalparcelas.Text <> '') then + begin + if strtofloat(edt_principalparcelas.Text) > + strtoint(copy(lbl_maxprinpar.Caption, 6, Length(lbl_maxprinpar.Caption) + - 1 - 5)) then + begin + edt_principalparcelas.Text := copy(lbl_maxprinpar.Caption, 6, + Length(lbl_maxprinpar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_principalparcelas.Max = 0 then + begin + edt_principalparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_principalparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_principalparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_principalquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_principalquitar.Text) > -1) and + (queryListaTitulos.Active) and (edt_principalquitar.Text <> '') then + begin + if strtofloat(edt_principalquitar.Text) > + strtoint(copy(lbl_maxprinquit.Caption, 6, + Length(lbl_maxprinquit.Caption) - 1 - 5)) then + begin + edt_principalquitar.Text := copy(lbl_maxprinquit.Caption, 6, + Length(lbl_maxprinquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_principalquitar.Max = 0 then + begin + edt_principalquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TcadDevedores.edt_principalquitarKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_principalquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadDevedores.edt_txextraChange(Sender: TObject); +begin + inherited; + if Length(edt_txextra.Text) < 1 then + begin + edt_txextra.Text := '0'; + end; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.edt_txextraKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_txextra.Text) > 0) then + begin + Key := #0; + end; +end; + +// function TcadDevedores.EscreveTitulos: TStringDynArray; +// var +// Count, i, j: Integer; +// tx_titulo, vl_titulo, id_titulo: array of string; +// begin +// Count := 0; +// // queryListaTitulos.DisableControls; +// for i := 0 to lv_titulos.Items.Count - 1 do +// begin +// if lv_titulos.Items.Item[i].Checked then +// begin +// Count := Count + 1; +// dtmSystem.tblTitulos.Locate('ID_TITULO', +// queryListaTitulosID_TITULO.AsString, []); +// setlength(tx_titulo, Count); +// setlength(id_titulo, Count); +// setlength(vl_titulo, Count); +// queryListaTitulos.RecNo := i + 1; +// tx_titulo[Count - 1] := queryListaTitulosTX_PRODUTO.AsString; +// id_titulo[Count - 1] := queryListaTitulosID_TITULO.AsString; +// vl_titulo[Count - 1] := CurrToStrF(queryListaTitulosVL_TITULO.AsCurrency, +// ffCurrency, 2, dtmSystem.CusFmt); +// +// end; +// end; +// // queryListaTitulos.EnableControls; +// setlength(Result, Count); +// for j := 0 to Count - 1 do +// begin +// Result[j] := tx_titulo[j] + ' (ID:' + id_titulo[j] + +// ') no valor nominal de ' + vl_titulo[j] + '.'; +// end; +// end; + +function TcadDevedores.FindControlAtPos(AScreenPos: TPoint): TControl; +var + i: Integer; + f, m: TForm; + p: TPoint; + r: TRect; +begin + Result := nil; + for i := Screen.FormCount - 1 downto 0 do + begin + f := Screen.Forms[i]; + if f.Visible and (f.Parent = nil) and (f.FormStyle <> fsMDIChild) and + TRect.Create(f.left, f.Top, f.left + f.Width, f.Top + f.Height) + .Contains(AScreenPos) then + Result := f; + end; + Result := FindSubcontrolAtPos(Result, AScreenPos, AScreenPos); + if (Result is TForm) and (TForm(Result).ClientHandle <> 0) then + begin + Winapi.Windows.GetWindowRect(TForm(Result).ClientHandle, r); + p := TPoint.Create(AScreenPos.X - r.left, AScreenPos.Y - r.Top); + m := nil; + for i := TForm(Result).MDIChildCount - 1 downto 0 do + begin + f := TForm(Result).MDIChildren[i]; + if TRect.Create(f.left, f.Top, f.left + f.Width, f.Top + f.Height) + .Contains(p) then + m := f; + end; + if m <> nil then + Result := FindSubcontrolAtPos(m, AScreenPos, p); + end; +end; + +function TcadDevedores.FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; +var + i: Integer; + C: TControl; +begin + Result := nil; + C := AControl; + if (C = nil) or not C.Visible or not TRect.Create(C.left, C.Top, + C.left + C.Width, C.Top + C.Height).Contains(AClientPos) then + exit; + Result := AControl; + if AControl is TWinControl then + for i := 0 to TWinControl(AControl).ControlCount - 1 do + begin + C := FindSubcontrolAtPos(TWinControl(AControl).Controls[i], AScreenPos, + AControl.ScreenToClient(AScreenPos)); + if C <> nil then + Result := C; + end; +end; + +procedure TcadDevedores.FormClose(Sender: TObject; var Action: TCloseAction); +// var +// i: Word; +// Result: Boolean; +begin + // inherited; + // if MessageDlg + // ('Voc est prestes a fechar um acionamento em andamento. Alteraes neste devedor podem no ser salvas. Deseja continuar?', + // mtWarning, mbYesNo, 0) = mrNo then + // begin + // abort; + // end; + queryCobradores.Close; + { with dtmSystem do + begin + Result := false; + for i := 0 to Screen.FormCount - 1 do + if Screen.Forms[i] = frmEfetuarCobranca then + begin + Result := True; + with dtmSystem do + begin + if not tblDevedores.Active then + begin + tblDevedores.Open; + end; + if not tblEnderecos.Active then + begin + tblEnderecos.Open; + end; + if not tblTelefones.Active then + begin + tblTelefones.Open; + end; + if not tblTitulos.Active then + begin + tblTitulos.Open; + end; + if not tblProvidencias.Active then + begin + tblProvidencias.Open; + end; + if not tblHistorico.Active then + begin + tblHistorico.Open; + end; + if not tblCobCampanha.Active then + begin + tblCobCampanha.Open; + end; + if not tblCampanhaDevedores.Active then + begin + tblCampanhaDevedores.Open; + end; + if not tblAgenda.Active then + begin + tblAgenda.Open; + end; + if not tblEmpresa.Active then + begin + tblEmpresa.Open; + end; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end; + if not tblIndicadorFinanceiro.Active then + begin + tblIndicadorFinanceiro.Open; + end; + break; + end; + end; + if Result = false then + begin + tblDevedores.Close; + tblEnderecos.Close; + tblTelefones.Close; + tblTitulos.Close; + tblCHGEmpresa.Close; + tblHistorico.Close; + tblProvidencias.Close; + end; + end; } + if imp then + begin + frmCobranca.importar := True; + end + else + begin + frmCobranca.importar := false; + end; + Screen.Cursor := crDefault; + Action := caFree; + cadDevedores := nil; +end; + +procedure TcadDevedores.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + inherited; + if navEmail.DataSource <> nil then + if navEmail.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navtelefones.DataSource <> nil then + if navtelefones.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navenderecos.DataSource <> nil then + if navenderecos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navtitulos.DataSource <> nil then + if navtitulos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navHistorico.DataSource <> nil then + if navHistorico.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; +end; + +procedure TcadDevedores.FormCreate(Sender: TObject); +var + Pos, i: Integer; + // antes: TTime; +begin + inherited; + Screen.Cursor := crHourGlass; + Pos := 0; + old_id := -1; + ficha_dev := false; + setlength(ids_tits_calc, 0); + importou := false; + estado_db := True; + dtp_agendadatahist.Date := Date; + dtp_agendadatahist.MinDate := Date; + dtp_agendahorahist.Time := Timeof(Now); + id_emp_calc := -1; + imp := false; + if dtmSystem.id_grupo <> 1 then + begin + dbgrd_tit.Columns[8].Visible := false; + dbgrd_tit.Columns[9].Visible := false; + + lbl_dtpag.Visible := false; + lbl_dtrecibo.Visible := false; + + rdbdt_pag.Enabled := false; + rdbdt_pag.Visible := false; + rdbdt_recibo.Enabled := false; + rdbdt_recibo.Visible := false; + + DBGrid1.PopupMenu := nil; + end; + + with dtmSystem do + begin + if not tblDevedores.Active then + begin + tblDevedores.Open; + end + else + begin + tblDevedores.Refresh; + end; + if not tblEmail.Active then + begin + tblEmail.Open; + end + else + begin + tblEmail.Refresh; + end; + if not tblHistorico.Active then + begin + tblHistorico.Open; + end + else + begin + tblHistorico.Refresh; + end; + if not tblEstados.Active then + begin + tblEstados.Open; + end + else + begin + tblEstados.Refresh; + end; + if not tblCidades.Active then + begin + tblCidades.Open; + end + else + begin + tblCidades.Refresh; + end; + if not tblEnderecos.Active then + begin + tblEnderecos.Open; + end + else + begin + tblEnderecos.Refresh; + end; + if not tblTelefones.Active then + begin + tblTelefones.Open; + end + else + begin + tblTelefones.Refresh; + end; + if not tblTitulos.Active then + begin + tblTitulos.Open; + end + else + begin + tblTitulos.Refresh; + end; + if not tblProvidencias.Active then + begin + tblProvidencias.Open; + end + else + begin + tblProvidencias.Refresh; + end; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end + else + begin + tblCHGEmpresa.Refresh; + end; + if not tblPoliticas.Active then + begin + tblPoliticas.Open; + end + else + begin + tblPoliticas.Refresh; + end; + if not tblFaixas.Active then + begin + tblFaixas.Open; + end + else + begin + tblFaixas.Refresh; + end; + tblCHGEmpresa.First; + if not tblIndicadorFinanceiro.Active then + begin + tblIndicadorFinanceiro.Open; + end; + if not tblLogCampanhas.Active then + begin + tblLogCampanhas.Open; + end + else + begin + tblLogCampanhas.Refresh; + end; + // setlength(cbl_hints,pos+1); pegar do banco texto para jogar nas hints + +// while not tblCHGEmpresa.Eof do +// begin +// clb_empresas.Items.Add(tblCHGEmpresaTX_NOME.AsString); +// // cbl_hints[pos] := tblCHGEmpresaTX_CNPJ.AsString; +// if tblTitulosID_EMPRESA.AsString = tblCHGEmpresaID_EMPRESA.AsString then +// begin +// clb_empresas.Checked[Pos] := True; +// // clb_empresas.Selected[Pos] := True; +// end; +// tblCHGEmpresa.Next; +// Pos := Pos + 1; +// // setlength(cbl_hints,pos+1); +// end; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.ItemEnabled[i] := false; +// end; + // if not(tblHistorico.Active) then + // begin + // tblHistorico.Open; + // end; + end; + + // navPrincipal.Enabled := dtmSystem.VerificarPermissao('DEVCBR.01'); + // navenderecos.Enabled := dtmSystem.VerificarPermissao('DEVCBR.02'); + // navtelefones.Enabled := dtmSystem.VerificarPermissao('DEVCBR.03'); + // navtitulos.Enabled := dtmSystem.VerificarPermissao('DEVCBR.04'); + // navHistorico.Enabled := dtmSystem.VerificarPermissao('DEVCBR.06'); + SetupHackedNavigator(navPrincipal, ImageList1, 's', 2); + SetupHackedNavigator(navEmail, ImageList1, 's', 2); + SetupHackedNavigator(navenderecos, ImageList1, 's', 8); + SetupHackedNavigator(navtelefones, ImageList1, 's', 8); + SetupHackedNavigator(navtitulos, ImageList1, 's', 8); + SetupHackedNavigator(navHistorico, ImageList1, 's', 8); + + { if not(dtmSystem.VerificarPermissao('DEVCBR.06.03')) then + begin + navHistorico.VisibleButtons := navHistorico.VisibleButtons - [nbDelete]; + end; + if not(dtmSystem.VerificarPermissao('DEVCBR.06.02')) then + begin + navHistorico.VisibleButtons := navHistorico.VisibleButtons - [nbEdit]; + end; } + pnl_devedores.Enabled := false; + pnl_email.Enabled := false; + + Panel8.Enabled := false; + Panel9.Enabled := false; + Panel10.Enabled := false; + + ChecaPermissoes; + dtp_atrasorecalc.Date := Date; + + clb_beneficiarioscalculo.Clear; + pcDescontos.TabIndex := 0; + if dtsDB.DataSet.IsEmpty then + begin + dbgrd_devedoreslist.Enabled := false; + end + else + begin + dbgrd_devedoreslist.Enabled := True; + end; + + AdjustCheckListBox; + +end; + +procedure TcadDevedores.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_ESCAPE then + begin + if MessageDlg + ('Voc est prestes a fechar um acionamento em andamento. Alteraes neste devedor podem no ser salvas. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + Key := 0; + Close; + end; + if (Key = 75) and (Shift = [ssCtrl]) then + begin + // ShowMessage('Ctrl+k is pressed!'); + frmLiberaPermissao := TfrmLiberaPermissao.Create(self); + + with frmLiberaPermissao do + begin + level := 3; + string_permissoes.Add('CBR.02.01.01.01'); + string_permissoes.Add('CBR.02.01.01.01.01'); + + string_permissoes.Add('CBR.02.01.01.06'); + string_permissoes.Add('CBR.02.01.01.06.01'); + string_permissoes.Add('CBR.02.01.01.06.02'); + string_permissoes.Add('CBR.02.01.01.06.03'); + + string_permissoes.Add('CBR.02.01.01.02'); + string_permissoes.Add('CBR.02.01.01.02.01'); + string_permissoes.Add('CBR.02.01.01.02.02'); + string_permissoes.Add('CBR.02.01.01.02.03'); + + string_permissoes.Add('CBR.02.01.01.03'); + string_permissoes.Add('CBR.02.01.01.03.01'); + string_permissoes.Add('CBR.02.01.01.03.02'); + string_permissoes.Add('CBR.02.01.01.03.03'); + + string_permissoes.Add('CBR.02.01.01.04'); + string_permissoes.Add('CBR.02.01.01.04.01'); + string_permissoes.Add('CBR.02.01.01.04.02'); + string_permissoes.Add('CBR.02.01.01.04.03'); + + string_permissoes.Add('CBR.02.01.01.05'); + string_permissoes.Add('CBR.02.01.01.05.01'); + string_permissoes.Add('CBR.02.01.01.05.02'); + string_permissoes.Add('CBR.02.01.01.05.03'); + + string_permissoes.Add('CBR.02.01.02.01.01'); + string_permissoes.Add('CBR.02.01.02.01.02'); + + string_permissoes.Add('CBR.02.01.02.02'); + string_permissoes.Add('CBR.02.01.02.03'); + string_permissoes.Add('CBR.02.01.02.04'); + + ShowModal; + + if ModalResult = mrOk then + begin + case dtmSystem.cod_liberapermissao of + 0: + navPrincipal.Enabled := True; + 1: + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + + [nbDelete]; + 2: + navEmail.Enabled := True; + 3: + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbInsert]; + 4: + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbEdit]; + 5: + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbDelete]; + 6: + navenderecos.Enabled := True; + 7: + navenderecos.VisibleButtons := navenderecos.VisibleButtons + + [nbInsert]; + 8: + navenderecos.VisibleButtons := navenderecos.VisibleButtons + + [nbEdit]; + 9: + navenderecos.VisibleButtons := navenderecos.VisibleButtons + + [nbDelete]; + 10: + navtelefones.Enabled := True; + 11: + navtelefones.VisibleButtons := navtelefones.VisibleButtons + + [nbInsert]; + 12: + navtelefones.VisibleButtons := navtelefones.VisibleButtons + + [nbEdit]; + 13: + navtelefones.VisibleButtons := navtelefones.VisibleButtons + + [nbDelete]; + 14: + navtitulos.Enabled := True; + 15: + navtitulos.VisibleButtons := navtitulos.VisibleButtons + [nbInsert]; + 16: + navtitulos.VisibleButtons := navtitulos.VisibleButtons + [nbEdit]; + 17: + navtitulos.VisibleButtons := navtitulos.VisibleButtons + [nbDelete]; + 18: + navHistorico.Enabled := True; + 19: + navHistorico.VisibleButtons := navHistorico.VisibleButtons + + [nbInsert]; + 20: + navHistorico.VisibleButtons := navHistorico.VisibleButtons + + [nbEdit]; + 21: + navHistorico.VisibleButtons := navHistorico.VisibleButtons + + [nbDelete]; + 22: + tabQuitar.Enabled := True; + 23: + tabParcelar.Enabled := True; + 24: + cb_nmulta.Enabled := True; + 25: + cbx_txextra.Enabled := True; + 26: + cbx_excentrada.Enabled := True; + end; + end; + end; + + end; + // if (Key = VK_RETURN) and not(mb_fechamento.Focused) then + // begin + // Perform(WM_NEXTDLGCTL, 0, 0); + // Key := 0; + // end; +end; + +procedure TcadDevedores.FormShow(Sender: TObject); +begin + dtp_diaagendamento.Date := Date; + with dtmSystem do + begin + if tblDevedoresTP_CLIENTE.AsString = 'F' then + begin + dbedt_cpfcnpj.DataField := 'CD_CPF'; + end; + if tblDevedoresTP_CLIENTE.AsString = 'J' then + begin + dbedt_cpfcnpj.DataField := 'CD_CNPJ'; + end; + end; + + // if pesquisa <> 0 then + // begin + // dtmSystem.tblDevedores.RecNo := pesquisa; + // end; + + if dtmSystem.tblDevedores.RecordCount > 0 then + begin + + qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + '(select id_empresa from chg_titulos' + + ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + qryConsulta.Open; + qryConsulta.First; + clb_beneficiarioscalculo.Clear; + setlength(id_emps_dev, qryConsulta.RecordCount); + while not qryConsulta.Eof do + begin + clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + .AsString); + id_emps_dev[qryConsulta.RecNo - 1] := + qryConsulta.FieldByName('ID_EMPRESA').AsInteger; + qryConsulta.Next; + end; + + // clb_beneficiarioscalculo.Checked[0] := true; + // CriarLista; + + queryListaTitulos.SQL.Clear; + queryListaTitulos.SQL.Text := + 'select * from (select * from chg_titulos where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + + ') where ((tp_situacao = ''A'' or tp_situacao = ''AC''))'; + queryListaTitulos.Open; + + dia_agendado := '__/__/____'; + hora_agendado := '__:__'; + nome_cobrador := '__________'; + end; + if dtmSystem.tblUsuarios.RecordCount > 0 then + begin + queryCobradores.SQL.Text := + 'select id_usuario, tx_nome from sys_usuarios where tp_ativo = ' + + QuotedStr('S') + ' order by tx_nome'; + queryCobradores.Open; + end; + Screen.Cursor := crDefault; +end; + +function TcadDevedores.gerar_protocolo(id_devedor: string): string; +var + tamanho, i: Integer; + cd_devedor, dia, tempo: string; +begin + tempo := FormatDateTime('hhmm', Time); + dia := FormatDateTime('yyyymmdd', Date); + cd_devedor := id_devedor; + tamanho := Length(id_devedor); + for i := 0 to 7 - tamanho do + begin + cd_devedor := '0' + cd_devedor; + end; + Result := tempo + dia + cd_devedor; +end; + +procedure TcadDevedores.Importao1Click(Sender: TObject); +begin + // with TimpDevedores.Create(self) do + // begin + // ShowModal; + // // with dtmSystem do + // // begin + // // if (pcClientes.ActivePage = tabEndereco) then + // // begin + // // tblEnderecos.Open; + // // tblCidades.Open; + // // tblEstados.Open; + // // end; + // // if (pcClientes.ActivePage = tabTel) then + // // begin + // // tblTelefones.Open; + // // end; + // // if (pcClientes.ActivePage = tabTitulos) then + // // begin + // // tblCHGEmpresa.Open; + // // tblTitulos.Open; + // // end; + // // end; + // end; + imp := True; + Close; +end; + +procedure TcadDevedores.lv_titulosChange(Sender: TObject; Item: TListItem; + Change: TItemChange); +begin + // Att_campos; + // CalcValorParcelas; +end; + +procedure TcadDevedores.lv_titulosColumnClick(Sender: TObject; + Column: TListColumn); +begin + // ColumnToSort := Column.Index; + // (Sender as TCustomListView).AlphaSort; +end; + +procedure TcadDevedores.lv_titulosCompare(Sender: TObject; + Item1, Item2: TListItem; Data: Integer; var Compare: Integer); +begin + // case ColumnToSort of + // 2: Compare := CompareText(Item1.SubItems[ColumnToSort-1], Item2.SubItems[ColumnToSort-1]); + // 3: Compare := CompareDateTime(strtodate(Item1.SubItems[ColumnToSort-1]), strtodate(Item2.SubItems[ColumnToSort-1])); + // 4: Compare := CompareValue(strtofloat(Item1.SubItems[ColumnToSort-1]), strtofloat(Item2.SubItems[ColumnToSort-1])); + // 5: Compare := CompareText(Item1.SubItems[ColumnToSort-1], Item2.SubItems[ColumnToSort-1]); + // end; + +end; + +procedure TcadDevedores.lv_titulosItemChecked(Sender: TObject; Item: TListItem); +var + i, k: Integer; + Checked: Boolean; +begin + qtde_titulos := 0; + Checked := false; + k := 0; + if lv_titulos.Items.Count > 0 then + begin + queryListaTitulos.DisableControls; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + qtde_titulos := qtde_titulos + 1; + str_titulos := str_titulos + queryListaTitulosID_TITULO.AsString + ';'; + id_emp := queryListaTitulosID_EMPRESA.AsInteger; + Checked := True; + setlength(str_tit, k + 1); + str_tit[k] := queryListaTitulosID_TITULO.AsInteger; + Inc(k, 1); + end; + end; + queryListaTitulos.EnableControls; + end; + if not Checked then + begin + str_titulos := 'S/T'; + end; + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corquitar.Text := '0'; + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + edt_corpar.Text := '0'; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.mnuFichatitulosClick(Sender: TObject); +begin + + with TfrmFichaTitulos.Create(self) do + begin + + with zroqryCredores.SQL do + begin + Clear; + Add('select * from chg_empresas where id_empresa in ('); + Add('select id_empresa from chg_titulos where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + ' )'); + end; + zroqryCredores.Open; + + ShowModal; + if ModalResult = mrOk then + begin + if zroqryCredores.IsEmpty then + begin + MessageDlg('No h titulos em aberto para constatar.', mtWarning, + [mbOK], 0); + abort; + end; + relDados := TrelDados.Create(self); + with relDados do + begin + zROqry.SQL.Clear; + zROqry.SQL.Add('select'); + zROqry.SQL.Add('*'); + zROqry.SQL.Add('from chg_titulos'); + zROqry.SQL.Add('where'); + zROqry.SQL.Add('id_empresa = ' + + dtmSystem.tblCHGEmpresaID_EMPRESA.AsString); + zROqry.SQL.Add('and id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString); + if not inc_baixados then + begin + zROqry.SQL.Add('and (tp_situacao = ' + QuotedStr('A') + + ' or tp_situacao = ' + QuotedStr('AC') + ')'); + end; + // zROqry.SQL.Add('and id_titulo in (' + id_titulos + ')'); + zROqry.SQL.Add('order by dt_vencimento, vl_titulo'); + zROqry.Open; + // RLLabel1.Caption := RLLabel1.Caption + DateToStr(dtp_atrasorecalc.Date); + // RLLabel1.Left := floor(frbnd_dados.Width / 2) - + // floor(RLLabel1.Width / 2); + end; + relDados.RLReport1.Preview(); + end; + end; + +end; + +procedure TcadDevedores.mnuQuebraAcordoClick(Sender: TObject); +var + str_help: string; + i: Integer; +begin + inherited; + if MessageDlg('Deseja realmente quebrar o acordo selecionado?' + + ' Esta opo ira apenas desvincular os ttulos originais aos parcelamentos.', + mtWarning, [mbYes, mbNo], 0) = mrYes then + begin + ZReadOnlyQuery1.SQL.Text := 'SELECT * FROM SYS_ACORDOS WHERE ID_ACORDO = ' + + dtmSystem.zroQryAcordosID_ACORDO.AsString; + ZReadOnlyQuery1.Open; + ZReadOnlyQuery1.First; + str_help := 'Antes de deletar:' + sLineBreak; + while not ZReadOnlyQuery1.Eof do + begin + for i := 0 to ZReadOnlyQuery1.Fields.Count - 1 do + begin + str_help := str_help + ZReadOnlyQuery1.Fields[i].FieldName + ': ' + + ZReadOnlyQuery1.Fields[i].AsString + sLineBreak; + end; + ZReadOnlyQuery1.Next; + end; + dtmSystem.tblLog.Append; + dtmSystem.tblLogTX_TABELA.AsString := 'SYS_ACORDOS'; + dtmSystem.tblLogID_REGISTRO.AsInteger := + dtmSystem.zroQryAcordosID_ITEM.AsInteger; + dtmSystem.tblLogTX_ACAO.AsString := 'delete'; + dtmSystem.tblLogTL_ACAO.AsString := str_help; + dtmSystem.tblLog.Post; + dtmSystem.ZSQLProcessorAcordos.Script.Text := + 'DELETE FROM SYS_ACORDOS WHERE ID_ACORDO = ' + + dtmSystem.zroQryAcordosID_ACORDO.AsString; + dtmSystem.ZSQLProcessorAcordos.Execute; + dtmSystem.zroQryAcordos.Refresh; + end; +end; + +procedure TcadDevedores.mnuretirarClick(Sender: TObject); +var + i: Integer; +begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + lv_titulos.Items[i].Checked := false; + + end; + qtde_titulos := 0; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.mnu_fichahistClick(Sender: TObject); +begin + with TconfFichaHistorico.Create(self) do + begin + id_devedor := dtsDB.DataSet.FieldByName('id_devedor').AsString; + ShowModal; + end; + +end; + +procedure TcadDevedores.mnu_incluirClick(Sender: TObject); +var + i: Integer; +begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + lv_titulos.Items[i].Checked := True; + + end; + qtde_titulos := lv_titulos.Items.Count; + Att_campos; + CalcValorParcelas; +end; + +procedure TcadDevedores.navenderecosBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + // acontece sempre antes de qualquer ao do navigator + // primeiro o meu cdigo, depois o obtido pela herana + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navenderecos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + nbPost: + begin + if dbedt_logradouro.Text = '' then + begin + MessageDlg('Por favor preencha o nome da rua.', mtWarning, [mbOK], 0); + abort; + end; + if dbedt_num.Text = '' then + begin + MessageDlg('Por favor preencha um nmero para o endereo.', mtWarning, + [mbOK], 0); + abort; + end; + if dblucmbox_uf.Text = '' then + begin + MessageDlg('Por favor indique o Estado do endero.', mtWarning, + [mbOK], 0); + abort; + end; + if dblucmbox_cidade.Text = '' then + begin + MessageDlg('Por favor indique a Cidade do endereo.', mtWarning, + [mbOK], 0); + abort; + end; + // SelectNext(ActiveControl as TWinControl, True, True); + end; + + nbDelete: + begin + if navenderecos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + + try + dtsEnderecos.DataSet.Delete; + except + showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + abort; + end; + + nbCancel: + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + end; +end; + +procedure TcadDevedores.navHistoricoBeforeAction(Sender: TObject; + Button: TNavigateBtn); +var + string_helper: string; +begin + // inherited; + if Button = nbPost then + begin + if dblucb_providencia.keyvalue < 0 then + begin + MessageDlg('Por favor escolha uma providncia a ser lanada.', mtWarning, + [mbOK], 0); + abort; + end + else + begin + if dtsHistorico.State in [dsInsert] then + begin + if MessageDlg + ('Esta incluso de histrico ir retirar este devedor de qualquer agendamento previamente realizado.' + + ' Deseja continuar?', mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + with zroqryProvAgend do + begin + SQL.Clear; + SQL.Add('select * from chg_providencias where tp_forcaagenda = ' + + QuotedStr('Sim') + ' and id_providencia = ' + + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString); + Open; + end; + if (zroqryProvAgend.RecordCount = 1) and (cb_agendahist.Checked = false) + then + begin + MessageDlg + ('Esta providncia exige que voc agende o devedor. Por favor agende-o.', + mtWarning, [mbOK], 0); + abort; + end; + if cb_agendahist.Checked then + begin + if dblucb_agendacobhist.keyvalue < 0 then + begin + MessageDlg('Por favor escolha o cobrador ao qual ser agendado.', + mtWarning, [mbOK], 0); + abort; + end + else + begin + // if MessageDlg + // ('Voc est selecionando um horrio para agendamento menor que a hora atual. Por favor verifique o horrio do agendamento.', + // mtWarning, mbYesNo, 0) = mrNo then + // begin + // abort; + // end; + if (dtp_agendahorahist.Time < Timeof(Now)) and + (dtp_agendadatahist.Date <= dateof(Now)) then + begin + MessageDlg + ('Voc est selecionando um horrio para agendamento menor que a hora atual.', + mtWarning, mbYesNo, 0); + abort; + end; + end; + end; + with dtmSystem do + begin + if not(tblAgenda.Active) then + begin + tblAgenda.Open; + end; + tblAgenda.Refresh; + while tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + VarArrayOf([dtsDevedores.DataSet.FieldByName('ID_DEVEDOR') + .AsInteger, 'A']), []) do + begin + tblAgenda.Edit; + tblAgendaTP_SITUACAO.AsString := 'B'; + tblAgenda.Post; + end; + end; + if cb_agendahist.Checked then + begin + with dtmSystem do + begin + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := dblucb_agendacobhist.keyvalue; + tblAgendaID_DEVEDOR.AsInteger := + dtsDB.DataSet.FieldByName('ID_DEVEDOR').AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := dtp_agendadatahist.Date; + tblAgendaHR_AGENDADA.AsDateTime := dtp_agendahorahist.Time; + tblAgendaDT_QUE_AGENDOU.AsDateTime := Now; + tblAgendaQUEM_AGENDOU.AsInteger := dtmSystem.id_usuario; + tblAgenda.Post; + + end; + string_helper := 'Agendado para o dia ' + + DateToStr(dtp_agendadatahist.Date) + ' no horrio ' + + timetostr(dtp_agendahorahist.Time) + ' para o cobrador ' + + dblucb_agendacobhist.Text; + dtp_agendadatahist.Date := dateof(Now); + dtp_agendahorahist.Time := Timeof(Now); + // end; + end; + with dtmSystem do + begin + if not tblCampanhaDevedores.Active then + begin + tblCampanhaDevedores.Open; + end; + + qryCampanha.SQL.Clear; + qryCampanha.SQL.Text := + 'select cd.*, c.tx_nome from chg_campanhas_devedores cd left join chg_campanhas c on cd.id_campanha = c.id_campanha where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + qryCampanha.Open; + qryCampanha.First; + while not qryCampanha.Eof do + begin + tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := + qryCampanha.FieldByName('id_campanha').AsInteger; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := + qryCampanha.FieldByName('tx_nome').AsString; + tblLogCampanhasID_DEVEDOR.AsInteger := + qryCampanha.FieldByName('id_devedor').AsInteger; + tblLogCampanhasID_USUARIO.AsInteger := id_usuario; + tblLogCampanhasDT_TRANSF.AsDateTime := Now; + tblLogCampanhasTP_ACAO.AsString := 'apagou p/ agenda'; + tblLogCampanhas.Post; + qryCampanha.Next; + end; + qryCampanha.Close; + + dtmSystem.ZSQLProcessor1.Script.Text := + 'delete from chg_campanhas_devedores where id_devedor = ' + + QuotedStr(dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsString); + dtmSystem.ZSQLProcessor1.Execute; + if cb_agendahist.Checked then + begin + dbmemo_box.lines.Add(string_helper); + cb_agendahist.Checked := false; + end; + tblHistoricoID_DEVEDOR.AsInteger := + dtsDB.DataSet.FieldByName('ID_DEVEDOR').AsInteger; + tblHistoricoDT_CONTATO.AsDateTime := Now; + dtp_agendadatahist.Date := Date; + dtp_agendahorahist.Time := Timeof(Now); + dtp_diaagendamento.Date := Date; + dtp_horaagendamento.Date := Timeof(Now); + end; + end; + end; + end; + if Button = nbCancel then + begin + if MessageDlg('Deseja realmente cancelar este histrico?', mtWarning, + [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; + end; + +end; + +procedure TcadDevedores.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +var + resp: Integer; +begin + // verifica se o usurio realmente deseja remover um devedor + if Button = nbDelete then + begin + resp := MessageDlg + ('Ao remover um devedor todos os dados relacionados a ele sero apagados.' + + ' Deseja realmente realizar esta ao:', mtWarning, mbYesNo, 0); + if resp = mrNo then + begin + abort; + end + else + begin + resp := MessageDlg('Voc tem certeza absoluta disso?', mtWarning, + mbYesNo, 0); + if resp = mrNo then + begin + abort; + end + else + begin + dtmSystem.tblDevedores.Delete; + abort; + end; + end; + end; + + if Button = nbPost then + begin + if dbrgrp_tpdevedor.Value = 'F' then + begin + dtmSystem.tblDevedoresCD_CNPJ.Clear; + end; + if dbrgrp_tpdevedor.Value = 'J' then + begin + dtmSystem.tblDevedoresCD_CPF.Clear; + end; + if dbedt_cpfcnpj.Text = '' then + begin + MessageDlg + ('Por favor insira o CPF/CNPJ antes de finalizar o cadastro do Devedor.', + mtWarning, [mbOK], 0); + abort; + end; + // dtmSystem.tblDevedoresID_COBRADOR.AsString := 'teste'; //teste de erro + end; + + inherited; +end; + +procedure TcadDevedores.navtelefonesBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + // acontece sempre antes de qualquer ao do navigator + // primeiro o meu cdigo, depois o obtido pela herana + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navtelefones.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + nbPost: + begin + if dbedt_tel.Text = '' then + begin + MessageDlg('Por favor preencha um nmero para o telefone.', mtWarning, + [mbOK], 0); + abort; + end; + + try + dbedt_tel.Text := dtmSystem.FormatTelefone(dbedt_tel.Text); + except + on E: Exception do + begin + MessageDlg(E.Message, mtWarning, [mbOK], 0); + abort; + end; + end; + if dbrg_tipotel.ItemIndex = -1 then + begin + MessageDlg('Por favor escolha o tipo de telefone.', mtWarning, + [mbOK], 0); + abort; + end; + + if (Length(dbedt_tel.Text) = 10) then + begin + dbrg_tipotel.ItemIndex := 1; + end; + + if (Length(dbedt_tel.Text) = 9) then + begin + dbrg_tipotel.ItemIndex := 0; + end; + + // SelectNext(ActiveControl as TWinControl, True, True); + end; + + nbDelete: + begin + if navtelefones.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + + try + dtsTelefones.DataSet.Delete; + except + showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + abort; + end; + + nbCancel: + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + end; + +end; + +procedure TcadDevedores.navtitulosBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navtitulos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + nbPost: + begin + if dbedit_produto.Text = '' then + begin + MessageDlg('Por favor insira um nome para o ttulo.', mtWarning, + [mbOK], 0); + abort; + end; + if dbedt_vltit.Text = '' then + begin + MessageDlg('Por favor insira um valor para o ttulo.', mtWarning, + [mbOK], 0); + abort; + end; + + // for i := 0 to clb_empresas.Items.Count - 1 do + // begin + // if clb_empresas.Checked[i] then + // begin + // dtmSystem.tblCHGEmpresa.Locate('TX_NOME', + // clb_empresas.Items[i], []); +// if selected_id_chg_empresa <> -1 then +// begin +// dtmSystem.tblTitulosID_EMPRESA.AsInteger := selected_id_chg_empresa; +// end; + // dtmSystem.tblCHGEmpresaID_EMPRESA.AsString; + // end; + // end; + if DateToStr(rDBDateTimePicker1.Date) = '30/12/1899' then + begin + MessageDlg + ('Por favor selecione uma data de vencimento para o ttulo.', + mtWarning, [mbOK], 0); + abort; + end; + if dtmSystem.tblTitulosID_EMPRESA.AsString = '' then + begin + MessageDlg('Por favor indique um Credor para o ttulo.', mtWarning, + [mbOK], 0); + abort; + end; + // SelectNext(ActiveControl as TWinControl, True, True); + end; + + nbDelete: + begin + if navtitulos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + + try + dtsTitulos.DataSet.Delete; + except + showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + abort; + end; + + nbCancel: + begin + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; +// if clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME.AsString) +// ] := false; +// // clb_empresas.Selected +// // [clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME.AsString) +// // ] := false; +// end; +// dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', +// dtmSystem.tblTitulosID_EMPRESA.AsInteger, []); +// if clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString)] := True; +// // clb_empresas.Selected +// // [clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME.AsString) +// // ] := false; +// end; + end; + end; + +end; + +procedure TcadDevedores.Panel1Enter(Sender: TObject); +begin + // dbrgrp_tpdevedor.SetFocus; + // dbrgrp_tpdevedor.ItemIndex := 0; +end; + +procedure TcadDevedores.pcClientesChange(Sender: TObject); +var + // antes: TTime; + // estado_db1, estado_db2, estado_db3, estado_db4, estado_db5: Boolean; + i: Integer; +begin + // Screen.Cursor := crHourGlass; + // if (pagina <> 5) and (pagina <> 6) then + // begin + // estado_db := navPrincipal.Enabled; + // estado_db1 := navenderecos.Enabled; + // estado_db2 := navtelefones.Enabled; + // estado_db3 := navtitulos.Enabled; + // estado_db5 := navHistorico.Enabled; + // end; + if fechamento = 'fechamento' then + begin + pcClientes.TabIndex := pagina; + abort; + end; + if pcClientes.ActivePage = tabTitulos then + begin + dtmSystem.tblTitulos.SortType := stDescending; + end + else + begin + dtmSystem.tblTitulos.SortType := stAscending; + end; + if pcClientes.TabIndex = 6 then + begin + pcClientes.TabIndex := pagina; + abort; + end; + if (pagina = 5) then + begin + setlength(ids_tits_calc, queryListaTitulos.RecordCount); + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + ids_tits_calc[i] := True; + end + else + begin + ids_tits_calc[i] := false; + end; + end; + end; + if (pcClientes.TabIndex = 5) or (pcClientes.TabIndex = 6) then + begin + if (dtsDB.DataSet.State in [dsInsert, dsEdit]) or + (dtsEnderecos.DataSet.State in [dsInsert, dsEdit]) or + (dtsTelefones.DataSet.State in [dsInsert, dsEdit]) or + (dtsTitulos.DataSet.State in [dsInsert, dsEdit]) or + (dtsHistorico.DataSet.State in [dsInsert, dsEdit]) or + (dtsEmail.DataSet.State in [dsInsert, dsEdit]) then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtWarning, [mbOK], 0); + pcClientes.TabIndex := pagina; + abort; + end + else + begin + // navPrincipal.Enabled := false; + // navenderecos.Enabled := false; + // navtelefones.Enabled := false; + // navtitulos.Enabled := false; + // navHistorico.Enabled := false; + // GroupBox1.Enabled := false; + clb_beneficiarioscalculo.Clear; + + qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + '(select id_empresa from chg_titulos' + + ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + qryConsulta.Open; + qryConsulta.First; + setlength(id_emps_dev, qryConsulta.RecordCount); + while not qryConsulta.Eof do + begin + clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + .AsString); + id_emps_dev[qryConsulta.RecNo - 1] := + qryConsulta.FieldByName('ID_EMPRESA').AsInteger; + qryConsulta.Next; + end; + if id_emp_calc <> -1 then + begin + clb_beneficiarioscalculo.Checked[id_emp_calc] := True; + end; + CriarLista; + if pagina <> 5 then + begin + if Length(ids_tits_calc) > 0 then + begin + for i := 0 to Length(ids_tits_calc) - 1 do + begin + lv_titulos.Items[i].Checked := ids_tits_calc[i]; + end; + end; + end; + end; + + // estado_db := navPrincipal.Enabled; + // navPrincipal.Enabled := false; + // GroupBox1.Enabled := false; + // if (dtmSystem.tblDevedores.RecordCount > 0) { and + // (not(dtsTitulos.State in [dsInsert])) } then + // begin + // qryConsulta.SQL.Clear; + // qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + // + '(select id_empresa from chg_titulos' + + // ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + // + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + // + // if not(qryConsulta.Active) then + // begin + // qryConsulta.Open; + // end; + // qryConsulta.First; + // clb_beneficiarioscalculo.Clear; + // while not qryConsulta.Eof do + // begin + // clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + // .AsString); + // qryConsulta.Next; + // end; + // end; + end + else + begin + // if dtmSystem.VerificarPermissao('DEVCBR.01') then + // begin + // navPrincipal.Enabled := estado_db; + // navenderecos.Enabled := estado_db; + // navtelefones.Enabled := estado_db; + // navtitulos.Enabled := estado_db; + // navHistorico.Enabled := estado_db; + // // end; + // GroupBox1.Enabled := estado_db; + end; + if pcClientes.TabIndex = 5 then + begin + + end; + + pcDescontos.TabIndex := 0; + // if (pcClientes.TabIndex <> 5) and (pcClientes.TabIndex <> 6) then + // begin + // navPrincipal.Enabled := true; + // navenderecos.Enabled := true; + // navtelefones.Enabled := true; + // navtitulos.Enabled := true; + // navHistorico.Enabled := true; + // // end; + // GroupBox1.Enabled := true; + // end; + + // navPrincipal.Enabled := dtmSystem.VerificarPermissao('DEVCBR.01'); + // navenderecos.Enabled := dtmSystem.VerificarPermissao('DEVCBR.02'); + // navtelefones.Enabled := dtmSystem.VerificarPermissao('DEVCBR.03'); + // navtitulos.Enabled := dtmSystem.VerificarPermissao('DEVCBR.04'); + // navHistorico.Enabled := dtmSystem.VerificarPermissao('DEVCBR.06'); + // Screen.Cursor := crDefault; +end; + +procedure TcadDevedores.pcClientesChanging(Sender: TObject; + var AllowChange: Boolean); +begin + pagina := pcClientes.TabIndex; + +end; + +procedure TcadDevedores.PopupMenu1Popup(Sender: TObject); +var + Control: TControl; +begin + posi := Mouse.CursorPos; + Control := FindControlAtPos(posi); + cp_tel.Visible := false; + cp_telddd.Visible := false; + if Control is TDBEdit then + begin + if ((Control as TDBEdit).DataSource = dtsTelefones) and + (((Control as TDBEdit).DataField = 'NR_DDD') or + ((Control as TDBEdit).DataField = 'NR_NUMERO')) then + begin + cp_tel.Visible := True; + cp_telddd.Visible := True; + end; + end; + if (Control is TDBGrid) then + begin + if (Control as TDBGrid).DataSource = dtsTelefones then + begin + cp_tel.Visible := True; + cp_telddd.Visible := True; + end; + end; +end; + +procedure TcadDevedores.queryListaTitulosCalcFields(DataSet: TDataSet); +var + vl_corrigido, vl_cor_antes_desc, vl_nominal, vl_indices, pl_juros, pl_multa, + pl_indicador, pl_entrada, pl_encargos, regra_3, valor, juros, parcela, + par_extra, helper_indice, cred_fin, vl_cor_depois_desc: currency; + dividendo: double; + g: Integer; +begin + // inicializao de variveis + juros := 0.00; + dividendo := 0.00; + + // quantidade de dias de atraso + dtsCHGEmpresa.DataSet.Locate('ID_EMPRESA', + queryListaTitulosID_EMPRESA.AsString, []); + if not(dtsEmpresa.DataSet.Active) then + begin + dtsEmpresa.DataSet.Open; + end; + + dtsEmpresa.DataSet.First; + if dateof(dtp_atrasorecalc.Date) > + dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime) then + begin + queryListaTitulosDT_ATRASO.AsInteger := DaysBetween(dtp_atrasorecalc.Date, + queryListaTitulosDT_VENCIMENTO.AsDateTime); + end + else + begin + queryListaTitulosDT_ATRASO.AsInteger := 0; + end; + vl_nominal := queryListaTitulosVL_TITULO.AsCurrency; + queryListaTitulosVL_PRINCIPAL.AsCurrency := vl_nominal; + + with dtmSystem do + begin + // verifica se o ttulo pertence a algum atraso + dtsIndicadorFinanceiro.DataSet.Refresh; + dtsIndicadorFinanceiro.DataSet.Filter := 'ATRASO_MIN <=' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ATRASO_MAX >= ' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ID_CHG_EMPRESA = ' + + dtsCHGEmpresa.DataSet.FieldByName('ID_EMPRESA').AsString; + dtsIndicadorFinanceiro.DataSet.Filtered := True; + + if dtsIndicadorFinanceiro.DataSet.IsEmpty then + begin + + queryListaTitulosPR_INDICADOR.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_INDICADOR_FINANCEIRO').AsFloat; + // queryListaTitulosPR_INDICADOR.AsFloat := 0; + end + else + begin + queryListaTitulosPR_INDICADOR.AsFloat := + dtsIndicadorFinanceiro.DataSet.FieldByName('PR_INDICADOR').AsFloat; + end; + dtsFaixas.DataSet.Filtered := false; + dtsPoliticas.DataSet.Refresh; + dtsPoliticas.DataSet.Filter := 'DT_INICIO <= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', Date)) + ' and DT_FIM >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', Date)) + ' and ID_EMPRESA = ' + + dtsCHGEmpresa.DataSet.FieldByName('ID_EMPRESA').AsString; + + // nmero mx de parcelamento + queryListaTitulosNR_PARCELAS.AsInteger := dtsCHGEmpresa.DataSet.FieldByName + ('NR_PARCELAS').AsInteger; + dtsFaixas.DataSet.Refresh; + if tblPoliticasID_POLITICA.AsString <> '' then + begin + + dtsFaixas.DataSet.Filter := 'ATRASO_MIN <=' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ATRASO_MAX >= ' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ID_POLITICA = ' + + tblPoliticasID_POLITICA.AsString; + dtsFaixas.DataSet.Filtered := True; + if dtsFaixas.DataSet.IsEmpty then + begin + dtsFaixas.DataSet.Filtered := false; + dtsFaixas.DataSet.Filter := 'DT_MIN <=' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and DT_MAX >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and ID_POLITICA = ' + + tblPoliticasID_POLITICA.AsString; + end; + + end + else + begin + dtsFaixas.DataSet.Filter := 'DT_MIN <= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and DT_MAX >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + + ' and ID_POLITICA = 999999999'; + end; + + dtsFaixas.DataSet.Filtered := True; + + // porcentagens de cobrana e descontos + if dtsFaixas.DataSet.IsEmpty then + begin + queryListaTitulosPR_MULTA.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_MULTA').AsFloat; + queryListaTitulosPR_JUROS.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_JUROS').AsFloat; + queryListaTitulosNR_JUROS.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('NR_JUROS').AsFloat; + queryListaTitulosTP_JUROS.AsString := dtsCHGEmpresa.DataSet.FieldByName + ('TP_JUROS').AsString; + + queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_IND_FIN').AsFloat; + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_PRIN').AsFloat; + queryListaTitulosPR_QUITACAO_MULTA.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_MULTA').AsFloat; + queryListaTitulosPR_QUITACAO_JUROS.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_JUROS').AsFloat; + queryListaTitulosPR_QUITACAO_COR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_COR').AsFloat; + + queryListaTitulosPR_PARCELA_INDICADOR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_IND_FIN').AsFloat; + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_PRIN').AsFloat; + queryListaTitulosPR_PARCELA_MULTA.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_MULTA').AsFloat; + queryListaTitulosPR_PARCELA_JUROS.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_JUROS').AsFloat; + queryListaTitulosPR_PARCELA_COR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_COR').AsFloat; + end + else + begin + queryListaTitulosPR_MULTA.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_MULTA').AsFloat; + queryListaTitulosPR_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_JUROS').AsFloat; + queryListaTitulosNR_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('NR_JUROS').AsFloat; + queryListaTitulosTP_JUROS.AsString := dtsFaixas.DataSet.FieldByName + ('TP_JUROS').AsString; + + queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_IND_FIN').AsFloat; + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_PRIN').AsFloat; + queryListaTitulosPR_QUITACAO_MULTA.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_MULTA').AsFloat; + queryListaTitulosPR_QUITACAO_JUROS.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_JUROS').AsFloat; + queryListaTitulosPR_QUITACAO_COR.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_QUIT_COR').AsFloat; + + queryListaTitulosPR_PARCELA_INDICADOR.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_FINAN_IND_FIN').AsFloat; + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_FINAN_PRIN').AsFloat; + queryListaTitulosPR_PARCELA_MULTA.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_MULTA').AsFloat; + queryListaTitulosPR_PARCELA_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_JUROS').AsFloat; + queryListaTitulosPR_PARCELA_COR.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_COR').AsFloat; + end; + + // valor das parcelas dos encargos + if dateof(dtp_atrasorecalc.Date) > + dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime) then + begin + pl_indicador := vl_nominal * + (queryListaTitulosPR_INDICADOR.AsFloat / 100); + end + else + begin + pl_indicador := 0; + end; + queryListaTitulosVL_INDICADOR.AsCurrency := pl_indicador; + if queryListaTitulosTP_JUROS.AsString = 'P' then + begin + pl_juros := vl_nominal * ((queryListaTitulosPR_JUROS.AsFloat / 30) / 100) + * queryListaTitulosDT_ATRASO.AsInteger; + end + else + begin + pl_juros := queryListaTitulosNR_JUROS.AsFloat * + queryListaTitulosDT_ATRASO.AsInteger; + end; + queryListaTitulosVL_JUROS.AsCurrency := pl_juros; + + if dateof(dtp_atrasorecalc.Date) > + dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime) then + begin + pl_multa := vl_nominal * (queryListaTitulosPR_MULTA.AsFloat / 100); + end { + else + begin + pl_multa := 0; + end }; + + if ((dtp_atrasorecalc.Date) <= (queryListaTitulosDT_VENCIMENTO.AsDateTime)) + or (cb_nmulta.Checked) then + begin + pl_multa := 0; + end; + + queryListaTitulosVL_MULTA.AsCurrency := pl_multa; + + pl_encargos := pl_multa + pl_juros + pl_indicador + vl_indices; + + // valor encargos + queryListaTitulosVL_ENCARGOS.AsCurrency := pl_encargos; + + vl_corrigido := vl_nominal + pl_encargos; + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_corrigido; + vl_cor_antes_desc := vl_corrigido; + + // if cb_nmulta.Checked then + // begin + // pl_encargos := pl_encargos - pl_multa; + // vl_corrigido := vl_nominal + pl_encargos; + // queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_corrigido; + // end; + + // // valor encargos + // queryListaTitulosVL_ENCARGOS.AsCurrency := pl_encargos; + + // porcentagem da entrada + queryListaTitulosPR_ENTRADA_MIN.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_ENTRADA_MIN').AsFloat; + queryListaTitulosPR_ENTRADA_MAX.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_ENTRADA_MAX').AsFloat; + if cbx_excentrada.Checked then + begin + pl_entrada := StrToCurr(edt_excentrada.Text); + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada / qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + // entrada em porcentagem + begin + // queryListaTitulosPR_ENTRADA.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + // ('PR_ENTRADA').AsFloat; + queryListaTitulosPR_ENTRADA.AsFloat := strtofloat(edt_prentrada.Text); + pl_entrada := vl_corrigido * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada; + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + // entrada = parcela + begin + pl_entrada := 0; + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada; + end; + end; + + dtsIndicadorFinanceiro.DataSet.Filtered := false; + dtsPoliticas.DataSet.Filtered := false; + dtsFaixas.DataSet.Filtered := false; + end; + + // Descontos sobre Quitar + if strtofloat(edt_indquitar.Text) > queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (strtofloat(edt_indquitar.Text) / 100); + end; + if strtofloat(edt_principalquitar.Text) > + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat then + begin + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (strtofloat(edt_principalquitar.Text) / 100); + end; + if strtofloat(edt_multasquitar.Text) > queryListaTitulosPR_QUITACAO_MULTA.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (queryListaTitulosPR_QUITACAO_MULTA.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (strtofloat(edt_multasquitar.Text) / 100); + end; + if strtofloat(edt_jurosquitar.Text) > queryListaTitulosPR_QUITACAO_JUROS.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (queryListaTitulosPR_QUITACAO_JUROS.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (strtofloat(edt_jurosquitar.Text) / 100); + end; + + // Descontos sobre Parcelar + if strtofloat(edt_indparcelas.Text) > queryListaTitulosPR_PARCELA_INDICADOR.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (queryListaTitulosPR_PARCELA_INDICADOR.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (strtofloat(edt_indparcelas.Text) / 100); + end; + if strtofloat(edt_principalparcelas.Text) > + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat then + begin + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (strtofloat(edt_principalparcelas.Text) / 100); + end; + if strtofloat(edt_multasparcelas.Text) > queryListaTitulosPR_PARCELA_MULTA.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (queryListaTitulosPR_PARCELA_MULTA.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (strtofloat(edt_multasparcelas.Text) / 100); + end; + if strtofloat(edt_jurosparcelas.Text) > queryListaTitulosPR_PARCELA_JUROS.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (queryListaTitulosPR_PARCELA_JUROS.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (strtofloat(edt_jurosparcelas.Text) / 100); + end; + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency; + // valores depois dos descontos aplicados + if (cb_descquit.Checked) then + begin + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency - + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency - + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency - + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency - + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency; + + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency + + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency); + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + / qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + end; + // end; + end; + + if (cb_descpar.Checked) and (strtoint(edt_nrparcelas.Text) >= 1) then + begin + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency - + queryListaTitulosVL_DESC_PAR_IND.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency - + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency - queryListaTitulosVL_DESC_PAR_MULTA. + AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency - queryListaTitulosVL_DESC_PAR_JUROS. + AsCurrency; + + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency - + (queryListaTitulosVL_DESC_PAR_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + / qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + end; + // end; + end; + // regra de 3 para ver o valor do desconto total dado + if vl_cor_antes_desc <> queryListaTitulosVL_CORRIGIDO.AsCurrency then + begin + regra_3 := vl_cor_antes_desc - queryListaTitulosVL_CORRIGIDO.AsCurrency; + edt_desctot.Text := formatfloat('0.##', + ((regra_3 * 100) / vl_cor_antes_desc)); + end + else + begin + edt_desctot.Text := '0'; + end; + + if cb_desc_quit_cor.Checked and (strtofloat(edt_corquitar.Text) > 0) then + begin + vl_cor_depois_desc := queryListaTitulosVL_CORRIGIDO.AsCurrency - + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (strtofloat(edt_corquitar.Text) / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_cor_depois_desc; + end; + + if cb_desc_par_cor.Checked and (strtofloat(edt_corpar.Text) > 0) then + begin + vl_cor_depois_desc := queryListaTitulosVL_CORRIGIDO.AsCurrency - + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (strtofloat(edt_corpar.Text) / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_cor_depois_desc; + end; + + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) / + qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + end; + + if (strtoint(edt_nrparcelas.Text) = 0) and (cb_formapag.ItemIndex = 1) then + begin + queryListaTitulosVL_EXTRAS.AsCurrency := + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency + + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + end; + + if (cbx_txextra.Checked) and (strtoint(edt_nrparcelas.Text) = 0) and + (StrToCurr(edt_txextra.Text) > 0) then + begin + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency + StrToCurr(edt_txextra.Text); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + StrToCurr(edt_txextra.Text); + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + StrToCurr(edt_txextra.Text); + end; + + // calcula valor das parcelas conforme tipo de pagamento + if (strtoint(edt_nrparcelas.Text) > 0) then + begin + if cbx_excentrada.Checked then + begin + case cb_formapag.ItemIndex of + 0: + begin + if dtmSystem.tblCHGEmpresaTP_DIN.AsString = 'P' then + begin + CalcPrice; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // parcela := valor / (strtoint(edt_nrparcelas.Text)); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 2: + begin + if dtmSystem.tblCHGEmpresaTP_CRED.AsString = 'P' then + begin + CalcPrice; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 3: + begin + if dtmSystem.tblCHGEmpresaTP_CHEQUE.AsString = 'P' then + begin + CalcPrice; + end + else + begin + // valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + // RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // parcela := valor / (strtoint(edt_nrparcelas.Text)); + // juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // queryListaTitulosVL_PARCELA.AsCurrency := parcela; + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + end; + // if dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR.AsFloat > 0 then + // begin + // valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + // RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // + // juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR.AsFloat / 100); + // + // dividendo := + // (1 - (1 / (power(1 + (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR.AsFloat + // / 100), strtoint(edt_nrparcelas.Text))))); + // + // parcela := ((valor * juros) / dividendo); + // queryListaTitulosVL_PARCELA.AsCurrency := parcela; + // end + // else + // begin + // valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + // RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // parcela := valor / (strtoint(edt_nrparcelas.Text)); + // queryListaTitulosVL_PARCELA.AsCurrency := parcela; + // end; + // if cb_formapag.ItemIndex = 2 then + // begin + // parcela := queryListaTitulosVL_PARCELA.AsCurrency; + // case strtoint(edt_nrparcelas.Text) of + // 1: + // begin + // juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // end; + // 2, 3: + // begin + // juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // end; + // 4, 5, 6: + // begin + // juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // end; + // 7, 8, 9, 10, 11, 12: + // begin + // juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // end; + // end; + // queryListaTitulosVL_PARCELA.AsCurrency := parcela; + // end; + + queryListaTitulosVL_EXTRAS.AsCurrency := + ((RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * queryListaTitulosVL_PARCELA.AsCurrency) + ) - queryListaTitulosVL_CORRIGIDO.AsCurrency); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + + queryListaTitulosVL_EXTRAS.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * + queryListaTitulosVL_PARCELA.AsCurrency); + end + else + begin + case cb_formapag.ItemIndex of + 0: + begin + if dtmSystem.tblCHGEmpresaTP_DIN.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + end; + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 2: + begin + if dtmSystem.tblCHGEmpresaTP_CRED.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text)); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + end; + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 3: + begin + if dtmSystem.tblCHGEmpresaTP_CHEQUE.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' + then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat + / 100), strtoint(edt_nrparcelas.Text))))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text)); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat + / 100), strtoint(edt_nrparcelas.Text) + 1)))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + end; + end; + + end; + + queryListaTitulosVL_EXTRAS.AsCurrency := + ((RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * queryListaTitulosVL_PARCELA.AsCurrency) + ) - queryListaTitulosVL_CORRIGIDO.AsCurrency); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + + queryListaTitulosVL_EXTRAS.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * + queryListaTitulosVL_PARCELA.AsCurrency); + end; + end; +end; + +procedure TcadDevedores.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string; size: Integer); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if LowerCase(S) = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.size := size; + Font.Style := Font.Style - [fsbold]; + + end; +end; + +procedure TcadDevedores.up_fontememoClick(Sender: TObject; Button: TUDBtnType); +begin + mb_fechamento.Font.size := strtoint(edt_fontememo.Text); +end; + +procedure TcadDevedores.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if Top < workArea.Top then + OffsetRect(Msg.DragRect^, 0, workArea.Top - Top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ucadEmpresa.dfm b/ucadEmpresa.dfm new file mode 100644 index 0000000..597fa72 --- /dev/null +++ b/ucadEmpresa.dfm @@ -0,0 +1,1546 @@ +inherited cadEmpresa: TcadEmpresa + BorderStyle = bsSingle + Caption = 'Empresa' + ClientHeight = 491 + ClientWidth = 729 + PopupMenu = PopupMenu1 + Scaled = False + ShowHint = True + ExplicitTop = -10 + ExplicitWidth = 735 + ExplicitHeight = 520 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + Width = 715 + Height = 345 + ExplicitWidth = 715 + ExplicitHeight = 345 + inherited pcClientes: TPageControl + Width = 701 + Height = 327 + ActivePage = tabJuros + TabStop = False + ExplicitWidth = 701 + ExplicitHeight = 327 + inherited tabCadastro: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 693 + ExplicitHeight = 299 + object lbl_cidade: TLabel + Left = 285 + Top = 147 + Width = 36 + Height = 13 + Caption = 'Cidade:' + end + object lbl_bairro: TLabel + Left = 3 + Top = 147 + Width = 30 + Height = 13 + Caption = 'Bairro:' + end + object lbl_tel: TLabel + Left = 590 + Top = 99 + Width = 45 + Height = 13 + Hint = 'Separe telefones com "/".' + Caption = 'Telefone:' + ParentShowHint = False + ShowHint = True + end + object lbl_email: TLabel + Left = 3 + Top = 195 + Width = 31 + Height = 13 + Caption = 'E-mail:' + end + object lbl_website: TLabel + Left = 3 + Top = 243 + Width = 42 + Height = 13 + Caption = 'Website:' + end + object lbl_fantasia: TLabel + Left = 3 + Top = 4 + Width = 74 + Height = 13 + Caption = 'Nome Fantasia:' + end + object lbl_cnpj: TLabel + Left = 3 + Top = 51 + Width = 30 + Height = 13 + Caption = 'CNPJ:' + end + object lbl_inscriest: TLabel + Left = 431 + Top = 51 + Width = 90 + Height = 13 + Caption = 'Inscri'#231#227'o Estadual:' + end + object lbl_inscrimuni: TLabel + Left = 590 + Top = 51 + Width = 94 + Height = 13 + Caption = 'Inscri'#231#227'o Municipal:' + end + object lbl_cep: TLabel + Left = 224 + Top = 51 + Width = 24 + Height = 13 + Caption = 'CEP:' + end + object lbl_end: TLabel + Left = 3 + Top = 99 + Width = 49 + Height = 13 + Caption = 'Endere'#231'o:' + end + object lbl_num: TLabel + Left = 345 + Top = 99 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + end + object lbl_compl: TLabel + Left = 431 + Top = 99 + Width = 67 + Height = 13 + Caption = 'Complemento:' + end + object lbl_uf: TLabel + Left = 194 + Top = 147 + Width = 17 + Height = 13 + Caption = 'UF:' + end + object lbl_financiamento: TLabel + Left = 431 + Top = 147 + Width = 114 + Height = 13 + Caption = 'Taxa de Financiamento:' + Enabled = False + Visible = False + end + object Label7: TLabel + Left = 431 + Top = 195 + Width = 158 + Height = 13 + Caption = 'CNPJ para Impress'#227'o de Boletos:' + end + object Label8: TLabel + Left = 431 + Top = 243 + Width = 158 + Height = 13 + Caption = 'C'#243'digo do Benefici'#225'rio (Banpara):' + end + object dblucmbox_cidade: TDBLookupComboBox + Left = 285 + Top = 166 + Width = 97 + Height = 21 + DataField = 'ID_CIDADE' + DataSource = dtsDB + KeyField = 'ID_CIDADE' + ListField = 'TX_NOME' + ListSource = dtsCidades + TabOrder = 11 + end + object dbedt_bairro: TDBEdit + Left = 3 + Top = 166 + Width = 145 + Height = 21 + DataField = 'TX_BAIRRO' + DataSource = dtsDB + TabOrder = 9 + end + object dbedt_tel: TDBEdit + Left = 590 + Top = 118 + Width = 94 + Height = 21 + DataField = 'TX_TELEFONE' + DataSource = dtsDB + MaxLength = 14 + TabOrder = 8 + end + object dbedt_email: TDBEdit + Left = 3 + Top = 214 + Width = 395 + Height = 21 + DataField = 'TX_EMAIL' + DataSource = dtsDB + TabOrder = 13 + end + object dbedt_website: TDBEdit + Left = 3 + Top = 262 + Width = 395 + Height = 21 + DataField = 'TX_WEBSITE' + DataSource = dtsDB + TabOrder = 14 + end + object dbedt_fantasia: TDBEdit + Left = 3 + Top = 23 + Width = 681 + Height = 21 + DataField = 'TX_FANTASIA' + DataSource = dtsDB + TabOrder = 0 + end + object dbedt_cnpj: TDBEdit + Left = 3 + Top = 70 + Width = 108 + Height = 21 + DataField = 'TX_CNPJ' + DataSource = dtsDB + TabOrder = 1 + end + object dbedt_inscriest: TDBEdit + Left = 431 + Top = 70 + Width = 83 + Height = 21 + DataField = 'TX_IE' + DataSource = dtsDB + TabOrder = 3 + end + object dbedt_inscrimuni: TDBEdit + Left = 590 + Top = 70 + Width = 94 + Height = 21 + DataField = 'TX_IM' + DataSource = dtsDB + TabOrder = 4 + end + object dbedt_cep: TDBEdit + Left = 224 + Top = 70 + Width = 69 + Height = 21 + DataField = 'TX_CEP' + DataSource = dtsDB + TabOrder = 2 + end + object dbedt_end: TDBEdit + Left = 3 + Top = 118 + Width = 290 + Height = 21 + DataField = 'TX_ENDERECO' + DataSource = dtsDB + TabOrder = 5 + end + object dbedt_num: TDBEdit + Left = 345 + Top = 118 + Width = 32 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsDB + TabOrder = 6 + end + object dbedt_compl: TDBEdit + Left = 431 + Top = 118 + Width = 114 + Height = 21 + DataField = 'TX_COMPLEMENTO' + DataSource = dtsDB + TabOrder = 7 + end + object dblucmbox_uf: TDBLookupComboBox + Left = 194 + Top = 166 + Width = 41 + Height = 21 + DataField = 'ID_ESTADO' + DataSource = dtsDB + KeyField = 'ID_ESTADO' + ListField = 'TX_SIGLA' + ListSource = dtsUF + TabOrder = 10 + end + object dbedt_financiamento: TDBEdit + Left = 431 + Top = 166 + Width = 83 + Height = 21 + DataField = 'PR_FINANCIAMENTO' + DataSource = dtsDB + Enabled = False + TabOrder = 12 + Visible = False + end + object DBEdit3: TDBEdit + Left = 431 + Top = 214 + Width = 108 + Height = 21 + DataField = 'TX_CNPJ_BOLETO' + DataSource = dtsDB + TabOrder = 15 + end + object DBEdit4: TDBEdit + Left = 431 + Top = 262 + Width = 108 + Height = 21 + DataField = 'CD_BENEFICIARIO' + DataSource = dtsDB + TabOrder = 16 + end + end + object tabLogo: TTabSheet + Caption = '&Logomarca' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ImageIndex = 1 + ParentFont = False + object spdbtn_clearimg: TSpeedButton + Left = 329 + Top = 63 + Width = 43 + Height = 37 + Hint = 'Limpar foto selecionada.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF + A46769A46769A46769A46769A46769A46769A46769A46769A46769A46769A467 + 69A46769A46769FF00FFFF00FFFF00FFB79184FEE9C7F4DAB5F3D5AAF2D0A0EF + CB96EFC68BEDC182EBC17FEBC180EBC180F2C782A46769FF00FFFF00FFFF00FF + B79187FCEACEF3DABCF2D5B1F0D0A7EECB9EEDC793EDC28BE9BD81E9BD7FE9BD + 7FEFC481A46769FF00FFFF00FFFF00FFB7938AFEEFDAF6E0C6F2DABCF2D5B2EF + D0A9EECB9EEDC796EBC28CE9BD82E9BD7FEFC481A46769FF00FFFF00FFFF00FF + BA978FFFF4E5F7E5CFF4E0C5F3DABBF2D5B1F0D0A6EECB9EEDC795EBC28AEABF + 81EFC480A46769FF00FFFF00FFFF00FFC09E95FFFBF0F8EADCF6E3CFF4E0C6F2 + D9BCF2D5B1F0D0A9EDCB9EEDC695EBC28AEFC583A46769FF00FFFF00FFFF00FF + C6A49AFFFFFCFAF0E6F8EADAF7E5CFF4E0C5F2DABAF2D5B1F0D0A7EECB9DEBC7 + 93F2C98CA46769FF00FFFF00FFFF00FFCBA99EFFFFFFFEF7F2FAEFE6F8EAD9F7 + E3CFF6E0C5F2DABBF2D4B1F0D0A7EECC9EF3CE97A46769FF00FFFF00FFFF00FF + CFAC9FFFFFFFFFFEFCFCF6F0FAEFE6F7EADAF6E3CFF4E0C5F3D9BBF3D4B0F0D0 + A6F6D3A0A46769FF00FFFF00FFFF00FFD4B0A1FFFFFFFFFFFFFFFEFCFEF7F0FA + EFE5F8EAD9F7E5CEF6DEC4F3D9B8F4D8B1EBCFA4A46769FF00FFFF00FFFF00FF + D9B5A1FFFFFFFFFFFFFFFFFFFFFEFCFCF7F0FAEFE5F8E9D9F8E7D1FBEACEDECE + B4B6AA93A46769FF00FFFF00FFFF00FFDDB7A4FFFFFFFFFFFFFFFFFFFFFFFFFF + FEFCFCF6EFFCF3E6EDD8C9B68A7BA17B6F9C7667A46769FF00FFFF00FFFF00FF + E2BCA5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFBFFFEF7DAC1BAAD735BE19E + 55E68F31B56D4DFF00FFFF00FFFF00FFE6BFA7FFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFDCC7C5B88265F8B55CBF7A5CFF00FFFF00FFFF00FFFF00FF + E4BCA4FBF4F0FBF4EFFAF3EFFAF3EFF8F2EFF7F2EFF7F2EFD8C2C0B77F62C183 + 6CFF00FFFF00FFFF00FFFF00FFFF00FFE8C4ADEBCBB7EBCBB7EACBB7EACAB6EA + CAB6EACAB6EACAB6E3C2B1A56B5FFF00FFFF00FFFF00FFFF00FF} + ParentFont = False + ParentShowHint = False + ShowHint = True + OnClick = spdbtn_clearimgClick + end + object spdbtn_loadimg: TSpeedButton + Left = 329 + Top = 20 + Width = 43 + Height = 37 + Hint = 'Selecionar uma foto do arquivo.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FF0274AC + 0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274 + AC0274ACFF00FFFF00FF0274AC138AC457B7E06BCBF84BBFF74ABFF74ABFF74A + BFF74ABFF64ABFF74ABFF64BC0F72398CC0274ACFF00FFFF00FF0274AC33AAE0 + 2392C489D9FA54C7F854C7F753C7F854C7F754C7F854C7F854C7F853C7F7279D + CE6ACBE50274ACFF00FF0274AC57CAF80274AC99E3FB5ED1FA5ED1FA5ED1FA5E + D1FA5ED1FA5FD1FA5ED1F85ED1F82CA1CE99EDF70274ACFF00FF0274AC5ED3FA + 0B81B782D5EF79E0FA6ADCFA69DCFB69DCFB6ADCFB69DCFB69DCFA6ADDFB2FA6 + CF9FF0F70274ACFF00FF0274AC68DAFB2BA4D14AB2D797EBFC74E5FB74E5FB74 + E5FC74E5FC74E5FB74E5FC046B0B33A9CFA3F4F752BBD70274AC0274AC70E3FB + 5CD1EF1184B6FCFFFFB8F4FEBAF4FEBAF4FEBAF4FEB8F4FE046B0B25AA42046B + 0BD4F7FACAF3F70274AC0274AC7AEBFE7AEBFC0A7FB50274AC0274AC0274AC02 + 74AC0274AC046B0B38CE6547E77F29B44A046B0B0274AC0274AC0274AC83F2FE + 82F3FE82F3FE83F2FC83F3FE82F3FE83F2FE046B0B2DC0513FDC6E3ED86E46E5 + 7B28B04A046B0BFF00FF0274ACFEFEFE89FAFF89FAFE89FAFE8AF8FE8AFAFE04 + 6B0B046B0B046B0B046B0B3CD86A2EBF53046B0B046B0B046B0BFF00FF0274AC + FEFEFE8FFEFF8FFEFF8FFEFF0273A32BA4D12BA4D12BA4D1046B0B35D35E20A7 + 3A046B0BFF00FFFF00FFFF00FFFF00FF0274AC0274AC0274AC0274ACFF00FFFF + 00FFFF00FFFF00FF046B0B28C24A046B0BFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF046B0B17A42B19A730046B + 0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FF046B0B11A122046B0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF046B0B046B0B046B0B046B0BFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF046B0B046B0B04 + 6B0B046B0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} + ParentFont = False + ParentShowHint = False + ShowHint = True + OnClick = spdbtn_loadimgClick + end + object lbl_carregarimg: TLabel + Left = 378 + Top = 32 + Width = 80 + Height = 13 + Caption = 'Carregar Imagem' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_limparimg: TLabel + Left = 378 + Top = 72 + Width = 71 + Height = 13 + Caption = 'Limpar Imagem' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_titulologo: TLabel + Left = 329 + Top = 128 + Width = 30 + Height = 13 + Caption = 'T'#237'tulo:' + end + object rdbimg_logo: TrDBImage + Left = 3 + Top = 20 + Width = 310 + Height = 262 + DragCursor = crSizeAll + ReduceToFit = True + ShowEditor = ieNone + ShowPopupMenu = False + SaveInJPG = False + DataField = 'IMG_LOGO' + DataSource = dtsDB + DBEditLabel.OwnCaption = 'Logo:' + BoundButtons.Captions = 'Fit;+;-;Edit' + ShowConvertMenu = False + end + object dbedt_titulologo: TDBEdit + Left = 329 + Top = 147 + Width = 344 + Height = 21 + DataField = 'TX_TITULO' + DataSource = dtsDB + TabOrder = 0 + end + end + object tabEmail: TTabSheet + Caption = '&Email' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ImageIndex = 2 + ParentFont = False + object pnl_email: TPanel + Left = 3 + Top = 3 + Width = 687 + Height = 153 + BevelOuter = bvNone + TabOrder = 1 + object lbl_nomeemail: TLabel + Left = 4 + Top = 4 + Width = 31 + Height = 13 + Caption = 'Nome:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_useremail: TLabel + Left = 4 + Top = 52 + Width = 39 + Height = 13 + Caption = 'Usu'#225'rio:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_senhaemail: TLabel + Left = 142 + Top = 52 + Width = 34 + Height = 13 + Caption = 'Senha:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 228 + Top = 4 + Width = 28 + Height = 13 + Caption = 'Email:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_smtp: TLabel + Left = 467 + Top = 4 + Width = 75 + Height = 13 + Caption = 'Servidor SMTP:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_portasmtp: TLabel + Left = 619 + Top = 4 + Width = 28 + Height = 13 + Caption = 'Porta:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_nomeemail: TDBEdit + Left = 4 + Top = 23 + Width = 195 + Height = 21 + DataField = 'TX_EMAILNOME' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object dbedt_useremail: TDBEdit + Left = 4 + Top = 71 + Width = 118 + Height = 21 + DataField = 'TX_USUARIO' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_senhaemail: TDBEdit + Left = 142 + Top = 71 + Width = 110 + Height = 21 + DataField = 'TX_SENHA' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object DBEdit2: TDBEdit + Left = 228 + Top = 23 + Width = 212 + Height = 21 + DataField = 'TX_EMAIL' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object dbedt_smtp: TDBEdit + Left = 467 + Top = 23 + Width = 105 + Height = 21 + DataField = 'TX_SMTP' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object dbedt_portasmtp: TDBEdit + Left = 619 + Top = 23 + Width = 46 + Height = 21 + DataField = 'TX_PORTA' + DataSource = dtsDB + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object dbcb_tls: TDBCheckBox + Left = 4 + Top = 98 + Width = 97 + Height = 17 + Caption = 'TLS' + DataField = 'TP_TLS' + DataSource = dtsDB + TabOrder = 6 + ValueChecked = 'S' + ValueUnchecked = 'N;null;nill;;' + end + object dbcb_ssl: TDBCheckBox + Left = 4 + Top = 121 + Width = 97 + Height = 17 + Caption = 'SSL' + DataField = 'TP_SSL' + DataSource = dtsDB + TabOrder = 7 + ValueChecked = 'S' + ValueUnchecked = 'N;null;nill;;' + end + end + object btn_testconex: TButton + Left = 292 + Top = 70 + Width = 104 + Height = 25 + Caption = 'Testar Conex'#227'o' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = btn_testconexClick + end + end + object tabJuros: TTabSheet + Caption = '&Juros do Cart'#227'o' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 3 + ParentFont = False + ExplicitLeft = 2 + object gb_taxacredor: TGroupBox + Left = 3 + Top = 3 + Width = 687 + Height = 78 + Caption = 'Juros:' + TabOrder = 0 + object lbl_credvista: TLabel + Left = 106 + Top = 21 + Width = 70 + Height = 13 + Caption = 'Cr'#233'dito '#224' vista:' + end + object lbl_debito: TLabel + Left = 15 + Top = 21 + Width = 34 + Height = 13 + Caption = 'D'#233'bito:' + end + object lbl_cred3: TLabel + Left = 197 + Top = 21 + Width = 85 + Height = 13 + Caption = 'Cr'#233'dito em at'#233' 3x:' + end + object lbl_cred12: TLabel + Left = 379 + Top = 21 + Width = 91 + Height = 13 + Caption = 'Cr'#233'dito em at'#233' 12x:' + end + object lbl_cred6: TLabel + Left = 288 + Top = 21 + Width = 85 + Height = 13 + Caption = 'Cr'#233'dito em at'#233' 6x:' + end + object dbedt_credvista: TDBEdit + Left = 106 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_CREDVISTA' + DataSource = dtsDB + TabOrder = 0 + end + object dbedt_debito: TDBEdit + Left = 15 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_DEBITO' + DataSource = dtsDB + TabOrder = 1 + end + object dbedt_cred3: TDBEdit + Left = 197 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_CRED3' + DataSource = dtsDB + TabOrder = 2 + end + object dbedt_cred12: TDBEdit + Left = 379 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_CRED12' + DataSource = dtsDB + TabOrder = 3 + end + object dbedt_cred6: TDBEdit + Left = 288 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_CRED6' + DataSource = dtsDB + TabOrder = 4 + end + end + object gb_repassebanco: TGroupBox + Left = 3 + Top = 87 + Width = 687 + Height = 74 + Caption = 'Repasse para Banco' + TabOrder = 1 + object Label2: TLabel + Left = 106 + Top = 21 + Width = 70 + Height = 13 + Caption = 'Cr'#233'dito '#224' vista:' + end + object Label3: TLabel + Left = 15 + Top = 21 + Width = 34 + Height = 13 + Caption = 'D'#233'bito:' + end + object Label4: TLabel + Left = 197 + Top = 21 + Width = 85 + Height = 13 + Caption = 'Cr'#233'dito em at'#233' 3x:' + end + object Label5: TLabel + Left = 379 + Top = 21 + Width = 91 + Height = 13 + Caption = 'Cr'#233'dito em at'#233' 12x:' + end + object Label6: TLabel + Left = 288 + Top = 21 + Width = 85 + Height = 13 + Caption = 'Cr'#233'dito em at'#233' 6x:' + end + object dbedt_credvistabanco: TDBEdit + Left = 106 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_BANCO_CREDVISTA' + DataSource = dtsDB + TabOrder = 0 + end + object dbedt_debitobanco: TDBEdit + Left = 15 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_BANCO_DEBITO' + DataSource = dtsDB + TabOrder = 1 + end + object dbedt_cred3banco: TDBEdit + Left = 197 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_BANCO_CRED3' + DataSource = dtsDB + TabOrder = 2 + end + object dbedt_cred12banco: TDBEdit + Left = 379 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_BANCO_CRED12' + DataSource = dtsDB + TabOrder = 3 + end + object dbedt_cred6banco: TDBEdit + Left = 288 + Top = 40 + Width = 85 + Height = 21 + DataField = 'PR_BANCO_CRED6' + DataSource = dtsDB + TabOrder = 4 + end + end + object dbgrdCartoes: TDBGrid + Left = 3 + Top = 167 + Width = 430 + Height = 129 + DataSource = dtmSystem.dtsPrCartao + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'NR_PARCELA' + Title.Caption = 'Parcela' + Visible = True + end + item + Expanded = False + FieldName = 'PR_JUROS' + Title.Caption = 'Juros (%)' + Visible = True + end + item + Expanded = False + FieldName = 'PR_REPASSE' + Title.Caption = 'Repasse do Banco (%)' + Visible = True + end + item + Expanded = False + FieldName = 'TX_DESCRICAO' + Title.Caption = 'Nota' + Width = 150 + Visible = True + end> + end + object dbnavCartoes: TDBNavigator + Left = 439 + Top = 167 + Width = 246 + Height = 42 + DataSource = dtmSystem.dtsPrCartao + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 3 + end + end + end + end + inherited stbStatus: TStatusBar + Top = 472 + Width = 729 + ExplicitTop = 472 + ExplicitWidth = 729 + end + inherited grpDescricao: TGroupBox + Left = 8 + Width = 711 + ExplicitLeft = 8 + ExplicitWidth = 711 + inherited Nome: TLabel + Width = 64 + Caption = 'Raz'#227'o Social:' + ExplicitWidth = 64 + end + inherited DBEdit1: TDBEdit + Width = 686 + DataField = 'TX_NOME' + Font.Name = 'MS Sans Serif' + ParentFont = False + ExplicitWidth = 686 + end + end + inherited navPrincipal: TDBNavigator + Width = 480 + DataSource = dtsDB + VisibleButtons = [nbEdit, nbPost, nbCancel] + ExplicitWidth = 480 + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblEmpresa + OnDataChange = dtsDBDataChange + end + object ImageList2: TImageList + Left = 664 + Top = 16 + Bitmap = { + 494C01010C0018001C0110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object dtsUF: TDataSource + DataSet = dtmSystem.tblEstados + OnDataChange = dtsUFDataChange + Left = 568 + Top = 8 + end + object dtsCidades: TDataSource + DataSet = dtmSystem.tblCidades + OnDataChange = dtsCidadesDataChange + Left = 616 + Top = 8 + end + object opd_logo: TOpenPictureDialog + Filter = + 'JPEG Image File (*.jpeg)|*.jpeg|JPEG Image File (*.jpg)|*.jpg|Bi' + + 'tmaps (*.bmp)|*.bmp' + Left = 662 + Top = 68 + end + object PopupMenu1: TPopupMenu + OnPopup = PopupMenu1Popup + Left = 386 + Top = 66 + object Copiar1: TMenuItem + Caption = 'Copiar' + OnClick = Copiar1Click + end + end + object ACBrMail: TACBrMail + Host = '127.0.0.1' + Port = '25' + SetSSL = False + SetTLS = False + Attempts = 3 + DefaultCharset = UTF_8 + IDECharset = CP1252 + Left = 608 + Top = 72 + end +end diff --git a/ucadEmpresa.pas b/ucadEmpresa.pas new file mode 100644 index 0000000..ccb8966 --- /dev/null +++ b/ucadEmpresa.pas @@ -0,0 +1,599 @@ +unit ucadEmpresa; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Jpeg, Clipbrd, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls, + Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Buttons, + System.ImageList, Vcl.ImgList, Vcl.ExtDlgs, rImageZoom, rDBComponents, + Vcl.Menus, ACBrBase, ACBrMail, Vcl.Grids, Vcl.DBGrids; + +// Tentando "Hackear" o TDBNavigator +type + THackDBNavigator = class(TDBNavigator); + +type + TcadEmpresa = class(TmstCadastro) + lbl_cidade: TLabel; + lbl_bairro: TLabel; + lbl_tel: TLabel; + lbl_email: TLabel; + lbl_website: TLabel; + lbl_fantasia: TLabel; + lbl_cnpj: TLabel; + lbl_inscriest: TLabel; + lbl_inscrimuni: TLabel; + lbl_cep: TLabel; + lbl_end: TLabel; + lbl_num: TLabel; + lbl_compl: TLabel; + lbl_uf: TLabel; + dblucmbox_cidade: TDBLookupComboBox; + dbedt_bairro: TDBEdit; + dbedt_tel: TDBEdit; + dbedt_email: TDBEdit; + dbedt_website: TDBEdit; + dbedt_fantasia: TDBEdit; + dbedt_cnpj: TDBEdit; + dbedt_inscriest: TDBEdit; + dbedt_inscrimuni: TDBEdit; + dbedt_cep: TDBEdit; + dbedt_end: TDBEdit; + dbedt_num: TDBEdit; + dbedt_compl: TDBEdit; + dblucmbox_uf: TDBLookupComboBox; + tabLogo: TTabSheet; + spdbtn_clearimg: TSpeedButton; + spdbtn_loadimg: TSpeedButton; + lbl_carregarimg: TLabel; + lbl_limparimg: TLabel; + ImageList2: TImageList; + tabEmail: TTabSheet; + btn_testconex: TButton; + dtsUF: TDataSource; + dtsCidades: TDataSource; + tabJuros: TTabSheet; + lbl_debito: TLabel; + dbedt_debito: TDBEdit; + lbl_credvista: TLabel; + dbedt_credvista: TDBEdit; + lbl_cred3: TLabel; + dbedt_cred3: TDBEdit; + lbl_cred6: TLabel; + dbedt_cred6: TDBEdit; + lbl_cred12: TLabel; + dbedt_cred12: TDBEdit; + rdbimg_logo: TrDBImage; + opd_logo: TOpenPictureDialog; + lbl_financiamento: TLabel; + dbedt_financiamento: TDBEdit; + lbl_titulologo: TLabel; + dbedt_titulologo: TDBEdit; + PopupMenu1: TPopupMenu; + Copiar1: TMenuItem; + gb_taxacredor: TGroupBox; + gb_repassebanco: TGroupBox; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + dbedt_credvistabanco: TDBEdit; + dbedt_debitobanco: TDBEdit; + dbedt_cred3banco: TDBEdit; + dbedt_cred12banco: TDBEdit; + dbedt_cred6banco: TDBEdit; + ACBrMail: TACBrMail; + pnl_email: TPanel; + lbl_nomeemail: TLabel; + dbedt_nomeemail: TDBEdit; + lbl_useremail: TLabel; + dbedt_useremail: TDBEdit; + lbl_senhaemail: TLabel; + dbedt_senhaemail: TDBEdit; + Label1: TLabel; + DBEdit2: TDBEdit; + lbl_smtp: TLabel; + dbedt_smtp: TDBEdit; + lbl_portasmtp: TLabel; + dbedt_portasmtp: TDBEdit; + dbcb_tls: TDBCheckBox; + dbcb_ssl: TDBCheckBox; + Label7: TLabel; + DBEdit3: TDBEdit; + Label8: TLabel; + DBEdit4: TDBEdit; + dbgrdCartoes: TDBGrid; + dbnavCartoes: TDBNavigator; + procedure dtsDBDataChange(Sender: TObject; Field: TField); + procedure FormCreate(Sender: TObject); + procedure dtsUFDataChange(Sender: TObject; Field: TField); + procedure dtsCidadesDataChange(Sender: TObject; Field: TField); + procedure dtsDBStateChange(Sender: TObject); + procedure spdbtn_loadimgClick(Sender: TObject); + procedure spdbtn_clearimgClick(Sender: TObject); + procedure Copiar1Click(Sender: TObject); + procedure PopupMenu1Popup(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure FormShow(Sender: TObject); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure btn_testconexClick(Sender: TObject); + private + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList); + function JpgToBmp(path: string): string; + function FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; + function FindControlAtPos(AScreenPos: TPoint): TControl; + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + pos: TPoint; + primeiro_cad: boolean; + { Public declarations } + end; + +var + cadEmpresa: TcadEmpresa; + +implementation + +{$R *.dfm} + +uses udtmSystem; + + +// praticamente tudo aqui igual ao cadastro de beneficirios +// nica coisa que muda a adio do tratamento da logomarca que +// segue a mesma lgica dos componentes que usam o banco, mas no +// so componentes de database + +procedure TcadEmpresa.btn_testconexClick(Sender: TObject); +begin + with ACBrMail do + begin + try + Clear; + IsHTML := true; + Subject := 'Teste de conexo'; + From := dtmSystem.tblEmpresaTX_EMAIL.AsString; + FromName := dtmSystem.tblEmpresaTX_EMAILNOME.AsString; + Host := dtmSystem.tblEmpresaTX_SMTP.AsString; + Username := dtmSystem.tblEmpresaTX_USUARIO.AsString; + Password := dtmSystem.tblEmpresaTX_SENHA.AsString; + Port := dtmSystem.tblEmpresaTX_PORTA.AsString; + if dtmSystem.tblEmpresaTP_TLS.AsString = 'S' then + begin + SetTLS := true; + end + else + begin + SetTLS := false; + end; + if dtmSystem.tblEmpresaTP_SSL.AsString = 'S' then + begin + SetSSL := true; + end + else + begin + SetSSL := false; + end; + DefaultCharset := TMailCharset(0); + IDECharset := TMailCharset(0); + AddAddress('marcus@nexverse.com.br', 'Teste de conexo'); + Body.Text := 'Teste de conexo'; + Screen.Cursor := crHourGlass; + Send(false); + Application.ProcessMessages; + Screen.Cursor := crDefault; + Showmessage + ('Email teste enviado com sucesso. Configurao de email correta!'); + except + Screen.Cursor := crDefault; + Showmessage + ('Falha ao enviar email de teste. Configurao de email incorreta!'); + end; + end; +end; + +procedure TcadEmpresa.Copiar1Click(Sender: TObject); +var + Control: TControl; +begin + // usa duas funes que achei na net pra pegar o controle na pos do mouse pra poder copiar o contedo dele mesmo desabilitado + Control := FindControlAtPos(pos); + if Control is TDBEdit then + begin + Clipboard.AsText := (Control as TDBEdit).Text; + end; + if Control is TDBLookupComboBox then + begin + Clipboard.AsText := (Control as TDBLookupComboBox).Text; + end; + if Control is TrDBDateTimePicker then + begin + Clipboard.AsText := formatdatetime('dd/mm/yyyy', + (Control as TrDBDateTimePicker).Date); + end; + if Control is TDBMemo then + begin + (Control as TDBMemo).SelectAll; + (Control as TDBMemo).CopyToClipboard; + end; +end; + +procedure TcadEmpresa.dtsCidadesDataChange(Sender: TObject; Field: TField); +begin + inherited; + if (dtmSystem.tblEmpresaID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.KeyValue := dtmSystem.tblEmpresaID_CIDADE.AsVariant; + end; +end; + +procedure TcadEmpresa.dtsDBDataChange(Sender: TObject; Field: TField); +begin + inherited; + // tabLogo.Enabled := grpDescricao.Enabled; +end; + +procedure TcadEmpresa.dtsDBStateChange(Sender: TObject); +begin + inherited; + tabLogo.Enabled := grpDescricao.Enabled; + pnl_email.Enabled := grpDescricao.Enabled; + tabJuros.Enabled := grpDescricao.Enabled; +end; + +procedure TcadEmpresa.dtsUFDataChange(Sender: TObject; Field: TField); +begin + if (dtmSystem.tblEmpresaID_ESTADO.AsVariant >= 0) then + begin + dblucmbox_uf.KeyValue := dtmSystem.tblEmpresaID_ESTADO.AsVariant; + end; + if (dtmSystem.tblEmpresaID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.KeyValue := dtmSystem.tblEmpresaID_CIDADE.AsVariant; + end; +end; + +function TcadEmpresa.FindControlAtPos(AScreenPos: TPoint): TControl; +var + i: Integer; + f, m: TForm; + p: TPoint; + r: TRect; +begin + Result := nil; + for i := Screen.FormCount - 1 downto 0 do + begin + f := Screen.Forms[i]; + if f.Visible and (f.Parent = nil) and (f.FormStyle <> fsMDIChild) and + TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height) + .Contains(AScreenPos) then + Result := f; + end; + Result := FindSubcontrolAtPos(Result, AScreenPos, AScreenPos); + if (Result is TForm) and (TForm(Result).ClientHandle <> 0) then + begin + Winapi.Windows.GetWindowRect(TForm(Result).ClientHandle, r); + p := TPoint.Create(AScreenPos.X - r.Left, AScreenPos.Y - r.Top); + m := nil; + for i := TForm(Result).MDIChildCount - 1 downto 0 do + begin + f := TForm(Result).MDIChildren[i]; + if TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height) + .Contains(p) then + m := f; + end; + if m <> nil then + Result := FindSubcontrolAtPos(m, AScreenPos, p); + end; +end; + +function TcadEmpresa.FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; +var + i: Integer; + C: TControl; +begin + Result := nil; + C := AControl; + if (C = nil) or not C.Visible or not TRect.Create(C.Left, C.Top, + C.Left + C.Width, C.Top + C.Height).Contains(AClientPos) then + Exit; + Result := AControl; + if AControl is TWinControl then + for i := 0 to TWinControl(AControl).ControlCount - 1 do + begin + C := FindSubcontrolAtPos(TWinControl(AControl).Controls[i], AScreenPos, + AControl.ScreenToClient(AScreenPos)); + if C <> nil then + Result := C; + end; +end; + +procedure TcadEmpresa.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + with dtmSystem do + begin + tblEnderecos.Close; + tblCidades.Close; + tblEstados.Close; + tblEmpresa.Close; + end; + cadEmpresa := nil; +end; + +procedure TcadEmpresa.FormCreate(Sender: TObject); +begin + inherited; + if not(dtsUF.DataSet.Active) then + begin + dtsUF.DataSet.Open; + end; + if not(dtsCidades.DataSet.Active) then + begin + dtsCidades.DataSet.Open; + end; + SetupHackedNavigator(navPrincipal, ImageList2); + SetupHackedNavigator(dbnavCartoes, ImageList2); + // navPrincipal.Enabled := dtmSystem.VerificarPermissao('EMPCBR.01'); + primeiro_cad := false; +end; + +procedure TcadEmpresa.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TcadEmpresa.FormShow(Sender: TObject); +begin + inherited; + if not(dtmSystem.tblEmpresa.Active) then + begin + dtmSystem.tblEmpresa.Open; + end; + if dtmSystem.tblEmpresa.IsEmpty then + begin + // navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbInsert]; + dtsDB.DataSet.Append; + primeiro_cad := true; + end; +end; + +function TcadEmpresa.JpgToBmp(path: string): string; +var + Bmp: TBitmap; + Jpeg: TJPEGImage; + novo_path: string; +begin + Result := ''; + if FileExists(path) then + begin + novo_path := ChangeFileExt(path, '.bmp'); + Bmp := TBitmap.Create; + Jpeg := TJPEGImage.Create; + Jpeg.LoadFromFile(path); + Bmp.Assign(Jpeg); + Bmp.SaveToFile(novo_path); + Result := novo_path; + Jpeg.Free; + Bmp.Free; + end; + +end; + +procedure TcadEmpresa.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbPost: + begin + if DBEdit1.Text = '' then + begin + MessageDlg + ('Por favor insira uma Razo Social antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_fantasia.Text = '' then + begin + MessageDlg + ('Por favor insira um Nome Fantasia antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_debito.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de dbito antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_credvista.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de crdito a vista antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_cred3.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de crdito em at 3x antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_cred6.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de crdito em at 6x antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_cred12.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de crdito em at 12x antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_debitobanco.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de dbito de repasse para banco antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_credvistabanco.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de crdito a vista de repasse para banco antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_cred3banco.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de crdito em at 3x de repasse para banco antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_cred6banco.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de crdito em at 6x de repasse para banco antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + if dbedt_cred12banco.Text = '' then + begin + MessageDlg + ('Por favor insira um valor para taxa de crdito em at 12x de repasse para banco antes de finalizar o cadastro da Empresa.', + mtWarning, [mbOK], 0); + Abort; + end; + primeiro_cad := false; + // navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbInsert]; + end; + nbCancel: + begin + if primeiro_cad = true then + begin + MessageDlg('Por favor termine de cadastrar a Empresa.', mtWarning, + [mbOK], 0); + Abort; + end; + end; + end; + inherited; +end; + +procedure TcadEmpresa.PopupMenu1Popup(Sender: TObject); +begin + pos := Mouse.CursorPos; +end; + +procedure TcadEmpresa.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) +var + btn: TNavigateBtn; +begin + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + if Navigator = navPrincipal then + begin + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + Caption := Captions[btn]; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + end; + end + else + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + // Caption := Captions[btn]; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + end; +end; + +procedure TcadEmpresa.spdbtn_clearimgClick(Sender: TObject); +begin + dtsDB.DataSet.FieldByName('IMG_LOGO').Clear; +end; + +procedure TcadEmpresa.spdbtn_loadimgClick(Sender: TObject); +begin + if opd_logo.Execute then + begin + if (ExtractFileExt(opd_logo.FileName) = '.jpg') or + (ExtractFileExt(opd_logo.FileName) = '.jpeg') then + begin + rdbimg_logo.LoadFromFile(JpgToBmp(opd_logo.FileName)); + end + else + begin + rdbimg_logo.LoadFromFile(opd_logo.FileName); + end; + end; +end; + +procedure TcadEmpresa.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if Left < workArea.Left then + OffsetRect(Msg.DragRect^, workArea.Left - Left, 0); + + if Top < workArea.Top then + OffsetRect(Msg.DragRect^, 0, workArea.Top - Top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ucadGrupos.dfm b/ucadGrupos.dfm new file mode 100644 index 0000000..75d2f22 --- /dev/null +++ b/ucadGrupos.dfm @@ -0,0 +1,31 @@ +inherited cadGrupos: TcadGrupos + Caption = 'Grupos' + ClientHeight = 261 + ClientWidth = 435 + ExplicitWidth = 441 + ExplicitHeight = 289 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 242 + Width = 435 + end + object DBGrid1: TDBGrid + Left = 8 + Top = 8 + Width = 386 + Height = 153 + DataSource = dtsGrupos + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + end + object dtsGrupos: TDataSource + DataSet = dtmSystem.tblGrupos + Left = 320 + Top = 112 + end +end diff --git a/ucadGrupos.pas b/ucadGrupos.pas new file mode 100644 index 0000000..f95192d --- /dev/null +++ b/ucadGrupos.pas @@ -0,0 +1,29 @@ +unit ucadGrupos; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Data.DB, + Vcl.Grids, Vcl.DBGrids; + +type + TcadGrupos = class(TmstMaster) + dtsGrupos: TDataSource; + DBGrid1: TDBGrid; + private + { Private declarations } + public + { Public declarations } + end; + +var + cadGrupos: TcadGrupos; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +end. diff --git a/ucadIndices.dfm b/ucadIndices.dfm new file mode 100644 index 0000000..bc8be5d --- /dev/null +++ b/ucadIndices.dfm @@ -0,0 +1,642 @@ +inherited cadIndices: TcadIndices + BorderStyle = bsSingle + Caption = #205'ndices' + ClientHeight = 464 + ClientWidth = 735 + ExplicitWidth = 741 + ExplicitHeight = 492 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + Left = 151 + Width = 571 + ExplicitLeft = 151 + ExplicitWidth = 571 + inherited pcClientes: TPageControl + Width = 549 + Font.Name = 'MS Sans Serif' + ExplicitWidth = 549 + inherited tabCadastro: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 541 + ExplicitHeight = 272 + object dbgrd_indices: TDBGrid + Left = 3 + Top = 3 + Width = 534 + Height = 266 + DataSource = dtsDB + Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = dbgrd_indicesTitleClick + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 431 + Visible = True + end + item + Expanded = False + FieldName = 'PR_INDICE' + Title.Caption = '%' + Visible = True + end> + end + end + end + end + inherited stbStatus: TStatusBar + Top = 445 + Width = 735 + ExplicitTop = 445 + ExplicitWidth = 735 + end + inherited grpDescricao: TGroupBox + Left = 151 + Width = 571 + ExplicitLeft = 151 + ExplicitWidth = 571 + inherited DBEdit1: TDBEdit + Width = 549 + DataField = 'TX_NOME' + ExplicitWidth = 549 + end + end + inherited navPrincipal: TDBNavigator + Left = 151 + Width = 570 + DataSource = dtsDB + ExplicitLeft = 151 + ExplicitWidth = 570 + end + object GroupBox1: TGroupBox [4] + Left = 8 + Top = 8 + Width = 137 + Height = 431 + TabOrder = 4 + object dblulb_indices: TDBLookupListBox + Left = 7 + Top = 13 + Width = 121 + Height = 407 + KeyField = 'ID_INDICE' + ListField = 'TX_NOME' + ListSource = dtsDB + TabOrder = 0 + TabStop = False + end + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblIndices + Left = 616 + Top = 70 + end + object ImageList1: TImageList + Left = 677 + Top = 72 + Bitmap = { + 494C01010C001800980110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end +end diff --git a/ucadIndices.pas b/ucadIndices.pas new file mode 100644 index 0000000..44bbba5 --- /dev/null +++ b/ucadIndices.pas @@ -0,0 +1,143 @@ +unit ucadIndices; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Vcl.Buttons, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.Grids, + Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, + System.ImageList, Vcl.ImgList, ZAbstractRODataset, ZAbstractDataset, ZDataset; + +type + THackDBNavigator = class(TDBNavigator); + +type + TcadIndices = class(TmstCadastro) + dbgrd_indices: TDBGrid; + ImageList1: TImageList; + GroupBox1: TGroupBox; + dblulb_indices: TDBLookupListBox; + procedure FormCreate(Sender: TObject); + procedure dtsDBStateChange(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure dbgrd_indicesTitleClick(Column: TColumn); + private + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + cadIndices: TcadIndices; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TcadIndices.dbgrd_indicesTitleClick(Column: TColumn); +begin + inherited; + dtmSystem.OrganizaPorColuna(dbgrd_indices.DataSource.DataSet,Column); +end; + +procedure TcadIndices.dtsDBStateChange(Sender: TObject); +begin + inherited; + dblulb_indices.Enabled := not (dtsDB.DataSet.State in [dsEdit,dsInsert]); +end; + +procedure TcadIndices.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + cadIndices := nil; +end; + +procedure TcadIndices.FormCreate(Sender: TObject); +begin + inherited; + SetupHackedNavigator(navPrincipal, ImageList1, 's'); +end; + +procedure TcadIndices.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TcadIndices.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if S = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +procedure TcadIndices.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ucadModeloRepasse.dfm b/ucadModeloRepasse.dfm new file mode 100644 index 0000000..6a80bc3 --- /dev/null +++ b/ucadModeloRepasse.dfm @@ -0,0 +1,941 @@ +inherited cadModeloRepasse: TcadModeloRepasse + BorderStyle = bsSingle + Caption = 'Modelo de Repasse' + ClientHeight = 555 + ClientWidth = 675 + ExplicitWidth = 681 + ExplicitHeight = 583 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + Left = 152 + Width = 520 + Height = 409 + ExplicitLeft = 152 + ExplicitWidth = 520 + ExplicitHeight = 409 + inherited pcClientes: TPageControl + Top = 103 + Width = 504 + TabStop = False + ExplicitTop = 103 + ExplicitWidth = 504 + inherited tabCadastro: TTabSheet + Caption = '&Cadastro de Fases' + Enabled = True + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 496 + ExplicitHeight = 272 + object dbg_repasse: TDBGrid + Left = 0 + Top = 144 + Width = 488 + Height = 125 + TabStop = False + DataSource = dtsfases + Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'PR_PRINCIPAL' + Title.Caption = 'Principal' + Visible = True + end + item + Expanded = False + FieldName = 'PR_JUROS' + Title.Caption = 'Juros' + Visible = True + end + item + Expanded = False + FieldName = 'PR_MULTA' + Title.Caption = 'Multa' + Visible = True + end + item + Expanded = False + FieldName = 'PR_ENCARGOS' + Title.Caption = 'Encargos' + Visible = True + end + item + Expanded = False + FieldName = 'PR_CORRIGIDO' + Title.Caption = 'Corrigido' + Visible = True + end + item + Expanded = False + FieldName = 'MIN_ATRASO' + Title.Caption = 'Atraso Min' + Visible = True + end + item + Expanded = False + FieldName = 'MAX_ATRASO' + Title.Caption = 'Atraso Max' + Visible = True + end> + end + object gb_porcentagens: TGroupBox + Left = 0 + Top = 55 + Width = 488 + Height = 83 + Caption = 'Porcentagens:' + Enabled = False + TabOrder = 1 + object lbl_principal: TLabel + Left = 10 + Top = 27 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object lbl_juros: TLabel + Left = 70 + Top = 27 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_multa: TLabel + Left = 128 + Top = 27 + Width = 29 + Height = 13 + Caption = 'Multa:' + end + object lbl_encargos: TLabel + Left = 185 + Top = 27 + Width = 48 + Height = 13 + Caption = 'Encargos:' + end + object lbl_corrigido: TLabel + Left = 244 + Top = 27 + Width = 44 + Height = 13 + Caption = 'Corrigido:' + end + object lbl_atrasomin: TLabel + Left = 308 + Top = 27 + Width = 53 + Height = 13 + Caption = 'Atraso Min:' + end + object lbl_atrasomax: TLabel + Left = 372 + Top = 27 + Width = 56 + Height = 13 + Caption = 'Atraso Max:' + end + object dbedt_prprin: TDBEdit + Left = 10 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_PRINCIPAL' + DataSource = dtsfases + TabOrder = 0 + OnExit = dbedt_prprinExit + OnKeyPress = dbedt_prprinKeyPress + end + object dbedt_prjuros: TDBEdit + Left = 70 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_JUROS' + DataSource = dtsfases + TabOrder = 1 + OnExit = dbedt_prjurosExit + OnKeyPress = dbedt_prjurosKeyPress + end + object dbedt_prmulta: TDBEdit + Left = 128 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_MULTA' + DataSource = dtsfases + TabOrder = 2 + OnExit = dbedt_prmultaExit + OnKeyPress = dbedt_prmultaKeyPress + end + object dbedt_enc: TDBEdit + Left = 185 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_ENCARGOS' + DataSource = dtsfases + TabOrder = 3 + OnExit = dbedt_encExit + OnKeyPress = dbedt_encKeyPress + end + object dbedt_prcorrigido: TDBEdit + Left = 244 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_CORRIGIDO' + DataSource = dtsfases + TabOrder = 4 + OnExit = dbedt_prcorrigidoExit + OnKeyPress = dbedt_prcorrigidoKeyPress + end + object dbedt_atrasomin: TDBEdit + Left = 308 + Top = 46 + Width = 45 + Height = 21 + DataField = 'MIN_ATRASO' + DataSource = dtsfases + TabOrder = 5 + OnExit = dbedt_prcorrigidoExit + OnKeyPress = dbedt_prcorrigidoKeyPress + end + object dbedt_atrasomax: TDBEdit + Left = 372 + Top = 46 + Width = 45 + Height = 21 + DataField = 'MAX_ATRASO' + DataSource = dtsfases + TabOrder = 6 + OnExit = dbedt_prcorrigidoExit + OnKeyPress = dbedt_prcorrigidoKeyPress + end + end + object navfases: TDBNavigator + Left = 3 + Top = 5 + Width = 480 + Height = 44 + DataSource = dtsfases + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + Hints.Strings = ( + 'Primeiro Registro' + 'Registro Anterior' + 'Pr'#243'ximo Registro' + #218'ltimo Registro' + 'Criar Registro' + 'Apagar Registro' + 'Editar Registro' + 'Salvar Registro' + 'Cancelar' + 'Atualizar' + 'Apply updates' + 'Cancel updates') + TabOrder = 2 + BeforeAction = navfasesBeforeAction + end + end + end + object GroupBox3: TGroupBox + Left = 12 + Top = 14 + Width = 501 + Height = 83 + Caption = 'Porcentagens:' + Enabled = False + TabOrder = 1 + object Label1: TLabel + Left = 10 + Top = 27 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object Label2: TLabel + Left = 70 + Top = 27 + Width = 30 + Height = 13 + Caption = 'Juros:' + end + object Label3: TLabel + Left = 128 + Top = 27 + Width = 30 + Height = 13 + Caption = 'Multa:' + end + object Label4: TLabel + Left = 185 + Top = 27 + Width = 48 + Height = 13 + Caption = 'Encargos:' + end + object Label5: TLabel + Left = 244 + Top = 27 + Width = 47 + Height = 13 + Caption = 'Corrigido:' + end + object DBEdit2: TDBEdit + Left = 10 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_PRINCIPAL' + DataSource = dtsDB + TabOrder = 0 + OnExit = DBEdit2Exit + OnKeyPress = DBEdit2KeyPress + end + object DBEdit3: TDBEdit + Left = 70 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_JUROS' + DataSource = dtsDB + TabOrder = 1 + OnExit = DBEdit3Exit + OnKeyPress = DBEdit3KeyPress + end + object DBEdit4: TDBEdit + Left = 128 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_MULTA' + DataSource = dtsDB + TabOrder = 2 + OnExit = DBEdit4Exit + OnKeyPress = DBEdit4KeyPress + end + object DBEdit5: TDBEdit + Left = 185 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_ENCARGOS' + DataSource = dtsDB + TabOrder = 3 + OnExit = DBEdit5Exit + OnKeyPress = DBEdit5KeyPress + end + object DBEdit6: TDBEdit + Left = 244 + Top = 46 + Width = 45 + Height = 21 + DataField = 'PR_CORRIGIDO' + DataSource = dtsDB + TabOrder = 4 + OnExit = DBEdit6Exit + OnKeyPress = DBEdit6KeyPress + end + end + end + inherited stbStatus: TStatusBar + Top = 536 + Width = 675 + ExplicitTop = 536 + ExplicitWidth = 675 + end + inherited grpDescricao: TGroupBox + Left = 152 + Width = 520 + ExplicitLeft = 152 + ExplicitWidth = 520 + inherited DBEdit1: TDBEdit + Width = 492 + DataField = 'TX_NOME' + ExplicitWidth = 492 + end + end + inherited navPrincipal: TDBNavigator + Left = 154 + Width = 510 + DataSource = dtsDB + ExplicitLeft = 154 + ExplicitWidth = 510 + end + object GroupBox1: TGroupBox [4] + Left = 8 + Top = 8 + Width = 137 + Height = 522 + TabOrder = 4 + object dblulb_indices: TDBLookupListBox + Left = 7 + Top = 13 + Width = 121 + Height = 498 + KeyField = 'ID_REPASSE' + ListField = 'TX_NOME' + ListSource = dtsDB + TabOrder = 0 + TabStop = False + end + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblRepasse + Left = 480 + Top = 16 + end + object ImageList1: TImageList + Left = 428 + Top = 16 + Bitmap = { + 494C01010C001800900110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object dtsfases: TDataSource + DataSet = dtmSystem.tblRepasseFase + OnStateChange = dtsfasesStateChange + Left = 544 + Top = 16 + end +end diff --git a/ucadModeloRepasse.pas b/ucadModeloRepasse.pas new file mode 100644 index 0000000..8651537 --- /dev/null +++ b/ucadModeloRepasse.pas @@ -0,0 +1,491 @@ +unit ucadModeloRepasse; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Vcl.Buttons, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.Grids, + Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, + System.ImageList, Vcl.ImgList; + +type + THackDBNavigator = class(TDBNavigator); + +type + TcadModeloRepasse = class(TmstCadastro) + dbg_repasse: TDBGrid; + gb_porcentagens: TGroupBox; + lbl_principal: TLabel; + dbedt_prprin: TDBEdit; + dbedt_prjuros: TDBEdit; + lbl_juros: TLabel; + dbedt_prmulta: TDBEdit; + lbl_multa: TLabel; + dbedt_enc: TDBEdit; + lbl_encargos: TLabel; + dbedt_prcorrigido: TDBEdit; + lbl_corrigido: TLabel; + ImageList1: TImageList; + GroupBox1: TGroupBox; + dblulb_indices: TDBLookupListBox; + dtsfases: TDataSource; + navfases: TDBNavigator; + dbedt_atrasomin: TDBEdit; + dbedt_atrasomax: TDBEdit; + lbl_atrasomin: TLabel; + lbl_atrasomax: TLabel; + GroupBox3: TGroupBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + DBEdit2: TDBEdit; + DBEdit3: TDBEdit; + DBEdit4: TDBEdit; + DBEdit5: TDBEdit; + DBEdit6: TDBEdit; + procedure dbedt_prprinKeyPress(Sender: TObject; var Key: Char); + procedure dbedt_prjurosKeyPress(Sender: TObject; var Key: Char); + procedure dbedt_prmultaKeyPress(Sender: TObject; var Key: Char); + procedure dbedt_encKeyPress(Sender: TObject; var Key: Char); + procedure dbedt_prcorrigidoKeyPress(Sender: TObject; var Key: Char); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure FormCreate(Sender: TObject); + procedure dbedt_prprinExit(Sender: TObject); + procedure dbedt_prjurosExit(Sender: TObject); + procedure dbedt_prmultaExit(Sender: TObject); + procedure dbedt_encExit(Sender: TObject); + procedure dbedt_prcorrigidoExit(Sender: TObject); + procedure dtsDBStateChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure dtsfasesStateChange(Sender: TObject); + procedure navfasesBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure DBEdit2Exit(Sender: TObject); + procedure DBEdit3Exit(Sender: TObject); + procedure DBEdit4Exit(Sender: TObject); + procedure DBEdit5Exit(Sender: TObject); + procedure DBEdit6Exit(Sender: TObject); + procedure DBEdit2KeyPress(Sender: TObject; var Key: Char); + procedure DBEdit3KeyPress(Sender: TObject; var Key: Char); + procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); + procedure DBEdit5KeyPress(Sender: TObject; var Key: Char); + procedure DBEdit6KeyPress(Sender: TObject; var Key: Char); + private + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + + // janela a princpio no utilizada at hoje +var + cadModeloRepasse: TcadModeloRepasse; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TcadModeloRepasse.DBEdit2Exit(Sender: TObject); +begin + inherited; + if DBEdit2.Field.Value > 100 then + begin + DBEdit2.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.DBEdit2KeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, DBEdit2.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.DBEdit3Exit(Sender: TObject); +begin + inherited; + if DBEdit3.Field.Value > 100 then + begin + DBEdit3.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.DBEdit3KeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, DBEdit3.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.DBEdit4Exit(Sender: TObject); +begin + inherited; + if DBEdit4.Field.Value > 100 then + begin + DBEdit4.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.DBEdit4KeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, DBEdit4.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.DBEdit5Exit(Sender: TObject); +begin + inherited; + if DBEdit5.Field.Value > 100 then + begin + DBEdit5.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.DBEdit5KeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, DBEdit5.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.DBEdit6Exit(Sender: TObject); +begin + inherited; + if DBEdit6.Field.Value > 100 then + begin + DBEdit6.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.DBEdit6KeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, DBEdit6.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.dbedt_encExit(Sender: TObject); +begin + if dbedt_enc.Field.Value > 100 then + begin + dbedt_enc.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.dbedt_encKeyPress(Sender: TObject; var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, dbedt_enc.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.dbedt_prcorrigidoExit(Sender: TObject); +begin + if dbedt_prcorrigido.Field.Value > 100 then + begin + dbedt_prcorrigido.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.dbedt_prcorrigidoKeyPress(Sender: TObject; + var Key: Char); +begin + // mtodo pra s poder digitar nmeros e "." ou "," no edit + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator, '-']) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, dbedt_prcorrigido.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.dbedt_prjurosExit(Sender: TObject); +begin + if dbedt_prjuros.Field.Value > 100 then + begin + dbedt_prjuros.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.dbedt_prjurosKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, dbedt_prjuros.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.dbedt_prmultaExit(Sender: TObject); +begin + if dbedt_prmulta.Field.Value > 100 then + begin + dbedt_prmulta.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.dbedt_prmultaKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, dbedt_prmulta.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.dbedt_prprinExit(Sender: TObject); +begin + if dbedt_prprin.Field.Value > 100 then + begin + dbedt_prprin.Field.Value := 100; + end; +end; + +procedure TcadModeloRepasse.dbedt_prprinKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, dbedt_prprin.Field.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TcadModeloRepasse.dtsDBStateChange(Sender: TObject); +begin + dblulb_indices.Enabled := not(dtsDB.DataSet.State in [dsEdit, dsInsert]); + grpDescricao.Enabled := (dtsDB.DataSet.State in [dsEdit, dsInsert]); + // gb_porcentagens.Enabled := grpDescricao.Enabled; + // dbg_repasse.ReadOnly := not(dtsDB.DataSet.State in [dsEdit, dsInsert]); + // navfases.Enabled := not(dtsDB.DataSet.State in [dsEdit, dsInsert]); + pcClientes.Enabled := not(dtsDB.DataSet.State in [dsEdit, dsInsert]); + GroupBox3.Enabled := grpDescricao.Enabled; +end; + +procedure TcadModeloRepasse.dtsfasesStateChange(Sender: TObject); +begin + inherited; + grpDescricao.Enabled := not(dtsfases.DataSet.State in [dsEdit, dsInsert]); + navPrincipal.Enabled := not(dtsfases.DataSet.State in [dsEdit, dsInsert]); + gb_porcentagens.Enabled := dtsfases.DataSet.State in [dsEdit, dsInsert]; + dbg_repasse.ReadOnly := not(dtsfases.DataSet.State in [dsEdit, dsInsert]); + dblulb_indices.Enabled := not(dtsfases.DataSet.State in [dsEdit, dsInsert]); +end; + +procedure TcadModeloRepasse.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + cadModeloRepasse := nil; +end; + +procedure TcadModeloRepasse.FormCreate(Sender: TObject); +begin + inherited; + if not dtmSystem.tblRepasse.Active then + begin + dtmSystem.tblRepasse.Open; + end; + if not dtmSystem.tblRepasseFase.Active then + begin + dtmSystem.tblRepasseFase.Open; + end; + SetupHackedNavigator(navPrincipal, ImageList1, 's'); + SetupHackedNavigator(navfases, ImageList1, 's'); +end; + +procedure TcadModeloRepasse.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TcadModeloRepasse.navfasesBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + + nbPost: + begin + if dbedt_atrasomin.Text = '' then + begin + MessageDlg('Por favor preencha um nmero para o atraso mnimo.', + mtWarning, [mbOK], 0); + abort; + end; + if dbedt_atrasomax.Text = '' then + begin + MessageDlg('Por favor preencha um nmero para o atraso mximo.', + mtWarning, [mbOK], 0); + abort; + end; + + if strtoint(dbedt_atrasomin.text) > strtoint(dbedt_atrasomax.text) then + begin + MessageDlg('H uma inconsistncia nos valores do atraso. Por favor reveja-os.', + mtWarning, [mbOK], 0); + abort; + end; + // SelectNext(ActiveControl as TWinControl, True, True); + end; + + nbCancel: + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + end; +end; + +procedure TcadModeloRepasse.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + inherited; + // +end; + +procedure TcadModeloRepasse.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if LowerCase(S) = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +procedure TcadModeloRepasse.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ucadPoli_Faixa.dfm b/ucadPoli_Faixa.dfm new file mode 100644 index 0000000..7621df2 --- /dev/null +++ b/ucadPoli_Faixa.dfm @@ -0,0 +1,109 @@ +inherited cadPoli_Faixa: TcadPoli_Faixa + Caption = 'Nova Pol'#237'tica/Faixa' + ClientHeight = 267 + ClientWidth = 291 + Scaled = False + ExplicitWidth = 297 + ExplicitHeight = 295 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_nomepol: TLabel [0] + Left = 24 + Top = 38 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_nomefaixa: TLabel [1] + Left = 24 + Top = 119 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_faixaatraso: TLabel [2] + Left = 24 + Top = 165 + Width = 76 + Height = 13 + Caption = 'Faixa de Atraso:' + end + object lbl_ligaatraso: TLabel [3] + Left = 141 + Top = 187 + Width = 6 + Height = 13 + Caption = 'a' + end + inherited stbStatus: TStatusBar + Top = 248 + Width = 291 + ExplicitTop = 217 + ExplicitWidth = 291 + end + object rbtn_politica: TRadioButton + Left = 8 + Top = 8 + Width = 113 + Height = 17 + Caption = 'Pol'#237'tica' + TabOrder = 1 + OnClick = rbtn_politicaClick + end + object rbtn_faixa: TRadioButton + Left = 8 + Top = 93 + Width = 113 + Height = 17 + Caption = 'Faixa' + TabOrder = 2 + OnClick = rbtn_faixaClick + end + object edt_pol: TEdit + Left = 24 + Top = 57 + Width = 241 + Height = 21 + TabOrder = 3 + end + object edt_faixa: TEdit + Left = 24 + Top = 138 + Width = 241 + Height = 21 + TabOrder = 4 + end + object btn_ok: TButton + Left = 24 + Top = 217 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 5 + OnClick = btn_okClick + end + object btn_cancelar: TButton + Left = 190 + Top = 217 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 6 + end + object edt_faixaini: TEdit + Left = 24 + Top = 184 + Width = 97 + Height = 21 + TabOrder = 7 + end + object edt_faixafim: TEdit + Left = 168 + Top = 184 + Width = 97 + Height = 21 + TabOrder = 8 + end +end diff --git a/ucadPoli_Faixa.pas b/ucadPoli_Faixa.pas new file mode 100644 index 0000000..ef8f02a --- /dev/null +++ b/ucadPoli_Faixa.pas @@ -0,0 +1,125 @@ +unit ucadPoli_Faixa; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.StdCtrls, + Vcl.DBCtrls, Data.DB, Vcl.Mask; + +type + TcadPoli_Faixa = class(TmstMaster) + rbtn_politica: TRadioButton; + rbtn_faixa: TRadioButton; + lbl_nomepol: TLabel; + lbl_nomefaixa: TLabel; + edt_pol: TEdit; + edt_faixa: TEdit; + btn_ok: TButton; + btn_cancelar: TButton; + lbl_faixaatraso: TLabel; + lbl_ligaatraso: TLabel; + edt_faixaini: TEdit; + edt_faixafim: TEdit; + procedure rbtn_politicaClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure rbtn_faixaClick(Sender: TObject); + procedure btn_okClick(Sender: TObject); + private + { Private declarations } + public + tipo_add : string; + { Public declarations } + end; + +var + cadPoli_Faixa: TcadPoli_Faixa; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +//cadastro de polticas/faixas + +procedure TcadPoli_Faixa.btn_okClick(Sender: TObject); +begin + inherited; + if rbtn_politica.Checked then + begin + if edt_pol.Text <> '' then + begin + //se poltica foi selecionado adiciona uma nova entrada na tabela de polticas com o id da + //empresa em que o usurio estava + dtmSystem.dtsPoliticas.DataSet.Append; + dtmSystem.tblPoliticasTX_DESCRICAO.AsString := edt_pol.Text; + end else + begin + MessageDlg('Insira um nome para a poltica.',mtError,[mbOK],0); + ModalResult := mrNone; + end; + end; + if rbtn_faixa.Checked then + begin + if dtmSystem.tblPoliticas.IsEmpty then + begin + MessageDlg('No h polticas para inserir esta faixa. Crie uma nova poltica primeiro.',mtError,[mbOK],0); + ModalResult := mrNone; + exit; + end; + + if edt_faixa.Text <> '' then + begin + //se faixa foi selecionado adiciona uma nova entrada na tabela de faixas com o id + //da poltica em que o usurio estava + dtmSystem.dtsFaixas.DataSet.Append; + dtmSystem.tblFaixasTX_DESCRICAO.AsString := edt_faixa.Text; + dtmSystem.dtsFaixas.DataSet.Post; + //dtmSystem.tblFaixasID_POLITICA.AsString := dtmSystem.tblPoliticasID_POLITICA.AsString; + end else + begin + MessageDlg('Insira um nome para a faixa.',mtError,[mbOK],0); + ModalResult := mrNone; + end; + end; +end; + +procedure TcadPoli_Faixa.FormCreate(Sender: TObject); +begin + inherited; + //inicializa algumas variveis usadas + rbtn_politica.Checked := false; + rbtn_faixa.Checked := false; + edt_pol.Enabled := false; + edt_faixa.Enabled := false; +end; + +procedure TcadPoli_Faixa.rbtn_faixaClick(Sender: TObject); +begin + inherited; + //toggle checked e algumas funcionalidades + if rbtn_faixa.Checked then + begin + edt_pol.Enabled := false; + rbtn_politica.Checked := false; + edt_faixa.Enabled := true; + edt_faixaini.Enabled := true; + edt_faixafim.Enabled := true; + end; +end; + +procedure TcadPoli_Faixa.rbtn_politicaClick(Sender: TObject); +begin + inherited; + //toggle checked e algumas funcionalidades + if rbtn_politica.Checked then + begin + edt_pol.Enabled := true; + rbtn_faixa.Checked := false; + edt_faixa.Enabled := false; + edt_faixaini.Enabled := false; + edt_faixafim.Enabled := false; + end; +end; +end. diff --git a/ucadProvidencias.dfm b/ucadProvidencias.dfm new file mode 100644 index 0000000..1dd1475 --- /dev/null +++ b/ucadProvidencias.dfm @@ -0,0 +1,676 @@ +inherited cadProvidencias: TcadProvidencias + BorderStyle = bsSingle + Caption = 'Provid'#234'ncias' + ClientHeight = 524 + ClientWidth = 857 + Scaled = False + ExplicitWidth = 863 + ExplicitHeight = 552 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + Left = 8 + Top = 180 + Width = 841 + ExplicitLeft = 8 + ExplicitTop = 180 + ExplicitWidth = 841 + inherited pcClientes: TPageControl + Width = 816 + TabStop = False + OnChange = pcClientesChange + ExplicitWidth = 816 + inherited tabCadastro: TTabSheet + Caption = '&Provid'#234'ncias' + Enabled = True + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 808 + ExplicitHeight = 272 + object dbgrid_providencias: TDBGrid + Left = 3 + Top = 3 + Width = 802 + Height = 266 + TabStop = False + DataSource = dtmSystem.dtsProvidencias + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [fsBold] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'Tahoma' + Title.Font.Style = [] + Width = 548 + Visible = True + end + item + Expanded = False + FieldName = 'TP_PROVIDENCIA' + PickList.Strings = ( + 'Positiva' + 'Negativa') + Title.Caption = 'Tipo' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'Tahoma' + Title.Font.Style = [] + Width = 103 + Visible = True + end + item + Expanded = False + FieldName = 'TP_FORCAAGENDA' + PickList.Strings = ( + 'Sim' + 'N'#227'o') + Title.Caption = 'For'#231'ar Agendamento' + Title.Font.Charset = DEFAULT_CHARSET + Title.Font.Color = clWindowText + Title.Font.Height = -11 + Title.Font.Name = 'Tahoma' + Title.Font.Style = [] + Visible = True + end> + end + end + end + end + inherited stbStatus: TStatusBar + Top = 505 + Width = 857 + ExplicitTop = 505 + ExplicitWidth = 857 + end + inherited grpDescricao: TGroupBox + Left = 8 + Width = 841 + Height = 119 + ExplicitLeft = 8 + ExplicitWidth = 841 + ExplicitHeight = 119 + inherited DBEdit1: TDBEdit + Width = 816 + DataField = 'TX_NOME' + ExplicitWidth = 816 + end + object DBMemo1: TDBMemo + Left = 12 + Top = 48 + Width = 816 + Height = 65 + Hint = 'Suporta apenas 255 caracteres.' + DataField = 'TX_DESCRICAO' + DataSource = dtsDB + ParentShowHint = False + ShowHint = True + TabOrder = 1 + end + end + inherited navPrincipal: TDBNavigator + Left = 8 + Width = 840 + DataSource = dtsDB + ExplicitLeft = 8 + ExplicitWidth = 840 + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblProvidencias + Left = 584 + end + object ImageList1: TImageList + Left = 648 + Top = 8 + Bitmap = { + 494C01010C001800140110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end +end diff --git a/ucadProvidencias.pas b/ucadProvidencias.pas new file mode 100644 index 0000000..cae69a9 --- /dev/null +++ b/ucadProvidencias.pas @@ -0,0 +1,167 @@ +unit ucadProvidencias; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.Grids, + Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, + Vcl.Buttons, + System.ImageList, Vcl.ImgList; + +// Tentando "Hackear" o TDBNavigator +type + THackDBNavigator = class(TDBNavigator); + +type + TcadProvidencias = class(TmstCadastro) + ImageList1: TImageList; + dbgrid_providencias: TDBGrid; + DBMemo1: TDBMemo; + procedure FormCreate(Sender: TObject); + procedure pcClientesChange(Sender: TObject); + procedure dtsDBStateChange(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + private + { Private declarations } + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + public + id_prov: integer; + { Public declarations } + end; + +var + cadProvidencias: TcadProvidencias; + +implementation + +{$R *.dfm} + +uses udtmSystem, System.UITypes; + +procedure TcadProvidencias.dtsDBStateChange(Sender: TObject); +begin + // inherited; + // DBLookupListBox1.Enabled := not(dtsDB.State in [dsEdit, dsInsert]); + grpDescricao.Enabled := (dtsDB.DataSet.State in [dsEdit, dsInsert]); + dbgrid_providencias.ReadOnly := + not(dtsDB.DataSet.State in [dsEdit, dsInsert]); + +end; + +procedure TcadProvidencias.FormCreate(Sender: TObject); +begin + inherited; + dtmSystem.tblProvidencias.Open; + dtmSystem.tblInadimplencias.Open; + SetupHackedNavigator(navPrincipal, ImageList1); + id_prov := -1; + + navPrincipal.Enabled := dtmSystem.VerificarPermissao('CBR.02.05'); +end; + +procedure TcadProvidencias.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TcadProvidencias.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbPost: + begin + if dtmSystem.tblProvidenciasTP_FORCAAGENDA.AsString = '' then + begin + Messagedlg + ('Por favor escolha se a providncia ir forar agendamento ou no.', + mtWarning, [mbOk], 0); + abort; + end; + end; + end; + inherited; +end; + +procedure TcadProvidencias.pcClientesChange(Sender: TObject); +begin + inherited; + case pcClientes.ActivePageIndex of + 0: + begin + dtsDB.DataSet := dtmSystem.tblProvidencias; + end; + 1: + begin + dtsDB.DataSet := dtmSystem.tblInadimplencias; + end; + end; +end; + +procedure TcadProvidencias.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + Caption := Captions[btn]; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; + +end; + +procedure TcadProvidencias.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ucadTextEmail.dfm b/ucadTextEmail.dfm new file mode 100644 index 0000000..51565eb --- /dev/null +++ b/ucadTextEmail.dfm @@ -0,0 +1,697 @@ +inherited cadTextEmail: TcadTextEmail + Caption = 'Texto dos Emails' + ClientHeight = 557 + ClientWidth = 850 + ExplicitTop = -75 + ExplicitWidth = 856 + ExplicitHeight = 585 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 538 + Width = 850 + ExplicitTop = 538 + ExplicitWidth = 850 + end + object navPrincipal: TDBNavigator + Left = 242 + Top = 8 + Width = 600 + Height = 57 + DataSource = dtsTextoEmail + Hints.Strings = ( + 'Primeiro Registro' + 'Registro Anterior' + 'Pr'#243'ximo Registro' + #218'ltimo Registro' + 'Criar Registro' + 'Apagar Registro' + 'Editar Registro' + 'Salvar Registro' + 'Cancelar' + 'Atualizar' + 'Apply updates' + 'Cancel updates') + ParentShowHint = False + ShowHint = False + TabOrder = 1 + end + object gb_conf: TGroupBox + Left = 242 + Top = 134 + Width = 600 + Height = 75 + Caption = 'Formata'#231#227'o' + Color = clMenu + ParentBackground = False + ParentColor = False + TabOrder = 2 + object lbl_tamfonte: TLabel + Left = 11 + Top = 24 + Width = 48 + Height = 13 + Caption = 'Tamanho:' + end + object lbl_atalho: TLabel + Left = 87 + Top = 24 + Width = 38 + Height = 13 + Caption = 'Atalhos:' + end + object lbl_dev: TLabel + Left = 87 + Top = 44 + Width = 88 + Height = 13 + Caption = 'Nome do devedor:' + end + object edt_coddev: TEdit + Left = 181 + Top = 41 + Width = 91 + Height = 21 + ReadOnly = True + TabOrder = 0 + Text = '% DEVEDOR %' + end + object edt_fontememo: TEdit + Left = 11 + Top = 43 + Width = 37 + Height = 21 + Alignment = taRightJustify + TabOrder = 1 + Text = '8' + OnExit = edt_fontememoExit + OnKeyDown = edt_fontememoKeyDown + end + object up_fontememo: TUpDown + Left = 48 + Top = 43 + Width = 16 + Height = 21 + Associate = edt_fontememo + Min = 8 + Max = 72 + Position = 8 + TabOrder = 2 + OnClick = up_fontememoClick + end + end + object gb_desc: TGroupBox + Left = 242 + Top = 71 + Width = 600 + Height = 57 + Caption = 'Descri'#231#227'o' + TabOrder = 3 + object db_desc: TDBEdit + Left = 11 + Top = 24 + Width = 577 + Height = 21 + DataField = 'TX_DESCRICAO' + DataSource = dtsTextoEmail + TabOrder = 0 + end + end + object DBGrid1: TDBGrid + Left = 8 + Top = 8 + Width = 228 + Height = 524 + DataSource = dtsTextoEmail + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 4 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_DESCRICAO' + Title.Caption = 'Descri'#231#227'o' + Visible = True + end> + end + object dbre_email: TDBMemo + Left = 242 + Top = 215 + Width = 600 + Height = 317 + DataField = 'TL_TEXTO' + DataSource = dtsTextoEmail + ScrollBars = ssVertical + TabOrder = 5 + WantTabs = True + end + object dtsTextoEmail: TDataSource + DataSet = dtmSystem.tblTextoEmail + OnStateChange = dtsTextoEmailStateChange + Left = 496 + Top = 24 + end + object ImageList1: TImageList + Left = 568 + Top = 24 + Bitmap = { + 494C01010C001800200310001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end +end diff --git a/ucadTextEmail.pas b/ucadTextEmail.pas new file mode 100644 index 0000000..9b28b95 --- /dev/null +++ b/ucadTextEmail.pas @@ -0,0 +1,95 @@ +unit ucadTextEmail; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls, + Vcl.ExtCtrls, Vcl.CheckLst, Vcl.DBCtrls, Data.DB, System.ImageList, + Vcl.ImgList, Vcl.Mask, Vcl.Grids, Vcl.DBGrids; + +type + TcadTextEmail = class(TmstMaster) + dtsTextoEmail: TDataSource; + navPrincipal: TDBNavigator; + ImageList1: TImageList; + gb_conf: TGroupBox; + lbl_tamfonte: TLabel; + gb_desc: TGroupBox; + db_desc: TDBEdit; + DBGrid1: TDBGrid; + lbl_atalho: TLabel; + lbl_dev: TLabel; + edt_coddev: TEdit; + dbre_email: TDBMemo; + edt_fontememo: TEdit; + up_fontememo: TUpDown; + procedure FormCreate(Sender: TObject); + procedure dtsTextoEmailStateChange(Sender: TObject); + procedure edt_fontememoExit(Sender: TObject); + procedure edt_fontememoKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure up_fontememoClick(Sender: TObject; Button: TUDBtnType); + private + // linha_cursor: Integer; + { Private declarations } + public + { Public declarations } + end; + +var + cadTextEmail: TcadTextEmail; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +// edt_coddev tem um texto que uso como palavra-chave pra substituir no texto do email o nome do devedor + +procedure TcadTextEmail.dtsTextoEmailStateChange(Sender: TObject); +begin + dbre_email.ReadOnly := dtsTextoEmail.State in [dsBrowse]; + gb_conf.Enabled := dtsTextoEmail.State in [dsInsert, dsEdit]; + db_desc.ReadOnly := dtsTextoEmail.State in [dsBrowse]; +end; + +procedure TcadTextEmail.edt_fontememoExit(Sender: TObject); +begin + if strtoint(edt_fontememo.Text) < 8 then + begin + edt_fontememo.Text := '8'; + dbre_email.font.size := 8; + end; + if strtoint(edt_fontememo.Text) > 72 then + begin + edt_fontememo.Text := '72'; + dbre_email.font.size := 72; + end; + + dbre_email.font.size := strtoint(edt_fontememo.Text); +end; + +procedure TcadTextEmail.edt_fontememoKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = vkReturn then + begin + dbre_email.SetFocus; + end; +end; + +procedure TcadTextEmail.FormCreate(Sender: TObject); +begin + dtmSystem.SetupHackedNavigator(navPrincipal, ImageList1, 's'); + dtsTextoEmail.DataSet.Open; +end; + +procedure TcadTextEmail.up_fontememoClick(Sender: TObject; Button: TUDBtnType); +begin + dbre_email.font.size := strtoint(edt_fontememo.Text); +end; + +end. diff --git a/ucadUsuarios.dfm b/ucadUsuarios.dfm new file mode 100644 index 0000000..658ac7c --- /dev/null +++ b/ucadUsuarios.dfm @@ -0,0 +1,1434 @@ +inherited cadUsuarios: TcadUsuarios + Left = 342 + Top = 110 + Caption = 'Usu'#225'rios' + ClientHeight = 393 + ClientWidth = 770 + Menu = mnu_opcoes + Scaled = False + OnCloseQuery = FormCloseQuery + OnShow = FormShow + ExplicitWidth = 776 + ExplicitHeight = 442 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 374 + Width = 770 + ExplicitTop = 374 + ExplicitWidth = 770 + end + object pcCad: TPageControl + Left = 8 + Top = 9 + Width = 757 + Height = 363 + ActivePage = pgGrupos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + TabStop = False + OnChange = pcCadChange + OnChanging = pcCadChanging + object pgAcessos: TTabSheet + Caption = '&Permiss'#245'es' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + object lbl_grupos: TLabel + Left = 3 + Top = 16 + Width = 37 + Height = 13 + Caption = 'Grupos:' + end + object lbl_usuarios: TLabel + Left = 523 + Top = 16 + Width = 91 + Height = 13 + Caption = 'Usu'#225'rios do Grupo:' + end + object lbl_permissoes: TLabel + Left = 228 + Top = 16 + Width = 56 + Height = 13 + Caption = 'Permiss'#245'es:' + end + object rdbtv_permissoes: TrDBTreeView + Left = 228 + Top = 36 + Width = 290 + Height = 269 + Images = ImageList1 + Indent = 5 + TabOrder = 0 + TabStop = False + OnClick = rdbtv_permissoesClick + OnGetImageIndex = rdbtv_permissoesGetImageIndex + Items.NodeData = { + 030100000034000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0D39C + 1501000000010B3C003C00540058005F004E004F004D0045003E003E003E0000 + 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF40D39C150000000001103C + 003C00540058005F00440045005300430052004900430041004F003E003E00} + MasterDataSource = dtsGrupo + DataItemDefs = < + item + SubDataItemDefs = < + item + SubDataItemDefs = <> + DataSource = dtmSystem.dtsPermissoes + KeyFieldName = 'ID_PERMISSAO' + ParentKeyFieldName = 'ID_PARENT' + MultilevelMode = True + RecordTextMask = '<>' + end> + DataSource = dtmSystem.dtsGrupos + ListAllRecords = False + RecordTextMask = '<>' + RecordStyle = [fsBold] + end> + end + object dbGrupos: TDBGrid + Left = 3 + Top = 36 + Width = 220 + Height = 296 + TabStop = False + DataSource = dtsGrupo + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Descri'#231#227'o do Grupo' + Width = 200 + Visible = True + end> + end + object dbUsuarios: TDBGrid + Left = 523 + Top = 36 + Width = 220 + Height = 296 + TabStop = False + DataSource = dtsUsuarios + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack] + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Usu'#225'rios' + Visible = True + end> + end + object bitbtn_liberar: TBitBtn + Left = 228 + Top = 309 + Width = 81 + Height = 25 + Caption = 'Liberar' + Glyph.Data = { + 92030000424D9203000000000000920200002800000010000000100000000100 + 08000000000000010000120B0000120B0000970000009700000000000000FFFF + FF00FF00FF00F8F7F800F2EFED00E6E2DF00FAF7F300FAFBF800D2F1FF00FCFE + FF0060C4FE00B7E4FD00BAE6FF005BC0FD0079C8FA00EEF8FE0036A7F60038A9 + F70097D2FB0099D4FB00FAFDFF0032A0F3003BA6F5004BADF50050B0F7004FAE + F60054B4F8008FCDFB00D8EDFC002296F2002493F1002593EF002694F0002998 + F2002C9CF4002E9AF200309CF200339EF3003FA1F30090CBFA0097CCF800A0D1 + F900A4D4FA00D7ECFD00D6EBFC00E2ECF400007AEB001386ED001A8CEE001C8C + EF00218FEF002C91EE003598F0003695EE006AB3F40077B8F5009ACBF8009ECE + F800D5EAFC00ECF5FD00EEF6FD00EAF2F9000074E8000677EA000677E900087D + EB000877E9000976E6000B7BEA000A66C4000C58A600127DEA001584ED001362 + B300156AC0001B81E9001978DA001E85EB001F84EB002084EB001F84E7001F84 + E6002283E6002587EB00288DED002B8BEC004B9CEF004E9EEF0051A2F0006DB2 + F7006AAEF100609DDA0072B2F20079B8F50079B6F40079B7F4007CB9F5007EB9 + F50080BAF3008AC0F7008CC1F7008FC3F70076A0CB007098C1008ABBEC007DA8 + D40093C5F80090C2F40079A3CD0098C7F600B2D6FA00B1D4F800BADAF90098B2 + CB00D7EAFC00DAE3EC00F0F7FE00EFF6FD00FDFEFF000070E800006DE700006E + E700006FE7000070E7000054AE00055DB800065CB7000A76E6000B76E6000A66 + C5002183EB004196EE00509FF1004F9CEF00578CC400629EDC0073B2F30075B3 + F30077B4F300C7DDF400C5DBF200D2E6FB00D1E5FA00D8E9FB00EDF5FE00006A + E700006BE700006CE7000069E600FAFCFF00FEFEFF0002020202024646464646 + 46020202020202020281814C5B696C86497C46020202020281806B032D8B8C73 + 05677E46020202457F6E018882403F828A06717D460202816A96839192575593 + 9184076646025152958993795A766D943E7961044A46515D3C54445F01018F47 + 777A4E3D874651383A323601725875567877428E684651292B232628342E606F + 7B77428D654651277417221D1E30487053784F90594651190912101624202F35 + 5C9162144B4602510B960E11152131414D857664810202510D08011318251F33 + 5E016E4381020202510A0C010F1C2C3B01638081020202020251511A1B2A3937 + 50818102020202020202025151515151510202020202} + TabOrder = 3 + TabStop = False + OnClick = bitbtn_liberarClick + end + object bitbtn_bloquear: TBitBtn + Left = 322 + Top = 309 + Width = 81 + Height = 25 + Caption = 'Bloquear' + Glyph.Data = { + 66030000424D6603000000000000660200002800000010000000100000000100 + 08000000000000010000120B0000120B00008C0000008C00000000000000FFFF + FF00FF00FF00F8F7F800F2EFED00E6E2DF00FAF7F300FAFBF800D2F1FF00FCFE + FF0060C4FE00B7E4FD00BAE6FF005BC0FD00EEF8FE0042AEF70075C6FA0097D2 + FB0099D4FB00FAFDFF0032A0F40034A1F40041ABF7004BADF50050B0F7004FAE + F60054B4F8008FCDFB00D8EDFC00F3FAFF002293F1002593EF002694F1002897 + F2002E9AF2003199F100339EF30090CBFA00A0D1F900A4D4FA00B2DAFA00D7EC + FD00D6EBFC00D8ECFD00E2ECF4001487EE00188AEE00218FEF002790EF002992 + EF002C91EE0077B8F5009ACBF8009ECEF800ABD4F900D4E9FC00D5EAFC00ECF5 + FD00EEF6FD00EAF2F9000073E8000677EA000677E9000877E9000976E6000A66 + C4000D7FEB00107CE9001182ED000C58A6001362B300156AC0001B81E9001978 + DA001F84EB002084EB001F84E7001F84E6002283E600288DED006DB2F700609D + DA0079B8F50079B6F4007EB9F50080BAF3008AC0F7008CC1F7008FC3F70076A0 + CB007098C1008ABBEC007DA8D40093C5F80090C2F40079A3CD009FCBF600B2D6 + FA0098B2CB00CFE5FB00D3E8FC00D2E7FB00D5E9FC00DAE3EC00F0F7FE00FDFE + FF00006EE8000070E8000072E800006DE700006EE700006FE7000070E7000054 + AE000474E8000572E800055DB8000876E900065CB7000A76E6000B76E6000A66 + C5002183EB004094ED00509FF1004F9CEF00578CC400629EDC0073B2F30075B3 + F30077B4F300C7DDF400C5DBF200D2E6FB00D1E5FA00EDF5FE00006AE700EFF6 + FE00FAFCFF00FEFEFF0002020202024545454545450202020202020202797949 + 515C5F7E467145020202020279785E032C838467055A76450202024177610180 + 7A3E3D7A82066274450202795D8B7B73706B6F6C6A7C075945024D4E8A817289 + 603C4363636E540447454D523A4F426501606301606F4A3B7F454D34382F2D30 + 370101603C6B3F865B454D2629221E23660101603C6B3F8558454D256817152B + 01363701606D4B8750454D190911161D28203164638855134845024D0B8B100F + 14212E44757D69577902024D0D08011218241F3253016140790202024D0A0C01 + 0E1C2A390156787902020202024D4D1A1B2735334C797902020202020202024D + 4D4D4D4D4D0202020202} + TabOrder = 4 + TabStop = False + OnClick = bitbtn_bloquearClick + end + object btn_movuser: TButton + Left = 661 + Top = 18 + Width = 82 + Height = 17 + Caption = 'Mover Usu'#225'rios' + TabOrder = 5 + TabStop = False + OnClick = btn_movuserClick + end + end + object pgGrupos: TTabSheet + Caption = '&Grupos' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 1 + ParentFont = False + object dblulb_grupos: TDBLookupListBox + Left = 3 + Top = 16 + Width = 121 + Height = 303 + KeyField = 'ID_GRUPO' + ListField = 'TX_NOME' + ListSource = dtsGrupo + TabOrder = 0 + TabStop = False + end + object navgrupos: TDBNavigator + Left = 143 + Top = 16 + Width = 570 + Height = 44 + DataSource = dtmSystem.dtsGrupos + Hints.Strings = ( + 'Primeiro Registro' + 'Registro Anterior' + 'Pr'#243'ximo Registro' + #218'ltimo Registro' + 'Criar Registro' + 'Apagar Registro' + 'Editar Registro' + 'Salvar Registro' + 'Cancelar' + 'Atualizar' + 'Apply updates' + 'Cancel updates') + ParentShowHint = False + ShowHint = False + TabOrder = 1 + BeforeAction = navgruposBeforeAction + end + object pnl_grupo: TPanel + Left = 143 + Top = 66 + Width = 562 + Height = 225 + BevelOuter = bvNone + TabOrder = 2 + object lbl_gruponome: TLabel + Left = 7 + Top = 8 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_sudo: TLabel + Left = 7 + Top = 54 + Width = 45 + Height = 13 + Caption = 'Exce'#231#227'o:' + end + object dbedt_gruponome: TDBEdit + Left = 7 + Top = 27 + Width = 210 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsGrupos + TabOrder = 0 + end + object dbcb_sudo: TDBCheckBox + Left = 7 + Top = 73 + Width = 218 + Height = 17 + Caption = 'Grupo possui permiss'#245'es de Administrador' + DataField = 'TP_SU' + DataSource = dtmSystem.dtsGrupos + TabOrder = 1 + ValueChecked = 'S' + ValueUnchecked = 'N; ;;' + end + end + end + object pgUsuarios: TTabSheet + Caption = '&Usu'#225'rios' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 2 + ParentFont = False + object lbl_escolhegrupo: TLabel + Left = 3 + Top = 64 + Width = 32 + Height = 13 + Caption = 'Grupo:' + end + object pcUsuarios: TPageControl + Left = 154 + Top = 64 + Width = 592 + Height = 271 + ActivePage = pgemail + TabOrder = 0 + TabStop = False + object pgDados: TTabSheet + Caption = '&Dados Cadastrais' + object lbl_login: TLabel + Left = 3 + Top = 49 + Width = 29 + Height = 13 + Caption = 'Login:' + end + object lbl_senha: TLabel + Left = 188 + Top = 49 + Width = 87 + Height = 13 + Caption = 'Senha de Acesso:' + end + object lbl_nome: TLabel + Left = 3 + Top = 3 + Width = 78 + Height = 13 + Caption = 'Nome Completo:' + end + object lbl_grupoacesso: TLabel + Left = 384 + Top = 3 + Width = 85 + Height = 13 + Caption = 'Grupo de Acesso:' + end + object dbedt_login: TDBEdit + Left = 3 + Top = 68 + Width = 145 + Height = 21 + DataField = 'TX_USUARIO' + DataSource = dtsUsuarios + TabOrder = 2 + end + object dbedt_senha: TDBEdit + Left = 188 + Top = 68 + Width = 180 + Height = 21 + DataField = 'TX_SENHA' + DataSource = dtsUsuarios + TabOrder = 3 + end + object dbcbx_trocasenha: TDBCheckBox + Left = 3 + Top = 101 + Width = 278 + Height = 17 + Caption = 'O usu'#225'rio dever'#225' alterar sua senha no pr'#243'ximo acesso' + DataField = 'TP_TROCAPASS' + DataSource = dtsUsuarios + TabOrder = 5 + ValueChecked = 'S' + ValueUnchecked = 'N; ;;null;nil;'#39#39';'#39' '#39';;;;' + end + object dbcbx_bloqueado: TDBCheckBox + Left = 3 + Top = 133 + Width = 121 + Height = 17 + Caption = 'Conta Inativa' + DataField = 'TP_ATIVO' + DataSource = dtsUsuarios + TabOrder = 6 + ValueChecked = 'N; ;;null;nil;'#39#39';'#39' '#39';;;;' + ValueUnchecked = 'S' + end + object cb_senha: TCheckBox + Left = 374 + Top = 70 + Width = 97 + Height = 17 + Caption = 'Mostrar senha' + TabOrder = 4 + OnClick = cb_senhaClick + end + object dbedt_nome: TDBEdit + Left = 3 + Top = 22 + Width = 365 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtsUsuarios + TabOrder = 0 + end + object dblucb_grupoacesso: TDBLookupComboBox + Left = 384 + Top = 22 + Width = 145 + Height = 21 + DataField = 'ID_GRUPO' + DataSource = dtsUsuarios + ListSource = dtsConsulta + TabOrder = 1 + end + end + object pgemail: TTabSheet + Caption = '&E-mail' + ImageIndex = 1 + object lbl_nomeemail: TLabel + Left = 4 + Top = 4 + Width = 31 + Height = 13 + Caption = 'Nome:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 228 + Top = 4 + Width = 28 + Height = 13 + Caption = 'Email:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_useremail: TLabel + Left = 4 + Top = 52 + Width = 39 + Height = 13 + Caption = 'Usu'#225'rio:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_senhaemail: TLabel + Left = 142 + Top = 52 + Width = 34 + Height = 13 + Caption = 'Senha:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_portasmtp: TLabel + Left = 467 + Top = 52 + Width = 28 + Height = 13 + Caption = 'Porta:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_smtp: TLabel + Left = 467 + Top = 4 + Width = 75 + Height = 13 + Caption = 'Servidor SMTP:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_nomeemail: TDBEdit + Left = 4 + Top = 23 + Width = 195 + Height = 21 + DataField = 'TX_EMAILNOME' + DataSource = dtsUsuarios + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object DBEdit2: TDBEdit + Left = 228 + Top = 23 + Width = 212 + Height = 21 + DataField = 'TX_EMAIL' + DataSource = dtsUsuarios + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_useremail: TDBEdit + Left = 4 + Top = 71 + Width = 118 + Height = 21 + DataField = 'TX_USUARIOEMAIL' + DataSource = dtsUsuarios + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dbedt_senhaemail: TDBEdit + Left = 142 + Top = 71 + Width = 110 + Height = 21 + DataField = 'TX_SENHAEMAIL' + DataSource = dtsUsuarios + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object dbedt_portasmtp: TDBEdit + Left = 467 + Top = 71 + Width = 46 + Height = 21 + DataField = 'TX_PORTA' + DataSource = dtsUsuarios + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object dbedt_smtp: TDBEdit + Left = 467 + Top = 23 + Width = 105 + Height = 21 + DataField = 'TX_SMTP' + DataSource = dtsUsuarios + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object btn_testconex: TButton + Left = 276 + Top = 69 + Width = 104 + Height = 25 + Caption = 'Testar Conex'#227'o' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 6 + OnClick = btn_testconexClick + end + object dbcb_ssl: TDBCheckBox + Left = 4 + Top = 121 + Width = 97 + Height = 17 + Caption = 'SSL' + DataField = 'TP_SSL' + DataSource = dtsUsuarios + TabOrder = 7 + ValueChecked = 'S' + ValueUnchecked = 'N;null;nill;;' + end + object dbcb_tls: TDBCheckBox + Left = 4 + Top = 98 + Width = 97 + Height = 17 + Caption = 'TLS' + DataField = 'TP_TLS' + DataSource = dtsUsuarios + TabOrder = 8 + ValueChecked = 'S' + ValueUnchecked = 'N;null;nill;;' + end + end + end + object navusuarios: TDBNavigator + Left = 3 + Top = 14 + Width = 740 + Height = 44 + DataSource = dtsUsuarios + Hints.Strings = ( + 'Primeiro Registro' + 'Registro Anterior' + 'Pr'#243'ximo Registro' + #218'ltimo Registro' + 'Criar Registro' + 'Apagar Registro' + 'Editar Registro' + 'Salvar Registro' + 'Cancelar' + 'Atualizar' + 'Apply updates' + 'Cancel updates') + ParentShowHint = False + ShowHint = False + TabOrder = 1 + end + object dblulb_usuarios: TDBLookupListBox + Left = 3 + Top = 109 + Width = 145 + Height = 225 + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsUsuarios + TabOrder = 2 + TabStop = False + end + object dblucb_grupos: TDBLookupComboBox + Left = 3 + Top = 83 + Width = 145 + Height = 21 + KeyField = 'ID_GRUPO' + ListField = 'TX_NOME' + ListSource = dtsGrupo + TabOrder = 3 + TabStop = False + end + end + end + object mnu_opcoes: TMainMenu + Left = 616 + object Opes1: TMenuItem + Caption = '&Op'#231#245'es' + object mnu_delperm: TMenuItem + Caption = '&Apagar Permiss'#245'es' + Visible = False + end + object N1: TMenuItem + Caption = '-' + end + object mnu_attperm: TMenuItem + Caption = '&Atualizar Permiss'#245'es' + OnClick = mnu_attpermClick + end + end + end + object ImageList1: TImageList + Left = 544 + Bitmap = { + 494C010102000800E40010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000063000000630000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 6B0000006B000000000000000000000000000000000000000000000000000000 + 6B0000006B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000063000018B5310018B53100006300000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000006B000018 + EF000010DE0000006B000000000000000000000000000000000000006B000000 + E7000008E70000006B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000063 + 000031C64A0021B5390018B5290021B531000063000000000000000000000000 + 000000000000000000000000000000000000000000000000000000006B000018 + E7000018EF000010DE0000006B00000000000000000000006B000000DE000008 + EF000000DE0000006B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000063000042D6 + 6B0039CE5A0021AD39000063000018AD290018B5310000630000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 6B000018DE000021EF000010DE0000006B0000006B000000E7000008EF000000 + DE0000006B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000006300004AD67B0052DE + 7B0031B54A00006300000000000000630000109C210018AD3100006300000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000006B000018DE000021EF000010E7000008EF000008EF000000DE000000 + 6B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000063000042C6 + 630000630000000000000000000000000000000000000063000018AD29000063 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000006B000018E7000010EF000010EF000008DE0000006B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000063 + 000000000000000000000000000000000000000000000000000000630000109C + 2100006300000000000000000000000000000000000000000000000000000000 + 00000000000000006B000021E7000018EF000018EF000010DE0000006B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000006300000063000000000000000000000000000000000000000000000000 + 000000006B000029E7000031EF000021E7000018E7000021EF000018DE000000 + 6B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000063000000630000000000000000000000000000000000000000 + 6B000831E7000839EF000029DE0000006B0000006B000018DE000029EF000018 + DE0000006B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000006B001042 + E7001042EF000829DE0000006B00000000000000000000006B000021DE000029 + EF000018E70000006B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000006B00184A + E7001031DE0000006B000000000000000000000000000000000000006B000021 + DE000021E70000006B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 6B0000006B000000000000000000000000000000000000000000000000000000 + 6B0000006B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00FFFFFFFF00000000FFFFFFFF00000000 + F9FFE7E700000000F0FFC3C300000000E07FC18300000000C03FE00700000000 + 821FF00F00000000C78FF81F00000000EFC7F81F00000000FFF3F00F00000000 + FFF9E00700000000FFFFC18300000000FFFFC3C300000000FFFFE7E700000000 + FFFFFFFF00000000FFFFFFFF0000000000000000000000000000000000000000 + 000000000000} + end + object ImageList2: TImageList + Left = 680 + Bitmap = { + 494C01010C0018000C0210001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object dtsUsuarios: TDataSource + DataSet = dtmSystem.tblUsuarios + OnStateChange = dtsUsuariosStateChange + Left = 416 + end + object dtsGrupo: TDataSource + DataSet = dtmSystem.tblGrupos + OnStateChange = dtsGrupoStateChange + Left = 480 + end + object dtsConsulta: TDataSource + DataSet = qryConsulta + Left = 360 + end + object qryConsulta: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 304 + end + object ACBrMail: TACBrMail + Host = '127.0.0.1' + Port = '25' + SetSSL = False + SetTLS = False + Attempts = 3 + DefaultCharset = UTF_8 + IDECharset = CP1252 + Left = 608 + Top = 72 + end +end diff --git a/ucadUsuarios.pas b/ucadUsuarios.pas new file mode 100644 index 0000000..34bdc5f --- /dev/null +++ b/ucadUsuarios.pas @@ -0,0 +1,1240 @@ +unit ucadUsuarios; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, Vcl.ComCtrls, + rDBTreeView, Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.Buttons, Vcl.Menus, + System.ImageList, Vcl.ImgList, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Mask, + ZAbstractRODataset, ZAbstractDataset, ZDataset, ACBrBase, ACBrMail; + +type + THackDBNavigator = class(TDBNavigator); + +type + TcadUsuarios = class(TmstMaster) + rdbtv_permissoes: TrDBTreeView; + pcCad: TPageControl; + pgAcessos: TTabSheet; + dbGrupos: TDBGrid; + dbUsuarios: TDBGrid; + lbl_grupos: TLabel; + lbl_usuarios: TLabel; + lbl_permissoes: TLabel; + bitbtn_liberar: TBitBtn; + bitbtn_bloquear: TBitBtn; + mnu_opcoes: TMainMenu; + Opes1: TMenuItem; + mnu_attperm: TMenuItem; + N1: TMenuItem; + mnu_delperm: TMenuItem; + ImageList1: TImageList; + btn_movuser: TButton; + pgGrupos: TTabSheet; + pgUsuarios: TTabSheet; + dblulb_grupos: TDBLookupListBox; + navgrupos: TDBNavigator; + ImageList2: TImageList; + pcUsuarios: TPageControl; + pgDados: TTabSheet; + pgemail: TTabSheet; + navusuarios: TDBNavigator; + lbl_login: TLabel; + lbl_senha: TLabel; + dbedt_login: TDBEdit; + dbedt_senha: TDBEdit; + dbcbx_trocasenha: TDBCheckBox; + dbcbx_bloqueado: TDBCheckBox; + cb_senha: TCheckBox; + dtsUsuarios: TDataSource; + dbedt_nome: TDBEdit; + lbl_nome: TLabel; + lbl_escolhegrupo: TLabel; + dtsGrupo: TDataSource; + dblulb_usuarios: TDBLookupListBox; + pnl_grupo: TPanel; + lbl_gruponome: TLabel; + dbedt_gruponome: TDBEdit; + lbl_sudo: TLabel; + dbcb_sudo: TDBCheckBox; + dblucb_grupos: TDBLookupComboBox; + lbl_grupoacesso: TLabel; + dblucb_grupoacesso: TDBLookupComboBox; + dtsConsulta: TDataSource; + qryConsulta: TZQuery; + lbl_nomeemail: TLabel; + Label1: TLabel; + lbl_useremail: TLabel; + lbl_senhaemail: TLabel; + lbl_portasmtp: TLabel; + lbl_smtp: TLabel; + dbedt_nomeemail: TDBEdit; + DBEdit2: TDBEdit; + dbedt_useremail: TDBEdit; + dbedt_senhaemail: TDBEdit; + dbedt_portasmtp: TDBEdit; + dbedt_smtp: TDBEdit; + btn_testconex: TButton; + dbcb_ssl: TDBCheckBox; + dbcb_tls: TDBCheckBox; + ACBrMail: TACBrMail; + procedure FormCreate(Sender: TObject); + procedure mnu_attpermClick(Sender: TObject); + procedure btnnovogrupoClick(Sender: TObject); + procedure btnadelgrupoClick(Sender: TObject); + procedure btnnovousergrupoClick(Sender: TObject); + procedure btnmodusergrupoClick(Sender: TObject); + procedure bitbtn_liberarClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure rdbtv_permissoesClick(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure bitbtn_bloquearClick(Sender: TObject); + procedure rdbtv_permissoesGetImageIndex(Sender: TObject; Node: TTreeNode); + procedure btndelusergrupoClick(Sender: TObject); + procedure btn_movuserClick(Sender: TObject); + procedure mnu_mudarnomeClick(Sender: TObject); + procedure cb_senhaClick(Sender: TObject); + procedure dtsUsuariosStateChange(Sender: TObject); + procedure dtsGrupoStateChange(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure navgruposBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure pcCadChanging(Sender: TObject; var AllowChange: Boolean); + procedure pcCadChange(Sender: TObject); + procedure btn_testconexClick(Sender: TObject); + private + old_id_u: integer; + old_id_g: integer; + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + // procedure AtualizarRdbtreeview; + { Private declarations } + public + add_user: Boolean; + id_grupomov: string; + nome_grupmov: string; + + procedure InserirIDnaPerm; + + procedure AcessoCobranca; // CBR - 01 ~ 04 + + procedure AcessoFerramentas; // CBR.01 - 01 ~ 10 + + procedure AcessoCobrancaTel; // CBR.01.01 - 01 ~ 02 + + procedure AcessoAtendimento; // CBR.01.02 + + procedure AcessoCadastros; // CBR.02 + + procedure AcessoDevedores; + + procedure AcessoCredores; + + procedure AcessoUsuarios; + + procedure AcessoRelatorios; + + procedure AcessoOpcoes; + + procedure AtualizarPermissoesGrupos; + procedure ChecaPermissoes; + + { Public declarations } + end; + +var + cadUsuarios: TcadUsuarios; + +implementation + +{$R *.dfm} + +uses udtmSystem, {ucadUsuarioseditar,} ufrmMovUsuarios, ufrmLiberaPermissao; + +// felipe conhece como funciona o sistema de permisses dessa janela + +procedure TcadUsuarios.mnu_attpermClick(Sender: TObject); +begin + try + AcessoCobranca; + AcessoFerramentas; + AcessoCobrancaTel; + AcessoAtendimento; + AcessoCadastros; + AcessoDevedores; + AcessoCredores; + AcessoUsuarios; + AcessoRelatorios; + AcessoOpcoes; + + AtualizarPermissoesGrupos; + dtmSystem.MakePermissoes; + Showmessage('Permisses atualizadas com sucesso!'); + except + on E: Exception do + MessageDlg('Erro ao atualizar as permisses!' + sLineBreak + E.message, + mtError, [mbOK], 0); + end; +end; + +procedure TcadUsuarios.btnadelgrupoClick(Sender: TObject); +var + resp: integer; +begin + resp := MessageDlg('Deseja realmente remover este grupo?', mtConfirmation, + mbOKCancel, 0); + // tratamento pra realmente poder remover o grupo est na udtmSystem + if resp = mrOk then + begin + dtmSystem.tblGrupos.Delete; + end; +end; + +procedure TcadUsuarios.btndelusergrupoClick(Sender: TObject); +var + resp: integer; +begin + + resp := MessageDlg('Deseja realmente remover este usurio?', mtConfirmation, + mbOKCancel, 0); + if resp = mrOk then + begin // remover usurio do grupo + dtmSystem.tblUsuarios.Delete; + end; +end; + +procedure TcadUsuarios.btnmodusergrupoClick(Sender: TObject); +begin + // dtmSystem.add_user := false; // modificar usuario + // TcadUsuarioseditar.Create(self).ShowModal; +end; + +procedure TcadUsuarios.btnnovogrupoClick(Sender: TObject); +var + nome: string; +begin + // criar novo grupo + with dtmSystem do + begin + tblGrupos.Open; + if InputQuery('Novo Grupo', 'Insira um nome para o novo grupo.', nome) then + begin + tblGrupos.Append; + tblGruposTX_NOME.AsString := nome; + tblGruposTP_SU.AsString := 'N'; + tblGrupos.Post; + end; + end; + + AtualizarPermissoesGrupos; + +end; + +procedure TcadUsuarios.btnnovousergrupoClick(Sender: TObject); +begin + // dtmSystem.add_user := true; // novo usurio + // TcadUsuarioseditar.Create(self).ShowModal; +end; + +procedure TcadUsuarios.btn_movuserClick(Sender: TObject); +var + i: integer; +begin + + // mover usurios de um grupo para o outro + nome_grupmov := dtmSystem.tblGruposTX_NOME.AsString; + frmMovUsuarios := TfrmMovUsuarios.Create(self); + frmMovUsuarios.ShowModal; + if frmMovUsuarios.ModalResult = mrOk then + begin + for i := 0 to dbUsuarios.SelectedRows.Count - 1 do + begin + dtmSystem.tblUsuarios.GotoBookmark + (pointer(dbUsuarios.SelectedRows.Items[i])); + dtmSystem.tblUsuarios.Edit; + dtmSystem.tblUsuariosID_GRUPO.AsString := id_grupomov; + dtmSystem.tblUsuarios.Post; + end; + end; + +end; + +procedure TcadUsuarios.btn_testconexClick(Sender: TObject); +begin + with ACBrMail do + begin + try + Clear; + IsHTML := true; + Subject := 'Teste de conexo'; + From := dtmSystem.tblUsuariosTX_EMAIL.AsString; + FromName := dtmSystem.tblUsuariosTX_EMAILNOME.AsString; + Host := dtmSystem.tblUsuariosTX_SMTP.AsString; + Username := dtmSystem.tblUsuariosTX_USUARIO.AsString; + Password := dtmSystem.tblUsuariosTX_SENHA.AsString; + Port := dtmSystem.tblUsuariosTX_PORTA.AsString; + if dtmSystem.tblUsuariosTP_TLS.AsString = 'S' then + begin + SetTLS := true; + end + else + begin + SetTLS := false; + end; + if dtmSystem.tblUsuariosTP_SSL.AsString = 'S' then + begin + SetSSL := true; + end + else + begin + SetSSL := false; + end; + DefaultCharset := TMailCharset(0); + IDECharset := TMailCharset(0); + AddAddress('marcus@nexverse.com.br', 'Teste de conexo'); + Body.Text := 'Teste de conexo'; + Screen.Cursor := crHourGlass; + Send(false); + Application.ProcessMessages; + Screen.Cursor := crDefault; + Showmessage + ('Email teste enviado com sucesso. Configurao de email correta!'); + except + Screen.Cursor := crDefault; + Showmessage + ('Falha ao enviar email de teste. Configurao de email incorreta!'); + end; + end; +end; + +procedure TcadUsuarios.cb_senhaClick(Sender: TObject); +begin + if cb_senha.Checked then + begin + dbedt_senha.PasswordChar := #0; + dtmSystem.mostrar_senha := true; + end; + if not cb_senha.Checked then + begin + dbedt_senha.PasswordChar := '*'; + dtmSystem.mostrar_senha := false; + end; +end; + +procedure TcadUsuarios.ChecaPermissoes; +begin + with dtmSystem do + begin + bitbtn_liberar.Enabled := VerificarPermissao('CBR.02.03.01.01'); + bitbtn_bloquear.Enabled := VerificarPermissao('CBR.02.03.01.02'); + + navgrupos.Enabled := VerificarPermissao('CBR.02.03.02'); + if not VerificarPermissao('CBR.02.03.02.01') then + navgrupos.VisibleButtons := navgrupos.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.03.02.02') then + navgrupos.VisibleButtons := navgrupos.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.03.02.03') then + navgrupos.VisibleButtons := navgrupos.VisibleButtons - [nbDelete]; + navusuarios.Enabled := VerificarPermissao('CBR.02.03.03'); + if not VerificarPermissao('CBR.02.03.03.01') then + navusuarios.VisibleButtons := navusuarios.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.03.03.02') then + navusuarios.VisibleButtons := navusuarios.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.03.03.02') then + navusuarios.VisibleButtons := navusuarios.VisibleButtons - [nbDelete]; + end; +end; + +procedure TcadUsuarios.dtsGrupoStateChange(Sender: TObject); +begin + pnl_grupo.Enabled := dtsGrupo.DataSet.State in [dsEdit, dsInsert]; + dblulb_grupos.Enabled := not(dtsGrupo.DataSet.State in [dsEdit, dsInsert]); + dblucb_grupos.Enabled := not(dtsGrupo.DataSet.State in [dsEdit, dsInsert]); + navusuarios.Enabled := not(dtsGrupo.DataSet.State in [dsEdit, dsInsert]); + dblulb_usuarios.Enabled := not(dtsGrupo.DataSet.State in [dsEdit, dsInsert]); + if qryConsulta.Active then + begin + qryConsulta.Refresh; + end; +end; + +procedure TcadUsuarios.dtsUsuariosStateChange(Sender: TObject); +begin + pcUsuarios.Enabled := dtsUsuarios.DataSet.State in [dsEdit, dsInsert]; + dblucb_grupos.Enabled := not(dtsUsuarios.DataSet.State in [dsEdit, dsInsert]); + dblulb_usuarios.Enabled := not(dtsUsuarios.DataSet.State + in [dsEdit, dsInsert]); + navgrupos.Enabled := not(dtsUsuarios.DataSet.State in [dsEdit, dsInsert]); + dblulb_grupos.Enabled := not(dtsUsuarios.DataSet.State in [dsEdit, dsInsert]); + if qryConsulta.Active then + begin + qryConsulta.Refresh; + end; + if (dtsUsuarios.DataSet.State in [dsBrowse]) then + begin + pcUsuarios.ActivePage := pgDados; + end; + +end; + +procedure TcadUsuarios.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + if dtsUsuarios.DataSet <> nil then + begin + dtsUsuarios.DataSet.Filtered := false; + if dtsUsuarios.DataSet.State in [dsInsert, dsEdit] then + dtsUsuarios.DataSet.Cancel; + end; + if dtsGrupo.DataSet <> nil then + begin + dtsGrupo.DataSet.Filtered := false; + if dtsGrupo.DataSet.State in [dsInsert, dsEdit] then + dtsGrupo.DataSet.Cancel; + end; + qryConsulta.Close; + inherited; + with dtmSystem do + begin + tblGrupos.Close; + // tblUsuarios.Close; + tblPermissoes.Close; + tblGruposPermissoes.Close; + tblPermDisponiveis.Close; + end; + cadUsuarios := nil; + Action := caFree; +end; + +procedure TcadUsuarios.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + if navgrupos.DataSource <> nil then + if navgrupos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navusuarios.DataSource <> nil then + if navusuarios.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; +end; + +procedure TcadUsuarios.FormCreate(Sender: TObject); +begin + inherited; + with dtmSystem do + begin + if not tblPermissoes.Active then + begin + tblPermissoes.Open + end + else + begin + tblPermissoes.Refresh; + end; + if not tblGruposPermissoes.Active then + begin + tblGruposPermissoes.Open; + end + else + begin + tblGruposPermissoes.Refresh; + end; + if not tblUsuarios.Active then + begin + tblUsuarios.Open; + end + else + begin + tblUsuarios.Refresh; + end; + if not tblPermDisponiveis.Active then + begin + tblPermDisponiveis.Open; + end + else + begin + tblPermDisponiveis.Refresh; + end; + if not tblGrupos.Active then + begin + tblGrupos.Open; + end + else + begin + tblGrupos.Refresh; + end; + end; + + pcCad.ActivePage := pgAcessos; + pcUsuarios.ActivePage := pgDados; + add_user := false; + old_id_g := -1; + old_id_u := -1; + + SetupHackedNavigator(navgrupos, ImageList2, 's'); + SetupHackedNavigator(navusuarios, ImageList2, 's'); + + qryConsulta.SQL.Text := 'select * from SYS_GRUPOS order by TX_NOME'; + qryConsulta.Open; + dblucb_grupoacesso.ListField := 'TX_NOME'; + dblucb_grupoacesso.KeyField := 'ID_GRUPO'; + dtmSystem.MakePermissoes; + ChecaPermissoes; + +end; + +procedure TcadUsuarios.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + { // esc no fecha a janela + if (Key = vk_escape) then + begin + Key := 0; + self.ActiveControl := nil; + end; } + inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; + { navgrupos.Enabled := VerificarPermissao('CBR.02.03.02'); + if not VerificarPermissao('CBR.02.03.02.01') then + navgrupos.VisibleButtons := navgrupos.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.03.02.02') then + navgrupos.VisibleButtons := navgrupos.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.03.02.03') then + navgrupos.VisibleButtons := navgrupos.VisibleButtons - [nbDelete]; + navusuarios.Enabled := VerificarPermissao('CBR.02.03.03'); + if not VerificarPermissao('CBR.02.03.03.01') then + navusuarios.VisibleButtons := navusuarios.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.02.03.03.02') then + navusuarios.VisibleButtons := navusuarios.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.02.03.03.02') then + navusuarios.VisibleButtons := navusuarios.VisibleButtons - [nbDelete]; } + if (Key = 75) and (Shift = [ssCtrl]) then + begin + // ShowMessage('Ctrl+k is pressed!'); + frmLiberaPermissao := TfrmLiberaPermissao.Create(self); + + with frmLiberaPermissao do + begin + level := 3; + string_permissoes.Add('CBR.02.03.01.01'); + string_permissoes.Add('CBR.02.03.01.02'); + string_permissoes.Add('CBR.02.03.02'); + string_permissoes.Add('CBR.02.03.02.01'); + string_permissoes.Add('CBR.02.03.02.02'); + string_permissoes.Add('CBR.02.03.02.03'); + string_permissoes.Add('CBR.02.03.03'); + string_permissoes.Add('CBR.02.03.03.01'); + string_permissoes.Add('CBR.02.03.03.02'); + string_permissoes.Add('CBR.02.03.03.03'); + + ShowModal; + + if ModalResult = mrOk then + begin + case dtmSystem.cod_liberapermissao of + 0: + bitbtn_liberar.Enabled := true; + 1: + bitbtn_bloquear.Enabled := true; + 2: + navgrupos.Enabled := true; + 3: + begin + navgrupos.Enabled := true; + navgrupos.VisibleButtons := navgrupos.VisibleButtons + [nbInsert]; + end; + 4: + begin + navgrupos.Enabled := true; + navgrupos.VisibleButtons := navgrupos.VisibleButtons + [nbEdit]; + end; + 5: + begin + navgrupos.Enabled := true; + navgrupos.VisibleButtons := navgrupos.VisibleButtons + [nbDelete]; + end; + 6: + navusuarios.Enabled := true; + 7: + begin + navusuarios.Enabled := true; + navusuarios.VisibleButtons := navusuarios.VisibleButtons + [nbInsert]; + end; + 8: + begin + navusuarios.Enabled := true; + navusuarios.VisibleButtons := navusuarios.VisibleButtons + [nbEdit]; + end; + 9: + begin + navusuarios.Enabled := true; + navusuarios.VisibleButtons := navusuarios.VisibleButtons + [nbDelete]; + end; + end; + end; + end; + + end; +end; + +procedure TcadUsuarios.FormShow(Sender: TObject); +begin + dtmSystem.tblGrupos.First; + dtmSystem.tblUsuarios.First; + + if dtmSystem.mostrar_senha then + begin + cb_senha.Checked := true; + dbedt_senha.PasswordChar := #0; + end + else + begin + cb_senha.Checked := false; + dbedt_senha.PasswordChar := '*'; + end; + + dblucb_grupos.KeyValue := dtsGrupo.DataSet.FieldByName('ID_GRUPO').AsInteger; + +end; + +procedure TcadUsuarios.InserirIDnaPerm; +begin + with dtmSystem do + begin + tblPermissoes.First; + while not tblPermissoes.Eof do + begin + if Pos('(', tblPermissoesCD_PERMISSAO.AsString) <> 1 then + begin + tblPermissoes.Edit; + tblPermissoesTX_DESCRICAO.AsString := + '(' + tblPermissoesID_PERMISSAO.AsString + ') ' + + tblPermissoesTX_DESCRICAO.AsString; + tblPermissoes.Post; + end; + tblPermissoes.Next; + end; + end; +end; + +procedure TcadUsuarios.mnu_mudarnomeClick(Sender: TObject); +var + nome: string; +begin + + with dtmSystem do + begin + if InputQuery('Novo nome.', 'Insira um novo nome para o grupo.', nome) then + begin + if nome = tblGruposTX_NOME.AsString then + begin + MessageDlg('O grupo no pode receber o mesmo nome.', mtInformation, + [mbOK], 0); + end + else + begin + tblGrupos.Edit; + tblGruposTX_NOME.AsString := nome; + tblGrupos.Post; + end; + end; + end; +end; + +procedure TcadUsuarios.navgruposBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navgrupos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + + nbPost: + begin + SelectNext(ActiveControl as tWinControl, true, true); + navgrupos.DataSource.DataSet.Post; + AtualizarPermissoesGrupos; + abort; + end; + + nbDelete: + begin + if navgrupos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + if MessageDlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + Abort; + try + dtsGrupo.DataSet.Delete; + except + Showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + Abort; + end; + + nbCancel: + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + Abort; + end; +end; + +procedure TcadUsuarios.pcCadChange(Sender: TObject); +begin + inherited; + if pcCad.TabIndex = 3 then + begin + dtsGrupo.DataSet.First; + end; +end; + +procedure TcadUsuarios.pcCadChanging(Sender: TObject; var AllowChange: Boolean); +var + ponto: TPoint; +begin + ponto := Mouse.CursorPos; + ponto := ScreenToClient(ponto); + if (dtsUsuarios.DataSet.State in [dsEdit, dsInsert]) or + (dtsGrupo.DataSet.State in [dsEdit, dsInsert]) then + begin + if pcCad.IndexOfTabAt(ponto.X, ponto.Y) = 0 then + begin + AllowChange := false; + end; + end; + +end; + +procedure TcadUsuarios.rdbtv_permissoesClick(Sender: TObject); +begin + rdbtv_permissoes.Selected.SelectedIndex := + rdbtv_permissoes.Selected.ImageIndex; +end; + +procedure TcadUsuarios.rdbtv_permissoesGetImageIndex(Sender: TObject; + Node: TTreeNode); +var + perm_id, perm: string; + // coloca as imagens no list conforme tipo de permisso + last_recno: integer; + pai, filho: TTreeNode; +begin + if (Node.level >= 1) and Assigned(Node.Data) then + begin + // Node.AbsoluteIndex; + // Node.getPrevSibling; + with dtmSystem do + begin + last_recno := tblGrupos.RecNo; + if tblGrupos.Locate('TX_NOME', Node.Text, []) then + begin + tblGrupos.RecNo := last_recno; + end + else + begin + filho := Node; + pai := Node.Parent; + perm := ''; + while pai <> nil do + begin + if pai.level <> 0 then + begin + if filho = Node then + begin + perm := '.' + Format('%.*d', [2, Node.Index + 1]) + perm; + end + else + begin + perm := '.' + Format('%.*d', [2, filho.Index + 1]) + perm; + end; + end; + filho := pai; + pai := filho.Parent; + end; + perm := 'CBR' + perm; + // rdbtv_permissoes.DataItemDefs[0].SubDataItemDefs[0]. + // if tblPermissoes.Locate('TX_DESCRICAO', Node.Text, []) then + // begin + if tblPermissoes.Locate('CD_PERMISSAO', perm, []) then + begin + perm_id := tblPermissoesID_PERMISSAO.AsString; + end; + if tblGruposPermissoes.Locate('ID_PERMISSAO', perm_id, []) then + begin + if tblGruposPermissoesTP_ACESSO.AsString = 'S' then + begin + Node.ImageIndex := 0; + Node.SelectedIndex := 0; + end + else + begin + Node.ImageIndex := 1; + Node.SelectedIndex := 1; + end; + end; + end; + end; + end; +end; + +procedure TcadUsuarios.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if S = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +procedure TcadUsuarios.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +procedure TcadUsuarios.AcessoAtendimento; +begin + with dtmSystem do + begin + InserirPermissao('CBR.01.03.01', 'S', 'Dados Cadastrais'); + + InserirPermissao('CBR.01.03.01.01', 'S', 'Editar Devedor'); + + InserirPermissao('CBR.01.03.01.02', 'S', 'Endereos'); + InserirPermissao('CBR.01.03.01.02.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.03.01.02.02', 'S', 'Editar'); + InserirPermissao('CBR.01.03.01.02.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.03.01.03', 'S', 'Telefones'); + InserirPermissao('CBR.01.03.01.03.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.03.01.03.02', 'S', 'Editar'); + InserirPermissao('CBR.01.03.01.03.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.03.01.04', 'S', 'Ttulos'); + InserirPermissao('CBR.01.03.01.04.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.03.01.04.02', 'S', 'Editar'); + InserirPermissao('CBR.01.03.01.04.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.03.01.05', 'S', 'Histrico'); + InserirPermissao('CBR.01.03.01.05.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.03.01.05.02', 'S', 'Editar'); + InserirPermissao('CBR.01.03.01.05.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.03.01.06', 'S', 'Email'); + InserirPermissao('CBR.01.03.01.06.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.03.01.06.02', 'S', 'Editar'); + InserirPermissao('CBR.01.03.01.06.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.03.02', 'S', 'Clculos'); + + InserirPermissao('CBR.01.03.02.01', 'S', 'Descontos'); + InserirPermissao('CBR.01.03.02.01.01', 'S', 'Quitar'); + InserirPermissao('CBR.01.03.02.01.02', 'S', 'Parcelar'); + InserirPermissao('CBR.01.03.02.01.03', 'S', 'ndices'); + + InserirPermissao('CBR.01.03.02.02', 'S', 'No Cobrar Multa'); + + InserirPermissao('CBR.01.03.02.03', 'S', 'Taxa Extra'); + + InserirPermissao('CBR.01.03.02.04', 'S', 'Exceo de Entrada'); + + InserirPermissao('CBR.01.03.02.05', 'S', 'Cobrar ndices'); + + end; +end; + +procedure TcadUsuarios.AcessoCadastros; +begin + with dtmSystem do + begin + InserirPermissao('CBR.02.01', 'S', 'Devedores'); + InserirPermissao('CBR.02.02', 'S', 'Credores'); + InserirPermissao('CBR.02.03', 'S', 'Permisses, Grupos e Usurios'); + InserirPermissao('CBR.02.04', 'S', 'Providncias'); + InserirPermissao('CBR.02.05', 'S', 'Empresa'); + InserirPermissao('CBR.02.06', 'S', 'Contas'); + InserirPermissao('CBR.02.07', 'S', 'Texto de Mensagens'); + + end; +end; + +procedure TcadUsuarios.AcessoCobranca; // Permisses da janela cobrana +begin + with dtmSystem do + begin + InserirPermissao('CBR', 'S', 'Cobrana - Sistema'); + + InserirPermissao('CBR.01', 'S', 'Ferramentas do Sistema'); + InserirPermissao('CBR.02', 'S', 'Cadastros'); + InserirPermissao('CBR.03', 'S', 'Relatrios'); + InserirPermissao('CBR.04', 'S', 'Opes'); // ??? + + end; +end; + +procedure TcadUsuarios.AcessoCobrancaTel; +begin + with dtmSystem do + begin + InserirPermissao('CBR.01.01.01', 'S', 'Dados Cadastrais'); + + InserirPermissao('CBR.01.01.01.01', 'S', 'Editar Devedor'); + + InserirPermissao('CBR.01.01.01.02', 'S', 'Endereos'); + InserirPermissao('CBR.01.01.01.02.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.01.01.02.02', 'S', 'Editar'); + InserirPermissao('CBR.01.01.01.02.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.01.01.03', 'S', 'Telefones'); + InserirPermissao('CBR.01.01.01.03.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.01.01.03.02', 'S', 'Editar'); + InserirPermissao('CBR.01.01.01.03.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.01.01.04', 'S', 'Ttulos'); + InserirPermissao('CBR.01.01.01.04.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.01.01.04.02', 'S', 'Editar'); + InserirPermissao('CBR.01.01.01.04.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.01.01.05', 'S', 'Histrico'); + InserirPermissao('CBR.01.01.01.05.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.01.01.05.02', 'S', 'Editar'); + InserirPermissao('CBR.01.01.01.05.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.01.01.06', 'S', 'Email'); + InserirPermissao('CBR.01.01.01.06.01', 'S', 'Adicionar'); + InserirPermissao('CBR.01.01.01.06.02', 'S', 'Editar'); + InserirPermissao('CBR.01.01.01.06.03', 'S', 'Excluir'); + + InserirPermissao('CBR.01.01.02', 'S', 'Clculos'); + + InserirPermissao('CBR.01.01.02.01', 'S', 'Descontos'); + InserirPermissao('CBR.01.01.02.01.01', 'S', 'Quitar'); + InserirPermissao('CBR.01.01.02.01.02', 'S', 'Parcelar'); + + InserirPermissao('CBR.01.01.02.02', 'S', 'No Cobrar Multa'); + + InserirPermissao('CBR.01.01.02.03', 'S', 'Taxa Extra'); + + InserirPermissao('CBR.01.01.02.04', 'S', 'Exceo de Entrada'); + + end; + +end; + +procedure TcadUsuarios.AcessoCredores; +begin + with dtmSystem do + begin + // InserirPermissao('CBR.02.02', 'S', 'Credores'); + InserirPermissao('CBR.02.02.01', 'S', 'Dados Cadastrais'); + InserirPermissao('CBR.02.02.01.01', 'S', 'Adicionar'); + InserirPermissao('CBR.02.02.01.02', 'S', 'Editar'); + InserirPermissao('CBR.02.02.01.03', 'S', 'Excluir'); + InserirPermissao('CBR.02.02.01.04', 'S', 'Clculos'); + + InserirPermissao('CBR.02.02.02', 'S', 'Polticas'); + + InserirPermissao('CBR.02.02.03', 'S', 'Faixas'); + + InserirPermissao('CBR.02.02.04', 'S', 'Indicadores Financeiros'); + + end; +end; + +procedure TcadUsuarios.AcessoDevedores; +begin + with dtmSystem do + begin + // InserirPermissao('CBR.02.01', 'S', 'Devedores'); + InserirPermissao('CBR.02.01.01', 'S', 'Dados Cadastrais'); + + InserirPermissao('CBR.02.01.01.01', 'S', 'Editar Devedor'); + InserirPermissao('CBR.02.01.01.01.01', 'N', 'Excluir Devedor'); + + InserirPermissao('CBR.02.01.01.02', 'S', 'Endereos'); + InserirPermissao('CBR.02.01.01.02.01', 'S', 'Adicionar'); + InserirPermissao('CBR.02.01.01.02.02', 'S', 'Editar'); + InserirPermissao('CBR.02.01.01.02.03', 'S', 'Excluir'); + + InserirPermissao('CBR.02.01.01.03', 'S', 'Telefones'); + InserirPermissao('CBR.02.01.01.03.01', 'S', 'Adicionar'); + InserirPermissao('CBR.02.01.01.03.02', 'S', 'Editar'); + InserirPermissao('CBR.02.01.01.03.03', 'S', 'Excluir'); + + InserirPermissao('CBR.02.01.01.04', 'S', 'Ttulos'); + InserirPermissao('CBR.02.01.01.04.01', 'S', 'Adicionar'); + InserirPermissao('CBR.02.01.01.04.02', 'S', 'Editar'); + InserirPermissao('CBR.02.01.01.04.03', 'S', 'Excluir'); + + InserirPermissao('CBR.02.01.01.05', 'S', 'Histrico'); + InserirPermissao('CBR.02.01.01.05.01', 'S', 'Adicionar'); + InserirPermissao('CBR.02.01.01.05.02', 'S', 'Editar'); + InserirPermissao('CBR.02.01.01.05.03', 'S', 'Excluir'); + + InserirPermissao('CBR.02.01.01.06', 'S', 'Emails'); + InserirPermissao('CBR.02.01.01.06.01', 'S', 'Adicionar'); + InserirPermissao('CBR.02.01.01.06.02', 'S', 'Editar'); + InserirPermissao('CBR.02.01.01.06.03', 'S', 'Excluir'); + + InserirPermissao('CBR.02.01.02', 'S', 'Clculos'); + + InserirPermissao('CBR.02.01.02.01', 'S', 'Descontos'); + InserirPermissao('CBR.02.01.02.01.01', 'S', 'Quitar'); + InserirPermissao('CBR.02.01.02.01.02', 'S', 'Parcelar'); + + InserirPermissao('CBR.02.01.02.02', 'S', 'No Cobrar Multa'); + + InserirPermissao('CBR.02.01.02.03', 'S', 'Taxa Extra'); + + InserirPermissao('CBR.02.01.02.04', 'S', 'Exceo de Entrada'); + + end; +end; + +procedure TcadUsuarios.AcessoFerramentas; +begin + with dtmSystem do + begin + InserirPermissao('CBR.01.01', 'S', 'Cobrana Telefnica'); + InserirPermissao('CBR.01.02', 'S', 'Pesquisa de Devedores'); + InserirPermissao('CBR.01.03', 'S', 'Atendimento'); + InserirPermissao('CBR.01.04', 'S', 'Gerenciamento de Campanhas'); + InserirPermissao('CBR.01.05', 'S', 'Central de Agendamento'); + InserirPermissao('CBR.01.06', 'S', 'Envio de Mensagens'); + InserirPermissao('CBR.01.07', 'S', 'Correo Digito 9'); + InserirPermissao('CBR.01.08', 'S', 'Importao TCC'); + InserirPermissao('CBR.01.09', 'S', 'Central de Planilhamento'); + InserirPermissao('CBR.01.10', 'S', 'Visualizao de Recibos'); + InserirPermissao('CBR.01.11', 'S', 'Rankings'); + + end; +end; + +procedure TcadUsuarios.AcessoOpcoes; +begin + with dtmSystem do + begin + // InserirPermissao('CBR.03', 'S', 'Relatrios'); + InserirPermissao('CBR.04.01', 'S', 'ndices de Cobrana'); + InserirPermissao('CBR.04.02', 'S', 'Modelos de Repasse'); + InserirPermissao('CBR.04.03', 'S', 'Banco de Dados'); + InserirPermissao('CBR.04.03.01', 'S', 'Backup'); + InserirPermissao('CBR.04.03.02', 'S', 'Restaurar'); + InserirPermissao('CBR.04.04', 'S', 'Configurao de Layout de Importao'); + InserirPermissao('CBR.04.05', 'S', + 'Configurao de Pop Up de Inicializao'); + InserirPermissao('CBR.04.06', 'S', 'Envio de Banco online'); + end; +end; + +procedure TcadUsuarios.AcessoRelatorios; +begin + with dtmSystem do + begin + // InserirPermissao('CBR.03', 'S', 'Relatrios'); + InserirPermissao('CBR.03.01', 'S', 'Entrada de Devedores'); + InserirPermissao('CBR.03.02', 'S', 'Prestao de Contas'); + InserirPermissao('CBR.03.03', 'S', 'Recibos Emitidos'); + InserirPermissao('CBR.03.04', 'S', 'Prestao de Contas TCC'); + end; +end; + +procedure TcadUsuarios.AcessoUsuarios; +begin + with dtmSystem do + begin + // InserirPermissao('CBR.02.03', 'S', 'Usurios'); + InserirPermissao('CBR.02.03.01', 'S', 'Permisses'); + InserirPermissao('CBR.02.03.01.01', 'S', 'Conceder'); + InserirPermissao('CBR.02.03.01.02', 'S', 'Bloquear'); + + InserirPermissao('CBR.02.03.02', 'S', 'Grupos'); + InserirPermissao('CBR.02.03.02.01', 'S', 'Adicionar'); + InserirPermissao('CBR.02.03.02.02', 'S', 'Editar'); + InserirPermissao('CBR.02.03.02.03', 'S', 'Excluir'); + + InserirPermissao('CBR.02.03.03', 'S', 'Usurios'); + InserirPermissao('CBR.02.03.03.01', 'S', 'Adicionar'); + InserirPermissao('CBR.02.03.03.02', 'S', 'Editar'); + InserirPermissao('CBR.02.03.03.03', 'S', 'Excluir'); + end; +end; + +procedure TcadUsuarios.AtualizarPermissoesGrupos; // nome auto explicativo... +begin + Screen.Cursor := crHourGlass; + with dtmSystem do + begin + tblPermDisponiveis.Open; + tblGruposPermissoes.Open; + tblGruposPermissoes.DisableControls; + tblGrupos.First; + while not tblGrupos.Eof do + begin + tblPermissoes.First; + while not tblPermissoes.Eof do + begin + if not tblGruposPermissoes.Locate('ID_PERMISSAO', + tblPermissoesID_PERMISSAO.Value, []) then + begin + tblGruposPermissoes.Append; + tblGruposPermissoesID_PERMISSAO.AsString := + tblPermissoesID_PERMISSAO.AsString; + tblGruposPermissoesTP_ACESSO.AsString := + tblPermissoesTP_ACESSO.AsString; + tblGruposPermissoes.Post; + end; + stbStatus.SimpleText := 'Atualizando Grupo ' + tblGruposTX_NOME.AsString + + ': ' + FormatFloat('0.00%', tblPermissoes.RecNo / + tblPermissoes.RecordCount * 100); + tblPermissoes.Next; + end; + tblGrupos.Next; + end; + tblPermissoes.First; + tblGrupos.First; + // tblPermissoes.Close; + tblGruposPermissoes.Close; + tblGruposPermissoes.Open; + tblGrupos.EnableControls; + tblGruposPermissoes.EnableControls; + // tblPermDisponiveis.Close; + end; + stbStatus.SimpleText := ''; + Screen.Cursor := crDefault; +end; + +procedure TcadUsuarios.bitbtn_liberarClick(Sender: TObject); +var + p: TTreeNode; + nome_pai, id_perm, selected_node: string; // liberar a permisso +begin + + dtmSystem.tblPermDisponiveis.Open; + selected_node := rdbtv_permissoes.Selected.Text; + p := rdbtv_permissoes.Selected; + while Assigned(p.Parent) do + begin + p := p.Parent; + end; + nome_pai := p.Text; + with dtmSystem do + begin + tblGrupos.Locate('TX_NOME', nome_pai, []); + tblPermissoes.Locate('TX_DESCRICAO', selected_node, []); + id_perm := tblPermissoesID_PERMISSAO.AsString; + tblGruposPermissoes.Locate('ID_PERMISSAO', id_perm, []); + tblGruposPermissoes.Edit; + tblGruposPermissoesTP_ACESSO.AsString := 'S'; + tblGruposPermissoes.Post; + end; + + rdbtv_permissoes.RefreshData(false); + rdbtv_permissoes.Selected := nil; +end; + +procedure TcadUsuarios.bitbtn_bloquearClick(Sender: TObject); +var + p: TTreeNode; // bloquear a permisso + nome_pai, selected_node, id_perm: string; +begin + + dtmSystem.tblPermDisponiveis.Open; + selected_node := rdbtv_permissoes.Selected.Text; + id_perm := dtmSystem.tblPermissoesID_PERMISSAO.AsString; + p := rdbtv_permissoes.Selected; + while Assigned(p.Parent) do + begin + p := p.Parent; + end; + nome_pai := p.Text; + with dtmSystem do + begin + tblGrupos.Locate('TX_NOME', nome_pai, []); + // tblPermissoes.Locate('TX_DESCRICAO', selected_node, []); + tblGruposPermissoes.Locate('ID_PERMISSAO', id_perm, []); + tblGruposPermissoes.Edit; + tblGruposPermissoesTP_ACESSO.AsString := 'N'; + tblGruposPermissoes.Post; + end; + + rdbtv_permissoes.RefreshData(false); + rdbtv_permissoes.Selected := nil; +end; + +end. diff --git a/ucadUsuarioseditar.dfm b/ucadUsuarioseditar.dfm new file mode 100644 index 0000000..bc58f07 --- /dev/null +++ b/ucadUsuarioseditar.dfm @@ -0,0 +1,863 @@ +inherited cadUsuarioseditar: TcadUsuarioseditar + Left = 585 + Top = 274 + Caption = 'cadUsuarioseditar' + ClientHeight = 370 + Scaled = False + ExplicitWidth = 320 + ExplicitHeight = 401 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + Height = 224 + ExplicitHeight = 224 + inherited pcClientes: TPageControl + Height = 206 + ExplicitHeight = 206 + inherited tabCadastro: TTabSheet + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 178 + object lbl_login: TLabel + Left = 3 + Top = 4 + Width = 29 + Height = 13 + Caption = 'Login:' + end + object lbl_senha: TLabel + Left = 188 + Top = 4 + Width = 87 + Height = 13 + Caption = 'Senha de Acesso:' + end + object lbl_grpacesso: TLabel + Left = 491 + Top = 4 + Width = 85 + Height = 13 + Caption = 'Grupo de Acesso:' + end + object dbedt_login: TDBEdit + Left = 3 + Top = 23 + Width = 145 + Height = 21 + DataField = 'TX_USUARIO' + DataSource = dtsDB + TabOrder = 0 + end + object dbedt_senha: TDBEdit + Left = 188 + Top = 23 + Width = 180 + Height = 21 + DataField = 'TX_SENHA' + DataSource = dtsDB + TabOrder = 1 + end + object DBCheckBox1: TDBCheckBox + Left = 3 + Top = 56 + Width = 278 + Height = 17 + Caption = 'O usu'#225'rio dever'#225' alterar sua senha no pr'#243'ximo acesso' + DataField = 'TP_TROCAPASS' + DataSource = dtsDB + TabOrder = 2 + ValueChecked = 'S' + ValueUnchecked = 'N' + end + object DBCheckBox5: TDBCheckBox + Left = 3 + Top = 88 + Width = 121 + Height = 17 + Caption = 'Conta bloqueada' + DataField = 'TP_ATIVO' + DataSource = dtsDB + TabOrder = 3 + ValueChecked = 'N' + ValueUnchecked = 'S' + end + object cb_senha: TCheckBox + Left = 374 + Top = 25 + Width = 97 + Height = 17 + Caption = 'Mostrar senha' + TabOrder = 4 + OnClick = cb_senhaClick + end + object dblucb_grupo: TDBLookupComboBox + Left = 491 + Top = 23 + Width = 145 + Height = 21 + DataField = 'ID_GRUPO' + DataSource = dtmSystem.dtsUsuarios + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsGrupos + TabOrder = 5 + end + end + object tabemail: TTabSheet + Caption = '&E-mail' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ImageIndex = 1 + ParentFont = False + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object cb_emailuser: TCheckBox + Left = 7 + Top = 8 + Width = 118 + Height = 17 + Caption = 'Possui e-mail pr'#243'prio' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = cb_emailuserClick + end + object grpb_email: TGroupBox + Left = 3 + Top = 31 + Width = 641 + Height = 131 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + object lbl_nomeemail: TLabel + Left = 4 + Top = 4 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_email: TLabel + Left = 208 + Top = 4 + Width = 28 + Height = 13 + Caption = 'Email:' + end + object lbl_ccemail: TLabel + Left = 429 + Top = 4 + Width = 86 + Height = 13 + Caption = 'Enviar c'#243'pia para:' + end + object lbl_useremail: TLabel + Left = 4 + Top = 52 + Width = 39 + Height = 13 + Caption = 'Usu'#225'rio:' + end + object lbl_senhaemail: TLabel + Left = 142 + Top = 52 + Width = 34 + Height = 13 + Caption = 'Senha:' + end + object lbl_pop3: TLabel + Left = 272 + Top = 52 + Width = 73 + Height = 13 + Caption = 'Servidor POP3:' + end + object lbl_portapop3: TLabel + Left = 396 + Top = 52 + Width = 28 + Height = 13 + Caption = 'Porta:' + end + object lbl_portasmtp: TLabel + Left = 585 + Top = 52 + Width = 28 + Height = 13 + Caption = 'Porta:' + end + object lbl_smtp: TLabel + Left = 461 + Top = 52 + Width = 75 + Height = 13 + Caption = 'Servidor SMTP:' + end + object dbedt_nomeemail: TDBEdit + Left = 4 + Top = 23 + Width = 185 + Height = 21 + TabOrder = 0 + end + object dbedt_email: TDBEdit + Left = 208 + Top = 23 + Width = 202 + Height = 21 + TabOrder = 1 + end + object dbedt_ccemail: TDBEdit + Left = 429 + Top = 23 + Width = 202 + Height = 21 + TabOrder = 2 + end + object dbedt_useremail: TDBEdit + Left = 4 + Top = 71 + Width = 118 + Height = 21 + TabOrder = 3 + end + object dbedt_senhaemail: TDBEdit + Left = 142 + Top = 71 + Width = 110 + Height = 21 + TabOrder = 4 + end + object dbedt_pop3: TDBEdit + Left = 272 + Top = 71 + Width = 105 + Height = 21 + TabOrder = 5 + end + object dbedt_portapop3: TDBEdit + Left = 396 + Top = 71 + Width = 46 + Height = 21 + TabOrder = 6 + end + object dbedt_portasmtp: TDBEdit + Left = 585 + Top = 71 + Width = 46 + Height = 21 + TabOrder = 7 + end + object dbedt_smtp: TDBEdit + Left = 461 + Top = 71 + Width = 105 + Height = 21 + TabOrder = 8 + end + object dbc_conxsegura: TDBCheckBox + Left = 4 + Top = 100 + Width = 221 + Height = 17 + Caption = 'Utilizar conex'#227'o segura (SSL/TSL)' + TabOrder = 9 + end + object btn_testconex: TButton + Left = 396 + Top = 96 + Width = 88 + Height = 25 + Caption = 'Testar Conex'#227'o' + TabOrder = 10 + end + object Button2: TButton + Left = 536 + Top = 96 + Width = 95 + Height = 25 + Caption = 'Configurar GMAIL' + TabOrder = 11 + end + end + end + end + end + inherited stbStatus: TStatusBar + Top = 351 + ExplicitTop = 351 + end + inherited grpDescricao: TGroupBox + inherited Nome: TLabel + Width = 79 + Caption = 'Nome Completo:' + ExplicitWidth = 79 + end + inherited DBEdit1: TDBEdit + DataField = 'TX_NOME' + end + end + inherited navPrincipal: TDBNavigator + Width = 480 + DataSource = dtsDB + VisibleButtons = [nbEdit, nbPost, nbCancel] + TabOrder = 2 + ExplicitWidth = 480 + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblUsuarios + end + object ImageList1: TImageList + Left = 592 + Top = 8 + Bitmap = { + 494C01010C001800B80010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end +end diff --git a/ucadUsuarioseditar.pas b/ucadUsuarioseditar.pas new file mode 100644 index 0000000..0c212ac --- /dev/null +++ b/ucadUsuarioseditar.pas @@ -0,0 +1,175 @@ +unit ucadUsuarioseditar; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls, + Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, System.ImageList, + Vcl.ImgList, Vcl.Buttons, ucadUsuarios; + +type + THackDBNavigator = class(TDBNavigator); + +type + TcadUsuarioseditar = class(TmstCadastro) + dbedt_login: TDBEdit; + lbl_login: TLabel; + dbedt_senha: TDBEdit; + lbl_senha: TLabel; + lbl_grpacesso: TLabel; + DBCheckBox1: TDBCheckBox; + DBCheckBox5: TDBCheckBox; + ImageList1: TImageList; + cb_senha: TCheckBox; + tabemail: TTabSheet; + cb_emailuser: TCheckBox; + grpb_email: TGroupBox; + lbl_nomeemail: TLabel; + lbl_email: TLabel; + lbl_ccemail: TLabel; + lbl_useremail: TLabel; + lbl_senhaemail: TLabel; + lbl_pop3: TLabel; + lbl_portapop3: TLabel; + lbl_portasmtp: TLabel; + lbl_smtp: TLabel; + dbedt_nomeemail: TDBEdit; + dbedt_email: TDBEdit; + dbedt_ccemail: TDBEdit; + dbedt_useremail: TDBEdit; + dbedt_senhaemail: TDBEdit; + dbedt_pop3: TDBEdit; + dbedt_portapop3: TDBEdit; + dbedt_portasmtp: TDBEdit; + dbedt_smtp: TDBEdit; + dbc_conxsegura: TDBCheckBox; + btn_testconex: TButton; + Button2: TButton; + dblucb_grupo: TDBLookupComboBox; + procedure FormCreate(Sender: TObject); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure FormShow(Sender: TObject); + procedure cb_emailuserClick(Sender: TObject); + procedure cb_senhaClick(Sender: TObject); + procedure dtsDBStateChange(Sender: TObject); + private + public + // master_srs : TDataSource; + { Public declarations } + end; + +var + cadUsuarioseditar: TcadUsuarioseditar; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TcadUsuarioseditar.cb_emailuserClick(Sender: TObject); +begin + // usurio vai ter email prprio ou no + if cb_emailuser.Checked then + begin + grpb_email.Enabled := true; + end; + if cb_emailuser.Checked = false then + begin + grpb_email.Enabled := false; + end; +end; + +procedure TcadUsuarioseditar.cb_senhaClick(Sender: TObject); +begin + + if cb_senha.Checked then + begin + dbedt_senha.PasswordChar := #0; + dtmSystem.mostrar_senha := true; + end; + if not cb_senha.Checked then + begin + dbedt_senha.PasswordChar := '*'; + dtmSystem.mostrar_senha := false; + end; +end; + +procedure TcadUsuarioseditar.dtsDBStateChange(Sender: TObject); +begin + inherited; + tabemail.Enabled := grpDescricao.Enabled; +end; + +procedure TcadUsuarioseditar.FormCreate(Sender: TObject); +begin + inherited; + with dtmSystem do + begin + tblUsuarios.Open; + tblGrupos.Open; + tblGruposPermissoes.Open; + grpb_email.Enabled := false; + SetupHackedNavigator(navPrincipal, ImageList1, 's'); + + qryConsulta.SQL.Text := 'Select * from SYS_GRUPOS'; + qryConsulta.Open; + + while not qryConsulta.Eof do + begin + //ComboBox1.Items.Add(qryConsulta.FieldByName('tx_nome').AsString); + qryConsulta.Next; + end; + + qryConsulta.Close; + + // ComboBox1.ItemIndex := tblGruposID_GRUPO.AsInteger - 1; + end; +end; + +procedure TcadUsuarioseditar.FormShow(Sender: TObject); +begin + + // seta se vai poder ver a senha sem mscara ou com + if dtmSystem.mostrar_senha then + begin + cb_senha.Checked := true; + dbedt_senha.PasswordChar := #0; + end + else + begin + cb_senha.Checked := false; + dbedt_senha.PasswordChar := '*'; + end; +end; + +procedure TcadUsuarioseditar.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + inherited; + if Button = nbPost then + begin + if DBEdit1.Text = '' then + begin + messagedlg('Necessrio dar um nome ao usurio', mtWarning, mbOKCancel, 0); + dbedt_login.Text := ''; + dbedt_senha.Text := ''; + exit; + end; + dtmSystem.qryConsulta.SQL.Text := 'Select * from SYS_GRUPOS'; + dtmSystem.qryConsulta.Open; +// dtmSystem.qryConsulta.Locate('TX_NOME', +// ComboBox1.Items[ComboBox1.ItemIndex], []); + dtmSystem.tblUsuariosID_GRUPO.AsString := dtmSystem.qryConsulta.FieldByName + ('ID_GRUPO').AsString; + dtmSystem.qryConsulta.Close; + dtmSystem.tblUsuarios.Post; +// dtmSystem.tblGrupos.Locate('TX_NOME', +// ComboBox1.Items[ComboBox1.ItemIndex], []); + dtmSystem.tblUsuarios.Edit; + end; + +end; +end. diff --git a/uconfFichaHistorico.dfm b/uconfFichaHistorico.dfm new file mode 100644 index 0000000..1349a0b --- /dev/null +++ b/uconfFichaHistorico.dfm @@ -0,0 +1,67 @@ +inherited confFichaHistorico: TconfFichaHistorico + Caption = 'Ficha de Hist'#243'rico' + ClientHeight = 130 + ClientWidth = 347 + ExplicitWidth = 353 + ExplicitHeight = 158 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 111 + Width = 347 + ExplicitTop = 111 + ExplicitWidth = 347 + end + object gb_data: TGroupBox + Left = 8 + Top = 8 + Width = 333 + Height = 65 + Caption = 'Intervalo' + TabOrder = 1 + object Label1: TLabel + Left = 160 + Top = 31 + Width = 6 + Height = 13 + Caption = 'a' + end + object dtp_inicio: TDateTimePicker + Left = 10 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 0 + end + object dtp_fim: TDateTimePicker + Left = 224 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 1 + end + end + object btn_viewreport: TButton + Left = 70 + Top = 80 + Width = 75 + Height = 25 + Caption = 'Visualizar' + ModalResult = 1 + TabOrder = 2 + OnClick = btn_viewreportClick + end + object Button1: TButton + Left = 198 + Top = 80 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 3 + end +end diff --git a/uconfFichaHistorico.pas b/uconfFichaHistorico.pas new file mode 100644 index 0000000..63033aa --- /dev/null +++ b/uconfFichaHistorico.pas @@ -0,0 +1,73 @@ +unit uconfFichaHistorico; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.StdCtrls; + +type + TconfFichaHistorico = class(TmstMaster) + gb_data: TGroupBox; + Label1: TLabel; + dtp_inicio: TDateTimePicker; + dtp_fim: TDateTimePicker; + btn_viewreport: TButton; + Button1: TButton; + procedure FormCreate(Sender: TObject); + procedure btn_viewreportClick(Sender: TObject); + private + { Private declarations } + public + id_devedor: string; + { Public declarations } + end; + +var + confFichaHistorico: TconfFichaHistorico; + +implementation + +{$R *.dfm} + +uses udtmSystem, urelHistorico; + +procedure TconfFichaHistorico.btn_viewreportClick(Sender: TObject); +begin + inherited; + with TrelHistorico.Create(self) do + begin + if dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'F' then + begin + frlbl_documento.DataField := 'CD_CPF'; + end; + if dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'J' then + begin + frlbl_documento.DataField := 'CD_CNPJ'; + end; + zroqryHistorico.SQL.Clear; + zroqryHistorico.SQL.Add('select * from chg_historico'); + zroqryHistorico.SQL.Add(' where id_devedor = ' + id_devedor); + zroqryHistorico.SQL.Add('and'); + zroqryHistorico.SQL.Add('CAST(dt_contato AS DATE) >= ' + + QuotedStr(FormatDateTime('mm/dd/yyyy', dtp_inicio.Date))); + zroqryHistorico.SQL.Add('and'); + zroqryHistorico.SQL.Add('CAST(dt_contato AS DATE) <= ' + + QuotedStr(FormatDateTime('mm/dd/yyyy', dtp_fim.Date))); + zroqryHistorico.SQL.Add('order by dt_contato desc'); + zroqryHistorico.Open; + frlbl_referente.Caption := frlbl_referente.Caption + FormatDateTime('dd/mm/yyyy', + dtp_inicio.Date) + ' a ' + FormatDateTime('dd/mm/yyyy', dtp_fim.Date); + relHistorico.Preview(); + end; +end; + +procedure TconfFichaHistorico.FormCreate(Sender: TObject); +begin + inherited; + dtp_inicio.Date := Date; + dtp_fim.Date := Date; +end; + +end. diff --git a/uconfLayouts.dfm b/uconfLayouts.dfm new file mode 100644 index 0000000..df91101 --- /dev/null +++ b/uconfLayouts.dfm @@ -0,0 +1,1330 @@ +inherited confLayouts: TconfLayouts + Caption = 'Layout' + ClientHeight = 492 + ClientWidth = 799 + Menu = MainMenu1 + OnCloseQuery = FormCloseQuery + ExplicitTop = -92 + ExplicitWidth = 805 + ExplicitHeight = 541 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 473 + Width = 799 + Panels = < + item + Bevel = pbRaised + Width = 250 + end + item + Bevel = pbRaised + Width = 250 + end> + SimplePanel = False + ExplicitTop = 473 + ExplicitWidth = 799 + end + object gb_list: TGroupBox + Left = 8 + Top = 58 + Width = 185 + Height = 338 + TabOrder = 1 + object dblulb_layouts: TDBLookupListBox + Left = 3 + Top = 3 + Width = 179 + Height = 329 + KeyField = 'ID_LAYOUT' + ListField = 'TX_NOME' + ListSource = dtsLayouts + TabOrder = 0 + TabStop = False + end + end + object navPrincipal: TDBNavigator + Left = 49 + Top = 8 + Width = 700 + Height = 44 + DataSource = dtsLayouts + Hints.Strings = ( + 'Primeiro Registro' + 'Registro Anterior' + 'Pr'#243'ximo Registro' + #218'ltimo Registro' + 'Criar Registro' + 'Apagar Registro' + 'Editar Registro' + 'Salvar Registro' + 'Cancelar' + 'Atualizar' + 'Apply updates' + 'Cancel updates') + ParentShowHint = False + ShowHint = False + TabOrder = 2 + BeforeAction = navPrincipalBeforeAction + end + object gb_campos: TGroupBox + Left = 196 + Top = 58 + Width = 595 + Height = 338 + TabOrder = 3 + object lbl_nome: TLabel + Left = 5 + Top = 5 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_qnt: TLabel + Left = 327 + Top = 5 + Width = 114 + Height = 13 + Caption = 'Quantidade de Campos:' + end + object pg_campos: TPageControl + Left = 3 + Top = 47 + Width = 590 + Height = 285 + ActivePage = tabTitulos + TabOrder = 0 + TabStop = False + object tabDevedores: TTabSheet + Caption = 'Dados Pessoais' + object lblddd1: TLabel + Left = 508 + Top = 65 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object lblddd2: TLabel + Left = 508 + Top = 120 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object lblddd3: TLabel + Left = 508 + Top = 175 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object cb_nome: TCheckBox + Left = 3 + Top = 9 + Width = 78 + Height = 17 + Caption = 'Nome:' + TabOrder = 0 + OnClick = cb_nomeClick + end + object cbx_nome: TComboBox + Left = 3 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 1 + OnExit = cbx_nomeExit + end + object cbx_cpfcnpj: TComboBox + Left = 369 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 7 + OnExit = cbx_cpfcnpjExit + end + object cb_cpfcnpj: TCheckBox + Left = 369 + Top = 9 + Width = 78 + Height = 17 + Caption = 'CPF/CNPJ:' + TabOrder = 6 + OnClick = cb_cpfcnpjClick + end + object cbx_tel1: TComboBox + Left = 369 + Top = 87 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 22 + OnExit = cbx_tel1Exit + end + object cb_tel1: TCheckBox + Left = 369 + Top = 64 + Width = 78 + Height = 17 + Caption = 'Telefone (1):' + TabOrder = 23 + OnClick = cb_tel1Clic + end + object cb_nomepai: TCheckBox + Left = 125 + Top = 9 + Width = 82 + Height = 17 + Caption = 'Nome do Pai:' + TabOrder = 2 + OnClick = cb_nomepaiClick + end + object cbx_nomepai: TComboBox + Left = 125 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 3 + OnExit = cbx_nomepaiExit + end + object cb_rg: TCheckBox + Left = 491 + Top = 9 + Width = 78 + Height = 17 + Caption = 'RG:' + TabOrder = 8 + OnClick = cb_rgClick + end + object cbx_rg: TComboBox + Left = 491 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 9 + OnExit = cbx_rgExit + end + object cb_end: TCheckBox + Left = 3 + Top = 119 + Width = 78 + Height = 17 + Caption = 'Endere'#231'o:' + TabOrder = 13 + OnClick = cb_endClick + end + object cbx_end: TComboBox + Left = 3 + Top = 142 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 12 + OnExit = cbx_endExit + end + object cb_nomemae: TCheckBox + Left = 247 + Top = 9 + Width = 88 + Height = 17 + Caption = 'Nome da M'#227'e:' + TabOrder = 4 + OnClick = cb_nomemaeClick + end + object cbx_nomemae: TComboBox + Left = 247 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 5 + OnExit = cbx_nomemaeExit + end + object cb_num: TCheckBox + Left = 125 + Top = 119 + Width = 78 + Height = 17 + Caption = 'N'#250'mero:' + Enabled = False + TabOrder = 15 + OnClick = cb_numClick + end + object cbx_num: TComboBox + Left = 125 + Top = 142 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 14 + OnExit = cbx_numExit + end + object cb_cidade: TCheckBox + Left = 125 + Top = 174 + Width = 82 + Height = 17 + Caption = 'Cidade:' + Enabled = False + TabOrder = 29 + OnClick = cb_cidadeClick + end + object cbx_cidade: TComboBox + Left = 125 + Top = 197 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 28 + OnExit = cbx_cidadeExit + end + object cb_uf: TCheckBox + Left = 247 + Top = 174 + Width = 78 + Height = 17 + Caption = 'Estado:' + Enabled = False + TabOrder = 30 + OnClick = cb_ufClick + end + object cbx_uf: TComboBox + Left = 247 + Top = 197 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 31 + OnExit = cbx_ufExit + end + object cb_comp: TCheckBox + Left = 247 + Top = 119 + Width = 86 + Height = 17 + Caption = 'Complemento:' + Enabled = False + TabOrder = 17 + OnClick = cb_compClick + end + object cbx_comp: TComboBox + Left = 247 + Top = 142 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 16 + OnExit = cbx_compExit + end + object cbx_bairro: TComboBox + Left = 3 + Top = 197 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 20 + OnExit = cbx_bairroExit + end + object cb_bairro: TCheckBox + Left = 3 + Top = 174 + Width = 78 + Height = 17 + Caption = 'Bairro:' + Enabled = False + TabOrder = 21 + OnClick = cb_bairroClick + end + object cbx_cep: TComboBox + Left = 247 + Top = 87 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 18 + OnExit = cbx_cepExit + end + object cb_cep: TCheckBox + Left = 247 + Top = 64 + Width = 82 + Height = 17 + Caption = 'CEP:' + Enabled = False + TabOrder = 19 + OnClick = cb_cepClick + end + object cbx_tel2: TComboBox + Left = 369 + Top = 142 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 24 + OnExit = cbx_tel2Exit + end + object cb_tel2: TCheckBox + Left = 369 + Top = 119 + Width = 78 + Height = 17 + Caption = 'Telefone (2):' + TabOrder = 26 + OnClick = cb_tel2Click + end + object cbx_tel3: TComboBox + Left = 369 + Top = 197 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 25 + OnExit = cbx_tel3Exit + end + object cb_tel3: TCheckBox + Left = 369 + Top = 174 + Width = 78 + Height = 17 + Caption = 'Telefone (3):' + TabOrder = 27 + OnClick = cb_tel3Click + end + object cb_dtnasc: TCheckBox + Left = 125 + Top = 64 + Width = 116 + Height = 17 + Caption = 'Data de Nascimento:' + TabOrder = 11 + OnClick = cb_dtnascClick + end + object cbx_dtnasc: TComboBox + Left = 125 + Top = 87 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 10 + OnExit = cbx_dtnascExit + end + object cb_email: TCheckBox + Left = 3 + Top = 64 + Width = 97 + Height = 17 + Caption = 'Email:' + TabOrder = 32 + OnClick = cb_emailClick + end + object cbx_email: TComboBox + Left = 3 + Top = 87 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 33 + OnExit = cbx_emailExit + end + object cbx_ddd1: TComboBox + Left = 491 + Top = 87 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 34 + OnExit = cbx_ddd1Exit + end + object cbx_ddd2: TComboBox + Left = 491 + Top = 142 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 35 + OnExit = cbx_ddd2Exit + end + object cbx_ddd3: TComboBox + Left = 491 + Top = 197 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 36 + OnExit = cbx_ddd3Exit + end + object cb_ddd1: TCheckBox + Left = 491 + Top = 64 + Width = 13 + Height = 17 + TabOrder = 37 + Visible = False + end + object cb_ddd2: TCheckBox + Left = 491 + Top = 119 + Width = 13 + Height = 17 + TabOrder = 38 + Visible = False + end + object cb_ddd3: TCheckBox + Left = 491 + Top = 174 + Width = 13 + Height = 17 + TabOrder = 39 + Visible = False + end + object cb_obsdev: TCheckBox + Left = 3 + Top = 224 + Width = 78 + Height = 17 + Caption = 'Observa'#231#227'o:' + TabOrder = 40 + OnClick = cb_obsdevClic + end + object cbx_obsdev: TComboBox + Left = 87 + Top = 224 + Width = 78 + Height = 21 + TabOrder = 41 + OnExit = cbx_bairroExit + end + object cb_codigodevedor: TCheckBox + Left = 187 + Top = 224 + Width = 126 + Height = 17 + Caption = 'C'#243'digo do Devedor:' + TabOrder = 42 + OnClick = cb_codigodevedorClick + end + object cbx_codigodevedor: TComboBox + Left = 303 + Top = 224 + Width = 78 + Height = 21 + TabOrder = 43 + OnExit = cbx_codigodevedorExit + end + end + object tabTitulos: TTabSheet + Caption = 'T'#237'tulos' + ImageIndex = 1 + object cb_produto: TCheckBox + Left = 3 + Top = 9 + Width = 78 + Height = 17 + Caption = 'Produto:' + TabOrder = 0 + OnClick = cb_produtoClick + end + object cbx_produto: TComboBox + Left = 3 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 1 + OnExit = cbx_produtoExit + end + object cb_valor: TCheckBox + Left = 122 + Top = 9 + Width = 78 + Height = 17 + Caption = 'Valor:' + TabOrder = 2 + OnClick = cb_valorClick + end + object cbx_valor: TComboBox + Left = 122 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 3 + OnExit = cbx_valorExit + end + object cbx_dtvence: TComboBox + Left = 235 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 5 + OnExit = cbx_dtvenceExit + end + object cb_dtvence: TCheckBox + Left = 235 + Top = 9 + Width = 126 + Height = 17 + Caption = 'Data de Vencimento:' + TabOrder = 4 + OnClick = cb_dtvenceClick + end + object cb_banco: TCheckBox + Left = 3 + Top = 119 + Width = 62 + Height = 17 + Caption = 'Banco:' + Enabled = False + TabOrder = 10 + OnClick = cb_bancoClick + end + object cbx_banco: TComboBox + Left = 3 + Top = 142 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 11 + OnExit = cbx_bancoExit + end + object cb_nrcheque: TCheckBox + Left = 122 + Top = 119 + Width = 95 + Height = 17 + Caption = 'Nr'#186' do Cheque:' + Enabled = False + TabOrder = 12 + OnClick = cb_nrchequeClick + end + object cbx_nrcheque: TComboBox + Left = 122 + Top = 142 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 13 + OnChange = cbx_nrchequeChange + end + object cb_motivo: TCheckBox + Left = 235 + Top = 119 + Width = 97 + Height = 17 + Caption = 'Motivo:' + Enabled = False + TabOrder = 14 + OnClick = cb_motivoClick + end + object cbx_motivo: TComboBox + Left = 235 + Top = 142 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 15 + OnChange = cbx_motivoChange + end + object cb_cheque: TCheckBox + Left = 3 + Top = 64 + Width = 97 + Height = 17 + Caption = 'Cheque:' + TabOrder = 8 + OnClick = cb_chequeClick + end + object cbx_cheque: TComboBox + Left = 3 + Top = 87 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 9 + OnExit = cbx_chequeExit + end + object cb_coddev: TCheckBox + Left = 379 + Top = 9 + Width = 112 + Height = 17 + Caption = 'C'#243'digo do Devedor:' + TabOrder = 6 + OnClick = cb_coddevClick + end + object cbx_coddev: TComboBox + Left = 379 + Top = 32 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 7 + OnExit = cbx_coddevExit + end + object cb_obstit: TCheckBox + Left = 3 + Top = 184 + Width = 97 + Height = 17 + Caption = 'Observa'#231#227'o:' + TabOrder = 16 + OnClick = cb_obstitClick + end + object cbx_obstit: TComboBox + Left = 3 + Top = 207 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 17 + OnExit = cbx_obstitExit + end + object cb_dtpag: TCheckBox + Left = 235 + Top = 64 + Width = 126 + Height = 17 + Caption = 'Data de Pagamento:' + TabOrder = 18 + OnClick = cb_dtpagClick + end + object cbx_dtpag: TComboBox + Left = 235 + Top = 87 + Width = 78 + Height = 21 + Enabled = False + TabOrder = 19 + OnExit = cbx_dtpagExit + end + end + end + object btn_visualizar: TButton + Left = 506 + Top = 22 + Width = 75 + Height = 25 + Caption = 'Visualizar' + TabOrder = 1 + TabStop = False + OnClick = btn_visualizarClick + end + object dbedt_nomelayout: TDBEdit + Left = 3 + Top = 24 + Width = 245 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtsLayouts + TabOrder = 2 + end + object dbedt_nrcampos: TDBEdit + Left = 327 + Top = 24 + Width = 74 + Height = 21 + DataField = 'NR_QNTCAMPOS' + DataSource = dtsLayouts + TabOrder = 3 + OnChange = dbedt_nrcamposChange + end + end + object sg_layout: TStringGrid + Left = 8 + Top = 398 + Width = 783 + Height = 72 + TabStop = False + DefaultColWidth = 140 + FixedCols = 0 + RowCount = 2 + FixedRows = 0 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + end + object MainMenu1: TMainMenu + Left = 88 + Top = 72 + object mnuArquivo: TMenuItem + Caption = 'Arquivo' + object mnuCarregar: TMenuItem + Caption = 'Carregar Arquivo para Visualiza'#231#227'o' + OnClick = mnuCarregarClick + end + object mnuNovo: TMenuItem + Caption = 'Novo Layout' + OnClick = mnuNovoClick + end + object mnuSalvar: TMenuItem + Caption = 'Salvar Layout' + OnClick = mnuSalvarClick + end + object Gerarxls1: TMenuItem + Caption = '-' + end + object mnuGerar: TMenuItem + Caption = 'Gerar .xls' + OnClick = mnuGerarClick + end + end + end + object dtsLayouts: TDataSource + DataSet = dtmSystem.tblLayouts + OnDataChange = dtsLayoutsDataChange + Left = 84 + Top = 130 + end + object od_layout: TOpenDialog + Left = 140 + Top = 74 + end + object ImageList1: TImageList + Left = 88 + Top = 192 + Bitmap = { + 494C01010C001800AC0110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end +end diff --git a/uconfLayouts.pas b/uconfLayouts.pas new file mode 100644 index 0000000..e39c8ff --- /dev/null +++ b/uconfLayouts.pas @@ -0,0 +1,1491 @@ +unit uconfLayouts; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.win.ComObj, System.StrUtils, + System.MaskUtils, Vcl.Buttons, generics.collections, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.Grids, + Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Menus, Vcl.Mask, Data.DB, + System.ImageList, Vcl.ImgList; + +type + THackDBNavigator = class(TDBNavigator); + +type + TconfLayouts = class(TmstMaster) + MainMenu1: TMainMenu; + mnuArquivo: TMenuItem; + mnuCarregar: TMenuItem; + mnuSalvar: TMenuItem; + gb_list: TGroupBox; + navPrincipal: TDBNavigator; + dblulb_layouts: TDBLookupListBox; + sg_layout: TStringGrid; + lbl_nome: TLabel; + pg_campos: TPageControl; + tabDevedores: TTabSheet; + tabTitulos: TTabSheet; + lbl_qnt: TLabel; + dtsLayouts: TDataSource; + od_layout: TOpenDialog; + gb_campos: TGroupBox; + mnuNovo: TMenuItem; + cb_nome: TCheckBox; + cbx_nome: TComboBox; + cbx_cpfcnpj: TComboBox; + cb_cpfcnpj: TCheckBox; + cbx_tel1: TComboBox; + cb_tel1: TCheckBox; + cb_nomepai: TCheckBox; + cbx_nomepai: TComboBox; + cb_rg: TCheckBox; + cbx_rg: TComboBox; + cb_end: TCheckBox; + cbx_end: TComboBox; + cb_nomemae: TCheckBox; + cbx_nomemae: TComboBox; + cb_num: TCheckBox; + cbx_num: TComboBox; + cb_cidade: TCheckBox; + cbx_cidade: TComboBox; + cb_uf: TCheckBox; + cbx_uf: TComboBox; + cb_comp: TCheckBox; + cbx_comp: TComboBox; + cbx_bairro: TComboBox; + cb_bairro: TCheckBox; + cbx_cep: TComboBox; + cb_cep: TCheckBox; + Gerarxls1: TMenuItem; + mnuGerar: TMenuItem; + cbx_tel2: TComboBox; + cb_tel2: TCheckBox; + cbx_tel3: TComboBox; + cb_tel3: TCheckBox; + ImageList1: TImageList; + cb_dtnasc: TCheckBox; + cbx_dtnasc: TComboBox; + btn_visualizar: TButton; + cb_produto: TCheckBox; + cbx_produto: TComboBox; + cb_valor: TCheckBox; + cbx_valor: TComboBox; + cbx_dtvence: TComboBox; + cb_dtvence: TCheckBox; + cb_banco: TCheckBox; + cbx_banco: TComboBox; + cb_nrcheque: TCheckBox; + cbx_nrcheque: TComboBox; + cb_motivo: TCheckBox; + cbx_motivo: TComboBox; + cb_cheque: TCheckBox; + cbx_cheque: TComboBox; + cb_coddev: TCheckBox; + cbx_coddev: TComboBox; + cb_email: TCheckBox; + cbx_email: TComboBox; + dbedt_nomelayout: TDBEdit; + dbedt_nrcampos: TDBEdit; + cbx_ddd1: TComboBox; + cbx_ddd2: TComboBox; + cbx_ddd3: TComboBox; + lblddd1: TLabel; + lblddd2: TLabel; + lblddd3: TLabel; + cb_ddd1: TCheckBox; + cb_ddd2: TCheckBox; + cb_ddd3: TCheckBox; + cb_obstit: TCheckBox; + cbx_obstit: TComboBox; + cb_obsdev: TCheckBox; + cbx_obsdev: TComboBox; + cb_codigodevedor: TCheckBox; + cbx_codigodevedor: TComboBox; + cb_dtpag: TCheckBox; + cbx_dtpag: TComboBox; + procedure FormCreate(Sender: TObject); + procedure mnuNovoClick(Sender: TObject); + procedure mnuSalvarClick(Sender: TObject); + procedure dtsLayoutsDataChange(Sender: TObject; Field: TField); + procedure cb_nomeClick(Sender: TObject); + procedure cb_nomepaiClick(Sender: TObject); + procedure cb_nomemaeClick(Sender: TObject); + procedure cb_cpfcnpjClick(Sender: TObject); + procedure cb_rgClick(Sender: TObject); + procedure cb_coddevClick(Sender: TObject); + procedure cb_tel1Clic(Sender: TObject); + procedure cb_endClick(Sender: TObject); + procedure cb_numClick(Sender: TObject); + procedure cb_cidadeClick(Sender: TObject); + procedure cb_ufClick(Sender: TObject); + procedure cb_compClick(Sender: TObject); + procedure cb_cepClick(Sender: TObject); + procedure cb_bairroClick(Sender: TObject); + procedure mnuCarregarClick(Sender: TObject); + procedure cb_tel2Click(Sender: TObject); + procedure cb_tel3Click(Sender: TObject); + procedure mnuGerarClick(Sender: TObject); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure cb_dtnascClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure btn_visualizarClick(Sender: TObject); + procedure cb_produtoClick(Sender: TObject); + procedure cb_valorClick(Sender: TObject); + procedure cb_dtvenceClick(Sender: TObject); + procedure cbx_nomeExit(Sender: TObject); + procedure cbx_nomepaiExit(Sender: TObject); + procedure cbx_nomemaeExit(Sender: TObject); + procedure cbx_cpfcnpjExit(Sender: TObject); + procedure cbx_rgExit(Sender: TObject); + procedure cbx_coddevExit(Sender: TObject); + procedure cbx_dtnascExit(Sender: TObject); + procedure cbx_endExit(Sender: TObject); + procedure cbx_numExit(Sender: TObject); + procedure cbx_compExit(Sender: TObject); + procedure cbx_cepExit(Sender: TObject); + procedure cbx_bairroExit(Sender: TObject); + procedure cbx_tel1Exit(Sender: TObject); + procedure cbx_tel2Exit(Sender: TObject); + procedure cbx_tel3Exit(Sender: TObject); + procedure cbx_cidadeExit(Sender: TObject); + procedure cbx_ufExit(Sender: TObject); + procedure cbx_produtoExit(Sender: TObject); + procedure cbx_valorExit(Sender: TObject); + procedure cbx_dtvenceExit(Sender: TObject); + procedure cb_bancoClick(Sender: TObject); + procedure cbx_bancoExit(Sender: TObject); + procedure cb_nrchequeClick(Sender: TObject); + procedure cbx_nrchequeChange(Sender: TObject); + procedure cb_motivoClick(Sender: TObject); + procedure cbx_motivoChange(Sender: TObject); + procedure cb_chequeClick(Sender: TObject); + procedure cbx_chequeExit(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure cb_emailClick(Sender: TObject); + procedure cbx_emailExit(Sender: TObject); + procedure dbedt_nrcamposChange(Sender: TObject); + procedure cbx_ddd1Exit(Sender: TObject); + procedure cbx_ddd2Exit(Sender: TObject); + procedure cbx_ddd3Exit(Sender: TObject); + procedure cb_obstitClick(Sender: TObject); + procedure cbx_obstitExit(Sender: TObject); + procedure cb_obsdevClic(Sender: TObject); + procedure cb_codigodevedorClick(Sender: TObject); + procedure cbx_codigodevedorExit(Sender: TObject); + procedure cb_dtpagClick(Sender: TObject); + procedure cbx_dtpagExit(Sender: TObject); + private + procedure Carregar; + function CmtoPix(cm: double): integer; + function PixtoCM(pix: integer): double; + procedure PovoaCB(tbSheet: TTabSheet); + function MontaString(box: TComboBox): string; + function CheckIndex(box: TComboBox): Boolean; + + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + // function EscreveHeader(index: integer): string; + { Private declarations } + public + itemList: TStringList; + listBox: TObjectList; + listCheck: TObjectList; + recno_helper: integer; + { Public declarations } + end; + +var + confLayouts: TconfLayouts; + +const // O layout guardado como uma string que indica onde cada elemento se encontra nas colunas da tabela. + { Nome; Nome do Pai; Nome da Me; CPF/CNPJ; RG; Email; Data de Nascimento; + Endereo; Nmero; Complemento; Bairro; Cidade; Estado; CEP; + Telefone1; Telefone2; Telefone3; Produto; Valor; Data de Vencimento; Cdigo do Devedor; (agora aqui); + cheque; Banco; Nr do cheque; Motivo; DDD1; DDD2; DDD3; Obs de Ttulo; Obs de Devedor; Cdigo do Devedor; Data de Pagamento } + Header: array [0 .. 31] of string = ('Nome', 'Nome do Pai', 'Nome da Me', + 'CPF/CNPJ', 'RG', 'Email', 'Data de Nascimento', 'Endereo', 'Nmero', + 'Complemento', 'Bairro', 'Cidade', 'Estado', 'CEP', 'Telefone (1)', + 'Telefone (2)', 'Telefone (3)', 'Produto', 'Valor', 'Data de Vencimento', + 'Cdigo do Devedor', ' Cheque', 'Banco', 'Nr do Cheque', 'Motivo', 'DDD1', + 'DDD2', 'DDD3', 'Obs Ttulo', 'Obs Devedor', 'Cdigo do Devedor', 'Data de Pagamento'); + // sempre atualizar no dtmSystem o valor do tamanho deste vetor para que o fix automtico funcione. + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TconfLayouts.btn_visualizarClick(Sender: TObject); +var + i: integer; +begin + for i := 0 to listBox.Count - 1 do + begin + if listCheck[i].Checked then + begin + if listBox[i].Text <> '' then + begin + sg_layout.Cells[strtoint(listBox[i].Text) - 1, 0] := Header[i]; + end; + end; + end; +end; + +procedure TconfLayouts.Carregar; +var + OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param, + OORCCount: Variant; + RCount, CCount, TotCell, Counter, ColWidth, RowHeight, PColwidth, + PRowHeight: integer; + pathFile: string; + i, j, k, l: integer; + +begin + // procedimento pra gerar um arquivo xls pelo Open Office + if od_layout.Execute then + begin + pathFile := StringReplace(od_layout.FileName, '\', '/', [rfReplaceAll]); + pathFile := 'file:///' + pathFile; + Screen.Cursor := crHourGlass; + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + // abre o gerenciador + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + // abre o desktop + + LoadParams := VarArrayCreate([0, 0], varVariant); + // cria uma array de variveis vazia + Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + // copia os parmetros standard do open office + Param.Name := 'Hidden'; // seta pra no aparecer a janela + Param.Value := true; + LoadParams[0] := Param; + + OOExec := OpenDesktop.LoadComponentFromURL(pathFile, '_blank', 0, + LoadParams); // abre o tables do open office + OOCalc := OOExec.Sheets; // abre a planilha + Planilha := OOCalc.getbyIndex(0); + + OORCCount := Planilha.createCursor; + OORCCount.gotoEndOfUsedArea(false); + RCount := OORCCount.RangeAddress.EndRow; + CCount := OORCCount.RangeAddress.EndColumn; + Inc(RCount, 1); + Inc(CCount, 1); + TotCell := RCount * CCount; + Counter := 0; + + itemList := TStringList.Create; + with itemList do + begin + for k := 0 to CCount - 1 do + begin + Add(inttostr(k + 1)); + end; + end; + + for l := 0 to sg_layout.ColCount - 1 do + begin + sg_layout.Cols[l].Clear; + end; + + sg_layout.RowCount := RCount; + sg_layout.ColCount := CCount; + + RowHeight := 0; + + for j := 0 to RCount - 1 do + begin + ColWidth := 0; + for i := 0 to CCount - 1 do + begin + PColwidth := CmtoPix(Planilha.getCellByPosition(i, j) + .getColumns.getbyIndex(0).Width); + if ColWidth < PColwidth then + begin + ColWidth := PColwidth; + end; + PRowHeight := CmtoPix(Planilha.getCellByPosition(i, j).getRows.Height); + if RowHeight < PRowHeight then + begin + RowHeight := PRowHeight; + end; + sg_layout.ColWidths[i] := ColWidth; + sg_layout.RowHeights[j] := RowHeight; + sg_layout.Cells[i, j] := Planilha.getCellByPosition(i, j).getFormula; + end; + end; + + try + OOExec.Close(false); + finally + + OpenOffice := Unassigned; + + Screen.Cursor := crDefault; + SetFocus; + end; + end; + PovoaCB(tabDevedores); + PovoaCB(tabTitulos); + itemList.Clear; + // ud_qnt.Position := CCount; + +end; + +procedure TconfLayouts.cb_nomemaeClick(Sender: TObject); +begin + cbx_nomemae.Enabled := cb_nomemae.Checked; +end; + +procedure TconfLayouts.cbx_bairroExit(Sender: TObject); +begin + if CheckIndex(cbx_bairro) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_bancoExit(Sender: TObject); +begin + inherited; + if CheckIndex(cbx_banco) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_cepExit(Sender: TObject); +begin + if CheckIndex(cbx_cep) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_chequeExit(Sender: TObject); +begin + inherited; + if CheckIndex(cbx_cheque) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_cidadeExit(Sender: TObject); +begin + if CheckIndex(cbx_cidade) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_coddevExit(Sender: TObject); +begin + if CheckIndex(cbx_coddev) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_codigodevedorExit(Sender: TObject); +begin + inherited; + if CheckIndex(cbx_codigodevedor) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_compExit(Sender: TObject); +begin + if CheckIndex(cbx_comp) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_cpfcnpjExit(Sender: TObject); +begin + if CheckIndex(cbx_cpfcnpj) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_ddd1Exit(Sender: TObject); +begin + if CheckIndex(cbx_ddd1) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_ddd2Exit(Sender: TObject); +begin + if CheckIndex(cbx_ddd2) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_ddd3Exit(Sender: TObject); +begin + if CheckIndex(cbx_ddd3) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_dtnascExit(Sender: TObject); +begin + if CheckIndex(cbx_dtnasc) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_dtpagExit(Sender: TObject); +begin + inherited; + if CheckIndex(cbx_dtpag) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_dtvenceExit(Sender: TObject); +begin + if CheckIndex(cbx_dtvence) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_emailExit(Sender: TObject); +begin + if CheckIndex(cbx_email) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_endExit(Sender: TObject); +begin + if CheckIndex(cbx_end) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_motivoChange(Sender: TObject); +begin + inherited; + if CheckIndex(cbx_motivo) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_nomeExit(Sender: TObject); +begin + if CheckIndex(cbx_nome) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_nomemaeExit(Sender: TObject); +begin + if CheckIndex(cbx_nomemae) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_nomepaiExit(Sender: TObject); +begin + if CheckIndex(cbx_nomepai) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_nrchequeChange(Sender: TObject); +begin + inherited; + if CheckIndex(cbx_nrcheque) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_numExit(Sender: TObject); +begin + if CheckIndex(cbx_num) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_obstitExit(Sender: TObject); +begin + inherited; +if CheckIndex(cbx_obstit) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_produtoExit(Sender: TObject); +begin + if CheckIndex(cbx_produto) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_rgExit(Sender: TObject); +begin + if CheckIndex(cbx_rg) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_tel1Exit(Sender: TObject); +begin + if CheckIndex(cbx_tel1) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_tel2Exit(Sender: TObject); +begin + if CheckIndex(cbx_tel2) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_tel3Exit(Sender: TObject); +begin + if CheckIndex(cbx_tel3) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_ufExit(Sender: TObject); +begin + if CheckIndex(cbx_uf) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cbx_valorExit(Sender: TObject); +begin + if CheckIndex(cbx_valor) then + begin + MessageDlg('J existe um campo relacionado a essa coluna.', mtInformation, + [mbOK], 0); + end; +end; + +procedure TconfLayouts.cb_bairroClick(Sender: TObject); +begin + cbx_bairro.Enabled := cb_bairro.Checked; +end; + +procedure TconfLayouts.cb_bancoClick(Sender: TObject); +begin + inherited; + cbx_banco.Enabled := cb_banco.Checked; +end; + +procedure TconfLayouts.cb_cepClick(Sender: TObject); +begin + cbx_cep.Enabled := cb_cep.Checked; +end; + +procedure TconfLayouts.cb_chequeClick(Sender: TObject); +begin + inherited; + cb_banco.Enabled := cb_cheque.Checked; + cb_nrcheque.Enabled := cb_cheque.Checked; + cb_motivo.Enabled := cb_cheque.Checked; + cbx_cheque.Enabled := cb_cheque.Checked; +end; + +procedure TconfLayouts.cb_cidadeClick(Sender: TObject); +begin + cbx_cidade.Enabled := cb_cidade.Checked; +end; + +procedure TconfLayouts.cb_coddevClick(Sender: TObject); +begin + cbx_coddev.Enabled := cb_coddev.Checked; +end; + +procedure TconfLayouts.cb_codigodevedorClick(Sender: TObject); +begin + inherited; + cbx_codigodevedor.Enabled := cb_codigodevedor.Checked; +end; + +procedure TconfLayouts.cb_compClick(Sender: TObject); +begin + cbx_comp.Enabled := cb_comp.Checked; +end; + +procedure TconfLayouts.cb_cpfcnpjClick(Sender: TObject); +begin + cbx_cpfcnpj.Enabled := cb_cpfcnpj.Checked; +end; + +procedure TconfLayouts.cb_dtnascClick(Sender: TObject); +begin + cbx_dtnasc.Enabled := cb_dtnasc.Checked; +end; + +procedure TconfLayouts.cb_dtpagClick(Sender: TObject); +begin + inherited; + cbx_dtpag.Enabled := cb_dtpag.Checked; +end; + +procedure TconfLayouts.cb_dtvenceClick(Sender: TObject); +begin + cbx_dtvence.Enabled := cb_dtvence.Checked; +end; + +procedure TconfLayouts.cb_emailClick(Sender: TObject); +begin + inherited; + cbx_email.Enabled := cb_email.Checked; +end; + +procedure TconfLayouts.cb_endClick(Sender: TObject); +begin + cbx_end.Enabled := cb_end.Checked; + if cb_end.Checked then + begin + cb_num.Enabled := true; + cb_cidade.Enabled := true; + cb_uf.Enabled := true; + cb_comp.Enabled := true; + cb_cep.Enabled := true; + cb_bairro.Enabled := true; + end + else + begin + cb_num.Checked := false; + cb_num.Enabled := false; + cbx_num.Enabled := false; + cb_cidade.Checked := false; + cb_cidade.Enabled := false; + cbx_cidade.Enabled := false; + cb_uf.Checked := false; + cb_uf.Enabled := false; + cbx_uf.Enabled := false; + cb_comp.Checked := false; + cb_comp.Enabled := false; + cbx_comp.Enabled := false; + cb_cep.Checked := false; + cb_cep.Enabled := false; + cbx_cep.Enabled := false; + cb_bairro.Checked := false; + cb_bairro.Enabled := false; + cbx_bairro.Enabled := false; + end; +end; + +procedure TconfLayouts.cb_motivoClick(Sender: TObject); +begin + inherited; + cbx_motivo.Enabled := cb_motivo.Checked; +end; + +procedure TconfLayouts.cb_nomeClick(Sender: TObject); +begin + cbx_nome.Enabled := cb_nome.Checked; +end; + +procedure TconfLayouts.cb_nomepaiClick(Sender: TObject); +begin + cbx_nomepai.Enabled := cb_nomepai.Checked; +end; + +procedure TconfLayouts.cb_nrchequeClick(Sender: TObject); +begin + inherited; + cbx_nrcheque.Enabled := cb_nrcheque.Checked; +end; + +procedure TconfLayouts.cb_numClick(Sender: TObject); +begin + cbx_num.Enabled := cb_num.Checked; +end; + +procedure TconfLayouts.cb_produtoClick(Sender: TObject); +begin + cbx_produto.Enabled := cb_produto.Checked; +end; + +procedure TconfLayouts.cb_rgClick(Sender: TObject); +begin + cbx_rg.Enabled := cb_rg.Checked; +end; + +procedure TconfLayouts.cb_tel1Clic(Sender: TObject); +begin + cbx_tel1.Enabled := cb_tel1.Checked; + cbx_ddd1.Enabled := cb_tel1.Checked; + cb_ddd1.Checked := cb_tel1.Checked; +end; + +procedure TconfLayouts.cb_tel2Click(Sender: TObject); +begin + cbx_tel2.Enabled := cb_tel2.Checked; + cbx_ddd2.Enabled := cb_tel2.Checked; + cb_ddd2.Checked := cb_tel2.Checked; +end; + +procedure TconfLayouts.cb_tel3Click(Sender: TObject); +begin + cbx_tel3.Enabled := cb_tel3.Checked; + cbx_ddd3.Enabled := cb_tel3.Checked; + cb_ddd3.Checked := cb_tel3.Checked; +end; + +procedure TconfLayouts.cb_ufClick(Sender: TObject); +begin + cbx_uf.Enabled := cb_uf.Checked; +end; + +procedure TconfLayouts.cb_valorClick(Sender: TObject); +begin + cbx_valor.Enabled := cb_valor.Checked; +end; + +procedure TconfLayouts.cb_obsdevClic(Sender: TObject); +begin + inherited; + cbx_obsdev.Enabled := cb_obsdev.Checked; +end; + +procedure TconfLayouts.cb_obstitClick(Sender: TObject); +begin + inherited; + cbx_obstit.Enabled := cb_obstit.Checked; +end; + +function TconfLayouts.CheckIndex(box: TComboBox): Boolean; +var + i: integer; +begin + + for i := 0 to listBox.Count - 1 do + begin + if box.Text = '' then + begin + result := false; + break; + end; + if listCheck[i].Checked then + begin + if box.Name <> listBox[i].Name then + begin + if box.Text = listBox[i].Text then + begin + box.ItemIndex := -1; + result := true; + break; + end + else + begin + result := false; + end; + end; + end; + end; +end; + +function TconfLayouts.CmtoPix(cm: double): integer; +var + ppcm: double; +begin + ppcm := Screen.PixelsPerInch / 2540; + result := Trunc(ppcm * cm); +end; + +procedure TconfLayouts.dbedt_nrcamposChange(Sender: TObject); +var + k: integer; +begin + if dbedt_nrcampos.Text <> '' then + begin + sg_layout.ColCount := strtoint(dbedt_nrcampos.Text); + end + else + begin + sg_layout.ColCount := 0; + end; + + itemList := TStringList.Create; + try + with itemList do + begin + if dbedt_nrcampos.Text <> '' then + begin + for k := 0 to strtoint(dbedt_nrcampos.Text) - 1 do + begin + Add(inttostr(k + 1)); + end; + end + else + begin + for k := 0 to 1 - 1 do + begin + Add(inttostr(k + 1)); + end; + end; + end; + PovoaCB(tabDevedores); + PovoaCB(tabTitulos); + finally + itemList.Clear; + end; + +end; + +procedure TconfLayouts.dtsLayoutsDataChange(Sender: TObject; Field: TField); +var + lista: TStringList; + i, k: integer; + string_helper: string; +begin + gb_campos.Enabled := dtsLayouts.State in [dsEdit, dsInsert]; + // ud_qnt.Enabled := dtsLayouts.State in [dsEdit, dsInsert]; + // edt_nome.ReadOnly := dtsLayouts.State in [dsBrowse]; + tabDevedores.Enabled := dtsLayouts.State in [dsEdit, dsInsert]; + tabTitulos.Enabled := dtsLayouts.State in [dsEdit, dsInsert]; + btn_visualizar.Enabled := dtsLayouts.State in [dsEdit, dsInsert]; + string_helper := 'Quantidade total de entradas: ' + + inttostr(dtsLayouts.DataSet.RecordCount) + '.';; + stbStatus.Panels[0].Width := stbStatus.Canvas.TextWidth(string_helper) + 20; + stbStatus.Panels[0].Text := string_helper; + string_helper := 'Entrada atual: ' + inttostr(dtsLayouts.DataSet.RecNo) + '.'; + stbStatus.Panels[1].Width := stbStatus.Canvas.TextWidth(string_helper) + 20; + stbStatus.Panels[1].Text := string_helper; + + if not(dtsLayouts.DataSet.IsEmpty) then + begin + if dtsLayouts.State in [dsBrowse] then + begin + if recno_helper <> dtmSystem.tblLayouts.RecNo then + begin + itemList := TStringList.Create; + try + with itemList do + begin + for k := 0 to strtoint(dbedt_nrcampos.Text) - 1 do + begin + Add(inttostr(k + 1)); + end; + end; + PovoaCB(tabDevedores); + PovoaCB(tabTitulos); + finally + end; + + recno_helper := dtmSystem.tblLayouts.RecNo; + if dtmSystem.tblLayoutsNR_QNTCAMPOS.AsInteger > 0 then + begin + sg_layout.ColCount := dtmSystem.tblLayoutsNR_QNTCAMPOS.AsInteger; + // ud_qnt.Position := dtmSystem.tblLayoutsNR_QNTCAMPOS.AsInteger; + end; + lista := TStringList.Create; + try + lista.Clear; + lista.Delimiter := ';'; + lista.DelimitedText := dtmSystem.tblLayoutsSTR_CAMPOS.AsString; + finally + end; + for i := 0 to lista.Count - 2 do + begin + if strtoint(lista[i]) > 0 then + begin + sg_layout.Cells[strtoint(lista[i]) - 1, 0] := Header[i]; + if Assigned(listBox) then + begin + listBox[i].Enabled := true; + listBox[i].ItemIndex := strtoint(lista[i]) - 1; + try + listCheck[i].Checked := true; + except + end; + end; + end + else + begin + // if i < sg_layout.ColCount then + // begin + // sg_layout.Cells[strtoint(lista[i]) - 1, 0] := ''; + if Assigned(listBox) then + begin + listBox[i].Enabled := false; + listBox[i].ItemIndex := -1; + listBox[i].Text := ''; + try + listCheck[i].Checked := false; + except + end; + end; + // end; + end; + end; + end; + end; + end; + +end; + +procedure TconfLayouts.FormClose(Sender: TObject; var Action: TCloseAction); +begin + dtsLayouts.DataSet.Close; + Action := caFree; + confLayouts := nil; +end; + +procedure TconfLayouts.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + if navPrincipal.DataSource <> nil then + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; +end; + +procedure TconfLayouts.FormCreate(Sender: TObject); +var + lista: TStringList; + i, k: integer; +begin + + recno_helper := -1; + if not(dtsLayouts.DataSet.Active) then + begin + dtsLayouts.DataSet.Open; + end; + SetupHackedNavigator(navPrincipal, ImageList1, 's'); + + if dtsLayouts.DataSet.FieldByName('NR_QNTCAMPOS').AsString <> '' then + begin + sg_layout.ColCount := dtsLayouts.DataSet.FieldByName('NR_QNTCAMPOS') + .AsInteger; + // edt_qnt.Text := dtsLayouts.DataSet.FieldByName('NR_QNTCAMPOS').AsString; + end + else + begin + sg_layout.ColCount := 0; + end; + + // ud_qnt.Position := dtmSystem.tblLayoutsNR_QNTCAMPOS.AsInteger; + + listBox := TObjectList.Create; + listBox.OwnsObjects := false; + listBox.Add(cbx_nome); + listBox.Add(cbx_nomepai); + listBox.Add(cbx_nomemae); + listBox.Add(cbx_cpfcnpj); + listBox.Add(cbx_rg); + listBox.Add(cbx_email); + listBox.Add(cbx_dtnasc); + listBox.Add(cbx_end); + listBox.Add(cbx_num); + listBox.Add(cbx_comp); + listBox.Add(cbx_bairro); + listBox.Add(cbx_cidade); + listBox.Add(cbx_uf); + listBox.Add(cbx_cep); + listBox.Add(cbx_tel1); + listBox.Add(cbx_tel2); + listBox.Add(cbx_tel3); + listBox.Add(cbx_produto); + listBox.Add(cbx_valor); + listBox.Add(cbx_dtvence); + listBox.Add(cbx_coddev); // mudou pra c + listBox.Add(cbx_cheque); + listBox.Add(cbx_banco); + listBox.Add(cbx_nrcheque); + listBox.Add(cbx_motivo); + listBox.Add(cbx_ddd1); + listBox.Add(cbx_ddd2); + listBox.Add(cbx_ddd3); + listBox.Add(cbx_obstit); + listBox.Add(cbx_obsdev); + listBox.Add(cbx_codigodevedor); + listBox.Add(cbx_dtpag); + + listCheck := TObjectList.Create; + listCheck.OwnsObjects := false; + listCheck.Add(cb_nome); + listCheck.Add(cb_nomepai); + listCheck.Add(cb_nomemae); + listCheck.Add(cb_cpfcnpj); + listCheck.Add(cb_rg); + listCheck.Add(cb_email); + listCheck.Add(cb_dtnasc); + listCheck.Add(cb_end); + listCheck.Add(cb_num); + listCheck.Add(cb_comp); + listCheck.Add(cb_bairro); + listCheck.Add(cb_cidade); + listCheck.Add(cb_uf); + listCheck.Add(cb_cep); + listCheck.Add(cb_tel1); + listCheck.Add(cb_tel2); + listCheck.Add(cb_tel3); + listCheck.Add(cb_produto); + listCheck.Add(cb_valor); + listCheck.Add(cb_dtvence); + listCheck.Add(cb_coddev); // mudou pra c + listCheck.Add(cb_cheque); + listCheck.Add(cb_banco); + listCheck.Add(cb_nrcheque); + listCheck.Add(cb_motivo); + listCheck.Add(cb_ddd1); + listCheck.Add(cb_ddd2); + listCheck.Add(cb_ddd3); + listCheck.Add(cb_obstit); + listCheck.Add(cb_obsdev); + listCheck.Add(cb_codigodevedor); + listCheck.Add(cb_dtpag); + + // ud_qnt.Max := listBox.Count; + pg_campos.ActivePageIndex := 0; + + lista := TStringList.Create; + try + lista.Clear; + lista.Delimiter := ';'; + lista.DelimitedText := dtmSystem.tblLayoutsSTR_CAMPOS.AsString; + finally + end; + for i := 0 to lista.Count - 2 do + begin + if strtoint(lista[i]) > 0 then + begin + listBox[i].ItemIndex := strtoint(lista[i]) - 1; + try + listCheck[i].Checked := true; + except + end; + end; + end; + +end; + +procedure TconfLayouts.mnuCarregarClick(Sender: TObject); +begin + Carregar; +end; + +procedure TconfLayouts.mnuGerarClick(Sender: TObject); +var + OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param, + FilterParams, Param2: Variant; + i: integer; + lista: TStringList; + pathFile, nome: string; +begin + Screen.Cursor := crHourGlass; + if dtsLayouts.State in [dsEdit, dsInsert] then + begin + MessageDlg('Por favor salve ou cancele qualquer' + + ' alteraes no layout antes de gerar o arquivo .xls', mtWarning, + [mbOK], 0); + abort; + end; + // gera uma planilha conforme o string grid do layout + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + + LoadParams := VarArrayCreate([0, 0], varVariant); + Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param.Name := 'Hidden'; + Param.Value := true; + LoadParams[0] := Param; + + OOExec := OpenDesktop.LoadComponentFromURL('private:factory/scalc', '_blank', + 0, LoadParams); + OOCalc := OOExec.Sheets; + Planilha := OOCalc.getbyIndex(0); + + lista := TStringList.Create; + try + lista.Clear; + lista.Delimiter := ';'; + lista.DelimitedText := dtmSystem.tblLayoutsSTR_CAMPOS.AsString; + finally + end; + + for i := 0 to lista.Count - 2 do + begin + if lista[i] <> '0' then + begin + Planilha.getCellByPosition(strtoint(lista[i]) - 1, 0).string := + UpperCase(Header[i]); + Planilha.getCellByPosition(strtoint(lista[i]) - 1, 0).HoriJustify := 3; + Planilha.getCellByPosition(strtoint(lista[i]) - 1, 0) + .getText.createTextCursor.CharWeight := 150; + Planilha.getCellByPosition(strtoint(lista[i]) - 1, 0) + .getColumns.getbyIndex(0).Width := + PixtoCM(sg_layout.ColWidths[strtoint(lista[i]) - 1]); + Planilha.getCellByPosition(strtoint(lista[i]), 0).getColumns.getbyIndex(0) + .OptimalWidth := true; + end; + end; + + FilterParams := VarArrayCreate([0, 1], varVariant); + + Param2 := OpenDesktop.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param2.Name := 'FilterName'; + Param2.Value := 'MS Excel 97'; + FilterParams[0] := Param2; + Param2.Name := 'Overwrite'; + Param2.Value := true; + FilterParams[1] := Param2; + + nome := dtmSystem.tblLayoutsTX_NOME.AsString; + nome := StringReplace(nome, ' ', '_', [rfReplaceAll]); + +// pathFile := GetCurrentDir; +// pathFile := 'file:///' + pathFile + '\Layouts\' + nome; +// pathFile := StringReplace(pathFile, '\', '/', [rfReplaceAll]); + + pathFile := GetCurrentDir; + pathFile := 'file:///' + dtmSystem.path_executavel + '\Layouts\' + nome; + pathFile := StringReplace(pathFile, '\', '/', [rfReplaceAll]); + + try + OOExec.StoreAsURL(pathFile + '.xls', FilterParams); + OOExec.Close(false); + finally + OpenOffice := Unassigned; + end; + + Screen.Cursor := crDefault; + +end; + +procedure TconfLayouts.mnuNovoClick(Sender: TObject); +var + i, j: integer; +begin + with dtmSystem do + begin + tblLayouts.Append; + end; + for i := 0 to listBox.Count - 1 do + begin + listBox[i].Enabled := false; + listBox[i].ItemIndex := -1; + listBox[i].Text := ''; + end; + for j := 0 to listCheck.Count - 1 do + begin + listCheck[j].Checked := false; + end; + +end; + +procedure TconfLayouts.mnuSalvarClick(Sender: TObject); +var + string_helper: string; +begin + { Por ordem de leitura: 0 = no inclui; > 0 = inclui; + Nome; Nome do Pai; Nome da Me; CPF/CNPJ; RG; Email; Data de Nascimento; + Endereo; Nmero; Complemento; Bairro; Cidade; Estado; CEP; + Telefone (1); Telefone (2); Telefone (3); Produto; Valor; Data de Vencimento; Cdigo do Devedor; + cheque; Banco; Nr do Cheque; Motivo ; Observao dos Ttulos} + string_helper := ''; + string_helper := string_helper + MontaString(cbx_nome); + string_helper := string_helper + MontaString(cbx_nomepai); + string_helper := string_helper + MontaString(cbx_nomemae); + string_helper := string_helper + MontaString(cbx_cpfcnpj); + string_helper := string_helper + MontaString(cbx_rg); + string_helper := string_helper + MontaString(cbx_email); + string_helper := string_helper + MontaString(cbx_dtnasc); + string_helper := string_helper + MontaString(cbx_end); + string_helper := string_helper + MontaString(cbx_num); + string_helper := string_helper + MontaString(cbx_comp); + string_helper := string_helper + MontaString(cbx_bairro); + string_helper := string_helper + MontaString(cbx_cidade); + string_helper := string_helper + MontaString(cbx_uf); + string_helper := string_helper + MontaString(cbx_cep); + string_helper := string_helper + MontaString(cbx_tel1); + string_helper := string_helper + MontaString(cbx_tel2); + string_helper := string_helper + MontaString(cbx_tel3); + string_helper := string_helper + MontaString(cbx_produto); + string_helper := string_helper + MontaString(cbx_valor); + string_helper := string_helper + MontaString(cbx_dtvence); + string_helper := string_helper + MontaString(cbx_coddev); // agora aqui + string_helper := string_helper + MontaString(cbx_cheque); + string_helper := string_helper + MontaString(cbx_banco); + string_helper := string_helper + MontaString(cbx_nrcheque); + string_helper := string_helper + MontaString(cbx_motivo); + string_helper := string_helper + MontaString(cbx_ddd1); + string_helper := string_helper + MontaString(cbx_ddd2); + string_helper := string_helper + MontaString(cbx_ddd3); + string_helper := string_helper + MontaString(cbx_obstit); + string_helper := string_helper + MontaString(cbx_obsdev); + string_helper := string_helper + MontaString(cbx_codigodevedor); + + if dtsLayouts.State in [dsEdit, dsInsert] then + begin + dtmSystem.tblLayoutsSTR_CAMPOS.AsWideString := string_helper; + // dtmSystem.tblLayoutsNR_QNTCAMPOS.AsInteger := strtoint(edt_qnt.Text); + end; + if dtsLayouts.State in [dsBrowse] then + begin + dtmSystem.tblLayouts.Edit; + dtmSystem.tblLayoutsSTR_CAMPOS.AsString := string_helper; + // dtmSystem.tblLayoutsNR_QNTCAMPOS.AsInteger := strtoint(edt_qnt.Text); + end; + if not(Sender is TDBNavigator) then + begin + dtmSystem.tblLayouts.Post; + end; +end; + +function TconfLayouts.MontaString(box: TComboBox): string; +begin + if (box.Text <> '') and (strtoint(box.Text) > 0) and box.Enabled then + begin + result := box.Text + ';'; + end + else + begin + result := '0;'; + end; +end; + +procedure TconfLayouts.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + begin + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end + else + begin + if Button = nbInsert then + begin + mnuNovo.OnClick(navPrincipal); + abort; + end; + end; + end; + + nbPost: + begin + mnuSalvar.OnClick(navPrincipal); + SelectNext(ActiveControl as tWinControl, true, true); + end; + + nbDelete: + begin + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + + try + dtsLayouts.DataSet.Delete; + except + showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + abort; + end; + + nbCancel: + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + end; + { if Button = nbPost then + begin + mnuSalvar.OnClick(Self); + abort; + end; + + if Button = nbInsert then + begin + mnuNovo.OnClick(Self); + abort; + end; } +end; + +function TconfLayouts.PixtoCM(pix: integer): double; +var + ppcm: double; +begin + ppcm := Screen.PixelsPerInch / 2540; + result := pix / ppcm; +end; + +procedure TconfLayouts.PovoaCB(tbSheet: TTabSheet); +var + i: integer; +begin + // povoa os combo boxes com os ndices do nmero de colunas que se pode ter + if tbSheet.ControlCount > 0 then + begin + for i := 0 to tbSheet.ControlCount - 1 do + begin + if tbSheet.Controls[i] is TComboBox then + begin + with tbSheet.Controls[i] as TComboBox do + begin + Items.BeginUpdate; + try + begin + Items.Clear; + Items.AddStrings(itemList); + end; + finally + Items.EndUpdate; + end; + end; + end; + end; + // itemList.Free; + end; +end; + +procedure TconfLayouts.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if S = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +procedure TconfLayouts.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/uconfRelGerencia.dfm b/uconfRelGerencia.dfm new file mode 100644 index 0000000..42e6554 --- /dev/null +++ b/uconfRelGerencia.dfm @@ -0,0 +1,154 @@ +inherited confRelGerencia: TconfRelGerencia + Caption = 'Relat'#243'rio de Ger'#234'ncia' + ClientHeight = 371 + ClientWidth = 370 + ExplicitWidth = 376 + ExplicitHeight = 400 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_emp: TLabel [0] + Left = 86 + Top = 254 + Width = 46 + Height = 13 + Caption = 'Empresas' + end + object lbl_tit: TLabel [1] + Left = 232 + Top = 254 + Width = 31 + Height = 13 + Caption = 'Titulos' + end + object lblProgress: TLabel [2] + Left = 0 + Top = 322 + Width = 370 + Height = 13 + Align = alBottom + ExplicitTop = 311 + ExplicitWidth = 3 + end + inherited stbStatus: TStatusBar + Top = 352 + Width = 370 + ExplicitTop = 352 + ExplicitWidth = 370 + end + object gb_data: TGroupBox + Left = 8 + Top = 8 + Width = 354 + Height = 65 + Caption = 'Intervalo' + TabOrder = 1 + object Label1: TLabel + Left = 161 + Top = 31 + Width = 6 + Height = 13 + Caption = 'a' + end + object dtp_inicio: TDateTimePicker + Left = 10 + Top = 26 + Width = 97 + Height = 21 + Date = 43466.429167685190000000 + Time = 43466.429167685190000000 + TabOrder = 0 + end + object dtp_fim: TDateTimePicker + Left = 224 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 1 + end + end + object btn_imprimir: TButton + Left = 8 + Top = 249 + Width = 75 + Height = 25 + Caption = 'Imprimir' + TabOrder = 2 + OnClick = btn_imprimirClick + end + object rg_tipo: TRadioGroup + Left = 8 + Top = 79 + Width = 354 + Height = 54 + Caption = 'Tipo de Pesquisa' + Columns = 2 + Items.Strings = ( + 'Anal'#237'tico' + 'Sint'#233'tico') + TabOrder = 3 + end + object GroupBox1: TGroupBox + Left = 8 + Top = 139 + Width = 354 + Height = 78 + Caption = 'Departamentos' + TabOrder = 4 + object CheckBox1: TCheckBox + Left = 84 + Top = -1 + Width = 23 + Height = 17 + TabOrder = 0 + OnClick = CheckBox1Click + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 10 + Top = 22 + Width = 335 + Height = 21 + DropDownRows = 12 + DropDownWidth = 500 + Enabled = False + KeyField = 'ID_DEPARTAMENTOS' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsDepartamentos + TabOrder = 1 + end + object CheckBox2: TCheckBox + Left = 10 + Top = 49 + Width = 183 + Height = 17 + Caption = 'Sint'#233'tico de todos Departamentos' + Enabled = False + TabOrder = 2 + OnClick = CheckBox2Click + end + end + object Button1: TButton + Left = 8 + Top = 280 + Width = 201 + Height = 25 + Caption = 'Imprimir lista de m'#250'ltiplos pagamentos' + TabOrder = 5 + OnClick = Button1Click + end + object pbRel: TProgressBar + Left = 0 + Top = 335 + Width = 370 + Height = 17 + Align = alBottom + TabOrder = 6 + end + object ZReadOnlyQuery1: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 304 + Top = 96 + end +end diff --git a/uconfRelGerencia.pas b/uconfRelGerencia.pas new file mode 100644 index 0000000..c47d300 --- /dev/null +++ b/uconfRelGerencia.pas @@ -0,0 +1,995 @@ +unit uconfRelGerencia; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.IniFiles, System.UITypes, + System.DateUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls, + Vcl.ExtCtrls, Vcl.DBCtrls, Data.DB, ZAbstractRODataset, ZDataset; + +type + TconfRelGerencia = class(TmstMaster) + gb_data: TGroupBox; + Label1: TLabel; + dtp_inicio: TDateTimePicker; + dtp_fim: TDateTimePicker; + btn_imprimir: TButton; + rg_tipo: TRadioGroup; + lbl_emp: TLabel; + lbl_tit: TLabel; + GroupBox1: TGroupBox; + CheckBox1: TCheckBox; + DBLookupComboBox1: TDBLookupComboBox; + ZReadOnlyQuery1: TZReadOnlyQuery; + Button1: TButton; + CheckBox2: TCheckBox; + pbRel: TProgressBar; + lblProgress: TLabel; + procedure btn_imprimirClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + sqlEmp: string; + { Private declarations } + public + { Public declarations } + end; + +var + confRelGerencia: TconfRelGerencia; + +implementation + +{$R *.dfm} + +uses urelPrestacaoAnaSin, udtmSystem, urelPrestacaoAnaSin2, urelMulti; + +procedure TconfRelGerencia.btn_imprimirClick(Sender: TObject); +var + soma_p, soma_j, soma_m, soma_e, soma_c, soma_d, soma_r, soma_rp: currency; + id_emp, i, qtde_mes, counter: integer; + d1, d2, str_dep, sql_emp: string; + faltando: boolean; + Dh1, M1, Y1: Word; + Dh2, M2, Y2: Word; + Dh3, M3, Y3: Word; + d3, d4, firstDate: TDate; + d: integer; +begin + + if rg_tipo.ItemIndex = -1 then + begin + rg_tipo.ItemIndex := 0; + end; + if (rg_tipo.ItemIndex = 0) and (CheckBox2.Checked) then + begin + Messagedlg + ('Voc selecionou reltorio analtico e sinttico ao mesmo tempo. Isso no pode ser realizado.', + mtWarning, [mbok], 0); + abort; + end; + + Screen.Cursor := crHourGlass; + + with dtmSystem do + begin + + lblProgress.Caption := 'Filtrando empresas.'; + pbRel.Position := 0; + pbRel.Max := 1; + + if not tblEmpresaRepasse.Active then + begin + tblEmpresaRepasse.Open; + end; + + DecodeDate(dtp_inicio.Date, Y1, M1, Dh1); + d3 := StrToDate('01/' + inttostr(M1) + '/' + inttostr(Y1)); + + DecodeDate(dtp_fim.Date, Y2, M2, Dh2); + d4 := StrToDate('01/' + inttostr(M2) + '/' + inttostr(Y2)); + + qtde_mes := MonthsBetween(d3, d4) + 1; + counter := 0; + sql_emp := tblCHGEmpresa.SQL.Text; + if CheckBox1.Checked then + begin + if CheckBox2.Checked then + begin + tblCHGEmpresa.SQL.Text := + 'select * from chg_empresas where id_empresa in (select id_empresa from chg_titulos' + + ' where cast(dt_pagamento as date) >= cast(' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + + ' as date) and' + ' cast(dt_pagamento as date) <= cast(' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) + + ' as date)) and id_departamento in (select ID_DEPARTAMENTOS from chg_departamentos)'; + end + else + begin + tblCHGEmpresa.SQL.Text := + 'select * from chg_empresas where id_empresa in (select id_empresa from chg_titulos' + + ' where cast(dt_pagamento as date) >= cast(' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + + ' as date) and' + ' cast(dt_pagamento as date) <= cast(' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) + + ' as date)) and id_departamento = ' + + inttostr(DBLookupComboBox1.KeyValue); + end; + end + else + begin + tblCHGEmpresa.SQL.Text := + 'select * from chg_empresas where id_empresa in (select id_empresa from chg_titulos' + + ' where cast(dt_pagamento as date) >= cast(' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + + ' as date) and' + ' cast(dt_pagamento as date) <= cast(' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) + ' as date))'; + end; + tblCHGEmpresa.Open; + lblProgress.Caption := 'Empresas Filtradas.'; + pbRel.Step := 1; + Sleep(1000); + pbRel.Position := 0; + pbRel.Max := tblCHGEmpresa.RecordCount; + lblProgress.Caption := 'Verificando repasses.'; + tblCHGEmpresa.First; + while not tblCHGEmpresa.Eof do + begin + firstDate := StartOfTheMonth(d3); + tblEmpresaRepasse.SQL.Clear; + tblEmpresaRepasse.SQL.Text := + 'SELECT * FROM CHG_EMPRESA_REPASSE WHERE ID_EMPRESA =' + + inttostr(id_credor) + ' order by ID_ANO, ID_MES'; + tblEmpresaRepasse.Open; + tblEmpresaRepasse.Filtered := False; + tblEmpresaRepasse.Filter := '(ID_ANO >= ' + inttostr(Y1) + + ' and ID_ANO <= ' + inttostr(Y2) + ')'; + tblEmpresaRepasse.Filtered := True; + + for d := 0 to qtde_mes - 1 do + begin + DecodeDate(firstDate, Y3, M3, Dh3); + faltando := tblEmpresaRepasse.Locate('ID_ANO;ID_MES', + VarArrayOf([Y3, M3]), []); + firstDate := IncMonth(firstDate, 1); + if faltando = False then + begin + Messagedlg('A empresa ' + tblCHGEmpresaTX_NOME.AsString + + ' no possui modelos de repasse para todos os mses dentro do perodo do pagamento mais antigo e o mais novo.' + + ' Por favor crie os modelos de repasses que faltam antes de realizar esta operao (Entre ' + + meses[M1] + ' de ' + inttostr(Y1) + ' e ' + meses[M2] + ' de ' + + inttostr(Y2) + '.', mtWarning, [mbok], 0); + tblCHGEmpresa.SQL.Text := sql_emp; + tblEmpresaRepasse.Filtered := False; + tblCHGEmpresa.Open; + pbRel.Max := pbRel.Position - 1; + pbRel.StepIt; + lblProgress.Caption := + 'H empresas com repasses faltando no perodo selecionado.'; + Close; + abort; + end; + end; + tblCHGEmpresa.Next; + pbRel.StepIt; + end; + end; + + lblProgress.Caption := 'Repasses Verificados.'; + pbRel.Position := 0; + Sleep(1000); + + str_dep := ''; + if rg_tipo.ItemIndex = 0 then + begin + pbRel.Max := 2; + relPrestacaoAnaSin := TrelPrestacaoAnaSin.Create(self); + with relPrestacaoAnaSin do + begin + // RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1', + // FormatDateTime('dd/mm/yyyy', dtp_inicio.Date), + // [rfReplaceAll, rfIgnoreCase]); + // RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2', + // FormatDateTime('dd/mm/yyyy', dtp_fim.Date), + // [rfReplaceAll, rfIgnoreCase]); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1', + FormatDateTime('dd/mm/yyyy', dtp_inicio.Date), + [rfReplaceAll, rfIgnoreCase]); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2', + FormatDateTime('dd/mm/yyyy', dtp_fim.Date), + [rfReplaceAll, rfIgnoreCase]); + lbl_emp.Caption := 'Pesquisando ttulos.'; + Application.ProcessMessages; + if CheckBox1.Checked then + begin + if CheckBox2.Checked then + begin + frlbl_dep.Caption := 'Todos departamentos.'; + end + else + begin + frlbl_dep.Caption := 'Dep.: ' + + dtmSystem.tblDepartamentosTX_NOME.AsString; + end; + end; + lblProgress.Caption := 'Preparando Empresas.'; + with zroqryCredores.SQL do + begin + Clear; + add('select distinct'); + add('e.*'); + add('from chg_devedores A'); + add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)'); + add('inner join chg_empresas e on (E.id_empresa = B.id_empresa)'); + add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + + QuotedStr('B') + ')'); + add('and'); + add('CAST(B.dt_pagamento AS DATE) >= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + add('and'); + add('CAST(B.dt_pagamento AS DATE) <= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + if CheckBox1.Checked then + begin + // if CheckBox2.Checked then + // begin + // dtmSystem.tblDepartamentos.First; + // while not dtmSystem.tblDepartamentos.Eof do + // begin + // str_dep := str_dep + dtmSystem.tblDepartamentosID_DEPARTAMENTOS. + // AsString + ','; + // dtmSystem.tblDepartamentos.Next; + // end; + // setlength(str_dep, length(str_dep) - 1); + // add('and e.id_departamento in (' + str_dep + ')'); + // end + // else + // begin + add('and e.id_departamento = ' + + inttostr(DBLookupComboBox1.KeyValue)); + // end; + end; + add('and e.id_empresa <> 265'); + add('order by e.tx_fantasia'); + end; + pbRel.StepIt; + zroqryCredores.Open; + lbl_emp.Caption := 'Montando lista de ttulos.'; + lblProgress.Caption := 'Preparando Ttulos.'; + Application.ProcessMessages; + with zroqryTitulos.SQL do + begin + Clear; + add('select distinct'); + add('A.tx_nome,'); + add('A.id_devedor,'); + add('B.tx_produto,'); + add('B.dt_vencimento,'); + add('B.dt_pagamento,'); + // add('B.vl_titulo,'); + add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)'); + add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)'); + add('end as vl_titulo,'); + add('B.vl_desc_principal,'); + add('B.vl_repasse_prin,'); + add('B.vl_juros,'); + add('B.vl_desc_juros,'); + add('B.vl_repasse_juros,'); + add('B.vl_multa,'); + add('B.vl_desc_multa,'); + add('B.vl_repasse_multa,'); + add('B.vl_encargos,'); + add('B.vl_indicador,'); + add('B.vl_desc_indicador,'); + add('B.vl_repasse_encargos,'); + add('B.vl_corrigido,'); + add('B.vl_repasse_corrigido,'); + add('B.vl_desc_principal,'); + add('B.id_titulo,'); + add('B.id_empresa,'); + add('B.tp_prestacao,'); + add('AC.id_original,'); + add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + add('from chg_titulos B'); + add('left join chg_devedores A on (A.id_devedor = B.id_devedor)'); + add('left join sys_acordos AC on (AC.id_original = B.id_titulo)'); + add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + + QuotedStr('B') + ')'); + add('and'); + add('B.tp_motivo <> ' + QuotedStr('Q')); + add('and'); + add('CAST(B.dt_pagamento AS DATE) >= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + add('and'); + add('CAST(B.dt_pagamento AS DATE) <= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + add('and (AC.id_original is NULL'); + add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))'); + if CheckBox1.Checked then + begin + // if CheckBox2.Checked then + // begin + // add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in (' + // + str_dep + '))'); + // end + // else + // begin + add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = ' + + inttostr(DBLookupComboBox1.KeyValue) + ')'); + // end; + end; + add('order by A.tx_nome'); + end; + zroqryTitulos.Open; + frlbl_headertop.Caption := + UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + ' - CNPJ: ' + + dtmSystem.tblEmpresaTX_CNPJ.AsString); + + Screen.Cursor := crDefault; + pbRel.StepIt; + relPrestacao.PreviewModal; + Screen.Cursor := crHourGlass; + lblProgress.Caption := 'Verificando Mltiplos Pagamentos.'; + with ZReadOnlyQuery1.SQL do + begin + Clear; + add('select distinct'); + add('A.tx_nome,'); + add('B.tx_produto,'); + add('B.dt_vencimento,'); + add('B.dt_pagamento,'); + // add('B.vl_titulo,'); + add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)'); + add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)'); + add('end as vl_titulo,'); + add('B.vl_juros,'); + add('B.vl_multa,'); + add('B.vl_encargos,'); + add('B.vl_corrigido,'); + add('B.vl_desc_principal,'); + add('B.id_titulo,'); + add('B.id_empresa,'); + add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso,'); + add('AC.id_original'); + // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + add('from chg_titulos B'); + add('left join chg_devedores A on (A.id_devedor = B.id_devedor)'); + add('left join sys_acordos AC on (AC.id_original = B.id_titulo)'); + add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + + QuotedStr('B') + ')'); + add('and'); + add('B.tp_motivo = ' + QuotedStr('Q')); + add('and'); + add('CAST(B.dt_pagamento AS DATE) >= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + add('and'); + add('CAST(B.dt_pagamento AS DATE) <= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + add('and (AC.id_original is NULL'); + add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))'); + if CheckBox1.Checked then + begin + // if CheckBox2.Checked then + // begin + // add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in (' + // + str_dep + '))'); + // end + // else + // begin + add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = ' + + inttostr(DBLookupComboBox1.KeyValue) + ')'); + // end; + end; + add('order by A.tx_nome'); + end; + ZReadOnlyQuery1.Open; + if not(ZReadOnlyQuery1.IsEmpty) then + begin + Messagedlg + ('H ttulos com mltiplas formas de pagamento neste intervalo de gerncia.' + + ' Por favor procure suas prestaes manuais.', mtInformation, + [mbok], 0); + end; + zroqryCredores.Close; + zroqryTitulos.Close; + lblProgress.Caption := 'Processo terminado.'; +// dtmSystem.tblCHGEmpresa.SQL.Text := sql_emp; +// dtmSystem.tblCHGEmpresa.Open; + +// abort; + + end; + end; + + if rg_tipo.ItemIndex = 1 then + begin + relPrestacaoAnaSin2 := TrelPrestacaoAnaSin2.Create(self); + with relPrestacaoAnaSin2 do + begin + // RLMemo2.Lines[0] := StringReplace(RLMemo2.Lines[0], 'DT1', + // FormatDateTime('dd/mm/yyyy', dtp_inicio.Date), + // [rfReplaceAll, rfIgnoreCase]); + // RLMemo2.Lines[0] := StringReplace(RLMemo2.Lines[0], 'DT2', + // FormatDateTime('dd/mm/yyyy', dtp_fim.Date), + // [rfReplaceAll, rfIgnoreCase]); + RLMemo2.Lines[0] := StringReplace(RLMemo2.Lines[0], 'DT1', + FormatDateTime('dd/mm/yyyy', dtp_inicio.Date), + [rfReplaceAll, rfIgnoreCase]); + RLMemo2.Lines[0] := StringReplace(RLMemo2.Lines[0], 'DT2', + FormatDateTime('dd/mm/yyyy', dtp_fim.Date), + [rfReplaceAll, rfIgnoreCase]); + cdsSintetico.Close; + cdsSintetico.CreateDataSet; + Application.ProcessMessages; + lbl_emp.Caption := 'Pesquisando ttulos.'; + Application.ProcessMessages; + if CheckBox1.Checked then + begin + frlbl_dep.Caption := 'Dep.: ' + + dtmSystem.tblDepartamentosTX_NOME.AsString; + end; + lblProgress.Caption := 'Preparando Empresas.'; + with zroqryCredores.SQL do + begin + Clear; + add('select distinct'); + add('e.*'); + add('from chg_empresas e'); + add('where e.id_empresa in ('); + add('select b.id_empresa from chg_titulos B where'); + add('(B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + + QuotedStr('B') + ')'); + add('and'); + add('CAST(B.dt_pagamento AS DATE) >= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + add('and'); + add('CAST(B.dt_pagamento AS DATE) <= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + add(')'); + if CheckBox1.Checked then + begin + if CheckBox2.Checked then + begin + dtmSystem.tblDepartamentos.First; + while not dtmSystem.tblDepartamentos.Eof do + begin + str_dep := str_dep + dtmSystem.tblDepartamentosID_DEPARTAMENTOS. + AsString + ','; + dtmSystem.tblDepartamentos.Next; + end; + setlength(str_dep, length(str_dep) - 1); + add('and e.id_departamento in (' + str_dep + ')'); + end + else + begin + add('and e.id_departamento = ' + + inttostr(DBLookupComboBox1.KeyValue)); + end; + end; + add('and e.id_empresa <> 265'); + add('order by e.tx_fantasia'); + + // clear; + // add('select distinct'); + // add('e.*'); + // add('from chg_devedores A'); + // add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)'); + // add('inner join chg_empresas e on (E.id_empresa = B.id_empresa)'); + // add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + // + QuotedStr('B') + ')'); + // add('and'); + // add('CAST(B.dt_pagamento AS DATE) >= '); + // add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + // add('and'); + // add('CAST(B.dt_pagamento AS DATE) <= '); + // add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + // add('order by e.tx_fantasia'); + end; + zroqryCredores.Open; + pbRel.Max := zroqryCredores.RecordCount + 1; + pbRel.StepIt; + Application.ProcessMessages; + lbl_emp.Caption := 'Montando lista de ttulos.'; + lblProgress.Caption := 'Preparando Ttulos.'; + with zroqryTitulos.SQL do + begin + Clear; + add('select distinct'); + add('B.tx_produto,'); + add('B.dt_vencimento,'); + add('B.dt_pagamento,'); + // add('B.vl_titulo,'); + add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)'); + add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)'); + add('end as vl_titulo,'); + add('B.vl_desc_principal,'); + add('B.vl_repasse_prin,'); + add('B.vl_juros,'); + add('B.vl_desc_juros,'); + add('B.vl_repasse_juros,'); + add('B.vl_multa,'); + add('B.vl_desc_multa,'); + add('B.vl_repasse_multa,'); + add('B.vl_encargos,'); + add('B.vl_indicador,'); + add('B.vl_desc_indicador,'); + add('B.vl_repasse_encargos,'); + add('B.vl_corrigido,'); + add('B.vl_repasse_corrigido,'); + add('B.vl_desc_principal,'); + add('B.id_titulo,'); + add('B.id_empresa,'); + add('B.id_devedor,'); + add('e.tx_fantasia,'); + add('e.tx_cnpj,'); + add('B.tp_prestacao,'); + add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso,'); + add('AC.id_original'); + // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + add('from chg_titulos B'); + add('left join chg_empresas E on (B.id_empresa = E.id_empresa)'); + add('left join sys_acordos AC on (AC.id_original = B.id_titulo)'); + add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + + QuotedStr('B') + ')'); + add('and'); + add('B.tp_motivo <> ' + QuotedStr('Q')); + add('and'); + add('CAST(B.dt_pagamento AS DATE) >= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + add('and'); + add('CAST(B.dt_pagamento AS DATE) <= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + add('and (AC.id_original is NULL'); + add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))'); + if CheckBox1.Checked then + begin + if CheckBox2.Checked then + begin + add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in (' + + str_dep + '))'); + end + else + begin + add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = ' + + inttostr(DBLookupComboBox1.KeyValue) + ')'); + end; + end; + add('order by B.id_empresa'); + + // clear; + // add('select'); + // add('A.tx_nome,'); + // add('B.tx_produto,'); + // add('B.dt_vencimento,'); + // add('B.dt_pagamento,'); + // add('B.vl_titulo,'); + // add('B.vl_juros,'); + // add('B.vl_multa,'); + // add('B.vl_encargos,'); + // add('B.vl_corrigido,'); + // add('B.vl_desc_principal,'); + // add('B.id_titulo,'); + // add('B.id_empresa,'); + // add('e.tx_fantasia,'); + // add('e.tx_cnpj,'); + // add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + // add('from chg_devedores A'); + // add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)'); + // add('inner join chg_empresas E on (B.id_empresa = E.id_empresa)'); + // add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + // + QuotedStr('B') + ')'); + // add('and'); + // add('CAST(B.dt_pagamento AS DATE) >= '); + // add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + // add('and'); + // add('CAST(B.dt_pagamento AS DATE) <= '); + // add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + // add('and'); + // add('b.id_titulo not in (select ac.id_original from sys_acordos ac)'); + // add('order by B.id_empresa'); + Application.ProcessMessages; + end; + soma_p := 0; + soma_j := 0; + soma_m := 0; + soma_e := 0; + soma_c := 0; + soma_d := 0; + soma_r := 0; + soma_rp := 0; + zroqryTitulos.Open; + Application.ProcessMessages; + lblProgress.Caption := 'Calculando valores.'; + if CheckBox2.Checked then + begin + deps := True; + dtmSystem.tblDepartamentos.First; + while not dtmSystem.tblDepartamentos.Eof do + begin + Application.ProcessMessages; + zroqryCredores.Filtered := False; + zroqryCredores.Filter := 'ID_DEPARTAMENTO = ' + + dtmSystem.tblDepartamentosID_DEPARTAMENTOS.AsString; + zroqryCredores.Filtered := True; + + zroqryCredores.First; + while not zroqryCredores.Eof do + begin + lbl_emp.Caption := 'Progresso: Empresa ' + + inttostr(zroqryCredores.RecNo) + ' de ' + + inttostr(zroqryCredores.RecordCount); + zroqryTitulos.Filtered := False; + zroqryTitulos.Filter := 'ID_EMPRESA = ' + + zroqryCredoresID_EMPRESA.AsString; + zroqryTitulos.Filtered := True; + zroqryTitulos.First; + while not zroqryTitulos.Eof do + begin + lbl_tit.Caption := 'Ttulo ' + inttostr(zroqryTitulos.RecNo) + + ' de ' + inttostr(zroqryTitulos.RecordCount); + soma_p := soma_p + zroqryTitulosVL_TITULO.ascurrency; + soma_m := soma_m + zroqryTitulosVL_MULTA.ascurrency; + soma_j := soma_j + zroqryTitulosVL_JUROS.ascurrency; + soma_e := soma_e + zroqryTitulosVL_ENCARGOS.ascurrency; + soma_c := soma_c + zroqryTitulosVL_CORRIGIDO.ascurrency; + soma_d := soma_d + zroqryTitulosVL_DESC_PRINCIPAL.ascurrency; + soma_r := soma_r + zroqryTitulosVL_RETIDO.ascurrency; + soma_rp := soma_rp + zroqryTitulosVL_REPASSE.ascurrency; + zroqryTitulos.Next; + Application.ProcessMessages; + end; + zroqryCredores.Next; + pbRel.StepIt; + end; + + cdsSintetico.Append; + cdsSinteticoVL_TITULO.ascurrency := soma_p; + cdsSinteticoVL_JUROS.ascurrency := soma_j; + cdsSinteticoVL_MULTA.ascurrency := soma_m; + cdsSinteticoVL_ENCARGOS.ascurrency := soma_e; + cdsSinteticoVL_DESC_PRINCIPAL.ascurrency := soma_d; + cdsSinteticoVL_CORRIGIDO.ascurrency := soma_c; + cdsSinteticoVL_RETIDO.ascurrency := soma_r; + cdsSinteticoVL_REPASSADO.ascurrency := soma_rp; + cdsSinteticoID_EMPRESA.AsInteger := + dtmSystem.tblDepartamentosID_DEPARTAMENTOS.AsInteger; + cdsSinteticoTX_FANTASIA.AsString := + dtmSystem.tblDepartamentosTX_NOME.AsString; + cdsSinteticoTX_CNPJ.AsString := zroqryTitulosTX_CNPJ.AsString; + cdsSintetico.Post; + soma_p := 0; + soma_j := 0; + soma_m := 0; + soma_e := 0; + soma_c := 0; + soma_d := 0; + soma_r := 0; + soma_rp := 0; + Application.ProcessMessages; + + dtmSystem.tblDepartamentos.Next; + end; + + RLLabel14.Caption := UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + + ' - CNPJ: ' + dtmSystem.tblEmpresaTX_CNPJ.AsString); + + Screen.Cursor := crDefault; + lbl_emp.Caption := 'Pronto!'; + lbl_tit.Caption := ''; + relPrestacao2.PreviewModal; + Screen.Cursor := crHourGlass; + lblProgress.Caption := 'Verificando Mltiplos Pagamentos.'; + with ZReadOnlyQuery1.SQL do + begin + Clear; + add('select distinct'); + add('B.tx_produto,'); + add('B.dt_vencimento,'); + add('B.dt_pagamento,'); + // add('B.vl_titulo,'); + add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)'); + add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)'); + add('end as vl_titulo,'); + add('B.vl_juros,'); + add('B.vl_multa,'); + add('B.vl_encargos,'); + add('B.vl_corrigido,'); + add('B.vl_desc_principal,'); + add('B.id_titulo,'); + add('B.id_empresa,'); + add('e.tx_fantasia,'); + add('e.tx_cnpj,'); + add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso,'); + add('AC.id_original'); + // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + add('from chg_titulos B'); + add('left join chg_empresas E on (B.id_empresa = E.id_empresa)'); + add('left join sys_acordos AC on (AC.id_original = B.id_titulo)'); + add('where (B.tp_situacao = ' + QuotedStr('QC') + + ' or B.tp_situacao = ' + QuotedStr('B') + ')'); + add('and'); + add('B.tp_motivo = ' + QuotedStr('Q')); + add('and'); + add('CAST(B.dt_pagamento AS DATE) >= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + add('and'); + add('CAST(B.dt_pagamento AS DATE) <= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + add('and (AC.id_original is NULL'); + add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))'); + if CheckBox1.Checked then + begin + if CheckBox2.Checked then + begin + add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in (' + + str_dep + '))'); + end + else + begin + add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = ' + + inttostr(DBLookupComboBox1.KeyValue) + ')'); + end; + end; + add('order by B.id_empresa'); + end; + Application.ProcessMessages; + ZReadOnlyQuery1.Open; + if not(ZReadOnlyQuery1.IsEmpty) then + begin + Messagedlg + ('H ttulos com mltiplas formas de pagamento neste intervalo de gerncia.' + + ' Por favor procure suas prestaes manuais.', mtInformation, + [mbok], 0); + end; + Screen.Cursor := crDefault; + + zroqryCredores.Close; + zroqryTitulos.Close; + end + else + begin + Application.ProcessMessages; + zroqryCredores.First; + lblProgress.Caption := 'Calculando Valores.'; + while not zroqryCredores.Eof do + begin + lbl_emp.Caption := 'Progresso: Empresa ' + + inttostr(zroqryCredores.RecNo) + ' de ' + + inttostr(zroqryCredores.RecordCount); + zroqryTitulos.Filtered := False; + zroqryTitulos.Filter := 'ID_EMPRESA = ' + + zroqryCredoresID_EMPRESA.AsString; + zroqryTitulos.Filtered := True; + zroqryTitulos.First; + while not zroqryTitulos.Eof do + begin + lbl_tit.Caption := 'Ttulo ' + inttostr(zroqryTitulos.RecNo) + + ' de ' + inttostr(zroqryTitulos.RecordCount); + soma_p := soma_p + zroqryTitulosVL_TITULO.ascurrency; + soma_m := soma_m + zroqryTitulosVL_MULTA.ascurrency; + soma_j := soma_j + zroqryTitulosVL_JUROS.ascurrency; + soma_e := soma_e + zroqryTitulosVL_ENCARGOS.ascurrency; + soma_c := soma_c + zroqryTitulosVL_CORRIGIDO.ascurrency; + soma_d := soma_d + zroqryTitulosVL_DESC_PRINCIPAL.ascurrency; + soma_r := soma_r + zroqryTitulosVL_RETIDO.ascurrency; + soma_rp := soma_rp + zroqryTitulosVL_REPASSE.ascurrency; + zroqryTitulos.Next; + Application.ProcessMessages; + end; + if zroqryTitulos.Eof then + begin + cdsSintetico.Append; + cdsSinteticoVL_TITULO.ascurrency := soma_p; + cdsSinteticoVL_JUROS.ascurrency := soma_j; + cdsSinteticoVL_MULTA.ascurrency := soma_m; + cdsSinteticoVL_ENCARGOS.ascurrency := soma_e; + cdsSinteticoVL_DESC_PRINCIPAL.ascurrency := soma_d; + cdsSinteticoVL_CORRIGIDO.ascurrency := soma_c; + cdsSinteticoVL_RETIDO.ascurrency := soma_r; + cdsSinteticoVL_REPASSADO.ascurrency := soma_rp; + cdsSinteticoID_EMPRESA.AsInteger := + zroqryCredoresID_EMPRESA.AsInteger; + cdsSinteticoTX_FANTASIA.AsString := + zroqryTitulosTX_FANTASIA.AsString; + cdsSinteticoTX_CNPJ.AsString := zroqryTitulosTX_CNPJ.AsString; + cdsSintetico.Post; + soma_p := 0; + soma_j := 0; + soma_m := 0; + soma_e := 0; + soma_c := 0; + soma_d := 0; + soma_r := 0; + soma_rp := 0; + Application.ProcessMessages; + end; + Application.ProcessMessages; + pbRel.StepIt; + zroqryCredores.Next; + end; + + RLLabel14.Caption := UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + + ' - CNPJ: ' + dtmSystem.tblEmpresaTX_CNPJ.AsString); + + Screen.Cursor := crDefault; + lbl_emp.Caption := 'Pronto!'; + lbl_tit.Caption := ''; + relPrestacao2.PreviewModal; + Screen.Cursor := crHourGlass; + Application.ProcessMessages; + lblProgress.Caption := 'Verificando Mltiplos Pagamentos.'; + with zroqryTitulos.SQL do + begin + Clear; + add('select distinct'); + add('B.tx_produto,'); + add('B.dt_vencimento,'); + add('B.dt_pagamento,'); + // add('B.vl_titulo,'); + add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)'); + add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)'); + add('end as vl_titulo,'); + add('B.vl_desc_principal,'); + add('B.vl_repasse_prin,'); + add('B.vl_juros,'); + add('B.vl_desc_juros,'); + add('B.vl_repasse_juros,'); + add('B.vl_multa,'); + add('B.vl_desc_multa,'); + add('B.vl_repasse_multa,'); + add('B.vl_encargos,'); + add('B.vl_indicador,'); + add('B.vl_desc_indicador,'); + add('B.vl_repasse_encargos,'); + add('B.vl_corrigido,'); + add('B.vl_repasse_corrigido,'); + add('B.vl_desc_principal,'); + add('B.id_titulo,'); + add('B.id_empresa,'); + add('e.tx_fantasia,'); + add('e.tx_cnpj,'); + add('B.tp_prestacao,'); + add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso,'); + add('AC.id_original'); + // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + add('from chg_titulos B'); + add('left join chg_empresas E on (B.id_empresa = E.id_empresa)'); + add('left join sys_acordos AC on (AC.id_original = B.id_titulo)'); + add('where (B.tp_situacao = ' + QuotedStr('QC') + + ' or B.tp_situacao = ' + QuotedStr('B') + ')'); + add('and'); + add('B.tp_motivo = ' + QuotedStr('Q')); + add('and'); + add('CAST(B.dt_pagamento AS DATE) >= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + add('and'); + add('CAST(B.dt_pagamento AS DATE) <= '); + add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + add('and (AC.id_original is NULL'); + add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))'); + if CheckBox1.Checked then + begin + if CheckBox2.Checked then + begin + add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in (' + + str_dep + '))'); + end + else + begin + add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = ' + + inttostr(DBLookupComboBox1.KeyValue) + ')'); + end; + end; + add('order by B.id_empresa'); + end; + Application.ProcessMessages; + zroqryTitulos.Open; + if not(zroqryTitulos.IsEmpty) then + begin + Messagedlg + ('H ttulos com mltiplas formas de pagamento neste intervalo de gerncia.' + + ' Por favor procure suas prestaes manuais.', mtInformation, + [mbok], 0); + end; + Screen.Cursor := crDefault; + + zroqryCredores.Close; + zroqryTitulos.Close; + cdsSintetico.First; + // with TIniFile.Create(ExtractFilePath(Application.ExeName) + + // 'sintetico.ini') do + with TIniFile.Create(dtmSystem.path_executavel + '\sintetico.ini') do + begin + try + i := 1; + EraseSection('Dados'); + while SectionExists('Empresa_' + inttostr(i)) do + begin + EraseSection('Empresa_' + inttostr(i)); + Inc(i, 1); + end; + Writeinteger('Dados', 'Qtde_Empresas', cdsSintetico.RecordCount); + WriteString('Dados', 'Periodo', FormatDateTime('dd/mm/yyyy', + dtp_inicio.Date) + ' - ' + FormatDateTime('dd/mm/yyyy', + dtp_fim.Date)); + i := 1; + while not cdsSintetico.Eof do + begin + WriteString('Empresa_' + inttostr(i), 'TX_FANTASIA', + cdsSinteticoTX_FANTASIA.AsString); + WriteString('Empresa_' + inttostr(i), 'CNPJ', + cdsSinteticoTX_CNPJ.AsString); + WriteString('Empresa_' + inttostr(i), 'Valor', + cdsSinteticoVL_RETIDO.AsString); + Inc(i, 1); + cdsSintetico.Next; + end; + finally + Free + end; + end; + end; + end; + lblProgress.Caption := 'Processo terminado.'; + end; + dtmSystem.tblCHGEmpresa.SQL.Text := sql_emp; + dtmSystem.tblCHGEmpresa.Open; + Screen.Cursor := crDefault; +end; + +procedure TconfRelGerencia.Button1Click(Sender: TObject); +begin + inherited; + if (ZReadOnlyQuery1.RecordCount = 0) or (ZReadOnlyQuery1.Active = False) then + begin + abort; + end; + relMulti := TrelMulti.Create(self); + with relMulti do + begin + dtsRel.DataSet := ZReadOnlyQuery1; + rldbtxt1.DataField := 'tx_nome'; + rldbtxt2.DataField := 'tx_produto'; + rldbtxt3.DataField := 'vl_titulo'; + rldbtxt4.DataField := 'dt_vencimento'; + RLReport1.PreviewModal; + end; +end; + +procedure TconfRelGerencia.CheckBox1Click(Sender: TObject); +begin + inherited; + DBLookupComboBox1.Enabled := CheckBox1.Checked; + CheckBox2.Enabled := CheckBox1.Checked; +end; + +procedure TconfRelGerencia.CheckBox2Click(Sender: TObject); +begin + inherited; + DBLookupComboBox1.Enabled := not(CheckBox2.Checked); +end; + +procedure TconfRelGerencia.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + dtmSystem.tblCHGEmpresa.SQL.Text := sqlEmp; + dtmSystem.tblCHGEmpresa.Open; + dtmSystem.tblEmpresaRepasse.Filtered := False; +end; + +procedure TconfRelGerencia.FormCreate(Sender: TObject); +begin + inherited; + dtp_inicio.Date := Date; + dtp_fim.Date := Date; + lbl_emp.Caption := ''; + lbl_tit.Caption := ''; + sqlEmp := dtmSystem.tblCHGEmpresa.SQL.Text; +end; + +end. diff --git a/uconfrelAcordos.dfm b/uconfrelAcordos.dfm new file mode 100644 index 0000000..1e09ced --- /dev/null +++ b/uconfrelAcordos.dfm @@ -0,0 +1,80 @@ +inherited confrelAcordos: TconfrelAcordos + Caption = 'Rela'#231#227'o de Acordos por Empresa' + ClientHeight = 204 + ClientWidth = 351 + ExplicitWidth = 357 + ExplicitHeight = 232 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 185 + Width = 351 + ExplicitTop = 185 + ExplicitWidth = 351 + end + object gb_data: TGroupBox + Left = 8 + Top = 8 + Width = 333 + Height = 65 + Caption = 'Intervalo' + TabOrder = 1 + object Label1: TLabel + Left = 168 + Top = 31 + Width = 6 + Height = 13 + Caption = 'a' + end + object dtp_inicio: TDateTimePicker + Left = 10 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 0 + end + object dtp_fim: TDateTimePicker + Left = 224 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 1 + end + end + object Button1: TButton + Left = 268 + Top = 150 + Width = 75 + Height = 25 + Caption = 'Imprimir' + TabOrder = 2 + OnClick = Button1Click + end + object gb_beneficiario: TGroupBox + Left = 8 + Top = 79 + Width = 333 + Height = 65 + Caption = 'Credor' + TabOrder = 3 + object dblucb_beneficiario: TDBLookupComboBox + Left = 10 + Top = 26 + Width = 311 + Height = 21 + KeyField = 'ID_EMPRESA' + ListField = 'TX_NOME' + ListSource = dtsBeneficiarios + TabOrder = 0 + end + end + object dtsBeneficiarios: TDataSource + DataSet = dtmSystem.tblCHGEmpresa + Left = 184 + Top = 56 + end +end diff --git a/uconfrelAcordos.pas b/uconfrelAcordos.pas new file mode 100644 index 0000000..a04e9fd --- /dev/null +++ b/uconfrelAcordos.pas @@ -0,0 +1,185 @@ +unit uconfrelAcordos; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Data.DB, + Vcl.DBCtrls, Vcl.StdCtrls; + +type + TconfrelAcordos = class(TmstMaster) + gb_data: TGroupBox; + Label1: TLabel; + dtp_inicio: TDateTimePicker; + dtp_fim: TDateTimePicker; + Button1: TButton; + gb_beneficiario: TGroupBox; + dblucb_beneficiario: TDBLookupComboBox; + dtsBeneficiarios: TDataSource; + procedure FormCreate(Sender: TObject); + procedure Button1Click(Sender: TObject); + private + id_emp: integer; + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + + { Private declarations } + public + str_titulos: string; + { Public declarations } + end; + +var + confrelAcordos: TconfrelAcordos; + +implementation + +{$R *.dfm} + +uses udtmSystem, urelRelacaoAcordo; + +procedure TconfrelAcordos.Button1Click(Sender: TObject); +var + str_ids: string; +begin + inherited; + Screen.Cursor := crHourGlass; + relRelacaoAcordo := TrelRelacaoAcordo.Create(self); + with relRelacaoAcordo do + begin + rel_acordo := true; + with zroqryAcordos.SQL do + begin + Clear; + Add('select distinct'); + //Add('D.tx_nome,'); + //Add('T.id_titulo,'); + Add('MAX(T.id_titulo),'); + //Add('T.tx_produto,'); + //Add('T.dt_vencimento,'); + //Add('T.vl_titulo,'); + //Add('T.qtde_parcelas,'); + Add('AC.id_acordo'); + Add('from chg_titulos T'); + Add('left join sys_acordos AC on (AC.id_original = T.id_titulo)'); + //Add('left join chg_devedores D on (D.id_devedor = T.id_devedor)'); + Add('where (T.tp_situacao = ' + QuotedStr('QC') + ' or T.tp_situacao = ' + + QuotedStr('B') + ') and'); + Add('T.id_empresa = ' + inttostr(dblucb_beneficiario.KeyValue) + ' and'); + Add('((CAST(T.dt_pagamento AS DATE) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and'); + Add('CAST(T.dt_pagamento AS DATE) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) + ' and'); + Add('T.dt_emissao_recibo is NULL) or'); + Add('(CAST(T.dt_emissao_recibo AS DATE) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and'); + Add('CAST(T.dt_emissao_recibo AS DATE) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) + ')) and'); + Add('T.id_titulo in (select id_original from sys_acordos)'); + Add('group by AC.id_acordo'); + //Add('order by T.id_titulo'); + Add('order by AC.id_acordo'); + end; + zroqryAcordos.Open; + zroqryAcordos.First; + str_ids := ''; + while not zroqryAcordos.Eof do + begin + str_ids := str_ids + zroqryAcordos.FieldByName('ID_ACORDO') + .AsString + ','; + zroqryAcordos.Next; + end; + setlength(str_ids, length(str_ids) - 1); + if length(str_ids) > 0 then + begin + with zroqry1.SQL do + begin + Clear; + Add('select distinct A.id_acordo, B.tx_nome from sys_acordos A'); + Add('left join chg_devedores B on (A.id_devedor = B.id_devedor)'); + Add('where id_acordo in (' + str_ids + ')'); + Add('order by B.tx_nome'); + end; + with zroqry2.SQL do + begin + Clear; + Add('select distinct A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A'); + Add('left join chg_titulos B on (A.id_original = B.id_titulo)'); + Add('where id_acordo in (' + str_ids + ')'); + Add('group by A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimento, B.vl_titulo'); + end; + with zroqry3.SQL do + begin + Clear; + Add('select distinct A.id_acordo, A.id_parcela, B.tx_produto, B.dt_vencimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A'); + Add('left join chg_titulos B on (A.id_parcela = B.id_titulo)'); + Add('where id_acordo in (' + str_ids + ')'); + Add('group by A.id_acordo, A.id_parcela, B.tx_produto, B.dt_vencimento, B.vl_titulo'); + end; + dtmSystem.tblEmpresa.Locate('ID_EMPRESA', id_emp, []); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'BENEF', + UpperCase(dtmSystem.tblCHGEmpresaTX_NOME.AsString), + [rfReplaceAll, rfIgnoreCase]); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1', + FormatDateTime('dd/mm/yyyy', dtp_inicio.Date), + [rfReplaceAll, rfIgnoreCase]); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2', + FormatDateTime('dd/mm/yyyy', dtp_fim.Date), + [rfReplaceAll, rfIgnoreCase]); + zroqry1.Open; + zroqry2.Open; + zroqry3.Open; + + Screen.Cursor := crDefault; + frrelRelacaoAcordo.PreviewModal; + zroqryAcordos.Close; + zroqry1.Close; + zroqry2.Close; + zroqry3.Close; + end + else + begin + Screen.Cursor := crDefault; + Showmessage('No foi encontrado nenhum acordo no perodo escolhido para o credor selecionado.'); + end; + end; +end; + +procedure TconfrelAcordos.FormCreate(Sender: TObject); +begin + inherited; + dtp_inicio.Date := Date; + dtp_fim.Date := Date; + if not dtmSystem.tblCHGEmpresa.Active then + begin + dtmSystem.tblCHGEmpresa.Open; + end; + id_emp := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; + dblucb_beneficiario.KeyValue := 1; +end; + +procedure TconfrelAcordos.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/uconfrelBordero.dfm b/uconfrelBordero.dfm new file mode 100644 index 0000000..277465d --- /dev/null +++ b/uconfrelBordero.dfm @@ -0,0 +1,88 @@ +object confrelBordero: TconfrelBordero + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'Relat'#243'rio de Entrada' + ClientHeight = 182 + ClientWidth = 360 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + Position = poDesktopCenter + OnClose = FormClose + OnCreate = FormCreate + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object btn_viewreport: TButton + Left = 155 + Top = 149 + Width = 75 + Height = 25 + Caption = 'Visualizar' + TabOrder = 0 + OnClick = btn_viewreportClick + end + object gb_data: TGroupBox + Left = 8 + Top = 8 + Width = 344 + Height = 65 + Caption = 'Intervalo' + TabOrder = 1 + object Label1: TLabel + Left = 113 + Top = 31 + Width = 6 + Height = 13 + Caption = 'a' + end + object dtp_inicio: TDateTimePicker + Left = 10 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 0 + end + object dtp_fim: TDateTimePicker + Left = 125 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 1 + end + end + object gb_beneficiario: TGroupBox + Left = 8 + Top = 79 + Width = 344 + Height = 65 + Caption = 'Benefici'#225'rio' + TabOrder = 2 + object dblucb_beneficiario: TDBLookupComboBox + Left = 10 + Top = 26 + Width = 319 + Height = 21 + KeyField = 'ID_EMPRESA' + ListField = 'TX_NOME' + ListSource = dtsBeneficiario + TabOrder = 0 + end + end + object dtsBeneficiario: TDataSource + DataSet = dtmSystem.tblCHGEmpresa + Left = 200 + Top = 64 + end +end diff --git a/uconfrelBordero.pas b/uconfrelBordero.pas new file mode 100644 index 0000000..4782a0d --- /dev/null +++ b/uconfrelBordero.pas @@ -0,0 +1,131 @@ +unit uconfrelBordero; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.ComCtrls, + Data.DB, DateUtils; + +type + TconfrelBordero = class(TForm) + dtsBeneficiario: TDataSource; + btn_viewreport: TButton; + gb_data: TGroupBox; + dtp_inicio: TDateTimePicker; + dtp_fim: TDateTimePicker; + Label1: TLabel; + gb_beneficiario: TGroupBox; + dblucb_beneficiario: TDBLookupComboBox; + procedure btn_viewreportClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + confrelBordero: TconfrelBordero; + +implementation + +{$R *.dfm} + +uses udtmSystem, urelBordero; + +// relatrio de entrada + +procedure TconfrelBordero.btn_viewreportClick(Sender: TObject); +begin + dtmSystem.id_empimport := dblucb_beneficiario.KeyValue; + relBordero := TrelBordero.Create(self); + with relBordero do + begin + with zqryRel.sql do + begin + Clear; + Add('select'); + Add('A.id_devedor,'); + Add('A.tx_nome as NOME,'); + Add('case'); + Add('when A.TP_CLIENTE = ''F'' then A.CD_CPF'); + Add('when A.TP_CLIENTE = ''J'' then A.CD_CNPJ'); + Add('end as TX_DOCUMENTO,'); + //Add('A.cd_cpf as CPF,'); + Add('A.cd_devedor AS CODIGO,'); + Add('B.dt_ENTRADA AS DATA_ENTRADA,'); + Add('B.tx_produto AS PRODUTO,'); + Add('B.vl_titulo AS VALOR,'); + Add('B.dt_vencimento as DATA_VENCIMENTO'); + Add('from chg_devedores A'); + Add('inner join chg_titulos B'); + Add('on (A.id_devedor = B.id_devedor)'); + Add('where (B.id_empresa = ' + inttostr(dblucb_beneficiario.KeyValue) + + ') and'); + Add('(CAST(B.dt_entrada AS DATE) >= ' + QuotedStr(FormatDateTime('mm/dd/YYYY', + dtp_inicio.Date)) + ') and'); + Add('(CAST(B.dt_entrada AS DATE) <= ' + QuotedStr(FormatDateTime('mm/dd/YYYY', + dtp_fim.Date)) + ')'); + Add('order by A.tx_nome'); + end; + zqryRel.Open; + frBordero.PreviewModal; + end; +end; + +procedure TconfrelBordero.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; + confrelBordero := nil; +end; + +procedure TconfrelBordero.FormCreate(Sender: TObject); +begin + dtp_inicio.Date := Date; + dtp_fim.Date := Date; + if not dtsBeneficiario.DataSet.Active then + begin + dtsBeneficiario.DataSet.Open; + end; + dblucb_beneficiario.KeyValue := dtsBeneficiario.DataSet.RecNo; +end; + +procedure TconfrelBordero.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TconfrelBordero.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/uconfrelPrestacaoContas.dfm b/uconfrelPrestacaoContas.dfm new file mode 100644 index 0000000..bfa9b22 --- /dev/null +++ b/uconfrelPrestacaoContas.dfm @@ -0,0 +1,277 @@ +object confrelPrestacaoContas: TconfrelPrestacaoContas + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'Presta'#231#227'o de Contas' + ClientHeight = 243 + ClientWidth = 1229 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + Position = poDesktopCenter + OnClose = FormClose + OnCreate = FormCreate + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object gb_data: TGroupBox + Left = 8 + Top = 8 + Width = 333 + Height = 65 + Caption = 'Intervalo' + TabOrder = 0 + object Label1: TLabel + Left = 168 + Top = 31 + Width = 6 + Height = 13 + Caption = 'a' + end + object dtp_inicio: TDateTimePicker + Left = 10 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 0 + end + object dtp_fim: TDateTimePicker + Left = 224 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 1 + end + end + object gb_beneficiario: TGroupBox + Left = 8 + Top = 139 + Width = 333 + Height = 65 + Caption = 'Credor' + TabOrder = 1 + object dblucb_beneficiario: TDBLookupComboBox + Left = 10 + Top = 26 + Width = 311 + Height = 21 + KeyField = 'ID_EMPRESA' + ListField = 'TX_NOME' + ListSource = dtsBeneficiarios + TabOrder = 0 + end + end + object btn_viewreport: TButton + Left = 8 + Top = 211 + Width = 75 + Height = 25 + Caption = 'Visualizar' + TabOrder = 2 + OnClick = btn_viewreportClick + end + object rg_tipo: TRadioGroup + Left = 8 + Top = 79 + Width = 333 + Height = 54 + Caption = 'Tipo de Pesquisa' + Columns = 2 + Items.Strings = ( + 'Data do C'#225'lculo' + 'Emiss'#227'o de Recibo') + TabOrder = 3 + end + object btn_imprimir: TButton + Left = 266 + Top = 210 + Width = 75 + Height = 25 + Caption = 'Imprimir' + Enabled = False + TabOrder = 4 + OnClick = btn_imprimirClick + end + object pg_tipo: TPageControl + Left = 347 + Top = 7 + Width = 874 + Height = 228 + ActivePage = tbRel + TabOrder = 5 + object tbRel: TTabSheet + Caption = 'Lista de Relat'#243'rio' + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object lv_prestacao: TListView + Left = 3 + Top = 3 + Width = 860 + Height = 194 + Checkboxes = True + Columns = < + item + Caption = 'Incluir' + MaxWidth = 40 + MinWidth = 40 + Width = 40 + end + item + Caption = 'Nome' + MaxWidth = 400 + MinWidth = 400 + Width = 400 + end + item + Caption = 'Produto' + MaxWidth = 140 + MinWidth = 140 + Width = 140 + end + item + Caption = 'Vencimento' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end + item + Caption = 'Pagamento' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end + item + Caption = 'Nominal' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end> + ReadOnly = True + RowSelect = True + PopupMenu = ppm_marca + TabOrder = 0 + ViewStyle = vsReport + end + end + object tbQuebra: TTabSheet + Caption = 'M'#250'ltiplos Pagamentos' + ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object lv_multi: TListView + Left = 3 + Top = 3 + Width = 860 + Height = 194 + Columns = < + item + Caption = 'Nome' + MaxWidth = 400 + MinWidth = 400 + Width = 400 + end + item + Caption = 'Produto' + MaxWidth = 140 + MinWidth = 140 + Width = 140 + end + item + Caption = 'Vencimento' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end + item + Caption = 'Pagamento' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end + item + Caption = 'Nominal' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end> + ReadOnly = True + RowSelect = True + PopupMenu = PopupMenu1 + TabOrder = 0 + ViewStyle = vsReport + end + end + end + object dtsBeneficiarios: TDataSource + DataSet = dtmSystem.tblCHGEmpresa + OnDataChange = dtsBeneficiariosDataChange + Left = 184 + Top = 56 + end + object ZReadOnlyQuery1: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 128 + Top = 120 + end + object dtsFiltro: TDataSource + DataSet = qryFiltro + Left = 288 + Top = 112 + end + object qryFiltro: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 264 + Top = 171 + end + object ppm_marca: TPopupMenu + Left = 296 + Top = 56 + object IncluirTodos1: TMenuItem + Caption = 'Incluir Todos' + OnClick = IncluirTodos1Click + end + object N1: TMenuItem + Caption = '-' + end + object DesmarcarTodos1: TMenuItem + Caption = 'Desmarcar Todos' + OnClick = DesmarcarTodos1Click + end + end + object ZReadOnlyQuery2: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 136 + Top = 179 + end + object PopupMenu1: TPopupMenu + Left = 248 + Top = 8 + object ImprimirLista1: TMenuItem + Caption = 'Imprimir Lista' + OnClick = ImprimirLista1Click + end + end + object zroqryVerificador: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 232 + Top = 139 + end +end diff --git a/uconfrelPrestacaoContas.pas b/uconfrelPrestacaoContas.pas new file mode 100644 index 0000000..4f999a9 --- /dev/null +++ b/uconfrelPrestacaoContas.pas @@ -0,0 +1,701 @@ +unit uconfrelPrestacaoContas; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.ComCtrls, + Data.DB, Vcl.ExtCtrls, ZAbstractRODataset, ZDataset, ZAbstractDataset, + Vcl.Menus; + +type + TconfrelPrestacaoContas = class(TForm) + dtsBeneficiarios: TDataSource; + gb_data: TGroupBox; + Label1: TLabel; + dtp_inicio: TDateTimePicker; + dtp_fim: TDateTimePicker; + gb_beneficiario: TGroupBox; + dblucb_beneficiario: TDBLookupComboBox; + btn_viewreport: TButton; + rg_tipo: TRadioGroup; + ZReadOnlyQuery1: TZReadOnlyQuery; + dtsFiltro: TDataSource; + qryFiltro: TZQuery; + btn_imprimir: TButton; + ppm_marca: TPopupMenu; + IncluirTodos1: TMenuItem; + N1: TMenuItem; + DesmarcarTodos1: TMenuItem; + ZReadOnlyQuery2: TZReadOnlyQuery; + pg_tipo: TPageControl; + tbRel: TTabSheet; + lv_prestacao: TListView; + tbQuebra: TTabSheet; + lv_multi: TListView; + PopupMenu1: TPopupMenu; + ImprimirLista1: TMenuItem; + zroqryVerificador: TZReadOnlyQuery; + procedure btn_viewreportClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure btn_imprimirClick(Sender: TObject); + procedure IncluirTodos1Click(Sender: TObject); + procedure DesmarcarTodos1Click(Sender: TObject); + procedure ImprimirLista1Click(Sender: TObject); + procedure dtsBeneficiariosDataChange(Sender: TObject; Field: TField); + private + id_emp: integer; + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + + { Private declarations } + public + str_titulos: string; + { Public declarations } + end; + +var + confrelPrestacaoContas: TconfrelPrestacaoContas; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem, urelPrestacaoContas, urelRelacaoAcordo, urelMulti; + +// prestao de contas + +procedure TconfrelPrestacaoContas.btn_viewreportClick(Sender: TObject); +begin + + with dtmSystem do + begin + +// mes1 := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', +// dtp_inicio.Date), 6, 2))); +// mes2 := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', +// dtp_fim.Date), 6, 2))); +// ano1 := copy(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date), 1, 4); +// ano2 := copy(FormatDateTime('yyyy-mm-dd', dtp_fim.Date), 1, 4); +// +// tblEmpresaRepasse.Filtered := False; +// tblEmpresaRepasse.Filter := '(((ID_MES >= ' + mes1 + ') or (ID_MES <= ' + +// mes2 + ')) and ((ID_ANO >= ' + ano1 + ') or (ID_ANO <= ' + ano2 + ')))'; +// tblEmpresaRepasse.Filtered := True; +// +// if tblEmpresaRepasse.IsEmpty then +// begin +// MessageDlg('Por favor monte um modelo de repasse para a empresa ' + +// tblCHGEmpresaTX_NOME.AsString + +// ' antes de realizar um relatrio de Prestao de contas no perodo escolhido.', +// mtWarning, [mbOK], 0); +// Close; +// Abort; +// end; + + if not tblAcordos.Active then + begin + tblAcordos.Open; + end; + end; + Screen.Cursor := crHourGlass; + if rg_tipo.ItemIndex = -1 then + begin + rg_tipo.ItemIndex := 0; + end; + lv_prestacao.Clear; + with qryFiltro.SQL do + begin + Clear; + Add('select distinct'); + Add('A.tx_nome,'); + Add('B.tx_produto,'); + Add('B.dt_vencimento,'); + Add('B.dt_pagamento,'); + Add('B.vl_titulo,'); + Add('B.vl_juros,'); + Add('B.vl_multa,'); + Add('B.vl_encargos,'); + Add('B.vl_corrigido,'); + Add('B.vl_desc_principal,'); + Add('B.id_titulo,'); + Add('AC.id_original'); + // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + Add('from chg_titulos B'); + Add('left join chg_devedores A on (A.id_devedor = B.id_devedor)'); + Add('left join sys_acordos AC on (AC.id_original = B.id_titulo)'); + Add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + + QuotedStr('B') + ') and'); + Add('B.tp_motivo <> ' + QuotedStr('Q') + ' and'); + Add('B.id_empresa = ' + inttostr(dblucb_beneficiario.KeyValue) + ' and'); + if rg_tipo.ItemIndex = 0 then + begin + Add('CAST(B.dt_pagamento AS DATE) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and'); + Add('CAST(B.dt_pagamento AS DATE) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + Add('and B.dt_emissao_recibo is NULL'); + end; + if rg_tipo.ItemIndex = 1 then + begin + Add('CAST(B.dt_emissao_recibo AS DATE) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and'); + Add('CAST(B.dt_emissao_recibo AS DATE) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + end; + Add('and (AC.id_original is NULL'); + Add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))'); + Add('order by A.tx_nome'); + end; + + qryFiltro.Open; + + if not qryFiltro.IsEmpty then + begin + qryFiltro.First; + while not qryFiltro.Eof do + begin + // if not dtmSystem.tblAcordos.Locate('ID_ORIGINAL', + // qryFiltro.FieldByName('id_titulo').AsString, []) then + // begin + // with lv_prestacao.Items.Add do + // begin + // SubItems.Add(qryFiltro.FieldByName('tx_nome').AsString); + // SubItems.Add(qryFiltro.FieldByName('tx_produto').AsString); + // SubItems.Add(qryFiltro.FieldByName('dt_vencimento').AsString); + // SubItems.Add(qryFiltro.FieldByName('dt_pagamento').AsString); + // SubItems.Add(qryFiltro.FieldByName('vl_titulo').AsString); + // end; + // end + // else + // begin + // dtmSystem.tblTitulos.Locate('ID_TITULO', + // dtmSystem.tblAcordosID_PARCELA.AsString, []); + // if dtmSystem.tblTitulosID_EMPRESA.AsSingle = 220 then + // begin + // with lv_prestacao.Items.Add do + // begin + // SubItems.Add(qryFiltro.FieldByName('tx_nome').AsString); + // SubItems.Add(qryFiltro.FieldByName('tx_produto').AsString); + // SubItems.Add(qryFiltro.FieldByName('dt_vencimento').AsString); + // SubItems.Add(qryFiltro.FieldByName('dt_pagamento').AsString); + // SubItems.Add(qryFiltro.FieldByName('vl_titulo').AsString); + // end; + // end; + // end; + + with lv_prestacao.Items.Add do + begin + SubItems.Add(qryFiltro.FieldByName('tx_nome').AsString); + SubItems.Add(qryFiltro.FieldByName('tx_produto').AsString); + SubItems.Add(qryFiltro.FieldByName('dt_vencimento').AsString); + SubItems.Add(qryFiltro.FieldByName('dt_pagamento').AsString); + SubItems.Add(qryFiltro.FieldByName('vl_titulo').AsString); + end; + + qryFiltro.Next; + end; + lv_prestacao.Column[0].Alignment := taCenter; + end; + ZReadOnlyQuery2.SQL.Clear; + with ZReadOnlyQuery2.SQL do + begin + Add('select distinct'); + Add('A.tx_nome,'); + Add('B.tx_produto,'); + Add('B.dt_vencimento,'); + Add('B.dt_pagamento,'); + Add('B.vl_titulo,'); + Add('B.vl_juros,'); + Add('B.vl_multa,'); + Add('B.vl_encargos,'); + Add('B.vl_corrigido,'); + Add('B.vl_desc_principal,'); + Add('B.id_titulo,'); + Add('AC.id_original'); + // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + Add('from chg_titulos B'); + Add('left join chg_devedores A on (A.id_devedor = B.id_devedor)'); + Add('left join sys_acordos AC on (AC.id_original = B.id_titulo)'); + Add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' + + QuotedStr('B') + ') and'); + Add('B.tp_motivo = ' + QuotedStr('Q') + ' and'); + Add('B.id_empresa = ' + inttostr(dblucb_beneficiario.KeyValue) + ' and'); + if rg_tipo.ItemIndex = 0 then + begin + Add('CAST(B.dt_pagamento AS DATE) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and'); + Add('CAST(B.dt_pagamento AS DATE) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + Add('and B.dt_emissao_recibo is NULL'); + end; + if rg_tipo.ItemIndex = 1 then + begin + Add('CAST(B.dt_emissao_recibo AS DATE) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and'); + Add('CAST(B.dt_emissao_recibo AS DATE) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + end; + Add('and (AC.id_original is NULL'); + Add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))'); + Add('order by A.tx_nome'); + end; + ZReadOnlyQuery2.Open; + if ZReadOnlyQuery2.RecordCount > 0 then + begin + MessageDlg + ('H ttulos com mltiplas formas de pagamento neste intervalo de prestao de contas.' + + ' Por favor gere uma prestao manual tambm.', mtInformation, + [mbOK], 0); + end; + lv_multi.Clear; + if not ZReadOnlyQuery2.IsEmpty then + begin + ZReadOnlyQuery2.First; + while not ZReadOnlyQuery2.Eof do + begin + with lv_multi.Items.Add do + begin + Caption := ZReadOnlyQuery2.FieldByName('tx_nome').AsString; + SubItems.Add(ZReadOnlyQuery2.FieldByName('tx_produto').AsString); + SubItems.Add(ZReadOnlyQuery2.FieldByName('dt_vencimento').AsString); + SubItems.Add(ZReadOnlyQuery2.FieldByName('dt_pagamento').AsString); + SubItems.Add(ZReadOnlyQuery2.FieldByName('vl_titulo').AsString); + end; + ZReadOnlyQuery2.Next; + end; + end; + Screen.Cursor := crDefault; + pg_tipo.ActivePageIndex := 0; + btn_imprimir.Enabled := true; + // Close; +end; + +procedure TconfrelPrestacaoContas.DesmarcarTodos1Click(Sender: TObject); +var + i: integer; +begin + if lv_prestacao.Items.Count > 0 then + begin + for i := 0 to lv_prestacao.Items.Count - 1 do + begin + lv_prestacao.Items.Item[i].Checked := False; + end; + end; +end; + +procedure TconfrelPrestacaoContas.dtsBeneficiariosDataChange(Sender: TObject; Field: TField); +begin + if id_emp <> dtsBeneficiarios.DataSet.FieldByName('ID_EMPRESA').AsInteger then + begin + id_emp := dtsBeneficiarios.DataSet.FieldByName('ID_EMPRESA').AsInteger; + btn_imprimir.Enabled := false; + lv_prestacao.Items.Clear; + lv_multi.Items.Clear; + end; +end; + +procedure TconfrelPrestacaoContas.btn_imprimirClick(Sender: TObject); +var + str_ids: string; + i, qtde_mes, counter: integer; + Checked: Boolean; + id_emp: integer; + d1, d2, d3, d4: TDate; + Dh1, M1, Y1: Word; + Dh2, M2, Y2: Word; + faltando: Boolean; +begin + Screen.Cursor := crHourGlass; + id_emp := dblucb_beneficiario.KeyValue; + + if rg_tipo.ItemIndex = -1 then + begin + rg_tipo.ItemIndex := 0; + end; + str_titulos := ''; + Checked := False; + if lv_prestacao.Items.Count > 0 then + begin + for i := 0 to lv_prestacao.Items.Count - 1 do + begin + if lv_prestacao.Items.Item[i].Checked then + begin + qryFiltro.RecNo := i + 1; + str_titulos := str_titulos + qryFiltro.FieldByName('id_titulo') + .AsString + ','; + Checked := True; + end; + end; + end; + + setlength(str_titulos, length(str_titulos) - 1); + + if Checked then + begin + + zroqryVerificador.SQL.Text := + 'select dt_pagamento from chg_titulos where id_titulo in(' + str_titulos + + ') order by dt_pagamento'; + zroqryVerificador.Open; + + with dtmSystem do + begin + tblCHGEmpresa.Locate('ID_EMPRESA', id_emp, []); + zroqryVerificador.First; + + d1 := zroqryVerificador.FieldByName('dt_pagamento').AsDateTime; + DecodeDate(d1, Y1, M1, Dh1); + d3 := StrToDate('01/' + inttostr(M1) + '/' + inttostr(Y1)); + + zroqryVerificador.Last; + d2 := zroqryVerificador.FieldByName('dt_pagamento').AsDateTime; + DecodeDate(d2, Y2, M2, Dh2); + d4 := StrToDate('01/' + inttostr(M2) + '/' + inttostr(Y2)); + + qtde_mes := MonthsBetween(d3, d4) + 1; + counter := 0; + + tblEmpresaRepasse.Filtered := False; + tblEmpresaRepasse.Filter := '(ID_ANO >= ' + inttostr(Y1) + + ' and ID_ANO <= ' + inttostr(Y2) + ')'; + tblEmpresaRepasse.Filtered := True; + + faltando := tblEmpresaRepasse.Locate('ID_ANO;ID_MES', + VarArrayOf([Y1, M1]), []); + if faltando = False then + begin + MessageDlg('A empresa ' + tblCHGEmpresaTX_NOME.AsString + + ' no possui modelos de repasse para todos os mses dentro do perodo do pagamento mais antigo e o mais novo.' + + ' Por favor crie os modelos de repasses que faltam antes de realizar esta operao (Entre ' + + meses[M1] + ' de ' + inttostr(Y1) + ' e ' + meses[M2] + ' de ' + + inttostr(Y2) + '.', mtWarning, [mbOK], 0); + Close; + Abort; + end + else + begin + while tblEmpresaRepasseID_MES.AsInteger <> M2 do + begin + if tblEmpresaRepasse.Eof then + begin + break; + end; + if tblEmpresaRepasseID_ANO.AsInteger > Y2 then + begin + break; + end; + if tblEmpresaRepasseID_ANO.AsInteger = Y2 then + begin + if tblEmpresaRepasseID_MES.AsInteger > M2 then + begin + break; + end; + end; + Inc(counter, 1); + tblEmpresaRepasse.Next; + end; + if tblEmpresaRepasseID_MES.AsInteger = M2 then + begin + Inc(counter, 1); + end; + end; + + if counter < qtde_mes then + begin + MessageDlg('A empresa ' + tblCHGEmpresaTX_NOME.AsString + + ' no possui modelos de repasse para todos os meses dentro do perodo do pagamento mais antigo e o mais novo.' + + ' Por favor crie os modelos de repasses que faltam antes de realizar esta operao (Entre ' + + meses[M1] + ' de ' + inttostr(Y1) + ' e ' + meses[M2] + ' de ' + + inttostr(Y2) + '.', mtWarning, [mbOK], 0); + Close; + Abort; + end; + + end; + + relPrestacaoContas := TrelPrestacaoContas.Create(self); + with relPrestacaoContas.zqryTitulos.SQL do + begin + Clear; + Add('select'); + Add('A.tx_nome,'); + Add('A.id_devedor,'); + Add('B.tx_produto,'); + Add('B.dt_vencimento,'); + Add('B.dt_pagamento,'); + // Add('B.vl_titulo,'); + Add('case when b.id_titulo in (select id_parcela from sys_acordos) then (b.vl_corrigido - b.vl_juros - b.vl_multa - b.vl_encargos)'); + Add('when b.id_titulo not in (select id_parcela from sys_acordos) then (b.vl_titulo)'); + Add('end as vl_titulo,'); + Add('B.vl_desc_principal,'); + Add('B.vl_repasse_prin,'); + Add('B.vl_juros,'); + Add('B.vl_desc_juros,'); + Add('B.vl_repasse_juros,'); + Add('B.vl_multa,'); + Add('B.vl_desc_multa,'); + Add('B.vl_repasse_multa,'); + Add('B.vl_encargos,'); + Add('B.vl_indicador,'); + Add('B.vl_desc_indicador,'); + Add('B.vl_repasse_encargos,'); + Add('B.vl_corrigido,'); + Add('B.vl_repasse_corrigido,'); + Add('B.id_titulo,'); + Add('B.id_empresa,'); + Add('B.tp_prestacao,'); + Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso'); + Add('from chg_devedores A'); + Add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)'); + Add('where (B.id_titulo in (' + str_titulos + '))'); + Add('order by A.tx_nome'); + end; + with relPrestacaoContas do + begin + dtmSystem.tblEmpresa.Locate('ID_EMPRESA', id_emp, []); + frlbl_headertop.Caption := + UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + ' - CNPJ: ' + + dtmSystem.tblEmpresaTX_CNPJ.AsString); + + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'BENEF', + UpperCase(dtmSystem.tblCHGEmpresaTX_NOME.AsString), + [rfReplaceAll, rfIgnoreCase]); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1', + FormatDateTime('dd/mm/yyyy', dtp_inicio.Date), + [rfReplaceAll, rfIgnoreCase]); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2', + FormatDateTime('dd/mm/yyyy', dtp_fim.Date), + [rfReplaceAll, rfIgnoreCase]); + zqryTitulos.Open; + frPrestacao.PreviewModal; + zqryTitulos.Close; + end; + + relRelacaoAcordo := TrelRelacaoAcordo.Create(self); + with relRelacaoAcordo do + begin + rel_acordo := false; + with zroqryAcordos.SQL do + begin + Clear; + Add('select distinct'); + Add('A.tx_nome,'); + Add('B.tx_produto,'); + Add('B.dt_vencimento,'); + Add('B.id_titulo,'); + Add('B.vl_titulo,'); + Add('B.qtde_parcelas,'); + Add('C.id_acordo'); + Add('from chg_devedores A'); + Add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)'); + Add('inner join sys_acordos C on (A.id_devedor = C.id_devedor)'); + Add('where (B.id_titulo in (' + str_titulos + '))'); + // Add('and B.id_titulo in'); + // Add('(select id_parcela from sys_acordos)'); + Add('and (C.id_parcela in'); + Add('(' + str_titulos + '))'); + Add('order by A.tx_nome'); + end; + zroqryAcordos.Open; + zroqryAcordos.First; + str_ids := ''; + while not zroqryAcordos.Eof do + begin + str_ids := str_ids + zroqryAcordos.FieldByName('ID_ACORDO') + .AsString + ','; + zroqryAcordos.Next; + end; + setlength(str_ids, length(str_ids) - 1); + if length(str_ids) > 0 then + begin + with zroqry1.SQL do + begin + Clear; + Add('select distinct A.id_acordo, B.tx_nome from sys_acordos A'); + Add('left join chg_devedores B on (A.id_devedor = B.id_devedor)'); + Add('where id_acordo in (' + str_ids + ')'); + Add('order by B.tx_nome'); + end; + with zroqry2.SQL do + begin + Clear; + Add('select distinct A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A'); + Add('left join chg_titulos B on (A.id_original = B.id_titulo)'); + Add('where id_acordo in (' + str_ids + ')'); + Add('group by A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimento, B.vl_titulo'); + end; + with zroqry3.SQL do + begin + Clear; + Add('select distinct A.id_acordo, A.id_parcela, B.tx_produto, B.dt_vencimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A'); + Add('left join chg_titulos B on (A.id_parcela = B.id_titulo)'); + Add('where id_acordo in (' + str_ids + ')'); + Add('group by A.id_acordo, A.id_parcela, B.tx_produto, B.dt_vencimento, B.vl_titulo'); + end; + dtmSystem.tblEmpresa.Locate('ID_EMPRESA', id_emp, []); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'BENEF', + UpperCase(dtmSystem.tblCHGEmpresaTX_NOME.AsString), + [rfReplaceAll, rfIgnoreCase]); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1', + FormatDateTime('dd/mm/yyyy', dtp_inicio.Date), + [rfReplaceAll, rfIgnoreCase]); + RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2', + FormatDateTime('dd/mm/yyyy', dtp_fim.Date), + [rfReplaceAll, rfIgnoreCase]); + zroqry1.Open; + zroqry2.Open; + zroqry3.Open; + + frrelRelacaoAcordo.PreviewModal; + zroqryAcordos.Close; + zroqry1.Close; + zroqry2.Close; + zroqry3.Close; + end; + end; + if rg_tipo.ItemIndex = 0 then + begin + with ZReadOnlyQuery1.SQL do + begin + Clear; + Add('select'); + Add('A.tx_nome,'); + Add('B.tx_produto,'); + Add('B.dt_vencimento,'); + Add('B.dt_pagamento,'); + Add('B.vl_titulo,'); + Add('B.vl_juros,'); + Add('B.vl_multa,'); + Add('B.vl_encargos,'); + Add('B.vl_corrigido,'); + Add('B.vl_desc_principal'); + Add('from chg_devedores A'); + Add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)'); + Add('where B.id_titulo in (' + str_titulos + ')'); + Add('and B.dt_emissao_recibo <> B.dt_pagamento'); + Add('order by A.tx_nome'); + end; + ZReadOnlyQuery1.Open; + if ZReadOnlyQuery1.RecordCount > 0 then + begin + MessageDlg + ('Existem recebimentos nesse perodo que possuem data de clculo diferente da data de emisso do recibo.' + + ' recomendando fazer uma prestao de contas utilizando a data da emisso do recibo tambm.', + mtWarning, [mbOK], 0); + end; + end; + end; + Screen.Cursor := crDefault; + // Close; +end; + +procedure TconfrelPrestacaoContas.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + dtmSystem.tblEmpresaRepasse.Filtered := False; + qryFiltro.Close; + ZReadOnlyQuery1.Close; + Action := caFree; + confrelPrestacaoContas := nil; +end; + +procedure TconfrelPrestacaoContas.FormCreate(Sender: TObject); +begin + dtp_inicio.Date := Date; + dtp_fim.Date := Date; + if not dtmSystem.tblCHGEmpresa.Active then + begin + dtmSystem.tblCHGEmpresa.Open; + end; + id_emp := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; + if not dtmSystem.tblEmpresaRepasse.Active then + begin + dtmSystem.tblEmpresaRepasse.Open; + end; + if not dtmSystem.tblEmpresa.Active then + begin + dtmSystem.tblEmpresa.Open; + end; + dblucb_beneficiario.KeyValue := 1; + pg_tipo.ActivePageIndex := 0; +end; + +procedure TconfrelPrestacaoContas.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TconfrelPrestacaoContas.ImprimirLista1Click(Sender: TObject); +begin + relMulti := TrelMulti.Create(self); + with relMulti do + begin + dtsRel.DataSet := ZReadOnlyQuery2; + rldbtxt1.DataField := 'tx_nome'; + rldbtxt2.DataField := 'tx_produto'; + rldbtxt3.DataField := 'vl_titulo'; + rldbtxt4.DataField := 'dt_vencimento'; + RLReport1.PreviewModal; + end; +end; + +procedure TconfrelPrestacaoContas.IncluirTodos1Click(Sender: TObject); +var + i: integer; +begin + if lv_prestacao.Items.Count > 0 then + begin + for i := 0 to lv_prestacao.Items.Count - 1 do + begin + lv_prestacao.Items.Item[i].Checked := True; + end; + end; +end; + +procedure TconfrelPrestacaoContas.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/uconfrelRecibosEmitidos.dfm b/uconfrelRecibosEmitidos.dfm new file mode 100644 index 0000000..7825b92 --- /dev/null +++ b/uconfrelRecibosEmitidos.dfm @@ -0,0 +1,65 @@ +object confrelRecibosEmitidos: TconfrelRecibosEmitidos + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'Recibos Emitidos' + ClientHeight = 129 + ClientWidth = 249 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + Position = poDesktopCenter + OnClose = FormClose + OnCreate = FormCreate + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object gb_data: TGroupBox + Left = 8 + Top = 8 + Width = 233 + Height = 65 + Caption = 'Intervalo' + TabOrder = 0 + object Label1: TLabel + Left = 113 + Top = 31 + Width = 6 + Height = 13 + Caption = 'a' + end + object dtp_inicio: TDateTimePicker + Left = 10 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 0 + end + object dtp_fim: TDateTimePicker + Left = 125 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 1 + end + end + object btn_viewreport: TButton + Left = 85 + Top = 94 + Width = 75 + Height = 25 + Caption = 'Visualizar' + TabOrder = 1 + OnClick = btn_viewreportClick + end +end diff --git a/uconfrelRecibosEmitidos.pas b/uconfrelRecibosEmitidos.pas new file mode 100644 index 0000000..1560518 --- /dev/null +++ b/uconfrelRecibosEmitidos.pas @@ -0,0 +1,121 @@ +unit uconfrelRecibosEmitidos; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.StrUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls; + +type + TconfrelRecibosEmitidos = class(TForm) + gb_data: TGroupBox; + Label1: TLabel; + dtp_inicio: TDateTimePicker; + dtp_fim: TDateTimePicker; + btn_viewreport: TButton; + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure btn_viewreportClick(Sender: TObject); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + confrelRecibosEmitidos: TconfrelRecibosEmitidos; + +implementation + +{$R *.dfm} + +uses urelRecibosEmitidos, udtmSystem; + +procedure TconfrelRecibosEmitidos.btn_viewreportClick(Sender: TObject); +var +sum : double; +begin + relRecibosEmitidos := TrelRecibosEmitidos.Create(self); + if dtp_inicio.Date = dtp_fim.Date then + begin + relRecibosEmitidos.frlbl_datas.Caption := DateToStr(dtp_inicio.Date); + end + else + begin + relRecibosEmitidos.frlbl_datas.Caption := DateToStr(dtp_inicio.Date) + ' a ' + + DateToStr(dtp_fim.Date); + end; + if not dtmSystem.tblRecibo.Active then + begin + dtmSystem.tblRecibo.Open; + end; + relRecibosEmitidos.qryReport.SQL.Clear; + relRecibosEmitidos.qryReport.SQL.Text := 'select sys_recibos.*, case when tx_cpf = '''' then tx_cnpj when tx_cpf <> '''' then tx_cpf end as tx_documento from sys_recibos where (' + + QuotedStr(FormatDateTime('mm/dd/yyyy', dtp_inicio.Date)) + + ' <= CAST(DT_IMPRESSAO AS DATE)) and (' + QuotedStr(FormatDateTime('mm/dd/yyyy', + dtp_fim.Date)) + ' >= CAST(DT_IMPRESSAO AS DATE))'{' and TP_CANCELADO <> ''S'' '}+' order by id_recibo'; + relRecibosEmitidos.qryReport.Open; + relRecibosEmitidos.qryReport.First; + sum := 0; + while not(relRecibosEmitidos.qryReport.Eof) do + begin + if relRecibosEmitidos.qryReport.FieldByName('TP_CANCELADO').AsString <> 'S' then + begin + sum := sum + relRecibosEmitidos.qryReport.FieldByName('vl_corrigido').AsCurrency; + end; + relRecibosEmitidos.qryReport.Next; + end; + relRecibosEmitidos.frlbl_total.Caption := 'Total: ' + CurrToStrF(sum, ffCurrency, 2, dtmSystem.CusFmt); + relRecibosEmitidos.fr_recibosemitidos.PreviewModal; +end; + +procedure TconfrelRecibosEmitidos.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action := caFree; + confrelRecibosEmitidos := nil; +end; + +procedure TconfrelRecibosEmitidos.FormCreate(Sender: TObject); +begin + dtp_inicio.Date := Date; + dtp_fim.Date := Date; +end; + +procedure TconfrelRecibosEmitidos.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TconfrelRecibosEmitidos.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/uconfrelRelatorioTCC.dfm b/uconfrelRelatorioTCC.dfm new file mode 100644 index 0000000..21442b4 --- /dev/null +++ b/uconfrelRelatorioTCC.dfm @@ -0,0 +1,123 @@ +inherited confrelRelatorioTCC: TconfrelRelatorioTCC + Caption = 'Relat'#243'rio TCC' + ClientHeight = 203 + ClientWidth = 352 + ExplicitWidth = 358 + ExplicitHeight = 231 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 184 + Width = 352 + ExplicitTop = 184 + ExplicitWidth = 352 + end + object gb_data: TGroupBox + Left = 8 + Top = 8 + Width = 333 + Height = 65 + Caption = 'Intervalo' + TabOrder = 1 + object Label1: TLabel + Left = 168 + Top = 31 + Width = 6 + Height = 13 + Caption = 'a' + end + object dtp_inicio: TDateTimePicker + Left = 10 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 0 + end + object dtp_fim: TDateTimePicker + Left = 224 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 1 + end + end + object gb_beneficiario: TGroupBox + Left = 8 + Top = 79 + Width = 333 + Height = 65 + Caption = 'Benefici'#225'rio' + TabOrder = 2 + object dblucb_beneficiario: TDBLookupComboBox + Left = 10 + Top = 26 + Width = 311 + Height = 21 + KeyField = 'ID_EMPRESA' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 0 + end + end + object btn_viewreport: TButton + Left = 133 + Top = 150 + Width = 75 + Height = 25 + Caption = 'Visualizar' + TabOrder = 3 + OnClick = btn_viewreportClick + end + object dtsRelatorio: TDataSource + DataSet = roqryRelatorio + Left = 124 + end + object roqryRelatorio: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'd.tx_nome,' + 'case when d.tp_cliente = '#39'F'#39' then d.cd_cpf' + 'when d.tp_cliente = '#39'J'#39' then d.cd_cnpj' + 'end as tx_documento,' + 't.tx_produto,' + 't.dt_vencimento,' + 't.vl_titulo,' + 't.dt_pagamento,' + 't.vl_corrigido' + 'from chg_titulos t' + 'left join chg_devedores d on d.id_devedor = t.id_devedor') + Params = <> + Left = 196 + object roqryRelatorioTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object roqryRelatorioTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + ReadOnly = True + Size = 18 + end + object roqryRelatorioTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object roqryRelatorioDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object roqryRelatorioVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + end + object roqryRelatorioDT_PAGAMENTO: TDateTimeField + FieldName = 'DT_PAGAMENTO' + end + object roqryRelatorioVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + end + end +end diff --git a/uconfrelRelatorioTCC.pas b/uconfrelRelatorioTCC.pas new file mode 100644 index 0000000..b3c8e4a --- /dev/null +++ b/uconfrelRelatorioTCC.pas @@ -0,0 +1,384 @@ +unit uconfrelRelatorioTCC; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.win.ComObj, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.DBCtrls, + Vcl.ComCtrls, Data.DB, ZAbstractRODataset, ZDataset; + +type + TconfrelRelatorioTCC = class(TmstMaster) + gb_data: TGroupBox; + Label1: TLabel; + dtp_inicio: TDateTimePicker; + dtp_fim: TDateTimePicker; + gb_beneficiario: TGroupBox; + dblucb_beneficiario: TDBLookupComboBox; + btn_viewreport: TButton; + dtsRelatorio: TDataSource; + roqryRelatorio: TZReadOnlyQuery; + roqryRelatorioTX_NOME: TWideStringField; + roqryRelatorioTX_DOCUMENTO: TWideStringField; + roqryRelatorioTX_PRODUTO: TWideStringField; + roqryRelatorioDT_VENCIMENTO: TDateTimeField; + roqryRelatorioVL_TITULO: TFloatField; + roqryRelatorioDT_PAGAMENTO: TDateTimeField; + roqryRelatorioVL_CORRIGIDO: TFloatField; + procedure FormCreate(Sender: TObject); + procedure btn_viewreportClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure AbreROQuery(tipo: string); + procedure GerarXLS(tipo: string); + function PixtoCM(pix: Integer): double; + private + { Private declarations } + public + { Public declarations } + end; + +var + confrelRelatorioTCC: TconfrelRelatorioTCC; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TconfrelRelatorioTCC.AbreROQuery(tipo: string); +begin + if tipo = 'liq' then + begin + roqryRelatorio.Close; + roqryRelatorio.SQL.Clear; + roqryRelatorio.SQL.Add('select'); + roqryRelatorio.SQL.Add('d.tx_nome,'); + roqryRelatorio.SQL.Add('case when d.tp_cliente = ' + QuotedStr('F') + + ' then d.cd_cpf'); + roqryRelatorio.SQL.Add('when d.tp_cliente = ' + QuotedStr('J') + + ' then d.cd_cnpj'); + roqryRelatorio.SQL.Add('end as tx_documento,'); + roqryRelatorio.SQL.Add('t.tx_produto,'); + roqryRelatorio.SQL.Add('t.dt_vencimento,'); + roqryRelatorio.SQL.Add('t.vl_titulo,'); + roqryRelatorio.SQL.Add('t.dt_pagamento,'); + roqryRelatorio.SQL.Add('t.vl_corrigido'); + roqryRelatorio.SQL.Add('from chg_titulos t'); + roqryRelatorio.SQL.Add + ('left join chg_devedores d on d.id_devedor = t.id_devedor'); + roqryRelatorio.SQL.Add('where'); + roqryRelatorio.SQL.Add('t.id_empresa = ' + + inttostr(dblucb_beneficiario.KeyValue)); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('t.tp_situacao = ' + QuotedStr('QB')); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('t.tx_produto not similar to ' + QuotedStr('99_*')); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('Upper(t.tx_produto) not similar to ' + + QuotedStr('ENTRADA_*')); + roqryRelatorio.Open; + roqryRelatorio.First; + end; + if tipo = 'ac' then + begin + roqryRelatorio.Close; + roqryRelatorio.SQL.Clear; + roqryRelatorio.SQL.Add('select'); + roqryRelatorio.SQL.Add('d.tx_nome,'); + roqryRelatorio.SQL.Add('case when d.tp_cliente = ' + QuotedStr('F') + + ' then d.cd_cpf'); + roqryRelatorio.SQL.Add('when d.tp_cliente = ' + QuotedStr('J') + + ' then d.cd_cnpj'); + roqryRelatorio.SQL.Add('end as tx_documento,'); + roqryRelatorio.SQL.Add('t.tx_produto,'); + roqryRelatorio.SQL.Add('t.dt_vencimento,'); + roqryRelatorio.SQL.Add('t.vl_titulo,'); + roqryRelatorio.SQL.Add('t.dt_pagamento,'); + roqryRelatorio.SQL.Add('t.vl_corrigido'); + roqryRelatorio.SQL.Add('from chg_titulos t'); + roqryRelatorio.SQL.Add + ('left join chg_devedores d on d.id_devedor = t.id_devedor'); + roqryRelatorio.SQL.Add('where'); + roqryRelatorio.SQL.Add('t.id_empresa = ' + + inttostr(dblucb_beneficiario.KeyValue)); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('t.tp_situacao = ' + QuotedStr('QB')); + // Add('t.tp_situacao = ' + QuotedStr('QC')); + roqryRelatorio.SQL.Add('and'); + roqryRelatorio.SQL.Add('(t.tx_produto similar to ' + QuotedStr('99_*')); + roqryRelatorio.SQL.Add('or'); + roqryRelatorio.SQL.Add('Upper(t.tx_produto) similar to ' + + QuotedStr('ENTRADA_*') + ')'); + roqryRelatorio.Open; + roqryRelatorio.First; + end; + +end; + +procedure TconfrelRelatorioTCC.btn_viewreportClick(Sender: TObject); +begin + // relTCC := TrelTCC.Create(self); + // with relTCC do + // begin + // roqryRelatorio.SQL.Clear; + // roqryRelatorio.SQL.Add('select'); + // roqryRelatorio.SQL.Add('d.tx_nome,'); + // roqryRelatorio.SQL.Add('case when d.tp_cliente = ' + QuotedStr('F') + + // ' then d.cd_cpf'); + // roqryRelatorio.SQL.Add('when d.tp_cliente = ' + QuotedStr('J') + + // ' then d.cd_cnpj'); + // roqryRelatorio.SQL.Add('end as tx_documento,'); + // roqryRelatorio.SQL.Add('t.tx_produto,'); + // roqryRelatorio.SQL.Add('t.dt_vencimento,'); + // roqryRelatorio.SQL.Add('t.vl_titulo,'); + // roqryRelatorio.SQL.Add('t.dt_pagamento,'); + // roqryRelatorio.SQL.Add('t.vl_corrigido'); + // roqryRelatorio.SQL.Add('from chg_titulos t'); + // roqryRelatorio.SQL.Add + // ('left join chg_devedores d on d.id_devedor = t.id_devedor'); + // roqryRelatorio.SQL.Add('where'); + // roqryRelatorio.SQL.Add('t.id_empresa = ' + + // inttostr(dblucb_beneficiario.KeyValue)); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) >= ' + + // QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) <= ' + + // QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('t.tp_situacao = ' + QuotedStr('QB')); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('t.tx_produto not similar to ' + QuotedStr('99_*')); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('Upper(t.tx_produto) not similar to ' + + // QuotedStr('ENTRADA_*')); + // // Add('t.tp_situacao = ' + QuotedStr('QC')); + // tipo := 'liq'; + // frrelTCC.PreviewModal; + // roqryRelatorio.Close; + // roqryRelatorio.SQL.Clear; + // roqryRelatorio.SQL.Add('select'); + // roqryRelatorio.SQL.Add('d.tx_nome,'); + // roqryRelatorio.SQL.Add('case when d.tp_cliente = ' + QuotedStr('F') + + // ' then d.cd_cpf'); + // roqryRelatorio.SQL.Add('when d.tp_cliente = ' + QuotedStr('J') + + // ' then d.cd_cnpj'); + // roqryRelatorio.SQL.Add('end as tx_documento,'); + // roqryRelatorio.SQL.Add('t.tx_produto,'); + // roqryRelatorio.SQL.Add('t.dt_vencimento,'); + // roqryRelatorio.SQL.Add('t.vl_titulo,'); + // roqryRelatorio.SQL.Add('t.dt_pagamento,'); + // roqryRelatorio.SQL.Add('t.vl_corrigido'); + // roqryRelatorio.SQL.Add('from chg_titulos t'); + // roqryRelatorio.SQL.Add + // ('left join chg_devedores d on d.id_devedor = t.id_devedor'); + // roqryRelatorio.SQL.Add('where'); + // roqryRelatorio.SQL.Add('t.id_empresa = ' + + // inttostr(dblucb_beneficiario.KeyValue)); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) >= ' + + // QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date))); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) <= ' + + // QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('t.tp_situacao = ' + QuotedStr('QB')); + // // Add('t.tp_situacao = ' + QuotedStr('QC')); + // roqryRelatorio.SQL.Add('and'); + // roqryRelatorio.SQL.Add('(t.tx_produto similar to ' + QuotedStr('99_*')); + // roqryRelatorio.SQL.Add('or'); + // roqryRelatorio.SQL.Add('Upper(t.tx_produto) similar to ' + + // QuotedStr('ENTRADA_*') + ')'); + // tipo := 'ac'; + // frrelTCC.PreviewModal; + // end; + AbreROQuery('liq'); + GerarXLS('liq'); + AbreROQuery('ac'); + GerarXLS('ac'); + Showmessage('Processo terminado!'); +end; + +procedure TconfrelRelatorioTCC.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + dtmSystem.tblCHGEmpresa.Filtered := False; +end; + +procedure TconfrelRelatorioTCC.FormCreate(Sender: TObject); +begin + with dtmSystem do + begin + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end; + tblCHGEmpresa.Filtered := False; + tblCHGEmpresa.Filter := 'TX_NOME LIKE ' + QuotedStr('*TECH*'); + tblCHGEmpresa.Filtered := true; + end; +end; + +procedure TconfrelRelatorioTCC.GerarXLS(tipo: string); +var + OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param, + FilterParams, Param2: Variant; + i, j: Integer; + pathFile: string; + Fmt: TFormatSettings; +begin + Screen.Cursor := crHourGlass; + + // gera uma planilha conforme o string grid do layout + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + + LoadParams := VarArrayCreate([0, 0], varVariant); + Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param.Name := 'Hidden'; + Param.Value := false; + LoadParams[0] := Param; + + OOExec := OpenDesktop.LoadComponentFromURL('private:factory/scalc', '_blank', + 0, LoadParams); + OOCalc := OOExec.Sheets; + Planilha := OOCalc.getbyIndex(0); + Planilha.getCellByPosition(0, 0).string := 'DOCUMENTO'; + Planilha.getCellByPosition(0, 0).getText.createTextCursor.CharWeight := 150; + Planilha.getCellByPosition(0, 0).getColumns.getbyIndex(0).OptimalWidth := true; + Planilha.getCellByPosition(1, 0).string := 'NOME'; + Planilha.getCellByPosition(1, 0).getText.createTextCursor.CharWeight := 150; + Planilha.getCellByPosition(1, 0).getColumns.getbyIndex(0).OptimalWidth := true; + Planilha.getCellByPosition(2, 0).string := 'TTULO'; + Planilha.getCellByPosition(2, 0).getText.createTextCursor.CharWeight := 150; + Planilha.getCellByPosition(2, 0).getColumns.getbyIndex(0).OptimalWidth := true; + Planilha.getCellByPosition(3, 0).string := 'VENCIMENTO'; + Planilha.getCellByPosition(3, 0).getText.createTextCursor.CharWeight := 150; + Planilha.getCellByPosition(3, 0).getColumns.getbyIndex(0).OptimalWidth := true; + Planilha.getCellByPosition(4, 0).string := 'VALOR ORIGINAL'; + Planilha.getCellByPosition(4, 0).getText.createTextCursor.CharWeight := 150; + Planilha.getCellByPosition(4, 0).getColumns.getbyIndex(0).OptimalWidth := true; + Planilha.getCellByPosition(5, 0).string := 'RECEBIMENTO'; + Planilha.getCellByPosition(5, 0).getText.createTextCursor.CharWeight := 150; + Planilha.getCellByPosition(5, 0).getColumns.getbyIndex(0).OptimalWidth := true; + Planilha.getCellByPosition(6, 0).string := 'VALOR RECEBIDO'; + Planilha.getCellByPosition(6, 0).getText.createTextCursor.CharWeight := 150; + Planilha.getCellByPosition(6, 0).getColumns.getbyIndex(0).OptimalWidth := true; + j := 1; + while not roqryRelatorio.Eof do + begin + for i := 0 to roqryRelatorio.FieldCount - 1 do + begin + Planilha.getCellByPosition(i, j).string := + roqryRelatorio.FieldByName(roqryRelatorio.Fields[i].FieldName).AsString; + Planilha.getCellByPosition(i, j).getColumns.getbyIndex(0).OptimalWidth := true; + end; + Inc(j, 1); + roqryRelatorio.Next; + end; + + FilterParams := VarArrayCreate([0, 1], varVariant); + + Param2 := OpenDesktop.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param2.Name := 'FilterName'; + Param2.Value := 'MS Excel 97'; + FilterParams[0] := Param2; + Param2.Name := 'Overwrite'; + Param2.Value := true; + FilterParams[1] := Param2; + + for i := Low(meses) to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; +// pathFile := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + pathFile := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(pathFile) then + begin + CreateDir(pathFile); + end; + pathFile := pathFile + '\PRESTACAO_CONTAS_TCC'; + if not DirectoryExists(pathFile) then + begin + CreateDir(pathFile); + end; + pathFile := pathFile + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(pathFile) then + begin + CreateDir(pathFile); + end; + pathFile := pathFile + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(pathFile) then + begin + CreateDir(pathFile); + end; + pathFile := pathFile + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(pathFile) then + begin + CreateDir(pathFile); + end; + if tipo = 'liq' then + begin + pathFile := pathFile + '\RELATORIO_PRESTACAO_CONTAS-LIQ-' + + FormatDateTime('HH-mm', Time); + end; + if tipo = 'ac' then + begin + pathFile := pathFile + '\RELATORIO_PRESTACAO_CONTAS-ACORDOS-' + + FormatDateTime('HH-mm', Time); + end; + + // pathFile := GetCurrentDir; + pathFile := 'file:///' + pathFile; + pathFile := StringReplace(pathFile, '\', '/', [rfReplaceAll]); + + try + OOExec.StoreAsURL(pathFile + '.xls', FilterParams); +// OOExec.Close(False); + finally +// OpenOffice := Unassigned; + end; + Screen.Cursor := crDefault; +end; + +function TconfrelRelatorioTCC.PixtoCM(pix: Integer): double; +var + ppcm: double; +begin + ppcm := Screen.PixelsPerInch / 3000; + result := pix / ppcm; +end; + +end. diff --git a/udelPoli_Faixa.dfm b/udelPoli_Faixa.dfm new file mode 100644 index 0000000..04e5b99 --- /dev/null +++ b/udelPoli_Faixa.dfm @@ -0,0 +1,104 @@ +inherited delPoli_faixa: TdelPoli_faixa + Caption = 'Apagar Pol'#237'tica/Faixa' + ClientHeight = 275 + ClientWidth = 285 + Scaled = False + ExplicitWidth = 291 + ExplicitHeight = 303 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_nomepol: TLabel [0] + Left = 24 + Top = 34 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_nomefaixa: TLabel [1] + Left = 24 + Top = 161 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object Label1: TLabel [2] + Left = 24 + Top = 116 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + inherited stbStatus: TStatusBar + Top = 256 + Width = 285 + ExplicitTop = 256 + ExplicitWidth = 285 + end + object rbtn_politica: TRadioButton + Left = 8 + Top = 8 + Width = 113 + Height = 17 + Caption = 'Pol'#237'tica' + TabOrder = 1 + OnClick = rbtn_politicaClick + end + object rbtn_faixa: TRadioButton + Left = 8 + Top = 93 + Width = 113 + Height = 17 + Caption = 'Faixa' + TabOrder = 2 + OnClick = rbtn_faixaClick + end + object btn_ok: TButton + Left = 32 + Top = 219 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 3 + OnClick = btn_okClick + end + object btn_cancelar: TButton + Left = 180 + Top = 219 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 4 + end + object dbl_pol: TDBLookupComboBox + Left = 24 + Top = 53 + Width = 241 + Height = 21 + KeyField = 'ID_POLITICA' + ListField = 'TX_DESCRICAO' + ListSource = dtmSystem.dtsPoliticas + TabOrder = 5 + end + object dbl_polfaixa: TDBLookupComboBox + Left = 24 + Top = 135 + Width = 241 + Height = 21 + KeyField = 'ID_POLITICA' + ListField = 'TX_DESCRICAO' + ListSource = dtmSystem.dtsPoliticas + TabOrder = 6 + end + object dbl_faixa: TDBLookupComboBox + Left = 24 + Top = 180 + Width = 241 + Height = 21 + KeyField = 'ID_FAIXA' + ListField = 'TX_DESCRICAO' + ListSource = dtmSystem.dtsFaixas + TabOrder = 7 + end +end diff --git a/udelPoli_Faixa.pas b/udelPoli_Faixa.pas new file mode 100644 index 0000000..122d193 --- /dev/null +++ b/udelPoli_Faixa.pas @@ -0,0 +1,92 @@ +unit udelPoli_Faixa; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Data.DB, + Vcl.StdCtrls, Vcl.DBCtrls; + +type + TdelPoli_faixa = class(TmstMaster) + lbl_nomepol: TLabel; + lbl_nomefaixa: TLabel; + rbtn_politica: TRadioButton; + rbtn_faixa: TRadioButton; + btn_ok: TButton; + btn_cancelar: TButton; + Label1: TLabel; + dbl_pol: TDBLookupComboBox; + dbl_polfaixa: TDBLookupComboBox; + dbl_faixa: TDBLookupComboBox; + procedure rbtn_politicaClick(Sender: TObject); + procedure rbtn_faixaClick(Sender: TObject); + procedure btn_okClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + delPoli_faixa: TdelPoli_faixa; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +//funcionalidade parecida com o cadastro de polticas e faixas, mas ao invs de +//cadastrar voc est apagando polticas ou faixas + +procedure TdelPoli_faixa.btn_okClick(Sender: TObject); +begin + inherited; + if rbtn_politica.Checked then + begin + dtmSystem.dtsPoliticas.DataSet.Delete; + end; + if rbtn_faixa.Checked then + begin + dtmSystem.dtsFaixas.DataSet.Delete; + end; +end; + +procedure TdelPoli_faixa.FormCreate(Sender: TObject); +begin + inherited; + dbl_pol.KeyValue := dtmSystem.tblPoliticasID_POLITICA.AsInteger; + dbl_polfaixa.KeyValue := dtmSystem.tblPoliticasID_POLITICA.AsInteger; + dbl_faixa.KeyValue := dtmSystem.tblFaixasID_FAIXA.AsInteger; + dbl_pol.Enabled := false; + dbl_polfaixa.Enabled := false; + dbl_polfaixa.Enabled := false; +end; + +procedure TdelPoli_faixa.rbtn_faixaClick(Sender: TObject); +begin + inherited; + if rbtn_faixa.Checked then + begin + dbl_pol.Enabled := false; + dbl_polfaixa.Enabled := true; + dbl_faixa.Enabled := true; + rbtn_politica.Checked := false; + end; +end; + +procedure TdelPoli_faixa.rbtn_politicaClick(Sender: TObject); +begin + inherited; + if rbtn_politica.Checked then + begin + dbl_pol.Enabled := true; + dbl_polfaixa.Enabled := false; + dbl_faixa.Enabled := false; + rbtn_faixa.Checked := false; + end; +end; + +end. diff --git a/udtmSystem.dfm b/udtmSystem.dfm new file mode 100644 index 0000000..a58be4a --- /dev/null +++ b/udtmSystem.dfm @@ -0,0 +1,3878 @@ +object dtmSystem: TdtmSystem + OldCreateOrder = False + OnCreate = DataModuleCreate + Height = 704 + Width = 1215 + object ZConnection: TZConnection + ControlsCodePage = cCP_UTF16 + ClientCodepage = 'WIN1252' + Catalog = '' + Properties.Strings = ( + 'controls_cp=CP_UTF16' + 'codepage=WIN1252' + 'AutoEncodeStrings=ON' + 'CLIENT_FOUND_ROWS=1') + TransactIsolationLevel = tiReadCommitted + AfterDisconnect = ZConnectionAfterDisconnect + HostName = '' + Port = 0 + Database = 'E:\Programa_Cobranca\Win32\Debug\CHARGE.GDB' + User = 'sysdba' + Password = 'masterkey' + Protocol = 'firebird-2.5' + Left = 40 + Top = 24 + end + object dtsUsuarios: TDataSource + DataSet = tblUsuarios + Left = 168 + Top = 128 + end + object dtsGrupos: TDataSource + DataSet = tblGrupos + OnDataChange = dtsGruposDataChange + Left = 168 + Top = 184 + end + object dtsPermissoes: TDataSource + DataSet = tblPermissoes + Left = 168 + Top = 240 + end + object dtsGruposPermissoes: TDataSource + DataSet = tblGruposPermissoes + Left = 168 + Top = 296 + end + object qryConsulta: TZQuery + Connection = ZConnection + Params = <> + Left = 168 + Top = 24 + end + object dtsEmpresa: TDataSource + DataSet = tblEmpresa + Left = 168 + Top = 80 + end + object dtsCidades: TDataSource + DataSet = tblCidades + Left = 400 + Top = 81 + end + object dtsEstados: TDataSource + DataSet = tblEstados + Left = 400 + Top = 24 + end + object dtsPermDisponiveis: TDataSource + DataSet = tblPermDisponiveis + Left = 168 + Top = 352 + end + object tblPermDisponiveis: TZReadOnlyQuery + Connection = ZConnection + SQL.Strings = ( + 'SELECT * FROM SYS_PERMISSOES WHERE ID_PERMISSAO NOT IN(' + ' SELECT ID_PERMISSAO FROM SYS_GRUPOS_PERMISSOES' + ' WHERE ID_GRUPO=:ID_GRUPO' + ')') + Params = < + item + DataType = ftUnknown + Name = 'ID_GRUPO' + ParamType = ptUnknown + end> + DataSource = dtsGrupos + Left = 40 + Top = 352 + ParamData = < + item + DataType = ftUnknown + Name = 'ID_GRUPO' + ParamType = ptUnknown + end> + object tblPermDisponiveisID_PERMISSAO: TIntegerField + FieldName = 'ID_PERMISSAO' + Required = True + end + object tblPermDisponiveisCD_PERMISSAO: TWideStringField + FieldName = 'CD_PERMISSAO' + end + object tblPermDisponiveisTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + LookupDataSet = tblPermissoes + Size = 40 + end + end + object dtsLog: TDataSource + DataSet = tblLog + Left = 16 + Top = 655 + end + object dtsCHGEmpresa: TDataSource + DataSet = tblCHGEmpresa + OnDataChange = dtsCHGEmpresaDataChange + OnUpdateData = dtsCHGEmpresaUpdateData + Left = 400 + Top = 144 + end + object dtsPoliticas: TDataSource + DataSet = tblPoliticas + OnUpdateData = dtsPoliticasUpdateData + Left = 400 + Top = 200 + end + object dtsFaixas: TDataSource + DataSet = tblFaixas + OnUpdateData = dtsFaixasUpdateData + Left = 400 + Top = 256 + end + object dtsDevedores: TDataSource + DataSet = tblDevedores + OnDataChange = dtsDevedoresDataChange + OnUpdateData = dtsDevedoresUpdateData + Left = 472 + Top = 656 + end + object dtsCHGEnderecos: TDataSource + DataSet = tblEnderecos + OnUpdateData = dtsCHGEnderecosUpdateData + Left = 208 + Top = 608 + end + object dtsTelefones: TDataSource + DataSet = tblTelefones + OnUpdateData = dtsTelefonesUpdateData + Left = 472 + Top = 608 + end + object dtsTitulos: TDataSource + DataSet = tblTitulos + OnDataChange = dtsTitulosDataChange + Left = 656 + Top = 24 + end + object ZSQLProcessor1: TZSQLProcessor + Params = <> + Connection = ZConnection + Delimiter = ';' + Left = 40 + Top = 416 + end + object dtsProvidencias: TDataSource + DataSet = tblProvidencias + Left = 656 + Top = 136 + end + object tblInadimplencias: TZTable + Connection = ZConnection + SortedFields = 'ID_INADIMPLENCIA' + BeforePost = tblInadimplenciasBeforePost + OnDeleteError = tblInadimplenciasDeleteError + OnEditError = tblInadimplenciasEditError + OnPostError = tblInadimplenciasPostError + TableName = 'CHG_INADIMPLENCIAS' + IndexFieldNames = 'ID_INADIMPLENCIA Asc' + Left = 520 + Top = 80 + object tblInadimplenciasID_INADIMPLENCIA: TIntegerField + FieldName = 'ID_INADIMPLENCIA' + Required = True + end + object tblInadimplenciasTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + end + object dtsInadimplencias: TDataSource + DataSet = tblInadimplencias + Left = 656 + Top = 80 + end + object dtsCampanhaCob: TDataSource + DataSet = tblCampanhaCob + Left = 656 + Top = 248 + end + object dtsCampanhaDevedores: TDataSource + DataSet = tblCampanhaDevedores + Left = 656 + Top = 304 + end + object dtsCobCampanha: TDataSource + DataSet = tblCobCampanha + OnDataChange = dtsCobCampanhaDataChange + Left = 656 + Top = 192 + end + object dtsHistorico: TDataSource + DataSet = tblHistorico + Left = 208 + Top = 656 + end + object ROQueryFaixa: TZReadOnlyQuery + Connection = ZConnection + Params = <> + Left = 40 + Top = 464 + end + object dtsQueryFaixa: TDataSource + DataSet = ROQueryFaixa + Left = 168 + Top = 464 + end + object ROquerypesquisas: TZReadOnlyQuery + Connection = ZConnection + Params = <> + Left = 288 + Top = 320 + end + object dtsROquerypesquisas: TDataSource + DataSet = ROquerypesquisas + Left = 400 + Top = 320 + end + object dtsAgenda: TDataSource + DataSet = tblAgenda + Left = 832 + Top = 24 + end + object dtsLayout: TDataSource + DataSet = tblLayouts + Left = 832 + Top = 80 + end + object dtsProtocolo: TDataSource + DataSet = tblProtocolo + Left = 832 + Top = 128 + end + object dtsIndices: TDataSource + DataSet = tblIndices + Left = 832 + Top = 184 + end + object dtsRecibo: TDataSource + DataSet = tblRecibo + Left = 16 + Top = 608 + end + object dtsConteudo: TDataSource + DataSet = tblConteudoRecibo + Left = 832 + Top = 248 + end + object dtsDuplicados: TDataSource + Left = 832 + Top = 304 + end + object dtsRepasse: TDataSource + DataSet = tblRepasse + OnDataChange = dtsRepasseDataChange + Left = 832 + Top = 360 + end + object dtsLogins: TDataSource + DataSet = tblLogins + Left = 656 + Top = 360 + end + object dtsSessao: TDataSource + DataSet = tblSessao + Left = 832 + Top = 416 + end + object dtsDespesasTitulos: TDataSource + DataSet = tblDespesasTitulos + Left = 1028 + Top = 24 + end + object dtsIndicadorFinanceiro: TDataSource + DataSet = tblIndicadorFinanceiro + OnUpdateData = dtsIndicadorFinanceiroUpdateData + Left = 1028 + Top = 80 + end + object dtsFiltros: TDataSource + DataSet = tblFiltros + Left = 1024 + Top = 184 + end + object cdsHist: TClientDataSet + Aggregates = <> + AutoCalcFields = False + Params = <> + Left = 1022 + Top = 240 + object cdsHisttx_nome: TStringField + FieldName = 'tx_nome' + Size = 255 + end + object cdsHistcd_documento: TStringField + FieldName = 'cd_documento' + end + object cdsHistid_devedor: TIntegerField + FieldName = 'id_devedor' + end + end + object tblProvidencias: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + BeforeEdit = tblProvidenciasBeforeEdit + BeforePost = tblProvidenciasBeforePost + BeforeDelete = tblProvidenciasBeforeDelete + SQL.Strings = ( + 'select * from chg_providencias;') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 520 + Top = 136 + object tblProvidenciasID_PROVIDENCIA: TIntegerField + FieldName = 'ID_PROVIDENCIA' + Required = True + end + object tblProvidenciasTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblProvidenciasTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 255 + end + object tblProvidenciasTP_PROVIDENCIA: TWideStringField + FieldName = 'TP_PROVIDENCIA' + Size = 10 + end + object tblProvidenciasTP_FORCAAGENDA: TWideStringField + FieldName = 'TP_FORCAAGENDA' + Size = 10 + end + end + object tblTitulos: TZQuery + Connection = ZConnection + SortType = stIgnored + BeforeOpen = tblTitulosBeforeOpen + AfterOpen = tblTitulosAfterOpen + BeforeEdit = tblTitulosBeforeEdit + BeforePost = tblTitulosBeforePost + AfterPost = tblTitulosAfterPost + BeforeDelete = tblTitulosBeforeDelete + SQL.Strings = ( + 'select * from chg_titulos;') + Params = < + item + DataType = ftUnknown + Name = 'pIDdevedor' + ParamType = ptUnknown + end> + Left = 520 + Top = 24 + ParamData = < + item + DataType = ftUnknown + Name = 'pIDdevedor' + ParamType = ptUnknown + end> + object tblTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object tblTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object tblTitulosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object tblTitulosVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + currency = True + end + object tblTitulosDT_ENTRADA: TDateTimeField + FieldName = 'DT_ENTRADA' + end + object tblTitulosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object tblTitulosTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 2 + end + object tblTitulosCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + Size = 100 + end + object tblTitulosTP_CHEQUE: TWideStringField + FieldName = 'TP_CHEQUE' + Required = True + Size = 1 + end + object tblTitulosID_BANCO: TIntegerField + FieldName = 'ID_BANCO' + end + object tblTitulosTX_NRCHEQUE: TWideStringField + FieldName = 'TX_NRCHEQUE' + end + object tblTitulosTP_MOTIVO: TWideStringField + FieldName = 'TP_MOTIVO' + Size = 2 + end + object tblTitulosVL_DESPESA: TFloatField + FieldName = 'VL_DESPESA' + end + object tblTitulosTP_DESPESA: TWideStringField + FieldName = 'TP_DESPESA' + Size = 1 + end + object tblTitulosVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + end + object tblTitulosVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + end + object tblTitulosVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + end + object tblTitulosVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + end + object tblTitulosDT_PAGAMENTO: TDateTimeField + FieldName = 'DT_PAGAMENTO' + end + object tblTitulosTX_OBS: TWideMemoField + FieldName = 'TX_OBS' + BlobType = ftWideMemo + end + object tblTitulosID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblTitulosDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object tblTitulosTX_ULTIMO_USUARIO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ULTIMO_USUARIO' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_ULTIMO_USUARIO' + Size = 60 + Lookup = True + end + object tblTitulosID_IMPLANTACAO: TIntegerField + FieldName = 'ID_IMPLANTACAO' + end + object tblTitulosTX_IMPLANTADO: TStringField + FieldKind = fkLookup + FieldName = 'TX_IMPLANTADO' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_IMPLANTACAO' + Size = 30 + Lookup = True + end + object tblTitulosDT_IMPLANTACAO: TDateTimeField + FieldName = 'DT_IMPLANTACAO' + end + object tblTitulosQTDE_PARCELAS: TIntegerField + FieldName = 'QTDE_PARCELAS' + end + object tblTitulosVL_DESC_PRINCIPAL: TFloatField + FieldName = 'VL_DESC_PRINCIPAL' + end + object tblTitulosDT_EMISSAO_RECIBO: TDateTimeField + FieldName = 'DT_EMISSAO_RECIBO' + end + object tblTitulosVL_DESC_MULTA: TFloatField + FieldName = 'VL_DESC_MULTA' + end + object tblTitulosVL_DESC_JUROS: TFloatField + FieldName = 'VL_DESC_JUROS' + end + object tblTitulosVL_INDICADOR: TFloatField + FieldName = 'VL_INDICADOR' + end + object tblTitulosVL_DESC_INDICADOR: TFloatField + FieldName = 'VL_DESC_INDICADOR' + end + object tblTitulosVL_REPASSE_MULTA: TFloatField + FieldName = 'VL_REPASSE_MULTA' + end + object tblTitulosVL_REPASSE_JUROS: TFloatField + FieldName = 'VL_REPASSE_JUROS' + end + object tblTitulosVL_REPASSE_CORRIGIDO: TFloatField + FieldName = 'VL_REPASSE_CORRIGIDO' + end + object tblTitulosVL_REPASSE_PRIN: TFloatField + FieldName = 'VL_REPASSE_PRIN' + end + object tblTitulosTP_PRESTACAO: TWideStringField + FieldName = 'TP_PRESTACAO' + Size = 1 + end + object tblTitulosVL_REPASSE_ENCARGOS: TFloatField + FieldName = 'VL_REPASSE_ENCARGOS' + end + end + object tblFiltros: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME_FILTRO' + BeforeEdit = tblFiltrosBeforeEdit + BeforePost = tblFiltrosBeforePost + BeforeDelete = tblFiltrosBeforeDelete + SQL.Strings = ( + 'select * from chg_filtro') + Params = <> + IndexFieldNames = 'TX_NOME_FILTRO Asc' + Left = 912 + Top = 184 + object tblFiltrosID_FILTRO: TIntegerField + FieldName = 'ID_FILTRO' + Required = True + end + object tblFiltrosTX_NOME_FILTRO: TWideStringField + FieldName = 'TX_NOME_FILTRO' + Size = 255 + end + object tblFiltrosTP_CREDOR: TWideStringField + FieldName = 'TP_CREDOR' + Size = 1 + end + object tblFiltrosTX_CREDOR: TWideStringField + FieldName = 'TX_CREDOR' + Size = 255 + end + object tblFiltrosTP_PROVIDENCIA: TWideStringField + FieldName = 'TP_PROVIDENCIA' + Size = 1 + end + object tblFiltrosTX_PROVIDENCIA: TWideStringField + FieldName = 'TX_PROVIDENCIA' + Size = 255 + end + object tblFiltrosCD_PROVIDENCIA: TWideStringField + FieldName = 'CD_PROVIDENCIA' + Size = 1 + end + object tblFiltrosTP_VALOR: TWideStringField + FieldName = 'TP_VALOR' + Size = 1 + end + object tblFiltrosVL_VALORIN: TFloatField + FieldName = 'VL_VALORIN' + end + object tblFiltrosVL_VALORFIM: TFloatField + FieldName = 'VL_VALORFIM' + end + object tblFiltrosTP_AGENDADO: TWideStringField + FieldName = 'TP_AGENDADO' + Size = 1 + end + object tblFiltrosTX_AGENDADO: TWideStringField + FieldName = 'TX_AGENDADO' + Size = 1 + end + object tblFiltrosTP_NOME: TWideStringField + FieldName = 'TP_NOME' + Size = 1 + end + object tblFiltrosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 10 + end + object tblFiltrosTP_ATRASO: TWideStringField + FieldName = 'TP_ATRASO' + Size = 1 + end + object tblFiltrosTX_ATRASOIN: TIntegerField + FieldName = 'TX_ATRASOIN' + end + object tblFiltrosTX_ATRASOFIM: TIntegerField + FieldName = 'TX_ATRASOFIM' + end + object tblFiltrosTP_PESSOA: TWideStringField + FieldName = 'TP_PESSOA' + Size = 1 + end + object tblFiltrosCD_PESSOA: TWideStringField + FieldName = 'CD_PESSOA' + Size = 1 + end + object tblFiltrosTP_TITULO: TWideStringField + FieldName = 'TP_TITULO' + Size = 1 + end + object tblFiltrosCD_TITULO: TWideStringField + FieldName = 'CD_TITULO' + Size = 1 + end + object tblFiltrosCD_ORDEM: TWideStringField + FieldName = 'CD_ORDEM' + Size = 1 + end + object tblFiltrosTL_CREDOR: TWideMemoField + FieldName = 'TL_CREDOR' + BlobType = ftWideMemo + end + object tblFiltrosTL_PROV: TWideMemoField + FieldName = 'TL_PROV' + BlobType = ftWideMemo + end + end + object tblAgenda: TZQuery + Connection = ZConnection + BeforeEdit = tblAgendaBeforeEdit + BeforePost = tblAgendaBeforePost + BeforeDelete = tblAgendaBeforeDelete + SQL.Strings = ( + 'select * from chg_agenda' + 'order by DT_AGENDADA, HR_AGENDADA') + Params = <> + Left = 760 + Top = 24 + object tblAgendaID_AGENDA: TIntegerField + FieldName = 'ID_AGENDA' + Required = True + end + object tblAgendaID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + Required = True + end + object tblAgendaID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblAgendaDT_AGENDADA: TDateField + FieldName = 'DT_AGENDADA' + end + object tblAgendaHR_AGENDADA: TTimeField + FieldName = 'HR_AGENDADA' + end + object tblAgendaTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 1 + end + object tblAgendaTX_NOME: TStringField + FieldKind = fkLookup + FieldName = 'TX_NOME' + LookupDataSet = tblDevedores + LookupKeyFields = 'ID_DEVEDOR' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_DEVEDOR' + Size = 255 + Lookup = True + end + object tblAgendaNOME_COBRADOR: TStringField + FieldKind = fkLookup + FieldName = 'NOME_COBRADOR' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_COBRADOR' + Size = 60 + Lookup = True + end + object tblAgendaDT_QUE_AGENDOU: TDateTimeField + FieldName = 'DT_QUE_AGENDOU' + end + object tblAgendaQUEM_AGENDOU: TIntegerField + FieldName = 'QUEM_AGENDOU' + end + object tblAgendaNOME_QUEM_AGENDOU: TStringField + FieldKind = fkLookup + FieldName = 'NOME_QUEM_AGENDOU' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'QUEM_AGENDOU' + Size = 255 + Lookup = True + end + end + object tblLayouts: TZQuery + Connection = ZConnection + SortedFields = 'ID_LAYOUT' + BeforeEdit = tblLayoutsBeforeEdit + BeforePost = tblLayoutsBeforePost + BeforeDelete = tblLayoutsBeforeDelete + SQL.Strings = ( + 'select * from sys_layouts') + Params = <> + IndexFieldNames = 'ID_LAYOUT Asc' + Left = 760 + Top = 80 + object tblLayoutsID_LAYOUT: TIntegerField + FieldName = 'ID_LAYOUT' + Required = True + end + object tblLayoutsTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 40 + end + object tblLayoutsSTR_CAMPOS: TWideStringField + FieldName = 'STR_CAMPOS' + Size = 255 + end + object tblLayoutsNR_QNTCAMPOS: TFloatField + FieldName = 'NR_QNTCAMPOS' + end + end + object tblIndices: TZQuery + Connection = ZConnection + SortedFields = 'ID_INDICE' + BeforeEdit = tblIndicesBeforeEdit + BeforePost = tblIndicesBeforePost + BeforeDelete = tblIndicesBeforeDelete + SQL.Strings = ( + 'select * from sys_indices') + Params = <> + IndexFieldNames = 'ID_INDICE Asc' + Left = 760 + Top = 184 + object tblIndicesID_INDICE: TIntegerField + FieldName = 'ID_INDICE' + Required = True + end + object tblIndicesTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblIndicesPR_INDICE: TFloatField + FieldName = 'PR_INDICE' + Required = True + end + end + object tblRecibo: TZQuery + Connection = ZConnection + SortedFields = 'ID_RECIBO' + BeforeEdit = tblReciboBeforeEdit + BeforePost = tblReciboBeforePost + BeforeDelete = tblReciboBeforeDelete + SQL.Strings = ( + 'select * from sys_recibos') + Params = <> + IndexFieldNames = 'ID_RECIBO Asc' + Sequence = seqRecibos + SequenceField = 'ID_RECIBO' + Left = 72 + Top = 608 + object tblReciboID_RECIBO: TIntegerField + FieldName = 'ID_RECIBO' + Required = True + end + object tblReciboNR_RECIBO: TWideStringField + FieldName = 'NR_RECIBO' + Required = True + end + object tblReciboTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 255 + end + object tblReciboTX_CPF: TWideStringField + FieldName = 'TX_CPF' + Size = 14 + end + object tblReciboTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + object tblReciboID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object tblReciboVL_TOTAL: TFloatField + FieldName = 'VL_TOTAL' + end + object tblReciboVL_PRINCIPAL: TFloatField + FieldName = 'VL_PRINCIPAL' + end + object tblReciboVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + end + object tblReciboVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + end + object tblReciboVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + end + object tblReciboVL_DESCONTOS: TFloatField + FieldName = 'VL_DESCONTOS' + end + object tblReciboVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + end + object tblReciboTP_RECEBIMENTO: TWideStringField + FieldName = 'TP_RECEBIMENTO' + Size = 2 + end + object tblReciboNR_CHEQUE: TWideStringField + FieldName = 'NR_CHEQUE' + end + object tblReciboID_BANCO: TIntegerField + FieldName = 'ID_BANCO' + end + object tblReciboTX_PRACA: TWideStringField + FieldName = 'TX_PRACA' + Size = 200 + end + object tblReciboID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + end + object tblReciboDT_IMPRESSAO: TDateTimeField + FieldName = 'DT_IMPRESSAO' + end + object tblReciboTX_CAMINHO: TWideStringField + FieldName = 'TX_CAMINHO' + Size = 255 + end + object tblReciboTX_CAIXA: TStringField + FieldKind = fkLookup + FieldName = 'TX_CAIXA' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_USUARIO' + Size = 25 + Lookup = True + end + object tblReciboTP_CANCELADO: TWideStringField + FieldName = 'TP_CANCELADO' + Size = 1 + end + end + object tblConteudoRecibo: TZQuery + Connection = ZConnection + SortedFields = 'ID_RECIBO' + BeforePost = tblConteudoReciboBeforePost + SQL.Strings = ( + 'select * from SYS_CONTEUDO_RECIBO') + Params = <> + IndexFieldNames = 'ID_RECIBO Asc' + Left = 760 + Top = 248 + object tblConteudoReciboID_CONTEUDO: TIntegerField + FieldName = 'ID_CONTEUDO' + Required = True + end + object tblConteudoReciboTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 255 + end + object tblConteudoReciboDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + end + object tblConteudoReciboVL_PRINCIPAL: TFloatField + FieldName = 'VL_PRINCIPAL' + currency = True + end + object tblConteudoReciboVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + currency = True + end + object tblConteudoReciboVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + currency = True + end + object tblConteudoReciboVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + currency = True + end + object tblConteudoReciboVL_DESCONTOS: TFloatField + FieldName = 'VL_DESCONTOS' + currency = True + end + object tblConteudoReciboVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + currency = True + end + object tblConteudoReciboID_RECIBO: TIntegerField + FieldName = 'ID_RECIBO' + end + object tblConteudoReciboVL_DESPESA: TFloatField + FieldName = 'VL_DESPESA' + currency = True + end + object tblConteudoReciboTX_DEPESA: TWideStringField + FieldName = 'TX_DEPESA' + Size = 255 + end + object tblConteudoReciboVL_EXTRAS: TFloatField + FieldName = 'VL_EXTRAS' + currency = True + end + end + object tblDuplicados: TZQuery + Connection = ZConnection + SortedFields = 'ID_DUPLICADO' + BeforePost = tblDuplicadosBeforePost + SQL.Strings = ( + 'select * from SYS_DUPLICADOS') + Params = <> + IndexFieldNames = 'ID_DUPLICADO Asc' + Left = 760 + Top = 304 + object tblDuplicadosID_DUPLICADO: TIntegerField + FieldName = 'ID_DUPLICADO' + Required = True + end + object tblDuplicadosTX_NOMEDEVEDOR: TWideStringField + FieldName = 'TX_NOMEDEVEDOR' + Size = 60 + end + object tblDuplicadosCD_CPF: TWideStringField + FieldName = 'CD_CPF' + Size = 14 + end + object tblDuplicadosTX_NOMETITULO: TWideStringField + FieldName = 'TX_NOMETITULO' + Size = 100 + end + object tblDuplicadosVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + end + object tblDuplicadosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + end + object tblDuplicadosTP_ACAO: TWideStringField + FieldName = 'TP_ACAO' + Size = 1 + end + object tblDuplicadosCD_CNPJ: TWideStringField + FieldName = 'CD_CNPJ' + Size = 18 + end + end + object tblLogins: TZQuery + Connection = ZConnection + SortedFields = 'ID_LOGIN' + SortType = stDescending + BeforePost = tblLoginsBeforePost + SQL.Strings = ( + 'select * from SYS_LOGINS') + Params = <> + IndexFieldNames = 'ID_LOGIN Desc' + Left = 520 + Top = 360 + object tblLoginsID_LOGIN: TIntegerField + FieldName = 'ID_LOGIN' + Required = True + end + object tblLoginsID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + end + object tblLoginsDT_LOGIN: TDateField + FieldName = 'DT_LOGIN' + end + object tblLoginsHR_LOGIN: TTimeField + FieldName = 'HR_LOGIN' + end + object tblLoginsDT_LOGOFF: TDateField + FieldName = 'DT_LOGOFF' + end + object tblLoginsHR_LOGOFF: TTimeField + FieldName = 'HR_LOGOFF' + end + end + object tblEmpresa: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + BeforeEdit = tblEmpresaBeforeEdit + BeforePost = tblEmpresaBeforePost + BeforeDelete = tblEmpresaBeforeDelete + SQL.Strings = ( + 'select * from SYS_EMPRESA') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 40 + Top = 80 + object tblEmpresaID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object tblEmpresaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + object tblEmpresaTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 40 + end + object tblEmpresaTX_ENDERECO: TWideStringField + FieldName = 'TX_ENDERECO' + Size = 100 + end + object tblEmpresaNR_NUMERO: TIntegerField + FieldName = 'NR_NUMERO' + end + object tblEmpresaTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + end + object tblEmpresaTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 60 + end + object tblEmpresaID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object tblEmpresaTX_CEP: TWideStringField + FieldName = 'TX_CEP' + Size = 9 + end + object tblEmpresaTX_TELEFONE: TWideStringField + FieldName = 'TX_TELEFONE' + Size = 40 + end + object tblEmpresaTX_WEBSITE: TWideStringField + FieldName = 'TX_WEBSITE' + Size = 60 + end + object tblEmpresaTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + object tblEmpresaTX_IE: TWideStringField + FieldName = 'TX_IE' + end + object tblEmpresaTX_IM: TWideStringField + FieldName = 'TX_IM' + end + object tblEmpresaTL_OBSERVACOES: TWideMemoField + FieldName = 'TL_OBSERVACOES' + BlobType = ftWideMemo + end + object tblEmpresaTX_LOGOMARCA: TWideStringField + FieldName = 'TX_LOGOMARCA' + Size = 100 + end + object tblEmpresaTX_HONORARIOS: TWideStringField + FieldName = 'TX_HONORARIOS' + end + object tblEmpresaPR_DEBITO: TFloatField + FieldName = 'PR_DEBITO' + end + object tblEmpresaPR_CREDVISTA: TFloatField + FieldName = 'PR_CREDVISTA' + end + object tblEmpresaPR_CRED3: TFloatField + FieldName = 'PR_CRED3' + end + object tblEmpresaPR_CRED6: TFloatField + FieldName = 'PR_CRED6' + end + object tblEmpresaPR_CRED12: TFloatField + FieldName = 'PR_CRED12' + end + object tblEmpresaIMG_LOGO: TBlobField + FieldName = 'IMG_LOGO' + end + object tblEmpresaPR_FINANCIAMENTO: TFloatField + FieldName = 'PR_FINANCIAMENTO' + end + object tblEmpresaTX_TITULO: TWideStringField + FieldName = 'TX_TITULO' + Size = 60 + end + object tblEmpresaID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object tblEmpresaTX_EMAILNOME: TWideStringField + FieldName = 'TX_EMAILNOME' + Size = 100 + end + object tblEmpresaTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 100 + end + object tblEmpresaTX_SMTP: TWideStringField + FieldName = 'TX_SMTP' + Size = 100 + end + object tblEmpresaTX_PORTA: TWideStringField + FieldName = 'TX_PORTA' + Size = 10 + end + object tblEmpresaTX_USUARIO: TWideStringField + FieldName = 'TX_USUARIO' + Size = 100 + end + object tblEmpresaTX_SENHA: TWideStringField + FieldName = 'TX_SENHA' + Size = 100 + end + object tblEmpresaPR_BANCO_DEBITO: TFloatField + FieldName = 'PR_BANCO_DEBITO' + end + object tblEmpresaPR_BANCO_CREDVISTA: TFloatField + FieldName = 'PR_BANCO_CREDVISTA' + end + object tblEmpresaPR_BANCO_CRED3: TFloatField + FieldName = 'PR_BANCO_CRED3' + end + object tblEmpresaPR_BANCO_CRED6: TFloatField + FieldName = 'PR_BANCO_CRED6' + end + object tblEmpresaPR_BANCO_CRED12: TFloatField + FieldName = 'PR_BANCO_CRED12' + end + object tblEmpresaTP_TLS: TWideStringField + FieldName = 'TP_TLS' + Size = 1 + end + object tblEmpresaTP_SSL: TWideStringField + FieldName = 'TP_SSL' + Size = 1 + end + object tblEmpresaTX_CNPJ_BOLETO: TWideStringField + FieldName = 'TX_CNPJ_BOLETO' + Size = 18 + end + object tblEmpresaCD_BENEFICIARIO: TWideStringField + FieldName = 'CD_BENEFICIARIO' + Size = 5 + end + end + object tblPermissoes: TZQuery + Connection = ZConnection + SortedFields = 'ID_PERMISSAO' + BeforeEdit = tblPermissoesBeforeEdit + BeforePost = tblPermissoesBeforePost + BeforeDelete = tblPermissoesBeforeDelete + SQL.Strings = ( + 'select * from sys_permissoes') + Params = <> + IndexFieldNames = 'ID_PERMISSAO Asc' + Left = 40 + Top = 240 + object tblPermissoesID_PERMISSAO: TIntegerField + FieldName = 'ID_PERMISSAO' + Required = True + end + object tblPermissoesCD_PERMISSAO: TWideStringField + FieldName = 'CD_PERMISSAO' + end + object tblPermissoesTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 40 + end + object tblPermissoesID_PARENT: TIntegerField + FieldName = 'ID_PARENT' + end + object tblPermissoesTP_ACESSO: TWideStringField + FieldName = 'TP_ACESSO' + Size = 1 + end + end + object tblRepasse: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterOpen = tblRepasseAfterOpen + BeforeEdit = tblRepasseBeforeEdit + BeforePost = tblRepasseBeforePost + BeforeDelete = tblRepasseBeforeDelete + SQL.Strings = ( + 'select * from SYS_REPASSES') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 760 + Top = 360 + object tblRepasseID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + Required = True + end + object tblRepassePR_PRINCIPAL: TFloatField + FieldName = 'PR_PRINCIPAL' + end + object tblRepassePR_JUROS: TFloatField + FieldName = 'PR_JUROS' + end + object tblRepassePR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object tblRepassePR_ENCARGOS: TFloatField + FieldName = 'PR_ENCARGOS' + end + object tblRepassePR_CORRIGIDO: TFloatField + FieldName = 'PR_CORRIGIDO' + end + object tblRepasseTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 40 + end + end + object tblSessao: TZQuery + Connection = ZConnection + BeforePost = tblSessaoBeforePost + SQL.Strings = ( + 'select * from SYS_SESSAO') + Params = <> + Left = 760 + Top = 416 + object tblSessaoID_SESSAO: TIntegerField + FieldName = 'ID_SESSAO' + Required = True + end + object tblSessaoID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + end + object tblSessaoTP_ATIVA: TWideStringField + FieldName = 'TP_ATIVA' + Size = 1 + end + end + object tblCobCampanha: TZQuery + Connection = ZConnection + SortedFields = 'ID_CAMPANHA' + AfterOpen = tblCobCampanhaAfterOpen + BeforeEdit = tblCobCampanhaBeforeEdit + BeforePost = tblCobCampanhaBeforePost + BeforeDelete = tblCobCampanhaBeforeDelete + SQL.Strings = ( + 'select * from CHG_CAMPANHAS') + Params = <> + IndexFieldNames = 'ID_CAMPANHA Asc' + Left = 520 + Top = 192 + object tblCobCampanhaID_CAMPANHA: TIntegerField + FieldName = 'ID_CAMPANHA' + Required = True + end + object tblCobCampanhaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 40 + end + object tblCobCampanhaTP_ATIVA: TWideStringField + FieldName = 'TP_ATIVA' + Size = 1 + end + object tblCobCampanhaTP_CONCLUIDA: TWideStringField + FieldName = 'TP_CONCLUIDA' + Size = 1 + end + object tblCobCampanhaTX_DESC: TWideStringField + FieldName = 'TX_DESC' + Size = 255 + end + object tblCobCampanhaDT_CAD: TDateField + FieldName = 'DT_CAD' + end + object tblCobCampanhaQUEM_CAD: TIntegerField + FieldName = 'QUEM_CAD' + end + object tblCobCampanhaTL_DESC: TWideMemoField + FieldName = 'TL_DESC' + BlobType = ftWideMemo + end + end + object tblCHGEmpresa: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterOpen = tblCHGEmpresaAfterOpen + BeforeEdit = tblCHGEmpresaBeforeEdit + BeforePost = tblCHGEmpresaBeforePost + BeforeDelete = tblCHGEmpresaBeforeDelete + AfterDelete = tblCHGEmpresaAfterDelete + SQL.Strings = ( + 'select * from CHG_EMPRESAS') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 288 + Top = 144 + object tblCHGEmpresaID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object tblCHGEmpresaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + object tblCHGEmpresaTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 100 + end + object tblCHGEmpresaTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + object tblCHGEmpresaTX_IE: TWideStringField + FieldName = 'TX_IE' + end + object tblCHGEmpresaTX_ENDERECO: TWideStringField + FieldName = 'TX_ENDERECO' + Size = 100 + end + object tblCHGEmpresaTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + end + object tblCHGEmpresaID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object tblCHGEmpresaTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 60 + end + object tblCHGEmpresaID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object tblCHGEmpresaTX_CEP: TWideStringField + FieldName = 'TX_CEP' + Size = 9 + end + object tblCHGEmpresaTX_TELEFONE: TWideStringField + FieldName = 'TX_TELEFONE' + Size = 40 + end + object tblCHGEmpresaTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 60 + end + object tblCHGEmpresaTX_WEBSITE: TWideStringField + FieldName = 'TX_WEBSITE' + Size = 60 + end + object tblCHGEmpresaNR_NUMERO: TIntegerField + FieldName = 'NR_NUMERO' + end + object tblCHGEmpresaTX_IM: TWideStringField + FieldName = 'TX_IM' + end + object tblCHGEmpresaTL_OBSERVACOES: TWideMemoField + FieldName = 'TL_OBSERVACOES' + BlobType = ftWideMemo + end + object tblCHGEmpresaID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object tblCHGEmpresaTP_ENTRADA: TWideStringField + FieldName = 'TP_ENTRADA' + Size = 2 + end + object tblCHGEmpresaPR_MULTA: TFloatField + FieldName = 'PR_MULTA' + Required = True + end + object tblCHGEmpresaTP_JUROS: TWideStringField + FieldName = 'TP_JUROS' + Required = True + Size = 1 + end + object tblCHGEmpresaPR_JUROS: TFloatField + FieldName = 'PR_JUROS' + Required = True + end + object tblCHGEmpresaNR_JUROS: TFloatField + FieldName = 'NR_JUROS' + Required = True + end + object tblCHGEmpresaNR_PARCELAS: TIntegerField + FieldName = 'NR_PARCELAS' + end + object tblCHGEmpresaPR_DESC_QUIT_PRIN: TFloatField + FieldName = 'PR_DESC_QUIT_PRIN' + Required = True + end + object tblCHGEmpresaPR_DESC_QUIT_JUROS: TFloatField + FieldName = 'PR_DESC_QUIT_JUROS' + Required = True + end + object tblCHGEmpresaPR_DESC_QUIT_IND_FIN: TFloatField + FieldName = 'PR_DESC_QUIT_IND_FIN' + Required = True + end + object tblCHGEmpresaPR_DESC_QUIT_COR: TFloatField + FieldName = 'PR_DESC_QUIT_COR' + end + object tblCHGEmpresaPR_DESC_FINAN_PRIN: TFloatField + FieldName = 'PR_DESC_FINAN_PRIN' + Required = True + end + object tblCHGEmpresaPR_DESC_FINAN_JUROS: TFloatField + FieldName = 'PR_DESC_FINAN_JUROS' + Required = True + end + object tblCHGEmpresaPR_DESC_FINAN_MULTA: TFloatField + FieldName = 'PR_DESC_FINAN_MULTA' + Required = True + end + object tblCHGEmpresaPR_DESC_FINAN_IND_FIN: TFloatField + FieldName = 'PR_DESC_FINAN_IND_FIN' + Required = True + end + object tblCHGEmpresaPR_DESC_FINAN_COR: TFloatField + FieldName = 'PR_DESC_FINAN_COR' + end + object tblCHGEmpresaPR_INDICADOR_FINANCEIRO: TFloatField + FieldName = 'PR_INDICADOR_FINANCEIRO' + Required = True + end + object tblCHGEmpresaPR_JUROS_PARCELAR: TFloatField + FieldName = 'PR_JUROS_PARCELAR' + end + object tblCHGEmpresaPR_ENTRADA_MIN: TFloatField + FieldName = 'PR_ENTRADA_MIN' + Required = True + end + object tblCHGEmpresaPR_ENTRADA_MAX: TFloatField + FieldName = 'PR_ENTRADA_MAX' + end + object tblCHGEmpresaTP_CHEQUE: TWideStringField + FieldName = 'TP_CHEQUE' + Size = 1 + end + object tblCHGEmpresaTP_CRED: TWideStringField + FieldName = 'TP_CRED' + Size = 1 + end + object tblCHGEmpresaTP_DIN: TWideStringField + FieldName = 'TP_DIN' + Size = 1 + end + object tblCHGEmpresaPR_DESC_QUIT_MULTA: TFloatField + FieldName = 'PR_DESC_QUIT_MULTA' + Required = True + end + object tblCHGEmpresaID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblCHGEmpresaDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object tblCHGEmpresaID_DEPARTAMENTO: TIntegerField + FieldName = 'ID_DEPARTAMENTO' + end + end + object tblEstados: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterOpen = tblEstadosAfterOpen + SQL.Strings = ( + 'select * from SYS_ESTADOS') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 288 + Top = 24 + object tblEstadosID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + Required = True + end + object tblEstadosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 40 + end + object tblEstadosCD_ESTADO: TWideStringField + FieldName = 'CD_ESTADO' + Size = 2 + end + object tblEstadosTX_SIGLA: TWideStringField + FieldName = 'TX_SIGLA' + Size = 2 + end + end + object tblUsuariosConsulta: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + SQL.Strings = ( + 'select * from SYS_USUARIOS' + 'where tp_ativo = '#39'S'#39) + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 168 + Top = 408 + object tblUsuariosConsultaID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object tblUsuariosConsultaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblUsuariosConsultaTX_USUARIO: TWideStringField + FieldName = 'TX_USUARIO' + Size = 10 + end + object tblUsuariosConsultaTX_SENHA: TWideStringField + FieldName = 'TX_SENHA' + Size = 40 + end + object tblUsuariosConsultaID_GRUPO: TIntegerField + FieldName = 'ID_GRUPO' + end + object tblUsuariosConsultaTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object tblUsuariosConsultaTP_TROCAPASS: TWideStringField + FieldName = 'TP_TROCAPASS' + Size = 1 + end + object tblUsuariosConsultaTX_EMAILNOME: TWideStringField + FieldName = 'TX_EMAILNOME' + Size = 100 + end + object tblUsuariosConsultaTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 100 + end + object tblUsuariosConsultaTX_SMTP: TWideStringField + FieldName = 'TX_SMTP' + Size = 100 + end + object tblUsuariosConsultaTX_PORTA: TWideStringField + FieldName = 'TX_PORTA' + Size = 10 + end + object tblUsuariosConsultaTX_USUARIOEMAIL: TWideStringField + FieldName = 'TX_USUARIOEMAIL' + Size = 100 + end + object tblUsuariosConsultaTX_SENHAEMAIL: TWideStringField + FieldName = 'TX_SENHAEMAIL' + Size = 100 + end + object tblUsuariosConsultaTP_SSL: TWideStringField + FieldName = 'TP_SSL' + Size = 1 + end + object tblUsuariosConsultaTP_TLS: TWideStringField + FieldName = 'TP_TLS' + Size = 1 + end + end + object tblGrupos: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterOpen = tblGruposAfterOpen + AfterInsert = tblGruposAfterInsert + BeforeEdit = tblGruposBeforeEdit + BeforePost = tblGruposBeforePost + BeforeDelete = tblGruposBeforeDelete + SQL.Strings = ( + 'select * from SYS_GRUPOS') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 40 + Top = 184 + object tblGruposID_GRUPO: TIntegerField + FieldName = 'ID_GRUPO' + Required = True + end + object tblGruposTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 40 + end + object tblGruposTP_SU: TWideStringField + FieldName = 'TP_SU' + Size = 1 + end + end + object tblUsuarios: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + BeforeOpen = tblUsuariosBeforeOpen + AfterInsert = tblUsuariosAfterInsert + BeforeEdit = tblUsuariosBeforeEdit + BeforePost = tblUsuariosBeforePost + BeforeDelete = tblUsuariosBeforeDelete + SQL.Strings = ( + 'select * from SYS_USUARIOS') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 40 + Top = 128 + object tblUsuariosID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object tblUsuariosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblUsuariosTX_USUARIO: TWideStringField + FieldName = 'TX_USUARIO' + Size = 10 + end + object tblUsuariosTX_SENHA: TWideStringField + FieldName = 'TX_SENHA' + Size = 40 + end + object tblUsuariosID_GRUPO: TIntegerField + FieldName = 'ID_GRUPO' + end + object tblUsuariosTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object tblUsuariosTP_TROCAPASS: TWideStringField + FieldName = 'TP_TROCAPASS' + Size = 1 + end + object tblUsuariosTX_EMAILNOME: TWideStringField + FieldName = 'TX_EMAILNOME' + Size = 100 + end + object tblUsuariosTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 100 + end + object tblUsuariosTX_SMTP: TWideStringField + FieldName = 'TX_SMTP' + Size = 100 + end + object tblUsuariosTX_PORTA: TWideStringField + FieldName = 'TX_PORTA' + Size = 10 + end + object tblUsuariosTX_USUARIOEMAIL: TWideStringField + FieldName = 'TX_USUARIOEMAIL' + Size = 100 + end + object tblUsuariosTX_SENHAEMAIL: TWideStringField + FieldName = 'TX_SENHAEMAIL' + Size = 100 + end + object tblUsuariosTP_SSL: TWideStringField + FieldName = 'TP_SSL' + Size = 1 + end + object tblUsuariosTP_TLS: TWideStringField + FieldName = 'TP_TLS' + Size = 1 + end + end + object tblGruposPermissoes: TZQuery + Connection = ZConnection + SortedFields = 'ID_ITEM' + BeforeOpen = tblGruposPermissoesBeforeOpen + AfterInsert = tblGruposPermissoesAfterInsert + BeforeEdit = tblGruposPermissoesBeforeEdit + BeforePost = tblGruposPermissoesBeforePost + AfterPost = tblGruposPermissoesAfterPost + BeforeDelete = tblGruposPermissoesBeforeDelete + SQL.Strings = ( + 'select * from SYS_GRUPOS_PERMISSOES') + Params = <> + IndexFieldNames = 'ID_ITEM Asc' + Left = 40 + Top = 296 + object tblGruposPermissoesID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblGruposPermissoesID_GRUPO: TIntegerField + FieldName = 'ID_GRUPO' + end + object tblGruposPermissoesID_PERMISSAO: TIntegerField + FieldName = 'ID_PERMISSAO' + end + object tblGruposPermissoesTP_ACESSO: TWideStringField + FieldName = 'TP_ACESSO' + Size = 1 + end + end + object tblCampanhaCob: TZQuery + Connection = ZConnection + SortedFields = 'ID_ITEM' + BeforeOpen = tblCampanhaCobBeforeOpen + BeforeEdit = tblCampanhaCobBeforeEdit + BeforePost = tblCampanhaCobBeforePost + BeforeDelete = tblCampanhaCobBeforeDelete + SQL.Strings = ( + 'select * from CHG_CAMPANHAS_COBRADORES') + Params = <> + IndexFieldNames = 'ID_ITEM Asc' + Left = 520 + Top = 248 + object tblCampanhaCobID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblCampanhaCobID_CAMPANHA: TIntegerField + FieldName = 'ID_CAMPANHA' + end + object tblCampanhaCobID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + object tblCampanhaCobID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblCampanhaCobDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object tblCampanhaDevedores: TZQuery + Connection = ZConnection + SortedFields = 'ID_ITEM' + BeforeOpen = tblCampanhaDevedoresBeforeOpen + BeforeEdit = tblCampanhaDevedoresBeforeEdit + BeforePost = tblCampanhaDevedoresBeforePost + BeforeDelete = tblCampanhaDevedoresBeforeDelete + SQL.Strings = ( + 'select * from CHG_CAMPANHAS_DEVEDORES') + Params = <> + IndexFieldNames = 'ID_ITEM Asc' + Left = 520 + Top = 304 + object tblCampanhaDevedoresID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblCampanhaDevedoresID_CAMPANHA: TIntegerField + FieldName = 'ID_CAMPANHA' + Required = True + end + object tblCampanhaDevedoresID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblCampanhaDevedoresTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + end + object tblCampanhaDevedoresTP_ESTADO: TWideStringField + FieldName = 'TP_ESTADO' + Size = 1 + end + object tblCampanhaDevedoresTX_NOME: TStringField + FieldKind = fkLookup + FieldName = 'TX_NOME' + LookupDataSet = tblDevedores + LookupKeyFields = 'ID_DEVEDOR' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_DEVEDOR' + Size = 120 + Lookup = True + end + object tblCampanhaDevedoresTP_COBRANDO: TIntegerField + FieldName = 'TP_COBRANDO' + end + object tblCampanhaDevedoresID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblCampanhaDevedoresDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object tblHistorico: TZQuery + Connection = ZConnection + SortType = stIgnored + BeforeOpen = tblHistoricoBeforeOpen + BeforeEdit = tblHistoricoBeforeEdit + BeforePost = tblHistoricoBeforePost + AfterPost = tblHistoricoAfterPost + BeforeDelete = tblHistoricoBeforeDelete + OnPostError = tblHistoricoPostError + SQL.Strings = ( + 'select * from CHG_HISTORICO' + 'order by DT_CONTATO DESC') + Params = <> + Sequence = seqHistoricos + SequenceField = 'ID_HISTORICO' + Left = 304 + Top = 656 + object tblHistoricoID_HISTORICO: TIntegerField + FieldName = 'ID_HISTORICO' + Required = True + end + object tblHistoricoID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object tblHistoricoID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + object tblHistoricoID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + end + object tblHistoricoID_PROVIDENCIA: TIntegerField + FieldName = 'ID_PROVIDENCIA' + end + object tblHistoricoDT_CONTATO: TDateTimeField + FieldName = 'DT_CONTATO' + end + object tblHistoricoTP_AGENDAMENTO: TWideStringField + FieldName = 'TP_AGENDAMENTO' + Size = 1 + end + object tblHistoricoCD_PROTOCOLO: TWideStringField + FieldName = 'CD_PROTOCOLO' + end + object tblHistoricoTL_MEMO: TWideMemoField + FieldName = 'TL_MEMO' + BlobType = ftWideMemo + end + object tblHistoricoID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblHistoricoDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object tblHistoricoID_TITULOS: TWideStringField + FieldName = 'ID_TITULOS' + Size = 255 + end + object tblHistoricoTX_ULTIMO_USUARIO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ULTIMO_USUARIO' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_ULTIMO_USUARIO' + Size = 60 + Lookup = True + end + object tblHistoricoTX_MEMO: TStringField + FieldKind = fkCalculated + FieldName = 'TX_MEMO' + Size = 10 + Calculated = True + end + object tblHistoricoTX_PROVIDENCIA: TStringField + FieldKind = fkLookup + FieldName = 'TX_PROVIDENCIA' + LookupDataSet = tblProvidencias + LookupKeyFields = 'ID_PROVIDENCIA' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_PROVIDENCIA' + Size = 255 + Lookup = True + end + end + object tblProtocolo: TZQuery + Connection = ZConnection + SortedFields = 'ID_PROTOCOLO' + SortType = stDescending + BeforeOpen = tblProtocoloBeforeOpen + BeforeEdit = tblProtocoloBeforeEdit + BeforePost = tblProtocoloBeforePost + BeforeDelete = tblProtocoloBeforeDelete + SQL.Strings = ( + 'select * from CHG_COBRANCA_TITULOS') + Params = <> + IndexFieldNames = 'ID_PROTOCOLO Desc' + Left = 760 + Top = 128 + object tblProtocoloID_PROTOCOLO: TIntegerField + FieldName = 'ID_PROTOCOLO' + Required = True + end + object tblProtocoloCD_PROTOCOLO: TWideStringField + FieldName = 'CD_PROTOCOLO' + Required = True + end + object tblProtocoloQNT_TITULOS: TIntegerField + FieldName = 'QNT_TITULOS' + Required = True + end + object tblProtocoloID_TITULOS: TWideMemoField + FieldName = 'ID_TITULOS' + Required = True + BlobType = ftWideMemo + end + object tblProtocoloID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblProtocoloVL_ENTRADA: TFloatField + FieldName = 'VL_ENTRADA' + Required = True + end + object tblProtocoloVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + Required = True + end + object tblProtocoloVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + Required = True + end + object tblProtocoloVL_INDICADOR: TFloatField + FieldName = 'VL_INDICADOR' + Required = True + end + object tblProtocoloVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + Required = True + end + object tblProtocoloVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + Required = True + end + object tblProtocoloTP_DESC_QUIT: TWideStringField + FieldName = 'TP_DESC_QUIT' + Required = True + Size = 1 + end + object tblProtocoloPR_QUIT_JUROS: TFloatField + FieldName = 'PR_QUIT_JUROS' + Required = True + end + object tblProtocoloPR_QUIT_MULTA: TFloatField + FieldName = 'PR_QUIT_MULTA' + Required = True + end + object tblProtocoloPR_QUIT_INDICADOR: TFloatField + FieldName = 'PR_QUIT_INDICADOR' + Required = True + end + object tblProtocoloPR_QUIT_PRINCIPAL: TFloatField + FieldName = 'PR_QUIT_PRINCIPAL' + Required = True + end + object tblProtocoloTP_DESC_PAR: TWideStringField + FieldName = 'TP_DESC_PAR' + Required = True + Size = 1 + end + object tblProtocoloPR_PARCELAR_JUROS: TFloatField + FieldName = 'PR_PARCELAR_JUROS' + Required = True + end + object tblProtocoloPR_PARCELAR_MULTA: TFloatField + FieldName = 'PR_PARCELAR_MULTA' + Required = True + end + object tblProtocoloPR_PARCELAR_INDICADOR: TFloatField + FieldName = 'PR_PARCELAR_INDICADOR' + Required = True + end + object tblProtocoloPR_PARCELAR_PRINCIPAL: TFloatField + FieldName = 'PR_PARCELAR_PRINCIPAL' + Required = True + end + object tblProtocoloNR_PARCELAS: TIntegerField + FieldName = 'NR_PARCELAS' + Required = True + end + object tblProtocoloDT_PROTOCOLO: TDateTimeField + FieldName = 'DT_PROTOCOLO' + end + object tblProtocoloPR_QUIT_COR: TFloatField + FieldName = 'PR_QUIT_COR' + end + object tblProtocoloPR_PARCELAR_COR: TFloatField + FieldName = 'PR_PARCELAR_COR' + end + object tblProtocoloTP_DESC_QUIT_COR: TWideStringField + FieldName = 'TP_DESC_QUIT_COR' + Size = 1 + end + object tblProtocoloTP_PAG: TWideStringField + FieldName = 'TP_PAG' + Size = 2 + end + object tblProtocoloTP_DESC_PAR_COR: TWideStringField + FieldName = 'TP_DESC_PAR_COR' + Size = 1 + end + object tblProtocoloID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + end + object tblProtocoloPR_ENTRADA: TFloatField + FieldName = 'PR_ENTRADA' + end + end + object tblDespesasTitulos: TZQuery + Connection = ZConnection + SortedFields = 'ID_DESPESA' + BeforeOpen = tblDespesasTitulosBeforeOpen + BeforePost = tblDespesasTitulosBeforePost + SQL.Strings = ( + 'select * from CHG_DESPESAS_TITULOS') + Params = <> + IndexFieldNames = 'ID_DESPESA Asc' + Left = 912 + Top = 24 + object tblDespesasTitulosID_DESPESA: TIntegerField + FieldName = 'ID_DESPESA' + Required = True + end + object tblDespesasTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object tblDespesasTitulosTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 60 + end + object tblDespesasTitulosVL_DESPESA: TFloatField + FieldName = 'VL_DESPESA' + end + object tblDespesasTitulosTP_DESPESA: TWideStringField + FieldName = 'TP_DESPESA' + Size = 10 + end + end + object tblIndicadorFinanceiro: TZQuery + Connection = ZConnection + SortedFields = 'ID_INDICADOR' + BeforeOpen = tblIndicadorFinanceiroBeforeOpen + BeforeEdit = tblIndicadorFinanceiroBeforeEdit + BeforePost = tblIndicadorFinanceiroBeforePost + BeforeDelete = tblIndicadorFinanceiroBeforeDelete + SQL.Strings = ( + 'select * from CHG_INDICADORES_FINANCEIROS') + Params = <> + IndexFieldNames = 'ID_INDICADOR Asc' + Left = 912 + Top = 80 + object tblIndicadorFinanceiroID_INDICADOR: TIntegerField + FieldName = 'ID_INDICADOR' + Required = True + end + object tblIndicadorFinanceiroID_CHG_EMPRESA: TIntegerField + FieldName = 'ID_CHG_EMPRESA' + Required = True + end + object tblIndicadorFinanceiroPR_INDICADOR: TFloatField + FieldName = 'PR_INDICADOR' + end + object tblIndicadorFinanceiroVL_INDICADOR: TFloatField + FieldName = 'VL_INDICADOR' + end + object tblIndicadorFinanceiroTP_INDICADOR: TWideStringField + FieldName = 'TP_INDICADOR' + Size = 1 + end + object tblIndicadorFinanceiroATRASO_MIN: TIntegerField + FieldName = 'ATRASO_MIN' + end + object tblIndicadorFinanceiroATRASO_MAX: TIntegerField + FieldName = 'ATRASO_MAX' + end + end + object tblTelefones: TZQuery + Connection = ZConnection + SortedFields = 'ID_TELEFONE' + BeforeOpen = tblTelefonesBeforeOpen + BeforeEdit = tblTelefonesBeforeEdit + BeforePost = tblTelefonesBeforePost + BeforeDelete = tblTelefonesBeforeDelete + SQL.Strings = ( + 'select * from CHG_TELEFONES') + Params = <> + IndexFieldNames = 'ID_TELEFONE Asc' + Sequence = seqTelefones + SequenceField = 'ID_TELEFONE' + Left = 544 + Top = 608 + object tblTelefonesID_TELEFONE: TIntegerField + FieldName = 'ID_TELEFONE' + Required = True + end + object tblTelefonesID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblTelefonesNR_DDD: TWideStringField + FieldName = 'NR_DDD' + Size = 4 + end + object tblTelefonesNR_NUMERO: TWideStringField + FieldName = 'NR_NUMERO' + end + object tblTelefonesTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object tblTelefonesTP_TIPOTEL: TWideStringField + FieldName = 'TP_TIPOTEL' + Size = 1 + end + object tblTelefonesTP_SMS: TWideStringField + FieldName = 'TP_SMS' + Size = 1 + end + object tblTelefonesTX_DESC: TWideStringField + FieldName = 'TX_DESC' + Size = 100 + end + object tblTelefonesTX_OBS: TWideMemoField + FieldName = 'TX_OBS' + BlobType = ftWideMemo + end + object tblTelefonesID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object tblTelefonesTX_ULTIMO_USUARIO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ULTIMO_USUARIO' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_ULTIMO_USUARIO' + Size = 60 + Lookup = True + end + end + object tblEnderecos: TZQuery + Connection = ZConnection + SortedFields = 'ID_ENDERECO' + BeforeOpen = tblEnderecosBeforeOpen + BeforeEdit = tblEnderecosBeforeEdit + BeforePost = tblEnderecosBeforePost + BeforeDelete = tblEnderecosBeforeDelete + SQL.Strings = ( + 'select * from CHG_ENDERECOS') + Params = <> + IndexFieldNames = 'ID_ENDERECO Asc' + Sequence = seqEnderecos + SequenceField = 'ID_ENDERECO' + Left = 304 + Top = 608 + object tblEnderecosID_ENDERECO: TIntegerField + FieldName = 'ID_ENDERECO' + Required = True + end + object tblEnderecosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblEnderecosTP_ENDERECO: TWideStringField + FieldName = 'TP_ENDERECO' + Size = 1 + end + object tblEnderecosTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object tblEnderecosTX_LOGRADOURO: TWideStringField + FieldName = 'TX_LOGRADOURO' + Size = 100 + end + object tblEnderecosTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 100 + end + object tblEnderecosID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object tblEnderecosID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object tblEnderecosTX_CEP: TWideStringField + FieldName = 'TX_CEP' + Size = 9 + end + object tblEnderecosTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + Size = 100 + end + object tblEnderecosNR_NUMERO: TFloatField + FieldName = 'NR_NUMERO' + end + object tblEnderecosTP_REFERENCIA: TWideStringField + FieldName = 'TP_REFERENCIA' + Size = 1 + end + object tblEnderecosID_HIGIENIZADORA: TIntegerField + FieldName = 'ID_HIGIENIZADORA' + end + object tblEnderecosTP_CONFIRMADO: TWideStringField + FieldName = 'TP_CONFIRMADO' + Size = 1 + end + object tblEnderecosID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblEnderecosDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object tblEnderecosTX_ULTIMO_USUARIO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ULTIMO_USUARIO' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_ULTIMO_USUARIO' + Size = 60 + Lookup = True + end + object tblEnderecosTX_ESTADO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ESTADO' + LookupDataSet = tblEstados + LookupKeyFields = 'ID_ESTADO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_ESTADO' + Size = 60 + Lookup = True + end + object tblEnderecosTX_CIDADE: TStringField + FieldKind = fkLookup + FieldName = 'TX_CIDADE' + LookupDataSet = tblCidades + LookupKeyFields = 'ID_CIDADE' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_CIDADE' + Size = 60 + Lookup = True + end + end + object tblFaixas: TZQuery + Connection = ZConnection + SortedFields = 'ID_FAIXA' + AfterInsert = tblFaixasAfterInsert + BeforeEdit = tblFaixasBeforeEdit + BeforePost = tblFaixasBeforePost + BeforeDelete = tblFaixasBeforeDelete + SQL.Strings = ( + 'select * from CHG_FAIXAS') + Params = <> + MasterFields = 'ID_POLITICA' + MasterSource = dtsPoliticas + LinkedFields = 'ID_POLITICA' + IndexFieldNames = 'ID_FAIXA Asc' + Left = 288 + Top = 256 + object tblFaixasID_FAIXA: TIntegerField + FieldName = 'ID_FAIXA' + Required = True + end + object tblFaixasID_POLITICA: TIntegerField + FieldName = 'ID_POLITICA' + end + object tblFaixasTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 40 + end + object tblFaixasATRASO_MIN: TIntegerField + FieldName = 'ATRASO_MIN' + end + object tblFaixasATRASO_MAX: TIntegerField + FieldName = 'ATRASO_MAX' + end + object tblFaixasTP_JUROS: TWideStringField + FieldName = 'TP_JUROS' + Required = True + Size = 1 + end + object tblFaixasPR_JUROS: TFloatField + FieldName = 'PR_JUROS' + Required = True + end + object tblFaixasNR_JUROS: TFloatField + FieldName = 'NR_JUROS' + Required = True + end + object tblFaixasPR_MULTA: TFloatField + FieldName = 'PR_MULTA' + Required = True + end + object tblFaixasPR_DESC_QUIT_PRIN: TFloatField + FieldName = 'PR_DESC_QUIT_PRIN' + Required = True + end + object tblFaixasPR_DESC_QUIT_JUROS: TFloatField + FieldName = 'PR_DESC_QUIT_JUROS' + Required = True + end + object tblFaixasPR_DESC_QUIT_MULTA: TFloatField + FieldName = 'PR_DESC_QUIT_MULTA' + Required = True + end + object tblFaixasPR_DESC_QUIT_IND_FIN: TFloatField + FieldName = 'PR_DESC_QUIT_IND_FIN' + Required = True + end + object tblFaixasPR_DESC_QUIT_COR: TFloatField + FieldName = 'PR_DESC_QUIT_COR' + end + object tblFaixasPR_DESC_FINAN_PRIN: TFloatField + FieldName = 'PR_DESC_FINAN_PRIN' + Required = True + end + object tblFaixasPR_DESC_FINAN_JUROS: TFloatField + FieldName = 'PR_DESC_FINAN_JUROS' + Required = True + end + object tblFaixasPR_DESC_FINAN_MULTA: TFloatField + FieldName = 'PR_DESC_FINAN_MULTA' + Required = True + end + object tblFaixasPR_DESC_FINAN_COR: TFloatField + FieldName = 'PR_DESC_FINAN_COR' + end + object tblFaixasPR_DESC_FINAN_IND_FIN: TFloatField + FieldName = 'PR_DESC_FINAN_IND_FIN' + Required = True + end + object tblFaixasID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblFaixasDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object tblFaixasDT_MIN: TDateTimeField + FieldName = 'DT_MIN' + end + object tblFaixasDT_MAX: TDateTimeField + FieldName = 'DT_MAX' + end + object tblFaixasTP_FAIXA: TWideStringField + FieldName = 'TP_FAIXA' + Size = 1 + end + end + object tblPoliticas: TZQuery + Connection = ZConnection + SortedFields = 'ID_POLITICA' + AfterInsert = tblPoliticasAfterInsert + BeforeEdit = tblPoliticasBeforeEdit + BeforePost = tblPoliticasBeforePost + AfterPost = tblPoliticasAfterPost + BeforeDelete = tblPoliticasBeforeDelete + SQL.Strings = ( + 'select * from CHG_POLITICAS') + Params = <> + MasterFields = 'ID_EMPRESA' + MasterSource = dtsCHGEmpresa + LinkedFields = 'ID_EMPRESA' + IndexFieldNames = 'ID_POLITICA Asc' + Left = 288 + Top = 200 + object tblPoliticasID_POLITICA: TIntegerField + FieldName = 'ID_POLITICA' + Required = True + end + object tblPoliticasID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + end + object tblPoliticasTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 40 + end + object tblPoliticasDT_INICIO: TDateTimeField + FieldName = 'DT_INICIO' + end + object tblPoliticasDT_FIM: TDateTimeField + FieldName = 'DT_FIM' + end + object tblPoliticasID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblPoliticasDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object tblCidades: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterOpen = tblCidadesAfterOpen + AfterInsert = tblCidadesAfterInsert + SQL.Strings = ( + 'select * from SYS_CIDADES') + Params = <> + MasterFields = 'ID_ESTADO' + MasterSource = dtsEstados + LinkedFields = 'ID_ESTADO' + IndexFieldNames = 'TX_NOME Asc' + Left = 288 + Top = 80 + object tblCidadesID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + Required = True + end + object tblCidadesTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblCidadesID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object tblCidadesCD_IBGE: TWideStringField + FieldName = 'CD_IBGE' + Size = 10 + end + end + object tblDevedores: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + AfterOpen = tblDevedoresAfterOpen + BeforeEdit = tblDevedoresBeforeEdit + BeforePost = tblDevedoresBeforePost + BeforeDelete = tblDevedoresBeforeDelete + SQL.Strings = ( + 'select * from CHG_DEVEDORES') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Sequence = seqDevedores + SequenceField = 'ID_DEVEDOR' + Left = 544 + Top = 656 + object tblDevedoresID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblDevedoresTP_CLIENTE: TWideStringField + FieldName = 'TP_CLIENTE' + Size = 1 + end + object tblDevedoresTX_PAI: TWideStringField + FieldName = 'TX_PAI' + Size = 60 + end + object tblDevedoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblDevedoresTX_MAE: TWideStringField + FieldName = 'TX_MAE' + Size = 60 + end + object tblDevedoresDT_CADASTRO: TDateTimeField + FieldName = 'DT_CADASTRO' + end + object tblDevedoresDT_NASC: TDateTimeField + FieldName = 'DT_NASC' + end + object tblDevedoresCD_CPF: TWideStringField + FieldName = 'CD_CPF' + Size = 14 + end + object tblDevedoresCD_CNPJ: TWideStringField + FieldName = 'CD_CNPJ' + Size = 18 + end + object tblDevedoresTL_MEMO: TWideMemoField + FieldName = 'TL_MEMO' + BlobType = ftWideMemo + end + object tblDevedoresID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + object tblDevedoresCD_RG: TWideStringField + FieldName = 'CD_RG' + end + object tblDevedoresCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + end + object tblDevedoresTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 60 + end + object tblDevedoresID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblDevedoresDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object tblDevedoresTX_ULTIMO_USUARIO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ULTIMO_USUARIO' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_ULTIMO_USUARIO' + Size = 60 + Lookup = True + end + end + object tblTextoEmail: TZQuery + Connection = ZConnection + SortedFields = 'ID_TEXTO' + BeforeEdit = tblTextoEmailBeforeEdit + BeforePost = tblTextoEmailBeforePost + BeforeDelete = tblTextoEmailBeforeDelete + SQL.Strings = ( + 'select * from SYS_TEXTO_EMAIL') + Params = <> + IndexFieldNames = 'ID_TEXTO Asc' + Left = 912 + Top = 248 + object tblTextoEmailID_TEXTO: TIntegerField + FieldName = 'ID_TEXTO' + Required = True + end + object tblTextoEmailTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Required = True + Size = 255 + end + object tblTextoEmailTL_TEXTO: TWideMemoField + FieldName = 'TL_TEXTO' + Required = True + BlobType = ftWideMemo + end + end + object dtsTextoEmail: TDataSource + DataSet = tblTextoEmail + Left = 1024 + Top = 296 + end + object tblEmail: TZQuery + Connection = ZConnection + BeforeOpen = tblEmailBeforeOpen + BeforeEdit = tblEmailBeforeEdit + BeforePost = tblEmailBeforePost + BeforeDelete = tblEmailBeforeDelete + SQL.Strings = ( + 'select * from chg_emails') + Params = <> + Left = 912 + Top = 304 + object tblEmailID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object tblEmailTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 40 + end + object tblEmailID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblEmailDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object tblEmailTX_ULTIMO_USUARIO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ULTIMO_USUARIO' + LookupDataSet = tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_ULTIMO_USUARIO' + Lookup = True + end + object tblEmailID_EMAIL: TIntegerField + FieldName = 'ID_EMAIL' + Required = True + end + end + object dtsEmail: TDataSource + DataSet = tblEmail + Left = 1024 + Top = 352 + end + object dtsLogCampanhas: TDataSource + Left = 1024 + Top = 408 + end + object tblLogCampanhas: TZQuery + Connection = ZConnection + BeforePost = tblLogCampanhasBeforePost + SQL.Strings = ( + 'select * from sys_campanhas_old') + Params = <> + Left = 912 + Top = 360 + object tblLogCampanhasID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblLogCampanhasID_CAMPANHA: TIntegerField + FieldName = 'ID_CAMPANHA' + Required = True + end + object tblLogCampanhasTX_NOME_CAMPANHA: TWideStringField + FieldName = 'TX_NOME_CAMPANHA' + Required = True + Size = 40 + end + object tblLogCampanhasID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object tblLogCampanhasID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object tblLogCampanhasDT_TRANSF: TDateTimeField + FieldName = 'DT_TRANSF' + Required = True + end + object tblLogCampanhasTP_ACAO: TWideStringField + FieldName = 'TP_ACAO' + end + end + object dtsAcordos: TDataSource + DataSet = tblAcordos + Left = 1024 + Top = 464 + end + object tblAcordos: TZQuery + Connection = ZConnection + BeforeEdit = tblAcordosBeforeEdit + BeforePost = tblAcordosBeforePost + BeforeDelete = tblAcordosBeforeDelete + SQL.Strings = ( + 'select * from sys_acordos') + Params = <> + Left = 912 + Top = 416 + object tblAcordosID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblAcordosID_ACORDO: TIntegerField + FieldName = 'ID_ACORDO' + Required = True + end + object tblAcordosID_PARCELA: TIntegerField + FieldName = 'ID_PARCELA' + Required = True + end + object tblAcordosID_ORIGINAL: TIntegerField + FieldName = 'ID_ORIGINAL' + Required = True + end + object tblAcordosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + end + object zroQryAcordos: TZReadOnlyQuery + Connection = ZConnection + SQL.Strings = ( + 'select * from sys_acordos') + Params = <> + Left = 1112 + Top = 464 + object zroQryAcordosID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object zroQryAcordosID_ACORDO: TIntegerField + FieldName = 'ID_ACORDO' + Required = True + end + object zroQryAcordosID_PARCELA: TIntegerField + FieldName = 'ID_PARCELA' + Required = True + end + object zroQryAcordosID_ORIGINAL: TIntegerField + FieldName = 'ID_ORIGINAL' + Required = True + end + object zroQryAcordosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zroQryAcordosTX_NOME: TStringField + FieldKind = fkLookup + FieldName = 'TX_NOME' + LookupDataSet = tblTitulos + LookupKeyFields = 'ID_TITULO' + LookupResultField = 'TX_PRODUTO' + KeyFields = 'ID_PARCELA' + Size = 60 + Lookup = True + end + object zroQryAcordosVL_TITULO: TCurrencyField + FieldKind = fkLookup + FieldName = 'VL_TITULO' + LookupDataSet = tblTitulos + LookupKeyFields = 'ID_TITULO' + LookupResultField = 'VL_TITULO' + KeyFields = 'ID_PARCELA' + Lookup = True + end + object zroQryAcordosDT_VENCIMENTO: TDateField + FieldKind = fkLookup + FieldName = 'DT_VENCIMENTO' + LookupDataSet = tblTitulos + LookupKeyFields = 'ID_TITULO' + LookupResultField = 'DT_VENCIMENTO' + KeyFields = 'ID_PARCELA' + Lookup = True + end + end + object dtsQAcordos: TDataSource + DataSet = zroQryAcordos + Left = 1112 + Top = 410 + end + object tblRepasseFase: TZQuery + Connection = ZConnection + BeforeOpen = tblRepasseFaseBeforeOpen + AfterOpen = tblRepasseFaseAfterOpen + BeforePost = tblRepasseFaseBeforePost + SQL.Strings = ( + 'select * from sys_repasses_fases') + Params = <> + Left = 1128 + Top = 24 + object tblRepasseFaseID_FASE: TIntegerField + FieldName = 'ID_FASE' + Required = True + end + object tblRepasseFasePR_PRINCIPAL: TFloatField + FieldName = 'PR_PRINCIPAL' + end + object tblRepasseFasePR_JUROS: TFloatField + FieldName = 'PR_JUROS' + end + object tblRepasseFasePR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object tblRepasseFasePR_ENCARGOS: TFloatField + FieldName = 'PR_ENCARGOS' + end + object tblRepasseFasePR_CORRIGIDO: TFloatField + FieldName = 'PR_CORRIGIDO' + end + object tblRepasseFaseMIN_ATRASO: TIntegerField + FieldName = 'MIN_ATRASO' + end + object tblRepasseFaseMAX_ATRASO: TIntegerField + FieldName = 'MAX_ATRASO' + end + object tblRepasseFaseID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object tblRepasseFaseID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object tblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object dtsRepasseFase: TDataSource + DataSet = tblRepasseFase + OnDataChange = dtsRepasseFaseDataChange + Left = 1128 + Top = 80 + end + object zroqryContatos: TZReadOnlyQuery + Connection = ZConnection + SQL.Strings = ( + 'select first 0' + 'h.id_cobrador,' + + 'case when u.tx_nome is not NULL then u.tx_nome when u.tx_nome is' + + ' NULL then '#39'Usu'#225'rio Inexistente'#39' end as NOME,' + 'COUNT (DISTINCT h.ID_DEVEDOR) as qtde_acionamentos' + 'from chg_historico h' + 'left join sys_usuarios u on h.id_cobrador = u.id_usuario' + + 'where h.id_cobrador in (select id_usuario from sys_usuarios wher' + + 'e tp_ativo = '#39'S'#39')' + 'and CAST(h.dt_contato AS DATE) >= '#39'2019-10-15'#39' and' + 'CAST(h.dt_contato AS DATE) <= '#39'2019-10-15'#39 + 'and h.id_cobrador = 7' + 'group by h.id_cobrador, u.tx_nome' + 'order by NOME, qtde_acionamentos desc') + Params = <> + Left = 1112 + Top = 352 + object zroqryContatosID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + object zroqryContatosNOME: TWideStringField + FieldName = 'NOME' + ReadOnly = True + Size = 60 + end + object zroqryContatosQTDE_ACIONAMENTOS: TIntegerField + FieldName = 'QTDE_ACIONAMENTOS' + ReadOnly = True + end + end + object dtsContatos: TDataSource + DataSet = zroqryContatos + Left = 1112 + Top = 296 + end + object dtsDepartamentos: TDataSource + DataSet = tblDepartamentos + Left = 400 + Top = 376 + end + object tblDepartamentos: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + BeforeEdit = tblDepartamentosBeforeEdit + BeforePost = tblDepartamentosBeforePost + BeforeDelete = tblDepartamentosBeforeDelete + SQL.Strings = ( + 'SELECT * FROM CHG_DEPARTAMENTOS') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Left = 288 + Top = 376 + object tblDepartamentosID_DEPARTAMENTOS: TIntegerField + FieldName = 'ID_DEPARTAMENTOS' + Required = True + end + object tblDepartamentosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 255 + end + end + object dtsUsuariosConsulta: TDataSource + DataSet = tblUsuariosConsulta + Left = 40 + Top = 520 + end + object dtsEmpresaRepasse: TDataSource + DataSet = tblEmpresaRepasse + OnDataChange = dtsEmpresaRepasseDataChange + Left = 1128 + Top = 128 + end + object tblEmpresaRepasse: TZQuery + Connection = ZConnection + AfterOpen = tblEmpresaRepasseAfterOpen + BeforeEdit = tblEmpresaRepasseBeforeEdit + BeforePost = tblEmpresaRepasseBeforePost + AfterPost = tblEmpresaRepasseAfterPost + BeforeDelete = tblEmpresaRepasseBeforeDelete + SQL.Strings = ( + 'SELECT * FROM CHG_EMPRESA_REPASSE' + 'order by ID_ANO, ID_MES') + Params = <> + Left = 1128 + Top = 184 + object tblEmpresaRepasseID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblEmpresaRepasseID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object tblEmpresaRepassePR_PRINCIPAL: TFloatField + FieldName = 'PR_PRINCIPAL' + Required = True + end + object tblEmpresaRepassePR_JUROS: TFloatField + FieldName = 'PR_JUROS' + Required = True + end + object tblEmpresaRepassePR_MULTA: TFloatField + FieldName = 'PR_MULTA' + Required = True + end + object tblEmpresaRepassePR_ENCARGOS: TFloatField + FieldName = 'PR_ENCARGOS' + Required = True + end + object tblEmpresaRepassePR_CORRIGIDO: TFloatField + FieldName = 'PR_CORRIGIDO' + Required = True + end + object tblEmpresaRepasseTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 255 + end + object tblEmpresaRepasseID_MES: TIntegerField + FieldName = 'ID_MES' + Required = True + end + object tblEmpresaRepasseID_ANO: TIntegerField + FieldName = 'ID_ANO' + Required = True + end + end + object tblLog: TZQuery + Connection = ZConnection + SortedFields = 'ID_LOG' + BeforePost = tblLogBeforePost + OnPostError = tblLogPostError + SQL.Strings = ( + 'SELECT * FROM SYS_LOG' + 'ORDER BY DT_LOG DESC') + Params = <> + IndexFieldNames = 'ID_LOG Asc' + Sequence = seqLogs + SequenceField = 'ID_LOG' + Left = 72 + Top = 656 + object tblLogID_LOG: TIntegerField + FieldName = 'ID_LOG' + Required = True + end + object tblLogTX_TABELA: TWideStringField + FieldName = 'TX_TABELA' + end + object tblLogID_REGISTRO: TIntegerField + FieldName = 'ID_REGISTRO' + end + object tblLogTX_ACAO: TWideStringField + FieldName = 'TX_ACAO' + Size = 255 + end + object tblLogID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + end + object tblLogDT_LOG: TDateTimeField + FieldName = 'DT_LOG' + end + object tblLogTL_ACAO: TWideMemoField + FieldName = 'TL_ACAO' + BlobType = ftWideMemo + end + end + object ZSQLProcessorAcordos: TZSQLProcessor + Params = <> + Connection = ZConnection + Delimiter = ';' + Left = 1112 + Top = 512 + end + object seqLogs: TZSequence + Connection = ZConnection + SequenceName = 'GEN_LOG' + Left = 128 + Top = 656 + end + object seqHistoricos: TZSequence + Connection = ZConnection + SequenceName = 'GEN_HISTORICOS' + Left = 392 + Top = 656 + end + object seqDevedores: TZSequence + Connection = ZConnection + SequenceName = 'GEN_DEVEDORES' + Left = 632 + Top = 656 + end + object seqRecibos: TZSequence + Connection = ZConnection + SequenceName = 'GEN_RECIBOS' + Left = 128 + Top = 608 + end + object seqEnderecos: TZSequence + Connection = ZConnection + SequenceName = 'GEN_ENDERECOS' + Left = 392 + Top = 608 + end + object seqTelefones: TZSequence + Connection = ZConnection + SequenceName = 'GEN_TELEFONES' + Left = 632 + Top = 608 + end + object dtsGrupoBoletos: TDataSource + DataSet = tblGrupoBoletos + Left = 736 + Top = 608 + end + object dtsGrupoBoletoEmpresas: TDataSource + DataSet = tblGrupoBoletoEmpresas + Left = 736 + Top = 656 + end + object tblGrupoBoletos: TZQuery + Connection = ZConnection + SortedFields = 'TX_NOME' + BeforeEdit = tblGrupoBoletosBeforeEdit + BeforePost = tblGrupoBoletosBeforePost + BeforeDelete = tblGrupoBoletosBeforeDelete + SQL.Strings = ( + 'select * from chg_grupo_boleto') + Params = <> + IndexFieldNames = 'TX_NOME Asc' + Sequence = seqGrupoBoletos + SequenceField = 'ID_GRUPO' + Left = 864 + Top = 608 + object tblGrupoBoletosID_GRUPO: TIntegerField + FieldName = 'ID_GRUPO' + Required = True + end + object tblGrupoBoletosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblGrupoBoletosTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 255 + end + object tblGrupoBoletosTP_DESC1: TWideStringField + FieldName = 'TP_DESC1' + Size = 1 + end + object tblGrupoBoletosNR_DESC1: TFloatField + FieldName = 'NR_DESC1' + end + object tblGrupoBoletosPR_DESC1: TFloatField + FieldName = 'PR_DESC1' + end + object tblGrupoBoletosDT_DESC1: TDateField + FieldName = 'DT_DESC1' + end + object tblGrupoBoletosTP_DESC2: TWideStringField + FieldName = 'TP_DESC2' + Size = 1 + end + object tblGrupoBoletosNR_DESC2: TFloatField + FieldName = 'NR_DESC2' + end + object tblGrupoBoletosPR_DESC2: TFloatField + FieldName = 'PR_DESC2' + end + object tblGrupoBoletosDT_DESC2: TDateField + FieldName = 'DT_DESC2' + end + object tblGrupoBoletosTP_DESC3: TWideStringField + FieldName = 'TP_DESC3' + Size = 1 + end + object tblGrupoBoletosNR_DESC3: TFloatField + FieldName = 'NR_DESC3' + end + object tblGrupoBoletosPR_DESC3: TFloatField + FieldName = 'PR_DESC3' + end + object tblGrupoBoletosDT_DESC3: TDateField + FieldName = 'DT_DESC3' + end + object tblGrupoBoletosTP_MULTA: TWideStringField + FieldName = 'TP_MULTA' + Size = 1 + end + object tblGrupoBoletosNR_MULTA: TFloatField + FieldName = 'NR_MULTA' + end + object tblGrupoBoletosPR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object tblGrupoBoletosTP_MORA: TWideStringField + FieldName = 'TP_MORA' + Size = 1 + end + object tblGrupoBoletosNR_MORA: TFloatField + FieldName = 'NR_MORA' + end + object tblGrupoBoletosPR_MORA: TFloatField + FieldName = 'PR_MORA' + end + end + object tblGrupoBoletoEmpresas: TZQuery + Connection = ZConnection + SortedFields = 'ID_ITEM' + BeforeOpen = tblGrupoBoletoEmpresasBeforeOpen + BeforeEdit = tblGrupoBoletoEmpresasBeforeEdit + BeforePost = tblGrupoBoletoEmpresasBeforePost + BeforeDelete = tblGrupoBoletoEmpresasBeforeDelete + SQL.Strings = ( + 'select * from chg_grupo_boleto_empresas') + Params = <> + MasterFields = 'ID_GRUPO' + MasterSource = dtsGrupoBoletos + LinkedFields = 'ID_GRUPO_BOLETO' + IndexFieldNames = 'ID_ITEM Asc' + Sequence = seqGrupoBoletoEmpresas + SequenceField = 'ID_ITEM' + Left = 864 + Top = 656 + object tblGrupoBoletoEmpresasID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblGrupoBoletoEmpresasID_GRUPO_BOLETO: TIntegerField + FieldName = 'ID_GRUPO_BOLETO' + Required = True + end + object tblGrupoBoletoEmpresasID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object tblGrupoBoletoEmpresasTX_EMPRESA: TStringField + FieldKind = fkLookup + FieldName = 'TX_EMPRESA' + LookupDataSet = tblCHGEmpresa + LookupKeyFields = 'ID_EMPRESA' + LookupResultField = 'TX_FANTASIA' + KeyFields = 'ID_EMPRESA' + Size = 255 + Lookup = True + end + end + object seqGrupoBoletos: TZSequence + Connection = ZConnection + SequenceName = 'GEN_GRUPO_BOLETOS' + Left = 984 + Top = 608 + end + object seqGrupoBoletoEmpresas: TZSequence + Connection = ZConnection + SequenceName = 'GEN_GRUPO_BOLETO_EMPRESAS' + Left = 984 + Top = 656 + end + object ImageList1: TImageList + Left = 536 + Top = 488 + Bitmap = { + 494C01010C001800580210001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object tblBoletos: TZQuery + Connection = ZConnection + BeforeEdit = tblBoletosBeforeEdit + BeforePost = tblBoletosBeforePost + BeforeDelete = tblBoletosBeforeDelete + SQL.Strings = ( + 'select * from chg_boleto') + Params = <> + Sequence = seqBoletos + SequenceField = 'ID' + Left = 864 + Top = 560 + object tblBoletosID: TIntegerField + FieldName = 'ID' + Required = True + end + object tblBoletosNR_NOSSO_NUMERO: TWideStringField + FieldName = 'NR_NOSSO_NUMERO' + Required = True + Size = 15 + end + object tblBoletosDT_EMISSAO: TDateField + FieldName = 'DT_EMISSAO' + Required = True + end + object tblBoletosVL_NOMINAL: TFloatField + FieldName = 'VL_NOMINAL' + end + object tblBoletosVL_ABATIMENTO: TFloatField + FieldName = 'VL_ABATIMENTO' + end + object tblBoletosDT_VENCIMENTO: TDateField + FieldName = 'DT_VENCIMENTO' + end + object tblBoletosID_GRUPO: TSingleField + FieldName = 'ID_GRUPO' + end + object tblBoletosCD_COD_BARRAS: TWideStringField + FieldName = 'CD_COD_BARRAS' + Size = 60 + end + object tblBoletosCD_LINHA_DIGITAVEL: TWideStringField + FieldName = 'CD_LINHA_DIGITAVEL' + Size = 60 + end + end + object dtsBoletos: TDataSource + DataSet = tblBoletos + Left = 736 + Top = 560 + end + object seqBoletos: TZSequence + Connection = ZConnection + SequenceName = 'GEN_BOLETO' + Left = 984 + Top = 560 + end + object seqBoletoTitulos: TZSequence + Connection = ZConnection + SequenceName = 'GEN_BOLETO_TITULO' + Left = 1120 + Top = 656 + end + object tblBoletoTitulos: TZQuery + Connection = ZConnection + BeforeEdit = tblBoletoTitulosBeforeEdit + BeforePost = tblBoletoTitulosBeforePost + BeforeDelete = tblBoletoTitulosBeforeDelete + SQL.Strings = ( + 'select * from chg_boleto_titulos') + Params = <> + MasterFields = 'ID' + MasterSource = dtsBoletos + LinkedFields = 'ID_BOLETO' + Sequence = seqBoletoTitulos + SequenceField = 'ID_ITEM' + Left = 1120 + Top = 608 + object tblBoletoTitulosID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblBoletoTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object tblBoletoTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + end + object tblBoletoTitulosID_BOLETO: TIntegerField + FieldName = 'ID_BOLETO' + end + end + object dtsBoletoTitulos: TDataSource + DataSet = tblBoletoTitulos + Left = 1120 + Top = 560 + end + object tblCidadesConsulta: TZReadOnlyQuery + Connection = ZConnection + SQL.Strings = ( + 'select * from sys_cidades') + Params = <> + Left = 288 + Top = 440 + object tblCidadesConsultaID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + Required = True + end + object tblCidadesConsultaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object tblCidadesConsultaID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object tblCidadesConsultaCD_IBGE: TWideStringField + FieldName = 'CD_IBGE' + Size = 10 + end + end + object dtsContas: TDataSource + DataSet = tblContas + Left = 208 + Top = 552 + end + object tblContas: TZQuery + Connection = ZConnection + SQL.Strings = ( + 'select * from sys_contas') + Params = <> + Sequence = seqContas + SequenceField = 'ID_CONTA' + Left = 304 + Top = 552 + object tblContasID_CONTA: TIntegerField + FieldName = 'ID_CONTA' + Required = True + end + object tblContasTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 60 + end + object tblContasCD_AGENCIA: TWideStringField + FieldName = 'CD_AGENCIA' + Size = 10 + end + object tblContasCD_AGENCIA_DV: TWideStringField + FieldName = 'CD_AGENCIA_DV' + Size = 1 + end + object tblContasCD_CEDENTE: TWideStringField + FieldName = 'CD_CEDENTE' + end + object tblContasCD_CEDENTE_DV: TWideStringField + FieldName = 'CD_CEDENTE_DV' + Size = 1 + end + object tblContasCD_CONVENIO: TWideStringField + FieldName = 'CD_CONVENIO' + end + object tblContasCD_CONVENIO_DV: TWideStringField + FieldName = 'CD_CONVENIO_DV' + Size = 1 + end + object tblContasCD_CONTA: TWideStringField + FieldName = 'CD_CONTA' + Size = 10 + end + object tblContasCD_CONTA_DV: TWideStringField + FieldName = 'CD_CONTA_DV' + Size = 1 + end + object tblContasID_BANCO: TIntegerField + FieldName = 'ID_BANCO' + end + object tblContasTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 1 + end + object tblContasCD_MODALIDADE: TWideStringField + FieldName = 'CD_MODALIDADE' + Size = 10 + end + object tblContasDT_REMESSA: TDateField + FieldName = 'DT_REMESSA' + end + object tblContasNR_REMESSA: TIntegerField + FieldName = 'NR_REMESSA' + end + end + object seqContas: TZSequence + Connection = ZConnection + SequenceName = 'GEN_CONTA' + Left = 392 + Top = 552 + end + object seqNrRecibo: TZSequence + Connection = ZConnection + SequenceName = 'GEN_NR_RECIBO' + Left = 128 + Top = 552 + end + object dtsPrCartao: TDataSource + DataSet = tblPrCartao + Left = 656 + Top = 416 + end + object tblPrCartao: TZQuery + Connection = ZConnection + AfterInsert = tblPrCartaoAfterInsert + SQL.Strings = ( + 'select * from sys_porcentagens_cartoes') + Params = <> + Left = 520 + Top = 416 + object tblPrCartaoID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object tblPrCartaoNR_PARCELA: TIntegerField + FieldName = 'NR_PARCELA' + Required = True + end + object tblPrCartaoPR_JUROS: TFloatField + FieldName = 'PR_JUROS' + Required = True + end + object tblPrCartaoPR_REPASSE: TFloatField + FieldName = 'PR_REPASSE' + end + object tblPrCartaoTX_DESCRICAO: TWideStringField + FieldName = 'TX_DESCRICAO' + Size = 60 + end + end +end diff --git a/udtmSystem.pas b/udtmSystem.pas new file mode 100644 index 0000000..68463f1 --- /dev/null +++ b/udtmSystem.pas @@ -0,0 +1,4647 @@ +unit udtmSystem; + +interface + +uses + System.SysUtils, System.Classes, Data.DB, Vcl.Forms, Vcl.Dialogs, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, IniFiles, IdHashMessageDigest, ZSequence, + ZSqlMonitor, ZSqlProcessor, StrUtils, DateUtils, Vcl.ExtCtrls, DBCtrls, + Vcl.Controls, Vcl.Buttons, Vcl.Graphics, Variants, System.Json, + Vcl.DBGrids, Vcl.CheckLst, rDBComponents, System.UITypes, windows, + IBX.IBServices, Datasnap.DBClient, MidasLib, System.ImageList, Vcl.ImgList, + Vcl.AppEvnts, ZIBEventAlerter; + +// Tentando "Hackear" o TDBNavigator +type + THackDBNavigator = class(TDBNavigator); + +type + TdtmSystem = class(TDataModule) + ZConnection: TZConnection; + dtsUsuarios: TDataSource; + dtsGrupos: TDataSource; + dtsPermissoes: TDataSource; + dtsGruposPermissoes: TDataSource; + qryConsulta: TZQuery; + dtsEmpresa: TDataSource; + dtsCidades: TDataSource; + dtsEstados: TDataSource; + dtsPermDisponiveis: TDataSource; + tblPermDisponiveis: TZReadOnlyQuery; + tblPermDisponiveisID_PERMISSAO: TIntegerField; + tblPermDisponiveisCD_PERMISSAO: TWideStringField; + tblPermDisponiveisTX_DESCRICAO: TWideStringField; + dtsLog: TDataSource; + dtsCHGEmpresa: TDataSource; + dtsPoliticas: TDataSource; + dtsFaixas: TDataSource; + dtsDevedores: TDataSource; + dtsCHGEnderecos: TDataSource; + dtsTelefones: TDataSource; + dtsTitulos: TDataSource; + ZSQLProcessor1: TZSQLProcessor; + dtsProvidencias: TDataSource; + tblInadimplencias: TZTable; + dtsInadimplencias: TDataSource; + tblInadimplenciasID_INADIMPLENCIA: TIntegerField; + tblInadimplenciasTX_NOME: TWideStringField; + dtsCampanhaCob: TDataSource; + dtsCampanhaDevedores: TDataSource; + dtsCobCampanha: TDataSource; + dtsHistorico: TDataSource; + ROQueryFaixa: TZReadOnlyQuery; + dtsQueryFaixa: TDataSource; + ROquerypesquisas: TZReadOnlyQuery; + dtsROquerypesquisas: TDataSource; + dtsAgenda: TDataSource; + dtsLayout: TDataSource; + dtsProtocolo: TDataSource; + dtsIndices: TDataSource; + dtsRecibo: TDataSource; + dtsConteudo: TDataSource; + dtsDuplicados: TDataSource; + dtsRepasse: TDataSource; + dtsLogins: TDataSource; + dtsSessao: TDataSource; + dtsDespesasTitulos: TDataSource; + dtsIndicadorFinanceiro: TDataSource; + dtsFiltros: TDataSource; + cdsHist: TClientDataSet; + cdsHisttx_nome: TStringField; + cdsHistcd_documento: TStringField; + cdsHistid_devedor: TIntegerField; + tblProvidencias: TZQuery; + tblProvidenciasID_PROVIDENCIA: TIntegerField; + tblProvidenciasTX_NOME: TWideStringField; + tblProvidenciasTX_DESCRICAO: TWideStringField; + tblProvidenciasTP_PROVIDENCIA: TWideStringField; + tblTitulos: TZQuery; + tblTitulosID_TITULO: TIntegerField; + tblTitulosID_DEVEDOR: TIntegerField; + tblTitulosID_EMPRESA: TIntegerField; + tblTitulosTX_PRODUTO: TWideStringField; + tblTitulosVL_TITULO: TFloatField; + tblTitulosDT_ENTRADA: TDateTimeField; + tblTitulosDT_VENCIMENTO: TDateTimeField; + tblTitulosTP_SITUACAO: TWideStringField; + tblTitulosCD_DEVEDOR: TWideStringField; + tblTitulosTP_CHEQUE: TWideStringField; + tblTitulosID_BANCO: TIntegerField; + tblTitulosTX_NRCHEQUE: TWideStringField; + tblTitulosTP_MOTIVO: TWideStringField; + tblTitulosVL_DESPESA: TFloatField; + tblTitulosTP_DESPESA: TWideStringField; + tblTitulosVL_MULTA: TFloatField; + tblTitulosVL_JUROS: TFloatField; + tblTitulosVL_ENCARGOS: TFloatField; + tblTitulosVL_CORRIGIDO: TFloatField; + tblTitulosDT_PAGAMENTO: TDateTimeField; + tblTitulosTX_OBS: TWideMemoField; + tblFiltros: TZQuery; + tblFiltrosID_FILTRO: TIntegerField; + tblFiltrosTX_NOME_FILTRO: TWideStringField; + tblFiltrosTP_CREDOR: TWideStringField; + tblFiltrosTX_CREDOR: TWideStringField; + tblFiltrosTP_PROVIDENCIA: TWideStringField; + tblFiltrosTX_PROVIDENCIA: TWideStringField; + tblFiltrosCD_PROVIDENCIA: TWideStringField; + tblFiltrosTP_VALOR: TWideStringField; + tblFiltrosVL_VALORIN: TFloatField; + tblFiltrosVL_VALORFIM: TFloatField; + tblFiltrosTP_AGENDADO: TWideStringField; + tblFiltrosTX_AGENDADO: TWideStringField; + tblFiltrosTP_NOME: TWideStringField; + tblFiltrosTX_NOME: TWideStringField; + tblFiltrosTP_ATRASO: TWideStringField; + tblFiltrosTX_ATRASOIN: TIntegerField; + tblFiltrosTX_ATRASOFIM: TIntegerField; + tblFiltrosTP_PESSOA: TWideStringField; + tblFiltrosCD_PESSOA: TWideStringField; + tblFiltrosTP_TITULO: TWideStringField; + tblFiltrosCD_TITULO: TWideStringField; + tblFiltrosCD_ORDEM: TWideStringField; + tblAgenda: TZQuery; + tblAgendaID_AGENDA: TIntegerField; + tblAgendaID_COBRADOR: TIntegerField; + tblAgendaID_DEVEDOR: TIntegerField; + tblAgendaDT_AGENDADA: TDateField; + tblAgendaHR_AGENDADA: TTimeField; + tblAgendaTP_SITUACAO: TWideStringField; + tblLayouts: TZQuery; + tblLayoutsID_LAYOUT: TIntegerField; + tblLayoutsTX_NOME: TWideStringField; + tblLayoutsSTR_CAMPOS: TWideStringField; + tblLayoutsNR_QNTCAMPOS: TFloatField; + tblIndices: TZQuery; + tblIndicesID_INDICE: TIntegerField; + tblIndicesTX_NOME: TWideStringField; + tblIndicesPR_INDICE: TFloatField; + tblRecibo: TZQuery; + tblReciboID_RECIBO: TIntegerField; + tblReciboNR_RECIBO: TWideStringField; + tblReciboTX_NOME: TWideStringField; + tblReciboTX_CPF: TWideStringField; + tblReciboTX_CNPJ: TWideStringField; + tblReciboID_DEVEDOR: TIntegerField; + tblReciboVL_TOTAL: TFloatField; + tblReciboVL_PRINCIPAL: TFloatField; + tblReciboVL_JUROS: TFloatField; + tblReciboVL_MULTA: TFloatField; + tblReciboVL_ENCARGOS: TFloatField; + tblReciboVL_DESCONTOS: TFloatField; + tblReciboVL_CORRIGIDO: TFloatField; + tblReciboTP_RECEBIMENTO: TWideStringField; + tblReciboNR_CHEQUE: TWideStringField; + tblReciboID_BANCO: TIntegerField; + tblReciboTX_PRACA: TWideStringField; + tblReciboID_USUARIO: TIntegerField; + tblReciboDT_IMPRESSAO: TDateTimeField; + tblReciboTX_CAMINHO: TWideStringField; + tblConteudoRecibo: TZQuery; + tblConteudoReciboID_CONTEUDO: TIntegerField; + tblConteudoReciboTX_NOME: TWideStringField; + tblConteudoReciboDT_VENCIMENTO: TDateTimeField; + tblConteudoReciboVL_PRINCIPAL: TFloatField; + tblConteudoReciboVL_JUROS: TFloatField; + tblConteudoReciboVL_MULTA: TFloatField; + tblConteudoReciboVL_ENCARGOS: TFloatField; + tblConteudoReciboVL_DESCONTOS: TFloatField; + tblConteudoReciboVL_CORRIGIDO: TFloatField; + tblConteudoReciboID_RECIBO: TIntegerField; + tblConteudoReciboVL_DESPESA: TFloatField; + tblConteudoReciboTX_DEPESA: TWideStringField; + tblConteudoReciboVL_EXTRAS: TFloatField; + tblDuplicados: TZQuery; + tblDuplicadosID_DUPLICADO: TIntegerField; + tblDuplicadosTX_NOMEDEVEDOR: TWideStringField; + tblDuplicadosCD_CPF: TWideStringField; + tblDuplicadosTX_NOMETITULO: TWideStringField; + tblDuplicadosVL_TITULO: TFloatField; + tblDuplicadosDT_VENCIMENTO: TDateTimeField; + tblDuplicadosTP_ACAO: TWideStringField; + tblDuplicadosCD_CNPJ: TWideStringField; + tblLogins: TZQuery; + tblLoginsID_LOGIN: TIntegerField; + tblLoginsID_USUARIO: TIntegerField; + tblLoginsDT_LOGIN: TDateField; + tblLoginsHR_LOGIN: TTimeField; + tblLoginsDT_LOGOFF: TDateField; + tblLoginsHR_LOGOFF: TTimeField; + tblEmpresa: TZQuery; + tblEmpresaID_EMPRESA: TIntegerField; + tblEmpresaTX_NOME: TWideStringField; + tblEmpresaTX_FANTASIA: TWideStringField; + tblEmpresaTX_ENDERECO: TWideStringField; + tblEmpresaNR_NUMERO: TIntegerField; + tblEmpresaTX_COMPLEMENTO: TWideStringField; + tblEmpresaTX_BAIRRO: TWideStringField; + tblEmpresaID_CIDADE: TIntegerField; + tblEmpresaTX_CEP: TWideStringField; + tblEmpresaTX_TELEFONE: TWideStringField; + tblEmpresaTX_WEBSITE: TWideStringField; + tblEmpresaTX_CNPJ: TWideStringField; + tblEmpresaTX_IE: TWideStringField; + tblEmpresaTX_IM: TWideStringField; + tblEmpresaTL_OBSERVACOES: TWideMemoField; + tblEmpresaTX_LOGOMARCA: TWideStringField; + tblEmpresaTX_HONORARIOS: TWideStringField; + tblEmpresaPR_DEBITO: TFloatField; + tblEmpresaPR_CREDVISTA: TFloatField; + tblEmpresaPR_CRED3: TFloatField; + tblEmpresaPR_CRED6: TFloatField; + tblEmpresaPR_CRED12: TFloatField; + tblEmpresaIMG_LOGO: TBlobField; + tblEmpresaPR_FINANCIAMENTO: TFloatField; + tblEmpresaTX_TITULO: TWideStringField; + tblEmpresaID_ESTADO: TIntegerField; + tblEmpresaTX_EMAILNOME: TWideStringField; + tblEmpresaTX_EMAIL: TWideStringField; + tblEmpresaTX_SMTP: TWideStringField; + tblEmpresaTX_PORTA: TWideStringField; + tblEmpresaTX_USUARIO: TWideStringField; + tblEmpresaTX_SENHA: TWideStringField; + tblPermissoes: TZQuery; + tblPermissoesID_PERMISSAO: TIntegerField; + tblPermissoesCD_PERMISSAO: TWideStringField; + tblPermissoesTX_DESCRICAO: TWideStringField; + tblPermissoesID_PARENT: TIntegerField; + tblPermissoesTP_ACESSO: TWideStringField; + tblTitulosID_ULTIMO_USUARIO: TIntegerField; + tblTitulosDT_HORA_ULTIMA_ATT: TDateTimeField; + tblTitulosTX_ULTIMO_USUARIO: TStringField; + tblRepasse: TZQuery; + tblRepasseID_REPASSE: TIntegerField; + tblRepassePR_PRINCIPAL: TFloatField; + tblRepassePR_JUROS: TFloatField; + tblRepassePR_MULTA: TFloatField; + tblRepassePR_ENCARGOS: TFloatField; + tblRepassePR_CORRIGIDO: TFloatField; + tblRepasseTX_NOME: TWideStringField; + tblSessao: TZQuery; + tblSessaoID_SESSAO: TIntegerField; + tblSessaoID_USUARIO: TIntegerField; + tblSessaoTP_ATIVA: TWideStringField; + tblCobCampanha: TZQuery; + tblCobCampanhaID_CAMPANHA: TIntegerField; + tblCobCampanhaTX_NOME: TWideStringField; + tblCobCampanhaTP_ATIVA: TWideStringField; + tblCobCampanhaTP_CONCLUIDA: TWideStringField; + tblCobCampanhaTX_DESC: TWideStringField; + tblCobCampanhaDT_CAD: TDateField; + tblCHGEmpresa: TZQuery; + tblCHGEmpresaID_EMPRESA: TIntegerField; + tblCHGEmpresaTX_NOME: TWideStringField; + tblCHGEmpresaTX_FANTASIA: TWideStringField; + tblCHGEmpresaTX_CNPJ: TWideStringField; + tblCHGEmpresaTX_IE: TWideStringField; + tblCHGEmpresaTX_ENDERECO: TWideStringField; + tblCHGEmpresaTX_COMPLEMENTO: TWideStringField; + tblCHGEmpresaID_CIDADE: TIntegerField; + tblCHGEmpresaTX_BAIRRO: TWideStringField; + tblCHGEmpresaID_ESTADO: TIntegerField; + tblCHGEmpresaTX_CEP: TWideStringField; + tblCHGEmpresaTX_TELEFONE: TWideStringField; + tblCHGEmpresaTX_EMAIL: TWideStringField; + tblCHGEmpresaTX_WEBSITE: TWideStringField; + tblCHGEmpresaNR_NUMERO: TIntegerField; + tblCHGEmpresaTX_IM: TWideStringField; + tblCHGEmpresaTL_OBSERVACOES: TWideMemoField; + tblCHGEmpresaID_REPASSE: TIntegerField; + tblCHGEmpresaPR_MULTA: TFloatField; + tblCHGEmpresaPR_JUROS: TFloatField; + tblCHGEmpresaNR_PARCELAS: TIntegerField; + tblCHGEmpresaPR_DESC_QUIT_PRIN: TFloatField; + tblCHGEmpresaPR_DESC_QUIT_JUROS: TFloatField; + tblCHGEmpresaPR_DESC_QUIT_MULTA: TFloatField; + tblCHGEmpresaPR_DESC_QUIT_IND_FIN: TFloatField; + tblCHGEmpresaPR_DESC_QUIT_COR: TFloatField; + tblCHGEmpresaPR_DESC_FINAN_PRIN: TFloatField; + tblCHGEmpresaPR_DESC_FINAN_JUROS: TFloatField; + tblCHGEmpresaPR_DESC_FINAN_MULTA: TFloatField; + tblCHGEmpresaPR_DESC_FINAN_IND_FIN: TFloatField; + tblCHGEmpresaPR_DESC_FINAN_COR: TFloatField; + tblCHGEmpresaPR_INDICADOR_FINANCEIRO: TFloatField; + tblCHGEmpresaPR_JUROS_PARCELAR: TFloatField; + tblEstados: TZQuery; + tblEstadosID_ESTADO: TIntegerField; + tblEstadosTX_NOME: TWideStringField; + tblEstadosCD_ESTADO: TWideStringField; + tblEstadosTX_SIGLA: TWideStringField; + tblUsuariosConsulta: TZQuery; + tblUsuariosConsultaID_USUARIO: TIntegerField; + tblUsuariosConsultaTX_NOME: TWideStringField; + tblUsuariosConsultaTX_USUARIO: TWideStringField; + tblUsuariosConsultaTX_SENHA: TWideStringField; + tblUsuariosConsultaID_GRUPO: TIntegerField; + tblUsuariosConsultaTP_ATIVO: TWideStringField; + tblUsuariosConsultaTP_TROCAPASS: TWideStringField; + tblUsuariosConsultaTX_EMAILNOME: TWideStringField; + tblUsuariosConsultaTX_EMAIL: TWideStringField; + tblUsuariosConsultaTX_SMTP: TWideStringField; + tblUsuariosConsultaTX_PORTA: TWideStringField; + tblUsuariosConsultaTX_USUARIOEMAIL: TWideStringField; + tblUsuariosConsultaTX_SENHAEMAIL: TWideStringField; + tblGrupos: TZQuery; + tblGruposID_GRUPO: TIntegerField; + tblGruposTX_NOME: TWideStringField; + tblGruposTP_SU: TWideStringField; + tblUsuarios: TZQuery; + tblUsuariosID_USUARIO: TIntegerField; + tblUsuariosTX_NOME: TWideStringField; + tblUsuariosTX_USUARIO: TWideStringField; + tblUsuariosTX_SENHA: TWideStringField; + tblUsuariosID_GRUPO: TIntegerField; + tblUsuariosTP_ATIVO: TWideStringField; + tblUsuariosTP_TROCAPASS: TWideStringField; + tblUsuariosTX_EMAILNOME: TWideStringField; + tblUsuariosTX_EMAIL: TWideStringField; + tblUsuariosTX_SMTP: TWideStringField; + tblUsuariosTX_PORTA: TWideStringField; + tblUsuariosTX_USUARIOEMAIL: TWideStringField; + tblUsuariosTX_SENHAEMAIL: TWideStringField; + tblGruposPermissoes: TZQuery; + tblGruposPermissoesID_ITEM: TIntegerField; + tblGruposPermissoesID_GRUPO: TIntegerField; + tblGruposPermissoesID_PERMISSAO: TIntegerField; + tblGruposPermissoesTP_ACESSO: TWideStringField; + tblCampanhaCob: TZQuery; + tblCampanhaCobID_ITEM: TIntegerField; + tblCampanhaCobID_CAMPANHA: TIntegerField; + tblCampanhaCobID_COBRADOR: TIntegerField; + tblCampanhaDevedores: TZQuery; + tblCampanhaDevedoresID_ITEM: TIntegerField; + tblCampanhaDevedoresID_CAMPANHA: TIntegerField; + tblCampanhaDevedoresID_DEVEDOR: TIntegerField; + tblCampanhaDevedoresTX_DOCUMENTO: TWideStringField; + tblCampanhaDevedoresTP_ESTADO: TWideStringField; + tblCampanhaDevedoresTX_NOME: TStringField; + tblHistorico: TZQuery; + tblHistoricoID_HISTORICO: TIntegerField; + tblHistoricoID_DEVEDOR: TIntegerField; + tblHistoricoID_COBRADOR: TIntegerField; + tblHistoricoID_TITULO: TIntegerField; + tblHistoricoID_PROVIDENCIA: TIntegerField; + tblHistoricoDT_CONTATO: TDateTimeField; + tblHistoricoTP_AGENDAMENTO: TWideStringField; + tblHistoricoCD_PROTOCOLO: TWideStringField; + tblHistoricoTL_MEMO: TWideMemoField; + tblHistoricoID_ULTIMO_USUARIO: TIntegerField; + tblHistoricoDT_HORA_ULTIMA_ATT: TDateTimeField; + tblHistoricoID_TITULOS: TWideStringField; + tblHistoricoTX_ULTIMO_USUARIO: TStringField; + tblHistoricoTX_MEMO: TStringField; + tblProtocolo: TZQuery; + tblProtocoloID_PROTOCOLO: TIntegerField; + tblProtocoloCD_PROTOCOLO: TWideStringField; + tblProtocoloQNT_TITULOS: TIntegerField; + tblProtocoloID_TITULOS: TWideMemoField; + tblProtocoloID_DEVEDOR: TIntegerField; + tblProtocoloVL_ENTRADA: TFloatField; + tblProtocoloVL_JUROS: TFloatField; + tblProtocoloVL_MULTA: TFloatField; + tblProtocoloVL_INDICADOR: TFloatField; + tblProtocoloVL_ENCARGOS: TFloatField; + tblProtocoloVL_CORRIGIDO: TFloatField; + tblProtocoloTP_DESC_QUIT: TWideStringField; + tblProtocoloPR_QUIT_JUROS: TFloatField; + tblProtocoloPR_QUIT_MULTA: TFloatField; + tblProtocoloPR_QUIT_INDICADOR: TFloatField; + tblProtocoloPR_QUIT_PRINCIPAL: TFloatField; + tblProtocoloTP_DESC_PAR: TWideStringField; + tblProtocoloPR_PARCELAR_JUROS: TFloatField; + tblProtocoloPR_PARCELAR_MULTA: TFloatField; + tblProtocoloPR_PARCELAR_INDICADOR: TFloatField; + tblProtocoloPR_PARCELAR_PRINCIPAL: TFloatField; + tblProtocoloNR_PARCELAS: TIntegerField; + tblProtocoloDT_PROTOCOLO: TDateTimeField; + tblProtocoloPR_QUIT_COR: TFloatField; + tblProtocoloPR_PARCELAR_COR: TFloatField; + tblDespesasTitulos: TZQuery; + tblDespesasTitulosID_DESPESA: TIntegerField; + tblDespesasTitulosID_TITULO: TIntegerField; + tblDespesasTitulosTX_DESCRICAO: TWideStringField; + tblDespesasTitulosVL_DESPESA: TFloatField; + tblDespesasTitulosTP_DESPESA: TWideStringField; + tblIndicadorFinanceiro: TZQuery; + tblIndicadorFinanceiroID_INDICADOR: TIntegerField; + tblIndicadorFinanceiroID_CHG_EMPRESA: TIntegerField; + tblIndicadorFinanceiroPR_INDICADOR: TFloatField; + tblIndicadorFinanceiroVL_INDICADOR: TFloatField; + tblIndicadorFinanceiroTP_INDICADOR: TWideStringField; + tblIndicadorFinanceiroATRASO_MIN: TIntegerField; + tblIndicadorFinanceiroATRASO_MAX: TIntegerField; + tblAgendaTX_NOME: TStringField; + tblTelefones: TZQuery; + tblTelefonesID_TELEFONE: TIntegerField; + tblTelefonesID_DEVEDOR: TIntegerField; + tblTelefonesNR_NUMERO: TWideStringField; + tblTelefonesTP_ATIVO: TWideStringField; + tblTelefonesTP_TIPOTEL: TWideStringField; + tblTelefonesTX_DESC: TWideStringField; + tblTelefonesTX_OBS: TWideMemoField; + tblTelefonesID_ULTIMO_USUARIO: TIntegerField; + tblTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField; + tblTelefonesTX_ULTIMO_USUARIO: TStringField; + tblEnderecos: TZQuery; + tblEnderecosID_ENDERECO: TIntegerField; + tblEnderecosID_DEVEDOR: TIntegerField; + tblEnderecosTP_ENDERECO: TWideStringField; + tblEnderecosTP_ATIVO: TWideStringField; + tblEnderecosTX_LOGRADOURO: TWideStringField; + tblEnderecosTX_BAIRRO: TWideStringField; + tblEnderecosID_CIDADE: TIntegerField; + tblEnderecosID_ESTADO: TIntegerField; + tblEnderecosTX_CEP: TWideStringField; + tblEnderecosTX_COMPLEMENTO: TWideStringField; + tblEnderecosNR_NUMERO: TFloatField; + tblEnderecosTP_REFERENCIA: TWideStringField; + tblEnderecosID_HIGIENIZADORA: TIntegerField; + tblEnderecosTP_CONFIRMADO: TWideStringField; + tblEnderecosID_ULTIMO_USUARIO: TIntegerField; + tblEnderecosDT_HORA_ULTIMA_ATT: TDateTimeField; + tblEnderecosTX_ULTIMO_USUARIO: TStringField; + tblEnderecosTX_ESTADO: TStringField; + tblEnderecosTX_CIDADE: TStringField; + tblFaixas: TZQuery; + tblFaixasID_FAIXA: TIntegerField; + tblFaixasID_POLITICA: TIntegerField; + tblFaixasTX_DESCRICAO: TWideStringField; + tblFaixasATRASO_MIN: TIntegerField; + tblFaixasATRASO_MAX: TIntegerField; + tblFaixasPR_JUROS: TFloatField; + tblFaixasPR_MULTA: TFloatField; + tblFaixasPR_DESC_QUIT_PRIN: TFloatField; + tblFaixasPR_DESC_QUIT_JUROS: TFloatField; + tblFaixasPR_DESC_QUIT_MULTA: TFloatField; + tblFaixasPR_DESC_QUIT_IND_FIN: TFloatField; + tblFaixasPR_DESC_QUIT_COR: TFloatField; + tblFaixasPR_DESC_FINAN_PRIN: TFloatField; + tblFaixasPR_DESC_FINAN_JUROS: TFloatField; + tblFaixasPR_DESC_FINAN_MULTA: TFloatField; + tblFaixasPR_DESC_FINAN_COR: TFloatField; + tblFaixasPR_DESC_FINAN_IND_FIN: TFloatField; + tblPoliticas: TZQuery; + tblPoliticasID_POLITICA: TIntegerField; + tblPoliticasID_EMPRESA: TIntegerField; + tblPoliticasTX_DESCRICAO: TWideStringField; + tblPoliticasDT_INICIO: TDateTimeField; + tblPoliticasDT_FIM: TDateTimeField; + tblCidades: TZQuery; + tblCidadesID_CIDADE: TIntegerField; + tblCidadesTX_NOME: TWideStringField; + tblCidadesID_ESTADO: TIntegerField; + tblCidadesCD_IBGE: TWideStringField; + tblDevedores: TZQuery; + tblDevedoresID_DEVEDOR: TIntegerField; + tblDevedoresTP_CLIENTE: TWideStringField; + tblDevedoresTX_PAI: TWideStringField; + tblDevedoresTX_NOME: TWideStringField; + tblDevedoresTX_MAE: TWideStringField; + tblDevedoresDT_CADASTRO: TDateTimeField; + tblDevedoresDT_NASC: TDateTimeField; + tblDevedoresCD_CPF: TWideStringField; + tblDevedoresCD_CNPJ: TWideStringField; + tblDevedoresTL_MEMO: TWideMemoField; + tblDevedoresID_COBRADOR: TIntegerField; + tblDevedoresCD_RG: TWideStringField; + tblDevedoresCD_DEVEDOR: TWideStringField; + tblDevedoresTX_EMAIL: TWideStringField; + tblDevedoresID_ULTIMO_USUARIO: TIntegerField; + tblDevedoresDT_HORA_ULTIMA_ATT: TDateTimeField; + tblDevedoresTX_ULTIMO_USUARIO: TStringField; + tblTextoEmail: TZQuery; + dtsTextoEmail: TDataSource; + tblTextoEmailID_TEXTO: TIntegerField; + tblTextoEmailTX_DESCRICAO: TWideStringField; + tblTextoEmailTL_TEXTO: TWideMemoField; + tblAgendaNOME_COBRADOR: TStringField; + tblCampanhaDevedoresTP_COBRANDO: TIntegerField; + tblTelefonesNR_DDD: TWideStringField; + tblCHGEmpresaTP_ENTRADA: TWideStringField; + tblProtocoloTP_DESC_QUIT_COR: TWideStringField; + tblProtocoloTP_PAG: TWideStringField; + tblProtocoloTP_DESC_PAR_COR: TWideStringField; + tblProtocoloID_EMPRESA: TIntegerField; + tblCHGEmpresaPR_ENTRADA_MIN: TFloatField; + tblCHGEmpresaPR_ENTRADA_MAX: TFloatField; + tblProtocoloPR_ENTRADA: TFloatField; + tblCHGEmpresaTP_CHEQUE: TWideStringField; + tblCHGEmpresaTP_CRED: TWideStringField; + tblCHGEmpresaTP_DIN: TWideStringField; + tblHistoricoTX_PROVIDENCIA: TStringField; + tblAgendaDT_QUE_AGENDOU: TDateTimeField; + tblAgendaQUEM_AGENDOU: TIntegerField; + tblAgendaNOME_QUEM_AGENDOU: TStringField; + tblEmpresaPR_BANCO_DEBITO: TFloatField; + tblEmpresaPR_BANCO_CREDVISTA: TFloatField; + tblEmpresaPR_BANCO_CRED3: TFloatField; + tblEmpresaPR_BANCO_CRED6: TFloatField; + tblEmpresaPR_BANCO_CRED12: TFloatField; + tblReciboTX_CAIXA: TStringField; + tblReciboTP_CANCELADO: TWideStringField; + tblCobCampanhaQUEM_CAD: TIntegerField; + tblCampanhaCobID_ULTIMO_USUARIO: TIntegerField; + tblCampanhaCobDT_HORA_ULTIMA_ATT: TDateTimeField; + tblCampanhaDevedoresID_ULTIMO_USUARIO: TIntegerField; + tblCampanhaDevedoresDT_HORA_ULTIMA_ATT: TDateTimeField; + tblCHGEmpresaID_ULTIMO_USUARIO: TIntegerField; + tblCHGEmpresaDT_HORA_ULTIMA_ATT: TDateTimeField; + tblPoliticasID_ULTIMO_USUARIO: TIntegerField; + tblPoliticasDT_HORA_ULTIMA_ATT: TDateTimeField; + tblFaixasID_ULTIMO_USUARIO: TIntegerField; + tblFaixasDT_HORA_ULTIMA_ATT: TDateTimeField; + tblEmail: TZQuery; + dtsEmail: TDataSource; + tblEmailID_DEVEDOR: TIntegerField; + tblEmailTX_EMAIL: TWideStringField; + tblEmailID_ULTIMO_USUARIO: TIntegerField; + tblEmailDT_HORA_ULTIMA_ATT: TDateTimeField; + tblEmailTX_ULTIMO_USUARIO: TStringField; + dtsLogCampanhas: TDataSource; + tblLogCampanhas: TZQuery; + tblLogCampanhasID_ITEM: TIntegerField; + tblLogCampanhasID_CAMPANHA: TIntegerField; + tblLogCampanhasTX_NOME_CAMPANHA: TWideStringField; + tblLogCampanhasID_DEVEDOR: TIntegerField; + tblLogCampanhasID_USUARIO: TIntegerField; + tblLogCampanhasDT_TRANSF: TDateTimeField; + tblLogCampanhasTP_ACAO: TWideStringField; + tblEmailID_EMAIL: TIntegerField; + dtsAcordos: TDataSource; + tblAcordos: TZQuery; + tblAcordosID_ITEM: TIntegerField; + tblAcordosID_ACORDO: TIntegerField; + tblAcordosID_PARCELA: TIntegerField; + tblAcordosID_ORIGINAL: TIntegerField; + tblAcordosID_DEVEDOR: TIntegerField; + tblEmpresaTP_TLS: TWideStringField; + tblEmpresaTP_SSL: TWideStringField; + tblUsuariosTP_SSL: TWideStringField; + tblUsuariosConsultaTP_SSL: TWideStringField; + tblCobCampanhaTL_DESC: TWideMemoField; + tblUsuariosTP_TLS: TWideStringField; + tblUsuariosConsultaTP_TLS: TWideStringField; + tblFiltrosTL_CREDOR: TWideMemoField; + tblFiltrosTL_PROV: TWideMemoField; + tblTitulosID_IMPLANTACAO: TIntegerField; + tblTitulosTX_IMPLANTADO: TStringField; + tblTitulosDT_IMPLANTACAO: TDateTimeField; + tblTitulosQTDE_PARCELAS: TIntegerField; + tblTitulosVL_DESC_PRINCIPAL: TFloatField; + zroQryAcordos: TZReadOnlyQuery; + dtsQAcordos: TDataSource; + zroQryAcordosID_ITEM: TIntegerField; + zroQryAcordosID_ACORDO: TIntegerField; + zroQryAcordosID_PARCELA: TIntegerField; + zroQryAcordosID_ORIGINAL: TIntegerField; + zroQryAcordosID_DEVEDOR: TIntegerField; + zroQryAcordosTX_NOME: TStringField; + zroQryAcordosVL_TITULO: TCurrencyField; + zroQryAcordosDT_VENCIMENTO: TDateField; + tblFaixasDT_MIN: TDateTimeField; + tblFaixasDT_MAX: TDateTimeField; + tblTitulosDT_EMISSAO_RECIBO: TDateTimeField; + tblFaixasTP_FAIXA: TWideStringField; + tblRepasseFase: TZQuery; + tblRepasseFaseID_FASE: TIntegerField; + tblRepasseFasePR_PRINCIPAL: TFloatField; + tblRepasseFasePR_JUROS: TFloatField; + tblRepasseFasePR_MULTA: TFloatField; + tblRepasseFasePR_ENCARGOS: TFloatField; + tblRepasseFasePR_CORRIGIDO: TFloatField; + tblRepasseFaseMIN_ATRASO: TIntegerField; + tblRepasseFaseMAX_ATRASO: TIntegerField; + tblRepasseFaseID_REPASSE: TIntegerField; + dtsRepasseFase: TDataSource; + tblRepasseFaseID_ULTIMO_USUARIO: TIntegerField; + tblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField; + zroqryContatos: TZReadOnlyQuery; + dtsContatos: TDataSource; + zroqryContatosID_COBRADOR: TIntegerField; + zroqryContatosNOME: TWideStringField; + zroqryContatosQTDE_ACIONAMENTOS: TIntegerField; + tblProvidenciasTP_FORCAAGENDA: TWideStringField; + tblTelefonesTP_SMS: TWideStringField; + tblCHGEmpresaID_DEPARTAMENTO: TIntegerField; + dtsDepartamentos: TDataSource; + tblDepartamentos: TZQuery; + tblDepartamentosID_DEPARTAMENTOS: TIntegerField; + tblDepartamentosTX_NOME: TWideStringField; + dtsUsuariosConsulta: TDataSource; + dtsEmpresaRepasse: TDataSource; + tblEmpresaRepasse: TZQuery; + tblEmpresaRepasseID_ITEM: TIntegerField; + tblEmpresaRepasseID_EMPRESA: TIntegerField; + tblEmpresaRepassePR_PRINCIPAL: TFloatField; + tblEmpresaRepassePR_JUROS: TFloatField; + tblEmpresaRepassePR_MULTA: TFloatField; + tblEmpresaRepassePR_ENCARGOS: TFloatField; + tblEmpresaRepassePR_CORRIGIDO: TFloatField; + tblEmpresaRepasseTX_NOME: TWideStringField; + tblEmpresaRepasseID_MES: TIntegerField; + tblEmpresaRepasseID_ANO: TIntegerField; + tblLog: TZQuery; + tblLogID_LOG: TIntegerField; + tblLogTX_TABELA: TWideStringField; + tblLogID_REGISTRO: TIntegerField; + tblLogTX_ACAO: TWideStringField; + tblLogID_USUARIO: TIntegerField; + tblLogDT_LOG: TDateTimeField; + tblLogTL_ACAO: TWideMemoField; + ZSQLProcessorAcordos: TZSQLProcessor; + seqLogs: TZSequence; + seqHistoricos: TZSequence; + seqDevedores: TZSequence; + seqRecibos: TZSequence; + seqEnderecos: TZSequence; + seqTelefones: TZSequence; + tblCHGEmpresaTP_JUROS: TWideStringField; + tblCHGEmpresaNR_JUROS: TFloatField; + tblFaixasTP_JUROS: TWideStringField; + tblFaixasNR_JUROS: TFloatField; + tblTitulosVL_DESC_MULTA: TFloatField; + tblTitulosVL_DESC_JUROS: TFloatField; + tblTitulosVL_INDICADOR: TFloatField; + tblTitulosVL_DESC_INDICADOR: TFloatField; + tblTitulosVL_REPASSE_MULTA: TFloatField; + tblTitulosVL_REPASSE_JUROS: TFloatField; + tblTitulosVL_REPASSE_CORRIGIDO: TFloatField; + tblTitulosVL_REPASSE_PRIN: TFloatField; + tblTitulosTP_PRESTACAO: TWideStringField; + tblTitulosVL_REPASSE_ENCARGOS: TFloatField; + dtsGrupoBoletos: TDataSource; + dtsGrupoBoletoEmpresas: TDataSource; + tblGrupoBoletos: TZQuery; + tblGrupoBoletoEmpresas: TZQuery; + seqGrupoBoletos: TZSequence; + seqGrupoBoletoEmpresas: TZSequence; + tblGrupoBoletosID_GRUPO: TIntegerField; + tblGrupoBoletosTX_NOME: TWideStringField; + tblGrupoBoletosTX_DESCRICAO: TWideStringField; + tblGrupoBoletoEmpresasID_ITEM: TIntegerField; + tblGrupoBoletoEmpresasID_GRUPO_BOLETO: TIntegerField; + tblGrupoBoletoEmpresasID_EMPRESA: TIntegerField; + ImageList1: TImageList; + tblGrupoBoletoEmpresasTX_EMPRESA: TStringField; + tblGrupoBoletosTP_DESC1: TWideStringField; + tblGrupoBoletosNR_DESC1: TFloatField; + tblGrupoBoletosPR_DESC1: TFloatField; + tblGrupoBoletosDT_DESC1: TDateField; + tblGrupoBoletosTP_DESC2: TWideStringField; + tblGrupoBoletosNR_DESC2: TFloatField; + tblGrupoBoletosPR_DESC2: TFloatField; + tblGrupoBoletosDT_DESC2: TDateField; + tblGrupoBoletosTP_DESC3: TWideStringField; + tblGrupoBoletosNR_DESC3: TFloatField; + tblGrupoBoletosPR_DESC3: TFloatField; + tblGrupoBoletosDT_DESC3: TDateField; + tblGrupoBoletosTP_MULTA: TWideStringField; + tblGrupoBoletosNR_MULTA: TFloatField; + tblGrupoBoletosPR_MULTA: TFloatField; + tblGrupoBoletosTP_MORA: TWideStringField; + tblGrupoBoletosNR_MORA: TFloatField; + tblGrupoBoletosPR_MORA: TFloatField; + tblBoletos: TZQuery; + dtsBoletos: TDataSource; + seqBoletos: TZSequence; + tblBoletosID: TIntegerField; + tblBoletosNR_NOSSO_NUMERO: TWideStringField; + tblBoletosDT_EMISSAO: TDateField; + tblBoletosVL_NOMINAL: TFloatField; + tblBoletosVL_ABATIMENTO: TFloatField; + tblBoletosDT_VENCIMENTO: TDateField; + tblBoletosID_GRUPO: TSingleField; + seqBoletoTitulos: TZSequence; + tblBoletoTitulos: TZQuery; + dtsBoletoTitulos: TDataSource; + tblBoletoTitulosID_ITEM: TIntegerField; + tblBoletoTitulosID_DEVEDOR: TIntegerField; + tblBoletoTitulosID_TITULO: TIntegerField; + tblBoletoTitulosID_BOLETO: TIntegerField; + tblEmpresaTX_CNPJ_BOLETO: TWideStringField; + tblCidadesConsulta: TZReadOnlyQuery; + tblCidadesConsultaID_CIDADE: TIntegerField; + tblCidadesConsultaTX_NOME: TWideStringField; + tblCidadesConsultaID_ESTADO: TIntegerField; + tblCidadesConsultaCD_IBGE: TWideStringField; + tblBoletosCD_COD_BARRAS: TWideStringField; + tblBoletosCD_LINHA_DIGITAVEL: TWideStringField; + dtsContas: TDataSource; + tblContas: TZQuery; + tblContasID_CONTA: TIntegerField; + tblContasTX_DESCRICAO: TWideStringField; + tblContasCD_AGENCIA: TWideStringField; + tblContasCD_AGENCIA_DV: TWideStringField; + tblContasCD_CEDENTE: TWideStringField; + tblContasCD_CEDENTE_DV: TWideStringField; + tblContasCD_CONVENIO: TWideStringField; + tblContasCD_CONVENIO_DV: TWideStringField; + tblContasCD_CONTA: TWideStringField; + tblContasCD_CONTA_DV: TWideStringField; + tblContasID_BANCO: TIntegerField; + tblContasTP_SITUACAO: TWideStringField; + tblContasCD_MODALIDADE: TWideStringField; + tblContasDT_REMESSA: TDateField; + tblContasNR_REMESSA: TIntegerField; + seqContas: TZSequence; + tblEmpresaCD_BENEFICIARIO: TWideStringField; + seqNrRecibo: TZSequence; + dtsPrCartao: TDataSource; + tblPrCartao: TZQuery; + tblPrCartaoID_ITEM: TIntegerField; + tblPrCartaoNR_PARCELA: TIntegerField; + tblPrCartaoPR_JUROS: TFloatField; + tblPrCartaoTX_DESCRICAO: TWideStringField; + tblPrCartaoPR_REPASSE: TFloatField; + procedure tblUsuariosAfterInsert(DataSet: TDataSet); + procedure tblGruposAfterInsert(DataSet: TDataSet); + procedure tblGruposPermissoesAfterInsert(DataSet: TDataSet); + procedure DataModuleCreate(Sender: TObject); + procedure tblCidadesAfterInsert(DataSet: TDataSet); + procedure tblGruposPermissoesAfterPost(DataSet: TDataSet); + procedure AtribuirChavePrimaria(DataSet: TDataSet); + procedure RegistarLog(DataSet: TDataSet; table, action: string); + procedure tblGruposBeforePost(DataSet: TDataSet); + procedure tblLogBeforePost(DataSet: TDataSet); + procedure tblCHGEmpresaBeforePost(DataSet: TDataSet); + procedure tblPoliticasBeforePost(DataSet: TDataSet); + procedure tblFaixasBeforePost(DataSet: TDataSet); + procedure dtsGruposDataChange(Sender: TObject; Field: TField); + procedure tblGruposBeforeDelete(DataSet: TDataSet); + procedure tblEnderecosBeforePost(DataSet: TDataSet); + procedure tblTelefonesBeforePost(DataSet: TDataSet); + procedure tblTitulosBeforePost(DataSet: TDataSet); + procedure tblCHGEmpresaAfterDelete(DataSet: TDataSet); + procedure tblProvidenciasBeforePost(DataSet: TDataSet); + procedure tblInadimplenciasBeforePost(DataSet: TDataSet); + procedure tblCampanhaCobBeforePost(DataSet: TDataSet); + procedure tblCampanhaDevedoresBeforePost(DataSet: TDataSet); + procedure tblCobCampanhaBeforePost(DataSet: TDataSet); + procedure tblFaixasAfterInsert(DataSet: TDataSet); + procedure tblPoliticasAfterInsert(DataSet: TDataSet); + procedure tblPoliticasAfterPost(DataSet: TDataSet); + procedure tblHistoricoBeforePost(DataSet: TDataSet); + procedure tblProvidenciasBeforeDelete(DataSet: TDataSet); + procedure tblProvidenciasBeforeEdit(DataSet: TDataSet); + procedure tblAgendaBeforePost(DataSet: TDataSet); + procedure tblLayoutsBeforePost(DataSet: TDataSet); + procedure tblProtocoloBeforePost(DataSet: TDataSet); + procedure tblLogPostError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); + procedure tblLogEditError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); + procedure tblInadimplenciasDeleteError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); + procedure tblInadimplenciasEditError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); + procedure tblInadimplenciasPostError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); + procedure tblCHGEmpresaBeforeDelete(DataSet: TDataSet); + procedure tblIndicesBeforePost(DataSet: TDataSet); + procedure tblIndicesAfterPost(DataSet: TDataSet); + procedure tblReciboBeforePost(DataSet: TDataSet); + procedure tblConteudoReciboBeforePost(DataSet: TDataSet); + procedure tblUsuariosBeforePost(DataSet: TDataSet); + procedure tblDuplicadosBeforePost(DataSet: TDataSet); + procedure tblRepasseBeforePost(DataSet: TDataSet); + procedure tblRepasseBeforeDelete(DataSet: TDataSet); + procedure tblRepasseBeforeEdit(DataSet: TDataSet); + procedure tblLoginsBeforePost(DataSet: TDataSet); + procedure tblSessaoBeforePost(DataSet: TDataSet); + procedure tblDespesasTitulosBeforePost(DataSet: TDataSet); + procedure tblIndicadorFinanceiroBeforePost(DataSet: TDataSet); + procedure tblEmpresaBeforePost(DataSet: TDataSet); + procedure tblFiltrosBeforePost(DataSet: TDataSet); + procedure dtsDevedoresUpdateData(Sender: TObject); + procedure dtsCHGEmpresaUpdateData(Sender: TObject); + procedure dtsPoliticasUpdateData(Sender: TObject); + procedure dtsFaixasUpdateData(Sender: TObject); + procedure dtsCHGEnderecosUpdateData(Sender: TObject); + procedure dtsTelefonesUpdateData(Sender: TObject); + procedure dtsIndicadorFinanceiroUpdateData(Sender: TObject); + procedure tblTitulosAfterPost(DataSet: TDataSet); + procedure tblDevedoresAfterOpen(DataSet: TDataSet); + procedure dtsDevedoresDataChange(Sender: TObject; Field: TField); + procedure tblTitulosBeforeOpen(DataSet: TDataSet); + procedure tblUsuariosBeforeOpen(DataSet: TDataSet); + procedure tblGruposAfterOpen(DataSet: TDataSet); + procedure tblGruposPermissoesBeforeOpen(DataSet: TDataSet); + procedure tblCampanhaCobBeforeOpen(DataSet: TDataSet); + procedure tblCobCampanhaAfterOpen(DataSet: TDataSet); + procedure dtsCobCampanhaDataChange(Sender: TObject; Field: TField); + procedure tblCampanhaDevedoresBeforeOpen(DataSet: TDataSet); + procedure tblHistoricoBeforeOpen(DataSet: TDataSet); + procedure tblProtocoloBeforeOpen(DataSet: TDataSet); + procedure tblDespesasTitulosBeforeOpen(DataSet: TDataSet); + procedure tblTitulosAfterOpen(DataSet: TDataSet); + procedure dtsTitulosDataChange(Sender: TObject; Field: TField); + procedure tblIndicadorFinanceiroBeforeOpen(DataSet: TDataSet); + procedure tblCHGEmpresaAfterOpen(DataSet: TDataSet); + procedure dtsCHGEmpresaDataChange(Sender: TObject; Field: TField); + procedure tblTelefonesBeforeOpen(DataSet: TDataSet); + procedure tblEnderecosBeforeOpen(DataSet: TDataSet); + procedure tblDevedoresBeforePost(DataSet: TDataSet); + procedure tblTextoEmailBeforePost(DataSet: TDataSet); + procedure tblHistoricoPostError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); + procedure tblEstadosAfterOpen(DataSet: TDataSet); + procedure tblCidadesAfterOpen(DataSet: TDataSet); + procedure tblHistoricoAfterPost(DataSet: TDataSet); + procedure tblHistoricoBeforeDelete(DataSet: TDataSet); + procedure tblPermissoesBeforePost(DataSet: TDataSet); + procedure tblGruposPermissoesBeforePost(DataSet: TDataSet); + procedure tblDevedoresBeforeDelete(DataSet: TDataSet); + procedure tblEmailBeforeOpen(DataSet: TDataSet); + procedure tblEmailBeforePost(DataSet: TDataSet); + procedure tblLogCampanhasBeforePost(DataSet: TDataSet); + procedure tblAcordosBeforePost(DataSet: TDataSet); + procedure ZConnectionAfterDisconnect(Sender: TObject); + procedure tblRepasseFaseBeforePost(DataSet: TDataSet); + procedure tblRepasseFaseAfterOpen(DataSet: TDataSet); + procedure tblRepasseAfterOpen(DataSet: TDataSet); + procedure dtsRepasseDataChange(Sender: TObject; Field: TField); + procedure tblRepasseFaseBeforeOpen(DataSet: TDataSet); + procedure tblTitulosBeforeEdit(DataSet: TDataSet); + procedure tblTitulosBeforeDelete(DataSet: TDataSet); + procedure dtsRepasseFaseDataChange(Sender: TObject; Field: TField); + procedure tblDepartamentosBeforePost(DataSet: TDataSet); + procedure tblDevedoresBeforeEdit(DataSet: TDataSet); + procedure tblEmpresaBeforeDelete(DataSet: TDataSet); + procedure tblEmpresaBeforeEdit(DataSet: TDataSet); + procedure tblUsuariosBeforeDelete(DataSet: TDataSet); + procedure tblUsuariosBeforeEdit(DataSet: TDataSet); + procedure tblGruposBeforeEdit(DataSet: TDataSet); + procedure tblPermissoesBeforeDelete(DataSet: TDataSet); + procedure tblPermissoesBeforeEdit(DataSet: TDataSet); + procedure tblGruposPermissoesBeforeDelete(DataSet: TDataSet); + procedure tblGruposPermissoesBeforeEdit(DataSet: TDataSet); + procedure tblCHGEmpresaBeforeEdit(DataSet: TDataSet); + procedure tblPoliticasBeforeDelete(DataSet: TDataSet); + procedure tblPoliticasBeforeEdit(DataSet: TDataSet); + procedure tblFaixasBeforeDelete(DataSet: TDataSet); + procedure tblFaixasBeforeEdit(DataSet: TDataSet); + procedure tblHistoricoBeforeEdit(DataSet: TDataSet); + procedure tblDepartamentosBeforeDelete(DataSet: TDataSet); + procedure tblDepartamentosBeforeEdit(DataSet: TDataSet); + procedure tblEnderecosBeforeDelete(DataSet: TDataSet); + procedure tblEnderecosBeforeEdit(DataSet: TDataSet); + procedure tblTelefonesBeforeDelete(DataSet: TDataSet); + procedure tblTelefonesBeforeEdit(DataSet: TDataSet); + procedure tblCobCampanhaBeforeDelete(DataSet: TDataSet); + procedure tblCobCampanhaBeforeEdit(DataSet: TDataSet); + procedure tblCampanhaCobBeforeDelete(DataSet: TDataSet); + procedure tblCampanhaCobBeforeEdit(DataSet: TDataSet); + procedure tblCampanhaDevedoresBeforeDelete(DataSet: TDataSet); + procedure tblCampanhaDevedoresBeforeEdit(DataSet: TDataSet); + procedure tblAgendaBeforeDelete(DataSet: TDataSet); + procedure tblAgendaBeforeEdit(DataSet: TDataSet); + procedure tblLayoutsBeforeDelete(DataSet: TDataSet); + procedure tblLayoutsBeforeEdit(DataSet: TDataSet); + procedure tblProtocoloBeforeDelete(DataSet: TDataSet); + procedure tblProtocoloBeforeEdit(DataSet: TDataSet); + procedure tblIndicesBeforeDelete(DataSet: TDataSet); + procedure tblIndicesBeforeEdit(DataSet: TDataSet); + procedure tblReciboBeforeDelete(DataSet: TDataSet); + procedure tblReciboBeforeEdit(DataSet: TDataSet); + procedure tblIndicadorFinanceiroBeforeDelete(DataSet: TDataSet); + procedure tblIndicadorFinanceiroBeforeEdit(DataSet: TDataSet); + procedure tblFiltrosBeforeDelete(DataSet: TDataSet); + procedure tblFiltrosBeforeEdit(DataSet: TDataSet); + procedure tblTextoEmailBeforeDelete(DataSet: TDataSet); + procedure tblTextoEmailBeforeEdit(DataSet: TDataSet); + procedure tblEmailBeforeDelete(DataSet: TDataSet); + procedure tblEmailBeforeEdit(DataSet: TDataSet); + procedure tblAcordosBeforeDelete(DataSet: TDataSet); + procedure tblAcordosBeforeEdit(DataSet: TDataSet); + procedure tblEmpresaRepasseBeforeDelete(DataSet: TDataSet); + procedure tblEmpresaRepasseBeforeEdit(DataSet: TDataSet); + procedure tblEmpresaRepasseBeforePost(DataSet: TDataSet); + procedure tblEmpresaRepasseAfterOpen(DataSet: TDataSet); + procedure dtsEmpresaRepasseDataChange(Sender: TObject; Field: TField); + function MonthsBetween(dIni, dFim: TDate): integer; + procedure tblEmpresaRepasseAfterPost(DataSet: TDataSet); + procedure tblGrupoBoletosBeforeDelete(DataSet: TDataSet); + procedure tblGrupoBoletoEmpresasBeforeDelete(DataSet: TDataSet); + procedure tblGrupoBoletosBeforeEdit(DataSet: TDataSet); + procedure tblGrupoBoletoEmpresasBeforeEdit(DataSet: TDataSet); + procedure tblGrupoBoletosBeforePost(DataSet: TDataSet); + procedure tblGrupoBoletoEmpresasBeforePost(DataSet: TDataSet); + procedure tblGrupoBoletoEmpresasBeforeOpen(DataSet: TDataSet); + procedure tblBoletosBeforeDelete(DataSet: TDataSet); + procedure tblBoletoTitulosBeforeDelete(DataSet: TDataSet); + procedure tblBoletosBeforeEdit(DataSet: TDataSet); + procedure tblBoletoTitulosBeforeEdit(DataSet: TDataSet); + procedure tblBoletosBeforePost(DataSet: TDataSet); + procedure tblBoletoTitulosBeforePost(DataSet: TDataSet); + procedure tblPrCartaoAfterInsert(DataSet: TDataSet); + private + { Private declarations } + public + // variveis usadas fora desta form + tx_formulario: String; + tx_usuario: String; + tx_caminho_versao: String; + tx_grupo: String; + fields_before: array of string; + + // parametros das querys + id_devedor: integer; + id_grupoq: integer; + id_campanha: integer; + tx_campanha: string; + id_tit: integer; + id_credor: integer; + id_repasse: integer; + id_repasse_fase: integer; + + id_usuario: integer; + id_grupo: integer; + acesso_manager: boolean; + add_user: boolean; + mostrar_senha: boolean; + att_banco: boolean; + log: TextFile; + CusFmt: TFormatSettings; + id_empimport: integer; + cod_liberapermissao: integer; + tent_perm: integer; + tit_state: string; + dt_pag: TDateTime; + dt_recibo: TDateTime; + + path_executavel: string; + version: string; + + // permissoes + cd_value: TStringList; + cd_parent: TStringList; + perm_caddev: boolean; + perm_cobtel: boolean; + + // certificados + public_key: string; + private_key: string; + certificate_key: string; + conta_corrente: string; + + function NovoCodigo(Tabela, Campo: String): integer; + function MD5(Texto: String): String; + function MD5FILE(const fileName: string): String; + function VerificarPermissao(cd_permissao: string): boolean; + procedure AlterReadOnly(objeto: TPanel; DataSet: TDataSet); + procedure InserirPermissao(cd_permissao, tp_permissao, + tx_descricao: string); + procedure EscreveLog(acao: string; table: TZQuery); + procedure LogaDC(txt: string); + function VerificarVersao(): boolean; + function ComputerName(): string; + function GetAppVersionStr(): string; + function FormatTelefone(telefone: string): string; + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); + procedure OrganizaPorColuna(Tabela: TObject; coluna: TColumn); + procedure JsonBuilder(table: TZTable; model: string; pk: string); + procedure JsonBuilderOnline(table: TZTable; model: string; pk: string; + url: string); + procedure MakePermissoes; + function CheckDiffFields(DataSet: TDataSet; + fields: array of string): boolean; + procedure LogDiffFields(DataSet: TDataSet; fields: array of string; + table: string; action: string); + procedure LogDelete(DataSet: TDataSet; table: string; action: string); + procedure LogPost(DataSet: TDataSet; table: string; action: string; + sequence: TZSequence = nil); + function gerarProtocolo(id_devedor: string): string; + procedure OpenOrRefresh(table: TZQuery); + { Public declarations } + end; + +var + dtmSystem: TdtmSystem; + +implementation + +{ %CLASSGROUP 'Vcl.Controls.TControl' } + +uses ucadUsuarios, ufrmAtendimento, ShellApi; + +{$R *.dfm} + +procedure TdtmSystem.DataModuleCreate(Sender: TObject); +var + path_banco , layoutHelper: string; + banco, lista: TStringList; + i: integer; +begin + Application.UpdateFormatSettings := false; + CusFmt := TFormatSettings.Create(LOCALE_SYSTEM_DEFAULT); + CusFmt.CurrencyFormat := 2; + CusFmt.CurrencyString := 'R$'; + + ZConnection.Disconnect; + // abre o arquivo ini + with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'sistema.ini') do + begin + path_banco := ReadString('Dados', 'Dir', ''); + path_executavel := ReadString('Dados', 'path', + ExtractFilePath(Application.ExeName)); + + try + ZConnection.Database := ReadString('Dados', 'Dir', ''); + ZConnection.Connect; + except + showmessage + ('No foi possvel encontrar o banco de dados. O programa ser fechado.'); + Application.Terminate; + end; + end; + with TIniFile.Create(path_executavel + '\version_control.ini') do + begin + version := ReadString('Dados', 'version', ''); + end; + if not ZConnection.Connected then + begin + ZConnection.Connect; + end; + tblLog.Open; + tblGrupos.Open; + + { Estou "removendo" partes desnecessrias do cdigo para tentar otimizar o sistema + if tblGrupos.IsEmpty then // se no tem grupos, gera grupos predefinidos + begin + tblGrupos.Append; + tblGruposID_GRUPO.AsInteger := 1; + tblGruposTX_NOME.AsString := 'Administrador'; + tblGruposTP_SU.AsString := 'S'; + tblGrupos.Post; + tblGrupos.Append; + tblGruposID_GRUPO.AsInteger := 2; + tblGruposTX_NOME.AsString := 'Cobrador'; + tblGruposTP_SU.AsString := 'N'; + tblGrupos.Post; + tblGrupos.Append; + tblGruposID_GRUPO.AsInteger := 3; + tblGruposTX_NOME.AsString := 'Atendente'; + tblGruposTP_SU.AsString := 'N'; + tblGrupos.Post; + end;} + tblUsuarios.Open; + + {if tblUsuarios.IsEmpty then // se no tiver usurios, gera um predefinido + begin + tblUsuarios.Append; + tblUsuariosTX_NOME.AsString := 'Master'; + tblUsuariosTX_USUARIO.AsString := 'master'; + // tblUsuariosTX_SENHA.AsString := MD5('master'); + tblUsuariosTX_SENHA.AsString := 'master'; + tblUsuariosID_GRUPO.AsInteger := 1; + tblUsuarios.Post; + end;} + + tblGruposPermissoes.Open; + + tblPermDisponiveis.Open; // se descomentar o cdigo a baixo tira esta linha + + {cadUsuarios := TcadUsuarios.Create(self); + with cadUsuarios do // gera e atualiza as permisses + begin + AcessoCobranca; + AcessoFerramentas; + AcessoCobrancaTel; + AcessoAtendimento; + AcessoCadastros; + AcessoDevedores; + AcessoCredores; + AcessoUsuarios; + AcessoRelatorios; + AcessoOpcoes; + + // InserirIDnaPerm; + AtualizarPermissoesGrupos; + tblPermDisponiveis.Open; + tblGruposPermissoes.First; + tblGrupos.Open; + while not tblGruposPermissoes.Eof do + begin + if tblGruposPermissoesID_GRUPO.AsInteger = 1 then + begin + tblGruposPermissoes.Edit; + tblGruposPermissoesTP_ACESSO.AsString := 'S'; + tblGruposPermissoes.Post; + end; + tblGruposPermissoes.Next; + end; + end;} + + tblProvidencias.Open; + { if tblProvidencias.IsEmpty then + // gera as providncias padres caso no tenha nenhuma + begin + tblProvidencias.Append; + tblProvidenciasTX_NOME.AsString := 'Agend-Cob'; + tblProvidenciasTX_DESCRICAO.AsString := + 'Cobrana agendada para outro cobrador.'; + tblProvidencias.Post; + tblProvidencias.Append; + tblProvidenciasTX_NOME.AsString := 'Quit-Local'; + tblProvidenciasTX_DESCRICAO.AsString := + 'Ttulo quitado com a empresa de cobrana.'; + tblProvidencias.Post; + tblProvidencias.Append; + tblProvidenciasTX_NOME.AsString := 'Acordo-Local'; + tblProvidenciasTX_DESCRICAO.AsString := + 'Ttulo acordado com a empresa de cobrana.'; + tblProvidencias.Post; + tblProvidencias.Append; + tblProvidenciasTX_NOME.AsString := 'Rel-M'; + tblProvidenciasTX_DESCRICAO.AsString := 'Religar na manh seguinte.'; + tblProvidencias.Post; + tblProvidencias.Append; + tblProvidenciasTX_NOME.AsString := 'Rel-T'; + tblProvidenciasTX_DESCRICAO.AsString := 'Religar na tarde seguinte.'; + tblProvidencias.Post; + tblProvidencias.Append; + tblProvidenciasTX_NOME.AsString := 'Cob-Feita'; + tblProvidenciasTX_DESCRICAO.AsString := + 'Cobrana telefnica realizada com sucesso.'; + tblProvidencias.Post; + end; + tblProvidencias.Close; } + + tblRepasse.Open; + tblRepasseFase.Open; + tblPrCartao.Open; + { if tblRepasse.IsEmpty then // gera o repasse "padro" caso no tenha + begin + tblRepasse.Append; + tblRepasseID_REPASSE.AsInteger := 1; + tblRepassePR_PRINCIPAL.AsFloat := 0; + tblRepassePR_JUROS.AsFloat := 0; + tblRepassePR_MULTA.AsFloat := 0; + tblRepassePR_ENCARGOS.AsFloat := 0; + tblRepassePR_CORRIGIDO.AsFloat := 100; + tblRepasseTX_NOME.AsString := 'Sem Repasse'; + tblRepasse.Post; + end; + tblRepasse.Close; } + tent_perm := 0; + perm_caddev := true; + perm_cobtel := true; + + // tblLayouts.Open; + // tblLayouts.First; + // + // try + // lista := TStringList.Create; + // while not tblLayouts.Eof do + // begin + // lista.Clear; + // lista.Delimiter := ';'; + // layoutHelper := tblLayoutsSTR_CAMPOS.AsString; + // lista.DelimitedText := tblLayoutsSTR_CAMPOS.AsString; + // while lista.Count <= 32 do + // // menor ou igual pq o vazio depois do ltimo ';' conta como uma posio tambm + // begin + // layoutHelper := layoutHelper + '0;'; + // lista.DelimitedText := layoutHelper; + // end; + // if layoutHelper <> tblLayoutsSTR_CAMPOS.AsString then + // begin + // tblLayouts.Edit; + // tblLayoutsSTR_CAMPOS.AsString := layoutHelper; + // tblLayouts.Post; + // end; + // tblLayouts.Next; + // end; + // finally + // lista.Free; + // end; + // tblLayouts.Close; + // cdsHist.CreateDataSet; +end; + +procedure TdtmSystem.dtsCHGEmpresaDataChange(Sender: TObject; Field: TField); +begin + if id_credor <> tblCHGEmpresaID_EMPRESA.AsInteger then + begin + id_credor := tblCHGEmpresaID_EMPRESA.AsInteger; + if tblIndicadorFinanceiro.Active then + begin + tblIndicadorFinanceiro.SQL.Clear; + tblIndicadorFinanceiro.SQL.Add + ('select * from CHG_INDICADORES_FINANCEIROS where ID_CHG_EMPRESA =' + + inttostr(id_credor)); + tblIndicadorFinanceiro.Open; + end; + if tblEmpresaRepasse.Active then + begin + tblEmpresaRepasse.SQL.Clear; + tblEmpresaRepasse.SQL.Add + ('SELECT * FROM CHG_EMPRESA_REPASSE WHERE ID_EMPRESA =' + + inttostr(id_credor) + ' order by ID_ANO, ID_MES'); + tblEmpresaRepasse.Open; + end; + end; +end; + +procedure TdtmSystem.dtsCHGEmpresaUpdateData(Sender: TObject); +begin + // try + // JsonBuilder(tblCHGEmpresa, 'empresa', 'ID_EMPRESA'); + // except + // + // end; +end; + +procedure TdtmSystem.dtsCHGEnderecosUpdateData(Sender: TObject); +begin + // try + // JsonBuilder(tblEnderecos, 'endereco', 'ID_ENDERECO'); + // except + // + // end; +end; + +procedure TdtmSystem.dtsCobCampanhaDataChange(Sender: TObject; Field: TField); +begin + if id_campanha <> tblCobCampanhaID_CAMPANHA.AsInteger then + begin + id_campanha := tblCobCampanhaID_CAMPANHA.AsInteger; + tx_campanha := tblCobCampanhaTX_NOME.AsString; + if tblCampanhaCob.Active then + begin + tblCampanhaCob.SQL.Clear; + tblCampanhaCob.SQL.Add + ('select * from CHG_CAMPANHAS_COBRADORES where id_campanha =' + + inttostr(id_campanha)); + tblCampanhaCob.Open; + end; + if tblCampanhaDevedores.Active then + begin + tblCampanhaDevedores.SQL.Clear; + tblCampanhaDevedores.SQL.Add + ('select * from CHG_CAMPANHAS_DEVEDORES where id_campanha =' + + inttostr(id_campanha)); + tblCampanhaDevedores.Open; + end; + end; +end; + +procedure TdtmSystem.dtsDevedoresDataChange(Sender: TObject; Field: TField); +begin + if id_devedor <> tblDevedoresID_DEVEDOR.AsInteger then + begin + id_devedor := tblDevedoresID_DEVEDOR.AsInteger; + if tblTitulos.Active then + begin + tblTitulos.SQL.Clear; + tblTitulos.SQL.Add('select * from chg_titulos where id_devedor =' + + inttostr(id_devedor)); + tblTitulos.SQL.Add('order by DT_VENCIMENTO, VL_TITULO'); + tblTitulos.Open; + end; + if tblHistorico.Active then + begin + tblHistorico.SQL.Clear; + tblHistorico.SQL.Add('select * from CHG_HISTORICO where id_devedor =' + + inttostr(id_devedor) + ' order by DT_CONTATO DESC'); + tblHistorico.Open; + end; + if tblTelefones.Active then + begin + tblTelefones.SQL.Clear; + tblTelefones.SQL.Add('select * from CHG_TELEFONES where id_devedor =' + + inttostr(id_devedor)); + tblTelefones.Open; + end; + if tblEnderecos.Active then + begin + tblEnderecos.SQL.Clear; + tblEnderecos.SQL.Add('select * from CHG_ENDERECOS where id_devedor =' + + inttostr(id_devedor)); + tblEnderecos.Open; + end; + // if tblProtocolo.Active then + // begin + // tblProtocolo.SQL.Clear; + // tblProtocolo.SQL.Add + // ('select * from CHG_COBRANCA_TITULOS where id_devedor =' + + // inttostr(id_devedor)); + // tblProtocolo.Open; + // end; + if tblEmail.Active then + begin + tblEmail.SQL.Clear; + tblEmail.SQL.Add('select * from CHG_EMAILS where id_devedor =' + + inttostr(id_devedor)); + tblEmail.Open; + end; + end; +end; + +procedure TdtmSystem.dtsDevedoresUpdateData(Sender: TObject); +begin + // try + // JsonBuilder(tblDevedores, 'devedor', 'ID_DEVEDOR'); + // except + // + // end; +end; + +procedure TdtmSystem.dtsEmpresaRepasseDataChange(Sender: TObject; + Field: TField); +begin + if id_repasse <> tblEmpresaRepasseID_ITEM.AsInteger then + begin + id_repasse := tblEmpresaRepasseID_ITEM.AsInteger; + end; + if tblRepasseFase.Active then + begin + tblRepasseFase.SQL.Clear; + tblRepasseFase.SQL.Add + ('select * from sys_repasses_fases where id_repasse = ' + + inttostr(id_repasse)); + tblRepasseFase.Open; + end; +end; + +procedure TdtmSystem.dtsFaixasUpdateData(Sender: TObject); +begin + // JsonBuilder(tblFaixas, 'faixa', 'ID_FAIXA'); +end; + +procedure TdtmSystem.dtsGruposDataChange(Sender: TObject; Field: TField); +begin + if dtmSystem.tblUsuarios.Active then + begin + dtmSystem.tblUsuarios.First; + end; + if id_grupoq <> tblGruposID_GRUPO.AsInteger then + begin + id_grupoq := tblGruposID_GRUPO.AsInteger; + if tblUsuarios.Active then + begin + tblUsuarios.SQL.Clear; + tblUsuarios.SQL.Add('select * from SYS_USUARIOS where id_grupo =' + + inttostr(id_grupo)); + tblUsuarios.Open; + end; + if tblGruposPermissoes.Active then + begin + tblGruposPermissoes.SQL.Clear; + tblGruposPermissoes.SQL.Add + ('select * from SYS_GRUPOS_PERMISSOES where id_grupo =' + + inttostr(id_grupo)); + tblGruposPermissoes.Open; + end; + end; +end; + +procedure TdtmSystem.dtsIndicadorFinanceiroUpdateData(Sender: TObject); +begin + // try + // JsonBuilder(tblIndicadorFinanceiro, 'indicadorfinanceiro', 'ID_INDICADOR'); + // except + // + // end; +end; + +procedure TdtmSystem.dtsPoliticasUpdateData(Sender: TObject); +begin + // try + // JsonBuilder(tblPoliticas, 'politica', 'ID_POLITICA'); + // except + // + // end; +end; + +procedure TdtmSystem.dtsRepasseDataChange(Sender: TObject; Field: TField); +begin + // if id_repasse <> tblRepasseID_REPASSE.AsInteger then + // begin + // id_repasse := tblRepasseID_REPASSE.AsInteger; + // if tblRepasseFase.Active then + // begin + // tblRepasseFase.SQL.Clear; + // tblRepasseFase.SQL.Text := + // 'select * from sys_repasses_fases where id_repasse = ' + + // inttostr(id_repasse); + // tblRepasseFase.Open; + // end; + // end; +end; + +procedure TdtmSystem.dtsRepasseFaseDataChange(Sender: TObject; Field: TField); +begin + if id_repasse_fase <> tblRepasseFaseID_FASE.AsInteger then + begin + id_repasse_fase := tblRepasseFaseID_FASE.AsInteger; + end; +end; + +procedure TdtmSystem.dtsTelefonesUpdateData(Sender: TObject); +begin + // try + // JsonBuilder(tblTelefones, 'telefone', 'ID_TELEFONE'); + // except + // + // end; +end; + +procedure TdtmSystem.dtsTitulosDataChange(Sender: TObject; Field: TField); +begin + if id_tit <> tblTitulosID_TITULO.AsInteger then + begin + id_tit := tblTitulosID_TITULO.AsInteger; + if tblDespesasTitulos.Active then + begin + tblDespesasTitulos.SQL.Clear; + tblDespesasTitulos.SQL.Add + ('select * from CHG_DESPESAS_TITULOS where id_titulo =' + + inttostr(id_tit)); + tblDespesasTitulos.Open; + end; + if (dtsTitulos.State in [dsBrowse]) and (tblTitulosID_TITULO.AsString <> '') + then + begin + zroQryAcordos.SQL.Clear; + zroQryAcordos.SQL.Add('select * from sys_acordos where id_original = ' + + tblTitulosID_TITULO.AsString); + zroQryAcordosTX_NOME.KeyFields := 'ID_PARCELA'; + zroQryAcordosVL_TITULO.KeyFields := 'ID_PARCELA'; + zroQryAcordosDT_VENCIMENTO.KeyFields := 'ID_PARCELA'; + zroQryAcordos.Open; + if zroQryAcordos.RecordCount = 0 then + begin + zroQryAcordos.SQL.Clear; + zroQryAcordos.SQL.Add('select * from sys_acordos where id_parcela = ' + + tblTitulosID_TITULO.AsString); + zroQryAcordosTX_NOME.KeyFields := 'ID_ORIGINAL'; + zroQryAcordosVL_TITULO.KeyFields := 'ID_ORIGINAL'; + zroQryAcordosDT_VENCIMENTO.KeyFields := 'ID_ORIGINAL'; + zroQryAcordos.Open; + end; + end + else + begin + zroQryAcordos.Close; + end; + end; +end; + +procedure TdtmSystem.EscreveLog(acao: string; table: TZQuery); +var + path: string; +begin + path := ExtractFilePath(Application.ExeName); + path := path + 'log'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + AssignFile(log, path + '\errorLog.txt'); + if FileExists(path + '\errorLog.txt') then + begin + Append(log); + Writeln(log, DateTimeToStr(Now)); + Writeln(log, ''); + Writeln(log, ''); + Writeln(log, 'Erro na tabela: ' + table.Name + '. Ao que gerou o erro: ' + + acao + '.'); + Writeln(log, ''); + Writeln(log, ''); + end + else + begin + Rewrite(log); + Writeln(log, DateTimeToStr(Now)); + Writeln(log, ''); + Writeln(log, ''); + Writeln(log, 'Erro na tabela: ' + table.Name + '. Ao que gerou o erro: ' + + acao + '.'); + Writeln(log, ''); + Writeln(log, ''); + end; + CloseFile(log); +end; + +function TdtmSystem.FormatTelefone(telefone: string): string; +var + digito: integer; + erro: boolean; +begin + telefone := StringReplace(telefone, '(', '', [rfReplaceAll, rfIgnoreCase]); + telefone := StringReplace(telefone, ')', '', [rfReplaceAll, rfIgnoreCase]); + telefone := StringReplace(telefone, '-', '', [rfReplaceAll, rfIgnoreCase]); + telefone := StringReplace(telefone, ' ', '', [rfReplaceAll, rfIgnoreCase]); + erro := false; + if Length(telefone) = 8 then + begin + digito := strtoint(copy(telefone, 1, 1)); + case digito of + 2, 3, 4, 5: + begin + telefone := copy(telefone, 1, 4) + '-' + copy(telefone, 5, 4); + end; + 6, 7, 8, 9: + begin + telefone := '9' + copy(telefone, 1, 4) + '-' + copy(telefone, 5, 4); + end; + 1: + begin + telefone := telefone; + erro := true; + end; + end; + end + else + begin + if strtoint(copy(telefone, 1, 1)) = 9 then + begin + telefone := copy(telefone, 1, 5) + '-' + copy(telefone, 6, 4); + end + else + begin + telefone := telefone; + erro := true; + end; + end; + if not erro then + begin + Result := telefone; + end + else + begin + Result := telefone; + raise Exception.Create('Nmero de telefone invlido.'); + end; +end; + +function TdtmSystem.gerarProtocolo(id_devedor: string): string; +var + tamanho, i: integer; + cd_devedor, dia, tempo: string; +begin + tempo := FormatDateTime('hhmm', Time); + dia := FormatDateTime('yyyymmdd', Date); + cd_devedor := id_devedor; + tamanho := Length(id_devedor); + for i := 0 to 7 - tamanho do + begin + cd_devedor := '0' + cd_devedor; + end; + Result := tempo + dia + cd_devedor; +end; + +function TdtmSystem.GetAppVersionStr: string; // pega a verso do aplicativo +var + Exe: string; + Size, Handle: DWORD; + Buffer: TBytes; + FixedPtr: PVSFixedFileInfo; +begin + Exe := ParamStr(0); + Size := GetFileVersionInfoSize(PChar(Exe), Handle); + if Size = 0 then + RaiseLastOSError; + SetLength(Buffer, Size); + if not GetFileVersionInfo(PChar(Exe), Handle, Size, Buffer) then + RaiseLastOSError; + if not VerQueryValue(Buffer, '\', Pointer(FixedPtr), Size) then + RaiseLastOSError; + Result := Format('%d.%d.%d.%d', [LongRec(FixedPtr.dwFileVersionMS).Hi, + // major + LongRec(FixedPtr.dwFileVersionMS).Lo, // minor + LongRec(FixedPtr.dwFileVersionLS).Hi, // release + LongRec(FixedPtr.dwFileVersionLS).Lo]) // build +end; + +function TdtmSystem.NovoCodigo(Tabela, Campo: String): integer; +begin + // funo criada para simular o auto increment que no existe no firebird + with qryConsulta do + begin + SQL.Text := Format('SELECT MAX(%s) FROM %s', [Campo, Tabela]); + Open; + Result := FieldByName('MAX').AsInteger + 1; + Close; + end; +end; + +procedure TdtmSystem.OpenOrRefresh(table: TZQuery); +begin + if not table.Active then + begin + table.Open; + end + else + begin + table.Refresh; + end; +end; + +procedure TdtmSystem.OrganizaPorColuna(Tabela: TObject; coluna: TColumn); +begin + if Tabela is TZTable then + begin + with (Tabela as TZTable) do + begin + if coluna.Title.Caption <> '' then + begin + if Pos(coluna.Field.FieldName, SortedFields) = 1 then + begin + if SortType = stAscending then + begin + SortType := stDescending; + end + else + begin + SortType := stAscending; + end; + end + else + begin + SortedFields := coluna.Field.FieldName; + if SortType = stAscending then + begin + SortType := stDescending; + end + else + begin + SortType := stAscending; + end; + end; + end; + First; + end; + end; + if Tabela is TZQuery then + begin + with (Tabela as TZQuery) do + begin + if coluna.Title.Caption <> '' then + begin + if Pos(coluna.Field.FieldName, SortedFields) = 1 then + begin + if SortType = stAscending then + begin + SortType := stDescending; + end + else + begin + SortType := stAscending; + end; + end + else + begin + SortedFields := coluna.Field.FieldName; + if SortType = stAscending then + begin + SortType := stDescending; + end + else + begin + SortType := stAscending; + end; + end; + end; + First; + end; + end; + if Tabela is TZReadOnlyQuery then + begin + with (Tabela as TZReadOnlyQuery) do + begin + if coluna.Title.Caption <> '' then + begin + if Pos(coluna.Field.FieldName, SortedFields) = 1 then + begin + if SortType = stAscending then + begin + SortType := stDescending; + end + else + begin + SortType := stAscending; + end; + end + else + begin + SortedFields := coluna.Field.FieldName; + if SortType = stAscending then + begin + SortType := stDescending; + end + else + begin + SortType := stAscending; + end; + end; + end; + First; + end; + end; + +end; + +procedure TdtmSystem.MakePermissoes; +begin + if cd_value <> nil then + begin + cd_value.Free; + end; + cd_value := TStringList.Create; + if not tblGruposPermissoes.Active then + begin + tblGruposPermissoes.Open; + end + else + begin + tblGruposPermissoes.Refresh; + end; + if not tblPermissoes.Active then + begin + tblPermissoes.Open; + end + else + begin + tblPermissoes.Refresh; + end; + tblGruposPermissoes.Filtered := false; + tblGruposPermissoes.Filter := 'ID_GRUPO = ' + inttostr(id_grupo); + tblGruposPermissoes.Filtered := true; + tblGruposPermissoes.First; + while not tblGruposPermissoes.Eof do + begin + tblPermissoes.Locate('ID_PERMISSAO', + tblGruposPermissoesID_PERMISSAO.AsInteger, []); + cd_value.Values[tblPermissoesCD_PERMISSAO.AsString] := + tblGruposPermissoesTP_ACESSO.AsString; + tblGruposPermissoes.Next; + end; + tblGruposPermissoes.Filtered := false; + if cd_parent <> nil then + begin + cd_parent.Free; + end; + cd_parent := TStringList.Create; + tblPermissoes.First; + while not tblPermissoes.Eof do + begin + cd_parent.Values[tblPermissoesCD_PERMISSAO.AsString] := + tblPermissoesID_PARENT.AsString; + tblPermissoes.Next; + end; +end; + +function TdtmSystem.MD5(Texto: String): String; +begin + with TIdHashMessageDigest5.Create do + try + Result := HashStringAsHex(Texto); + finally + Free; + end; +end; + +function TdtmSystem.MD5FILE(const fileName: string): String; +var + // idmd5: TIdHashMessageDigest5; + fs: TFileStream; +begin + fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite); + with TIdHashMessageDigest5.Create do + try + Result := HashStreamAsHex(fs); + finally + fs.Free; + Free; + end; +end; + +function TdtmSystem.MonthsBetween(dIni, dFim: TDate): integer; +var + D1, M1, Y1: Word; + D2, M2, Y2, DiasNoMes: Word; + Temp: TDate; +begin + if dIni > dFim then + begin + Temp := dIni; + dIni := dFim; + dFim := Temp; + end; + + DecodeDate(dIni, Y1, M1, D1); + DecodeDate(dFim, Y2, M2, D2); + + DiasNoMes := MonthDays[IsLeapYear(Y1)][M1]; // qtde de dias no ms + + if (Y1 = Y2) and (M1 = M2) then // se entrou e saiu no mesmo ms + begin + if (D2 - D1 + 1) >= DiasNoMes / 2 then + // se trabalhou ao menos metade do ms + Result := 1 + else + Result := 0; + end + else + begin + if (DiasNoMes - D1 + 1) >= DiasNoMes / 2 then + // se entrou metade do ms pra traz + Result := 0 + else + Result := -1; + + DiasNoMes := MonthDays[IsLeapYear(Y2)][M2]; + + if D2 >= DiasNoMes / 2 then // se saiu metade do mes pra frente + Inc(Result); + + Result := Result + 12 * (Y2 - Y1) + M2 - M1; + end; +end; + +procedure TdtmSystem.tblAcordosBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_ACORDOS', 'delete'); +end; + +procedure TdtmSystem.tblAcordosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblAcordosBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblAcordosID_ITEM.AsInteger := NovoCodigo('SYS_ACORDOS', 'ID_ITEM'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_ACORDOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_ACORDOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_ACORDOS', 'insert'); + end; +end; + +procedure TdtmSystem.tblAgendaBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_AGENDA', 'delete'); +end; + +procedure TdtmSystem.tblAgendaBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblAgendaBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblAgendaID_AGENDA.AsInteger := NovoCodigo('CHG_AGENDA', 'ID_AGENDA'); + tblAgendaTP_SITUACAO.AsString := 'A'; // A = agendado; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_AGENDA', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_AGENDA', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_AGENDA', 'insert'); + end; +end; + +procedure TdtmSystem.tblBoletosBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_BOLETO', 'delete'); +end; + +procedure TdtmSystem.tblBoletosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblBoletosBeforePost(DataSet: TDataSet); +begin + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_BOLETO', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_BOLETO', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_BOLETO', 'insert', seqBoletos); + end; +end; + +procedure TdtmSystem.tblBoletoTitulosBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_BOLETO_TITULOS', 'delete'); +end; + +procedure TdtmSystem.tblBoletoTitulosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblBoletoTitulosBeforePost(DataSet: TDataSet); +begin + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_BOLETO_TITULOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_BOLETO_TITULOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_BOLETO_TITULOS', 'insert', seqBoletoTitulos); + end; +end; + +procedure TdtmSystem.tblCampanhaCobBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_CAMPANHAS_COBRADORES', 'delete'); +end; + +procedure TdtmSystem.tblCampanhaCobBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblCampanhaCobBeforeOpen(DataSet: TDataSet); +begin + if not tblCobCampanha.Active then + begin + tblCampanhaCob.SQL.Clear; + tblCampanhaCob.SQL.Add('select * from CHG_CAMPANHAS_COBRADORES;'); + end + else + begin + tblCampanhaCob.SQL.Clear; + tblCampanhaCob.SQL.Add + ('select * from CHG_CAMPANHAS_COBRADORES where id_campanha =' + + inttostr(id_campanha)); + end; +end; + +procedure TdtmSystem.tblCampanhaCobBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblCampanhaCobID_ITEM.AsInteger := NovoCodigo('CHG_CAMPANHAS_COBRADORES', + 'ID_ITEM'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_CAMPANHAS_COBRADORES', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_CAMPANHAS_COBRADORES', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_CAMPANHAS_COBRADORES', 'insert'); + end; +end; + +procedure TdtmSystem.tblCampanhaDevedoresBeforeDelete(DataSet: TDataSet); +begin + // LogDelete(DataSet, 'CHG_CAMPANHAS_DEVEDORES', 'delete'); +end; + +procedure TdtmSystem.tblCampanhaDevedoresBeforeEdit(DataSet: TDataSet); + +begin + // SetLength(fields_before, DataSet.FieldCount); + // for i := 0 to DataSet.FieldCount - 1 do + // begin + // fields_before[i] := DataSet.fields[i].AsString; + // end; +end; + +procedure TdtmSystem.tblCampanhaDevedoresBeforeOpen(DataSet: TDataSet); +begin + if not tblCobCampanha.Active then + begin + tblCampanhaDevedores.SQL.Clear; + tblCampanhaDevedores.SQL.Add('select * from CHG_CAMPANHAS_DEVEDORES;'); + end + else + begin + tblCampanhaDevedores.SQL.Clear; + tblCampanhaDevedores.SQL.Add + ('select * from CHG_CAMPANHAS_DEVEDORES where id_campanha =' + + inttostr(id_campanha)); + end; +end; + +procedure TdtmSystem.tblCampanhaDevedoresBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblCampanhaDevedoresID_ITEM.AsInteger := + NovoCodigo('CHG_CAMPANHAS_DEVEDORES', 'ID_ITEM'); + end; + tblCampanhaDevedoresID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblCampanhaDevedoresDT_HORA_ULTIMA_ATT.AsDateTime := Now; + // if DataSet.State <> dsInsert then + // begin + // if CheckDiffFields(DataSet, fields_before) then + // begin + // LogDiffFields(DataSet, fields_before, 'CHG_CAMPANHAS_DEVEDORES', 'edit'); + // end + // else + // begin + // RegistarLog(DataSet, 'CHG_CAMPANHAS_DEVEDORES', 'post'); + // end; + // end + // else + // begin + // LogPost(DataSet, 'CHG_CAMPANHAS_DEVEDORES', 'insert'); + // end; +end; + +procedure TdtmSystem.tblCHGEmpresaAfterDelete(DataSet: TDataSet); +begin + tblPoliticas.Refresh; + tblFaixas.Refresh; +end; + +procedure TdtmSystem.tblCHGEmpresaAfterOpen(DataSet: TDataSet); +begin + id_credor := tblCHGEmpresaID_EMPRESA.AsInteger; +end; + +procedure TdtmSystem.tblCHGEmpresaBeforeDelete(DataSet: TDataSet); +begin + if (tblCHGEmpresaID_EMPRESA.AsInteger = 1) or + (tblCHGEmpresaID_EMPRESA.AsInteger = 265) then + begin + MessageDlg('Esta empresa utilizada pelo sistema e no pode ser apagada.', + mtWarning, [mbOK], 0); + Abort; + end; + LogDelete(DataSet, 'CHG_EMPRESAS', 'delete'); +end; + +procedure TdtmSystem.tblCHGEmpresaBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblCHGEmpresaBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblCHGEmpresaID_EMPRESA.AsInteger := NovoCodigo('CHG_EMPRESAS', + 'ID_EMPRESA'); + qryConsulta.SQL.Clear; + qryConsulta.SQL.Text := + 'select tx_nome from chg_empresas where lower(tx_nome) = ' + + QuotedStr(LowerCase(tblCHGEmpresaTX_NOME.AsString)); + qryConsulta.Open; + if qryConsulta.RecordCount <> 0 then + begin + MessageDlg('J existe uma empresa com esta Razo Social.', mtWarning, + [mbOK], 0); + tblCHGEmpresaTX_NOME.AsString := ''; + Abort; + end; + end; + tblCHGEmpresaID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblCHGEmpresaDT_HORA_ULTIMA_ATT.AsDateTime := Now; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_EMPRESAS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_EMPRESAS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_EMPRESAS', 'insert'); + end; +end; + +procedure TdtmSystem.tblCidadesAfterInsert(DataSet: TDataSet); +begin + tblCidadesID_ESTADO.AsInteger := tblEstadosID_ESTADO.AsInteger; +end; + +procedure TdtmSystem.tblCidadesAfterOpen(DataSet: TDataSet); +begin + // tblCidades.DisableControls; +end; + +procedure TdtmSystem.tblCobCampanhaAfterOpen(DataSet: TDataSet); +begin + id_campanha := tblCobCampanhaID_CAMPANHA.AsInteger; + tx_campanha := tblCobCampanhaTX_NOME.AsString; +end; + +procedure TdtmSystem.tblCobCampanhaBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_CAMPANHAS', 'delete'); +end; + +procedure TdtmSystem.tblCobCampanhaBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblCobCampanhaBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblCobCampanhaID_CAMPANHA.AsInteger := NovoCodigo('CHG_CAMPANHAS', + 'ID_CAMPANHA'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_CAMPANHAS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_CAMPANHAS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_CAMPANHAS', 'insert'); + end; +end; + +procedure TdtmSystem.tblConteudoReciboBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblConteudoReciboID_CONTEUDO.AsInteger := NovoCodigo('SYS_CONTEUDO_RECIBO', + 'ID_CONTEUDO'); + end; +end; + +procedure TdtmSystem.tblDepartamentosBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_DEPARTAMENTOS', 'delete'); +end; + +procedure TdtmSystem.tblDepartamentosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblDepartamentosBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblDepartamentosID_DEPARTAMENTOS.AsInteger := + NovoCodigo('CHG_DEPARTAMENTOS', 'ID_DEPARTAMENTOS'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_DEPARTAMENTOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_DEPARTAMENTOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_DEPARTAMENTOS', 'insert'); + end; +end; + +procedure TdtmSystem.tblDespesasTitulosBeforeOpen(DataSet: TDataSet); +begin + if not tblDevedores.Active then + begin + tblDespesasTitulos.SQL.Clear; + tblDespesasTitulos.SQL.Add('select * from CHG_DESPESAS_TITULOS;'); + end + else + begin + tblDespesasTitulos.SQL.Clear; + tblDespesasTitulos.SQL.Add + ('select * from CHG_DESPESAS_TITULOS where id_titulo =' + + inttostr(id_tit)); + end; +end; + +procedure TdtmSystem.tblDespesasTitulosBeforePost(DataSet: TDataSet); +begin + if tblDespesasTitulosTX_DESCRICAO.AsString = '' then + begin + MessageDlg('Por favor insira uma descrio para a despesa.', mtWarning, + [mbOK], 0); + Abort; + end; + if tblDespesasTitulosVL_DESPESA.AsString = '' then + begin + MessageDlg('Por favor insira um valor para a despesa.', mtWarning, + [mbOK], 0); + Abort; + end; + if tblDespesasTitulosTP_DESPESA.AsString = '' then + begin + MessageDlg('Por favor escolha o tipo da despesa.', mtWarning, [mbOK], 0); + Abort; + end; + if DataSet.State = dsInsert then + begin + tblDespesasTitulosID_DESPESA.AsInteger := NovoCodigo('CHG_DESPESAS_TITULOS', + 'ID_DESPESA'); + tblDespesasTitulosID_TITULO.AsInteger := tblTitulosID_TITULO.AsInteger; + end; +end; + +procedure TdtmSystem.tblDevedoresAfterOpen(DataSet: TDataSet); +begin + id_devedor := tblDevedoresID_DEVEDOR.AsInteger; + // tblTitulos.ParamByName('pIdDevedor').AsInteger := id_devedor; +end; + +procedure TdtmSystem.tblDevedoresBeforeDelete(DataSet: TDataSet); +begin + // RegistarLog(DataSet, 'CHG_DEVEDORES', 'delete'); + LogDelete(DataSet, 'CHG_DEVEDORES', 'delete'); + ZSQLProcessor1.Script.Text := 'delete from chg_agenda where id_devedor = ' + + tblDevedoresID_DEVEDOR.AsString; +end; + +procedure TdtmSystem.tblDevedoresBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblDevedoresBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + // tblDevedoresID_DEVEDOR.AsInteger := NovoCodigo('CHG_DEVEDORES', + // 'ID_DEVEDOR'); + tblDevedoresID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblDevedoresDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if DataSet.State = dsEdit then + begin + tblDevedoresID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblDevedoresDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if tblDevedoresTP_CLIENTE.AsString = '' then + begin + MessageDlg('Por favor escolha o tipo de devedor.', mtWarning, [mbOK], 0); + Abort; + end; + if tblDevedoresCD_CPF.AsString <> '' then + begin + if Length(tblDevedoresCD_CPF.AsString) < 14 then + begin + MessageDlg('Por favor insira o CPF com pontos e traos.', mtWarning, + [mbOK], 0); + Abort; + end; + qryConsulta.SQL.Clear; + qryConsulta.SQL.Text := 'select CD_CPF from chg_devedores where CD_CPF = ' + + QuotedStr(LowerCase(tblDevedoresCD_CPF.AsString)); + qryConsulta.Open; + if (qryConsulta.RecordCount <> 0) and not(dtsDevedores.State in [dsEdit]) + then + begin + MessageDlg('J existe um Devedor com este CPF.', mtWarning, [mbOK], 0); + tblDevedoresTX_NOME.AsString := ''; + Abort; + end; + end; + if tblDevedoresCD_CNPJ.AsString <> '' then + begin + if Length(tblDevedoresCD_CNPJ.AsString) < 18 then + begin + MessageDlg('Por favor insira o CNPJ com pontos, barras e traos.', + mtWarning, [mbOK], 0); + Abort; + end; + qryConsulta.SQL.Clear; + qryConsulta.SQL.Text := 'select CD_CNPJ from chg_devedores where CD_CNPJ = ' + + QuotedStr(LowerCase(tblDevedoresCD_CNPJ.AsString)); + qryConsulta.Open; + if (qryConsulta.RecordCount <> 0) and not(dtsDevedores.State in [dsEdit]) + then + begin + MessageDlg('J existe um Devedor com este CNPJ.', mtWarning, [mbOK], 0); + tblDevedoresTX_NOME.AsString := ''; + Abort; + end; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_DEVEDORES', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_DEVEDORES', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_DEVEDORES', 'insert', seqDevedores); + end; +end; + +procedure TdtmSystem.tblDuplicadosBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblDuplicadosID_DUPLICADO.AsInteger := NovoCodigo('SYS_DUPLICADOS', + 'ID_DUPLICADO'); + end; +end; + +procedure TdtmSystem.tblEmailBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_EMAILS', 'delete'); +end; + +procedure TdtmSystem.tblEmailBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblEmailBeforeOpen(DataSet: TDataSet); +begin + if not tblDevedores.Active then + begin + tblEmail.SQL.Clear; + tblEmail.SQL.Add('select * from CHG_EMAILS'); + end + else + begin + tblEmail.SQL.Clear; + tblEmail.SQL.Add('select * from CHG_EMAILS where id_devedor = ' + + inttostr(id_devedor)); + end; +end; + +procedure TdtmSystem.tblEmailBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblEmailID_EMAIL.AsInteger := NovoCodigo('CHG_EMAILS', 'ID_EMAIL'); + tblEmailID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblEmailID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblEmailDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if DataSet.State = dsEdit then + begin + tblEmailID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblEmailDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_EMAILS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_EMAILS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_EMAILS', 'insert'); + end; +end; + +procedure TdtmSystem.tblEmpresaBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_EMPRESA', 'delete'); +end; + +procedure TdtmSystem.tblEmpresaBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblEmpresaBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblEmpresaID_EMPRESA.AsInteger := NovoCodigo('SYS_EMPRESA', 'ID_EMPRESA'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_EMPRESA', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_EMPRESA', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_EMPRESA', 'insert'); + end; +end; + +procedure TdtmSystem.tblEmpresaRepasseAfterOpen(DataSet: TDataSet); +begin + id_repasse := tblEmpresaRepasseID_ITEM.AsInteger; +end; + +procedure TdtmSystem.tblEmpresaRepasseAfterPost(DataSet: TDataSet); +begin + tblEmpresaRepasse.Refresh; +end; + +procedure TdtmSystem.tblEmpresaRepasseBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_EMPRESA_REPASSE', 'delete'); +end; + +procedure TdtmSystem.tblEmpresaRepasseBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblEmpresaRepasseBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblEmpresaRepasseID_ITEM.AsInteger := NovoCodigo('CHG_EMPRESA_REPASSE', + 'ID_ITEM'); + tblEmpresaRepasseID_EMPRESA.AsInteger := id_credor; + end; + // if tblProvidenciasTP_FORCAAGENDA.AsString = '' then + // begin + // tblProvidencias.Cancel; + // end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_EMPRESA_REPASSE', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_EMPRESA_REPASSE', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_EMPRESA_REPASSE', 'insert'); + end; +end; + +procedure TdtmSystem.tblEnderecosBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_ENDERECOS', 'delete'); +end; + +procedure TdtmSystem.tblEnderecosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblEnderecosBeforeOpen(DataSet: TDataSet); +begin + if not tblDevedores.Active then + begin + tblEnderecos.SQL.Clear; + tblEnderecos.SQL.Add('select * from CHG_ENDERECOS;'); + end + else + begin + tblEnderecos.SQL.Clear; + tblEnderecos.SQL.Add('select * from CHG_ENDERECOS where id_devedor =' + + inttostr(id_devedor)); + end; +end; + +procedure TdtmSystem.tblEnderecosBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + // tblEnderecosID_ENDERECO.AsInteger := NovoCodigo('CHG_ENDERECOS', + // 'ID_ENDERECO'); + tblEnderecosID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblEnderecosID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblEnderecosDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if DataSet.State = dsEdit then + begin + tblEnderecosID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblEnderecosDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_ENDERECOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_ENDERECOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_ENDERECOS', 'insert', seqEnderecos); + end; +end; + +procedure TdtmSystem.tblEstadosAfterOpen(DataSet: TDataSet); +begin + // tblEstados.DisableControls; +end; + +procedure TdtmSystem.tblFaixasAfterInsert(DataSet: TDataSet); +begin + tblFaixasID_POLITICA.AsInteger := tblPoliticasID_POLITICA.AsInteger; +end; + +procedure TdtmSystem.tblFaixasBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_FAIXAS', 'delete'); +end; + +procedure TdtmSystem.tblFaixasBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblFaixasBeforePost(DataSet: TDataSet); +// var +// inicio, fim: integer; +begin + if DataSet.State = dsInsert then + begin + tblFaixasID_FAIXA.AsInteger := NovoCodigo('CHG_FAIXAS', 'ID_FAIXA'); + end; + tblFaixasID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblFaixasDT_HORA_ULTIMA_ATT.AsDateTime := Now; + if tblFaixasTP_FAIXA.AsString = 'D' then + begin + tblFaixasATRASO_MIN.Clear; + tblFaixasATRASO_MAX.Clear; + end; + if tblFaixasTP_FAIXA.AsString = 'A' then + begin + tblFaixasDT_MIN.Clear; + tblFaixasDT_MAX.Clear; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_FAIXAS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_FAIXAS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_FAIXAS', 'insert'); + end; +end; + +procedure TdtmSystem.tblFiltrosBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_FILTRO', 'delete'); +end; + +procedure TdtmSystem.tblFiltrosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblFiltrosBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblFiltrosID_FILTRO.AsInteger := NovoCodigo('CHG_FILTRO', 'ID_FILTRO'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_FILTRO', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_FILTRO', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_FILTRO', 'insert'); + end; +end; + +procedure TdtmSystem.tblGrupoBoletoEmpresasBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_GRUPO_BOLETO_EMPRESAS', 'delete'); +end; + +procedure TdtmSystem.tblGrupoBoletoEmpresasBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblGrupoBoletoEmpresasBeforeOpen(DataSet: TDataSet); +begin + // if not tblGrupoBoletos.Active then + // begin + // tblGrupoBoletoEmpresas.SQL.Clear; + // tblGrupoBoletoEmpresas.SQL.Add('select * from chg_grupo_boleto_empresas;'); + // end + // else + // begin + // tblGrupoBoletoEmpresas.SQL.Clear; + // tblGrupoBoletoEmpresas.SQL.Add('select * from chg_grupo_boleto_empresas where ID_GRUPO_BOLETO =' + + // tblGrupoBoletosID_GRUPO.AsString); + // end; +end; + +procedure TdtmSystem.tblGrupoBoletoEmpresasBeforePost(DataSet: TDataSet); +begin + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, + 'CHG_GRUPO_BOLETO_EMPRESAS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_GRUPO_BOLETO_EMPRESAS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_GRUPO_BOLETO_EMPRESAS', 'insert'); + end; +end; + +procedure TdtmSystem.tblGrupoBoletosBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_GRUPO_BOLETOS', 'delete'); +end; + +procedure TdtmSystem.tblGrupoBoletosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblGrupoBoletosBeforePost(DataSet: TDataSet); +begin + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_GRUPO_BOLETOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_GRUPO_BOLETOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_GRUPO_BOLETOS', 'insert'); + end; +end; + +procedure TdtmSystem.tblGruposAfterInsert(DataSet: TDataSet); +begin + tblGruposTP_SU.AsString := 'N'; +end; + +procedure TdtmSystem.tblGruposAfterOpen(DataSet: TDataSet); +begin + id_grupoq := tblGruposID_GRUPO.AsInteger; +end; + +procedure TdtmSystem.tblGruposBeforeDelete(DataSet: TDataSet); +begin + if not tblUsuarios.IsEmpty then + begin + MessageDlg('No possvel remover um grupo que contenha usurios.', + mtWarning, [mbOK], 0); + Abort; + end + else + begin + LogDelete(DataSet, 'SYS_GRUPOS', 'delete'); + while tblGruposPermissoes.RecordCount > 0 do + begin + tblGruposPermissoes.Delete; + end; + end; +end; + +procedure TdtmSystem.tblGruposBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblGruposBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblGruposID_GRUPO.AsInteger := NovoCodigo('SYS_GRUPOS', 'ID_GRUPO'); + end; + qryConsulta.SQL.Text := 'Select * from SYS_GRUPOS WHERE TX_NOME = ' + + QuotedStr(tblGruposTX_NOME.AsString); + qryConsulta.Open; + if qryConsulta.RecordCount <> 0 then + begin + tblGrupos.Cancel; + MessageDlg('J existe um grupo com esse nome.', mtWarning, [mbOK], 0); + Abort; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_GRUPOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_GRUPOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_GRUPOS', 'insert'); + end; +end; + +procedure TdtmSystem.tblGruposPermissoesAfterInsert(DataSet: TDataSet); +begin + tblGruposPermissoesID_GRUPO.AsInteger := tblGruposID_GRUPO.AsInteger; + tblGruposPermissoesID_PERMISSAO.AsInteger := + tblPermDisponiveisID_PERMISSAO.AsInteger; +end; + +procedure TdtmSystem.tblGruposPermissoesAfterPost(DataSet: TDataSet); +begin + tblPermDisponiveis.Refresh; +end; + +procedure TdtmSystem.tblGruposPermissoesBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_GRUPOS_PERMISSOES', 'delete'); +end; + +procedure TdtmSystem.tblGruposPermissoesBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblGruposPermissoesBeforeOpen(DataSet: TDataSet); +begin + if not tblGrupos.Active then + begin + tblGruposPermissoes.SQL.Clear; + tblGruposPermissoes.SQL.Add('select * from SYS_GRUPOS_PERMISSOES;'); + end + else + begin + tblGruposPermissoes.SQL.Clear; + tblGruposPermissoes.SQL.Add + ('select * from SYS_GRUPOS_PERMISSOES where id_grupo =' + + inttostr(id_grupoq)); + end; +end; + +procedure TdtmSystem.tblGruposPermissoesBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblGruposPermissoesID_ITEM.AsInteger := NovoCodigo('SYS_GRUPOS_PERMISSOES', + 'ID_ITEM'); + end; + +end; + +procedure TdtmSystem.tblHistoricoAfterPost(DataSet: TDataSet); +begin + + zroqryContatos.Refresh; +end; + +procedure TdtmSystem.tblHistoricoBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_HISTORICO', 'delete'); +end; + +procedure TdtmSystem.tblHistoricoBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblHistoricoBeforeOpen(DataSet: TDataSet); +begin + if not tblProvidencias.Active then + begin + tblProvidencias.Open; + end; + if not tblDevedores.Active then + begin + tblHistorico.SQL.Clear; + tblHistorico.SQL.Add + ('select * from CHG_HISTORICO order by DT_CONTATO DESC;'); + end + else + begin + tblHistorico.SQL.Clear; + tblHistorico.SQL.Add('select * from CHG_HISTORICO where id_devedor =' + + inttostr(id_devedor) + ' order by DT_CONTATO DESC'); + end; +end; + +procedure TdtmSystem.tblHistoricoBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + // tblHistoricoID_HISTORICO.AsInteger := NovoCodigo('CHG_HISTORICO', + // 'ID_HISTORICO'); + tblHistoricoID_COBRADOR.AsInteger := id_usuario; + tblHistoricoID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblHistoricoDT_HORA_ULTIMA_ATT.AsDateTime := Now; +// if tblHistoricoCD_PROTOCOLO.AsString = '' then +// begin +// tblHistoricoCD_PROTOCOLO.AsString := +// gerarProtocolo(tblHistoricoID_DEVEDOR.AsString); +// end; + end; + if DataSet.State = dsEdit then + begin + tblHistoricoID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblHistoricoDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_HISTORICO', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_HISTORICO', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_HISTORICO', 'insert', seqHistoricos); + end; +end; + +procedure TdtmSystem.tblHistoricoPostError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); +begin + if Pos(E.Message, 'PRYMARY OR UNIQUE') > 0 then + begin + DataSet.Post; + end; + try + seqHistoricos.GetNextValue; + DataSet.Post; + finally + + end; +end; + +procedure TdtmSystem.tblInadimplenciasBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblInadimplenciasID_INADIMPLENCIA.AsInteger := + NovoCodigo('CHG_INADIMPLENCIAS', 'ID_INADIMPLENCIA'); + end; +end; + +procedure TdtmSystem.tblInadimplenciasDeleteError(DataSet: TDataSet; + E: EDatabaseError; var action: TDataAction); +begin + // EscreveLog('deletar', tblInadimplencias); +end; + +procedure TdtmSystem.tblInadimplenciasEditError(DataSet: TDataSet; + E: EDatabaseError; var action: TDataAction); +begin + // EscreveLog('editar', tblInadimplencias); +end; + +procedure TdtmSystem.tblInadimplenciasPostError(DataSet: TDataSet; + E: EDatabaseError; var action: TDataAction); +begin + // EscreveLog('postar', tblInadimplencias); +end; + +procedure TdtmSystem.tblIndicadorFinanceiroBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_INDICADORES_FINANCEIROS', 'delete'); +end; + +procedure TdtmSystem.tblIndicadorFinanceiroBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblIndicadorFinanceiroBeforeOpen(DataSet: TDataSet); +begin + if not tblCHGEmpresa.Active then + begin + tblIndicadorFinanceiro.SQL.Clear; + tblIndicadorFinanceiro.SQL.Add + ('select * from CHG_INDICADORES_FINANCEIROS;'); + end + else + begin + tblIndicadorFinanceiro.SQL.Clear; + tblIndicadorFinanceiro.SQL.Add + ('select * from CHG_INDICADORES_FINANCEIROS where ID_CHG_EMPRESA =' + + inttostr(id_credor)); + end; +end; + +procedure TdtmSystem.tblIndicadorFinanceiroBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblIndicadorFinanceiroID_INDICADOR.AsInteger := + NovoCodigo('CHG_INDICADORES_FINANCEIROS', 'ID_INDICADOR'); + tblIndicadorFinanceiroID_CHG_EMPRESA.AsInteger := + tblCHGEmpresaID_EMPRESA.AsInteger; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, + 'CHG_INDICADORES_FINANCEIROS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_INDICADORES_FINANCEIROS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_INDICADORES_FINANCEIROS', 'insert'); + end; +end; + +procedure TdtmSystem.tblIndicesAfterPost(DataSet: TDataSet); +begin + if Assigned(frmAtendimento) then + begin + with frmAtendimento do + begin + clb_indices.Clear; + tblIndices.First; + while not tblIndices.Eof do + begin + clb_indices.Items.Add(tblIndicesTX_NOME.AsString); + tblIndices.Next; + end; + end; + end; + // RegistarLog(DataSet); +end; + +procedure TdtmSystem.tblIndicesBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_INDICES', 'delete'); +end; + +procedure TdtmSystem.tblIndicesBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblIndicesBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblIndicesID_INDICE.AsInteger := NovoCodigo('SYS_INDICES', 'ID_INDICE'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_INDICES', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_INDICES', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_INDICES', 'insert'); + end; +end; + +procedure TdtmSystem.tblLayoutsBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_LAYOUTS', 'delete'); +end; + +procedure TdtmSystem.tblLayoutsBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblLayoutsBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblLayoutsID_LAYOUT.AsInteger := NovoCodigo('SYS_LAYOUTS', 'ID_LAYOUT'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_LAYOUTS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_LAYOUTS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_LAYOUTS', 'insert'); + end; +end; + +procedure TdtmSystem.tblLogBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + // tblLogID_LOG.AsInteger := NovoCodigo('SYS_LOG', 'ID_LOG'); + tblLogID_USUARIO.AsInteger := id_usuario; + tblLogDT_LOG.AsDateTime := Now; + end; +end; + +procedure TdtmSystem.tblLogCampanhasBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblLogCampanhasID_ITEM.AsInteger := NovoCodigo('SYS_CAMPANHAS_OLD', + 'ID_ITEM'); + end; +end; + +procedure TdtmSystem.tblLoginsBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblLoginsID_LOGIN.AsInteger := NovoCodigo('SYS_LOGINS', 'ID_LOGIN'); + end; +end; + +procedure TdtmSystem.tblLogPostError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); +begin + if Pos(E.Message, 'PRYMARY OR UNIQUE') > 0 then + begin + if DataSet.State = dsInsert then + begin + tblLogID_LOG.AsInteger := tblLogID_LOG.AsInteger + 1; + tblLogID_USUARIO.AsInteger := id_usuario; + end; + DataSet.Post; + end; +end; + +procedure TdtmSystem.tblLogEditError(DataSet: TDataSet; E: EDatabaseError; + var action: TDataAction); +begin + if Pos(E.Message, 'PRYMARY OR UNIQUE') > 0 then + begin + DataSet.Post; + end; +end; + +procedure TdtmSystem.tblPermissoesBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_PERMISSOES', 'delete'); +end; + +procedure TdtmSystem.tblPermissoesBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblPermissoesBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblPermissoesID_PERMISSAO.AsInteger := NovoCodigo('SYS_PERMISSOES', + 'ID_PERMISSAO'); + end; +end; + +procedure TdtmSystem.tblPoliticasAfterInsert(DataSet: TDataSet); +begin + // tblPoliticasTP_PARCELA.AsString := '2'; + // tblPoliticasTP_JUROS.AsString := 'S'; + // tblPoliticasDT_INICIO.AsDateTime := Date; + // tblPoliticasNR_PARCELA_MAXIMO.AsInteger := 1; +end; + +procedure TdtmSystem.tblPoliticasAfterPost(DataSet: TDataSet); +begin + { with ROQueryFaixa.SQL do + begin + Clear; + Add('select * from chg_faixas where id_politica in ('); + Add('select id_politica from chg_politicas where id_empresa = ' + + tblCHGEmpresaID_EMPRESA.AsString + ')'); + end; + ROQueryFaixa.Open; + if ROQueryFaixa.IsEmpty = true then + begin + tblFaixas.Append; + tblFaixasID_POLITICA.AsInteger := tblPoliticasID_POLITICA.AsInteger; + tblFaixasTX_DESCRICAO.AsString := 'Ttulos a vencer'; + tblFaixasDT_INICIO.AsInteger := -9999; + tblFaixasDT_FINAL.AsInteger := 0; + tblFaixas.Post; + end; } + // RegistarLog(DataSet); +end; + +procedure TdtmSystem.tblPoliticasBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_POLITICAS', 'delete'); +end; + +procedure TdtmSystem.tblPoliticasBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblPoliticasBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblPoliticasID_POLITICA.AsInteger := NovoCodigo('CHG_POLITICAS', + 'ID_POLITICA'); + with ROquerypesquisas do + begin + SQL.Clear; + SQL.Text := 'select * from chg_politicas where id_empresa = ' + + tblCHGEmpresaID_EMPRESA.AsString + ' and lower(tx_descricao) = ' + + QuotedStr(LowerCase(tblPoliticasTX_DESCRICAO.AsString)) + ''; + end; + ROquerypesquisas.Open; + if ROquerypesquisas.RecordCount <> 0 then + begin + MessageDlg('J existe uma poltica com esse nome.', mtWarning, [mbOK], 0); + tblPoliticasTX_DESCRICAO.AsString := ''; + Abort; + end; + end; + if DataSet.State = dsEdit then + begin + qryConsulta.SQL.Clear; + qryConsulta.SQL.Add + ('select * from chg_politicas where lower(tx_descricao) not in (select lower(tx_descricao) from chg_politicas where lower(tx_descricao) = ' + + QuotedStr(LowerCase(tblPoliticasTX_DESCRICAO.AsString)) + + ') and id_empresa = ' + tblCHGEmpresaID_EMPRESA.AsString + ''); + qryConsulta.Open; + qryConsulta.First; + while not qryConsulta.Eof do + begin + if LowerCase(qryConsulta.FieldByName('TX_DESCRICAO').AsString) + = LowerCase(tblPoliticasTX_DESCRICAO.AsString) then + begin + MessageDlg('J existe uma poltica com esse nome.', mtWarning, + [mbOK], 0); + tblPoliticasTX_DESCRICAO.AsString := ''; + Abort; + end; + qryConsulta.Next; + end; + end; + tblPoliticasID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblPoliticasDT_HORA_ULTIMA_ATT.AsDateTime := Now; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_POLITICAS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_POLITICAS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_POLITICAS', 'insert'); + end; +end; + +procedure TdtmSystem.tblPrCartaoAfterInsert(DataSet: TDataSet); +begin + tblPrCartaoID_ITEM.AsInteger := NovoCodigo('SYS_PORCENTAGENS_CARTOES', 'ID_ITEM'); +end; + +procedure TdtmSystem.tblProtocoloBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_COBRANCA_TITULOS', 'delete'); +end; + +procedure TdtmSystem.tblProtocoloBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblProtocoloBeforeOpen(DataSet: TDataSet); +begin + if not tblDevedores.Active then + begin + tblProtocolo.SQL.Clear; + tblProtocolo.SQL.Add('select * from CHG_COBRANCA_TITULOS;'); + end + else + begin + tblProtocolo.SQL.Clear; + tblProtocolo.SQL.Add('select * from CHG_COBRANCA_TITULOS where id_devedor =' + + inttostr(id_devedor)); + end; +end; + +procedure TdtmSystem.tblProtocoloBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblProtocoloID_PROTOCOLO.AsInteger := NovoCodigo('CHG_COBRANCA_TITULOS', + 'ID_PROTOCOLO'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_COBRANCA_TITULOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_COBRANCA_TITULOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_COBRANCA_TITULOS', 'insert'); + end; +end; + +procedure TdtmSystem.tblProvidenciasBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_PROVIDENCIAS', 'delete'); +end; + +procedure TdtmSystem.tblProvidenciasBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblProvidenciasBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblProvidenciasID_PROVIDENCIA.AsInteger := NovoCodigo('CHG_PROVIDENCIAS', + 'ID_PROVIDENCIA'); + end; + if tblProvidenciasTP_FORCAAGENDA.AsString = '' then + begin + tblProvidencias.Cancel; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_PROVIDENCIAS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_PROVIDENCIAS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_PROVIDENCIAS', 'insert'); + end; +end; + +procedure TdtmSystem.tblReciboBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_RECIBOS', 'delete'); +end; + +procedure TdtmSystem.tblReciboBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblReciboBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + // tblReciboID_RECIBO.AsInteger := NovoCodigo('SYS_RECIBOS', 'ID_RECIBO'); + tblReciboTP_CANCELADO.AsString := 'N'; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_RECIBOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_RECIBOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_RECIBOS', 'insert', seqRecibos); + end; +end; + +procedure TdtmSystem.tblRepasseAfterOpen(DataSet: TDataSet); +begin + // id_repasse := tblRepasseID_REPASSE.AsInteger; +end; + +procedure TdtmSystem.tblRepasseBeforeDelete(DataSet: TDataSet); +begin + if tblRepasseID_REPASSE.AsInteger = 1 then + begin + Abort; + end; + LogDelete(DataSet, 'SYS_REPASSES', 'delete'); +end; + +procedure TdtmSystem.tblRepasseBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; + if tblRepasseID_REPASSE.AsInteger = 1 then + begin + MessageDlg('Este modelo utilizado pelo sistema e no pode ser editado.', + mtWarning, [mbOK], 0); + Abort; + end; +end; + +procedure TdtmSystem.tblRepasseBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblRepasseID_REPASSE.AsInteger := NovoCodigo('SYS_REPASSES', 'ID_REPASSE'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_REPASSES', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_REPASSES', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_REPASSES', 'insert'); + end; +end; + +procedure TdtmSystem.tblRepasseFaseAfterOpen(DataSet: TDataSet); +begin + id_repasse_fase := tblRepasseFaseID_FASE.AsInteger; +end; + +procedure TdtmSystem.tblRepasseFaseBeforeOpen(DataSet: TDataSet); +begin + if tblRepasse.Active then + begin + tblRepasseFase.SQL.Clear; + tblRepasseFase.SQL.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + inttostr(id_repasse); + end + else + begin + tblRepasseFase.SQL.Clear; + tblRepasseFase.SQL.Text := 'select * from sys_repasses_fases'; + end; +end; + +procedure TdtmSystem.tblRepasseFaseBeforePost(DataSet: TDataSet); +begin + if tblRepasseFase.RecordCount > 1 then + begin + ROQueryFaixa.SQL.Clear; + with ROQueryFaixa.SQL do + begin + Add('select MIN_ATRASO, MAX_ATRASO from sys_repasses_fases where id_repasse = ' + + inttostr(id_repasse)); + Add('and ('); + Add('((MIN_ATRASO <= ' + tblRepasseFaseMIN_ATRASO.AsString + + ') and (MAX_ATRASO >= ' + tblRepasseFaseMIN_ATRASO.AsString + + ')) or ((MIN_ATRASO <= ' + tblRepasseFaseMAX_ATRASO.AsString + + ') and (MAX_ATRASO >= ' + tblRepasseFaseMAX_ATRASO.AsString + '))'); + Add(') and ID_FASE <> ' + inttostr(id_repasse_fase)); + end; + ROQueryFaixa.Open; + if not ROQueryFaixa.IsEmpty then + begin + MessageDlg + ('J existe uma faixa com esse perodo de atraso dentro das polticas desta empresa.', + mtWarning, [mbOK], 0); + tblRepasseFaseMIN_ATRASO.AsString := ''; + tblRepasseFaseMAX_ATRASO.AsString := ''; + Abort; + end; + end; + + if DataSet.State = dsInsert then + begin + tblRepasseFaseID_FASE.AsInteger := NovoCodigo('SYS_REPASSES_FASES', + 'ID_FASE'); + tblRepasseFaseID_REPASSE.AsInteger := id_repasse; + tblRepasseFaseID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblRepasseFaseDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if DataSet.State = dsEdit then + begin + tblRepasseFaseID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblRepasseFaseDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; +end; + +procedure TdtmSystem.tblSessaoBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblSessaoID_SESSAO.AsInteger := NovoCodigo('SYS_SESSAO', 'ID_SESSAO'); + end; +end; + +procedure TdtmSystem.tblTelefonesBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'CHG_TELEFONES', 'delete'); +end; + +procedure TdtmSystem.tblTelefonesBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblTelefonesBeforeOpen(DataSet: TDataSet); +begin + if not tblDevedores.Active then + begin + tblTelefones.SQL.Clear; + tblTelefones.SQL.Add('select * from CHG_TELEFONES;'); + end + else + begin + tblTelefones.SQL.Clear; + tblTelefones.SQL.Add('select * from CHG_TELEFONES where id_devedor =' + + inttostr(id_devedor)); + end; +end; + +procedure TdtmSystem.tblTelefonesBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + // tblTelefonesID_TELEFONE.AsInteger := NovoCodigo('CHG_TELEFONES', + // 'ID_TELEFONE'); + tblTelefonesID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblTelefonesID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblTelefonesDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + if DataSet.State = dsEdit then + begin + tblTelefonesID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblTelefonesDT_HORA_ULTIMA_ATT.AsDateTime := Now; + end; + qryConsulta.SQL.Clear; + qryConsulta.SQL.Text := + 'select nr_numero from chg_telefones where nr_numero = ' + + QuotedStr(tblTelefonesNR_NUMERO.AsString) + 'and id_devedor = ' + + inttostr(id_devedor) + 'and nr_ddd = ' + + QuotedStr(tblTelefonesNR_DDD.AsString); + qryConsulta.Open; + if (qryConsulta.RecordCount <> 0) and not(dtsTelefones.State in [dsEdit]) then + begin + MessageDlg('Esse nmero j est cadastrado.', mtWarning, [mbOK], 0); + tblTelefonesNR_NUMERO.AsString := ''; + Abort; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_TELEFONES', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_TELEFONES', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_TELEFONES', 'insert', seqTelefones); + end; +end; + +procedure TdtmSystem.tblTextoEmailBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_TEXTO_EMAIL', 'delete'); +end; + +procedure TdtmSystem.tblTextoEmailBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblTextoEmailBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblTextoEmailID_TEXTO.AsInteger := NovoCodigo('SYS_TEXTO_EMAIL', + 'ID_TEXTO'); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_TEXTO_EMAIL', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_TEXTO_EMAIL', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_TEXTO_EMAIL', 'insert'); + end; +end; + +procedure TdtmSystem.tblTitulosAfterOpen(DataSet: TDataSet); +begin + id_tit := tblTitulosID_TITULO.AsInteger; +end; + +procedure TdtmSystem.tblTitulosAfterPost(DataSet: TDataSet); +begin + // RegistarLog(tblTitulos); + // if tit_state = 'dsInsert' then + // begin + // if not(tblHistorico.Active) then + // begin + // tblHistorico.Open; + // end; + // tblHistorico.Append; + // tblHistoricoID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + // tblHistoricoID_COBRADOR.AsInteger := id_usuario; + // tblHistoricoID_TITULOS.AsString := tblTitulosID_TITULO.AsString; + // tblHistoricoID_PROVIDENCIA.AsInteger := 52; + // tblHistoricoDT_CONTATO.AsDateTime := Date; + // tblHistorico.Post; + // if (tblHistorico.Active) then + // begin + // tblHistorico.Close; + // end; + // end; +end; + +procedure TdtmSystem.tblTitulosBeforeDelete(DataSet: TDataSet); +begin + // RegistarLog(DataSet, 'CHG_TITULOS', 'apagou' + tblTitulosID_DEVEDOR.AsString + + // '-' + tblTitulosID_EMPRESA.AsString + '-' + tblTitulosVL_TITULO.AsString + + // '-' + tblTitulosDT_VENCIMENTO.AsString + '-' + + // tblTitulosTP_SITUACAO.AsString); + with ROquerypesquisas.SQL do + begin + Clear; + Add('select * from sys_acordos where id_original = ' + + // tblTitulosID_TITULO.AsString); + inttostr(id_tit)); + end; + if not tblAcordos.Active then + begin + tblAcordos.Open; + end; + ROquerypesquisas.Open; + if ROquerypesquisas.RecordCount > 0 then + begin + ROquerypesquisas.First; + while not ROquerypesquisas.Eof do + begin + tblAcordos.Locate('ID_ITEM', ROquerypesquisas.FieldByName('ID_ITEM') + .AsInteger, []); + tblAcordos.Delete; + ROquerypesquisas.Next; + end; + end; + with ROquerypesquisas.SQL do + begin + Clear; + Add('select * from sys_acordos where id_parcela = ' + + // tblTitulosID_TITULO.AsString); + inttostr(id_tit)); + end; + ROquerypesquisas.Open; + if ROquerypesquisas.RecordCount > 0 then + begin + ROquerypesquisas.First; + while not ROquerypesquisas.Eof do + begin + tblAcordos.Locate('ID_ITEM', ROquerypesquisas.FieldByName('ID_ITEM') + .AsInteger, []); + tblAcordos.Delete; + ROquerypesquisas.Next; + end; + end; + LogDelete(DataSet, 'CHG_TITULOS', 'delete'); +end; + +procedure TdtmSystem.tblTitulosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; + dt_pag := tblTitulosDT_PAGAMENTO.AsDateTime; + dt_recibo := tblTitulosDT_EMISSAO_RECIBO.AsDateTime; +end; + +procedure TdtmSystem.tblTitulosBeforeOpen(DataSet: TDataSet); +begin + if not tblDevedores.Active then + begin + tblTitulos.SQL.Clear; + tblTitulos.SQL.Add('select * from chg_titulos'); + tblTitulos.SQL.Add('order by DT_VENCIMENTO, VL_TITULO'); + end + else + begin + tblTitulos.SQL.Clear; + tblTitulos.SQL.Add('select * from chg_titulos where id_devedor =' + + inttostr(id_devedor)); + tblTitulos.SQL.Add('order by DT_VENCIMENTO, VL_TITULO'); + end; +end; + +procedure TdtmSystem.tblTitulosBeforePost(DataSet: TDataSet); +var + acao: string; +begin + if tblTitulosDT_VENCIMENTO.AsDateTime < StrToDateTime('01/01/1900 0') then + begin + showmessage('Data invlida para vencimento.'); + Abort; + end; + + if DataSet.State = dsInsert then + begin + tblTitulosID_TITULO.AsInteger := NovoCodigo('CHG_TITULOS', 'ID_TITULO'); + tblTitulosID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + if tblTitulosDT_ENTRADA.AsString = '' then + begin + tblTitulosDT_ENTRADA.AsDateTime := Date; + end; + if tblTitulosTP_SITUACAO.AsString = '' then + begin + tblTitulosTP_SITUACAO.AsString := 'A'; + end; + tblTitulosID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblTitulosDT_HORA_ULTIMA_ATT.AsDateTime := Now; + tblTitulosID_IMPLANTACAO.AsInteger := id_usuario; + tblTitulosDT_IMPLANTACAO.AsDateTime := Now; + tit_state := 'dsInsert'; + if (tblTitulosDT_PAGAMENTO.AsString = '') and + ((tblTitulosTP_SITUACAO.AsString = 'B') or + (tblTitulosTP_SITUACAO.AsString = 'QC')) then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := Date; + end; + // RegistarLog(DataSet, 'CHG_TITULOS', 'inserir'); + end; + if DataSet.State = dsEdit then + begin + acao := ''; + if tblTitulosTP_SITUACAO.AsString = 'A' then + begin + if MessageDlg + ('Voc est prestes a abrir um ttulo. Deseja zerar multa, juros, encargos e repasses?', + mtWarning, [mbyes, mbno], 0) = mrYes then + begin + tblTitulosVL_MULTA.Clear; + tblTitulosVL_JUROS.Clear; + tblTitulosVL_ENCARGOS.Clear; + tblTitulosVL_INDICADOR.Clear; + tblTitulosVL_CORRIGIDO.Clear; + tblTitulosVL_DESC_PRINCIPAL.Clear; + tblTitulosVL_DESC_MULTA.Clear; + tblTitulosVL_DESC_JUROS.Clear; + tblTitulosVL_DESC_INDICADOR.Clear; + tblTitulosVL_REPASSE_MULTA.Clear; + tblTitulosVL_REPASSE_JUROS.Clear; + tblTitulosVL_REPASSE_CORRIGIDO.Clear; + tblTitulosVL_REPASSE_PRIN.Clear; + tblTitulosVL_REPASSE_ENCARGOS.Clear; + end; + end; + tblTitulosID_ULTIMO_USUARIO.AsInteger := id_usuario; + tblTitulosDT_HORA_ULTIMA_ATT.AsDateTime := Now; + tit_state := 'dsEdit'; + if (tblTitulosDT_PAGAMENTO.AsString = '') and + ((tblTitulosTP_SITUACAO.AsString = 'B') or + (tblTitulosTP_SITUACAO.AsString = 'QC')) then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := Date; + end; + if (tblTitulosTP_SITUACAO.AsString = 'A') or + (tblTitulosTP_SITUACAO.AsString = 'AC') then + begin + tblTitulosDT_PAGAMENTO.Clear; + tblTitulosDT_EMISSAO_RECIBO.Clear; + end; + if tblTitulosDT_PAGAMENTO.AsDateTime <> dt_pag then + begin + acao := acao + 'P:' + tblTitulosDT_PAGAMENTO.AsString + '-' + + DateToStr(dt_pag); + end; + if tblTitulosDT_EMISSAO_RECIBO.AsDateTime <> dt_recibo then + begin + acao := acao + 'R: ' + tblTitulosDT_EMISSAO_RECIBO.AsString + '-' + + DateToStr(dt_recibo); + end; + // RegistarLog(DataSet, 'CHG_TITULOS', 'editou ' + acao); + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'CHG_TITULOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'CHG_TITULOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'CHG_TITULOS', 'insert'); + end; + +end; + +procedure TdtmSystem.tblUsuariosAfterInsert(DataSet: TDataSet); +begin + tblUsuariosTP_ATIVO.AsString := 'S'; + tblUsuariosTP_TROCAPASS.AsString := 'N'; +end; + +procedure TdtmSystem.tblUsuariosBeforeDelete(DataSet: TDataSet); +begin + LogDelete(DataSet, 'SYS_USUARIOS', 'delete'); +end; + +procedure TdtmSystem.tblUsuariosBeforeEdit(DataSet: TDataSet); +var + i: integer; +begin + SetLength(fields_before, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields_before[i] := DataSet.fields[i].AsString; + end; +end; + +procedure TdtmSystem.tblUsuariosBeforeOpen(DataSet: TDataSet); +begin + if not tblGrupos.Active then + begin + tblUsuarios.SQL.Clear; + tblUsuarios.SQL.Add('select * from SYS_USUARIOS;'); + end + else + begin + tblUsuarios.SQL.Clear; + tblUsuarios.SQL.Add('select * from SYS_USUARIOS where id_grupo =' + + inttostr(id_grupoq)); + end; +end; + +procedure TdtmSystem.tblUsuariosBeforePost(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + tblUsuariosID_USUARIO.AsInteger := NovoCodigo('SYS_USUARIOS', 'ID_USUARIO'); + end; + qryConsulta.SQL.Clear; + qryConsulta.SQL.Text := + 'select tx_nome from sys_usuarios where lower(tx_nome) = ' + + QuotedStr(LowerCase(tblUsuariosTX_NOME.AsString)); + qryConsulta.Open; + if (qryConsulta.RecordCount <> 0) and not(dtsUsuarios.State in [dsEdit]) then + begin + MessageDlg('J existe um Usurio com este nome.', mtWarning, [mbOK], 0); + tblUsuariosTX_NOME.AsString := ''; + Abort; + end; + if DataSet.State <> dsInsert then + begin + if CheckDiffFields(DataSet, fields_before) then + begin + LogDiffFields(DataSet, fields_before, 'SYS_USUARIOS', 'edit'); + end + else + begin + RegistarLog(DataSet, 'SYS_USUARIOS', 'post'); + end; + end + else + begin + LogPost(DataSet, 'SYS_USUARIOS', 'insert'); + end; +end; + +procedure TdtmSystem.AtribuirChavePrimaria(DataSet: TDataSet); +begin + if DataSet.State = dsInsert then + begin + DataSet.fields[0].AsInteger := NovoCodigo((DataSet as TZTable).TableName, + DataSet.fields[0].FieldName); + end; +end; + +function TdtmSystem.CheckDiffFields(DataSet: TDataSet; + fields: array of string): boolean; +var + i: integer; + diff: boolean; +begin + diff := false; + for i := 0 to DataSet.FieldCount - 1 do + begin + if fields[i] <> DataSet.fields[i].AsString then + begin + diff := true; + break + end; + end; + Result := diff; +end; + +function TdtmSystem.ComputerName: string; +var + Buffer: array [0 .. MAX_COMPUTERNAME_LENGTH + 1] of Char; + Size: DWORD; +begin + Size := MAX_COMPUTERNAME_LENGTH + 1; + if GetComputerName(@Buffer, Size) then + begin + Result := StrPas(Buffer); + end + else + begin + Result := ''; + end; +end; + +procedure TdtmSystem.RegistarLog(DataSet: TDataSet; table, action: string); +begin + tblLog.Append; + tblLogTX_TABELA.AsString := table; + tblLogID_REGISTRO.AsInteger := DataSet.fields[0].AsInteger; + tblLogTX_ACAO.AsString := action; + tblLog.Post; +end; + +procedure TdtmSystem.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if LowerCase(S) = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +// procedimento para adicionar uma permisso a tabela de permisses + +procedure TdtmSystem.InserirPermissao(cd_permissao, tp_permissao, + tx_descricao: string); +var + id_parent: integer; +begin + with dtmSystem do + // com as tabelas do dtmSystem... + begin + // Procura se a entrada possui um pai + if tblPermissoes.Locate('CD_PERMISSAO', + copy(cd_permissao, 1, Length(cd_permissao) - 3), []) then + begin + id_parent := tblPermissoesID_PERMISSAO.AsInteger; + end + else + begin + id_parent := 0; + // se no ela um pai + end; + // procura se a entrada existe ou no + if not tblPermissoes.Locate('CD_PERMISSAO', cd_permissao, []) then + begin + tblPermissoes.Append; // se no, adiciona + end + else + begin + tblPermissoes.Edit; // se sim, edita + end; + // atualiza os dados da permisso + tblPermissoesID_PARENT.AsInteger := id_parent; + tblPermissoesCD_PERMISSAO.AsString := cd_permissao; + tblPermissoesTP_ACESSO.AsString := tp_permissao; + tblPermissoesTX_DESCRICAO.AsString := tx_descricao; + tblPermissoes.Post; + Application.ProcessMessages; + end; +end; + +procedure TdtmSystem.JsonBuilder(table: TZTable; model: string; pk: string); +var + i: integer; + str_helper: string; + str_list: TStringList; +begin + str_helper := ''; + with table do + begin + str_list := TStringList.Create; + str_list.Add('model=' + 'cobranca.' + model); + str_list.Add('pk=' + FieldByName(pk).AsString); + str_list.Add('fields='); + for i := 0 to FieldCount - 1 do + begin + if fields[i].FieldName <> pk then + begin + str_list.Add(fields[i].FieldName + '=' + fields[i].AsString); + end; + end; + end; + // indyHTTP.Post('http://192.168.0.154:8000/api/cobranca/devedores', str_list); +end; + +procedure TdtmSystem.JsonBuilderOnline(table: TZTable; model, pk: string; + url: string); +var + Modelo: TJSONObject; + dados, dadoshelp: TJSONObject; + modarray { , dadosarray } : TJSONArray; + estava_aberta: boolean; + recno: integer; + jsondatehelper: TDateTime; + jsonfloathelper: double; + jsoninthelper: integer; + i: integer; +begin + if not(table.Active) then + begin + table.Open; + estava_aberta := false; + end + else + begin + estava_aberta := true; + recno := table.recno; + end; + table.First; + Modelo := TJSONObject.Create; + try + modarray := TJSONArray.Create; + while not table.Eof do + begin + try + dados := TJSONObject.Create; + with dados do + begin + AddPair('model', TJSONString.Create(model)); + AddPair('pk', TJSONNumber.Create(table.FieldByName(pk).AsInteger)); + // dadosarray := TJSONArray.Create; + dadoshelp := TJSONObject.Create; + with dadoshelp do + begin + for i := 0 to table.FieldCount - 1 do + begin + if table.fields[i].FieldName <> table.FieldByName(pk).FieldName + then + begin + if table.fields[i].IsNull then + begin + AddPair(TJSONString.Create(table.fields[i].FieldName), + TJSONNull.Create); + end + else + begin + if TryStrToDateTime(table.fields[i].AsString, jsondatehelper) + = true then + begin + AddPair(TJSONString.Create(table.fields[i].FieldName), + TJSONString.Create(FormatDateTime('YYYY-MM-DD', + table.fields[i].AsDateTime))); + end + else if (TryStrToInt(table.fields[i].AsString, jsoninthelper) + = true) or + (TryStrToFloat(table.fields[i].AsString, jsonfloathelper) + = true) then + begin + AddPair(TJSONString.Create(table.fields[i].FieldName), + TJSONNumber.Create(table.fields[i].AsInteger)); + end + else + begin + AddPair(TJSONString.Create(table.fields[i].FieldName), + TJSONString.Create(table.fields[i].AsString)); + end; + end; + end; + end; + end; + AddPair('fields', dadoshelp); + end; + modarray.AddElement(dados); + finally + table.Next; + Application.ProcessMessages; + end; + end; + Modelo.AddPair(model + '-title', modarray); + if estava_aberta = true then + begin + table.recno := recno; + end + else + begin + table.Close; + end; + finally + // indyHTTP.Post(url, Modelo.ToString); + Modelo.Free; + Screen.Cursor := crDefault; + end; +end; + +procedure TdtmSystem.LogaDC(txt: string); +var + path: string; +begin + path := ExtractFilePath(Application.ExeName); + path := path + 'log'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + AssignFile(log, path + '\errorLog.txt'); + if FileExists(path + '\errorLog.txt') then + begin + Append(log); + Writeln(log, DateTimeToStr(Now)); + Writeln(log, ''); + Writeln(log, ''); + Writeln(log, txt); + Writeln(log, ''); + Writeln(log, ''); + end + else + begin + Rewrite(log); + Writeln(log, DateTimeToStr(Now)); + Writeln(log, ''); + Writeln(log, ''); + Writeln(log, txt); + Writeln(log, ''); + Writeln(log, ''); + end; + CloseFile(log); +end; + +procedure TdtmSystem.LogDelete(DataSet: TDataSet; table, action: string); +var + i: integer; + str_help: string; + fields: array of string; +begin + SetLength(fields, DataSet.FieldCount); + for i := 0 to DataSet.FieldCount - 1 do + begin + fields[i] := DataSet.fields[i].AsString; + end; + str_help := 'Antes de deletar:' + sLineBreak; + for i := 0 to Length(fields) - 1 do + begin + str_help := str_help + DataSet.fields[i].FieldName + ': ' + fields[i] + + sLineBreak; + end; + tblLog.Append; + tblLogTX_TABELA.AsString := table; + tblLogID_REGISTRO.AsInteger := DataSet.fields[0].AsInteger; + tblLogTX_ACAO.AsString := action; + tblLogTL_ACAO.AsString := str_help; + tblLog.Post; +end; + +procedure TdtmSystem.LogDiffFields(DataSet: TDataSet; fields: array of string; + table: string; action: string); +var + i: integer; + str_help: string; +begin + str_help := 'Antes de editar:' + sLineBreak; + for i := 0 to Length(fields) - 1 do + begin + str_help := str_help + DataSet.fields[i].FieldName + ': ' + fields[i] + + sLineBreak; + end; + str_help := str_help + sLineBreak + 'Depois de editar:' + sLineBreak; + for i := 0 to DataSet.FieldCount - 1 do + begin + str_help := str_help + DataSet.fields[i].FieldName + ': ' + DataSet.fields + [i].AsString + sLineBreak; + end; + tblLog.Append; + tblLogTX_TABELA.AsString := table; + tblLogID_REGISTRO.AsInteger := DataSet.fields[0].AsInteger; + tblLogTX_ACAO.AsString := action; + tblLogTL_ACAO.AsString := str_help; + tblLog.Post; +end; + +procedure TdtmSystem.LogPost(DataSet: TDataSet; table, action: string; + sequence: TZSequence = nil); +var + i: integer; + str_help: string; + // fields: array of string; +begin + str_help := 'Valores Iniciais:' + sLineBreak; + for i := 0 to DataSet.FieldCount - 1 do + begin + str_help := str_help + DataSet.fields[i].FieldName + ': ' + DataSet.fields + [i].AsString + sLineBreak; + end; + + tblLog.Append; + tblLogTX_TABELA.AsString := table; + if Assigned(sequence) then + begin + // tblLogID_REGISTRO.AsInteger := DataSet.fields[i].AsInteger; + tblLogID_REGISTRO.AsInteger := sequence.GetCurrentValue + 1; + end + else + begin + tblLogID_REGISTRO.AsInteger := DataSet.fields[0].AsInteger; + end; + tblLogTX_ACAO.AsString := action; + tblLogTL_ACAO.AsString := str_help; + tblLog.Post; +end; + +function TdtmSystem.VerificarPermissao(cd_permissao: string): boolean; +begin + { if not tblGrupos.Active then + begin + tblGrupos.Open; + end; + Result := true; + // posiciona no grupo ativo + tblGrupos.Locate('ID_GRUPO', dtmSystem.id_grupo, []); + // procura a opo + if not(tblPermissoes.Active) then + begin + tblPermissoes.Open; + end; + if not(tblGruposPermissoes.Active) then + begin + tblGruposPermissoes.Open; + end; + if tblPermissoes.Locate('CD_PERMISSAO', cd_permissao, []) then + begin + // Retorna o acesso + if tblGruposPermissoes.Locate('ID_PERMISSAO', + tblPermissoesID_PERMISSAO.AsString, []) then + begin + if tblGruposPermissoesTP_ACESSO.Value = 'S' then + begin + Result := true; + while tblPermissoesID_PARENT.AsString <> '0' do + begin + tblPermissoes.Locate('ID_PERMISSAO', + tblPermissoesID_PARENT.AsString, []); + tblGruposPermissoes.Locate('ID_PERMISSAO', + tblPermissoesID_PERMISSAO.AsString, []); + if tblGruposPermissoesTP_ACESSO.Value = 'S' then + begin + Result := true; + end + else + begin + Result := false; + Break; + end; + end; + end + else + begin + Result := false; + end; + end; + end + else + begin + Result := false; + end; } + if cd_value.Values[cd_permissao] = 'S' then + begin + Result := true; + while cd_parent.Values[cd_permissao] <> '0' do + begin + cd_permissao := cd_parent.Names + [strtoint(cd_parent.Values[cd_permissao]) - 1]; + if cd_value.Values[cd_permissao] = 'S' then + begin + Result := true; + end + else + begin + Result := false; + break; + end; + end; + end + else + begin + Result := false; + end; +end; + +function TdtmSystem.VerificarVersao: boolean; +var + prog_version, update_version: TStringList; + res: boolean; +begin + // DELPHI_DEV-PC + // showmessage(dtmSystem.GetAppVersionStr + ' - ' + dtmSystem.version); + res := false; + prog_version := TStringList.Create; + try + prog_version.Clear; + prog_version.Delimiter := '.'; + prog_version.DelimitedText := dtmSystem.GetAppVersionStr; + finally + end; + update_version := TStringList.Create; + try + update_version.Clear; + update_version.Delimiter := '.'; + update_version.DelimitedText := version; + finally + end; + if prog_version[0] <> update_version[0] then + begin + res := true; + end + else if prog_version[1] <> update_version[1] then + begin + res := true; + end + else if prog_version[2] <> update_version[2] then + begin + res := true; + end + else if prog_version[3] <> update_version[3] then + begin + res := true; + end; + Result := res; +end; + +procedure TdtmSystem.ZConnectionAfterDisconnect(Sender: TObject); +begin + // LogaDC('desconectou' + inttostr(dtmSystem.id_usuario)) +end; + +procedure TdtmSystem.AlterReadOnly; +var + i: integer; +begin + + if DataSet.State in [dsBrowse] then + begin + for i := 0 to objeto.ControlCount - 1 do + begin + if objeto.Controls[i] is TDBEdit then + begin + (objeto.Controls[i] as TDBEdit).ReadOnly := true; + end; + if objeto.Controls[i] is TDBGrid then + begin + (objeto.Controls[i] as TDBGrid).ReadOnly := true; + end; + if objeto.Controls[i] is TPanel then + begin + (objeto.Controls[i] as TPanel).Enabled := false; + end; + if objeto.Controls[i] is TCheckListBox then + begin + (objeto.Controls[i] as TCheckListBox).Enabled := false; + end; + if objeto.Controls[i] is TDBLookupComboBox then + begin + (objeto.Controls[i] as TDBLookupComboBox).ReadOnly := true; + end; + if objeto.Controls[i] is TDBLookupComboBox then + begin + (objeto.Controls[i] as TDBLookupComboBox).ReadOnly := true; + end; + if objeto.Controls[i] is TrDBDateTimePicker then + begin + (objeto.Controls[i] as TrDBDateTimePicker).ReadOnly := true; + end; + end; + end + else + begin + for i := 0 to objeto.ControlCount - 1 do + begin + if objeto.Controls[i] is TDBEdit then + begin + (objeto.Controls[i] as TDBEdit).ReadOnly := false; + end; + if objeto.Controls[i] is TDBGrid then + begin + (objeto.Controls[i] as TDBGrid).ReadOnly := false; + end; + if objeto.Controls[i] is TPanel then + begin + (objeto.Controls[i] as TPanel).Enabled := true; + end; + if objeto.Controls[i] is TCheckListBox then + begin + (objeto.Controls[i] as TCheckListBox).Enabled := true; + end; + if objeto.Controls[i] is TDBLookupComboBox then + begin + (objeto.Controls[i] as TDBLookupComboBox).ReadOnly := false; + end; + if objeto.Controls[i] is TrDBDateTimePicker then + begin + (objeto.Controls[i] as TrDBDateTimePicker).ReadOnly := false; + end; + end; + end; +end; + +end. diff --git a/ufrmAchaRecibo.dfm b/ufrmAchaRecibo.dfm new file mode 100644 index 0000000..5d25988 --- /dev/null +++ b/ufrmAchaRecibo.dfm @@ -0,0 +1,179 @@ +inherited frmAchaRecibo: TfrmAchaRecibo + Caption = 'Recibos' + ClientHeight = 302 + ClientWidth = 911 + Position = poDesktopCenter + OnCanResize = FormCanResize + ExplicitWidth = 917 + ExplicitHeight = 331 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 283 + Width = 911 + ExplicitTop = 283 + ExplicitWidth = 911 + end + object gb_pesquisar: TGroupBox + Left = 8 + Top = 8 + Width = 273 + Height = 265 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + object lbl_pesquisar: TLabel + Left = 10 + Top = 10 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object edt_campop: TEdit + Left = 10 + Top = 29 + Width = 255 + Height = 21 + MaxLength = 255 + TabOrder = 0 + end + object btn_pesquisar: TButton + Left = 190 + Top = 56 + Width = 75 + Height = 25 + Caption = 'Pesquisar' + TabOrder = 1 + OnClick = btn_pesquisarClick + end + object dbgrd_pesquisar: TDBGrid + Left = 10 + Top = 87 + Width = 255 + Height = 170 + DataSource = dtsPesquisa + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDblClick = dbgrd_pesquisarDblClick + end + object cbx_tiponome: TComboBox + Left = 10 + Top = 58 + Width = 151 + Height = 21 + Style = csDropDownList + ItemIndex = 0 + TabOrder = 3 + Text = 'Devedor' + Items.Strings = ( + 'Devedor' + 'Pai do Devedor' + 'M'#227'e do Devedor' + 'CPF/CNPJ' + 'C'#243'digo do Devedor' + 'Telefone') + end + end + object gb_recibo: TGroupBox + Left = 287 + Top = 8 + Width = 618 + Height = 265 + TabOrder = 2 + object dbgrd_recibo: TDBGrid + Left = 16 + Top = 16 + Width = 585 + Height = 241 + DataSource = dtsRecibos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + PopupMenu = PopupMenu1 + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_reciboDrawColumnCell + OnDblClick = dbgrd_reciboDblClick + Columns = < + item + Expanded = False + FieldName = 'NR_RECIBO' + Title.Caption = 'N'#250'mero' + Width = 71 + Visible = True + end + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome do recibo' + Width = 150 + Visible = True + end + item + Expanded = False + FieldName = 'VL_CORRIGIDO' + Title.Caption = 'Valor' + Visible = True + end + item + Expanded = False + FieldName = 'TX_CAIXA' + Title.Caption = 'Caixa' + Visible = True + end + item + Expanded = False + FieldName = 'DT_IMPRESSAO' + Title.Caption = 'Data da Impress'#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'TX_CAMINHO' + Title.Caption = 'Caminho' + Visible = True + end> + end + end + object qryPesquisa: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 32 + Top = 192 + end + object dtsPesquisa: TDataSource + DataSet = qryPesquisa + Left = 96 + Top = 192 + end + object dtsRecibos: TDataSource + DataSet = dtmSystem.tblRecibo + Left = 367 + Top = 200 + end + object PopupMenu1: TPopupMenu + Left = 391 + Top = 80 + object ppmnu_cancelarecibo: TMenuItem + Caption = 'Cancelar Recibo' + OnClick = ppmnu_cancelareciboClick + end + object ppmnu_reativarrecibo: TMenuItem + Caption = 'Reativar Recibo' + OnClick = ppmnu_reativarreciboClick + end + end +end diff --git a/ufrmAchaRecibo.pas b/ufrmAchaRecibo.pas new file mode 100644 index 0000000..d1e6cac --- /dev/null +++ b/ufrmAchaRecibo.pas @@ -0,0 +1,381 @@ +unit ufrmAchaRecibo; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, ShellApi, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, ZAbstractRODataset, + System.StrUtils, + ZAbstractDataset, ZDataset, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, + Vcl.ComCtrls, Vcl.Menus; + +type + TfrmAchaRecibo = class(TmstMaster) + gb_pesquisar: TGroupBox; + lbl_pesquisar: TLabel; + edt_campop: TEdit; + btn_pesquisar: TButton; + dbgrd_pesquisar: TDBGrid; + cbx_tiponome: TComboBox; + qryPesquisa: TZQuery; + dtsPesquisa: TDataSource; + gb_recibo: TGroupBox; + dbgrd_recibo: TDBGrid; + dtsRecibos: TDataSource; + PopupMenu1: TPopupMenu; + ppmnu_cancelarecibo: TMenuItem; + ppmnu_reativarrecibo: TMenuItem; + procedure btn_pesquisarClick(Sender: TObject); + procedure dbgrd_pesquisarDblClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure dbgrd_reciboDblClick(Sender: TObject); + procedure WMMoving(var MSG: TWMMoving); message WM_MOVING; + procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; + var Resize: Boolean); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure ppmnu_cancelareciboClick(Sender: TObject); + procedure ppmnu_reativarreciboClick(Sender: TObject); + procedure dbgrd_reciboDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmAchaRecibo: TfrmAchaRecibo; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmAchaRecibo.btn_pesquisarClick(Sender: TObject); +var + string_query, tx_pesquisa, help_cpfcnpj, tx_tel, query2: string; + i, tam1: Integer; +begin + try + if edt_campop.Text <> '' then + begin + tx_pesquisa := UpperCase(stringreplace(edt_campop.Text, ' ', '%', + [rfReplaceAll])); + + string_query := + 'select ID_DEVEDOR, TX_NOME, case when TP_CLIENTE = ''F'' ' + + 'then CD_CPF when TP_CLIENTE = ''J'' then CD_CNPJ end as TX_DOCUMENTO from ' + + 'CHG_DEVEDORES where '; + query2 := string_query; + case cbx_tiponome.ItemIndex of + 0: + begin + string_query := string_query + 'upper(TX_NOME COLLATE WIN_PTBR) LIKE ' + + QuotedStr('%' + tx_pesquisa + '%'); + end; + 1: + begin + string_query := string_query + 'upper(TX_PAI) LIKE ' + + QuotedStr('%' + tx_pesquisa + '%'); + end; + 2: + begin + string_query := string_query + 'upper(TX_MAE) LIKE ' + + QuotedStr('%' + tx_pesquisa + '%'); + end; + 3: + begin + tx_pesquisa := stringreplace(tx_pesquisa, '.', '', [rfReplaceAll]); + tx_pesquisa := stringreplace(tx_pesquisa, '-', '', [rfReplaceAll]); + tx_pesquisa := stringreplace(tx_pesquisa, '/', '', [rfReplaceAll]); + if length(tx_pesquisa) < 14 then + begin + tx_pesquisa := stringreplace(tx_pesquisa, 'TX_DOCUMENTO', + 'CD_CPF', [rfReplaceAll]); + help_cpfcnpj := copy(tx_pesquisa, 1, 3) + '.' + + copy(tx_pesquisa, 4, 3) + '.' + copy(tx_pesquisa, 7, 3) + '-' + + RightStr(tx_pesquisa, 2); + string_query := string_query + 'CD_CPF like ' + + QuotedStr(help_cpfcnpj); + end + else if length(tx_pesquisa) >= 14 then + begin + tx_pesquisa := stringreplace(tx_pesquisa, 'TX_DOCUMENTO', + 'CD_CNPJ', [rfReplaceAll]); + help_cpfcnpj := copy(tx_pesquisa, 1, 2) + '.' + + copy(tx_pesquisa, 3, 3) + '.' + copy(tx_pesquisa, 6, 3) + '/' + + copy(tx_pesquisa, 9, 4) + '-' + RightStr(tx_pesquisa, 2); + string_query := string_query + 'CD_CNPJ like ' + + QuotedStr(help_cpfcnpj); + string_query := stringreplace(string_query, 'CD_CPF', 'CD_CNPJ', + [rfReplaceAll]); + end; + end; + 4: + begin + string_query := string_query + + 'ID_DEVEDOR in (select id_devedor from chg_titulos where cd_devedor like ' + + QuotedStr('%' + tx_pesquisa + '%') + ')'; + end; + 5: + begin + tx_pesquisa := stringreplace(tx_pesquisa, '-', '', + [rfReplaceAll, rfIgnoreCase]); + tx_tel := tx_pesquisa; + if (length(tx_pesquisa) < 8) or (length(tx_pesquisa) > 9) then + begin + MessageDlg + ('Nmero de telefone invlido. Ele deve conter ao menos 8 dgitos e no mximo 9 para que a pesquisa possa ser realizada.', + mtWarning, [mbOK], 0); + abort; + end; + if length(tx_pesquisa) = 8 then + begin + tx_pesquisa := copy(tx_pesquisa, 1, 4) + '-' + + copy(tx_pesquisa, 5, 4); + end + else + begin + tx_pesquisa := copy(tx_pesquisa, 1, 5) + '-' + + copy(tx_pesquisa, 6, 4); + end; + string_query := string_query + + 'ID_DEVEDOR in (SELECT ID_DEVEDOR FROM CHG_TELEFONES WHERE NR_NUMERO = ' + + QuotedStr(tx_pesquisa) + ')'; + query2 := query2 + + 'ID_DEVEDOR in (SELECT ID_DEVEDOR FROM CHG_TELEFONES WHERE NR_NUMERO = ' + + QuotedStr(tx_tel) + ')'; + end; + end; + end; + + string_query := string_query + ' order by tx_nome'; + query2 := query2 + ' order by tx_nome'; + + qryPesquisa.SQL.Text := string_query; + + qryPesquisa.ExecSQL; + qryPesquisa.Active := true; + + if (qryPesquisa.IsEmpty) and (cbx_tiponome.ItemIndex <> 1) then + // se vazio, avisa que no achou nada + begin + qryPesquisa.Active := false; + MessageDlg('Nenhuma entrada foi encontrada.', mtWarning, [mbOK], 0); + end + else + begin + if (cbx_tiponome.ItemIndex = 1) and (qryPesquisa.IsEmpty) then + begin + qryPesquisa.SQL.Text := query2; + qryPesquisa.ExecSQL; + qryPesquisa.Active := true; + if qryPesquisa.IsEmpty then + begin + qryPesquisa.Active := false; + MessageDlg('Nenhuma entrada foi encontrada.', mtWarning, [mbOK], 0); + end; + end; + end; + + for i := 0 to qryPesquisa.FieldCount - 1 do + // arruma o tamanho das colunas conforme os dados + begin + + if AnsiContainsText(dbgrd_pesquisar.Columns[i].Title.Caption, 'ID_') then + begin + dbgrd_pesquisar.Columns[i].Title.Caption := 'Id'; + end; + + if dbgrd_pesquisar.Columns[i].Title.Caption = 'TX_NOME' then + begin + dbgrd_pesquisar.Columns[i].Title.Caption := 'Nome'; + end; + + if dbgrd_pesquisar.Columns[i].Title.Caption = 'TX_DOCUMENTO' then + begin + dbgrd_pesquisar.Columns[i].Title.Caption := 'N do documento'; + tam1 := 543; + end; + + if dbgrd_pesquisar.Columns[i].Title.Caption = 'CD_CPF' then + begin + dbgrd_pesquisar.Columns[i].Title.Caption := 'CPF'; + tam1 := 584; + end; + + if dbgrd_pesquisar.Columns[i].Title.Caption = 'CD_CNPJ' then + begin + dbgrd_pesquisar.Columns[i].Title.Caption := 'CNPJ'; + tam1 := 567; + end; + + if dbgrd_pesquisar.Columns[i].Title.Caption = 'TX_CNPJ' then + begin + dbgrd_pesquisar.Columns[i].Title.Caption := 'CNPJ'; + tam1 := 543; + end; + + end; + + for i := 0 to qryPesquisa.FieldCount - 1 do + begin + if AnsiContainsText(dbgrd_pesquisar.Columns[i].Title.Caption, 'Id') then + begin + dbgrd_pesquisar.Columns[i].Width := 40; + end; + + if dbgrd_pesquisar.Columns[i].Title.Caption = 'Nome' then + begin + dbgrd_pesquisar.Columns[i].Width := tam1; + end; + end; + except + + end; +end; + +procedure TfrmAchaRecibo.dbgrd_pesquisarDblClick(Sender: TObject); +begin + dtmSystem.tblDevedores.Locate('TX_NOME', qryPesquisa.FieldByName('TX_NOME') + .AsString, []); + dtmSystem.tblRecibo.Filtered := False; + dtmSystem.tblRecibo.Filter := 'ID_DEVEDOR = ' + + QuotedStr(dtmSystem.tblDevedoresID_DEVEDOR.AsString); + dtmSystem.tblRecibo.Filtered := True; + dtmSystem.tblRecibo.Last; +end; + +procedure TfrmAchaRecibo.dbgrd_reciboDblClick(Sender: TObject); +begin + if not(dbgrd_recibo.Columns[5].Field.AsString = '') then + begin + ShellExecute(Handle, nil, PChar(dbgrd_recibo.Columns[5].Field.AsString), + nil, nil, SW_SHOWNORMAL); + end + else + begin + Showmessage('Caminho para o recibo no encontrado.'); + end; +end; + +procedure TfrmAchaRecibo.dbgrd_reciboDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + inherited; + case AnsiIndexStr(dtmSystem.tblRecibo.FieldByName('TP_CANCELADO').AsString, + ['S', 'N']) of + 0: + dbgrd_recibo.Canvas.Brush.Color := clRed; + 1: + dbgrd_recibo.Canvas.Brush.Color := clWhite; + end; + // end; + dbgrd_recibo.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmAchaRecibo.FormCanResize(Sender: TObject; + var NewWidth, NewHeight: Integer; var Resize: Boolean); +begin + inherited; + Resize := false; +end; + +procedure TfrmAchaRecibo.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + dtmSystem.tblRecibo.Filtered := false; +end; + +procedure TfrmAchaRecibo.FormCreate(Sender: TObject); +begin + with dtmSystem do + begin + if not(tblDevedores.Active) then + begin + tblDevedores.Open; + end; + if not(tblRecibo.Active) then + begin + tblRecibo.Open; + end; + tblRecibo.Filter := 'ID_DEVEDOR = '''''; + tblRecibo.Filtered := true; + tblRecibo.SortType := stDescending; + end; +end; + +procedure TfrmAchaRecibo.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TfrmAchaRecibo.ppmnu_cancelareciboClick(Sender: TObject); +begin + inherited; + with dtmSystem do + begin + if tblRecibo.Filter = 'ID_DEVEDOR = ''''' then + begin + abort; + end + else + begin + tblRecibo.Edit; + tblReciboTP_CANCELADO.AsString := 'S'; + tblRecibo.Post; + end; + end; +end; + +procedure TfrmAchaRecibo.ppmnu_reativarreciboClick(Sender: TObject); +begin + inherited; + with dtmSystem do + begin + if tblRecibo.Filter = 'ID_DEVEDOR = ''''' then + begin + abort; + end + else + begin + tblRecibo.Edit; + tblReciboTP_CANCELADO.AsString := 'N'; + tblRecibo.Post; + end; + end; +end; + +procedure TfrmAchaRecibo.WMMoving(var MSG: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with MSG.DragRect^ do + begin + if left < workArea.left then + OffsetRect(MSG.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(MSG.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(MSG.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(MSG.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmAgenda.dfm b/ufrmAgenda.dfm new file mode 100644 index 0000000..6c4c659 --- /dev/null +++ b/ufrmAgenda.dfm @@ -0,0 +1,864 @@ +inherited frmAgenda: TfrmAgenda + Left = 781 + Top = 219 + BorderStyle = bsSingle + Caption = 'Agenda' + ClientHeight = 423 + ClientWidth = 625 + Menu = MainMenu1 + Position = poDefault + OnDestroy = FormDestroy + ExplicitWidth = 631 + ExplicitHeight = 472 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox1: TGroupBox + Left = 2 + Width = 615 + Height = 330 + ExplicitLeft = 2 + ExplicitWidth = 615 + ExplicitHeight = 330 + object Label1: TLabel [0] + Left = 339 + Top = 12 + Width = 71 + Height = 13 + Caption = 'Muito Atrasado' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label2: TLabel [1] + Left = 433 + Top = 12 + Width = 42 + Height = 13 + Caption = 'Atrasado' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label3: TLabel [2] + Left = 502 + Top = 12 + Width = 40 + Height = 13 + Caption = 'Na Hora' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel [3] + Left = 565 + Top = 12 + Width = 41 + Height = 13 + Caption = 'A Cobrar' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label5: TLabel [4] + Left = 255 + Top = 12 + Width = 63 + Height = 13 + Caption = 'Agenda Feita' + end + object lbl_filtrauser: TLabel [5] + Left = 389 + Top = 36 + Width = 67 + Height = 13 + Caption = 'Filtrar Usu'#225'rio:' + Visible = False + end + object spdbtn_filtrauser: TSpeedButton [6] + Left = 584 + Top = 32 + Width = 23 + Height = 22 + Anchors = [] + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FF314B62 + AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF + 106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + 37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF + 00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2 + 9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC + E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF + FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED + B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF + FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF + DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0 + B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0 + BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1 + D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577 + 6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF} + Visible = False + OnClick = spdbtn_filtrauserClick + end + inherited grdLista: TDBGrid + Top = 58 + Width = 598 + Height = 262 + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + OnColExit = grdListaColExit + OnDrawColumnCell = grdListaDrawColumnCell + OnDblClick = grdListaDblClick + OnKeyPress = grdListaKeyPress + Columns = < + item + Expanded = False + FieldName = 'NOME_COBRADOR' + ReadOnly = True + Title.Caption = 'Cobrador' + Visible = False + end + item + Expanded = False + FieldName = 'TX_NOME' + ReadOnly = True + Title.Caption = 'Devedor' + Width = 250 + Visible = True + end + item + Expanded = False + FieldName = 'HR_AGENDADA' + ReadOnly = True + Title.Caption = 'Hora Agendada' + Width = 85 + Visible = True + end + item + Expanded = False + FieldName = 'DT_AGENDADA' + ReadOnly = True + Title.Caption = 'Data Agendada' + Width = 116 + Visible = True + end + item + Expanded = False + FieldName = 'NOME_QUEM_AGENDOU' + ReadOnly = True + Title.Caption = 'Quem Agendou' + Visible = False + end> + end + object cb_filtro: TCheckBox + Left = 8 + Top = 9 + Width = 145 + Height = 17 + Caption = 'Mostrar apenas em aberto' + Checked = True + State = cbChecked + TabOrder = 1 + OnClick = cb_filtroClick + end + object Panel1: TPanel + Left = 322 + Top = 11 + Width = 15 + Height = 15 + Color = clRed + ParentBackground = False + TabOrder = 2 + end + object Panel2: TPanel + Left = 416 + Top = 11 + Width = 15 + Height = 15 + Color = clYellow + ParentBackground = False + TabOrder = 3 + end + object Panel3: TPanel + Left = 485 + Top = 11 + Width = 15 + Height = 15 + Color = clGreen + ParentBackground = False + TabOrder = 4 + end + object Panel4: TPanel + Left = 548 + Top = 11 + Width = 15 + Height = 15 + Color = clSkyBlue + ParentBackground = False + TabOrder = 5 + end + object cb_filtro2: TCheckBox + Left = 8 + Top = 32 + Width = 177 + Height = 17 + Caption = 'Mostrar apenas hoje em diante' + Checked = True + State = cbChecked + TabOrder = 6 + OnClick = cb_filtro2Click + end + object Panel5: TPanel + Left = 235 + Top = 11 + Width = 15 + Height = 15 + Color = clSilver + ParentBackground = False + TabOrder = 7 + end + object edt_filtrauser: TEdit + Left = 460 + Top = 33 + Width = 121 + Height = 21 + TabOrder = 8 + Visible = False + OnKeyDown = edt_filtrauserKeyDown + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 96 + Top = 200 + Width = 145 + Height = 21 + DataField = 'ID_COBRADOR' + DataSource = dtsDB + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsUsuarios + TabOrder = 9 + Visible = False + end + end + inherited stbStatus: TStatusBar + Top = 404 + Width = 625 + Panels = < + item + Width = 120 + end + item + Width = 400 + end + item + Width = 0 + end> + ExplicitTop = 404 + ExplicitWidth = 625 + end + inherited navPrincipal: TDBNavigator + Left = 14 + Width = 600 + VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbCancel, nbRefresh] + ExplicitLeft = 14 + ExplicitWidth = 600 + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblAgenda + OnStateChange = dtsDBStateChange + Left = 472 + Top = 16 + end + object ImageList1: TImageList + Left = 405 + Top = 16 + Bitmap = { + 494C01010C001800180210001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object Timer1: TTimer + Interval = 5000 + OnTimer = Timer1Timer + Left = 24 + Top = 16 + end + object ppmu_agenda: TPopupMenu + Left = 482 + Top = 203 + object AgendarDevedor1: TMenuItem + Caption = 'Agendar Devedor' + OnClick = AgendarDevedor1Click + end + end + object MainMenu1: TMainMenu + Left = 200 + Top = 56 + object main_agenda: TMenuItem + Caption = 'Agenda' + Visible = False + object AgendarDevedor2: TMenuItem + Caption = 'Agendar Devedor' + Visible = False + OnClick = AgendarDevedor2Click + end + end + end + object dtsUsuarios: TDataSource + DataSet = dtmSystem.tblUsuariosConsulta + Left = 290 + Top = 251 + end +end diff --git a/ufrmAgenda.pas b/ufrmAgenda.pas new file mode 100644 index 0000000..4cfdfd3 --- /dev/null +++ b/ufrmAgenda.pas @@ -0,0 +1,817 @@ +unit ufrmAgenda; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Vcl.Buttons, System.DateUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstLista, Data.DB, Vcl.StdCtrls, + Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, + System.ImageList, Vcl.ImgList, System.UITypes, Vcl.Menus; + +type + THackDBNavigator = class(TDBNavigator); + +type + TfrmAgenda = class(TmstLista) + cb_filtro: TCheckBox; + ImageList1: TImageList; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Panel2: TPanel; + Label3: TLabel; + Panel3: TPanel; + Label4: TLabel; + Panel4: TPanel; + Timer1: TTimer; + cb_filtro2: TCheckBox; + Panel5: TPanel; + Label5: TLabel; + edt_filtrauser: TEdit; + lbl_filtrauser: TLabel; + spdbtn_filtrauser: TSpeedButton; + ppmu_agenda: TPopupMenu; + AgendarDevedor1: TMenuItem; + MainMenu1: TMainMenu; + main_agenda: TMenuItem; + AgendarDevedor2: TMenuItem; + DBLookupComboBox1: TDBLookupComboBox; + dtsUsuarios: TDataSource; + procedure FormCreate(Sender: TObject); + procedure cb_filtroClick(Sender: TObject); + procedure grdListaDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure dtsDBDataChange(Sender: TObject; Field: TField); + procedure grdListaDblClick(Sender: TObject); + procedure Timer1Timer(Sender: TObject); + procedure cb_filtro2Click(Sender: TObject); + procedure spdbtn_filtrauserClick(Sender: TObject); + procedure AgendarDevedor1Click(Sender: TObject); + procedure AgendarDevedor2Click(Sender: TObject); + procedure edt_filtrauserKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure grdListaColExit(Sender: TObject); + procedure grdListaKeyPress(Sender: TObject; var Key: Char); + procedure dtsDBStateChange(Sender: TObject); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + private + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + procedure FiltraUser; + procedure Agendar; + procedure ChecaPermissoes; + + { Private declarations } + public + hoje: string; + filtro: TStringList; + old_id: integer; + { Public declarations } + end; + +var + frmAgenda: TfrmAgenda; + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmCobranca, ucadDevedores, ufrmAgendamento; + +procedure TfrmAgenda.Agendar; +begin + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtsDB.DataSet.FieldByName('ID_DEVEDOR').AsInteger, [loCaseInsensitive]); + frmAgendamento := TfrmAgendamento.Create(self); + frmAgendamento.edt_nomefiltro.Text := dtmSystem.tblDevedoresTX_NOME.AsString; + frmAgendamento.ShowModal; +end; + +procedure TfrmAgenda.AgendarDevedor1Click(Sender: TObject); +begin + inherited; + Agendar; +end; + +procedure TfrmAgenda.AgendarDevedor2Click(Sender: TObject); +begin + inherited; + Agendar; +end; + +procedure TfrmAgenda.cb_filtro2Click(Sender: TObject); +begin + DateTimeToString(hoje, 'DD/MM/YYYY', date); + if dtmSystem.id_grupo = 1 then + begin + if cb_filtro.Checked then + begin + if cb_filtro2.Checked then + begin + filtro[0] := 'TP_SITUACAO = ''A'' '; + filtro[1] := ''; + filtro[2] := ''; + filtro[3] := ' and '; + filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje); + end + else + begin + filtro[0] := 'TP_SITUACAO = ''A'' '; + filtro[1] := ''; + filtro[2] := ''; + filtro[3] := ''; + filtro[4] := ''; + end; + end + else + begin + if cb_filtro2.Checked then + begin + filtro[0] := ''; + filtro[1] := ''; + filtro[2] := ''; + filtro[3] := ''; + filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje); + end + else + begin + filtro[0] := ''; + filtro[1] := ''; + filtro[2] := ''; + filtro[3] := ''; + filtro[4] := ''; + end; + end; + end + else + begin + if cb_filtro.Checked then + begin + if cb_filtro2.Checked then + begin + filtro[0] := 'TP_SITUACAO = ''A'' '; + filtro[1] := ' and '; + filtro[2] := 'ID_COBRADOR = ' + + QuotedStr(inttostr(dtmSystem.id_usuario)); + filtro[3] := ' and '; + filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje); + end + else + begin + filtro[0] := 'TP_SITUACAO = ''A'' '; + filtro[1] := ' and '; + filtro[2] := 'ID_COBRADOR = ' + + QuotedStr(inttostr(dtmSystem.id_usuario)); + filtro[3] := ''; + filtro[4] := ''; + end; + end + else + begin + if cb_filtro2.Checked then + begin + filtro[0] := ''; + filtro[1] := ''; + filtro[2] := 'ID_COBRADOR = ' + + QuotedStr(inttostr(dtmSystem.id_usuario)); + filtro[3] := ' and '; + filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje); + end + else + begin + filtro[0] := ''; + filtro[1] := ''; + filtro[2] := 'ID_COBRADOR = ' + + QuotedStr(inttostr(dtmSystem.id_usuario)); + filtro[3] := ''; + filtro[4] := ''; + end; + end; + end; + // dtsDb.DataSet.Filtered := false; + FiltraUser; + dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] + + filtro[4] + filtro[5]; + // dtsDb.DataSet.Filtered := true; + + dtsDB.DataSet.Refresh; + dtsDB.DataSet.First; +end; + +procedure TfrmAgenda.cb_filtroClick(Sender: TObject); +begin + DateTimeToString(hoje, 'DD/MM/YYYY', date); + if dtmSystem.id_grupo = 1 then + begin + if cb_filtro.Checked then + begin + if cb_filtro2.Checked then + begin + filtro[0] := 'TP_SITUACAO = ''A'' '; + filtro[1] := ''; + filtro[2] := ''; + filtro[3] := ' and '; + filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje); + end + else + begin + filtro[0] := 'TP_SITUACAO = ''A'' '; + filtro[1] := ''; + filtro[2] := ''; + filtro[3] := ''; + filtro[4] := ''; + end; + end + else + begin + if cb_filtro2.Checked then + begin + filtro[0] := ''; + filtro[1] := ''; + filtro[2] := ''; + filtro[3] := ''; + filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje); + end + else + begin + filtro[0] := ''; + filtro[1] := ''; + filtro[2] := ''; + filtro[3] := ''; + filtro[4] := ''; + end; + end; + end + else + begin + if cb_filtro.Checked then + begin + if cb_filtro2.Checked then + begin + filtro[0] := 'TP_SITUACAO = ''A'' '; + filtro[1] := ' and '; + filtro[2] := 'ID_COBRADOR = ' + + QuotedStr(inttostr(dtmSystem.id_usuario)); + filtro[3] := ' and '; + filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje); + end + else + begin + filtro[0] := 'TP_SITUACAO = ''A'' '; + filtro[1] := ' and '; + filtro[2] := 'ID_COBRADOR = ' + + QuotedStr(inttostr(dtmSystem.id_usuario)); + filtro[3] := ''; + filtro[4] := ''; + end; + end + else + begin + if cb_filtro2.Checked then + begin + filtro[0] := ''; + filtro[1] := ''; + filtro[2] := 'ID_COBRADOR = ' + + QuotedStr(inttostr(dtmSystem.id_usuario)); + filtro[3] := ' and '; + filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje); + end + else + begin + filtro[0] := ''; + filtro[1] := ''; + filtro[2] := 'ID_COBRADOR = ' + + QuotedStr(inttostr(dtmSystem.id_usuario)); + filtro[3] := ''; + filtro[4] := ''; + end; + end; + end; + // dtsDb.DataSet.Filtered := false; + FiltraUser; + dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] + + filtro[4] + filtro[5]; + // dtsDb.DataSet.Filtered := true; + + dtsDB.DataSet.Refresh; + dtsDB.DataSet.First; +end; + +procedure TfrmAgenda.ChecaPermissoes; +begin +with dtmSystem do + begin + if not VerificarPermissao('CBR.01.02.01') then + begin + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbEdit]; + lbl_filtrauser.Visible := false; + edt_filtrauser.Visible := false; + spdbtn_filtrauser.Visible := false; + grdLista.Columns[0].Visible := false; + grdLista.Options := grdLista.Options - [dgEditing]; + end + else + begin + lbl_filtrauser.Visible := true; + edt_filtrauser.Visible := true; + spdbtn_filtrauser.Visible := true; + grdLista.Columns[0].Visible := true; + end; + if not VerificarPermissao('CBR.01.02.02') then + begin + navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbDelete]; + end; + if not VerificarPermissao('CBR.01.02.03') then + begin + lbl_filtrauser.Visible := false; + edt_filtrauser.Visible := false; + spdbtn_filtrauser.Visible := false; + grdLista.Columns[0].Visible := false; + grdLista.Options := grdLista.Options - [dgEditing]; + filtro.Add('TP_SITUACAO = ''A'' '); + filtro.Add(' and '); + filtro.Add('ID_COBRADOR = ' + QuotedStr(inttostr(dtmSystem.id_usuario))); + filtro.Add(' and '); + filtro.Add(' DT_AGENDADA >= ' + QuotedStr(hoje)); + filtro.Add(''); + end + else + begin + filtro.Add('TP_SITUACAO = ''A'' '); + filtro.Add(''); + filtro.Add(''); + filtro.Add(' and '); + filtro.Add(' DT_AGENDADA >= ' + QuotedStr(hoje)); + filtro.Add(''); + lbl_filtrauser.Visible := true; + edt_filtrauser.Visible := true; + spdbtn_filtrauser.Visible := true; + grdLista.Columns[0].Visible := true; + end; + end; +end; + +procedure TfrmAgenda.dtsDBDataChange(Sender: TObject; Field: TField); +var +new_id: Integer; +begin +// inherited; + new_id := dtsDB.DataSet.FieldByName('ID_AGENDA').AsInteger; + if old_id <> new_id then + begin + old_id := new_id; + DBLookupComboBox1.Visible := false; + end; + grdLista.Repaint; +end; + +procedure TfrmAgenda.dtsDBStateChange(Sender: TObject); +begin +// inherited; + if dtsDB.DataSet.State in [dsEdit, dsInsert] then + begin + DBLookupComboBox1.Visible := false; + end; +end; + +procedure TfrmAgenda.edt_filtrauserKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin +// inherited; + if Key = VK_RETURN then + begin + FiltraUser; + end; +end; + +procedure TfrmAgenda.FiltraUser; +begin + if edt_filtrauser.Text <> '' then + begin + if (dtmSystem.tblUsuariosConsulta.Locate('TX_NOME', edt_filtrauser.Text, + [loCaseInsensitive, loPartialKey])) then + begin + if (cb_filtro.Checked) or (cb_filtro2.Checked) then + begin + filtro[5] := 'and ID_COBRADOR = ' + + dtmSystem.tblUsuariosConsultaID_USUARIO.AsString; + end + else + begin + filtro[5] := 'ID_COBRADOR = ' + + dtmSystem.tblUsuariosConsultaID_USUARIO.AsString; + end; + end + else if (dtmSystem.tblUsuariosConsulta.Locate('TX_USUARIO', + edt_filtrauser.Text, [loCaseInsensitive, loPartialKey])) then + begin + if (cb_filtro.Checked) or (cb_filtro2.Checked) then + begin + filtro[5] := 'and ID_COBRADOR = ' + + dtmSystem.tblUsuariosConsultaID_USUARIO.AsString; + end + else + begin + filtro[5] := 'ID_COBRADOR = ' + + dtmSystem.tblUsuariosConsultaID_USUARIO.AsString; + end; + end + else + begin + filtro[5] := ''; + end; + end + else + begin + filtro[5] := ''; + end; + dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] + + filtro[4] + filtro[5]; + dtsDB.DataSet.Refresh; +end; + +procedure TfrmAgenda.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + dtsDB.DataSet.Filtered := false; + Action := caFree; +end; + +procedure TfrmAgenda.FormCreate(Sender: TObject); +begin +// old_id := -1; +// if not dtmSystem.tblUsuariosConsulta.Active then +// begin +// dtmSystem.tblUsuariosConsulta.Open; +// end; +// if not dtmSystem.tblDevedores.Active then +// begin +// dtmSystem.tblDevedores.Open; +// end; +// filtro := TStringList.Create; +// dtsDB.DataSet.Open; +// dtsDB.DataSet.Filtered := false; +// DateTimeToString(hoje, 'DD/MM/YYYY', date); +// if dtmSystem.id_grupo = 1 then +// begin +// if not dtmSystem.tblUsuariosConsulta.Active then +// begin +// dtmSystem.tblUsuariosConsulta.Open; +// end; +// grdLista.Columns[0].Visible := true; +// grdLista.Columns[0].Width := 100; +// grdLista.Columns[2].ReadOnly := false; +// grdLista.Columns[3].ReadOnly := false; +// grdLista.Columns[4].Visible := true; +// spdbtn_filtrauser.Visible := true; +// edt_filtrauser.Visible := true; +// lbl_filtrauser.Visible := true; +// // grdLista.PopupMenu := ppmu_agenda; +// main_agenda.Visible := true; +// filtro.Add('TP_SITUACAO = ''A'' '); +// filtro.Add(''); +// filtro.Add(''); +// filtro.Add(' and '); +// filtro.Add(' DT_AGENDADA >= ' + QuotedStr(hoje)); +// filtro.Add(''); +// // dtsDB.DataSet.Filter := 'TP_SITUACAO = ''A'''; +// dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] + +// filtro[4] + filtro[5]; +// grdLista.Options := grdLista.Options - [dgrowSelect] + [dgEditing]; +// navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbEdit] + +// [nbPost] + [nbDelete]; +// end +// else +// begin +// // dtsDB.DataSet.Filter := 'TP_SITUACAO = ''A'' and ID_COBRADOR = ' + +// // QuotedStr(inttostr(dtmSystem.id_usuario)); +// filtro.Add('TP_SITUACAO = ''A'' '); +// filtro.Add(' and '); +// filtro.Add('ID_COBRADOR = ' + QuotedStr(inttostr(dtmSystem.id_usuario))); +// filtro.Add(' and '); +// filtro.Add(' DT_AGENDADA >= ' + QuotedStr(hoje)); +// filtro.Add(''); +// dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] + +// filtro[4] + filtro[5]; +// // dtsDB.DataSet.Filter := 'TP_SITUACAO = ''A'' and ID_COBRADOR = ' + +// // QuotedStr(inttostr(dtmSystem.id_usuario)) + ' and DT_AGENDADA >= ' + +// // QuotedStr(hoje); +// end; +// dtsDB.DataSet.Filtered := true; +// SetupHackedNavigator(navPrincipal, ImageList1, 's'); +// stbStatus.Panels[0].Text := 'Usurio: ' + dtmSystem.tx_usuario; +// stbStatus.Panels[1].Text := 'Banco de dados: ' + +// dtmSystem.ZConnection.Database; + +old_id := -1; + if not dtmSystem.tblUsuariosConsulta.Active then + begin + dtmSystem.tblUsuariosConsulta.Open; + end; + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end; + filtro := TStringList.Create; + dtsDB.DataSet.Open; + dtsDB.DataSet.Filtered := false; + DateTimeToString(hoje, 'DD/MM/YYYY', date); + if not dtmSystem.tblUsuariosConsulta.Active then + begin + dtmSystem.tblUsuariosConsulta.Open; + end; + + ChecaPermissoes; + // if dtmSystem.id_grupo = 1 then + // begin + // grdLista.Columns[0].Visible := true; + // grdLista.Columns[0].Width := 100; + // grdLista.Columns[2].ReadOnly := false; + // grdLista.Columns[3].ReadOnly := false; + // grdLista.Columns[4].Visible := true; + // spdbtn_filtrauser.Visible := true; + // edt_filtrauser.Visible := true; + // lbl_filtrauser.Visible := true; + // + // dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] + + // filtro[4] + filtro[5]; + // grdLista.Options := grdLista.Options - [dgrowSelect] + [dgEditing]; + // navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbEdit] + + // [nbPost] + [nbDelete]; + // end; + + dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] + + filtro[4] + filtro[5]; + dtsDB.DataSet.Filtered := true; + SetupHackedNavigator(navPrincipal, ImageList1, 's'); + stbStatus.Panels[0].Text := 'Usurio: ' + dtmSystem.tx_usuario; + stbStatus.Panels[1].Text := 'Banco de dados: ' + + dtmSystem.ZConnection.Database; + + +end; + +procedure TfrmAgenda.FormDestroy(Sender: TObject); +begin + inherited; + frmAgenda := nil; +end; + +procedure TfrmAgenda.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TfrmAgenda.grdListaColExit(Sender: TObject); +begin + inherited; + if grdLista.SelectedField.FieldName = 'NOME_COBRADOR' then + DBLookupComboBox1.Visible := false +end; + +procedure TfrmAgenda.grdListaDblClick(Sender: TObject); +var + helper: Integer; +begin + if not(dtsDB.State in [dsInsert, dsEdit]) then + begin + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end; + if dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtsDB.DataSet.FieldByName('ID_DEVEDOR').AsString, []) then + begin + helper := dtmSystem.tblDevedores.recno; + + cadDevedores := TcadDevedores.Create(self); + cadDevedores.pesquisa := helper; + timer1.Enabled := false; + cadDevedores.ShowModal; + timer1.Enabled := true; + end; + end; +end; + +procedure TfrmAgenda.grdListaDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); +var + tempo1, tempo2, tempo3, hora_marcada, agora, quanto_falta: TTime; + dia_marcado, hoje: TDate; + dia_atrasado, tempo_atrasado, eh_hoje: boolean; +begin + if not(dtmSystem.tblAgenda.isempty) then + begin + dia_atrasado := false; + tempo_atrasado := false; + eh_hoje := false; + tempo1 := StrToTime('00:45:00'); + tempo2 := StrToTime('00:15:00'); + tempo3 := StrToTime('00:00:00'); + hora_marcada := StrToTime(FormatDateTime('t', + dtmSystem.tblAgendaHR_AGENDADA.AsDateTime)); + dia_marcado := dtmSystem.tblAgendaDT_AGENDADA.AsDateTime; + agora := StrToTime(FormatDateTime('t', now)); + quanto_falta := hora_marcada - agora; + hoje := date; + if (hoje > dia_marcado) then + begin + dia_atrasado := true; + end; + if (agora >= hora_marcada) then + begin + tempo_atrasado := true; + end; + if dia_marcado = date then + begin + eh_hoje := true; + end; + if dia_atrasado then + begin + if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then + begin + grdLista.Canvas.Brush.Color := clSilver; + end + else + begin + grdLista.Canvas.Brush.Color := clRed; + end; + end + else if (tempo_atrasado) and (eh_hoje) then + begin + if CompareTime(quanto_falta, tempo1) > 0 then + begin + if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then + begin + grdLista.Canvas.Brush.Color := clSilver; + end + else + begin + grdLista.Canvas.Brush.Color := clRed; + end; + end + else if (CompareTime(quanto_falta, tempo1) < 0) and + (CompareTime(quanto_falta, tempo2) >= 0) then + begin + if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then + begin + grdLista.Canvas.Brush.Color := clSilver; + end + else + begin + grdLista.Canvas.Brush.Color := clYellow; + end; + end + else if (CompareTime(quanto_falta, tempo2) < 0) and + (CompareTime(quanto_falta, tempo3) >= 0) then + begin + if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then + begin + grdLista.Canvas.Brush.Color := clSilver; + end + else + begin + grdLista.Canvas.Brush.Color := clGreen; + end; + end; + end + else + begin + if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then + begin + grdLista.Canvas.Brush.Color := clSilver; + end + else + begin + grdLista.Canvas.Brush.Color := clSkyBlue; + end; + end; + grdLista.DefaultDrawColumnCell(Rect, DataCol, Column, State); + end; + if (gdFocused in State) and (dtsDB.DataSet.State in [dsEdit, dsInsert]) then + begin + if (Column.Field.FieldName = 'NOME_COBRADOR') then + begin + with DBLookupComboBox1 do + begin + Left := Rect.Left + grdLista.Left + 2; + Top := Rect.Top + grdLista.Top + 2; + Width := Rect.Right - Rect.Left; + Width := Rect.Right - Rect.Left; + Height := Rect.Bottom - Rect.Top; + Visible := true; + end; + end; + end; + +end; + +procedure TfrmAgenda.grdListaKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if (Key = Chr(9)) then + Exit; + if (grdLista.SelectedField.FieldName = 'NOME_COBRADOR') then + begin + DBLookupComboBox1.SetFocus; + SendMessage(DBLookupComboBox1.Handle, WM_Char, Word(Key), 0); + end; +end; + +procedure TfrmAgenda.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + DBLookupComboBox1.Visible := false; +// inherited; +end; + +procedure TfrmAgenda.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if LowerCase(S) = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +procedure TfrmAgenda.spdbtn_filtrauserClick(Sender: TObject); +begin +// inherited; + FiltraUser; +end; + +procedure TfrmAgenda.Timer1Timer(Sender: TObject); +begin +// if not(dtsDB.State in [dsInsert, dsEdit]) then +// begin +// FiltraUser; +// dtsDB.DataSet.Refresh; +// end; +end; + +procedure TfrmAgenda.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if Left < workArea.Left then + OffsetRect(Msg.DragRect^, workArea.Left - Left, 0); + + if Top < workArea.Top then + OffsetRect(Msg.DragRect^, 0, workArea.Top - Top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmAgendamento.dfm b/ufrmAgendamento.dfm new file mode 100644 index 0000000..81b572d --- /dev/null +++ b/ufrmAgendamento.dfm @@ -0,0 +1,213 @@ +inherited frmAgendamento: TfrmAgendamento + Caption = 'Agendamento' + ClientHeight = 253 + ClientWidth = 779 + ExplicitWidth = 785 + ExplicitHeight = 281 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 234 + Width = 779 + ExplicitTop = 234 + ExplicitWidth = 779 + end + object GroupBox1: TGroupBox + Left = 332 + Top = 8 + Width = 273 + Height = 218 + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 1 + object lbl_dtcobranca: TLabel + Left = 11 + Top = 10 + Width = 109 + Height = 13 + Caption = 'Data do agendamento:' + end + object lbl_horacobranca: TLabel + Left = 11 + Top = 56 + Width = 109 + Height = 13 + Caption = 'Hora do agendamento:' + end + object lbl_cobradoragendado: TLabel + Left = 147 + Top = 10 + Width = 113 + Height = 13 + Caption = 'Agendar para Cobrador:' + end + object Label1: TLabel + Left = 11 + Top = 102 + Width = 56 + Height = 13 + Caption = 'Provid'#234'ncia' + end + object dtp_diaagendamento: TDateTimePicker + Left = 11 + Top = 29 + Width = 115 + Height = 21 + Date = 43082.430191782410000000 + Time = 43082.430191782410000000 + TabOrder = 0 + end + object dtp_horaagendamento: TDateTimePicker + Left = 11 + Top = 75 + Width = 115 + Height = 21 + Date = 43082.430419745370000000 + Time = 43082.430419745370000000 + DateMode = dmUpDown + Kind = dtkTime + TabOrder = 1 + end + object dblucb_cobradoragendar: TDBLookupComboBox + Left = 147 + Top = 29 + Width = 115 + Height = 21 + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsCobrador + TabOrder = 2 + end + object Button1: TButton + Left = 11 + Top = 176 + Width = 75 + Height = 25 + Caption = 'Agendar' + TabOrder = 3 + OnClick = Button1Click + end + object Button2: TButton + Left = 187 + Top = 176 + Width = 75 + Height = 25 + Caption = 'Cancelar' + TabOrder = 4 + OnClick = Button2Click + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 11 + Top = 121 + Width = 249 + Height = 21 + KeyField = 'ID_PROVIDENCIA' + ListField = 'TX_NOME' + ListFieldIndex = 1 + ListSource = dtmSystem.dtsProvidencias + TabOrder = 5 + end + end + object GroupBox2: TGroupBox + Left = 8 + Top = 8 + Width = 318 + Height = 218 + TabOrder = 2 + object lbl_nomedevedor: TLabel + Left = 16 + Top = 10 + Width = 88 + Height = 13 + Caption = 'Nome do devedor:' + end + object edt_nomefiltro: TEdit + Left = 16 + Top = 29 + Width = 281 + Height = 21 + TabOrder = 0 + OnChange = edt_nomefiltroChange + end + object DBGrid1: TDBGrid + Left = 16 + Top = 56 + Width = 281 + Height = 145 + DataSource = dtsDevedores + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = DBGrid1TitleClick + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Visible = True + end> + end + end + object mem_hist: TMemo + Left = 611 + Top = 8 + Width = 164 + Height = 218 + ScrollBars = ssVertical + TabOrder = 3 + WantTabs = True + end + object queryCobradores: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_usuarios') + Params = <> + Left = 190 + Top = 159 + object queryCobradoresID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object queryCobradoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + end + object dtsCobrador: TDataSource + DataSet = queryCobradores + Left = 110 + Top = 159 + end + object dtsDevedores: TDataSource + DataSet = dtmSystem.tblDevedores + Left = 40 + Top = 160 + end + object dtsHist: TDataSource + DataSet = ROqryhist + Left = 40 + Top = 112 + end + object ROqryhist: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + + 'SELECT chg_historico.id_devedor, MAX(ID_HISTORICO) AS MAX_HIST F' + + 'ROM CHG_HISTORICO' + 'group by id_devedor') + Params = <> + Left = 112 + Top = 112 + object ROqryhistID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object ROqryhistMAX_HIST: TIntegerField + FieldName = 'MAX_HIST' + ReadOnly = True + end + end +end diff --git a/ufrmAgendamento.pas b/ufrmAgendamento.pas new file mode 100644 index 0000000..5a5e1c5 --- /dev/null +++ b/ufrmAgendamento.pas @@ -0,0 +1,216 @@ +unit ufrmAgendamento; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.DateUtils, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, Vcl.Grids, + Vcl.DBGrids, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.ComCtrls, ZAbstractRODataset, + ZAbstractDataset, ZDataset; + +type + TfrmAgendamento = class(TmstMaster) + queryCobradores: TZQuery; + queryCobradoresID_USUARIO: TIntegerField; + queryCobradoresTX_NOME: TWideStringField; + dtsCobrador: TDataSource; + GroupBox1: TGroupBox; + lbl_dtcobranca: TLabel; + dtp_diaagendamento: TDateTimePicker; + lbl_horacobranca: TLabel; + dtp_horaagendamento: TDateTimePicker; + lbl_cobradoragendado: TLabel; + dblucb_cobradoragendar: TDBLookupComboBox; + GroupBox2: TGroupBox; + edt_nomefiltro: TEdit; + dtsDevedores: TDataSource; + DBGrid1: TDBGrid; + lbl_nomedevedor: TLabel; + Button1: TButton; + Button2: TButton; + dtsHist: TDataSource; + ROqryhist: TZReadOnlyQuery; + ROqryhistID_DEVEDOR: TIntegerField; + ROqryhistMAX_HIST: TIntegerField; + DBLookupComboBox1: TDBLookupComboBox; + Label1: TLabel; + mem_hist: TMemo; + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure edt_nomefiltroChange(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure DBGrid1TitleClick(Column: TColumn); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmAgendamento: TfrmAgendamento; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmAgendamento.Button1Click(Sender: TObject); +var + str_helper: string; +begin + inherited; + if (dblucb_cobradoragendar.ListFieldIndex = -1) then + begin + MessageDlg + ('Por favor selecione um cobrador para qual ser agendada a cobrana.', + mtWarning, [mbOK], 0); + abort; + end + else + begin + if (DBLookupComboBox1.ListFieldIndex = -1) then + begin + MessageDlg + ('Por favor selecione uma providncia para qual ser dada a agenda.', + mtWarning, [mbOK], 0); + abort; + end; + with dtmSystem do + begin + if not(tblAgenda.Active) then + begin + tblAgenda.Open; + end; + tblAgenda.Refresh; + while tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + VarArrayOf([dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger, + 'A']), []) do + begin + tblAgenda.Edit; + tblAgendaTP_SITUACAO.AsString := 'B'; + tblAgenda.Post; + end; + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := dblucb_cobradoragendar.KeyValue; + tblAgendaID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := Dateof(dtp_diaagendamento.Date); + tblAgendaHR_AGENDADA.AsDateTime := Timeof(dtp_horaagendamento.Time); + tblAgendaDT_QUE_AGENDOU.AsDateTime := Now; + tblAgendaQUEM_AGENDOU.AsInteger := dtmSystem.id_usuario; + tblAgenda.Post; + + if not(tblCampanhaDevedores.Active) then + begin + tblCampanhaDevedores.Open; + end; + tblCampanhaDevedores.Filtered := false; + while tblCampanhaDevedores.Locate('ID_DEVEDOR', + dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger, []) do + begin + dtmSystem.tblCampanhaDevedores.Delete; + end; + str_helper := 'Agendado para o dia ' + datetostr(dateof(dtp_diaagendamento.Date)) + + ' no horrio ' + timetostr(timeof(dtp_horaagendamento.Time)) + + ' para o cobrador ' + dblucb_cobradoragendar.Text; + dtmSystem.tblHistorico.Append; + dtmSystem.tblHistoricoID_COBRADOR.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblHistoricoID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblHistoricoID_PROVIDENCIA.AsInteger := + DBLookupComboBox1.KeyValue; + mem_hist.Lines.Add(str_helper); + dtmSystem.tblHistoricoTL_MEMO.AsString := mem_hist.Lines.Text; + dtmSystem.tblHistorico.Post; + mem_hist.Clear; + end; + Close; + end; +end; + +procedure TfrmAgendamento.Button2Click(Sender: TObject); +begin + inherited; + queryCobradores.Close; + Close; +end; + +procedure TfrmAgendamento.DBGrid1TitleClick(Column: TColumn); +begin + inherited; + dtmSystem.OrganizaPorColuna(DBGrid1.DataSource.DataSet, Column); +end; + +procedure TfrmAgendamento.edt_nomefiltroChange(Sender: TObject); +var + tx_pesquisa: string; +begin + tx_pesquisa := UpperCase(stringreplace(edt_nomefiltro.Text, ' ', '%', + [rfReplaceAll])); + dtmSystem.tblDevedores.Filter := 'TX_NOME like ' + + QuotedStr('*' + tx_pesquisa + '*'); +end; + +procedure TfrmAgendamento.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + dtmSystem.tblDevedores.Filter := ''; + dtmSystem.tblDevedores.Filtered := false; +end; + +procedure TfrmAgendamento.FormCreate(Sender: TObject); +begin + inherited; + if not(dtmSystem.tblDevedores.Active) then + begin + dtmSystem.tblDevedores.Open; + dtmSystem.tblDevedores.Filter := ''; + dtmSystem.tblDevedores.Filtered := true; + end; + if not(dtmSystem.tblAgenda.Active) then + begin + dtmSystem.tblAgenda.Open; + end; + if not(dtmSystem.tblHistorico.Active) then + begin + dtmSystem.tblHistorico.Open; + end; + if not(dtmSystem.tblProvidencias.Active) then + begin + dtmSystem.tblProvidencias.Open; + end; + queryCobradores.SQL.Text := + 'select id_usuario, tx_nome from sys_usuarios order by tx_nome'; + queryCobradores.Open; + + dtp_diaagendamento.Date := Date; + dtp_horaagendamento.Time := Now; +end; + +procedure TfrmAgendamento.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmAtendimento.dfm b/ufrmAtendimento.dfm new file mode 100644 index 0000000..02a69ff --- /dev/null +++ b/ufrmAtendimento.dfm @@ -0,0 +1,4959 @@ +object frmAtendimento: TfrmAtendimento + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'Atendimento' + ClientHeight = 707 + ClientWidth = 1352 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + Position = poDesktopCenter + OnCanResize = FormCanResize + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnKeyDown = FormKeyDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object gb_pesquisar: TGroupBox + Left = 8 + Top = 8 + Width = 273 + Height = 691 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + object lbl_pesquisar: TLabel + Left = 10 + Top = 10 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object edt_campop: TEdit + Left = 10 + Top = 29 + Width = 255 + Height = 21 + MaxLength = 255 + TabOrder = 0 + OnKeyPress = edt_campopKeyPress + end + object btn_pesquisar: TButton + Left = 190 + Top = 56 + Width = 75 + Height = 25 + Caption = 'Pesquisar' + TabOrder = 1 + OnClick = btn_pesquisarClick + end + object dbgrd_pesquisar: TDBGrid + Left = 10 + Top = 87 + Width = 255 + Height = 409 + DataSource = dtsPesquisa + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDblClick = dbgrd_pesquisarDblClick + Columns = < + item + Expanded = False + Visible = True + end + item + Expanded = False + Visible = True + end + item + Expanded = False + Visible = True + end> + end + object cbx_tiponome: TComboBox + Left = 10 + Top = 58 + Width = 151 + Height = 21 + Style = csDropDownList + ItemIndex = 0 + TabOrder = 3 + Text = 'Devedor' + Items.Strings = ( + 'Devedor' + 'Pai do Devedor' + 'M'#227'e do Devedor' + 'CPF/CNPJ' + 'C'#243'digo do Devedor' + 'DDD+telefone') + end + object dbgrd_protocolos: TDBGrid + Left = 14 + Top = 502 + Width = 255 + Height = 174 + DataSource = dtsProtocolos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 4 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Visible = False + Columns = < + item + Expanded = False + FieldName = 'CD_PROTOCOLO' + Title.Caption = 'Protocolo' + Width = 143 + Visible = True + end + item + Expanded = False + FieldName = 'DT_PROTOCOLO' + Title.Caption = 'Data do Protocolo' + Width = 121 + Visible = True + end> + end + object btn_verprotocolo: TButton + Left = 190 + Top = 529 + Width = 75 + Height = 25 + Caption = 'Visualizar' + TabOrder = 5 + Visible = False + OnClick = btn_verprotocoloClick + end + end + object gb_cabecalho: TGroupBox + Left = 283 + Top = 8 + Width = 1063 + Height = 113 + TabOrder = 1 + object lbl_nomec: TLabel + Left = 16 + Top = 10 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_cpfcnpjc: TLabel + Left = 16 + Top = 56 + Width = 52 + Height = 13 + Caption = 'CPF/CNPJ:' + end + object lbl_obs: TLabel + Left = 384 + Top = 10 + Width = 27 + Height = 13 + Caption = 'Obs.:' + end + object dbedt_nomec: TDBEdit + Left = 16 + Top = 29 + Width = 321 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtsDevedor + TabOrder = 0 + end + object dbedt_cpfcnpjc: TDBEdit + Left = 16 + Top = 75 + Width = 145 + Height = 21 + DataSource = dtsDevedor + TabOrder = 1 + OnKeyPress = dbedt_cpfcnpjcKeyPress + end + object dbmb_obsc: TDBMemo + Left = 384 + Top = 29 + Width = 665 + Height = 78 + DataField = 'TL_MEMO' + DataSource = dtsDevedor + TabOrder = 2 + end + object pnl_contatos: TPanel + Left = 216 + Top = 73 + Width = 121 + Height = 23 + BevelInner = bvLowered + TabOrder = 3 + object Label17: TLabel + Left = 8 + Top = 5 + Width = 74 + Height = 13 + Caption = 'Acionamentos: ' + end + object dblbl_contatos: TDBText + Left = 81 + Top = 5 + Width = 38 + Height = 17 + DataField = 'QTDE_ACIONAMENTOS' + DataSource = dtmSystem.dtsContatos + end + end + end + object gb_dados: TGroupBox + Left = 283 + Top = 127 + Width = 1065 + Height = 572 + TabOrder = 2 + object pcDevedor: TPageControl + Left = 10 + Top = 10 + Width = 1053 + Height = 551 + ActivePage = tabHistorico + TabOrder = 0 + OnChange = pcDevedorChange + OnChanging = pcDevedorChanging + object tabCadastro: TTabSheet + Caption = 'Cadastro' + object Label7: TLabel + Left = 767 + Top = 3 + Width = 40 + Height = 13 + Caption = 'Usu'#225'rio:' + end + object Label8: TLabel + Left = 767 + Top = 49 + Width = 91 + Height = 13 + Caption = #218'ltima Atualiza'#231#227'o:' + end + object Label15: TLabel + Left = 6 + Top = 347 + Width = 28 + Height = 13 + Caption = 'Email:' + end + object pnl_cadastro: TPanel + Left = 3 + Top = 68 + Width = 737 + Height = 209 + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + object lbl_coddev: TLabel + Left = 503 + Top = 95 + Width = 95 + Height = 13 + Caption = 'C'#243'digo do Devedor:' + end + object lbl_cpfcnpj: TLabel + Left = 503 + Top = 3 + Width = 55 + Height = 13 + Caption = 'CPF/CNPJ:' + end + object lbl_datacad: TLabel + Left = 294 + Top = 141 + Width = 115 + Height = 13 + Caption = 'Data de Cadastramento:' + end + object lbl_datanasc: TLabel + Left = 3 + Top = 141 + Width = 100 + Height = 13 + Caption = 'Data de Nascimento:' + end + object lbl_nome: TLabel + Left = 3 + Top = 3 + Width = 99 + Height = 13 + Caption = 'Nome/Raz'#227'o Social:' + end + object lbl_nomemae: TLabel + Left = 3 + Top = 95 + Width = 70 + Height = 13 + Caption = 'Nome da M'#227'e:' + end + object lbl_nomepai: TLabel + Left = 3 + Top = 49 + Width = 64 + Height = 13 + Caption = 'Nome do Pai:' + end + object lbl_rg: TLabel + Left = 503 + Top = 49 + Width = 19 + Height = 13 + Caption = 'RG:' + end + object lbl_tppessoa: TLabel + Left = 503 + Top = 141 + Width = 77 + Height = 13 + Caption = 'Tipo de Pessoa:' + end + object dbedt_coddev: TDBEdit + Left = 503 + Top = 114 + Width = 121 + Height = 21 + DataField = 'CD_DEVEDOR' + DataSource = dtsDevedor + TabOrder = 5 + end + object dbedt_cpfcnpj: TDBEdit + Left = 503 + Top = 22 + Width = 121 + Height = 21 + DataSource = dtsDevedor + TabOrder = 1 + end + object dbedt_nome: TDBEdit + Left = 3 + Top = 22 + Width = 406 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtsDevedor + TabOrder = 0 + end + object dbedt_nomemae: TDBEdit + Left = 3 + Top = 114 + Width = 406 + Height = 21 + DataField = 'TX_MAE' + DataSource = dtsDevedor + TabOrder = 4 + end + object dbedt_nomepai: TDBEdit + Left = 3 + Top = 68 + Width = 406 + Height = 21 + DataField = 'TX_PAI' + DataSource = dtsDevedor + TabOrder = 2 + end + object dbedt_rg: TDBEdit + Left = 503 + Top = 68 + Width = 121 + Height = 21 + DataField = 'CD_RG' + DataSource = dtsDevedor + TabOrder = 3 + end + object Panel1: TPanel + Left = 500 + Top = 153 + Width = 196 + Height = 25 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 8 + object dbrgrp_tpdevedor: TDBRadioGroup + Left = -5 + Top = -51 + Width = 207 + Height = 127 + Columns = 2 + DataField = 'TP_CLIENTE' + DataSource = dtsDevedor + Items.Strings = ( + 'Pessoa F'#237'sica' + 'Pessoa Jur'#237'dica') + TabOrder = 0 + Values.Strings = ( + 'F' + 'J') + end + end + object dbdtp_dtnasc: TDBDateTimePicker + Left = 3 + Top = 160 + Width = 114 + Height = 21 + Date = 43171.000000000000000000 + Time = 43171.000000000000000000 + TabOrder = 6 + Caption = '' + DataField = 'DT_NASC' + DataSource = dtsDevedor + end + object dbdtp_dtcad: TDBDateTimePicker + Left = 294 + Top = 160 + Width = 114 + Height = 21 + Date = 43136.472312372680000000 + Time = 43136.472312372680000000 + TabOrder = 7 + Caption = '' + DataField = 'DT_CADASTRO' + DataSource = dtsDevedor + end + end + object navdevedor: TDBNavigator + Left = 3 + Top = 8 + Width = 308 + Height = 48 + DataSource = dtsDevedor + VisibleButtons = [nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 0 + end + object DBEdit2: TDBEdit + Left = 767 + Top = 22 + Width = 121 + Height = 21 + TabStop = False + DataField = 'TX_ULTIMO_USUARIO' + ReadOnly = True + TabOrder = 2 + end + object DBEdit3: TDBEdit + Left = 767 + Top = 68 + Width = 121 + Height = 21 + TabStop = False + DataField = 'DT_HORA_ULTIMA_ATT' + ReadOnly = True + TabOrder = 3 + end + object navEmail: TDBNavigator + Left = 3 + Top = 271 + Width = 378 + Height = 58 + DataSource = dtsEmail + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 4 + end + object dbedt_email: TDBEdit + Left = 6 + Top = 366 + Width = 259 + Height = 21 + TabStop = False + DataField = 'TX_EMAIL' + DataSource = dtsEmail + ReadOnly = True + TabOrder = 5 + end + object dbgrd_email: TDBGrid + Left = 6 + Top = 400 + Width = 406 + Height = 120 + DataSource = dtsEmail + TabOrder = 6 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_EMAIL' + Title.Caption = 'Email' + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = #218'ltimo Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + end + object tabEnderecos: TTabSheet + Caption = 'Endere'#231'os' + ImageIndex = 1 + object pnl_enderecos: TPanel + Left = 0 + Top = 0 + Width = 1042 + Height = 520 + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + object lbl_rua: TLabel + Left = 3 + Top = 3 + Width = 49 + Height = 13 + Caption = 'Endere'#231'o:' + end + object lbl_num: TLabel + Left = 392 + Top = 3 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_comp: TLabel + Left = 544 + Top = 3 + Width = 67 + Height = 13 + Caption = 'Complemento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_cep: TLabel + Left = 3 + Top = 49 + Width = 24 + Height = 13 + Caption = 'CEP:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_bairro: TLabel + Left = 185 + Top = 49 + Width = 30 + Height = 13 + Caption = 'Bairro:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_uf: TLabel + Left = 392 + Top = 49 + Width = 17 + Height = 13 + Caption = 'UF:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_cidade: TLabel + Left = 544 + Top = 49 + Width = 36 + Height = 13 + Caption = 'Cidade:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_tpend: TLabel + Left = 3 + Top = 95 + Width = 87 + Height = 13 + Caption = 'Tipo de endere'#231'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_situacao: TLabel + Left = 3 + Top = 131 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_ref: TLabel + Left = 185 + Top = 131 + Width = 55 + Height = 13 + Caption = 'Refer'#234'ncia:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbgrd_enderecos: TDBGrid + Left = 1 + Top = 197 + Width = 1032 + Height = 324 + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentFont = False + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_enderecosDrawColumnCell + OnTitleClick = dbgrd_enderecosTitleClick + Columns = < + item + Expanded = False + FieldName = 'TX_LOGRADOURO' + Title.Caption = 'Endere'#231'o' + Width = 185 + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'TX_COMPLEMENTO' + Title.Caption = 'Complemento' + Width = 125 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Width = 32 + Visible = True + end + item + Expanded = False + FieldName = 'TX_BAIRRO' + Title.Caption = 'Bairro' + Width = 93 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ESTADO' + Title.Caption = 'Estado' + Width = 101 + Visible = True + end + item + Expanded = False + FieldName = 'TX_CIDADE' + Title.Caption = 'Cidade' + Visible = True + end + item + Expanded = False + FieldName = 'TX_CEP' + Title.Caption = 'CEP' + Width = 82 + Visible = True + end + item + Expanded = False + FieldName = 'TP_REFERENCIA' + Title.Caption = 'Refer'#234'ncia' + Width = 69 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ENDERECO' + Title.Caption = 'Tipo de Endere'#231'o' + Width = 104 + Visible = True + end + item + Expanded = False + FieldName = 'ID_HIGIENIZADORA' + Title.Caption = 'Higienizadora' + Width = 76 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + object dbedt_rua: TDBEdit + Left = 3 + Top = 22 + Width = 358 + Height = 21 + DataField = 'TX_LOGRADOURO' + DataSource = dtsEnderecos + TabOrder = 1 + end + object dbedt_num: TDBEdit + Left = 392 + Top = 22 + Width = 63 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object dbedt_comp: TDBEdit + Left = 544 + Top = 22 + Width = 81 + Height = 21 + DataField = 'TX_COMPLEMENTO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 3 + end + object dbedt_cep: TDBEdit + Left = 3 + Top = 68 + Width = 65 + Height = 21 + DataField = 'TX_CEP' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object dbedt_bairro: TDBEdit + Left = 185 + Top = 68 + Width = 176 + Height = 21 + DataField = 'TX_BAIRRO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object dblucmbox_uf: TDBLookupComboBox + Left = 392 + Top = 68 + Width = 137 + Height = 21 + DataField = 'ID_ESTADO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_ESTADO' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsEstados + ParentFont = False + TabOrder = 6 + end + object dblucmbox_cidade: TDBLookupComboBox + Left = 544 + Top = 68 + Width = 164 + Height = 21 + DataField = 'ID_CIDADE' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_CIDADE' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsCidades + ParentFont = False + TabOrder = 7 + end + object Panel2: TPanel + Left = 1 + Top = 144 + Width = 108 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 8 + object dbrg_situacao: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_ATIVO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Ativo' + 'Inativo') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + object Panel6: TPanel + Left = 183 + Top = 144 + Width = 112 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 9 + object dbrg_ref: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_REFERENCIA' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Pr'#243'prio' + 'Avalista') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'P' + 'A') + end + end + object Panel7: TPanel + Left = 1 + Top = 109 + Width = 141 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 10 + object dbrg_tpend: TDBRadioGroup + Left = -6 + Top = -10 + Width = 164 + Height = 31 + Columns = 2 + DataField = 'TP_ENDERECO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Resid'#234'ncia' + 'Trabalho') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'R' + 'T') + end + end + end + object navenderecos: TDBNavigator + Left = 327 + Top = 131 + Width = 378 + Height = 40 + DataSource = dtsEnderecos + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 1 + end + end + object tabTelefones: TTabSheet + Caption = 'Telefones' + ImageIndex = 2 + object pnl_telefones: TPanel + Left = 2 + Top = 2 + Width = 1040 + Height = 518 + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + object lbl_tel: TLabel + Left = 98 + Top = 1 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_desctel: TLabel + Left = 297 + Top = 1 + Width = 51 + Height = 13 + Caption = 'Descri'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_obstel: TLabel + Left = 537 + Top = 1 + Width = 66 + Height = 13 + Caption = 'Observa'#231#245'es:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_tipo: TLabel + Left = 131 + Top = 49 + Width = 24 + Height = 13 + Caption = 'Tipo:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_sittel: TLabel + Left = 3 + Top = 49 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_ddd: TLabel + Left = 6 + Top = 1 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object Label21: TLabel + Left = 297 + Top = 49 + Width = 67 + Height = 13 + Caption = 'Recado SMS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbgrd_tel: TDBGrid + Left = 0 + Top = 173 + Width = 1033 + Height = 340 + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentFont = False + TabOrder = 3 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_telDrawColumnCell + OnTitleClick = dbgrd_telTitleClick + Columns = < + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Width = 39 + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Visible = True + end + item + Expanded = False + FieldName = 'TP_TIPOTEL' + Title.Caption = 'Tipo' + Width = 67 + Visible = True + end + item + Expanded = False + FieldName = 'TX_DESC' + Title.Caption = 'Descri'#231#227'o' + Width = 460 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + object dbedt_tel: TDBEdit + Left = 98 + Top = 20 + Width = 94 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dbedt_desctel: TDBEdit + Left = 297 + Top = 20 + Width = 115 + Height = 21 + DataField = 'TX_DESC' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 2 + end + object btn_clearmemo: TButton + Left = 958 + Top = 0 + Width = 75 + Height = 18 + Caption = 'Limpar' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 4 + end + object dbmem_tel: TDBMemo + Left = 537 + Top = 20 + Width = 496 + Height = 147 + DataField = 'TX_OBS' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 5 + end + object Panel3: TPanel + Left = 3 + Top = 68 + Width = 108 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 6 + object dbrg_sittel: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_ATIVO' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Ativo' + 'Inativo') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + object Panel4: TPanel + Left = 131 + Top = 68 + Width = 108 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 7 + object dbrg_tipotel: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_TIPOTEL' + DataSource = dtsTelefones + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Fixo' + 'M'#243'vel') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'F' + 'M') + OnClick = dbrg_tipotelClick + end + end + object dbedt_ddd: TDBEdit + Left = 3 + Top = 20 + Width = 57 + Height = 21 + DataField = 'NR_DDD' + DataSource = dtsTelefones + TabOrder = 0 + end + object Panel8: TPanel + Left = 297 + Top = 68 + Width = 108 + Height = 19 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 8 + object DBRadioGroup1: TDBRadioGroup + Left = -6 + Top = -10 + Width = 121 + Height = 31 + Columns = 2 + DataField = 'TP_ATIVO' + DataSource = dtsTelefones + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Sim' + 'N'#227'o') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + end + object navtelefones: TDBNavigator + Left = 3 + Top = 120 + Width = 360 + Height = 46 + DataSource = dtsTelefones + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 1 + BeforeAction = navtelefonesBeforeAction + end + end + object tabTitulos: TTabSheet + Caption = 'T'#237'tulos' + ImageIndex = 3 + object pnl_titulos: TPanel + Left = 2 + Top = 2 + Width = 1040 + Height = 518 + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Label2: TLabel + Left = 0 + Top = 92 + Width = 95 + Height = 13 + Caption = 'C'#243'digo do Devedor:' + end + object lbl_dataent: TLabel + Left = 0 + Top = 135 + Width = 80 + Height = 13 + Caption = 'Data de entrada:' + end + object lbl_datavenc: TLabel + Left = 0 + Top = 182 + Width = 99 + Height = 13 + Caption = 'Data de vencimento:' + end + object lbl_empresas: TLabel + Left = 1 + Top = 229 + Width = 34 + Height = 13 + Caption = 'Credor:' + end + object lbl_sittit: TLabel + Left = 398 + Top = 1 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_tit: TLabel + Left = 1 + Top = 1 + Width = 40 + Height = 13 + Caption = 'Produto:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_vltit: TLabel + Left = 1 + Top = 47 + Width = 69 + Height = 13 + Caption = 'Valor do t'#237'tulo:' + end + object lbl_tpdespesa: TLabel + Left = 709 + Top = 154 + Width = 24 + Height = 13 + Caption = 'Tipo:' + Visible = False + end + object lbl_depesa: TLabel + Left = 582 + Top = 154 + Width = 50 + Height = 13 + Caption = 'Despesas:' + Visible = False + end + object lbl_titobs: TLabel + Left = 752 + Top = 1 + Width = 22 + Height = 13 + Caption = 'Obs:' + end + object Label23: TLabel + Left = 131 + Top = 135 + Width = 34 + Height = 13 + Caption = 'Credor:' + end + object dbedit_produto: TDBEdit + Left = 1 + Top = 20 + Width = 254 + Height = 21 + DataField = 'TX_PRODUTO' + DataSource = dtmSystem.dtsTitulos + TabOrder = 0 + end + object dbedt_codemp: TDBEdit + Left = 0 + Top = 111 + Width = 118 + Height = 21 + DataField = 'CD_DEVEDOR' + DataSource = dtmSystem.dtsTitulos + TabOrder = 2 + end + object dbedt_vltit: TDBEdit + Left = 1 + Top = 66 + Width = 121 + Height = 21 + DataField = 'VL_TITULO' + DataSource = dtmSystem.dtsTitulos + TabOrder = 1 + end + object Panel5: TPanel + Left = 397 + Top = 17 + Width = 318 + Height = 84 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 7 + object dbrg_tit: TDBRadioGroup + Left = -6 + Top = -9 + Width = 332 + Height = 99 + Columns = 2 + DataField = 'TP_SITUACAO' + DataSource = dtmSystem.dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Aberto' + 'Acordo na Cobes' + 'Acordo no Credor' + 'Devolvido ao Lojista' + 'Baixa manual' + 'Quitado na Cobes' + 'Quitado no Benefici'#225'rio') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'A' + 'AC' + 'AB' + 'AJ' + 'B' + 'QC' + 'QB') + end + object pnl_cor1: TPanel + Left = 133 + Top = 6 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 1 + end + object pnl_color2: TPanel + Left = 133 + Top = 25 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 55295 + ParentBackground = False + TabOrder = 2 + end + object pnl_color3: TPanel + Left = 133 + Top = 44 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 3145645 + ParentBackground = False + TabOrder = 3 + end + object pnl_color4: TPanel + Left = 133 + Top = 64 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clMoneyGreen + ParentBackground = False + TabOrder = 4 + end + object pnl_color5: TPanel + Left = 296 + Top = 6 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clRed + ParentBackground = False + TabOrder = 5 + end + object pnl_color6: TPanel + Left = 296 + Top = 25 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 15453831 + ParentBackground = False + TabOrder = 6 + end + object pnl_color7: TPanel + Left = 296 + Top = 44 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 14772545 + ParentBackground = False + TabOrder = 7 + end + end + object rDBDateTimePicker1: TrDBDateTimePicker + Left = 0 + Top = 201 + Width = 118 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 6 + DataField = 'DT_VENCIMENTO' + DataSource = dtmSystem.dtsTitulos + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object rdbdt_entrada: TrDBDateTimePicker + Left = 0 + Top = 154 + Width = 121 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 4 + DataField = 'DT_ENTRADA' + DataSource = dtmSystem.dtsTitulos + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object pnl_cheque: TPanel + Left = 128 + Top = 44 + Width = 262 + Height = 93 + BevelOuter = bvNone + TabOrder = 9 + object lbl_banco: TLabel + Left = 139 + Top = 2 + Width = 34 + Height = 13 + Caption = 'Banco:' + end + object lbl_nrcheque: TLabel + Left = 3 + Top = 48 + Width = 55 + Height = 13 + Caption = 'N'#186' Cheque:' + end + object lbl_motivo: TLabel + Left = 139 + Top = 48 + Width = 35 + Height = 13 + Caption = 'Motivo:' + end + object dbedt_banco: TDBEdit + Left = 139 + Top = 21 + Width = 118 + Height = 21 + DataField = 'ID_BANCO' + DataSource = dtsTitulos + TabOrder = 0 + end + object dbedt_nrcheque: TDBEdit + Left = 3 + Top = 67 + Width = 121 + Height = 21 + DataField = 'TX_NRCHEQUE' + DataSource = dtsTitulos + TabOrder = 1 + end + object dbedt_motivo: TDBEdit + Left = 139 + Top = 67 + Width = 118 + Height = 21 + DataField = 'TP_MOTIVO' + DataSource = dtsTitulos + TabOrder = 2 + end + end + object dbcbx_tpcheque: TDBCheckBox + Left = 147 + Top = 51 + Width = 63 + Height = 17 + Caption = 'Cheque' + DataField = 'TP_CHEQUE' + DataSource = dtsTitulos + TabOrder = 8 + ValueChecked = 'S' + ValueUnchecked = 'N' + end + object pnl_despesa: TPanel + Left = 709 + Top = 171 + Width = 146 + Height = 26 + BevelOuter = bvNone + TabOrder = 10 + Visible = False + object dbrg_despesa: TDBRadioGroup + Left = -7 + Top = -14 + Width = 177 + Height = 43 + Columns = 2 + DataField = 'TP_DESPESA' + DataSource = dtsTitulos + Items.Strings = ( + 'Adicionar' + 'Deduzir') + TabOrder = 0 + Values.Strings = ( + 'A' + 'D') + end + end + object dbedt_despesa: TDBEdit + Left = 582 + Top = 173 + Width = 121 + Height = 21 + DataField = 'VL_DESPESA' + DataSource = dtsTitulos + TabOrder = 11 + Visible = False + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 131 + Top = 154 + Width = 371 + Height = 21 + DataField = 'ID_EMPRESA' + DataSource = dtsTitulos + KeyField = 'ID_EMPRESA' + ListField = 'TX_FANTASIA' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 12 + end + end + object pcTitDespesas: TPageControl + Left = 129 + Top = 192 + Width = 906 + Height = 328 + ActivePage = tabTit + TabOrder = 1 + object tabTit: TTabSheet + Caption = 'T'#237'tulos' + ExplicitWidth = 825 + ExplicitHeight = 314 + object Label16: TLabel + Left = 642 + Top = 37 + Width = 99 + Height = 13 + Caption = 'Rela'#231#227'o de Acordos:' + end + object navtitulos: TDBNavigator + Left = 3 + Top = 3 + Width = 366 + Height = 48 + DataSource = dtsTitulos + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 0 + BeforeAction = navtitulosBeforeAction + end + object dbgrd_tit: TDBGrid + Left = 3 + Top = 57 + Width = 632 + Height = 254 + DataSource = dtsTitulos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentShowHint = False + ReadOnly = True + ShowHint = True + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + OnCellClick = dbgrd_titCellClick + OnDrawColumnCell = dbgrd_titDrawColumnCell + OnTitleClick = dbgrd_titTitleClick + Columns = < + item + Expanded = False + FieldName = 'ID_TITULO' + Title.Caption = 'ID' + Width = 31 + Visible = True + end + item + Expanded = False + FieldName = 'TX_PRODUTO' + Title.Caption = 'Produto' + Width = 120 + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Data de Vencimento' + Width = 102 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ENTRADA' + Title.Caption = 'Data de Entrada' + Width = 90 + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Valor' + Width = 69 + Visible = True + end + item + Expanded = False + FieldName = 'TP_SITUACAO' + Title.Caption = 'Situa'#231#227'o' + Width = 50 + Visible = True + end + item + Expanded = False + FieldName = 'DT_PAGAMENTO' + Title.Caption = 'Data de Pagamento' + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'TX_IMPLANTADO' + Title.Caption = 'Implanta'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'DT_IMPLANTACAO' + Visible = True + end> + end + object DBGrid1: TDBGrid + Left = 641 + Top = 56 + Width = 254 + Height = 255 + DataSource = dtmSystem.dtsQAcordos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + PopupMenu = ppmnuQuebraAcordo + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Valor' + Width = 50 + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Visible = True + end> + end + end + object tabDespesas: TTabSheet + Caption = 'Despesas' + ImageIndex = 1 + ExplicitWidth = 825 + ExplicitHeight = 314 + object navDespesas: TDBNavigator + Left = 3 + Top = 3 + Width = 305 + Height = 48 + DataSource = dtsDespesas + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] + ParentShowHint = False + ShowHint = True + TabOrder = 0 + end + object dbgrd_despesas: TDBGrid + Left = 3 + Top = 57 + Width = 810 + Height = 163 + TabStop = False + DataSource = dtsDespesas + Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ParentShowHint = False + ReadOnly = True + ShowHint = True + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + OnTitleClick = dbgrd_despesasTitleClick + Columns = < + item + Expanded = False + FieldName = 'TX_DESCRICAO' + Title.Caption = 'Descri'#231#227'o' + Width = 300 + Visible = True + end + item + Expanded = False + FieldName = 'VL_DESPESA' + Title.Caption = 'Valor' + Width = 106 + Visible = True + end + item + Expanded = False + FieldName = 'TP_DESPESA' + PickList.Strings = ( + 'Adicionar' + 'Deduzir') + Title.Caption = 'Tipo' + Visible = True + end> + end + end + object tabObs: TTabSheet + Caption = 'Observa'#231#245'es' + ImageIndex = 2 + ExplicitWidth = 825 + ExplicitHeight = 314 + end + end + object dbmem_titobs: TDBMemo + Left = 752 + Top = 19 + Width = 273 + Height = 158 + DataField = 'TX_OBS' + DataSource = dtsTitulos + TabOrder = 2 + end + end + object tabHistorico: TTabSheet + Caption = 'Hist'#243'rico' + ImageIndex = 4 + object pnl_hist: TPanel + Left = 2 + Top = 2 + Width = 1042 + Height = 518 + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Label11: TLabel + Left = 697 + Top = 34 + Width = 109 + Height = 13 + Caption = 'Data do agendamento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 697 + Top = 82 + Width = 109 + Height = 13 + Caption = 'Hora do agendamento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 845 + Top = 34 + Width = 113 + Height = 13 + Caption = 'Agendar para Cobrador:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 697 + Top = 162 + Width = 59 + Height = 13 + Caption = 'Provid'#234'ncia:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 845 + Top = 82 + Width = 131 + Height = 13 + Caption = 'Protocolo do hist'#243'rico atual:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbgrd_historico: TDBGrid + Left = 0 + Top = 208 + Width = 1033 + Height = 305 + DataSource = dtmSystem.dtsHistorico + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 5 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = dbgrd_historicoTitleClick + Columns = < + item + Expanded = False + FieldName = 'DT_CONTATO' + Title.Caption = 'Data de Contato' + Visible = True + end + item + Expanded = False + FieldName = 'TX_PROVIDENCIA' + Title.Caption = 'Provid'#234'ncia' + Width = 300 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'Protocolo' + Visible = True + end + item + Expanded = False + FieldName = 'TX_MEMO' + Title.Caption = 'Observa'#231#245'es' + Visible = True + end> + end + object dbmemo_box: TDBMemo + Left = 0 + Top = 0 + Width = 681 + Height = 153 + DataField = 'TL_MEMO' + DataSource = dtmSystem.dtsHistorico + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 6 + end + object cb_agendahist: TCheckBox + Left = 697 + Top = 0 + Width = 78 + Height = 21 + Caption = 'Agendar' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = cb_agendahistClick + end + object dtp_agendadatahist: TDateTimePicker + Left = 697 + Top = 53 + Width = 115 + Height = 21 + Date = 43082.430191782410000000 + Time = 43082.430191782410000000 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dtp_agendahorahist: TDateTimePicker + Left = 697 + Top = 101 + Width = 115 + Height = 21 + Date = 43082.430419745370000000 + Time = 43082.430419745370000000 + DateMode = dmUpDown + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 3 + end + object dblucb_agendacobhist: TDBLookupComboBox + Left = 845 + Top = 53 + Width = 115 + Height = 21 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsCobrador + ParentFont = False + TabOrder = 2 + end + object dblucb_providencia: TDBLookupComboBox + Left = 697 + Top = 181 + Width = 336 + Height = 21 + DataField = 'ID_PROVIDENCIA' + DataSource = dtsHistorico + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_PROVIDENCIA' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsProvidencias + ParentFont = False + TabOrder = 4 + end + object dbedt_protocolo: TDBEdit + Left = 845 + Top = 101 + Width = 157 + Height = 21 + Hint = 'Abra um novo hist'#243'rico para gerar um protocolo.' + DataField = 'CD_PROTOCOLO' + DataSource = dtsHistorico + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ReadOnly = True + ShowHint = True + TabOrder = 7 + end + end + object navhistorico: TDBNavigator + Left = 3 + Top = 161 + Width = 300 + Height = 40 + DataSource = dtmSystem.dtsHistorico + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + TabOrder = 1 + BeforeAction = navhistoricoBeforeAction + end + end + object tabCalc: TTabSheet + Caption = 'C'#225'lculo de Valores' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ImageIndex = 5 + ParentFont = False + object lbl_somatitulos: TLabel + Left = 95 + Top = 175 + Width = 48 + Height = 13 + Caption = 'Principais:' + end + object lbl_parcelamento: TLabel + Left = 699 + Top = 224 + Width = 68 + Height = 13 + Caption = 'Parcelamento:' + end + object lbl_somaentrada: TLabel + Left = 613 + Top = 175 + Width = 40 + Height = 13 + Caption = 'Entrada:' + end + object lbl_vlaquitar: TLabel + Left = 3 + Top = 175 + Width = 71 + Height = 13 + Caption = 'Total Corrigido:' + end + object lbl_extras: TLabel + Left = 435 + Top = 278 + Width = 70 + Height = 13 + Caption = 'Valores Extras:' + end + object lbl_somajuros: TLabel + Left = 327 + Top = 175 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_somamulta: TLabel + Left = 187 + Top = 175 + Width = 29 + Height = 13 + Caption = 'Multa:' + end + object lbl_somaindicador: TLabel + Left = 400 + Top = 175 + Width = 48 + Height = 13 + Caption = 'Encargos:' + end + object lbl_desctot: TLabel + Left = 882 + Top = 52 + Width = 104 + Height = 26 + Caption = 'Desconto em rela'#231#227'o ao valor corrigido (%):' + Visible = False + WordWrap = True + end + object lbl_datapgmnto: TLabel + Left = 960 + Top = 175 + Width = 57 + Height = 13 + Caption = 'Pagamento:' + end + object lbl_beneficiarioscalculo: TLabel + Left = 3 + Top = 2 + Width = 34 + Height = 13 + Caption = 'Credor:' + end + object Label1: TLabel + Left = 548 + Top = 64 + Width = 37 + Height = 13 + Caption = #205'ndices:' + Visible = False + end + object Label6: TLabel + Left = 855 + Top = 175 + Width = 103 + Height = 13 + Caption = 'Forma de pagamento:' + end + object lbl_maxpar: TLabel + Left = 699 + Top = 238 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 496 + Top = 175 + Width = 66 + Height = 13 + Caption = '% da Entrada:' + end + object lbl_minentrada: TLabel + Left = 570 + Top = 178 + Width = 20 + Height = 13 + Caption = 'Min:' + end + object lbl_maxentrada: TLabel + Left = 570 + Top = 197 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + end + object lbl_indices: TLabel + Left = 730 + Top = 51 + Width = 69 + Height = 13 + Caption = #205'ndices Extras:' + Visible = False + end + object lbl_protocolo1: TLabel + Left = 613 + Top = 278 + Width = 48 + Height = 13 + Caption = 'Protocolo:' + end + object lv_titulos: TListView + Left = 208 + Top = 2 + Width = 834 + Height = 156 + Checkboxes = True + Columns = < + item + Caption = 'Incluir' + MaxWidth = 40 + MinWidth = 40 + Width = 40 + end + item + Caption = 'Empresa' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end + item + Caption = 'Produto' + MaxWidth = 150 + MinWidth = 150 + Width = 150 + end + item + Caption = 'Vencimento' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end + item + Caption = 'Valor' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end + item + Caption = 'C'#243'digo do Devedor' + MaxWidth = 150 + MinWidth = 150 + Width = 150 + end + item + Caption = 'Parcelamento' + MaxWidth = 77 + MinWidth = 77 + Width = 77 + end + item + Caption = 'Entrada' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end> + ReadOnly = True + RowSelect = True + PopupMenu = popmnu_incluir + TabOrder = 0 + ViewStyle = vsReport + OnChange = lv_titulosChange + OnItemChecked = lv_titulosItemChecked + end + object dbgrd_listtitulos: TDBGrid + Left = 3 + Top = 324 + Width = 1039 + Height = 196 + DataSource = dtsListaTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ParentFont = False + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + OnTitleClick = dbgrd_listtitulosTitleClick + Columns = < + item + Expanded = False + FieldName = 'NOME_EMPRESA' + Title.Caption = 'Empresa' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'TX_PRODUTO' + Title.Caption = 'Produto' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ENTRADA' + Title.Caption = 'Entrada' + Width = 85 + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Principal' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_ENTRADA' + Title.Caption = 'Entrada' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_JUROS' + Title.Caption = 'Juros' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_MULTA' + Title.Caption = 'Multa' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_INDICADOR' + Title.Caption = 'Encargo' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_DESPESA' + Title.Caption = 'Despesa' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_CORRIGIDO' + Title.Caption = 'Corrigido' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ATRASO' + Title.Caption = 'Atraso' + Width = 36 + Visible = True + end + item + Expanded = False + FieldName = 'PR_ENTRADA' + Title.Caption = 'Entrada (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_JUROS' + Title.Caption = 'Juros (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_MULTA' + Title.Caption = 'Multa (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_INDICADOR' + Title.Caption = 'Honor'#225'rio (%)' + Width = 67 + Visible = True + end> + end + object edt_somatitulos: TEdit + Left = 95 + Top = 194 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 2 + Text = 'R$ 0.00' + end + object edt_nrparcelas: TEdit + Left = 699 + Top = 254 + Width = 26 + Height = 21 + Alignment = taRightJustify + TabOrder = 3 + Text = '0' + OnChange = edt_nrparcelasChange + OnExit = edt_nrparcelasExit + end + object up_nrparcelas: TUpDown + Left = 725 + Top = 254 + Width = 16 + Height = 21 + Associate = edt_nrparcelas + TabOrder = 4 + OnClick = up_nrparcelasClick + end + object edt_somaentrada: TEdit + Left = 613 + Top = 194 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 5 + Text = 'R$ 0.00' + end + object edt_vlaquitar: TEdit + Left = 3 + Top = 194 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 6 + Text = 'R$ 0.00' + end + object edt_extras: TEdit + Left = 435 + Top = 297 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 7 + Text = 'R$ 0.00' + end + object edt_somajuros: TEdit + Left = 327 + Top = 194 + Width = 70 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 8 + Text = 'R$ 0.00' + end + object edt_somamulta: TEdit + Left = 187 + Top = 194 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 9 + Text = 'R$ 0.00' + end + object edt_somaindicador: TEdit + Left = 400 + Top = 194 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 10 + Text = 'R$ 0.00' + end + object cb_nmulta: TCheckBox + Left = 222 + Top = 174 + Width = 104 + Height = 17 + Caption = 'N'#227'o cobrar Multa' + TabOrder = 11 + OnClick = cb_nmultaClick + end + object edt_desctot: TEdit + Left = 882 + Top = 83 + Width = 103 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 12 + Text = '0' + Visible = False + end + object dtp_atrasorecalc: TDateTimePicker + Left = 960 + Top = 194 + Width = 82 + Height = 21 + Date = 43081.425353148150000000 + Time = 43081.425353148150000000 + TabOrder = 13 + OnChange = dtp_atrasorecalcChange + end + object lv_parcelas: TListView + Left = 774 + Top = 221 + Width = 196 + Height = 101 + Columns = < + item + Caption = 'Parcela' + MaxWidth = 75 + MinWidth = 75 + Width = 75 + end + item + Alignment = taRightJustify + Caption = 'Valor' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end> + FlatScrollBars = True + Items.ItemData = { + 055600000002000000FFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFF000000 + 000745006E0074007200610064006100FFFFFFFFFFFFFFFFFFFFFFFF00000000 + FFFFFFFF000000000A500061007200630065006C00610020006E00BA00} + ReadOnly = True + PopupMenu = ppmnu_copiar + TabOrder = 14 + ViewStyle = vsReport + end + object btn_fechamento: TButton + Left = 976 + Top = 261 + Width = 66 + Height = 25 + Caption = 'Fechamento' + TabOrder = 15 + OnClick = btn_fechamentoClick + end + object cbx_excentrada: TCheckBox + Left = 435 + Top = 226 + Width = 105 + Height = 17 + Caption = 'Exce'#231#227'o Entrada:' + TabOrder = 16 + OnClick = cbx_excentradaClick + end + object edt_excentrada: TEdit + Left = 435 + Top = 246 + Width = 99 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 17 + Text = '0,00' + OnChange = edt_excentradaChange + OnKeyPress = edt_excentradaKeyPress + end + object clb_beneficiarioscalculo: TCheckListBox + Left = 3 + Top = 21 + Width = 200 + Height = 137 + OnClickCheck = clb_beneficiarioscalculoClickCheck + ItemHeight = 13 + TabOrder = 18 + end + object edt_indices: TEdit + Left = 548 + Top = 83 + Width = 70 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 20 + Text = 'R$ 0.00' + Visible = False + end + object cb_formapag: TComboBox + Left = 855 + Top = 194 + Width = 86 + Height = 21 + AutoComplete = False + Style = csDropDownList + ItemIndex = 0 + TabOrder = 21 + Text = 'Dinheiro' + OnChange = cb_formapagChange + Items.Strings = ( + 'Dinheiro' + 'D'#233'bito' + 'Cr'#233'dito' + 'Cheque') + end + object btn_amostra: TButton + Left = 976 + Top = 292 + Width = 66 + Height = 30 + Caption = 'Rela'#231#227'o de D'#237'vida' + TabOrder = 23 + WordWrap = True + OnClick = btn_amostraClick + end + object cbx_descindextras: TCheckBox + Left = 625 + Top = 38 + Width = 77 + Height = 37 + Caption = 'Desconto nos '#205'ndices Extras:' + TabOrder = 24 + Visible = False + WordWrap = True + OnClick = cbx_descindextrasClick + end + object cb_descindicesextras: TComboBox + Left = 625 + Top = 83 + Width = 74 + Height = 21 + Style = csDropDownList + TabOrder = 25 + Visible = False + OnChange = cb_descindicesextrasChange + end + object edt_descindextras: TEdit + Left = 625 + Top = 110 + Width = 74 + Height = 21 + NumbersOnly = True + TabOrder = 26 + Visible = False + OnExit = edt_descindextrasExit + OnKeyPress = edt_descindextrasKeyPress + end + object edt_prentrada: TEdit + Left = 495 + Top = 194 + Width = 53 + Height = 21 + Alignment = taRightJustify + NumbersOnly = True + TabOrder = 27 + Text = '0' + OnChange = edt_prentradaChange + end + object ud_entrada: TUpDown + Left = 548 + Top = 194 + Width = 16 + Height = 21 + Associate = edt_prentrada + TabOrder = 28 + end + object cbx_txextra: TCheckBox + Left = 547 + Top = 226 + Width = 75 + Height = 17 + Caption = 'Taxa Extra:' + TabOrder = 29 + OnClick = cbx_txextraClick + end + object edt_txextra: TEdit + Left = 546 + Top = 246 + Width = 70 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 30 + Text = '0,00' + OnChange = edt_txextraChange + OnKeyPress = edt_txextraKeyPress + end + object pcDescontos: TPageControl + Left = 3 + Top = 220 + Width = 430 + Height = 102 + ActivePage = tabQuitar + TabOrder = 31 + object tabQuitar: TTabSheet + Caption = 'Descontos aos Quitar' + object gb_descontosquit: TGroupBox + Left = -7 + Top = -9 + Width = 434 + Height = 87 + Enabled = False + TabOrder = 0 + object lbl_indquitar: TLabel + Left = 10 + Top = 26 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + end + object lbl_principalquitar: TLabel + Left = 92 + Top = 26 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object lbl_multasquitar: TLabel + Left = 174 + Top = 26 + Width = 34 + Height = 13 + Caption = 'Multas:' + end + object lbl_jurosquitar: TLabel + Left = 256 + Top = 26 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_maxindquit: TLabel + Left = 10 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxprinquit: TLabel + Left = 92 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxmultaquit: TLabel + Left = 174 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxjurosquit: TLabel + Left = 256 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxquitcor: TLabel + Left = 338 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object edt_indquitar: TEdit + Left = 10 + Top = 44 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 0 + Text = '0' + OnChange = edt_indquitarChange + OnKeyPress = edt_indquitarKeyPress + end + object edt_principalquitar: TEdit + Left = 92 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 1 + Text = '0' + OnChange = edt_principalquitarChange + OnKeyPress = edt_principalquitarKeyPress + end + object edt_multasquitar: TEdit + Left = 174 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 2 + Text = '0' + OnChange = edt_multasquitarChange + OnKeyPress = edt_multasquitarKeyPress + end + object up_encquitar: TUpDown + Left = 68 + Top = 44 + Width = 16 + Height = 21 + Associate = edt_indquitar + TabOrder = 3 + end + object up_principalquitar: TUpDown + Left = 150 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_principalquitar + TabOrder = 4 + end + object up_multasquitar: TUpDown + Left = 232 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_multasquitar + TabOrder = 5 + end + object edt_jurosquitar: TEdit + Left = 256 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 6 + Text = '0' + OnChange = edt_jurosquitarChange + OnKeyPress = edt_jurosquitarKeyPress + end + object up_jurosquitar: TUpDown + Left = 314 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_jurosquitar + TabOrder = 7 + end + object cb_desc_quit_cor: TCheckBox + Left = 338 + Top = 25 + Width = 64 + Height = 17 + Caption = 'Corrigido:' + TabOrder = 8 + OnClick = cb_desc_quit_corClick + end + object edt_corquitar: TEdit + Left = 338 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 9 + Text = '0' + OnChange = edt_corquitarChange + OnKeyPress = edt_corquitarKeyPress + end + object ud_corquitar: TUpDown + Left = 396 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_corquitar + TabOrder = 10 + end + end + object cb_descquit: TCheckBox + Left = 3 + Top = -2 + Width = 135 + Height = 17 + Caption = 'Descontos ao Quitar (%):' + TabOrder = 1 + OnClick = cb_descquitClick + end + end + object tabParcelar: TTabSheet + Caption = 'Descontos ao Parcelar' + ImageIndex = 1 + object gb_descontospar: TGroupBox + Left = -4 + Top = -9 + Width = 431 + Height = 87 + Enabled = False + TabOrder = 0 + object lbl_indparcelas: TLabel + Left = 7 + Top = 26 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + end + object lbl_jurosparcelas: TLabel + Left = 253 + Top = 26 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_multasparcelas: TLabel + Left = 171 + Top = 26 + Width = 34 + Height = 13 + Caption = 'Multas:' + end + object lbl_principalparcelas: TLabel + Left = 89 + Top = 26 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object lbl_maxindpar: TLabel + Left = 7 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxprinpar: TLabel + Left = 89 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxmultapar: TLabel + Left = 171 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxjurospar: TLabel + Left = 253 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxparcor: TLabel + Left = 335 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object edt_indparcelas: TEdit + Left = 7 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 0 + Text = '0' + OnChange = edt_indparcelasChange + OnKeyPress = edt_indparcelasKeyPress + end + object edt_jurosparcelas: TEdit + Left = 253 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 1 + Text = '0' + OnChange = edt_jurosparcelasChange + OnKeyPress = edt_jurosparcelasKeyPress + end + object edt_multasparcelas: TEdit + Left = 171 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 2 + Text = '0' + OnChange = edt_multasparcelasChange + OnKeyPress = edt_multasparcelasKeyPress + end + object edt_principalparcelas: TEdit + Left = 89 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 3 + Text = '0' + OnChange = edt_principalparcelasChange + OnKeyPress = edt_principalparcelasKeyPress + end + object up_encparcelas: TUpDown + Left = 65 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_indparcelas + TabOrder = 4 + end + object up_jurosparcelas: TUpDown + Left = 311 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_jurosparcelas + TabOrder = 5 + end + object up_multasparcelas: TUpDown + Left = 229 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_multasparcelas + TabOrder = 6 + end + object up_principalparcelas: TUpDown + Left = 147 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_principalparcelas + TabOrder = 7 + end + object cb_desc_par_cor: TCheckBox + Left = 335 + Top = 25 + Width = 63 + Height = 17 + Caption = 'Corrigido:' + TabOrder = 8 + OnClick = cb_desc_par_corClick + end + object edt_corpar: TEdit + Left = 335 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 9 + Text = '0' + OnChange = edt_corparChange + OnKeyPress = edt_corparKeyPress + end + object ud_corpar: TUpDown + Left = 393 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_corpar + TabOrder = 10 + end + end + object cb_descpar: TCheckBox + Left = 3 + Top = -2 + Width = 146 + Height = 17 + Caption = 'Descontos ao Parcelar (%):' + TabOrder = 1 + OnClick = cb_descparClick + end + end + end + object edt_excjurosparcela: TEdit + Left = 730 + Top = 194 + Width = 87 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 32 + Text = '0,00' + OnChange = edt_excjurosparcelaChange + OnKeyPress = edt_excjurosparcelaKeyPress + end + object cbx_exjurosparcelar: TCheckBox + Left = 730 + Top = 165 + Width = 101 + Height = 27 + Caption = 'Exce'#231#227'o de Juros ao parcelar: (%)' + TabOrder = 33 + WordWrap = True + OnClick = cbx_exjurosparcelarClick + end + object clb_indices: TCheckListBox + Left = 730 + Top = 70 + Width = 66 + Height = 76 + OnClickCheck = clb_indicesClickCheck + Columns = 2 + ItemHeight = 13 + TabOrder = 19 + Visible = False + end + object cbx_despesas: TCheckBox + Left = 738 + Top = 92 + Width = 48 + Height = 50 + Caption = 'Cobrar Despesas' + Checked = True + State = cbChecked + TabOrder = 22 + Visible = False + WordWrap = True + OnClick = cbx_despesasClick + end + object btn_protocolo: TButton + Left = 976 + Top = 229 + Width = 66 + Height = 30 + Caption = 'Gerar Protocolo' + TabOrder = 34 + WordWrap = True + OnClick = btn_protocoloClick + end + object edt_protocolo1: TEdit + Left = 613 + Top = 297 + Width = 128 + Height = 21 + ReadOnly = True + TabOrder = 35 + end + end + object tabFechamento: TTabSheet + Caption = 'Fechamento' + ImageIndex = 6 + object lbl_prevtitulos: TLabel + Left = 3 + Top = 3 + Width = 122 + Height = 13 + Caption = 'Amostra do atendimento:' + end + object lbl_vltotal: TLabel + Left = 5 + Top = 386 + Width = 53 + Height = 13 + Caption = 'Valor total:' + end + object lbl_apagamento: TLabel + Left = 5 + Top = 23 + Width = 137 + Height = 13 + Caption = 'Rela'#231#227'o de t'#237'tulos em d'#237'vida:' + end + object lbl_dpagamento: TLabel + Left = 398 + Top = 23 + Width = 168 + Height = 13 + Caption = 'T'#237'tulos gerados pelo Parcelamento:' + end + object lbl_formarecebimento: TLabel + Left = 97 + Top = 386 + Width = 114 + Height = 13 + Caption = 'Forma de Recebimento:' + end + object Label3: TLabel + Left = 5 + Top = 432 + Width = 73 + Height = 13 + Caption = 'Nr'#186' do cheque:' + end + object Label4: TLabel + Left = 133 + Top = 432 + Width = 33 + Height = 13 + Caption = 'Banco:' + end + object Label5: TLabel + Left = 260 + Top = 432 + Width = 31 + Height = 13 + Caption = 'Pra'#231'a:' + end + object lbl_obsrecibo: TLabel + Left = 552 + Top = 386 + Width = 62 + Height = 13 + Caption = 'Observa'#231#227'o:' + end + object lbl_providencias: TLabel + Left = 791 + Top = 23 + Width = 64 + Height = 13 + Caption = 'Provid'#234'ncias:' + end + object lbl_prov: TLabel + Left = 791 + Top = 195 + Width = 98 + Height = 13 + Caption = 'Provid'#234'ncia tomada:' + end + object Label9: TLabel + Left = 3 + Top = 480 + Width = 47 + Height = 13 + Caption = 'Processo:' + end + object lbl_processo: TLabel + Left = 56 + Top = 480 + Width = 3 + Height = 13 + end + object Label18: TLabel + Left = 791 + Top = 323 + Width = 27 + Height = 13 + Caption = 'Data:' + end + object Label19: TLabel + Left = 759 + Top = 362 + Width = 49 + Height = 13 + Caption = 'Cobrador:' + end + object Label20: TLabel + Left = 913 + Top = 324 + Width = 27 + Height = 13 + Caption = 'Hora:' + end + object lbl_protocolo: TLabel + Left = 881 + Top = 362 + Width = 49 + Height = 13 + Caption = 'Protocolo:' + end + object lv_prevtitulos: TListView + Left = 3 + Top = 42 + Width = 389 + Height = 318 + Columns = < + item + Caption = 'Produto' + Width = 120 + end + item + Caption = 'Valor' + Width = 120 + end + item + Caption = 'Valor Corrigido' + Width = 120 + end> + TabOrder = 0 + ViewStyle = vsReport + end + object btn_concluir: TButton + Left = 928 + Top = 272 + Width = 105 + Height = 25 + Caption = 'Concluir' + Enabled = False + TabOrder = 1 + OnClick = btn_concluirClick + end + object lv_fechamento: TListView + Left = 398 + Top = 42 + Width = 387 + Height = 318 + Columns = < + item + Caption = 'Parcela' + Width = 120 + end + item + Caption = 'Valor' + Width = 120 + end + item + Caption = 'Vencimento' + Width = 120 + end> + TabOrder = 2 + ViewStyle = vsReport + end + object edt_vltotal: TEdit + Left = 5 + Top = 405 + Width = 84 + Height = 21 + ReadOnly = True + TabOrder = 3 + end + object btn_verrecibos: TButton + Left = 791 + Top = 272 + Width = 105 + Height = 25 + Caption = 'Gerar Recibos' + TabOrder = 4 + OnClick = btn_verrecibosClick + end + object edt_formarecebimento: TEdit + Left = 97 + Top = 405 + Width = 449 + Height = 21 + TabOrder = 5 + end + object edt_nrchequerecibo: TEdit + Left = 5 + Top = 451 + Width = 121 + Height = 21 + TabOrder = 6 + end + object edt_bancorecibo: TEdit + Left = 133 + Top = 451 + Width = 121 + Height = 21 + TabOrder = 7 + end + object edt_pracarecibo: TEdit + Left = 260 + Top = 451 + Width = 121 + Height = 21 + TabOrder = 8 + end + object btn_acordoin: TButton + Left = 791 + Top = 241 + Width = 105 + Height = 25 + Caption = 'Acordo Interno' + TabOrder = 9 + OnClick = btn_acordoinClick + end + object btn_acordoout: TButton + Left = 928 + Top = 241 + Width = 105 + Height = 25 + Caption = 'Acordo Externo' + TabOrder = 10 + OnClick = btn_acordooutClick + end + object dbgrd_providencias: TDBGrid + Left = 791 + Top = 42 + Width = 242 + Height = 147 + DataSource = dtmSystem.dtsProvidencias + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 11 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + OnDblClick = dbgrd_providenciasDblClick + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 189 + Visible = True + end + item + Expanded = False + FieldName = 'TX_DESCRICAO' + Title.Caption = 'Descri'#231#227'o' + Width = 300 + Visible = True + end> + end + object edt_prov: TEdit + Left = 791 + Top = 214 + Width = 242 + Height = 21 + ReadOnly = True + TabOrder = 12 + end + object pb_atendimento: TProgressBar + Left = 3 + Top = 499 + Width = 1030 + Height = 17 + MarqueeInterval = 2 + Step = 2 + TabOrder = 13 + end + object mem_obsrecibo: TMemo + Left = 552 + Top = 405 + Width = 473 + Height = 89 + TabOrder = 14 + end + object cb_agendaatend: TCheckBox + Left = 791 + Top = 303 + Width = 97 + Height = 17 + Caption = 'Agendar' + TabOrder = 15 + Visible = False + OnClick = cb_agendaatendClick + end + object dtp_agatend: TDateTimePicker + Left = 791 + Top = 339 + Width = 115 + Height = 21 + Date = 43082.430191782410000000 + Time = 43082.430191782410000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 16 + end + object dblucb_agatend: TDBLookupComboBox + Left = 759 + Top = 378 + Width = 115 + Height = 21 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsCobrador + ParentFont = False + TabOrder = 17 + end + object dtph_agatend: TDateTimePicker + Left = 912 + Top = 339 + Width = 115 + Height = 21 + Date = 43082.430419745370000000 + Time = 43082.430419745370000000 + DateMode = dmUpDown + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 18 + end + object edt_protocolo: TEdit + Left = 881 + Top = 378 + Width = 160 + Height = 21 + ReadOnly = True + TabOrder = 19 + end + end + end + end + object qryPesquisa: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 32 + Top = 192 + end + object dtsPesquisa: TDataSource + DataSet = qryPesquisa + Left = 96 + Top = 192 + end + object dtsDevedor: TDataSource + DataSet = dtmSystem.tblDevedores + OnStateChange = dtsDevedorStateChange + OnDataChange = dtsDevedorDataChange + Left = 443 + Top = 16 + end + object dtsEnderecos: TDataSource + DataSet = dtmSystem.tblEnderecos + OnStateChange = dtsEnderecosStateChange + Left = 513 + Top = 81 + end + object dtsTelefones: TDataSource + DataSet = dtmSystem.tblTelefones + OnDataChange = dtsTelefonesDataChange + Left = 595 + Top = 80 + end + object dtsListaTitulos: TDataSource + DataSet = queryListaTitulos + Left = 819 + Top = 80 + end + object queryListaTitulos: TZQuery + Connection = dtmSystem.ZConnection + OnCalcFields = queryListaTitulosCalcFields + SQL.Strings = ( + 'select first 0 * from chg_titulos;') + Params = <> + Left = 722 + Top = 79 + object queryListaTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object queryListaTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object queryListaTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object queryListaTitulosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object queryListaTitulosVL_TITULO: TCurrencyField + FieldName = 'VL_TITULO' + end + object queryListaTitulosDT_ENTRADA: TDateTimeField + FieldName = 'DT_ENTRADA' + end + object queryListaTitulosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + end + object queryListaTitulosDT_ATRASO: TIntegerField + FieldKind = fkCalculated + FieldName = 'DT_ATRASO' + Calculated = True + end + object queryListaTitulosTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 2 + end + object queryListaTitulosCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + Size = 100 + end + object queryListaTitulosNOME_EMPRESA: TStringField + FieldKind = fkLookup + FieldName = 'NOME_EMPRESA' + LookupDataSet = dtmSystem.tblCHGEmpresa + LookupKeyFields = 'ID_EMPRESA' + LookupResultField = 'TX_FANTASIA' + KeyFields = 'ID_EMPRESA' + Size = 40 + Lookup = True + end + object queryListaTitulosPR_ENTRADA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA' + Calculated = True + end + object queryListaTitulosVL_ENTRADA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_ENTRADA' + Calculated = True + end + object queryListaTitulosTP_JUROS: TStringField + FieldKind = fkCalculated + FieldName = 'TP_JUROS' + Size = 1 + Calculated = True + end + object queryListaTitulosPR_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_JUROS' + Calculated = True + end + object queryListaTitulosNR_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'NR_JUROS' + Calculated = True + end + object queryListaTitulosVL_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_JUROS' + Calculated = True + end + object queryListaTitulosPR_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_MULTA' + Calculated = True + end + object queryListaTitulosVL_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_MULTA' + Calculated = True + end + object queryListaTitulosVL_ENCARGOS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_ENCARGOS' + Calculated = True + end + object queryListaTitulosVL_CORRIGIDO: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_CORRIGIDO' + Calculated = True + end + object queryListaTitulosPR_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_INDICADOR: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_INDICADOR' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_IND' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_PRINCIPAL: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_PRIN' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_MULTA' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_JUROS' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_JUROS' + Calculated = True + end + object queryListaTitulosPR_PARCELA_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_IND' + Calculated = True + end + object queryListaTitulosPR_PARCELA_PRINCIPAL: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_PRIN' + Calculated = True + end + object queryListaTitulosPR_PARCELA_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_MULTA' + Calculated = True + end + object queryListaTitulosPR_PARCELA_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_JUROS' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_JUROS' + Calculated = True + end + object queryListaTitulosNR_PARCELAS: TIntegerField + FieldKind = fkCalculated + FieldName = 'NR_PARCELAS' + Calculated = True + end + object queryListaTitulosVL_DESPESA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESPESA' + Calculated = True + end + object queryListaTitulosTP_DESPESA: TWideStringField + FieldName = 'TP_DESPESA' + Size = 1 + end + object queryListaTitulosVL_INDICES: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_INDICES' + Calculated = True + end + object queryListaTitulosVL_PARCELA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_PARCELA' + Calculated = True + end + object queryListaTitulosTX_DESPESA: TStringField + FieldKind = fkCalculated + FieldName = 'TX_DESPESA' + Size = 250 + Calculated = True + end + object queryListaTitulosPR_JUROS_CHEQUE: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_JUROS_CHEQUE' + Calculated = True + end + object queryListaTitulosVL_EXTRAS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_EXTRAS' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_COR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_COR' + Calculated = True + end + object queryListaTitulosPR_PARCELA_COR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_COR' + Calculated = True + end + object queryListaTitulosPR_ENTRADA_MIN: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA_MIN' + Calculated = True + end + object queryListaTitulosPR_ENTRADA_MAX: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA_MAX' + Calculated = True + end + object queryListaTitulosVL_REPASSE_BANCO: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_REPASSE_BANCO' + Calculated = True + end + object queryListaTitulosVL_PRINCIPAL: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_RETIRADA_TAXA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_RETIRADA_TAXA' + Calculated = True + end + object queryListaTitulosVL_DESC_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_IND' + Calculated = True + end + object queryListaTitulosVL_DESC_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PRIN' + Calculated = True + end + object queryListaTitulosVL_DESC_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_JUROS' + Calculated = True + end + end + object ppmnu_copiar: TPopupMenu + Left = 920 + Top = 80 + object copiar_conteudo: TMenuItem + Caption = 'Copiar Conte'#250'do' + OnClick = copiar_conteudoClick + end + end + object dtsProtocolos: TDataSource + DataSet = dtmSystem.tblProtocolo + Left = 232 + Top = 272 + end + object dtsTitulos: TDataSource + DataSet = dtmSystem.tblTitulos + OnStateChange = dtsTitulosStateChange + OnDataChange = dtsTitulosDataChange + Left = 923 + Top = 40 + end + object dtsqryConsulta: TDataSource + DataSet = qryConsulta + Left = 32 + Top = 280 + end + object qryConsulta: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 104 + Top = 280 + end + object queryConteudoRecibo: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + DataSource = dtmSystem.dtsAgenda + Left = 1032 + Top = 88 + end + object ImageList1: TImageList + Left = 784 + Top = 56 + Bitmap = { + 494C01010C001800580510001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object dtsHistAgenda: TDataSource + DataSet = ROqryHistAgenda + Left = 32 + Top = 392 + end + object ROqryHistAgenda: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 120 + Top = 392 + end + object dtsDespesas: TDataSource + DataSet = dtmSystem.tblDespesasTitulos + OnStateChange = dtsDespesasStateChange + Left = 1294 + Top = 172 + end + object dtsIndicadorFinanceiro: TDataSource + DataSet = dtmSystem.tblIndicadorFinanceiro + Left = 643 + Top = 24 + end + object dtsCHGEmpresa: TDataSource + DataSet = dtmSystem.tblCHGEmpresa + Left = 739 + Top = 24 + end + object dtsEmpresa: TDataSource + DataSet = dtmSystem.tblEmpresa + Left = 571 + Top = 32 + end + object popmnu_incluir: TPopupMenu + Left = 602 + Top = 261 + object mnu_incluir: TMenuItem + Caption = 'Incluir Todos' + OnClick = mnu_incluirClick + end + object mnuretirar: TMenuItem + Caption = 'Retirar todos' + OnClick = mnuretirarClick + end + end + object dtsHistorico: TDataSource + DataSet = dtmSystem.tblHistorico + OnStateChange = dtsHistoricoStateChange + Left = 184 + Top = 192 + end + object dtsCobrador: TDataSource + DataSet = queryCobradores + Left = 30 + Top = 488 + end + object queryCobradores: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_usuarios') + Params = <> + Left = 110 + Top = 488 + object queryCobradoresID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object queryCobradoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + end + object dtsEmail: TDataSource + DataSet = dtmSystem.tblEmail + OnStateChange = dtsEmailStateChange + Left = 843 + Top = 24 + end + object zroqryRecibos: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + + 'select first 1 nr_recibo from sys_recibos order by ID_RECIBO des' + + 'c') + Params = <> + Left = 1283 + Top = 104 + end + object ppmnuQuebraAcordo: TPopupMenu + Left = 1016 + Top = 318 + object mnuQuebraAcordo: TMenuItem + Caption = 'Quebrar Acordo' + OnClick = mnuQuebraAcordoClick + end + end + object ZReadOnlyQuery1: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'SELECT FIRST 0 * FROM SYS_ACORDOS') + Params = <> + Left = 1137 + Top = 273 + object ZReadOnlyQuery1ID_ITEM: TIntegerField + FieldName = 'ID_ITEM' + Required = True + end + object ZReadOnlyQuery1ID_ACORDO: TIntegerField + FieldName = 'ID_ACORDO' + Required = True + end + object ZReadOnlyQuery1ID_PARCELA: TIntegerField + FieldName = 'ID_PARCELA' + Required = True + end + object ZReadOnlyQuery1ID_ORIGINAL: TIntegerField + FieldName = 'ID_ORIGINAL' + Required = True + end + object ZReadOnlyQuery1ID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + end + object rotblRepasseFase: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_repasses_fases') + Params = <> + Left = 896 + Top = 8 + object rotblRepasseFaseID_FASE: TIntegerField + FieldName = 'ID_FASE' + Required = True + end + object rotblRepasseFasePR_PRINCIPAL: TFloatField + FieldName = 'PR_PRINCIPAL' + end + object rotblRepasseFasePR_JUROS: TFloatField + FieldName = 'PR_JUROS' + end + object rotblRepasseFasePR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object rotblRepasseFasePR_ENCARGOS: TFloatField + FieldName = 'PR_ENCARGOS' + end + object rotblRepasseFasePR_CORRIGIDO: TFloatField + FieldName = 'PR_CORRIGIDO' + end + object rotblRepasseFaseMIN_ATRASO: TIntegerField + FieldName = 'MIN_ATRASO' + end + object rotblRepasseFaseMAX_ATRASO: TIntegerField + FieldName = 'MAX_ATRASO' + end + object rotblRepasseFaseID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object zroqryHelpRepasse: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 32 + Top = 560 + end + object dtsCDSTitulos: TDataSource + Left = 1033 + Top = 529 + end + object cdsParcelas: TClientDataSet + Aggregates = <> + Params = <> + Left = 1153 + Top = 577 + object cdsParcelasid_parcela: TIntegerField + FieldName = 'id_parcela' + end + end + object dtsCDSParcelas: TDataSource + DataSet = cdsParcelas + Left = 1153 + Top = 529 + end + object cdsTitulos: TClientDataSet + Aggregates = <> + Params = <> + Left = 1033 + Top = 581 + object cdsTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + end + object cdsTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object cdsTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + end + object cdsTitulosTX_PRODUTO: TStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object cdsTitulosVL_TITULO: TCurrencyField + FieldName = 'VL_TITULO' + end + object cdsTitulosDT_ENTRADA: TDateField + FieldName = 'DT_ENTRADA' + end + object cdsTitulosDT_VENCIMENTO: TDateField + FieldName = 'DT_VENCIMENTO' + end + object cdsTitulosTP_SITUACAO: TStringField + FieldName = 'TP_SITUACAO' + Size = 2 + end + object cdsTitulosCD_DEVEDOR: TStringField + FieldName = 'CD_DEVEDOR' + Size = 100 + end + object cdsTitulosTP_CHEQUE: TStringField + FieldName = 'TP_CHEQUE' + Size = 1 + end + object cdsTitulosID_BANCO: TIntegerField + FieldName = 'ID_BANCO' + end + object cdsTitulosTX_NRCHEQUE: TStringField + FieldName = 'TX_NRCHEQUE' + end + object cdsTitulosTP_MOTIVO: TStringField + FieldName = 'TP_MOTIVO' + Size = 2 + end + object cdsTitulosVL_DESPESA: TCurrencyField + FieldName = 'VL_DESPESA' + end + object cdsTitulosTP_DESPESA: TStringField + FieldName = 'TP_DESPESA' + Size = 1 + end + object cdsTitulosVL_MULTA: TCurrencyField + FieldName = 'VL_MULTA' + end + object cdsTitulosVL_JUROS: TCurrencyField + FieldName = 'VL_JUROS' + end + object cdsTitulosVL_ENCARGOS: TCurrencyField + FieldName = 'VL_ENCARGOS' + end + object cdsTitulosVL_CORRIGIDO: TCurrencyField + FieldName = 'VL_CORRIGIDO' + end + object cdsTitulosDT_PAGAMENTO: TDateField + FieldName = 'DT_PAGAMENTO' + end + object cdsTitulosTX_OBS: TBlobField + FieldName = 'TX_OBS' + BlobType = ftWideMemo + end + object cdsTitulosID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object cdsTitulosDT_HORA_ULTIMA_ATT: TDateField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object cdsTitulosID_IMPLANTACAO: TIntegerField + FieldName = 'ID_IMPLANTACAO' + end + object cdsTitulosDT_IMPLANTACAO: TDateField + FieldName = 'DT_IMPLANTACAO' + end + object cdsTitulosQTDE_PARCELAS: TIntegerField + FieldName = 'QTDE_PARCELAS' + end + object cdsTitulosVL_DESC_PRINCIPAL: TCurrencyField + FieldName = 'VL_DESC_PRINCIPAL' + end + object cdsTitulosDT_EMISSAO_RECIBO: TDateField + FieldName = 'DT_EMISSAO_RECIBO' + end + object cdsTitulosVL_REPASSE_PRIN: TCurrencyField + FieldName = 'VL_REPASSE_PRIN' + end + object cdsTitulosVL_DESC_MULTA: TCurrencyField + FieldName = 'VL_DESC_MULTA' + end + object cdsTitulosVL_REPASSE_MULTA: TCurrencyField + FieldName = 'VL_REPASSE_MULTA' + end + object cdsTitulosVL_DESC_JUROS: TCurrencyField + FieldName = 'VL_DESC_JUROS' + end + object cdsTitulosVL_REPASSE_JUROS: TCurrencyField + FieldName = 'VL_REPASSE_JUROS' + end + object cdsTitulosVL_INDICADOR: TCurrencyField + FieldName = 'VL_INDICADOR' + end + object cdsTitulosVL_DESC_INDICADOR: TCurrencyField + FieldName = 'VL_DESC_INDICADOR' + end + object cdsTitulosVL_REPASSE_CORRIGIDO: TCurrencyField + FieldName = 'VL_REPASSE_CORRIGIDO' + end + object cdsTitulosTP_PRESTACAO: TStringField + FieldName = 'TP_PRESTACAO' + Size = 1 + end + object cdsTitulosVL_REPASSE_ENCARGOS: TCurrencyField + FieldName = 'VL_REPASSE_ENCARGOS' + end + end +end diff --git a/ufrmAtendimento.pas b/ufrmAtendimento.pas new file mode 100644 index 0000000..5dd27b6 --- /dev/null +++ b/ufrmAtendimento.pas @@ -0,0 +1,8116 @@ +unit ufrmAtendimento; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, DateUtils, System.win.ComObj, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, + ZAbstractDataset, ZDataset, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.Mask, + Vcl.DBCtrls, Vcl.ComCtrls, Vcl.ExtCtrls, rDBComponents, Vcl.CheckLst, + StrUtils, ClipBrd, System.MaskUtils, System.UITypes, System.Math, + Vcl.Menus, Vcl.Buttons, System.ImageList, Vcl.ImgList, ShellAPI, + DBDateTimePicker, RLReport, Datasnap.DBClient; + +type + THackDBNavigator = class(TDBNavigator); + +type + TfrmAtendimento = class(TForm) + gb_pesquisar: TGroupBox; + lbl_pesquisar: TLabel; + edt_campop: TEdit; + btn_pesquisar: TButton; + dbgrd_pesquisar: TDBGrid; + cbx_tiponome: TComboBox; + qryPesquisa: TZQuery; + dtsPesquisa: TDataSource; + gb_cabecalho: TGroupBox; + lbl_nomec: TLabel; + dbedt_nomec: TDBEdit; + dtsDevedor: TDataSource; + lbl_cpfcnpjc: TLabel; + dbedt_cpfcnpjc: TDBEdit; + gb_dados: TGroupBox; + pcDevedor: TPageControl; + tabCadastro: TTabSheet; + navdevedor: TDBNavigator; + dbedt_nome: TDBEdit; + dbedt_nomepai: TDBEdit; + lbl_nomepai: TLabel; + dbedt_nomemae: TDBEdit; + lbl_nomemae: TLabel; + lbl_nome: TLabel; + lbl_cpfcnpj: TLabel; + dbedt_cpfcnpj: TDBEdit; + lbl_rg: TLabel; + dbedt_rg: TDBEdit; + lbl_coddev: TLabel; + dbedt_coddev: TDBEdit; + lbl_datanasc: TLabel; + lbl_datacad: TLabel; + Panel1: TPanel; + dbrgrp_tpdevedor: TDBRadioGroup; + lbl_tppessoa: TLabel; + pnl_cadastro: TPanel; + tabEnderecos: TTabSheet; + pnl_enderecos: TPanel; + dbgrd_enderecos: TDBGrid; + dbmb_obsc: TDBMemo; + lbl_obs: TLabel; + lbl_rua: TLabel; + dbedt_rua: TDBEdit; + dtsEnderecos: TDataSource; + lbl_num: TLabel; + dbedt_num: TDBEdit; + lbl_comp: TLabel; + dbedt_comp: TDBEdit; + lbl_cep: TLabel; + dbedt_cep: TDBEdit; + lbl_bairro: TLabel; + dbedt_bairro: TDBEdit; + lbl_uf: TLabel; + dblucmbox_uf: TDBLookupComboBox; + lbl_cidade: TLabel; + dblucmbox_cidade: TDBLookupComboBox; + Panel2: TPanel; + dbrg_situacao: TDBRadioGroup; + Panel6: TPanel; + dbrg_ref: TDBRadioGroup; + Panel7: TPanel; + dbrg_tpend: TDBRadioGroup; + lbl_tpend: TLabel; + lbl_situacao: TLabel; + lbl_ref: TLabel; + navenderecos: TDBNavigator; + tabTelefones: TTabSheet; + pnl_telefones: TPanel; + dbgrd_tel: TDBGrid; + lbl_tel: TLabel; + dbedt_tel: TDBEdit; + lbl_desctel: TLabel; + dbedt_desctel: TDBEdit; + lbl_obstel: TLabel; + btn_clearmemo: TButton; + dbmem_tel: TDBMemo; + lbl_tipo: TLabel; + lbl_sittel: TLabel; + Panel3: TPanel; + dbrg_sittel: TDBRadioGroup; + Panel4: TPanel; + dbrg_tipotel: TDBRadioGroup; + navtelefones: TDBNavigator; + tabTitulos: TTabSheet; + pnl_titulos: TPanel; + dtsTelefones: TDataSource; + dbedit_produto: TDBEdit; + dbedt_codemp: TDBEdit; + dbedt_vltit: TDBEdit; + Label2: TLabel; + lbl_dataent: TLabel; + lbl_datavenc: TLabel; + lbl_empresas: TLabel; + lbl_sittit: TLabel; + lbl_tit: TLabel; + lbl_vltit: TLabel; + Panel5: TPanel; + dbrg_tit: TDBRadioGroup; + pnl_cor1: TPanel; + pnl_color2: TPanel; + pnl_color3: TPanel; + pnl_color4: TPanel; + pnl_color5: TPanel; + pnl_color6: TPanel; + pnl_color7: TPanel; + rDBDateTimePicker1: TrDBDateTimePicker; + rdbdt_entrada: TrDBDateTimePicker; + dbgrd_tit: TDBGrid; + tabHistorico: TTabSheet; + pnl_hist: TPanel; + dbgrd_historico: TDBGrid; + dbmemo_box: TDBMemo; + navtitulos: TDBNavigator; + navhistorico: TDBNavigator; + tabCalc: TTabSheet; + lv_titulos: TListView; + dtsListaTitulos: TDataSource; + queryListaTitulos: TZQuery; + queryListaTitulosID_TITULO: TIntegerField; + queryListaTitulosID_DEVEDOR: TIntegerField; + queryListaTitulosID_EMPRESA: TIntegerField; + queryListaTitulosTX_PRODUTO: TWideStringField; + queryListaTitulosVL_TITULO: TCurrencyField; + queryListaTitulosDT_ENTRADA: TDateTimeField; + queryListaTitulosDT_VENCIMENTO: TDateTimeField; + queryListaTitulosDT_ATRASO: TIntegerField; + queryListaTitulosTP_SITUACAO: TWideStringField; + queryListaTitulosCD_DEVEDOR: TWideStringField; + queryListaTitulosNOME_EMPRESA: TStringField; + queryListaTitulosPR_ENTRADA: TFloatField; + queryListaTitulosVL_ENTRADA: TCurrencyField; + queryListaTitulosPR_JUROS: TFloatField; + queryListaTitulosVL_JUROS: TCurrencyField; + queryListaTitulosPR_MULTA: TFloatField; + queryListaTitulosVL_MULTA: TCurrencyField; + queryListaTitulosVL_ENCARGOS: TCurrencyField; + queryListaTitulosVL_CORRIGIDO: TCurrencyField; + queryListaTitulosPR_INDICADOR: TFloatField; + queryListaTitulosVL_INDICADOR: TCurrencyField; + queryListaTitulosPR_QUITACAO_INDICADOR: TFloatField; + queryListaTitulosVL_DESC_QUIT_IND: TCurrencyField; + queryListaTitulosPR_QUITACAO_PRINCIPAL: TFloatField; + queryListaTitulosVL_DESC_QUIT_PRIN: TCurrencyField; + queryListaTitulosPR_QUITACAO_MULTA: TFloatField; + queryListaTitulosVL_DESC_QUIT_MULTA: TCurrencyField; + queryListaTitulosPR_QUITACAO_JUROS: TFloatField; + queryListaTitulosVL_DESC_QUIT_JUROS: TCurrencyField; + queryListaTitulosPR_PARCELA_INDICADOR: TFloatField; + queryListaTitulosVL_DESC_PAR_IND: TCurrencyField; + queryListaTitulosPR_PARCELA_PRINCIPAL: TFloatField; + queryListaTitulosVL_DESC_PAR_PRIN: TCurrencyField; + queryListaTitulosPR_PARCELA_MULTA: TFloatField; + queryListaTitulosVL_DESC_PAR_MULTA: TCurrencyField; + queryListaTitulosPR_PARCELA_JUROS: TFloatField; + queryListaTitulosVL_DESC_PAR_JUROS: TCurrencyField; + queryListaTitulosNR_PARCELAS: TIntegerField; + dbgrd_listtitulos: TDBGrid; + lbl_somatitulos: TLabel; + lbl_parcelamento: TLabel; + lbl_somaentrada: TLabel; + lbl_vlaquitar: TLabel; + lbl_extras: TLabel; + lbl_somajuros: TLabel; + lbl_somamulta: TLabel; + lbl_somaindicador: TLabel; + lbl_desctot: TLabel; + lbl_datapgmnto: TLabel; + edt_somatitulos: TEdit; + edt_nrparcelas: TEdit; + up_nrparcelas: TUpDown; + edt_somaentrada: TEdit; + edt_vlaquitar: TEdit; + edt_extras: TEdit; + edt_somajuros: TEdit; + edt_somamulta: TEdit; + edt_somaindicador: TEdit; + cb_nmulta: TCheckBox; + edt_desctot: TEdit; + dtp_atrasorecalc: TDateTimePicker; + lv_parcelas: TListView; + btn_fechamento: TButton; + ppmnu_copiar: TPopupMenu; + copiar_conteudo: TMenuItem; + dtsProtocolos: TDataSource; + dbgrd_protocolos: TDBGrid; + btn_verprotocolo: TButton; + tabFechamento: TTabSheet; + lv_prevtitulos: TListView; + btn_concluir: TButton; + lv_fechamento: TListView; + lbl_prevtitulos: TLabel; + lbl_vltotal: TLabel; + edt_vltotal: TEdit; + lbl_apagamento: TLabel; + lbl_dpagamento: TLabel; + cbx_excentrada: TCheckBox; + edt_excentrada: TEdit; + queryListaTitulosTP_DESPESA: TWideStringField; + queryListaTitulosVL_DESPESA: TCurrencyField; + dtsTitulos: TDataSource; + pnl_cheque: TPanel; + lbl_banco: TLabel; + lbl_nrcheque: TLabel; + lbl_motivo: TLabel; + dbedt_banco: TDBEdit; + dbedt_nrcheque: TDBEdit; + dbedt_motivo: TDBEdit; + dbcbx_tpcheque: TDBCheckBox; + pnl_despesa: TPanel; + dbrg_despesa: TDBRadioGroup; + lbl_tpdespesa: TLabel; + lbl_depesa: TLabel; + dbedt_despesa: TDBEdit; + dtsqryConsulta: TDataSource; + qryConsulta: TZQuery; + clb_beneficiarioscalculo: TCheckListBox; + lbl_beneficiarioscalculo: TLabel; + clb_indices: TCheckListBox; + lbl_indices: TLabel; + queryListaTitulosVL_INDICES: TCurrencyField; + Label1: TLabel; + edt_indices: TEdit; + btn_verrecibos: TButton; + queryConteudoRecibo: TZQuery; + lbl_formarecebimento: TLabel; + edt_formarecebimento: TEdit; + ImageList1: TImageList; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + edt_nrchequerecibo: TEdit; + edt_bancorecibo: TEdit; + edt_pracarecibo: TEdit; + lbl_obsrecibo: TLabel; + Label6: TLabel; + cb_formapag: TComboBox; + dtsHistAgenda: TDataSource; + ROqryHistAgenda: TZReadOnlyQuery; + queryListaTitulosVL_PARCELA: TCurrencyField; + cbx_despesas: TCheckBox; + queryListaTitulosTX_DESPESA: TStringField; + dtsDespesas: TDataSource; + pcTitDespesas: TPageControl; + tabTit: TTabSheet; + tabDespesas: TTabSheet; + navDespesas: TDBNavigator; + dbgrd_despesas: TDBGrid; + queryListaTitulosPR_JUROS_CHEQUE: TFloatField; + btn_amostra: TButton; + btn_acordoin: TButton; + btn_acordoout: TButton; + queryListaTitulosVL_EXTRAS: TCurrencyField; + dtsIndicadorFinanceiro: TDataSource; + dtsCHGEmpresa: TDataSource; + dtsEmpresa: TDataSource; + cbx_descindextras: TCheckBox; + cb_descindicesextras: TComboBox; + edt_descindextras: TEdit; + lbl_maxpar: TLabel; + popmnu_incluir: TPopupMenu; + mnu_incluir: TMenuItem; + mnuretirar: TMenuItem; + tabObs: TTabSheet; + queryListaTitulosPR_QUITACAO_COR: TFloatField; + queryListaTitulosPR_PARCELA_COR: TFloatField; + Label7: TLabel; + DBEdit2: TDBEdit; + Label8: TLabel; + DBEdit3: TDBEdit; + dbdtp_dtnasc: TDBDateTimePicker; + dbdtp_dtcad: TDBDateTimePicker; + lbl_providencias: TLabel; + dbgrd_providencias: TDBGrid; + lbl_prov: TLabel; + edt_prov: TEdit; + pb_atendimento: TProgressBar; + Label9: TLabel; + lbl_processo: TLabel; + dbedt_ddd: TDBEdit; + lbl_ddd: TLabel; + Label10: TLabel; + lbl_minentrada: TLabel; + edt_prentrada: TEdit; + ud_entrada: TUpDown; + lbl_maxentrada: TLabel; + queryListaTitulosPR_ENTRADA_MIN: TFloatField; + queryListaTitulosPR_ENTRADA_MAX: TFloatField; + mem_obsrecibo: TMemo; + cbx_txextra: TCheckBox; + edt_txextra: TEdit; + queryListaTitulosVL_REPASSE_BANCO: TCurrencyField; + queryListaTitulosVL_PRINCIPAL: TCurrencyField; + dbmem_titobs: TDBMemo; + lbl_titobs: TLabel; + cb_agendahist: TCheckBox; + Label11: TLabel; + dtp_agendadatahist: TDateTimePicker; + Label12: TLabel; + dtp_agendahorahist: TDateTimePicker; + Label13: TLabel; + dblucb_agendacobhist: TDBLookupComboBox; + Label14: TLabel; + dblucb_providencia: TDBLookupComboBox; + dtsHistorico: TDataSource; + dtsCobrador: TDataSource; + queryCobradores: TZQuery; + queryCobradoresID_USUARIO: TIntegerField; + queryCobradoresTX_NOME: TWideStringField; + pcDescontos: TPageControl; + tabQuitar: TTabSheet; + gb_descontosquit: TGroupBox; + lbl_indquitar: TLabel; + lbl_principalquitar: TLabel; + lbl_multasquitar: TLabel; + lbl_jurosquitar: TLabel; + lbl_maxindquit: TLabel; + lbl_maxprinquit: TLabel; + lbl_maxmultaquit: TLabel; + lbl_maxjurosquit: TLabel; + lbl_maxquitcor: TLabel; + edt_indquitar: TEdit; + edt_principalquitar: TEdit; + edt_multasquitar: TEdit; + up_encquitar: TUpDown; + up_principalquitar: TUpDown; + up_multasquitar: TUpDown; + edt_jurosquitar: TEdit; + up_jurosquitar: TUpDown; + cb_desc_quit_cor: TCheckBox; + edt_corquitar: TEdit; + ud_corquitar: TUpDown; + cb_descquit: TCheckBox; + tabParcelar: TTabSheet; + gb_descontospar: TGroupBox; + lbl_indparcelas: TLabel; + lbl_jurosparcelas: TLabel; + lbl_multasparcelas: TLabel; + lbl_principalparcelas: TLabel; + lbl_maxindpar: TLabel; + lbl_maxprinpar: TLabel; + lbl_maxmultapar: TLabel; + lbl_maxjurospar: TLabel; + lbl_maxparcor: TLabel; + edt_indparcelas: TEdit; + edt_jurosparcelas: TEdit; + edt_multasparcelas: TEdit; + edt_principalparcelas: TEdit; + up_encparcelas: TUpDown; + up_jurosparcelas: TUpDown; + up_multasparcelas: TUpDown; + up_principalparcelas: TUpDown; + cb_desc_par_cor: TCheckBox; + edt_corpar: TEdit; + ud_corpar: TUpDown; + cb_descpar: TCheckBox; + queryListaTitulosVL_RETIRADA_TAXA: TCurrencyField; + navEmail: TDBNavigator; + dtsEmail: TDataSource; + Label15: TLabel; + dbedt_email: TDBEdit; + dbgrd_email: TDBGrid; + edt_excjurosparcela: TEdit; + cbx_exjurosparcelar: TCheckBox; + DBGrid1: TDBGrid; + Label16: TLabel; + queryListaTitulosVL_DESC_IND: TCurrencyField; + queryListaTitulosVL_DESC_PRIN: TCurrencyField; + queryListaTitulosVL_DESC_MULTA: TCurrencyField; + queryListaTitulosVL_DESC_JUROS: TCurrencyField; + pnl_contatos: TPanel; + Label17: TLabel; + dblbl_contatos: TDBText; + cb_agendaatend: TCheckBox; + dtp_agatend: TDateTimePicker; + dblucb_agatend: TDBLookupComboBox; + dtph_agatend: TDateTimePicker; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + Panel8: TPanel; + DBRadioGroup1: TDBRadioGroup; + Label21: TLabel; + zroqryRecibos: TZReadOnlyQuery; + ppmnuQuebraAcordo: TPopupMenu; + mnuQuebraAcordo: TMenuItem; + ZReadOnlyQuery1: TZReadOnlyQuery; + ZReadOnlyQuery1ID_ITEM: TIntegerField; + ZReadOnlyQuery1ID_ACORDO: TIntegerField; + ZReadOnlyQuery1ID_PARCELA: TIntegerField; + ZReadOnlyQuery1ID_ORIGINAL: TIntegerField; + ZReadOnlyQuery1ID_DEVEDOR: TIntegerField; + queryListaTitulosNR_JUROS: TCurrencyField; + queryListaTitulosTP_JUROS: TStringField; + rotblRepasseFase: TZReadOnlyQuery; + rotblRepasseFaseID_FASE: TIntegerField; + rotblRepasseFasePR_PRINCIPAL: TFloatField; + rotblRepasseFasePR_JUROS: TFloatField; + rotblRepasseFasePR_MULTA: TFloatField; + rotblRepasseFasePR_ENCARGOS: TFloatField; + rotblRepasseFasePR_CORRIGIDO: TFloatField; + rotblRepasseFaseMIN_ATRASO: TIntegerField; + rotblRepasseFaseMAX_ATRASO: TIntegerField; + rotblRepasseFaseID_REPASSE: TIntegerField; + rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField; + rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField; + zroqryHelpRepasse: TZReadOnlyQuery; + dtsCDSTitulos: TDataSource; + cdsParcelas: TClientDataSet; + cdsParcelasid_parcela: TIntegerField; + dtsCDSParcelas: TDataSource; + cdsTitulos: TClientDataSet; + cdsTitulosID_TITULO: TIntegerField; + cdsTitulosID_DEVEDOR: TIntegerField; + cdsTitulosID_EMPRESA: TIntegerField; + cdsTitulosTX_PRODUTO: TStringField; + cdsTitulosVL_TITULO: TCurrencyField; + cdsTitulosDT_ENTRADA: TDateField; + cdsTitulosDT_VENCIMENTO: TDateField; + cdsTitulosTP_SITUACAO: TStringField; + cdsTitulosCD_DEVEDOR: TStringField; + cdsTitulosTP_CHEQUE: TStringField; + cdsTitulosID_BANCO: TIntegerField; + cdsTitulosTX_NRCHEQUE: TStringField; + cdsTitulosTP_MOTIVO: TStringField; + cdsTitulosVL_DESPESA: TCurrencyField; + cdsTitulosTP_DESPESA: TStringField; + cdsTitulosVL_MULTA: TCurrencyField; + cdsTitulosVL_JUROS: TCurrencyField; + cdsTitulosVL_ENCARGOS: TCurrencyField; + cdsTitulosVL_CORRIGIDO: TCurrencyField; + cdsTitulosDT_PAGAMENTO: TDateField; + cdsTitulosTX_OBS: TBlobField; + cdsTitulosID_ULTIMO_USUARIO: TIntegerField; + cdsTitulosDT_HORA_ULTIMA_ATT: TDateField; + cdsTitulosID_IMPLANTACAO: TIntegerField; + cdsTitulosDT_IMPLANTACAO: TDateField; + cdsTitulosQTDE_PARCELAS: TIntegerField; + cdsTitulosVL_DESC_PRINCIPAL: TCurrencyField; + cdsTitulosDT_EMISSAO_RECIBO: TDateField; + cdsTitulosVL_REPASSE_PRIN: TCurrencyField; + cdsTitulosVL_DESC_MULTA: TCurrencyField; + cdsTitulosVL_REPASSE_MULTA: TCurrencyField; + cdsTitulosVL_DESC_JUROS: TCurrencyField; + cdsTitulosVL_REPASSE_JUROS: TCurrencyField; + cdsTitulosVL_INDICADOR: TCurrencyField; + cdsTitulosVL_DESC_INDICADOR: TCurrencyField; + cdsTitulosVL_REPASSE_CORRIGIDO: TCurrencyField; + cdsTitulosTP_PRESTACAO: TStringField; + cdsTitulosVL_REPASSE_ENCARGOS: TCurrencyField; + Label22: TLabel; + dbedt_protocolo: TDBEdit; + btn_protocolo: TButton; + lbl_protocolo1: TLabel; + edt_protocolo1: TEdit; + lbl_protocolo: TLabel; + edt_protocolo: TEdit; + DBLookupComboBox1: TDBLookupComboBox; + Label23: TLabel; + procedure btn_pesquisarClick(Sender: TObject); + procedure dbgrd_pesquisarDblClick(Sender: TObject); + procedure dtsDevedorDataChange(Sender: TObject; Field: TField); + procedure clb_empresasClickCheck(Sender: TObject); + procedure dbgrd_titCellClick(Column: TColumn); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure queryListaTitulosCalcFields(DataSet: TDataSet); + procedure edt_campopKeyPress(Sender: TObject; var Key: Char); + procedure lv_titulosChange(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure edt_nrparcelasChange(Sender: TObject); + procedure cb_nmultaClick(Sender: TObject); + procedure cb_descquitClick(Sender: TObject); + procedure cb_descparClick(Sender: TObject); + procedure edt_indquitarChange(Sender: TObject); + procedure edt_principalquitarChange(Sender: TObject); + procedure edt_multasquitarChange(Sender: TObject); + procedure edt_jurosquitarChange(Sender: TObject); + procedure edt_indparcelasChange(Sender: TObject); + procedure edt_principalparcelasChange(Sender: TObject); + procedure edt_multasparcelasChange(Sender: TObject); + procedure edt_jurosparcelasChange(Sender: TObject); + procedure copiar_conteudoClick(Sender: TObject); + procedure btn_closeClick(Sender: TObject); + procedure dtp_atrasorecalcChange(Sender: TObject); + procedure btn_verprotocoloClick(Sender: TObject); + procedure cbx_descfixoClick(Sender: TObject); + procedure cbx_acrfixoClick(Sender: TObject); + procedure pcDevedorChanging(Sender: TObject; var AllowChange: Boolean); + procedure pcDevedorChange(Sender: TObject); + procedure btn_fechamentoClick(Sender: TObject); + procedure btn_concluirClick(Sender: TObject); + procedure cbx_excentradaClick(Sender: TObject); + procedure edt_excentradaKeyPress(Sender: TObject; var Key: Char); + procedure edt_descfixoKeyPress(Sender: TObject; var Key: Char); + procedure edt_excentradaChange(Sender: TObject); + procedure dtsTitulosDataChange(Sender: TObject; Field: TField); + procedure dtsTitulosStateChange(Sender: TObject); + procedure clb_beneficiarioscalculoClickCheck(Sender: TObject); + procedure clb_indicesClickCheck(Sender: TObject); + procedure btn_verrecibosClick(Sender: TObject); + procedure edt_reciboobsChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; + var Resize: Boolean); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure cb_formapagChange(Sender: TObject); + procedure cbx_despesasClick(Sender: TObject); + procedure dtsDespesasStateChange(Sender: TObject); + procedure btn_amostraClick(Sender: TObject); + procedure btn_acordoinClick(Sender: TObject); + procedure btn_acordooutClick(Sender: TObject); + procedure cbx_descindextrasClick(Sender: TObject); + procedure cb_descindicesextrasChange(Sender: TObject); + procedure edt_descindextrasExit(Sender: TObject); + procedure edt_descindextrasKeyPress(Sender: TObject; var Key: Char); + procedure mnu_incluirClick(Sender: TObject); + procedure mnuretirarClick(Sender: TObject); + procedure edt_nrparcelasExit(Sender: TObject); + procedure lv_titulosItemChecked(Sender: TObject; Item: TListItem); + procedure dbgrd_enderecosTitleClick(Column: TColumn); + procedure dbgrd_telTitleClick(Column: TColumn); + procedure dbgrd_titTitleClick(Column: TColumn); + procedure dbgrd_despesasTitleClick(Column: TColumn); + procedure dbgrd_historicoTitleClick(Column: TColumn); + procedure dbgrd_listtitulosTitleClick(Column: TColumn); + procedure cb_desc_quit_corClick(Sender: TObject); + procedure cb_desc_par_corClick(Sender: TObject); + procedure edt_corquitarChange(Sender: TObject); + procedure edt_corparChange(Sender: TObject); + procedure dbgrd_telDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure dbgrd_enderecosDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure dbgrd_providenciasDblClick(Sender: TObject); + procedure dbgrd_titDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure edt_prentradaChange(Sender: TObject); + procedure navtelefonesBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure dtsEnderecosStateChange(Sender: TObject); + procedure edt_txextraChange(Sender: TObject); + procedure cbx_txextraClick(Sender: TObject); + procedure edt_txextraKeyPress(Sender: TObject; var Key: Char); + procedure up_nrparcelasClick(Sender: TObject; Button: TUDBtnType); + procedure navhistoricoBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure navtitulosBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure edt_indquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_principalquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_multasquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_jurosquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_corquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_indparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_principalparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_multasparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_jurosparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_corparKeyPress(Sender: TObject; var Key: Char); + procedure dtsHistoricoStateChange(Sender: TObject); + procedure cb_agendahistClick(Sender: TObject); + procedure cbx_exjurosparcelarClick(Sender: TObject); + procedure edt_excjurosparcelaChange(Sender: TObject); + procedure edt_excjurosparcelaKeyPress(Sender: TObject; var Key: Char); + procedure dtsEmailStateChange(Sender: TObject); + procedure cb_agendaatendClick(Sender: TObject); + procedure dbedt_cpfcnpjcKeyPress(Sender: TObject; var Key: Char); + procedure dbrg_tipotelClick(Sender: TObject); + procedure dtsTelefonesDataChange(Sender: TObject; Field: TField); + procedure mnuQuebraAcordoClick(Sender: TObject); + procedure dtsDevedorStateChange(Sender: TObject); + procedure btn_protocoloClick(Sender: TObject); + private + FListViewOldWndProc: TWndMethod; + FlistViewOldWndProc2: TWndMethod; + atendimento: string; + pagina: Integer; + new_id_tit: Integer; + ficha_dev: Boolean; + nr_recibo: string; + id_emps_dev: array of Integer; + + procedure ListViewNewWndProc(var Msg: TMessage); + procedure ListViewNewWndProc2(var Msg: TMessage); + procedure CriarLista; + procedure CalcValorParcelas; + procedure Att_campos; + // procedure CarregaProtocolo; + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string; size: Integer); + // procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + procedure OpenOfficeDocument(path: string); + procedure AdjustCheckListBox; + procedure CalcPrice; + procedure ChecaPermissoes; + procedure GuardaTitulos; + { Private declarations } + public + data_parcelas: array of TDate; + old_id: Integer; + index_pagamento: Integer; + parcelas_pagamento: Integer; + id_recibo: string; + clpbrd: string; + forma_pagamento: string; + multi_form_pag: Boolean; + nome_titulos: string; + obs_despesas: string; + parcelamento: array of currency; + after_show: Boolean; + tipo_parcelamento: string; + desc_indices_extras: TStringList; + antes: TTime; + quant_titulos: Integer; + qtde_titulos: Integer; + id_empresa: Integer; + acordo_fora: Boolean; + acordo_emp: Integer; + acordo_fantasia: string; + id_emp: Integer; + entrada_credvista: double; + selected_id_chg_empresa: Integer; + str_tit: array of Integer; + id_emp_calc: Integer; + ids_tits_calc: array of Boolean; + qtde_parcelas: Integer; + fez_recibo: Boolean; + log_recibo: TStringList; + { Public declarations } + end; + +var + frmAtendimento: TfrmAtendimento; + +implementation + +{$R *.dfm} + +uses udtmSystem, CommCtrl, ufrmFechamentoAtendimento, urelRecibo, uExtenso, + ufrmEscolheAcordo, urelFichaDivida, urelTeste, ufrmLiberaPermissao; + +procedure TfrmAtendimento.AdjustCheckListBox; +var + i, nMaxWidth, nItemWidth: Integer; +begin +// nMaxWidth := clb_empresas.ClientWidth; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// nItemWidth := clb_empresas.Canvas.TextWidth(clb_empresas.Items[i]) + 20; +// if (nItemWidth > nMaxWidth) then +// nMaxWidth := nItemWidth; +// end; +// if (nMaxWidth > clb_empresas.ClientWidth) then +// begin +// clb_empresas.ScrollWidth := nMaxWidth; +// end; +end; + +procedure TfrmAtendimento.Att_campos; +var + soma_nominal, soma_encargos, soma_corrigido, soma_entrada, soma_juros, + soma_multas, soma_indicador, { desc_fixo, acr_fixo, } soma_indices + : currency; + i, n_parcelas, quit_ind, quit_prin, quit_multa, quit_juros, parc_ind, + parc_prin, parc_multa, parc_juros, par_cor, quit_cor, minentrada, + maxentrada: Integer; +begin + soma_nominal := 0.00; + soma_encargos := 0.00; + soma_corrigido := 0.00; + soma_entrada := 0.00; + soma_juros := 0.00; + soma_multas := 0.00; + soma_indicador := 0.00; + soma_indices := 0.00; + + n_parcelas := 0; + + minentrada := 0; + maxentrada := 0; + + quit_ind := 0; + quit_prin := 0; + quit_multa := 0; + quit_juros := 0; + quit_cor := 0; + + parc_ind := 0; + parc_prin := 0; + parc_multa := 0; + parc_juros := 0; + par_cor := 0; + queryListaTitulos.DisableControls; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + soma_nominal := soma_nominal + queryListaTitulosVL_TITULO.AsCurrency; + soma_encargos := soma_encargos + queryListaTitulosVL_ENCARGOS.AsCurrency; + soma_corrigido := soma_corrigido + queryListaTitulosVL_CORRIGIDO. + AsCurrency; + soma_entrada := soma_entrada + queryListaTitulosVL_ENTRADA.AsCurrency; + soma_juros := soma_juros + queryListaTitulosVL_JUROS.AsCurrency; + soma_multas := soma_multas + queryListaTitulosVL_MULTA.AsCurrency; + soma_indicador := soma_indicador + queryListaTitulosVL_INDICADOR. + AsCurrency; + soma_indices := soma_indices + queryListaTitulosVL_INDICES.AsCurrency; + if n_parcelas < (queryListaTitulosNR_PARCELAS.AsInteger) then + begin + n_parcelas := queryListaTitulosNR_PARCELAS.AsInteger; + end; + + if minentrada < (queryListaTitulosPR_ENTRADA_MIN.AsInteger) then + begin + minentrada := queryListaTitulosPR_ENTRADA_MIN.AsInteger; + end; + // edt_prentrada.Text := inttostr(minentrada); + if maxentrada < (queryListaTitulosPR_ENTRADA_MAX.AsInteger) then + begin + maxentrada := queryListaTitulosPR_ENTRADA_MAX.AsInteger; + end; + + if quit_ind < (queryListaTitulosPR_QUITACAO_INDICADOR.AsInteger) then + begin + quit_ind := queryListaTitulosPR_QUITACAO_INDICADOR.AsInteger; + end; + if quit_prin < (queryListaTitulosPR_QUITACAO_PRINCIPAL.AsInteger) then + begin + quit_prin := queryListaTitulosPR_QUITACAO_PRINCIPAL.AsInteger; + end; + if quit_multa < (queryListaTitulosPR_QUITACAO_MULTA.AsInteger) then + begin + quit_multa := queryListaTitulosPR_QUITACAO_MULTA.AsInteger; + end; + if quit_juros < (queryListaTitulosPR_QUITACAO_JUROS.AsInteger) then + begin + quit_juros := queryListaTitulosPR_QUITACAO_JUROS.AsInteger; + end; + if quit_cor < (queryListaTitulosPR_QUITACAO_COR.AsInteger) then + begin + quit_cor := queryListaTitulosPR_QUITACAO_COR.AsInteger; + end; + + if parc_ind < (queryListaTitulosPR_PARCELA_INDICADOR.AsInteger) then + begin + parc_ind := queryListaTitulosPR_PARCELA_INDICADOR.AsInteger; + end; + if parc_prin < (queryListaTitulosPR_PARCELA_PRINCIPAL.AsInteger) then + begin + parc_prin := queryListaTitulosPR_PARCELA_PRINCIPAL.AsInteger; + end; + if parc_multa < (queryListaTitulosPR_PARCELA_MULTA.AsInteger) then + begin + parc_multa := queryListaTitulosPR_PARCELA_MULTA.AsInteger; + end; + if parc_juros < (queryListaTitulosPR_PARCELA_JUROS.AsInteger) then + begin + parc_juros := queryListaTitulosPR_PARCELA_JUROS.AsInteger; + end; + if par_cor < (queryListaTitulosPR_PARCELA_COR.AsInteger) then + begin + par_cor := queryListaTitulosPR_PARCELA_COR.AsInteger; + end; + end; + end; + queryListaTitulos.EnableControls; + edt_somatitulos.Text := CurrToStrF(soma_nominal, ffCurrency, 2, + dtmSystem.CusFmt); + edt_indices.Text := CurrToStrF(soma_indices, ffCurrency, 2, dtmSystem.CusFmt); + edt_extras.Text := CurrToStrF(soma_encargos, ffCurrency, 2, dtmSystem.CusFmt); + // if cbx_txextra.Checked then + // begin + // soma_corrigido := soma_corrigido + StrToCurr(edt_txextra.Text); + // end; + edt_vlaquitar.Text := CurrToStrF(soma_corrigido, ffCurrency, 2, + dtmSystem.CusFmt); + if cbx_excentrada.Checked then + begin + edt_somaentrada.Text := CurrToStrF(StrToCurr(edt_excentrada.Text), + ffCurrency, 2, dtmSystem.CusFmt); + end + else + begin + edt_somaentrada.Text := CurrToStrF(soma_entrada, ffCurrency, 2, + dtmSystem.CusFmt); + end; + edt_somaindicador.Text := CurrToStrF(soma_indicador, ffCurrency, 2, + dtmSystem.CusFmt); + edt_somamulta.Text := CurrToStrF(soma_multas, ffCurrency, 2, + dtmSystem.CusFmt); + edt_somajuros.Text := CurrToStrF(soma_juros, ffCurrency, 2, dtmSystem.CusFmt); + up_nrparcelas.Max := n_parcelas; + lbl_maxpar.Caption := 'Mx: ' + inttostr(n_parcelas); + + ud_entrada.Min := minentrada; + ud_entrada.Max := maxentrada; + lbl_minentrada.Caption := 'Min: ' + inttostr(minentrada) + '%'; + lbl_maxentrada.Caption := 'Mx: ' + inttostr(maxentrada) + '%'; + + up_encquitar.Max := quit_ind; + lbl_maxindquit.Caption := 'Mx: ' + inttostr(quit_ind) + '%'; + up_principalquitar.Max := quit_prin; + lbl_maxprinquit.Caption := 'Mx: ' + inttostr(quit_prin) + '%'; + up_multasquitar.Max := quit_multa; + lbl_maxmultaquit.Caption := 'Mx: ' + inttostr(quit_multa) + '%'; + up_jurosquitar.Max := quit_juros; + lbl_maxjurosquit.Caption := 'Mx: ' + inttostr(quit_juros) + '%'; + ud_corquitar.Max := quit_cor; + lbl_maxquitcor.Caption := 'Mx: ' + inttostr(quit_cor) + '%'; + + up_encparcelas.Max := parc_ind; + lbl_maxindpar.Caption := 'Mx: ' + inttostr(parc_ind) + '%'; + up_principalparcelas.Max := parc_prin; + lbl_maxprinpar.Caption := 'Mx: ' + inttostr(parc_prin) + '%'; + up_multasparcelas.Max := parc_multa; + lbl_maxmultapar.Caption := 'Mx: ' + inttostr(parc_multa) + '%'; + up_jurosparcelas.Max := parc_juros; + lbl_maxjurospar.Caption := 'Mx: ' + inttostr(parc_juros) + '%'; + ud_corpar.Max := par_cor; + lbl_maxparcor.Caption := 'Mx: ' + inttostr(par_cor) + '%'; +end; + +procedure TfrmAtendimento.btn_fechamentoClick(Sender: TObject); +var + i, j, k, p, h: Integer; + parcela, valor, juros, dividendo, somatotal, a, entrada_helper, vl_helper, + { variveis novas } p_juros, p_multa, p_encargos, p_desc, p_cor, t_juros, + t_multa, t_encargos, t_desc, t_desc_prin, t_cor { variveis novas } + : currency; + n_marcou, selecionado: Boolean; + mes, ano: string; +begin + n_marcou := true; + for h := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + if clb_beneficiarioscalculo.Checked[h] then + begin + n_marcou := false; + dtmSystem.tblCHGEmpresa.Locate('TX_NOME', + clb_beneficiarioscalculo.Items[h], []); + id_emp := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; + break; + end; + end; + if n_marcou then + begin + Messagedlg('Por favor selecione a empresa a qual o cliente possi dbitos.', + mtWarning, [mbok], 0); + abort; + end; + selecionado := false; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked = true then + begin + selecionado := true; + break; + end; + end; + if not selecionado then + begin + Messagedlg + ('Por favor selecione um ttulo primeiro para realizar o atendimento.', + mtWarning, [mbok], 0); + abort; + end; + + if dtmSystem.tblEmpresaRepasse.IsEmpty then + begin + Showmessage('Esta empresa no possui nenhum repasse cadastrado.' + + ' Por favor contate a administrao.'); + abort; + end + else + begin + mes := copy(FormatDateTime('yyyy-mm-dd', dtp_atrasorecalc.Date), 6, 2); + ano := copy(FormatDateTime('yyyy-mm-dd', dtp_atrasorecalc.Date), 1, 4); + + if not dtmSystem.tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []) then + begin + Showmessage + ('Esta empresa no possui repasse para o ms da data de pagamento escolhida cadastrado.' + + ' Por favor contate a administrao.'); + abort; + end; + end; + + with TfrmFechamentoAtendimento.Create(self) do + begin + ShowModal; + if ModalResult = mrOk then + begin + atendimento := 'fechamento'; + pcDevedor.TabIndex := 6; + btn_protocoloClick(self); + quant_titulos := 0; + qtde_parcelas := strtoint(edt_nrparcelas.Text); + if forma_pagamento = 'Q' then + begin + btn_acordoin.Enabled := false; + btn_acordoout.Enabled := false; + btn_verrecibos.Enabled := true; + btn_concluir.Enabled := false; + end + else + begin + btn_acordoin.Enabled := true; + btn_acordoout.Enabled := true; + btn_verrecibos.Enabled := false; + btn_concluir.Enabled := false; + end; + lv_prevtitulos.Clear; + lv_fechamento.Clear; + obs_despesas := ''; + + dtmSystem.tblConteudoRecibo.Open; + if dtmSystem.tblConteudoRecibo.RecordCount <> 0 then + begin + dtmSystem.tblConteudoRecibo.Close; + queryConteudoRecibo.Close; + queryConteudoRecibo.SQL.Text := 'delete from SYS_CONTEUDO_RECIBO'; + queryConteudoRecibo.ExecSQL; + end; + dtmSystem.tblConteudoRecibo.Open; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + quant_titulos := quant_titulos + 1; + end; + end; + entrada_credvista := 0; + { variveis novas } + t_juros := 0; + t_multa := 0; + t_encargos := 0; + t_desc := 0; + t_desc_prin := 0; + t_cor := 0; + { variveis novas } + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + obs_despesas := obs_despesas + queryListaTitulosTX_DESPESA.AsString; + with lv_prevtitulos.Items.Add do + begin + Caption := queryListaTitulos.FieldByName('TX_PRODUTO').AsString; + SubItems.Add(CurrToStrF(queryListaTitulos.FieldByName('VL_TITULO') + .AsCurrency, ffCurrency, 2, dtmSystem.CusFmt)); + SubItems.Add + (CurrToStrF(queryListaTitulos.FieldByName('VL_CORRIGIDO') + .AsCurrency, ffCurrency, 2, dtmSystem.CusFmt)); + { variveis novas } + t_juros := t_juros + queryListaTitulosVL_JUROS.AsCurrency - + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency - + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency; + t_multa := t_multa + queryListaTitulosVL_MULTA.AsCurrency - + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency - + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency; + t_encargos := t_encargos + queryListaTitulosVL_INDICADOR.AsCurrency + - queryListaTitulosVL_DESC_QUIT_IND.AsCurrency - + queryListaTitulosVL_DESC_PAR_IND.AsCurrency; + t_desc_prin := t_desc_prin + queryListaTitulosVL_DESC_QUIT_PRIN. + AsCurrency + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency; + t_desc := t_desc + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency + + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency + + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency; + t_cor := t_cor + queryListaTitulosVL_CORRIGIDO.AsCurrency + { variveis novas } + end; + if (forma_pagamento = 'Q') or (parcelas_pagamento = 2) then + begin + if index_pagamento = 3 then + begin + dtmSystem.tblPrCartao.Locate('NR_PARCELA', 1, []); + // entrada_credvista := + // (((StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + // length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll]))) + + // ((StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + // length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll]))) * + // (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100))) - + // (StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + // length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])))) / + // quant_titulos; + entrada_credvista := + (((StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll]))) + + ((StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll]))) * + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100))) - + (StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])))) / + quant_titulos; + end; + dtmSystem.tblConteudoRecibo.Append; + dtmSystem.tblConteudoReciboTX_NOME.AsString := + queryListaTitulosTX_PRODUTO.AsString; + dtmSystem.tblConteudoReciboVL_PRINCIPAL.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_TITULO.AsCurrency)); + dtmSystem.tblConteudoReciboVL_JUROS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_JUROS.AsCurrency)); + dtmSystem.tblConteudoReciboVL_MULTA.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_MULTA.AsCurrency)); + dtmSystem.tblConteudoReciboVL_ENCARGOS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_INDICADOR.AsCurrency)); + dtmSystem.tblConteudoReciboVL_DESCONTOS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency)); + if (index_pagamento = 1) and (parcelas_pagamento = 2) then + begin + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_CORRIGIDO.AsCurrency)) + + queryListaTitulosVL_ENTRADA.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100); + end + else + begin + if index_pagamento = 3 then + begin + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_CORRIGIDO.AsCurrency)) + + entrada_credvista; + end + else + begin + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_CORRIGIDO.AsCurrency)); + end; + + if (parcelas_pagamento = 2) then + begin + dtmSystem.tblConteudoReciboVL_DESCONTOS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_PAR_IND.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency)); + end; + end; + // dtmSystem.tblConteudoReciboVL_DESPESA.AsCurrency := + // StrToCurr(formatfloat('0.##', + // queryListaTitulosVL_DESPESA.AsCurrency)); + // dtmSystem.tblConteudoReciboTX_DEPESA.AsString := + // queryListaTitulosTX_DESPESA.AsString; + if (index_pagamento = 1) and (parcelas_pagamento = 2) then + begin + dtmSystem.tblConteudoReciboVL_EXTRAS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_INDICES.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_EXTRAS.AsCurrency)) + + queryListaTitulosVL_ENTRADA.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100) + + entrada_credvista; + end + else + begin + dtmSystem.tblConteudoReciboVL_EXTRAS.AsCurrency := + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_INDICES.AsCurrency)) + + StrToCurr(formatfloat('0.##', + queryListaTitulosVL_EXTRAS.AsCurrency)) + entrada_credvista; + end; + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + queryListaTitulosDT_VENCIMENTO.AsDateTime; + dtmSystem.tblConteudoRecibo.Post; + end; + end; + end; + // if cbx_txextra.Checked then + // begin + // dtmSystem.tblConteudoRecibo.Append; + // dtmSystem.tblConteudoReciboTX_NOME.AsString := 'Taxa de Pagamento'; + // dtmSystem.tblConteudoReciboVL_PRINCIPAL.AsCurrency := + // StrToCurr(edt_txextra.Text); + // dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + // StrToCurr(edt_txextra.Text); + // dtmSystem.tblConteudoRecibo.Post; + // end; + + lv_prevtitulos.Columns[1].Alignment := TAlignment.taRightJustify; + lv_prevtitulos.Columns[2].Alignment := TAlignment.taRightJustify; + if (forma_pagamento = 'Q') or (parcelas_pagamento = 2) then + begin + lv_fechamento.Visible := false; + lbl_dpagamento.Visible := false; + somatotal := 0; + if somatotal <> 0 then + begin + edt_vltotal.Text := CurrToStrF(somatotal, ffCurrency, 2, + dtmSystem.CusFmt); + end + else + begin + edt_vltotal.Text := edt_vlaquitar.Text; + end; + end; + if (forma_pagamento = 'P') then + begin + lv_fechamento.Visible := true; + lbl_dpagamento.Visible := true; + somatotal := 0; + entrada_helper := 0; + for j := 0 to strtoint(edt_nrparcelas.Text) do + begin + with lv_fechamento.Items.Add do + begin + // if parcelas_pagamento <> 2 then + // begin + if j = 0 then + begin + Caption := 'Entrada'; + if index_pagamento = 1 then + begin + entrada_helper := + StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])); + SubItems.Add + (CurrToStrF(entrada_helper + (entrada_helper * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)), ffCurrency, 2, + dtmSystem.CusFmt)); + somatotal := somatotal + entrada_helper + + (entrada_helper * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + end + else + begin + if index_pagamento = 3 then + begin + dtmSystem.tblPrCartao.Locate('NR_PARCELA', 1, []); + entrada_helper := + StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll])); + // SubItems.Add + // (CurrToStrF(entrada_helper + (entrada_helper * + // (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100)), + // ffCurrency, 2, dtmSystem.CusFmt)); + // somatotal := somatotal + entrada_helper + + // (entrada_helper * + // (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100)); + SubItems.Add + (CurrToStrF(entrada_helper + (entrada_helper * + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100)), ffCurrency, + 2, dtmSystem.CusFmt)); + somatotal := somatotal + entrada_helper + + (entrada_helper * + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100)); + end + else + begin + SubItems.Add(edt_somaentrada.Text); + somatotal := somatotal + + (StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll]))); + end; + end; + SubItems.Add(DateToStr(data_parcelas[0])); + end + else + begin + if StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])) = 0.00 + then + begin + Caption := 'Parcela n ' + inttostr(j) + '/' + + edt_nrparcelas.Text; + SubItems.Add(CurrToStrF(parcelamento[j - 1], ffCurrency, 2, + dtmSystem.CusFmt)); + SubItems.Add(DateToStr(data_parcelas[j - 1])); + somatotal := somatotal + parcelamento[j - 1]; + end + else + begin + Caption := 'Parcela n ' + inttostr(j) + '/' + + edt_nrparcelas.Text; + SubItems.Add(CurrToStrF(parcelamento[j - 1], ffCurrency, 2, + dtmSystem.CusFmt)); + SubItems.Add(DateToStr(data_parcelas[j])); + somatotal := somatotal + parcelamento[j - 1]; + end; + end; + end; + end; + if somatotal <> 0 then + begin + edt_vltotal.Text := CurrToStrF(somatotal, ffCurrency, 2, + dtmSystem.CusFmt); + end + else + begin + edt_vltotal.Text := edt_vlaquitar.Text; + end; + if (parcelas_pagamento <> 2) then + begin + { variveis novas } + // if StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + // length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])) <> 0.00 + // then + // begin + // p_juros := p_juros / (lv_fechamento.Items.Count); + // p_multa := p_multa / (lv_fechamento.Items.Count); + // p_encargos := p_encargos / (lv_fechamento.Items.Count); + // p_desc := p_desc / (lv_fechamento.Items.Count); + // end + // else + // begin + // p_juros := p_juros / (lv_fechamento.Items.Count - 1); + // p_multa := p_multa / (lv_fechamento.Items.Count - 1); + // p_encargos := p_encargos / (lv_fechamento.Items.Count - 1); + // p_desc := p_desc / (lv_fechamento.Items.Count - 1); + // end; + { variveis novas } + for p := 0 to lv_fechamento.Items.Count - 1 do + begin + if p = 0 then + begin + if StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])) <> 0.00 + then + begin + dtmSystem.tblConteudoRecibo.Append; + dtmSystem.tblConteudoReciboTX_NOME.AsString := 'Entrada'; + if index_pagamento = 1 then + begin + vl_helper := + StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll])); + p_juros := (vl_helper * t_juros) / t_cor; + p_multa := (vl_helper * t_multa) / t_cor; + p_encargos := (vl_helper * t_encargos) / t_cor; + p_desc := (vl_helper * t_desc_prin) / t_cor; + dtmSystem.tblConteudoReciboVL_PRINCIPAL.AsCurrency := + vl_helper { variveis novas } - p_juros - p_multa - + p_encargos + p_desc { variveis novas }; + dtmSystem.tblConteudoReciboVL_EXTRAS.AsCurrency := + (vl_helper * (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + vl_helper + + (vl_helper * (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + end + else + begin + if index_pagamento = 3 then + begin + vl_helper := + StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll])); + p_juros := (vl_helper * t_juros) / t_cor; + p_multa := (vl_helper * t_multa) / t_cor; + p_encargos := (vl_helper * t_encargos) / t_cor; + p_desc := (vl_helper * t_desc_prin) / t_cor; + dtmSystem.tblConteudoReciboVL_PRINCIPAL.AsCurrency := + vl_helper { variveis novas } - p_juros - p_multa - + p_encargos + p_desc { variveis novas }; + dtmSystem.tblPrCartao.Locate('NR_PARCELA', 1, []); + // dtmSystem.tblConteudoReciboVL_EXTRAS.AsCurrency := + // (vl_helper * + // (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100)); + // dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + // vl_helper + + // (vl_helper * + // (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100)); + dtmSystem.tblConteudoReciboVL_EXTRAS.AsCurrency := + (vl_helper * + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100)); + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + vl_helper + + (vl_helper * + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100)); + end + else + begin + vl_helper := + StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll])); + p_juros := (vl_helper * t_juros) / t_cor; + p_multa := (vl_helper * t_multa) / t_cor; + p_encargos := (vl_helper * t_encargos) / t_cor; + p_desc := (vl_helper * t_desc_prin) / t_cor; + dtmSystem.tblConteudoReciboVL_PRINCIPAL.AsCurrency := + vl_helper { variveis novas } - p_juros - p_multa - + p_encargos + p_desc { variveis novas }; + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + vl_helper; + end; + end; + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + StrToDate(FormatDateTime('dd/mm/yyyy', data_parcelas[0])); + { variveis novas } + dtmSystem.tblConteudoReciboVL_JUROS.AsCurrency := p_juros; + dtmSystem.tblConteudoReciboVL_MULTA.AsCurrency := p_multa; + dtmSystem.tblConteudoReciboVL_ENCARGOS.AsCurrency := p_encargos; + dtmSystem.tblConteudoReciboVL_DESCONTOS.AsCurrency := p_desc; + { variveis novas } + dtmSystem.tblConteudoRecibo.Post; + end; + end + else + begin + case parcelas_pagamento of + 3: // cheque + begin + dtmSystem.tblConteudoRecibo.Append; + dtmSystem.tblConteudoReciboTX_NOME.AsString := + lv_fechamento.Items[p].Caption; + vl_helper := + StrToCurr(stringreplace + (copy(lv_fechamento.Items[p].SubItems[0], 4, + length(lv_fechamento.Items[p].SubItems[0]) - 3), '.', '', + [rfReplaceAll])); + p_juros := (vl_helper * t_juros) / t_cor; + p_multa := (vl_helper * t_multa) / t_cor; + p_encargos := (vl_helper * t_encargos) / t_cor; + p_desc := (vl_helper * t_desc_prin) / t_cor; + dtmSystem.tblConteudoReciboVL_PRINCIPAL.AsCurrency := + vl_helper { variveis novas } - p_juros - p_multa - + p_encargos + p_desc { variveis novas }; + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + vl_helper; + if StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll] + )) = 0.0 then + begin + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + StrToDate(FormatDateTime('dd/mm/yyyy', + data_parcelas[p - 1])); + end + else + begin + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + StrToDate(FormatDateTime('dd/mm/yyyy', + data_parcelas[p])); + end; + { variveis novas } + dtmSystem.tblConteudoReciboVL_JUROS.AsCurrency := p_juros; + dtmSystem.tblConteudoReciboVL_MULTA.AsCurrency := p_multa; + dtmSystem.tblConteudoReciboVL_ENCARGOS.AsCurrency := + p_encargos; + dtmSystem.tblConteudoReciboVL_DESCONTOS.AsCurrency + := p_desc; + { variveis novas } + dtmSystem.tblConteudoRecibo.Post; + end; + 2: // parcelas no crdito + begin + dtmSystem.tblConteudoRecibo.Append; + dtmSystem.tblConteudoReciboTX_NOME.AsString := + lv_fechamento.Items[p].Caption; + vl_helper := + StrToCurr(stringreplace + (copy(lv_fechamento.Items[p].SubItems[0], 4, + length(lv_fechamento.Items[p].SubItems[0]) - 3), '.', '', + [rfReplaceAll])); + dtmSystem.tblConteudoReciboVL_PRINCIPAL.AsCurrency := + vl_helper; + dtmSystem.tblConteudoReciboVL_CORRIGIDO.AsCurrency := + vl_helper; + if StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll] + )) = 0.0 then + begin + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + StrToDate(FormatDateTime('dd/mm/yyyy', + data_parcelas[p - 1])); + end + else + begin + dtmSystem.tblConteudoReciboDT_VENCIMENTO.AsDateTime := + StrToDate(FormatDateTime('dd/mm/yyyy', + data_parcelas[p])); + end; + dtmSystem.tblConteudoRecibo.Post; + end; + end; + end; + end; + if somatotal <> 0 then + begin + edt_vltotal.Text := CurrToStrF(somatotal, ffCurrency, 2, + dtmSystem.CusFmt); + end + else + begin + edt_vltotal.Text := edt_vlaquitar.Text; + end; + end; + end; + end; + end; + fez_recibo := false; +end; + +procedure TfrmAtendimento.btn_pesquisarClick(Sender: TObject); +var + string_query, tx_pesquisa, help_cpfcnpj: string; +begin + try + if edt_campop.Text <> '' then + begin + tx_pesquisa := Ansiuppercase(stringreplace(edt_campop.Text, ' ', '%', + [rfReplaceAll])); + + string_query := + 'select tx_nome, tx_pai, tx_mae, case when TP_CLIENTE = ''F'' ' + + 'then CD_CPF when TP_CLIENTE = ''J'' then CD_CNPJ end as TX_DOCUMENTO from chg_devedores where '; + case cbx_tiponome.ItemIndex of + 0: + begin + string_query := string_query + + 'upper(TX_NOME COLLATE WIN_PTBR) LIKE ' + + QuotedStr(tx_pesquisa + '%') + ' ORDER BY TX_NOME '; + end; + 1: + begin + string_query := string_query + 'upper(TX_PAI) LIKE ' + + QuotedStr(tx_pesquisa + '%') + ' ORDER BY TX_NOME '; + end; + 2: + begin + string_query := string_query + 'upper(TX_MAE) LIKE ' + + QuotedStr(tx_pesquisa + '%') + ' ORDER BY TX_NOME '; + end; + 3: + begin + tx_pesquisa := stringreplace(tx_pesquisa, '.', '', [rfReplaceAll]); + tx_pesquisa := stringreplace(tx_pesquisa, '-', '', [rfReplaceAll]); + tx_pesquisa := stringreplace(tx_pesquisa, '/', '', [rfReplaceAll]); + if length(tx_pesquisa) < 14 then + begin + help_cpfcnpj := copy(tx_pesquisa, 1, 3) + '.' + + copy(tx_pesquisa, 4, 3) + '.' + copy(tx_pesquisa, 7, 3) + '-' + + RightStr(tx_pesquisa, 2); + string_query := string_query + 'CD_CPF like ' + + QuotedStr(help_cpfcnpj) + ' order by tx_nome '; + end + else if length(tx_pesquisa) >= 14 then + begin + help_cpfcnpj := copy(tx_pesquisa, 1, 2) + '.' + + copy(tx_pesquisa, 3, 3) + '.' + copy(tx_pesquisa, 6, 3) + '/' + + copy(tx_pesquisa, 9, 4) + '-' + RightStr(tx_pesquisa, 2); + string_query := string_query + 'CD_CNPJ like ' + + QuotedStr(help_cpfcnpj) + ' order by tx_nome '; + end; + end; + 4: + begin + string_query := string_query + + 'ID_DEVEDOR in (select id_devedor from chg_titulos where cd_devedor like ' + + QuotedStr('%' + tx_pesquisa + '%') + ')'; + end; + 5: + begin + if copy(tx_pesquisa, 1, 1) <> '(' then + begin + tx_pesquisa := '(' + tx_pesquisa; + end; + if copy(tx_pesquisa, 4, 1) <> ')' then + begin + tx_pesquisa := copy(tx_pesquisa, 1, 3) + ')' + + copy(tx_pesquisa, 4, 15); + end; + if copy(tx_pesquisa, 9, 1) <> '-' then + begin + tx_pesquisa := copy(tx_pesquisa, 1, 8) + '-' + + copy(tx_pesquisa, 9, 15); + end; + if (length(tx_pesquisa) < 13) or (length(tx_pesquisa) > 14) then + begin + Messagedlg('Nmero de telefone invlido.', mtWarning, [mbok], 0); + exit; + end; + string_query := string_query + + 'ID_DEVEDOR in (SELECT ID_DEVEDOR FROM CHG_TELEFONES WHERE NR_NUMERO like ' + + QuotedStr(tx_pesquisa) + ')'; + end; + end; + end; + + with qryPesquisa do + begin + Close; + SQL.Text := string_query; + + Open; + end; + dbgrd_pesquisar.Columns[0].FieldName := 'tx_nome'; + dbgrd_pesquisar.Columns[0].Title.Caption := 'Nome do Devedor'; + dbgrd_pesquisar.Columns[1].FieldName := 'tx_pai'; + dbgrd_pesquisar.Columns[1].Title.Caption := 'Nome do Pai'; + dbgrd_pesquisar.Columns[2].FieldName := 'tx_mae'; + dbgrd_pesquisar.Columns[2].Title.Caption := 'Nome da Me'; + except + end; +end; + +procedure TfrmAtendimento.btn_protocoloClick(Sender: TObject); +begin + if edt_protocolo.Text = '' then + begin + edt_protocolo.Text := dtmSystem.gerarProtocolo + (dtmSystem.tblDevedoresID_DEVEDOR.AsString); + edt_protocolo1.Text := edt_protocolo.Text; + btn_protocolo.Enabled := false; + end; +end; + +procedure TfrmAtendimento.btn_verprotocoloClick(Sender: TObject); +begin + // CarregaProtocolo; +end; + +procedure TfrmAtendimento.btn_verrecibosClick(Sender: TObject); +var + old_nr: Integer; + tot: double; +begin + Screen.Cursor := crHourGlass; + with dtmSystem do + begin + tot := 0; + log_recibo := TStringList.Create; + if not(FileExists(ExtractFilePath(Application.ExeName) + 'log_recibo' + + inttostr(dtmSystem.id_usuario) + '.txt')) then + begin + log_recibo.Add('###############'); + log_recibo.Add(DateTimeToStr(Now)); + end + else + begin + log_recibo.LoadFromFile(ExtractFilePath(Application.ExeName) + + 'log_recibo' + inttostr(dtmSystem.id_usuario) + '.txt'); + log_recibo.Add('###############'); + log_recibo.Add(DateTimeToStr(Now)); + end; + if not tblRecibo.Active then + begin + tblRecibo.Open; + log_recibo.Add('Open na tabela'); + end + else + begin + tblRecibo.Refresh; + log_recibo.Add('Refresh na tabela'); + end; + tblRecibo.Last; + log_recibo.Add('Last na tabela'); + old_nr := tblReciboNR_RECIBO.AsInteger; + log_recibo.Add('N do ltimo recibo: ' + tblReciboNR_RECIBO.AsString); + tblConteudoRecibo.Open; + if tblConteudoRecibo.IsEmpty then + begin + Messagedlg('No h recibos a serem gerados atualmente.', mtWarning, + [mbok], 0); + end + else + begin + tblConteudoRecibo.Filtered := false; + tblConteudoRecibo.RecNo := 1; + while not tblConteudoRecibo.Eof do + begin + tot := tot + tblConteudoReciboVL_CORRIGIDO.AsCurrency; + tblConteudoRecibo.Next; + end; + tblConteudoRecibo.RecNo := 1; + // zroqryRecibos.SQL.Clear; + // zroqryRecibos.SQL.Text := 'select * from sys_recibos'; + // zroqryRecibos.Open; + // if zroqryRecibos.RecordCount = 0 then + // begin + // tblRecibo.Append; + // tblReciboNR_RECIBO.AsString := '000001'; + // tblReciboTX_NOME.AsString := 'temp'; + // tblRecibo.Post; + // end; + // if not zroqryRecibos.Locate('TX_NOME', 'temp', []) then + // begin + // zroqryRecibos.SQL.Clear; + // zroqryRecibos.SQL.Text := + // 'select nr_recibo from sys_recibos where id_recibo = (select MAX(id_recibo) from sys_recibos)'; + // zroqryRecibos.Open; + // end; + zroqryRecibos.Open; + zroqryRecibos.Refresh; + // old_nr := zroqryRecibos.FieldByName('NR_RECIBO').AsInteger; + + if (forma_pagamento = 'Q') or (parcelas_pagamento = 2) then + begin + { if tblReciboTX_NOME.AsString <> 'temp' then + begin } + // nr_recibo := Format('%.*d', [6, old_nr + 1]); + nr_recibo := Format('%.*d', [6, seqRecibos.GetCurrentValue + 1]); + log_recibo.Add('N do novo recibo: ' + nr_recibo); + tblRecibo.Append; + tblReciboDT_IMPRESSAO.AsDateTime := Date; + tblReciboTX_CPF.AsString := tblDevedoresCD_CPF.AsString; + tblReciboTX_CNPJ.AsString := tblDevedoresCD_CNPJ.AsString; + tblReciboNR_RECIBO.AsString := nr_recibo; + tblReciboTX_NOME.AsString := dtsDevedores.DataSet.FieldByName('TX_NOME') + .AsString + '- Quitao'; + + // tblRecibo.Post; + // new_nr := tblReciboID_RECIBO.AsInteger; + + // tblRecibo.RecNo := tblRecibo.RecordCount; + { end + else + begin + tblRecibo.Edit; + tblReciboDT_IMPRESSAO.AsDateTime := Date; + tblReciboTX_CPF.AsString := tblDevedoresCD_CPF.AsString; + tblReciboTX_CNPJ.AsString := tblDevedoresCD_CNPJ.AsString; + tblReciboTX_NOME.AsString := dtsDevedores.DataSet.FieldByName + ('TX_NOME').AsString + '- Quitao'; + tblRecibo.Post; + new_nr := tblReciboID_RECIBO.AsInteger; + end; } + // tblRecibo.Filter := 'ID_RECIBO = ' + inttostr(tblRecibo.RecNo); + { tblRecibo.Filter := 'ID_RECIBO = ' + inttostr(new_nr); + tblRecibo.Filtered := true; + id_recibo := tblReciboNR_RECIBO.AsString; + + tblRecibo.Edit; } + tblReciboID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblReciboVL_TOTAL.AsCurrency := + StrToCurr(stringreplace(copy(edt_vltotal.Text, 4, + length(edt_vltotal.Text) - 3), '.', '', [rfReplaceAll])); + while not(tblConteudoRecibo.Eof) do + begin + tblReciboVL_PRINCIPAL.AsCurrency := tblReciboVL_PRINCIPAL.AsCurrency + + tblConteudoReciboVL_PRINCIPAL.AsCurrency; + tblReciboVL_JUROS.AsCurrency := tblReciboVL_JUROS.AsCurrency + + tblConteudoReciboVL_JUROS.AsCurrency; + tblReciboVL_MULTA.AsCurrency := tblReciboVL_MULTA.AsCurrency + + tblConteudoReciboVL_MULTA.AsCurrency; + tblReciboVL_ENCARGOS.AsCurrency := tblReciboVL_ENCARGOS.AsCurrency + + tblConteudoReciboVL_ENCARGOS.AsCurrency; + tblReciboVL_DESCONTOS.AsCurrency := tblReciboVL_DESCONTOS.AsCurrency + + tblConteudoReciboVL_DESCONTOS.AsCurrency; + tblReciboVL_CORRIGIDO.AsCurrency := tblReciboVL_CORRIGIDO.AsCurrency + + tblConteudoReciboVL_CORRIGIDO.AsCurrency; + tblConteudoRecibo.Next; + end; + if index_pagamento = 2 then + begin + tblReciboTP_RECEBIMENTO.AsInteger := 3; + end + else + begin + tblReciboTP_RECEBIMENTO.AsInteger := index_pagamento; + end; + tblReciboID_USUARIO.AsInteger := id_usuario; + tblRecibo.Post; + + relRecibo := TrelRecibo.Create(self); + with relRecibo do + begin + nr_recibo_print := dtmSystem.tblReciboNR_RECIBO.AsString; + frlbl_nr_reciboprimeiravia.Caption := nr_recibo_print; + frlbl_nr_recibosegundavia.Caption := nr_recibo_print; + if dtsDevedor.DataSet.FieldByName('CD_CPF').AsString = '' then + begin + frdblbl_cpf.Text := ' CPNJ: '; + frdblbl_cpf.DataField := 'CD_CNPJ'; + frdblbl_cpf2v.Text := ' CPNJ: '; + frdblbl_cpf2v.DataField := 'CD_CNPJ'; + end; + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', id_emp, []); + frlbl_empresatit.Caption := frlbl_empresatit.Caption + + dtmSystem.tblCHGEmpresaTX_NOME.AsString + ' '; + frlbl_empresatit2v.Caption := frlbl_empresatit2v.Caption + + dtmSystem.tblCHGEmpresaTX_NOME.AsString + ' '; + frdblbl_nome.left := frlbl_recebemos.left + frlbl_recebemos.Width + 5; + frdblbl_nome2v.left := frdblbl_nome.left; + frlbl_valortot.Caption := frlbl_valortot.Caption + + CurrToStrF(tot, ffCurrency, 2); + frlbl_valortot2v.Caption := frlbl_valortot.Caption; + frlbl_vlextenso.left := frlbl_valortot.Width + 5; + frlbl_vlextenso2v.left := frlbl_vlextenso.left; + frlbl_dtpag.Caption := frlbl_dtpag.Caption + + DateToStr(dtp_atrasorecalc.Date); + frlbl_dtpag2v.Caption := frlbl_dtpag2v.Caption + + DateToStr(dtp_atrasorecalc.Date); + + frlbl_vlextenso.Caption := '(' + valorPorExtenso(tot) + ')'; + frlbl_vlextenso2v.Caption := frlbl_vlextenso.Caption; + frlbl_formarecebimento.Caption := frlbl_formarecebimento.Caption + + edt_formarecebimento.Text; + frlbl_formarecebimento2v.Caption := frlbl_formarecebimento.Caption; + + if mem_obsrecibo.Lines.Text <> '' then + begin + fr_membobs.Lines.Add('Observaes: ' + mem_obsrecibo.Lines.Text); + fr_membobs2v.Lines.Add('Observaes: ' + mem_obsrecibo.Lines.Text); + end; + if index_pagamento = 2 then + begin + frpnl_cheque.Visible := true; + frpnl_cheque2v.Visible := true; + if edt_nrchequerecibo.Text <> '' then + begin + frlbl_nrcheque.Caption := frlbl_nrcheque.Caption + + edt_nrchequerecibo.Text; + frlbl_nrcheque2v.Caption := frlbl_nrcheque.Caption; + end; + if edt_bancorecibo.Text <> '' then + begin + frlbl_banco.Caption := frlbl_banco.Caption + edt_bancorecibo.Text; + frlbl_banco2v.Caption := frlbl_banco.Caption; + end; + if edt_pracarecibo.Text <> '' then + begin + frlbl_praca.Caption := frlbl_praca.Caption + edt_pracarecibo.Text; + frlbl_praca2v.Caption := frlbl_praca.Caption; + end; + end; + dtmSystem.tblEstados.Locate('ID_ESTADO', + dtmSystem.tblEmpresaID_ESTADO.AsString, []); + dtmSystem.tblCidades.Locate('ID_CIDADE', + dtmSystem.tblEmpresaID_CIDADE.AsString, []); + frlbl_headerbot.Caption := + UpperCase(dtmSystem.tblEmpresaTX_ENDERECO.AsString + ' ' + + dtmSystem.tblEmpresaNR_NUMERO.AsString + ' ' + + dtmSystem.tblEmpresaTX_COMPLEMENTO.AsString + ' - ' + + dtmSystem.tblEmpresaTX_BAIRRO.AsString + ' - ' + + dtmSystem.tblCidadesTX_NOME.AsString + ' - ' + + dtmSystem.tblEstadosTX_SIGLA.AsString + ' - TEL: ' + + dtmSystem.tblEmpresaTX_TELEFONE.AsString); + frlbl_headerbot2v.Caption := frlbl_headerbot.Caption; + frlbl_headertop.Caption := + UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + ' - CNPJ: ' + + dtmSystem.tblEmpresaTX_CNPJ.AsString); + frlbl_headertop2v.Caption := frlbl_headertop.Caption; + if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then + begin + frpnl_logo.Height := 100; + frpnl_logo.Width := 75; + frpnl_logo2v.Height := 100; + frpnl_logo2v.Width := 75; + end; + if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then + begin + frpnl_logo.Height := 75; + frpnl_logo.Width := 100; + frpnl_logo2v.Height := 75; + frpnl_logo2v.Width := 100; + end; + if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then + begin + frpnl_logo.Height := 100; + frpnl_logo.Width := 100; + frpnl_logo2v.Height := 100; + frpnl_logo2v.Width := 100; + end; + Screen.Cursor := crDefault; + frRecibo.PreviewModal; + end; + end + else + begin + + // if tipo_parcelamento = 'P' then + // begin + // if tblReciboTX_NOME.AsString <> 'temp' then + // begin + // tblRecibo.Append; + // tblReciboDT_IMPRESSAO.AsDateTime := Date; + // tblReciboTX_CPF.AsString := tblDevedoresCD_CPF.AsString; + // tblReciboTX_CNPJ.AsString := tblDevedoresCD_CNPJ.AsString; + // // tblReciboNR_RECIBO.AsString := + // // Format('%.*d', [6, strtoint(old_nr) + 1]); + // tblReciboNR_RECIBO.AsString := Format('%.*d', [6, old_nr + 1]); + // tblReciboTX_NOME.AsString := dtsDevedores.DataSet.FieldByName + // ('TX_NOME').AsString + '- Parcelamento'; + // tblRecibo.Post; + // // tblRecibo.RecNo := tblRecibo.RecordCount; + // new_nr := tblReciboID_RECIBO.AsInteger; + // end + // else + // begin + // tblRecibo.Edit; + // tblReciboDT_IMPRESSAO.AsDateTime := Date; + // tblReciboTX_CPF.AsString := tblDevedoresCD_CPF.AsString; + // tblReciboTX_CNPJ.AsString := tblDevedoresCD_CNPJ.AsString; + // tblReciboTX_NOME.AsString := dtsDevedores.DataSet.FieldByName + // ('TX_NOME').AsString + '- Parcelamento'; + // tblRecibo.Post; + // new_nr := tblReciboID_RECIBO.AsInteger; + // end; + // end + // else + // begin + // if tblReciboTX_NOME.AsString <> 'temp' then + // begin + tblRecibo.Append; + tblReciboDT_IMPRESSAO.AsDateTime := Date; + tblReciboTX_CPF.AsString := tblDevedoresCD_CPF.AsString; + tblReciboTX_CNPJ.AsString := tblDevedoresCD_CNPJ.AsString; + // tblReciboNR_RECIBO.AsString := + // Format('%.*d', [6, strtoint(old_nr) + 1]); + // nr_recibo := Format('%.*d', [6, old_nr + 1]); + nr_recibo := Format('%.*d', [6, seqRecibos.GetCurrentValue + 1]); + log_recibo.Add('N do novo recibo: ' + nr_recibo); + tblReciboNR_RECIBO.AsString := nr_recibo; + tblReciboTX_NOME.AsString := dtsDevedores.DataSet.FieldByName('TX_NOME') + .AsString + '- Financiamento'; + // tblRecibo.Post; + // new_nr := tblReciboID_RECIBO.AsInteger; + // tblRecibo.RecNo := tblRecibo.RecordCount; + // end + // else + // begin + // tblRecibo.Edit; + // tblReciboDT_IMPRESSAO.AsDateTime := Date; + // tblReciboTX_CPF.AsString := tblDevedoresCD_CPF.AsString; + // tblReciboTX_CNPJ.AsString := tblDevedoresCD_CNPJ.AsString; + // tblReciboTX_NOME.AsString := dtsDevedores.DataSet.FieldByName + // ('TX_NOME').AsString + '- Financiamento'; + // tblRecibo.Post; + // new_nr := tblReciboID_RECIBO.AsInteger; + // end; + // end; + + // tblRecibo.Edit; + tblReciboID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblReciboVL_TOTAL.AsCurrency := + StrToCurr(stringreplace(copy(edt_vltotal.Text, 4, + length(edt_vltotal.Text) - 3), '.', '', [rfReplaceAll])); + while not tblConteudoRecibo.Eof do + begin + tblReciboVL_PRINCIPAL.AsCurrency := tblReciboVL_PRINCIPAL.AsCurrency + + tblConteudoReciboVL_PRINCIPAL.AsCurrency; + tblReciboVL_JUROS.AsCurrency := tblReciboVL_JUROS.AsCurrency + + tblConteudoReciboVL_JUROS.AsCurrency; + tblReciboVL_MULTA.AsCurrency := tblReciboVL_MULTA.AsCurrency + + tblConteudoReciboVL_MULTA.AsCurrency; + tblReciboVL_ENCARGOS.AsCurrency := tblReciboVL_ENCARGOS.AsCurrency + + tblConteudoReciboVL_ENCARGOS.AsCurrency; + tblReciboVL_DESCONTOS.AsCurrency := tblReciboVL_DESCONTOS.AsCurrency + + tblConteudoReciboVL_DESCONTOS.AsCurrency; + tblReciboVL_CORRIGIDO.AsCurrency := tblReciboVL_CORRIGIDO.AsCurrency + + tblConteudoReciboVL_CORRIGIDO.AsCurrency; + tblConteudoRecibo.Next; + end; + if index_pagamento = 2 then + begin + tblReciboTP_RECEBIMENTO.AsInteger := 3; + end + else + begin + tblReciboTP_RECEBIMENTO.AsInteger := index_pagamento; + end; + tblReciboID_USUARIO.AsInteger := id_usuario; + tblRecibo.Post; + if StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])) <> -1 + then + begin + // tblRecibo.Filter := 'ID_RECIBO = ' + recibos_parcelas[i]; + // tblRecibo.Filtered := true; + { + tblConteudoRecibo.Filter := 'ID_CONTEUDO = ' + inttostr(i + 1); + tblConteudoRecibo.Filtered := true; } + // id_recibo := tblReciboNR_RECIBO.AsString; + relRecibo := TrelRecibo.Create(self); + with relRecibo do + begin + nr_recibo_print := dtmSystem.tblReciboNR_RECIBO.AsString; + frlbl_nr_reciboprimeiravia.Caption := nr_recibo_print; + frlbl_nr_recibosegundavia.Caption := nr_recibo_print; + if dtsDevedor.DataSet.FieldByName('CD_CPF').AsString = '' then + begin + frdblbl_cpf.Text := ' CPNJ: '; + frdblbl_cpf.DataField := 'CD_CNPJ'; + frdblbl_cpf2v.Text := ' CPNJ: '; + frdblbl_cpf2v.DataField := 'CD_CNPJ'; + end; + if acordo_fora then + begin + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', acordo_emp, []); + end + else + begin + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', id_emp, []); + end; + frlbl_empresatit.Caption := frlbl_empresatit.Caption + + dtmSystem.tblCHGEmpresaTX_NOME.AsString + ' '; + frlbl_empresatit2v.Caption := frlbl_empresatit2v.Caption + + dtmSystem.tblCHGEmpresaTX_NOME.AsString + ' '; + frdblbl_nome.left := frlbl_recebemos.left + + frlbl_recebemos.Width + 5; + frdblbl_nome2v.left := frdblbl_nome.left; + // frdblbl_cpf.left := frdblbl_nome.left + frdblbl_nome.Width + 10; + // frdblbl_cpf2v.left := frdblbl_cpf.left; + // frlbl_valortot.Caption := frlbl_valortot.Caption + edt_vltotal.Text; + frlbl_valortot.Caption := frlbl_valortot.Caption + + CurrToStrF(tot, ffCurrency, 2); + frlbl_valortot2v.Caption := frlbl_valortot.Caption; + frlbl_vlextenso.left := frlbl_valortot.Width + 5; + frlbl_vlextenso2v.left := frlbl_vlextenso.left; + // frlbl_vlextenso.Caption := '(' + + // valorPorExtenso(strtofloat(copy(stringreplace(edt_vltotal.Text, '.', + // '', []), 4, length(edt_vltotal.Text) - 3))) + ')'; + frlbl_vlextenso.Caption := '(' + valorPorExtenso(tot) + ')'; + frlbl_vlextenso2v.Caption := frlbl_vlextenso.Caption; + frlbl_formarecebimento.Caption := frlbl_formarecebimento.Caption + + edt_formarecebimento.Text; + frlbl_dtpag.Caption := frlbl_dtpag.Caption + + DateToStr(dtp_atrasorecalc.Date); + frlbl_dtpag2v.Caption := frlbl_dtpag2v.Caption + + DateToStr(dtp_atrasorecalc.Date); + frlbl_formarecebimento2v.Caption := frlbl_formarecebimento.Caption; + // fr_membobs.Lines.Clear; + // fr_membobs2v.Lines.Clear; + if cbx_despesas.Checked then + begin + if mem_obsrecibo.Lines.Text <> '' then + begin + fr_membobs.Lines.Add('Observaes: ' + obs_despesas + ' ' + + mem_obsrecibo.Lines.Text); + fr_membobs2v.Lines.Add('Observaes: ' + obs_despesas + ' ' + + mem_obsrecibo.Lines.Text); + end; + end + else + begin + if mem_obsrecibo.Lines.Text <> '' then + begin + fr_membobs.Lines.Add('Observaes: ' + + mem_obsrecibo.Lines.Text); + fr_membobs2v.Lines.Add('Observaes: ' + + mem_obsrecibo.Lines.Text); + end; + end; + if index_pagamento = 3 then + begin + frpnl_cheque.Visible := true; + // frlbl_obscheque.Visible := true; + frpnl_cheque2v.Visible := true; + // frlbl_obscheque2v.Visible := true; + if edt_nrchequerecibo.Text <> '' then + begin + frlbl_nrcheque.Caption := frlbl_nrcheque.Caption + + edt_nrchequerecibo.Text; + frlbl_nrcheque2v.Caption := frlbl_nrcheque.Caption; + end; + if edt_bancorecibo.Text <> '' then + begin + frlbl_banco.Caption := frlbl_banco.Caption + + edt_bancorecibo.Text; + frlbl_banco2v.Caption := frlbl_banco.Caption; + end; + if edt_pracarecibo.Text <> '' then + begin + frlbl_praca.Caption := frlbl_praca.Caption + + edt_pracarecibo.Text; + frlbl_praca2v.Caption := frlbl_praca.Caption; + end; + end; + dtmSystem.tblEstados.Locate('ID_ESTADO', + dtmSystem.tblEmpresaID_ESTADO.AsString, []); + dtmSystem.tblCidades.Locate('ID_CIDADE', + dtmSystem.tblEmpresaID_CIDADE.AsString, []); + frlbl_headerbot.Caption := + UpperCase(dtmSystem.tblEmpresaTX_ENDERECO.AsString + ' ' + + dtmSystem.tblEmpresaNR_NUMERO.AsString + ' ' + + dtmSystem.tblEmpresaTX_COMPLEMENTO.AsString + ' - ' + + dtmSystem.tblEmpresaTX_BAIRRO.AsString + ' - ' + + dtmSystem.tblCidadesTX_NOME.AsString + ' - ' + + dtmSystem.tblEstadosTX_SIGLA.AsString + ' - TEL: ' + + dtmSystem.tblEmpresaTX_TELEFONE.AsString); + frlbl_headerbot2v.Caption := frlbl_headerbot.Caption; + frlbl_headertop.Caption := + UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + ' - CNPJ: ' + + dtmSystem.tblEmpresaTX_CNPJ.AsString); + frlbl_headertop2v.Caption := frlbl_headertop.Caption; + if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then + begin + frpnl_logo.Height := 100; + frpnl_logo.Width := 75; + frpnl_logo2v.Height := 100; + frpnl_logo2v.Width := 75; + end; + if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then + begin + frpnl_logo.Height := 75; + frpnl_logo.Width := 100; + frpnl_logo2v.Height := 75; + frpnl_logo2v.Width := 100; + end; + if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then + begin + frpnl_logo.Height := 100; + frpnl_logo.Width := 100; + frpnl_logo2v.Height := 100; + frpnl_logo2v.Width := 100; + end; + Screen.Cursor := crDefault; + frRecibo.PreviewModal; + end; + end; + if parcelas_pagamento = 4 then + begin + // OpenOfficeDocument(ExtractFilePath(Application.ExeName) + 'ACORDOS\' + + // 'teste.docx'); + OpenOfficeDocument(dtmSystem.path_executavel + '\ACORDOS\' + + 'teste.docx'); + end; + end; + log_recibo.Add('Close na tabela.'); + tblRecibo.Close; + fez_recibo := true; + end; + end; + log_recibo.SaveToFile(ExtractFilePath(Application.ExeName) + 'log_recibo' + + inttostr(dtmSystem.id_usuario) + '.txt'); + btn_concluir.Enabled := true; + btn_verrecibos.Enabled := false; + if FileExists(ExtractFilePath(Application.ExeName) + '000001.pdf') then + begin + Showmessage('Erro ao gerar recibo. Por favor contate o suporte.'); + end; + Screen.Cursor := crDefault; +end; + +procedure TfrmAtendimento.btn_acordoinClick(Sender: TObject); +begin + Screen.Cursor := crHourGlass; + // OpenOfficeDocument(ExtractFilePath(Application.ExeName) + 'ACORDOS\' + + // 'acordo_financ.doc'); + OpenOfficeDocument(dtmSystem.path_executavel + '\ACORDOS\' + + 'acordo_financ.doc'); + Screen.Cursor := crDefault; + btn_verrecibos.Enabled := true; +end; + +procedure TfrmAtendimento.btn_acordooutClick(Sender: TObject); +var + strFolder: string; +begin + // strFolder := ExtractFilePath(Application.ExeName) + 'ACORDOS'; + strFolder := dtmSystem.path_executavel + '\ACORDOS'; + if not DirectoryExists(strFolder) then + begin + CreateDir(strFolder); + end; + ShellExecute(Application.Handle, PChar('explore'), PChar(strFolder), nil, nil, + SW_SHOWNORMAL); + btn_verrecibos.Enabled := true; +end; + +procedure TfrmAtendimento.btn_amostraClick(Sender: TObject); +var + // i: Integer; + // id_titulos: string; + // nao_select: Boolean; + i, j: Integer; + str_filter: string; +begin + if queryListaTitulos.IsEmpty then + begin + Messagedlg('Por favor selecione uma empresa.', mtWarning, [mbok], 0); + abort; + end + else + begin + ficha_dev := true; + str_filter := ''; + queryListaTitulos.DisableControls; + for j := 0 to length(str_tit) do + begin + // queryListaTitulos.RecNo := str_tit[j]; + str_filter := str_filter + 'ID_TITULO = ' + inttostr(str_tit[j]) + 'OR '; + end; + queryListaTitulos.EnableControls; + if length(str_tit) > 0 then + begin + setlength(str_filter, length(str_filter) - 3); + queryListaTitulos.Filtered := false; + queryListaTitulos.Filter := str_filter; + queryListaTitulos.Filtered := true; + end; + relFichaDivida := TrelFichaDivida.Create(self); + with relFichaDivida do + begin + form := 'atendimento'; + RLLabel7.Caption := RLLabel7.Caption + DateToStr(dtp_atrasorecalc.Date); + RLLabel7.left := floor(frbnd_dados.Width / 2) - floor(RLLabel7.Width / 2); + if cb_descquit.Checked then + begin + frlbl_tipodesc.Caption := 'Desconto concedido ao quitar.'; + RLBand4.Visible := false; + if cb_nmulta.Checked then + begin + frlbl_descmulta.Caption := 'Desc. Multa: 100%'; + end + else + begin + frlbl_descmulta.Caption := 'Desc. Multa: ' + + edt_multasquitar.Text + '%'; + end; + frlbl_descind.Caption := 'Desc. Ind. Fin.: ' + edt_indquitar.Text + '%'; + frlbl_descprin.Caption := 'Desc. Principal: ' + + edt_principalquitar.Text + '%'; + frlbl_descjuros.Caption := 'Desc. Juros: ' + edt_jurosquitar.Text + '%'; + if cb_desc_quit_cor.Checked then + begin + frlbl_desccorrigido.Caption := 'Desc. Corrigido: ' + + edt_corquitar.Text + '%'; + end + else + begin + frlbl_desccorrigido.Caption := ''; + end; + end; + if cb_descpar.Checked then + begin + frlbl_tipodesc.Caption := 'Desconto concedido ao parcelar.'; + RLBand1.Visible := false; + RLBand2.Visible := false; + RLBand3.Visible := false; + if cb_nmulta.Checked then + begin + frlbl_descmulta.Caption := 'Desc. Multa: 100%'; + end + else + begin + frlbl_descmulta.Caption := 'Desc. Multa: ' + + edt_multasparcelas.Text + '%'; + end; + frlbl_descind.Caption := 'Desc. Ind. Fin.: ' + + edt_indparcelas.Text + '%'; + frlbl_descprin.Caption := 'Desc. Principal: ' + + edt_principalparcelas.Text + '%'; + frlbl_descjuros.Caption := 'Desc. Juros: ' + + edt_jurosparcelas.Text + '%'; + if cb_desc_par_cor.Checked then + begin + frlbl_desccorrigido.Caption := 'Desc. Corrigido: ' + + edt_corpar.Text + '%'; + end + else + begin + frlbl_desccorrigido.Caption := ''; + end; + end; + if not(cb_descquit.Checked) and not(cb_descpar.Checked) then + begin + RLBand5.Visible := false; + frlbl_tipodesc.Caption := ''; + end; + j := 0; + if length(str_tit) = 0 then + begin + mnu_incluir.OnClick(self); + end; + queryListaTitulos.Refresh; + Att_campos; + setlength(lbl_parcelas, strtoint(copy(lbl_maxpar.Caption, 6, + length(lbl_maxpar.Caption) - 5))); + for i := 0 to strtoint(copy(lbl_maxpar.Caption, 6, + length(lbl_maxpar.Caption) - 5)) - 1 do + begin + edt_nrparcelas.Text := inttostr(i + 1); + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + lbl_parcelas[i] := TRLLabel.Create(relFichaDivida); + RLBand4.Height := 60 + (22 * (i div 4)); + lbl_parcelas[i].Top := 44 + (22 * (i div 4)); + lbl_parcelas[i].Caption := inttostr(i + 1) + 'x ' + + CurrToStrF(parcelamento[0], ffCurrency, 2, dtmSystem.CusFmt); + lbl_parcelas[i].Parent := RLBand4; + lbl_parcelas[i].left := j * 200; + Inc(j, 1); + if j = 4 then + begin + j := 0; + end; + end; + if cbx_excentrada.Checked then + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + edt_somaentrada.Text; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + + 'Mesmo valor da parcela'; + end + else + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + edt_somaentrada.Text; + end; + end; + + edt_nrparcelas.Text := inttostr(0); + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + RLReport1.Preview(); + queryListaTitulos.Filtered := false; + mnuretirar.OnClick(self); + setlength(str_tit, 0); + end; + ficha_dev := false; + end; +end; + +procedure TfrmAtendimento.btn_closeClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmAtendimento.btn_concluirClick(Sender: TObject); +var + i, j, , id_acordo, id_histo, Count, atraso, cont, atraso_original, cont_rep, + h: Integer; + string_helper, id_titulos, str_titulos, vencs, mes, ano: string; + ent_help: double; + { variveis novas } + ac_pr, ac_j, ac_m, ac_enc, ac_cor, hac_pr, hac_j, hac_m, hac_enc, + hac_cor: array of currency; + help_pr, help_j, help_m, help_enc, help_cor, p_juros, p_multa, p_encargos, + p_desc, rep_prin, rep_jur, rep_mul, rep_enc, rep_cor, vl_pr, vl_j, vl_m, + vl_enc, vl_cor, vl_desc, pr_pr, pr_j, pr_m, pr_enc, pr_cor, help_rep_cor, + cor_antigo { variveis novas } + : currency; + l: Integer; + error_criar_titulo: Boolean; + a: double; +begin + + if not cdsTitulos.Active then + begin + cdsTitulos.Open; + while not cdsTitulos.IsEmpty do + begin + cdsTitulos.Delete; + end; + end; + if not cdsParcelas.Active then + begin + cdsParcelas.Open; + while not cdsParcelas.IsEmpty do + begin + cdsParcelas.Delete; + end; + end; + + string_helper := ''; + str_titulos := ''; + vencs := ''; + if not dtmSystem.tblProvidencias.Active then + begin + dtmSystem.tblProvidencias.Open; + end; + if edt_prov.Text = '' then + begin + Messagedlg('Por favor selecione uma providncia.', mtWarning, [mbok], 0); + abort; + end; + if dblucb_agatend.KeyValue < 1 then + begin + Messagedlg('Por favor selecione um cobrador para ser agendado.', mtWarning, + [mbok], 0); + abort; + end + else + begin + if Messagedlg + ('Por favor verifique corretamente a data, hora e o cobrador do agendamento antes de realiz-lo.' + + ' Deseja continuar?', mtWarning, [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; + end; + + Screen.Cursor := crHourGlass; + Messagedlg('Este processo pode demorar. Por favor aguarde.', mtWarning, + [mbok], 0); + Application.ProcessMessages; + btn_protocolo.Enabled := true; + dtmSystem.tblProvidencias.Locate('TX_NOME', edt_prov.Text, []); + pb_atendimento.Position := 0; + lbl_processo.Caption := 'Baixando Ttulos...'; + if (forma_pagamento = 'Q') or (parcelas_pagamento = 2) then + begin + if index_pagamento = 3 then + begin + try + dtmSystem.tblPrCartao.Locate('NR_PARCELA', 1, []); + // ent_help := + // (((StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + // length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll]))) + + // ((StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + // length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll]))) * + // (dtmSystem.tblEmpresaPR_BANCO_CREDVISTA.AsFloat / 100))) - + // (StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + // length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])))) / + // quant_titulos; + ent_help := + (((StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll]))) + + ((StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll]))) * + (dtmSystem.tblPrCartaoPR_REPASSE.AsFloat / 100))) - + (StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])))) / + quant_titulos; + ent_help := entrada_credvista - ent_help; + except + ent_help := 0; + end; + end + else + begin + ent_help := 0; + end; + pb_atendimento.Step := Ceil(100 / quant_titulos); + Count := 0; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + Application.ProcessMessages; + if lv_titulos.Items[i].Checked then + begin + lbl_processo.Caption := 'Baixando Ttulos... Ttulo ' + + inttostr(Count + 1); + // string_helper := ''; + queryListaTitulos.RecNo := i + 1; + str_titulos := str_titulos + queryListaTitulosID_TITULO.AsString + ';'; + with dtmSystem do + begin + Inc(Count, 1); + tblTitulos.Locate('ID_TITULO', + queryListaTitulosID_TITULO.AsInteger, []); + + GuardaTitulos; + + tblTitulos.Edit; + + tblTitulosTP_PRESTACAO.AsString := 'N'; + + if tblTitulosTP_SITUACAO.AsString = 'AC' then + // arrumei aqui ########################## + begin + + tblAcordos.Open; + tblAcordos.Filtered := false; + tblAcordos.Filter := 'ID_PARCELA = ' + tblTitulosID_TITULO.AsString; + tblAcordos.Filtered := true; + + help_rep_cor := 0; + cont_rep := 0; + setlength(ac_pr, tblAcordos.RecordCount); + setlength(ac_j, tblAcordos.RecordCount); + setlength(ac_m, tblAcordos.RecordCount); + setlength(ac_enc, tblAcordos.RecordCount); + setlength(ac_cor, tblAcordos.RecordCount); + tblAcordos.First; + while not tblAcordos.Eof do + begin + zroqryHelpRepasse.SQL.Text := + 'select * from chg_titulos where id_titulo = ' + + tblAcordosID_ORIGINAL.AsString; + zroqryHelpRepasse.Open; + help_rep_cor := help_rep_cor + zroqryHelpRepasse.FieldByName + ('VL_CORRIGIDO').AsCurrency; + + atraso_original := + DaysBetween(zroqryHelpRepasse.FieldByName('DT_PAGAMENTO') + .AsDateTime, zroqryHelpRepasse.FieldByName('DT_VENCIMENTO') + .AsDateTime); + + mes := inttostr + (strtoint(copy(FormatDateTime('yyyy-mm-dd', + zroqryHelpRepasse.FieldByName('DT_PAGAMENTO') + .AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + zroqryHelpRepasse.FieldByName('DT_PAGAMENTO') + .AsDateTime), 1, 4); + + // tblCHGEmpresa.Locate('ID_EMPRESA', + // zroqryHelpRepasse.FieldByName('ID_EMPRESA').AsInteger, []); + + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []); + + rotblRepasseFase.Close; + rotblRepasseFase.SQL.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso_original) + ' and ' + + inttostr(atraso_original) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + ac_pr[cont_rep] := + (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + ac_j[cont_rep] := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + ac_m[cont_rep] := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + ac_enc[cont_rep] := + (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + ac_cor[cont_rep] := + (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + ac_pr[cont_rep] := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + ac_j[cont_rep] := + (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + ac_m[cont_rep] := + (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + ac_enc[cont_rep] := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + ac_cor[cont_rep] := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + Inc(cont_rep, 1); + Application.ProcessMessages; + tblAcordos.Next; + end; + + tblAcordos.First; + cont_rep := 0; + help_pr := 0; + help_j := 0; + help_m := 0; + help_enc := 0; + help_cor := 0; + while not tblAcordos.Eof do + begin + zroqryHelpRepasse.SQL.Text := + 'select * from chg_titulos where id_titulo = ' + + tblAcordosID_ORIGINAL.AsString; + zroqryHelpRepasse.Open; + help_pr := help_pr + + ((((zroqryHelpRepasse.FieldByName('VL_CORRIGIDO').AsCurrency * + 100) / help_rep_cor) * ac_pr[cont_rep] / 100)); + help_j := help_j + + ((((zroqryHelpRepasse.FieldByName('VL_CORRIGIDO').AsCurrency * + 100) / help_rep_cor) * ac_j[cont_rep] / 100)); + help_m := help_m + + ((((zroqryHelpRepasse.FieldByName('VL_CORRIGIDO').AsCurrency * + 100) / help_rep_cor) * ac_m[cont_rep] / 100)); + help_enc := help_enc + + ((((zroqryHelpRepasse.FieldByName('VL_CORRIGIDO').AsCurrency * + 100) / help_rep_cor) * ac_enc[cont_rep] / 100)); + help_cor := help_cor + + ((((zroqryHelpRepasse.FieldByName('VL_CORRIGIDO').AsCurrency * + 100) / help_rep_cor) * ac_cor[cont_rep] / 100)); + Inc(cont_rep, 1); + Application.ProcessMessages; + tblAcordos.Next; + end; + + tblTitulosVL_MULTA.AsCurrency := tblTitulosVL_MULTA.AsCurrency + + queryListaTitulosVL_MULTA.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + + tblTitulosVL_DESC_MULTA.AsCurrency := + tblTitulosVL_DESC_MULTA.AsCurrency + + (queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + + tblTitulosVL_INDICADOR.AsCurrency := + tblTitulosVL_INDICADOR.AsCurrency + + queryListaTitulosVL_INDICADOR.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + tblTitulosVL_DESC_INDICADOR.AsCurrency := + tblTitulosVL_DESC_INDICADOR.AsCurrency + + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + tblTitulosVL_JUROS.AsCurrency := tblTitulosVL_JUROS.AsCurrency + + queryListaTitulosVL_JUROS.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency); + + tblTitulosVL_DESC_JUROS.AsCurrency := + tblTitulosVL_DESC_JUROS.AsCurrency + + (queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency); + + tblTitulosVL_DESC_PRINCIPAL.AsCurrency := + tblTitulosVL_DESC_PRINCIPAL.AsCurrency + + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency + + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency; + + tblTitulosVL_ENCARGOS.AsCurrency := tblTitulosVL_ENCARGOS.AsCurrency + + queryListaTitulosVL_INDICADOR.AsCurrency + + // queryListaTitulosVL_RETIRADA_TAXA.AsCurrency + + ent_help - (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + cor_antigo := tblTitulosVL_CORRIGIDO.AsCurrency; + + if index_pagamento = 3 then + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency + ent_help; + end + else + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency; + end; + + { tblTitulosVL_TITULO.AsCurrency := queryListaTitulosVL_CORRIGIDO.AsCurrency - + tblTitulosVL_MULTA.AsCurrency - tblTitulosVL_JUROS.AsCurrency - + tblTitulosVL_ENCARGOS.AsCurrency; } // AQUI + + tblTitulosVL_REPASSE_PRIN.AsCurrency := + tblTitulosVL_REPASSE_PRIN.AsCurrency + + ((tblTitulosVL_TITULO.AsCurrency - + tblTitulosVL_DESC_PRINCIPAL.AsCurrency) * (help_pr)); + + tblTitulosVL_REPASSE_JUROS.AsCurrency := + tblTitulosVL_REPASSE_JUROS.AsCurrency + + ((queryListaTitulosVL_JUROS.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency)) * (help_j)); + + tblTitulosVL_REPASSE_MULTA.AsCurrency := + tblTitulosVL_REPASSE_MULTA.AsCurrency + + ((queryListaTitulosVL_MULTA.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency)) * (help_m)); + + tblTitulosVL_REPASSE_ENCARGOS.AsCurrency := + tblTitulosVL_REPASSE_ENCARGOS.AsCurrency + + ((queryListaTitulosVL_INDICADOR.AsCurrency + + // queryListaTitulosVL_RETIRADA_TAXA.AsCurrency + + ent_help - (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency)) * (help_enc)); + + tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency := + tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency + + ((tblTitulosVL_CORRIGIDO.AsCurrency - cor_antigo) * (help_cor)); + if index_pagamento = 3 then + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency + ent_help; + end + else + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency; + end; + + if parcelas_pagamento = 2 then + begin + if dateof(dtp_atrasorecalc.Date) <> dateof(Date) then + begin + tblTitulosDT_EMISSAO_RECIBO.AsDateTime := dateof(Date); + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end + else + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end; + end + else + begin + // if index_pagamento <> 3 then + // begin + if index_pagamento <> 2 then + begin + if dateof(dtp_atrasorecalc.Date) <> dateof(Date) then + begin + tblTitulosDT_EMISSAO_RECIBO.AsDateTime := dateof(Date); + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end + else + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end; + end + else + begin + if dateof(dtp_atrasorecalc.Date) <> dateof(Date) then + begin + tblTitulosDT_EMISSAO_RECIBO.AsDateTime := dateof(Date); + end; + end; + end; + end + else + begin + tblTitulosVL_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + + tblTitulosVL_DESC_MULTA.AsCurrency := + (queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + + tblTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + tblTitulosVL_DESC_INDICADOR.AsCurrency := + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + tblTitulosVL_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency); + + tblTitulosVL_DESC_JUROS.AsCurrency := + (queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency); + + tblTitulosVL_DESC_PRINCIPAL.AsCurrency := + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency + + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency; + + tblTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + + // queryListaTitulosVL_RETIRADA_TAXA.AsCurrency + + ent_help - (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + if index_pagamento = 3 then + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency + ent_help; + end + else + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency; + end; + + if parcelas_pagamento = 2 then + begin + if dateof(dtp_atrasorecalc.Date) <> dateof(Date) then + begin + tblTitulosDT_EMISSAO_RECIBO.AsDateTime := dateof(Date); + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end + else + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end; + end + else + begin + // if index_pagamento <> 3 then + // begin + if index_pagamento <> 2 then + begin + if dateof(dtp_atrasorecalc.Date) <> dateof(Date) then + begin + tblTitulosDT_EMISSAO_RECIBO.AsDateTime := dateof(Date); + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end + else + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end; + end + else + begin + if dateof(dtp_atrasorecalc.Date) <> dateof(Date) then + begin + tblTitulosDT_EMISSAO_RECIBO.AsDateTime := dateof(Date); + end; + end; + end; + + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []); + + rotblRepasseFase.Close; + rotblRepasseFase.SQL.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulosVL_REPASSE_PRIN.AsCurrency := + (tblTitulosVL_TITULO.AsCurrency - + tblTitulosVL_DESC_PRINCIPAL.AsCurrency) * help_pr; + tblTitulosVL_REPASSE_JUROS.AsCurrency := + tblTitulosVL_JUROS.AsCurrency * help_j; + tblTitulosVL_REPASSE_MULTA.AsCurrency := + tblTitulosVL_MULTA.AsCurrency * help_m; + tblTitulosVL_REPASSE_ENCARGOS.AsCurrency := + tblTitulosVL_ENCARGOS.AsCurrency * help_enc; + tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency := + tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + end; + + if parcelas_pagamento = 2 then + begin + tblTitulosTP_SITUACAO.AsString := 'QC'; + end + else + begin + if index_pagamento <> 2 then + begin + tblTitulosTP_SITUACAO.AsString := 'QC'; + end + else + begin + tblTitulosTP_SITUACAO.AsString := 'A'; + end; + end; + + // end; + if multi_form_pag then + begin + tblTitulosTP_MOTIVO.AsString := 'Q'; + end; + + if acordo_fora then + begin + tblCHGEmpresa.Locate('ID_EMPRESA', acordo_emp, []); + end + else + begin + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + end; + + tblTitulos.Post; + + if index_pagamento <> 3 then + begin + string_helper := string_helper + 'O ttulo ' + + tblTitulosTX_PRODUTO.AsString + ' - ' + + tblTitulosCD_DEVEDOR.AsString + ' da empresa ' + + tblCHGEmpresaTX_NOME.AsString + ', pertencente ao devedor ' + + tblDevedoresTX_NOME.AsString + ' com vencimento original de ' + + DateToStr(dateof(tblTitulosDT_VENCIMENTO.AsDateTime)) + + ' foi quitado no dia ' + DateToStr(Date) + ' na empresa ' + + tblEmpresaTX_NOME.AsString + '.' + sLineBreak + sLineBreak + + 'Valor corrigido: ' + + CurrToStrF(queryListaTitulosVL_CORRIGIDO.AsCurrency, ffCurrency, + 2, dtmSystem.CusFmt) + '.' + sLineBreak + sLineBreak + + 'Valor nominal: ' + + CurrToStrF(queryListaTitulosVL_TITULO.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.'; + vencs := vencs + + DateToStr(dateof(tblTitulosDT_VENCIMENTO.AsDateTime)) + + sLineBreak; + if cb_nmulta.Checked then + begin + string_helper := string_helper + sLineBreak + + 'No foi cobrado multa.'; + end + else + begin + string_helper := string_helper + sLineBreak + 'Valor da multa: ' + + CurrToStrF(queryListaTitulosVL_MULTA.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.'; + end; + string_helper := string_helper + sLineBreak + 'Valor do juros: ' + + CurrToStrF(queryListaTitulosVL_JUROS.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.' + sLineBreak + 'Valor de encargos: ' + + // CurrToStrF(queryListaTitulosVL_INDICADOR.AsCurrency, ffCurrency, + CurrToStrF(queryListaTitulosVL_INDICADOR.AsCurrency, ffCurrency, + 2, dtmSystem.CusFmt) + '.'; + string_helper := string_helper + sLineBreak; + end + else + begin + string_helper := string_helper + + 'Aguardando abate de cheque para baixa do ttulo : ' + + tblTitulosTX_PRODUTO.AsString + sLineBreak; + end; + end; + end; + Application.ProcessMessages; + pb_atendimento.StepIt; + end; + lbl_processo.Caption := 'Ttulos Baixados.'; + if cbx_txextra.Checked then + begin + string_helper := string_helper + sLineBreak + + 'Taxa de pagamento em mltiplas formas: ' + edt_txextra.Text; + end; + if cb_descquit.Checked then + begin + string_helper := string_helper + sLineBreak + + 'Foi concedido descontos conforme a seguir:' + sLineBreak + + 'Porcentagem sobre principal: ' + edt_principalquitar.Text + '%.' + + sLineBreak + 'Porcentagem sobre multa: ' + edt_multasquitar.Text + '%.' + + sLineBreak + 'Porcentagem sobre juros: ' + edt_jurosquitar.Text + '%.' + + sLineBreak + 'Porcentagem sobre encargos: ' + edt_indquitar.Text + + '%.' + sLineBreak + 'Porcentagem sobre corrigido: ' + + edt_corquitar.Text + '%.'; + end; + string_helper := string_helper + sLineBreak + 'Forma de Pagamento: ' + + cb_formapag.Text; + string_helper := string_helper + sLineBreak + 'Recibo referente: ' + + nr_recibo; + string_helper := string_helper + sLineBreak + 'Vencimentos: '; + string_helper := string_helper + sLineBreak + vencs; + string_helper := string_helper + sLineBreak + 'Observaes: ' + + mem_obsrecibo.Lines.Text; + // with dtmSystem do + // begin + // tblHistorico.Append; + // tblHistoricoID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + // tblHistoricoID_COBRADOR.AsInteger := dtmSystem.id_usuario; + // tblHistoricoID_PROVIDENCIA.AsInteger := + // tblProvidenciasID_PROVIDENCIA.AsInteger; + // tblHistoricoDT_CONTATO.AsDateTime := Now; + // tblHistoricoTL_MEMO.AsString := string_helper; + // tblHistorico.Post; + // id_histo := tblHistoricoID_HISTORICO.AsInteger; + // end; + end; + + if (forma_pagamento = 'P') and (not(parcelas_pagamento = 2)) then + begin + pb_atendimento.Step := floor(50 / quant_titulos); + id_titulos := ''; + id_acordo := dtmSystem.NovoCodigo('SYS_ACORDOS', 'ID_ACORDO'); + { variveis novas } + // p_juros := 0; + // p_multa := 0; + // p_encargos := 0; + // p_desc := 0; + rep_prin := 0; + rep_jur := 0; + rep_mul := 0; + rep_enc := 0; + rep_cor := 0; + cont := 0; + vl_pr := 0; + vl_j := 0; + vl_m := 0; + vl_enc := 0; + vl_cor := 0; + vl_desc := 0; + pr_pr := 0; + pr_j := 0; + pr_m := 0; + pr_enc := 0; + pr_cor := 0; + { variveis novas } + Count := 0; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + Application.ProcessMessages; + if lv_titulos.Items[i].Checked then + begin + str_titulos := str_titulos + queryListaTitulosID_TITULO.AsString + ';'; + queryListaTitulos.RecNo := i + 1; + lbl_processo.Caption := 'Baixando Ttulos... Ttulo ' + + inttostr(Count + 1); + Inc(Count); + with dtmSystem do + begin + tblTitulos.Locate('ID_TITULO', + queryListaTitulosID_TITULO.AsInteger, []); + + GuardaTitulos; + + id_titulos := id_titulos + tblTitulosID_TITULO.AsString + ';'; + tblTitulos.Edit; + + tblTitulosTP_PRESTACAO.AsString := 'N'; + + tblTitulosTP_SITUACAO.AsString := 'QC'; + + tblTitulosVL_MULTA.AsCurrency := queryListaTitulosVL_MULTA.AsCurrency + - (queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + + tblTitulosVL_DESC_MULTA.AsCurrency := + (queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + + tblTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + tblTitulosVL_DESC_INDICADOR.AsCurrency := + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + tblTitulosVL_JUROS.AsCurrency := queryListaTitulosVL_JUROS.AsCurrency + - (queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency); + + tblTitulosVL_DESC_JUROS.AsCurrency := + (queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency); + + tblTitulosVL_DESC_PRINCIPAL.AsCurrency := + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency + + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency; + + tblTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + + // queryListaTitulosVL_RETIRADA_TAXA.AsCurrency + + ent_help - (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_IND.AsCurrency); + + tblTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency; + tblTitulosQTDE_PARCELAS.AsInteger := strtoint(edt_nrparcelas.Text); // + { variveis novas } + vl_pr := vl_pr + tblTitulosVL_TITULO.AsCurrency; + vl_j := vl_j + tblTitulosVL_JUROS.AsCurrency; + vl_m := vl_m + tblTitulosVL_MULTA.AsCurrency; + vl_enc := vl_enc + tblTitulosVL_ENCARGOS.AsCurrency; + vl_cor := vl_cor + tblTitulosVL_CORRIGIDO.AsCurrency; + vl_desc := vl_desc + tblTitulosVL_DESC_PRINCIPAL.AsCurrency; + + // p_juros := p_juros + tblTitulosVL_JUROS.AsCurrency; + // p_multa := p_multa + tblTitulosVL_MULTA.AsCurrency; + // p_encargos := p_encargos + tblTitulosVL_ENCARGOS.AsCurrency; + // p_desc := p_desc + tblTitulosVL_DESC_PRINCIPAL.AsCurrency; + { variveis novas } + if multi_form_pag then + begin + tblTitulosTP_MOTIVO.AsString := 'Q'; + end; + + tblTitulosDT_PAGAMENTO.AsDateTime := dateof(dtp_atrasorecalc.Date); + + if acordo_fora then + begin + tblCHGEmpresa.Locate('ID_EMPRESA', acordo_emp, []); + end + else + begin + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + end; + + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', VarArrayOf([mes, ano]), []); + + rotblRepasseFase.Close; + rotblRepasseFase.SQL.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulosVL_REPASSE_PRIN.AsCurrency := + (tblTitulosVL_TITULO.AsCurrency - + tblTitulosVL_DESC_PRINCIPAL.AsCurrency) * help_pr; + tblTitulosVL_REPASSE_JUROS.AsCurrency := + tblTitulosVL_JUROS.AsCurrency * help_j; + tblTitulosVL_REPASSE_MULTA.AsCurrency := + tblTitulosVL_MULTA.AsCurrency * help_m; + tblTitulosVL_REPASSE_ENCARGOS.AsCurrency := + tblTitulosVL_ENCARGOS.AsCurrency * help_enc; + tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency := + tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + + // rep_prin := rep_prin + tblTitulosVL_REPASSE_PRIN.AsCurrency; + // rep_jur := rep_jur + tblTitulosVL_REPASSE_JUROS.AsCurrency; + // rep_mul := rep_mul + tblTitulosVL_REPASSE_MULTA.AsCurrency; + // rep_enc := rep_enc + tblTitulosVL_REPASSE_ENCARGOS.AsCurrency; + // rep_cor := rep_cor + tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + + tblTitulos.Post; + + string_helper := string_helper + 'O ttulo ' + + tblTitulosTX_PRODUTO.AsString + ' - ' + + tblTitulosCD_DEVEDOR.AsString + ' da empresa ' + + tblCHGEmpresaTX_NOME.AsString + ', pertencente ao devedor ' + + tblDevedoresTX_NOME.AsString + ' com vencimento original de ' + + DateToStr(dateof(tblTitulosDT_VENCIMENTO.AsDateTime)) + + ' foi parcelado no dia ' + DateToStr(Date) + ' na empresa ' + + tblEmpresaTX_NOME.AsString + '.'; + if acordo_fora then + begin + string_helper := string_helper + sLineBreak + + 'As parcelas foram vinculadas com a empresa ' + acordo_fantasia; + end; + string_helper := string_helper + sLineBreak + 'Valor corrigido: ' + + CurrToStrF(queryListaTitulosVL_CORRIGIDO.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.' + sLineBreak + 'Valor nominal: ' + + CurrToStrF(queryListaTitulosVL_TITULO.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.' + sLineBreak + 'Quantidade de parcelas: ' + + edt_nrparcelas.Text + '.' + sLineBreak + 'Valor da entrada: ' + + CurrToStrF(queryListaTitulosVL_ENTRADA.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.' + sLineBreak + 'Valor da parcela: ' + + CurrToStrF(queryListaTitulosVL_PARCELA.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.'; + vencs := vencs + DateToStr(dateof(tblTitulosDT_VENCIMENTO.AsDateTime)) + + sLineBreak; + if cb_nmulta.Checked then + begin + string_helper := string_helper + sLineBreak + + 'No foi cobrado multa.'; + end + else + begin + string_helper := string_helper + sLineBreak + 'Valor da multa: ' + + CurrToStrF(queryListaTitulosVL_MULTA.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.'; + end; + string_helper := string_helper + sLineBreak + 'Valor do juros: ' + + CurrToStrF(queryListaTitulosVL_JUROS.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.' + sLineBreak + 'Valor de encargos: ' + + CurrToStrF(queryListaTitulosVL_INDICADOR.AsCurrency, ffCurrency, 2, + dtmSystem.CusFmt) + '.'; + string_helper := string_helper + sLineBreak; + end; + pb_atendimento.StepIt; + end; + end; + + for i := 0 to lv_titulos.Items.Count - 1 do + begin + Application.ProcessMessages; + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + cont := cont + 1; + setlength(ac_pr, cont); + setlength(ac_j, cont); + setlength(ac_m, cont); + setlength(ac_enc, cont); + setlength(ac_cor, cont); + with dtmSystem do + begin + tblTitulos.Locate('ID_TITULO', + queryListaTitulosID_TITULO.AsInteger, []); + + if acordo_fora then + begin + tblCHGEmpresa.Locate('ID_EMPRESA', acordo_emp, []); + end + else + begin + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + end; + + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', VarArrayOf([mes, ano]), []); + + rotblRepasseFase.Close; + rotblRepasseFase.SQL.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + ac_pr[cont - 1] := tblTitulosVL_REPASSE_PRIN.AsCurrency; + ac_j[cont - 1] := tblTitulosVL_REPASSE_JUROS.AsCurrency; + ac_m[cont - 1] := tblTitulosVL_REPASSE_MULTA.AsCurrency; + ac_enc[cont - 1] := tblTitulosVL_REPASSE_ENCARGOS.AsCurrency; + ac_cor[cont - 1] := tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + + if vl_pr <> 0 then + begin + pr_pr := pr_pr + ((ac_pr[cont - 1] * 100) / vl_pr); + end; + if vl_j <> 0 then + begin + pr_j := pr_j + ((ac_j[cont - 1] * 100) / vl_j); + end; + if vl_m <> 0 then + begin + pr_m := pr_m + ((ac_m[cont - 1] * 100) / vl_m); + end; + if vl_enc <> 0 then + begin + pr_enc := pr_enc + ((ac_enc[cont - 1] * 100) / vl_enc); + end; + if vl_cor <> 0 then + begin + pr_cor := pr_cor + ((ac_cor[cont - 1] * 100) / vl_cor); + end; + end; + end; + end; + + if cbx_txextra.Checked then + begin + string_helper := string_helper + sLineBreak + + 'Taxa de pagamento em mltiplas formas: ' + edt_txextra.Text; + end; + if cb_descpar.Checked then + begin + string_helper := string_helper + sLineBreak + + 'Foi concedido descontos conforme a seguir:' + sLineBreak + + 'Porcentagem sobre principal: ' + edt_principalparcelas.Text + '%.' + + sLineBreak + 'Porcentagem sobre multa: ' + edt_multasparcelas.Text + + '%.' + sLineBreak + 'Porcentagem sobre juros: ' + edt_jurosparcelas.Text + + '%.' + sLineBreak + 'Porcentagem sobre encargos: ' + + edt_indparcelas.Text + '%.' + sLineBreak + + 'Porcentagem sobre corrigido: ' + edt_corpar.Text + '%.'; + end; + string_helper := string_helper + sLineBreak + 'Forma de Pagamento: ' + + cb_formapag.Text; + string_helper := string_helper + sLineBreak + 'Recibo referente: ' + + nr_recibo; + string_helper := string_helper + sLineBreak + 'Vencimentos: '; + string_helper := string_helper + sLineBreak + vencs; + string_helper := string_helper + sLineBreak + 'Observaes: ' + + mem_obsrecibo.Lines.Text; + // with dtmSystem do + // begin + // tblHistorico.Append; + // tblHistoricoID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + // tblHistoricoID_COBRADOR.AsInteger := dtmSystem.id_usuario; + // tblHistoricoID_PROVIDENCIA.AsInteger := + // tblProvidenciasID_PROVIDENCIA.AsInteger; + // tblHistoricoDT_CONTATO.AsDateTime := Now; + // tblHistoricoTL_MEMO.AsString := string_helper; + // tblHistorico.Post; + // id_histo := tblHistoricoID_HISTORICO.AsInteger; + // end; + pb_atendimento.StepBy(50 - pb_atendimento.Position); + lbl_processo.Caption := 'Criando Ttulos do Financiamento...'; + pb_atendimento.Step := Ceil(50 / lv_fechamento.Items.Count); + { variveis novas } + { if StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])) <> 0.00 then + begin + p_juros := p_juros / lv_fechamento.Items.Count; + p_multa := p_multa / lv_fechamento.Items.Count; + p_encargos := p_encargos / lv_fechamento.Items.Count; + p_desc := p_desc / lv_fechamento.Items.Count; + // rep_prin := rep_prin / lv_fechamento.Items.Count; + // rep_jur := rep_jur / lv_fechamento.Items.Count; + // rep_mul := rep_mul / lv_fechamento.Items.Count; + // rep_enc := rep_enc / lv_fechamento.Items.Count; + // rep_cor := rep_cor / lv_fechamento.Items.Count; + end + else + begin + p_juros := p_juros / (lv_fechamento.Items.Count - 1); + p_multa := p_multa / (lv_fechamento.Items.Count - 1); + p_encargos := p_encargos / (lv_fechamento.Items.Count - 1); + p_desc := p_desc / (lv_fechamento.Items.Count - 1); + // rep_prin := rep_prin / (lv_fechamento.Items.Count - 1); + // rep_jur := rep_jur / (lv_fechamento.Items.Count - 1); + // rep_mul := rep_mul / (lv_fechamento.Items.Count - 1); + // rep_enc := rep_enc / (lv_fechamento.Items.Count - 1); + // rep_cor := rep_cor / (lv_fechamento.Items.Count - 1); + end; } + { variveis novas } + error_criar_titulo := false; + for j := 0 to lv_fechamento.Items.Count - 1 do + begin + Application.ProcessMessages; + + try + with dtmSystem do + begin + lbl_processo.Caption := 'Criando Ttulos do Financiamento... Ttulo ' + + inttostr(j + 1) + ' de ' + inttostr(lv_fechamento.Items.Count); + tblTitulos.Append; + if (j = 0) and + (StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])) <> 0) + then + begin + tblTitulosTX_PRODUTO.AsString := 'Entrada'; + if acordo_fora then + begin + tblTitulosID_EMPRESA.AsInteger := acordo_emp; + end + else + begin + tblTitulosID_EMPRESA.AsInteger := id_emp; + end; + tblTitulosDT_VENCIMENTO.AsDateTime := Date; + tblTitulosDT_ENTRADA.AsDateTime := Date; + tblTitulosVL_TITULO.AsCurrency := + StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])) + { variveis novas } { - p_juros - p_multa - p_encargos + + p_desc }{ variveis novas }; + tblTitulosVL_CORRIGIDO.AsCurrency := + tblTitulosVL_TITULO.AsCurrency { variveis novas } { + p_juros + + p_multa + p_encargos - p_desc }{ variveis novas }; + if index_pagamento <> 2 then + begin + tblTitulosTP_SITUACAO.AsString := 'QC'; + tblTitulosTP_PRESTACAO.AsString := 'N'; + + // tblTitulosVL_REPASSE_PRIN.AsCurrency := rep_prin; + // tblTitulosVL_REPASSE_JUROS.AsCurrency := rep_jur; + // tblTitulosVL_REPASSE_MULTA.AsCurrency := rep_mul; + // tblTitulosVL_REPASSE_ENCARGOS.AsCurrency := rep_enc; + // tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency := rep_cor - tblTitulosVL_CORRIGIDO.AsCurrency; + // tblTitulosDT_PAGAMENTO.AsDateTime := dateof(Date); + // tblTitulosDT_EMISSAO_RECIBO.AsDateTime := dateof(Date); + if dateof(dtp_atrasorecalc.Date) <> dateof(Date) then + begin + tblTitulosDT_EMISSAO_RECIBO.AsDateTime := dateof(Date); + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end + else + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + dateof(dtp_atrasorecalc.Date); + end; + end + else + begin + tblTitulosTP_SITUACAO.AsString := 'AC'; + end; + { variveis novas } + + tblTitulosVL_JUROS.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * vl_j) / vl_cor; + tblTitulosVL_MULTA.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * vl_m) / vl_cor; + tblTitulosVL_ENCARGOS.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * vl_enc) / vl_cor; + tblTitulosVL_DESC_PRINCIPAL.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * vl_desc) / vl_cor; + + tblTitulosVL_REPASSE_PRIN.AsCurrency := + ((tblTitulosVL_TITULO.AsCurrency - + tblTitulosVL_DESC_PRINCIPAL.AsCurrency) * pr_pr) / 100; + tblTitulosVL_REPASSE_JUROS.AsCurrency := + (tblTitulosVL_JUROS.AsCurrency * pr_j) / 100; + tblTitulosVL_REPASSE_MULTA.AsCurrency := + (tblTitulosVL_MULTA.AsCurrency * pr_m) / 100; + tblTitulosVL_REPASSE_ENCARGOS.AsCurrency := + (tblTitulosVL_ENCARGOS.AsCurrency * pr_enc) / 100; + tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * pr_cor) / 100; + + // tblTitulosVL_JUROS.AsCurrency := p_juros; + // tblTitulosVL_MULTA.AsCurrency := p_multa; + // tblTitulosVL_ENCARGOS.AsCurrency := p_encargos; + // tblTitulosVL_DESC_PRINCIPAL.AsCurrency := p_desc; + + { variveis novas } + + end + else + begin + tblTitulosTX_PRODUTO.AsString := 'Parcela n ' + inttostr(j); + if acordo_fora then + begin + tblTitulosID_EMPRESA.AsInteger := acordo_emp; + end + else + begin + tblTitulosID_EMPRESA.AsInteger := id_emp; + end; + tblTitulosDT_VENCIMENTO.AsDateTime := + StrToDate(lv_fechamento.Items[j].SubItems[1]); + tblTitulosDT_ENTRADA.AsDateTime := Date; + tblTitulosVL_TITULO.AsCurrency := + StrToCurr(stringreplace(copy(lv_fechamento.Items[j].SubItems[0], + 4, length(lv_fechamento.Items[j].SubItems[1]) - 3), '.', '', + [rfReplaceAll])) { variveis novas } { - p_juros - p_multa - + p_encargos + p_desc } { variveis novas }; + tblTitulosVL_CORRIGIDO.AsCurrency := + tblTitulosVL_TITULO.AsCurrency { variveis novas } { + p_juros + + p_multa + p_encargos - p_desc } { variveis novas }; + // if parcelas_pagamento = 2 then + // begin + // tblTitulosTP_SITUACAO.AsString := 'QC'; + // end + // else + // begin + tblTitulosTP_SITUACAO.AsString := 'AC'; + // end; + end; + tblTitulosTX_OBS.AsString := 'Ttulos relacionados: ' + id_titulos; + tblTitulosQTDE_PARCELAS.AsInteger := qtde_parcelas; + { variveis novas } + + tblTitulosVL_JUROS.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * vl_j) / vl_cor; + tblTitulosVL_MULTA.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * vl_m) / vl_cor; + tblTitulosVL_ENCARGOS.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * vl_enc) / vl_cor; + tblTitulosVL_DESC_PRINCIPAL.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * vl_desc) / vl_cor; + + tblTitulosVL_REPASSE_PRIN.AsCurrency := + ((tblTitulosVL_TITULO.AsCurrency - + tblTitulosVL_DESC_PRINCIPAL.AsCurrency) * pr_pr) / 100; + tblTitulosVL_REPASSE_JUROS.AsCurrency := + (tblTitulosVL_JUROS.AsCurrency * pr_j) / 100; + tblTitulosVL_REPASSE_MULTA.AsCurrency := + (tblTitulosVL_MULTA.AsCurrency * pr_m) / 100; + tblTitulosVL_REPASSE_ENCARGOS.AsCurrency := + (tblTitulosVL_ENCARGOS.AsCurrency * pr_enc) / 100; + tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency := + (tblTitulosVL_CORRIGIDO.AsCurrency * pr_cor) / 100; + + // tblTitulosVL_JUROS.AsCurrency := p_juros; + // tblTitulosVL_MULTA.AsCurrency := p_multa; + // tblTitulosVL_ENCARGOS.AsCurrency := p_encargos; + // tblTitulosVL_DESC_PRINCIPAL.AsCurrency := p_desc; + { variveis novas } + if multi_form_pag then + begin + tblTitulosTP_MOTIVO.AsString := 'Q'; + end; + tblTitulos.Post; + cdsParcelas.Append; + cdsParcelasid_parcela.AsInteger := tblTitulosID_TITULO.AsInteger; + cdsParcelas.Post; + for := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[].Checked then + begin + queryListaTitulos.RecNo := + 1; + tblAcordos.Append; + tblAcordosID_ACORDO.AsInteger := id_acordo; + tblAcordosID_PARCELA.AsInteger := tblTitulosID_TITULO.AsInteger; + tblAcordosID_ORIGINAL.AsInteger := + queryListaTitulosID_TITULO.AsInteger; + tblAcordosID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblAcordos.Post; + Application.ProcessMessages; + end; + end; + end; + pb_atendimento.StepIt; + Application.ProcessMessages; + except + on E: Exception do + begin + error_criar_titulo := true; + Showmessage + ('Houve um erro na criao dos ttulos do financiamento. Voltando estado dos ttulos para antes do acordo. ' + + E.Message); + lbl_processo.Caption := 'Quebrando acordo...'; + while dtmSystem.tblAcordos.Locate('id_acordo', id_acordo, []) do + begin + dtmSystem.tblAcordos.Delete; + Application.ProcessMessages; + end; + lbl_processo.Caption := 'Apagando ttulos gerados do acordo...'; + while not cdsParcelas.IsEmpty do + begin + Application.ProcessMessages; + lbl_processo.Caption := + 'Apagando ttulos gerados do acordo... Parcelas Restantes: ' + + inttostr(cdsParcelas.RecordCount); + dtmSystem.tblTitulos.Locate('ID_TITULO', + cdsParcelasid_parcela.AsInteger, []); + dtmSystem.tblTitulos.Delete; + cdsParcelas.Delete; + end; + cdsParcelas.Close; + lbl_processo.Caption := + 'Retornando Ttulos aos seus estados originais...'; + while not cdsTitulos.IsEmpty do + begin + Application.ProcessMessages; + lbl_processo.Caption := + 'Retornando Ttulos aos seus estados originais... Ttulos Restantes: ' + + inttostr(cdsTitulos.RecordCount); + dtmSystem.tblTitulos.Locate('ID_TITULO', + cdsTitulosID_TITULO.AsInteger, []); + dtmSystem.tblTitulos.Edit; + for l := 1 to cdsTitulos.Fields.Count - 1 do + begin + dtmSystem.tblTitulos.FieldByName(cdsTitulos.Fields[l].FieldName) + .AsVariant := cdsTitulos.Fields[l].AsVariant; + end; + dtmSystem.tblTitulos.Post; + cdsTitulos.Delete; + end; + Showmessage('Processo terminado!'); + Screen.Cursor := crDefault; + lbl_processo.Caption := 'Processo revertido.'; + end; + + end; + + end; + end; + + if not error_criar_titulo then + begin + + try + with dtmSystem do + begin + tblCampanhaDevedores.Filtered := false; + while tblCampanhaDevedores.Locate('ID_DEVEDOR', + tblDevedoresID_DEVEDOR.AsInteger, []) do + begin + if tblCampanhaDevedoresTP_ESTADO.AsString = 'A' then + begin + tblCampanhaDevedores.Edit; + tblCampanhaDevedoresTP_ESTADO.AsString := 'B'; + tblCampanhaDevedores.Post; + end; + end; + // tblCampanhaDevedores.Filtered := true; + if not(tblAgenda.Active) then + begin + tblAgenda.Open; + end; + while tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + VarArrayOf([dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger, + 'A']), []) do + begin + tblAgenda.Edit; + tblAgendaTP_SITUACAO.AsString := 'B'; + tblAgenda.Post; + Application.ProcessMessages; + end; + end; + + if not(dtmSystem.tblAgenda.Active) then + begin + dtmSystem.tblAgenda.Open; + end; + + dtmSystem.tblAgenda.Append; + dtmSystem.tblAgendaID_COBRADOR.AsInteger := dblucb_agatend.KeyValue; + dtmSystem.tblAgendaID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblAgendaDT_AGENDADA.AsDateTime := dtp_agatend.Date; + dtmSystem.tblAgendaHR_AGENDADA.AsDateTime := dtph_agatend.Time; + dtmSystem.tblAgendaDT_QUE_AGENDOU.AsDateTime := Now; + dtmSystem.tblAgendaQUEM_AGENDOU.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblAgenda.Post; + string_helper := string_helper + sLineBreak + 'Agendado para: ' + + dblucb_agatend.Text + sLineBreak + 'Dia: ' + DateToStr(dtp_agatend.Date) + + sLineBreak + 'Hora: ' + TimeToStr(dtph_agatend.Time); + except + Messagedlg('Erro ao tentar gerar agendamento.', mtError, [mbOk], 0); + end; + + try + with dtmSystem do + begin + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblHistoricoID_COBRADOR.AsInteger := dtmSystem.id_usuario; + tblHistoricoID_PROVIDENCIA.AsInteger := + tblProvidenciasID_PROVIDENCIA.AsInteger; + tblHistoricoDT_CONTATO.AsDateTime := Now; + tblHistoricoTL_MEMO.AsString := string_helper; + tblHistorico.Post; + end; + except + Messagedlg('Erro ao tentar gerar histrico.', mtError, [mbOk], 0); + end; + + // if dtmSystem.tblHistoricoID_HISTORICO.AsInteger <> id_histo then + // begin + // dtmSystem.tblHistorico.Locate('ID_HISTORICO', id_histo, []); + // end; + // dtmSystem.tblHistorico.Edit; + + // dtmSystem.tblHistoricoTL_MEMO.AsString := + // dtmSystem.tblHistoricoTL_MEMO.AsString + sLineBreak + 'Agendado para: ' + + // dblucb_agatend.Text + sLineBreak + 'Dia: ' + DateToStr(dtp_agatend.Date) + + // sLineBreak + 'Hora: ' + TimeToStr(dtph_agatend.Time); + // dtmSystem.tblHistorico.Post; + + // cb_agendaatend.Checked := false; + // dtp_agatend.Enabled := false; + dtp_agatend.Date := Date; + // dtph_agatend.Enabled := false; + dtph_agatend.Time := Now; + // dblucb_agatend.Enabled := false; + dblucb_agatend.KeyValue := 0; + + lbl_processo.Caption := 'Terminou!'; + Screen.Cursor := crDefault; + atendimento := 'atendendo'; + pcDevedor.TabIndex := 0; + btn_concluir.Enabled := false; + edt_prov.Text := ''; + Messagedlg('Processo terminado!', mtWarning, [mbok], 0); + btn_verrecibos.Enabled := true; + setlength(ids_tits_calc, 0); + setlength(str_tit, 0); + fez_recibo := false; + // Close; + end; +end; + +procedure TfrmAtendimento.CalcPrice; +var + valor, juros, parcela, par_extra: currency; + dividendo: double; + qtd: Integer; +begin + qtd := strtoint(edt_nrparcelas.Text); + if dtmSystem.tblPrCartao.Locate('NR_PARCELA', qtd, []) then + begin + if cbx_excentrada.Checked then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / + 100), qtd)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / qtd; + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / + 100), qtd)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / qtd; + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100), + qtd + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / (qtd + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + end; + end + else + begin + queryListaTitulosVL_PARCELA.AsCurrency := 0; + raise Exception.Create + ('No existe % de juros para quantidade de parcelas selecionada. Por favor contate o administrador.'); + end; + + { if cbx_excentrada.Checked then + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + end; + end + else + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / + 100), strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + end; + end; + + end; } + +end; + +procedure TfrmAtendimento.CalcValorParcelas; +var + i, j, k, Y: Integer; + data_helper: TDate; + dia_antes, dia_depois, mes, ano: Word; +begin + setlength(parcelamento, 0); + lv_parcelas.Clear; + if strtoint(edt_nrparcelas.Text) >= 1 then + begin + setlength(parcelamento, strtoint(edt_nrparcelas.Text)); + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + for j := 0 to strtoint(edt_nrparcelas.Text) - 1 do + begin + parcelamento[j] := parcelamento[j] + + queryListaTitulosVL_PARCELA.AsCurrency; + end; + end; + end; + lv_parcelas.Items.Add; + lv_parcelas.Items[0].Caption := 'Entrada'; + lv_parcelas.Items[0].SubItems.Add(edt_somaentrada.Text); + + for k := 0 to length(parcelamento) - 1 do + begin + lv_parcelas.Items.Add; + lv_parcelas.Items[k + 1].Caption := 'Parcela n ' + inttostr(k + 1); + lv_parcelas.Items[k + 1].SubItems.Add(CurrToStrF(parcelamento[k], + ffCurrency, 2, dtmSystem.CusFmt)); + end; + setlength(data_parcelas, strtoint(edt_nrparcelas.Text) + 1); + data_helper := dtp_atrasorecalc.Date; + DecodeDate(dtp_atrasorecalc.Date, ano, mes, dia_antes); + for Y := 0 to strtoint(edt_nrparcelas.Text) do + begin + data_parcelas[Y] := data_helper; + data_helper := IncMonth(data_helper); + DecodeDate(data_helper, ano, mes, dia_depois); + if (mes = 3) and (dia_antes = 29) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper); + end; + if (mes = 3) and (dia_antes = 30) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper, 2); + end; + if (mes = 3) and (dia_antes = 31) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper, 3); + end; + end; + end + else + begin + lv_parcelas.Clear; + end; +end; + +{ procedure TfrmAtendimento.CarregaProtocolo; + var + qnt_titulos: Integer; + i: Integer; + list_titulos: TStringList; + h: Integer; + formapag: string; + begin + + list_titulos := TStringList.Create; + list_titulos.Clear; + list_titulos.Delimiter := ';'; + + qnt_titulos := dtmSystem.tblProtocoloQNT_TITULOS.AsInteger; + list_titulos.DelimitedText := dtmSystem.tblProtocoloID_TITULOS.AsString; + + queryListaTitulos.First; + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', + dtmSystem.tblProtocoloID_EMPRESA.AsInteger, []); + for h := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + if clb_beneficiarioscalculo.Items[h] = dtmSystem.tblCHGEmpresaTX_NOME.AsString + then + begin + clb_beneficiarioscalculo.Checked[h] := true; + end; + end; + for i := 0 to qnt_titulos - 1 do + begin + while not queryListaTitulos.Eof do + begin + if list_titulos[i] = queryListaTitulosID_TITULO.AsString then + begin + lv_titulos.Items[queryListaTitulos.RecNo - 1].Checked := true; + end; + queryListaTitulos.Next; + end; + end; + + if dtmSystem.tblProtocoloTP_DESC_QUIT.AsString = 'S' then + begin + cb_descquit.Checked; + cb_descquitClick(self); + edt_indquitar.Text := dtmSystem.tblProtocoloPR_QUIT_INDICADOR.AsString; + edt_jurosquitar.Text := dtmSystem.tblProtocoloPR_QUIT_JUROS.AsString; + edt_multasquitar.Text := dtmSystem.tblProtocoloPR_QUIT_MULTA.AsString; + edt_corquitar.Text := dtmSystem.tblProtocoloPR_QUIT_COR.AsString; + edt_principalquitar.Text := + dtmSystem.tblProtocoloPR_QUIT_PRINCIPAL.AsString; + if dtmSystem.tblProtocoloTP_DESC_QUIT_COR.AsString = 'S' then + begin + cb_desc_quit_cor.Enabled := true; + edt_corquitar.Text := dtmSystem.tblProtocoloPR_QUIT_COR.AsString; + end; + end; + + if dtmSystem.tblProtocoloTP_DESC_PAR.AsString = 'S' then + begin + cb_descpar.Checked; + cb_descparClick(self); + edt_indparcelas.Text := + dtmSystem.tblProtocoloPR_PARCELAR_INDICADOR.AsString; + edt_jurosparcelas.Text := dtmSystem.tblProtocoloPR_PARCELAR_JUROS.AsString; + edt_multasparcelas.Text := dtmSystem.tblProtocoloPR_PARCELAR_MULTA.AsString; + edt_corpar.Text := dtmSystem.tblProtocoloPR_PARCELAR_COR.AsString; + edt_principalparcelas.Text := + dtmSystem.tblProtocoloPR_PARCELAR_PRINCIPAL.AsString; + if dtmSystem.tblProtocoloTP_DESC_PAR_COR.AsString = 'S' then + begin + cb_desc_par_cor.Enabled := true; + edt_corpar.Text := dtmSystem.tblProtocoloPR_PARCELAR_COR.AsString; + end; + end; + edt_prentrada.Text := formatfloat('#,00', + dtmSystem.tblProtocoloPR_ENTRADA.AsFloat); + if dtmSystem.tblProtocoloTP_PAG.AsString = 'DI' then + begin + formapag := 'Dinheiro'; + end; + if dtmSystem.tblProtocoloTP_PAG.AsString = 'CQ' then + begin + formapag := 'Cheque'; + end; + if dtmSystem.tblProtocoloTP_PAG.AsString = 'DB' then + begin + formapag := 'Dbito'; + end; + if dtmSystem.tblProtocoloTP_PAG.AsString = 'CR' then + begin + formapag := 'Crdito'; + end; + cb_formapag.ItemIndex := cb_formapag.Items.IndexOf(formapag); + + CalcValorParcelas; + Att_campos; + + end; } + +procedure TfrmAtendimento.cbx_acrfixoClick(Sender: TObject); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cbx_descfixoClick(Sender: TObject); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cbx_despesasClick(Sender: TObject); +begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cbx_excentradaClick(Sender: TObject); +begin + edt_excentrada.Enabled := cbx_excentrada.Enabled; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cbx_exjurosparcelarClick(Sender: TObject); +begin + edt_excjurosparcela.Enabled := cbx_exjurosparcelar.Enabled; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cbx_txextraClick(Sender: TObject); +begin + edt_txextra.Enabled := cbx_txextra.Checked; + if not cbx_txextra.Checked then + begin + edt_txextra.Text := '0,00'; + end; + +end; + +procedure TfrmAtendimento.cb_agendaatendClick(Sender: TObject); +begin + // dtp_agatend.Enabled := cb_agendaatend.Checked; + // dtph_agatend.Enabled := cb_agendaatend.Checked; + // dblucb_agatend.Enabled := cb_agendaatend.Checked; +end; + +procedure TfrmAtendimento.cb_agendahistClick(Sender: TObject); +begin + dtp_agendadatahist.Enabled := cb_agendahist.Checked; + dtp_agendahorahist.Enabled := cb_agendahist.Checked; + dblucb_agendacobhist.Enabled := cb_agendahist.Checked; +end; + +procedure TfrmAtendimento.cb_descindicesextrasChange(Sender: TObject); +begin + edt_descindextras.Text := desc_indices_extras[cb_descindicesextras.ItemIndex]; +end; + +procedure TfrmAtendimento.cb_descparClick(Sender: TObject); +begin + if cb_descpar.Checked then + begin + cb_descquit.Checked := false; + gb_descontospar.Enabled := true; + gb_descontosquit.Enabled := false; + cb_desc_quit_cor.Checked := false; + end + else + begin + gb_descontospar.Enabled := false; + end; + if not gb_descontospar.Enabled then + begin + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corquitar.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cb_descquitClick(Sender: TObject); +begin + + if cb_descquit.Checked then + begin + cb_descpar.Checked := false; + gb_descontosquit.Enabled := true; + gb_descontospar.Enabled := false; + edt_nrparcelas.Text := '0'; + cb_desc_par_cor.Checked := false; + end + else + begin + gb_descontosquit.Enabled := false; + end; + if not gb_descontosquit.Enabled then + begin + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + edt_corpar.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cb_desc_par_corClick(Sender: TObject); +begin + if cb_desc_par_cor.Checked then + begin + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corquitar.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cb_desc_quit_corClick(Sender: TObject); +begin + if cb_descquit.Checked then + begin + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; +end; + +procedure TfrmAtendimento.cb_formapagChange(Sender: TObject); +begin + if (cb_formapag.ItemIndex = 1) then + begin + edt_nrparcelas.Text := '0'; + // edt_nrparcelas.OnChange; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.cb_nmultaClick(Sender: TObject); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.ChecaPermissoes; +begin + with dtmSystem do + begin + navdevedor.Enabled := VerificarPermissao('CBR.01.03.01.01'); + + navEmail.Enabled := VerificarPermissao('CBR.01.03.01.06'); + if not VerificarPermissao('CBR.01.03.01.06.01') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.03.01.06.02') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.03.01.06.03') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbDelete]; + + navenderecos.Enabled := VerificarPermissao('CBR.01.03.01.02'); + if not VerificarPermissao('CBR.01.03.01.02.01') then + navenderecos.VisibleButtons := navenderecos.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.03.01.02.02') then + navenderecos.VisibleButtons := navenderecos.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.03.01.02.03') then + navenderecos.VisibleButtons := navenderecos.VisibleButtons - [nbDelete]; + + navtelefones.Enabled := VerificarPermissao('CBR.01.03.01.03'); + if not VerificarPermissao('CBR.01.03.01.03.01') then + navtelefones.VisibleButtons := navtelefones.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.03.01.03.02') then + navtelefones.VisibleButtons := navtelefones.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.03.01.03.03') then + navtelefones.VisibleButtons := navtelefones.VisibleButtons - [nbDelete]; + + navtitulos.Enabled := VerificarPermissao('CBR.01.03.01.04'); + if not VerificarPermissao('CBR.01.03.01.04.01') then + navtitulos.VisibleButtons := navtitulos.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.03.01.04.02') then + navtitulos.VisibleButtons := navtitulos.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.03.01.04.03') then + navtitulos.VisibleButtons := navtitulos.VisibleButtons - [nbDelete]; + + navhistorico.Enabled := VerificarPermissao('CBR.01.03.01.05'); + if not VerificarPermissao('CBR.01.03.01.05.01') then + navhistorico.VisibleButtons := navhistorico.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.03.01.05.02') then + navhistorico.VisibleButtons := navhistorico.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.03.01.05.03') then + navhistorico.VisibleButtons := navhistorico.VisibleButtons - [nbDelete]; + + tabQuitar.Enabled := VerificarPermissao('CBR.01.03.02.01.01'); + tabParcelar.Enabled := VerificarPermissao('CBR.01.03.02.01.02'); + cbx_descindextras.Enabled := VerificarPermissao('CBR.01.03.02.01.03'); + cb_nmulta.Enabled := VerificarPermissao('CBR.01.03.02.02'); + cbx_txextra.Enabled := VerificarPermissao('CBR.01.03.02.03'); + cbx_excentrada.Enabled := VerificarPermissao('CBR.01.03.02.04'); + clb_indices.Enabled := VerificarPermissao('CBR.01.03.02.05'); + end; +end; + +procedure TfrmAtendimento.cbx_descindextrasClick(Sender: TObject); +begin + edt_descindextras.Enabled := cbx_descindextras.Checked; +end; + +procedure TfrmAtendimento.clb_beneficiarioscalculoClickCheck(Sender: TObject); +var + i: Integer; + n_marcou: Boolean; +begin + n_marcou := true; + with TCheckListBox(Sender) do + begin + if Checked[ItemIndex] then + begin + n_marcou := false; + Items.beginupdate; + id_emp_calc := ItemIndex; + for i := 0 to Items.Count - 1 do + if i = ItemIndex then + begin + continue; + end + else + begin + Checked[i] := false; + end; + Items.EndUpdate; + lv_titulos.PopupMenu := popmnu_incluir; + end + else + begin + for i := 0 to Items.Count - 1 do + if Checked[i] = true then + begin + n_marcou := false; + id_emp_calc := i; + end; + lv_titulos.PopupMenu := nil; + end; + end; + if n_marcou then + begin + lv_titulos.Clear; + id_emp_calc := -1; + setlength(ids_tits_calc, 0); + end + else + begin + CriarLista; + end; +end; + +procedure TfrmAtendimento.clb_empresasClickCheck(Sender: TObject); +var + i: Integer; +begin + inherited; +// with TCheckListBox(Sender) do +// begin +// if Checked[ItemIndex] then +// begin +// Items.beginupdate; +// for i := 0 to Items.Count - 1 do +// if i = ItemIndex then +// begin +// dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); +// selected_id_chg_empresa := +// dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; +// continue; +// end +// else +// begin +// Checked[i] := false; +// end; +// Items.EndUpdate; +// end; +// end; +end; + +procedure TfrmAtendimento.clb_indicesClickCheck(Sender: TObject); +begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.copiar_conteudoClick(Sender: TObject); +var + nomes, valores: array of string; + spaces: string; + i, j, tam, Count: Integer; + k: Integer; +begin + clpbrd := ''; + + if lv_parcelas.Items.Count > 0 then + begin + setlength(nomes, lv_parcelas.Items.Count); + setlength(valores, lv_parcelas.Items.Count); + for i := 0 to lv_parcelas.Items.Count - 1 do + begin + nomes[i] := lv_parcelas.Items.Item[i].Caption + ':'; + valores[i] := lv_parcelas.Items.Item[i].SubItems[0]; + end; + end; + + for j := 0 to lv_parcelas.Items.Count - 1 do + begin + tam := length(nomes[j]) + length(valores[j]); + Count := 32 - tam; + spaces := ''; + for k := 0 to Count - 1 do + begin + spaces := spaces + ' '; + end; + if j = 0 then + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[0]) + sLineBreak; + end + else + begin + if copy(valores[0], 4, length(valores[0]) - 3) = '0,00' then + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[j - 1]) + sLineBreak; + end + else + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[j { - 1 } ]) + sLineBreak; + end; + end; + end; + if Sender is TMenuItem then + begin + Clipboard.AsText := clpbrd; + end; +end; + +procedure TfrmAtendimento.CriarLista; +var + h: Integer; + achou: Boolean; +begin + Screen.Cursor := crHourGlass; + achou := false; + if queryListaTitulos.Connection = nil then + // BACALHAU, NO TEM EXPLICAO. S FUNCIONA. + begin + exit; + end; + if not dtmSystem.tblCHGEmpresa.Active then + begin + dtmSystem.tblCHGEmpresa.Open; + end; + qtde_titulos := 0; + for h := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + if clb_beneficiarioscalculo.Checked[h] then + begin + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', id_emps_dev[h], []); + achou := true; + end; + end; + if achou then + begin + queryListaTitulos.SQL.Clear; + queryListaTitulos.SQL.Text := + 'select * from (select * from chg_titulos where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + + ') where ((tp_situacao = ''A'' or tp_situacao = ''AC'')) and' + + '(id_empresa = ' + dtmSystem.tblCHGEmpresaID_EMPRESA.AsString + ')' + + ' order by DT_VENCIMENTO, VL_TITULO'; + queryListaTitulos.Open; + queryListaTitulos.DisableControls; + queryListaTitulos.First; + lv_titulos.Clear; + + while not queryListaTitulos.Eof do + begin + with lv_titulos.Items.Add do + begin + SubItems.Add(queryListaTitulos.FieldByName('NOME_EMPRESA').AsString); + SubItems.Add(queryListaTitulos.FieldByName('TX_PRODUTO').AsString); + SubItems.Add(queryListaTitulos.FieldByName('DT_VENCIMENTO').AsString); + SubItems.Add(CurrToStrF(queryListaTitulos.FieldByName('VL_TITULO') + .AsCurrency, ffCurrency, 2, dtmSystem.CusFmt)); + SubItems.Add(queryListaTitulos.FieldByName('CD_DEVEDOR').AsString); + SubItems.Add(queryListaTitulos.FieldByName('NR_PARCELAS').AsString); + SubItems.Add(queryListaTitulos.FieldByName('DT_ENTRADA').AsString); + end; + lv_titulos.Column[0].Alignment := TAlignment.taCenter; + queryListaTitulos.Next; + end; + btn_fechamento.Enabled := true; + btn_amostra.Enabled := true; + end + else + begin + queryListaTitulos.SQL.Clear; + queryListaTitulos.SQL.Text := + 'select * from (select * from chg_titulos where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + + ') where ((tp_situacao = ''A'' or tp_situacao = ''AC'')) and' + + '(id_empresa = 0)' + ' order by DT_VENCIMENTO, VL_TITULO'; + queryListaTitulos.Open; + queryListaTitulos.DisableControls; + queryListaTitulos.First; + lv_titulos.Clear; + btn_fechamento.Enabled := false; + btn_amostra.Enabled := false; + end; + queryListaTitulos.EnableControls; + Screen.Cursor := crDefault; +end; + +procedure TfrmAtendimento.dbedt_cpfcnpjcKeyPress(Sender: TObject; + var Key: Char); +begin + if dtmSystem.tblDevedoresTP_CLIENTE.AsString = '' then + begin + Messagedlg('Por favor escolha o tipo de devedor.', mtWarning, [mbok], 0); + Key := #0; + end; + if (dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'F') then + begin + if not(Key in [#8, '0' .. '9', '.', '-']) then + begin + Key := #0; + end; + end; + if (dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'J') then + begin + if not(Key in [#8, '0' .. '9', '.', '-', '/']) then + begin + Key := #0; + end; + end; +end; + +procedure TfrmAtendimento.dbgrd_despesasTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblDespesasTitulos, Column); +end; + +procedure TfrmAtendimento.dbgrd_enderecosDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblEnderecos.FieldByName('TP_ATIVO').AsString, + ['S', 'N']) of + 0: + dbgrd_enderecos.Canvas.Brush.Color := clGreen; + 1: + dbgrd_enderecos.Canvas.Brush.Color := $0000FF; + end; + // end; + dbgrd_enderecos.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmAtendimento.dbgrd_enderecosTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblEnderecos, Column); +end; + +procedure TfrmAtendimento.dbgrd_historicoTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblHistorico, Column); +end; + +procedure TfrmAtendimento.dbgrd_listtitulosTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(queryListaTitulos, Column); +end; + +procedure TfrmAtendimento.dbgrd_pesquisarDblClick(Sender: TObject); +begin + + if length(qryPesquisa.FieldByName('TX_DOCUMENTO').AsString) = 14 then + begin + dtmSystem.tblDevedores.Locate('CD_CPF', + qryPesquisa.FieldByName('TX_DOCUMENTO').AsString, []) + end + else + begin + dtmSystem.tblDevedores.Locate('CD_CNPJ', + qryPesquisa.FieldByName('TX_DOCUMENTO').AsString, []) + end; + dtsDevedor.DataSet := dtmSystem.tblDevedores; + pcDevedor.Enabled := true; + // CriarLista; + AdjustCheckListBox; +end; + +procedure TfrmAtendimento.dbgrd_providenciasDblClick(Sender: TObject); +var + pt: TPoint; + coord: TGridCoord; + clickheader: Integer; +begin + pt := dbgrd_providencias.ScreenToClient(Mouse.CursorPos); + coord := dbgrd_providencias.MouseCoord(pt.X, pt.Y); + clickheader := coord.Y; + if clickheader > 0 then + begin + edt_prov.Text := dtmSystem.tblProvidenciasTX_NOME.AsString; + end; +end; + +procedure TfrmAtendimento.dbgrd_telDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblTelefones.FieldByName('TP_ATIVO').AsString, + ['S', 'N']) of + 0: + dbgrd_tel.Canvas.Brush.Color := clGreen; + 1: + dbgrd_tel.Canvas.Brush.Color := $0000FF; + end; + // end; + dbgrd_tel.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmAtendimento.dbgrd_telTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblTelefones, Column); +end; + +procedure TfrmAtendimento.dbgrd_titCellClick(Column: TColumn); +var + i: Integer; +begin + inherited; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); +// if dtmSystem.tblTitulosID_EMPRESA.AsString = dtmSystem. +// tblCHGEmpresaID_EMPRESA.AsString then +// begin +// clb_empresas.Checked[i] := true; +// end +// else +// begin +// clb_empresas.Checked[i] := false; +// end; +// end; +end; + +procedure TfrmAtendimento.dbgrd_titDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblTitulos.FieldByName('TP_SITUACAO').AsString, + ['A', 'AC', 'AB', 'AJ', 'B', 'QC', 'QB']) of + 0: + dbgrd_tit.Canvas.Brush.Color := clWhite; + 1: + dbgrd_tit.Canvas.Brush.Color := $0000D7FF; + 2: + dbgrd_tit.Canvas.Brush.Color := $002FFFAD; + 3: + dbgrd_tit.Canvas.Brush.Color := clMoneyGreen; + 4: + dbgrd_tit.Canvas.Brush.Color := clRed; + 5: + dbgrd_tit.Canvas.Brush.Color := $00EBCE87; + 6: + dbgrd_tit.Canvas.Brush.Color := $00E16941; + end; + // end; + dbgrd_tit.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmAtendimento.dbgrd_titTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblTitulos, Column); +end; + +procedure TfrmAtendimento.dbrg_tipotelClick(Sender: TObject); +begin + if dbrg_tipotel.ItemIndex = 1 then + begin + DBRadioGroup1.Enabled := true; + end + else + begin + DBRadioGroup1.Enabled := false; + DBRadioGroup1.ItemIndex := -1; + end; +end; + +procedure TfrmAtendimento.dtp_atrasorecalcChange(Sender: TObject); +var + mes, ano: string; +begin + + if id_emp_calc <> -1 then + begin + + if dtmSystem.tblEmpresaRepasse.IsEmpty then + begin + Showmessage('Esta empresa no possui nenhum repasse cadastrado.' + + ' Por favor contate a administrao e interrompa a baixa de qualquer ttulo ' + + 'relacionado a empresa em questo.'); + end + else + begin + mes := copy(FormatDateTime('yyyy-mm-dd', dtp_atrasorecalc.Date), 6, 2); + ano := copy(FormatDateTime('yyyy-mm-dd', dtp_atrasorecalc.Date), 1, 4); + + if not dtmSystem.tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []) then + begin + Showmessage + ('Esta empresa no possui repasse para o ms da data de pagamento escolhida cadastrado.' + + ' Por favor contate a administrao e interrompa a baixa de qualquer ttulo ' + + 'relacionado a empresa em questo.'); + end; + end; + end; + + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.dtsDespesasStateChange(Sender: TObject); +begin + dbgrd_despesas.ReadOnly := not(dtsDespesas.State in [dsInsert, dsEdit]); + navtitulos.Enabled := not(dtsDespesas.State in [dsInsert, dsEdit]); +end; + +procedure TfrmAtendimento.dtsDevedorDataChange(Sender: TObject; Field: TField); +var + new_id, i: Integer; +begin + if qryConsulta.Connection = nil then + begin + exit; + end; + + if dtsDevedor.DataSet.FieldByName('TP_CLIENTE').AsString = 'F' then + begin + dbedt_cpfcnpj.DataField := 'CD_CPF'; + dbedt_cpfcnpjc.DataField := 'CD_CPF'; + end + else + begin + dbedt_cpfcnpj.DataField := 'CD_CNPJ'; + dbedt_cpfcnpjc.DataField := 'CD_CNPJ'; + end; + + new_id := dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + if (old_id <> new_id) and not(dtsDevedor.State in [dsInsert]) then + begin + setlength(ids_tits_calc, 0); + setlength(str_tit, 0); + lv_titulos.Clear; + id_emp_calc := -1; + mem_obsrecibo.Clear; + atendimento := 'atendendo'; + pcDevedor.TabIndex := 0; + for i := 0 to length(ids_tits_calc) - 1 do + begin + ids_tits_calc[i] := false; + end; + old_id := new_id; + btn_protocolo.Enabled := true; + edt_protocolo.Text := ''; + edt_protocolo1.Text := ''; + cb_agendahist.Checked := false; + dtp_agendadatahist.Enabled := false; + dtp_agendadatahist.Date := Date; + dtp_agendahorahist.Enabled := false; + dtp_agendahorahist.Time := Timeof(Now); + dblucb_agendacobhist.Enabled := false; + clb_beneficiarioscalculo.Clear; + + qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + '(select id_empresa from chg_titulos' + + ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + qryConsulta.Open; + qryConsulta.First; + setlength(id_emps_dev, qryConsulta.RecordCount); + while not qryConsulta.Eof do + begin + clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + .AsString); + id_emps_dev[qryConsulta.RecNo - 1] := + qryConsulta.FieldByName('ID_EMPRESA').AsInteger; + qryConsulta.Next; + end; + ChecaPermissoes; + // clb_beneficiarioscalculo.Checked[0] := True; + end; + +end; + +procedure TfrmAtendimento.dtsDevedorStateChange(Sender: TObject); +begin + if Assigned(dtsDevedor.DataSet) then + begin + dtmSystem.AlterReadOnly(pnl_cadastro, dtsDevedor.DataSet); + dbedt_nomec.ReadOnly := (dtsDevedor.State in [dsBrowse]); + dbedt_cpfcnpjc.ReadOnly := (dtsDevedor.State in [dsBrowse]); + dbmb_obsc.ReadOnly := (dtsDevedor.State in [dsBrowse]); + end; +end; + +procedure TfrmAtendimento.dtsEmailStateChange(Sender: TObject); +begin + dbedt_email.ReadOnly := dtsEmail.State in [dsBrowse]; +end; + +procedure TfrmAtendimento.dtsEnderecosStateChange(Sender: TObject); +begin + dtmSystem.AlterReadOnly(pnl_enderecos, dtsEnderecos.DataSet); +end; + +procedure TfrmAtendimento.dtsHistoricoStateChange(Sender: TObject); +begin + dblucb_providencia.Enabled := dtsHistorico.State in [dsEdit, dsInsert]; + dbgrd_historico.ReadOnly := dtsHistorico.State in [dsEdit, dsInsert]; + dbmemo_box.ReadOnly := not(dtsHistorico.State in [dsInsert, dsEdit]); + if dtsHistorico.State in [dsInsert] then + begin + dtsHistorico.DataSet.FieldByName('CD_PROTOCOLO').AsString := + dtmSystem.gerarProtocolo(dtsDevedor.DataSet.FieldByName('ID_DEVEDOR') + .AsString); + edt_protocolo.Text := dtmSystem.gerarProtocolo + (dtsDevedor.DataSet.FieldByName('ID_DEVEDOR').AsString); + edt_protocolo1.Text := edt_protocolo.Text; + btn_protocolo.Enabled := false; + end; +end; + +procedure TfrmAtendimento.dtsTelefonesDataChange(Sender: TObject; + Field: TField); +begin + if dbrg_tipotel.ItemIndex = 1 then + begin + DBRadioGroup1.Enabled := true; + end + else + begin + DBRadioGroup1.Enabled := false; + DBRadioGroup1.ItemIndex := -1; + end; +end; + +procedure TfrmAtendimento.dtsTitulosDataChange(Sender: TObject; Field: TField); +var + i, old_id_tit: Integer; +begin + + // if (Field = dtmSystem.tblTitulosVL_DESPESA) or + // (Field = dtmSystem.tblTitulosTP_DESPESA) then + // begin + // queryListaTitulos.Refresh; + // Att_campos; + // CalcValorParcelas; + // end; + // + // for i := 0 to clb_empresas.Items.Count - 1 do + // begin + // dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); + // if dtmSystem.tblTitulosID_EMPRESA.AsString = dtmSystem. + // tblCHGEmpresaID_EMPRESA.AsString then + // begin + // clb_empresas.Checked[i] := true; + // end + // else + // begin + // clb_empresas.Checked[i] := false; + // end; + // end; + new_id_tit := dtmSystem.tblTitulosID_TITULO.AsInteger; + if old_id_tit <> new_id_tit then + begin + old_id_tit := new_id_tit; +// clb_empresas.Items.beginupdate; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.Checked[i] := false; +// end; +// clb_empresas.Items.EndUpdate; +// if dtmSystem.tblTitulosID_EMPRESA.AsString = '' then +// begin +// selected_id_chg_empresa := -1; +// end +// else +// begin +// dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', +// dtmSystem.tblTitulosID_EMPRESA.AsInteger, []); +// selected_id_chg_empresa := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; +// if clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 +// then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString)] := true; +// end; +// end; + + end; +// if not(dtsTitulos.DataSet.State in [dsEdit, dsInsert]) then +// begin +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.ItemEnabled[i] := false; +// end; +// end +// else +// begin +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.ItemEnabled[i] := true; +// end; +// end; +end; + +procedure TfrmAtendimento.dtsTitulosStateChange(Sender: TObject); +begin + dtmSystem.AlterReadOnly(pnl_titulos, dtsTitulos.DataSet); + dtmSystem.AlterReadOnly(pnl_cheque, dtsTitulos.DataSet); + navDespesas.Enabled := not(dtsTitulos.State in [dsInsert, dsEdit]); + dbmem_titobs.ReadOnly := not(dtsTitulos.State in [dsEdit, dsInsert]); + +end; + +procedure TfrmAtendimento.edt_txextraChange(Sender: TObject); +begin + if length(edt_txextra.Text) < 1 then + begin + edt_txextra.Text := '0'; + end; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.edt_txextraKeyPress(Sender: TObject; var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_txextra.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_descfixoKeyPress(Sender: TObject; var Key: Char); +begin + // if not(Key in [#8, '0' .. '9', + // System.SysUtils.FormatSettings.DecimalSeparator]) then + // begin + // Key := #0; + // end + // else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + // (Pos(Key, edt_descfixo.Text) > 0) then + // begin + // Key := #0; + // end; +end; + +procedure TfrmAtendimento.edt_descindextrasExit(Sender: TObject); +begin + try + if edt_descindextras.Text <> '' then + begin + desc_indices_extras[cb_descindicesextras.ItemIndex] := + edt_descindextras.Text; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_descindextrasKeyPress(Sender: TObject; + var Key: Char); +begin + if Key = #13 then + begin + SelectNext(ActiveControl as TWinControl, true, true); + end; +end; + +procedure TfrmAtendimento.edt_excentradaChange(Sender: TObject); +begin + if length(edt_excentrada.Text) < 1 then + begin + edt_excentrada.Text := '0'; + end; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.edt_excentradaKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_excentrada.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_excjurosparcelaChange(Sender: TObject); +begin + if length(edt_excjurosparcela.Text) < 1 then + begin + edt_excjurosparcela.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.edt_excjurosparcelaKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_excjurosparcela.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_campopKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if edt_campop.Text <> '' then + begin + btn_pesquisar.Click; + end; + end; + +end; + +procedure TfrmAtendimento.edt_corparChange(Sender: TObject); +begin + try + if (strtofloat(edt_corpar.Text) > -1) and (queryListaTitulos.Active) and + (edt_corpar.Text <> '') then + begin + if strtofloat(edt_corpar.Text) > + strtoint(copy(lbl_maxparcor.Caption, 6, length(lbl_maxparcor.Caption) - + 1 - 5)) then + begin + edt_corpar.Text := copy(lbl_maxparcor.Caption, 6, + length(lbl_maxparcor.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if ud_corpar.Max = 0 then + begin + edt_corpar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_corparKeyPress(Sender: TObject; var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_corpar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_corquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_corquitar.Text) > -1) and (queryListaTitulos.Active) and + (edt_corquitar.Text <> '') then + begin + if strtofloat(edt_corquitar.Text) > + strtoint(copy(lbl_maxquitcor.Caption, 6, length(lbl_maxquitcor.Caption) + - 1 - 5)) then + begin + edt_corquitar.Text := copy(lbl_maxquitcor.Caption, 6, + length(lbl_maxquitcor.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if ud_corquitar.Max = 0 then + begin + edt_corquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_corquitarKeyPress(Sender: TObject; var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_corquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_indparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_indparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_indparcelas.Text <> '') then + begin + if strtofloat(edt_indparcelas.Text) > + strtoint(copy(lbl_maxindpar.Caption, 6, length(lbl_maxindpar.Caption) - + 1 - 5)) then + begin + edt_indparcelas.Text := copy(lbl_maxindpar.Caption, 6, + length(lbl_maxindpar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_encparcelas.Max = 0 then + begin + edt_indparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_indparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_indparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_indquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_indquitar.Text) > -1) and (queryListaTitulos.Active) and + (edt_indquitar.Text <> '') then + begin + if strtofloat(edt_indquitar.Text) > + strtoint(copy(lbl_maxindquit.Caption, 6, length(lbl_maxindquit.Caption) + - 1 - 5)) then + begin + edt_indquitar.Text := copy(lbl_maxindquit.Caption, 6, + length(lbl_maxindquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_encquitar.Max = 0 then + begin + edt_indquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_indquitarKeyPress(Sender: TObject; var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_indquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_jurosparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_jurosparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_jurosparcelas.Text <> '') then + begin + if strtofloat(edt_jurosparcelas.Text) > + strtoint(copy(lbl_maxjurospar.Caption, 6, + length(lbl_maxjurospar.Caption) - 1 - 5)) then + begin + edt_jurosparcelas.Text := copy(lbl_maxjurospar.Caption, 6, + length(lbl_maxjurospar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_jurosparcelas.Max = 0 then + begin + edt_jurosparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_jurosparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_jurosparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_jurosquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_jurosquitar.Text) > -1) and (queryListaTitulos.Active) + and (edt_jurosquitar.Text <> '') then + begin + if strtofloat(edt_jurosquitar.Text) > + strtoint(copy(lbl_maxjurosquit.Caption, 6, + length(lbl_maxjurosquit.Caption) - 1 - 5)) then + begin + edt_jurosquitar.Text := copy(lbl_maxjurosquit.Caption, 6, + length(lbl_maxjurosquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_jurosquitar.Max = 0 then + begin + edt_jurosquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_jurosquitarKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_jurosquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_multasparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_multasparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_multasparcelas.Text <> '') then + begin + if strtofloat(edt_multasparcelas.Text) > + strtoint(copy(lbl_maxmultapar.Caption, 6, + length(lbl_maxmultapar.Caption) - 1 - 5)) then + begin + edt_multasparcelas.Text := copy(lbl_maxmultapar.Caption, 6, + length(lbl_maxmultapar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_multasparcelas.Max = 0 then + begin + edt_multasparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_multasparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_multasparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_multasquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_multasquitar.Text) > -1) and (queryListaTitulos.Active) + and (edt_multasquitar.Text <> '') then + begin + if strtofloat(edt_multasquitar.Text) > + strtoint(copy(lbl_maxmultaquit.Caption, 6, + length(lbl_maxmultaquit.Caption) - 1 - 5)) then + begin + edt_multasquitar.Text := copy(lbl_maxmultaquit.Caption, 6, + length(lbl_maxmultaquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_multasquitar.Max = 0 then + begin + edt_multasquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_multasquitarKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_multasquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_nrparcelasChange(Sender: TObject); +begin + try + if (strtoint(edt_nrparcelas.Text) > -1) and (queryListaTitulos.Active) and + (edt_nrparcelas.Text <> '') then + begin + if strtoint(edt_nrparcelas.Text) > up_nrparcelas.Max then + begin + edt_nrparcelas.Text := inttostr(up_nrparcelas.Max); + end; + if strtoint(edt_nrparcelas.Text) < 0 then + begin + edt_nrparcelas.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if (cb_descquit.Checked) and not(ficha_dev) then + begin + edt_nrparcelas.Text := '0'; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_nrparcelasExit(Sender: TObject); +begin + if edt_nrparcelas.Text = '' then + begin + edt_nrparcelas.Text := '0'; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; +end; + +procedure TfrmAtendimento.edt_prentradaChange(Sender: TObject); +begin + try + if (strtoint(edt_prentrada.Text) > -1) and (queryListaTitulos.Active) and + (edt_prentrada.Text <> '') then + begin + if strtoint(edt_prentrada.Text) > + strtoint(copy(lbl_maxentrada.Caption, 6, length(lbl_maxentrada.Caption) + - 1 - 5)) then + begin + edt_prentrada.Text := copy(lbl_maxentrada.Caption, 6, + length(lbl_maxentrada.Caption) - 1 - 5); + end; + if strtoint(edt_prentrada.Text) < + strtoint(copy(lbl_minentrada.Caption, 6, length(lbl_minentrada.Caption) + - 1 - 5)) then + begin + edt_prentrada.Text := copy(lbl_minentrada.Caption, 6, + length(lbl_minentrada.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if ud_entrada.Max = 0 then + begin + edt_prentrada.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_principalparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_principalparcelas.Text) > -1) and + (queryListaTitulos.Active) and (edt_principalparcelas.Text <> '') then + begin + if strtofloat(edt_principalparcelas.Text) > + strtoint(copy(lbl_maxprinpar.Caption, 6, length(lbl_maxprinpar.Caption) + - 1 - 5)) then + begin + edt_principalparcelas.Text := copy(lbl_maxprinpar.Caption, 6, + length(lbl_maxprinpar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_principalparcelas.Max = 0 then + begin + edt_principalparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_principalparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_principalparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_principalquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_principalquitar.Text) > -1) and + (queryListaTitulos.Active) and (edt_principalquitar.Text <> '') then + begin + if strtofloat(edt_principalquitar.Text) > + strtoint(copy(lbl_maxprinquit.Caption, 6, + length(lbl_maxprinquit.Caption) - 1 - 5)) then + begin + edt_principalquitar.Text := copy(lbl_maxprinquit.Caption, 6, + length(lbl_maxprinquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_principalquitar.Max = 0 then + begin + edt_principalquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmAtendimento.edt_principalquitarKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_principalquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmAtendimento.edt_reciboobsChange(Sender: TObject); +begin + // if length(mem_obsrecibo.Lines.Text) > edt_reciboobs.MaxLength then + // begin + // edt_reciboobs.Text := copy(edt_reciboobs.Text, 1, edt_reciboobs.MaxLength); + // end; +end; + +procedure TfrmAtendimento.FormCanResize(Sender: TObject; + var NewWidth, NewHeight: Integer; var Resize: Boolean); +begin + if after_show then + begin + Resize := false; + end + else + begin + Resize := true; + end; +end; + +procedure TfrmAtendimento.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if fez_recibo then + begin + if Messagedlg + ('Voc est prestes a fechar um acionamento em andamento COM RECIBO J GERADO. Alteraes neste devedor podem no ser salvas, mas o RECIBO CONTINUAR EXISTINDO. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + end; + Screen.Cursor := crDefault; + Action := caFree; + frmAtendimento := nil; +end; + +procedure TfrmAtendimento.FormCreate(Sender: TObject); +var + Pos: Integer; +begin + + cdsTitulos.Close; + cdsParcelas.Close; + cdsTitulos.CreateDataSet; + cdsParcelas.CreateDataSet; + + Pos := 0; + ficha_dev := false; + id_emp_calc := -1; + old_id := -1; + setlength(ids_tits_calc, 0); + atendimento := 'atendendo'; + dtp_atrasorecalc.Date := Date; + dtp_agendadatahist.MinDate := Date; + after_show := false; + dtsDevedor.DataSet := nil; + fez_recibo := false; + // tabCadastro.Enabled := false; + with dtmSystem do + begin + if not tblDevedores.Active then + begin + tblDevedores.Open; + end + else + begin + tblDevedores.Refresh; + end; + if not tblEmail.Active then + begin + tblEmail.Open; + end + else + begin + tblEmail.Refresh; + end; + if not tblEnderecos.Active then + begin + tblEnderecos.Open; + end + else + begin + tblEnderecos.Refresh; + end; + if not tblEstados.Active then + begin + tblEstados.Open; + end + else + begin + tblEstados.Refresh; + end; + if not tblCidades.Active then + begin + tblCidades.Open; + end + else + begin + tblCidades.Refresh; + end; + if not tblTelefones.Active then + begin + tblTelefones.Open; + end + else + begin + tblTelefones.Refresh; + end; + // tblTitulos.Close; + if not tblTitulos.Active then + begin + tblTitulos.Open; + end + else + begin + tblTitulos.Refresh; + end; + // if not tblProtocolo.Active then + // begin + // tblProtocolo.Open; + // end; + if not tblEmpresa.Active then + begin + tblEmpresa.Open; + end + else + begin + tblEmpresa.Refresh; + end; + tblEmpresa.First; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end + else + begin + tblCHGEmpresa.Refresh; + end; + if not tblEmpresaRepasse.Active then + begin + tblEmpresaRepasse.Open; + end; + tblCHGEmpresa.First; + if not tblDespesasTitulos.Active then + begin + tblDespesasTitulos.Open; + end; + if not tblIndicadorFinanceiro.Active then + begin + tblIndicadorFinanceiro.Open; + end; + if not tblProvidencias.Active then + begin + tblProvidencias.Open; + end + else + begin + tblProvidencias.Refresh; + end; + if not tblHistorico.Active then + begin + tblHistorico.Open; + end + else + begin + tblHistorico.Refresh; + end; + if not tblPoliticas.Active then + begin + tblPoliticas.Open; + end + else + begin + tblPoliticas.Refresh; + end; + if not tblFaixas.Active then + begin + tblFaixas.Open; + end + else + begin + tblFaixas.Refresh; + end; + if not tblAcordos.Active then + begin + tblAcordos.Open; + end + else + begin + tblAcordos.Refresh; + end; + +// while not tblCHGEmpresa.Eof do +// begin +// clb_empresas.Items.Add(tblCHGEmpresaTX_NOME.AsString); +// if tblTitulosID_EMPRESA.AsString = tblCHGEmpresaID_EMPRESA.AsString then +// begin +// clb_empresas.Checked[Pos] := true; +// end; +// tblCHGEmpresa.Next; +// Pos := Pos + 1; +// end; + + tblIndices.Open; + tblIndices.First; + cb_descindicesextras.Items.Clear; + desc_indices_extras := TStringList.Create; + while not tblIndices.Eof do + begin + cb_descindicesextras.Items.Add(tblIndicesTX_NOME.AsString); + desc_indices_extras.Add('0,00'); + clb_indices.Items.Add(tblIndicesTX_NOME.AsString); + tblIndices.Next; + end; + cb_descindicesextras.ItemIndex := 0; + tblHistorico.Open; + if not tblPrCartao.Active then + begin + tblPrCartao.Open; + end + else + begin + tblPrCartao.Refresh; + end; + end; + if dtmSystem.id_grupo <> 1 then + begin + dbgrd_tit.Columns[9].Visible := false; + dbgrd_tit.Columns[10].Visible := false; + DBGrid1.PopupMenu := nil; + end; + dbgrd_enderecos.DataSource.DataSet.First; + + gb_descontosquit.Enabled := cb_descquit.Checked; + gb_descontospar.Enabled := cb_descpar.Checked; + + FListViewOldWndProc := lv_titulos.WindowProc; + lv_titulos.WindowProc := ListViewNewWndProc; + FlistViewOldWndProc2 := lv_parcelas.WindowProc; + lv_parcelas.WindowProc := ListViewNewWndProc2; + // FListViewOldWndProc3 := lv_prevtitulos.WindowProc; + // lv_prevtitulos.WindowProc := ListViewNewWndProc3; + // FlistViewOldWndProc4 := lv_fechamento.WindowProc; + // lv_fechamento.WindowProc := ListViewNewWndProc4; + + SetupHackedNavigator(navdevedor, ImageList1, 's', 8); + SetupHackedNavigator(navEmail, ImageList1, 's', 8); + SetupHackedNavigator(navenderecos, ImageList1, 's', 8); + SetupHackedNavigator(navtelefones, ImageList1, 's', 8); + SetupHackedNavigator(navtitulos, ImageList1, 's', 8); + SetupHackedNavigator(navhistorico, ImageList1, 's', 8); + SetupHackedNavigator(navDespesas, ImageList1, 's', 8); + + pcDevedor.ActivePageIndex := 0; + pcDevedor.Enabled := false; + ChecaPermissoes; + + dtp_agatend.Date := Date; + dtph_agatend.Time := Now; + // dtsDevedor.DataSet.Refresh; + + // cb_descquit.Enabled := dtmSystem.VerificarPermissao('ACBR.01.01'); + // cb_descpar.Enabled := dtmSystem.VerificarPermissao('ACBR.01.02'); + // cb_nmulta.Enabled := dtmSystem.VerificarPermissao('ACBR.01.03'); + // cbx_excentrada.Enabled := dtmSystem.VerificarPermissao('ACBR.01.04'); + // clb_indices.Enabled := dtmSystem.VerificarPermissao('ACBR.01.05'); + // ECBR.02.01 + // navdevedor.Enabled := dtmSystem.VerificarPermissao('ACBR.02.01'); + // navenderecos.Enabled := dtmSystem.VerificarPermissao('ACBR.02.02'); + // navtelefones.Enabled := dtmSystem.VerificarPermissao('ACBR.02.03'); + // navtitulos.Enabled := dtmSystem.VerificarPermissao('ACBR.02.04'); + // navhistorico.Enabled := dtmSystem.VerificarPermissao('ACBR.02.05'); + +end; + +procedure TfrmAtendimento.FormDestroy(Sender: TObject); +begin + lv_titulos.WindowProc := FListViewOldWndProc; + FListViewOldWndProc := nil; +end; + +procedure TfrmAtendimento.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +var + resultado: Integer; +begin + if Key = VK_ESCAPE then + begin + if Messagedlg + ('Voc est prestes a fechar um acionamento em andamento. Alteraes neste devedor podem no ser salvas. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + if pcDevedor.TabIndex = 6 then + begin + resultado := Messagedlg + ('Deseja realmente fechar a janela antes de efetuar a cobrana?', + mtConfirmation, [mbYes, mbNo], 0); + if resultado = mrYes then + begin + Key := 0; + Close; + end + else + begin + Key := 0; + end; + end + else + begin + Key := 0; + Close; + end; + end; + if (Key = 75) and (Shift = [ssCtrl]) then + begin + // ShowMessage('Ctrl+k is pressed!'); + frmLiberaPermissao := TfrmLiberaPermissao.Create(self); + + with frmLiberaPermissao do + begin + level := 2; + string_permissoes.Add('CBR.01.03.01.01'); + string_permissoes.Add('CBR.01.03.01.06'); + string_permissoes.Add('CBR.01.03.01.06.01'); + string_permissoes.Add('CBR.01.03.01.06.02'); + string_permissoes.Add('CBR.01.03.01.06.03'); + string_permissoes.Add('CBR.01.03.01.02'); + string_permissoes.Add('CBR.01.03.01.02.01'); + string_permissoes.Add('CBR.01.03.01.02.02'); + string_permissoes.Add('CBR.01.03.01.02.03'); + string_permissoes.Add('CBR.01.03.01.03'); + string_permissoes.Add('CBR.01.03.01.03.01'); + string_permissoes.Add('CBR.01.03.01.03.02'); + string_permissoes.Add('CBR.01.03.01.03.03'); + string_permissoes.Add('CBR.01.03.01.04'); + string_permissoes.Add('CBR.01.03.01.04.01'); + string_permissoes.Add('CBR.01.03.01.04.02'); + string_permissoes.Add('CBR.01.03.01.04.03'); + string_permissoes.Add('CBR.01.03.01.05'); + string_permissoes.Add('CBR.01.03.01.05.01'); + string_permissoes.Add('CBR.01.03.01.05.02'); + string_permissoes.Add('CBR.01.03.01.05.03'); + string_permissoes.Add('CBR.01.03.02.01.01'); + string_permissoes.Add('CBR.01.03.02.01.02'); + string_permissoes.Add('CBR.01.03.02.01.03'); + string_permissoes.Add('CBR.01.03.02.02'); + string_permissoes.Add('CBR.01.03.02.03'); + string_permissoes.Add('CBR.01.03.02.04'); + string_permissoes.Add('CBR.01.03.02.05'); + + ShowModal; + + if ModalResult = mrOk then + begin + case dtmSystem.cod_liberapermissao of + 0: + navdevedor.Enabled := true; + 1: + navEmail.Enabled := true; + 2: + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbInsert]; + 3: + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbEdit]; + 4: + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbDelete]; + 5: + navenderecos.Enabled := true; + 6: + navenderecos.VisibleButtons := navenderecos.VisibleButtons + + [nbInsert]; + 7: + navenderecos.VisibleButtons := navenderecos.VisibleButtons + + [nbEdit]; + 8: + navenderecos.VisibleButtons := navenderecos.VisibleButtons + + [nbDelete]; + 9: + navtelefones.Enabled := true; + 10: + navtelefones.VisibleButtons := navtelefones.VisibleButtons + + [nbInsert]; + 11: + navtelefones.VisibleButtons := navtelefones.VisibleButtons + + [nbEdit]; + 12: + navtelefones.VisibleButtons := navtelefones.VisibleButtons + + [nbDelete]; + 13: + navtitulos.Enabled := true; + 14: + navtitulos.VisibleButtons := navtitulos.VisibleButtons + [nbInsert]; + 15: + navtitulos.VisibleButtons := navtitulos.VisibleButtons + [nbEdit]; + 16: + navtitulos.VisibleButtons := navtitulos.VisibleButtons + [nbDelete]; + 17: + navhistorico.Enabled := true; + 18: + navhistorico.VisibleButtons := navhistorico.VisibleButtons + + [nbInsert]; + 19: + navhistorico.VisibleButtons := navhistorico.VisibleButtons + + [nbEdit]; + 20: + navhistorico.VisibleButtons := navhistorico.VisibleButtons + + [nbDelete]; + 21: + tabQuitar.Enabled := true; + 22: + tabParcelar.Enabled := true; + 23: + cbx_descindextras.Enabled := true; + 24: + cb_nmulta.Enabled := true; + 25: + cbx_txextra.Enabled := true; + 26: + cbx_excentrada.Enabled := true; + 27: + clb_indices.Enabled := true; + end; + end; + end; + + end; +end; + +procedure TfrmAtendimento.FormShow(Sender: TObject); +begin + after_show := true; + if dtmSystem.tblUsuarios.RecordCount > 0 then + begin + queryCobradores.SQL.Text := + 'select id_usuario, tx_nome from sys_usuarios where tp_ativo = ' + + QuotedStr('S') + ' order by tx_nome'; + queryCobradores.Open; + end; +end; + +procedure TfrmAtendimento.GuardaTitulos; +var + i: Integer; +begin + cdsTitulos.Append; + for i := 0 to cdsTitulos.Fields.Count - 1 do + begin + cdsTitulos.Fields[i].AsVariant := dtmSystem.tblTitulos.FieldByName + (cdsTitulos.Fields[i].FieldName).AsVariant; + end; + cdsTitulos.Post; +end; + +procedure TfrmAtendimento.ListViewNewWndProc(var Msg: TMessage); +var + hdn: ^THDNotify; +begin + if Msg.Msg = WM_NOTIFY then + begin + hdn := Pointer(Msg.lParam); + if (hdn.hdr.code = HDN_BeginTrackW) or (hdn.hdr.code = HDN_BeginTrackA) then + begin + Msg.result := 1 + end + else + begin + FListViewOldWndProc(Msg); + end; + end + else + begin + FListViewOldWndProc(Msg); + end; +end; + +procedure TfrmAtendimento.ListViewNewWndProc2(var Msg: TMessage); +var + hdn: ^THDNotify; +begin + if Msg.Msg = WM_NOTIFY then + begin + hdn := Pointer(Msg.lParam); + if (hdn.hdr.code = HDN_BeginTrackW) or (hdn.hdr.code = HDN_BeginTrackA) then + begin + Msg.result := 1 + end + else + begin + FlistViewOldWndProc2(Msg); + end; + end + else + begin + FlistViewOldWndProc2(Msg); + end; +end; + +procedure TfrmAtendimento.lv_titulosChange(Sender: TObject; Item: TListItem; + Change: TItemChange); +begin + // Att_campos; + // CalcValorParcelas; +end; + +procedure TfrmAtendimento.lv_titulosItemChecked(Sender: TObject; + Item: TListItem); +var + i, k: Integer; +begin + qtde_titulos := 0; + k := 0; + if lv_titulos.Items.Count > 0 then + begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + qtde_titulos := qtde_titulos + 1; + setlength(str_tit, k + 1); + str_tit[k] := queryListaTitulosID_TITULO.AsInteger; + Inc(k, 1); + end; + end; + end; + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corquitar.Text := '0'; + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + edt_corpar.Text := '0'; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.mnuQuebraAcordoClick(Sender: TObject); +var + str_help: string; + i: Integer; +begin + inherited; + if Messagedlg('Deseja realmente quebrar o acordo selecionado?' + + ' Esta opo ira apenas desvincular os ttulos originais aos parcelamentos.', + mtWarning, [mbYes, mbNo], 0) = mrYes then + begin + ZReadOnlyQuery1.SQL.Text := 'SELECT * FROM SYS_ACORDOS WHERE ID_ACORDO = ' + + dtmSystem.zroQryAcordosID_ACORDO.AsString; + ZReadOnlyQuery1.Open; + ZReadOnlyQuery1.First; + str_help := 'Antes de deletar:' + sLineBreak; + while not ZReadOnlyQuery1.Eof do + begin + for i := 0 to ZReadOnlyQuery1.Fields.Count - 1 do + begin + str_help := str_help + ZReadOnlyQuery1.Fields[i].FieldName + ': ' + + ZReadOnlyQuery1.Fields[i].AsString + sLineBreak; + end; + ZReadOnlyQuery1.Next; + end; + dtmSystem.tblLog.Append; + dtmSystem.tblLogTX_TABELA.AsString := 'SYS_ACORDOS'; + dtmSystem.tblLogID_REGISTRO.AsInteger := + dtmSystem.zroQryAcordosID_ITEM.AsInteger; + dtmSystem.tblLogTX_ACAO.AsString := 'delete'; + dtmSystem.tblLogTL_ACAO.AsString := str_help; + dtmSystem.tblLog.Post; + dtmSystem.ZSQLProcessorAcordos.Script.Text := + 'DELETE FROM SYS_ACORDOS WHERE ID_ACORDO = ' + + dtmSystem.zroQryAcordosID_ACORDO.AsString; + dtmSystem.ZSQLProcessorAcordos.Execute; + dtmSystem.zroQryAcordos.Refresh; + end; +end; + +procedure TfrmAtendimento.mnuretirarClick(Sender: TObject); +var + i: Integer; +begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + lv_titulos.Items[i].Checked := false; + + end; + qtde_titulos := 0; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.mnu_incluirClick(Sender: TObject); +var + i: Integer; +begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + lv_titulos.Items[i].Checked := true; + end; + qtde_titulos := lv_titulos.Items.Count; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmAtendimento.navhistoricoBeforeAction(Sender: TObject; + Button: TNavigateBtn); +var + string_helper: string; +begin + if Button = nbPost then + begin + if dblucb_providencia.KeyValue < 0 then + begin + Messagedlg('Por favor escolha uma providncia a ser lanada.', mtWarning, + [mbok], 0); + abort; + end + else + begin + if dtsHistorico.State in [dsInsert] then + begin + if cb_agendahist.Checked then + begin + if dblucb_agendacobhist.KeyValue < 0 then + begin + Messagedlg('Por favor escolha o cobrador ao qual ser agendado.', + mtWarning, [mbok], 0); + abort; + end + else + begin + if Messagedlg + ('Voc est prestes a agendar um devedor. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + end; + if dtp_agendahorahist.Time < Timeof(Now) then + begin + Messagedlg + ('Voc est selecionando um horrio para agendamento menor que a hora atual.', + mtWarning, mbYesNo, 0); + abort; + end; + end; + if Messagedlg + ('Esta incluso de histrico ir retirar este devedor de qualquer agendamento. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + Screen.Cursor := crHourglass; + with dtmSystem do + begin + if not(tblAgenda.Active) then + begin + tblAgenda.Open; + end; + while tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + VarArrayOf([dtsDevedores.DataSet.FieldByName('ID_DEVEDOR') + .AsInteger, 'A']), []) do + begin + tblAgenda.Edit; + tblAgendaTP_SITUACAO.AsString := 'B'; + tblAgenda.Post; + end; + end; + if cb_agendahist.Checked then + begin + with dtmSystem do + begin + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := dblucb_agendacobhist.KeyValue; + tblAgendaID_DEVEDOR.AsInteger := dtsDevedores.DataSet.FieldByName + ('ID_DEVEDOR').AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := dtp_agendadatahist.Date; + tblAgendaHR_AGENDADA.AsDateTime := dtp_agendahorahist.Time; + tblAgendaDT_QUE_AGENDOU.AsDateTime := Now; + tblAgendaQUEM_AGENDOU.AsInteger := dtmSystem.id_usuario; + tblAgenda.Post; + end; + string_helper := 'Agendado para o dia ' + + DateToStr(dtp_agendadatahist.Date) + ' no horrio ' + + TimeToStr(dtp_agendahorahist.Time) + ' para o cobrador ' + + dblucb_agendacobhist.Text; + // end; + end + else + begin + string_helper := ''; + end; + with dtmSystem do + begin + if not tblCampanhaDevedores.Active then + begin + tblCampanhaDevedores.Open; + end; + while tblCampanhaDevedores.Locate('ID_DEVEDOR', + dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger, []) do + begin + tblCampanhaDevedores.Delete; + end; + tblCampanhaDevedores.Close; + tblHistoricoID_DEVEDOR.AsInteger := dtsDevedores.DataSet.FieldByName + ('ID_DEVEDOR').AsInteger; + tblHistoricoDT_CONTATO.AsDateTime := Now; + dtmSystem.tblHistoricoTL_MEMO.AsString := + dtmSystem.tblHistoricoTL_MEMO.AsString + sLineBreak + string_helper; + // tblHistorico.Post; + end; + Screen.Cursor := crDefault; + // abort; + end; + end; + end; + if Button = nbCancel then + begin + if Messagedlg('Deseja realmente cancelar este histrico?', mtWarning, + [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; + end; +end; + +procedure TfrmAtendimento.navtelefonesBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navtelefones.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbok], 0); + abort; + end; + + nbPost: + begin + if dbedt_tel.Text = '' then + begin + Messagedlg('Por favor preencha um nmero para o telefone.', mtWarning, + [mbok], 0); + abort; + end; + + try + dbedt_tel.Text := dtmSystem.FormatTelefone(dbedt_tel.Text); + except + on E: Exception do + begin + Messagedlg(E.Message, mtWarning, [mbok], 0); + abort; + end; + end; + if dbrg_tipotel.ItemIndex = -1 then + begin + Messagedlg('Por favor escolha o tipo de telefone.', mtWarning, + [mbok], 0); + abort; + end; + + if (length(dbedt_tel.Text) = 10) then + begin + dbrg_tipotel.ItemIndex := 1; + end; + + if (length(dbedt_tel.Text) = 9) then + begin + dbrg_tipotel.ItemIndex := 0; + end; + + SelectNext(ActiveControl as TWinControl, true, true); + end; + + nbDelete: + begin + if navtelefones.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbok], 0); + abort; + end; + + if Messagedlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + + try + dtsTelefones.DataSet.Delete; + except + Showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + abort; + end; + + nbCancel: + if Messagedlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + end; +end; + +procedure TfrmAtendimento.navtitulosBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navtitulos.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbok], 0); + abort; + end; + + nbPost: + begin + if dbedit_produto.Text = '' then + begin + Messagedlg('Por favor insira um nome para o ttulo.', mtWarning, + [mbok], 0); + abort; + end; + if dbedt_vltit.Text = '' then + begin + Messagedlg('Por favor insira um valor para o ttulo.', mtWarning, + [mbok], 0); + abort; + end; + // for i := 0 to clb_empresas.Items.Count - 1 do + // begin + // if clb_empresas.Checked[i] then + // begin + // dtmSystem.tblCHGEmpresa.Locate('TX_NOME', + // clb_empresas.Items[i], []); + // dtmSystem.tblTitulosID_EMPRESA.AsString := + // dtmSystem.tblCHGEmpresaID_EMPRESA.AsString; + // end; + // end; +// if selected_id_chg_empresa <> -1 then +// begin +// dtmSystem.tblTitulosID_EMPRESA.AsInteger := selected_id_chg_empresa; +// end; + if DateToStr(rDBDateTimePicker1.Date) = '30/12/1899' then + begin + Messagedlg + ('Por favor selecione uma data de vencimento para o ttulo.', + mtWarning, [mbok], 0); + abort; + end; + if dtmSystem.tblTitulosID_EMPRESA.AsString = '' then + begin + Messagedlg('Por favor indique um Credor para o ttulo.', mtWarning, + [mbok], 0); + abort; + end; + SelectNext(ActiveControl as TWinControl, true, true); + end; + + nbDelete: + begin + if navtitulos.DataSource.State in [dsInsert, dsEdit] then + begin + Messagedlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbok], 0); + abort; + end; + + if Messagedlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + + try + dtsTitulos.DataSet.Delete; + except + Showmessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + abort; + end; + + nbCancel: + begin + if Messagedlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; +// if clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME.AsString) +// ] := false; +// end; +// dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', +// dtmSystem.tblTitulosID_EMPRESA.AsInteger, []); +// if clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString)] := true; +// end; + end; + end; +end; + +procedure TfrmAtendimento.OpenOfficeDocument(path: string); +var + OpenOffice, OpenDesktop, LoadParams, OODoc, FileReplace, SaveParams, + OOTableContainner, OOTable, OOTableRows, OOTableCell: Variant; + path_file, ASearch, AReplace: string; + : Integer; +begin + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + + LoadParams := VarArrayCreate([0, -1], varVariant); + // Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + // Param.Name := 'Hidden'; + // Param.Value := True; + // LoadParams := Param; + if path <> '' then + begin + path_file := 'file:///' + stringreplace(path, '\', '/', [rfReplaceAll]); + end + else + begin + path_file := 'private:factory/swriter'; + end; + OODoc := OpenDesktop.LoadComponentFromURL(path_file, '_default', 0, + LoadParams); + + FileReplace := OODoc.CreateReplaceDescriptor; + FileReplace.SearchCaseSensitive := false; + // Nome do devedor + ASearch := 'NOME_DEVEDOR'; // alt+0147 e alt+0148 + AReplace := dtsDevedor.DataSet.FieldByName('TX_NOME').AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // RG + ASearch := 'CD_RG'; // alt+0147 e alt+0148 + AReplace := dtsDevedor.DataSet.FieldByName('CD_RG').AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // CPF + ASearch := 'CD_CPF'; // alt+0147 e alt+0148 + AReplace := dtsDevedor.DataSet.FieldByName('CD_CPF').AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // INTERMEDIRIO + // dtsCHGEmpresa.DataSet.Locate('ID_EMPRESA', id_emp, []); + ASearch := 'EMPRESA_PROGRAMA'; // alt+0147 e alt+0148 + AReplace := UpperCase(dtsEmpresa.DataSet.FieldByName('TX_NOME').AsString) + + ' - CNPJ: ' + dtsEmpresa.DataSet.FieldByName('TX_CNPJ').AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // INTERMEDIRIO + dtsCHGEmpresa.DataSet.Locate('ID_EMPRESA', id_emp, []); + ASearch := 'EMPRESA_TITULO'; // alt+0147 e alt+0148 + AReplace := UpperCase(dtsCHGEmpresa.DataSet.FieldByName('TX_NOME').AsString) + + ' - CNPJ: ' + dtsCHGEmpresa.DataSet.FieldByName('TX_CNPJ').AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // vl_total_corrigido + ASearch := 'VL_TOTAL_CORRIGIDO'; // alt+0147 e alt+0148 + AReplace := edt_vltotal.Text + ' (' + valorPorExtenso + (strtofloat(copy(stringreplace(edt_vltotal.Text, '.', '', []), 4, + length(edt_vltotal.Text) - 3))) + ')'; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // nmero de parcelas + ASearch := 'NR_PARCELAS'; // alt+0147 e alt+0148 + AReplace := edt_nrparcelas.Text + '(' + Extenso(strtoint(edt_nrparcelas.Text), + false) + ')'; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // Tabela do acordo + OOTableContainner := OODoc.GetTextTables; + OOTable := OOTableContainner.getByIndex(0); + OOTableRows := OOTable.getRows; + if StrToCurr(stringreplace(copy(edt_somaentrada.Text, 4, + length(edt_somaentrada.Text) - 3), '.', '', [rfReplaceAll])) <> 0 then + begin + ASearch := 'ENTRADA'; // alt+0147 e alt+0148 + AReplace := 'UMA ENTRADA E '; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + for := 0 to (strtoint(edt_nrparcelas.Text)) do + begin + OOTableRows.insertByIndex( + 1, 1); + OOTableCell := OOTable.getCellByName('A' + inttostr( + 2)); + OOTableCell.setstring(lv_fechamento.Items[].SubItems[1]); + OOTableCell := OOTable.getCellByName('B' + inttostr( + 2)); + OOTableCell.setstring(lv_fechamento.Items[].SubItems[0]); + end; + end + else + begin + ASearch := 'ENTRADA'; // alt+0147 e alt+0148 + AReplace := ''; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + for := 1 to (strtoint(edt_nrparcelas.Text)) do + begin + OOTableRows.insertByIndex(, 1); + OOTableCell := OOTable.getCellByName('A' + inttostr( + 1)); + OOTableCell.setstring(lv_fechamento.Items[].SubItems[1]); + OOTableCell := OOTable.getCellByName('B' + inttostr( + 1)); + OOTableCell.setstring(lv_fechamento.Items[].SubItems[0]); + end; + end; + + // Juros + ASearch := 'PR_JUROS'; // alt+0147 e alt+0148 + // dtsCHGEmpresa.DataSet.First; + AReplace := dtsCHGEmpresa.DataSet.FieldByName('PR_JUROS').AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + ASearch := 'EXTENSO_JUROS'; // = alt+0147 e = alt+0148 + AReplace := Extenso(dtsCHGEmpresa.DataSet.FieldByName('PR_JUROS').AsInteger, + false) + ' por cento'; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // Multa + ASearch := 'PR_MULTA'; // alt+0147 e alt+0148 + // dtsCHGEmpresa.DataSet.First; + AReplace := dtsCHGEmpresa.DataSet.FieldByName('PR_MULTA').AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + ASearch := 'EXTENSO_MULTA'; // alt+0147 e alt+0148 + AReplace := Extenso(dtsCHGEmpresa.DataSet.FieldByName('PR_MULTA').AsInteger, + false) + ' por cento'; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // CIDADE/UF empresa + ASearch := 'CIDADE/UF_EMPRESA'; // alt+0147 e alt+0148 + dtmSystem.tblEstados.Locate('ID_ESTADO', + dtmSystem.tblEmpresaID_ESTADO.AsString, []); + dtmSystem.tblCidades.Locate('ID_CIDADE', + dtmSystem.tblEmpresaID_CIDADE.AsString, []); + AReplace := dtmSystem.tblCidadesTX_NOME.AsString + '/' + + dtmSystem.tblEstadosTX_NOME.AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // CIDADE empresa + ASearch := 'CIDADE_EMP'; // alt+0147 e alt+0148 + AReplace := dtmSystem.tblCidadesTX_NOME.AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // UF empresa + ASearch := 'UF_EMP'; // alt+0147 e alt+0148 + AReplace := dtmSystem.tblEstadosTX_NOME.AsString; + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // Data do dia + ASearch := 'DATA_DIA'; // alt+0147 e alt+0148 + AReplace := DateToStr(Date); + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + // Assinatura + ASearch := 'NOME_EMP'; // alt+0147 e alt+0148 + AReplace := UpperCase(dtsEmpresa.DataSet.FieldByName('TX_NOME').AsString); + FileReplace.SetSearchString(ASearch); + FileReplace.SetReplaceString(AReplace); + OODoc.ReplaceAll(FileReplace); + + path_file := stringreplace(path_file, 'acordo_financ', + 'acordo_' + dtsCHGEmpresa.DataSet.FieldByName('TX_NOME').AsString + ' - ' + + stringreplace(DateToStr(Date), '/', '-', [rfReplaceAll]), [rfReplaceAll]); + SaveParams := VarArrayCreate([0, -1], varVariant); + OODoc.StoreAsUrl(path_file, SaveParams); +end; + +procedure TfrmAtendimento.pcDevedorChange(Sender: TObject); +var + i: Integer; +begin + if pcDevedor.TabIndex = 6 then + begin + if atendimento = 'atendendo' then + begin + pcDevedor.TabIndex := pagina; + end; + if (atendimento = 'fechamento') and (pcDevedor.TabIndex <> 6) then + begin + pcDevedor.TabIndex := 6; + end; + end; + if (pagina = 5) then + begin + setlength(ids_tits_calc, queryListaTitulos.RecordCount); + if length(ids_tits_calc) > 0 then + begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + ids_tits_calc[i] := true; + end + else + begin + ids_tits_calc[i] := false; + end; + end; + end; + end; + if pcDevedor.TabIndex = 5 then + begin + clb_beneficiarioscalculo.Clear; + + qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + '(select id_empresa from chg_titulos' + + ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + qryConsulta.Open; + qryConsulta.First; + setlength(id_emps_dev, qryConsulta.RecordCount); + while not qryConsulta.Eof do + begin + clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + .AsString); + id_emps_dev[qryConsulta.RecNo - 1] := + qryConsulta.FieldByName('ID_EMPRESA').AsInteger; + qryConsulta.Next; + end; + if id_emp_calc <> -1 then + begin + clb_beneficiarioscalculo.Checked[id_emp_calc] := true; + end; + CriarLista; + if pagina <> 5 then + begin + if length(ids_tits_calc) > 0 then + begin + for i := 0 to length(ids_tits_calc) - 1 do + begin + lv_titulos.Items[i].Checked := ids_tits_calc[i]; + end; + end; + end; + end; + if pcDevedor.TabIndex = 3 then + begin + pcTitDespesas.TabIndex := 0; + end; +end; + +procedure TfrmAtendimento.pcDevedorChanging(Sender: TObject; + var AllowChange: Boolean); +begin + pagina := pcDevedor.TabIndex; +end; + +procedure TfrmAtendimento.queryListaTitulosCalcFields(DataSet: TDataSet); +var + vl_corrigido, vl_cor_antes_desc, vl_nominal, vl_indices, pl_juros, pl_multa, + pl_indicador, pl_entrada, pl_encargos, regra_3, valor, juros, parcela, + par_extra, vl_despesa, helper_indice, cred_fin, vl_cor_depois_desc + : currency; + dividendo, pr_banco: double; + g: Integer; + tx_despesa: string; +begin + // inicializao de variveis + juros := 0.00; + dividendo := 0.00; + + // quantidade de dias de atraso + dtsCHGEmpresa.DataSet.Locate('ID_EMPRESA', + queryListaTitulosID_EMPRESA.AsString, []); + if not(dtsEmpresa.DataSet.Active) then + begin + dtsEmpresa.DataSet.Open; + end; + + dtsEmpresa.DataSet.First; + if dtp_atrasorecalc.Date > queryListaTitulosDT_VENCIMENTO.AsDateTime then + begin + queryListaTitulosDT_ATRASO.AsInteger := DaysBetween(dtp_atrasorecalc.Date, + queryListaTitulosDT_VENCIMENTO.AsDateTime); + end + else + begin + queryListaTitulosDT_ATRASO.AsInteger := 0; + end; + vl_nominal := queryListaTitulosVL_TITULO.AsCurrency; + queryListaTitulosVL_PRINCIPAL.AsCurrency := vl_nominal; + + with dtmSystem do + begin + dtsIndicadorFinanceiro.DataSet.Refresh; + dtsIndicadorFinanceiro.DataSet.Filter := 'ATRASO_MIN <=' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ATRASO_MAX >= ' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ID_CHG_EMPRESA = ' + + dtsCHGEmpresa.DataSet.FieldByName('ID_EMPRESA').AsString; + dtsIndicadorFinanceiro.DataSet.Filtered := true; + + if dtsIndicadorFinanceiro.DataSet.IsEmpty then + begin + + queryListaTitulosPR_INDICADOR.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_INDICADOR_FINANCEIRO').AsFloat; + // queryListaTitulosPR_INDICADOR.AsFloat := 0; + end + else + begin + queryListaTitulosPR_INDICADOR.AsFloat := + dtsIndicadorFinanceiro.DataSet.FieldByName('PR_INDICADOR').AsFloat; + end; + dtsPoliticas.DataSet.Refresh; + dtsPoliticas.DataSet.Filter := 'DT_INICIO <= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', Date)) + ' and DT_FIM >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', Date)) + ' and ID_EMPRESA = ' + + dtsCHGEmpresa.DataSet.FieldByName('ID_EMPRESA').AsString; + + // nmero mx de parcelamento + queryListaTitulosNR_PARCELAS.AsInteger := dtsCHGEmpresa.DataSet.FieldByName + ('NR_PARCELAS').AsInteger; + dtsFaixas.DataSet.Filtered := false; + dtsFaixas.DataSet.Refresh; + if tblPoliticasID_POLITICA.AsString <> '' then + begin + dtsFaixas.DataSet.Filter := 'ATRASO_MIN <=' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ATRASO_MAX >= ' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ID_POLITICA = ' + + tblPoliticasID_POLITICA.AsString; + dtsFaixas.DataSet.Filtered := true; + if dtsFaixas.DataSet.IsEmpty then + begin + dtsFaixas.DataSet.Filtered := false; + dtsFaixas.DataSet.Filter := 'DT_MIN <=' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and DT_MAX >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and ID_POLITICA = ' + + tblPoliticasID_POLITICA.AsString; + end; + end + else + begin + dtsFaixas.DataSet.Filter := 'DT_MIN <= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and DT_MAX >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + + ' and ID_POLITICA = 999999999'; + end; + + dtsFaixas.DataSet.Filtered := true; + + // porcentagens de cobrana e descontos + if dtsFaixas.DataSet.IsEmpty then + begin + queryListaTitulosPR_MULTA.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_MULTA').AsFloat; + queryListaTitulosPR_JUROS.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_JUROS').AsFloat; + queryListaTitulosNR_JUROS.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('NR_JUROS').AsFloat; + queryListaTitulosTP_JUROS.AsString := dtsCHGEmpresa.DataSet.FieldByName + ('TP_JUROS').AsString; + + queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_IND_FIN').AsFloat; + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_PRIN').AsFloat; + queryListaTitulosPR_QUITACAO_MULTA.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_MULTA').AsFloat; + queryListaTitulosPR_QUITACAO_JUROS.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_JUROS').AsFloat; + queryListaTitulosPR_QUITACAO_COR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_COR').AsFloat; + + queryListaTitulosPR_PARCELA_INDICADOR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_IND_FIN').AsFloat; + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_PRIN').AsFloat; + queryListaTitulosPR_PARCELA_MULTA.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_MULTA').AsFloat; + queryListaTitulosPR_PARCELA_JUROS.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_JUROS').AsFloat; + queryListaTitulosPR_PARCELA_COR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_COR').AsFloat; + end + else + begin + queryListaTitulosPR_MULTA.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_MULTA').AsFloat; + queryListaTitulosPR_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_JUROS').AsFloat; + queryListaTitulosNR_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('NR_JUROS').AsFloat; + queryListaTitulosTP_JUROS.AsString := dtsFaixas.DataSet.FieldByName + ('TP_JUROS').AsString; + + queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_IND_FIN').AsFloat; + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_PRIN').AsFloat; + queryListaTitulosPR_QUITACAO_MULTA.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_MULTA').AsFloat; + queryListaTitulosPR_QUITACAO_JUROS.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_JUROS').AsFloat; + queryListaTitulosPR_QUITACAO_COR.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_QUIT_COR').AsFloat; + + queryListaTitulosPR_PARCELA_INDICADOR.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_FINAN_IND_FIN').AsFloat; + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_FINAN_PRIN').AsFloat; + queryListaTitulosPR_PARCELA_MULTA.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_MULTA').AsFloat; + queryListaTitulosPR_PARCELA_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_JUROS').AsFloat; + queryListaTitulosPR_PARCELA_COR.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_COR').AsFloat; + end; + + // valor das parcelas dos encargos + if dateof(dtp_atrasorecalc.Date) > + dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime) then + begin + pl_indicador := vl_nominal * + (queryListaTitulosPR_INDICADOR.AsFloat / 100); + end + else + begin + pl_indicador := 0; + end; + + queryListaTitulosVL_INDICADOR.AsCurrency := pl_indicador; + if queryListaTitulosTP_JUROS.AsString = 'P' then + begin + pl_juros := vl_nominal * ((queryListaTitulosPR_JUROS.AsFloat / 30) / 100) + * queryListaTitulosDT_ATRASO.AsInteger; + end + else + begin + pl_juros := queryListaTitulosNR_JUROS.AsFloat * + queryListaTitulosDT_ATRASO.AsInteger; + end; + queryListaTitulosVL_JUROS.AsCurrency := pl_juros; + + if dateof(dtp_atrasorecalc.Date) > + dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime) then + begin + pl_multa := vl_nominal * (queryListaTitulosPR_MULTA.AsFloat / 100); + end; + + if ((dtp_atrasorecalc.Date) <= (queryListaTitulosDT_VENCIMENTO.AsDateTime)) + or (cb_nmulta.Checked) then + begin + pl_multa := 0; + end; + + // pl_multa := vl_nominal * (queryListaTitulosPR_MULTA.AsFloat / 100); + queryListaTitulosVL_MULTA.AsCurrency := pl_multa; + + // if clb_indices.Items.Count > 0 then + // begin + // vl_indices := 0; + // helper_indice := 0; + // for g := 0 to clb_indices.Items.Count - 1 do + // begin + // if clb_indices.Checked[g] then + // begin + // dtmSystem.tblIndices.RecNo := g { + 1 }; + // helper_indice := + // (vl_nominal * (((dtmSystem.tblIndicesPR_INDICE.AsFloat / 30) / 100) + // * queryListaTitulosDT_ATRASO.AsInteger)); + // vl_indices := vl_indices + helper_indice; + // end; + // end; + // end; + + // queryListaTitulosVL_INDICES.AsCurrency := vl_indices; + queryListaTitulosVL_INDICES.AsCurrency := 0; + + pl_encargos := pl_multa + pl_juros + pl_indicador { + vl_indices }; + + // valor encargos + queryListaTitulosVL_ENCARGOS.AsCurrency := pl_encargos; + + vl_corrigido := vl_nominal + pl_encargos; + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_corrigido; + vl_cor_antes_desc := vl_corrigido; + + // if cb_nmulta.Checked then + // begin + // pl_encargos := pl_encargos - pl_multa; + // vl_corrigido := vl_nominal + pl_encargos; + // queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_corrigido; + // end; + // + // // valor encargos + // queryListaTitulosVL_ENCARGOS.AsCurrency := pl_encargos; + + // if cbx_descindextras.Checked then + // begin + // vl_indices := 0; + // helper_indice := 0; + // for g := 0 to clb_indices.Items.Count - 1 do + // begin + // if clb_indices.Checked[g] then + // begin + // dtmSystem.tblIndices.RecNo := g { + 1 }; + // helper_indice := + // (vl_nominal * (((dtmSystem.tblIndicesPR_INDICE.AsFloat / 30) / 100) + // * queryListaTitulosDT_ATRASO.AsInteger)); + // helper_indice := helper_indice - + // (helper_indice * (strtofloat(desc_indices_extras[g]) / 100)); + // vl_indices := vl_indices + helper_indice; + // end; + // end; + // queryListaTitulosVL_INDICES.AsCurrency := vl_indices; + // end; + + // porcentagem da entrada + // queryListaTitulosPR_ENTRADA.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + // ('PR_ENTRADA').AsFloat; + queryListaTitulosPR_ENTRADA_MIN.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_ENTRADA_MIN').AsFloat; + queryListaTitulosPR_ENTRADA_MAX.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_ENTRADA_MAX').AsFloat; + + if cbx_excentrada.Checked then + begin + pl_entrada := StrToCurr(edt_excentrada.Text); + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada / qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + // entrada em porcentagem + begin + queryListaTitulosPR_ENTRADA.AsFloat := strtofloat(edt_prentrada.Text); + pl_entrada := vl_corrigido * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada; + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + // entrada = parcela + begin + pl_entrada := 0; + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada; + end; + end; + + dtsIndicadorFinanceiro.DataSet.Filtered := false; + dtsPoliticas.DataSet.Filtered := false; + dtsFaixas.DataSet.Filtered := false; + end; + + // Descontos sobre Quitar + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := 0; + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := 0; + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := 0; + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := 0; + if strtofloat(edt_indquitar.Text) > queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (strtofloat(edt_indquitar.Text) / 100); + end; + if strtofloat(edt_principalquitar.Text) > + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat then + begin + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (strtofloat(edt_principalquitar.Text) / 100); + end; + if strtofloat(edt_multasquitar.Text) > queryListaTitulosPR_QUITACAO_MULTA.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (queryListaTitulosPR_QUITACAO_MULTA.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (strtofloat(edt_multasquitar.Text) / 100); + end; + if strtofloat(edt_jurosquitar.Text) > queryListaTitulosPR_QUITACAO_JUROS.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (queryListaTitulosPR_QUITACAO_JUROS.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (strtofloat(edt_jurosquitar.Text) / 100); + end; + + // Descontos sobre Parcelar + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := 0; + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := 0; + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := 0; + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := 0; + if strtofloat(edt_indparcelas.Text) > queryListaTitulosPR_PARCELA_INDICADOR.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (queryListaTitulosPR_PARCELA_INDICADOR.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (strtofloat(edt_indparcelas.Text) / 100); + end; + if strtofloat(edt_principalparcelas.Text) > + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat then + begin + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (strtofloat(edt_principalparcelas.Text) / 100); + end; + if strtofloat(edt_multasparcelas.Text) > queryListaTitulosPR_PARCELA_MULTA.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (queryListaTitulosPR_PARCELA_MULTA.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (strtofloat(edt_multasparcelas.Text) / 100); + end; + if strtofloat(edt_jurosparcelas.Text) > queryListaTitulosPR_PARCELA_JUROS.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (queryListaTitulosPR_PARCELA_JUROS.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (strtofloat(edt_jurosparcelas.Text) / 100); + end; + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency; + + if (cb_descquit.Checked) then + begin + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency - + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency - + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency - + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency - + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency; + + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency + + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency); + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + / qtde_titulos; + + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + end; + end; + // end; + end; + + if (cb_descpar.Checked) and (strtoint(edt_nrparcelas.Text) >= 1) then + begin + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency - + queryListaTitulosVL_DESC_PAR_IND.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency - + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency - queryListaTitulosVL_DESC_PAR_MULTA. + AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency - queryListaTitulosVL_DESC_PAR_JUROS. + AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency - + (queryListaTitulosVL_DESC_PAR_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + / qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + end; + // end; + end; + if vl_cor_antes_desc <> queryListaTitulosVL_CORRIGIDO.AsCurrency then + begin + regra_3 := vl_cor_antes_desc - queryListaTitulosVL_CORRIGIDO.AsCurrency; + edt_desctot.Text := formatfloat('0.##', + ((regra_3 * 100) / vl_cor_antes_desc)); + end + else + begin + edt_desctot.Text := '0'; + end; + + if cb_desc_quit_cor.Checked and (strtofloat(edt_corquitar.Text) > 0) then + begin + vl_cor_depois_desc := queryListaTitulosVL_CORRIGIDO.AsCurrency - + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (strtofloat(edt_corquitar.Text) / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_cor_depois_desc; + end; + + if cb_desc_par_cor.Checked and (strtofloat(edt_corpar.Text) > 0) then + begin + vl_cor_depois_desc := queryListaTitulosVL_CORRIGIDO.AsCurrency - + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (strtofloat(edt_corpar.Text) / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_cor_depois_desc; + end; + + { dtmSystem.tblTitulos.Locate('ID_TITULO', + queryListaTitulosID_TITULO.AsInteger, []); + vl_despesa := 0.00; + tx_despesa := ''; + if not dtmSystem.tblDespesasTitulos.IsEmpty then + begin + dtmSystem.tblDespesasTitulos.First; + while not dtmSystem.tblDespesasTitulos.Eof do + begin + if dtmSystem.tblDespesasTitulosTP_DESPESA.AsString = 'Adicionar' then + begin + vl_despesa := vl_despesa + dtmSystem.tblDespesasTitulosVL_DESPESA. + AsCurrency; + tx_despesa := dtmSystem.tblDespesasTitulosTX_DESCRICAO.AsString + '(' + + CurrToStrF(dtmSystem.tblDespesasTitulosVL_DESPESA.AsCurrency, + ffCurrency, 2, dtmSystem.CusFmt) + '),'; + end + else + begin + vl_despesa := vl_despesa - dtmSystem.tblDespesasTitulosVL_DESPESA. + AsCurrency; + tx_despesa := dtmSystem.tblDespesasTitulosTX_DESCRICAO.AsString + '(' + + CurrToStrF(dtmSystem.tblDespesasTitulosVL_DESPESA.AsCurrency, + ffCurrency, 2, dtmSystem.CusFmt) + '),'; + end; + dtmSystem.tblDespesasTitulos.Next; + end; + Delete(tx_despesa, length(tx_despesa), 1); + end; + queryListaTitulosTX_DESPESA.AsString := tx_despesa; + queryListaTitulosVL_DESPESA.AsCurrency := vl_despesa; + if cbx_despesas.Checked then + begin + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency - + queryListaTitulosVL_DESPESA.AsCurrency; + end; } + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) / + qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + end; + + queryListaTitulosVL_EXTRAS.AsCurrency := 0; + queryListaTitulosVL_REPASSE_BANCO.AsCurrency := 0; + queryListaTitulosVL_RETIRADA_TAXA.AsCurrency := 0; + + if (strtoint(edt_nrparcelas.Text) = 0) and (cb_formapag.ItemIndex = 1) then + // dbito + begin + queryListaTitulosVL_EXTRAS.AsCurrency := + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency + + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + queryListaTitulosVL_REPASSE_BANCO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtsEmpresa.DataSet.FieldByName('PR_BANCO_DEBITO').AsFloat / 100); + if queryListaTitulosVL_REPASSE_BANCO.AsCurrency > 0 then + begin + queryListaTitulosVL_RETIRADA_TAXA.AsCurrency := + queryListaTitulosVL_EXTRAS.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency; + end + else + begin + queryListaTitulosVL_RETIRADA_TAXA.AsCurrency := 0; + end; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + + queryListaTitulosVL_RETIRADA_TAXA.AsCurrency; + end; + + if (cbx_txextra.Checked) and (strtoint(edt_nrparcelas.Text) = 0) and + (StrToCurr(edt_txextra.Text) > 0) then + begin + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency + StrToCurr(edt_txextra.Text); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + StrToCurr(edt_txextra.Text); + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + StrToCurr(edt_txextra.Text); + end; + + // dtsCHGEmpresa.DataSet.Locate('ID_EMPRESA', + // queryListaTitulosID_EMPRESA.AsString, []); + + if (strtoint(edt_nrparcelas.Text) > 0) then + begin + pr_banco := 0; + if cbx_excentrada.Checked then + begin + case cb_formapag.ItemIndex of + 0: + begin + if dtmSystem.tblCHGEmpresaTP_DIN.AsString = 'P' then + begin + CalcPrice; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // parcela := valor / (strtoint(edt_nrparcelas.Text)); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 2: + begin + if dtmSystem.tblCHGEmpresaTP_CRED.AsString = 'P' then + begin + CalcPrice; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + dtmSystem.tblPrCartao.Locate('NR_PARCELA', + strtoint(edt_nrparcelas.Text), []); + pr_banco := dtmSystem.tblPrCartaoPR_REPASSE.AsFloat / 100; + { case (strtoint(edt_nrparcelas.Text)) of + 1: + begin + pr_banco := dtsEmpresa.DataSet.FieldByName + ('PR_BANCO_CREDVISTA').AsFloat / 100; + end; + 2, 3: + begin + pr_banco := dtsEmpresa.DataSet.FieldByName('PR_BANCO_CRED3') + .AsFloat / 100; + end; + 4, 5, 6: + begin + pr_banco := dtsEmpresa.DataSet.FieldByName('PR_BANCO_CRED6') + .AsFloat / 100; + end; + 7, 8, 9, 10, 11, 12: + begin + pr_banco := dtsEmpresa.DataSet.FieldByName('PR_BANCO_CRED12') + .AsFloat / 100; + end; + end; } + end; + 3: + begin + if dtmSystem.tblCHGEmpresaTP_CHEQUE.AsString = 'P' then + begin + CalcPrice; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + end; + queryListaTitulosVL_EXTRAS.AsCurrency := + ((RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * queryListaTitulosVL_PARCELA.AsCurrency) + ) - queryListaTitulosVL_CORRIGIDO.AsCurrency); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + + queryListaTitulosVL_EXTRAS.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * + queryListaTitulosVL_PARCELA.AsCurrency); + // queryListaTitulosVL_REPASSE_BANCO.AsCurrency := + // queryListaTitulosVL_EXTRAS.AsCurrency - + // ((queryListaTitulosVL_CORRIGIDO.AsCurrency - + // queryListaTitulosVL_ENTRADA.AsCurrency) * pr_banco); + queryListaTitulosVL_REPASSE_BANCO.AsCurrency := + ((strtoint(edt_nrparcelas.Text) * + queryListaTitulosVL_PARCELA.AsCurrency) * pr_banco); + + queryListaTitulosVL_RETIRADA_TAXA.AsCurrency := + queryListaTitulosVL_EXTRAS.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency; + + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + + queryListaTitulosVL_RETIRADA_TAXA.AsCurrency + end + else + begin + case cb_formapag.ItemIndex of + 0: + begin + if dtmSystem.tblCHGEmpresaTP_DIN.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + end; + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 2: + begin + if dtmSystem.tblCHGEmpresaTP_CRED.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text)); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + end; + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + dtmSystem.tblPrCartao.Locate('NR_PARCELA', + strtoint(edt_nrparcelas.Text), []); + pr_banco := dtmSystem.tblPrCartaoPR_REPASSE.AsFloat / 100; + { case (strtoint(edt_nrparcelas.Text)) of + 1: + begin + pr_banco := dtsEmpresa.DataSet.FieldByName + ('PR_BANCO_CREDVISTA').AsFloat / 100; + end; + 2, 3: + begin + pr_banco := dtsEmpresa.DataSet.FieldByName('PR_BANCO_CRED3') + .AsFloat / 100; + end; + 4, 5, 6: + begin + pr_banco := dtsEmpresa.DataSet.FieldByName('PR_BANCO_CRED6') + .AsFloat / 100; + end; + 7, 8, 9, 10, 11, 12: + begin + pr_banco := dtsEmpresa.DataSet.FieldByName('PR_BANCO_CRED12') + .AsFloat / 100; + end; + end; } + end; + 3: + begin + if dtmSystem.tblCHGEmpresaTP_CHEQUE.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' + then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat + / 100), strtoint(edt_nrparcelas.Text))))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text)); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat + / 100), strtoint(edt_nrparcelas.Text) + 1)))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + end; + end; + end; + queryListaTitulosVL_EXTRAS.AsCurrency := + ((RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * queryListaTitulosVL_PARCELA.AsCurrency) + ) - queryListaTitulosVL_CORRIGIDO.AsCurrency); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_EXTRAS.AsCurrency; + + queryListaTitulosVL_CORRIGIDO.AsCurrency := + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * + queryListaTitulosVL_PARCELA.AsCurrency); + // queryListaTitulosVL_REPASSE_BANCO.AsCurrency := + // queryListaTitulosVL_EXTRAS.AsCurrency - + // ((queryListaTitulosVL_CORRIGIDO.AsCurrency - + // queryListaTitulosVL_ENTRADA.AsCurrency) * pr_banco); + queryListaTitulosVL_REPASSE_BANCO.AsCurrency := + ((strtoint(edt_nrparcelas.Text) * + queryListaTitulosVL_PARCELA.AsCurrency) * pr_banco); + + queryListaTitulosVL_RETIRADA_TAXA.AsCurrency := + queryListaTitulosVL_EXTRAS.AsCurrency - + queryListaTitulosVL_REPASSE_BANCO.AsCurrency; + + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + + queryListaTitulosVL_RETIRADA_TAXA.AsCurrency; + end; + end; + +end; + +procedure TfrmAtendimento.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string; size: Integer); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if LowerCase(S) = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + Font.size := size; + end; +end; + +procedure TfrmAtendimento.up_nrparcelasClick(Sender: TObject; + Button: TUDBtnType); +begin + +end; + +// procedure TfrmAtendimento.WMMoving(var Msg: TWMMoving); +// var +// workArea: TRect; +// begin +// workArea := Screen.WorkareaRect; +// +// with Msg.DragRect^ do +// begin +// if left < workArea.left then +// OffsetRect(Msg.DragRect^, workArea.left - left, 0); +// +// if Top < workArea.Top then +// OffsetRect(Msg.DragRect^, 0, workArea.Top - Top); +// +// if Right > workArea.Right then +// OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); +// +// if Bottom > workArea.Bottom then +// OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); +// end; +// +// end; + +end. diff --git a/ufrmBoleto.dfm b/ufrmBoleto.dfm new file mode 100644 index 0000000..5cfc757 --- /dev/null +++ b/ufrmBoleto.dfm @@ -0,0 +1,927 @@ +object frmBoleto: TfrmBoleto + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'Boleto' + ClientHeight = 671 + ClientWidth = 802 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poDesktopCenter + OnCreate = FormCreate + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object GroupBox1: TGroupBox + Left = 8 + Top = 8 + Width = 785 + Height = 153 + Caption = 'Conta / T'#237'tulo' + TabOrder = 0 + object dbgrd_titulos: TDBGrid + Left = 167 + Top = 28 + Width = 608 + Height = 113 + DataSource = dtsTitulos + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_PRODUTO' + Title.Caption = 'T'#237'tulo' + Width = 280 + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Valor' + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Visible = True + end + item + Expanded = False + FieldName = 'DT_ENTRADA' + Title.Caption = 'Entrada' + Visible = True + end> + end + object dblucbx_contas: TDBLookupComboBox + Left = 12 + Top = 28 + Width = 145 + Height = 21 + KeyField = 'ID_CONTA' + ListField = 'TX_DESCRICAO' + ListSource = dtsContas + TabOrder = 1 + end + end + object GroupBox2: TGroupBox + Left = 8 + Top = 167 + Width = 785 + Height = 63 + Caption = 'Informa'#231#245'es Sobre a Cobran'#231'a' + TabOrder = 1 + object Label1: TLabel + Left = 8 + Top = 16 + Width = 179 + Height = 13 + Caption = 'Mensagem para Local de Pagamento:' + end + object Label2: TLabel + Left = 383 + Top = 16 + Width = 71 + Height = 13 + Caption = 'Esp'#233'cie Docto:' + end + object Label3: TLabel + Left = 463 + Top = 16 + Width = 75 + Height = 13 + Caption = 'Esp'#233'cie Moeda:' + end + object Label4: TLabel + Left = 544 + Top = 16 + Width = 34 + Height = 13 + Caption = 'Aceite:' + end + object Label5: TLabel + Left = 624 + Top = 16 + Width = 43 + Height = 13 + Caption = 'Carteira:' + end + object Label6: TLabel + Left = 672 + Top = 16 + Width = 73 + Height = 13 + Caption = 'Nosso N'#250'mero:' + end + object edtLocalPag: TEdit + Left = 8 + Top = 32 + Width = 369 + Height = 21 + TabOrder = 0 + end + object edtEspecieDoc: TEdit + Left = 383 + Top = 32 + Width = 73 + Height = 21 + TabOrder = 1 + end + object edtEspecieMod: TEdit + Left = 463 + Top = 32 + Width = 76 + Height = 21 + TabOrder = 2 + end + object cbxAceite: TComboBox + Left = 544 + Top = 32 + Width = 73 + Height = 21 + ItemIndex = 0 + TabOrder = 3 + Text = 'N'#227'o' + Items.Strings = ( + 'N'#227'o' + 'Sim') + end + object edtCarteira: TEdit + Left = 624 + Top = 32 + Width = 41 + Height = 21 + TabOrder = 4 + end + object edtNossoNro: TEdit + Left = 672 + Top = 32 + Width = 103 + Height = 21 + TabOrder = 5 + end + end + object GroupBox3: TGroupBox + Left = 8 + Top = 240 + Width = 609 + Height = 105 + Caption = 'Acr'#233'scimos\Descontos' + TabOrder = 2 + object Label7: TLabel + Left = 8 + Top = 16 + Width = 72 + Height = 13 + Caption = '% Mora\Juros:' + end + object Label8: TLabel + Left = 162 + Top = 16 + Width = 76 + Height = 13 + Caption = 'Valor Desconto:' + end + object Label9: TLabel + Left = 316 + Top = 16 + Width = 86 + Height = 13 + Caption = 'Valor Abatimento:' + end + object Label10: TLabel + Left = 466 + Top = 16 + Width = 44 + Height = 13 + Caption = '% Multa:' + end + object Label11: TLabel + Left = 8 + Top = 56 + Width = 84 + Height = 13 + Caption = 'Data Mora\Juros:' + end + object Label12: TLabel + Left = 162 + Top = 56 + Width = 75 + Height = 13 + Caption = 'Data Desconto:' + end + object Label13: TLabel + Left = 316 + Top = 56 + Width = 85 + Height = 13 + Caption = 'Data Abatimento:' + end + object Label14: TLabel + Left = 466 + Top = 56 + Width = 71 + Height = 13 + Caption = 'Data Protesto:' + end + object edtValorDesconto: TEdit + Left = 162 + Top = 32 + Width = 135 + Height = 21 + TabOrder = 0 + end + object edtValorAbatimento: TEdit + Left = 316 + Top = 32 + Width = 135 + Height = 21 + Enabled = False + TabOrder = 1 + end + object dbdtp_juros: TrDBDateTimePicker + Left = 8 + Top = 72 + Width = 135 + Height = 21 + Date = 43265.429382349540000000 + Time = 43265.429382349540000000 + TabOrder = 3 + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + ReadOnly = True + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object dbdtp_desc: TrDBDateTimePicker + Left = 162 + Top = 72 + Width = 135 + Height = 21 + Date = 43265.429382349540000000 + Time = 43265.429382349540000000 + TabOrder = 5 + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + ReadOnly = True + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object dbedt_mora: TDBEdit + Left = 8 + Top = 32 + Width = 135 + Height = 21 + DataField = 'PR_JUROS' + DataSource = dtmSystem.dtsCHGEmpresa + ReadOnly = True + TabOrder = 6 + end + object dbedt_multa: TDBEdit + Left = 464 + Top = 32 + Width = 135 + Height = 21 + DataField = 'PR_MULTA' + DataSource = dtmSystem.dtsCHGEmpresa + ReadOnly = True + TabOrder = 7 + end + object dtp_abatimento: TDateTimePicker + Left = 316 + Top = 72 + Width = 135 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 8 + end + object dtp_protesto: TDateTimePicker + Left = 466 + Top = 72 + Width = 133 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + Enabled = False + TabOrder = 9 + end + object cbx_abatimento: TCheckBox + Left = 408 + Top = 15 + Width = 22 + Height = 17 + TabOrder = 10 + OnClick = cbx_abatimentoClick + end + object cbx_protesto: TCheckBox + Left = 543 + Top = 55 + Width = 19 + Height = 17 + TabOrder = 11 + OnClick = cbx_protestoClick + end + end + object GroupBox4: TGroupBox + Left = 8 + Top = 351 + Width = 609 + Height = 114 + Caption = 'Mensagens \ Instru'#231#245'es' + TabOrder = 3 + object Label15: TLabel + Left = 320 + Top = 16 + Width = 59 + Height = 13 + Caption = 'Instru'#231#227'o 1:' + end + object Label16: TLabel + Left = 464 + Top = 16 + Width = 59 + Height = 13 + Caption = 'Instru'#231#227'o 2:' + end + object memMensagem: TMemo + Left = 8 + Top = 16 + Width = 305 + Height = 89 + Lines.Strings = ( + '') + TabOrder = 0 + end + object edtInstrucoes1: TEdit + Left = 320 + Top = 32 + Width = 137 + Height = 21 + TabOrder = 1 + end + object edtInstrucoes2: TEdit + Left = 464 + Top = 32 + Width = 137 + Height = 21 + TabOrder = 2 + end + object Panel2: TPanel + Left = 320 + Top = 64 + Width = 281 + Height = 41 + Caption = '* Informar o C'#243'digo da Instru'#231#227'o' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object GroupBox5: TGroupBox + Left = 624 + Top = 240 + Width = 169 + Height = 225 + Caption = 'Informa'#231#245'es Sobre a Duplicata ' + TabOrder = 4 + object Label17: TLabel + Left = 8 + Top = 16 + Width = 41 + Height = 13 + Caption = 'N'#250'mero:' + end + object Label18: TLabel + Left = 8 + Top = 64 + Width = 28 + Height = 13 + Caption = 'Valor:' + end + object Label19: TLabel + Left = 8 + Top = 120 + Width = 68 + Height = 13 + Caption = 'Data Emiss'#227'o:' + end + object Label20: TLabel + Left = 8 + Top = 176 + Width = 59 + Height = 13 + Caption = 'Vencimento:' + end + object edtNumeroDoc: TEdit + Left = 8 + Top = 32 + Width = 153 + Height = 21 + ReadOnly = True + TabOrder = 0 + Text = '0000000001' + end + object dbedt_vltitulo: TDBEdit + Left = 8 + Top = 80 + Width = 151 + Height = 21 + DataField = 'VL_TITULO' + DataSource = dtsTitulos + ReadOnly = True + TabOrder = 1 + end + object dtp_emissao: TDateTimePicker + Left = 8 + Top = 136 + Width = 151 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 2 + end + end + object GroupBox6: TGroupBox + Left = 8 + Top = 471 + Width = 786 + Height = 143 + Caption = 'Informa'#231#245'es do Sacado' + TabOrder = 5 + object Label29: TLabel + Left = 8 + Top = 61 + Width = 19 + Height = 13 + Caption = 'CEP' + end + object lbl_logradouro: TLabel + Left = 8 + Top = 16 + Width = 49 + Height = 13 + Caption = 'Endere'#231'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_num: TLabel + Left = 444 + Top = 16 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_comp: TLabel + Left = 528 + Top = 16 + Width = 67 + Height = 13 + Caption = 'Complemento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_bairro: TLabel + Left = 621 + Top = 16 + Width = 30 + Height = 13 + Caption = 'Bairro:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_uf: TLabel + Left = 96 + Top = 61 + Width = 17 + Height = 13 + Caption = 'UF:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_cidade: TLabel + Left = 206 + Top = 61 + Width = 36 + Height = 13 + Caption = 'Cidade:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object dbedt_logradouro: TDBEdit + Left = 8 + Top = 35 + Width = 430 + Height = 21 + DataField = 'TX_LOGRADOURO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + object dbedt_num: TDBEdit + Left = 444 + Top = 35 + Width = 63 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 1 + end + object dbedt_comp: TDBEdit + Left = 528 + Top = 35 + Width = 81 + Height = 21 + DataField = 'TX_COMPLEMENTO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 2 + end + object dbedt_bairro: TDBEdit + Left = 621 + Top = 35 + Width = 161 + Height = 21 + DataField = 'TX_BAIRRO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 3 + end + object dblucmbox_uf: TDBLookupComboBox + Left = 96 + Top = 80 + Width = 92 + Height = 21 + DataField = 'ID_ESTADO' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_ESTADO' + ListField = 'TX_NOME' + ListSource = dtsUF + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object dblucmbox_cidade: TDBLookupComboBox + Left = 206 + Top = 80 + Width = 134 + Height = 21 + DataField = 'ID_CIDADE' + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_CIDADE' + ListField = 'TX_NOME' + ListSource = dtsCidades + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object dbgrd_enderecos: TDBGrid + Left = 353 + Top = 62 + Width = 429 + Height = 78 + TabStop = False + DataSource = dtsEnderecos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ParentFont = False + ReadOnly = True + TabOrder = 6 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_LOGRADOURO' + Title.Caption = 'Endere'#231'o' + Width = 185 + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'TX_COMPLEMENTO' + Title.Caption = 'Complemento' + Width = 125 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Width = 32 + Visible = True + end + item + Expanded = False + FieldName = 'TX_BAIRRO' + Title.Caption = 'Bairro' + Width = 93 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ESTADO' + Title.Caption = 'Estado' + Width = 101 + Visible = True + end + item + Expanded = False + FieldName = 'TX_CIDADE' + Title.Caption = 'Cidade' + Visible = True + end + item + Expanded = False + FieldName = 'TX_CEP' + Title.Caption = 'CEP' + Width = 82 + Visible = True + end + item + Expanded = False + FieldName = 'TP_REFERENCIA' + Title.Caption = 'Refer'#234'ncia' + Width = 69 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ENDERECO' + Title.Caption = 'Tipo de Endere'#231'o' + Width = 104 + Visible = True + end + item + Expanded = False + FieldName = 'ID_HIGIENIZADORA' + Title.Caption = 'Higienizadora' + Width = 76 + Visible = True + end> + end + object dbedt_cep: TDBEdit + Left = 8 + Top = 80 + Width = 69 + Height = 21 + DataField = 'TX_CEP' + DataSource = dtsEnderecos + TabOrder = 7 + end + end + object Panel1: TPanel + Left = 0 + Top = 621 + Width = 802 + Height = 50 + Align = alBottom + TabOrder = 6 + object Button2: TButton + Left = 237 + Top = 16 + Width = 75 + Height = 25 + Caption = 'Gerar PDF' + TabOrder = 0 + OnClick = Button2Click + end + object Button3: TButton + Left = 318 + Top = 16 + Width = 131 + Height = 25 + Caption = 'Zerar Lista de Boletos' + Enabled = False + TabOrder = 1 + end + object Button4: TButton + Left = 455 + Top = 16 + Width = 97 + Height = 25 + Caption = 'Incluir Boleto' + TabOrder = 2 + OnClick = Button4Click + end + object Button5: TButton + Left = 558 + Top = 16 + Width = 129 + Height = 25 + Caption = 'Incluir V'#225'rios Boletos' + Enabled = False + TabOrder = 3 + end + object Button6: TButton + Left = 693 + Top = 16 + Width = 97 + Height = 25 + Caption = 'Gerar Remessa' + TabOrder = 4 + OnClick = Button6Click + end + object btnenviaremail: TButton + Left = 156 + Top = 16 + Width = 75 + Height = 25 + Caption = 'Enviar Email' + Enabled = False + TabOrder = 5 + OnClick = btnenviaremailClick + end + object rg_email: TRadioGroup + Left = 8 + Top = 8 + Width = 142 + Height = 33 + Caption = 'Email:' + Columns = 2 + Enabled = False + Items.Strings = ( + 'Empresa' + 'Usu'#225'rio') + TabOrder = 6 + OnClick = rg_emailClick + end + end + object dtp_vencimento: TDateTimePicker + Left = 632 + Top = 432 + Width = 151 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 7 + end + object ACBrBoleto: TACBrBoleto + MAIL = ACBrMail + Banco.TamanhoMaximoNossoNum = 10 + Banco.TipoCobranca = cobNenhum + Banco.LayoutVersaoArquivo = 0 + Banco.LayoutVersaoLote = 0 + Banco.CasasDecimaisMoraJuros = 2 + Cedente.TipoInscricao = pJuridica + NumeroArquivo = 0 + ACBrBoletoFC = ACBrBoletoFCFortes + Configuracoes.Arquivos.LogRegistro = False + Configuracoes.WebService.SSLHttpLib = httpOpenSSL + Configuracoes.WebService.StoreName = 'My' + Configuracoes.WebService.Ambiente = taHomologacao + Configuracoes.WebService.Operacao = tpInclui + Configuracoes.WebService.VersaoDF = '1.2' + Left = 592 + Top = 72 + end + object ACBrBoletoFCFortes: TACBrBoletoFCFortes + MostrarPreview = False + MostrarSetup = False + SoftwareHouse = 'Projeto ACBr - http://acbr.sf.net' + DirLogo = 'C:\ACBr\Fontes\ACBrBoleto\Logos\Colorido' + Left = 688 + Top = 72 + end + object dtsContas: TDataSource + OnDataChange = dtsContasDataChange + Left = 616 + Top = 16 + end + object dtsTitulos: TDataSource + DataSet = dtmSystem.tblTitulos + OnDataChange = dtsTitulosDataChange + Left = 672 + Top = 16 + end + object dtsCHGEmpresa: TDataSource + DataSet = dtmSystem.tblCHGEmpresa + Left = 744 + Top = 16 + end + object dtsDevedor: TDataSource + DataSet = dtmSystem.tblDevedores + Left = 552 + Top = 16 + end + object dtsEnderecos: TDataSource + DataSet = dtmSystem.tblEnderecos + OnDataChange = dtsEnderecosDataChange + Left = 488 + Top = 16 + end + object dtsUF: TDataSource + DataSet = dtmSystem.tblEstados + OnDataChange = dtsUFDataChange + Left = 469 + Top = 68 + end + object dtsCidades: TDataSource + DataSet = dtmSystem.tblCidades + OnDataChange = dtsCidadesDataChange + Left = 526 + Top = 66 + end + object ACBrMail: TACBrMail + Host = '127.0.0.1' + Port = '25' + SetSSL = False + SetTLS = False + Attempts = 3 + DefaultCharset = UTF_8 + IDECharset = CP1252 + Left = 592 + Top = 128 + end +end diff --git a/ufrmBoleto.pas b/ufrmBoleto.pas new file mode 100644 index 0000000..c5ac4f5 --- /dev/null +++ b/ufrmBoleto.pas @@ -0,0 +1,484 @@ +unit ufrmBoleto; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ACBrBoleto, + ACBrBoletoFCFortesFr, ACBrBase, ACBrUtil, Vcl.Grids, Vcl.DBGrids, + Vcl.StdCtrls, + Vcl.DBCtrls, Vcl.ComCtrls, rDBComponents, Vcl.Mask, Vcl.ExtCtrls, ACBrMail; + +type + TfrmBoleto = class(TForm) + ACBrBoletoFCFortes: TACBrBoletoFCFortes; + dtsContas: TDataSource; + dtsTitulos: TDataSource; + GroupBox1: TGroupBox; + dbgrd_titulos: TDBGrid; + GroupBox2: TGroupBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + edtLocalPag: TEdit; + edtEspecieDoc: TEdit; + edtEspecieMod: TEdit; + cbxAceite: TComboBox; + edtCarteira: TEdit; + edtNossoNro: TEdit; + ACBrBoleto: TACBrBoleto; + GroupBox3: TGroupBox; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + edtValorDesconto: TEdit; + edtValorAbatimento: TEdit; + GroupBox4: TGroupBox; + Label15: TLabel; + Label16: TLabel; + memMensagem: TMemo; + edtInstrucoes1: TEdit; + edtInstrucoes2: TEdit; + Panel2: TPanel; + GroupBox5: TGroupBox; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label20: TLabel; + edtNumeroDoc: TEdit; + GroupBox6: TGroupBox; + Label29: TLabel; + Panel1: TPanel; + Button2: TButton; + Button3: TButton; + Button4: TButton; + Button5: TButton; + Button6: TButton; + dbdtp_juros: TrDBDateTimePicker; + dbdtp_desc: TrDBDateTimePicker; + dtsCHGEmpresa: TDataSource; + dbedt_mora: TDBEdit; + dbedt_multa: TDBEdit; + dbedt_vltitulo: TDBEdit; + dtp_abatimento: TDateTimePicker; + dtp_protesto: TDateTimePicker; + dtp_emissao: TDateTimePicker; + dtp_vencimento: TDateTimePicker; + dtsDevedor: TDataSource; + dtsEnderecos: TDataSource; + dtsUF: TDataSource; + dtsCidades: TDataSource; + lbl_logradouro: TLabel; + dbedt_logradouro: TDBEdit; + lbl_num: TLabel; + dbedt_num: TDBEdit; + lbl_comp: TLabel; + dbedt_comp: TDBEdit; + lbl_bairro: TLabel; + dbedt_bairro: TDBEdit; + dblucmbox_uf: TDBLookupComboBox; + lbl_uf: TLabel; + dblucmbox_cidade: TDBLookupComboBox; + lbl_cidade: TLabel; + dbgrd_enderecos: TDBGrid; + dblucbx_contas: TDBLookupComboBox; + cbx_abatimento: TCheckBox; + dbedt_cep: TDBEdit; + cbx_protesto: TCheckBox; + btnenviaremail: TButton; + ACBrMail: TACBrMail; + rg_email: TRadioGroup; + procedure FormCreate(Sender: TObject); + procedure dtsContasDataChange(Sender: TObject; Field: TField); + procedure dtsTitulosDataChange(Sender: TObject; Field: TField); + procedure Button4Click(Sender: TObject); + procedure dtsEnderecosDataChange(Sender: TObject; Field: TField); + procedure dtsCidadesDataChange(Sender: TObject; Field: TField); + procedure dtsUFDataChange(Sender: TObject; Field: TField); + procedure Button2Click(Sender: TObject); + procedure cbx_abatimentoClick(Sender: TObject); + procedure cbx_protestoClick(Sender: TObject); + procedure rg_emailClick(Sender: TObject); + procedure btnenviaremailClick(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure WMMoving(var MSG: TWMMoving); message WM_MOVING; + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmBoleto: TfrmBoleto; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmBoleto.btnenviaremailClick(Sender: TObject); +begin + try + case rg_email.ItemIndex of + 0: + begin + try + with ACBrMail do + begin + Clear; + IsHTML := true; + Subject := 'Envio de boleto'; + From := dtmSystem.tblEmpresaTX_EMAIL.AsString; + FromName := dtmSystem.tblEmpresaTX_EMAILNOME.AsString; + Host := dtmSystem.tblEmpresaTX_SMTP.AsString; + // troque pelo seu servidor smtp + Username := dtmSystem.tblEmpresaTX_USUARIO.AsString; + Password := dtmSystem.tblEmpresaTX_SENHA.AsString; + Port := dtmSystem.tblEmpresaTX_PORTA.AsString; + // troque pela porta do seu servidor smtp + SetTLS := true; + SetSSL := true; + // Verifique se o seu servidor necessita SSL + DefaultCharset := TMailCharset(0); + IDECharset := TMailCharset(0); + AddAddress(dtsDevedor.DataSet.FieldByName('TX_EMAIL').AsString, + dtsDevedor.DataSet.FieldByName('TX_NOME').AsString); + // ACBrMail1.AddCC('outro_email@gmail.com'); // opcional + // ACBrMail1.AddReplyTo('um_email'); // opcional + // ACBrMail1.AddBCC('um_email'); // opcional + // ACBrMail1.Priority := MP_high; + // ACBrMail1.ReadingConfirmation := True; // solicita confirmao de leitura + AddAttachment(ExtractFilePath(Application.ExeName) + + 'BOLETOS\boleto.pdf', 'Boleto'); + Application.ProcessMessages; + Screen.Cursor := crHourGlass; + Send(false); + Screen.Cursor := crDefault; + end; + finally + + end; + end; + 1: + begin + dtmSystem.tblUsuarios.Locate('ID_USUARIO', dtmSystem.id_usuario, []); + try + with ACBrMail do + begin + Clear; + IsHTML := true; + Subject := 'Envio de boleto'; + From := dtmSystem.tblUsuariosTX_EMAIL.AsString; + FromName := dtmSystem.tblUsuariosTX_EMAILNOME.AsString; + Host := dtmSystem.tblUsuariosTX_SMTP.AsString; + // troque pelo seu servidor smtp + Username := dtmSystem.tblUsuariosTX_USUARIOEMAIL.AsString; + Password := dtmSystem.tblUsuariosTX_SENHAEMAIL.AsString; + Port := dtmSystem.tblUsuariosTX_PORTA.AsString; + // troque pela porta do seu servidor smtp + SetTLS := true; + SetSSL := true; + // Verifique se o seu servidor necessita SSL + DefaultCharset := TMailCharset(0); + IDECharset := TMailCharset(0); + AddAddress(dtsDevedor.DataSet.FieldByName('TX_EMAIL').AsString, + dtsDevedor.DataSet.FieldByName('TX_NOME').AsString); + // ACBrMail1.AddCC('outro_email@gmail.com'); // opcional + // ACBrMail1.AddReplyTo('um_email'); // opcional + // ACBrMail1.AddBCC('um_email'); // opcional + // ACBrMail1.Priority := MP_high; + // ACBrMail1.ReadingConfirmation := True; // solicita confirmao de leitura + AddAttachment(ExtractFilePath(Application.ExeName) + + 'BOLETOS\boleto.pdf', 'Boleto'); + Application.ProcessMessages; + Screen.Cursor := crHourGlass; + Send(false); + Screen.Cursor := crDefault; + end; + finally + + end; + end; + end; + finally + btnenviaremail.Enabled := false; + rg_email.ItemIndex := -1; + DeleteFile(ExtractFilePath(Application.ExeName) + 'BOLETOS\boleto.pdf'); + end; +end; + +procedure TfrmBoleto.Button2Click(Sender: TObject); +begin + if (ACBrBoleto.Banco.TipoCobranca = cobBradesco) and (edtLocalPag.text = '') + then + begin + MessageDlg + ('O bradesco exige que voc preencha a mensagem de local de pagamento.', + mtWarning, [mbOK], 0); + abort; + end; + if edtEspecieDoc.text = '' then + begin + MessageDlg('Por favor preencha a espcie do documento.', mtWarning, + [mbOK], 0); + abort; + end; + if edtEspecieMod.text = '' then + begin + MessageDlg('Por favor preencha o tipo de moeda.', mtWarning, [mbOK], 0); + abort; + end; + if edtCarteira.text = '' then + begin + MessageDlg('Por favor preencha o tipo de carteira.', mtWarning, [mbOK], 0); + abort; + end; + if edtNossoNro.text = '' then + begin + MessageDlg('Por favor preencha o nosso nmero.', mtWarning, [mbOK], 0); + abort; + end; + + if not(DirectoryExists(ExtractFilePath(Application.ExeName) + 'BOLETOS')) then + begin + CreateDir(ExtractFilePath(Application.ExeName) + 'BOLETOS'); + end; + ACBrBoletoFCFortes.NomeArquivo := ExtractFilePath(Application.ExeName) + + 'BOLETOS\boleto.pdf'; + + try + ACBrBoleto.GerarPDF; + rg_email.Enabled := true; + finally + + end; + +end; + +procedure TfrmBoleto.Button4Click(Sender: TObject); +var + Titulo: TACBrTitulo; +begin + Titulo := ACBrBoleto.CriarTituloNaLista; + + with Titulo do + begin + Vencimento := dtp_vencimento.Date; + DataDocumento := dtp_emissao.Date; + NumeroDocumento := edtNumeroDoc.text; + EspecieDoc := edtEspecieDoc.text; +// if cbxAceite.ItemIndex = 0 then +// Aceite := atSim +// else +// Aceite := atNao; + + DataProcessamento := Now; + Carteira := edtCarteira.text; + NossoNumero := edtNossoNro.text; + ValorDocumento := dtsTitulos.DataSet.FieldByName('VL_TITULO').AsCurrency; + Sacado.NomeSacado := dtsDevedor.DataSet.FieldByName('TX_NOME').AsString; + if dtsDevedor.DataSet.FieldByName('CD_CPF').AsString <> '' then + begin + Sacado.CNPJCPF := OnlyNumber(dtsDevedor.DataSet.FieldByName('CD_CPF') + .AsString); + end + else + begin + Sacado.CNPJCPF := OnlyNumber(dtsDevedor.DataSet.FieldByName('CD_CNPJ') + .AsString); + end; + Sacado.Logradouro := dtsEnderecos.DataSet.FieldByName + ('TX_LOGRADOURO').AsString; + Sacado.Numero := dtsEnderecos.DataSet.FieldByName('NR_NUMERO').AsString; + Sacado.Bairro := dtsEnderecos.DataSet.FieldByName('TX_BAIRRO').AsString; + Sacado.Cidade := dblucmbox_cidade.text; + Sacado.UF := dblucmbox_uf.text; + Sacado.CEP := OnlyNumber(dtsEnderecos.DataSet.FieldByName('TX_CEP') + .AsString); + ValorAbatimento := StrToCurrDef(edtValorAbatimento.text, 0); + LocalPagamento := edtLocalPag.text; + CodigoMora := '2'; + ValorMoraJuros := dtsCHGEmpresa.DataSet.FieldByName('PR_JUROS').AsCurrency; + ValorDesconto := StrToCurrDef(edtValorDesconto.text, 0); + ValorAbatimento := StrToCurrDef(edtValorAbatimento.text, 0); + DataMoraJuros := dbdtp_juros.Date; + DataDesconto := dbdtp_desc.Date; + if cbx_abatimento.Checked then + begin + DataAbatimento := dtp_abatimento.Date; + end; + if cbx_protesto.Checked then + begin + DataProtesto := dtp_protesto.Date; + end; + PercentualMulta := dtsCHGEmpresa.DataSet.FieldByName('PR_JUROS').AsCurrency; + Mensagem.text := memMensagem.text; + OcorrenciaOriginal.Tipo := toRemessaBaixar; + Instrucao1 := PadRight(trim(edtInstrucoes1.text), 2, '0'); + Instrucao2 := PadRight(trim(edtInstrucoes2.text), 2, '0'); + // dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem); + end; +end; + +procedure TfrmBoleto.Button6Click(Sender: TObject); +begin + ACBrBoleto.GerarRemessa(1); +end; + +procedure TfrmBoleto.cbx_abatimentoClick(Sender: TObject); +begin + edtValorAbatimento.Enabled := cbx_abatimento.Checked; + if not(cbx_abatimento.Checked) then + begin + edtValorAbatimento.text := ''; + end; +end; + +procedure TfrmBoleto.cbx_protestoClick(Sender: TObject); +begin + dtp_protesto.Enabled := cbx_protesto.Checked; +end; + +procedure TfrmBoleto.dtsCidadesDataChange(Sender: TObject; Field: TField); +begin + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.KeyValue := dtmSystem.tblEnderecosID_CIDADE.AsVariant; + end; +end; + +procedure TfrmBoleto.dtsContasDataChange(Sender: TObject; Field: TField); +begin + ACBrBoleto.Banco.TipoCobranca := + TACBrTipoCobranca(dtsContas.DataSet.FieldByName('ID_BANCO').AsInteger); + with ACBrBoleto.Cedente do + begin + Agencia := dtsContas.DataSet.FieldByName('CD_AGENCIA').AsString; + AgenciaDigito := dtsContas.DataSet.FieldByName('CD_AGENCIA_DV').AsString; + // CNPJCPF := dtmSystem.tblEmpresaTX_CNPJ.AsString; + CodigoCedente := dtsContas.DataSet.FieldByName('CD_CEDENTE').AsString; + Conta := dtsContas.DataSet.FieldByName('CD_CONTA').AsString; + ContaDigito := dtsContas.DataSet.FieldByName('CD_CONTA_DV').AsString; + Convenio := dtsContas.DataSet.FieldByName('CD_CONVENIO').AsString; + Modalidade := dtsContas.DataSet.FieldByName('CD_MODALIDADE').AsString;; + Nome := dtmSystem.tblEmpresaTX_NOME.AsString; + end; +end; + +procedure TfrmBoleto.dtsEnderecosDataChange(Sender: TObject; Field: TField); +begin + if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then + begin + dblucmbox_uf.KeyValue := dtmSystem.tblEstadosID_ESTADO.AsVariant; + end; + + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.KeyValue := dtmSystem.tblCidadesID_CIDADE.AsVariant; + end; +end; + +procedure TfrmBoleto.dtsTitulosDataChange(Sender: TObject; Field: TField); +begin + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', + dtsTitulos.DataSet.FieldByName('ID_EMPRESA').AsInteger, []); + edtNumeroDoc.text := PadLeft(dtsTitulos.DataSet.FieldByName('ID_TITULO') + .AsString, 10, '0'); +end; + +procedure TfrmBoleto.dtsUFDataChange(Sender: TObject; Field: TField); +begin + if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then + begin + dblucmbox_uf.KeyValue := dtmSystem.tblEstadosID_ESTADO.AsVariant; + end; + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucmbox_cidade.KeyValue := dtmSystem.tblCidadesID_CIDADE.AsVariant; + end; +end; + +procedure TfrmBoleto.FormCreate(Sender: TObject); +begin + with dtmSystem do + begin + if not(tblCHGEmpresa.Active) then + begin + tblCHGEmpresa.Open; + end; + if not(tblTitulos.Active) then + begin + tblTitulos.Open; + end; + // tblContas.Filter := 'TP_SITUACAO = 1'; + // tblContas.Filtered := true; + + tblTitulos.Filter := 'TP_SITUACAO = ''A'''; + tblTitulos.Filtered := true; + + end; + if not(DirectoryExists(ExtractFilePath(Application.ExeName) + 'REMESSAS')) + then + begin + ForceDirectories(ExtractFilePath(Application.ExeName) + 'REMESSAS'); + end; + ACBrBoleto.DirArqRemessa := ExtractFilePath(Application.ExeName) + 'REMESSAS'; +end; + +procedure TfrmBoleto.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TfrmBoleto.rg_emailClick(Sender: TObject); +begin + if rg_email.ItemIndex < 0 then + begin + btnenviaremail.Enabled := false; + end + else + begin + btnenviaremail.Enabled := true; + end; +end; + +procedure TfrmBoleto.WMMoving(var MSG: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with MSG.DragRect^ do + begin + if left < workArea.left then + OffsetRect(MSG.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(MSG.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(MSG.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(MSG.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmCampanha.dfm b/ufrmCampanha.dfm new file mode 100644 index 0000000..cff4abe --- /dev/null +++ b/ufrmCampanha.dfm @@ -0,0 +1,872 @@ +inherited frmCampanha: TfrmCampanha + Left = 0 + Top = 0 + Caption = 'Campanha' + ClientHeight = 610 + ClientWidth = 907 + Position = poDesktopCenter + OnCloseQuery = FormCloseQuery + ExplicitWidth = 913 + ExplicitHeight = 638 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 591 + Width = 907 + ExplicitTop = 591 + ExplicitWidth = 907 + end + object pnl_info: TPanel + Left = 8 + Top = 8 + Width = 329 + Height = 250 + Enabled = False + TabOrder = 1 + object lbl_id: TLabel + Left = 8 + Top = 8 + Width = 36 + Height = 13 + Caption = 'C'#243'digo:' + end + object lbl_nome: TLabel + Left = 79 + Top = 8 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object IncludeBtn: TSpeedButton + Left = 152 + Top = 115 + Width = 24 + Height = 24 + Caption = '>' + OnClick = IncludeBtnClick + end + object IncAllBtn: TSpeedButton + Left = 152 + Top = 141 + Width = 24 + Height = 24 + Caption = '>>' + OnClick = IncAllBtnClick + end + object ExcludeBtn: TSpeedButton + Left = 152 + Top = 167 + Width = 24 + Height = 24 + Caption = '<' + Enabled = False + OnClick = ExcludeBtnClick + end + object ExAllBtn: TSpeedButton + Left = 152 + Top = 193 + Width = 24 + Height = 24 + Caption = '<<' + Enabled = False + OnClick = ExAllBtnClick + end + object lbl_source: TLabel + Left = 8 + Top = 99 + Width = 97 + Height = 13 + Caption = 'Lista de Cobradores:' + end + object lbl_participantes: TLabel + Left = 182 + Top = 99 + Width = 121 + Height = 13 + Caption = 'Cobradores Participantes:' + end + object lbl_datacad: TLabel + Left = 8 + Top = 54 + Width = 99 + Height = 13 + Caption = 'Data de lan'#231'amento:' + end + object dbedt_id: TDBEdit + Left = 8 + Top = 27 + Width = 65 + Height = 21 + DataField = 'ID_CAMPANHA' + DataSource = dtsCampanha + ReadOnly = True + TabOrder = 0 + end + object dbedt_nome: TDBEdit + Left = 79 + Top = 27 + Width = 242 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtsCampanha + TabOrder = 1 + end + object dbcb_ativa: TDBCheckBox + Left = 248 + Top = 54 + Width = 41 + Height = 17 + Caption = 'Ativa' + DataField = 'TP_ATIVA' + DataSource = dtsCampanha + TabOrder = 2 + ValueChecked = '1' + ValueUnchecked = '0;; ;' + OnClick = dbcb_ativaClick + end + object dbcb_concluida: TDBCheckBox + Left = 248 + Top = 75 + Width = 73 + Height = 17 + Caption = 'Conclu'#237'da' + DataField = 'TP_CONCLUIDA' + DataSource = dtsCampanha + TabOrder = 3 + ValueChecked = '1' + ValueUnchecked = '0;; ;' + OnClick = dbcb_concluidaClick + end + object lb_source: TListBox + Left = 8 + Top = 115 + Width = 138 + Height = 102 + ItemHeight = 13 + TabOrder = 4 + end + object lb_destiny: TListBox + Left = 182 + Top = 115 + Width = 139 + Height = 102 + ItemHeight = 13 + TabOrder = 5 + end + object pb_campanha: TProgressBar + Left = 8 + Top = 223 + Width = 313 + Height = 17 + Max = 0 + Step = 1 + TabOrder = 6 + end + object dbdtp_cad: TrDBDateTimePicker + Left = 8 + Top = 72 + Width = 97 + Height = 21 + Date = 43040.403793784720000000 + Time = 43040.403793784720000000 + TabOrder = 8 + DataField = 'DT_CAD' + DataSource = dtsCampanha + DBEditLabel.OwnCaption = ' ' + FormatEmpty = '__.__.__' + end + end + object pnl_gridcampanha: TPanel + Left = 343 + Top = 8 + Width = 360 + Height = 250 + TabOrder = 2 + object navPrincipal: TDBNavigator + Left = 7 + Top = 4 + Width = 342 + Height = 50 + DataSource = dtsCampanha + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + Hints.Strings = ( + 'Primeiro Registro' + 'Registro Anterior' + 'Pr'#243'ximo Registro' + #218'ltimo Registro' + 'Criar Registro' + 'Apagar Registro' + 'Editar Registro' + 'Salvar Registro' + 'Cancelar' + 'Atualizar' + 'Apply updates' + 'Cancel updates') + TabOrder = 0 + BeforeAction = navPrincipalBeforeAction + end + object dbg_campanha: TDBGrid + Left = 8 + Top = 59 + Width = 345 + Height = 181 + DataSource = dtsCampanha + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'ID_CAMPANHA' + Title.Caption = 'ID' + Visible = True + end + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Visible = True + end> + end + end + object pnl_griddevedores: TPanel + Left = 8 + Top = 264 + Width = 695 + Height = 321 + TabOrder = 3 + object dbg_consultados: TDBGrid + Left = 8 + Top = 8 + Width = 680 + Height = 305 + DataSource = dtsCampanha_consulta + Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + PopupMenu = ppmnu_exports + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbg_consultadosDrawColumnCell + Columns = < + item + Expanded = False + FieldName = 'ID_DEVEDOR' + Title.Caption = 'ID' + Width = 40 + Visible = True + end + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 470 + Visible = True + end + item + Expanded = False + FieldName = 'TX_DOCUMENTO' + Title.Caption = 'N'#250'mero do Documento' + Width = 131 + Visible = True + end> + end + end + object dbmem_desc: TDBMemo + Left = 709 + Top = 8 + Width = 195 + Height = 577 + DataField = 'TL_DESC' + DataSource = dtsCampanha + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 4 + end + object dtsCampanha: TDataSource + DataSet = dtmSystem.tblCobCampanha + OnStateChange = dtsCampanhaStateChange + OnDataChange = dtsCampanhaDataChange + Left = 255 + Top = 16 + end + object ImageList1: TImageList + Left = 616 + Top = 88 + Bitmap = { + 494C01010C001800FC0110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object Query: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 344 + Top = 344 + end + object dtsCampanha_consulta: TDataSource + DataSet = dtmSystem.tblCampanhaDevedores + OnDataChange = dtsCampanha_consultaDataChange + Left = 184 + Top = 336 + end + object qtdCobrados: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 416 + Top = 336 + end + object ppmnu_exports: TPopupMenu + Left = 72 + Top = 328 + object ppmnu_nomedoc: TMenuItem + Caption = 'Exportar Rela'#231#227'o Nome - Documento' + OnClick = ppmnu_nomedocClick + end + object N1: TMenuItem + Caption = '-' + end + object mnuFichaDev: TMenuItem + Caption = 'Ficha do Devedor' + OnClick = mnuFichaDevClick + end + end +end diff --git a/ufrmCampanha.pas b/ufrmCampanha.pas new file mode 100644 index 0000000..511d0ae --- /dev/null +++ b/ufrmCampanha.pas @@ -0,0 +1,813 @@ +unit ufrmCampanha; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.StrUtils, System.win.ComObj, + System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, Vcl.Grids, + Vcl.DBGrids, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.CheckLst, + Vcl.DBCtrls, Vcl.Mask, Vcl.Buttons, ZAbstractRODataset, ZDataset, + System.ImageList, Vcl.ImgList, ZAbstractDataset, rDBComponents, System.Math, + Vcl.Menus; + +type + THackDBNavigator = class(TDBNavigator); + +type + TfrmCampanha = class(TmstMaster) + pnl_info: TPanel; + lbl_id: TLabel; + lbl_nome: TLabel; + dbedt_id: TDBEdit; + dbedt_nome: TDBEdit; + lbl_datacad: TLabel; + dbcb_ativa: TDBCheckBox; + dbcb_concluida: TDBCheckBox; + IncludeBtn: TSpeedButton; + IncAllBtn: TSpeedButton; + ExcludeBtn: TSpeedButton; + ExAllBtn: TSpeedButton; + lb_source: TListBox; + lb_destiny: TListBox; + lbl_source: TLabel; + lbl_participantes: TLabel; + pnl_gridcampanha: TPanel; + pb_campanha: TProgressBar; + pnl_griddevedores: TPanel; + dbg_consultados: TDBGrid; + navPrincipal: TDBNavigator; + dtsCampanha: TDataSource; + ImageList1: TImageList; + Query: TZQuery; + dtsCampanha_consulta: TDataSource; + dbdtp_cad: TrDBDateTimePicker; + dbg_campanha: TDBGrid; + qtdCobrados: TZReadOnlyQuery; + ppmnu_exports: TPopupMenu; + ppmnu_nomedoc: TMenuItem; + dbmem_desc: TDBMemo; + mnuFichaDev: TMenuItem; + N1: TMenuItem; + procedure IncludeBtnClick(Sender: TObject); + procedure ExcludeBtnClick(Sender: TObject); + procedure IncAllBtnClick(Sender: TObject); + procedure ExAllBtnClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure dbg_campanhaMouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure dtsCampanhaStateChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure dbcb_ativaClick(Sender: TObject); + procedure dbcb_concluidaClick(Sender: TObject); + procedure dtsCampanhaDataChange(Sender: TObject; Field: TField); + procedure dtsCampanha_consultaDataChange(Sender: TObject; Field: TField); + procedure dbg_consultadosDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure ppmnu_nomedocClick(Sender: TObject); + procedure mnuFichaDevClick(Sender: TObject); + private + cob_index: Integer; + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList); + // procedure ProgressBarStepIt(const Progressbar: TProgressBar; n: Integer); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + campanha_hints: array of string; + + function GetFirstSelection(List: TCustomListBox): Integer; + procedure MoveSelected(List: TCustomListBox; Items: TStrings); + procedure SetItem(List: TListBox; Index: Integer); + procedure SetButtons; + { Public declarations } + end; + +var + frmCampanha: TfrmCampanha; + +implementation + +{$R *.dfm} + +uses udtmSystem, ucadCampanha, ucadDevedores; + +procedure TfrmCampanha.IncAllBtnClick(Sender: TObject); +// func pra adicionar todos os elementos +var // de um list box pro outro + I: Integer; +begin + for I := 0 to lb_source.Items.Count - 1 do + begin + lb_destiny.Items.AddObject(lb_source.Items[I], lb_source.Items.Objects[I]); + end; + lb_source.Items.Clear; + SetItem(lb_source, 0); + +end; + +procedure TfrmCampanha.IncludeBtnClick(Sender: TObject); +// func pra adicionar um elemento +var // de um lsit box pro outro + Index: Integer; +begin + Index := GetFirstSelection(lb_source); + MoveSelected(lb_source, lb_destiny.Items); + SetItem(lb_source, Index); +end; + +procedure TfrmCampanha.mnuFichaDevClick(Sender: TObject); +begin + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end + else + begin + dtmSystem.tblDevedores.Refresh; + end; + if dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblCampanhaDevedoresID_DEVEDOR.AsInteger, []) then + begin + cadDevedores := TcadDevedores.Create(Self); + cadDevedores.ShowModal; + end; +end; + +procedure TfrmCampanha.dbcb_ativaClick(Sender: TObject); +// toggle do db de ativo +begin // e concluido + inherited; + if dbcb_ativa.Checked then + begin + dbcb_concluida.Checked := false; + end; +end; + +procedure TfrmCampanha.dbcb_concluidaClick(Sender: TObject); +// toggle do db de ativo +begin // e concluido + inherited; + if dbcb_concluida.Checked then + begin + dbcb_ativa.Checked := false; + end; +end; + +procedure TfrmCampanha.dbg_campanhaMouseMove(Sender: TObject; + // func pra exibir o hint + Shift: TShiftState; X, Y: Integer); // correto de cada campanha +var + Cell: TGridCoord; + // content : string; +begin + inherited; + Cell := dbg_campanha.MouseCoord(X, Y); + + if (Cell.Y > 0) then + begin + dbg_campanha.Hint := campanha_hints[Cell.Y - 1]; + end + else + begin + dbg_campanha.Hint := ''; + end; + +end; + +procedure TfrmCampanha.dbg_consultadosDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtsCampanha_consulta.DataSet.FieldByName('TP_ESTADO') + .AsString, ['A', 'B']) of + 0: + dbg_consultados.Canvas.Brush.Color := clWhite; + 1: + dbg_consultados.Canvas.Brush.Color := $FACE87; + end; + // end; + dbg_consultados.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmCampanha.dtsCampanhaDataChange(Sender: TObject; Field: TField); +begin + inherited; + // seta o grid pra + // adiciona as entradas pro list box + // pegar contedo do db + if (dtsCampanha.State in [dsBrowse]) then + begin + if cob_index <> dtsCampanha.DataSet.RecNo then + begin + cob_index := dtsCampanha.DataSet.RecNo; + + Screen.Cursor := crHourGlass; + with dtmSystem do + begin + if not tblCampanhaDevedores.Active then + begin + tblCampanhaDevedores.Open; + end; + if not tblUsuariosConsulta.Active then + begin + tblUsuariosConsulta.Open; + end; + if not tblCampanhaCob.Active then + begin + tblCampanhaCob.Open; + end; + tblUsuariosConsulta.First; + lb_source.Items.Clear; + lb_destiny.Items.Clear; + while not tblUsuariosConsulta.Eof do + begin + if tblCampanhaCob.Locate('ID_COBRADOR', + tblUsuariosConsultaID_USUARIO.AsString, []) then + begin + lb_destiny.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + end + else + begin + lb_source.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + end; + tblUsuariosConsulta.Next; + end; + // tblCampanhaDevedores.DisableControls; + // tblCampanhaDevedores.First; + pb_campanha.Position := 0; + pb_campanha.Max := tblCampanhaDevedores.RecordCount * 10; + if qtdCobrados.Connection = nil then + begin + qtdCobrados.Connection := dtmSystem.ZConnection; + end; + if not dtsCampanha.DataSet.IsEmpty then + begin + qtdCobrados.SQL.Text := + 'select * from chg_campanhas_devedores where id_campanha = ' + + dtsCampanha.DataSet.FieldByName('ID_CAMPANHA').AsString + + ' and TP_ESTADO = ' + QuotedStr('B'); + qtdCobrados.Open; + pb_campanha.Position := 10 * qtdCobrados.RecordCount; + pb_campanha.Position := pb_campanha.Position - 1; + pb_campanha.Position := pb_campanha.Position + 1; + end; + // tblCampanhaDevedores.First; + // tblCampanhaDevedores.EnableControls; + SetButtons; + end; + Screen.Cursor := crDefault; + end; + end; +end; + +procedure TfrmCampanha.dtsCampanhaStateChange(Sender: TObject); +begin + inherited; + pnl_info.Enabled := dtsCampanha.State in [dsEdit, dsInsert]; + // inherited do Cadastro +end; + +procedure TfrmCampanha.dtsCampanha_consultaDataChange(Sender: TObject; + Field: TField); +begin +end; + +// que nao tinha pois janela nao veio do cad, mas funciona como uma + +procedure TfrmCampanha.ExAllBtnClick(Sender: TObject); +// excluir todos os elementos do segundo +var // list box de volta pro primeiro + I: Integer; +begin + for I := 0 to lb_destiny.Items.Count - 1 do + begin + lb_source.Items.AddObject(lb_destiny.Items[I], lb_destiny.Items.Objects[I]); + end; + lb_destiny.Items.Clear; + SetItem(lb_destiny, 0); +end; + +procedure TfrmCampanha.ExcludeBtnClick(Sender: TObject); +// exclui um elemento do segundo +var // list box de volta pro primeiro + Index: Integer; +begin + Index := GetFirstSelection(lb_destiny); + MoveSelected(lb_destiny, lb_source.Items); + SetItem(lb_destiny, Index); +end; + +procedure TfrmCampanha.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + if dtsCampanha.DataSet <> nil then + begin // ver dts_campanhaStateChange + dtsCampanha.DataSet.Filtered := false; + if dtsCampanha.DataSet.State in [dsInsert, dsEdit] then + begin + dtsCampanha.DataSet.Cancel; + end; + end; + + with dtmSystem do + begin + tblCampanhaDevedores.close; + tblUsuariosConsulta.close; + tblCampanhaCob.close; + tblCobCampanha.close; + end; + // frmCampanha := nil; + // Action := caFree; +end; + +procedure TfrmCampanha.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + inherited; // ver dts_campanhaStateChange + if navPrincipal.DataSource <> nil then + begin + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + end; +end; + +procedure TfrmCampanha.FormCreate(Sender: TObject); +var + pos: Integer; +begin + inherited; + pos := 0; + setlength(campanha_hints, pos + 1); + cob_index := -1; + with dtmSystem do + begin + if not(tblCobCampanha.Active) then + begin + tblCobCampanha.Open; + end; + if not(tblCampanhaDevedores.Active) then + begin + tblCampanhaDevedores.Open; + end; + if not(tblUsuariosConsulta.Active) then + begin + tblUsuariosConsulta.Open; + tblUsuariosConsulta.First; + end; + if not(tblCampanhaCob.Active) then + begin + tblCampanhaCob.Open; + end; + while not tblUsuariosConsulta.Eof do + begin + if tblCampanhaCob.Locate('ID_COBRADOR', + tblUsuariosConsultaID_USUARIO.AsString, []) then + begin + lb_destiny.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + // adiciona as entradas pro list box + end + else + begin + lb_source.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + end; + tblUsuariosConsulta.Next; + end; + { if tblCobCampanha.RecordCount > 0 then + begin + tblCobCampanha.First; + while not tblCobCampanha.Eof do + begin + campanha_hints[pos] := tblCobCampanhaTX_DESC.AsString; + // vetor de hints pra campanha + pos := pos + 1; + setlength(campanha_hints, pos + 1); + tblCobCampanha.Next; + end; + tblCobCampanha.First; + end; } + end; + + SetupHackedNavigator(navPrincipal, ImageList1); + dtmSystem.tblCampanhaDevedores.Filtered := false; + if dtmSystem.VerificarPermissao('CBR.04') then + begin + + end; + +end; + +procedure TfrmCampanha.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + inherited; + if Key = VK_ESCAPE then + begin + Key := 0; + close; + end; +end; + +function TfrmCampanha.GetFirstSelection(List: TCustomListBox): Integer; +begin + for Result := 0 to List.Items.Count - 1 do // pega primeiro item do list box + begin + if List.Selected[Result] then + begin + Exit; + end; + end; + Result := LB_ERR; +end; + +procedure TfrmCampanha.MoveSelected(List: TCustomListBox; Items: TStrings); +var + I: Integer; +begin + for I := List.Items.Count - 1 downto 0 do // move o item selecionado + begin + if List.Selected[I] then + begin + Items.AddObject(List.Items[I], List.Items.Objects[I]); + List.Items.Delete(I); + end; + end; +end; + +procedure TfrmCampanha.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +var + I, escolha: Integer; + str_helper: string; // primeiro blocao ver dts_campanhaStateChange +begin + + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbRefresh: + begin + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + end; + + nbPost: + begin + // SelectNext(ActiveControl as tWinControl, True, True); + escolha := mrYes; + if lb_destiny.Items.Count < 1 then + begin + escolha := + MessageDlg('Voc est prestes a criar uma campanha sem cobradores.' + + ' Deseja continuar?', mtInformation, mbYesNo, 0); + end; + + if escolha = mrYes then + begin + if lb_destiny.Items.Count > 0 then + begin + dtmSystem.tblUsuariosConsulta.Open; + dtmSystem.tblCampanhaCob.Open; + dtmSystem.tblCampanhaCob.Filtered := false; + dtmSystem.tblCampanhaCob.Filter := 'ID_CAMPANHA = ' + + dtmSystem.tblCobCampanhaID_CAMPANHA.AsString; + dtmSystem.tblCampanhaCob.Filtered := True; + dtmSystem.tblCampanhaCob.First; + while dtmSystem.tblCampanhaCob.RecordCount > 0 do + begin + dtmSystem.tblCampanhaCob.Delete; + end; + for I := 0 to lb_destiny.Items.Count - 1 do + begin + str_helper := lb_destiny.Items[I]; + dtmSystem.tblUsuariosConsulta.Locate('TX_NOME', str_helper, + [loCaseInsensitive, loPartialKey]); + if not(dtmSystem.tblCampanhaCob.Locate('ID_COBRADOR', + dtmSystem.tblUsuariosConsultaID_USUARIO.AsInteger, [])) then + begin + dtmSystem.tblCampanhaCob.append; + // monta tabela de relao campanha - cobrador + dtmSystem.tblCampanhaCobID_CAMPANHA.AsInteger := + dtmSystem.tblCobCampanhaID_CAMPANHA.AsInteger; + dtmSystem.tblCampanhaCobID_COBRADOR.AsInteger := + dtmSystem.tblUsuariosConsultaID_USUARIO.AsInteger; + dtmSystem.tblCampanhaCobID_ULTIMO_USUARIO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblCampanhaCobDT_HORA_ULTIMA_ATT.AsDateTime := Now; + dtmSystem.tblCampanhaCob.post; + end; + /// ///////////////// + end; + end; + dtmSystem.tblCampanhaCob.Filtered := false; + end + else + begin + Abort; + end; + end; + + nbDelete: + begin + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + begin + Abort; + end; + + try + dtsCampanha.DataSet.Delete; + except + ShowMessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + Abort; + end; + nbCancel: + begin + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + begin + Abort; + end + else + begin + if not(dtmSystem.tblUsuariosConsulta.Active) then + begin + dtmSystem.tblUsuariosConsulta.Open; + end; + dtmSystem.tblUsuariosConsulta.First; + lb_destiny.Items.Clear; + lb_source.Items.Clear; + while not dtmSystem.tblUsuariosConsulta.Eof do + begin + if dtmSystem.tblCampanhaCob.Locate('ID_COBRADOR', + dtmSystem.tblUsuariosConsultaID_USUARIO.AsString, []) then + begin + lb_destiny.Items.Add + (dtmSystem.tblUsuariosConsultaTX_NOME.AsString); + // adiciona as entradas pro list box + end + else + begin + lb_source.Items.Add + (dtmSystem.tblUsuariosConsultaTX_NOME.AsString); + end; + dtmSystem.tblUsuariosConsulta.Next; + end; + end; + end; + nbInsert: + begin + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + Abort; + end; + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end; + if dtmSystem.tblDevedores.RecordCount = 0 then + begin + MessageDlg + ('No h devedores cadastrados para que uma campanha possa ser montada.', + mtWarning, [mbOK], 0); + Abort; + end; + cadCampanha := TcadCampanha.Create(Self); + with cadCampanha do // abre janela de criar campanha + begin + ShowModal; + if ModalResult <> mrOk then + begin + navPrincipal.DataSource.DataSet.Cancel; + cadCampanha := nil; + end + else if ModalResult = mrOk then + begin + navPrincipal.DataSource.DataSet.Refresh; + dtsCampanha_consulta.DataSet.Refresh; + cadCampanha := nil; + end; + Abort; + end; + end; + end; + +end; + +procedure TfrmCampanha.ppmnu_nomedocClick(Sender: TObject); +var + OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param, + FilterParams, Param2: Variant; + I: Integer; + pathFile, nome: string; +begin + if dtsCampanha_consulta.DataSet.IsEmpty then + begin + Abort; + end; + + Screen.Cursor := crHourGlass; + // dtsCampanha_consulta.DataSet.DisableControls; + dtsCampanha_consulta.DataSet.First; + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + + LoadParams := VarArrayCreate([0, 0], varVariant); + Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param.Name := 'Hidden'; + Param.Value := True; + LoadParams[0] := Param; + + OOExec := OpenDesktop.LoadComponentFromURL('private:factory/scalc', '_blank', + 0, LoadParams); + OOCalc := OOExec.Sheets; + Planilha := OOCalc.getbyIndex(0); + I := 1; + Planilha.getCellByPosition(0, 0).string := 'Nome'; + Planilha.getCellByPosition(1, 0).string := 'Documento'; + + while not dtsCampanha_consulta.DataSet.Eof do + begin + Planilha.getCellByPosition(0, I).string := + dtsCampanha_consulta.DataSet.FieldByName('TX_NOME').AsString; + Planilha.getCellByPosition(1, I).string := + dtsCampanha_consulta.DataSet.FieldByName('TX_DOCUMENTO').AsString; + Planilha.getCellByPosition(0, I).getColumns.getbyIndex(0) + .OptimalWidth := True; + Planilha.getCellByPosition(1, I).getColumns.getbyIndex(0) + .OptimalWidth := True; + Inc(I, 1); + dtsCampanha_consulta.DataSet.Next; + end; + + FilterParams := VarArrayCreate([0, 1], varVariant); + + Param2 := OpenDesktop.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param2.Name := 'FilterName'; + Param2.Value := 'MS Excel 97'; + FilterParams[0] := Param2; + Param2.Name := 'Overwrite'; + Param2.Value := True; + FilterParams[1] := Param2; + + nome := dtmSystem.tblCobCampanhaTX_NOME.AsString; + nome := StringReplace(nome, ' ', '_', [rfReplaceAll]); + + // pathFile := GetCurrentDir; + // pathFile := 'file:///' + pathFile + '\' + nome; + // pathFile := StringReplace(pathFile, '\', '/', [rfReplaceAll]); + + pathFile := dtmSystem.path_executavel; + pathFile := 'file:///' + pathFile + '\' + nome; + pathFile := StringReplace(pathFile, '\', '/', [rfReplaceAll]); + + try + OOExec.StoreAsURL(pathFile + '.xls', FilterParams); + OOExec.close(false); + finally + OpenOffice := Unassigned; + end; + + dtsCampanha_consulta.DataSet.First; + // dtsCampanha_consulta.DataSet.EnableControls; + + Screen.Cursor := crDefault; +end; + +procedure TfrmCampanha.SetButtons; // seta o estado dos botes +var + SrcEmpty, DstEmpty: Boolean; +begin + SrcEmpty := lb_source.Items.Count = 0; + DstEmpty := lb_destiny.Items.Count = 0; + IncludeBtn.Enabled := not SrcEmpty; + IncAllBtn.Enabled := not SrcEmpty; + ExcludeBtn.Enabled := not DstEmpty; + ExAllBtn.Enabled := not DstEmpty; +end; + +procedure TfrmCampanha.SetItem(List: TListBox; Index: Integer); +var + MaxIndex: Integer; // seta os itens +begin + with List do + begin + SetFocus; + MaxIndex := List.Items.Count - 1; + if Index = LB_ERR then + begin + Index := 0 + end + else if Index > MaxIndex then + begin + Index := MaxIndex; + end; + if Index >= 0 then + begin + Selected[Index] := True; + end; + end; + SetButtons; +end; + +procedure TfrmCampanha.SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + Caption := Captions[btn]; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; +end; + +procedure TfrmCampanha.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +// procedure TfrmCampanha.ProgressBarStepIt(const Progressbar: TProgressBar; +// n: Integer); +// begin +// Progressbar.StepBy(n); +// Progressbar.Update; +// Progressbar.StepBy(n - 1); +// Progressbar.Update; +// Progressbar.StepBy(1); +// Progressbar.Update; +// Application.ProcessMessages; +// +// // same as +// (* +// ProgressBar1.Position := 1 + ProgressBar1.Position; +// ProgressBar1.Position := -1 + ProgressBar1.Position; +// ProgressBar1.Position := 1 + ProgressBar1.Position; +// *) +// end; + +end. diff --git a/ufrmCentralBoletos.dfm b/ufrmCentralBoletos.dfm new file mode 100644 index 0000000..b38e448 --- /dev/null +++ b/ufrmCentralBoletos.dfm @@ -0,0 +1,2367 @@ +inherited frmCentralBoletos: TfrmCentralBoletos + Caption = 'Central de Boletos' + ClientHeight = 552 + ClientWidth = 767 + Menu = MainMenu1 + ExplicitWidth = 773 + ExplicitHeight = 600 + PixelsPerInch = 96 + TextHeight = 13 + object pcBoletos: TPageControl [0] + AlignWithMargins = True + Left = 3 + Top = 3 + Width = 761 + Height = 527 + ActivePage = tsPesquisa + Align = alClient + Style = tsButtons + TabOrder = 1 + object tsPesquisa: TTabSheet + Caption = 'Pesquisa' + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object gb_searchfilter: TGroupBox + Left = 0 + Top = 0 + Width = 750 + Height = 73 + Caption = 'Filtro de Pesquisa:' + TabOrder = 0 + object Label1: TLabel + Left = 16 + Top = 16 + Width = 92 + Height = 13 + Caption = 'Situa'#231#227'o do boleto:' + end + object Label2: TLabel + Left = 152 + Top = 16 + Width = 70 + Height = 13 + Caption = 'Filtrar data por:' + end + object Label3: TLabel + Left = 264 + Top = 16 + Width = 41 + Height = 13 + Caption = 'Per'#237'odo:' + end + object Label4: TLabel + Left = 355 + Top = 39 + Width = 6 + Height = 13 + Caption = 'a' + end + object Label5: TLabel + Left = 472 + Top = 16 + Width = 62 + Height = 13 + Caption = 'Ordernar por:' + Enabled = False + end + object SpeedButton1: TSpeedButton + Left = 688 + Top = 34 + Width = 23 + Height = 22 + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FF314B62 + AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF + 106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + 37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF + 00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2 + 9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC + E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF + FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED + B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF + FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF + DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0 + B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0 + BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1 + D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577 + 6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF} + OnClick = SpeedButton1Click + end + object cb_filtrosituacao: TComboBox + Left = 16 + Top = 35 + Width = 121 + Height = 21 + ItemIndex = 0 + TabOrder = 0 + Text = 'Todos' + Items.Strings = ( + 'Todos' + 'Vencidos & s Vencer' + 'Expirados' + 'Pagos' + 'Baixados') + end + object cb_filtrotipodata: TComboBox + Left = 152 + Top = 35 + Width = 97 + Height = 21 + ItemIndex = 0 + TabOrder = 1 + Text = 'Vencimento' + Items.Strings = ( + 'Vencimento' + 'Emiss'#227'o' + 'Situa'#231#227'o') + end + object dt_inicio: TDateTimePicker + Left = 264 + Top = 35 + Width = 81 + Height = 21 + Date = 44215.663146446760000000 + Time = 44215.663146446760000000 + TabOrder = 2 + end + object dt_fim: TDateTimePicker + Left = 375 + Top = 35 + Width = 82 + Height = 21 + Date = 44215.663217199070000000 + Time = 44215.663217199070000000 + TabOrder = 3 + end + object cb_filtroordem: TComboBox + Left = 472 + Top = 35 + Width = 201 + Height = 21 + Enabled = False + ItemIndex = 0 + TabOrder = 4 + Text = 'N'#250'mero do Inter' + Items.Strings = ( + 'N'#250'mero do Inter' + 'N'#250'mero da Nexverse' + 'Vencimento Crescente' + 'Vencimento Decrescente' + 'Nome do Sacado' + 'Valor Crescente' + 'Valor Decrescente' + 'Status Crescente' + 'Status Decrescente') + end + end + object dbgrd_boletos: TDBGrid + Left = 0 + Top = 79 + Width = 750 + Height = 170 + DataSource = dtsBoletos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_boletosDrawColumnCell + OnMouseUp = dbgrd_boletosMouseUp + Columns = < + item + Expanded = False + FieldName = 'nossoNumero' + Title.Caption = 'N'#186' Inter' + Width = 80 + Visible = True + end + item + Expanded = False + FieldName = 'seuNumero' + Title.Caption = 'N'#186' Nexverse' + Width = 70 + Visible = True + end + item + Expanded = False + FieldName = 'cnpjCpfSacado' + Title.Caption = 'Doc. do Sacado' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'nomeSacado' + Title.Caption = 'Nome do Sacado' + Width = 280 + Visible = True + end + item + Expanded = False + FieldName = 'codigoBaixa' + Title.Caption = 'C'#243'digo da Baixa' + Width = 150 + Visible = True + end + item + Expanded = False + FieldName = 'situacao' + Title.Caption = 'Situa'#231#227'o' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'dataPagtoBaixa' + Title.Caption = 'Data do Pagamento' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'dataVencimento' + Title.Caption = 'Data do Vencimento' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'valorNominal' + Title.Caption = 'Valor Nominal' + Width = 80 + Visible = True + end + item + Expanded = False + FieldName = 'valorTotalRecebimento' + Title.Caption = 'Valor Recebido' + Width = 80 + Visible = True + end + item + Expanded = False + FieldName = 'telefone' + Title.Caption = 'Telefone' + Width = 80 + Visible = True + end + item + Expanded = False + FieldName = 'email' + Title.Caption = 'E-mail' + Width = 190 + Visible = True + end + item + Expanded = False + FieldName = 'dataEmissao' + Title.Caption = 'Data da Emiss'#227'o' + Width = 90 + Visible = True + end + item + Expanded = False + FieldName = 'dataLimite' + Title.Caption = 'Data Limite' + Width = 90 + Visible = True + end + item + Expanded = False + FieldName = 'linhaDigitavel' + Title.Caption = 'Linda Digit'#225'vel' + Width = 350 + Visible = True + end + item + Expanded = False + FieldName = 'valorJuros' + Title.Caption = 'Juros' + Width = 80 + Visible = True + end + item + Expanded = False + FieldName = 'valorMulta' + Title.Caption = 'Multa' + Width = 80 + Visible = True + end + item + Expanded = False + FieldName = 'desconto1' + Visible = False + end + item + Expanded = False + FieldName = 'desconto2' + Visible = False + end + item + Expanded = False + FieldName = 'desconto3' + Visible = False + end + item + Expanded = False + FieldName = 'multa' + Visible = False + end + item + Expanded = False + FieldName = 'mora' + Visible = False + end + item + Expanded = False + FieldName = 'valorAbatimento' + Title.Caption = 'Valor do Abatimento' + Width = 90 + Visible = True + end> + end + object gb_desc1: TGroupBox + Left = 0 + Top = 253 + Width = 240 + Height = 113 + Caption = 'Desconto 1:' + TabOrder = 2 + object Label6: TLabel + Left = 16 + Top = 17 + Width = 36 + Height = 13 + Caption = 'C'#243'digo:' + end + object Label7: TLabel + Left = 176 + Top = 17 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label8: TLabel + Left = 16 + Top = 63 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object DBEdit1: TDBEdit + Left = 16 + Top = 36 + Width = 137 + Height = 21 + DataField = 'codigo' + DataSource = dtsDesc1 + ReadOnly = True + TabOrder = 0 + end + object DBEdit2: TDBEdit + Left = 176 + Top = 36 + Width = 50 + Height = 21 + DataField = 'taxa' + DataSource = dtsDesc1 + ReadOnly = True + TabOrder = 1 + end + object DBEdit3: TDBEdit + Left = 16 + Top = 80 + Width = 137 + Height = 21 + DataField = 'valor' + DataSource = dtsDesc1 + ReadOnly = True + TabOrder = 2 + end + end + object gb_desc2: TGroupBox + Left = 255 + Top = 253 + Width = 240 + Height = 113 + Caption = 'Desconto 2:' + TabOrder = 3 + object Label9: TLabel + Left = 16 + Top = 17 + Width = 36 + Height = 13 + Caption = 'C'#243'digo:' + end + object Label10: TLabel + Left = 176 + Top = 17 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label11: TLabel + Left = 16 + Top = 63 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object DBEdit4: TDBEdit + Left = 16 + Top = 36 + Width = 137 + Height = 21 + DataField = 'codigo' + DataSource = dtsDesc2 + ReadOnly = True + TabOrder = 0 + end + object DBEdit5: TDBEdit + Left = 176 + Top = 36 + Width = 50 + Height = 21 + DataField = 'taxa' + DataSource = dtsDesc2 + ReadOnly = True + TabOrder = 1 + end + object DBEdit6: TDBEdit + Left = 16 + Top = 80 + Width = 137 + Height = 21 + DataField = 'valor' + DataSource = dtsDesc2 + ReadOnly = True + TabOrder = 2 + end + end + object gb_desc3: TGroupBox + Left = 510 + Top = 253 + Width = 240 + Height = 113 + Caption = 'Desconto 3:' + TabOrder = 4 + object Label12: TLabel + Left = 16 + Top = 17 + Width = 36 + Height = 13 + Caption = 'C'#243'digo:' + end + object Label13: TLabel + Left = 176 + Top = 17 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label14: TLabel + Left = 16 + Top = 63 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object DBEdit7: TDBEdit + Left = 16 + Top = 36 + Width = 137 + Height = 21 + DataField = 'codigo' + DataSource = dtsDesc3 + ReadOnly = True + TabOrder = 0 + end + object DBEdit8: TDBEdit + Left = 176 + Top = 36 + Width = 50 + Height = 21 + DataField = 'taxa' + DataSource = dtsDesc3 + ReadOnly = True + TabOrder = 1 + end + object DBEdit9: TDBEdit + Left = 16 + Top = 80 + Width = 137 + Height = 21 + DataField = 'valor' + DataSource = dtsDesc3 + ReadOnly = True + TabOrder = 2 + end + end + object gb_multa: TGroupBox + Left = 0 + Top = 368 + Width = 360 + Height = 114 + Caption = 'Multa:' + TabOrder = 5 + object Label15: TLabel + Left = 16 + Top = 63 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object Label16: TLabel + Left = 16 + Top = 17 + Width = 36 + Height = 13 + Caption = 'C'#243'digo:' + end + object Label17: TLabel + Left = 176 + Top = 17 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label18: TLabel + Left = 176 + Top = 63 + Width = 26 + Height = 13 + Caption = 'Data:' + end + object DBEdit10: TDBEdit + Left = 16 + Top = 82 + Width = 137 + Height = 21 + DataField = 'valor' + DataSource = dtsMulta + ReadOnly = True + TabOrder = 0 + end + object DBEdit11: TDBEdit + Left = 16 + Top = 36 + Width = 137 + Height = 21 + DataField = 'codigo' + DataSource = dtsMulta + ReadOnly = True + TabOrder = 1 + end + object DBEdit12: TDBEdit + Left = 176 + Top = 36 + Width = 50 + Height = 21 + DataField = 'taxa' + DataSource = dtsMulta + ReadOnly = True + TabOrder = 2 + end + object rdbdt_entrada: TrDBDateTimePicker + Left = 176 + Top = 82 + Width = 121 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 4 + DataField = 'data' + DataSource = dtsMulta + ReadOnly = True + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + end + object gb_mora: TGroupBox + Left = 390 + Top = 368 + Width = 360 + Height = 114 + Caption = 'Mora:' + TabOrder = 6 + object Label19: TLabel + Left = 24 + Top = 17 + Width = 36 + Height = 13 + Caption = 'C'#243'digo:' + end + object Label20: TLabel + Left = 24 + Top = 63 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object Label21: TLabel + Left = 184 + Top = 17 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label22: TLabel + Left = 184 + Top = 63 + Width = 26 + Height = 13 + Caption = 'Data:' + end + object DBEdit13: TDBEdit + Left = 24 + Top = 36 + Width = 137 + Height = 21 + DataField = 'codigo' + DataSource = dtsMora + ReadOnly = True + TabOrder = 0 + end + object DBEdit14: TDBEdit + Left = 24 + Top = 82 + Width = 137 + Height = 21 + DataField = 'valor' + DataSource = dtsMora + ReadOnly = True + TabOrder = 1 + end + object DBEdit15: TDBEdit + Left = 184 + Top = 36 + Width = 50 + Height = 21 + DataField = 'taxa' + DataSource = dtsMora + ReadOnly = True + TabOrder = 2 + end + object rDBDateTimePicker1: TrDBDateTimePicker + Left = 184 + Top = 82 + Width = 121 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 4 + DataField = 'data' + DataSource = dtsMora + ReadOnly = True + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + end + end + object tsGeraBoleto: TTabSheet + Caption = 'Gerar' + ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object pcGeraBoletos: TPageControl + Left = 0 + Top = 0 + Width = 753 + Height = 496 + ActivePage = tsGeraUm + Align = alClient + Style = tsButtons + TabOrder = 0 + object tsGeraUm: TTabSheet + Caption = 'Manual' + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object pcPesquisaGerar: TPageControl + Left = 0 + Top = 0 + Width = 745 + Height = 465 + ActivePage = TabSheet2 + Align = alClient + Style = tsButtons + TabOrder = 0 + object TabSheet1: TTabSheet + Caption = 'Pesquisar' + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object dbgrd_bolunico: TDBGrid + Left = 0 + Top = 79 + Width = 735 + Height = 137 + Align = alCustom + DataSource = dtsBolUnico + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnMouseUp = dbgrd_bolunicoMouseUp + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 200 + Visible = True + end + item + Expanded = False + FieldName = 'TX_DOCUMENTO' + Title.Caption = 'Documento' + Width = 90 + Visible = True + end + item + Expanded = False + FieldName = 'TX_PRODUTO' + Title.Caption = 'Produto' + Width = 180 + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Principal' + Visible = True + end + item + Expanded = False + FieldName = 'VL_CORRIGIDO' + Title.Caption = 'Corrigido' + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Width = 75 + Visible = True + end> + end + object dbgrd_emailsbolunico: TDBGrid + Left = 0 + Top = 222 + Width = 281 + Height = 75 + DataSource = dtsEmails + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_EMAIL' + Title.Caption = 'Email' + Visible = True + end> + end + object DBGrid1: TDBGrid + Left = 286 + Top = 222 + Width = 449 + Height = 75 + DataSource = dtsTelefones + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'NR_DDD' + Title.Caption = 'DDD' + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Width = 76 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Width = 33 + Visible = True + end + item + Expanded = False + FieldName = 'TP_TIPOTEL' + Title.Caption = 'Tipo' + Width = 31 + Visible = True + end + item + Expanded = False + FieldName = 'TP_SMS' + Title.Caption = 'SMS' + Width = 32 + Visible = True + end + item + Expanded = False + FieldName = 'TX_DESC' + Title.Caption = 'Descri'#231#227'o' + Visible = True + end> + end + object DBGrid2: TDBGrid + Left = 0 + Top = 303 + Width = 735 + Height = 80 + DataSource = dtsEnderecos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 3 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TP_ENDERECO' + Title.Caption = 'Tipo' + Width = 32 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Width = 33 + Visible = True + end + item + Expanded = False + FieldName = 'TX_LOGRADOURO' + Title.Caption = 'Rua' + Width = 282 + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Width = 49 + Visible = True + end + item + Expanded = False + FieldName = 'TX_COMPLEMENTO' + Title.Caption = 'Complemento' + Width = 138 + Visible = True + end + item + Expanded = False + FieldName = 'TX_BAIRRO' + Title.Caption = 'Bairro' + Width = 93 + Visible = True + end + item + Expanded = False + FieldName = 'TX_CIDADE' + Title.Caption = 'Cidade' + Visible = True + end + item + Expanded = False + FieldName = 'TX_ESTADO' + Title.Caption = 'UF' + Width = 20 + Visible = True + end + item + Expanded = False + FieldName = 'TX_CEP' + Title.Caption = 'Cep' + Visible = True + end + item + Expanded = False + FieldName = 'TP_CONFIRMADO' + Title.Caption = 'Confirmado' + Width = 59 + Visible = True + end> + end + object GroupBox1: TGroupBox + Left = 0 + Top = 3 + Width = 735 + Height = 70 + Caption = 'Filtro:' + TabOrder = 4 + object Label23: TLabel + Left = 16 + Top = 16 + Width = 139 + Height = 13 + Caption = 'Grupo de Empresa de Boleto:' + end + object Label24: TLabel + Left = 288 + Top = 16 + Width = 100 + Height = 13 + Caption = 'Per'#237'odo Vencimento:' + end + object Label25: TLabel + Left = 379 + Top = 39 + Width = 6 + Height = 13 + Caption = 'a' + end + object SpeedButton2: TSpeedButton + Left = 544 + Top = 34 + Width = 23 + Height = 22 + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FF314B62 + AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF + 106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + 37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF + 00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2 + 9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC + E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF + FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED + B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF + FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF + DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0 + B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0 + BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1 + D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577 + 6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF} + OnClick = SpeedButton2Click + end + object dblucb_filtrobolunico: TDBLookupComboBox + Left = 16 + Top = 35 + Width = 241 + Height = 21 + KeyField = 'ID_GRUPO' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsGrupoBoletos + TabOrder = 0 + end + object dtp_vencinbolunico: TDateTimePicker + Left = 288 + Top = 35 + Width = 81 + Height = 21 + Date = 44215.663146446760000000 + Time = 44215.663146446760000000 + TabOrder = 1 + end + object dtp_vencoutbolunico: TDateTimePicker + Left = 399 + Top = 35 + Width = 82 + Height = 21 + Date = 44215.663217199070000000 + Time = 44215.663217199070000000 + TabOrder = 2 + end + end + end + object TabSheet2: TTabSheet + Caption = 'Dados' + ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object Label26: TLabel + Left = 214 + Top = 33 + Width = 24 + Height = 13 + Caption = 'CEP:' + end + object Label27: TLabel + Left = 311 + Top = 33 + Width = 15 + Height = 13 + Caption = 'N'#186':' + end + object Label28: TLabel + Left = 416 + Top = 33 + Width = 67 + Height = 13 + Caption = 'Complemento:' + end + object Label29: TLabel + Left = 552 + Top = 33 + Width = 30 + Height = 13 + Caption = 'Bairro:' + end + object Label30: TLabel + Left = 2 + Top = 60 + Width = 36 + Height = 13 + Caption = 'Cidade:' + end + object Label31: TLabel + Left = 171 + Top = 60 + Width = 17 + Height = 13 + Caption = 'UF:' + end + object Label32: TLabel + Left = 230 + Top = 60 + Width = 49 + Height = 13 + Caption = 'Endere'#231'o:' + end + object lbl_dddbolunico: TLabel + Left = 2 + Top = 33 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object lbl_docbolunico: TLabel + Left = 286 + Top = 6 + Width = 58 + Height = 13 + Caption = 'Documento:' + end + object lbl_emailbolunico: TLabel + Left = 489 + Top = 6 + Width = 28 + Height = 13 + Caption = 'Email:' + end + object lbl_nomebolunico: TLabel + Left = 2 + Top = 6 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_telbolunico: TLabel + Left = 82 + Top = 33 + Width = 45 + Height = 13 + Caption = 'Telefone:' + end + object Label33: TLabel + Left = 2 + Top = 106 + Width = 59 + Height = 13 + Caption = 'Vencimento:' + end + object Label43: TLabel + Left = 159 + Top = 106 + Width = 75 + Height = 13 + Caption = 'Valor do Boleto:' + end + object Label44: TLabel + Left = 367 + Top = 106 + Width = 98 + Height = 13 + Caption = 'Valor de Abatimento:' + end + object Label53: TLabel + Left = 537 + Top = 239 + Width = 56 + Height = 13 + Caption = 'Data Limite:' + end + object Label54: TLabel + Left = 537 + Top = 266 + Width = 78 + Height = 13 + Caption = 'Dias p/ Agenda:' + end + object edt_bairrobolunico: TEdit + Left = 583 + Top = 30 + Width = 153 + Height = 21 + TabOrder = 8 + end + object edt_cepbolunico: TEdit + Left = 244 + Top = 30 + Width = 60 + Height = 21 + TabOrder = 5 + end + object edt_cidadebolunico: TEdit + Left = 44 + Top = 57 + Width = 121 + Height = 21 + TabOrder = 9 + end + object edt_compbolunico: TEdit + Left = 489 + Top = 30 + Width = 57 + Height = 21 + TabOrder = 7 + end + object edt_dddbolunico: TEdit + Left = 35 + Top = 30 + Width = 41 + Height = 21 + TabOrder = 3 + end + object edt_docbolunico: TEdit + Left = 350 + Top = 3 + Width = 133 + Height = 21 + Hint = 'Documento sem ".", "-" ou "/'#39 + TabOrder = 1 + end + object edt_emailbolunico: TEdit + Left = 518 + Top = 3 + Width = 218 + Height = 21 + TabOrder = 2 + end + object edt_endbolunico: TEdit + Left = 285 + Top = 57 + Width = 451 + Height = 21 + TabOrder = 11 + end + object edt_endnumbolunico: TEdit + Left = 332 + Top = 30 + Width = 79 + Height = 21 + NumbersOnly = True + TabOrder = 6 + end + object edt_estadobolunico: TEdit + Left = 194 + Top = 57 + Width = 30 + Height = 21 + TabOrder = 10 + end + object edt_nomebolunico: TEdit + Left = 39 + Top = 3 + Width = 241 + Height = 21 + TabOrder = 0 + end + object edt_telbolunico: TEdit + Left = 133 + Top = 30 + Width = 71 + Height = 21 + TabOrder = 4 + end + object dt_vencbolunico: TDateTimePicker + Left = 67 + Top = 103 + Width = 86 + Height = 21 + Date = 44218.722504768520000000 + Time = 44218.722504768520000000 + TabOrder = 12 + end + object Panel1: TPanel + Left = 0 + Top = 96 + Width = 737 + Height = 1 + TabOrder = 14 + end + object GroupBox2: TGroupBox + Left = 0 + Top = 126 + Width = 242 + Height = 87 + Caption = 'Desconto 1:' + TabOrder = 15 + object Label34: TLabel + Left = 143 + Top = 27 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label35: TLabel + Left = 8 + Top = 55 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object Label36: TLabel + Left = 117 + Top = 55 + Width = 26 + Height = 13 + Caption = 'Data:' + end + object cb_desc1: TComboBox + Left = 8 + Top = 24 + Width = 129 + Height = 21 + ItemIndex = 0 + TabOrder = 0 + Text = 'NAOTEMDESCONTO' + Items.Strings = ( + 'NAOTEMDESCONTO' + 'VALORFIXODATAINFORMADA' + 'PERCENTUALDATAINFORMADA' + 'VALORANTECIPACAODIACORRIDO' + 'VALORANTECIPACAODIAUTIL' + 'PERCENTUALVALORNOMINALDIACORRIDO' + 'PERCENTUALVALORNOMINALDIAUTIL') + end + object edt_taxa1bol: TEdit + Left = 176 + Top = 24 + Width = 57 + Height = 21 + TabOrder = 1 + end + object edt_val1bol: TEdit + Left = 41 + Top = 51 + Width = 70 + Height = 21 + TabOrder = 2 + end + object dtp_desc1: TDateTimePicker + Left = 149 + Top = 51 + Width = 84 + Height = 21 + Date = 44218.738580023150000000 + Time = 44218.738580023150000000 + TabOrder = 3 + end + end + object GroupBox3: TGroupBox + Left = 248 + Top = 126 + Width = 242 + Height = 87 + Caption = 'Desconto 2:' + TabOrder = 16 + object Label37: TLabel + Left = 143 + Top = 27 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label38: TLabel + Left = 8 + Top = 55 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object Label39: TLabel + Left = 117 + Top = 55 + Width = 26 + Height = 13 + Caption = 'Data:' + end + object cb_desc2: TComboBox + Left = 8 + Top = 24 + Width = 129 + Height = 21 + ItemIndex = 0 + TabOrder = 0 + Text = 'NAOTEMDESCONTO' + Items.Strings = ( + 'NAOTEMDESCONTO' + 'VALORFIXODATAINFORMADA' + 'PERCENTUALDATAINFORMADA' + 'VALORANTECIPACAODIACORRIDO' + 'VALORANTECIPACAODIAUTIL' + 'PERCENTUALVALORNOMINALDIACORRIDO' + 'PERCENTUALVALORNOMINALDIAUTIL') + end + object edt_taxa2bol: TEdit + Left = 176 + Top = 24 + Width = 57 + Height = 21 + TabOrder = 1 + end + object edt_val2bol: TEdit + Left = 41 + Top = 51 + Width = 70 + Height = 21 + TabOrder = 2 + end + object dtp_desc2: TDateTimePicker + Left = 149 + Top = 51 + Width = 84 + Height = 21 + Date = 44218.738580023150000000 + Time = 44218.738580023150000000 + TabOrder = 3 + end + end + object GroupBox4: TGroupBox + Left = 496 + Top = 126 + Width = 242 + Height = 87 + Caption = 'Desconto 3:' + TabOrder = 17 + object Label40: TLabel + Left = 143 + Top = 27 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label41: TLabel + Left = 8 + Top = 55 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object Label42: TLabel + Left = 117 + Top = 55 + Width = 26 + Height = 13 + Caption = 'Data:' + end + object cb_desc3: TComboBox + Left = 8 + Top = 24 + Width = 129 + Height = 21 + ItemIndex = 0 + TabOrder = 0 + Text = 'NAOTEMDESCONTO' + Items.Strings = ( + 'NAOTEMDESCONTO' + 'VALORFIXODATAINFORMADA' + 'PERCENTUALDATAINFORMADA' + 'VALORANTECIPACAODIACORRIDO' + 'VALORANTECIPACAODIAUTIL' + 'PERCENTUALVALORNOMINALDIACORRIDO' + 'PERCENTUALVALORNOMINALDIAUTIL') + end + object edt_taxa3bol: TEdit + Left = 176 + Top = 24 + Width = 57 + Height = 21 + TabOrder = 1 + end + object edt_val3bol: TEdit + Left = 41 + Top = 51 + Width = 70 + Height = 21 + TabOrder = 2 + end + object dtp_desc3: TDateTimePicker + Left = 149 + Top = 51 + Width = 84 + Height = 21 + Date = 44218.738580023150000000 + Time = 44218.738580023150000000 + TabOrder = 3 + end + end + object edt_valorboleto: TEdit + Left = 240 + Top = 103 + Width = 121 + Height = 21 + TabOrder = 13 + OnKeyPress = edt_valorboletoKeyPress + end + object edt_abatimentobol: TEdit + Left = 471 + Top = 103 + Width = 121 + Height = 21 + TabOrder = 24 + OnKeyPress = edt_abatimentobolKeyPress + end + object GroupBox5: TGroupBox + Left = 263 + Top = 212 + Width = 257 + Height = 87 + Caption = 'Multa:' + TabOrder = 19 + object Label45: TLabel + Left = 159 + Top = 27 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label46: TLabel + Left = 8 + Top = 55 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object Label56: TLabel + Left = 117 + Top = 55 + Width = 26 + Height = 13 + Caption = 'Data:' + end + object cb_multabol: TComboBox + Left = 8 + Top = 24 + Width = 145 + Height = 21 + ItemIndex = 0 + TabOrder = 0 + Text = 'NAOTEMMULTA' + Items.Strings = ( + 'NAOTEMMULTA' + 'VALORFIXO' + 'PERCENTUAL') + end + object edt_taxamultabol: TEdit + Left = 192 + Top = 24 + Width = 57 + Height = 21 + TabOrder = 1 + end + object edt_vlmultabol: TEdit + Left = 41 + Top = 51 + Width = 70 + Height = 21 + TabOrder = 2 + end + object dtp_mora: TDateTimePicker + Left = 149 + Top = 51 + Width = 84 + Height = 21 + Date = 44218.738580023150000000 + Time = 44218.738580023150000000 + TabOrder = 3 + end + end + object GroupBox6: TGroupBox + Left = 0 + Top = 212 + Width = 257 + Height = 87 + Caption = 'Mora:' + TabOrder = 18 + object Label47: TLabel + Left = 159 + Top = 27 + Width = 27 + Height = 13 + Caption = 'Taxa:' + end + object Label48: TLabel + Left = 8 + Top = 55 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object Label55: TLabel + Left = 122 + Top = 55 + Width = 26 + Height = 13 + Caption = 'Data:' + end + object cb_morabol: TComboBox + Left = 8 + Top = 24 + Width = 145 + Height = 21 + ItemIndex = 0 + TabOrder = 0 + Text = 'VALORDIA' + Items.Strings = ( + 'VALORDIA' + 'TAXAMENSAL' + 'ISENTO') + end + object edt_taxamorabol: TEdit + Left = 192 + Top = 24 + Width = 57 + Height = 21 + TabOrder = 1 + end + object edt_vlmorabol: TEdit + Left = 41 + Top = 51 + Width = 70 + Height = 21 + TabOrder = 2 + end + object dtp_multa: TDateTimePicker + Left = 154 + Top = 51 + Width = 84 + Height = 21 + Date = 44218.738580023150000000 + Time = 44218.738580023150000000 + TabOrder = 3 + end + end + object GroupBox7: TGroupBox + Left = 0 + Top = 298 + Width = 737 + Height = 136 + Caption = 'Mensagem:' + TabOrder = 22 + object Label49: TLabel + Left = 8 + Top = 20 + Width = 38 + Height = 13 + Caption = 'Linha 1:' + end + object Label50: TLabel + Left = 8 + Top = 44 + Width = 38 + Height = 13 + Caption = 'Linha 2:' + end + object Label51: TLabel + Left = 8 + Top = 68 + Width = 38 + Height = 13 + Caption = 'Linha 3:' + end + object Label52: TLabel + Left = 8 + Top = 92 + Width = 38 + Height = 13 + Caption = 'Linha 4:' + end + object Label57: TLabel + Left = 8 + Top = 115 + Width = 38 + Height = 13 + Caption = 'Linha 5:' + end + object edt_linha1bol: TEdit + Left = 52 + Top = 17 + Width = 671 + Height = 21 + MaxLength = 78 + TabOrder = 0 + end + object edt_linha2bol: TEdit + Left = 52 + Top = 41 + Width = 671 + Height = 21 + MaxLength = 78 + TabOrder = 1 + end + object edt_linha3bol: TEdit + Left = 52 + Top = 65 + Width = 671 + Height = 21 + MaxLength = 78 + TabOrder = 2 + end + object edt_linha4bol: TEdit + Left = 52 + Top = 89 + Width = 671 + Height = 21 + MaxLength = 78 + TabOrder = 3 + end + object edt_linha5bol: TEdit + Left = 52 + Top = 112 + Width = 671 + Height = 21 + MaxLength = 78 + TabOrder = 4 + end + end + object btn_gerarbolunico: TButton + Left = 659 + Top = 103 + Width = 75 + Height = 25 + Caption = 'Gerar' + TabOrder = 23 + OnClick = btn_gerarbolunicoClick + end + object cb_dtlimitebol: TComboBox + Left = 637 + Top = 236 + Width = 92 + Height = 21 + ItemIndex = 0 + TabOrder = 20 + Text = 'TRINTA' + Items.Strings = ( + 'TRINTA' + 'SESSENTA') + end + object cb_agendabol: TComboBox + Left = 637 + Top = 263 + Width = 92 + Height = 21 + ItemIndex = 0 + TabOrder = 21 + Text = 'TRINTA' + Items.Strings = ( + 'TRINTA' + 'SESSENTA') + end + end + end + end + object tsGeraAuto: TTabSheet + Caption = 'Autom'#225'tico' + ImageIndex = 1 + TabVisible = False + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + end + end + end + end + inherited stbStatus: TStatusBar + Top = 533 + Width = 767 + ExplicitTop = 533 + ExplicitWidth = 767 + end + object dtsBoletos: TDataSource + DataSet = tblBoletos + OnDataChange = dtsBoletosDataChange + Left = 168 + Top = 1 + end + object tblBoletos: TClientDataSet + Aggregates = <> + Params = <> + Left = 296 + Top = 1 + object tblBoletosnossoNumero: TStringField + FieldName = 'nossoNumero' + Size = 255 + end + object tblBoletosseuNumero: TStringField + FieldName = 'seuNumero' + Size = 255 + end + object tblBoletoscnpjCpfSacado: TStringField + FieldName = 'cnpjCpfSacado' + Size = 255 + end + object tblBoletosnomeSacado: TStringField + FieldName = 'nomeSacado' + Size = 255 + end + object tblBoletoscodigoBaixa: TStringField + FieldName = 'codigoBaixa' + Size = 255 + end + object tblBoletossituacao: TStringField + FieldName = 'situacao' + Size = 255 + end + object tblBoletosdataPagtoBaixa: TDateField + FieldName = 'dataPagtoBaixa' + end + object tblBoletosdataVencimento: TDateField + FieldName = 'dataVencimento' + end + object tblBoletosvalorNominal: TCurrencyField + FieldName = 'valorNominal' + end + object tblBoletosvalorTotalRecebimento: TCurrencyField + FieldName = 'valorTotalRecebimento' + end + object tblBoletostelefone: TStringField + FieldName = 'telefone' + Size = 255 + end + object tblBoletosemail: TStringField + FieldName = 'email' + Size = 255 + end + object tblBoletosdataEmissao: TDateField + FieldName = 'dataEmissao' + end + object tblBoletosdataLimite: TDateField + FieldName = 'dataLimite' + end + object tblBoletoslinhaDigitavel: TStringField + FieldName = 'linhaDigitavel' + Size = 255 + end + object tblBoletosvalorJuros: TCurrencyField + FieldName = 'valorJuros' + end + object tblBoletosvalorMulta: TCurrencyField + FieldName = 'valorMulta' + end + object tblBoletosdesconto1: TBlobField + FieldName = 'desconto1' + end + object tblBoletosdesconto2: TBlobField + FieldName = 'desconto2' + end + object tblBoletosdesconto3: TBlobField + FieldName = 'desconto3' + end + object tblBoletosmulta: TBlobField + FieldName = 'multa' + end + object tblBoletosmora: TBlobField + FieldName = 'mora' + end + object tblBoletosvalorAbatimento: TCurrencyField + FieldName = 'valorAbatimento' + end + end + object IdHTTP: TIdHTTP + IOHandler = IdSSLHandler + AllowCookies = True + ProxyParams.BasicAuthentication = False + ProxyParams.ProxyPort = 0 + Request.ContentLength = -1 + Request.ContentRangeEnd = -1 + Request.ContentRangeStart = -1 + Request.ContentRangeInstanceLength = -1 + Request.Accept = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' + Request.BasicAuthentication = False + Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' + Request.Ranges.Units = 'bytes' + Request.Ranges = <> + HTTPOptions = [hoForceEncodeParams] + Left = 681 + Top = 1 + end + object IdSSLHandler: TIdSSLIOHandlerSocketOpenSSL + MaxLineAction = maException + Port = 0 + DefaultPort = 0 + SSLOptions.Method = sslvSSLv23 + SSLOptions.SSLVersions = [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2] + SSLOptions.Mode = sslmUnassigned + SSLOptions.VerifyMode = [] + SSLOptions.VerifyDepth = 0 + Left = 649 + Top = 1 + end + object tblDesc1: TClientDataSet + Aggregates = <> + Params = <> + Left = 264 + Top = 1 + object tblDesc1codigo: TStringField + FieldName = 'codigo' + Size = 255 + end + object tblDesc1taxa: TFloatField + FieldName = 'taxa' + end + object tblDesc1valor: TCurrencyField + FieldName = 'valor' + end + end + object dtsDesc1: TDataSource + DataSet = tblDesc1 + Left = 232 + Top = 1 + end + object tblDesc2: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 331 + object tblDesc2codigo: TStringField + FieldName = 'codigo' + Size = 255 + end + object tblDesc2taxa: TFloatField + FieldName = 'taxa' + end + object tblDesc2valor: TCurrencyField + FieldName = 'valor' + end + end + object dtsDesc2: TDataSource + DataSet = tblDesc2 + Left = 728 + Top = 235 + end + object tblDesc3: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 1 + object tblDesc3codigo: TStringField + FieldName = 'codigo' + Size = 255 + end + object tblDesc3taxa: TFloatField + FieldName = 'taxa' + end + object tblDesc3valor: TCurrencyField + FieldName = 'valor' + end + end + object dtsDesc3: TDataSource + DataSet = tblDesc3 + Left = 728 + Top = 283 + end + object tblMulta: TClientDataSet + Aggregates = <> + Params = <> + Left = 425 + Top = 1 + object tblMultacodigo: TStringField + FieldName = 'codigo' + Size = 255 + end + object tblMultataxa: TFloatField + FieldName = 'taxa' + end + object tblMultavalor: TCurrencyField + FieldName = 'valor' + end + object tblMultadata: TDateField + FieldName = 'data' + end + end + object dtsMulta: TDataSource + DataSet = tblMulta + Left = 457 + Top = 1 + end + object tblMora: TClientDataSet + Aggregates = <> + Params = <> + Left = 489 + Top = 1 + object tblMoracodigo: TStringField + FieldName = 'codigo' + Size = 255 + end + object tblMorataxa: TFloatField + FieldName = 'taxa' + end + object tblMoravalor: TCurrencyField + FieldName = 'valor' + end + object tblMoradata: TDateField + FieldName = 'data' + end + end + object dtsMora: TDataSource + DataSet = tblMora + Left = 521 + Top = 1 + end + object pum_download: TPopupMenu + Left = 584 + Top = 1 + object mnuDownload: TMenuItem + Caption = 'Download' + OnClick = mnuDownloadClick + end + object N2: TMenuItem + Caption = '-' + end + object mnuBaixarInter: TMenuItem + Caption = 'Baixar no Inter' + object mnuAcertos: TMenuItem + Caption = 'Acertos' + Hint = 'Baixa por acertos' + OnClick = mnuAcertosClick + end + object mnuProtestado: TMenuItem + Caption = 'Protestado' + Hint = 'Baixado por ter sido protestado' + OnClick = mnuProtestadoClick + end + object mnuDevolucao: TMenuItem + Caption = 'Devolu'#231#227'o' + Hint = ' Baixado para devolu'#231#227'o' + OnClick = mnuDevolucaoClick + end + object mnuProtestoAposBaixa: TMenuItem + Caption = 'Protesto Ap'#243's Baixa' + Hint = 'Baixado por protesto ap'#243's baixa' + OnClick = mnuProtestoAposBaixaClick + end + object mnuPagoDireto: TMenuItem + Caption = 'Pago Direto ao Cliente' + Hint = 'Baixado, pago direto ao cliente' + OnClick = mnuPagoDiretoClick + end + object mnuSubstituicao: TMenuItem + Caption = 'Substitui'#231#227'o' + Hint = 'Baixado por substitui'#231#227'o' + OnClick = mnuSubstituicaoClick + end + object mnuFalta: TMenuItem + Caption = 'Falta de Solu'#231#227'o' + Hint = 'Baixado por falta de solu'#231#227'o' + OnClick = mnuFaltaClick + end + object mnuAPedidoCliente: TMenuItem + Caption = 'A Pedido do Cliente' + Hint = 'Baixado a pedido do cliente' + OnClick = mnuAPedidoClienteClick + end + end + object mnuBaixarCob: TMenuItem + Caption = 'Baixar na Cobran'#231'a' + OnClick = mnuBaixarCobClick + end + end + object SaveDialog: TSaveDialog + DefaultExt = #39'pdf'#39 + Filter = 'PDF (*.pdf)|*.pdf' + Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] + Left = 552 + Top = 1 + end + object IdDecoderMIME: TIdDecoderMIME + FillChar = '=' + Left = 616 + Top = 1 + end + object zroqryBolUnico: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'd.ID_DEVEDOR,' + 'd.TX_NOME,' + + 'case when d.TP_CLIENTE = '#39'F'#39' then d.CD_CPF when d.TP_CLIENTE = '#39 + + 'J'#39' then d.CD_CNPJ end as TX_DOCUMENTO,' + 't.TX_PRODUTO,' + 't.VL_TITULO,' + 't.VL_CORRIGIDO,' + 't.DT_VENCIMENTO,' + 't.ID_EMPRESA,' + 't.ID_TITULO' + 'from chg_titulos t' + 'left join CHG_DEVEDORES d on d.ID_DEVEDOR = t.ID_DEVEDOR' + 'where' + + 't.ID_EMPRESA in (select ID_EMPRESA from CHG_GRUPO_BOLETO_EMPRESA' + + 'S where ID_GRUPO_BOLETO = 1)' + 'and' + '(t.TP_SITUACAO = '#39'A'#39' or t.TP_SITUACAO = '#39'AC'#39')' + 'and' + + '(t.DT_VENCIMENTO >= cast('#39'2020-01-01'#39' as date) and t.DT_VENCIMEN' + + 'TO <= cast('#39'2020-01-01'#39' as date))') + Params = <> + Left = 728 + Top = 190 + object zroqryBolUnicoID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zroqryBolUnicoTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object zroqryBolUnicoTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + ReadOnly = True + Size = 18 + end + object zroqryBolUnicoTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zroqryBolUnicoVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + currency = True + end + object zroqryBolUnicoVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + currency = True + end + object zroqryBolUnicoDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object zroqryBolUnicoID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zroqryBolUnicoID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + end + object dtsBolUnico: TDataSource + DataSet = zroqryBolUnico + Left = 728 + Top = 142 + end + object MainMenu1: TMainMenu + Left = 728 + Top = 46 + object mnuCadastro: TMenuItem + Caption = 'Cadastro' + object mnhGrupoBoletos: TMenuItem + Caption = 'Grupos de Empresas' + OnClick = mnhGrupoBoletosClick + end + end + end + object zroqryEmails: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from chg_emails') + Params = <> + MasterFields = 'ID_DEVEDOR' + MasterSource = dtsBolUnico + LinkedFields = 'ID_DEVEDOR' + Left = 728 + Top = 94 + object zroqryEmailsTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 40 + end + object zroqryEmailsID_EMAIL: TIntegerField + FieldName = 'ID_EMAIL' + Required = True + end + object zroqryEmailsID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object zroqryEmailsID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object zroqryEmailsDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object dtsEmails: TDataSource + DataSet = zroqryEmails + Left = 328 + Top = 1 + end + object zroqryTelefones: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from chg_telefones') + Params = <> + MasterFields = 'ID_DEVEDOR' + MasterSource = dtsBolUnico + LinkedFields = 'ID_DEVEDOR' + Left = 360 + Top = 1 + object zroqryTelefonesNR_DDD: TWideStringField + FieldName = 'NR_DDD' + Size = 4 + end + object zroqryTelefonesNR_NUMERO: TWideStringField + FieldName = 'NR_NUMERO' + end + object zroqryTelefonesTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object zroqryTelefonesTP_TIPOTEL: TWideStringField + FieldName = 'TP_TIPOTEL' + Size = 1 + end + object zroqryTelefonesTP_SMS: TWideStringField + FieldName = 'TP_SMS' + Size = 1 + end + object zroqryTelefonesTX_DESC: TWideStringField + FieldName = 'TX_DESC' + Size = 100 + end + object zroqryTelefonesID_TELEFONE: TIntegerField + FieldName = 'ID_TELEFONE' + Required = True + end + object zroqryTelefonesID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zroqryTelefonesTX_OBS: TWideMemoField + FieldName = 'TX_OBS' + BlobType = ftWideMemo + end + object zroqryTelefonesID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object zroqryTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object dtsTelefones: TDataSource + DataSet = zroqryTelefones + Left = 392 + Top = 1 + end + object zroqryEnderecos: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from chg_enderecos') + Params = <> + MasterFields = 'ID_DEVEDOR' + MasterSource = dtsBolUnico + LinkedFields = 'ID_DEVEDOR' + Left = 200 + Top = 1 + object zroqryEnderecosID_ENDERECO: TIntegerField + FieldName = 'ID_ENDERECO' + Required = True + end + object zroqryEnderecosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zroqryEnderecosTP_ENDERECO: TWideStringField + FieldName = 'TP_ENDERECO' + Size = 1 + end + object zroqryEnderecosTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object zroqryEnderecosTX_LOGRADOURO: TWideStringField + FieldName = 'TX_LOGRADOURO' + Size = 100 + end + object zroqryEnderecosTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 100 + end + object zroqryEnderecosID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object zroqryEnderecosID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object zroqryEnderecosTX_CEP: TWideStringField + FieldName = 'TX_CEP' + Size = 9 + end + object zroqryEnderecosTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + Size = 100 + end + object zroqryEnderecosNR_NUMERO: TFloatField + FieldName = 'NR_NUMERO' + end + object zroqryEnderecosTP_REFERENCIA: TWideStringField + FieldName = 'TP_REFERENCIA' + Size = 1 + end + object zroqryEnderecosID_HIGIENIZADORA: TIntegerField + FieldName = 'ID_HIGIENIZADORA' + end + object zroqryEnderecosTP_CONFIRMADO: TWideStringField + FieldName = 'TP_CONFIRMADO' + Size = 1 + end + object zroqryEnderecosID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object zroqryEnderecosTX_ESTADO: TStringField + FieldKind = fkLookup + FieldName = 'TX_ESTADO' + LookupDataSet = dtmSystem.tblEstados + LookupKeyFields = 'ID_ESTADO' + LookupResultField = 'TX_SIGLA' + KeyFields = 'ID_ESTADO' + Size = 255 + Lookup = True + end + object zroqryEnderecosTX_CIDADE: TStringField + FieldKind = fkLookup + FieldName = 'TX_CIDADE' + LookupDataSet = dtmSystem.tblCidadesConsulta + LookupKeyFields = 'ID_CIDADE' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_CIDADE' + Size = 255 + Lookup = True + end + end + object dtsEnderecos: TDataSource + DataSet = zroqryEnderecos + Left = 136 + Top = 1 + end + object pum_incldel: TPopupMenu + Left = 104 + Top = 1 + object mnuIncluir: TMenuItem + Caption = 'Incluir' + OnClick = mnuIncluirClick + end + object N1: TMenuItem + Caption = '-' + end + object mnuRemover: TMenuItem + Caption = 'Remover' + end + end + object rotblRepasseFase: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_repasses_fases') + Params = <> + Left = 728 + Top = 376 + object rotblRepasseFaseID_FASE: TIntegerField + FieldName = 'ID_FASE' + Required = True + end + object rotblRepasseFasePR_PRINCIPAL: TFloatField + FieldName = 'PR_PRINCIPAL' + end + object rotblRepasseFasePR_JUROS: TFloatField + FieldName = 'PR_JUROS' + end + object rotblRepasseFasePR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object rotblRepasseFasePR_ENCARGOS: TFloatField + FieldName = 'PR_ENCARGOS' + end + object rotblRepasseFasePR_CORRIGIDO: TFloatField + FieldName = 'PR_CORRIGIDO' + end + object rotblRepasseFaseMIN_ATRASO: TIntegerField + FieldName = 'MIN_ATRASO' + end + object rotblRepasseFaseMAX_ATRASO: TIntegerField + FieldName = 'MAX_ATRASO' + end + object rotblRepasseFaseID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end +end diff --git a/ufrmCentralBoletos.pas b/ufrmCentralBoletos.pas new file mode 100644 index 0000000..bc60fca --- /dev/null +++ b/ufrmCentralBoletos.pas @@ -0,0 +1,1837 @@ +unit ufrmCentralBoletos; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.StrUtils, System.DateUtils, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.StdCtrls, + Data.DB, + Datasnap.DBClient, Vcl.Grids, Vcl.DBGrids, Vcl.Buttons, System.JSON, MidasLib, + IdIOHandler, + IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, + IdComponent, IdGlobal, + IdTCPConnection, IdTCPClient, IdHTTP, REST.Response.Adapter, rDBComponents, + Vcl.Mask, Vcl.DBCtrls, Vcl.Menus, IdCoder, IdCoder3to4, IdCoderMIME, + ZAbstractRODataset, ZDataset, Vcl.ExtCtrls; + +type + + TStringArray = array of string; + + TfrmCentralBoletos = class(TmstMaster) + dtsBoletos: TDataSource; + tblBoletos: TClientDataSet; + IdHTTP: TIdHTTP; + IdSSLHandler: TIdSSLIOHandlerSocketOpenSSL; + tblDesc1: TClientDataSet; + dtsDesc1: TDataSource; + tblDesc2: TClientDataSet; + dtsDesc2: TDataSource; + tblDesc3: TClientDataSet; + dtsDesc3: TDataSource; + tblMulta: TClientDataSet; + dtsMulta: TDataSource; + tblMora: TClientDataSet; + dtsMora: TDataSource; + tblBoletosnossoNumero: TStringField; + tblBoletosseuNumero: TStringField; + tblBoletoscnpjCpfSacado: TStringField; + tblBoletosnomeSacado: TStringField; + tblBoletoscodigoBaixa: TStringField; + tblBoletossituacao: TStringField; + tblBoletosdataPagtoBaixa: TDateField; + tblBoletosdataVencimento: TDateField; + tblBoletosvalorNominal: TCurrencyField; + tblBoletosvalorTotalRecebimento: TCurrencyField; + tblBoletostelefone: TStringField; + tblBoletosemail: TStringField; + tblBoletosdataEmissao: TDateField; + tblBoletosdataLimite: TDateField; + tblBoletoslinhaDigitavel: TStringField; + tblBoletosvalorJuros: TCurrencyField; + tblBoletosvalorMulta: TCurrencyField; + tblBoletosdesconto1: TBlobField; + tblBoletosdesconto2: TBlobField; + tblBoletosdesconto3: TBlobField; + tblBoletosmulta: TBlobField; + tblBoletosmora: TBlobField; + tblBoletosvalorAbatimento: TCurrencyField; + tblDesc1codigo: TStringField; + tblDesc1taxa: TFloatField; + tblDesc1valor: TCurrencyField; + tblDesc2codigo: TStringField; + tblDesc2taxa: TFloatField; + tblDesc2valor: TCurrencyField; + tblDesc3codigo: TStringField; + tblDesc3taxa: TFloatField; + tblDesc3valor: TCurrencyField; + tblMultacodigo: TStringField; + tblMultataxa: TFloatField; + tblMultavalor: TCurrencyField; + tblMultadata: TDateField; + tblMoracodigo: TStringField; + tblMorataxa: TFloatField; + tblMoravalor: TCurrencyField; + tblMoradata: TDateField; + pcBoletos: TPageControl; + tsPesquisa: TTabSheet; + gb_searchfilter: TGroupBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + SpeedButton1: TSpeedButton; + cb_filtrosituacao: TComboBox; + cb_filtrotipodata: TComboBox; + dt_inicio: TDateTimePicker; + dt_fim: TDateTimePicker; + cb_filtroordem: TComboBox; + dbgrd_boletos: TDBGrid; + gb_desc1: TGroupBox; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + DBEdit1: TDBEdit; + DBEdit2: TDBEdit; + DBEdit3: TDBEdit; + gb_desc2: TGroupBox; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + DBEdit4: TDBEdit; + DBEdit5: TDBEdit; + DBEdit6: TDBEdit; + gb_desc3: TGroupBox; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + DBEdit7: TDBEdit; + DBEdit8: TDBEdit; + DBEdit9: TDBEdit; + gb_multa: TGroupBox; + Label15: TLabel; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + DBEdit10: TDBEdit; + DBEdit11: TDBEdit; + DBEdit12: TDBEdit; + rdbdt_entrada: TrDBDateTimePicker; + gb_mora: TGroupBox; + Label19: TLabel; + Label20: TLabel; + Label21: TLabel; + Label22: TLabel; + DBEdit13: TDBEdit; + DBEdit14: TDBEdit; + DBEdit15: TDBEdit; + rDBDateTimePicker1: TrDBDateTimePicker; + tsGeraBoleto: TTabSheet; + pum_download: TPopupMenu; + mnuDownload: TMenuItem; + SaveDialog: TSaveDialog; + IdDecoderMIME: TIdDecoderMIME; + pcGeraBoletos: TPageControl; + tsGeraUm: TTabSheet; + tsGeraAuto: TTabSheet; + zroqryBolUnico: TZReadOnlyQuery; + dtsBolUnico: TDataSource; + MainMenu1: TMainMenu; + mnuCadastro: TMenuItem; + mnhGrupoBoletos: TMenuItem; + zroqryBolUnicoID_DEVEDOR: TIntegerField; + zroqryBolUnicoTX_NOME: TWideStringField; + zroqryBolUnicoTX_DOCUMENTO: TWideStringField; + zroqryBolUnicoTX_PRODUTO: TWideStringField; + zroqryBolUnicoVL_TITULO: TFloatField; + zroqryBolUnicoVL_CORRIGIDO: TFloatField; + zroqryBolUnicoDT_VENCIMENTO: TDateTimeField; + zroqryBolUnicoID_EMPRESA: TIntegerField; + zroqryEmails: TZReadOnlyQuery; + zroqryEmailsTX_EMAIL: TWideStringField; + dtsEmails: TDataSource; + zroqryEmailsID_EMAIL: TIntegerField; + zroqryEmailsID_DEVEDOR: TIntegerField; + zroqryEmailsID_ULTIMO_USUARIO: TIntegerField; + zroqryEmailsDT_HORA_ULTIMA_ATT: TDateTimeField; + zroqryTelefones: TZReadOnlyQuery; + dtsTelefones: TDataSource; + zroqryTelefonesNR_DDD: TWideStringField; + zroqryTelefonesNR_NUMERO: TWideStringField; + zroqryTelefonesTP_ATIVO: TWideStringField; + zroqryTelefonesTP_TIPOTEL: TWideStringField; + zroqryTelefonesTX_DESC: TWideStringField; + zroqryTelefonesTP_SMS: TWideStringField; + zroqryTelefonesID_TELEFONE: TIntegerField; + zroqryTelefonesID_DEVEDOR: TIntegerField; + zroqryTelefonesTX_OBS: TWideMemoField; + zroqryTelefonesID_ULTIMO_USUARIO: TIntegerField; + zroqryTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField; + zroqryEnderecos: TZReadOnlyQuery; + dtsEnderecos: TDataSource; + zroqryEnderecosID_ENDERECO: TIntegerField; + zroqryEnderecosID_DEVEDOR: TIntegerField; + zroqryEnderecosTP_ENDERECO: TWideStringField; + zroqryEnderecosTP_ATIVO: TWideStringField; + zroqryEnderecosTX_LOGRADOURO: TWideStringField; + zroqryEnderecosTX_BAIRRO: TWideStringField; + zroqryEnderecosID_CIDADE: TIntegerField; + zroqryEnderecosID_ESTADO: TIntegerField; + zroqryEnderecosTX_CEP: TWideStringField; + zroqryEnderecosTX_COMPLEMENTO: TWideStringField; + zroqryEnderecosNR_NUMERO: TFloatField; + zroqryEnderecosTP_REFERENCIA: TWideStringField; + zroqryEnderecosID_HIGIENIZADORA: TIntegerField; + zroqryEnderecosTP_CONFIRMADO: TWideStringField; + zroqryEnderecosID_ULTIMO_USUARIO: TIntegerField; + pum_incldel: TPopupMenu; + mnuIncluir: TMenuItem; + mnuRemover: TMenuItem; + N1: TMenuItem; + pcPesquisaGerar: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + dbgrd_bolunico: TDBGrid; + dbgrd_emailsbolunico: TDBGrid; + DBGrid1: TDBGrid; + DBGrid2: TDBGrid; + GroupBox1: TGroupBox; + Label23: TLabel; + Label24: TLabel; + Label25: TLabel; + SpeedButton2: TSpeedButton; + dblucb_filtrobolunico: TDBLookupComboBox; + dtp_vencinbolunico: TDateTimePicker; + dtp_vencoutbolunico: TDateTimePicker; + edt_bairrobolunico: TEdit; + edt_cepbolunico: TEdit; + edt_cidadebolunico: TEdit; + edt_compbolunico: TEdit; + edt_dddbolunico: TEdit; + edt_docbolunico: TEdit; + edt_emailbolunico: TEdit; + edt_endbolunico: TEdit; + edt_endnumbolunico: TEdit; + edt_estadobolunico: TEdit; + edt_nomebolunico: TEdit; + edt_telbolunico: TEdit; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Label29: TLabel; + Label30: TLabel; + Label31: TLabel; + Label32: TLabel; + lbl_dddbolunico: TLabel; + lbl_docbolunico: TLabel; + lbl_emailbolunico: TLabel; + lbl_nomebolunico: TLabel; + lbl_telbolunico: TLabel; + dt_vencbolunico: TDateTimePicker; + Panel1: TPanel; + Label33: TLabel; + GroupBox2: TGroupBox; + cb_desc1: TComboBox; + Label34: TLabel; + edt_taxa1bol: TEdit; + Label35: TLabel; + edt_val1bol: TEdit; + Label36: TLabel; + dtp_desc1: TDateTimePicker; + GroupBox3: TGroupBox; + Label37: TLabel; + Label38: TLabel; + Label39: TLabel; + cb_desc2: TComboBox; + edt_taxa2bol: TEdit; + edt_val2bol: TEdit; + dtp_desc2: TDateTimePicker; + GroupBox4: TGroupBox; + Label40: TLabel; + Label41: TLabel; + Label42: TLabel; + cb_desc3: TComboBox; + edt_taxa3bol: TEdit; + edt_val3bol: TEdit; + dtp_desc3: TDateTimePicker; + Label43: TLabel; + edt_valorboleto: TEdit; + Label44: TLabel; + edt_abatimentobol: TEdit; + GroupBox5: TGroupBox; + Label45: TLabel; + Label46: TLabel; + cb_multabol: TComboBox; + edt_taxamultabol: TEdit; + edt_vlmultabol: TEdit; + GroupBox6: TGroupBox; + Label47: TLabel; + Label48: TLabel; + cb_morabol: TComboBox; + edt_taxamorabol: TEdit; + edt_vlmorabol: TEdit; + GroupBox7: TGroupBox; + Label49: TLabel; + edt_linha1bol: TEdit; + edt_linha2bol: TEdit; + edt_linha3bol: TEdit; + edt_linha4bol: TEdit; + Label50: TLabel; + Label51: TLabel; + Label52: TLabel; + btn_gerarbolunico: TButton; + Label53: TLabel; + Label54: TLabel; + cb_dtlimitebol: TComboBox; + cb_agendabol: TComboBox; + zroqryBolUnicoID_TITULO: TIntegerField; + zroqryEnderecosTX_ESTADO: TStringField; + zroqryEnderecosTX_CIDADE: TStringField; + Label55: TLabel; + dtp_multa: TDateTimePicker; + Label56: TLabel; + dtp_mora: TDateTimePicker; + Label57: TLabel; + edt_linha5bol: TEdit; + N2: TMenuItem; + mnuBaixarInter: TMenuItem; + mnuAcertos: TMenuItem; + mnuProtestado: TMenuItem; + mnuDevolucao: TMenuItem; + mnuProtestoAposBaixa: TMenuItem; + mnuPagoDireto: TMenuItem; + mnuSubstituicao: TMenuItem; + mnuFalta: TMenuItem; + mnuAPedidoCliente: TMenuItem; + mnuBaixarCob: TMenuItem; + rotblRepasseFase: TZReadOnlyQuery; + rotblRepasseFaseID_FASE: TIntegerField; + rotblRepasseFasePR_PRINCIPAL: TFloatField; + rotblRepasseFasePR_JUROS: TFloatField; + rotblRepasseFasePR_MULTA: TFloatField; + rotblRepasseFasePR_ENCARGOS: TFloatField; + rotblRepasseFasePR_CORRIGIDO: TFloatField; + rotblRepasseFaseMIN_ATRASO: TIntegerField; + rotblRepasseFaseMAX_ATRASO: TIntegerField; + rotblRepasseFaseID_REPASSE: TIntegerField; + rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField; + rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField; + procedure FormCreate(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure dtsBoletosDataChange(Sender: TObject; Field: TField); + procedure dbgrd_boletosDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure mnuDownloadClick(Sender: TObject); + procedure dbgrd_boletosMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure mnhGrupoBoletosClick(Sender: TObject); + procedure SpeedButton2Click(Sender: TObject); + procedure dbgrd_bolunicoMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure mnuIncluirClick(Sender: TObject); + procedure edt_valorboletoKeyPress(Sender: TObject; var Key: Char); + procedure edt_abatimentobolKeyPress(Sender: TObject; var Key: Char); + procedure btn_gerarbolunicoClick(Sender: TObject); + procedure mnuAcertosClick(Sender: TObject); + procedure mnuProtestadoClick(Sender: TObject); + procedure mnuDevolucaoClick(Sender: TObject); + procedure mnuProtestoAposBaixaClick(Sender: TObject); + procedure mnuPagoDiretoClick(Sender: TObject); + procedure mnuSubstituicaoClick(Sender: TObject); + procedure mnuFaltaClick(Sender: TObject); + procedure mnuAPedidoClienteClick(Sender: TObject); + procedure mnuBaixarCobClick(Sender: TObject); + private + opcoes_situacao, opcoes_datatipo, opcoes_ordem: TStringList; + JSONBoletoUnico: TJSONObject; + vl_bol: currency; + function RequestJSON(URL: String; Body: TStringStream = nil): TJSONObject; + function RequestBase64(URL: String; Body: TStringStream = nil): string; + function SendJSON(URL: String; JSON: TJSONObject): string; + function ValidadorPagador: TStringArray; + function ValidadorDescontos: TStringArray; + function ValidadorMultaMora: TStringArray; + procedure JsonToDataset2(aDataset: TDataSet; aJSON: string); + { Private declarations } + public + { Public declarations } + end; + +var + frmCentralBoletos: TfrmCentralBoletos; + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmGrupoBoletoEmpresas; + +var + jsonBoletoBase: string = '{' + ' "pagador":{' + ' "cnpjCpf":"",' + + ' "nome":"",' + ' "cep":"",' + ' "endereco":"",' + + ' "numero":"",' + ' "complemento":"",' + ' "bairro":"",' + + ' "cidade":"",' + ' "uf":"",' + ' "email":"",' + + ' "ddd":"",' + ' "telefone":"",' + ' "tipoPessoa":""' + + ' },' + ' "dataEmissao":"",' + ' "seuNumero":"",' + + ' "dataLimite":"",' + ' "dataVencimento":"",' + ' "mensagem":{' + + ' "linha1":"",' + ' "linha2":"",' + ' "linha3":"",' + + ' "linha4":"",' + ' "linha5":""' + ' },' + ' "desconto1":{' + + ' "codigoDesconto":"",' + ' "taxa":0,' + ' "valor":0,' + + ' "data":""' + ' },' + ' "desconto2":{' + + ' "codigoDesconto":"",' + ' "taxa":0,' + ' "valor":0,' + + ' "data":""' + ' },' + ' "desconto3":{' + + ' "codigoDesconto":"",' + ' "taxa":0,' + ' "valor":0,' + + ' "data":""' + ' },' + ' "valorNominal":0,' + + ' "valorAbatimento":0,' + ' "multa":{' + ' "codigoMulta":"",' + + ' "valor":0,' + ' "taxa":0,' + ' "data":""' + ' },' + + ' "mora":{' + ' "codigoMora":"",' + ' "valor":0,' + + ' "taxa":0,' + ' "data":""' + ' },' + + ' "cnpjCPFBeneficiario":"",' + ' "numDiasAgenda":""' + '}'; + +procedure TfrmCentralBoletos.btn_gerarbolunicoClick(Sender: TObject); +var + pagador, mensagem, desc1, desc2, desc3, multa, mora, resposta: TJSONObject; + JSONPair: TJSONPair; + i: Integer; + resp: string; +begin + inherited; + + if MessageDlg + ('Por favor verifique se as datas para Multa e Mora esto preenchidas corretamente.' + + ' Esses valor no so calculados automaticamente.' + ' Deseja continuar?', + mtWarning, [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; + + if ValidadorPagador[0] = 'False' then + begin + MessageDlg(ValidadorPagador[1], mtError, [mbOK], 0); + abort; + end; + if ValidadorDescontos[0] = 'False' then + begin + MessageDlg(ValidadorDescontos[1], mtError, [mbOK], 0); + abort; + end; + if ValidadorMultaMora[0] = 'False' then + begin + MessageDlg(ValidadorMultaMora[1], mtError, [mbOK], 0); + abort; + end; + + with dtmSystem do + begin + tblBoletos.Append; + tblBoletosNR_NOSSO_NUMERO.AsString := + inttostr(dtmSystem.seqBoletos.GetCurrentValue + 1).PadLeft(15, '0'); + tblBoletosDT_EMISSAO.AsDateTime := Date; + tblBoletosVL_NOMINAL.AsCurrency := StrToCurr(edt_valorboleto.Text); + if edt_abatimentobol.Text <> '' then + begin + tblBoletosVL_ABATIMENTO.AsCurrency := StrToCurr(edt_abatimentobol.Text); + end + else + begin + tblBoletosVL_ABATIMENTO.AsCurrency := 0; + end; + tblBoletosDT_VENCIMENTO.AsDateTime := dt_vencbolunico.Date; + tblBoletosID_GRUPO.AsInteger := tblGrupoBoletosID_GRUPO.AsInteger; + tblBoletos.Post; + for i := 0 to dbgrd_bolunico.SelectedRows.Count - 1 do + begin + zroqryBolUnico.GotoBookmark + (pointer(dbgrd_bolunico.SelectedRows.Items[i])); + tblBoletoTitulos.Append; + tblBoletoTitulosID_DEVEDOR.AsInteger := + zroqryBolUnicoID_DEVEDOR.AsInteger; + tblBoletoTitulosID_TITULO.AsInteger := zroqryBolUnicoID_TITULO.AsInteger; + tblBoletoTitulosID_BOLETO.AsInteger := tblBoletosID.AsInteger; + tblBoletoTitulos.Post; + end; + end; + + try + JSONBoletoUnico := TJSONObject.ParseJSONValue(jsonBoletoBase) + as TJSONObject; + except + + end; + + JSONPair := JSONBoletoUnico.Get('seuNumero'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create + (dtmSystem.tblBoletosNR_NOSSO_NUMERO.AsString); + + JSONPair := JSONBoletoUnico.Get('cnpjCPFBeneficiario'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create + (StringReplace(StringReplace(StringReplace(dtmSystem.tblEmpresaTX_CNPJ. + AsString, '.', '', [rfReplaceAll]), '-', '', [rfReplaceAll]), '/', '', + [rfReplaceAll])); + + JSONPair := JSONBoletoUnico.Get('valorNominal'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create + (dtmSystem.tblBoletosVL_NOMINAL.AsString); + + JSONPair := JSONBoletoUnico.Get('valorAbatimento'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create + (dtmSystem.tblBoletosVL_ABATIMENTO.AsString); + + JSONPair := JSONBoletoUnico.Get('dataEmissao'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(FormatDateTime('yyyy-mm-dd', Date)); + + JSONPair := JSONBoletoUnico.Get('dataVencimento'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(FormatDateTime('yyyy-mm-dd', + dtmSystem.tblBoletosDT_VENCIMENTO.AsDateTime)); + + JSONPair := JSONBoletoUnico.Get('numDiasAgenda'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(cb_agendabol.Text); + + JSONPair := JSONBoletoUnico.Get('dataLimite'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(cb_dtlimitebol.Text); + + pagador := JSONBoletoUnico.Values['pagador'] as TJSONObject; + JSONPair := pagador.Get('cnpjCpf'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_docbolunico.Text); + + JSONPair := pagador.Get('tipoPessoa'); + JSONPair.JsonValue.Free; + if length(edt_docbolunico.Text) = 11 then + begin + JSONPair.JsonValue := TJSONString.create('FISICA'); + end + else + begin + JSONPair.JsonValue := TJSONString.create('JURIDICA'); + end; + + JSONPair := pagador.Get('nome'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_nomebolunico.Text); + + JSONPair := pagador.Get('endereco'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_endbolunico.Text); + + JSONPair := pagador.Get('numero'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_endnumbolunico.Text); + + JSONPair := pagador.Get('complemento'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_compbolunico.Text); + + JSONPair := pagador.Get('bairro'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_bairrobolunico.Text); + + JSONPair := pagador.Get('cidade'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_cidadebolunico.Text); + + JSONPair := pagador.Get('uf'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_estadobolunico.Text); + + JSONPair := pagador.Get('cep'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_cepbolunico.Text); + + JSONPair := pagador.Get('email'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_emailbolunico.Text); + + JSONPair := pagador.Get('ddd'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_dddbolunico.Text); + + JSONPair := pagador.Get('telefone'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_telbolunico.Text); + + mensagem := JSONBoletoUnico.Values['mensagem'] as TJSONObject; + + JSONPair := mensagem.Get('linha1'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_linha1bol.Text); + + JSONPair := mensagem.Get('linha2'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_linha2bol.Text); + + JSONPair := mensagem.Get('linha3'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_linha3bol.Text); + + JSONPair := mensagem.Get('linha4'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_linha4bol.Text); + + JSONPair := mensagem.Get('linha5'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(edt_linha5bol.Text); + + desc1 := JSONBoletoUnico.Values['desconto1'] as TJSONObject; + + JSONPair := desc1.Get('codigoDesconto'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(cb_desc1.Text); + + JSONPair := desc1.Get('data'); + JSONPair.JsonValue.Free; + if cb_desc1.ItemIndex = 0 then + begin + JSONPair.JsonValue := TJSONString.create(''); + end + else + begin + JSONPair.JsonValue := TJSONString.create(FormatDateTime('yyyy-mm-dd', + dtp_desc1.Date)); + end; + + JSONPair := desc1.Get('taxa'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_taxa1bol.Text); + + JSONPair := desc1.Get('valor'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_val1bol.Text); + + desc2 := JSONBoletoUnico.Values['desconto2'] as TJSONObject; + + JSONPair := desc2.Get('codigoDesconto'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(cb_desc2.Text); + + JSONPair := desc2.Get('data'); + JSONPair.JsonValue.Free; + if cb_desc2.ItemIndex = 0 then + begin + JSONPair.JsonValue := TJSONString.create(''); + end + else + begin + JSONPair.JsonValue := TJSONString.create(FormatDateTime('yyyy-mm-dd', + dtp_desc2.Date)); + end; + + JSONPair := desc2.Get('taxa'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_taxa2bol.Text); + + JSONPair := desc2.Get('valor'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_val2bol.Text); + + desc3 := JSONBoletoUnico.Values['desconto3'] as TJSONObject; + + JSONPair := desc3.Get('codigoDesconto'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(cb_desc3.Text); + + JSONPair := desc3.Get('data'); + JSONPair.JsonValue.Free; + if cb_desc3.ItemIndex = 0 then + begin + JSONPair.JsonValue := TJSONString.create(''); + end + else + begin + JSONPair.JsonValue := TJSONString.create(FormatDateTime('yyyy-mm-dd', + dtp_desc3.Date)); + end; + + JSONPair := desc3.Get('taxa'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_taxa3bol.Text); + + JSONPair := desc3.Get('valor'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_val3bol.Text); + + multa := JSONBoletoUnico.Values['multa'] as TJSONObject; + + JSONPair := multa.Get('codigoMulta'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(cb_multabol.Text); + + JSONPair := multa.Get('data'); + JSONPair.JsonValue.Free; + if cb_multabol.ItemIndex = 0 then + begin + JSONPair.JsonValue := TJSONString.create(''); + end + else + begin + JSONPair.JsonValue := TJSONString.create(FormatDateTime('yyyy-mm-dd', + dtp_multa.Date)); + end; + + JSONPair := multa.Get('taxa'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_taxamultabol.Text); + + JSONPair := multa.Get('valor'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_vlmultabol.Text); + + mora := JSONBoletoUnico.Values['mora'] as TJSONObject; + + JSONPair := mora.Get('codigoMora'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONString.create(cb_morabol.Text); + + JSONPair := mora.Get('data'); + JSONPair.JsonValue.Free; + if cb_morabol.ItemIndex = 2 then + begin + JSONPair.JsonValue := TJSONString.create(''); + end + else + begin + JSONPair.JsonValue := TJSONString.create(FormatDateTime('yyyy-mm-dd', + dtp_mora.Date)); + end; + + JSONPair := mora.Get('taxa'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_taxamorabol.Text); + + JSONPair := mora.Get('valor'); + JSONPair.JsonValue.Free; + JSONPair.JsonValue := TJSONNumber.create(edt_vlmorabol.Text); + + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos', + JSONBoletoUnico); + + if resp = 'Error' then + begin + while dtmSystem.tblBoletoTitulos.Locate('ID_BOLETO', + dtmSystem.tblBoletosID.AsInteger, []) do + begin + dtmSystem.tblBoletoTitulos.Delete; + end; + dtmSystem.tblBoletos.Delete; + dtmSystem.seqBoletos.BlockSize := -1; + dtmSystem.seqBoletos.GetNextValue; + dtmSystem.seqBoletos.BlockSize := 1; + end + else + begin + resposta := TJSONObject.ParseJSONValue(resp) as TJSONObject; + + dtmSystem.tblBoletos.Edit; + dtmSystem.tblBoletosCD_COD_BARRAS.AsString := + resposta.Values['codigoBarras'].Value; + dtmSystem.tblBoletosCD_COD_BARRAS.AsString := + resposta.Values['linhaDigitavel'].Value; + dtmSystem.tblBoletos.Post; + Showmessage('Boleto de N ' + dtmSystem.tblBoletosNR_NOSSO_NUMERO.AsString + + ' gerado com sucesso!'#13#10 + + ' Aguarde aproximadamente por 5 minutos para poder consult-lo.'); + end; + +end; + +procedure TfrmCentralBoletos.dbgrd_boletosDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(tblBoletossituacao.AsString, ['BAIXADO', 'PAGO']) of + 0: + dbgrd_boletos.Canvas.Brush.Color := $7AA0FF; + 1: + dbgrd_boletos.Canvas.Brush.Color := $FFF8F0; + end; + dbgrd_boletos.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmCentralBoletos.dbgrd_boletosMouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + Pt: TPoint; + Coord: TGridCoord; +begin + inherited; + Pt := dbgrd_boletos.ScreenToClient(Mouse.CursorPos); + Coord := dbgrd_boletos.MouseCoord(Pt.X, Pt.Y); + if (Coord.Y > 0) and not(tblBoletos.IsEmpty) and (Button = mbRight) then + begin + pum_download.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); + end; +end; + +procedure TfrmCentralBoletos.dbgrd_bolunicoMouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +var + Pt: TPoint; + Coord: TGridCoord; +begin + inherited; + Pt := dbgrd_bolunico.ScreenToClient(Mouse.CursorPos); + Coord := dbgrd_bolunico.MouseCoord(Pt.X, Pt.Y); + if (Coord.Y > 0) and not(zroqryBolUnico.IsEmpty) and (Button = mbRight) then + begin + pum_incldel.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); + end; +end; + +procedure TfrmCentralBoletos.dtsBoletosDataChange(Sender: TObject; + Field: TField); +begin + if not tblBoletos.IsEmpty then + begin + if tblBoletosdesconto1.AsString <> '' then + begin + tblDesc1.ReadOnly := False; + JsonToDataset2(tblDesc1, '[' + TJSONObject.ParseJSONValue + (tblBoletosdesconto1.AsString).ToString + ']'); + tblDesc1.ReadOnly := True; + end; + if tblBoletosdesconto2.AsString <> '' then + begin + tblDesc2.ReadOnly := False; + JsonToDataset2(tblDesc2, '[' + TJSONObject.ParseJSONValue + (tblBoletosdesconto2.AsString).ToString + ']'); + tblDesc2.ReadOnly := True; + end; + if tblBoletosdesconto3.AsString <> '' then + begin + tblDesc3.ReadOnly := False; + JsonToDataset2(tblDesc3, '[' + TJSONObject.ParseJSONValue + (tblBoletosdesconto3.AsString).ToString + ']'); + tblDesc3.ReadOnly := True; + end; + if tblBoletosmulta.AsString <> '' then + begin + tblMulta.ReadOnly := False; + JsonToDataset2(tblMulta, '[' + TJSONObject.ParseJSONValue + (tblBoletosmulta.AsString).ToString + ']'); + tblMulta.ReadOnly := True; + end; + if tblBoletosmora.AsString <> '' then + begin + tblMora.ReadOnly := False; + JsonToDataset2(tblMora, '[' + TJSONObject.ParseJSONValue + (tblBoletosmora.AsString).ToString + ']'); + tblMora.ReadOnly := True; + end; + end; +end; + +procedure TfrmCentralBoletos.edt_abatimentobolKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_abatimentobol.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmCentralBoletos.edt_valorboletoKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_valorboleto.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmCentralBoletos.FormCreate(Sender: TObject); +begin + inherited; + vl_bol := 0; + opcoes_situacao := TStringList.create; + opcoes_situacao.Add('TODOS'); + opcoes_situacao.Add('VENCIDOSAVENCER'); + opcoes_situacao.Add('EXPIRADOS'); + opcoes_situacao.Add('PAGOS'); + opcoes_situacao.Add('TODOSBAIXADOS'); + + opcoes_datatipo := TStringList.create; + opcoes_datatipo.Add('VENCIMENTO'); + opcoes_datatipo.Add('EMISSAO'); + opcoes_datatipo.Add('SITUACAO'); + + opcoes_ordem := TStringList.create; + opcoes_ordem.Add('NOSSONUMERO'); + opcoes_ordem.Add('SEUNUMERO'); + opcoes_ordem.Add('DATAVENCIMENTO_ASC'); + opcoes_ordem.Add('DATAVENCIMENTO_DSC'); + opcoes_ordem.Add('NOMESACADO'); + opcoes_ordem.Add('VALOR_ASC'); + opcoes_ordem.Add('VALOR_DSC'); + opcoes_ordem.Add('STATUS_ASC'); + opcoes_ordem.Add('STATUS_DSC'); + + dt_inicio.Date := StartOfTheMonth(Date); + dt_fim.Date := EndOfTheMonth(Date); + dt_vencbolunico.Date := Date; + dtp_vencinbolunico.Date := StartOfTheMonth(Date); + dtp_vencoutbolunico.Date := EndOfTheMonth(Date); + + IdSSLHandler.SSLOptions.CertFile := dtmSystem.public_key; + IdSSLHandler.SSLOptions.KeyFile := dtmSystem.private_key; + IdSSLHandler.SSLOptions.RootCertFile := dtmSystem.certificate_key; + with dtmSystem do + begin + if not tblEstados.Active then + begin + tblEstados.Open; + end + else + begin + tblEstados.Refresh; + end; + if not tblCidades.Active then + begin + tblCidades.Open; + end + else + begin + tblCidades.Refresh; + end; + if not tblCidadesConsulta.Active then + begin + tblCidadesConsulta.Open; + end + else + begin + tblCidadesConsulta.Refresh; + end; + if not tblGrupoBoletos.Active then + begin + tblGrupoBoletos.Open; + end; + tblGrupoBoletos.First; + if not tblBoletos.Active then + begin + tblBoletos.Open; + end; + if not tblBoletoTitulos.Active then + begin + tblBoletoTitulos.Open; + end; + dblucb_filtrobolunico.KeyValue := tblGrupoBoletosID_GRUPO.AsInteger; + end; + zroqryBolUnico.Open; + zroqryEmails.Open; + zroqryTelefones.Open; + zroqryEnderecos.Open; + pcGeraBoletos.TabIndex := 0; + pcBoletos.TabIndex := 0; + pcPesquisaGerar.TabIndex := 0; + +end; + +procedure TfrmCentralBoletos.JsonToDataset2(aDataset: TDataSet; aJSON: string); +var + JObj: TJSONArray; + vConv: TCustomJSONDataSetAdapter; +begin + if (aJSON = EmptyStr) then + begin + Exit; + end; + JObj := TJSONObject.ParseJSONValue(aJSON) as TJSONArray; + vConv := TCustomJSONDataSetAdapter.create(Nil); + try + vConv.DataSet := aDataset; + vConv.UpdateDataSet(JObj); + finally + vConv.Free; + JObj.Free; + end; +end; + +procedure TfrmCentralBoletos.mnhGrupoBoletosClick(Sender: TObject); +begin + inherited; + frmGrupoBoletoEmpresas := TfrmGrupoBoletoEmpresas.create(self); + frmGrupoBoletoEmpresas.ShowModal; +end; + +procedure TfrmCentralBoletos.mnuAcertosClick(Sender: TObject); +var + resp: string; +begin + inherited; + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/baixas', + TJSONObject.ParseJSONValue('{"codigoBaixa": "ACERTOS"}') as TJSONObject); + if resp <> 'Error' then + begin + Showmessage('Boleto N ' + tblBoletosseuNumero.AsString + + ' baixado com sucesso!'); + end; +end; + +procedure TfrmCentralBoletos.mnuAPedidoClienteClick(Sender: TObject); +var + resp: string; +begin + inherited; + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/baixas', + TJSONObject.ParseJSONValue('{"codigoBaixa": "APEDIDODOCLIENTE"}') + as TJSONObject); + if resp <> 'Error' then + begin + Showmessage('Boleto N ' + tblBoletosseuNumero.AsString + + ' baixado com sucesso!'); + end; +end; + +procedure TfrmCentralBoletos.mnuBaixarCobClick(Sender: TObject); +var + total_recebido, nominal_boleto, recebido_rateio, help_pr, help_j, help_m, + help_cor: currency; + prct_rateio: double; + atraso, atraso_repasse: Integer; + mes, ano: string; +begin + inherited; + if not dtmSystem.tblBoletos.Locate('NR_NOSSO_NUMERO', + tblBoletosseuNumero.AsString, []) then + begin + Showmessage('No foi possvel encontrar o boleto desejado no sistema.'); + abort; + end + else + begin + with dtmSystem do + begin + + total_recebido := tblBoletosvalorTotalRecebimento.AsCurrency; + nominal_boleto := tblBoletosvalorNominal.AsCurrency; + + tblBoletoTitulos.First; + while not tblBoletoTitulos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblBoletoTitulosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblBoletoTitulosID_TITULO.AsInteger, []); + prct_rateio := ((tblTitulosVL_TITULO.AsCurrency * 100) / + nominal_boleto) / 100; + recebido_rateio := (prct_rateio * total_recebido); + + tblTitulos.Edit; + tblTitulosVL_CORRIGIDO.AsCurrency := recebido_rateio; + if recebido_rateio < tblTitulosVL_TITULO.AsCurrency then + begin + tblTitulosVL_DESC_PRINCIPAL.AsCurrency := + tblTitulosVL_TITULO.AsCurrency - recebido_rateio; + end; + + if tblMultacodigo.AsString <> 'NAOTEMMULTA' then + begin + atraso := DaysBetween(tblBoletosdataPagtoBaixa.AsDateTime, + IncDay(tblMultadata.AsDateTime, -1)); + if atraso > 0 then + begin + if tblMultacodigo.AsString = 'VALORFIXO' then + begin + tblTitulosVL_MULTA.AsCurrency := + (tblMultavalor.AsCurrency * prct_rateio); + end + else + begin + tblTitulosVL_MULTA.AsCurrency := + ((tblTitulosVL_TITULO.AsCurrency * tblMultataxa.AsFloat) / 100) + * prct_rateio; + end; + end; + end; + + if tblMoracodigo.AsString <> 'ISENTO' then + begin + atraso := DaysBetween(tblBoletosdataPagtoBaixa.AsDateTime, + IncDay(tblMoradata.AsDateTime, -1)); + if atraso > 0 then + begin + if tblMoracodigo.AsString = 'VALORDIA' then + begin + tblTitulosVL_JUROS.AsCurrency := + (tblMoravalor.AsCurrency * atraso) * prct_rateio; + end + else + begin + tblTitulosVL_MULTA.AsCurrency := + ((tblTitulosVL_TITULO.AsCurrency * ((tblMultataxa.AsFloat / 30) + / 100)) * atraso) * prct_rateio; + end; + end; + end; + + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblBoletosdataPagtoBaixa.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblBoletosdataPagtoBaixa.AsDateTime), 1, 4); + + atraso_repasse := DaysBetween(tblBoletosdataPagtoBaixa.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + + tblCHGEmpresa.Locate('ID_EMPRESA', tblTitulosID_EMPRESA.AsInteger, []); + + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', VarArrayOf([mes, ano]), []); + + rotblRepasseFase.Close; + rotblRepasseFase.SQL.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + ' and min_atraso <= ' + + inttostr(atraso_repasse) + ' and ' + inttostr(atraso_repasse) + + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulosVL_REPASSE_PRIN.AsCurrency := + (tblTitulosVL_TITULO.AsCurrency - + tblTitulosVL_DESC_PRINCIPAL.AsCurrency) * help_pr; + tblTitulosVL_REPASSE_JUROS.AsCurrency := + tblTitulosVL_JUROS.AsCurrency * help_j; + tblTitulosVL_REPASSE_MULTA.AsCurrency := + tblTitulosVL_MULTA.AsCurrency * help_m; + tblTitulosVL_REPASSE_ENCARGOS.AsCurrency := 0; + tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency := + tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + + tblTitulosTP_SITUACAO.AsString := 'QC'; + tblTitulosTP_PRESTACAO.AsString := 'N'; + tblTitulos.Post; + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := tblTitulosID_DEVEDOR.AsInteger; + tblHistoricoID_COBRADOR.AsInteger := id_usuario; + tblHistoricoDT_CONTATO.AsDateTime := Now; + tblHistoricoTL_MEMO.AsString := 'Ttulo ' + + tblTitulosTX_PRODUTO.AsString + ' foi baixado pelo boleto de n ' + + tblBoletosseuNumero.AsString + '.'; + tblHistorico.Post; + tblBoletoTitulos.Next; + end; + Showmessage('Ttulos baixados com sucesso!'); + end; + end; + +end; + +procedure TfrmCentralBoletos.mnuDevolucaoClick(Sender: TObject); +var + resp: string; +begin + inherited; + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/baixas', + TJSONObject.ParseJSONValue('{"codigoBaixa": "DEVOLUCAO"}') as TJSONObject); + if resp <> 'Error' then + begin + Showmessage('Boleto N ' + tblBoletosseuNumero.AsString + + ' baixado com sucesso!'); + end; +end; + +procedure TfrmCentralBoletos.mnuDownloadClick(Sender: TObject); +var + Base64: string; + fileStream: TFileStream; +begin + inherited; + IdHTTP.Request.CustomHeaders.Clear; + IdHTTP.Request.CustomHeaders.Add('Content-Type: application/json'); + IdHTTP.Request.CustomHeaders.Add('x-inter-conta-corrente: ' + + dtmSystem.conta_corrente); + + try + Base64 := RequestBase64 + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/pdf'); + except + on E: EIdHTTPProtocolException do + Showmessage(IdHTTP.ResponseText + #13#10 + E.ErrorMessage) + else + showexception(exceptobject, exceptaddr); + end; + + if IdHTTP.ResponseCode <> 200 then + begin + Showmessage('Transao no pode ser inicada (' + + inttostr(IdHTTP.ResponseCode) + ').'); + end + else + begin + with SaveDialog do + begin + Execute; + try + fileStream := TFileStream.create(FileName, fmCreate); + IdDecoderMIME.DecodeStream(Base64, fileStream); + Screen.Cursor := crHourGlass; + finally + fileStream.Free; + Screen.Cursor := crDefault; + FileName := ''; + end; + end; + end; +end; + +procedure TfrmCentralBoletos.mnuFaltaClick(Sender: TObject); +var + resp: string; +begin + inherited; + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/baixas', + TJSONObject.ParseJSONValue('{"codigoBaixa": "FALTADESOLUCAO"}') + as TJSONObject); + if resp <> 'Error' then + begin + Showmessage('Boleto N ' + tblBoletosseuNumero.AsString + + ' baixado com sucesso!'); + end; +end; + +procedure TfrmCentralBoletos.mnuIncluirClick(Sender: TObject); +var + i: Integer; +begin + dtmSystem.tblGrupoBoletos.Refresh; + zroqryBolUnico.GotoBookmark(pointer(dbgrd_bolunico.SelectedRows.Items[0])); + edt_nomebolunico.Text := zroqryBolUnicoTX_NOME.AsString; + edt_docbolunico.Text := + StringReplace + (StringReplace(StringReplace(zroqryBolUnicoTX_DOCUMENTO.AsString, '.', '', + [rfReplaceAll]), '-', '', [rfReplaceAll]), '/', '', [rfReplaceAll]); + // edt_docbolunico.Text := zroqryBolUnicoTX_DOCUMENTO.AsString; + if not zroqryEmails.IsEmpty then + begin + edt_emailbolunico.Text := zroqryEmailsTX_EMAIL.AsString; + end; + if not zroqryTelefones.IsEmpty then + begin + edt_dddbolunico.Text := zroqryTelefonesNR_DDD.AsString; + edt_telbolunico.Text := StringReplace(zroqryTelefonesNR_NUMERO.AsString, + '-', '', [rfReplaceAll]); + end; + if not zroqryEnderecos.IsEmpty then + begin + edt_cepbolunico.Text := + StringReplace(StringReplace(zroqryEnderecosTX_CEP.AsString, '.', '', + [rfReplaceAll]), '-', '', [rfReplaceAll]); + edt_endnumbolunico.Text := zroqryEnderecosNR_NUMERO.AsString; + edt_compbolunico.Text := zroqryEnderecosTX_COMPLEMENTO.AsString; + edt_bairrobolunico.Text := zroqryEnderecosTX_BAIRRO.AsString; + edt_cidadebolunico.Text := zroqryEnderecosTX_CIDADE.AsString; + edt_estadobolunico.Text := zroqryEnderecosTX_ESTADO.AsString; + edt_endbolunico.Text := zroqryEnderecosTX_LOGRADOURO.AsString; + end; + dt_vencbolunico.Date := zroqryBolUnicoDT_VENCIMENTO.AsDateTime; + + cb_desc1.ItemIndex := dtmSystem.tblGrupoBoletosTP_DESC1.AsInteger; + cb_desc2.ItemIndex := dtmSystem.tblGrupoBoletosTP_DESC2.AsInteger; + cb_desc3.ItemIndex := dtmSystem.tblGrupoBoletosTP_DESC3.AsInteger; + cb_multabol.ItemIndex := dtmSystem.tblGrupoBoletosTP_MULTA.AsInteger; + cb_morabol.ItemIndex := dtmSystem.tblGrupoBoletosTP_MORA.AsInteger; + + edt_taxa1bol.Text := dtmSystem.tblGrupoBoletosPR_DESC1.AsString; + edt_taxa2bol.Text := dtmSystem.tblGrupoBoletosPR_DESC2.AsString; + edt_taxa3bol.Text := dtmSystem.tblGrupoBoletosPR_DESC3.AsString; + edt_taxamultabol.Text := dtmSystem.tblGrupoBoletosPR_MULTA.AsString; + edt_taxamorabol.Text := dtmSystem.tblGrupoBoletosPR_MORA.AsString; + + edt_val1bol.Text := dtmSystem.tblGrupoBoletosNR_DESC1.AsString; + edt_val2bol.Text := dtmSystem.tblGrupoBoletosNR_DESC2.AsString; + edt_val3bol.Text := dtmSystem.tblGrupoBoletosNR_DESC3.AsString; + edt_vlmultabol.Text := dtmSystem.tblGrupoBoletosNR_MULTA.AsString; + edt_vlmorabol.Text := dtmSystem.tblGrupoBoletosNR_MORA.AsString; + + dtp_desc1.Date := dtmSystem.tblGrupoBoletosDT_DESC1.AsDateTime; + dtp_desc2.Date := dtmSystem.tblGrupoBoletosDT_DESC2.AsDateTime; + dtp_desc3.Date := dtmSystem.tblGrupoBoletosDT_DESC3.AsDateTime; + + for i := 0 to dbgrd_bolunico.SelectedRows.Count - 1 do + begin + zroqryBolUnico.GotoBookmark(pointer(dbgrd_bolunico.SelectedRows.Items[i])); + vl_bol := vl_bol + zroqryBolUnicoVL_TITULO.AsCurrency; + end; + edt_valorboleto.Text := FormatFloat('0.##', vl_bol); + + pcPesquisaGerar.TabIndex := 1; + + edt_nomebolunico.SetFocus; +end; + +procedure TfrmCentralBoletos.mnuPagoDiretoClick(Sender: TObject); +var + resp: string; +begin + inherited; + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/baixas', + TJSONObject.ParseJSONValue('{"codigoBaixa": "PAGODIRETOAOCLIENTE"}') + as TJSONObject); + if resp <> 'Error' then + begin + Showmessage('Boleto N ' + tblBoletosseuNumero.AsString + + ' baixado com sucesso!'); + end; +end; + +procedure TfrmCentralBoletos.mnuProtestadoClick(Sender: TObject); +var + resp: string; +begin + inherited; + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/baixas', + TJSONObject.ParseJSONValue('{"codigoBaixa": "PROTESTADO"}') as TJSONObject); + if resp <> 'Error' then + begin + Showmessage('Boleto N ' + tblBoletosseuNumero.AsString + + ' baixado com sucesso!'); + end; +end; + +procedure TfrmCentralBoletos.mnuProtestoAposBaixaClick(Sender: TObject); +var + resp: string; +begin + inherited; + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/baixas', + TJSONObject.ParseJSONValue('{"codigoBaixa": "PROTESTOAPOSBAIXA"}') + as TJSONObject); + if resp <> 'Error' then + begin + Showmessage('Boleto N ' + tblBoletosseuNumero.AsString + + ' baixado com sucesso!'); + end; +end; + +procedure TfrmCentralBoletos.mnuSubstituicaoClick(Sender: TObject); +var + resp: string; +begin + inherited; + resp := SendJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos/' + + tblBoletosnossoNumero.AsString + '/baixas', + TJSONObject.ParseJSONValue('{"codigoBaixa": "SUBSTITUICAO"}') + as TJSONObject); + if resp <> 'Error' then + begin + Showmessage('Boleto N ' + tblBoletosseuNumero.AsString + + ' baixado com sucesso!'); + end; +end; + +function TfrmCentralBoletos.RequestBase64(URL: String; + Body: TStringStream): string; +var + Response: TStringStream; +begin + Screen.Cursor := crHourGlass; + Response := TStringStream.create('', TEncoding.utf8); + try + IdHTTP.Get(URL, Response); + except + on E: EIdHTTPProtocolException do + Showmessage('Error on request: '#13#10 + E.ErrorMessage); + end; + + Result := Response.DataString; + Screen.Cursor := crDefault; +end; + +function TfrmCentralBoletos.RequestJSON(URL: String; Body: TStringStream) + : TJSONObject; +var + Response: TStringStream; +begin + Screen.Cursor := crHourGlass; + Response := TStringStream.create('', TEncoding.utf8); + IdHTTP.Request.CustomHeaders.Clear; + IdHTTP.Request.CustomHeaders.Add('Content-Type: application/json'); + IdHTTP.Request.CustomHeaders.Add('x-inter-conta-corrente: ' + + dtmSystem.conta_corrente); + try + IdHTTP.Get(URL, Response); + except + on E: EIdHTTPProtocolException do + Showmessage('Error on request: '#13#10 + E.ErrorMessage); + end; + + Result := TJSONObject.ParseJSONValue(Response.DataString) as TJSONObject; + Screen.Cursor := crDefault; +end; + +function TfrmCentralBoletos.SendJSON(URL: String; JSON: TJSONObject): string; +var + // JSONToReturn: TStringStream; + JSONToSend: TStringStream; + string_return: string; +begin + Screen.Cursor := crHourGlass; + + try + JSONToSend := TStringStream.create(JSON.ToString, TEncoding.utf8); + except + + end; + // JSONToReturn := TStringStream.create(''); + try + IdHTTP.Request.ContentType := 'application/json'; + IdHTTP.Request.Accept := 'application/json'; + IdHTTP.Request.CharSet := 'utf-8'; + IdHTTP.Request.CustomHeaders.Clear; + IdHTTP.Request.CustomHeaders.Add('x-inter-conta-corrente: ' + + dtmSystem.conta_corrente); + + try + string_return := IdHTTP.Post(URL, JSONToSend); + Result := string_return; + except + on E: EIdHTTPProtocolException do + begin + Showmessage('Error on request: '#13#10 + E.ErrorMessage); + Result := 'Error'; + end; + end; + finally + JSONToSend.Free; + end; + Screen.Cursor := crDefault; +end; + +procedure TfrmCentralBoletos.SpeedButton1Click(Sender: TObject); +var + JSON: TJSONObject; + Params: string; +begin + + Params := '?'; + Params := Params + 'filtrarPor=' + opcoes_situacao + [cb_filtrosituacao.ItemIndex] + '&'; + Params := Params + 'dataInicial=' + FormatDateTime('yyyy-mm-dd', + dt_inicio.Date) + '&'; + Params := Params + 'dataFinal=' + FormatDateTime('yyyy-mm-dd', + dt_fim.Date) + '&'; + Params := Params + 'filtrarDataPor=' + opcoes_datatipo + [cb_filtroordem.ItemIndex] + '&'; + // Params := Params + 'ordenarPor=NOMESACADO' + opcoes_ordem + // [cb_filtrotipodata.ItemIndex]; + try + JSON := RequestJSON + ('https://apis.bancointer.com.br/openbanking/v1/certificado/boletos' + + Params); + + except + on E: EIdHTTPProtocolException do + begin + Showmessage(IdHTTP.ResponseText + #13#10 + E.ErrorMessage); + Screen.Cursor := crDefault; + end + else + begin + showexception(exceptobject, exceptaddr); + Screen.Cursor := crDefault; + end; + end; + + if IdHTTP.ResponseCode <> 200 then + begin + Showmessage('Transao no pode ser inicada (' + + inttostr(IdHTTP.ResponseCode) + ').'); + end + else + begin + tblBoletos.ReadOnly := False; + Screen.Cursor := crHourGlass; + JsonToDataset2(tblBoletos, JSON.GetValue('content').ToString); + // if tblBoletos.IsEmpty then + // begin + // dbgrd_boletos.PopupMenu := nil; + // end + // else + // begin + // dbgrd_boletos.PopupMenu := pum_download; + // end; + Screen.Cursor := crDefault; + tblBoletos.ReadOnly := True; + end; +end; + +procedure TfrmCentralBoletos.SpeedButton2Click(Sender: TObject); +var + emp: string; +begin + inherited; + zroqryBolUnico.Close; + emp := dblucb_filtrobolunico.KeyValue; + with zroqryBolUnico.SQL do + begin + Clear; + Add('select'); + Add('d.ID_DEVEDOR,'); + Add('d.TX_NOME,'); + Add('case when d.TP_CLIENTE = ' + QuotedStr('F') + + ' then d.CD_CPF when d.TP_CLIENTE = ' + QuotedStr('F') + + ' then d.CD_CNPJ end as TX_DOCUMENTO,'); + Add('t.TX_PRODUTO,'); + Add('t.VL_TITULO,'); + Add('t.VL_CORRIGIDO,'); + Add('t.DT_VENCIMENTO,'); + Add('t.ID_EMPRESA,'); + Add('t.ID_TITULO'); + Add('from chg_titulos t'); + Add('left join CHG_DEVEDORES d on d.ID_DEVEDOR = t.ID_DEVEDOR'); + Add('where'); + Add('t.ID_EMPRESA in (select ID_EMPRESA from CHG_GRUPO_BOLETO_EMPRESAS where ID_GRUPO_BOLETO = ' + + emp + ')'); + Add('and'); + Add('(t.TP_SITUACAO = ' + QuotedStr('A') + ' or t.TP_SITUACAO = ' + + QuotedStr('AC') + ')'); + Add('and'); + Add('(t.DT_VENCIMENTO >= cast(' + QuotedStr(FormatDateTime('yyyy-mm-dd', + dtp_vencinbolunico.Date)) + ' as date) and t.DT_VENCIMENTO <= cast(' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_vencoutbolunico.Date)) + + ' as date))'); + Add('order by d.TX_NOME, t.TX_PRODUTO'); + end; + zroqryBolUnico.Open; + with dtmSystem do + begin + edt_taxa1bol.Text := dtmSystem.tblGrupoBoletosPR_DESC1.AsString; + edt_val1bol.Text := dtmSystem.tblGrupoBoletosNR_DESC1.AsString; + dtp_desc1.Date := dtmSystem.tblGrupoBoletosDT_DESC1.AsDateTime; + cb_desc1.ItemIndex := dtmSystem.tblGrupoBoletosTP_DESC1.AsInteger;; + end; + +end; + +function TfrmCentralBoletos.ValidadorDescontos: TStringArray; +begin + setlength(Result, 2); + Result[0] := 'True'; + Result[1] := ''; + + case cb_desc1.ItemIndex of + 2, 5, 6: + begin + if edt_taxa1bol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa do Desconto 1 no pode estar vazia para o tipo de desconto escolhido.'; + Exit; + end; + end; + 1, 3, 4: + begin + if edt_val1bol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor do Desconto 1 no pode estar vazia para o tipo de desconto escolhido.'; + Exit; + end; + end; + 0: + begin + if edt_taxa1bol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa do Desconto 1 deve ser 0 para o tipo de desconto escolhido.'; + Exit; + end; + if edt_val1bol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor do Desconto 1 deve ser 0 para o tipo de desconto escolhido.'; + Exit; + end; + end; + end; + case cb_desc2.ItemIndex of + 2, 5, 6: + begin + if edt_taxa2bol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa do Desconto 2 no pode estar vazia para o tipo de desconto escolhido.'; + Exit; + end; + end; + 1, 3, 4: + begin + if edt_val2bol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor do Desconto 2 no pode estar vazia para o tipo de desconto escolhido.'; + Exit; + end; + end; + 0: + begin + if edt_taxa2bol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa do Desconto 2 deve ser 0 para o tipo de desconto escolhido.'; + Exit; + end; + if edt_val2bol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor do Desconto 2 deve ser 0 para o tipo de desconto escolhido.'; + Exit; + end; + end; + end; + case cb_desc3.ItemIndex of + 2, 5, 6: + begin + if edt_taxa3bol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa do Desconto 3 no pode estar vazia para o tipo de desconto escolhido.'; + Exit; + end; + end; + 1, 3, 4: + begin + if edt_val3bol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor do Desconto 3 no pode estar vazia para o tipo de desconto escolhido.'; + Exit; + end; + end; + 0: + begin + if edt_taxa3bol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa do Desconto 3 deve ser 0 para o tipo de desconto escolhido.'; + Exit; + end; + if edt_val3bol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor do Desconto 3 deve ser 0 para o tipo de desconto escolhido.'; + Exit; + end; + end; + end; +end; + +function TfrmCentralBoletos.ValidadorMultaMora: TStringArray; +begin + setlength(Result, 2); + Result[0] := 'True'; + Result[1] := ''; + + case cb_multabol.ItemIndex of + 1: + begin + if edt_vlmultabol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor da Multa no pode estar vazia para o tipo de multa escolhida.'; + Exit; + end; + end; + 2: + begin + if edt_taxamultabol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa da Multa no pode estar vazia para o tipo de multa escolhida.'; + Exit; + end; + end; + 0: + begin + if edt_vlmultabol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor da Multa 3 deve ser 0 para o tipo de multa escolhida.'; + Exit; + end; + if edt_taxamultabol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa da Multa deve ser 0 para o tipo de multa escolhida.'; + Exit; + end; + end; + end; + case cb_morabol.ItemIndex of + 1: + begin + if edt_taxamorabol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Taxa de Mora no pode estar vazia para o tipo de mora escolhida.'; + Exit; + end; + end; + 2: + begin + if edt_vlmorabol.Text = '' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor de Mora no pode estar vazia para o tipo de mora escolhida.'; + Exit; + end; + end; + 0: + begin + if edt_taxamorabol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := 'Taxa de Mora deve ser 0 para o tipo de mora escolhida.'; + Exit; + end; + if edt_vlmorabol.Text <> '0' then + begin + Result[0] := 'False'; + Result[1] := + 'Valor de Mora deve ser 0 para o tipo de mora escolhido.'; + Exit; + end; + end; + end; +end; + +function TfrmCentralBoletos.ValidadorPagador: TStringArray; +begin + setlength(Result, 2); + Result[0] := 'True'; + Result[1] := ''; + + if edt_nomebolunico.Text = '' then + begin + Result[0] := 'False'; + Result[1] := 'Nome do pagador no pode estar vazio.'; + Exit; + end; + if edt_docbolunico.Text = '' then + begin + Result[0] := 'False'; + Result[1] := 'Documento do pagador no pode estar vazio.'; + Exit; + end + else if (length(edt_docbolunico.Text) <> 11) and + (length(edt_docbolunico.Text) <> 14) then + begin + Result[0] := 'False'; + Result[1] := 'Documento do pagador invlido.'; + Exit; + end; + if edt_cepbolunico.Text = '' then + begin + Result[0] := 'False'; + Result[1] := 'CEP do pagador no pode estar vazio.'; + Exit; + end + else if length(edt_cepbolunico.Text) <> 8 then + begin + Result[0] := 'False'; + Result[1] := 'CEP do pagador invlido.'; + Exit; + end; + if edt_endbolunico.Text = '' then + begin + Result[0] := 'False'; + Result[1] := 'Endereo do pagador no pode estar vazio.'; + Exit; + end; + if edt_endnumbolunico.Text = '' then + begin + Result[0] := 'False'; + Result[1] := 'Nmero do Endereo do pagador no pode estar vazio.'; + Exit; + end; + if edt_bairrobolunico.Text = '' then + begin + Result[0] := 'False'; + Result[1] := 'Bairro do pagador no pode estar vazio.'; + Exit; + end; + if edt_cidadebolunico.Text = '' then + begin + Result[0] := 'False'; + Result[1] := 'Cidade do pagador no pode estar vazio.'; + Exit; + end; + if edt_estadobolunico.Text = '' then + begin + Result[0] := 'False'; + Result[1] := 'UF do pagador no pode estar vazio.'; + Exit; + end; +end; + +end. diff --git a/ufrmCentralPlanilhamento.dfm b/ufrmCentralPlanilhamento.dfm new file mode 100644 index 0000000..da27362 --- /dev/null +++ b/ufrmCentralPlanilhamento.dfm @@ -0,0 +1,874 @@ +inherited frmCentralPlanilhamento: TfrmCentralPlanilhamento + Caption = 'Central de Planilhamento' + ClientHeight = 642 + ClientWidth = 816 + OnMouseDown = FormMouseDown + OnShow = FormShow + ExplicitWidth = 822 + ExplicitHeight = 670 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_nome: TLabel [0] + Left = 432 + Top = 326 + Width = 86 + Height = 13 + Caption = 'Nome da Planilha:' + end + object lbl_linhas: TLabel [1] + Left = 432 + Top = 307 + Width = 106 + Height = 13 + Caption = 'Quantidade de linhas: ' + end + object lbl_prov: TLabel [2] + Left = 432 + Top = 261 + Width = 59 + Height = 13 + Caption = 'Provid'#234'ncia:' + end + inherited stbStatus: TStatusBar + Top = 623 + Width = 816 + ExplicitTop = 623 + ExplicitWidth = 816 + end + object dbgrd_pesquisa: TDBGrid + Left = 8 + Top = 403 + Width = 801 + Height = 214 + DataSource = dtsQuery + PopupMenu = ppmnuFichaDev + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + end + object sbx_filtro: TScrollBox + Left = 8 + Top = 8 + Width = 418 + Height = 389 + HorzScrollBar.Range = 326 + VertScrollBar.Range = 1345 + AutoScroll = False + BevelInner = bvNone + BevelOuter = bvNone + ParentBackground = True + TabOrder = 2 + object pnl_providências: TPanel + Left = 0 + Top = 324 + Width = 394 + Height = 499 + TabOrder = 0 + object Label5: TLabel + Left = 9 + Top = 277 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label6: TLabel + Left = 121 + Top = 277 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_providencias: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Provid'#234'ncia:' + TabOrder = 0 + OnClick = cb_providenciasClick + end + object clb_providencias: TCheckListBox + Left = 8 + Top = 27 + Width = 377 + Height = 142 + OnClickCheck = clb_providenciasClickCheck + Enabled = False + ItemHeight = 13 + TabOrder = 1 + end + object pnl_filtroprov: TPanel + Left = 8 + Top = 175 + Width = 378 + Height = 68 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 2 + object rg_filtroprov: TRadioGroup + Left = -4 + Top = -15 + Width = 407 + Height = 82 + Color = clWhite + Columns = 2 + Enabled = False + Items.Strings = ( + 'Contenha' + 'N'#227'o contenha' + 'Seja a '#218'ltima' + 'Positivas' + 'Negativas') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + object dtp_provin: TDateTimePicker + Left = 32 + Top = 273 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 3 + end + object dtp_provfim: TDateTimePicker + Left = 144 + Top = 273 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 4 + end + object cb_periodoprov: TCheckBox + Left = 7 + Top = 250 + Width = 97 + Height = 17 + Caption = 'Per'#237'odo' + Enabled = False + TabOrder = 5 + OnClick = cb_periodoprovClick + end + object cb_bacalhau: TCheckBox + Left = 215 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Bacalhau' + Enabled = False + TabOrder = 6 + Visible = False + end + object edt_pprov: TEdit + Left = 111 + Top = 2 + Width = 274 + Height = 21 + Enabled = False + TabOrder = 7 + OnChange = edt_pprovChange + end + object cb_cobradoresprov: TCheckBox + Left = 7 + Top = 308 + Width = 97 + Height = 17 + Caption = 'Feito por:' + Enabled = False + TabOrder = 8 + OnClick = cb_cobradoresprovClick + end + object edt_puserprov: TEdit + Left = 111 + Top = 306 + Width = 274 + Height = 21 + Enabled = False + TabOrder = 9 + OnChange = edt_puserprovChange + end + object clb_usuariosprov: TCheckListBox + Left = 8 + Top = 331 + Width = 377 + Height = 160 + OnClickCheck = clb_usuariosprovClickCheck + Enabled = False + ItemHeight = 13 + PopupMenu = ppm_marcar + TabOrder = 10 + end + end + object pnl_beneficiarios: TPanel + Left = 0 + Top = 0 + Width = 394 + Height = 318 + TabOrder = 1 + object Label11: TLabel + Left = 8 + Top = 198 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label12: TLabel + Left = 8 + Top = 226 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object Label13: TLabel + Left = 135 + Top = 198 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label14: TLabel + Left = 135 + Top = 226 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_beneficiarios: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Credor:' + TabOrder = 0 + OnClick = cb_beneficiariosClick + end + object clb_beneficiarios: TCheckListBox + Left = 8 + Top = 27 + Width = 377 + Height = 142 + OnClickCheck = clb_beneficiariosClickCheck + Enabled = False + ItemHeight = 13 + TabOrder = 1 + end + object edt_pcredor: TEdit + Left = 111 + Top = 2 + Width = 274 + Height = 21 + Enabled = False + TabOrder = 2 + OnChange = edt_pcredorChange + end + object cb_credorentrada: TCheckBox + Left = 9 + Top = 175 + Width = 118 + Height = 17 + Caption = 'Entrada do Credor:' + Enabled = False + TabOrder = 3 + OnClick = cb_credorentradaClick + end + object dtp_credorentrada1: TDateTimePicker + Left = 31 + Top = 194 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 4 + end + object dtp_credorentrada2: TDateTimePicker + Left = 31 + Top = 222 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 5 + end + object cb_credorvencimento: TCheckBox + Left = 136 + Top = 175 + Width = 131 + Height = 17 + Caption = 'Vencimento do Credor:' + Enabled = False + TabOrder = 6 + OnClick = cb_credorvencimentoClick + end + object dtp_credorvenc1: TDateTimePicker + Left = 158 + Top = 194 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 7 + end + object dtp_credorvenc2: TDateTimePicker + Left = 158 + Top = 222 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 8 + end + object cb_credortptitulo: TCheckBox + Left = 7 + Top = 255 + Width = 97 + Height = 17 + Caption = 'Tipo de t'#237'tulo:' + Enabled = False + TabOrder = 9 + OnClick = cb_credortptituloClick + end + object Panel3: TPanel + Left = 8 + Top = 276 + Width = 377 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 10 + object rg_credortptitulo: TRadioGroup + Left = -3 + Top = -15 + Width = 391 + Height = 43 + Color = clWhite + Columns = 3 + Enabled = False + Items.Strings = ( + 'Todos' + 'Abertos' + 'Baixados') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + object pnl_agendamento: TPanel + Left = -1 + Top = 829 + Width = 395 + Height = 330 + TabOrder = 2 + object lbl_agendcomeco: TLabel + Left = 8 + Top = 107 + Width = 17 + Height = 13 + Caption = 'De:' + end + object lbl_agendfim: TLabel + Left = 134 + Top = 106 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_agendamento: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Agendamento:' + TabOrder = 0 + OnClick = cb_agendamentoClick + end + object dtp_agendcomeco: TDateTimePicker + Left = 31 + Top = 103 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 1 + end + object dtp_agendfim: TDateTimePicker + Left = 159 + Top = 102 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 2 + end + object clb_usuariosagenda: TCheckListBox + Left = 9 + Top = 161 + Width = 377 + Height = 160 + OnClickCheck = clb_usuariosagendaClickCheck + Enabled = False + ItemHeight = 13 + PopupMenu = ppm_marcar + TabOrder = 3 + end + object cb_cobradoresagenda: TCheckBox + Left = 8 + Top = 136 + Width = 97 + Height = 17 + Caption = 'Feito por:' + Enabled = False + TabOrder = 4 + OnClick = cb_cobradoresagendaClick + end + object edt_puseragenda: TEdit + Left = 112 + Top = 134 + Width = 274 + Height = 21 + Enabled = False + TabOrder = 5 + OnChange = edt_puseragendaChange + end + object Panel2: TPanel + Left = 8 + Top = 27 + Width = 378 + Height = 68 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 6 + object rg_agendamento: TRadioGroup + Left = -4 + Top = -15 + Width = 407 + Height = 82 + Color = clWhite + Columns = 2 + Enabled = False + Items.Strings = ( + 'Todos' + 'Somente Agendados' + 'Agendados no Per'#237'odo' + 'Agendamento Vencido' + 'N'#227'o incluir Agendados') + ParentBackground = False + ParentColor = False + TabOrder = 0 + OnClick = rg_agendamentoClick + end + end + end + object pnl_alfabeto: TPanel + Left = 0 + Top = 1165 + Width = 394 + Height = 55 + TabOrder = 3 + object Label7: TLabel + Left = 7 + Top = 29 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label8: TLabel + Left = 156 + Top = 28 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_faixanome: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Faixa de nomes:' + TabOrder = 0 + OnClick = cb_faixanomeClick + end + object edt_nomein: TEdit + Left = 28 + Top = 27 + Width = 66 + Height = 21 + CharCase = ecUpperCase + Enabled = False + MaxLength = 1 + TabOrder = 1 + Text = 'A' + end + object edt_nomefim: TEdit + Left = 181 + Top = 26 + Width = 66 + Height = 21 + CharCase = ecUpperCase + Enabled = False + MaxLength = 1 + TabOrder = 2 + Text = 'Z' + end + end + object pnl_atraso: TPanel + Left = -2 + Top = 1226 + Width = 396 + Height = 55 + TabOrder = 4 + object Label9: TLabel + Left = 7 + Top = 29 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label10: TLabel + Left = 158 + Top = 28 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_atraso: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Faixa de atraso:' + TabOrder = 0 + OnClick = cb_atrasoClick + end + object edt_atrasoin: TEdit + Left = 30 + Top = 27 + Width = 66 + Height = 21 + CharCase = ecUpperCase + Enabled = False + MaxLength = 1 + NumbersOnly = True + TabOrder = 1 + Text = '0' + end + object edt_atrasofim: TEdit + Left = 183 + Top = 26 + Width = 66 + Height = 21 + CharCase = ecUpperCase + Enabled = False + MaxLength = 1 + NumbersOnly = True + TabOrder = 2 + Text = '999999' + end + end + object pnl_tipopessoa: TPanel + Left = -2 + Top = 1287 + Width = 396 + Height = 61 + TabOrder = 5 + object cb_tipopessoa: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Tipo de pessoa:' + TabOrder = 0 + OnClick = cb_tipopessoaClick + end + object Panel1: TPanel + Left = 8 + Top = 25 + Width = 380 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 1 + object rg_tipopessoa: TRadioGroup + Left = -3 + Top = -15 + Width = 396 + Height = 43 + Color = clWhite + Columns = 2 + Enabled = False + Items.Strings = ( + 'F'#237'sica' + 'Jur'#237'dica') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + end + object btn_planilha: TButton + Left = 710 + Top = 372 + Width = 99 + Height = 25 + Caption = 'Exportar Planilha' + TabOrder = 3 + OnClick = btn_planilhaClick + end + object btn_pesquisa: TButton + Left = 432 + Top = 372 + Width = 75 + Height = 25 + Caption = 'Pesquisar' + TabOrder = 4 + OnClick = btn_pesquisaClick + end + object gb_telefones: TGroupBox + Left = 432 + Top = 8 + Width = 377 + Height = 132 + Enabled = False + TabOrder = 5 + object Panel4: TPanel + Left = 16 + Top = 21 + Width = 345 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 0 + object rg_situacaotel: TRadioGroup + Left = -4 + Top = -15 + Width = 352 + Height = 43 + Color = clWhite + Columns = 4 + Items.Strings = ( + 'Ativo' + 'Inativo' + 'Todos' + 'N'#227'o Inativos') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + object Panel5: TPanel + Left = 16 + Top = 57 + Width = 345 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 1 + object rg_tptel: TRadioGroup + Left = -4 + Top = -15 + Width = 352 + Height = 43 + Color = clWhite + Columns = 4 + Items.Strings = ( + 'Fixo' + 'M'#243'vel' + 'Ambos' + 'Todos') + ParentBackground = False + ParentColor = False + TabOrder = 0 + OnClick = rg_tptelClick + end + end + object Panel7: TPanel + Left = 16 + Top = 92 + Width = 345 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 2 + object rg_sms: TRadioGroup + Left = -4 + Top = -15 + Width = 352 + Height = 43 + Color = clWhite + Columns = 4 + Enabled = False + Items.Strings = ( + 'SMS' + 'Sem SMS' + 'Ambos' + 'Todos') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + object cb_telefones: TCheckBox + Left = 441 + Top = 6 + Width = 127 + Height = 17 + Alignment = taLeftJustify + Caption = 'Rela'#231#227'o de Telefones:' + TabOrder = 6 + OnClick = cb_telefonesClick + end + object gb_email: TGroupBox + Left = 432 + Top = 145 + Width = 377 + Height = 61 + TabOrder = 8 + object Panel6: TPanel + Left = 16 + Top = 21 + Width = 345 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 0 + object rg_email: TRadioGroup + Left = -4 + Top = -15 + Width = 352 + Height = 43 + Color = clWhite + Columns = 4 + Items.Strings = ( + 'Possui' + 'N'#227'o Possui' + 'Todos') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + object cb_email: TCheckBox + Left = 441 + Top = 143 + Width = 127 + Height = 17 + Alignment = taLeftJustify + Caption = 'Rela'#231#227'o de Emails:' + TabOrder = 7 + OnClick = cb_emailClick + end + object edt_nomeplanilha: TEdit + Left = 432 + Top = 345 + Width = 377 + Height = 21 + TabOrder = 9 + end + object cb_reltitulos: TCheckBox + Left = 441 + Top = 216 + Width = 127 + Height = 17 + Alignment = taLeftJustify + Caption = 'Rela'#231#227'o de T'#237'tulos:' + TabOrder = 10 + OnClick = cb_reltitulosClick + end + object dblulb_provs: TDBLookupComboBox + Left = 432 + Top = 280 + Width = 257 + Height = 21 + KeyField = 'ID_PROVIDENCIA' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsProvidencias + TabOrder = 11 + end + object cb_retornaprov: TCheckBox + Left = 531 + Top = 260 + Width = 158 + Height = 17 + Alignment = taLeftJustify + Caption = 'Retornar provid'#234'ncia anterior' + TabOrder = 12 + end + object btn_provs: TButton + Left = 695 + Top = 276 + Width = 114 + Height = 25 + Caption = 'Lan'#231'ar Provid'#234'ncias' + TabOrder = 13 + OnClick = btn_provsClick + end + object dtsQuery: TDataSource + DataSet = roqryPesquisa + Left = 712 + Top = 520 + end + object roqryPesquisa: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 712 + Top = 576 + end + object ppm_marcar: TPopupMenu + Left = 304 + Top = 80 + object MarcarTodos1: TMenuItem + Caption = 'Marcar Todos' + end + object DesmarcarTodos1: TMenuItem + Caption = 'Desmarcar Todos' + end + object N1: TMenuItem + Caption = '-' + end + end + object ppmnuFichaDev: TPopupMenu + Left = 184 + Top = 78 + object mnuEntrarnaFichadoDevedor: TMenuItem + Caption = 'Entrar na Ficha do Devedor' + OnClick = mnuEntrarnaFichadoDevedorClick + end + end + object ppmnuAcoes: TPopupMenu + Left = 136 + Top = 536 + end +end diff --git a/ufrmCentralPlanilhamento.pas b/ufrmCentralPlanilhamento.pas new file mode 100644 index 0000000..7251b9d --- /dev/null +++ b/ufrmCentralPlanilhamento.pas @@ -0,0 +1,1448 @@ +unit ufrmCentralPlanilhamento; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, StrUtils, System.win.ComObj, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, ZAbstractRODataset, + ZDataset, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.CheckLst, Vcl.Grids, + Vcl.DBGrids, Vcl.Menus, Vcl.DBCtrls; + +type + TfrmCentralPlanilhamento = class(TmstMaster) + dbgrd_pesquisa: TDBGrid; + sbx_filtro: TScrollBox; + pnl_providncias: TPanel; + Label5: TLabel; + Label6: TLabel; + cb_providencias: TCheckBox; + clb_providencias: TCheckListBox; + pnl_filtroprov: TPanel; + rg_filtroprov: TRadioGroup; + dtp_provin: TDateTimePicker; + dtp_provfim: TDateTimePicker; + cb_periodoprov: TCheckBox; + cb_bacalhau: TCheckBox; + edt_pprov: TEdit; + pnl_beneficiarios: TPanel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + cb_beneficiarios: TCheckBox; + clb_beneficiarios: TCheckListBox; + edt_pcredor: TEdit; + cb_credorentrada: TCheckBox; + dtp_credorentrada1: TDateTimePicker; + dtp_credorentrada2: TDateTimePicker; + cb_credorvencimento: TCheckBox; + dtp_credorvenc1: TDateTimePicker; + dtp_credorvenc2: TDateTimePicker; + cb_credortptitulo: TCheckBox; + Panel3: TPanel; + rg_credortptitulo: TRadioGroup; + pnl_agendamento: TPanel; + lbl_agendcomeco: TLabel; + lbl_agendfim: TLabel; + cb_agendamento: TCheckBox; + dtp_agendcomeco: TDateTimePicker; + dtp_agendfim: TDateTimePicker; + pnl_alfabeto: TPanel; + Label7: TLabel; + Label8: TLabel; + cb_faixanome: TCheckBox; + edt_nomein: TEdit; + edt_nomefim: TEdit; + pnl_atraso: TPanel; + Label9: TLabel; + Label10: TLabel; + cb_atraso: TCheckBox; + edt_atrasoin: TEdit; + edt_atrasofim: TEdit; + pnl_tipopessoa: TPanel; + cb_tipopessoa: TCheckBox; + Panel1: TPanel; + rg_tipopessoa: TRadioGroup; + btn_planilha: TButton; + dtsQuery: TDataSource; + roqryPesquisa: TZReadOnlyQuery; + btn_pesquisa: TButton; + ppm_marcar: TPopupMenu; + MarcarTodos1: TMenuItem; + DesmarcarTodos1: TMenuItem; + N1: TMenuItem; + cb_cobradoresprov: TCheckBox; + edt_puserprov: TEdit; + clb_usuariosprov: TCheckListBox; + clb_usuariosagenda: TCheckListBox; + cb_cobradoresagenda: TCheckBox; + edt_puseragenda: TEdit; + Panel2: TPanel; + rg_agendamento: TRadioGroup; + gb_telefones: TGroupBox; + cb_telefones: TCheckBox; + Panel4: TPanel; + rg_situacaotel: TRadioGroup; + Panel5: TPanel; + rg_tptel: TRadioGroup; + cb_email: TCheckBox; + gb_email: TGroupBox; + Panel6: TPanel; + rg_email: TRadioGroup; + edt_nomeplanilha: TEdit; + lbl_nome: TLabel; + cb_reltitulos: TCheckBox; + lbl_linhas: TLabel; + dblulb_provs: TDBLookupComboBox; + cb_retornaprov: TCheckBox; + lbl_prov: TLabel; + btn_provs: TButton; + ppmnuFichaDev: TPopupMenu; + mnuEntrarnaFichadoDevedor: TMenuItem; + ppmnuAcoes: TPopupMenu; + Panel7: TPanel; + rg_sms: TRadioGroup; + procedure cb_beneficiariosClick(Sender: TObject); + procedure edt_pcredorChange(Sender: TObject); + procedure cb_credorentradaClick(Sender: TObject); + procedure cb_credorvencimentoClick(Sender: TObject); + procedure cb_credortptituloClick(Sender: TObject); + procedure cb_providenciasClick(Sender: TObject); + procedure cb_periodoprovClick(Sender: TObject); + procedure cb_cobradoresprovClick(Sender: TObject); + procedure cb_agendamentoClick(Sender: TObject); + procedure rg_agendamentoClick(Sender: TObject); + procedure cb_cobradoresagendaClick(Sender: TObject); + procedure edt_pprovChange(Sender: TObject); + procedure edt_puserprovChange(Sender: TObject); + procedure edt_puseragendaChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure clb_beneficiariosClickCheck(Sender: TObject); + procedure clb_providenciasClickCheck(Sender: TObject); + procedure clb_usuariosprovClickCheck(Sender: TObject); + procedure clb_usuariosagendaClickCheck(Sender: TObject); + procedure FormMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure FormShow(Sender: TObject); + procedure btn_pesquisaClick(Sender: TObject); + procedure cb_faixanomeClick(Sender: TObject); + procedure cb_atrasoClick(Sender: TObject); + procedure cb_tipopessoaClick(Sender: TObject); + procedure cb_telefonesClick(Sender: TObject); + procedure cb_emailClick(Sender: TObject); + procedure btn_planilhaClick(Sender: TObject); + procedure cb_reltitulosClick(Sender: TObject); + procedure btn_provsClick(Sender: TObject); + procedure mnuEntrarnaFichadoDevedorClick(Sender: TObject); + procedure rg_tptelClick(Sender: TObject); + private + controller_name: string; + posi: TPoint; + total_titulos: Integer; + valor_total: double; + procedure marca_todos(clb: TCheckListBox); + procedure HandlePopupItem(Sender: TObject); + procedure AdjustCheckListBox(var CB: TCheckListBox); + function FindControlAtPos(AScreenPos: TPoint): TControl; + function FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; + + { Private declarations } + public + { Public declarations } + end; + +var + frmCentralPlanilhamento: TfrmCentralPlanilhamento; + +implementation + +{$R *.dfm} + +uses udtmSystem, ucadDevedores; + +procedure TfrmCentralPlanilhamento.AdjustCheckListBox(var CB: TCheckListBox); +var + i, nMaxWidth, nItemWidth: Integer; +begin + // ajustar os checklistbox para poder ter scroll horizontal + nMaxWidth := CB.ClientWidth; + for i := 0 to CB.Items.Count - 1 do + begin + nItemWidth := CB.Canvas.TextWidth(CB.Items[i]) + 20; + if (nItemWidth > nMaxWidth) then + nMaxWidth := nItemWidth; + end; + if (nMaxWidth > CB.ClientWidth) then + begin + CB.ScrollWidth := nMaxWidth; + end; +end; + +procedure TfrmCentralPlanilhamento.btn_pesquisaClick(Sender: TObject); +var + string_selecionados, dt_inicio, dt_fim: string; + i: Integer; +begin + + if (not cb_beneficiarios.Checked) and (not cb_providencias.Checked) and + (not cb_agendamento.Checked) and (not cb_faixanome.Checked) and + (not cb_atraso.Checked) and (not cb_tipopessoa.Checked) then + begin + Messagedlg('Por favor escolha um filtro para a pesquisa.', mtWarning, + [mbok], 0); + abort; + end; + + valor_total := 0; + total_titulos := 0; + + string_selecionados := ''; + + // comea o sofrimento + roqryPesquisa.SQL.Clear; + with roqryPesquisa.SQL do // incio dasql + begin + Add('select'); + Add('d.tx_nome,'); + Add('case when d.tp_cliente = ' + QuotedStr('F') + ' then d.cd_cpf'); + Add('when d.tp_cliente = ' + QuotedStr('J') + ' then d.cd_cnpj'); + Add('end as tx_documento'); + if cb_telefones.Checked then + begin + Add(',tel.nr_ddd,tel.nr_numero'); + end; + if cb_email.Checked then + begin + Add(',e.tx_email'); + end; + if cb_reltitulos.Checked then + begin + Add(',t.tx_produto, t.dt_entrada, t.vl_titulo, t.dt_vencimento , t.vl_corrigido, t.dt_pagamento'); + end; + Add(', t.id_devedor from chg_titulos t'); + Add('left join chg_devedores d on d.id_devedor = t.id_devedor'); + if cb_telefones.Checked then + begin + Add('left join chg_telefones tel on t.id_devedor = tel.id_devedor'); + end; + if cb_email.Checked then + begin + Add('left join chg_emails e on t.id_devedor = e.id_devedor'); + end; + Add('where'); + if cb_email.Checked then + begin + case rg_email.ItemIndex of + 0: + begin + Add('char_length(e.tx_email) > 3 and'); + end; + 1: + begin + Add('(char_length(e.tx_email) < 3 or e.tx_email is null) and'); + end; + end; + end; + end; + + if cb_beneficiarios.Checked then // se beneficiarios t selecionado + begin + for i := 1 to clb_beneficiarios.Items.Count - 1 do + begin + if clb_beneficiarios.Checked[i] then + begin + dtmSystem.tblCHGEmpresa.RecNo := i; + string_selecionados := string_selecionados + + dtmSystem.tblCHGEmpresaID_EMPRESA.AsString + ','; + end; + end; + string_selecionados := LeftStr(string_selecionados, + length(string_selecionados) - 1); + with roqryPesquisa.SQL do + begin + Add('t.id_empresa in '); + Add('(' + string_selecionados + ')'); + if cb_credorentrada.Checked then + begin + dt_inicio := DateToStr(dtp_credorentrada1.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_credorentrada2.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + Add('and'); + Add('cast(t.dt_entrada as date) >= ' + QuotedStr(dt_inicio) + ' and '); + Add('cast(t.dt_entrada as date) <= ' + QuotedStr(dt_fim)); + end; + if cb_credorvencimento.Checked then + begin + dt_inicio := DateToStr(dtp_credorvenc1.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_credorvenc2.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + Add('and'); + Add('cast(t.dt_vencimento as date) >= ' + QuotedStr(dt_inicio) + + ' and '); + Add('cast(t.dt_vencimento as date) <= ' + QuotedStr(dt_fim)); + end; + if cb_credortptitulo.Checked then + begin + Add('and'); + case rg_credortptitulo.ItemIndex of + 0: + begin + Add('t.TP_SITUACAO <> ' + QuotedStr('')); + end; + 1: + begin + Add('(t.TP_SITUACAO = ' + QuotedStr('A') + 'or t.TP_SITUACAO = ' + + QuotedStr('AC') + ')'); + end; + 2: + begin + Add('(t.TP_SITUACAO = ' + QuotedStr('B') + ' OR'); + Add('t.TP_SITUACAO = ' + QuotedStr('QC') + ' OR'); + Add('t.TP_SITUACAO = ' + QuotedStr('QB') + ')'); + end; + end; + end; + Add('and '); + end; + string_selecionados := ''; + end; + + if cb_providencias.Checked then // se providncias ta selecionado + begin + for i := 1 to clb_providencias.Items.Count - 1 do + begin + if clb_providencias.Checked[i] then + begin + dtmSystem.tblProvidencias.RecNo := i; + string_selecionados := string_selecionados + + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString + ','; + end; + end; + string_selecionados := LeftStr(string_selecionados, + length(string_selecionados) - 1); + if rg_filtroprov.ItemIndex >= 0 then + // se escolheu algum filtro + begin + case rg_filtroprov.ItemIndex of + 0: // contenha providencia + begin + with roqryPesquisa.SQL do + begin + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where h.id_providencia in'); + Add('(' + string_selecionados + ')'); + end; + end; + 1: // no contenha + begin + with roqryPesquisa.SQL do + begin + Add('t.id_devedor not in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where h.id_providencia in'); + Add('(' + string_selecionados + ')'); + end; + end; + 2: // seja a ltima providencia lanada + begin + with roqryPesquisa.SQL do + begin + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('inner join (SELECT h.id_devedor, MAX(h.ID_HISTORICO) AS MAXHIST FROM CHG_HISTORICO h'); + Add('group by id_devedor)'); + Add('hist on hist.id_devedor = h.id_devedor and h.id_historico = hist.maxhist'); + Add('where h.id_providencia in'); + Add('(' + string_selecionados + ')'); + end; + end; + 3: // positivas + begin + with roqryPesquisa.SQL do + begin + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where'); + Add('h.id_providencia in'); + Add('(select p.id_providencia from chg_providencias p where'); + Add('p.tp_providencia = ' + QuotedStr('Positiva') + ')'); + end; + end; + 4: // negativas + begin + with roqryPesquisa.SQL do + begin + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where'); + Add('h.id_providencia in'); + Add('(select p.id_providencia from chg_providencias p where'); + Add('p.tp_providencia = ' + QuotedStr('Negativa') + ')'); + end; + end; + end; + + if cb_periodoprov.Checked then + // se escolheu um perodo de lanamento da providencia + begin + dt_inicio := DateToStr(dtp_provin.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_provfim.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + with roqryPesquisa.SQL do + begin + Add('and '); + Add('cast(h.dt_contato as date) >= ' + QuotedStr(dt_inicio)); + Add('and '); + Add('cast(h.dt_contato as date) <= ' + QuotedStr(dt_fim)); + end; + end; + if cb_cobradoresprov.Checked then + begin + string_selecionados := ''; + for i := 1 to clb_usuariosprov.Items.Count - 1 do + begin + if clb_usuariosprov.Checked[i] then + begin + dtmSystem.tblUsuariosConsulta.RecNo := i; + string_selecionados := string_selecionados + + dtmSystem.tblUsuariosConsultaID_USUARIO.AsString + ','; + end; + end; + string_selecionados := LeftStr(string_selecionados, + length(string_selecionados) - 1); + with roqryPesquisa.SQL do + begin + Add('and '); + Add('t.id_devedor in'); + Add('(select h.id_devedor from chg_historico h'); + Add('where h.id_cobrador in'); + Add('(' + string_selecionados + '))'); + end; + end; + with roqryPesquisa.SQL do + begin + Add(') '); + Add('and'); + end; + string_selecionados := ''; + end; + end; + + if cb_tipopessoa.Checked then // tipo de pessoa + begin + with roqryPesquisa.SQL do + begin + case rg_tipopessoa.ItemIndex of + 0: + begin + Add('d.tp_cliente = ' + QuotedStr('F')); + Add('and '); + end; + 1: + begin + Add('d.tp_cliente = ' + QuotedStr('J')); + Add('and '); + end; + end; + end; + end; + + if cb_agendamento.Checked then // Agendamento + begin + with roqryPesquisa.SQL do + begin + case rg_agendamento.ItemIndex of + 0: + begin + + end; + 1: + begin + Add('t.id_devedor in'); + Add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A') + ')'); + Add('and '); + end; + 2: + begin + dt_inicio := DateToStr(dtp_agendcomeco.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + + '-' + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_agendfim.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + Add('t.id_devedor in'); + Add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A')); + Add('and '); + Add('cast(dt_agendada as date) >= ' + QuotedStr(dt_inicio) + ' '); + Add('and '); + Add('cast(dt_agendada as date) <= ' + QuotedStr(dt_fim) + ')'); + Add('and '); + end; + 3: + begin + Add('t.id_devedor in'); + Add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A')); + Add('and '); + Add('a.dt_agendada <= ' + QuotedStr(FormatDateTime('YYYY-MM-DD', + Date)) + ')'); + Add('and '); + end; + 4: + begin + Add('t.id_devedor not in'); + Add('(select a.id_devedor from chg_agenda a where tp_situacao = ' + + QuotedStr('A') + ')'); + Add('and '); + end; + end; + end; + end; + + if cb_faixanome.Checked then // faixa de nomes + begin + with roqryPesquisa.SQL do + begin + // Upper(d.TX_NOME) similar to '[A-M]_*' + Add('Upper(d.TX_NOME) similar to ' + '''[' + edt_nomein.Text + '-' + + edt_nomefim.Text + ']_*'''); + Add('and '); + end; + end; + + if cb_atraso.Checked then // dias de atraso no ttulo + begin + with roqryPesquisa.SQL do + begin + // datediff(day,t.dt_vencimento,cast('now' as date)) >= 1 + Add('datediff(day,cast(t.dt_vencimento as date),cast(''now'' as date)) >= ' + + edt_atrasoin.Text); + Add('and '); + Add('datediff(day,cast(t.dt_vencimento as date),cast(''now'' as date)) <= ' + + edt_atrasofim.Text); + Add('and '); + end; + end; + if cb_telefones.Checked then + begin + with roqryPesquisa.SQL do + begin + if rg_situacaotel.ItemIndex > -1 then + begin + case rg_situacaotel.ItemIndex of + 0: + begin + Add('tel.tp_ativo = ' + QuotedStr('S')); + Add('and '); + end; + 1: + begin + Add('tel.tp_ativo = ' + QuotedStr('N')); + Add('and '); + end; + 2: + begin + Add('tel.tp_ativo <> ' + QuotedStr('')); + Add('and '); + end; + 3: + begin + Add('tel.tp_ativo <> ' + QuotedStr('N')); + Add('and '); + end; + end; + end; + if rg_tptel.ItemIndex > -1 then + begin + case rg_tptel.ItemIndex of + 0: + begin + Add('tel.tp_tipotel = ' + QuotedStr('F')); + Add('and '); + end; + 1: + begin + Add('tel.tp_tipotel = ' + QuotedStr('M')); + Add('and '); + case rg_sms.ItemIndex of + 0: + begin + Add('tel.tp_SMS = ' + QuotedStr('S')); + Add('and '); + end; + 1: + begin + Add('tel.tp_SMS = ' + QuotedStr('N')); + Add('and '); + end; + 2: + begin + Add('tel.tp_SMS in (' + QuotedStr('S') + ',' + + QuotedStr('N') + ')'); + Add('and '); + end; + 3: + begin +// Add('tel.tp_SMS <> ' + QuotedStr('')); +// Add('and '); + end; + end; + end; + 2: + begin + Add('tel.tp_tipotel in (' + QuotedStr('F') + ',' + + QuotedStr('M') + ')'); + Add('and '); + end; + 3: + begin + Add('tel.tp_tipotel <> ' + QuotedStr('')); + Add('and '); + end; + end; + end; + end; + end; + + roqryPesquisa.SQL.Delete(roqryPesquisa.SQL.Count - 1); + // roqryPesquisa.SQL.Add('group by d.ID_DEVEDOR, d.TX_NOME, TX_DOCUMENTO'); + // agrupar a query + if cb_telefones.Checked then + begin + roqryPesquisa.SQL.Add + ('group by d.tx_nome, tx_documento, tel.nr_ddd, tel.nr_numero, t.id_devedor'); + end; + if cb_email.Checked then + begin + roqryPesquisa.SQL.Add + ('group by d.tx_nome, tx_documento, e.tx_email, t.id_devedor'); + end; + roqryPesquisa.SQL.Add('order by d.tx_nome'); + + Screen.Cursor := crHourGlass; + Application.ProcessMessages; + roqryPesquisa.Open; + Application.ProcessMessages; + total_titulos := 0; + roqryPesquisa.First; + + Screen.Cursor := crDefault; + if roqryPesquisa.RecordCount > 0 then + begin + // btn_ok.Enabled := true; + // pb_campanha.max := queryCampanha.RecordCount; + roqryPesquisa.First; + end + else + begin + // btn_ok.Enabled := false; + end; + // pnl_txt.Caption := 'Pesquisa realizada.'; + lbl_linhas.Caption := 'Quantidade de linhas: ' + + inttostr(roqryPesquisa.RecordCount); +end; + +procedure TfrmCentralPlanilhamento.btn_planilhaClick(Sender: TObject); +var + OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param, + FilterParams, Param2: Variant; + i, j: Integer; + pathFile: string; +begin + + if edt_nomeplanilha.Text = '' then + begin + Messagedlg('Por favor escolha um nome para a pesquisa.', mtWarning, + [mbok], 0); + abort; + end; + + if AnsiPos('/', edt_nomeplanilha.Text) <> 0 then + begin + Messagedlg('No possvel criar um arquivo que contenha ''/'' em seu nome. Por favor escolha outro.', mtWarning, + [mbok], 0); + abort; + end; + + Screen.Cursor := crHourGlass; + + // gera uma planilha conforme o string grid do layout + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + + LoadParams := VarArrayCreate([0, 0], varVariant); + Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param.Name := 'Hidden'; + Param.Value := true; + LoadParams[0] := Param; + + OOExec := OpenDesktop.LoadComponentFromURL('private:factory/scalc', '_blank', + 0, LoadParams); + OOCalc := OOExec.Sheets; + Planilha := OOCalc.getbyIndex(0); + + for i := 0 to roqryPesquisa.FieldCount - 1 do + begin + Planilha.getCellByPosition(i, 0).string := roqryPesquisa.Fields[i] + .FieldName; + end; + roqryPesquisa.First; + // i := 1; + // while not roqryPesquisa.EoF do + // begin + // for j := 0 to roqryPesquisa.FieldCount - 1 do + // begin + // Planilha.getCellByPosition(j, i).string := + // roqryPesquisa.FieldByName(roqryPesquisa.Fields[j].FieldName).AsString; + // Planilha.getCellByPosition(i, j).getColumns.getbyIndex(0) + // .OptimalWidth := true; + // end; + // Inc(i, 1); + // roqryPesquisa.Next; + // end; + + for i := 1 to roqryPesquisa.RecordCount do + begin + for j := 0 to roqryPesquisa.FieldCount - 1 do + begin + Planilha.getCellByPosition(j, i).string := + roqryPesquisa.FieldByName(roqryPesquisa.Fields[j].FieldName).AsString; + Planilha.getCellByPosition(j, i).getColumns.getbyIndex(0) + .OptimalWidth := true; + end; + roqryPesquisa.Next; + end; + + FilterParams := VarArrayCreate([0, 1], varVariant); + + Param2 := OpenDesktop.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param2.Name := 'FilterName'; + Param2.Value := 'MS Excel 97'; + FilterParams[0] := Param2; + Param2.Name := 'Overwrite'; + Param2.Value := true; + FilterParams[1] := Param2; + +// pathFile := GetCurrentDir; + pathFile := dtmSystem.path_executavel; + pathFile := 'file:///' + pathFile + '\Planilhas\' + edt_nomeplanilha.Text; + pathFile := StringReplace(pathFile, '\', '/', [rfReplaceAll]); + + try + OOExec.StoreAsURL(pathFile + '.xls', FilterParams); + OOExec.Close(false); + finally + OpenOffice := Unassigned; + end; + + Screen.Cursor := crDefault; + +end; + +procedure TfrmCentralPlanilhamento.btn_provsClick(Sender: TObject); +var + prov_anterior: Integer; +begin + if roqryPesquisa.RecordCount > 0 then + begin + Screen.Cursor := crHourGlass; + with dtmSystem do + begin + roqryPesquisa.First; + while not roqryPesquisa.EoF do + begin + if cb_retornaprov.Checked then + begin + tblDevedores.Locate('ID_DEVEDOR', + roqryPesquisa.FieldByName('id_devedor').AsInteger, []); + tblHistorico.First; + if not tblHistorico.IsEmpty then + begin + prov_anterior := tblHistoricoID_PROVIDENCIA.AsInteger; + end + else + begin + prov_anterior := -1; + end; + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := + roqryPesquisa.FieldByName('id_devedor').AsInteger; + tblHistoricoID_COBRADOR.AsInteger := id_usuario; + tblHistoricoID_PROVIDENCIA.AsInteger := dblulb_provs.KeyValue; + tblHistoricoDT_CONTATO.AsDateTime := Now; + tblHistoricoTL_MEMO.AsString := 'Providncia lanada: ' + + tblProvidenciasTX_NOME.AsString + '.'; + tblHistorico.Post; + if prov_anterior <> -1 then + begin + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := + roqryPesquisa.FieldByName('id_devedor').AsInteger; + tblHistoricoID_COBRADOR.AsInteger := id_usuario; + tblHistoricoID_PROVIDENCIA.AsInteger := prov_anterior; + tblHistoricoTL_MEMO.AsString := + 'Retorno da providncia lanada pr envio de emails.'; + tblHistoricoDT_CONTATO.AsDateTime := Now; + tblHistorico.Post; + end; + end + else + begin + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := + roqryPesquisa.FieldByName('id_devedor').AsInteger; + tblHistoricoID_COBRADOR.AsInteger := id_usuario; + tblHistoricoID_PROVIDENCIA.AsInteger := dblulb_provs.KeyValue; + tblHistoricoDT_CONTATO.AsDateTime := Now; + tblHistoricoTL_MEMO.AsString := 'Providncia lanada: ' + + tblProvidenciasTX_NOME.AsString + '.'; + tblHistorico.Post; + end; + roqryPesquisa.Next; + Application.ProcessMessages; + end; + end; + cb_retornaprov.Checked := false; + end; + Screen.Cursor := crDefault; +end; + +procedure TfrmCentralPlanilhamento.cb_agendamentoClick(Sender: TObject); +begin + case cb_agendamento.Checked of + true: + begin + rg_agendamento.Enabled := cb_agendamento.Checked; + cb_cobradoresagenda.Enabled := cb_agendamento.Checked; + end; + false: + begin + rg_agendamento.Enabled := cb_agendamento.Checked; + cb_cobradoresagenda.Enabled := cb_agendamento.Checked; + edt_puseragenda.Enabled := cb_agendamento.Checked; + clb_usuariosagenda.Enabled := cb_agendamento.Checked; + end; + end; +end; + +procedure TfrmCentralPlanilhamento.cb_atrasoClick(Sender: TObject); +begin + edt_atrasoin.Enabled := cb_atraso.Checked; + edt_atrasofim.Enabled := cb_atraso.Checked; +end; + +procedure TfrmCentralPlanilhamento.cb_beneficiariosClick(Sender: TObject); +begin + case cb_beneficiarios.Checked of + true: + begin + clb_beneficiarios.Enabled := cb_beneficiarios.Checked; + edt_pcredor.Enabled := cb_beneficiarios.Checked; + cb_credorentrada.Enabled := cb_beneficiarios.Checked; + cb_credorvencimento.Enabled := cb_beneficiarios.Checked; + cb_credortptitulo.Enabled := cb_beneficiarios.Checked; + end; + false: + begin + clb_beneficiarios.Enabled := cb_beneficiarios.Checked; + edt_pcredor.Enabled := cb_beneficiarios.Checked; + cb_credorentrada.Enabled := cb_beneficiarios.Checked; + cb_credorentrada.Checked := cb_beneficiarios.Checked; + dtp_credorentrada1.Enabled := cb_beneficiarios.Checked; + dtp_credorentrada2.Enabled := cb_beneficiarios.Checked; + cb_credorvencimento.Enabled := cb_beneficiarios.Checked; + cb_credorvencimento.Checked := cb_beneficiarios.Checked; + dtp_credorvenc1.Enabled := cb_beneficiarios.Checked; + dtp_credorvenc2.Enabled := cb_beneficiarios.Checked; + cb_credortptitulo.Enabled := cb_beneficiarios.Checked; + rg_credortptitulo.ItemIndex := -1; + end; + end; +end; + +procedure TfrmCentralPlanilhamento.cb_cobradoresagendaClick(Sender: TObject); +begin + edt_puseragenda.Enabled := cb_cobradoresagenda.Checked; + clb_usuariosagenda.Enabled := cb_cobradoresagenda.Checked; +end; + +procedure TfrmCentralPlanilhamento.cb_cobradoresprovClick(Sender: TObject); +begin + edt_puserprov.Enabled := cb_cobradoresprov.Checked; + clb_usuariosprov.Enabled := cb_cobradoresprov.Checked; +end; + +procedure TfrmCentralPlanilhamento.cb_credorentradaClick(Sender: TObject); +begin + dtp_credorentrada1.Enabled := cb_credorentrada.Checked; + dtp_credorentrada2.Enabled := cb_credorentrada.Checked; +end; + +procedure TfrmCentralPlanilhamento.cb_credortptituloClick(Sender: TObject); +begin + rg_credortptitulo.Enabled := cb_credortptitulo.Checked; +end; + +procedure TfrmCentralPlanilhamento.cb_credorvencimentoClick(Sender: TObject); +begin + dtp_credorvenc1.Enabled := cb_credorvencimento.Checked; + dtp_credorvenc2.Enabled := cb_credorvencimento.Checked; +end; + +procedure TfrmCentralPlanilhamento.cb_emailClick(Sender: TObject); +begin + gb_email.Enabled := cb_email.Checked; + if cb_email.Checked then + begin + cb_telefones.Checked := false; + cb_reltitulos.Checked := false; + end; +end; + +procedure TfrmCentralPlanilhamento.cb_faixanomeClick(Sender: TObject); +begin + edt_nomein.Enabled := cb_faixanome.Checked; + edt_nomefim.Enabled := cb_faixanome.Checked; +end; + +procedure TfrmCentralPlanilhamento.cb_periodoprovClick(Sender: TObject); +begin + dtp_provin.Enabled := cb_periodoprov.Checked; + dtp_provfim.Enabled := cb_periodoprov.Checked; +end; + +procedure TfrmCentralPlanilhamento.cb_providenciasClick(Sender: TObject); +begin + case cb_providencias.Checked of + true: + begin + clb_providencias.Enabled := cb_providencias.Checked; + edt_pprov.Enabled := cb_providencias.Checked; + rg_filtroprov.Enabled := cb_providencias.Checked; + cb_periodoprov.Enabled := cb_providencias.Checked; + cb_cobradoresprov.Enabled := cb_providencias.Checked; + end; + false: + begin + clb_providencias.Enabled := cb_providencias.Checked; + edt_pprov.Enabled := cb_providencias.Checked; + rg_filtroprov.Enabled := cb_providencias.Checked; + dtp_provin.Enabled := cb_providencias.Checked; + dtp_provfim.Enabled := cb_providencias.Checked; + cb_periodoprov.Enabled := cb_providencias.Checked; + cb_cobradoresprov.Enabled := cb_providencias.Checked; + edt_puserprov.Enabled := cb_providencias.Checked; + clb_usuariosprov.Enabled := cb_providencias.Checked; + end; + end; +end; + +procedure TfrmCentralPlanilhamento.cb_reltitulosClick(Sender: TObject); +begin + if cb_reltitulos.Checked then + begin + cb_email.Checked := false; + cb_telefones.Checked := false; + end; +end; + +procedure TfrmCentralPlanilhamento.cb_telefonesClick(Sender: TObject); +begin + gb_telefones.Enabled := cb_telefones.Checked; + if cb_telefones.Checked then + begin + cb_email.Checked := false; + cb_reltitulos.Checked := false; + end; +end; + +procedure TfrmCentralPlanilhamento.cb_tipopessoaClick(Sender: TObject); +begin + rg_tipopessoa.Enabled := cb_tipopessoa.Checked; +end; + +procedure TfrmCentralPlanilhamento.clb_beneficiariosClickCheck(Sender: TObject); +begin + marca_todos(clb_beneficiarios); +end; + +procedure TfrmCentralPlanilhamento.clb_providenciasClickCheck(Sender: TObject); +begin + marca_todos(clb_providencias); +end; + +procedure TfrmCentralPlanilhamento.clb_usuariosagendaClickCheck + (Sender: TObject); +begin + marca_todos(clb_usuariosagenda); +end; + +procedure TfrmCentralPlanilhamento.clb_usuariosprovClickCheck(Sender: TObject); +begin + marca_todos(clb_usuariosprov); +end; + +procedure TfrmCentralPlanilhamento.edt_pcredorChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_beneficiarios.Items.Count do + begin + try + if ContainsText(clb_beneficiarios.Items[i], edt_pcredor.Text) then + begin + clb_beneficiarios.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TfrmCentralPlanilhamento.edt_pprovChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_providencias.Items.Count do + begin + try + if ContainsText(clb_providencias.Items[i], edt_pprov.Text) then + begin + clb_providencias.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TfrmCentralPlanilhamento.edt_puseragendaChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_usuariosagenda.Items.Count do + begin + try + if ContainsText(clb_usuariosagenda.Items[i], edt_puseragenda.Text) then + begin + clb_usuariosagenda.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TfrmCentralPlanilhamento.edt_puserprovChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_usuariosprov.Items.Count do + begin + try + if ContainsText(clb_usuariosprov.Items[i], edt_puserprov.Text) then + begin + clb_usuariosprov.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TfrmCentralPlanilhamento.mnuEntrarnaFichadoDevedorClick + (Sender: TObject); +begin + inherited; + try + if dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + roqryPesquisa.FieldByName('ID_DEVEDOR').AsInteger, []) then + begin + cadDevedores := TcadDevedores.Create(self); + cadDevedores.ShowModal; + end; + except + end; + +end; + +function TfrmCentralPlanilhamento.FindControlAtPos(AScreenPos: TPoint) + : TControl; +var + i: Integer; + f, m: TForm; + p: TPoint; + r: TRect; +begin + // funo para descobrir o controle que se encontra abaixo do mouse + Result := nil; + for i := Screen.FormCount - 1 downto 0 do + begin + f := Screen.Forms[i]; + if f.Visible and (f.Parent = nil) and (f.FormStyle <> fsMDIChild) and + TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height) + .Contains(AScreenPos) then + Result := f; + end; + Result := FindSubcontrolAtPos(Result, AScreenPos, AScreenPos); + if (Result is TForm) and (TForm(Result).ClientHandle <> 0) then + begin + Winapi.Windows.GetWindowRect(TForm(Result).ClientHandle, r); + p := TPoint.Create(AScreenPos.X - r.Left, AScreenPos.Y - r.Top); + m := nil; + for i := TForm(Result).MDIChildCount - 1 downto 0 do + begin + f := TForm(Result).MDIChildren[i]; + if TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height) + .Contains(p) then + m := f; + end; + if m <> nil then + Result := FindSubcontrolAtPos(m, AScreenPos, p); + end; +end; + +function TfrmCentralPlanilhamento.FindSubcontrolAtPos(AControl: TControl; + AScreenPos, AClientPos: TPoint): TControl; +var + i: Integer; + C: TControl; +begin + Result := nil; + C := AControl; + if (C = nil) or not C.Visible or not TRect.Create(C.Left, C.Top, + C.Left + C.Width, C.Top + C.Height).Contains(AClientPos) then + exit; + Result := AControl; + if AControl is TWinControl then + for i := 0 to TWinControl(AControl).ControlCount - 1 do + begin + C := FindSubcontrolAtPos(TWinControl(AControl).Controls[i], AScreenPos, + AControl.ScreenToClient(AScreenPos)); + if C <> nil then + Result := C; + end; +end; + +procedure TfrmCentralPlanilhamento.FormCreate(Sender: TObject); +var + Item: TMenuItem; +begin + with dtmSystem do + begin + if not(tblCHGEmpresa.Active) then + begin + tblCHGEmpresa.Open; + end + else + begin + tblCHGEmpresa.Refresh; + end; + tblCHGEmpresa.First; + clb_beneficiarios.Items.Add('Marcar Todos'); + while not tblCHGEmpresa.EoF do // preenche o list box + begin + clb_beneficiarios.Items.Add(tblCHGEmpresaTX_NOME.AsString); + tblCHGEmpresa.Next; + end; + if not(tblDevedores.Active) then + begin + tblDevedores.Open; + end + else + begin + tblDevedores.Refresh; + end; + if not(tblHistorico.Active) then + begin + tblHistorico.Open; + end + else + begin + tblHistorico.Refresh; + end; + if not(tblProvidencias.Active) then + begin + tblProvidencias.Open; + end + else + begin + tblProvidencias.Refresh; + end; + + if not(tblUsuariosConsulta.Active) then + begin + tblUsuariosConsulta.Open; + end; + tblUsuariosConsulta.First; + clb_usuariosprov.Items.Add('Marcar Todos'); + clb_usuariosagenda.Items.Add('Marcar Todos'); + while not tblUsuariosConsulta.EoF do // preenche o list box + begin + clb_usuariosprov.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + clb_usuariosagenda.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + tblUsuariosConsulta.Next; + end; + + if not(tblProvidencias.Active) then + begin + tblProvidencias.Open; + end; + tblProvidencias.First; + clb_providencias.Items.Add('Marcar Todos'); + while not tblProvidencias.EoF do // preenche o list box + begin + clb_providencias.Items.Add(tblProvidenciasTX_NOME.AsString); + tblProvidencias.Next; + end; + + if not(tblGrupos.Active) then + begin + tblGrupos.Open; + end; + tblGrupos.First; + while not tblGrupos.EoF do + begin + Item := TMenuItem.Create(ppm_marcar); + Item.Caption := tblGruposTX_NOME.AsString; + // cria os menus extras do popupmenu + Item.Visible := false; // conforme necessidade dos grupos + Item.OnClick := HandlePopupItem; + ppm_marcar.Items.Add(Item); + tblGrupos.Next; + end; + + if not tblFiltros.Active then + begin + tblFiltros.Open; + end; + + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + + end; + dtp_provin.Date := Date; + dtp_provfim.Date := Date; + + // id_old := -1; + + AdjustCheckListBox(clb_beneficiarios); + AdjustCheckListBox(clb_providencias); + AdjustCheckListBox(clb_usuariosprov); + AdjustCheckListBox(clb_usuariosagenda); +end; + +procedure TfrmCentralPlanilhamento.FormMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Button = mbRight then + begin + posi := Mouse.CursorPos; + controller_name := FindControlAtPos(posi).Name; + end; +end; + +procedure TfrmCentralPlanilhamento.FormShow(Sender: TObject); +begin + sbx_filtro.VertScrollBar.Position := 0; +end; + +procedure TfrmCentralPlanilhamento.HandlePopupItem(Sender: TObject); +var + menuItem: TMenuItem; + helper: string; + // handler dos menus extras do popupmenu + id_helper: string; + i, cont_helper, cont_helper2: Integer; +begin + cont_helper := 0; + cont_helper2 := 0; + menuItem := TMenuItem(Sender); + helper := ReplaceStr(menuItem.Caption, '&', ''); + with dtmSystem do + begin + tblGrupos.Open; + tblGrupos.First; + while not tblGrupos.EoF do + begin + if helper = tblGruposTX_NOME.AsString then + begin + id_helper := tblGruposID_GRUPO.AsString; + end; + tblGrupos.Next; + end; + end; + + if controller_name = 'clb_usuariosprov' then + begin + for i := 1 to clb_usuariosprov.Items.Count - 1 do + begin + dtmSystem.tblUsuariosConsulta.Locate('TX_NOME', + clb_usuariosprov.Items[i], []); + if dtmSystem.tblUsuariosConsultaID_GRUPO.AsString = id_helper then + begin + if clb_usuariosprov.Checked[i] = false then + begin + clb_usuariosprov.Checked[i] := true; + end + else + begin + clb_usuariosprov.Checked[i] := false; + end; + end; + + if (clb_usuariosprov.Checked[i] = false) and (i > 0) then + begin + cont_helper := cont_helper + 1 + end; + if (clb_usuariosprov.Checked[i] = true) and (i > 0) then + begin + cont_helper2 := cont_helper2 + 1 + end; + + end; + + if cont_helper = clb_usuariosprov.Items.Count - 1 then + begin + clb_usuariosprov.Checked[0] := false; + end; + if cont_helper2 = clb_usuariosprov.Items.Count - 1 then + begin + clb_usuariosprov.Checked[0] := true; + end; + end; + if controller_name = 'clb_usuariosagenda' then + begin + for i := 1 to clb_usuariosagenda.Items.Count - 1 do + begin + dtmSystem.tblUsuariosConsulta.Locate('TX_NOME', + clb_usuariosagenda.Items[i], []); + if dtmSystem.tblUsuariosConsultaID_GRUPO.AsString = id_helper then + begin + if clb_usuariosagenda.Checked[i] = false then + begin + clb_usuariosagenda.Checked[i] := true; + end + else + begin + clb_usuariosagenda.Checked[i] := false; + end; + end; + + if (clb_usuariosagenda.Checked[i] = false) and (i > 0) then + begin + cont_helper := cont_helper + 1 + end; + if (clb_usuariosagenda.Checked[i] = true) and (i > 0) then + begin + cont_helper2 := cont_helper2 + 1 + end; + + end; + + if cont_helper = clb_usuariosagenda.Items.Count - 1 then + begin + clb_usuariosagenda.Checked[0] := false; + end; + if cont_helper2 = clb_usuariosagenda.Items.Count - 1 then + begin + clb_usuariosagenda.Checked[0] := true; + end; + end; + +end; + +procedure TfrmCentralPlanilhamento.marca_todos(clb: TCheckListBox); +var + i, j: Integer; +begin + + with clb do + begin + if Checked[ItemIndex] then + begin + Items.beginupdate; + // marcou o marca todos, marca todos + for i := 0 to Items.Count - 1 do + begin + if (ItemIndex = 0) and (Checked[i] = true) then + begin + for j := 1 to Items.Count - 1 do + begin + Checked[j] := true; + end; + end; + Items.EndUpdate; + end; + end + else + begin + Items.beginupdate; + for i := 0 to Items.Count - 1 do + // desmarcou o marca todos, desmarca todos + begin + if (ItemIndex = 0) and (Checked[i] = false) then + begin + for j := 1 to Items.Count - 1 do + begin + Checked[j] := false; + end; + end; + Items.EndUpdate; + end; + end; + end; +end; + +procedure TfrmCentralPlanilhamento.rg_agendamentoClick(Sender: TObject); +begin + if rg_agendamento.ItemIndex = 2 then + begin + dtp_agendcomeco.Enabled := true; + dtp_agendfim.Enabled := true; + end + else + begin + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + end; +end; + +procedure TfrmCentralPlanilhamento.rg_tptelClick(Sender: TObject); +begin + inherited; + if rg_tptel.ItemIndex = 1 then + begin + rg_sms.Enabled := true; + end + else + begin + rg_sms.Enabled := false; + end; +end; + +end. + + + diff --git a/ufrmCharge.dfm b/ufrmCharge.dfm new file mode 100644 index 0000000..f2ea222 --- /dev/null +++ b/ufrmCharge.dfm @@ -0,0 +1,120 @@ +object frmCharge: TfrmCharge + Left = 0 + Top = 0 + Caption = 'Charge' + ClientHeight = 387 + ClientWidth = 824 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + Menu = MainMenu + OldCreateOrder = False + Position = poScreenCenter + WindowState = wsMaximized + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object StatusBar: TStatusBar + Left = 0 + Top = 368 + Width = 824 + Height = 19 + Panels = < + item + Width = 200 + end + item + Width = 500 + end + item + Width = 50 + end> + end + object DBImage: TDBImage + Left = 0 + Top = 73 + Width = 824 + Height = 295 + Margins.Left = 0 + Margins.Top = 0 + Margins.Right = 0 + Margins.Bottom = 0 + Align = alClient + BorderStyle = bsNone + DataField = 'BL_LOGOMARCA' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 1 + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 824 + Height = 73 + ButtonHeight = 70 + Caption = 'ToolBar1' + TabOrder = 2 + object SpeedButton2: TSpeedButton + Left = 0 + Top = 0 + Width = 70 + Height = 70 + end + object SpeedButton1: TSpeedButton + Left = 70 + Top = 0 + Width = 70 + Height = 70 + end + end + object MainMenu: TMainMenu + Left = 16 + Top = 80 + object Cadastro1: TMenuItem + Caption = 'Cadastro' + object Grupos1: TMenuItem + Caption = 'Grupos' + OnClick = Grupos1Click + end + object Usuarios1: TMenuItem + Caption = 'Usu'#225'rios' + OnClick = Usuarios1Click + end + object N2: TMenuItem + Caption = '-' + end + object Empresa1: TMenuItem + Caption = 'Empresa' + OnClick = Empresa1Click + end + object EstadoseCidades1: TMenuItem + Caption = 'Estados e Cidades' + OnClick = EstadoseCidades1Click + end + object N1: TMenuItem + Caption = '-' + end + object Sair1: TMenuItem + Caption = 'Sair' + OnClick = Sair1Click + end + end + object Movimento1: TMenuItem + Caption = 'Movimento' + end + object Relatrios1: TMenuItem + Caption = 'Relat'#243'rios' + end + object Ajuda1: TMenuItem + Caption = 'Ajuda' + end + end + object tmrLogin: TTimer + OnTimer = tmrLoginTimer + Left = 64 + Top = 80 + end +end diff --git a/ufrmCharge.pas b/ufrmCharge.pas new file mode 100644 index 0000000..9acfb4f --- /dev/null +++ b/ufrmCharge.pas @@ -0,0 +1,107 @@ +unit ufrmCharge; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.Menus, Vcl.Buttons, + Vcl.ToolWin, Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids, Vcl.DBCtrls, + Vcl.StdCtrls, Vcl.Imaging.jpeg, Vcl.XPMan; + +type + TfrmCharge = class(TForm) + MainMenu: TMainMenu; + Cadastro1: TMenuItem; + StatusBar: TStatusBar; + Movimento1: TMenuItem; + Relatrios1: TMenuItem; + Ajuda1: TMenuItem; + Empresa1: TMenuItem; + Usuarios1: TMenuItem; + N1: TMenuItem; + Sair1: TMenuItem; + DBImage: TDBImage; + N2: TMenuItem; + Grupos1: TMenuItem; + EstadoseCidades1: TMenuItem; + SpeedButton1: TSpeedButton; + ToolBar1: TToolBar; + SpeedButton2: TSpeedButton; + tmrLogin: TTimer; + procedure Sair1Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure Grupos1Click(Sender: TObject); + procedure Empresa1Click(Sender: TObject); + procedure EstadoseCidades1Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure tmrLoginTimer(Sender: TObject); + procedure Usuarios1Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmCharge: TfrmCharge; + +implementation + +{$R *.dfm} + +uses udtmSystem, ucadGrupos, ucadEmpresa, ucadLocalidades, ufrmlogin, + ucadUsuarios; + +procedure TfrmCharge.Empresa1Click(Sender: TObject); +begin + TcadEmpresa.Create(Self).ShowModal; + FormCreate(Self); +end; + +procedure TfrmCharge.EstadoseCidades1Click(Sender: TObject); +begin + TcadLocalidades.Create(Self).ShowModal; +end; + +procedure TfrmCharge.FormCreate(Sender: TObject); +begin + dtmSystem.tblEmpresa.Open; + Caption := 'Charge - '+dtmSystem.tblEmpresaTX_NOME.AsString; + StatusBar.Panels[1].Text := 'Dados: '+dtmSystem.ZConnection.Database; +end; + +procedure TfrmCharge.FormShow(Sender: TObject); +begin + tmrLogin.Enabled := True; +end; + +procedure TfrmCharge.Grupos1Click(Sender: TObject); +begin + TcadGrupos.Create(Self).Show; +end; + +procedure TfrmCharge.Sair1Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmCharge.tmrLoginTimer(Sender: TObject); +begin + tmrLogin.Enabled := False; + + with TfrmLogin.Create(Self) do + begin + ShowModal; + if ModalResult <> mrOk then Self.Close; + end; + + StatusBar.Panels[0].Text := 'Usurio: '+dtmSystem.tx_usuario; + +end; + +procedure TfrmCharge.Usuarios1Click(Sender: TObject); +begin + TcadUsuarios.Create(Self).ShowModal; +end; + +end. diff --git a/ufrmCheckAdmin.dfm b/ufrmCheckAdmin.dfm new file mode 100644 index 0000000..05e4cf7 --- /dev/null +++ b/ufrmCheckAdmin.dfm @@ -0,0 +1,108 @@ +object frmCheckAdmin: TfrmCheckAdmin + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + Caption = 'T'#233'rmino de Sess'#227'o' + ClientHeight = 143 + ClientWidth = 230 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + Position = poScreenCenter + OnCanResize = FormCanResize + OnClose = FormClose + OnKeyDown = FormKeyDown + OnKeyPress = FormKeyPress + PixelsPerInch = 96 + TextHeight = 13 + object lbl_user: TLabel + Left = 32 + Top = 24 + Width = 39 + Height = 13 + Caption = 'Usu'#225'rio:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_password: TLabel + Left = 32 + Top = 56 + Width = 34 + Height = 13 + Caption = 'Senha:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object edt_user: TEdit + Left = 78 + Top = 21 + Width = 121 + Height = 21 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + object edt_password: TEdit + Left = 78 + Top = 53 + Width = 121 + Height = 21 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + PasswordChar = '*' + TabOrder = 1 + end + object btn_ok: TButton + Left = 16 + Top = 104 + Width = 75 + Height = 25 + Caption = 'Ok' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ModalResult = 1 + ParentFont = False + TabOrder = 2 + OnClick = btn_okClick + end + object btn_cancel: TButton + Left = 137 + Top = 104 + Width = 75 + Height = 25 + Caption = 'Cancelar' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ModalResult = 2 + ParentFont = False + TabOrder = 3 + OnClick = btn_cancelClick + end +end diff --git a/ufrmCheckAdmin.pas b/ufrmCheckAdmin.pas new file mode 100644 index 0000000..0095f3f --- /dev/null +++ b/ufrmCheckAdmin.pas @@ -0,0 +1,144 @@ +unit ufrmCheckAdmin; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; + +type + TfrmCheckAdmin = class(TForm) + lbl_user: TLabel; + edt_user: TEdit; + lbl_password: TLabel; + edt_password: TEdit; + btn_ok: TButton; + btn_cancel: TButton; + procedure btn_cancelClick(Sender: TObject); + procedure btn_okClick(Sender: TObject); + procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; + var Resize: Boolean); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormKeyPress(Sender: TObject; var Key: Char); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + private + procedure WMMoving(var MSG: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmCheckAdmin: TfrmCheckAdmin; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmCheckAdmin.btn_cancelClick(Sender: TObject); +begin + if (MessageDlg + ('Deseja realmente cancelar o trmino de sesso? Se sim o programa ser terminado.', + mtcustom, [mbok, mbcancel], 0)) = mrCancel then + begin + Abort; + end; + Close; +end; + +procedure TfrmCheckAdmin.btn_okClick(Sender: TObject); +begin + with dtmsystem do + begin + if ((not tblUsuarios.Locate('TX_USUARIO', AnsiUpperCase(edt_user.Text), [])) + and (not tblUsuarios.Locate('TX_USUARIO', AnsiLowerCase(edt_user.Text), + [])) and (not tblUsuarios.Locate('TX_USUARIO', edt_user.Text, []))) then + begin + MessageDlg + ('Usurio e/ou Senha Inexistente/Incorreto. O programa ir finalizar agora.', + mtWarning, [mbok], 0); + frmCheckAdmin.ModalResult := mrCancel; + end + else + begin + if tblUsuariosID_GRUPO.AsInteger <> 1 then + begin + MessageDlg + ('Este Usurio no possi privilgios de administrador. O programa ir finalizar agora.', + mtWarning, [mbok], 0); + frmCheckAdmin.ModalResult := mrCancel; + end + else + begin + if AnsiUpperCase(edt_password.Text) <> + AnsiUpperCase(tblUsuariosTX_SENHA.AsString) then + begin + MessageDlg + ('Usurio e/ou Senha Inexistente/Incorreto. O programa ir finalizar agora.', + mtWarning, [mbok], 0); + frmCheckAdmin.ModalResult := mrCancel; + end; + end; + end; + end; +end; + +procedure TfrmCheckAdmin.FormCanResize(Sender: TObject; + var NewWidth, NewHeight: Integer; var Resize: Boolean); +begin + Resize := false; +end; + +procedure TfrmCheckAdmin.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmCheckAdmin.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin +if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TfrmCheckAdmin.FormKeyPress(Sender: TObject; var Key: Char); +begin + // faz o enter funcionar como 'tab' + if (Key = #13) then + begin + SelectNext(ActiveControl as TWinControl, true, true); + Key := #0; + end; + +end; + +procedure TfrmCheckAdmin.WMMoving(var MSG: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with MSG.DragRect^ do + begin + if left < workArea.left then + OffsetRect(MSG.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(MSG.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(MSG.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(MSG.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmCobranca.dfm b/ufrmCobranca.dfm new file mode 100644 index 0000000..b5db848 --- /dev/null +++ b/ufrmCobranca.dfm @@ -0,0 +1,358 @@ +object frmCobranca: TfrmCobranca + Left = 0 + Top = 0 + BorderStyle = bsSingle + Caption = 'Cobran'#231'a' + ClientHeight = 497 + ClientWidth = 799 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyPreview = True + Menu = mnu_main + OldCreateOrder = False + Position = poScreenCenter + Scaled = False + WindowState = wsMaximized + OnCanResize = FormCanResize + OnClose = FormClose + OnCreate = FormCreate + OnKeyDown = FormKeyDown + OnKeyPress = FormKeyPress + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object pnl_principal: TPanel + Left = 0 + Top = 0 + Width = 799 + Height = 478 + Align = alClient + Color = clBtnHighlight + ParentBackground = False + TabOrder = 0 + object pnl_alertaagenda: TPanel + Left = 1 + Top = 456 + Width = 797 + Height = 21 + Align = alBottom + BevelOuter = bvNone + Caption = 'H'#225' um devedor na sua agenda a ser cobrado.' + Color = clYellow + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentBackground = False + ParentFont = False + TabOrder = 0 + Visible = False + end + object memo_update: TMemo + Left = 632 + Top = 0 + Width = 166 + Height = 57 + Color = clSkyBlue + Lines.Strings = ( + 'Sua vers'#227'o encontra-se ' + 'desatualizada. Por favor reinicie o ' + 'programa.') + ReadOnly = True + TabOrder = 1 + Visible = False + end + end + object stsbar: TStatusBar + Left = 0 + Top = 478 + Width = 799 + Height = 19 + Panels = < + item + Width = 125 + end + item + Width = 200 + end + item + Width = 500 + end + item + Width = 100 + end + item + Style = psOwnerDraw + Width = 60 + end> + StyleElements = [] + OnDblClick = stsbarDblClick + OnDrawPanel = stsbarDrawPanel + end + object tmr_login: TTimer + Interval = 1 + OnTimer = tmr_loginTimer + Left = 16 + Top = 8 + end + object mnu_main: TMainMenu + Left = 72 + Top = 8 + object mnu_login: TMenuItem + Caption = 'Login' + object mnu_altlogin: TMenuItem + Caption = 'Alterar Login' + OnClick = mnu_altloginClick + end + end + object mnuFerramentas: TMenuItem + Caption = 'Ferramentas' + object mnuCobrancaTel: TMenuItem + Caption = 'Cobran'#231'a Telef'#244'nica' + OnClick = mnuCobrancaTelClick + end + object mnuPesquisa: TMenuItem + Caption = 'Pesquisa de Devedores' + OnClick = mnuPesquisaClick + end + object mnuAgenda: TMenuItem + Caption = 'Agenda' + OnClick = mnuAgendaClick + end + object N2: TMenuItem + Caption = '-' + end + object mnuAtendimento: TMenuItem + Caption = 'Atendimento' + OnClick = mnuAtendimentoClick + end + object N8: TMenuItem + Caption = '-' + end + object mnuGerCampanha: TMenuItem + Caption = 'Gerenciamento de Campanhas' + OnClick = mnuGerCampanhaClick + end + object mnuAgendamento: TMenuItem + Caption = 'Central de Agendamento' + OnClick = mnuAgendamentoClick + end + object mnuMandaEmail: TMenuItem + Caption = 'Envio de Mensagens' + OnClick = mnuMandaEmailClick + end + object mnuRankings: TMenuItem + Caption = 'Rankings' + OnClick = mnuRankingsClick + end + object ImportaodeDevedores1: TMenuItem + Caption = 'Importa'#231#227'o de Devedores' + OnClick = ImportaodeDevedores1Click + end + object N5: TMenuItem + Caption = '-' + end + object mnuDigito9: TMenuItem + Caption = 'Corre'#231#227'o do D'#237'gito 9' + Visible = False + OnClick = mnuDigito9Click + end + object N7: TMenuItem + Caption = '-' + Visible = False + end + object mnuImptcc: TMenuItem + Caption = 'Importa'#231#227'o TCC' + Visible = False + OnClick = mnuImptccClick + end + object mnuCentralPlanilhamento: TMenuItem + Caption = 'Central de Planilhamento' + OnClick = mnuCentralPlanilhamentoClick + end + object mnuRemessa: TMenuItem + Caption = 'Arquivos de Remessa (Banpara)' + OnClick = mnuRemessaClick + end + object mnuVerrecibos: TMenuItem + Caption = 'Visualiza'#231#227'o de Recibos' + OnClick = mnuVerrecibosClick + end + object N9: TMenuItem + Caption = '-' + end + object mnuBoletos: TMenuItem + Caption = 'Central de Boletos' + OnClick = mnuBoletosClick + end + end + object mnuCadastros: TMenuItem + Caption = 'Cadastros' + object mnuDevedores: TMenuItem + Caption = 'Devedores' + OnClick = mnuDevedoresClick + end + object mnuCredores: TMenuItem + Caption = 'Credores' + OnClick = mnuCredoresClick + end + object mnuUsuarios: TMenuItem + Caption = 'Permiss'#245'es, Grupos e Usu'#225'rios' + OnClick = mnuUsuariosClick + end + object mnuProvidencias: TMenuItem + Caption = 'Provid'#234'ncias' + OnClick = mnuProvidenciasClick + end + object Departamentos1: TMenuItem + Caption = 'Departamentos' + OnClick = Departamentos1Click + end + object mnuContas: TMenuItem + Caption = 'Contas' + OnClick = mnuContasClick + end + object N1: TMenuItem + Caption = '-' + end + object mnuEmpresa: TMenuItem + Caption = 'Empresa' + OnClick = mnuEmpresaClick + end + object N6: TMenuItem + Caption = '-' + end + object mnuTxtEmail: TMenuItem + Caption = 'Texto das Mensagens' + OnClick = mnuTxtEmailClick + end + end + object mnuRelatorios: TMenuItem + Caption = 'Relat'#243'rios' + object mnuEntrada: TMenuItem + Caption = 'Entrada de Devedores' + OnClick = mnuEntradaClick + end + object mnuPrestacaoContas: TMenuItem + Caption = 'Presta'#231#227'o de Contas' + OnClick = mnuPrestacaoContasClick + end + object mnu_RecibosEmitidos: TMenuItem + Caption = 'Recibos Emitidos' + OnClick = mnu_RecibosEmitidosClick + end + object PrestaodeContasTCC1: TMenuItem + Caption = 'Presta'#231#227'o de Contas TCC' + Visible = False + OnClick = PrestaodeContasTCC1Click + end + object RelatriodeGerncia1: TMenuItem + Caption = 'Relat'#243'rio de Ger'#234'ncia' + OnClick = RelatriodeGerncia1Click + end + object mnuRelAcordos: TMenuItem + Caption = 'Relat'#243'rio de Acordos' + OnClick = mnuRelAcordosClick + end + end + object mnuOpcoes: TMenuItem + Caption = 'Op'#231#245'es' + object mnuIndices: TMenuItem + Caption = #205'ndices de Cobran'#231'a' + OnClick = mnuIndicesClick + end + object mnuModeloRepasse: TMenuItem + Caption = 'Modelos de Repasse' + OnClick = mnuModeloRepasseClick + end + object mnuBancoDados: TMenuItem + Caption = 'Banco de Dados' + Visible = False + object mnuBackup: TMenuItem + Caption = 'Backup' + end + object mnuRestaurar: TMenuItem + Caption = 'Restaurar' + OnClick = mnuRestaurarClick + end + end + object N3: TMenuItem + Caption = '-' + end + object mnuConfLayout: TMenuItem + Caption = 'Configura'#231#227'o de Layout de Importa'#231#227'o' + OnClick = mnuConfLayoutClick + end + object ConfiguraodoPopUpdeInicializao1: TMenuItem + Caption = 'Configura'#231#227'o do Pop Up de Inicializa'#231#227'o' + OnClick = ConfiguraodoPopUpdeInicializao1Click + end + object N4: TMenuItem + Caption = '-' + end + object mnuEnvBancoOnline: TMenuItem + Caption = 'Enviar Banco online' + OnClick = mnuEnvBancoOnlineClick + end + end + object mnu_ajuda: TMenuItem + Caption = 'Ajuda' + end + object Visualizar1: TMenuItem + Caption = 'Visualizar' + object Agenda1: TMenuItem + Caption = 'Agenda' + OnClick = Agenda1Click + end + object mnuRecibos: TMenuItem + Caption = 'Recibos' + OnClick = mnuRecibosClick + end + object mnuLog: TMenuItem + Caption = 'Log' + OnClick = mnuLogClick + end + end + end + object timer_display: TTimer + Enabled = False + Interval = 1 + OnTimer = timer_displayTimer + Left = 16 + Top = 64 + end + object dtsAgenda: TDataSource + DataSet = queryagenda + Left = 136 + Top = 64 + end + object queryagenda: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 72 + Top = 64 + end + object tmr_sessao: TTimer + Enabled = False + OnTimer = tmr_sessaoTimer + Left = 136 + Top = 8 + end + object tmr_update: TTimer + Enabled = False + Interval = 300000 + OnTimer = tmr_updateTimer + Left = 680 + Top = 64 + end + object appEvents: TApplicationEvents + OnException = appEventsException + Left = 216 + Top = 8 + end +end diff --git a/ufrmCobranca.pas b/ufrmCobranca.pas new file mode 100644 index 0000000..b78f6df --- /dev/null +++ b/ufrmCobranca.pas @@ -0,0 +1,2105 @@ +unit ufrmCobranca; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.UITypes, Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, + Vcl.Menus, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Controls, + System.Classes, Vcl.Graphics, Vcl.Forms, Vcl.Dialogs, System.Math, + Vcl.Grids, Vcl.DBGrids, IniFiles, RLPreview, RLPreviewForm, DateUtils, + FireDAC.Stan.Def, FireDAC.Phys.IBWrapper, FireDAC.Phys.FBDef, + FireDAC.UI.Intf, FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Phys, + System.StrUtils, + FireDAC.Phys.IBBase, FireDAC.Phys.FB, FireDAC.Stan.Intf, Datasnap.DBClient, + Vcl.DBCtrls, Vcl.AppEvnts; + +type + TfrmCobranca = class(TForm) + tmr_login: TTimer; + mnu_main: TMainMenu; + mnuCadastros: TMenuItem; + mnuCredores: TMenuItem; + mnuUsuarios: TMenuItem; + mnuOpcoes: TMenuItem; + mnu_ajuda: TMenuItem; + mnu_login: TMenuItem; + mnu_altlogin: TMenuItem; + pnl_principal: TPanel; + N1: TMenuItem; + mnuEmpresa: TMenuItem; + mnuDevedores: TMenuItem; + stsbar: TStatusBar; + mnuProvidencias: TMenuItem; + mnuFerramentas: TMenuItem; + mnuCobrancaTel: TMenuItem; + mnuPesquisa: TMenuItem; + mnuGerCampanha: TMenuItem; + timer_display: TTimer; + dtsAgenda: TDataSource; + queryagenda: TZQuery; + Visualizar1: TMenuItem; + Agenda1: TMenuItem; + mnuAtendimento: TMenuItem; + N2: TMenuItem; + mnuIndices: TMenuItem; + mnuRelatorios: TMenuItem; + mnuEntrada: TMenuItem; + mnuModeloRepasse: TMenuItem; + mnuPrestacaoContas: TMenuItem; + mnuAgendamento: TMenuItem; + tmr_sessao: TTimer; + mnu_RecibosEmitidos: TMenuItem; + mnuBancoDados: TMenuItem; + N3: TMenuItem; + mnuConfLayout: TMenuItem; + mnuRecibos: TMenuItem; + mnuBackup: TMenuItem; + mnuRestaurar: TMenuItem; + N4: TMenuItem; + mnuEnvBancoOnline: TMenuItem; + N5: TMenuItem; + mnuDigito9: TMenuItem; + N6: TMenuItem; + mnuTxtEmail: TMenuItem; + pnl_alertaagenda: TPanel; + mnuMandaEmail: TMenuItem; + ConfiguraodoPopUpdeInicializao1: TMenuItem; + N7: TMenuItem; + mnuImptcc: TMenuItem; + mnuCentralPlanilhamento: TMenuItem; + PrestaodeContasTCC1: TMenuItem; + mnuAgenda: TMenuItem; + N8: TMenuItem; + mnuVerrecibos: TMenuItem; + mnuRankings: TMenuItem; + RelatriodeGerncia1: TMenuItem; + Departamentos1: TMenuItem; + mnuLog: TMenuItem; + mnuRelAcordos: TMenuItem; + N9: TMenuItem; + mnuBoletos: TMenuItem; + memo_update: TMemo; + tmr_update: TTimer; + ImportaodeDevedores1: TMenuItem; + mnuContas: TMenuItem; + mnuRemessa: TMenuItem; + appEvents: TApplicationEvents; + procedure tmr_loginTimer(Sender: TObject); + procedure mnu_altloginClick(Sender: TObject); + procedure mnuCredoresClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure mnuEmpresaClick(Sender: TObject); + procedure mnuUsuariosClick(Sender: TObject); + procedure mnuDevedoresClick(Sender: TObject); + procedure mnuProvidenciasClick(Sender: TObject); + procedure mnuCobrancaTelClick(Sender: TObject); + procedure mnuPesquisaClick(Sender: TObject); + procedure mnuGerCampanhaClick(Sender: TObject); + procedure stsbarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; + const Rect: TRect); + procedure timer_displayTimer(Sender: TObject); + procedure Agenda1Click(Sender: TObject); + procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); + procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Panel2MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure mnuAtendimentoClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure mnuIndicesClick(Sender: TObject); + procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; + var Resize: Boolean); + procedure FormShow(Sender: TObject); + procedure mnuEntradaClick(Sender: TObject); + procedure mnuModeloRepasseClick(Sender: TObject); + procedure mnuPrestacaoContasClick(Sender: TObject); + procedure stsbarDblClick(Sender: TObject); + procedure mnuAgendamentoClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure tmr_sessaoTimer(Sender: TObject); + procedure mnu_RecibosEmitidosClick(Sender: TObject); + procedure mnuContasClick(Sender: TObject); + procedure mnuConfLayoutClick(Sender: TObject); + procedure mnuRecibosClick(Sender: TObject); + procedure mnuRestaurarClick(Sender: TObject); + procedure mnuEnvBancoOnlineClick(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure mnuDigito9Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure mnuTxtEmailClick(Sender: TObject); + procedure mnuMandaEmailClick(Sender: TObject); + procedure ConfiguraodoPopUpdeInicializao1Click(Sender: TObject); + procedure FormKeyPress(Sender: TObject; var Key: Char); + procedure mnuImptccClick(Sender: TObject); + procedure mnuCentralPlanilhamentoClick(Sender: TObject); + procedure PrestaodeContasTCC1Click(Sender: TObject); + procedure mnuAgendaClick(Sender: TObject); + procedure mnuVerrecibosClick(Sender: TObject); + procedure mnuRankingsClick(Sender: TObject); + procedure RelatriodeGerncia1Click(Sender: TObject); + procedure Departamentos1Click(Sender: TObject); + procedure mnuLogClick(Sender: TObject); + procedure mnuRelAcordosClick(Sender: TObject); + procedure mnuBoletosClick(Sender: TObject); + procedure tmr_updateTimer(Sender: TObject); + procedure ImportaodeDevedores1Click(Sender: TObject); + procedure mnuRemessaClick(Sender: TObject); + procedure appEventsException(Sender: TObject; E: Exception); + private + FValidKeyCombo: Boolean; + procedure ChecaPermissoes; + { Private declarations } + public + { Public declarations } + acesso: Boolean; + dia_atrasado, tempo_atrasado, eh_hoje: Boolean; + quanto_faltat: TTime; + MouseDownSpot: TPoint; + Capturing: bool; + after_show: Boolean; + campanha: Integer; + pesquisa_camp: Boolean; + importar: Boolean; + procedure fecharformsabertas(name_form: string); + procedure atualizaagenda(); + + end; + +var + frmCobranca: TfrmCobranca; + +implementation + +{$R *.dfm} + +uses + ufrmLogin, udtmSystem, ucadCredor, ucadEmpresa, + ucadUsuarios, ucadDevedores, ufrmVerIE, ufrmProgressEC, ucadProvidencias, + ufrmEfetuarCobranca, ufrmCampanha, ufrmPesquisa, + ufrmEscolheCampanha, urelRecibo, ufrmAgenda, ufrmAtendimento, ucadIndices, + uconfrelBordero, ucadModeloRepasse, uconfrelPrestacaoContas, ufrmAgendamento, + uconfrelRecibosEmitidos, urelTeste, ucadContas, uconfLayouts, ufrmAchaRecibo, + ufrmLiberaPermissao, ufrmDigito9, ucadTextEmail, ufrmMandaMensagem, ufrmPopUp, + urelHistorico, ufrmCentralPlanilhamento, + ufrmRankings, uimpDevedores, urelRelacaoAcordo, urelPrestacaoAnaSin, + uconfRelGerencia, ufrmDepartamentos, ufrmLogActions, uconfrelAcordos, + ufrmCentralBoletos, ufrmRemessa; + +procedure TfrmCobranca.FormCanResize(Sender: TObject; + var NewWidth, NewHeight: Integer; var Resize: Boolean); +begin + // mtodo para impedir que a form seja redimensionada + if after_show then + begin + Resize := false; + end + else + begin + Resize := true; + end; + +end; + +procedure TfrmCobranca.FormClose(Sender: TObject; var Action: TCloseAction); +begin + // parte do mtodo pra verificar a sesso do usurio + // aqui a sesso dele terminada se o programa foi fechado corretamente + // desabilitada a pedido da Bruna + // with dtmSystem do + // begin + // tblLogins.Open; + // tblLogins.Filter := 'ID_USUARIO = ' + inttostr(id_usuario); + // tblLogins.Filtered := true; + // tblLogins.Last; + // tblLogins.Edit; + // tblLoginsDT_LOGOFF.AsDateTime := Date; + // tblLoginsHR_LOGOFF.AsDateTime := now; + // tblLogins.Post; + // tblLogins.Filter := ''; + // tblLogins.Filtered := false; + // tblLogins.Close; + // if not tblSessao.Active then + // begin + // tblSessao.Open; + // end; + // if tblSessao.Locate('ID_USUARIO', id_usuario, []) then + // begin + // tblSessao.Delete; + // tblSessao.Close; + // end; + // end; + // dtmSystem.LogaDC('mandou fechar programa ' + inttostr(dtmSystem.id_usuario)); + // Application.Terminate; +end; + +procedure TfrmCobranca.FormCreate(Sender: TObject); +var + logo: TImage; + // hoje: string; +begin + // pnl_principal.visible := false; + // Faz com que a janela ocupe a tela inteira + Width := Screen.WorkAreaWidth; + Height := Screen.WorkAreaHeight; + BoundsRect := Screen.WorkAreaRect; + + dtmSystem.mostrar_senha := false; + after_show := false; + + stsbar.Panels[3].Width := stsbar.Width - stsbar.Panels[0].Width - + stsbar.Panels[1].Width - stsbar.Panels[2].Width - 150; + // Carrega o logo do programa + try + logo := TImage.Create(pnl_principal); + logo.Parent := pnl_principal; + logo.Picture.LoadFromFile(ExtractFileDir(Application.ExeName) + + '\nexverse-logo.jpg'); + logo.Height := logo.Picture.Height; + logo.Width := logo.Picture.Width; + logo.Top := Round((logo.Parent.Height / 2) - (logo.Height / 2)); + logo.Left := Round((logo.Parent.Width / 2) - (logo.Width / 2)); + logo.Visible := true; + except + end; + // inicializa o histrico da pesquisa + dtmSystem.cdsHist.Close; + dtmSystem.cdsHist.CreateDataSet; + dtmSystem.tblDepartamentos.Open; + dtmSystem.tx_formulario := TForm(Sender).Caption; + importar := false; + +end; + +procedure TfrmCobranca.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +// var +// i: Integer; +begin + // mtodo para dar permisses "on the fly" + if (Key = 75) and (Shift = [ssCtrl]) then + begin + frmLiberaPermissao := TfrmLiberaPermissao.Create(self); + + with frmLiberaPermissao do + begin + level := 0; + string_permissoes.Add('CBR.01'); + string_permissoes.Add('CBR.01.01'); + string_permissoes.Add('CBR.01.02'); + string_permissoes.Add('CBR.01.03'); + string_permissoes.Add('CBR.01.04'); + string_permissoes.Add('CBR.01.05'); + string_permissoes.Add('CBR.01.06'); + string_permissoes.Add('CBR.01.07'); + string_permissoes.Add('CBR.01.08'); + string_permissoes.Add('CBR.01.09'); + string_permissoes.Add('CBR.01.10'); + string_permissoes.Add('CBR.01.11'); + + string_permissoes.Add('CBR.02'); + string_permissoes.Add('CBR.02.01'); + string_permissoes.Add('CBR.02.02'); + string_permissoes.Add('CBR.02.03'); + string_permissoes.Add('CBR.02.04'); + string_permissoes.Add('CBR.02.05'); + string_permissoes.Add('CBR.02.06'); + string_permissoes.Add('CBR.02.07'); + + string_permissoes.Add('CBR.03'); + string_permissoes.Add('CBR.03.01'); + string_permissoes.Add('CBR.03.02'); + string_permissoes.Add('CBR.03.03'); + string_permissoes.Add('CBR.03.04'); + + string_permissoes.Add('CBR.04'); + string_permissoes.Add('CBR.04.01'); + string_permissoes.Add('CBR.04.02'); + string_permissoes.Add('CBR.04.03.01'); + string_permissoes.Add('CBR.04.03.02'); + string_permissoes.Add('CBR.04.04'); + string_permissoes.Add('CBR.04.05'); + string_permissoes.Add('CBR.04.06'); + + ShowModal; + + if ModalResult = mrOk then + begin + case dtmSystem.cod_liberapermissao of + 0: + mnuFerramentas.Visible := true; + 1: + begin + mnuFerramentas.Visible := true; + mnuCobrancaTel.Visible := true; + end; + + 2: + begin + mnuFerramentas.Visible := true; + mnuPesquisa.Visible := true; + end; + 3: + begin + mnuFerramentas.Visible := true; + mnuAtendimento.Visible := true; + end; + 4: + begin + mnuFerramentas.Visible := true; + mnuGerCampanha.Visible := true; + end; + 5: + begin + mnuFerramentas.Visible := true; + mnuAgendamento.Visible := true; + end; + 6: + begin + mnuFerramentas.Visible := true; + mnuMandaEmail.Visible := true; + end; + 7: + begin + mnuFerramentas.Visible := true; + mnuDigito9.Visible := true; + end; + 8: + begin + mnuFerramentas.Visible := true; + mnuImptcc.Visible := true; + end; + 9: + begin + mnuFerramentas.Visible := true; + mnuCentralPlanilhamento.Visible := true; + end; + 10: + begin + mnuFerramentas.Visible := true; + mnuVerrecibos.Visible := true; + end; + 11: + begin + mnuFerramentas.Visible := true; + mnuRankings.Visible := true; + end; + 12: + mnuCadastros.Visible := true; + 13: + begin + mnuCadastros.Visible := true; + mnuDevedores.Visible := true; + end; + 14: + begin + mnuCadastros.Visible := true; + mnuCredores.Visible := true; + end; + 15: + begin + mnuCadastros.Visible := true; + mnuUsuarios.Visible := true; + end; + 16: + begin + mnuCadastros.Visible := true; + mnuProvidencias.Visible := true; + end; + 17: + begin + mnuCadastros.Visible := true; + mnuEmpresa.Visible := true; + end; + 18: + begin + // mnuCadastros.Visible := true; + // mnuContas.Visible := true; + end; + 19: + begin + mnuCadastros.Visible := true; + mnuTxtEmail.Visible := true; + end; + 20: + mnuRelatorios.Visible := true; + 21: + begin + mnuRelatorios.Visible := true; + mnuEntrada.Visible := true; + end; + 22: + begin + mnuRelatorios.Visible := true; + mnuPrestacaoContas.Visible := true; + end; + 23: + begin + mnuRelatorios.Visible := true; + mnu_RecibosEmitidos.Visible := true; + end; + 24: + begin + mnuRelatorios.Visible := true; + // PrestaodeContasTCC1.Visible := true; + end; + 25: + mnuOpcoes.Visible := true; + 26: + begin + mnuOpcoes.Visible := true; + mnuIndices.Visible := true; + end; + 27: + begin + mnuOpcoes.Visible := true; + mnuModeloRepasse.Visible := true; + end; + 28: + begin + mnuOpcoes.Visible := true; + // mnuBancoDados.Visible := true; + mnuBackup.Visible := true; + end; + 29: + begin + mnuOpcoes.Visible := true; + // mnuBancoDados.Visible := true; + mnuRestaurar.Visible := true; + end; + 30: + begin + mnuOpcoes.Visible := true; + mnuConfLayout.Visible := true; + end; + 31: + begin + mnuOpcoes.Visible := true; + ConfiguraodoPopUpdeInicializao1.Visible := true; + end; + end; + end; + end; + { // If (GetKeyState(Ord('Q'))<0) and (GetKeyState(Ord('N'))<0) and (GetKeyState(VK_CONTROL)<0) + // Then ShowMessage('You did it :)'); + // Funo pra facilitar a troca de verso por hora. Rename no executvel pra poder colocar um novo na pasta + if (Key in [82, 78]) then + begin + if (Shift = [ssCtrl]) then + begin + FValidKeyCombo := true; + end; + end; + if FValidKeyCombo and (Shift = [ssCtrl]) then + begin + case Key of + // 82: + // if GetKeyState(78) < 0 then + // begin + // RenameFile('Cobrana.exe', 'Cobrana_old.exe'); + // end; + 78: + if GetKeyState(82) < 0 then + begin + if dtmSystem.id_usuario = 71 then + begin + if FileExists('Cobrana_old.exe') then + begin + i := 1; + while FileExists('Cobrana_old' + inttostr(i) + '.exe') do + begin + Inc(i, 1); + end; + if (i - 1) = 0 then + begin + RenameFile('Cobrana_old.exe', 'Cobrana_old' + inttostr(i) + + '.exe'); + end + else + begin + RenameFile('Cobrana_old' + inttostr(i - 1) + '.exe', + 'Cobrana_old' + inttostr(i) + '.exe'); + end; + end + else + begin + RenameFile('Cobrana.exe', 'Cobrana_old.exe'); + end; + end; + end; + end; + end; + // FValidKeyCombo := ((Shift = [ssCtrl]) and (Key in [82, 77])); + // RenameFile('Cobrana.exe', 'Cobrana_old.exe'); } + + end; +end; + +procedure TfrmCobranca.FormKeyPress(Sender: TObject; var Key: Char); +begin + FValidKeyCombo := false; +end; + +procedure TfrmCobranca.FormShow(Sender: TObject); +begin + // saber que a form j foi mostrada para impedir o redimensionamento + after_show := true; +end; + +procedure TfrmCobranca.ImportaodeDevedores1Click(Sender: TObject); +begin + impDevedores := TimpDevedores.Create(self); + impDevedores.ShowModal; +end; + +procedure TfrmCobranca.mnuAgendaClick(Sender: TObject); +begin + frmAgenda := TfrmAgenda.Create(self); + frmAgenda.Show; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); +end; + +procedure TfrmCobranca.mnuAgendamentoClick(Sender: TObject); +begin + frmAgendamento := TfrmAgendamento.Create(self); + frmAgendamento.ShowModal; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuAgendamento.Visible := dtmSystem.VerificarPermissao('CBR.01.05'); +end; + +procedure TfrmCobranca.mnuAtendimentoClick(Sender: TObject); +begin + + // mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.04'); + + // mnuAtendimento.Visible := dtmSystem.VerificarPermissao('CBR.04.04'); + + // abertura da janela de atendimento + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end; + if dtmSystem.tblDevedores.RecordCount = 0 then + begin + MessageDlg + ('No h devedores cadastrados para que um atendimento possa ser feito.' + + ' No possvel abrir o atendimento.', mtWarning, [mbOK], 0); + end + else + begin + frmAtendimento := TfrmAtendimento.Create(self); + // frmAtendimento.Parent := pnl_principal; + frmAtendimento.ShowModal; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuAtendimento.Visible := dtmSystem.VerificarPermissao('CBR.01.03'); + + end; +end; + +procedure TfrmCobranca.mnuEntradaClick(Sender: TObject); +begin + + // chama janela de config do relatrio de entrada + confrelBordero := TconfrelBordero.Create(self); + confrelBordero.ShowModal; + mnuRelatorios.Visible := dtmSystem.VerificarPermissao('CBR.03'); + mnuEntrada.Visible := dtmSystem.VerificarPermissao('CBR.03.01'); +end; + +procedure TfrmCobranca.mnuEnvBancoOnlineClick(Sender: TObject); +begin + // primeiros testes pro envio do banco online para site de cobrana + // with dtmSystem do + // begin + // try + // JsonBuilderOnline(tblEstados, 'cobranca.estado', 'ID_ESTADO', + // 'http://192.168.0.154:8000/api/cobranca/estados'); + // Except + // + // end; + // end; + mnuOpcoes.Visible := dtmSystem.VerificarPermissao('CBR.04'); + mnuEnvBancoOnline.Visible := dtmSystem.VerificarPermissao('CBR.04.06'); + +end; + +procedure TfrmCobranca.mnuIndicesClick(Sender: TObject); +begin + mnuOpcoes.Visible := dtmSystem.VerificarPermissao('CBR.04'); + mnuIndices.Visible := dtmSystem.VerificarPermissao('CBR.04.01'); + + // chama janela de cadastro de ndices + cadIndices := TcadIndices.Create(self); + cadIndices.ShowModal; +end; + +procedure TfrmCobranca.mnuLogClick(Sender: TObject); +begin + frmLogActions := TfrmLogActions.Create(self); + frmLogActions.ShowModal; +end; + +procedure TfrmCobranca.mnuMandaEmailClick(Sender: TObject); +begin + frmMandaMensagem := TfrmMandaMensagem.Create(self); + frmMandaMensagem.ShowModal; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuMandaEmail.Visible := dtmSystem.VerificarPermissao('CBR.01.06'); +end; + +procedure TfrmCobranca.mnuModeloRepasseClick(Sender: TObject); +begin + mnuOpcoes.Visible := dtmSystem.VerificarPermissao('CBR.04'); + mnuModeloRepasse.Visible := dtmSystem.VerificarPermissao('CBR.04.02'); + // chama a janela de modelos de repasse + cadModeloRepasse := TcadModeloRepasse.Create(self); + cadModeloRepasse.ShowModal; +end; + +procedure TfrmCobranca.mnuPrestacaoContasClick(Sender: TObject); +begin + + // mnuRelatorios.Visible := dtmSystem.VerificarPermissao('CBR.03'); + // mnuPrestacaoContas.Visible := dtmSystem.VerificarPermissao('CBR.03.02'); + + // chama a janela de config do relatrio de prestao de contas + confrelPrestacaoContas := TconfrelPrestacaoContas.Create(self); + confrelPrestacaoContas.ShowModal; + mnuRelatorios.Visible := dtmSystem.VerificarPermissao('CBR.03'); + mnuPrestacaoContas.Visible := dtmSystem.VerificarPermissao('CBR.03.02'); +end; + +procedure TfrmCobranca.mnu_altloginClick(Sender: TObject); +var + hoje: string; +begin + // Alterar o tipo de usurio logado + // tmr_sessao.Enabled := false; + with dtmSystem do + begin + // abre a tabela usurios + if not(tblUsuarios.Active) then + begin + tblUsuarios.Open; + end; + + if tblUsuarios.IsEmpty then + begin + // tmr_sessao.Enabled := true; + exit; // se vazia, sai + end; + // parte do processo de controle de sesso de ususrio + // desabilitado a pedido da Bruna + // with dtmSystem do + // begin + // tblLogins.Open; + // tblLogins.Filter := 'ID_USUARIO = ' + inttostr(id_usuario); + // tblLogins.Filtered := true; + // tblLogins.Last; + // tblLogins.Edit; + // tblLoginsDT_LOGOFF.AsDateTime := Date; + // tblLoginsHR_LOGOFF.AsDateTime := now; + // tblLogins.Post; + // tblLogins.Filter := ''; + // tblLogins.Filtered := false; + // tblLogins.Close; + // if not tblSessao.Active then + // begin + // tblSessao.Open; + // end; + // if tblSessao.Locate('ID_USUARIO', id_usuario, []) then + // begin + // tblSessao.Delete; + // tblSessao.Close; + // end; + // end; + + with TfrmLogin.Create(nil) do + begin + try + ShowModal; // abre a janela login (frmLogin) + finally + Free; + end; + end; + + // abre as tabelas pra ver os acessos + if not tblPermissoes.Active then + begin + tblPermissoes.Open; + end; + if not tblGrupos.Active then + begin + tblGrupos.Open; + end; + if not tblGruposPermissoes.Active then + begin + tblGruposPermissoes.Open; + end; + + if acesso = false then + begin + Application.Terminate; + // se o usurio no teve acesso (qualquer motivo), fecha o programa + end; + + if acesso = true then + begin + // cdigo de tratamento de usurio vem aqui a princpio + stsbar.Panels[0].Text := 'Usurio: ' + dtmSystem.tx_usuario + ' Grupo: ' + + dtmSystem.tx_grupo; + stsbar.Panels[1].Text := 'Ctrl+k para conceder permisses'; + stsbar.Panels[2].Text := 'Banco de dados: ' + + dtmSystem.ZConnection.Database; + stsbar.Panels[3].Text := 'Verso: ' + GetAppVersionStr; + + timer_display.Interval := 1; + hoje := DateToStr(Date); + hoje := RightStr(hoje, 4) + '-' + copy(hoje, 4, 2) + '-' + + LeftStr(hoje, 2); + with dtmSystem.zroqryContatos.SQL do + begin + Clear; + Add('select'); + Add('h.id_cobrador,'); + Add('case when u.tx_nome is not NULL then u.tx_nome when u.tx_nome is NULL then ' + + Quotedstr('Usurio Inexistente') + ' end as NOME,'); + Add('COUNT (DISTINCT h.ID_DEVEDOR) as qtde_acionamentos'); + Add('from chg_historico h'); + Add('left join sys_usuarios u on h.id_cobrador = u.id_usuario'); + Add('where h.id_cobrador in (select id_usuario from sys_usuarios where tp_ativo = ' + + Quotedstr('S') + ')'); + Add('and CAST(h.dt_contato AS DATE) >= ' + Quotedstr(hoje) + ' and'); + Add('CAST(h.dt_contato AS DATE) <= ' + Quotedstr(hoje)); + Add('and h.id_cobrador = ' + inttostr(dtmSystem.id_usuario)); + Add('group by h.id_cobrador, u.tx_nome'); + Add('order by NOME, qtde_acionamentos desc'); + end; + dtmSystem.zroqryContatos.Open; + // verificao de permisso de acessos + + // mnuFerramentas.Visible := VerificarPermissao('CBR.04'); + // mnuCobrancaTel.Visible := VerificarPermissao('CBR.04.01'); + // mnuPesquisa.Visible := VerificarPermissao('CBR.04.02'); + // mnuGerCampanha.Visible := VerificarPermissao('CBR.04.03'); + // mnuAtendimento.Visible := VerificarPermissao('CBR.04.04'); // + // mnuAgendamento.Visible := VerificarPermissao('CBR.04.05'); + + // mnuCadastros.Visible := VerificarPermissao('CBR.02'); + // mnuBeneficiarios.Visible := VerificarPermissao('CBR.02.01'); + // mnuUsuarios.Visible := VerificarPermissao('CBR.02.02'); + // mnuDevedores.Visible := VerificarPermissao('CBR.02.03'); + // mnuReferencias.Visible := VerificarPermissao('CBR.02.04'); + // mnuEmpresa.Visible := VerificarPermissao('CBR.02.05'); + // mnuContas.Visible := VerificarPermissao('CBR.02.06'); + + // mnuRelatorios.Visible := VerificarPermissao('CBR.03'); + // mnuEntrada.Visible := VerificarPermissao('CBR.03.01'); + // mnuPrestacaoContas.Visible := VerificarPermissao('CBR.03.02'); + + // mnuOpcoes.Visible := VerificarPermissao('CBR.01'); + // mnuIndices.Visible := VerificarPermissao('CBR.01.01'); + // mnuModeloRepasse.Visible := VerificarPermissao('CBR.01.02'); + // mnuBancoDados.Visible := VerificarPermissao('CBR.01.03'); + // mnuConfLayout.Visible := VerificarPermissao('CBR.01.04'); + MakePermissoes; + ChecaPermissoes; + perm_caddev := true; + perm_cobtel := true; + atualizaagenda; + + with TIniFile.Create(ExtractFilePath(Application.ExeName) + + 'sistema.ini') do + begin + dtmSystem.public_key := ReadString('cert', 'pub-key', ''); + dtmSystem.private_key := ReadString('cert', 'priv-key', ''); + dtmSystem.certificate_key := ReadString('cert', 'cert-key', ''); + dtmSystem.conta_corrente := ReadString('cert', 'cc', ''); + end; + if (dtmSystem.public_key <> '') and (dtmSystem.id_grupo = 1) then + begin + mnuBoletos.Visible := true; + end + else + begin + mnuBoletos.Visible := false; + end; + // parte do processo de controle e sesso do usurio + // desabilitado a pedido da Bruna + // with dtmSystem do + // begin + // tblLogins.Open; + // tblLogins.Append; + // tblLoginsID_USUARIO.AsInteger := id_usuario; + // tblLoginsDT_LOGIN.AsDateTime := Date; + // tblLoginsHR_LOGIN.AsDateTime := now; + // tblLogins.Post; + // tblLogins.Close; + // if not tblSessao.Active then + // begin + // tblSessao.Open; + // end; + // if not(tblSessao.Locate('ID_USUARIO', id_usuario, [])) then + // begin + // tblSessao.Append; + // tblSessaoID_USUARIO.AsInteger := id_usuario; + // tblSessaoTP_ATIVA.AsInteger := 1; + // tblSessao.Post; + // end; + // end; + // tmr_sessao.Enabled := true; + end; + + end; + +end; + +procedure TfrmCobranca.mnuImptccClick(Sender: TObject); +begin + // frmImpTCC := TfrmImpTCC.Create(self); + // frmImpTCC.ShowModal; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01.08'); +end; + +procedure TfrmCobranca.mnu_RecibosEmitidosClick(Sender: TObject); +begin + confrelRecibosEmitidos := TconfrelRecibosEmitidos.Create(self); + confrelRecibosEmitidos.ShowModal; + mnuRelatorios.Visible := dtmSystem.VerificarPermissao('CBR.03'); + mnu_RecibosEmitidos.Visible := dtmSystem.VerificarPermissao('CBR.03.03'); +end; + +procedure TfrmCobranca.mnuDevedoresClick(Sender: TObject); +begin + // mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + + // mnuDevedores.Visible := dtmSystem.VerificarPermissao('CBR.02.03'); + + // chamada da janela de devedores + if not dtmSystem.tblCHGEmpresa.Active then + begin + dtmSystem.tblCHGEmpresa.Open; + end; + if dtmSystem.tblCHGEmpresa.IsEmpty then + begin + MessageDlg + ('Por favor cadastre Beneficirios antes de cadastrar algum Devedor.', + mtWarning, [mbOK], 0); + end + else + begin + Screen.Cursor := crHourGlass; + cadDevedores := TcadDevedores.Create(self); // abre a janela devedores + cadDevedores.pesquisa := 0; + // sinaliza que no foi aberto atravs de pesquisa + cadDevedores.ShowModal; + if importar then + begin + with TimpDevedores.Create(self) do + begin + ShowModal; + end; + end; + end; + mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + mnuDevedores.Visible := dtmSystem.VerificarPermissao('CBR.02.01'); +end; + +procedure TfrmCobranca.mnuDigito9Click(Sender: TObject); +begin + // Mtodo para adicionar o dgito 9 aos telefones celulares e garantir que esto marcados como fixo/celular de forma correta + if (MessageDlg + ('Esta operao ir adicionar o dgito 9 a todos os nmeros de celular que ainda no o possuam.' + + ' Isso pode demorar alguns minutos. Deseja continuar?', mtConfirmation, + mbYesNo, 0) = mrYes) then + begin + frmDigito9 := TfrmDigito9.Create(self); + frmDigito9.ShowModal; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuDigito9.Visible := dtmSystem.VerificarPermissao('CBR.01.07'); + end; + +end; + +procedure TfrmCobranca.mnuUsuariosClick(Sender: TObject); +begin + + // mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + + // mnuUsuarios.Visible := dtmSystem.VerificarPermissao('CBR.02.02'); + + // abrir a janela de usurios - instnciado a classe numa varivel para que possamos + // acessar as variveis dentro da classe + cadUsuarios := TcadUsuarios.Create(self); + cadUsuarios.ShowModal; + mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + mnuUsuarios.Visible := dtmSystem.VerificarPermissao('CBR.02.03'); +end; + +procedure TfrmCobranca.Panel2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + // teste pra poder mover um componentes arrastanto com o mouse + //SetCapture(Panel2.Handle); + Capturing := true; + MouseDownSpot.X := X; + MouseDownSpot.Y := Y; +end; + +procedure TfrmCobranca.Panel2MouseMove(Sender: TObject; Shift: TShiftState; + X, Y: Integer); +var + Left, Top: Integer; +begin + // teste pra poder mover um componentes arrastanto com o mouse + if Capturing then + begin + //Left := Panel2.Left - (MouseDownSpot.X - X); + //Top := Panel2.Top - (MouseDownSpot.Y - Y); + if Left <= 1 then + begin + Left := 1; + end; + if Top <= 1 then + begin + Top := 1; + end; +// if Left >= (frmCobranca.ClientWidth - Panel2.Width) then +// begin +// Left := (frmCobranca.ClientWidth - Panel2.Width); +// end; +// if Top >= (frmCobranca.ClientHeight - Panel2.Height) then +// begin +// Top := (frmCobranca.ClientHeight - Panel2.Height); +// end; +// Panel2.Left := Left; +// Panel2.Top := Top; + end; + +end; + +procedure TfrmCobranca.Panel2MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +var + Left, Top: Integer; +begin + // teste pra poder mover um componentes arrastanto com o mouse + if Capturing then + begin + ReleaseCapture; + Capturing := false; + //Left := Panel2.Left - (MouseDownSpot.X - X); + //Top := Panel2.Top - (MouseDownSpot.Y - Y); + if Left <= 1 then + begin + Left := 1; + end; + if Top <= 1 then + begin + Top := 1; + end; + //Panel2.Left := Left; + //Panel2.Top := Top; + end; +end; + +procedure TfrmCobranca.PrestaodeContasTCC1Click(Sender: TObject); +begin + // confrelRelatorioTCC := TconfrelRelatorioTCC.Create(self); + // confrelRelatorioTCC.ShowModal; + mnuRelatorios.Visible := dtmSystem.VerificarPermissao('CBR.03'); + PrestaodeContasTCC1.Visible := dtmSystem.VerificarPermissao('CBR.03.04'); +end; + +procedure TfrmCobranca.RelatriodeGerncia1Click(Sender: TObject); +begin + confRelGerencia := TconfRelGerencia.Create(self); + confRelGerencia.ShowModal; +end; + +procedure TfrmCobranca.mnuPesquisaClick(Sender: TObject); +begin + // abrir a pesquisa de devedores + if frmPesquisa <> nil then + begin + frmPesquisa.SetFocus; + abort; + end; + frmPesquisa := TfrmPesquisa.Create(self); + frmPesquisa.Show; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuPesquisa.Visible := dtmSystem.VerificarPermissao('CBR.01.02'); +end; + +procedure TfrmCobranca.mnuRankingsClick(Sender: TObject); +begin + frmRanking := TfrmRanking.Create(self); + frmRanking.ShowModal; + mnuRankings.Visible := dtmSystem.VerificarPermissao('CBR.01.11'); +end; + +procedure TfrmCobranca.mnuRecibosClick(Sender: TObject); +begin + frmAchaRecibo := TfrmAchaRecibo.Create(self); + frmAchaRecibo.ShowModal; +end; + +procedure TfrmCobranca.mnuRelAcordosClick(Sender: TObject); +begin + confrelAcordos := TconfrelAcordos.Create(self); + confrelAcordos.ShowModal; +end; + +procedure TfrmCobranca.mnuRemessaClick(Sender: TObject); +begin + frmRemessa := TfrmRemessa.Create(self); + frmRemessa.ShowModal; +end; + +procedure TfrmCobranca.mnuProvidenciasClick(Sender: TObject); +begin + + // mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + + // mnuReferencias.Visible := dtmSystem.VerificarPermissao('CBR.02.04'); + + // chama a janela de providncias/referncias + cadProvidencias := TcadProvidencias.Create(self); + cadProvidencias.ShowModal; + mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + mnuProvidencias.Visible := dtmSystem.VerificarPermissao('CBR.02.04'); +end; + +procedure TfrmCobranca.mnuRestaurarClick(Sender: TObject); +begin + // Restaurao de Banco de Dados + // mnuOpcoes.Visible := dtmSystem.VerificarPermissao('CBR.01'); + + // mnuBancoDados.Visible := dtmSystem.VerificarPermissao('CBR.01.03'); + + // if MessageDlg + // ('Voc est prestes a restaurar o Banco de dados para uma verso mais antiga. Realmente deseja continuar? ' + // + 'Esta ao se realizada incorretamente pode causar erros gravssimos. ' + + // 'Aps a restaurao o programa deve ser reiniciado.', mtWarning, + // [mbYes, mbNo], 0) = mrYes then + // begin + // with odRestore do + // begin + // Execute; + // if odRestore.FileName <> '' then + // begin + // try + // dtmSystem.ZConnection.Disconnect; + // dtmSystem.ZConnection.Connect; + // // tmr_sessao.Enabled := false; + // timer_display.Enabled := false; + // with FDIBRestore do + // begin + // UserName := 'SYSDBA'; + // Password := 'masterkey'; + // Host := copy(dtmSystem.ZConnection.Database, 1, + // pos(':', dtmSystem.ZConnection.Database) - 1); + // Protocol := ipTCPIP; + // Verbose := true; + // Options := [roDeactivateIdx, roNoShadow, roNoValidity, roOneAtATime, + // roReplace, roValidate]; + // Database := stringreplace(copy(dtmSystem.ZConnection.Database, + // pos(':', dtmSystem.ZConnection.Database) + 1, + // length(dtmSystem.ZConnection.Database)), 'CHARGE.GDB', 'TEMP.GDB', + // [rfReplaceAll, rfIgnoreCase]); + // BackupFiles.Add(odRestore.FileName); + // Restore; + // end; + // DeleteFile(ExtractFilePath(Application.ExeName) + 'CHARGE.GDB'); + // RenameFile(ExtractFilePath(Application.ExeName) + 'TEMP.GDB', + // ExtractFilePath(Application.ExeName) + 'CHARGE.GDB'); + // MessageDlg('Banco de dados restaurado com sucesso!' + sLineBreak + + // 'Fechando o programa.', mtInformation, [mbOK], 0); + // Close; + // except + // on E: Exception do + // begin + // MessageDlg('Erro ao restaurar o banco de dados!' + sLineBreak + + // E.message, mtError, [mbOK], 0); + // atualizaagenda; + // // tmr_sessao.Enabled := true; + // timer_display.Enabled := true; + // end; + // end; + // end; + // + // end; + // end; + // mnuOpcoes.Visible := dtmSystem.VerificarPermissao('CBR.04'); + // mnuBancoDados.Visible := dtmSystem.VerificarPermissao('CBR.04.03'); + // mnuRestaurar.Visible := dtmSystem.VerificarPermissao('CBR.04.03.02'); +end; + +procedure TfrmCobranca.mnuTxtEmailClick(Sender: TObject); +begin + cadTextEmail := TcadTextEmail.Create(self); + cadTextEmail.ShowModal; + mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + mnuTxtEmail.Visible := dtmSystem.VerificarPermissao('CBR.02.07'); +end; + +procedure TfrmCobranca.stsbarDblClick(Sender: TObject); +var + mouseInStatusBar: TPoint; + pWidth, i: Integer; +begin + // dblclick da status bar para abrir a agenda + with stsbar do + begin + if (SimplePanel) OR (stsbar.Panels.Count = 0) then + i := 0 + else + begin + mouseInStatusBar := ScreenToClient(Mouse.CursorPos); + pWidth := 0; + for i := 0 to stsbar.Panels.Count - 2 do + begin + pWidth := pWidth + Panels[i].Width; + if mouseInStatusBar.X <= pWidth then + Break; + end; + end; + if i = 4 then + begin + if not Assigned(frmAgenda) then + begin + frmAgenda := TfrmAgenda.Create(self); + frmAgenda.Show; + end + else + begin + if frmAgenda.WindowState = wsMinimized then + begin + frmAgenda.WindowState := wsNormal; + end; + end; + end; + end; +end; + +procedure TfrmCobranca.stsbarDrawPanel(StatusBar: TStatusBar; + Panel: TStatusPanel; const Rect: TRect); +var + tempo1, tempo2, tempo3: TTime; + Text: string; +begin + // desenha os paineis da status bar conforme o atraso da agenda + tempo1 := StrToTime('00:45:00'); + tempo2 := StrToTime('00:15:00'); + tempo3 := StrToTime('00:00:00'); + + if (Panel = stsbar.Panels[4]) then + begin + if dia_atrasado then + begin + StatusBar.Canvas.Brush.Color := clRed; + StatusBar.Canvas.Font.Style := StatusBar.Canvas.Font.Style + [fsbold]; + pnl_alertaagenda.Visible := false; + Text := 'COBRANA ATRASADA'; + end + else if (tempo_atrasado) and (eh_hoje = true) then + begin + if CompareTime(quanto_faltat, tempo1) > 0 then + begin + StatusBar.Canvas.Brush.Color := clRed; + StatusBar.Canvas.Font.Style := StatusBar.Canvas.Font.Style + [fsbold]; + pnl_alertaagenda.Visible := false; + Text := 'COBRANA ATRASADA'; + end + else if (CompareTime(quanto_faltat, tempo1) < 0) and + (CompareTime(quanto_faltat, tempo2) >= 0) then + begin + StatusBar.Canvas.Brush.Color := clYellow; + StatusBar.Canvas.Font.Style := StatusBar.Canvas.Font.Style + [fsbold]; + pnl_alertaagenda.Visible := true; + Text := 'COBRANA ATRASADA'; + end + else if (CompareTime(quanto_faltat, tempo2) < 0) and + (CompareTime(quanto_faltat, tempo3) >= 0) then + begin + StatusBar.Canvas.Brush.Color := clGreen; + StatusBar.Canvas.Font.Style := StatusBar.Canvas.Font.Style - [fsbold]; + pnl_alertaagenda.Visible := true; + Text := 'COBRAR AGENDADO'; + end; + end + else + begin + StatusBar.Canvas.Brush.Color := clSkyBlue; + pnl_alertaagenda.Visible := false; + StatusBar.Canvas.Font.Style := StatusBar.Canvas.Font.Style - [fsbold]; + if queryagenda.IsEmpty then + begin + StatusBar.Canvas.Brush.Color := clBtnFace; + pnl_alertaagenda.Visible := false; + StatusBar.Canvas.Font.Style := StatusBar.Canvas.Font.Style - [fsbold]; + Text := ''; + end + else + begin + StatusBar.Canvas.Brush.Color := clSkyBlue; + pnl_alertaagenda.Visible := false; + StatusBar.Canvas.Font.Style := StatusBar.Canvas.Font.Style - [fsbold]; + Text := 'DEVEDOR AGENDADO'; + end; + end; + end; + StatusBar.Canvas.FillRect(Rect); + StatusBar.Canvas.TextOut(Rect.Left + 5, Rect.Top, Text); + // StatusBar.Canvas.FrameRect(Rect); +end; + +procedure TfrmCobranca.mnuBoletosClick(Sender: TObject); +begin + frmCentralBoletos := TfrmCentralBoletos.Create(self); + frmCentralBoletos.ShowModal; +end; + +procedure TfrmCobranca.mnuCredoresClick(Sender: TObject); +begin + // mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + // mnuBeneficiarios.Visible := dtmSystem.VerificarPermissao('CBR.02.01'); + + cadCredor := TcadCredor.Create(self); + cadCredor.ShowModal; + mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + mnuCredores.Visible := dtmSystem.VerificarPermissao('CBR.02.02'); + // abre a janela de cadastro beneficirios +end; + +procedure TfrmCobranca.timer_displayTimer(Sender: TObject); +var + hora_marcada, agorat: TTime; + data_marcada, agorad: TDate; + // quanto_faltad: Integer; +begin + // timer_display.Interval := 60000; + + // Clculo do atraso da Agenda que usado em outras partes do programa + + //Label1.Caption := inttostr(queryagenda.RecordCount); + timer_display.Interval := 5000; + queryagenda.Refresh; + dia_atrasado := false; + tempo_atrasado := false; + eh_hoje := false; + if not queryagenda.IsEmpty then + begin + // queryagenda.First; + hora_marcada := StrToTime(FormatDateTime('t', + queryagenda.FieldByName('HR_AGENDADA').AsDateTime)); + agorat := StrToTime(FormatDateTime('t', now)); + quanto_faltat := hora_marcada - agorat; + data_marcada := queryagenda.FieldByName('DT_AGENDADA').AsDateTime; + agorad := Date; + // quanto_faltad := DaysBetween(data_marcada, agorad); + + if (agorad > data_marcada) then + begin + dia_atrasado := true; + end; + + if (agorat > hora_marcada) then + begin + tempo_atrasado := true; + end; + + if data_marcada = Date then + begin + eh_hoje := true; + end; + end; + stsbar.Repaint; + + // if FileExists(ExtractFilePath(Application.ExeName) + 'Cobrana_old.exe') then + // begin + // try + // DeleteFile(ExtractFilePath(Application.ExeName) + 'Cobrana_old.exe'); + // except + // end; + // end; + // Label1.Caption := inttostr(dtmSystem.id_usuario); +end; + +procedure TfrmCobranca.tmr_loginTimer(Sender: TObject); +var + msg, hoje: string; + data_termino: TDate; + // hmin, hmax: TTime; + // diff: Integer; +begin + // primeiro login ao abrir o programa + // verificar alterar login para comentrios na maioria das coisas aqui + + tmr_login.Enabled := false; + // para o timer pra no ficar ocorrendo a cada segundo + // abre o arquivo ini para ler o caminho do banco + + with dtmSystem do + begin + + tblUsuarios.Open; + + if tblUsuarios.IsEmpty then + begin + exit; + end; + + with TfrmLogin.Create(nil) do + begin + try + ShowModal; + finally + Free; + end; + end; + + if dtmSystem.acesso_manager = true then + begin + exit; + end; + + tblPermissoes.Open; + tblGrupos.Open; + tblGruposPermissoes.Open; + + if acesso = false then + begin + Application.Terminate; + end; + + if acesso = true then + begin + + if dtmSystem.VerificarVersao = true then + begin + MessageDlg('Este programa se encontra desatualizado.' + + ' Ele ser fechado para atualizar para a mais nova verso.', + mtWarning, [mbOK], 0); + CopyFile(PCHAR(StringReplace(dtmSystem.ZConnection.Database, + '\Charge.gdb', '', [rfIgnoreCase]) + '\Cobrana.exe'), + PCHAR(ExtractFilePath(Application.ExeName) + + 'Cobrana__update.exe'), true); + WinExec('Updater.exe', 0); + Application.ShowMainForm := false; + Application.Terminate; + end; + + tmr_update.Enabled := true; + memo_update.Left := memo_update.Parent.Width - memo_update.Width; + + dtmSystem.tblEstados.Open; + dtmSystem.tblCidades.Open; + + if dtmSystem.tblEstados.IsEmpty then + begin + frmProgressEC := TfrmProgressEC.Create(self); + frmProgressEC.ShowModal; + end; + // dtmSystem.tblEstados.Close; + // dtmSystem.tblCidades.Close; + stsbar.Panels[0].Text := 'Usurio: ' + dtmSystem.tx_usuario; + stsbar.Panels[1].Text := 'Grupo: ' + dtmSystem.tx_grupo; + stsbar.Panels[2].Text := 'Banco de dados: ' + + dtmSystem.ZConnection.Database; + stsbar.Panels[3].Text := 'Verso: ' + GetAppVersionStr; + + hoje := DateToStr(Date); + hoje := RightStr(hoje, 4) + '-' + copy(hoje, 4, 2) + '-' + + LeftStr(hoje, 2); + with dtmSystem.zroqryContatos.SQL do + begin + Clear; + Add('select'); + Add('h.id_cobrador,'); + Add('case when u.tx_nome is not NULL then u.tx_nome when u.tx_nome is NULL then ' + + Quotedstr('Usurio Inexistente') + ' end as NOME,'); + Add('COUNT (DISTINCT h.ID_DEVEDOR) as qtde_acionamentos'); + Add('from chg_historico h'); + Add('left join sys_usuarios u on h.id_cobrador = u.id_usuario'); + Add('where h.id_cobrador in (select id_usuario from sys_usuarios where tp_ativo = ' + + Quotedstr('S') + ')'); + Add('and CAST(h.dt_contato AS DATE) >= ' + Quotedstr(hoje) + ' and'); + Add('CAST(h.dt_contato AS DATE) <= ' + Quotedstr(hoje)); + Add('and h.id_cobrador = ' + inttostr(dtmSystem.id_usuario)); + Add('group by h.id_cobrador, u.tx_nome'); + Add('order by NOME, qtde_acionamentos desc'); + end; + dtmSystem.zroqryContatos.Open; + + // verificao de permisso de acessos + + MakePermissoes; + + ChecaPermissoes; + // showmessage(dtmSystem.path_executavel); + // showmessage(dtmSystem.GetAppVersionStr + ' - ' + dtmSystem.version); + + // if id_usuario <> 71 then + // begin + // mnuRankings.Visible := false; + // end; + + atualizaagenda; + + timer_display.Enabled := true; + timer_display.Interval := 1; + + // Parte do processo de controle de sesso do usurio + // Desabilitado a pedido da Bruna + // with dtmSystem do + // begin + // tblLogins.Open; + // tblLogins.Append; + // tblLoginsID_USUARIO.AsInteger := id_usuario; + // tblLoginsDT_LOGIN.AsDateTime := Date; + // tblLoginsHR_LOGIN.AsDateTime := now; + // tblLogins.Post; + // tblLogins.Close; + // if not tblSessao.Active then + // begin + // tblSessao.Open; + // end; + // if not(tblSessao.Locate('ID_USUARIO', id_usuario, [])) then + // begin + // tblSessao.Append; + // tblSessaoID_USUARIO.AsInteger := id_usuario; + // tblSessaoTP_ATIVA.AsInteger := 1; + // tblSessao.Post; + // end; + // end; + // tmr_sessao.Enabled := true; + + if not(tblEmpresa.Active) then + begin + tblEmpresa.Open; + end; + if tblEmpresa.IsEmpty then // gera a empresa padro caso no tenha + begin + MessageDlg + ('A empresa do programa no se encontra cadastrada. Por favor configure uma nova.', + mtWarning, [mbOK], 0); + with TcadEmpresa.Create(self) do + begin + ShowModal; + end; + end; + if not(tblCHGEmpresa.Active) then + begin + tblCHGEmpresa.Open; + end; + if tblCHGEmpresa.IsEmpty then + begin + MessageDlg + ('Para que o financiamento possa ser realizado de forma correta por' + + ' favor cadastre o primeiro credor com os dados da empresa compradora do programa.', + mtWarning, [mbOK], 0); + with TcadCredor.Create(self) do + begin + ShowModal; + end; + end; + + // with TIniFile.Create(ExtractFilePath(Application.ExeName) + + // 'popup.ini') do + with TIniFile.Create(dtmSystem.path_executavel + '\popup.ini') do + begin + msg := ReadString('MENSAGEM', 'Texto', ''); + try + data_termino := StrToDate(ReadString('MENSAGEM', 'Data-Fim', '')); + except + data_termino := 0; + end; + end; + if msg <> '' then + begin + if now < data_termino then + begin + MessageDlg(msg, mtInformation, [mbOK], 0); + end; + end; + with TIniFile.Create(ExtractFilePath(Application.ExeName) + + 'sistema.ini') do + begin + dtmSystem.public_key := ReadString('cert', 'pub-key', ''); + dtmSystem.private_key := ReadString('cert', 'priv-key', ''); + dtmSystem.certificate_key := ReadString('cert', 'cert-key', ''); + dtmSystem.conta_corrente := ReadString('cert', 'cc', ''); + end; + if (dtmSystem.public_key <> '') and (dtmSystem.id_grupo = 1) then + begin + mnuBoletos.Visible := true; + end + else + begin + mnuBoletos.Visible := false; + end; + + end; + end; + + frmCobranca.BorderIcons := frmCobranca.BorderIcons - [biMaximize]; + // desabilita o boto de maximizar + +end; + +procedure TfrmCobranca.tmr_sessaoTimer(Sender: TObject); +var + admin: string; +begin + // Timer de controle de sesso do usurio + // Desabilitado a pedido da Bruna + // Label1.Caption := TimeToStr(now); + with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'sistema.ini') do + begin + admin := ReadString('DEVELOPER', 'admin', ''); + if admin = 'sim' then + begin + abort; + end; + end; + with dtmSystem do + begin + if not tblSessao.Active then + begin + tblSessao.Open; + end; + tblSessao.Refresh; + if tblSessao.Locate('ID_USUARIO', id_usuario, []) then + begin + if tblSessaoTP_ATIVA.AsInteger = 0 then + begin + // tmr_sessao.Enabled := false; + MessageDlg + ('Sua sesso acaba de ser terminada por um administrador. O programa ir terminar agora.', + mtWarning, [mbOK], 0); + tblSessao.Delete; + tblSessao.Close; + Close; + end; + end; + end; +end; + +procedure TfrmCobranca.tmr_updateTimer(Sender: TObject); +begin + with TIniFile.Create(dtmSystem.path_executavel + '\version_control.ini') do + begin + dtmSystem.version := ReadString('Dados', 'version', ''); + end; + if dtmSystem.VerificarVersao = true then + begin + memo_update.Visible := true; + end; +end; + +procedure TfrmCobranca.mnuVerrecibosClick(Sender: TObject); +begin + frmAchaRecibo := TfrmAchaRecibo.Create(self); + frmAchaRecibo.ShowModal; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuVerrecibos.Visible := dtmSystem.VerificarPermissao('CBR.01.10'); +end; + +// \[T]/ PRAISE THE SUN \[T]/ + +procedure TfrmCobranca.mnuEmpresaClick(Sender: TObject); +begin + + // mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + + // mnuEmpresa.Visible := dtmSystem.VerificarPermissao('CBR.02.05'); + + cadEmpresa := TcadEmpresa.Create(self); + cadEmpresa.ShowModal; + mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + mnuEmpresa.Visible := dtmSystem.VerificarPermissao('CBR.02.05'); + // abre a janela de cadastro da empresa que comprou o programa +end; + +procedure TfrmCobranca.mnuGerCampanhaClick(Sender: TObject); +begin + + // mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.04'); + + // mnuGerCampanha.Visible := dtmSystem.VerificarPermissao('CBR.04.03'); + + frmCampanha := TfrmCampanha.Create(self); + frmCampanha.ShowModal; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuGerCampanha.Visible := dtmSystem.VerificarPermissao('CBR.01.04'); +end; + +procedure TfrmCobranca.mnuCentralPlanilhamentoClick(Sender: TObject); +begin + frmCentralPlanilhamento := TfrmCentralPlanilhamento.Create(self); + frmCentralPlanilhamento.ShowModal; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuImptcc.Visible := dtmSystem.VerificarPermissao('CBR.01.09'); +end; + +procedure TfrmCobranca.mnuCobrancaTelClick(Sender: TObject); +begin + pesquisa_camp := false; + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end; + if dtmSystem.tblDevedores.RecordCount = 0 then + begin + MessageDlg + ('No h devedores cadastrados para que uma cobrana possa ser feita.' + + ' No possvel abrir a cobrana.', mtWarning, [mbOK], 0); + end + else + begin + Screen.Cursor := crHourGlass; + with dtmSystem do + begin + // verifica as campanhas ativas para o usurio em questo + qryConsulta.SQL.Text := + 'select id_campanha, tx_nome from chg_campanhas where id_campanha in (select id_campanha from chg_campanhas_cobradores where id_cobrador = ' + + inttostr(id_usuario) + ') and tp_ativa = ''1'' order by id_campanha'; + qryConsulta.Open; + end; + if dtmSystem.qryConsulta.IsEmpty then + begin + MessageDlg + ('Este usurio no se encontra inserido em nenhuma campanha ativa no momento.', + mtInformation, [mbOK], 0); + Screen.Cursor := crDefault; + end + else + begin + + // janela de escolha de campanha a ser cobrada + + frmEscolheCampanha := TfrmEscolheCampanha.Create(self); + frmEscolheCampanha.ShowModal; + + if frmEscolheCampanha.ModalResult = mrOk then + begin + Screen.Cursor := crHourGlass; + if not dtmSystem.tblCampanhaDevedores.Active then + begin + dtmSystem.tblCampanhaDevedores.Open; + end; + frmEfetuarCobranca := TfrmEfetuarCobranca.Create(self); + frmEfetuarCobranca.id_campanha := dtmSystem.qryConsulta.FieldByName + ('ID_CAMPANHA').AsInteger; + frmEfetuarCobranca.tx_campanha := dtmSystem.qryConsulta.FieldByName + ('TX_NOME').AsString; + + with frmEfetuarCobranca do + begin + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + + queryagenda.Refresh; + if (not queryagenda.IsEmpty) then + begin + if Dateof(frmCobranca.queryagenda.FieldByName('DT_AGENDADA') + .AsDateTime) < Dateof(Date) then + begin + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + frmCobranca.queryagenda.FieldByName('ID_DEVEDOR').AsString, []); + + atendimento := 'cobrando'; + cb_agendar.Checked := false; + + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(frmEfetuarCobranca.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(frmEfetuarCobranca.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(frmEfetuarCobranca.cb_nmulta); + + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + MessageDlg + ('Voc acaba de entrar na sua Agenda. Devedor agendado: ' + + dtmSystem.tblDevedoresTX_NOME.AsString + '. Data agendada: ' + + frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsString + + '. Hora agendada: ' + frmCobranca.queryagenda.FieldByName + ('HR_AGENDADA').AsString + '.', mtWarning, [mbOK], 0); + entrou_agenda := true; + end + else + begin + if Dateof(frmCobranca.queryagenda.FieldByName('DT_AGENDADA') + .AsDateTime) = Dateof(Date) then + begin + if Timeof(frmCobranca.queryagenda.FieldByName('HR_AGENDADA') + .AsFloat) <= Timeof(now) then + begin + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + frmCobranca.queryagenda.FieldByName('ID_DEVEDOR') + .AsString, []); + + atendimento := 'cobrando'; + cb_agendar.Checked := false; + + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(frmEfetuarCobranca.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(frmEfetuarCobranca.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(frmEfetuarCobranca.cb_nmulta); + + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + MessageDlg + ('Voc acaba de entrar na sua Agenda. Devedor agendado: ' + + dtmSystem.tblDevedoresTX_NOME.AsString + '. Data agendada: ' + + frmCobranca.queryagenda.FieldByName('DT_AGENDADA') + .AsString + '. Hora agendada: ' + + frmCobranca.queryagenda.FieldByName('HR_AGENDADA').AsString + + '.', mtWarning, [mbOK], 0); + entrou_agenda := true; + end + else + begin + entrou_agenda := false; + end; + end + else + begin + entrou_agenda := false; + end; + end; + end + else + begin + entrou_agenda := false; + end; + + if not entrou_agenda then + begin + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha) + ' and TP_ESTADO = ''A'''; + dtmSystem.tblCampanhaDevedores.Filtered := true; + dtmSystem.tblCampanhaDevedores.First; + dtmSystem.tblCampanhaDevedores.DisableControls; + // Acha o devedor que deve ser cobrado + while not(dtmSystem.tblCampanhaDevedores.Eof) do + begin + Application.ProcessMessages; + + if dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger <> -1 then + // procura se tem um devedor que estava no meio do processo de ser cobrado pelo cobrador X + begin + if dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger = + dtmSystem.id_usuario then + begin + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblCampanhaDevedoresID_DEVEDOR.AsInteger, []); + dtmSystem.tblCampanhaDevedores.EnableControls; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + Break; + end + else + begin + dtmSystem.tblCampanhaDevedores.Next; + end; + end + else + begin + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblCampanhaDevedoresID_DEVEDOR.AsInteger, []); + dtmSystem.tblCampanhaDevedores.EnableControls; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + Break; + end; + + end; + Screen.Cursor := crDefault; + dtmSystem.tblCampanhaDevedores.EnableControls; + if dtmSystem.tblCampanhaDevedores.Eof then + begin + MessageDlg + ('No h mais devedores nesta campanha que este usurio possa cobrar.', + mtInformation, [mbOK], 0); + Screen.Cursor := crDefault; + abort; + end; + // dtmSystem.tblCampanhaDevedores.Filtered := false; + end; + end; + Application.ProcessMessages; + Screen.Cursor := crDefault; + frmEfetuarCobranca.ShowModal; + // if pesquisa_camp then + // begin + // frmPesquisa := TfrmPesquisa.Create(self); + // frmPesquisa.Show; + // end; + mnuFerramentas.Visible := dtmSystem.VerificarPermissao('CBR.01'); + mnuCobrancaTel.Visible := dtmSystem.VerificarPermissao('CBR.01.01'); + end; + end; + end; +end; + +procedure TfrmCobranca.mnuContasClick(Sender: TObject); +begin + + // mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); + // mnuContas.Visible := dtmSystem.VerificarPermissao('CBR.02.06'); + + cadContas := TcadContas.Create(self); + cadContas.ShowModal; + // mnuCadastros.Visible := dtmSystem.VerificarPermissao('CBR.02'); +end; + +procedure TfrmCobranca.fecharformsabertas(name_form: string); +// entre com o nome da form que voc NO quer fechar +var // no estou mais usando esta funo a princpio + i: Integer; +begin + pnl_principal.Visible := true; + for i := 0 to Screen.FormCount - 1 do + begin + if (Screen.Forms[i].Showing) and (Screen.Forms[i].Name <> 'frmCobranca') and + (Screen.Forms[i].Name <> name_form) then + begin + Screen.Forms[i].Close; + end; + end; +end; + +procedure TfrmCobranca.Agenda1Click(Sender: TObject); +begin + frmAgenda := TfrmAgenda.Create(self); + frmAgenda.Show; +end; + +procedure TfrmCobranca.appEventsException(Sender: TObject; E: Exception); +begin + if AnsiPos('-902', E.Message) > 0 then + begin + timer_display.Enabled := false; + showmessage + ('Perda de conexo com o banco de dados. O programa ser finalizado.'); + Application.Terminate; + end; +end; + +procedure TfrmCobranca.atualizaagenda; +var + ontem, amanha: string; +begin + // Mtodo para atualizar a situao da agenda + DateTimeToString(ontem, 'DD/MM/YYYY', IncDay(Date, -1)); + DateTimeToString(amanha, 'DD/MM/YYYY', IncDay(Date, 1)); + with queryagenda.SQL do + begin + Text := 'select first 1 * from chg_agenda where id_cobrador = ' + + inttostr(dtmSystem.id_usuario) + + ' and tp_situacao = ''A'' order by DT_AGENDADA, HR_AGENDADA'; + end; + // queryagenda.Filter := 'DT_AGENDADA >= ' + QuotedStr(ontem) + + // ' and DT_AGENDADA <= ' + QuotedStr(amanha); + // queryagenda.Filtered := true; + queryagenda.Open; +end; + +procedure TfrmCobranca.Button1Click(Sender: TObject); +// var +// str, year, month, day: string; +begin + + // boto de testes + + // dtmSystem.tblEmpresa.Open; + // year := inttostr(YearOf(Date)); + // month := inttostr(Monthof(Date)).PadLeft(2, '0'); + // day := inttostr(Dayof(Date)).PadLeft(2, '0'); + // str := 'CLI_ CRB_' + dtmSystem.tblEmpresaCD_BENEFICIARIO.AsString + + // year + month + day + '_CNAB240REM' + // + '.00001'; +end; + +procedure TfrmCobranca.Button2Click(Sender: TObject); +// var +// antes: TTime; +begin + + // boto de testes + + // dtmSystem.tblDevedores.Next; + // dtmSystem.tblTitulos.Locate('ID_DEVEDOR',1337,[]); + // ZQuery1.SQL.Clear; + // ZQuery1.SQL.Text := 'select * from chg_historico where id_devedor = ' + + // dtmSystem.tblDevedoresID_DEVEDOR.AsString; + // antes := Now; + // ZQuery1.Open; + // showmessage(inttostr(MilliSecondsBetween(antes, now))); + // dtmSystem.tblCampanhaDevedores.Open; + // DataSource1.DataSet.Filtered := false; + // DataSource1.DataSet.Filter := 'DT_AGENDADA >= ''03/12/2018'''; + // DataSource1.DataSet.Filtered := true; + // Label1.Caption := inttostr(ZQuery2.RecordCount); + // dtmSystem.tblCampanhaDevedores.Open; + // dtmSystem.tblCampanhaDevedores.First; + // while not(dtmSystem.tblCampanhaDevedores.Eof) do + // begin + // dtmSystem.tblCampanhaDevedores.Edit; + // dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := -1; + // dtmSystem.tblCampanhaDevedores.Post; + // dtmSystem.tblCampanhaDevedores.Next; + // end; + // dtmSystem.tblDevedores.Open; + // dtmSystem.tblDevedores.Filtered := false; + // dtmSystem.tblDevedores.Filter := 'ID_DEVEDOR = 1'; + // dtmSystem.tblDevedores.Filtered := true; + // relTeste := TrelTeste.Create(self); + // relTeste.frRecibo.PreviewModal; + // DataSource1.DataSet.Locate('ID_HISTORICO', 1, [loPartialKey]); + if (dtmSystem.tblDevedores.Locate('CD_CPF', '741.334.467-04', [])) or + (dtmSystem.tblDevedores.Locate('CD_CNPJ', 'aaa', [])) then + begin + + end; +end; + +procedure TfrmCobranca.Button3Click(Sender: TObject); +begin + + // boto de testes + + // dtmSystem.tblCobCampanha.Next; + // if dtmSystem.tblCobCampanha.Eof then + // begin + // dtmSystem.tblCobCampanha.First; + // end; + // DataSource1.DataSet.Filtered := false; + // Label1.Caption := inttostr(ZQuery2.RecordCount); + // with TfrmCentralPlanilhamento.Create(self) do + // begin + // ShowModal; + // end; + dtmSystem.tblHistorico.Post; +end; + +procedure TfrmCobranca.ChecaPermissoes; +begin + with dtmSystem do + begin + mnuFerramentas.Visible := VerificarPermissao('CBR.01'); + { } mnuCobrancaTel.Visible := VerificarPermissao('CBR.01.01'); + { } mnuPesquisa.Visible := VerificarPermissao('CBR.01.02'); + { } mnuAtendimento.Visible := VerificarPermissao('CBR.01.03'); + { } mnuGerCampanha.Visible := VerificarPermissao('CBR.01.04'); + { } mnuAgendamento.Visible := VerificarPermissao('CBR.01.05'); + { } mnuMandaEmail.Visible := VerificarPermissao('CBR.01.06'); + { } mnuDigito9.Visible := VerificarPermissao('CBR.01.07'); + { } mnuImptcc.Visible := VerificarPermissao('CBR.01.08'); + { } mnuCentralPlanilhamento.Visible := VerificarPermissao('CBR.01.09'); + { } mnuVerrecibos.Visible := VerificarPermissao('CBR.01.10'); + { } mnuRankings.Visible := VerificarPermissao('CBR.01.11'); + + mnuCadastros.Visible := VerificarPermissao('CBR.02'); + { } mnuDevedores.Visible := VerificarPermissao('CBR.02.01'); + { } mnuCredores.Visible := VerificarPermissao('CBR.02.02'); + { } mnuUsuarios.Visible := VerificarPermissao('CBR.02.03'); + { } mnuProvidencias.Visible := VerificarPermissao('CBR.02.04'); + { } mnuEmpresa.Visible := VerificarPermissao('CBR.02.05'); + // { } mnuContas.Visible := VerificarPermissao('CBR.02.06'); + { } mnuTxtEmail.Visible := VerificarPermissao('CBR.02.07'); + + mnuRelatorios.Visible := VerificarPermissao('CBR.03'); + { } mnuEntrada.Visible := VerificarPermissao('CBR.03.01'); + { } mnuPrestacaoContas.Visible := VerificarPermissao('CBR.03.02'); + { } mnu_RecibosEmitidos.Visible := VerificarPermissao('CBR.03.03'); + // { } PrestaodeContasTCC1.Visible := VerificarPermissao('CBR.03.04'); + + mnuOpcoes.Visible := VerificarPermissao('CBR.04'); + { } mnuIndices.Visible := VerificarPermissao('CBR.04.01'); + { } mnuModeloRepasse.Visible := VerificarPermissao('CBR.04.02'); + // { } mnuBancoDados.Visible := VerificarPermissao('CBR.04.03'); + { } mnuBackup.Visible := VerificarPermissao('CBR.04.03.01'); + { } mnuRestaurar.Visible := VerificarPermissao('CBR.04.03.02'); + { } mnuConfLayout.Visible := VerificarPermissao('CBR.04.04'); + { } ConfiguraodoPopUpdeInicializao1.Visible := + VerificarPermissao('CBR.04.05'); + { } mnuEnvBancoOnline.Visible := VerificarPermissao('CBR.04.06'); + end; + + if dtmSystem.id_grupo = 1 then + begin + mnuLog.Visible := true; + Visualizar1.Visible := true; + end + else + begin + mnuLog.Visible := false; + Visualizar1.Visible := false; + end; + +end; + +procedure TfrmCobranca.ConfiguraodoPopUpdeInicializao1Click(Sender: TObject); +begin + frmPopUp := TfrmPopUp.Create(self); + frmPopUp.ShowModal; + mnuOpcoes.Visible := dtmSystem.VerificarPermissao('CBR.04'); + ConfiguraodoPopUpdeInicializao1.Visible := dtmSystem.VerificarPermissao + ('CBR.04.05'); +end; + +procedure TfrmCobranca.Departamentos1Click(Sender: TObject); +begin + frmDepartamentos := TfrmDepartamentos.Create(self); + frmDepartamentos.ShowModal; +end; + +procedure TfrmCobranca.mnuConfLayoutClick(Sender: TObject); +begin + + // mnuOpcoes.Visible := dtmSystem.VerificarPermissao('CBR.01'); + + // mnuConfLayout.Visible := dtmSystem.VerificarPermissao('CBR.01.04'); + + confLayouts := TconfLayouts.Create(self); + confLayouts.ShowModal; + mnuOpcoes.Visible := dtmSystem.VerificarPermissao('CBR.04'); + mnuConfLayout.Visible := dtmSystem.VerificarPermissao('CBR.04.04'); +end; + +{ if (not Panel1.Visible) then + begin + AnimateWindow(Panel1.Handle, 200, AW_BLEND or AW_ACTIVATE or + AW_VER_POSITIVE or AW_HOR_POSITIVE); + Panel1.Visible := true; + end + else + begin + AnimateWindow(Panel1.Handle, 200, AW_BLEND or AW_HIDE or AW_VER_NEGATIVE or + AW_HOR_NEGATIVE); + Panel1.Visible := false; + end; } + +end. diff --git a/ufrmCobrancaCampanha.dfm b/ufrmCobrancaCampanha.dfm new file mode 100644 index 0000000..b1ec732 --- /dev/null +++ b/ufrmCobrancaCampanha.dfm @@ -0,0 +1,820 @@ +inherited frmCobrancaCampanha: TfrmCobrancaCampanha + Caption = 'frmCobrancaCampanha' + ClientHeight = 610 + ClientWidth = 680 + OnCloseQuery = FormCloseQuery + OnShow = FormShow + ExplicitWidth = 686 + ExplicitHeight = 638 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 591 + Width = 680 + ExplicitTop = 591 + ExplicitWidth = 680 + end + object pnl_info: TPanel + Left = 8 + Top = 8 + Width = 329 + Height = 250 + Enabled = False + TabOrder = 1 + object lbl_id: TLabel + Left = 8 + Top = 8 + Width = 36 + Height = 13 + Caption = 'C'#243'digo:' + end + object lbl_nome: TLabel + Left = 79 + Top = 8 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object IncludeBtn: TSpeedButton + Left = 152 + Top = 115 + Width = 24 + Height = 24 + Caption = '>' + OnClick = IncludeBtnClick + end + object IncAllBtn: TSpeedButton + Left = 152 + Top = 141 + Width = 24 + Height = 24 + Caption = '>>' + OnClick = IncAllBtnClick + end + object ExcludeBtn: TSpeedButton + Left = 152 + Top = 167 + Width = 24 + Height = 24 + Caption = '<' + Enabled = False + OnClick = ExcludeBtnClick + end + object ExAllBtn: TSpeedButton + Left = 152 + Top = 193 + Width = 24 + Height = 24 + Caption = '<<' + Enabled = False + OnClick = ExAllBtnClick + end + object lbl_source: TLabel + Left = 8 + Top = 99 + Width = 97 + Height = 13 + Caption = 'Lista de Cobradores:' + end + object lbl_participantes: TLabel + Left = 200 + Top = 99 + Width = 121 + Height = 13 + Caption = 'Cobradores Participantes:' + end + object lbl_datacad: TLabel + Left = 8 + Top = 54 + Width = 99 + Height = 13 + Caption = 'Data de lan'#231'amento:' + end + object dbedt_id: TDBEdit + Left = 8 + Top = 27 + Width = 65 + Height = 21 + DataField = 'ID_CAMPANHA' + ReadOnly = True + TabOrder = 0 + end + object dbedt_nome: TDBEdit + Left = 79 + Top = 27 + Width = 242 + Height = 21 + DataField = 'TX_NOME' + TabOrder = 1 + end + object dbcb_ativa: TDBCheckBox + Left = 248 + Top = 54 + Width = 41 + Height = 17 + Caption = 'Ativa' + DataField = 'TP_ATIVA' + TabOrder = 2 + ValueChecked = '1' + ValueUnchecked = '0;null' + OnClick = dbcb_ativaClick + end + object dbcb_concluida: TDBCheckBox + Left = 248 + Top = 75 + Width = 73 + Height = 17 + Caption = 'Conclu'#237'da' + DataField = 'TP_CONCLUIDA' + TabOrder = 3 + ValueChecked = '1' + ValueUnchecked = '0;nill' + OnClick = dbcb_concluidaClick + end + object lb_source: TListBox + Left = 8 + Top = 115 + Width = 121 + Height = 102 + ItemHeight = 13 + TabOrder = 4 + end + object lb_destiny: TListBox + Left = 200 + Top = 115 + Width = 121 + Height = 102 + ItemHeight = 13 + TabOrder = 5 + end + object pb_campanha: TProgressBar + Left = 8 + Top = 223 + Width = 313 + Height = 17 + TabOrder = 6 + end + object dbdtp_cad: TrDBDateTimePicker + Left = 8 + Top = 72 + Width = 97 + Height = 21 + Date = 43040.403793784720000000 + Time = 43040.403793784720000000 + TabOrder = 8 + DataField = 'DT_CAD' + DBEditLabel.OwnCaption = ' ' + FormatEmpty = '__.__.__' + end + end + object pnl_gridcampanha: TPanel + Left = 343 + Top = 8 + Width = 329 + Height = 250 + TabOrder = 2 + object navPrincipal: TDBNavigator + Left = 7 + Top = 4 + Width = 315 + Height = 44 + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] + Hints.Strings = ( + 'Primeiro Registro' + 'Registro Anterior' + 'Pr'#243'ximo Registro' + #218'ltimo Registro' + 'Criar Registro' + 'Apagar Registro' + 'Editar Registro' + 'Salvar Registro' + 'Cancelar' + 'Atualizar' + 'Apply updates' + 'Cancel updates') + TabOrder = 0 + BeforeAction = navPrincipalBeforeAction + end + object dbg_campanha: TDBGrid + Left = 8 + Top = 71 + Width = 313 + Height = 169 + DataSource = dts_campanha + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnMouseMove = dbg_campanhaMouseMove + Columns = < + item + Expanded = False + FieldName = 'ID_CAMPANHA' + Visible = True + end + item + Expanded = False + FieldName = 'TX_NOME' + Visible = True + end + item + Expanded = False + FieldName = 'TP_ATIVA' + Visible = True + end + item + Expanded = False + FieldName = 'TP_CONCLUIDA' + Visible = True + end + item + Expanded = False + FieldName = 'TX_DESC' + Visible = True + end + item + Expanded = False + FieldName = 'DT_CAD' + Visible = True + end> + end + end + object pnl_griddevedores: TPanel + Left = 8 + Top = 264 + Width = 664 + Height = 321 + TabOrder = 3 + object dbg_consultados: TDBGrid + Left = 8 + Top = 8 + Width = 648 + Height = 305 + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + end + end + object dts_campanha: TDataSource + DataSet = dtmSystem.tblCobCampanha + OnStateChange = dts_campanhaStateChange + OnDataChange = dts_campanhaDataChange + Left = 487 + Top = 120 + end + object dtsCampanha_consulta: TDataSource + DataSet = Query + Left = 184 + Top = 336 + end + object Query: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 344 + Top = 344 + end + object ImageList1: TImageList + Left = 616 + Top = 88 + Bitmap = { + 494C01010C001800580110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end +end diff --git a/ufrmCobrancaCampanha.pas b/ufrmCobrancaCampanha.pas new file mode 100644 index 0000000..b6b66eb --- /dev/null +++ b/ufrmCobrancaCampanha.pas @@ -0,0 +1,420 @@ +unit ufrmCobrancaCampanha; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, System.ImageList, + Vcl.ImgList, ZAbstractRODataset, ZAbstractDataset, ZDataset, Vcl.Grids, + Vcl.DBGrids, Vcl.DBCtrls, Vcl.ComCtrls, rDBComponents, Vcl.StdCtrls, Vcl.Mask, + Vcl.Buttons, Vcl.ExtCtrls, StrUtils; + + type THackDBNavigator = class(TDBNavigator); + +type + TfrmCobrancaCampanha = class(TmstMaster) + pnl_info: TPanel; + lbl_id: TLabel; + lbl_nome: TLabel; + IncludeBtn: TSpeedButton; + IncAllBtn: TSpeedButton; + ExcludeBtn: TSpeedButton; + ExAllBtn: TSpeedButton; + lbl_source: TLabel; + lbl_participantes: TLabel; + lbl_datacad: TLabel; + dbedt_id: TDBEdit; + dbedt_nome: TDBEdit; + dbcb_ativa: TDBCheckBox; + dbcb_concluida: TDBCheckBox; + lb_source: TListBox; + lb_destiny: TListBox; + pb_campanha: TProgressBar; + dbdtp_cad: TrDBDateTimePicker; + pnl_gridcampanha: TPanel; + navPrincipal: TDBNavigator; + dbg_campanha: TDBGrid; + pnl_griddevedores: TPanel; + dbg_consultados: TDBGrid; + dts_campanha: TDataSource; + dtsCampanha_consulta: TDataSource; + Query: TZQuery; + ImageList1: TImageList; + procedure IncAllBtnClick(Sender: TObject); + procedure IncludeBtnClick(Sender: TObject); + procedure dbcb_ativaClick(Sender: TObject); + procedure dbcb_concluidaClick(Sender: TObject); + procedure dbg_campanhaMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure dts_campanhaDataChange(Sender: TObject; Field: TField); + procedure dts_campanhaStateChange(Sender: TObject); + procedure ExAllBtnClick(Sender: TObject); + procedure ExcludeBtnClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + private + procedure SetupHackedNavigator(const Navigator : TDBNavigator; + const Glyphs : TImageList); + { Private declarations } + public + campanha_hints : array of string; + + function GetFirstSelection(List: TCustomListBox): Integer; + procedure MoveSelected(List: TCustomListBox; Items: TStrings); + procedure SetItem(List: TListBox; Index: Integer); + procedure SetButtons; + { Public declarations } + end; + +var + frmCobrancaCampanha: TfrmCobrancaCampanha; + +implementation + +{$R *.dfm} + +uses udtmSystem, ucadCampanha, System.UITypes; + +procedure TfrmCobrancaCampanha.IncAllBtnClick(Sender: TObject); //func pra adicionar todos os elementos +var //de um list box pro outro + I: Integer; +begin + for I := 0 to lb_source.Items.Count - 1 do + lb_destiny.Items.AddObject(lb_source.Items[I], + lb_source.Items.Objects[I]); + lb_source.Items.Clear; + SetItem(lb_source, 0); +end; + +procedure TfrmCobrancaCampanha.IncludeBtnClick(Sender: TObject); //func pra adicionar um elemento +var //de um lsit box pro outro + Index: Integer; +begin + Index := GetFirstSelection(lb_source); + MoveSelected(lb_source, lb_destiny.Items); + SetItem(lb_source, Index); +end; + +procedure TfrmCobrancaCampanha.dbcb_ativaClick(Sender: TObject); //toggle do db de ativo +begin //e concluido + inherited; +if dbcb_ativa.Checked then +begin + dbcb_concluida.Checked := false; +end; +end; + +procedure TfrmCobrancaCampanha.dbcb_concluidaClick(Sender: TObject); //toggle do db de ativo +begin //e concluido + inherited; +if dbcb_concluida.Checked then +begin + dbcb_ativa.Checked := false; +end; +end; + +procedure TfrmCobrancaCampanha.dbg_campanhaMouseMove(Sender: TObject; //func pra exibir o hint + Shift: TShiftState; X, Y: Integer); //correto de cada campanha + var + Cell: TGridCoord; +begin + inherited; + Cell := dbg_campanha.MouseCoord(X,Y); + + if (cell.Y > 0) then + begin + dbg_campanha.Hint := campanha_hints[cell.Y-1]; + end else + begin + dbg_campanha.Hint := ''; + end; + +end; + +procedure TfrmCobrancaCampanha.dts_campanhaDataChange(Sender: TObject; Field: TField); +begin + inherited; +dbg_consultados.DataSource.DataSet := dtmSystem.tblCampanhaDevedores; //seta o grid pra +end; //pegar contedo + //do db +procedure TfrmCobrancaCampanha.dts_campanhaStateChange(Sender: TObject); +begin + inherited; + pnl_info.Enabled := dts_campanha.State in [dsEdit, dsInsert]; //inherited do Cadastro +end; //que nao tinha pois janela nao veio do cad, mas funciona como uma + +procedure TfrmCobrancaCampanha.ExAllBtnClick(Sender: TObject); //excluir todos os elementos do segundo +var //list box de volta pro primeiro + I: Integer; +begin + for I := 0 to lb_destiny.Items.Count - 1 do + lb_source.Items.AddObject(lb_destiny.Items[I], lb_destiny.Items.Objects[I]); + lb_destiny.Items.Clear; + SetItem(lb_destiny, 0); +end; + +procedure TfrmCobrancaCampanha.ExcludeBtnClick(Sender: TObject); //exclui um elemento do segundo +var //list box de volta pro primeiro + Index: Integer; +begin + Index := GetFirstSelection(lb_destiny); + MoveSelected(lb_destiny, lb_source.Items); + SetItem(lb_destiny, Index); +end; + +procedure TfrmCobrancaCampanha.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + if dts_campanha.DataSet <> nil then + begin //ver dts_campanhaStateChange + + dts_campanha.DataSet.Filtered := False; + + if dts_campanha.DataSet.State in [dsInsert, dsEdit] then + dts_campanha.DataSet.Cancel; + end; +Action := caFree; +end; + +procedure TfrmCobrancaCampanha.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + inherited; //ver dts_campanhaStateChange +if navPrincipal.DataSource <> nil then + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := False; + end; +end; + +procedure TfrmCobrancaCampanha.FormCreate(Sender: TObject); +var +pos : integer; +begin + inherited; + pos := 0; + setlength(campanha_hints,pos+1); + + SetupHackedNavigator(navPrincipal,ImageList1); + + +with dtmSystem do +begin + + tblCobCampanha.Open; + tblCobCampanha.First; + while not tblCobCampanha.Eof do + begin + campanha_hints[pos] := tblCobCampanhaTX_DESC.AsString;//vetor de hints pra campanha + pos := pos +1; + setlength(campanha_hints,pos+1); + tblCobCampanha.Next; + end; + tblCobCampanha.First; + + tblUsuariosConsulta.Open; + tblCampanhaCob.Open; + tblUsuariosConsulta.First; + while not tblUsuariosConsulta.Eof do + begin + if tblCampanhaCob.Locate('ID_COBRADOR',tblUsuariosConsultaID_USUARIO.AsString,[]) then + begin + lb_destiny.Items.Add(tblUsuariosConsultaTX_NOME.AsString);// adiciona as entradas pro list box + end else + lb_source.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + tblUsuariosConsulta.Next; + end; + +end; +end; + +procedure TfrmCobrancaCampanha.FormShow(Sender: TObject); +begin + inherited; +//dtmSystem.tblCobCampanha.Open; + +end; + + +function TfrmCobrancaCampanha.GetFirstSelection(List: TCustomListBox): Integer; +begin + for Result := 0 to List.Items.Count - 1 do //pega primeiro item do list box + if List.Selected[Result] then Exit; + Result := LB_ERR; +end; + + +procedure TfrmCobrancaCampanha.MoveSelected(List: TCustomListBox; Items: TStrings); +var + I: Integer; +begin + for I := List.Items.Count - 1 downto 0 do //move o item selecionado + if List.Selected[I] then + begin + Items.AddObject(List.Items[I], List.Items.Objects[I]); + List.Items.Delete(I); + end; +end; + +procedure TfrmCobrancaCampanha.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); + //primeiro blocao ver dts_campanhaStateChange +begin + + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', mtConfirmation, [mbOK], 0); + Abort; + end; + + nbPost: SelectNext(ActiveControl as tWinControl, True, True); + + nbDelete: + begin + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', mtConfirmation, [mbOK], 0); + Abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then Abort; + + try + dts_campanha.DataSet.Delete; + except + ShowMessage('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + Abort; + end; + + nbCancel: if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then Abort; + end; + + if button = nbInsert then + begin + with TcadCampanha.Create(self) do //abre janela de criar campanha + begin + showmodal; + if ModalResult <> mrOk then + begin + navPrincipal.DataSource.DataSet.Cancel; + pnl_info.Enabled := false; + end; + if ModalResult = mrOk then + begin +// navPrincipal.DataSource.DataSet.Append; + Query.Open; + pnl_info.Enabled := true; + end; + abort; + end; + end; + + if button = nbEdit then + begin + pnl_info.Enabled := true; + end; + + if button = nbCancel then + begin + pnl_info.Enabled := false; + end; + if button = nbPost then + begin + dtmSystem.tblCampanhaDevedores.Open; + Query.First; + while not Query.Eof do + begin + dtmSystem.tblCampanhaDevedores.Append; + dtmSystem.tblCampanhaDevedoresID_CAMPANHA.AsInteger := dtmSystem.tblCobCampanhaID_CAMPANHA.AsInteger; + dtmSystem.tblCampanhaDevedoresID_DEVEDOR.AsInteger := Query.FieldByName('ID_DEVEDOR').AsInteger; + Query.Next; + end; + Query.First; + end; + +end; + +procedure TfrmCobrancaCampanha.SetButtons; //seta o estado dos botes +var + SrcEmpty, DstEmpty: Boolean; +begin + SrcEmpty := lb_source.Items.Count = 0; + DstEmpty := lb_destiny.Items.Count = 0; + IncludeBtn.Enabled := not SrcEmpty; + IncAllBtn.Enabled := not SrcEmpty; + ExcludeBtn.Enabled := not DstEmpty; + ExAllBtn.Enabled := not DstEmpty; +end; + +procedure TfrmCobrancaCampanha.SetItem(List: TListBox; Index: Integer); +var + MaxIndex: Integer; //seta os itens +begin + with List do + begin + SetFocus; + MaxIndex := List.Items.Count - 1; + if Index = LB_ERR then Index := 0 + else if Index > MaxIndex then Index := MaxIndex; + if Index >= 0 then Selected[Index] := True; + end; + SetButtons; +end; + +procedure TfrmCobrancaCampanha.SetupHackedNavigator(const Navigator : TDBNavigator; +const Glyphs : TImageList); +const + Captions : array[TNavigateBtn] of string = + ('Primeiro', 'Anterior', 'Prximo', 'ltimo', 'Adicionar', + 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', 'Atualizar', + 'Aplicar Atualizaes','Cancelar Atualizes'); +(*Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh');*) +var + btn : TNavigateBtn; +begin +//funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + //from the Captions const array + Caption := Captions[btn]; + + //the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn),Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + end; + +end; + +end. + + + + + + + + + + + + + diff --git a/ufrmDadosCheques.dfm b/ufrmDadosCheques.dfm new file mode 100644 index 0000000..bc3cb01 --- /dev/null +++ b/ufrmDadosCheques.dfm @@ -0,0 +1,77 @@ +object frmDadosCheques: TfrmDadosCheques + Left = 0 + Top = 0 + Caption = 'Dados dos Cheques' + ClientHeight = 98 + ClientWidth = 427 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object lbl_nrcheque: TLabel + Left = 8 + Top = 8 + Width = 69 + Height = 13 + Caption = 'N'#186' do cheque:' + end + object lbl_banco: TLabel + Left = 152 + Top = 8 + Width = 33 + Height = 13 + Caption = 'Banco:' + end + object lbl_praca: TLabel + Left = 296 + Top = 8 + Width = 31 + Height = 13 + Caption = 'Pra'#231'a:' + end + object edt_nrcheque: TEdit + Left = 8 + Top = 27 + Width = 121 + Height = 21 + TabOrder = 0 + end + object edt_banco: TEdit + Left = 152 + Top = 27 + Width = 121 + Height = 21 + TabOrder = 1 + end + object edt_praca: TEdit + Left = 296 + Top = 27 + Width = 121 + Height = 21 + TabOrder = 2 + end + object btn_ok: TButton + Left = 252 + Top = 65 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 3 + OnClick = btn_okClick + end + object btn_cancel: TButton + Left = 344 + Top = 65 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 4 + end +end diff --git a/ufrmDadosCheques.pas b/ufrmDadosCheques.pas new file mode 100644 index 0000000..fedbd57 --- /dev/null +++ b/ufrmDadosCheques.pas @@ -0,0 +1,42 @@ +unit ufrmDadosCheques; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; + +type + TfrmDadosCheques = class(TForm) + lbl_nrcheque: TLabel; + edt_nrcheque: TEdit; + lbl_banco: TLabel; + edt_banco: TEdit; + lbl_praca: TLabel; + edt_praca: TEdit; + btn_ok: TButton; + btn_cancel: TButton; + procedure btn_okClick(Sender: TObject); + private + { Private declarations } + public + nr_cheque, banco, praca: string; + { Public declarations } + end; + +var + frmDadosCheques: TfrmDadosCheques; + +implementation + +{$R *.dfm} + +procedure TfrmDadosCheques.btn_okClick(Sender: TObject); +begin + nr_cheque := edt_nrcheque.Text; + banco := edt_banco.Text; + praca := edt_praca.Text; +end; + +end. diff --git a/ufrmDepartamentos.dfm b/ufrmDepartamentos.dfm new file mode 100644 index 0000000..5ac0a42 --- /dev/null +++ b/ufrmDepartamentos.dfm @@ -0,0 +1,587 @@ +inherited frmDepartamentos: TfrmDepartamentos + Caption = 'Departamentos' + ExplicitWidth = 708 + ExplicitHeight = 498 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + inherited pcClientes: TPageControl + inherited tabCadastro: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 649 + ExplicitHeight = 272 + object DBGrid1: TDBGrid + Left = 3 + Top = 3 + Width = 643 + Height = 266 + DataSource = dtsDB + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Visible = True + end> + end + end + end + end + inherited grpDescricao: TGroupBox + inherited DBEdit1: TDBEdit + DataField = 'TX_NOME' + end + end + inherited navPrincipal: TDBNavigator + DataSource = dtsDB + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblDepartamentos + end + object ImageList1: TImageList + Left = 632 + Top = 56 + Bitmap = { + 494C01010C001800E40110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end +end diff --git a/ufrmDepartamentos.pas b/ufrmDepartamentos.pas new file mode 100644 index 0000000..49643a7 --- /dev/null +++ b/ufrmDepartamentos.pas @@ -0,0 +1,36 @@ +unit ufrmDepartamentos; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls, Vcl.DBCtrls, + Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, System.ImageList, Vcl.ImgList; + +type + TfrmDepartamentos = class(TmstCadastro) + DBGrid1: TDBGrid; + ImageList1: TImageList; + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmDepartamentos: TfrmDepartamentos; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmDepartamentos.FormCreate(Sender: TObject); +begin + inherited; + dtmSystem.SetupHackedNavigator(navPrincipal, ImageList1, 's'); +end; + +end. diff --git a/ufrmDigito9.dfm b/ufrmDigito9.dfm new file mode 100644 index 0000000..93312ee --- /dev/null +++ b/ufrmDigito9.dfm @@ -0,0 +1,100 @@ +inherited frmDigito9: TfrmDigito9 + Caption = 'D'#237'gito 9' + ExplicitWidth = 384 + ExplicitHeight = 207 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_tel: TLabel [0] + Left = 176 + Top = 48 + Width = 3 + Height = 13 + Alignment = taCenter + end + object lbl_tel2: TLabel [1] + Left = 192 + Top = 112 + Width = 3 + Height = 13 + Alignment = taCenter + end + object ProgressBar1: TProgressBar + Left = 8 + Top = 80 + Width = 362 + Height = 17 + TabOrder = 1 + end + object DBGrid1: TDBGrid + Left = 34 + Top = 131 + Width = 320 + Height = 14 + DataSource = dtsTelefones + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Visible = False + end + object dtsTelefones: TDataSource + DataSet = qryTelefones + Left = 320 + Top = 24 + end + object Timer1: TTimer + Interval = 1 + OnTimer = Timer1Timer + Left = 8 + Top = 8 + end + object qryTelefones: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from chg_telefones' + 'where' + 'nr_numero similar to '#39'[6-9]%'#39) + Params = <> + Left = 232 + Top = 24 + object qryTelefonesID_TELEFONE: TIntegerField + FieldName = 'ID_TELEFONE' + Required = True + end + object qryTelefonesID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object qryTelefonesNR_DDD: TWideStringField + FieldName = 'NR_DDD' + Size = 4 + end + object qryTelefonesNR_NUMERO: TWideStringField + FieldName = 'NR_NUMERO' + end + object qryTelefonesTP_ATIVO: TWideStringField + FieldName = 'TP_ATIVO' + Size = 1 + end + object qryTelefonesTP_TIPOTEL: TWideStringField + FieldName = 'TP_TIPOTEL' + Size = 1 + end + object qryTelefonesTX_DESC: TWideStringField + FieldName = 'TX_DESC' + Size = 100 + end + object qryTelefonesTX_OBS: TWideMemoField + FieldName = 'TX_OBS' + BlobType = ftWideMemo + end + object qryTelefonesID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object qryTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end +end diff --git a/ufrmDigito9.pas b/ufrmDigito9.pas new file mode 100644 index 0000000..aaadb58 --- /dev/null +++ b/ufrmDigito9.pas @@ -0,0 +1,167 @@ +unit ufrmDigito9; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.Math, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.StdCtrls, + Data.DB, Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, ZAbstractRODataset, + ZAbstractDataset, ZDataset; + +type + TfrmDigito9 = class(TmstMaster) + dtsTelefones: TDataSource; + ProgressBar1: TProgressBar; + lbl_tel: TLabel; + lbl_tel2: TLabel; + Timer1: TTimer; + DBGrid1: TDBGrid; + qryTelefones: TZQuery; + qryTelefonesID_TELEFONE: TIntegerField; + qryTelefonesID_DEVEDOR: TIntegerField; + qryTelefonesNR_DDD: TWideStringField; + qryTelefonesNR_NUMERO: TWideStringField; + qryTelefonesTP_ATIVO: TWideStringField; + qryTelefonesTP_TIPOTEL: TWideStringField; + qryTelefonesTX_DESC: TWideStringField; + qryTelefonesTX_OBS: TWideMemoField; + qryTelefonesID_ULTIMO_USUARIO: TIntegerField; + qryTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField; + procedure Timer1Timer(Sender: TObject); + private + procedure Arrumatel; + { Private declarations } + public + { Public declarations } + end; + +var + frmDigito9: TfrmDigito9; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmDigito9.Arrumatel; +var + numero: string; + a, b: Integer; +begin + Screen.Cursor := crHourGlass; + lbl_tel.Caption := 'Abrindo tabela de Telefones...'; + lbl_tel.Left := 192 - floor(lbl_tel.Width / 2); + with dtmSystem do + begin + if tblDevedores.Active then + begin + tblDevedores.Close; + end; + qryTelefones.Open; + qryTelefones.First; + b := qryTelefones.RecordCount; + ProgressBar1.Max := b; + ProgressBar1.Step := 1; + ProgressBar1.Position := 0; + a := 1; + lbl_tel.Caption := 'Processando...'; + lbl_tel.Left := 192 - floor(lbl_tel.Width / 2); + lbl_tel2.Caption := 'Telefone ' + inttostr(a) + ' de ' + inttostr(b); + lbl_tel2.Left := 192 - floor(lbl_tel2.Width / 2); + while not qryTelefones.Eof do + begin + lbl_tel2.Caption := 'Telefone ' + inttostr(a) + ' de ' + inttostr(b); + lbl_tel2.Left := 192 - floor(lbl_tel2.Width / 2); + numero := qryTelefonesNR_NUMERO.AsString; + + try + numero := FormatTelefone(numero); + qryTelefones.Edit; + qryTelefonesNR_NUMERO.AsString := numero; + if length(numero) = 9 then + begin + qryTelefonesTP_TIPOTEL.AsString := 'F'; + end; + if length(numero) = 10 then + begin + qryTelefonesTP_TIPOTEL.AsString := 'M'; + end; + qryTelefones.Post; + except + on E: Exception do + begin + qryTelefones.Edit; + qryTelefonesTX_OBS.AsString := qryTelefonesTX_OBS.AsString + + sLineBreak + 'Nmero possivelmente invlido'; + qryTelefones.Post; + end; + end; + qryTelefones.Next; + a := a + 1; + ProgressBar1.Position := a; + Application.ProcessMessages; + end; + qryTelefones.Close; + end; + lbl_tel.Caption := 'Terminou.'; + lbl_tel.Left := 192 - floor(lbl_tel.Width / 2); + Screen.Cursor := crDefault; +end; + +//function TfrmDigito9.FormatTelefone(telefone: string): string; +//var +// digito: Integer; +//begin +// telefone := StringReplace(telefone, '(', '', [rfReplaceAll, rfIgnoreCase]); +// telefone := StringReplace(telefone, ')', '', [rfReplaceAll, rfIgnoreCase]); +// telefone := StringReplace(telefone, '-', '', [rfReplaceAll, rfIgnoreCase]); +// telefone := StringReplace(telefone, ' ', '', [rfReplaceAll, rfIgnoreCase]); +// if length(telefone) = 8 then +// begin +// digito := strtoint(copy(telefone, 1, 1)); +// case digito of +// 2, 3, 4, 5: +// begin +// telefone := copy(telefone, 1, 4) + '-' + copy(telefone, 5, 4); +// end; +// 6, 7, 8, 9: +// begin +// telefone := '9' + copy(telefone, 1, 4) + '-' + copy(telefone, 5, 4); +// end; +// 1: +// begin +// telefone := ''; +// end; +// end; +// end +// else +// begin +// if strtoint(copy(telefone, 1, 1)) = 9 then +// begin +// telefone := copy(telefone, 1, 5) + '-' + copy(telefone, 6, 4); +// end +// else +// begin +// telefone := ''; +// end; +// end; +// if telefone <> '' then +// begin +// Result := telefone; +// end +// else +// begin +// raise Exception.Create('Nmero de telefone invlido.'); +// end; +//end; + +procedure TfrmDigito9.Timer1Timer(Sender: TObject); +begin + inherited; + Timer1.Enabled := False; + Arrumatel; +end; + +end. diff --git a/ufrmEfetuarCobranca.dfm b/ufrmEfetuarCobranca.dfm new file mode 100644 index 0000000..2e8de3e --- /dev/null +++ b/ufrmEfetuarCobranca.dfm @@ -0,0 +1,4168 @@ +object frmEfetuarCobranca: TfrmEfetuarCobranca + Left = 0 + Top = 55 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'Cobran'#231'a Telef'#244'nica' + ClientHeight = 707 + ClientWidth = 1273 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + PopupMenu = PopupMenu1 + Position = poMainFormCenter + OnActivate = FormActivate + OnCanResize = FormCanResize + OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDeactivate = FormDeactivate + OnKeyDown = FormKeyDown + OnShow = FormShow + DesignSize = ( + 1273 + 707) + PixelsPerInch = 96 + TextHeight = 13 + object grpb_devedores: TGroupBox + Left = 230 + Top = 6 + Width = 1037 + Height = 153 + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 0 + object Label1: TLabel + Left = 905 + Top = 58 + Width = 39 + Height = 13 + Caption = 'Usu'#225'rio:' + end + object Label2: TLabel + Left = 905 + Top = 104 + Width = 90 + Height = 13 + Caption = #218'ltima Atualiza'#231#227'o:' + end + object pnl_devedores: TPanel + Left = 3 + Top = 3 + Width = 1031 + Height = 147 + BevelOuter = bvNone + TabOrder = 0 + object lbl_coddev: TLabel + Left = 271 + Top = 55 + Width = 95 + Height = 13 + Caption = 'C'#243'digo do Devedor:' + end + object lbl_documento: TLabel + Left = 271 + Top = 10 + Width = 55 + Height = 13 + Caption = 'CPF/CNPJ:' + end + object lbl_nome: TLabel + Left = 59 + Top = 10 + Width = 31 + Height = 13 + Caption = 'Nome:' + end + object lbl_nomedamae: TLabel + Left = 59 + Top = 101 + Width = 70 + Height = 13 + Caption = 'Nome da M'#227'e:' + end + object lbl_nomedopai: TLabel + Left = 59 + Top = 56 + Width = 64 + Height = 13 + Caption = 'Nome do Pai:' + end + object lbl_rg: TLabel + Left = 271 + Top = 100 + Width = 19 + Height = 13 + Caption = 'RG:' + end + object Label5: TLabel + Left = 662 + Top = 9 + Width = 31 + Height = 13 + Caption = 'Email: ' + end + object Label6: TLabel + Left = 415 + Top = 55 + Width = 66 + Height = 13 + Caption = 'Observa'#231#245'es:' + end + object lbl_datacad: TLabel + Left = 414 + Top = 9 + Width = 114 + Height = 13 + Caption = 'Data de cadastramento:' + end + object lbl_dtnasc: TLabel + Left = 543 + Top = 9 + Width = 98 + Height = 13 + Caption = 'Data de nascimento:' + end + object lbl_idade: TLabel + Left = 543 + Top = 55 + Width = 30 + Height = 13 + Caption = 'Idade:' + end + object pnl_contatos: TPanel + Left = 902 + Top = 4 + Width = 121 + Height = 23 + BevelInner = bvLowered + TabOrder = 13 + object Label15: TLabel + Left = 8 + Top = 5 + Width = 73 + Height = 13 + Caption = 'Acionamentos: ' + end + object dblbl_contatos: TDBText + Left = 81 + Top = 5 + Width = 38 + Height = 17 + DataField = 'QTDE_ACIONAMENTOS' + DataSource = dtmSystem.dtsContatos + end + end + object dbedt_coddev: TDBEdit + Left = 271 + Top = 74 + Width = 137 + Height = 21 + DataField = 'CD_DEVEDOR' + DataSource = dtsDevedores + TabOrder = 5 + end + object dbedt_documento: TDBEdit + Left = 271 + Top = 28 + Width = 137 + Height = 21 + DataSource = dtsDevedores + TabOrder = 1 + OnKeyPress = dbedt_documentoKeyPress + end + object dbedt_nome: TDBEdit + Left = 59 + Top = 28 + Width = 206 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtsDevedores + TabOrder = 0 + end + object dbedt_nomemae: TDBEdit + Left = 59 + Top = 119 + Width = 206 + Height = 21 + DataField = 'TX_MAE' + DataSource = dtsDevedores + TabOrder = 6 + end + object dbedt_nomepai: TDBEdit + Left = 59 + Top = 74 + Width = 206 + Height = 21 + DataField = 'TX_PAI' + DataSource = dtsDevedores + TabOrder = 4 + end + object dbedt_rg: TDBEdit + Left = 271 + Top = 119 + Width = 137 + Height = 21 + DataField = 'CD_RG' + DataSource = dtsDevedores + TabOrder = 7 + end + object dbmemo_devedores: TDBMemo + Left = 414 + Top = 74 + Width = 243 + Height = 66 + DataField = 'TL_MEMO' + DataSource = dtsDevedores + ScrollBars = ssVertical + TabOrder = 8 + end + object dbedt_email: TDBEdit + Left = 663 + Top = 28 + Width = 181 + Height = 21 + TabStop = False + DataField = 'TX_EMAIL' + DataSource = dtsEmail + ReadOnly = True + TabOrder = 9 + end + object dbdtp_dtcad: TDBDateTimePicker + Left = 414 + Top = 28 + Width = 114 + Height = 21 + Date = 43136.472312372680000000 + Time = 43136.472312372680000000 + TabOrder = 2 + Caption = '' + DataField = 'DT_CADASTRO' + end + object dbdtp_dtnasc: TDBDateTimePicker + Left = 543 + Top = 28 + Width = 114 + Height = 21 + Date = 43171.000000000000000000 + Time = 43171.000000000000000000 + TabOrder = 3 + Caption = '' + DataField = 'DT_NASC' + end + object btn_pesquisa: TButton + Left = 902 + Top = 30 + Width = 121 + Height = 19 + Caption = 'Pesquisa' + TabOrder = 10 + OnClick = btn_pesquisaClick + end + object navEmail: TDBNavigator + Left = 850 + Top = 6 + Width = 49 + Height = 130 + DataSource = dtsEmail + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel] + Kind = dbnVertical + TabOrder = 11 + end + object dbgrd_email: TDBGrid + Left = 663 + Top = 55 + Width = 181 + Height = 83 + TabStop = False + DataSource = dtsEmail + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 12 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_EMAIL' + Title.Caption = 'Email' + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = #218'ltimo Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + end + object DBEdit2: TDBEdit + Left = 905 + Top = 77 + Width = 121 + Height = 21 + TabStop = False + DataField = 'TX_ULTIMO_USUARIO' + ReadOnly = True + TabOrder = 1 + end + object DBEdit3: TDBEdit + Left = 905 + Top = 122 + Width = 121 + Height = 21 + TabStop = False + DataField = 'DT_HORA_ULTIMA_ATT' + ReadOnly = True + TabOrder = 2 + end + end + object pgCobranca: TPageControl + Left = 230 + Top = 165 + Width = 1037 + Height = 519 + ActivePage = tabTitulos + Anchors = [akLeft, akTop, akBottom] + TabOrder = 1 + OnChange = pgCobrancaChange + OnChanging = pgCobrancaChanging + object tabEnderecos: TTabSheet + Caption = '&Endere'#231'os' + DesignSize = ( + 1029 + 491) + object pnl_enderecos: TPanel + Left = 65 + Top = 1 + Width = 952 + Height = 487 + BevelOuter = bvNone + TabOrder = 1 + object lbl_endsit: TLabel + Left = 12 + Top = 114 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + end + object lbl_endmoradia: TLabel + Left = 108 + Top = 114 + Width = 62 + Height = 13 + Caption = 'Confirma'#231#227'o:' + end + object lbl_endlogradouro: TLabel + Left = 12 + Top = 12 + Width = 49 + Height = 13 + Caption = 'Endere'#231'o:' + end + object lbl_endnum: TLabel + Left = 514 + Top = 12 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + end + object lbl_endcomp: TLabel + Left = 599 + Top = 12 + Width = 67 + Height = 13 + Caption = 'Complemento:' + end + object lbl_endtpend: TLabel + Left = 12 + Top = 68 + Width = 87 + Height = 13 + Caption = 'Tipo de endere'#231'o:' + end + object lbl_endcep: TLabel + Left = 213 + Top = 68 + Width = 24 + Height = 13 + Caption = 'CEP:' + end + object lbl_endbairro: TLabel + Left = 328 + Top = 68 + Width = 30 + Height = 13 + Caption = 'Bairro:' + end + object lbl_enduf: TLabel + Left = 514 + Top = 68 + Width = 17 + Height = 13 + Caption = 'UF:' + end + object lbl_endcidade: TLabel + Left = 599 + Top = 68 + Width = 36 + Height = 13 + Caption = 'Cidade:' + end + object pnl_endsit: TPanel + Left = 12 + Top = 133 + Width = 65 + Height = 49 + BevelKind = bkFlat + BevelOuter = bvNone + TabOrder = 0 + object dbrg_endsit: TDBRadioGroup + Left = -4 + Top = -9 + Width = 113 + Height = 57 + DataField = 'TP_ATIVO' + DataSource = dtsEnderecos + Items.Strings = ( + 'Ativo' + 'Inativo') + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + object pnl_endmoradia: TPanel + Left = 108 + Top = 133 + Width = 103 + Height = 50 + BevelKind = bkFlat + BevelOuter = bvNone + TabOrder = 8 + object dbrg_endmoradia: TDBRadioGroup + Left = -4 + Top = -9 + Width = 113 + Height = 58 + DataField = 'TP_CONFIRMADO' + DataSource = dtsEnderecos + Items.Strings = ( + 'Confirmado' + 'N'#227'o Confirmado') + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + object dbedt_endlogradouro: TDBEdit + Left = 12 + Top = 31 + Width = 477 + Height = 21 + DataField = 'TX_LOGRADOURO' + DataSource = dtsEnderecos + TabOrder = 1 + end + object dbedt_endnum: TDBEdit + Left = 514 + Top = 31 + Width = 63 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsEnderecos + TabOrder = 2 + end + object dbedt_endcomp: TDBEdit + Left = 599 + Top = 31 + Width = 97 + Height = 21 + DataField = 'TX_COMPLEMENTO' + DataSource = dtsEnderecos + TabOrder = 3 + end + object pnl_endtpend: TPanel + Left = 12 + Top = 86 + Width = 152 + Height = 22 + BevelKind = bkFlat + BevelOuter = bvNone + TabOrder = 9 + object DBRadioGroup1: TDBRadioGroup + Left = -4 + Top = -25 + Width = 160 + Height = 58 + Columns = 2 + DataField = 'TP_ENDERECO' + DataSource = dtsEnderecos + Items.Strings = ( + 'Resid'#234'ncia' + 'Trabalho') + TabOrder = 0 + Values.Strings = ( + 'R' + 'T') + end + end + object dbedt_endcep: TDBEdit + Left = 213 + Top = 87 + Width = 65 + Height = 21 + DataField = 'TX_CEP' + DataSource = dtsEnderecos + TabOrder = 4 + end + object dbedt_endbairro: TDBEdit + Left = 328 + Top = 87 + Width = 161 + Height = 21 + DataField = 'TX_BAIRRO' + DataSource = dtsEnderecos + TabOrder = 5 + end + object dblucb_enduf: TDBLookupComboBox + Left = 514 + Top = 87 + Width = 63 + Height = 21 + DataField = 'ID_ESTADO' + DataSource = dtsEnderecos + KeyField = 'ID_ESTADO' + ListField = 'TX_NOME' + ListSource = dtsUF + TabOrder = 6 + end + object dblucb_endcidade: TDBLookupComboBox + Left = 599 + Top = 87 + Width = 97 + Height = 21 + DataField = 'ID_CIDADE' + DataSource = dtsEnderecos + KeyField = 'ID_CIDADE' + ListField = 'TX_NOME' + ListSource = dtsCidade + TabOrder = 7 + end + end + object navEnderecos: TDBNavigator + Left = 3 + Top = 3 + Width = 68 + Height = 474 + DataSource = dtsEnderecos + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + Anchors = [akLeft, akTop, akBottom] + Kind = dbnVertical + ParentShowHint = False + ShowHint = False + TabOrder = 0 + end + object dbgrd_enderecos: TDBGrid + Left = 77 + Top = 191 + Width = 940 + Height = 282 + DataSource = dtsEnderecos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_enderecosDrawColumnCell + OnTitleClick = dbgrd_enderecosTitleClick + Columns = < + item + Expanded = False + FieldName = 'TX_LOGRADOURO' + Title.Caption = 'Endere'#231'o' + Width = 185 + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'TX_COMPLEMENTO' + Title.Caption = 'Complemento' + Width = 125 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Width = 32 + Visible = True + end + item + Expanded = False + FieldName = 'TX_BAIRRO' + Title.Caption = 'Bairro' + Width = 93 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ESTADO' + Title.Caption = 'Estado' + Width = 101 + Visible = True + end + item + Expanded = False + FieldName = 'TX_CIDADE' + Title.Caption = 'Cidade' + Visible = True + end + item + Expanded = False + FieldName = 'TX_CEP' + Title.Caption = 'CEP' + Width = 82 + Visible = True + end + item + Expanded = False + FieldName = 'TP_REFERENCIA' + Title.Caption = 'Refer'#234'ncia' + Width = 69 + Visible = True + end + item + Expanded = False + FieldName = 'TP_ENDERECO' + Title.Caption = 'Tipo de Endere'#231'o' + Width = 104 + Visible = True + end + item + Expanded = False + FieldName = 'ID_HIGIENIZADORA' + Title.Caption = 'Higienizadora' + Width = 76 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + end + object tabTelefones: TTabSheet + Caption = '&Telefones' + ImageIndex = 1 + DesignSize = ( + 1029 + 491) + object pnl_telefone: TPanel + Left = 65 + Top = 3 + Width = 952 + Height = 485 + BevelOuter = bvNone + TabOrder = 1 + object lbl_telnum: TLabel + Left = 92 + Top = 12 + Width = 40 + Height = 13 + Caption = 'N'#250'mero:' + end + object lbl_teldesc: TLabel + Left = 235 + Top = 12 + Width = 51 + Height = 13 + Caption = 'Descri'#231#227'o:' + end + object lbl_telsit: TLabel + Left = 235 + Top = 83 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + end + object lbl_telobs: TLabel + Left = 377 + Top = 12 + Width = 66 + Height = 13 + Caption = 'Observa'#231#245'es:' + end + object lbl_teltipo: TLabel + Left = 23 + Top = 84 + Width = 84 + Height = 13 + Caption = 'Tipo de Telefone:' + end + object lbl_ddd: TLabel + Left = 23 + Top = 12 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object Label16: TLabel + Left = 23 + Top = 143 + Width = 67 + Height = 13 + Caption = 'Recado SMS:' + end + object dbgrd_telefone: TDBGrid + Left = 12 + Top = 230 + Width = 922 + Height = 227 + DataSource = dtsTelefones + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_telefoneDrawColumnCell + OnTitleClick = dbgrd_telefoneTitleClick + Columns = < + item + Expanded = False + FieldName = 'TP_ATIVO' + Title.Caption = 'Ativo' + Visible = True + end + item + Expanded = False + FieldName = 'NR_DDD' + Title.Caption = 'DDD' + Visible = True + end + item + Expanded = False + FieldName = 'NR_NUMERO' + Title.Caption = 'N'#250'mero' + Visible = True + end + item + Expanded = False + FieldName = 'TP_TIPOTEL' + Title.Caption = 'Tipo' + Width = 67 + Visible = True + end + item + Expanded = False + FieldName = 'TX_DESC' + Title.Caption = 'Descri'#231#227'o' + Width = 460 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + object dbedt_telnum: TDBEdit + Left = 92 + Top = 31 + Width = 121 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtsTelefones + TabOrder = 2 + end + object dbedt_teldesc: TDBEdit + Left = 235 + Top = 31 + Width = 121 + Height = 21 + DataField = 'TX_DESC' + DataSource = dtsTelefones + TabOrder = 3 + end + object pnl_telsit: TPanel + Left = 235 + Top = 102 + Width = 65 + Height = 49 + BevelKind = bkFlat + BevelOuter = bvNone + TabOrder = 5 + object dbrg_telsit: TDBRadioGroup + Left = -4 + Top = -9 + Width = 113 + Height = 57 + DataField = 'TP_ATIVO' + DataSource = dtsTelefones + Items.Strings = ( + 'Ativo' + 'Inativo') + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + object dbmem_telobs: TDBMemo + Left = 377 + Top = 31 + Width = 552 + Height = 162 + DataField = 'TX_OBS' + DataSource = dtsTelefones + TabOrder = 4 + end + object pnl_teltipo: TPanel + Left = 23 + Top = 102 + Width = 121 + Height = 22 + BevelKind = bkFlat + BevelOuter = bvNone + TabOrder = 6 + object dbrg_teltipo: TDBRadioGroup + Left = -4 + Top = -25 + Width = 129 + Height = 58 + Columns = 2 + DataField = 'TP_TIPOTEL' + DataSource = dtsTelefones + Items.Strings = ( + 'Fixo' + 'M'#243'vel') + TabOrder = 0 + Values.Strings = ( + 'F' + 'M') + OnClick = dbrg_teltipoClick + end + end + object dbedt_ddd: TDBEdit + Left = 20 + Top = 31 + Width = 57 + Height = 21 + DataField = 'NR_DDD' + DataSource = dtsTelefones + TabOrder = 1 + end + object Panel3: TPanel + Left = 23 + Top = 162 + Width = 65 + Height = 49 + BevelKind = bkFlat + BevelOuter = bvNone + TabOrder = 7 + object DBRadioGroup2: TDBRadioGroup + Left = -4 + Top = -9 + Width = 113 + Height = 57 + DataField = 'TP_SMS' + DataSource = dtsTelefones + Enabled = False + Items.Strings = ( + 'Sim' + 'N'#227'o') + TabOrder = 0 + Values.Strings = ( + 'S' + 'N') + end + end + end + object navTelefone: TDBNavigator + Left = 3 + Top = 3 + Width = 68 + Height = 474 + DataSource = dtsTelefones + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + Anchors = [akLeft, akTop, akBottom] + Kind = dbnVertical + ParentShowHint = False + ShowHint = False + TabOrder = 0 + BeforeAction = navTelefoneBeforeAction + end + end + object tabTitulos: TTabSheet + Caption = '&T'#237'tulos' + ImageIndex = 3 + DesignSize = ( + 1029 + 491) + object pnl_titulos: TPanel + Left = 65 + Top = 3 + Width = 961 + Height = 490 + BevelOuter = bvNone + TabOrder = 0 + object lbl_valor: TLabel + Left = 12 + Top = 50 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object lbl_dataent: TLabel + Left = 280 + Top = 105 + Width = 80 + Height = 13 + Caption = 'Data de entrada:' + end + object lbl_datavenc: TLabel + Left = 421 + Top = 105 + Width = 99 + Height = 13 + Caption = 'Data de vencimento:' + end + object lbl_tit: TLabel + Left = 12 + Top = 2 + Width = 40 + Height = 13 + Caption = 'Produto:' + end + object lbl_sittit: TLabel + Left = 288 + Top = 2 + Width = 45 + Height = 13 + Caption = 'Situa'#231#227'o:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_cddevedor: TLabel + Left = 151 + Top = 50 + Width = 95 + Height = 13 + Caption = 'C'#243'digo do Devedor:' + end + object Label3: TLabel + Left = 620 + Top = 2 + Width = 61 + Height = 13 + Caption = 'Observa'#231#227'o:' + end + object Label14: TLabel + Left = 707 + Top = 229 + Width = 100 + Height = 13 + Caption = 'Rela'#231#227'o de Acordos:' + end + object Label18: TLabel + Left = 280 + Top = 151 + Width = 34 + Height = 13 + Caption = 'Credor:' + end + object dbedt_valor: TDBEdit + Left = 12 + Top = 69 + Width = 121 + Height = 21 + DataField = 'VL_TITULO' + DataSource = dtsTitulos + TabOrder = 1 + end + object rdbdt_entrada: TrDBDateTimePicker + Left = 280 + Top = 124 + Width = 114 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 3 + DataField = 'DT_ENTRADA' + DataSource = dtsTitulos + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object dbdt: TrDBDateTimePicker + Left = 421 + Top = 124 + Width = 114 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 5 + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object dbedit_produto: TDBEdit + Left = 12 + Top = 21 + Width = 257 + Height = 21 + DataField = 'TX_PRODUTO' + DataSource = dtsTitulos + TabOrder = 0 + end + object Panel5: TPanel + Left = 288 + Top = 21 + Width = 318 + Height = 84 + BevelOuter = bvNone + Color = clWindow + ParentBackground = False + TabOrder = 9 + object dbrg_tit: TDBRadioGroup + Left = -6 + Top = -10 + Width = 332 + Height = 99 + Columns = 2 + DataField = 'TP_SITUACAO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Items.Strings = ( + 'Aberto' + 'Acordo na Cobes' + 'Acordo no Credor' + 'Devolvido ao Lojista' + 'Baixa manual' + 'Quitado na Cobes' + 'Quitado no Credor') + ParentFont = False + TabOrder = 0 + Values.Strings = ( + 'A' + 'AC' + 'AB' + 'AJ' + 'B' + 'QC' + 'QB') + end + object pnl_cor1: TPanel + Left = 133 + Top = 6 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 1 + end + object pnl_color2: TPanel + Left = 133 + Top = 25 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 55295 + ParentBackground = False + TabOrder = 2 + end + object pnl_color3: TPanel + Left = 133 + Top = 44 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 3145645 + ParentBackground = False + TabOrder = 3 + end + object pnl_color4: TPanel + Left = 133 + Top = 64 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clMoneyGreen + ParentBackground = False + TabOrder = 4 + end + object pnl_color5: TPanel + Left = 296 + Top = 6 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = clRed + ParentBackground = False + TabOrder = 5 + end + object pnl_color6: TPanel + Left = 296 + Top = 25 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 15453831 + ParentBackground = False + TabOrder = 6 + end + object pnl_color7: TPanel + Left = 296 + Top = 44 + Width = 17 + Height = 17 + BevelKind = bkSoft + BevelOuter = bvNone + Color = 14772545 + ParentBackground = False + TabOrder = 7 + end + end + object pnl_cheque: TPanel + Left = 12 + Top = 103 + Width = 262 + Height = 93 + BevelOuter = bvNone + TabOrder = 10 + object lbl_banco: TLabel + Left = 139 + Top = 2 + Width = 34 + Height = 13 + Caption = 'Banco:' + end + object lbl_nrcheque: TLabel + Left = 3 + Top = 48 + Width = 55 + Height = 13 + Caption = 'N'#186' Cheque:' + end + object lbl_motivo: TLabel + Left = 139 + Top = 48 + Width = 35 + Height = 13 + Caption = 'Motivo:' + end + object dbedt_banco: TDBEdit + Left = 139 + Top = 21 + Width = 118 + Height = 21 + DataField = 'ID_BANCO' + DataSource = dtsTitulos + TabOrder = 0 + end + object dbedt_nrcheque: TDBEdit + Left = 3 + Top = 67 + Width = 121 + Height = 21 + DataField = 'TX_NRCHEQUE' + DataSource = dtsTitulos + TabOrder = 1 + end + object dbedt_motivo: TDBEdit + Left = 139 + Top = 67 + Width = 118 + Height = 21 + DataField = 'TP_MOTIVO' + DataSource = dtsTitulos + TabOrder = 2 + end + end + object dbcbx_tpcheque: TDBCheckBox + Left = 44 + Top = 117 + Width = 63 + Height = 17 + Caption = 'Cheque' + DataField = 'TP_CHEQUE' + DataSource = dtsTitulos + TabOrder = 7 + ValueChecked = 'S' + ValueUnchecked = 'N' + end + object dbedt_codemp: TDBEdit + Left = 151 + Top = 69 + Width = 118 + Height = 21 + DataField = 'CD_DEVEDOR' + DataSource = dtsTitulos + TabOrder = 6 + end + object dbmem_titobs: TDBMemo + Left = 620 + Top = 21 + Width = 333 + Height = 194 + DataField = 'TX_OBS' + DataSource = dtsTitulos + TabOrder = 8 + end + object DBGrid1: TDBGrid + Left = 707 + Top = 248 + Width = 254 + Height = 225 + DataSource = dtmSystem.dtsQAcordos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 11 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Valor' + Width = 50 + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Visible = True + end> + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 280 + Top = 170 + Width = 326 + Height = 21 + DataField = 'ID_EMPRESA' + DataSource = dtsTitulos + KeyField = 'ID_EMPRESA' + ListField = 'TX_FANTASIA' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 12 + end + end + object navTitulos: TDBNavigator + Left = 3 + Top = 3 + Width = 68 + Height = 468 + DataSource = dtsTitulos + VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] + Anchors = [akLeft, akTop, akBottom] + Kind = dbnVertical + ParentShowHint = False + ShowHint = False + TabOrder = 1 + BeforeAction = navTitulosBeforeAction + end + object dbgrd_titulos: TDBGrid + Left = 77 + Top = 230 + Width = 689 + Height = 246 + DataSource = dtsTitulos + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnCellClick = dbgrd_titulosCellClick + OnDrawColumnCell = dbgrd_titulosDrawColumnCell + OnTitleClick = dbgrd_titulosTitleClick + Columns = < + item + Expanded = False + FieldName = 'TX_PRODUTO' + Title.Caption = 'Produto' + Width = 176 + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Valor' + Visible = True + end + item + Expanded = False + FieldName = 'TP_SITUACAO' + Title.Caption = 'Situa'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Width = 80 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ENTRADA' + Title.Caption = 'Entrada' + Width = 90 + Visible = True + end + item + Expanded = False + FieldName = 'DT_PAGAMENTO' + Title.Caption = 'Data de Pagamento' + Visible = True + end + item + Expanded = False + FieldName = 'CD_DEVEDOR' + Title.Caption = 'C'#243'digo do Devedor' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'TX_IMPLANTADO' + Title.Caption = 'Implanta'#231#227'o' + Visible = True + end + item + Expanded = False + FieldName = 'DT_IMPLANTACAO' + Visible = True + end> + end + end + object tabHistorico: TTabSheet + Caption = '&Hist'#243'rico' + ImageIndex = 5 + object pnl_hist: TPanel + Left = 2 + Top = 2 + Width = 1007 + Height = 437 + BevelOuter = bvNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Label8: TLabel + Left = 87 + Top = 61 + Width = 109 + Height = 13 + Caption = 'Data do agendamento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label9: TLabel + Left = 229 + Top = 61 + Width = 109 + Height = 13 + Caption = 'Hora do agendamento:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 363 + Top = 61 + Width = 113 + Height = 13 + Caption = 'Agendar para Cobrador:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 510 + Top = 61 + Width = 59 + Height = 13 + Caption = 'Provid'#234'ncia:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 744 + Top = 61 + Width = 131 + Height = 13 + Caption = 'Protocolo do hist'#243'rico atual:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object cb_agendahist: TCheckBox + Left = 9 + Top = 68 + Width = 78 + Height = 21 + Caption = 'Agendar' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnClick = cb_agendahistClick + end + object dtp_agendadatahist: TDateTimePicker + Left = 87 + Top = 80 + Width = 115 + Height = 21 + Date = 43082.430191782410000000 + Time = 43082.430191782410000000 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object dtp_agendahorahist: TDateTimePicker + Left = 229 + Top = 80 + Width = 115 + Height = 21 + Date = 43082.430419745370000000 + Time = 43082.430419745370000000 + DateMode = dmUpDown + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 3 + OnChange = dtp_horaagendamentoChange + end + object dblucb_agendacobhist: TDBLookupComboBox + Left = 363 + Top = 80 + Width = 115 + Height = 21 + Enabled = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsCobrador + ParentFont = False + TabOrder = 2 + end + object dblucb_providencia: TDBLookupComboBox + Left = 510 + Top = 80 + Width = 228 + Height = 21 + DataField = 'ID_PROVIDENCIA' + DataSource = dtsHistorico + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + KeyField = 'ID_PROVIDENCIA' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsProvidencias + ParentFont = False + TabOrder = 4 + end + object Button1: TButton + Left = 629 + Top = 6 + Width = 86 + Height = 25 + Hint = 'Inserir todos os telefones do devedor no hist'#243'rico' + Caption = 'Inserir Telefones' + TabOrder = 5 + OnClick = Button1Click + end + object dbedt_protocolo: TDBEdit + Left = 744 + Top = 80 + Width = 157 + Height = 21 + Hint = 'Abra um novo hist'#243'rico para gerar um protocolo.' + DataField = 'CD_PROTOCOLO' + DataSource = dtsHistorico + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + ParentShowHint = False + ReadOnly = True + ShowHint = True + TabOrder = 6 + end + end + object navhistorico: TDBNavigator + Left = 5 + Top = 3 + Width = 620 + Height = 48 + DataSource = dtsHistorico + TabOrder = 1 + BeforeAction = navhistoricoBeforeAction + end + object dbgrd_historico: TDBGrid + Left = 3 + Top = 120 + Width = 503 + Height = 368 + DataSource = dtsHistorico + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + ReadOnly = True + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = dbgrd_historicoTitleClick + Columns = < + item + Expanded = False + FieldName = 'DT_CONTATO' + Title.Caption = 'Data de Contato' + Visible = True + end + item + Expanded = False + FieldName = 'TX_PROVIDENCIA' + Title.Caption = 'Provid'#234'ncia' + Width = 300 + Visible = True + end + item + Expanded = False + FieldName = 'TX_MEMO' + Title.Caption = 'Observa'#231#245'es' + Visible = True + end + item + Expanded = False + FieldName = 'TX_ULTIMO_USUARIO' + Title.Caption = 'Usu'#225'rio' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'Protocolo' + Visible = True + end + item + Expanded = False + FieldName = 'DT_HORA_ULTIMA_ATT' + Title.Caption = #218'ltima Atualiza'#231#227'o' + Visible = True + end> + end + object dbmemo_box: TDBMemo + Left = 512 + Top = 120 + Width = 514 + Height = 368 + DataField = 'TL_MEMO' + DataSource = dtsHistorico + ScrollBars = ssVertical + TabOrder = 3 + end + object btn_passardevedor: TButton + Left = 912 + Top = 8 + Width = 107 + Height = 25 + Caption = 'Passar devedor' + Enabled = False + TabOrder = 4 + OnClick = btn_passardevedorClick + end + end + object tabCalculos: TTabSheet + Caption = '&C'#225'lculos' + ImageIndex = 2 + OnShow = tabCalculosShow + object lbl_somatitulos: TLabel + Left = 95 + Top = 169 + Width = 48 + Height = 13 + Caption = 'Principais:' + end + object lbl_parcelamento: TLabel + Left = 639 + Top = 215 + Width = 68 + Height = 13 + Caption = 'Parcelamento:' + end + object lbl_somaentrada: TLabel + Left = 534 + Top = 226 + Width = 40 + Height = 13 + Caption = 'Entrada:' + end + object lbl_vlaquitar: TLabel + Left = 3 + Top = 170 + Width = 71 + Height = 13 + Caption = 'Total Corrigido:' + end + object lbl_extras: TLabel + Left = 534 + Top = 169 + Width = 70 + Height = 13 + Caption = 'Valores Extras:' + end + object lbl_somajuros: TLabel + Left = 331 + Top = 170 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_somamulta: TLabel + Left = 188 + Top = 169 + Width = 29 + Height = 13 + Caption = 'Multa:' + end + object lbl_somaindicador: TLabel + Left = 427 + Top = 169 + Width = 48 + Height = 13 + Caption = 'Encargos:' + end + object lbl_desctot: TLabel + Left = 868 + Top = 82 + Width = 104 + Height = 26 + Caption = 'Desconto em rela'#231#227'o ao valor corrigido (%):' + Visible = False + WordWrap = True + end + object lbl_datapgmnto: TLabel + Left = 915 + Top = 169 + Width = 106 + Height = 13 + Caption = 'Data para pagamento:' + end + object lbl_protocolo1: TLabel + Left = 617 + Top = 281 + Width = 48 + Height = 13 + Caption = 'Protocolo:' + end + object lbl_beneficiarioscalculo: TLabel + Left = 3 + Top = 3 + Width = 34 + Height = 13 + Caption = 'Credor:' + end + object Label4: TLabel + Left = 803 + Top = 169 + Width = 103 + Height = 13 + Caption = 'Forma de pagamento:' + end + object lbl_maxpar: TLabel + Left = 639 + Top = 229 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 423 + Top = 227 + Width = 66 + Height = 13 + Caption = '% da Entrada:' + end + object lbl_maxentrada: TLabel + Left = 495 + Top = 248 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + end + object lbl_minentrada: TLabel + Left = 495 + Top = 227 + Width = 20 + Height = 13 + Caption = 'Min:' + end + object clb_beneficiarioscalculo: TCheckListBox + Left = 3 + Top = 22 + Width = 200 + Height = 128 + OnClickCheck = clb_beneficiarioscalculoClickCheck + ItemHeight = 13 + TabOrder = 17 + end + object lv_titulos: TListView + Left = 209 + Top = 3 + Width = 800 + Height = 147 + Checkboxes = True + Columns = < + item + Caption = 'Incluir' + MaxWidth = 40 + MinWidth = 40 + Width = 40 + end + item + Caption = 'Empresa' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end + item + Caption = 'Produto' + MaxWidth = 150 + MinWidth = 150 + Width = 150 + end + item + Caption = 'Vencimento' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end + item + Caption = 'Valor' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end + item + Caption = 'C'#243'digo do Devedor' + MaxWidth = 150 + MinWidth = 150 + Width = 150 + end + item + Caption = 'Parcelamento' + MaxWidth = 77 + MinWidth = 77 + Width = 77 + end + item + Caption = 'Entrada' + MaxWidth = 80 + MinWidth = 80 + Width = 80 + end> + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ReadOnly = True + RowSelect = True + ParentFont = False + TabOrder = 0 + ViewStyle = vsReport + OnItemChecked = lv_titulosItemChecked + end + object edt_somatitulos: TEdit + Left = 95 + Top = 188 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 1 + Text = 'R$ 0.00' + end + object dbgrd_listtitulos: TDBGrid + Left = 3 + Top = 327 + Width = 1018 + Height = 161 + DataSource = dtsListaTitulos + Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = dbgrd_listtitulosTitleClick + Columns = < + item + Expanded = False + FieldName = 'NOME_EMPRESA' + Title.Caption = 'Empresa' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'TX_PRODUTO' + Title.Caption = 'Produto' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ENTRADA' + Title.Caption = 'Data de Entrada' + Width = 85 + Visible = True + end + item + Expanded = False + FieldName = 'DT_VENCIMENTO' + Title.Caption = 'Vencimento' + Visible = True + end + item + Expanded = False + FieldName = 'VL_TITULO' + Title.Caption = 'Principal' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_ENTRADA' + Title.Caption = 'Entrada' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_JUROS' + Title.Caption = 'Juros' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_MULTA' + Title.Caption = 'Multa' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_INDICADOR' + Title.Caption = 'Encargo' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_DESPESA' + Title.Caption = 'Despesa' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'VL_CORRIGIDO' + Title.Caption = 'Corrigido' + Width = 60 + Visible = True + end + item + Expanded = False + FieldName = 'DT_ATRASO' + Title.Caption = 'Atraso' + Width = 36 + Visible = True + end + item + Expanded = False + FieldName = 'PR_ENTRADA' + Title.Caption = 'Entrada (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_JUROS' + Title.Caption = 'Juros (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_MULTA' + Title.Caption = 'Multa (%)' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'PR_INDICADOR' + Title.Caption = 'Ind. Financeiro (%)' + Visible = True + end> + end + object edt_nrparcelas: TEdit + Left = 639 + Top = 244 + Width = 53 + Height = 21 + Alignment = taRightJustify + TabOrder = 3 + Text = '0' + OnChange = edt_nrparcelasChange + OnExit = edt_nrparcelasExit + end + object up_nrparcelas: TUpDown + Left = 692 + Top = 244 + Width = 16 + Height = 21 + Associate = edt_nrparcelas + TabOrder = 4 + Thousands = False + end + object edt_somaentrada: TEdit + Left = 534 + Top = 245 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 5 + Text = 'R$ 0.00' + end + object edt_vlaquitar: TEdit + Left = 3 + Top = 189 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 6 + Text = 'R$ 0.00' + end + object edt_extras: TEdit + Left = 533 + Top = 188 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 7 + Text = 'R$ 0.00' + end + object edt_somajuros: TEdit + Left = 331 + Top = 188 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 8 + Text = 'R$ 0.00' + end + object edt_somamulta: TEdit + Left = 188 + Top = 188 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 9 + Text = 'R$ 0.00' + end + object edt_somaindicador: TEdit + Left = 427 + Top = 188 + Width = 86 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 10 + Text = 'R$ 0.00' + end + object cb_nmulta: TCheckBox + Left = 223 + Top = 168 + Width = 104 + Height = 17 + Caption = 'N'#227'o cobrar Multa' + TabOrder = 11 + OnClick = cb_nmultaClick + end + object edt_desctot: TEdit + Left = 868 + Top = 111 + Width = 103 + Height = 21 + Alignment = taRightJustify + ReadOnly = True + TabOrder = 12 + Text = '0' + Visible = False + end + object dtp_atrasorecalc: TDateTimePicker + Left = 915 + Top = 188 + Width = 106 + Height = 21 + Date = 43081.425353148150000000 + Time = 43081.425353148150000000 + TabOrder = 13 + OnChange = dtp_atrasorecalcChange + end + object btn_fechamento: TButton + Left = 936 + Top = 267 + Width = 85 + Height = 24 + Caption = 'Fechamento' + TabOrder = 14 + OnClick = btn_fechamentoClick + end + object edt_protocolo1: TEdit + Left = 617 + Top = 300 + Width = 116 + Height = 21 + ReadOnly = True + TabOrder = 15 + end + object btn_protocolo: TButton + Left = 936 + Top = 297 + Width = 85 + Height = 24 + Caption = 'Gerar Protocolo' + TabOrder = 16 + OnClick = btn_protocoloClick + end + object cb_formapag: TComboBox + Left = 803 + Top = 188 + Width = 86 + Height = 21 + AutoComplete = False + Style = csDropDownList + ItemIndex = 0 + TabOrder = 18 + Text = 'Dinheiro' + OnChange = cb_formapagChange + Items.Strings = ( + 'Dinheiro' + 'D'#233'bito' + 'Cr'#233'dito' + 'Cheque') + end + object lv_parcelas: TListView + Left = 737 + Top = 220 + Width = 196 + Height = 101 + Columns = < + item + Caption = 'Parcela' + MaxWidth = 75 + MinWidth = 75 + Width = 75 + end + item + Alignment = taRightJustify + Caption = 'Valor' + MaxWidth = 100 + MinWidth = 100 + Width = 100 + end> + FlatScrollBars = True + Items.ItemData = { + 055600000002000000FFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFF000000 + 000745006E0074007200610064006100FFFFFFFFFFFFFFFFFFFFFFFF00000000 + FFFFFFFF000000000A500061007200630065006C00610020006E00BA00} + ReadOnly = True + PopupMenu = ppmnu_copiar + TabOrder = 19 + ViewStyle = vsReport + end + object edt_prentrada: TEdit + Left = 422 + Top = 245 + Width = 53 + Height = 21 + Alignment = taRightJustify + NumbersOnly = True + TabOrder = 20 + Text = '0' + OnChange = edt_prentradaChange + end + object ud_entrada: TUpDown + Left = 475 + Top = 245 + Width = 16 + Height = 21 + Associate = edt_prentrada + TabOrder = 21 + end + object edt_excentrada: TEdit + Left = 422 + Top = 300 + Width = 87 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 22 + Text = '0,00' + OnChange = edt_excentradaChange + OnKeyPress = edt_excentradaKeyPress + end + object cbx_excentrada: TCheckBox + Left = 422 + Top = 280 + Width = 91 + Height = 17 + Caption = 'Exc. Entrada:' + TabOrder = 23 + OnClick = cbx_excentradaClick + end + object pcDescontos: TPageControl + Left = 3 + Top = 222 + Width = 416 + Height = 102 + ActivePage = tabParcelar + TabOrder = 24 + object tabQuitar: TTabSheet + Caption = 'Descontos aos Quitar' + object gb_descontosquit: TGroupBox + Left = -7 + Top = -9 + Width = 434 + Height = 87 + Enabled = False + TabOrder = 0 + object lbl_indquitar: TLabel + Left = 10 + Top = 26 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + end + object lbl_principalquitar: TLabel + Left = 92 + Top = 26 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object lbl_multasquitar: TLabel + Left = 174 + Top = 26 + Width = 34 + Height = 13 + Caption = 'Multas:' + end + object lbl_jurosquitar: TLabel + Left = 256 + Top = 26 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_maxindquit: TLabel + Left = 10 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxprinquit: TLabel + Left = 92 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxmultaquit: TLabel + Left = 174 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxjurosquit: TLabel + Left = 256 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxquitcor: TLabel + Left = 338 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object edt_indquitar: TEdit + Left = 10 + Top = 44 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 0 + Text = '0' + OnChange = edt_indquitarChange + OnKeyPress = edt_indquitarKeyPress + end + object edt_principalquitar: TEdit + Left = 92 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 1 + Text = '0' + OnChange = edt_principalquitarChange + OnKeyPress = edt_principalquitarKeyPress + end + object edt_multasquitar: TEdit + Left = 174 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 2 + Text = '0' + OnChange = edt_multasquitarChange + OnKeyPress = edt_multasquitarKeyPress + end + object up_encquitar: TUpDown + Left = 68 + Top = 44 + Width = 16 + Height = 21 + Associate = edt_indquitar + TabOrder = 3 + end + object up_principalquitar: TUpDown + Left = 150 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_principalquitar + TabOrder = 4 + end + object up_multasquitar: TUpDown + Left = 232 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_multasquitar + TabOrder = 5 + end + object edt_jurosquitar: TEdit + Left = 256 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 6 + Text = '0' + OnChange = edt_jurosquitarChange + OnKeyPress = edt_jurosquitarKeyPress + end + object up_jurosquitar: TUpDown + Left = 314 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_jurosquitar + TabOrder = 7 + end + object cb_desc_quit_cor: TCheckBox + Left = 338 + Top = 25 + Width = 64 + Height = 17 + Caption = 'Corrigido:' + TabOrder = 8 + OnClick = cb_desc_quit_corClick + end + object edt_corquitar: TEdit + Left = 338 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 9 + Text = '0' + OnChange = edt_corquitarChange + OnKeyPress = edt_corquitarKeyPress + end + object ud_corquitar: TUpDown + Left = 396 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_corquitar + TabOrder = 10 + end + end + object cb_descquit: TCheckBox + Left = 3 + Top = -2 + Width = 135 + Height = 17 + Caption = 'Descontos ao Quitar (%):' + TabOrder = 1 + OnClick = cb_descquitClick + end + end + object tabParcelar: TTabSheet + Caption = 'Descontos ao Parcelar' + ImageIndex = 1 + object gb_descontospar: TGroupBox + Left = -4 + Top = -9 + Width = 431 + Height = 87 + Enabled = False + TabOrder = 0 + object lbl_indparcelas: TLabel + Left = 7 + Top = 26 + Width = 73 + Height = 13 + Caption = 'Ind. Financeiro:' + end + object lbl_jurosparcelas: TLabel + Left = 253 + Top = 26 + Width = 28 + Height = 13 + Caption = 'Juros:' + end + object lbl_multasparcelas: TLabel + Left = 171 + Top = 26 + Width = 34 + Height = 13 + Caption = 'Multas:' + end + object lbl_principalparcelas: TLabel + Left = 89 + Top = 26 + Width = 43 + Height = 13 + Caption = 'Principal:' + end + object lbl_maxindpar: TLabel + Left = 7 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxprinpar: TLabel + Left = 89 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxmultapar: TLabel + Left = 171 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxjurospar: TLabel + Left = 253 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object lbl_maxparcor: TLabel + Left = 335 + Top = 71 + Width = 23 + Height = 13 + Caption = 'M'#225'x:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -8 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object edt_indparcelas: TEdit + Left = 7 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 0 + Text = '0' + OnChange = edt_indparcelasChange + OnKeyPress = edt_indparcelasKeyPress + end + object edt_jurosparcelas: TEdit + Left = 253 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 1 + Text = '0' + OnChange = edt_jurosparcelasChange + OnKeyPress = edt_jurosparcelasKeyPress + end + object edt_multasparcelas: TEdit + Left = 171 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 2 + Text = '0' + OnChange = edt_multasparcelasChange + OnKeyPress = edt_multasparcelasKeyPress + end + object edt_principalparcelas: TEdit + Left = 89 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 3 + Text = '0' + OnChange = edt_principalparcelasChange + OnKeyPress = edt_principalparcelasKeyPress + end + object up_encparcelas: TUpDown + Left = 65 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_indparcelas + TabOrder = 4 + end + object up_jurosparcelas: TUpDown + Left = 311 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_jurosparcelas + TabOrder = 5 + end + object up_multasparcelas: TUpDown + Left = 229 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_multasparcelas + TabOrder = 6 + end + object up_principalparcelas: TUpDown + Left = 147 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_principalparcelas + TabOrder = 7 + end + object cb_desc_par_cor: TCheckBox + Left = 335 + Top = 25 + Width = 63 + Height = 17 + Caption = 'Corrigido:' + TabOrder = 8 + OnClick = cb_desc_par_corClick + end + object edt_corpar: TEdit + Left = 335 + Top = 45 + Width = 58 + Height = 21 + Alignment = taRightJustify + TabOrder = 9 + Text = '0' + OnChange = edt_corparChange + OnKeyPress = edt_corparKeyPress + end + object ud_corpar: TUpDown + Left = 393 + Top = 45 + Width = 16 + Height = 21 + Associate = edt_corpar + TabOrder = 10 + end + end + object cb_descpar: TCheckBox + Left = 3 + Top = -2 + Width = 146 + Height = 17 + Caption = 'Descontos ao Parcelar (%):' + TabOrder = 1 + OnClick = cb_descparClick + end + end + end + object cbx_txextra: TCheckBox + Left = 638 + Top = 163 + Width = 75 + Height = 17 + Caption = 'Taxa Extra:' + TabOrder = 25 + OnClick = cbx_txextraClick + end + object edt_txextra: TEdit + Left = 637 + Top = 188 + Width = 70 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 26 + Text = '0,00' + OnChange = edt_txextraChange + OnKeyPress = edt_txextraKeyPress + end + object cbx_exjurosparcelar: TCheckBox + Left = 519 + Top = 271 + Width = 88 + Height = 27 + Caption = 'Exc. Juros ao parcelar: (%)' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 27 + WordWrap = True + OnClick = cbx_exjurosparcelarClick + end + object edt_excjurosparcela: TEdit + Left = 521 + Top = 300 + Width = 87 + Height = 21 + Alignment = taRightJustify + Enabled = False + TabOrder = 28 + Text = '0,00' + OnChange = edt_excjurosparcelaChange + OnKeyPress = edt_excjurosparcelaKeyPress + end + object btn_relacaodivida: TButton + Left = 936 + Top = 219 + Width = 85 + Height = 40 + Caption = 'Rela'#231#227'o de D'#237'vida' + TabOrder = 29 + WordWrap = True + OnClick = btn_relacaodividaClick + end + end + object Fechamento: TTabSheet + Caption = '&Fechamento' + ImageIndex = 4 + object lbl_tfonte: TLabel + Left = 170 + Top = 13 + Width = 90 + Height = 13 + Caption = 'Tamanho da fonte:' + end + object lbl_protocolo: TLabel + Left = 3 + Top = 127 + Width = 48 + Height = 13 + Caption = 'Protocolo:' + end + object lbl_dtcobranca: TLabel + Left = 3 + Top = 35 + Width = 109 + Height = 13 + Caption = 'Data do agendamento:' + end + object lbl_horacobranca: TLabel + Left = 3 + Top = 81 + Width = 109 + Height = 13 + Caption = 'Hora do agendamento:' + end + object lbl_cobradoragendado: TLabel + Left = 3 + Top = 173 + Width = 113 + Height = 13 + Caption = 'Agendar para Cobrador:' + end + object lbl_providencias: TLabel + Left = 705 + Top = 3 + Width = 64 + Height = 13 + Caption = 'Provid'#234'ncias:' + end + object lbl_prov: TLabel + Left = 705 + Top = 187 + Width = 97 + Height = 13 + Caption = 'Provid'#234'ncia tomada:' + end + object dtp_diaagendamento: TDateTimePicker + Left = 3 + Top = 54 + Width = 161 + Height = 21 + Date = 43082.430191782410000000 + Time = 43082.430191782410000000 + Enabled = False + TabOrder = 0 + OnChange = dtp_diaagendamentoChange + end + object dtp_horaagendamento: TDateTimePicker + Left = 3 + Top = 100 + Width = 161 + Height = 21 + Date = 43082.430419745370000000 + Time = 43082.430419745370000000 + DateMode = dmUpDown + Enabled = False + Kind = dtkTime + TabOrder = 1 + OnChange = dtp_horaagendamentoChange + end + object edt_protocolo: TEdit + Left = 3 + Top = 146 + Width = 161 + Height = 21 + ReadOnly = True + TabOrder = 2 + end + object btn_recalc: TButton + Left = 37 + Top = 233 + Width = 75 + Height = 25 + Caption = 'Rec'#225'lculo' + TabOrder = 3 + OnClick = btn_recalcClick + end + object mb_fechamento: TMemo + Left = 170 + Top = 37 + Width = 529 + Height = 260 + Lines.Strings = ( + 'mb_fechamento') + ScrollBars = ssVertical + TabOrder = 4 + end + object edt_fontememo: TEdit + Left = 266 + Top = 10 + Width = 37 + Height = 21 + Alignment = taRightJustify + TabOrder = 5 + Text = '8' + OnExit = edt_fontememoExit + OnKeyDown = edt_fontememoKeyDown + end + object up_fontememo: TUpDown + Left = 303 + Top = 10 + Width = 16 + Height = 21 + Associate = edt_fontememo + Min = 8 + Max = 72 + Position = 8 + TabOrder = 6 + OnClick = up_fontememoClick + end + object cb_negritomemo: TCheckBox + Left = 325 + Top = 12 + Width = 55 + Height = 17 + Caption = 'Negrito' + TabOrder = 7 + OnClick = cb_negritomemoClick + end + object dblucb_cobradoragendar: TDBLookupComboBox + Left = 3 + Top = 192 + Width = 161 + Height = 21 + Enabled = False + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtsCobrador + TabOrder = 8 + end + object dbgrd_providencias: TDBGrid + Left = 705 + Top = 22 + Width = 321 + Height = 159 + DataSource = dtsProvidencias + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 9 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDblClick = dbgrd_providenciasDblClick + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 285 + Visible = True + end> + end + object dbgrd_resumohist: TDBGrid + Left = 3 + Top = 310 + Width = 1023 + Height = 178 + DataSource = dtsHistorico + ReadOnly = True + TabOrder = 10 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnTitleClick = dbgrd_resumohistTitleClick + Columns = < + item + Expanded = False + FieldName = 'ID_HISTORICO' + Title.Caption = 'ID' + Width = 30 + Visible = True + end + item + Expanded = False + FieldName = 'TX_COBRADOR' + Title.Caption = 'Usu'#225'rio' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'TX_PROVIDENCIA' + Title.Caption = 'Provid'#234'ncia' + Width = 202 + Visible = True + end + item + Expanded = False + FieldName = 'DT_CONTATO' + Title.Caption = 'Data do contato' + Width = 85 + Visible = True + end + item + Expanded = False + FieldName = 'DT_AGENDAMENTO' + Title.Caption = 'Data agendada' + Width = 85 + Visible = True + end + item + Expanded = False + FieldName = 'TP_VAIPAGAR' + Title.Caption = 'Vai pagar?' + Visible = True + end + item + Expanded = False + FieldName = 'CD_PROTOCOLO' + Title.Caption = 'Protocolo' + Width = 111 + Visible = True + end + item + Expanded = False + FieldName = 'TL_MEMO' + Title.Caption = 'Observa'#231#227'o' + Width = 106 + Visible = True + end> + end + object edt_prov: TEdit + Left = 705 + Top = 206 + Width = 321 + Height = 21 + ReadOnly = True + TabOrder = 11 + end + object btn_concluir: TButton + Left = 705 + Top = 233 + Width = 75 + Height = 25 + Caption = 'Concluir' + TabOrder = 12 + OnClick = btn_concluirClick + end + object btn_outrostitulos: TButton + Left = 911 + Top = 279 + Width = 115 + Height = 25 + Caption = 'Cobrar outros T'#237'tulos' + TabOrder = 13 + Visible = False + OnClick = btn_outrostitulosClick + end + object cb_agendar: TCheckBox + Left = 3 + Top = 12 + Width = 97 + Height = 17 + Caption = 'Agendar' + TabOrder = 14 + OnClick = cb_agendarClick + end + object btn_passadevfec: TButton + Left = 919 + Top = 233 + Width = 107 + Height = 25 + Caption = 'Passar devedor' + TabOrder = 15 + OnClick = btn_passadevfecClick + end + end + end + object GroupBox1: TGroupBox + Left = 8 + Top = 8 + Width = 216 + Height = 676 + Anchors = [akLeft, akTop, akBottom] + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 2 + object lbl_cobrado: TLabel + Left = 26 + Top = 636 + Width = 83 + Height = 13 + Caption = 'Devedor cobrado' + end + object Label12: TLabel + Left = 138 + Top = 636 + Width = 67 + Height = 13 + Caption = 'Devedor atual' + end + object Label13: TLabel + Left = 26 + Top = 655 + Width = 111 + Height = 13 + Caption = 'Outro usu'#225'rio cobrando' + end + object dbgrd_listadevedores: TDBGrid + Left = 8 + Top = 6 + Width = 200 + Height = 623 + TabStop = False + DataSource = dtsListaDevedores + Options = [dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete] + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_listadevedoresDrawColumnCell + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Visible = True + end> + end + object pnl_cobrado: TPanel + Left = 8 + Top = 635 + Width = 16 + Height = 16 + Color = clBlue + ParentBackground = False + TabOrder = 1 + end + object Panel1: TPanel + Left = 120 + Top = 635 + Width = 16 + Height = 16 + BevelKind = bkSoft + Color = clWhite + ParentBackground = False + TabOrder = 2 + end + object Panel2: TPanel + Left = 8 + Top = 654 + Width = 16 + Height = 16 + BevelKind = bkSoft + Color = clSilver + ParentBackground = False + TabOrder = 3 + end + end + object navPrincipal: TDBNavigator + Left = 236 + Top = 18 + Width = 48 + Height = 129 + DataSource = dtsDevedores + VisibleButtons = [nbEdit, nbPost, nbCancel] + Kind = dbnVertical + TabOrder = 3 + end + object btn_close: TButton + Left = 1181 + Top = 158 + Width = 75 + Height = 25 + Caption = 'Fechar' + TabOrder = 4 + Visible = False + OnClick = btn_closeClick + end + object StatusBar1: TStatusBar + Left = 0 + Top = 688 + Width = 1273 + Height = 19 + Panels = < + item + Width = 50 + end> + end + object dtsDevedores: TDataSource + DataSet = dtmSystem.tblDevedores + OnStateChange = dtsDevedoresStateChange + OnDataChange = dtsDevedoresDataChange + OnUpdateData = dtsDevedoresUpdateData + Left = 387 + Top = 16 + end + object dtsEnderecos: TDataSource + DataSet = dtmSystem.tblEnderecos + OnStateChange = dtsEnderecosStateChange + OnDataChange = dtsEnderecosDataChange + OnUpdateData = dtsEnderecosUpdateData + Left = 656 + Top = 88 + end + object dtsListaDevedores: TDataSource + DataSet = dtmSystem.tblCampanhaDevedores + OnDataChange = dtsListaDevedoresDataChange + Left = 96 + Top = 256 + end + object ImageList1: TImageList + Left = 904 + Bitmap = { + 494C01010C001800780510001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object dtsTelefones: TDataSource + DataSet = dtmSystem.tblTelefones + OnStateChange = dtsTelefonesStateChange + OnDataChange = dtsTelefonesDataChange + OnUpdateData = dtsTelefonesUpdateData + Left = 784 + Top = 104 + end + object dtsTitulos: TDataSource + DataSet = dtmSystem.tblTitulos + OnStateChange = dtsTitulosStateChange + OnDataChange = dtsTitulosDataChange + OnUpdateData = dtsTitulosUpdateData + Left = 856 + Top = 104 + end + object queryListaTitulos: TZQuery + Connection = dtmSystem.ZConnection + OnCalcFields = queryListaTitulosCalcFields + SQL.Strings = ( + 'select first 0 * from chg_titulos;') + Params = <> + Left = 114 + Top = 351 + object queryListaTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object queryListaTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object queryListaTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object queryListaTitulosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object queryListaTitulosVL_TITULO: TCurrencyField + FieldName = 'VL_TITULO' + end + object queryListaTitulosDT_ENTRADA: TDateTimeField + FieldName = 'DT_ENTRADA' + end + object queryListaTitulosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + end + object queryListaTitulosDT_ATRASO: TIntegerField + FieldKind = fkCalculated + FieldName = 'DT_ATRASO' + Calculated = True + end + object queryListaTitulosTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 2 + end + object queryListaTitulosCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + Size = 100 + end + object queryListaTitulosNOME_EMPRESA: TStringField + FieldKind = fkLookup + FieldName = 'NOME_EMPRESA' + LookupDataSet = dtmSystem.tblCHGEmpresa + LookupKeyFields = 'ID_EMPRESA' + LookupResultField = 'TX_FANTASIA' + KeyFields = 'ID_EMPRESA' + Size = 40 + Lookup = True + end + object queryListaTitulosPR_ENTRADA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA' + Calculated = True + end + object queryListaTitulosVL_ENTRADA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_ENTRADA' + Calculated = True + end + object queryListaTitulosPR_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_JUROS' + Calculated = True + end + object queryListaTitulosNR_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'NR_JUROS' + Calculated = True + end + object queryListaTitulosTP_JUROS: TStringField + FieldKind = fkCalculated + FieldName = 'TP_JUROS' + Size = 1 + Calculated = True + end + object queryListaTitulosVL_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_JUROS' + Calculated = True + end + object queryListaTitulosPR_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_MULTA' + Calculated = True + end + object queryListaTitulosVL_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_MULTA' + Calculated = True + end + object queryListaTitulosVL_ENCARGOS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_ENCARGOS' + Calculated = True + end + object queryListaTitulosVL_CORRIGIDO: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_CORRIGIDO' + Calculated = True + end + object queryListaTitulosPR_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_INDICADOR: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_INDICADOR' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_IND' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_PRINCIPAL: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_PRIN' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_MULTA' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_JUROS' + Calculated = True + end + object queryListaTitulosVL_DESC_QUIT_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_QUIT_JUROS' + Calculated = True + end + object queryListaTitulosPR_PARCELA_INDICADOR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_INDICADOR' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_IND' + Calculated = True + end + object queryListaTitulosPR_PARCELA_PRINCIPAL: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_PRIN' + Calculated = True + end + object queryListaTitulosPR_PARCELA_MULTA: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_MULTA' + Calculated = True + end + object queryListaTitulosPR_PARCELA_JUROS: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_JUROS' + Calculated = True + end + object queryListaTitulosVL_DESC_PAR_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PAR_JUROS' + Calculated = True + end + object queryListaTitulosNR_PARCELAS: TIntegerField + FieldKind = fkCalculated + FieldName = 'NR_PARCELAS' + Calculated = True + end + object queryListaTitulosVL_PARCELA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_PARCELA' + Calculated = True + end + object queryListaTitulosVL_DESPESA: TCurrencyField + FieldName = 'VL_DESPESA' + end + object queryListaTitulosTP_DESPESA: TWideStringField + FieldName = 'TP_DESPESA' + Size = 1 + end + object queryListaTitulosPR_JUROS_CHEQUE: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_JUROS_CHEQUE' + Calculated = True + end + object queryListaTitulosVL_EXTRAS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_EXTRAS' + Calculated = True + end + object queryListaTitulosPR_QUITACAO_COR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_QUITACAO_COR' + Calculated = True + end + object queryListaTitulosPR_PARCELA_COR: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_PARCELA_COR' + Calculated = True + end + object queryListaTitulosPR_ENTRADA_MIN: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA_MIN' + Calculated = True + end + object queryListaTitulosPR_ENTRADA_MAX: TFloatField + FieldKind = fkCalculated + FieldName = 'PR_ENTRADA_MAX' + Calculated = True + end + object queryListaTitulosVL_PRINCIPAL: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_PRINCIPAL' + Calculated = True + end + object queryListaTitulosVL_DESC_IND: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_IND' + Calculated = True + end + object queryListaTitulosVL_DESC_PRIN: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_PRIN' + Calculated = True + end + object queryListaTitulosVL_DESC_MULTA: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_MULTA' + Calculated = True + end + object queryListaTitulosVL_DESC_JUROS: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_DESC_JUROS' + Calculated = True + end + end + object dtsListaTitulos: TDataSource + DataSet = queryListaTitulos + Left = 112 + Top = 400 + end + object ppmnu_copiar: TPopupMenu + Left = 128 + Top = 120 + object copiar_conteudo: TMenuItem + Caption = 'Copiar Conte'#250'do' + OnClick = copiar_conteudoClick + end + end + object dtsCobrador: TDataSource + DataSet = queryCobradores + OnDataChange = dtsCobradorDataChange + Left = 830 + Top = 56 + end + object queryCobradores: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_usuarios') + Params = <> + Left = 918 + Top = 56 + object queryCobradoresID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + Required = True + end + object queryCobradoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + LookupDataSet = dtmSystem.tblUsuarios + Size = 60 + end + end + object dtsProvidencias: TDataSource + DataSet = dtmSystem.tblProvidencias + Left = 1058 + Top = 143 + end + object dtsHistorico: TDataSource + DataSet = dtmSystem.tblHistorico + OnStateChange = dtsHistoricoStateChange + Left = 274 + Top = 543 + end + object dtsHelper: TDataSource + DataSet = queryHelper + Left = 40 + Top = 40 + end + object queryHelper: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 120 + Top = 56 + end + object qryConsulta: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 112 + Top = 448 + end + object dtsqryConsulta: TDataSource + DataSet = qryConsulta + Left = 40 + Top = 448 + end + object dtsCidade: TDataSource + DataSet = dtmSystem.tblCidades + OnDataChange = dtsCidadeDataChange + Left = 790 + Top = 152 + end + object dtsDespesas: TDataSource + DataSet = dtmSystem.tblDespesasTitulos + OnStateChange = dtsDespesasStateChange + Left = 853 + Top = 156 + end + object dtsCHGEmpresa: TDataSource + DataSet = dtmSystem.tblCHGEmpresa + Left = 739 + Top = 24 + end + object dtsIndicadorFinanceiro: TDataSource + DataSet = dtmSystem.tblIndicadorFinanceiro + Left = 643 + Top = 24 + end + object dtsEmpresa: TDataSource + DataSet = dtmSystem.tblEmpresa + Left = 475 + Top = 8 + end + object dtsUF: TDataSource + DataSet = dtmSystem.tblEstados + OnDataChange = dtsUFDataChange + Left = 765 + Top = 68 + end + object popmnu_incluir: TPopupMenu + Left = 498 + Top = 309 + object mnu_incluir: TMenuItem + Caption = 'Incluir Todos' + OnClick = mnu_incluirClick + end + object mnuretirar: TMenuItem + Caption = 'Retirar todos' + OnClick = mnuretirarClick + end + end + object dtsEmail: TDataSource + DataSet = dtmSystem.tblEmail + OnStateChange = dtsEmailStateChange + Left = 1073 + Top = 81 + end + object qryCampanha: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 56 + Top = 312 + end + object ApplicationEvents1: TApplicationEvents + OnException = ApplicationEvents1Exception + Left = 168 + Top = 8 + end + object zroqryProvAgend: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 456 + Top = 106 + end + object PopupMenu1: TPopupMenu + Left = 410 + Top = 258 + object cp_telddd: TMenuItem + Caption = 'Copiar Telefone com DDD' + Visible = False + OnClick = cp_teldddClick + end + object cp_tel: TMenuItem + Caption = 'Copiar Telefone sem DDD' + Visible = False + OnClick = cp_telClick + end + end +end diff --git a/ufrmEfetuarCobranca.pas b/ufrmEfetuarCobranca.pas new file mode 100644 index 0000000..8be31b2 --- /dev/null +++ b/ufrmEfetuarCobranca.pas @@ -0,0 +1,6996 @@ +unit ufrmEfetuarCobranca; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.ExtCtrls, + Vcl.DBCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.Buttons, + StrUtils, System.Math, + ZAbstractRODataset, ZAbstractDataset, ZDataset, System.ImageList, Vcl.ImgList, + Datasnap.DBClient, Vcl.CheckLst, rDBComponents, DateUtils, System.UITypes, + System.TypInfo, Vcl.Menus, ClipBrd, DBDateTimePicker, Vcl.AppEvnts, RLReport; + +type + THackDBNavigator = class(TDBNavigator); + +type + TfrmEfetuarCobranca = class(TForm) + grpb_devedores: TGroupBox; + lbl_nome: TLabel; + dbedt_nome: TDBEdit; + dbedt_documento: TDBEdit; + lbl_documento: TLabel; + dbmemo_devedores: TDBMemo; + pgCobranca: TPageControl; + tabEnderecos: TTabSheet; + dtsDevedores: TDataSource; + dbgrd_enderecos: TDBGrid; + navEnderecos: TDBNavigator; + pnl_enderecos: TPanel; + pnl_endsit: TPanel; + dbrg_endsit: TDBRadioGroup; + lbl_endsit: TLabel; + pnl_endmoradia: TPanel; + dbrg_endmoradia: TDBRadioGroup; + lbl_endmoradia: TLabel; + lbl_endlogradouro: TLabel; + dbedt_endlogradouro: TDBEdit; + GroupBox1: TGroupBox; + lbl_endnum: TLabel; + dbedt_endnum: TDBEdit; + lbl_endcomp: TLabel; + dbedt_endcomp: TDBEdit; + dtsEnderecos: TDataSource; + pnl_endtpend: TPanel; + DBRadioGroup1: TDBRadioGroup; + lbl_endtpend: TLabel; + lbl_endcep: TLabel; + dbedt_endcep: TDBEdit; + lbl_endbairro: TLabel; + dbedt_endbairro: TDBEdit; + lbl_enduf: TLabel; + dblucb_enduf: TDBLookupComboBox; + lbl_endcidade: TLabel; + dblucb_endcidade: TDBLookupComboBox; + dtsListaDevedores: TDataSource; + tabTelefones: TTabSheet; + ImageList1: TImageList; + navPrincipal: TDBNavigator; + dtsTelefones: TDataSource; + navTelefone: TDBNavigator; + dbgrd_telefone: TDBGrid; + pnl_telefone: TPanel; + lbl_telnum: TLabel; + dbedt_telnum: TDBEdit; + lbl_teldesc: TLabel; + dbedt_teldesc: TDBEdit; + pnl_telsit: TPanel; + dbrg_telsit: TDBRadioGroup; + lbl_telsit: TLabel; + dbmem_telobs: TDBMemo; + lbl_telobs: TLabel; + pnl_teltipo: TPanel; + dbrg_teltipo: TDBRadioGroup; + lbl_teltipo: TLabel; + tabCalculos: TTabSheet; + dtsTitulos: TDataSource; + lv_titulos: TListView; + queryListaTitulos: TZQuery; + queryListaTitulosID_TITULO: TIntegerField; + queryListaTitulosID_DEVEDOR: TIntegerField; + queryListaTitulosID_EMPRESA: TIntegerField; + queryListaTitulosTX_PRODUTO: TWideStringField; + queryListaTitulosVL_TITULO: TCurrencyField; + queryListaTitulosDT_ENTRADA: TDateTimeField; + queryListaTitulosDT_VENCIMENTO: TDateTimeField; + queryListaTitulosTP_SITUACAO: TWideStringField; + queryListaTitulosCD_DEVEDOR: TWideStringField; + queryListaTitulosNOME_EMPRESA: TStringField; + lbl_somatitulos: TLabel; + edt_somatitulos: TEdit; + lbl_parcelamento: TLabel; + dbgrd_listtitulos: TDBGrid; + tabTitulos: TTabSheet; + pnl_titulos: TPanel; + dbgrd_titulos: TDBGrid; + navTitulos: TDBNavigator; + lbl_valor: TLabel; + dbedt_valor: TDBEdit; + lbl_dataent: TLabel; + rdbdt_entrada: TrDBDateTimePicker; + lbl_datavenc: TLabel; + dbdt: TrDBDateTimePicker; + dbedit_produto: TDBEdit; + lbl_tit: TLabel; + Panel5: TPanel; + dbrg_tit: TDBRadioGroup; + pnl_cor1: TPanel; + pnl_color2: TPanel; + pnl_color3: TPanel; + pnl_color4: TPanel; + pnl_color5: TPanel; + pnl_color6: TPanel; + pnl_color7: TPanel; + lbl_sittit: TLabel; + dtsListaTitulos: TDataSource; + queryListaTitulosDT_ATRASO: TIntegerField; + queryListaTitulosPR_ENTRADA: TFloatField; + queryListaTitulosVL_JUROS: TCurrencyField; + queryListaTitulosPR_JUROS: TFloatField; + queryListaTitulosVL_ENTRADA: TCurrencyField; + queryListaTitulosPR_MULTA: TFloatField; + queryListaTitulosVL_MULTA: TCurrencyField; + queryListaTitulosVL_CORRIGIDO: TCurrencyField; + queryListaTitulosVL_INDICADOR: TCurrencyField; + edt_nrparcelas: TEdit; + up_nrparcelas: TUpDown; + lbl_somaentrada: TLabel; + edt_somaentrada: TEdit; + lbl_vlaquitar: TLabel; + edt_vlaquitar: TEdit; + lbl_extras: TLabel; + edt_extras: TEdit; + lbl_somajuros: TLabel; + edt_somajuros: TEdit; + lbl_somamulta: TLabel; + edt_somamulta: TEdit; + lbl_somaindicador: TLabel; + edt_somaindicador: TEdit; + cb_nmulta: TCheckBox; + queryListaTitulosPR_INDICADOR: TFloatField; + btn_close: TButton; + edt_desctot: TEdit; + lbl_desctot: TLabel; + queryListaTitulosVL_ENCARGOS: TCurrencyField; + queryListaTitulosNR_PARCELAS: TIntegerField; + queryListaTitulosVL_DESC_QUIT_PRIN: TCurrencyField; + queryListaTitulosVL_DESC_PAR_PRIN: TCurrencyField; + queryListaTitulosVL_DESC_QUIT_MULTA: TCurrencyField; + queryListaTitulosPR_PARCELA_MULTA: TFloatField; + queryListaTitulosPR_QUITACAO_JUROS: TFloatField; + queryListaTitulosPR_PARCELA_JUROS: TFloatField; + queryListaTitulosPR_QUITACAO_PRINCIPAL: TFloatField; + queryListaTitulosPR_QUITACAO_MULTA: TFloatField; + queryListaTitulosPR_PARCELA_PRINCIPAL: TFloatField; + queryListaTitulosVL_DESC_PAR_MULTA: TCurrencyField; + queryListaTitulosVL_DESC_QUIT_JUROS: TCurrencyField; + queryListaTitulosVL_DESC_PAR_JUROS: TCurrencyField; + queryListaTitulosPR_QUITACAO_INDICADOR: TFloatField; + queryListaTitulosPR_PARCELA_INDICADOR: TFloatField; + queryListaTitulosVL_DESC_QUIT_IND: TCurrencyField; + queryListaTitulosVL_DESC_PAR_IND: TCurrencyField; + dtp_atrasorecalc: TDateTimePicker; + lbl_datapgmnto: TLabel; + btn_fechamento: TButton; + Fechamento: TTabSheet; + dtp_diaagendamento: TDateTimePicker; + dtp_horaagendamento: TDateTimePicker; + edt_protocolo: TEdit; + btn_recalc: TButton; + mb_fechamento: TMemo; + ppmnu_copiar: TPopupMenu; + copiar_conteudo: TMenuItem; + lbl_tfonte: TLabel; + edt_fontememo: TEdit; + up_fontememo: TUpDown; + cb_negritomemo: TCheckBox; + lbl_protocolo: TLabel; + lbl_protocolo1: TLabel; + edt_protocolo1: TEdit; + btn_protocolo: TButton; + lbl_dtcobranca: TLabel; + lbl_horacobranca: TLabel; + lbl_cobradoragendado: TLabel; + dtsCobrador: TDataSource; + queryCobradores: TZQuery; + dblucb_cobradoragendar: TDBLookupComboBox; + queryCobradoresID_USUARIO: TIntegerField; + queryCobradoresTX_NOME: TWideStringField; + dbgrd_providencias: TDBGrid; + lbl_providencias: TLabel; + dtsProvidencias: TDataSource; + dtsHistorico: TDataSource; + dbgrd_resumohist: TDBGrid; + edt_prov: TEdit; + btn_concluir: TButton; + dtsHelper: TDataSource; + queryHelper: TZQuery; + lbl_prov: TLabel; + btn_outrostitulos: TButton; + lbl_coddev: TLabel; + dbedt_coddev: TDBEdit; + dbedt_nomepai: TDBEdit; + lbl_nomedopai: TLabel; + dbedt_nomemae: TDBEdit; + lbl_nomedamae: TLabel; + dbedt_rg: TDBEdit; + lbl_rg: TLabel; + clb_beneficiarioscalculo: TCheckListBox; + lbl_beneficiarioscalculo: TLabel; + qryConsulta: TZQuery; + dtsqryConsulta: TDataSource; + pnl_cheque: TPanel; + lbl_banco: TLabel; + lbl_nrcheque: TLabel; + lbl_motivo: TLabel; + dbedt_banco: TDBEdit; + dbedt_nrcheque: TDBEdit; + dbedt_motivo: TDBEdit; + dbcbx_tpcheque: TDBCheckBox; + cb_formapag: TComboBox; + Label4: TLabel; + lv_parcelas: TListView; + tabHistorico: TTabSheet; + pnl_hist: TPanel; + dbgrd_historico: TDBGrid; + dbmemo_box: TDBMemo; + navhistorico: TDBNavigator; + dbedt_codemp: TDBEdit; + lbl_cddevedor: TLabel; + dbgrd_listadevedores: TDBGrid; + queryListaTitulosVL_PARCELA: TCurrencyField; + queryListaTitulosVL_DESPESA: TCurrencyField; + queryListaTitulosTP_DESPESA: TWideStringField; + queryListaTitulosPR_JUROS_CHEQUE: TFloatField; + dtsCidade: TDataSource; + dtsDespesas: TDataSource; + queryListaTitulosVL_EXTRAS: TCurrencyField; + dtsCHGEmpresa: TDataSource; + dtsIndicadorFinanceiro: TDataSource; + dtsEmpresa: TDataSource; + dtsUF: TDataSource; + lbl_maxpar: TLabel; + popmnu_incluir: TPopupMenu; + mnu_incluir: TMenuItem; + mnuretirar: TMenuItem; + dbmem_titobs: TDBMemo; + StatusBar1: TStatusBar; + queryListaTitulosPR_QUITACAO_COR: TFloatField; + queryListaTitulosPR_PARCELA_COR: TFloatField; + cb_agendar: TCheckBox; + pnl_devedores: TPanel; + DBEdit2: TDBEdit; + Label1: TLabel; + Label2: TLabel; + DBEdit3: TDBEdit; + Label5: TLabel; + dbedt_email: TDBEdit; + Label6: TLabel; + dbedt_ddd: TDBEdit; + lbl_ddd: TLabel; + Label7: TLabel; + edt_prentrada: TEdit; + ud_entrada: TUpDown; + lbl_maxentrada: TLabel; + lbl_minentrada: TLabel; + queryListaTitulosPR_ENTRADA_MIN: TFloatField; + queryListaTitulosPR_ENTRADA_MAX: TFloatField; + edt_excentrada: TEdit; + cbx_excentrada: TCheckBox; + lbl_datacad: TLabel; + dbdtp_dtcad: TDBDateTimePicker; + lbl_dtnasc: TLabel; + dbdtp_dtnasc: TDBDateTimePicker; + lbl_idade: TLabel; + cb_agendahist: TCheckBox; + Label8: TLabel; + dtp_agendadatahist: TDateTimePicker; + dtp_agendahorahist: TDateTimePicker; + Label9: TLabel; + dblucb_agendacobhist: TDBLookupComboBox; + Label10: TLabel; + dblucb_providencia: TDBLookupComboBox; + Label11: TLabel; + pnl_cobrado: TPanel; + lbl_cobrado: TLabel; + Panel1: TPanel; + Label12: TLabel; + Label13: TLabel; + Panel2: TPanel; + queryListaTitulosVL_PRINCIPAL: TCurrencyField; + pcDescontos: TPageControl; + tabQuitar: TTabSheet; + gb_descontosquit: TGroupBox; + lbl_indquitar: TLabel; + lbl_principalquitar: TLabel; + lbl_multasquitar: TLabel; + lbl_jurosquitar: TLabel; + lbl_maxindquit: TLabel; + lbl_maxprinquit: TLabel; + lbl_maxmultaquit: TLabel; + lbl_maxjurosquit: TLabel; + lbl_maxquitcor: TLabel; + edt_indquitar: TEdit; + edt_principalquitar: TEdit; + edt_multasquitar: TEdit; + up_encquitar: TUpDown; + up_principalquitar: TUpDown; + up_multasquitar: TUpDown; + edt_jurosquitar: TEdit; + up_jurosquitar: TUpDown; + cb_desc_quit_cor: TCheckBox; + edt_corquitar: TEdit; + ud_corquitar: TUpDown; + cb_descquit: TCheckBox; + tabParcelar: TTabSheet; + gb_descontospar: TGroupBox; + lbl_indparcelas: TLabel; + lbl_jurosparcelas: TLabel; + lbl_multasparcelas: TLabel; + lbl_principalparcelas: TLabel; + lbl_maxindpar: TLabel; + lbl_maxprinpar: TLabel; + lbl_maxmultapar: TLabel; + lbl_maxjurospar: TLabel; + lbl_maxparcor: TLabel; + edt_indparcelas: TEdit; + edt_jurosparcelas: TEdit; + edt_multasparcelas: TEdit; + edt_principalparcelas: TEdit; + up_encparcelas: TUpDown; + up_jurosparcelas: TUpDown; + up_multasparcelas: TUpDown; + up_principalparcelas: TUpDown; + cb_desc_par_cor: TCheckBox; + edt_corpar: TEdit; + ud_corpar: TUpDown; + cb_descpar: TCheckBox; + cbx_txextra: TCheckBox; + edt_txextra: TEdit; + Button1: TButton; + btn_pesquisa: TButton; + navEmail: TDBNavigator; + dtsEmail: TDataSource; + dbgrd_email: TDBGrid; + qryCampanha: TZReadOnlyQuery; + btn_passardevedor: TButton; + cbx_exjurosparcelar: TCheckBox; + edt_excjurosparcela: TEdit; + btn_passadevfec: TButton; + Label3: TLabel; + Label14: TLabel; + DBGrid1: TDBGrid; + ApplicationEvents1: TApplicationEvents; + btn_relacaodivida: TButton; + queryListaTitulosVL_DESC_IND: TCurrencyField; + queryListaTitulosVL_DESC_PRIN: TCurrencyField; + queryListaTitulosVL_DESC_MULTA: TCurrencyField; + queryListaTitulosVL_DESC_JUROS: TCurrencyField; + pnl_contatos: TPanel; + Label15: TLabel; + dblbl_contatos: TDBText; + zroqryProvAgend: TZReadOnlyQuery; + Panel3: TPanel; + DBRadioGroup2: TDBRadioGroup; + Label16: TLabel; + queryListaTitulosNR_JUROS: TCurrencyField; + queryListaTitulosTP_JUROS: TStringField; + dbedt_protocolo: TDBEdit; + Label17: TLabel; + PopupMenu1: TPopupMenu; + cp_telddd: TMenuItem; + cp_tel: TMenuItem; + DBLookupComboBox1: TDBLookupComboBox; + Label18: TLabel; + procedure btn_clearmemoClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure dtsDevedoresDataChange(Sender: TObject; Field: TField); + procedure FormShow(Sender: TObject); + procedure dtsEnderecosDataChange(Sender: TObject; Field: TField); + procedure dtsTelefonesDataChange(Sender: TObject; Field: TField); + procedure dbgrd_titulosCellClick(Column: TColumn); + procedure clb_empresasClickCheck(Sender: TObject); + procedure dtsTitulosDataChange(Sender: TObject; Field: TField); + procedure navTitulosBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure queryListaTitulosCalcFields(DataSet: TDataSet); + procedure edt_nrparcelasChange(Sender: TObject); + procedure cb_nmultaClick(Sender: TObject); + procedure cb_descquitClick(Sender: TObject); + procedure btn_closeClick(Sender: TObject); + procedure edt_indquitarChange(Sender: TObject); + procedure edt_principalquitarChange(Sender: TObject); + procedure edt_multasquitarChange(Sender: TObject); + procedure edt_jurosquitarChange(Sender: TObject); + procedure edt_indparcelasChange(Sender: TObject); + procedure edt_principalparcelasChange(Sender: TObject); + procedure edt_multasparcelasChange(Sender: TObject); + procedure edt_jurosparcelasChange(Sender: TObject); + procedure cb_descparClick(Sender: TObject); + procedure edt_indquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_principalquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_multasquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_jurosquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_indparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_principalparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_multasparcelasKeyPress(Sender: TObject; var Key: Char); + procedure edt_jurosparcelasKeyPress(Sender: TObject; var Key: Char); + procedure dtsListaDevedoresDataChange(Sender: TObject; Field: TField); + procedure dtp_atrasorecalcChange(Sender: TObject); + procedure pgCobrancaChanging(Sender: TObject; var AllowChange: Boolean); + procedure pgCobrancaChange(Sender: TObject); + procedure btn_fechamentoClick(Sender: TObject); + procedure btn_recalcClick(Sender: TObject); + procedure copiar_conteudoClick(Sender: TObject); + procedure up_fontememoClick(Sender: TObject; Button: TUDBtnType); + procedure cb_negritomemoClick(Sender: TObject); + procedure btn_protocoloClick(Sender: TObject); + procedure dbgrd_providenciasDblClick(Sender: TObject); + procedure dtsCobradorDataChange(Sender: TObject; Field: TField); + procedure btn_concluirClick(Sender: TObject); + procedure dtsEnderecosStateChange(Sender: TObject); + procedure dtsTelefonesStateChange(Sender: TObject); + procedure dtsTitulosStateChange(Sender: TObject); + procedure dtp_diaagendamentoChange(Sender: TObject); + procedure edt_fontememoExit(Sender: TObject); + procedure edt_fontememoKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure dtp_horaagendamentoChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure clb_beneficiarioscalculoClickCheck(Sender: TObject); + procedure btn_outrostitulosClick(Sender: TObject); + procedure cb_formapagChange(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; + var Resize: Boolean); + procedure dtsHistoricoStateChange(Sender: TObject); + procedure tabCalculosShow(Sender: TObject); + procedure dbgrd_listadevedoresDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; + State: TGridDrawState); + procedure dtsCidadeDataChange(Sender: TObject; Field: TField); + procedure dtsDespesasStateChange(Sender: TObject); + procedure dtsUFDataChange(Sender: TObject; Field: TField); + procedure mnu_incluirClick(Sender: TObject); + procedure mnuretirarClick(Sender: TObject); + procedure edt_nrparcelasExit(Sender: TObject); + procedure lv_titulosItemChecked(Sender: TObject; Item: TListItem); + procedure dbgrd_enderecosTitleClick(Column: TColumn); + procedure dbgrd_telefoneTitleClick(Column: TColumn); + procedure dbgrd_titulosTitleClick(Column: TColumn); + procedure dbgrd_despesasTitleClick(Column: TColumn); + procedure dbgrd_historicoTitleClick(Column: TColumn); + procedure dbgrd_listtitulosTitleClick(Column: TColumn); + procedure dbgrd_resumohistTitleClick(Column: TColumn); + procedure dtsEnderecosUpdateData(Sender: TObject); + procedure dtsDevedoresUpdateData(Sender: TObject); + procedure dtsTelefonesUpdateData(Sender: TObject); + procedure dtsTitulosUpdateData(Sender: TObject); + procedure cb_desc_quit_corClick(Sender: TObject); + procedure cb_desc_par_corClick(Sender: TObject); + procedure edt_corquitarChange(Sender: TObject); + procedure edt_corparChange(Sender: TObject); + procedure cb_agendarClick(Sender: TObject); + procedure FormActivate(Sender: TObject); + procedure FormDeactivate(Sender: TObject); + procedure dbgrd_enderecosDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure dbgrd_telefoneDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure dbgrd_titulosDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure dtsDevedoresStateChange(Sender: TObject); + procedure edt_prentradaChange(Sender: TObject); + procedure cbx_excentradaClick(Sender: TObject); + procedure edt_excentradaChange(Sender: TObject); + procedure edt_excentradaKeyPress(Sender: TObject; var Key: Char); + procedure cb_agendahistClick(Sender: TObject); + procedure navhistoricoBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure navTelefoneBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure edt_corquitarKeyPress(Sender: TObject; var Key: Char); + procedure edt_corparKeyPress(Sender: TObject; var Key: Char); + procedure cbx_txextraClick(Sender: TObject); + procedure edt_txextraChange(Sender: TObject); + procedure edt_txextraKeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + procedure btn_pesquisaClick(Sender: TObject); + procedure appEventsHandlerException(Sender: TObject; E: Exception); + procedure btn_passardevedorClick(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure cbx_exjurosparcelarClick(Sender: TObject); + procedure edt_excjurosparcelaChange(Sender: TObject); + procedure edt_excjurosparcelaKeyPress(Sender: TObject; var Key: Char); + procedure dtsEmailStateChange(Sender: TObject); + procedure btn_passadevfecClick(Sender: TObject); + procedure ApplicationEvents1Exception(Sender: TObject; E: Exception); + procedure btn_relacaodividaClick(Sender: TObject); + procedure dbedt_documentoKeyPress(Sender: TObject; var Key: Char); + procedure dbrg_teltipoClick(Sender: TObject); + procedure cp_teldddClick(Sender: TObject); + procedure cp_telClick(Sender: TObject); + private + old_id: Integer; + old_id_tit: Integer; + ficha_dev: Boolean; + // function StrtoMoeda(moeda: string): string; + procedure SetupHackedNavigator(const Navigator: TDBNavigator; + const Glyphs: TImageList; S: string; size: Integer); + procedure CriarLista; + procedure CalcValorParcelas; + procedure Att_campos; + procedure ClearList(List: TListView); + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + procedure AdjustCheckListBox; + procedure CalcPrice; + procedure ChecaPermissoes; + function CalculaIdade(Birthday, CurrentDate: TDate): Integer; + { Private declarations } + public + dados: array of Integer; + atendimento: string; + nome_cobrador: string; + dia_agendado: string; + hora_agendado: string; + clpbrd: string; + pagina: Integer; + data_parcelas: array of TDate; + id_campanha: Integer; + tx_campanha: string; + parcelamento: array of currency; + FmtStngs: TFormatSettings; + after_show: Boolean; + recno_devedor: Integer; + entrou_agenda: Boolean; + qtde_titulos: Integer; + old_id_d: Integer; + pesquisa: Boolean; + str_titulos: string; + id_emp: Integer; + selected_id_chg_empresa: Integer; + id_emp_calc: Integer; + ids_tits_calc: array of Boolean; + achou: Boolean; + pass_state: Boolean; + pass_fec_state: Boolean; + str_tit: array of Integer; + function gerar_protocolo(id_devedor: string): string; + + { Public declarations } + end; + +var + frmEfetuarCobranca: TfrmEfetuarCobranca; + +implementation + +{$R *.dfm} + +uses udtmSystem, CommCtrl, ufrmFechamento, ufrmCobranca, ufrmLiberaPermissao, + ufrmPesquisa, urelFichaDivida; + +procedure TfrmEfetuarCobranca.btn_clearmemoClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmEfetuarCobranca.dbgrd_telefoneDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblTelefones.FieldByName('TP_ATIVO').AsString, + ['S', 'N']) of + 0: + dbgrd_telefone.Canvas.Brush.Color := clGreen; + 1: + dbgrd_telefone.Canvas.Brush.Color := $0000FF; + end; + // end; + dbgrd_telefone.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmEfetuarCobranca.dbgrd_telefoneTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblTelefones, Column); +end; + +procedure TfrmEfetuarCobranca.dbgrd_titulosCellClick(Column: TColumn); +var + i: Integer; +begin +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); +// if dtmSystem.tblTitulosID_EMPRESA.AsString = dtmSystem. +// tblCHGEmpresaID_EMPRESA.AsString then +// begin +// clb_empresas.Checked[i] := true; +// end +// else +// begin +// clb_empresas.Checked[i] := false; +// end; +// end; +end; + +procedure TfrmEfetuarCobranca.dbgrd_titulosDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblTitulos.FieldByName('TP_SITUACAO').AsString, + ['A', 'AC', 'AB', 'AJ', 'B', 'QC', 'QB']) of + 0: + dbgrd_titulos.Canvas.Brush.Color := clWhite; + 1: + dbgrd_titulos.Canvas.Brush.Color := $0000D7FF; + 2: + dbgrd_titulos.Canvas.Brush.Color := $002FFFAD; + 3: + dbgrd_titulos.Canvas.Brush.Color := clMoneyGreen; + 4: + dbgrd_titulos.Canvas.Brush.Color := clRed; + 5: + dbgrd_titulos.Canvas.Brush.Color := $00EBCE87; + 6: + dbgrd_titulos.Canvas.Brush.Color := $00E16941; + end; + // end; + dbgrd_titulos.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmEfetuarCobranca.dbgrd_titulosTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblTitulos, Column); +end; + +procedure TfrmEfetuarCobranca.dbrg_teltipoClick(Sender: TObject); +begin + if dbrg_teltipo.ItemIndex = 1 then + begin + DBRadioGroup2.Enabled := true; + end + else + begin + DBRadioGroup2.Enabled := false; + DBRadioGroup2.ItemIndex := -1; + end; +end; + +procedure TfrmEfetuarCobranca.dbedt_documentoKeyPress(Sender: TObject; + var Key: Char); +begin + if dtmSystem.tblDevedoresTP_CLIENTE.AsString = '' then + begin + MessageDlg('Por favor escolha o tipo de devedor.', mtWarning, [mbOK], 0); + Key := #0; + end; + if (dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'F') then + begin + if not(Key in [#8, '0' .. '9', '.', '-']) then + begin + Key := #0; + end; + end; + if (dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'J') then + begin + if not(Key in [#8, '0' .. '9', '.', '-', '/']) then + begin + Key := #0; + end; + end; +end; + +procedure TfrmEfetuarCobranca.dbgrd_despesasTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblDespesasTitulos, Column); +end; + +procedure TfrmEfetuarCobranca.dbgrd_enderecosDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblEnderecos.FieldByName('TP_ATIVO').AsString, + ['S', 'N']) of + 0: + dbgrd_enderecos.Canvas.Brush.Color := clGreen; + 1: + dbgrd_enderecos.Canvas.Brush.Color := $0000FF; + end; + // end; + dbgrd_enderecos.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmEfetuarCobranca.dbgrd_enderecosTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblEnderecos, Column); +end; + +procedure TfrmEfetuarCobranca.dbgrd_historicoTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblHistorico, Column); +end; + +procedure TfrmEfetuarCobranca.dbgrd_listadevedoresDrawColumnCell + (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; + State: TGridDrawState); +begin + case AnsiIndexStr(dtmSystem.tblCampanhaDevedores.FieldByName('TP_ESTADO') + .AsString, ['A', 'B', 'C']) of + 0: + begin + if (dtmSystem.tblCampanhaDevedores.FieldByName('TP_COBRANDO') + .AsInteger = dtmSystem.id_usuario) or + (dtmSystem.tblCampanhaDevedores.FieldByName('TP_COBRANDO') + .AsInteger = -1) then + begin + dbgrd_listadevedores.Canvas.Brush.Color := clWhite; + end + else + begin + dbgrd_listadevedores.Canvas.Brush.Color := clSilver; + end; + end; + 1, 2: + dbgrd_listadevedores.Canvas.Brush.Color := clWebLightBlue; + end; + dbgrd_listadevedores.DefaultDrawColumnCell(Rect, DataCol, Column, State); +end; + +procedure TfrmEfetuarCobranca.dbgrd_listtitulosTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(queryListaTitulos, Column); +end; + +procedure TfrmEfetuarCobranca.navhistoricoBeforeAction(Sender: TObject; + Button: TNavigateBtn); +var + string_helper { , erro } : string; + // saveme: TextFile; +begin + if Button = nbPost then + begin + if dblucb_providencia.KeyValue < 0 then + begin + MessageDlg('Por favor escolha uma providncia a ser lanada.', mtWarning, + [mbOK], 0); + abort; + end + else + begin + if dtsHistorico.State in [dsInsert] then + begin + // try + if MessageDlg + ('Esta incluso de histrico ir retirar este devedor de qualquer agendamento previamente realizado.' + + ' Deseja continuar?', mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + with zroqryProvAgend do + begin + SQL.Clear; + SQL.Add('select * from chg_providencias where tp_forcaagenda = ' + + QuotedStr('Sim') + ' and id_providencia = ' + + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString); + Open; + end; + if (zroqryProvAgend.RecordCount = 1) and (cb_agendahist.Checked = false) + then + begin + MessageDlg + ('Esta providncia exige que voc agende o devedor. Por favor agende-o.', + mtWarning, [mbOK], 0); + abort; + end; + if cb_agendahist.Checked then + begin + if dblucb_agendacobhist.KeyValue < 0 then + begin + MessageDlg('Por favor escolha o cobrador ao qual ser agendado.', + mtWarning, [mbOK], 0); + abort; + end + else + begin + if MessageDlg + ('Voc est prestes a agendar um devedor. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + if (dtp_agendahorahist.Time < Timeof(Now)) and + (dtp_agendadatahist.Date <= Dateof(Now)) then + begin + MessageDlg + ('Voc est selecionando um horrio para agendamento menor que a hora atual. Por favor verifique o horrio do agendamento.', + mtWarning, [mbOK], 0); + abort; + end; + end; + end; + Screen.Cursor := crHourGlass; + + { dtmSystem.tblCampanhaDevedores.DisableControls; + // Marca a o cobrador como feito + dtmSystem.tblCampanhaDevedores.Refresh; + if not(entrou_agenda) then + begin + dtmSystem.tblCampanhaDevedores.Locate('ID_CAMPANHA;ID_DEVEDOR', + VarArrayOf([id_campanha, + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger]), []); + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_ESTADO.AsString := 'B'; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := -1; + dtmSystem.tblCampanhaDevedores.Post; + + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'passou'; + dtmSystem.tblLogCampanhas.Post; + + end; } + with dtmSystem do + begin + if not(tblAgenda.Active) then + begin + tblAgenda.Open; + end; + // Marca toda a agenda como cobrada + tblAgenda.Refresh; + while tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + VarArrayOf([dtsDevedores.DataSet.FieldByName('ID_DEVEDOR') + .AsInteger, 'A']), []) do + begin + tblAgenda.Edit; + tblAgendaTP_SITUACAO.AsString := 'B'; + tblAgenda.Post; + end; + + end; + if cb_agendahist.Checked then // Agenda o devedor + begin + with dtmSystem do + begin + if not(tblAgenda.Active) then + begin + tblAgenda.Open; + end; + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := dblucb_agendacobhist.KeyValue; + tblAgendaID_DEVEDOR.AsInteger := dtsDevedores.DataSet.FieldByName + ('ID_DEVEDOR').AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := dtp_agendadatahist.Date; + tblAgendaHR_AGENDADA.AsDateTime := dtp_agendahorahist.Time; + tblAGENDADT_QUE_AGENDOU.AsDateTime := Now; + tblAgendaQUEM_AGENDOU.AsInteger := dtmSystem.id_usuario; + tblAgenda.Post; + + qryCampanha.SQL.Clear; + qryCampanha.SQL.Text := + 'select cd.*, c.tx_nome from chg_campanhas_devedores cd left join chg_campanhas c on cd.id_campanha = c.id_campanha where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + qryCampanha.Open; + qryCampanha.First; + while not qryCampanha.Eof do + begin + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := + qryCampanha.FieldByName('id_campanha').AsInteger; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := + qryCampanha.FieldByName('tx_nome').AsString; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + qryCampanha.FieldByName('id_devedor').AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'apagou p/ agenda'; + dtmSystem.tblLogCampanhas.Post; + qryCampanha.Next; + end; + qryCampanha.Close; + + dtmSystem.ZSQLProcessor1.Script.Text := + 'delete from chg_campanhas_devedores where id_devedor = ' + + QuotedStr(dtsDevedores.DataSet.FieldByName('ID_DEVEDOR') + .AsString); + dtmSystem.ZSQLProcessor1.Execute; + end; + string_helper := 'Agendado para o dia ' + + datetostr(dtp_agendadatahist.Date) + ' no horrio ' + + timetostr(dtp_agendahorahist.Time) + ' para o cobrador ' + + dblucb_agendacobhist.Text; + end; + + dtmSystem.tblHistoricoID_DEVEDOR.AsInteger := + dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger; + dtmSystem.tblHistoricoDT_CONTATO.AsDateTime := Now; + if cb_agendahist.Checked then + begin + dbmemo_box.lines.Add(string_helper); + cb_agendahist.Checked := false; + end; + if not(dtmSystem.tblHistorico.Active) then + begin + dtmSystem.tblHistorico.Open; + end; + + // dtmSystem.tblHistorico.Post; + dtp_agendadatahist.Date := Date; + dtp_agendahorahist.Time := Timeof(Now); + dtp_diaagendamento.Date := Date; + dtp_horaagendamento.Date := Timeof(Now); + Screen.Cursor := crDefault; + + end; + if dtsHistorico.State in [dsEdit] then + begin + MessageDlg + ('Alterar este acionamento no ir agendar o devedor (caso tenha sido selecionado para agendar) ' + + ' ou passar para o prximo devedor.', mtInformation, [mbOK], 0); + end + else + begin + btn_passardevedor.Enabled := true; + end; + end; + end; + if Button = nbCancel then + begin + if MessageDlg('Deseja realmente cancelar este histrico?', mtWarning, + [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; + end; + +end; + +procedure TfrmEfetuarCobranca.navTelefoneBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navTelefone.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + nbPost: + begin + if dbedt_telnum.Text = '' then + begin + MessageDlg('Por favor preencha um nmero para o telefone.', mtWarning, + [mbOK], 0); + abort; + end; + + try + dbedt_telnum.Text := dtmSystem.FormatTelefone(dbedt_telnum.Text); + except + on E: Exception do + begin + MessageDlg(E.Message, mtWarning, [mbOK], 0); + abort; + end; + end; + if dbrg_teltipo.ItemIndex = -1 then + begin + MessageDlg('Por favor escolha o tipo de telefone.', mtWarning, + [mbOK], 0); + abort; + end; + + if (Length(dbedt_telnum.Text) = 10) then + begin + dbrg_teltipo.ItemIndex := 1; + end; + + if (Length(dbedt_telnum.Text) = 9) then + begin + dbrg_teltipo.ItemIndex := 0; + end; + + // SelectNext(ActiveControl as TWinControl, true, true); + end; + + nbDelete: + begin + if navTelefone.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + + try + dtsTelefones.DataSet.Delete; + except + ShowMessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + abort; + end; + + nbCancel: + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + end; +end; + +procedure TfrmEfetuarCobranca.navTitulosBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + case Button of + nbPost: + begin + // for i := 0 to clb_empresas.Items.Count - 1 do + // begin + // if clb_empresas.Checked[i] then + // begin + // dtmSystem.tblCHGEmpresa.Locate('TX_NOME', + // clb_empresas.Items[i], []); + // dtmSystem.tblTitulosID_EMPRESA.AsString := + // dtmSystem.tblCHGEmpresaID_EMPRESA.AsString; + // end; + // end; + //dtmSystem.tblTitulosID_EMPRESA.AsInteger := selected_id_chg_empresa; + // clb_beneficiarioscalculo.Clear; + // + // qryConsulta.SQL.Text := + // 'select * from chg_empresas where id_empresa in ' + + // '(select id_empresa from chg_titulos' + + // ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + // + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + // qryConsulta.Open; + // qryConsulta.First; + // while not qryConsulta.Eof do + // begin + // clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + // .AsString); + // qryConsulta.Next; + // end; + // CriarLista; + end; + nbCancel: + begin + if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; +// if clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME.AsString) +// ] := false; +// end; +// dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', +// dtmSystem.tblTitulosID_EMPRESA.AsInteger, []); +// if clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf +// (dtmSystem.tblCHGEmpresaTX_NOME.AsString)] := true; +// end; + end; + nbDelete: + begin + if navTitulos.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, + [mbYes, mbNo], 0) = mrNo then + abort; + + try + dtsTitulos.DataSet.Delete; + except + ShowMessage + ('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + abort; + end; + end; +end; + +procedure TfrmEfetuarCobranca.dbgrd_providenciasDblClick(Sender: TObject); +var + pt: TPoint; + coord: TGridCoord; + clickheader: Integer; +begin + pt := dbgrd_providencias.ScreenToClient(Mouse.CursorPos); + coord := dbgrd_providencias.MouseCoord(pt.X, pt.Y); + clickheader := coord.Y; + if clickheader > 0 then + begin + if LeftStr(mb_fechamento.lines[mb_fechamento.lines.Count - 1], 3) = 'Pro' + then + begin + mb_fechamento.lines[mb_fechamento.lines.Count - 1] := + 'Providncia tomada: ' + dtmSystem.tblProvidenciasTX_NOME. + AsString + '.'; + end + else + begin + mb_fechamento.lines.Add('Providncia tomada: ' + + dtmSystem.tblProvidenciasTX_NOME.AsString + '.'); + end; + edt_prov.Text := dtmSystem.tblProvidenciasTX_NOME.AsString; + end; +end; + +procedure TfrmEfetuarCobranca.dbgrd_resumohistTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(dtmSystem.tblHistorico, Column); +end; + +procedure TfrmEfetuarCobranca.dtp_atrasorecalcChange(Sender: TObject); +begin + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.dtp_diaagendamentoChange(Sender: TObject); +var + i: Integer; +begin + if pgCobranca.ActivePageIndex = 5 then + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'Foi agendado para o dia') then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + dia_agendado, FormatDateTime('dd/mm/yyyy', dtp_diaagendamento.Date), + [rfReplaceAll, rfIgnoreCase]); + end; + dia_agendado := FormatDateTime('dd/mm/yyyy', dtp_diaagendamento.Date); + end; +end; + +procedure TfrmEfetuarCobranca.dtp_horaagendamentoChange(Sender: TObject); +var + i: Integer; +begin + if pgCobranca.ActivePageIndex = 5 then + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], hora_agendado) then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + hora_agendado, FormatDateTime('t', dtp_horaagendamento.Date), + [rfReplaceAll, rfIgnoreCase]); + end; + hora_agendado := FormatDateTime('t', dtp_horaagendamento.Date); + end; +end; + +procedure TfrmEfetuarCobranca.dtsCidadeDataChange(Sender: TObject; + Field: TField); +begin + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucb_endcidade.KeyValue := dtmSystem.tblEnderecosID_CIDADE.AsVariant; + end; +end; + +procedure TfrmEfetuarCobranca.dtsCobradorDataChange(Sender: TObject; + Field: TField); +var + i: Integer; +begin + if pgCobranca.ActivePageIndex = 5 then + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'para o cobrador') then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + nome_cobrador, queryCobradoresTX_NOME.AsString, + [rfReplaceAll, rfIgnoreCase]); + nome_cobrador := queryCobradoresTX_NOME.AsString; + end; + end; +end; + +procedure TfrmEfetuarCobranca.dtsDespesasStateChange(Sender: TObject); +begin + // navDespesas.Enabled := dtsDespesas.State in [dsInsert,dsEdit]; + // dbgrd_despesas.ReadOnly := not(dtsDespesas.State in [dsInsert, dsEdit]); + navTitulos.Enabled := not(dtsDespesas.State in [dsInsert, dsEdit]); +end; + +procedure TfrmEfetuarCobranca.dtsDevedoresDataChange(Sender: TObject; + Field: TField); +var + new_id, i: Integer; +begin + + if qryConsulta.Connection = nil then + begin + exit; + end; + + case AnsiIndexStr(dtmSystem.tblDevedoresTP_CLIENTE.AsString, ['F', 'J']) of + 0: + begin + dbedt_documento.DataField := 'CD_CPF'; + end; + 1: + begin + dbedt_documento.DataField := 'CD_CNPJ'; + end; + end; + if dtmSystem.tblDevedoresDT_NASC.AsString <> '' then + begin + lbl_idade.Caption := 'Idade: ' + + inttostr(CalculaIdade(dtmSystem.tblDevedoresDT_NASC.AsDateTime, Date)); + end + else + begin + lbl_idade.Caption := 'Idade: '; + end; + + // grpb_devedores.Enabled := dtsDevedores.State in [dsEdit, dsInsert]; + pnl_devedores.Enabled := dtsDevedores.State in [dsEdit, dsInsert, dsBrowse]; + new_id := dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + if old_id <> new_id then + begin + setlength(ids_tits_calc, 0); + old_id := new_id; + id_emp_calc := -1; + ficha_dev := false; + for i := 0 to Length(ids_tits_calc) - 1 do + begin + ids_tits_calc[i] := false; + end; + btn_protocolo.Enabled := true; + edt_protocolo.Text := ''; + edt_protocolo1.Text := ''; + clb_beneficiarioscalculo.Clear; + + qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + '(select id_empresa from chg_titulos' + + ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + qryConsulta.Open; + qryConsulta.First; + while not qryConsulta.Eof do + begin + clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + .AsString); + qryConsulta.Next; + end; + // clb_beneficiarioscalculo.Checked[0] := true; + CriarLista; + end; +end; + +procedure TfrmEfetuarCobranca.dtsDevedoresStateChange(Sender: TObject); +begin + dtmSystem.AlterReadOnly(pnl_devedores, dtsDevedores.DataSet); + // btn_passardevedor.Enabled := not(dtsDevedores.State in [dsInsert, dsEdit]); + navhistorico.Enabled := not(dtsDevedores.State in [dsInsert, dsEdit]); +end; + +procedure TfrmEfetuarCobranca.dtsDevedoresUpdateData(Sender: TObject); +begin + // navPrincipal.Enabled := dtmSystem.VerificarPermissao('ECBR.02.01'); +end; + +procedure TfrmEfetuarCobranca.dtsEmailStateChange(Sender: TObject); +begin + dbedt_email.ReadOnly := dtsEmail.State in [dsBrowse]; +end; + +procedure TfrmEfetuarCobranca.dtsEnderecosDataChange(Sender: TObject; + Field: TField); +begin + if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then + begin + dblucb_enduf.KeyValue := dtmSystem.tblEstadosID_ESTADO.AsVariant; + end; + + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucb_endcidade.KeyValue := dtmSystem.tblCidadesID_CIDADE.AsVariant; + end; + pnl_enderecos.Enabled := dtsEnderecos.State in [dsEdit, dsInsert, dsBrowse]; +end; + +procedure TfrmEfetuarCobranca.dtsEnderecosStateChange(Sender: TObject); +begin + dtmSystem.AlterReadOnly(pnl_enderecos, dtsEnderecos.DataSet); + // btn_passardevedor.Enabled := not(dtsEnderecos.State in [dsInsert, dsEdit]); +end; + +procedure TfrmEfetuarCobranca.dtsEnderecosUpdateData(Sender: TObject); +begin + // navEnderecos.Enabled := dtmSystem.VerificarPermissao('ECBR.02.02'); +end; + +procedure TfrmEfetuarCobranca.dtsHistoricoStateChange(Sender: TObject); +begin + pnl_hist.Enabled := dtsHistorico.State in [dsInsert, dsEdit]; + dbmemo_box.ReadOnly := not(dtsHistorico.State in [dsInsert, dsEdit]); + dbgrd_historico.Enabled := not(dtsHistorico.State in [dsInsert, dsEdit]); + // btn_passardevedor.Enabled := not(dtsHistorico.State in [dsInsert, dsEdit]); + // dbmemo_box.Enabled := dtsHistorico.State in [dsInsert, dsEdit]; + if dtsHistorico.State in [dsInsert] then + begin + dtsHistorico.DataSet.FieldByName('CD_PROTOCOLO').AsString := + dtmSystem.gerarProtocolo(dtsDevedores.DataSet.FieldByName('ID_DEVEDOR') + .AsString); + edt_protocolo.Text := dtmSystem.gerarProtocolo + (dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsString); + edt_protocolo1.Text := edt_protocolo.Text; + btn_protocolo.Enabled := false; + end; +end; + +procedure TfrmEfetuarCobranca.dtsListaDevedoresDataChange(Sender: TObject; + Field: TField); +var + new_id_d: Integer; +begin + new_id_d := dtmSystem.tblCampanhaDevedoresID_ITEM.AsInteger; + if new_id_d <> old_id_d then + begin + old_id_d := new_id_d; + dtp_atrasorecalc.Date := Date; + atendimento := 'cobrando'; + // cb_agendar.Checked := false; + nome_cobrador := '__________'; + dia_agendado := '__/__/____'; + hora_agendado := '__:__'; + // cb_descquit.Enabled := dtmSystem.VerificarPermissao('ECBR.01.01'); + // cb_descpar.Enabled := dtmSystem.VerificarPermissao('ECBR.01.02'); + // cb_nmulta.Enabled := dtmSystem.VerificarPermissao('ECBR.01.03'); + // cb_agendahist.Checked := false; + dtp_agendadatahist.Enabled := false; + // dtp_agendadatahist.Date := Date; + dtp_agendahorahist.Enabled := false; + // dtp_agendahorahist.Time := Timeof(Now); + dblucb_agendacobhist.Enabled := false; + if pass_state then + begin + btn_passardevedor.Enabled := true; + end + else + begin + btn_passardevedor.Enabled := false; + end; + if pass_fec_state then + begin + btn_passadevfec.Enabled := true; + end + else + begin + btn_passadevfec.Enabled := false; + end; + // dbgrd_listtitulos.Repaint; + end; +end; + +procedure TfrmEfetuarCobranca.dtsTelefonesDataChange(Sender: TObject; + Field: TField); +begin + pnl_telefone.Enabled := dtsTelefones.State in [dsEdit, dsInsert, dsBrowse]; + if dbrg_teltipo.ItemIndex = 1 then + begin + DBRadioGroup2.Enabled := true; + end + else + begin + DBRadioGroup2.Enabled := false; + DBRadioGroup2.ItemIndex := -1; + end; +end; + +procedure TfrmEfetuarCobranca.dtsTelefonesStateChange(Sender: TObject); +begin + dtmSystem.AlterReadOnly(pnl_telefone, dtsTelefones.DataSet); + // btn_passardevedor.Enabled := not(dtsTelefones.State in [dsInsert, dsEdit]); + navhistorico.Enabled := not(dtsDevedores.State in [dsInsert, dsEdit]); +end; + +procedure TfrmEfetuarCobranca.dtsTelefonesUpdateData(Sender: TObject); +begin + // navTelefone.Enabled := dtmSystem.VerificarPermissao('ECBR.02.03'); +end; + +procedure TfrmEfetuarCobranca.dtsTitulosDataChange(Sender: TObject; + Field: TField); +var + i, new_id_tit: Integer; +begin + pnl_titulos.Enabled := dtsTitulos.State in [dsEdit, dsInsert { , dsBrowse } ]; + // navDespesas.Enabled := + // not(dtsTitulos.State in [dsEdit, dsInsert { , dsBrowse } ]); + // dbgrd_despesas.Enabled := navDespesas.Enabled; + new_id_tit := dtmSystem.tblTitulosID_TITULO.AsInteger; + if old_id_tit <> new_id_tit then + begin + old_id_tit := new_id_tit; +// clb_empresas.Items.beginupdate; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.Checked[i] := false; +// end; +// clb_empresas.Items.EndUpdate; +// dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', +// dtmSystem.tblTitulosID_EMPRESA.AsInteger, []); +// selected_id_chg_empresa := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; +// if clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME.AsString) > -1 +// then +// begin +// clb_empresas.Checked +// [clb_empresas.Items.IndexOf(dtmSystem.tblCHGEmpresaTX_NOME. +// AsString)] := true; +// end; + end; + + // for i := 0 to clb_empresas.Items.Count - 1 do + // begin + // dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); + // if dtmSystem.tblTitulosID_EMPRESA.AsString = dtmSystem. + // tblCHGEmpresaID_EMPRESA.AsString then + // begin + // clb_empresas.Checked[i] := true; + // end + // else + // begin + // clb_empresas.Checked[i] := false; + // end; + // end; + +// if not(dtsTitulos.DataSet.State in [dsEdit, dsInsert]) then +// begin +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.ItemEnabled[i] := false; +// end; +// end +// else +// begin +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// clb_empresas.ItemEnabled[i] := true; +// end; +// end; + +end; + +procedure TfrmEfetuarCobranca.dtsTitulosStateChange(Sender: TObject); +begin + // dtmSystem.AlterReadOnly(pnl_titulos, dtsTitulos.DataSet); + // dtmSystem.AlterReadOnly(pnl_cheque, dtsTitulos.DataSet); + // btn_passardevedor.Enabled := not(dtsTitulos.State in [dsInsert, dsEdit]); +end; + +procedure TfrmEfetuarCobranca.dtsTitulosUpdateData(Sender: TObject); +begin + // navTitulos.Enabled := dtmSystem.VerificarPermissao('ECBR.02.04'); +end; + +procedure TfrmEfetuarCobranca.dtsUFDataChange(Sender: TObject; Field: TField); +begin + if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then + begin + dblucb_enduf.KeyValue := dtmSystem.tblEstadosID_ESTADO.AsVariant; + end; + if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then + begin + dblucb_endcidade.KeyValue := dtmSystem.tblCidadesID_CIDADE.AsVariant; + end; +end; + +procedure TfrmEfetuarCobranca.edt_corparChange(Sender: TObject); +begin + try + if (strtofloat(edt_corpar.Text) > -1) and (queryListaTitulos.Active) and + (edt_corpar.Text <> '') then + begin + if strtofloat(edt_corpar.Text) > + strtoint(copy(lbl_maxparcor.Caption, 6, Length(lbl_maxparcor.Caption) - + 1 - 5)) then + begin + edt_corpar.Text := copy(lbl_maxparcor.Caption, 6, + Length(lbl_maxparcor.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if ud_corpar.Max = 0 then + begin + edt_corpar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_corparKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_corpar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_corquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_corquitar.Text) > -1) and (queryListaTitulos.Active) and + (edt_corquitar.Text <> '') then + begin + if strtofloat(edt_corquitar.Text) > + strtoint(copy(lbl_maxquitcor.Caption, 6, Length(lbl_maxquitcor.Caption) + - 1 - 5)) then + begin + edt_corquitar.Text := copy(lbl_maxquitcor.Caption, 6, + Length(lbl_maxquitcor.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if ud_corquitar.Max = 0 then + begin + edt_corquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_corquitarKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_corquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_excentradaChange(Sender: TObject); +begin + if Length(edt_excentrada.Text) < 1 then + begin + edt_excentrada.Text := '0'; + end; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.edt_excentradaKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_excentrada.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_excjurosparcelaChange(Sender: TObject); +begin + if Length(edt_excjurosparcela.Text) < 1 then + begin + edt_excjurosparcela.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.edt_excjurosparcelaKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_excjurosparcela.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_fontememoExit(Sender: TObject); +begin + if strtoint(edt_fontememo.Text) < 8 then + begin + edt_fontememo.Text := '8'; + mb_fechamento.Font.size := 8; + end; + if strtoint(edt_fontememo.Text) > 72 then + begin + edt_fontememo.Text := '72'; + mb_fechamento.Font.size := 72; + end; + + mb_fechamento.Font.size := strtoint(edt_fontememo.Text); + +end; + +procedure TfrmEfetuarCobranca.edt_fontememoKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if Key = vkReturn then + begin + mb_fechamento.SetFocus; + end; +end; + +procedure TfrmEfetuarCobranca.edt_indparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_indparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_indparcelas.Text <> '') then + begin + if strtofloat(edt_indparcelas.Text) > + strtoint(copy(lbl_maxindpar.Caption, 6, Length(lbl_maxindpar.Caption) - + 1 - 5)) then + begin + edt_indparcelas.Text := copy(lbl_maxindpar.Caption, 6, + Length(lbl_maxindpar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_encparcelas.Max = 0 then + begin + edt_indparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_indparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_indparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_indquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_indquitar.Text) > -1) and (queryListaTitulos.Active) and + (edt_indquitar.Text <> '') then + begin + if strtofloat(edt_indquitar.Text) > + strtoint(copy(lbl_maxindquit.Caption, 6, Length(lbl_maxindquit.Caption) + - 1 - 5)) then + begin + edt_indquitar.Text := copy(lbl_maxindquit.Caption, 6, + Length(lbl_maxindquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_encquitar.Max = 0 then + begin + edt_indquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_indquitarKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_indquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_jurosparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_jurosparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_jurosparcelas.Text <> '') then + begin + if strtofloat(edt_jurosparcelas.Text) > + strtoint(copy(lbl_maxjurospar.Caption, 6, + Length(lbl_maxjurospar.Caption) - 1 - 5)) then + begin + edt_jurosparcelas.Text := copy(lbl_maxjurospar.Caption, 6, + Length(lbl_maxjurospar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_jurosparcelas.Max = 0 then + begin + edt_jurosparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_jurosparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_jurosparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_jurosquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_jurosquitar.Text) > -1) and (queryListaTitulos.Active) + and (edt_jurosquitar.Text <> '') then + begin + if strtofloat(edt_jurosquitar.Text) > + strtoint(copy(lbl_maxjurosquit.Caption, 6, + Length(lbl_maxjurosquit.Caption) - 1 - 5)) then + begin + edt_jurosquitar.Text := copy(lbl_maxjurosquit.Caption, 6, + Length(lbl_maxjurosquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_jurosquitar.Max = 0 then + begin + edt_jurosquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_jurosquitarKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_jurosquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_multasparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_multasparcelas.Text) > -1) and (queryListaTitulos.Active) + and (edt_multasparcelas.Text <> '') then + begin + if strtofloat(edt_multasparcelas.Text) > + strtoint(copy(lbl_maxmultapar.Caption, 6, + Length(lbl_maxmultapar.Caption) - 1 - 5)) then + begin + edt_multasparcelas.Text := copy(lbl_maxmultapar.Caption, 6, + Length(lbl_maxmultapar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_multasparcelas.Max = 0 then + begin + edt_multasparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_multasparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_multasparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_multasquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_multasquitar.Text) > -1) and (queryListaTitulos.Active) + and (edt_multasquitar.Text <> '') then + begin + if strtofloat(edt_multasquitar.Text) > + strtoint(copy(lbl_maxmultaquit.Caption, 6, + Length(lbl_maxmultaquit.Caption) - 1 - 5)) then + begin + edt_multasquitar.Text := copy(lbl_maxmultaquit.Caption, 6, + Length(lbl_maxmultaquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_multasquitar.Max = 0 then + begin + edt_multasquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_multasquitarKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_multasquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_nrparcelasChange(Sender: TObject); +begin + try + if (strtoint(edt_nrparcelas.Text) > -1) and (queryListaTitulos.Active) and + (edt_nrparcelas.Text <> '') then + begin + if strtoint(edt_nrparcelas.Text) > up_nrparcelas.Max then + begin + edt_nrparcelas.Text := inttostr(up_nrparcelas.Max); + end; + if strtoint(edt_nrparcelas.Text) < 0 then + begin + edt_nrparcelas.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if (cb_descquit.Checked) and (not ficha_dev) then + begin + edt_nrparcelas.Text := '0'; + end; + { if cb_formapag.ItemIndex = 1 then + begin + edt_nrparcelas.Text := '0'; + end; } + // Att_campos; + // CalcValorParcelas; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_nrparcelasExit(Sender: TObject); +begin + if edt_nrparcelas.Text = '' then + begin + edt_nrparcelas.Text := '0'; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; +end; + +procedure TfrmEfetuarCobranca.edt_prentradaChange(Sender: TObject); +begin + try + if (strtoint(edt_prentrada.Text) > -1) and (queryListaTitulos.Active) and + (edt_prentrada.Text <> '') then + begin + if strtoint(edt_prentrada.Text) > + strtoint(copy(lbl_maxentrada.Caption, 6, Length(lbl_maxentrada.Caption) + - 1 - 5)) then + begin + edt_prentrada.Text := copy(lbl_maxentrada.Caption, 6, + Length(lbl_maxentrada.Caption) - 1 - 5); + end; + if strtoint(edt_prentrada.Text) < + strtoint(copy(lbl_minentrada.Caption, 6, Length(lbl_minentrada.Caption) + - 1 - 5)) then + begin + edt_prentrada.Text := copy(lbl_minentrada.Caption, 6, + Length(lbl_minentrada.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if ud_entrada.Max = 0 then + begin + edt_prentrada.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_principalparcelasChange(Sender: TObject); +begin + try + if (strtofloat(edt_principalparcelas.Text) > -1) and + (queryListaTitulos.Active) and (edt_principalparcelas.Text <> '') then + begin + if strtofloat(edt_principalparcelas.Text) > + strtoint(copy(lbl_maxprinpar.Caption, 6, Length(lbl_maxprinpar.Caption) + - 1 - 5)) then + begin + edt_principalparcelas.Text := copy(lbl_maxprinpar.Caption, 6, + Length(lbl_maxprinpar.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + end; + if up_principalparcelas.Max = 0 then + begin + edt_principalparcelas.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_principalparcelasKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_principalparcelas.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_principalquitarChange(Sender: TObject); +begin + try + if (strtofloat(edt_principalquitar.Text) > -1) and + (queryListaTitulos.Active) and (edt_principalquitar.Text <> '') then + begin + if strtofloat(edt_principalquitar.Text) > + strtoint(copy(lbl_maxprinquit.Caption, 6, + Length(lbl_maxprinquit.Caption) - 1 - 5)) then + begin + edt_principalquitar.Text := copy(lbl_maxprinquit.Caption, 6, + Length(lbl_maxprinquit.Caption) - 1 - 5); + end; + queryListaTitulos.Refresh; + Att_campos; + end; + if up_principalquitar.Max = 0 then + begin + edt_principalquitar.Text := '0'; + exit; + end; + except + + end; +end; + +procedure TfrmEfetuarCobranca.edt_principalquitarKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_principalquitar.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.edt_txextraChange(Sender: TObject); +begin + if Length(edt_txextra.Text) < 1 then + begin + edt_txextra.Text := '0'; + end; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.edt_txextraKeyPress(Sender: TObject; + var Key: Char); +begin + if not(Key in [#8, '0' .. '9', + System.SysUtils.FormatSettings.DecimalSeparator]) then + begin + Key := #0; + end + else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and + (Pos(Key, edt_txextra.Text) > 0) then + begin + Key := #0; + end; +end; + +procedure TfrmEfetuarCobranca.FormActivate(Sender: TObject); +begin + // showmessage('oi'); + if Length(dados) > 0 then + begin + dtsDevedores.DataSet.RecNo := dados[0]; + dtsEnderecos.DataSet.RecNo := dados[1]; + dtsTelefones.DataSet.RecNo := dados[2]; + dtsTitulos.DataSet.RecNo := dados[3]; + dtsDespesas.DataSet.RecNo := dados[4]; + dtsProvidencias.DataSet.RecNo := dados[5]; + dtsHistorico.DataSet.RecNo := dados[6]; + dtmSystem.tblCobCampanha.RecNo := dados[7]; + dtmSystem.tblCampanhaDevedores.RecNo := dados[8]; + dtsEmpresa.DataSet.RecNo := dados[9]; + dtsCHGEmpresa.DataSet.RecNo := dados[10]; + dtsIndicadorFinanceiro.DataSet.RecNo := dados[11]; + end; +end; + +procedure TfrmEfetuarCobranca.FormCanResize(Sender: TObject; + var NewWidth, NewHeight: Integer; var Resize: Boolean); +begin + if after_show then + begin + Resize := false; + end + else + begin + Resize := true; + end; +end; + +procedure TfrmEfetuarCobranca.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + // if MessageDlg + // ('Voc est prestes a fechar um acionamento em andamento. Alteraes neste devedor podem no ser salvas. Deseja continuar?', + // mtWarning, mbYesNo, 0) = mrNo then + // begin + // abort; + // end + // else + // begin + // + // end; + with dtmSystem do + begin + // tblDevedores.Close; + // tblEnderecos.Close; + // tblTelefones.Close; + // tblTitulos.Close; + // tblProvidencias.Close; + // tblHistorico.Close; + // tblCampanhaDevedores.Close; + // tblCobCampanha.Close; + /// / tblAgenda.Close; + // tblCHGEmpresa.Close; + // + // tblFaixas.Close; + // tblPoliticas.Close; + // + // ROQueryFaixa.Close; + end; + + // queryCobradores.Close; + // queryHelper.Close; + // queryListaTitulos.Close; + + Action := caFree; + pesquisa := false; + frmEfetuarCobranca := nil; +end; + +procedure TfrmEfetuarCobranca.FormCloseQuery(Sender: TObject; + var CanClose: Boolean); +begin + if navPrincipal.DataSource <> nil then + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navEmail.DataSource <> nil then + if navEmail.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navTelefone.DataSource <> nil then + if navTelefone.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navTitulos.DataSource <> nil then + if navEmail.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navEmail.DataSource <> nil then + if navEmail.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; + if navhistorico.DataSource <> nil then + if navhistorico.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := false; + end; +end; + +procedure TfrmEfetuarCobranca.FormCreate(Sender: TObject); +var + Pos: Integer; +begin + // processo comea mesmo no form show + old_id_d := -1; + id_emp_calc := -1; + setlength(ids_tits_calc, 0); + pnl_cobrado.Color := clWebLightBlue; + after_show := false; + pgCobranca.ActivePageIndex := 0; + dtp_agendadatahist.Date := Dateof(Now); + dtp_agendahorahist.Time := Timeof(Now); + dtp_diaagendamento.Date := Dateof(Now); + dtp_horaagendamento.Time := Timeof(Now); + dtp_agendadatahist.MinDate := Date; + dtp_diaagendamento.MinDate := Date; + rdbdt_entrada.Date := Date; + old_id := -1; + atendimento := 'cobrando'; + cb_agendar.Checked := false; + cb_agendahist.Checked := false; + nome_cobrador := '__________'; + dia_agendado := '__/__/____'; + hora_agendado := '__:__'; + mb_fechamento.Clear; + pesquisa := false; + ficha_dev := false; + StatusBar1.Panels[0].Text := 'Ctrl+K para conceder permisses.'; + + // dbgrd_listadevedores.OnCellClick := nil; + dtp_atrasorecalc.Date := Date; + with dtmSystem do + begin + if not tblDevedores.Active then + begin + tblDevedores.Open; + end + else + begin + tblDevedores.Refresh; + end; + if not tblEmail.Active then + begin + tblEmail.Open; + end + else + begin + tblEmail.Refresh; + end; + if not tblEstados.Active then + begin + tblEstados.Open; + end + else + begin + tblEstados.Refresh; + end; + if not tblCidades.Active then + begin + tblCidades.Open; + end + else + begin + tblCidades.Refresh; + end; + if not tblEnderecos.Active then + begin + tblEnderecos.Open; + end + else + begin + tblEnderecos.Refresh; + end; + if not tblTelefones.Active then + begin + tblTelefones.Open; + end + else + begin + tblTelefones.Refresh; + end; + if not tblTitulos.Active then + begin + tblTitulos.Open; + end + else + begin + tblTitulos.Refresh; + end; + // if not tblDespesasTitulos.Active then + // begin + // tblDespesasTitulos.Open; + // end; + if not tblProvidencias.Active then + begin + tblProvidencias.Open; + end + else + begin + tblProvidencias.Refresh; + end; + if not tblHistorico.Active then + begin + tblHistorico.Open; + end + else + begin + tblHistorico.Refresh; + end; + if not tblCobCampanha.Active then + begin + tblCobCampanha.Open; + end + else + begin + tblCobCampanha.Refresh; + end; + if not tblCampanhaDevedores.Active then + begin + tblCampanhaDevedores.Open; + end + else + begin + tblCampanhaDevedores.Refresh; + end; + if not tblLogCampanhas.Active then + begin + tblLogCampanhas.Open; + end + else + begin + tblLogCampanhas.Refresh; + end; + if not tblAgenda.Active then + begin + tblAgenda.Open; + end + else + begin + tblAgenda.Refresh; + end; + if not tblEmpresa.Active then + begin + tblEmpresa.Open; + end + else + begin + tblEmpresa.Refresh; + end; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end + else + begin + tblCHGEmpresa.Refresh; + end; + if not tblPoliticas.Active then + begin + tblPoliticas.Open; + end + else + begin + tblPoliticas.Refresh; + end; + if not tblFaixas.Active then + begin + tblFaixas.Open; + end + else + begin + tblFaixas.Refresh; + end; + if not tblIndicadorFinanceiro.Active then + begin + tblIndicadorFinanceiro.Open; + end + else + begin + tblIndicadorFinanceiro.Refresh; + end; + if not tblPrCartao.Active then + begin + tblPrCartao.Open; + end + else + begin + tblPrCartao.Refresh; + end; + tblEmpresa.First; + tblCHGEmpresa.First; + Pos := 0; +// while not tblCHGEmpresa.Eof do +// begin +// clb_empresas.Items.Add(tblCHGEmpresaTX_NOME.AsString); +// if tblTitulosID_EMPRESA.AsString = tblCHGEmpresaID_EMPRESA.AsString then +// begin +// clb_empresas.Checked[Pos] := true; +// end; +// tblCHGEmpresa.Next; +// Pos := Pos + 1; +// end; + end; + + // with dbgrd_listtitulos do + // begin + // Columns[2].Width := 100; + // Columns[3].Width := 80; + // Columns[4].Width := 80; + // end; + if dtmSystem.id_grupo <> 1 then + begin + dbgrd_titulos.Columns[9].Visible := false; + dbgrd_titulos.Columns[10].Visible := false; + end; + { FListViewOldWndProc := lv_titulos.WindowProc; + lv_titulos.WindowProc := ListViewNewWndProc; + FlistViewOldWndProc2 := lv_parcelas.WindowProc; + lv_parcelas.WindowProc := ListViewNewWndProc2; } + + gb_descontosquit.Enabled := cb_descquit.Checked; + gb_descontospar.Enabled := cb_descpar.Checked; + + FormatSettings := TFormatSettings.Create; + FormatSettings.ThousandSeparator := '.'; + FormatSettings.DecimalSeparator := ','; + + dtsDevedores.DataSet.Refresh; + + queryCobradores.SQL.Text := + 'select id_usuario, tx_nome from sys_usuarios where tp_ativo = ' + + QuotedStr('S') + ' order by tx_nome'; + queryCobradores.Open; + + AdjustCheckListBox; + + SetupHackedNavigator(navPrincipal, ImageList1, 's', 8); + SetupHackedNavigator(navEmail, ImageList1, 'n', 2); + SetupHackedNavigator(navEnderecos, ImageList1, 's', 8); + SetupHackedNavigator(navTelefone, ImageList1, 's', 8); + SetupHackedNavigator(navTitulos, ImageList1, 's', 8); + SetupHackedNavigator(navhistorico, ImageList1, 's', 8); + // SetupHackedNavigator(navDespesas, ImageList1, 's', 8); + + + // cb_descquit.Enabled := dtmSystem.VerificarPermissao('ECBR.01.01'); + // cb_descpar.Enabled := dtmSystem.VerificarPermissao('ECBR.01.02'); + // cb_nmulta.Enabled := dtmSystem.VerificarPermissao('ECBR.01.03'); + // ECBR.02.01 + // navPrincipal.Enabled := dtmSystem.VerificarPermissao('ECBR.02.01'); + // navEnderecos.Enabled := dtmSystem.VerificarPermissao('ECBR.02.02'); + // navTelefone.Enabled := dtmSystem.VerificarPermissao('ECBR.02.03'); + // navTitulos.Enabled := dtmSystem.VerificarPermissao('ECBR.02.04'); + { if not(dtmSystem.VerificarPermissao('ECBR.02.05.03')) then + begin + navhistorico.VisibleButtons := navhistorico.VisibleButtons - [nbDelete]; + end; + if not(dtmSystem.VerificarPermissao('ECBR.02.05.02')) then + begin + navhistorico.VisibleButtons := navhistorico.VisibleButtons - [nbEdit]; + end; } + + ChecaPermissoes; + +end; + +procedure TfrmEfetuarCobranca.FormDeactivate(Sender: TObject); +begin + setlength(dados, 12); + if dtsDevedores.DataSet.Active then + begin + dados[0] := dtsDevedores.DataSet.RecNo; + end; + if dtsEnderecos.DataSet.Active then + begin + dados[1] := dtsEnderecos.DataSet.RecNo; + end; + if dtsTelefones.DataSet.Active then + begin + dados[2] := dtsTelefones.DataSet.RecNo; + end; + if dtsTitulos.DataSet.Active then + begin + dados[3] := dtsTitulos.DataSet.RecNo; + end; + if dtsDespesas.DataSet.Active then + begin + dados[4] := dtsDespesas.DataSet.RecNo; + end; + if dtsProvidencias.DataSet.Active then + begin + dados[5] := dtsProvidencias.DataSet.RecNo; + end; + if dtsHistorico.DataSet.Active then + begin + dados[6] := dtsHistorico.DataSet.RecNo; + end; + if dtmSystem.tblCobCampanha.Active then + begin + dados[7] := dtmSystem.tblCobCampanha.RecNo; + end; + if dtmSystem.tblCampanhaDevedores.Active then + begin + dados[8] := dtmSystem.tblCampanhaDevedores.RecNo; + end; + if dtsEmpresa.DataSet.Active then + begin + dados[9] := dtsEmpresa.DataSet.RecNo; + end; + if dtsCHGEmpresa.DataSet.Active then + begin + dados[10] := dtsCHGEmpresa.DataSet.RecNo; + end; + if dtsIndicadorFinanceiro.DataSet.Active then + begin + dados[11] := dtsIndicadorFinanceiro.DataSet.RecNo; + end; +end; + +procedure TfrmEfetuarCobranca.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +var + resultado: Integer; +begin + if Key = VK_ESCAPE then + begin + if MessageDlg + ('Voc est prestes a fechar um acionamento em andamento. Alteraes neste devedor podem no ser salvas. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + if pgCobranca.TabIndex = 5 then + begin + resultado := MessageDlg + ('Deseja realmente fechar a janela antes de efetuar a cobrana?', + mtConfirmation, [mbYes, mbNo], 0); + if resultado = mrYes then + begin + Key := 0; + Close; + end + else + begin + Key := 0; + end; + end + else + begin + Key := 0; + Close; + end; + end; + if (Key = 75) and (Shift = [ssCtrl]) then + begin + // ShowMessage('Ctrl+k is pressed!'); + frmLiberaPermissao := TfrmLiberaPermissao.Create(self); + + with frmLiberaPermissao do + begin + level := 2; + string_permissoes.Add('CBR.01.01.01.01'); + string_permissoes.Add('CBR.01.01.01.06'); + string_permissoes.Add('CBR.01.01.01.06.01'); + string_permissoes.Add('CBR.01.01.01.06.02'); + string_permissoes.Add('CBR.01.01.01.06.03'); + string_permissoes.Add('CBR.01.01.01.02'); + string_permissoes.Add('CBR.01.01.01.02.01'); + string_permissoes.Add('CBR.01.01.01.02.02'); + string_permissoes.Add('CBR.01.01.01.02.03'); + string_permissoes.Add('CBR.01.01.01.03'); + string_permissoes.Add('CBR.01.01.01.03.01'); + string_permissoes.Add('CBR.01.01.01.03.02'); + string_permissoes.Add('CBR.01.01.01.03.03'); + string_permissoes.Add('CBR.01.01.01.04'); + string_permissoes.Add('CBR.01.01.01.04.01'); + string_permissoes.Add('CBR.01.01.01.04.02'); + string_permissoes.Add('CBR.01.01.01.04.03'); + string_permissoes.Add('CBR.01.01.01.05'); + string_permissoes.Add('CBR.01.01.01.05.01'); + string_permissoes.Add('CBR.01.01.01.05.02'); + string_permissoes.Add('CBR.01.01.01.05.03'); + string_permissoes.Add('CBR.01.01.02.01.01'); + string_permissoes.Add('CBR.01.01.02.01.02'); + string_permissoes.Add('CBR.01.01.02.02'); + string_permissoes.Add('CBR.01.01.02.03'); + string_permissoes.Add('CBR.01.01.02.04'); + + ShowModal; + + if ModalResult = mrOk then + begin + case dtmSystem.cod_liberapermissao of + 0: + navPrincipal.Enabled := true; + 1: + navEmail.Enabled := true; + 2: + begin + navEmail.Enabled := true; + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbInsert]; + end; + 3: + begin + navEmail.Enabled := true; + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbEdit]; + end; + 4: + begin + navEmail.Enabled := true; + navEmail.VisibleButtons := navEmail.VisibleButtons + [nbDelete]; + end; + 5: + navEnderecos.Enabled := true; + 6: + begin + navEnderecos.Enabled := true; + navEnderecos.VisibleButtons := navEnderecos.VisibleButtons + + [nbInsert]; + end; + 7: + begin + navEnderecos.Enabled := true; + navEnderecos.VisibleButtons := navEnderecos.VisibleButtons + + [nbEdit]; + end; + 8: + begin + navEnderecos.Enabled := true; + navEnderecos.VisibleButtons := navEnderecos.VisibleButtons + + [nbDelete]; + end; + 9: + navTelefone.Enabled := true; + 10: + begin + navTelefone.Enabled := true; + navTelefone.VisibleButtons := navTelefone.VisibleButtons + + [nbInsert]; + end; + 11: + begin + navTelefone.Enabled := true; + navTelefone.VisibleButtons := navTelefone.VisibleButtons + + [nbEdit]; + end; + 12: + begin + navTelefone.Enabled := true; + navTelefone.VisibleButtons := navTelefone.VisibleButtons + + [nbDelete]; + end; + 13: + navTitulos.Enabled := true; + 14: + begin + navTitulos.Enabled := true; + navTitulos.VisibleButtons := navTitulos.VisibleButtons + + [nbInsert]; + end; + 15: + begin + navTitulos.Enabled := true; + navTitulos.VisibleButtons := navTitulos.VisibleButtons + [nbEdit]; + end; + 16: + begin + navTitulos.Enabled := true; + navTitulos.VisibleButtons := navTitulos.VisibleButtons + + [nbDelete]; + end; + 17: + navhistorico.Enabled := true; + 18: + begin + navhistorico.Enabled := true; + navhistorico.VisibleButtons := navhistorico.VisibleButtons + + [nbInsert]; + end; + 19: + begin + navhistorico.Enabled := true; + navhistorico.VisibleButtons := navhistorico.VisibleButtons + + [nbEdit]; + end; + 20: + begin + navhistorico.Enabled := true; + navhistorico.VisibleButtons := navhistorico.VisibleButtons + + [nbDelete]; + end; + 21: + tabQuitar.Enabled := true; + 22: + tabParcelar.Enabled := true; + 23: + cb_nmulta.Enabled := true; + 24: + cbx_txextra.Enabled := true; + 25: + cbx_excentrada.Enabled := true; + end; + end; + end; + + end; +end; + +procedure TfrmEfetuarCobranca.FormShow(Sender: TObject); +begin + setlength(dados, 0); + after_show := true; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; +end; + +procedure TfrmEfetuarCobranca.SetupHackedNavigator(const Navigator + : TDBNavigator; const Glyphs: TImageList; S: string; size: Integer); +const + Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); + (* Captions : array[TNavigateBtn] of string = + ('First', 'Prior', 'Next', 'Last', 'Insert', + 'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *) + Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Prximo', + 'ltimo', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar', + 'Atualizar', 'Aplicar Atualizaes', 'Cancelar Atualizes'); +var + btn: TNavigateBtn; +begin + // funo propriamente dita para "hackear" o navigator + for btn := Low(TNavigateBtn) to High(TNavigateBtn) do + with THackDBNavigator(Navigator).Buttons[btn] do + begin + // from the Captions const array + + Hint := Hints[btn]; + + if LowerCase(S) = 's' then + begin + Caption := Captions[btn]; + end; + + // the number of images in the Glyph property + NumGlyphs := 1; + // Remove the old glyph. + Glyph := nil; + // Assign the custom one + Glyphs.GetBitmap(Integer(btn), Glyph); + // gylph above text + Layout := blGlyphTop; + + Font.Style := Font.Style - [fsbold]; + Font.size := size; + end; +end; + +procedure TfrmEfetuarCobranca.tabCalculosShow(Sender: TObject); +begin + queryListaTitulos.Refresh; + CriarLista; +end; + +procedure TfrmEfetuarCobranca.up_fontememoClick(Sender: TObject; + Button: TUDBtnType); +begin + mb_fechamento.Font.size := strtoint(edt_fontememo.Text); +end; + +procedure TfrmEfetuarCobranca.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if Left < workArea.Left then + OffsetRect(Msg.DragRect^, workArea.Left - Left, 0); + + if Top < workArea.Top then + OffsetRect(Msg.DragRect^, 0, workArea.Top - Top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +procedure TfrmEfetuarCobranca.cb_descparClick(Sender: TObject); +begin + + if cb_descpar.Checked then + begin + cb_descquit.Checked := false; + gb_descontospar.Enabled := true; + gb_descontosquit.Enabled := false; + cb_desc_quit_cor.Checked := false; + end + else + begin + gb_descontospar.Enabled := false; + end; + if not gb_descontospar.Enabled then + begin + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corquitar.Text := '0'; + end; +end; + +procedure TfrmEfetuarCobranca.cb_descquitClick(Sender: TObject); +begin + + if cb_descquit.Checked then + begin + cb_descpar.Checked := false; + gb_descontosquit.Enabled := true; + gb_descontospar.Enabled := false; + edt_nrparcelas.Text := '0'; + cb_desc_par_cor.Checked := false; + end + else + begin + gb_descontosquit.Enabled := false; + end; + + if not gb_descontosquit.Enabled then + begin + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + edt_corpar.Text := '0'; + end; + +end; + +procedure TfrmEfetuarCobranca.cb_desc_par_corClick(Sender: TObject); +begin + if cb_desc_par_cor.Checked then + begin + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corquitar.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.cb_desc_quit_corClick(Sender: TObject); +begin + if cb_descquit.Checked then + begin + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + end; + queryListaTitulos.Refresh; + Att_campos; +end; + +procedure TfrmEfetuarCobranca.cb_formapagChange(Sender: TObject); +begin + { if { (cb_formapag.ItemIndex = 0) or (cb_formapag.ItemIndex = 1) then + begin + edt_nrparcelas.Text := '0'; + // edt_nrparcelas.OnChange; + end; } + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.cb_negritomemoClick(Sender: TObject); +begin + if cb_negritomemo.Checked then + begin + mb_fechamento.Font.Style := mb_fechamento.Font.Style + [fsbold]; + end + else + begin + mb_fechamento.Font.Style := mb_fechamento.Font.Style - [fsbold]; + end; +end; + +procedure TfrmEfetuarCobranca.cb_nmultaClick(Sender: TObject); +begin + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.ChecaPermissoes; +begin + with dtmSystem do + begin + // if perm_cobtel then + // begin + navPrincipal.Enabled := VerificarPermissao('CBR.01.01.01.01'); + + navEmail.Enabled := VerificarPermissao('CBR.01.01.01.06'); + if not VerificarPermissao('CBR.01.01.01.06.01') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.01.01.06.02') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.01.01.06.03') then + navEmail.VisibleButtons := navEmail.VisibleButtons - [nbDelete]; + + navEnderecos.Enabled := VerificarPermissao('CBR.01.01.01.02'); + if not VerificarPermissao('CBR.01.01.01.02.01') then + navEnderecos.VisibleButtons := navEnderecos.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.01.01.02.02') then + navEnderecos.VisibleButtons := navEnderecos.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.01.01.02.03') then + navEnderecos.VisibleButtons := navEnderecos.VisibleButtons - [nbDelete]; + + navTelefone.Enabled := VerificarPermissao('CBR.01.01.01.03'); + if not VerificarPermissao('CBR.01.01.01.03.01') then + navTelefone.VisibleButtons := navTelefone.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.01.01.03.02') then + navTelefone.VisibleButtons := navTelefone.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.01.01.03.03') then + navTelefone.VisibleButtons := navTelefone.VisibleButtons - [nbDelete]; + + navTitulos.Enabled := VerificarPermissao('CBR.01.01.01.04'); + if not VerificarPermissao('CBR.01.01.01.04.01') then + navTitulos.VisibleButtons := navTitulos.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.01.01.04.02') then + navTitulos.VisibleButtons := navTitulos.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.01.01.04.03') then + navTitulos.VisibleButtons := navTitulos.VisibleButtons - [nbDelete]; + + navhistorico.Enabled := VerificarPermissao('CBR.01.01.01.05'); + if not VerificarPermissao('CBR.01.01.01.05.01') then + navhistorico.VisibleButtons := navhistorico.VisibleButtons - [nbInsert]; + if not VerificarPermissao('CBR.01.01.01.05.02') then + navhistorico.VisibleButtons := navhistorico.VisibleButtons - [nbEdit]; + if not VerificarPermissao('CBR.01.01.01.05.03') then + navhistorico.VisibleButtons := navhistorico.VisibleButtons - [nbDelete]; + + tabQuitar.Enabled := VerificarPermissao('CBR.01.01.02.01.01'); + tabParcelar.Enabled := VerificarPermissao('CBR.01.01.02.01.02'); + cb_nmulta.Enabled := VerificarPermissao('CBR.01.01.02.02'); + cbx_txextra.Enabled := VerificarPermissao('CBR.01.01.02.03'); + cbx_excentrada.Enabled := VerificarPermissao('CBR.01.01.02.04'); + perm_cobtel := false; + // end; + + end; +end; + +procedure TfrmEfetuarCobranca.cbx_excentradaClick(Sender: TObject); +begin + edt_excentrada.Enabled := cbx_excentrada.Enabled; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.cbx_exjurosparcelarClick(Sender: TObject); +begin + edt_excjurosparcela.Enabled := cbx_exjurosparcelar.Enabled; + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.cbx_txextraClick(Sender: TObject); +begin + edt_txextra.Enabled := cbx_txextra.Checked; + if not cbx_txextra.Checked then + begin + edt_txextra.Text := '0,00'; + end; +end; + +procedure TfrmEfetuarCobranca.cb_agendahistClick(Sender: TObject); +begin + dtp_agendadatahist.Enabled := cb_agendahist.Checked; + dtp_agendahorahist.Enabled := cb_agendahist.Checked; + dblucb_agendacobhist.Enabled := cb_agendahist.Checked; +end; + +procedure TfrmEfetuarCobranca.cb_agendarClick(Sender: TObject); +var + i: Integer; +begin + dtp_diaagendamento.Enabled := cb_agendar.Checked; + dtp_horaagendamento.Enabled := cb_agendar.Checked; + dblucb_cobradoragendar.Enabled := cb_agendar.Checked; + if cb_agendar.Checked then + begin + mb_fechamento.lines.Add + ('Foi agendado para o dia __/__/____ para o cobrador __________ no horrio de atendimento __:__.'); + + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'Foi agendado para o dia') then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + dia_agendado, FormatDateTime('dd/mm/yyyy', dtp_diaagendamento.Date), + [rfReplaceAll, rfIgnoreCase]); + end; + dia_agendado := FormatDateTime('dd/mm/yyyy', dtp_diaagendamento.Date); + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], hora_agendado) then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + hora_agendado, FormatDateTime('t', dtp_horaagendamento.Date), + [rfReplaceAll, rfIgnoreCase]); + end; + hora_agendado := FormatDateTime('t', dtp_horaagendamento.Date); + if dblucb_cobradoragendar.KeyValue > -1 then + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'para o cobrador') then + begin + mb_fechamento.lines[i] := StringReplace(mb_fechamento.lines[i], + nome_cobrador, queryCobradoresTX_NOME.AsString, + [rfReplaceAll, rfIgnoreCase]); + nome_cobrador := queryCobradoresTX_NOME.AsString; + end; + end; + + end + else + begin + for i := 0 to mb_fechamento.lines.Count - 1 do + if AnsiContainsStr(mb_fechamento.lines[i], 'Foi agendado para o dia') then + begin + dia_agendado := '__/__/____'; + hora_agendado := '__:__'; + nome_cobrador := '__________'; + mb_fechamento.lines.Delete(i); + end; + end; +end; + +procedure TfrmEfetuarCobranca.clb_beneficiarioscalculoClickCheck + (Sender: TObject); +var + i: Integer; + n_marcou: Boolean; +begin + n_marcou := true; + with TCheckListBox(Sender) do + begin + if Checked[ItemIndex] then + begin + n_marcou := false; + Items.beginupdate; + id_emp_calc := ItemIndex; + for i := 0 to Items.Count - 1 do + if i = ItemIndex then + begin + continue; + end + else + begin + Checked[i] := false; + end; + Items.EndUpdate; + lv_titulos.PopupMenu := popmnu_incluir; + end + else + begin + for i := 0 to Items.Count - 1 do + if Checked[i] = true then + begin + n_marcou := false; + id_emp_calc := i; + end; + lv_titulos.PopupMenu := nil; + end; + end; + if n_marcou then + begin + lv_titulos.Clear; + id_emp_calc := -1; + setlength(ids_tits_calc, 0); + end + else + begin + CriarLista; + end; +end; + +procedure TfrmEfetuarCobranca.clb_empresasClickCheck(Sender: TObject); +var + i: Integer; +begin +// with TCheckListBox(Sender) do +// begin +// if Checked[ItemIndex] then +// begin +// Items.beginupdate; +// for i := 0 to Items.Count - 1 do +// if i = ItemIndex then +// begin +// dtmSystem.tblCHGEmpresa.Locate('TX_NOME', clb_empresas.Items[i], []); +// selected_id_chg_empresa := +// dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; +// continue; +// end +// else +// begin +// Checked[i] := false; +// end; +// Items.EndUpdate; +// end; +// end; +end; + +procedure TfrmEfetuarCobranca.ClearList(List: TListView); +var + i, ListCnt: Integer; +begin + ListCnt := List.Items.Count; + + List.Items.beginupdate; + for i := ListCnt - 1 downto 0 do + begin + List.Items.Delete(i); + end; + + List.Items.EndUpdate; +end; + +procedure TfrmEfetuarCobranca.CriarLista; +var + h: Integer; + nMaxWidth: Integer; + i: Integer; + nItemWidth: Integer; + achou: Boolean; +begin + Screen.Cursor := crHourGlass; + achou := false; + if queryListaTitulos.Connection = nil then + // BACALHAU, NO TEM EXPLICAO. S FUNCIONA. + begin + exit; + end; + // qtde_titulos := 0; + dtmSystem.tblCHGEmpresa.Open; + for h := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + if clb_beneficiarioscalculo.Checked[h] then + begin + dtmSystem.tblCHGEmpresa.Locate('TX_NOME', + clb_beneficiarioscalculo.Items[h], []); + achou := true; + end; + end; + nMaxWidth := clb_beneficiarioscalculo.ClientWidth; + for i := 0 to clb_beneficiarioscalculo.Items.Count - 1 do + begin + nItemWidth := clb_beneficiarioscalculo.Canvas.TextWidth + (clb_beneficiarioscalculo.Items[i]) + 20; + if (nItemWidth > nMaxWidth) then + nMaxWidth := nItemWidth; + end; + if (nMaxWidth > clb_beneficiarioscalculo.ClientWidth) then + begin + clb_beneficiarioscalculo.ScrollWidth := nMaxWidth; + end; + if achou then + begin + queryListaTitulos.SQL.Clear; + queryListaTitulos.SQL.Text := + 'select * from (select * from chg_titulos where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + + ') where ((tp_situacao = ''A'' or tp_situacao = ''AC'')) and' + + '(id_empresa = ' + dtmSystem.tblCHGEmpresaID_EMPRESA.AsString + ')' + + ' order by DT_VENCIMENTO, VL_TITULO'; + queryListaTitulos.Open; + queryListaTitulos.DisableControls; + queryListaTitulos.First; + + lv_titulos.Clear; + + while not queryListaTitulos.Eof do + begin + dtmSystem.tblFaixas.Filter := '(DT_INICIO < ' + + queryListaTitulosDT_ATRASO.AsString + ')and(DT_FINAL > ' + + queryListaTitulosDT_ATRASO.AsString + ')'; + dtmSystem.tblFaixas.Filtered := true; + dtmSystem.tblFaixas.Open; + dtmSystem.tblPoliticas.Open; + dtmSystem.tblPoliticas.Locate('ID_POLITICA', + dtmSystem.tblFaixasID_POLITICA.AsString, []); + with lv_titulos.Items.Add do + begin + SubItems.Add(queryListaTitulos.FieldByName('NOME_EMPRESA').AsString); + SubItems.Add(queryListaTitulos.FieldByName('TX_PRODUTO').AsString); + SubItems.Add(queryListaTitulos.FieldByName('DT_VENCIMENTO').AsString); + SubItems.Add(CurrToStrF(queryListaTitulos.FieldByName('VL_TITULO') + .AsCurrency, ffCurrency, 2, dtmSystem.CusFmt)); + SubItems.Add(queryListaTitulos.FieldByName('CD_DEVEDOR').AsString); + SubItems.Add(queryListaTitulos.FieldByName('NR_PARCELAS').AsString); + SubItems.Add(queryListaTitulos.FieldByName('DT_ENTRADA').AsString); + end; + lv_titulos.Column[0].Alignment := TAlignment.taCenter; + dtmSystem.tblFaixas.Filtered := false; + queryListaTitulos.Next; + end; + end + else + begin + queryListaTitulos.SQL.Clear; + queryListaTitulos.SQL.Text := + 'select * from (select * from chg_titulos where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + + ') where ((tp_situacao = ''A'' or tp_situacao = ''AC'')) and' + + '(id_empresa = 0)' + ' order by DT_VENCIMENTO, VL_TITULO'; + queryListaTitulos.Open; + queryListaTitulos.DisableControls; + queryListaTitulos.First; + lv_titulos.Clear; + end; + queryListaTitulos.EnableControls; + Screen.Cursor := crDefault; + +end; + +procedure TfrmEfetuarCobranca.lv_titulosItemChecked(Sender: TObject; + Item: TListItem); +var + i, k: Integer; + Checked: Boolean; +begin + qtde_titulos := 0; + Checked := false; + k := 0; + if lv_titulos.Items.Count > 0 then + begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + qtde_titulos := qtde_titulos + 1; + str_titulos := str_titulos + queryListaTitulosID_TITULO.AsString + ';'; + id_emp := queryListaTitulosID_EMPRESA.AsInteger; + Checked := true; + setlength(str_tit, k + 1); + str_tit[k] := queryListaTitulosID_TITULO.AsInteger; + Inc(k, 1); + end; + end; + end; + if not Checked then + begin + str_titulos := 'S/T'; + end; + edt_indparcelas.Text := '0'; + edt_principalparcelas.Text := '0'; + edt_multasparcelas.Text := '0'; + edt_jurosparcelas.Text := '0'; + edt_corquitar.Text := '0'; + edt_indquitar.Text := '0'; + edt_principalquitar.Text := '0'; + edt_multasquitar.Text := '0'; + edt_jurosquitar.Text := '0'; + edt_corpar.Text := '0'; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.mnu_incluirClick(Sender: TObject); +var + i: Integer; +begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + lv_titulos.Items[i].Checked := true; + end; + qtde_titulos := lv_titulos.Items.Count; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.pgCobrancaChange(Sender: TObject); +var + i: Integer; +begin + try + if pgCobranca.TabIndex = 5 then + begin + if (atendimento = 'cobrando') then + begin + pgCobranca.TabIndex := pagina; + end; + if id_emp_calc <> -1 then + begin + clb_beneficiarioscalculo.Checked[id_emp_calc] := true; + end; + end; + if pagina = 4 then + begin + setlength(ids_tits_calc, queryListaTitulos.RecordCount); + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + ids_tits_calc[i] := true; + end + else + begin + ids_tits_calc[i] := false; + end; + end; + end; + if atendimento = 'fechamento' then + begin + // clb_beneficiarioscalculo.Enabled := false; + // lv_titulos.Enabled := false; + edt_nrparcelas.Enabled := false; + up_nrparcelas.Enabled := false; + cb_nmulta.Enabled := false; + dtp_atrasorecalc.Enabled := false; + cb_descquit.Enabled := false; + cb_descpar.Enabled := false; + cbx_txextra.Enabled := false; + cbx_excentrada.Enabled := false; + end; + if atendimento = 'cobrando' then + begin + // clb_beneficiarioscalculo.Enabled := true; + // lv_titulos.Enabled := true; + edt_nrparcelas.Enabled := true; + up_nrparcelas.Enabled := true; + cb_nmulta.Enabled := true; + dtp_atrasorecalc.Enabled := true; + cb_descquit.Enabled := true; + cb_descpar.Enabled := true; + cbx_txextra.Enabled := true; + cbx_excentrada.Enabled := true; + end; + if pagina <> 4 then + begin + if Length(ids_tits_calc) > 0 then + begin + for i := 0 to Length(ids_tits_calc) - 1 do + begin + lv_titulos.Items[i].Checked := ids_tits_calc[i]; + end; + end; + end; + if pgCobranca.TabIndex = 4 then + begin + clb_beneficiarioscalculo.Clear; + + qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + '(select id_empresa from chg_titulos' + + ' where (tp_situacao = ''A'' or tp_situacao = ''AC'') and (id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + qryConsulta.Open; + qryConsulta.First; + while not qryConsulta.Eof do + begin + clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + .AsString); + qryConsulta.Next; + end; + CriarLista; + end; + // if pgCobranca.TabIndex = 4 then + // begin + // clb_beneficiarioscalculo.Clear; + // + // qryConsulta.SQL.Text := 'select * from chg_empresas where id_empresa in ' + + // '(select id_empresa from chg_titulos' + + // ' where (tp_situacao = ''A'') and (id_devedor = ' + + // dtmSystem.tblDevedoresID_DEVEDOR.AsString + '))'; + // qryConsulta.Open; + // qryConsulta.First; + // while not qryConsulta.Eof do + // begin + // clb_beneficiarioscalculo.Items.Add(qryConsulta.FieldByName('TX_NOME') + // .AsString); + // qryConsulta.Next; + // end; + // CriarLista; + // end; + except + + end; + +end; + +procedure TfrmEfetuarCobranca.pgCobrancaChanging(Sender: TObject; + var AllowChange: Boolean); +begin + pagina := pgCobranca.TabIndex; +end; + +procedure TfrmEfetuarCobranca.queryListaTitulosCalcFields(DataSet: TDataSet); +var + vl_corrigido, vl_cor_antes_desc, vl_nominal, vl_indices, pl_juros, pl_multa, + pl_indicador, pl_entrada, pl_encargos, regra_3, valor, juros, parcela, + par_extra, vl_despesa, helper_indice, cred_fin, vl_cor_depois_desc + : currency; + dividendo: double; + g: Integer; + tx_despesa: string; +begin + // inicializao de variveis + juros := 0.00; + dividendo := 0.00; + + // quantidade de dias de atraso + dtsCHGEmpresa.DataSet.Locate('ID_EMPRESA', + queryListaTitulosID_EMPRESA.AsString, []); + if not(dtsEmpresa.DataSet.Active) then + begin + dtsEmpresa.DataSet.Open; + end; + + dtsEmpresa.DataSet.First; + if dtp_atrasorecalc.Date > queryListaTitulosDT_VENCIMENTO.AsDateTime then + begin + queryListaTitulosDT_ATRASO.AsInteger := DaysBetween(dtp_atrasorecalc.Date, + queryListaTitulosDT_VENCIMENTO.AsDateTime); + end + else + begin + queryListaTitulosDT_ATRASO.AsInteger := 0; + end; + vl_nominal := queryListaTitulosVL_TITULO.AsCurrency; + queryListaTitulosVL_PRINCIPAL.AsCurrency := vl_nominal; + + with dtmSystem do + begin + dtsIndicadorFinanceiro.DataSet.Refresh; + dtsIndicadorFinanceiro.DataSet.Filter := 'ATRASO_MIN <=' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ATRASO_MAX >= ' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ID_CHG_EMPRESA = ' + + dtsCHGEmpresa.DataSet.FieldByName('ID_EMPRESA').AsString; + dtsIndicadorFinanceiro.DataSet.Filtered := true; + + if dtsIndicadorFinanceiro.DataSet.IsEmpty then + begin + + queryListaTitulosPR_INDICADOR.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_INDICADOR_FINANCEIRO').AsFloat; + // queryListaTitulosPR_INDICADOR.AsFloat := 0; + end + else + begin + queryListaTitulosPR_INDICADOR.AsFloat := + dtsIndicadorFinanceiro.DataSet.FieldByName('PR_INDICADOR').AsFloat; + end; + dtsPoliticas.DataSet.Refresh; + dtsPoliticas.DataSet.Filter := 'DT_INICIO <= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', Date)) + ' and DT_FIM >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', Date)) + ' and ID_EMPRESA = ' + + dtsCHGEmpresa.DataSet.FieldByName('ID_EMPRESA').AsString; + dtsPoliticas.DataSet.Filtered := true;; + + // nmero mx de parcelamento + queryListaTitulosNR_PARCELAS.AsInteger := dtsCHGEmpresa.DataSet.FieldByName + ('NR_PARCELAS').AsInteger; + dtsFaixas.DataSet.Filtered := false; + dtsFaixas.DataSet.Refresh; + if tblPoliticasID_POLITICA.AsString <> '' then + begin + dtsFaixas.DataSet.Filter := 'ATRASO_MIN <=' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ATRASO_MAX >= ' + + inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ID_POLITICA = ' + + tblPoliticasID_POLITICA.AsString; + dtsFaixas.DataSet.Filtered := true; + if dtsFaixas.DataSet.IsEmpty then + begin + dtsFaixas.DataSet.Filtered := false; + dtsFaixas.DataSet.Filter := 'DT_MIN <=' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and DT_MAX >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and ID_POLITICA = ' + + tblPoliticasID_POLITICA.AsString; + end; + // dtsFaixas.DataSet.Filter := 'ATRASO_MIN <=' + + // inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ATRASO_MAX >= ' + + // inttostr(queryListaTitulosDT_ATRASO.AsInteger) + ' and ID_POLITICA = ' + + // tblPoliticasID_POLITICA.AsString; + { dtsFaixas.DataSet.Filter := 'DT_MIN <=' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and DT_MAX >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and ID_POLITICA = ' + + tblPoliticasID_POLITICA.AsString; } + end + else + begin + dtsFaixas.DataSet.Filter := 'DT_MIN <= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + ' and DT_MAX >= ' + + QuotedStr(FormatDateTime('YYYY-mm-dd', + queryListaTitulosDT_VENCIMENTO.AsDateTime)) + + ' and ID_POLITICA = 999999999'; + end; + + dtsFaixas.DataSet.Filtered := true; + + // porcentagens de cobrana e descontos + if dtsFaixas.DataSet.IsEmpty then + begin + queryListaTitulosPR_MULTA.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_MULTA').AsFloat; + queryListaTitulosPR_JUROS.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_JUROS').AsFloat; + queryListaTitulosNR_JUROS.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('NR_JUROS').AsFloat; + queryListaTitulosTP_JUROS.AsString := dtsCHGEmpresa.DataSet.FieldByName + ('TP_JUROS').AsString; + + queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_IND_FIN').AsFloat; + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_PRIN').AsFloat; + queryListaTitulosPR_QUITACAO_MULTA.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_MULTA').AsFloat; + queryListaTitulosPR_QUITACAO_JUROS.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_JUROS').AsFloat; + queryListaTitulosPR_QUITACAO_COR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_QUIT_COR').AsFloat; + + queryListaTitulosPR_PARCELA_INDICADOR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_IND_FIN').AsFloat; + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_PRIN').AsFloat; + queryListaTitulosPR_PARCELA_MULTA.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_MULTA').AsFloat; + queryListaTitulosPR_PARCELA_JUROS.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_JUROS').AsFloat; + queryListaTitulosPR_PARCELA_COR.AsFloat := + dtsCHGEmpresa.DataSet.FieldByName('PR_DESC_FINAN_COR').AsFloat; + end + else + begin + queryListaTitulosPR_MULTA.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_MULTA').AsFloat; + queryListaTitulosPR_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_JUROS').AsFloat; + queryListaTitulosNR_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('NR_JUROS').AsFloat; + queryListaTitulosTP_JUROS.AsString := dtsFaixas.DataSet.FieldByName + ('TP_JUROS').AsString; + + queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_IND_FIN').AsFloat; + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_PRIN').AsFloat; + queryListaTitulosPR_QUITACAO_MULTA.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_MULTA').AsFloat; + queryListaTitulosPR_QUITACAO_JUROS.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_QUIT_JUROS').AsFloat; + queryListaTitulosPR_QUITACAO_COR.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_QUIT_COR').AsFloat; + + queryListaTitulosPR_PARCELA_INDICADOR.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_FINAN_IND_FIN').AsFloat; + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat := + dtsFaixas.DataSet.FieldByName('PR_DESC_FINAN_PRIN').AsFloat; + queryListaTitulosPR_PARCELA_MULTA.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_MULTA').AsFloat; + queryListaTitulosPR_PARCELA_JUROS.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_JUROS').AsFloat; + queryListaTitulosPR_PARCELA_COR.AsFloat := dtsFaixas.DataSet.FieldByName + ('PR_DESC_FINAN_COR').AsFloat; + end; + + // valor das parcelas dos encargos + if Dateof(dtp_atrasorecalc.Date) > + Dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime) then + begin + pl_indicador := vl_nominal * + (queryListaTitulosPR_INDICADOR.AsFloat / 100); + end + else + begin + pl_indicador := 0; + end; + queryListaTitulosVL_INDICADOR.AsCurrency := pl_indicador; + if queryListaTitulosTP_JUROS.AsString = 'P' then + begin + pl_juros := vl_nominal * ((queryListaTitulosPR_JUROS.AsFloat / 30) / 100) + * queryListaTitulosDT_ATRASO.AsInteger; + end + else + begin + pl_juros := queryListaTitulosNR_JUROS.AsFloat * + queryListaTitulosDT_ATRASO.AsInteger; + end; + queryListaTitulosVL_JUROS.AsCurrency := pl_juros; + + if Dateof(dtp_atrasorecalc.Date) > + Dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime) then + begin + pl_multa := vl_nominal * (queryListaTitulosPR_MULTA.AsFloat / 100); + end { + else + begin + pl_multa := 0; + end }; + + if ((dtp_atrasorecalc.Date) <= (queryListaTitulosDT_VENCIMENTO.AsDateTime)) + or (cb_nmulta.Checked) then + begin + pl_multa := 0; + end; + + queryListaTitulosVL_MULTA.AsCurrency := pl_multa; + + pl_encargos := pl_multa + pl_juros + pl_indicador + vl_indices; + + vl_corrigido := vl_nominal + pl_encargos; + + // valor encargos + queryListaTitulosVL_ENCARGOS.AsCurrency := pl_encargos; + + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_corrigido; + vl_cor_antes_desc := vl_corrigido; + + queryListaTitulosPR_ENTRADA_MIN.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_ENTRADA_MIN').AsFloat; + queryListaTitulosPR_ENTRADA_MAX.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + ('PR_ENTRADA_MAX').AsFloat; + + // porcentagem da entrada + if cbx_excentrada.Checked then + begin + pl_entrada := StrToCurr(edt_excentrada.Text); + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada / qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + // entrada em porcentagem + begin + // queryListaTitulosPR_ENTRADA.AsFloat := dtsCHGEmpresa.DataSet.FieldByName + // ('PR_ENTRADA').AsFloat; + queryListaTitulosPR_ENTRADA.AsFloat := strtofloat(edt_prentrada.Text); + pl_entrada := vl_corrigido * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada; + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + // entrada = parcela + begin + pl_entrada := 0; + queryListaTitulosVL_ENTRADA.AsCurrency := pl_entrada; + end; + end; + + dtsIndicadorFinanceiro.DataSet.Filtered := false; + dtsPoliticas.DataSet.Filtered := false; + dtsFaixas.DataSet.Filtered := false; + end; + + // Descontos sobre Quitar + if strtofloat(edt_indquitar.Text) > queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (queryListaTitulosPR_QUITACAO_INDICADOR.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (strtofloat(edt_indquitar.Text) / 100); + end; + if strtofloat(edt_principalquitar.Text) > + queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat then + begin + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (queryListaTitulosPR_QUITACAO_PRINCIPAL.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (strtofloat(edt_principalquitar.Text) / 100); + end; + if strtofloat(edt_multasquitar.Text) > queryListaTitulosPR_QUITACAO_MULTA.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (queryListaTitulosPR_QUITACAO_MULTA.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (strtofloat(edt_multasquitar.Text) / 100); + end; + if strtofloat(edt_jurosquitar.Text) > queryListaTitulosPR_QUITACAO_JUROS.AsFloat + then + begin + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (queryListaTitulosPR_QUITACAO_JUROS.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (strtofloat(edt_jurosquitar.Text) / 100); + end; + + // Descontos sobre Parcelar + if strtofloat(edt_indparcelas.Text) > queryListaTitulosPR_PARCELA_INDICADOR.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (queryListaTitulosPR_PARCELA_INDICADOR.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency * + (strtofloat(edt_indparcelas.Text) / 100); + end; + if strtofloat(edt_principalparcelas.Text) > + queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat then + begin + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (queryListaTitulosPR_PARCELA_PRINCIPAL.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency := + queryListaTitulosVL_TITULO.AsCurrency * + (strtofloat(edt_principalparcelas.Text) / 100); + end; + if strtofloat(edt_multasparcelas.Text) > queryListaTitulosPR_PARCELA_MULTA.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (queryListaTitulosPR_PARCELA_MULTA.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency * + (strtofloat(edt_multasparcelas.Text) / 100); + end; + if strtofloat(edt_jurosparcelas.Text) > queryListaTitulosPR_PARCELA_JUROS.AsFloat + then + begin + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (queryListaTitulosPR_PARCELA_JUROS.AsFloat / 100); + end + else + begin + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency * + (strtofloat(edt_jurosparcelas.Text) / 100); + end; + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency; + + if (cb_descquit.Checked) then + begin + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency - + queryListaTitulosVL_DESC_QUIT_IND.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency - + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency - + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency - + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency; + + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency - + (queryListaTitulosVL_DESC_QUIT_IND.AsCurrency + + queryListaTitulosVL_DESC_QUIT_PRIN.AsCurrency + + queryListaTitulosVL_DESC_QUIT_JUROS.AsCurrency + + queryListaTitulosVL_DESC_QUIT_MULTA.AsCurrency); + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + / qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + end; + + // end; + end; + + if (cb_descpar.Checked) and (strtoint(edt_nrparcelas.Text) >= 1) then + begin + queryListaTitulosVL_DESC_IND.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency - + queryListaTitulosVL_DESC_PAR_IND.AsCurrency; + queryListaTitulosVL_DESC_PRIN.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency - + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency; + queryListaTitulosVL_DESC_MULTA.AsCurrency := + queryListaTitulosVL_MULTA.AsCurrency - queryListaTitulosVL_DESC_PAR_MULTA. + AsCurrency; + queryListaTitulosVL_DESC_JUROS.AsCurrency := + queryListaTitulosVL_JUROS.AsCurrency - queryListaTitulosVL_DESC_PAR_JUROS. + AsCurrency; + + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_PRINCIPAL.AsCurrency + + queryListaTitulosVL_ENCARGOS.AsCurrency - + (queryListaTitulosVL_DESC_PAR_IND.AsCurrency + + queryListaTitulosVL_DESC_PAR_PRIN.AsCurrency + + queryListaTitulosVL_DESC_PAR_JUROS.AsCurrency + + queryListaTitulosVL_DESC_PAR_MULTA.AsCurrency); + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) + / qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + // end; + + end; + end; + if vl_cor_antes_desc <> queryListaTitulosVL_CORRIGIDO.AsCurrency then + begin + regra_3 := vl_cor_antes_desc - queryListaTitulosVL_CORRIGIDO.AsCurrency; + edt_desctot.Text := formatfloat('0.##', + ((regra_3 * 100) / vl_cor_antes_desc)); + end + else + begin + edt_desctot.Text := '0'; + end; + + if cb_desc_quit_cor.Checked and (strtofloat(edt_corquitar.Text) > 0) then + begin + vl_cor_depois_desc := queryListaTitulosVL_CORRIGIDO.AsCurrency - + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (strtofloat(edt_corquitar.Text) / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_cor_depois_desc; + end; + + if cb_desc_par_cor.Checked and (strtofloat(edt_corpar.Text) > 0) then + begin + vl_cor_depois_desc := queryListaTitulosVL_CORRIGIDO.AsCurrency - + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (strtofloat(edt_corpar.Text) / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := vl_cor_depois_desc; + end; + + if cbx_excentrada.Checked then + begin + if qtde_titulos <> 0 then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := StrToCurr(edt_excentrada.Text) / + qtde_titulos; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency * + (queryListaTitulosPR_ENTRADA.AsFloat / 100); + end; + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PA' then + begin + queryListaTitulosVL_ENTRADA.AsCurrency := 0; + end; + end; + + if (strtoint(edt_nrparcelas.Text) = 0) and (cb_formapag.ItemIndex = 1) then + begin + queryListaTitulosVL_EXTRAS.AsCurrency := + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency + + (queryListaTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaPR_DEBITO.AsFloat / 100)); + end; + + if (cbx_txextra.Checked) and (strtoint(edt_nrparcelas.Text) = 0) and + (StrToCurr(edt_txextra.Text) > 0) then + begin + queryListaTitulosVL_CORRIGIDO.AsCurrency := + queryListaTitulosVL_CORRIGIDO.AsCurrency + StrToCurr(edt_txextra.Text); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + StrToCurr(edt_txextra.Text); + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + StrToCurr(edt_txextra.Text); + end; + + if (strtoint(edt_nrparcelas.Text) > 0) then + begin + if cbx_excentrada.Checked then + begin + case cb_formapag.ItemIndex of + 0: + begin + if dtmSystem.tblCHGEmpresaTP_DIN.AsString = 'P' then + begin + CalcPrice; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // parcela := valor / (strtoint(edt_nrparcelas.Text)); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 2: + begin + if dtmSystem.tblCHGEmpresaTP_CRED.AsString = 'P' then + begin + CalcPrice; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 3: + begin + if dtmSystem.tblCHGEmpresaTP_CHEQUE.AsString = 'P' then + begin + CalcPrice; + end + else + begin + // valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + // RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // parcela := valor / (strtoint(edt_nrparcelas.Text)); + // juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // queryListaTitulosVL_PARCELA.AsCurrency := parcela; + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + + end; + // if dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR.AsFloat > 0 then + // begin + // valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + // RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // + // juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR.AsFloat / 100); + // + // dividendo := + // (1 - (1 / (power(1 + (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR.AsFloat + // / 100), strtoint(edt_nrparcelas.Text))))); + // + // parcela := ((valor * juros) / dividendo); + // queryListaTitulosVL_PARCELA.AsCurrency := parcela; + // end + // else + // begin + // valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + // RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + // parcela := valor / (strtoint(edt_nrparcelas.Text)); + // queryListaTitulosVL_PARCELA.AsCurrency := parcela; + // end; + // if cb_formapag.ItemIndex = 2 then + // begin + // parcela := queryListaTitulosVL_PARCELA.AsCurrency; + // case strtoint(edt_nrparcelas.Text) of + // 1: + // begin + // juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // end; + // 2, 3: + // begin + // juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // end; + // 4, 5, 6: + // begin + // juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // end; + // 7, 8, 9, 10, 11, 12: + // begin + // juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + // parcela := parcela + (parcela * juros); + // end; + // end; + // queryListaTitulosVL_PARCELA.AsCurrency := parcela; + // end; + + queryListaTitulosVL_EXTRAS.AsCurrency := + ((RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * queryListaTitulosVL_PARCELA.AsCurrency) + ) - queryListaTitulosVL_CORRIGIDO.AsCurrency); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + + queryListaTitulosVL_EXTRAS.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * + queryListaTitulosVL_PARCELA.AsCurrency); + end + else + begin + case cb_formapag.ItemIndex of + 0: + begin + if dtmSystem.tblCHGEmpresaTP_DIN.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text)); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + end; + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 2: + begin + if dtmSystem.tblCHGEmpresaTP_CRED.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text)); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + end; + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end; + end; + 3: + begin + if dtmSystem.tblCHGEmpresaTP_CHEQUE.AsString = 'P' then + begin + CalcPrice; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' + then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text)); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat + / 100), strtoint(edt_nrparcelas.Text))))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text)); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + parcela := valor / (strtoint(edt_nrparcelas.Text) + 1); + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblCHGEmpresaPR_JUROS_PARCELAR. + AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat + / 100), strtoint(edt_nrparcelas.Text) + 1)))); + + // parcela := ((valor * juros) / dividendo); + parcela := parcela + (parcela * juros); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) + then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + end; + end; + end; + queryListaTitulosVL_EXTRAS.AsCurrency := + ((RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * queryListaTitulosVL_PARCELA.AsCurrency) + ) - queryListaTitulosVL_CORRIGIDO.AsCurrency); + queryListaTitulosVL_ENCARGOS.AsCurrency := + queryListaTitulosVL_ENCARGOS.AsCurrency + + queryListaTitulosVL_EXTRAS.AsCurrency; + queryListaTitulosVL_CORRIGIDO.AsCurrency := + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2) + + (strtoint(edt_nrparcelas.Text) * + queryListaTitulosVL_PARCELA.AsCurrency); + end; + end; +end; + +procedure TfrmEfetuarCobranca.mnuretirarClick(Sender: TObject); +var + i: Integer; +begin + for i := 0 to lv_titulos.Items.Count - 1 do + begin + lv_titulos.Items[i].Checked := false; + end; + qtde_titulos := 0; + Att_campos; + CalcValorParcelas; +end; + +procedure TfrmEfetuarCobranca.btn_closeClick(Sender: TObject); +var + resultado: Integer; +begin + + if pgCobranca.TabIndex = 5 then + begin + resultado := MessageDlg + ('Deseja realmente fechar a janela antes de efetuar a cobrana?', + mtConfirmation, [mbYes, mbNo], 0); + if resultado = mrYes then + begin + frmEfetuarCobranca := nil; + Close; + end; + end + else + begin + frmEfetuarCobranca := nil; + Close; + end; +end; + +procedure TfrmEfetuarCobranca.btn_outrostitulosClick(Sender: TObject); +var + nao_marcou: Boolean; + i: Integer; + // count_titulos: Integer; + str_titulos: string; +begin + + if edt_prov.Text = '' then + begin + MessageDlg('Por favor selecione uma providncia.', mtWarning, [mbOK], 0); + abort; + end + else if (dblucb_cobradoragendar.ListFieldIndex = -1) then + begin + MessageDlg + ('Por favor selecione um cobrador para qual ser agendada a cobrana.', + mtWarning, [mbOK], 0); + abort; + end + else + begin + // queryListaDevedores.RecNo := recno_devedor; + // if dtmSystem.tblProvidencias.ControlsDisabled then + // begin + // dtmSystem.tblProvidencias.EnableControls; + // end; + + // dtmSystem.tblProtocolo.Open; + // count_titulos := 0; + str_titulos := ''; + if queryHelper.Locate('ID_COBRADOR', dtmSystem.id_usuario, []) then + begin + dtmSystem.tblHistorico.Locate('id_historico', + queryHelper.FieldByName('id_historico').AsString, []); + end; + nao_marcou := true; + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_ESTADO.AsString := 'B'; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblProvidencias.Locate('TX_NOME', edt_prov.Text, []); + + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + if dtmSystem.tblHistoricoID_PROVIDENCIA.AsString = '' then + begin + dtmSystem.tblHistorico.Edit; + dtmSystem.tblHistoricoID_TITULO.AsString := + queryListaTitulosID_TITULO.AsString; + dtmSystem.tblHistoricoID_PROVIDENCIA.AsString := + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString; + dtmSystem.tblHistoricoDT_CONTATO.AsDateTime := Now; + // dtmSystem.tblHistoricoCD_PROTOCOLO.AsString := edt_protocolo.Text; + dtmSystem.tblHistoricoTL_MEMO.AsString := mb_fechamento.Text; + dtmSystem.tblHistorico.Post; + + // if dtmSystem.tblProvidenciasID_PROVIDENCIA.AsInteger = 1 then + if cb_agendar.Checked then + begin + + // dtp_diaagendamentoChange(self.dtp_diaagendamento); + // dtp_horaagendamentoChange(self.dtp_horaagendamento); + // dtsCobradorDataChange(self,queryCobradores.FieldByName('TX_NOME')); + + with dtmSystem do + begin + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := dblucb_cobradoragendar.KeyValue; + // tblAgendaID_DEVEDOR.AsInteger := queryListaDevedores.FieldByName + // ('ID_DEVEDOR').AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := dtp_diaagendamento.Date; + tblAgendaHR_AGENDADA.AsDateTime := dtp_horaagendamento.Time; + tblAGENDADT_QUE_AGENDOU.AsDateTime := Now; + tblAgenda.Post; + end; + // dtmSystem.tblHistorico.Edit; + // dtmSystem.tblHistoricoDT_AGENDAMENTO.AsDateTime := + // dtp_diaagendamento.Date; + // dtmSystem.tblHistoricoDT_HORAMARCADA.AsDateTime := + // dtp_horaagendamento.Time; + // dtmSystem.tblHistorico.Post; + end; + + nao_marcou := false; + end + else + begin + dtmSystem.tblHistorico.Append; + dtmSystem.tblHistoricoID_DEVEDOR.AsString := + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + + dtmSystem.tblHistoricoID_TITULO.AsString := + queryListaTitulosID_TITULO.AsString; + dtmSystem.tblHistoricoID_PROVIDENCIA.AsString := + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString; + dtmSystem.tblHistoricoDT_CONTATO.AsDateTime := Now; + // dtmSystem.tblHistoricoCD_PROTOCOLO.AsString := edt_protocolo.Text; + dtmSystem.tblHistoricoTL_MEMO.AsString := mb_fechamento.Text; + dtmSystem.tblHistorico.Post; + + // if dtmSystem.tblProvidenciasID_PROVIDENCIA.AsInteger = 1 then + if cb_agendar.Checked then + begin + + dtp_diaagendamentoChange(self.dtp_diaagendamento); + dtp_horaagendamentoChange(self.dtp_horaagendamento); + // dtsCobradorDataChange(self,queryCobradores.FieldByName('TX_NOME')); + + with dtmSystem do + begin + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := dblucb_cobradoragendar.KeyValue; + tblAgendaID_DEVEDOR.AsInteger := + dtmSystem.tblCampanhaDevedores.FieldByName('ID_DEVEDOR') + .AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := dtp_diaagendamento.Date; + tblAgendaHR_AGENDADA.AsDateTime := dtp_horaagendamento.Time; + tblAGENDADT_QUE_AGENDOU.AsDateTime := Now; + tblAgenda.Post; + end; + // dtmSystem.tblHistorico.Edit; + // dtmSystem.tblHistoricoDT_AGENDAMENTO.AsDateTime := + // dtp_diaagendamento.Date; + // dtmSystem.tblHistoricoDT_HORAMARCADA.AsDateTime := + // dtp_horaagendamento.Time; + // dtmSystem.tblHistorico.Post; + end; + + nao_marcou := false; + end; + str_titulos := str_titulos + dtmSystem.tblTitulosID_TITULO. + AsString + ';'; + // Inc(count_titulos); + end; + end; + { dtmSystem.tblProtocolo.Append; + //dtmSystem.tblProtocoloCD_PROTOCOLO.AsString := edt_protocolo.Text; + dtmSystem.tblProtocoloQNT_TITULOS.AsInteger := count_titulos; + dtmSystem.tblProtocoloID_TITULOS.AsString := str_titulos; + dtmSystem.tblProtocoloID_DEVEDOR.AsString := + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + dtmSystem.tblProtocoloVL_ENTRADA.AsCurrency := + StrToCurr(StringReplace(copy(edt_somaentrada.Text, 4, + Length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase])); + dtmSystem.tblProtocoloVL_JUROS.AsCurrency := + StrToCurr(StringReplace(copy(edt_somajuros.Text, 4, + Length(edt_somajuros.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + // if cb_nmulta.Checked then + // begin + // dtmSystem.tblProtocoloVL_MULTA.AsCurrency := 0; + // end + // else + // begin + dtmSystem.tblProtocoloVL_MULTA.AsCurrency := + StrToCurr(StringReplace(copy(edt_somamulta.Text, 4, + Length(edt_somamulta.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + // end; + dtmSystem.tblProtocoloVL_INDICADOR.AsCurrency := + StrToCurr(StringReplace(copy(edt_somaindicador.Text, 4, + Length(edt_somaindicador.Text) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase])); + dtmSystem.tblProtocoloVL_CORRIGIDO.AsCurrency := + StrToCurr(StringReplace(copy(edt_vlaquitar.Text, 4, + Length(edt_vlaquitar.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + if cb_descquit.Checked then + begin + dtmSystem.tblProtocoloTP_DESC_QUIT.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_QUIT.AsString := 'N'; + end; + dtmSystem.tblProtocoloPR_QUIT_JUROS.AsFloat := + strtofloat(edt_jurosquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_MULTA.AsFloat := + strtofloat(edt_multasquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_INDICADOR.AsFloat := + strtofloat(edt_indquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_PRINCIPAL.AsFloat := + strtofloat(edt_principalquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_COR.AsFloat := strtofloat(edt_corquitar.Text); + if cb_descpar.Checked then + begin + dtmSystem.tblProtocoloTP_DESC_PAR.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_PAR.AsString := 'N'; + end; + dtmSystem.tblProtocoloPR_PARCELAR_JUROS.AsFloat := + strtofloat(edt_jurosparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_MULTA.AsFloat := + strtofloat(edt_multasparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_INDICADOR.AsFloat := + strtofloat(edt_indparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_PRINCIPAL.AsFloat := + strtofloat(edt_principalparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_COR.AsFloat := + strtofloat(edt_corpar.Text); + dtmSystem.tblProtocoloNR_PARCELAS.AsInteger := + strtoint(edt_nrparcelas.Text); + dtmSystem.tblProtocoloDT_PROTOCOLO.AsDateTime := Date; } + + if nao_marcou then + begin + dtmSystem.tblHistorico.Edit; + dtmSystem.tblHistoricoID_PROVIDENCIA.AsString := + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString; + dtmSystem.tblHistoricoDT_CONTATO.AsDateTime := Now; + // dtmSystem.tblHistoricoCD_PROTOCOLO.AsString := edt_protocolo.Text; + dtmSystem.tblHistoricoTL_MEMO.AsString := mb_fechamento.Text; + + dtmSystem.tblHistorico.Post; + end; + + queryHelper.Refresh; + + atendimento := 'cobrando'; + cb_agendar.Checked := false; + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + recno_devedor := dtmSystem.tblCampanhaDevedores.RecNo; + end; +end; + +procedure TfrmEfetuarCobranca.btn_concluirClick(Sender: TObject); +// var +// nao_marcou: Boolean; +// i, RecNo, id_emp, count_titulos, recno_helper: Integer; +// erro: string; +begin + if edt_prov.Text = '' then + begin + MessageDlg('Por favor selecione uma providncia.', mtWarning, [mbOK], 0); + abort; + end; + with zroqryProvAgend do + begin + SQL.Clear; + SQL.Add('select * from chg_providencias where tp_forcaagenda = ' + + QuotedStr('Sim') + ' and id_providencia = ' + + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString); + Open; + end; + if (zroqryProvAgend.RecordCount = 1) and (cb_agendar.Checked = false) then + begin + MessageDlg + ('Esta providncia exige que voc agende o devedor. Por favor agende-o.', + mtWarning, [mbOK], 0); + abort; + end; + if (dblucb_cobradoragendar.KeyValue < 1) and (cb_agendar.Checked = true) then + begin + MessageDlg + ('Por favor selecione um cobrador para qual ser agendada a cobrana.', + mtWarning, [mbOK], 0); + abort; + end + else + begin + // try + // if MessageDlg + // ('Este acionamento ir passar automaticamente para o prximo devedor na campanha. Deseja continuar?', + // mtWarning, [mbYes, mbNo], 0) = mrNo then + // begin + // abort; + // end; + if (cb_agendar.Checked = true) then + begin + if MessageDlg('Este acionamento possui um agendamento. Deseja continuar?', + mtWarning, mbYesNo, 0) = mrNo then + begin + abort; + end; + if (dtp_horaagendamento.Time < Timeof(Now)) and + (dtp_diaagendamento.Date <= Dateof(Now)) then + begin + MessageDlg + ('Voc est selecionando um horrio para agendamento menor que a hora atual. Por favor verifique o horrio do agendamento.', + mtWarning, [mbOK], 0); + abort; + end; + end; + // queryListaDevedores.RecNo := recno_devedor; + Screen.Cursor := crHourGlass; + mb_fechamento.lines.Add(''); + mb_fechamento.lines.Add('Nmero do protocolo: ' + edt_protocolo.Text); + cb_formapag.ItemIndex := 0; + dtmSystem.tblProtocolo.Open; + btn_concluir.Enabled := false; + // edt_nrparcelas.Text := '0'; + // edt_nrparcelas.OnChange(self); + // count_titulos := 0; + // dtmSystem.tblCampanhaDevedores.DisableControls; + dtmSystem.tblCampanhaDevedores.Refresh; + // Marca devedor como cobrado na campanha + if not(entrou_agenda) then + begin + dtmSystem.tblCampanhaDevedores.Locate('ID_CAMPANHA;ID_DEVEDOR', + VarArrayOf([id_campanha, + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger]), []); + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_ESTADO.AsString := 'B'; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := -1; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'passou'; + dtmSystem.tblLogCampanhas.Post; + dbgrd_listadevedores.Repaint; + end; + if not(dtmSystem.tblAgenda.Active) then + begin + dtmSystem.tblAgenda.Open; + end; + dtmSystem.tblAgenda.Refresh; + // Marca a agenda toda dele como feita + while dtmSystem.tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + VarArrayOf([dtmSystem.tblDevedoresID_DEVEDOR.AsString, 'A']), []) do + begin + dtmSystem.tblAgenda.Edit; + dtmSystem.tblAgendaTP_SITUACAO.AsString := 'B'; + dtmSystem.tblAgenda.Post; + end; + + dtmSystem.tblProvidencias.Locate('TX_NOME', edt_prov.Text, []); + if cb_agendar.Checked then // Faz agendamento + begin + with dtmSystem do + begin + if not(tblAgenda.Active) then + begin + tblAgenda.Open; + end; + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := dblucb_cobradoragendar.KeyValue; + tblAgendaID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := dtp_diaagendamento.Date; + tblAgendaHR_AGENDADA.AsDateTime := dtp_horaagendamento.Time; + tblAGENDADT_QUE_AGENDOU.AsDateTime := Now; + tblAgendaQUEM_AGENDOU.AsInteger := dtmSystem.id_usuario; + tblAgenda.Post; + + qryCampanha.SQL.Clear; + qryCampanha.SQL.Text := + 'select cd.*, c.tx_nome from chg_campanhas_devedores cd left join chg_campanhas c on cd.id_campanha = c.id_campanha where id_devedor = ' + + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + qryCampanha.Open; + qryCampanha.First; + while not qryCampanha.Eof do + begin + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := + qryCampanha.FieldByName('id_campanha').AsInteger; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := + qryCampanha.FieldByName('tx_nome').AsString; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + qryCampanha.FieldByName('id_devedor').AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'apagou p/ agenda'; + dtmSystem.tblLogCampanhas.Post; + qryCampanha.Next; + end; + qryCampanha.Close; + + dtmSystem.ZSQLProcessor1.Script.Text := + 'delete from chg_campanhas_devedores where id_devedor = ' + + QuotedStr(dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsString); + dtmSystem.ZSQLProcessor1.Execute; + // tblCampanhaDevedores.Filtered := true; + end; + end; + if not(dtmSystem.tblHistorico.Active) then + begin + dtmSystem.tblHistorico.Open; + end; + dtmSystem.tblHistorico.Append; + dtmSystem.tblHistoricoID_DEVEDOR.AsString := + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + dtmSystem.tblHistoricoID_TITULOS.AsString := str_titulos; + dtmSystem.tblHistoricoID_PROVIDENCIA.AsString := + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString; + dtmSystem.tblHistoricoDT_CONTATO.AsDateTime := Now; + dtmSystem.tblHistoricoCD_PROTOCOLO.AsString := edt_protocolo.Text; + dtmSystem.tblHistoricoTL_MEMO.AsString := mb_fechamento.Text; + dtmSystem.tblHistorico.Post; + { if not(dtmSystem.tblProtocolo.Active) then + begin + dtmSystem.tblProtocolo.Open; + end; + dtmSystem.tblProtocolo.Append; + dtmSystem.tblProtocoloCD_PROTOCOLO.AsString := edt_protocolo.Text; + dtmSystem.tblProtocoloQNT_TITULOS.AsInteger := qtde_titulos; + dtmSystem.tblProtocoloID_EMPRESA.AsInteger := id_emp; + dtmSystem.tblProtocoloID_TITULOS.AsString := str_titulos; + dtmSystem.tblProtocoloID_DEVEDOR.AsString := + dtmSystem.tblDevedoresID_DEVEDOR.AsString; + dtmSystem.tblProtocoloVL_ENTRADA.AsCurrency := + StrToCurr(StringReplace(copy(edt_somaentrada.Text, 4, + Length(edt_somaentrada.Text) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase])); + dtmSystem.tblProtocoloPR_ENTRADA.AsFloat := strtofloat(edt_prentrada.Text); + dtmSystem.tblProtocoloVL_JUROS.AsCurrency := + StrToCurr(StringReplace(copy(edt_somajuros.Text, 4, + Length(edt_somajuros.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + dtmSystem.tblProtocoloVL_MULTA.AsCurrency := + StrToCurr(StringReplace(copy(edt_somamulta.Text, 4, + Length(edt_somamulta.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + dtmSystem.tblProtocoloVL_INDICADOR.AsCurrency := + StrToCurr(StringReplace(copy(edt_somaindicador.Text, 4, + Length(edt_somaindicador.Text) - 3), '.', '', + [rfReplaceAll, rfIgnoreCase])); + dtmSystem.tblProtocoloVL_CORRIGIDO.AsCurrency := + StrToCurr(StringReplace(copy(edt_vlaquitar.Text, 4, + Length(edt_vlaquitar.Text) - 3), '.', '', [rfReplaceAll, rfIgnoreCase])); + if cb_descquit.Checked then + begin + dtmSystem.tblProtocoloTP_DESC_QUIT.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_QUIT.AsString := 'N'; + end; + if cb_desc_quit_cor.Enabled then + begin + dtmSystem.tblProtocoloTP_DESC_QUIT_COR.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_QUIT_COR.AsString := 'N'; + end; + dtmSystem.tblProtocoloPR_QUIT_JUROS.AsFloat := + strtofloat(edt_jurosquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_MULTA.AsFloat := + strtofloat(edt_multasquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_INDICADOR.AsFloat := + strtofloat(edt_indquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_PRINCIPAL.AsFloat := + strtofloat(edt_principalquitar.Text); + dtmSystem.tblProtocoloPR_QUIT_COR.AsFloat := strtofloat(edt_corquitar.Text); + if cb_descpar.Checked then + begin + dtmSystem.tblProtocoloTP_DESC_PAR.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_PAR.AsString := 'N'; + end; + if cb_desc_par_cor.Enabled then + begin + dtmSystem.tblProtocoloTP_DESC_PAR_COR.AsString := 'S'; + end + else + begin + dtmSystem.tblProtocoloTP_DESC_PAR_COR.AsString := 'N'; + end; + dtmSystem.tblProtocoloPR_PARCELAR_JUROS.AsFloat := + strtofloat(edt_jurosparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_MULTA.AsFloat := + strtofloat(edt_multasparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_INDICADOR.AsFloat := + strtofloat(edt_indparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_PRINCIPAL.AsFloat := + strtofloat(edt_principalparcelas.Text); + dtmSystem.tblProtocoloPR_PARCELAR_COR.AsFloat := + strtofloat(edt_corpar.Text); + dtmSystem.tblProtocoloNR_PARCELAS.AsInteger := + strtoint(edt_nrparcelas.Text); + dtmSystem.tblProtocoloDT_PROTOCOLO.AsDateTime := dtp_atrasorecalc.Date; + if cb_formapag.Text = 'Dinheiro' then + begin + dtmSystem.tblProtocoloTP_PAG.AsString := 'DI'; + end; + if cb_formapag.Text = 'Cheque' then + begin + dtmSystem.tblProtocoloTP_PAG.AsString := 'CQ'; + end; + if cb_formapag.Text = 'Dbito' then + begin + dtmSystem.tblProtocoloTP_PAG.AsString := 'DB'; + end; + if cb_formapag.Text = 'Crdito' then + begin + dtmSystem.tblProtocoloTP_PAG.AsString := 'CR'; + end; } + + dtp_agendadatahist.Date := Date; + dtp_agendahorahist.Time := Timeof(Now); + dtp_diaagendamento.Date := Date; + dtp_horaagendamento.Date := Timeof(Now); + + // dtmSystem.tblProtocolo.Post; + + dbgrd_listadevedores.Repaint; + Screen.Cursor := crDefault; + btn_passadevfec.Enabled := true; + // except + // ShowMessage(erro); + // end; + + end; +end; + +procedure TfrmEfetuarCobranca.btn_fechamentoClick(Sender: TObject); +var + selecionado: Boolean; + i: Integer; +begin + selecionado := false; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked = true then + begin + selecionado := true; + end; + end; + if selecionado = true then + begin + with TfrmFechamento.Create(self) do + begin + ShowModal; + if ModalResult = mrOk then + begin + atendimento := 'fechamento'; + pgCobranca.TabIndex := 5; + btn_protocoloClick(self); + mb_fechamento.SetFocus; + end; + end; + end + else + begin + MessageDlg + ('Por favor selecione um ttulo primeiro para realizar o fechamento.', + mtWarning, [mbOK], 0); + end; +end; + +procedure TfrmEfetuarCobranca.btn_passadevfecClick(Sender: TObject); +begin + if (dtsDevedores.State in [dsInsert, dsEdit]) or + (dtsEnderecos.State in [dsInsert, dsEdit]) or + (dtsHistorico.State in [dsInsert, dsEdit]) or + (dtsTelefones.State in [dsInsert, dsEdit]) or + (dtsTitulos.State in [dsInsert, dsEdit]) then + begin + MessageDlg + ('No possvel passar o devedor enquanto modificaes esto em aberto.', + mtWarning, [mbOK], 0); + abort; + end; + if MessageDlg('Deseja passar para o prximo devedor na campanha?', + mtInformation, mbYesNo, 0) = mrYes then + begin + Screen.Cursor := crHourGlass; + edt_prov.Text := ''; + btn_concluir.Enabled := true; + // dtmSystem.tblCampanhaDevedores.DisableControls; + // Marca a o cobrador como feito + dtmSystem.tblCampanhaDevedores.Refresh; + dtp_atrasorecalc.Date := Date; + if not(entrou_agenda) then + begin + if dtmSystem.tblCampanhaDevedores.Locate('ID_CAMPANHA;ID_DEVEDOR', + VarArrayOf([id_campanha, dtmSystem.tblDevedoresID_DEVEDOR.AsInteger] + ), []) then + begin + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_ESTADO.AsString := 'B'; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := -1; + dtmSystem.tblCampanhaDevedores.Post; + + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'passou'; + dtmSystem.tblLogCampanhas.Post; + end; + end; + // with dtmSystem do + // begin + // if not(tblAgenda.Active) then + // begin + // tblAgenda.Open; + // end; + // // Marca toda a agenda como cobrada + // tblAgenda.Refresh; + // while tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + // VarArrayOf([dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger, + // 'A']), []) do + // begin + // tblAgenda.Edit; + // tblAgendaTP_SITUACAO.AsString := 'B'; + // tblAgenda.Post; + // end; + // + // end; + cb_formapag.ItemIndex := 0; + dtmSystem.tblProtocolo.Open; + edt_nrparcelas.Text := '0'; + edt_nrparcelas.OnChange(self); + + dbgrd_listadevedores.Repaint; + dtmSystem.tblDevedores.Refresh; + dtmSystem.tblAgenda.Refresh; + frmCobranca.queryagenda.Refresh; + dtmSystem.tblCampanhaDevedores.Refresh; + + // Lgica para ver se tem agendamento a ser feito + if (not frmCobranca.queryagenda.IsEmpty) then + begin + // dblulb_campanha.KeyValue := null; + if Dateof(frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsDateTime) < + Dateof(Date) then + begin + // try + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + frmCobranca.queryagenda.FieldByName('ID_DEVEDOR').AsString, []); + atendimento := 'cobrando'; + cb_agendar.Checked := false; + dtmSystem.tblCampanhaDevedores.Filtered := false; + if dtmSystem.tblCampanhaDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger, []) then + begin + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblCampanhaDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'entrou p/ agenda'; + dtmSystem.tblLogCampanhas.Post; + end; + dtmSystem.tblCampanhaDevedores.Filtered := true; + + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + cbx_excentrada.Checked := false; + dtp_atrasorecalc.Enabled := true; + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + entrou_agenda := true; + Screen.Cursor := crDefault; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + // dtmSystem.tblCampanhaDevedores.EnableControls; + MessageDlg('Voc acaba de entrar na sua Agenda. Devedor agendado: ' + + dtmSystem.tblDevedoresTX_NOME.AsString + '. Data agendada: ' + + frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsString + + '. Hora agendada: ' + frmCobranca.queryagenda.FieldByName + ('HR_AGENDADA').AsString + '.', mtWarning, [mbOK], 0); + + abort; + // except + // on E: Exception do + // begin + // if not(E is EAbort) then + // begin + // ShowMessage('Exception class name = ' + E.ClassName); + // ShowMessage('Exception message = ' + E.Message); + // end; + // end; + // end; + end + else + begin + if Dateof(frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsDateTime) + = Dateof(Date) then + begin + if Timeof(frmCobranca.queryagenda.FieldByName('HR_AGENDADA') + .AsDateTime) <= Timeof(Now) then + begin + // try + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + frmCobranca.queryagenda.FieldByName('ID_DEVEDOR').AsString, []); + atendimento := 'cobrando'; + cb_agendar.Checked := false; + dtmSystem.tblCampanhaDevedores.Filtered := false; + if dtmSystem.tblCampanhaDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger, []) then + begin + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblCampanhaDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'entrou p/ agenda'; + dtmSystem.tblLogCampanhas.Post; + end; + dtmSystem.tblCampanhaDevedores.Filtered := true; + + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + dtp_atrasorecalc.Enabled := true; + cbx_excentrada.Checked := false; + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + entrou_agenda := true; + Screen.Cursor := crDefault; + MessageDlg('Voc acaba de entrar na sua Agenda. Devedor agendado: ' + + dtmSystem.tblDevedoresTX_NOME.AsString + '. Data agendada: ' + + frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsString + + '. Hora agendada: ' + frmCobranca.queryagenda.FieldByName + ('HR_AGENDADA').AsString + '.', mtWarning, [mbOK], 0); + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + // dtmSystem.tblCampanhaDevedores.EnableControls; + + abort; + // except + // on E: Exception do + // begin + // if not(E is EAbort) then + // begin + // ShowMessage('Exception class name = ' + E.ClassName); + // ShowMessage('Exception message = ' + E.Message); + // end; + // end; + // end; + end + else + begin + + entrou_agenda := false; + end; + end + else + begin + + entrou_agenda := false; + end; + end; + end + else + begin + + entrou_agenda := false; + end; + // Lgica para seguir para o prximo devedor na campanha + dtmSystem.tblCampanhaDevedores.Refresh; + dtmSystem.tblDevedores.Refresh; + + // if not entrou_agenda then + // begin + if not dtmSystem.tblCampanhaDevedores.IsEmpty then + begin + if not(dtmSystem.tblCampanhaCob.Active) then + begin + dtmSystem.tblCampanhaCob.Open; + end; + dtmSystem.tblCampanhaCob.Refresh; + if dtmSystem.tblCampanhaCob.Locate('ID_COBRADOR', dtmSystem.id_usuario, []) + then + begin + // dtmSystem.tblCampanhaDevedores.DisableControls; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha) + ' and TP_ESTADO = ''A'''; + dtmSystem.tblCampanhaDevedores.Filtered := true; + dtmSystem.tblCampanhaDevedores.First; + + while not(dtmSystem.tblCampanhaDevedores.Eof) do + begin + if dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger <> -1 + // Verifica se tem algum segurando o devedor + then + begin + if dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger = dtmSystem.id_usuario + then + // Verifica se esse algum o usurio logado + begin + // try + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblCampanhaDevedores.FieldByName('id_devedor') + .AsString, []); + + atendimento := 'cobrando'; + cb_agendar.Checked := false; + + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + cbx_excentrada.Checked := false; + + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + entrou_agenda := false; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + dtmSystem.tblCampanhaDevedores.Refresh; + // dtmSystem.tblCampanhaDevedores.EnableControls; + Screen.Cursor := crDefault; + abort; + // except + // on E: Exception do + // begin + // if not(E is EAbort) then + // begin + // ShowMessage('Exception class name = ' + + // E.ClassName); + // ShowMessage('Exception message = ' + E.Message); + // end; + // end; + // end; + end + else + begin + dtmSystem.tblCampanhaDevedores.Next; + + end; + end + else + begin + if dtmSystem.tblCampanhaDevedoresTP_ESTADO.AsString = 'A' then + begin + // try + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblCampanhaDevedores.FieldByName('id_devedor') + .AsString, []); + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'entrou p/ camp'; + dtmSystem.tblLogCampanhas.Post; + + atendimento := 'cobrando'; + cb_agendar.Checked := false; + cbx_excentrada.Checked := false; + + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + entrou_agenda := false; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + dtmSystem.tblCampanhaDevedores.Refresh; + // dtmSystem.tblCampanhaDevedores.EnableControls; + Screen.Cursor := crDefault; + + abort; + // except + // on E: Exception do + // begin + // if not(E is EAbort) then + // begin + // ShowMessage('Exception class name = ' + + // E.ClassName); + // ShowMessage('Exception message = ' + E.Message); + // end; + // end; + // end; + end + else + begin + dtmSystem.tblCampanhaDevedores.Next; + end; + end; + end; + end + else + begin + MessageDlg + ('Voc foi retirado desta campanha. Por favor entre em uma nova', + mtInformation, [mbOK], 0); + Close; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + end + else + begin + MessageDlg + ('Esta campanha foi terminada por um administrador enquanto voc trabalhava nela. Por favor entre em uma nova campanha.', + mtInformation, [mbOK], 0); + Close; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + + if (not dtmSystem.tblCampanhaDevedores.Locate('TP_ESTADO', 'A', [])) and + (not dtmSystem.tblCampanhaDevedores.IsEmpty) then + begin + dtmSystem.tblCobCampanha.Edit; + dtmSystem.tblCobCampanhaTP_ATIVA.AsInteger := 0; + dtmSystem.tblCobCampanhaTP_CONCLUIDA.AsInteger := 1; + dtmSystem.tblCobCampanha.Post; + dtmSystem.tblCampanhaDevedores.Filtered := false; + // dtmSystem.tblCampanhaDevedores.EnableControls; + MessageDlg + ('Esta campanha foi cobrada por completo. Por favor sinalize seu administrador.', + mtInformation, [mbOK], 0); + Close; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + + if (not dtmSystem.tblCampanhaDevedores.IsEmpty) then + begin + if (dtmSystem.tblCampanhaDevedores.Eof) then + begin + dtmSystem.tblCampanhaDevedores.Filtered := false; + // dtmSystem.tblCampanhaDevedores.EnableControls; + MessageDlg + ('No h mais devedores a serem cobrados nesta campanha por este usurio.', + mtInformation, [mbOK], 0); + Close; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + end; + // end; + dtmSystem.tblCampanhaDevedores.Refresh; + dbgrd_listadevedores.Repaint; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; +end; + +procedure TfrmEfetuarCobranca.btn_passardevedorClick(Sender: TObject); +// var +// string_helper: string; +begin + if (dtsDevedores.State in [dsInsert, dsEdit]) or + (dtsEnderecos.State in [dsInsert, dsEdit]) or + (dtsHistorico.State in [dsInsert, dsEdit]) or + (dtsTelefones.State in [dsInsert, dsEdit]) or + (dtsTitulos.State in [dsInsert, dsEdit]) then + begin + MessageDlg + ('No possvel passar o devedor enquanto modificaes esto em aberto.', + mtWarning, [mbOK], 0); + abort; + end; + + if MessageDlg('Deseja passar para o prximo devedor na campanha?', + mtInformation, mbYesNo, 0) = mrYes then + begin + Screen.Cursor := crHourGlass; + // dtmSystem.tblCampanhaDevedores.DisableControls; + btn_concluir.Enabled := true; + if pass_state then + begin + btn_passardevedor.Enabled := true; + end + else + begin + btn_passardevedor.Enabled := false; + end; + if pass_fec_state then + begin + btn_passadevfec.Enabled := true; + end + else + begin + btn_passadevfec.Enabled := false; + end; + // Marca a o cobrador como feito + dtmSystem.tblCampanhaDevedores.Refresh; + if not(entrou_agenda) then + begin + if dtmSystem.tblCampanhaDevedores.Locate('ID_CAMPANHA;ID_DEVEDOR', + VarArrayOf([id_campanha, dtmSystem.tblDevedoresID_DEVEDOR.AsInteger] + ), []) then + begin + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_ESTADO.AsString := 'B'; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := -1; + dtmSystem.tblCampanhaDevedores.Post; + + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'passou'; + dtmSystem.tblLogCampanhas.Post; + end; + end; + // with dtmSystem do + // begin + // if not(tblAgenda.Active) then + // begin + // tblAgenda.Open; + // end; + // // Marca toda a agenda como cobrada + // tblAgenda.Refresh; + // while tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO', + // VarArrayOf([dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger, + // 'A']), []) do + // begin + // tblAgenda.Edit; + // tblAgendaTP_SITUACAO.AsString := 'B'; + // tblAgenda.Post; + // end; + // + // end; + cb_formapag.ItemIndex := 0; + dtmSystem.tblProtocolo.Open; + edt_nrparcelas.Text := '0'; + edt_nrparcelas.OnChange(self); + + dbgrd_listadevedores.Repaint; + dtmSystem.tblDevedores.Refresh; + dtmSystem.tblAgenda.Refresh; + frmCobranca.queryagenda.Refresh; + dtmSystem.tblCampanhaDevedores.Refresh; + + // Lgica para ver se tem agendamento a ser feito + if (not frmCobranca.queryagenda.IsEmpty) then + begin + // dblulb_campanha.KeyValue := null; + if Dateof(frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsDateTime) < + Dateof(Date) then + begin + // try + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + frmCobranca.queryagenda.FieldByName('ID_DEVEDOR').AsString, []); + atendimento := 'cobrando'; + cb_agendar.Checked := false; + dtmSystem.tblCampanhaDevedores.Filtered := false; + if dtmSystem.tblCampanhaDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger, []) then + begin + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblCampanhaDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'entrou p/ agenda'; + dtmSystem.tblLogCampanhas.Post; + end; + dtmSystem.tblCampanhaDevedores.Filtered := true; + + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + cbx_excentrada.Checked := false; + dtp_atrasorecalc.Enabled := true; + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + entrou_agenda := true; + Screen.Cursor := crDefault; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + // dtmSystem.tblCampanhaDevedores.EnableControls; + MessageDlg('Voc acaba de entrar na sua Agenda. Devedor agendado: ' + + dtmSystem.tblDevedoresTX_NOME.AsString + '. Data agendada: ' + + frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsString + + '. Hora agendada: ' + frmCobranca.queryagenda.FieldByName + ('HR_AGENDADA').AsString + '.', mtWarning, [mbOK], 0); + + abort; + // except + // on E: Exception do + // begin + // if not(E is EAbort) then + // begin + // ShowMessage('Exception class name = ' + E.ClassName); + // ShowMessage('Exception message = ' + E.Message); + // end; + // end; + // end; + end + else + begin + if Dateof(frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsDateTime) + = Dateof(Date) then + begin + if Timeof(frmCobranca.queryagenda.FieldByName('HR_AGENDADA') + .AsDateTime) <= Timeof(Now) then + begin + // try + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + frmCobranca.queryagenda.FieldByName('ID_DEVEDOR').AsString, []); + atendimento := 'cobrando'; + cb_agendar.Checked := false; + dtmSystem.tblCampanhaDevedores.Filtered := false; + if dtmSystem.tblCampanhaDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger, []) then + begin + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblCampanhaDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'entrou p/ agenda'; + dtmSystem.tblLogCampanhas.Post; + end; + dtmSystem.tblCampanhaDevedores.Filtered := true; + + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + dtp_atrasorecalc.Enabled := true; + cbx_excentrada.Checked := false; + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + entrou_agenda := true; + Screen.Cursor := crDefault; + MessageDlg('Voc acaba de entrar na sua Agenda. Devedor agendado: ' + + dtmSystem.tblDevedoresTX_NOME.AsString + '. Data agendada: ' + + frmCobranca.queryagenda.FieldByName('DT_AGENDADA').AsString + + '. Hora agendada: ' + frmCobranca.queryagenda.FieldByName + ('HR_AGENDADA').AsString + '.', mtWarning, [mbOK], 0); + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + // dtmSystem.tblCampanhaDevedores.EnableControls; + + abort; + // except + // on E: Exception do + // begin + // if not(E is EAbort) then + // begin + // ShowMessage('Exception class name = ' + E.ClassName); + // ShowMessage('Exception message = ' + E.Message); + // end; + // end; + // end; + end + else + begin + + entrou_agenda := false; + end; + end + else + begin + + entrou_agenda := false; + end; + end; + end + else + begin + + entrou_agenda := false; + end; + // Lgica para seguir para o prximo devedor na campanha + dtmSystem.tblCampanhaDevedores.Refresh; + dtmSystem.tblDevedores.Refresh; + + // if not entrou_agenda then + // begin + if not dtmSystem.tblCampanhaDevedores.IsEmpty then + begin + if not(dtmSystem.tblCampanhaCob.Active) then + begin + dtmSystem.tblCampanhaCob.Open; + end; + dtmSystem.tblCampanhaCob.Refresh; + if dtmSystem.tblCampanhaCob.Locate('ID_COBRADOR', dtmSystem.id_usuario, []) + then + begin + // dtmSystem.tblCampanhaDevedores.DisableControls; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha) + ' and TP_ESTADO = ''A'''; + dtmSystem.tblCampanhaDevedores.Filtered := true; + dtmSystem.tblCampanhaDevedores.First; + + while not(dtmSystem.tblCampanhaDevedores.Eof) do + begin + if dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger <> -1 + // Verifica se tem algum segurando o devedor + then + begin + if dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger = dtmSystem.id_usuario + then + // Verifica se esse algum o usurio logado + begin + // try + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblCampanhaDevedores.FieldByName('id_devedor') + .AsString, []); + + atendimento := 'cobrando'; + cb_agendar.Checked := false; + + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + cbx_excentrada.Checked := false; + + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + entrou_agenda := false; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + dtmSystem.tblCampanhaDevedores.Refresh; + // dtmSystem.tblCampanhaDevedores.EnableControls; + Screen.Cursor := crDefault; + abort; + // except + // on E: Exception do + // begin + // if not(E is EAbort) then + // begin + // ShowMessage('Exception class name = ' + + // E.ClassName); + // ShowMessage('Exception message = ' + E.Message); + // end; + // end; + // end; + end + else + begin + dtmSystem.tblCampanhaDevedores.Next; + + end; + end + else + begin + if dtmSystem.tblCampanhaDevedoresTP_ESTADO.AsString = 'A' then + begin + // try + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblCampanhaDevedores.Post; + dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dtmSystem.tblCampanhaDevedores.FieldByName('id_devedor') + .AsString, []); + dtmSystem.tblLogCampanhas.Append; + dtmSystem.tblLogCampanhasID_CAMPANHA.AsInteger := id_campanha; + dtmSystem.tblLogCampanhasTX_NOME_CAMPANHA.AsString := tx_campanha; + dtmSystem.tblLogCampanhasID_DEVEDOR.AsInteger := + dtmSystem.tblDevedoresID_DEVEDOR.AsInteger; + dtmSystem.tblLogCampanhasID_USUARIO.AsInteger := + dtmSystem.id_usuario; + dtmSystem.tblLogCampanhasDT_TRANSF.AsDateTime := Now; + dtmSystem.tblLogCampanhasTP_ACAO.AsString := 'entrou p/ camp'; + dtmSystem.tblLogCampanhas.Post; + + atendimento := 'cobrando'; + cb_agendar.Checked := false; + cbx_excentrada.Checked := false; + + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + edt_protocolo1.Text := ''; + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + entrou_agenda := false; + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + dtmSystem.tblCampanhaDevedores.Refresh; + // dtmSystem.tblCampanhaDevedores.EnableControls; + Screen.Cursor := crDefault; + + abort; + // except + // on E: Exception do + // begin + // if not(E is EAbort) then + // begin + // ShowMessage('Exception class name = ' + + // E.ClassName); + // ShowMessage('Exception message = ' + E.Message); + // end; + // end; + // end; + end + else + begin + dtmSystem.tblCampanhaDevedores.Next; + end; + end; + end; + end + else + begin + MessageDlg + ('Voc foi retirado desta campanha. Por favor entre em uma nova', + mtInformation, [mbOK], 0); + Close; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + end + else + begin + MessageDlg + ('Esta campanha foi terminada por um administrador enquanto voc trabalhava nela. Por favor entre em uma nova campanha.', + mtInformation, [mbOK], 0); + Close; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + + dtmSystem.tblCampanhaDevedores.Filtered := false; + dtmSystem.tblCampanhaDevedores.Filter := 'ID_CAMPANHA = ' + + inttostr(id_campanha); + dtmSystem.tblCampanhaDevedores.Filtered := true; + + if (not dtmSystem.tblCampanhaDevedores.Locate('TP_ESTADO', 'A', [])) and + (not dtmSystem.tblCampanhaDevedores.IsEmpty) then + begin + dtmSystem.tblCobCampanha.Edit; + dtmSystem.tblCobCampanhaTP_ATIVA.AsInteger := 0; + dtmSystem.tblCobCampanhaTP_CONCLUIDA.AsInteger := 1; + dtmSystem.tblCobCampanha.Post; + dtmSystem.tblCampanhaDevedores.Filtered := false; + // dtmSystem.tblCampanhaDevedores.EnableControls; + MessageDlg + ('Esta campanha foi cobrada por completo. Por favor sinalize seu administrador.', + mtInformation, [mbOK], 0); + Close; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + + if (not dtmSystem.tblCampanhaDevedores.IsEmpty) then + begin + if (dtmSystem.tblCampanhaDevedores.Eof) then + begin + dtmSystem.tblCampanhaDevedores.Filtered := false; + // dtmSystem.tblCampanhaDevedores.EnableControls; + MessageDlg + ('No h mais devedores a serem cobrados nesta campanha por este usurio.', + mtInformation, [mbOK], 0); + Close; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + end; + // end; + dtmSystem.tblCampanhaDevedores.Refresh; + dbgrd_listadevedores.Repaint; + Screen.Cursor := crDefault; + // dtmSystem.tblCampanhaDevedores.EnableControls; + abort; + end; + // except + // ShowMessage(erro); + // end; +end; + +procedure TfrmEfetuarCobranca.btn_protocoloClick(Sender: TObject); +begin + if edt_protocolo.Text = '' then + begin + edt_protocolo.Text := gerar_protocolo + (dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsString); + edt_protocolo1.Text := edt_protocolo.Text; + btn_protocolo.Enabled := false; + end; +end; + +procedure TfrmEfetuarCobranca.btn_recalcClick(Sender: TObject); +begin + atendimento := 'cobrando'; + nome_cobrador := '__________'; + dia_agendado := '__/__/____'; + hora_agendado := '__:__'; + tabCalculos.Enabled := true; + pgCobranca.TabIndex := 4; + edt_prov.Text := ''; + cb_agendar.Checked := false; + + clb_beneficiarioscalculo.Enabled := true; + lv_titulos.Enabled := true; + edt_nrparcelas.Enabled := true; + up_nrparcelas.Enabled := true; + cb_nmulta.Enabled := true; + dtp_atrasorecalc.Enabled := true; + cb_descquit.Enabled := true; + cb_descpar.Enabled := true; + +end; + +procedure TfrmEfetuarCobranca.btn_relacaodividaClick(Sender: TObject); +var + i, j: Integer; + str_filter: string; +begin + if queryListaTitulos.IsEmpty then + begin + MessageDlg('Por favor selecione uma empresa.', mtWarning, [mbOK], 0); + abort; + end + else + begin + ficha_dev := true; + str_filter := ''; + queryListaTitulos.DisableControls; + for j := 0 to Length(str_tit) - 1 do + begin + // queryListaTitulos.RecNo := str_tit[j]; + str_filter := str_filter + 'ID_TITULO = ' + inttostr(str_tit[j]) + ' OR '; + end; + queryListaTitulos.EnableControls; + if Length(str_tit) > 0 then + begin + setlength(str_filter, Length(str_filter) - 3); + queryListaTitulos.Filtered := false; + queryListaTitulos.Filter := str_filter; + queryListaTitulos.Filtered := true; + end; + relFichaDivida := TrelFichaDivida.Create(self); + with relFichaDivida do + begin + form := 'cobranca'; + RLLabel7.Caption := RLLabel7.Caption + datetostr(dtp_atrasorecalc.Date); + RLLabel7.Left := floor(frbnd_dados.Width / 2) - floor(RLLabel7.Width / 2); + if cb_descquit.Checked then + begin + frlbl_tipodesc.Caption := 'Desconto concedido ao quitar.'; + RLBand4.Visible := false; + if cb_nmulta.Checked then + begin + frlbl_descmulta.Caption := 'Desc. Multa: 100%'; + end + else + begin + frlbl_descmulta.Caption := 'Desc. Multa: ' + + edt_multasquitar.Text + '%'; + end; + frlbl_descind.Caption := 'Desc. Ind. Fin.: ' + edt_indquitar.Text + '%'; + frlbl_descprin.Caption := 'Desc. Principal: ' + + edt_principalquitar.Text + '%'; + frlbl_descjuros.Caption := 'Desc. Juros: ' + edt_jurosquitar.Text + '%'; + if cb_desc_quit_cor.Checked then + begin + frlbl_desccorrigido.Caption := 'Desc. Corrigido: ' + + edt_corquitar.Text + '%'; + end + else + begin + frlbl_desccorrigido.Caption := ''; + end; + end; + if cb_descpar.Checked then + begin + frlbl_tipodesc.Caption := 'Desconto concedido ao parcelar.'; + RLBand1.Visible := false; + RLBand2.Visible := false; + RLBand3.Visible := false; + if cb_nmulta.Checked then + begin + frlbl_descmulta.Caption := 'Desc. Multa: 100%'; + end + else + begin + frlbl_descmulta.Caption := 'Desc. Multa: ' + + edt_multasparcelas.Text + '%'; + end; + frlbl_descind.Caption := 'Desc. Ind. Fin.: ' + + edt_indparcelas.Text + '%'; + frlbl_descprin.Caption := 'Desc. Principal: ' + + edt_principalparcelas.Text + '%'; + frlbl_descjuros.Caption := 'Desc. Juros: ' + + edt_jurosparcelas.Text + '%'; + if cb_desc_par_cor.Checked then + begin + frlbl_desccorrigido.Caption := 'Desc. Corrigido: ' + + edt_corpar.Text + '%'; + end + else + begin + frlbl_desccorrigido.Caption := ''; + end; + end; + if not(cb_descquit.Checked) and not(cb_descpar.Checked) then + begin + RLBand5.Visible := false; + frlbl_tipodesc.Caption := ''; + end; + j := 0; + if Length(str_tit) = 0 then + begin + mnu_incluir.OnClick(self); + end; + queryListaTitulos.Refresh; + Att_campos; + setlength(lbl_parcelas, strtoint(copy(lbl_maxpar.Caption, 6, + Length(lbl_maxpar.Caption) - 5))); + for i := 0 to strtoint(copy(lbl_maxpar.Caption, 6, + Length(lbl_maxpar.Caption) - 5)) - 1 do + begin + edt_nrparcelas.Text := inttostr(i + 1); + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + lbl_parcelas[i] := TRLLabel.Create(relFichaDivida); + RLBand4.Height := 60 + (22 * (i div 4)); + lbl_parcelas[i].Top := 44 + (22 * (i div 4)); + lbl_parcelas[i].Caption := inttostr(i + 1) + 'x ' + + CurrToStrF(parcelamento[0], ffCurrency, 2, dtmSystem.CusFmt); + lbl_parcelas[i].Parent := RLBand4; + lbl_parcelas[i].Left := j * 200; + Inc(j, 1); + if j = 4 then + begin + j := 0; + end; + + end; + if cbx_excentrada.Checked then + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + edt_somaentrada.Text; + end + else + begin + if dtmSystem.tblCHGEmpresaTP_ENTRADA.AsString = 'PA' then + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + + 'Mesmo valor da parcela'; + end + else + begin + frlbl_entrada.Caption := frlbl_entrada.Caption + edt_somaentrada.Text; + end; + end; + edt_nrparcelas.Text := inttostr(0); + + queryListaTitulos.Refresh; + Att_campos; + CalcValorParcelas; + RLReport1.Preview(); + queryListaTitulos.Filtered := false; + mnuretirar.OnClick(self); + setlength(str_tit, 0); + end; + ficha_dev := false; + end; +end; + +procedure TfrmEfetuarCobranca.Button1Click(Sender: TObject); +var + i: Integer; +begin + dtsTelefones.DataSet.First; + i := 1; + while not dtsTelefones.DataSet.Eof do + begin + if dtsTelefones.DataSet.FieldByName('TP_ATIVO').AsString <> 'N' then + begin + dbmemo_box.lines.Add('Telefone n' + inttostr(i) + ': (' + + dtsTelefones.DataSet.FieldByName('nr_ddd').AsString + ')' + + dtsTelefones.DataSet.FieldByName('nr_numero').AsString); + Inc(i, 1); + end; + dtsTelefones.DataSet.Next; + end; +end; + +procedure TfrmEfetuarCobranca.btn_pesquisaClick(Sender: TObject); +begin + // frmCobranca.pesquisa_camp := true; + // Close; + frmPesquisa := TfrmPesquisa.Create(self); + frmPesquisa.veio_cobranca := true; + frmPesquisa.ShowModal; + if achou then + begin + atendimento := 'cobrando'; + cb_agendar.Checked := false; + + edt_protocolo1.Text := ''; + edt_nrparcelas.Text := '0'; + edt_nrparcelasChange(self.edt_nrparcelas); + cb_descquit.Checked := false; + cb_descquitClick(self.cb_descquit); + cb_descpar.Checked := false; + cb_descparClick(self.cb_descpar); + cb_nmulta.Checked := false; + cb_nmultaClick(self.cb_nmulta); + cbx_excentrada.Checked := false; + + pgCobranca.TabIndex := 0; + btn_protocolo.Enabled := true; + pass_state := btn_passardevedor.Enabled; + pass_fec_state := btn_passadevfec.Enabled; + btn_passardevedor.Enabled := false; + btn_passadevfec.Enabled := false; + end; + btn_concluir.Enabled := true; +end; + +procedure TfrmEfetuarCobranca.CalcPrice; +var + valor, juros, parcela, par_extra: currency; + dividendo: double; + qtd: Integer; +begin + qtd := strtoint(edt_nrparcelas.Text); + if dtmSystem.tblPrCartao.Locate('NR_PARCELA', qtd, []) then + begin + if cbx_excentrada.Checked then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / + 100), qtd)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / qtd; + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / + 100), qtd)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / qtd; + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + end + else + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblPrCartaoPR_JUROS.AsFloat / 100), + qtd + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / (qtd + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + end; + end; + end + else + begin + queryListaTitulosVL_PARCELA.AsCurrency := 0; + raise Exception.Create + ('No existe % de juros para quantidade de parcelas selecionada. Por favor contate o administrador.'); + end; + + { if cbx_excentrada.Checked then + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + end; + end + else + begin + if dtsCHGEmpresa.DataSet.FieldByName('TP_ENTRADA').AsString = 'PO' then + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2) - + RoundTo(queryListaTitulosVL_ENTRADA.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / + 100), strtoint(edt_nrparcelas.Text))))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + strtoint(edt_nrparcelas.Text); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + + end; + end; + end + else + begin + case strtoint(edt_nrparcelas.Text) of + 1: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CREDVISTA.AsFloat / + 100), strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 2, 3: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED3.AsFloat / 100), + strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 4, 5, 6: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED6.AsFloat / 100), + strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + 7, 8, 9, 10, 11, 12: + begin + valor := RoundTo(queryListaTitulosVL_CORRIGIDO.AsCurrency, -2); + + if cbx_exjurosparcelar.Checked then + begin + juros := (strtofloat(edt_excjurosparcela.Text) / 100); + end + else + begin + juros := (dtmSystem.tblEmpresaPR_CRED12.AsFloat / 100); + end; + + dividendo := + (1 - (1 / (power(1 + (dtmSystem.tblEmpresaPR_CRED12.AsFloat / + 100), strtoint(edt_nrparcelas.Text) + 1)))); + + parcela := ((valor * juros) / dividendo); + if (cbx_txextra.Checked) and (StrToCurr(edt_txextra.Text) > 0) then + begin + par_extra := StrToCurr(edt_txextra.Text) / + (strtoint(edt_nrparcelas.Text) + 1); + parcela := parcela + par_extra; + queryListaTitulosVL_INDICADOR.AsCurrency := + queryListaTitulosVL_INDICADOR.AsCurrency + par_extra; + end; + queryListaTitulosVL_PARCELA.AsCurrency := parcela; + queryListaTitulosVL_ENTRADA.AsCurrency := parcela; + + end; + end; + end; + + end; } + +end; + +function TfrmEfetuarCobranca.CalculaIdade(Birthday, CurrentDate: TDate) + : Integer; +var + Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word; +begin + DecodeDate(Birthday, Year, Month, Day); + DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay); + if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then + begin + Result := 0; + end + else + begin + Result := CurrentYear - Year; + if (Month > CurrentMonth) then + Dec(Result) + else + begin + if Month = CurrentMonth then + if (Day > CurrentDay) then + Dec(Result); + end; + end; +end; + +procedure TfrmEfetuarCobranca.CalcValorParcelas; +var + i, j, k, Y: Integer; + data_helper: TDate; + dia_antes, dia_depois, mes, ano: Word; +begin + + setlength(parcelamento, 0); + lv_parcelas.Clear; + if strtoint(edt_nrparcelas.Text) >= 1 then + begin + setlength(parcelamento, strtoint(edt_nrparcelas.Text)); + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + for j := 0 to strtoint(edt_nrparcelas.Text) - 1 do + begin + parcelamento[j] := parcelamento[j] + + queryListaTitulosVL_PARCELA.AsCurrency; + end; + end; + end; + lv_parcelas.Items.Add; + lv_parcelas.Items[0].Caption := 'Entrada'; + + lv_parcelas.Items[0].SubItems.Add(edt_somaentrada.Text); + // end; + + for k := 0 to Length(parcelamento) - 1 do + begin + lv_parcelas.Items.Add; + lv_parcelas.Items[k + 1].Caption := 'Parcela n ' + inttostr(k + 1); + lv_parcelas.Items[k + 1].SubItems.Add(CurrToStrF(parcelamento[k], + ffCurrency, 2, dtmSystem.CusFmt)); + end; + setlength(data_parcelas, strtoint(edt_nrparcelas.Text) + 1); + data_helper := dtp_atrasorecalc.Date; + DecodeDate(dtp_atrasorecalc.Date, ano, mes, dia_antes); + for Y := 0 to strtoint(edt_nrparcelas.Text) do + begin + data_parcelas[Y] := data_helper; + data_helper := IncMonth(data_helper); + DecodeDate(data_helper, ano, mes, dia_depois); + if (mes = 3) and (dia_antes = 29) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper); + end; + if (mes = 3) and (dia_antes = 30) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper, 2); + end; + if (mes = 3) and (dia_antes = 31) and (dia_depois = 28) then + begin + data_helper := IncDay(data_helper, 3); + end; + end; + end + else + begin + lv_parcelas.Clear; + end; + +end; + +procedure TfrmEfetuarCobranca.copiar_conteudoClick(Sender: TObject); +var + nomes, valores: array of string; + spaces: string; + i, j, tam, Count: Integer; + k: Integer; +begin + clpbrd := ''; + + if lv_parcelas.Items.Count > 0 then + begin + setlength(nomes, lv_parcelas.Items.Count); + setlength(valores, lv_parcelas.Items.Count); + for i := 0 to lv_parcelas.Items.Count - 1 do + begin + nomes[i] := lv_parcelas.Items.Item[i].Caption + ':'; + valores[i] := lv_parcelas.Items.Item[i].SubItems[0]; + end; + end; + + for j := 0 to lv_parcelas.Items.Count - 1 do + begin + tam := Length(nomes[j]) + Length(valores[j]); + Count := 32 - tam; + spaces := ''; + for k := 0 to Count - 1 do + begin + spaces := spaces + ' '; + end; + if j = 0 then + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[0]) + sLineBreak; + end + else + begin + if copy(valores[0], 4, Length(valores[0]) - 3) = '0,00' then + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[j - 1]) + sLineBreak; + end + else + begin + clpbrd := clpbrd + nomes[j] + spaces + valores[j] + + ' para ser pago at dia: ' + FormatDateTime('dd/mm/yyyy', + data_parcelas[j { - 1 } ]) + sLineBreak; + end; + end; + end; + if Sender is TMenuItem then + begin + Clipboard.AsText := clpbrd; + end; + +end; + +procedure TfrmEfetuarCobranca.cp_telClick(Sender: TObject); +begin +Clipboard.AsText := dbedt_telnum.Text; +end; + +procedure TfrmEfetuarCobranca.cp_teldddClick(Sender: TObject); +begin + Clipboard.AsText := dbedt_ddd.Text + ' ' + dbedt_telnum.Text; +end; + +procedure TfrmEfetuarCobranca.AdjustCheckListBox; +var + i, nMaxWidth, nItemWidth: Integer; +begin +// nMaxWidth := clb_empresas.ClientWidth; +// for i := 0 to clb_empresas.Items.Count - 1 do +// begin +// nItemWidth := clb_empresas.Canvas.TextWidth(clb_empresas.Items[i]) + 20; +// if (nItemWidth > nMaxWidth) then +// nMaxWidth := nItemWidth; +// end; +// if (nMaxWidth > clb_empresas.ClientWidth) then +// begin +// clb_empresas.ScrollWidth := nMaxWidth; +// end; +end; + +procedure TfrmEfetuarCobranca.appEventsHandlerException(Sender: TObject; + E: Exception); +begin + // if E is EDatabaseError then + // begin + // if Pos(E.Message, 'Closed Dataset') > 0 then + // begin + // dtmSystem.EscreveLog(E.Message, dtmSystem.tblHistorico); + // end; + // end; +end; + +procedure TfrmEfetuarCobranca.ApplicationEvents1Exception(Sender: TObject; + E: Exception); +begin + dtmSystem.LogaDC('deu algum ruim' + inttostr(dtmSystem.id_usuario)); + if Pos('record', E.Message) > 0 then + begin + + end; +end; + +procedure TfrmEfetuarCobranca.Att_campos; +var + soma_nominal, soma_encargos, soma_corrigido, soma_entrada, soma_juros, + soma_multas, soma_indicador: currency; + i, n_parcelas, quit_ind, quit_prin, quit_multa, quit_juros, parc_ind, + parc_prin, parc_multa, parc_juros, par_cor, quit_cor, minentrada, + maxentrada: Integer; +begin + soma_nominal := 0.00; + soma_encargos := 0.00; + soma_corrigido := 0.00; + soma_entrada := 0.00; + soma_juros := 0.00; + soma_multas := 0.00; + soma_indicador := 0.00; + + n_parcelas := 0; + + minentrada := 0; + maxentrada := 0; + + quit_ind := 0; + quit_prin := 0; + quit_multa := 0; + quit_juros := 0; + quit_cor := 0; + + parc_ind := 0; + parc_prin := 0; + parc_multa := 0; + parc_juros := 0; + par_cor := 0; + queryListaTitulos.DisableControls; + for i := 0 to lv_titulos.Items.Count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + queryListaTitulos.RecNo := i + 1; + soma_nominal := soma_nominal + queryListaTitulosVL_TITULO.AsCurrency; + soma_encargos := soma_encargos + queryListaTitulosVL_ENCARGOS.AsCurrency; + soma_corrigido := soma_corrigido + queryListaTitulosVL_CORRIGIDO. + AsCurrency; + soma_entrada := soma_entrada + queryListaTitulosVL_ENTRADA.AsCurrency; + soma_juros := soma_juros + queryListaTitulosVL_JUROS.AsCurrency; + soma_multas := soma_multas + queryListaTitulosVL_MULTA.AsCurrency; + soma_indicador := soma_indicador + queryListaTitulosVL_INDICADOR. + AsCurrency; + if n_parcelas < (queryListaTitulosNR_PARCELAS.AsInteger) then + begin + n_parcelas := queryListaTitulosNR_PARCELAS.AsInteger; + end; + + if minentrada < (queryListaTitulosPR_ENTRADA_MIN.AsInteger) then + begin + minentrada := queryListaTitulosPR_ENTRADA_MIN.AsInteger; + end; + // edt_prentrada.Text := inttostr(minentrada); + if maxentrada < (queryListaTitulosPR_ENTRADA_MAX.AsInteger) then + begin + maxentrada := queryListaTitulosPR_ENTRADA_MAX.AsInteger; + end; + + if quit_ind < (queryListaTitulosPR_QUITACAO_INDICADOR.AsInteger) then + begin + quit_ind := queryListaTitulosPR_QUITACAO_INDICADOR.AsInteger; + end; + if quit_prin < (queryListaTitulosPR_QUITACAO_PRINCIPAL.AsInteger) then + begin + quit_prin := queryListaTitulosPR_QUITACAO_PRINCIPAL.AsInteger; + end; + if quit_multa < (queryListaTitulosPR_QUITACAO_MULTA.AsInteger) then + begin + quit_multa := queryListaTitulosPR_QUITACAO_MULTA.AsInteger; + end; + if quit_juros < (queryListaTitulosPR_QUITACAO_JUROS.AsInteger) then + begin + quit_juros := queryListaTitulosPR_QUITACAO_JUROS.AsInteger; + end; + if quit_cor < (queryListaTitulosPR_QUITACAO_COR.AsInteger) then + begin + quit_cor := queryListaTitulosPR_QUITACAO_COR.AsInteger; + end; + + if parc_ind < (queryListaTitulosPR_PARCELA_INDICADOR.AsInteger) then + begin + parc_ind := queryListaTitulosPR_PARCELA_INDICADOR.AsInteger; + end; + if parc_prin < (queryListaTitulosPR_PARCELA_PRINCIPAL.AsInteger) then + begin + parc_prin := queryListaTitulosPR_PARCELA_PRINCIPAL.AsInteger; + end; + if parc_multa < (queryListaTitulosPR_PARCELA_MULTA.AsInteger) then + begin + parc_multa := queryListaTitulosPR_PARCELA_MULTA.AsInteger; + end; + if parc_juros < (queryListaTitulosPR_PARCELA_JUROS.AsInteger) then + begin + parc_juros := queryListaTitulosPR_PARCELA_JUROS.AsInteger; + end; + if par_cor < (queryListaTitulosPR_PARCELA_COR.AsInteger) then + begin + par_cor := queryListaTitulosPR_PARCELA_COR.AsInteger; + end; + + end; + end; + queryListaTitulos.EnableControls; + edt_somatitulos.Text := CurrToStrF(soma_nominal, ffCurrency, 2, + dtmSystem.CusFmt); + edt_extras.Text := CurrToStrF(soma_encargos, ffCurrency, 2, dtmSystem.CusFmt); + // if cbx_txextra.Checked then + // begin + // soma_corrigido := soma_corrigido + StrToCurr(edt_txextra.Text); + // end; + edt_vlaquitar.Text := CurrToStrF(soma_corrigido, ffCurrency, 2, + dtmSystem.CusFmt); + if cbx_excentrada.Checked then + begin + edt_somaentrada.Text := CurrToStrF(StrToCurr(edt_excentrada.Text), + ffCurrency, 2, dtmSystem.CusFmt); + end + else + begin + edt_somaentrada.Text := CurrToStrF(soma_entrada, ffCurrency, 2, + dtmSystem.CusFmt); + end; + edt_somaindicador.Text := CurrToStrF(soma_indicador, ffCurrency, 2, + dtmSystem.CusFmt); + edt_somamulta.Text := CurrToStrF(soma_multas, ffCurrency, 2, + dtmSystem.CusFmt); + edt_somajuros.Text := CurrToStrF(soma_juros, ffCurrency, 2, dtmSystem.CusFmt); + + up_nrparcelas.Max := n_parcelas; + lbl_maxpar.Caption := 'Mx: ' + inttostr(n_parcelas); + + ud_entrada.Min := minentrada; + ud_entrada.Max := maxentrada; + lbl_minentrada.Caption := 'Min: ' + inttostr(minentrada) + '%'; + lbl_maxentrada.Caption := 'Mx: ' + inttostr(maxentrada) + '%'; + + up_encquitar.Max := quit_ind; + lbl_maxindquit.Caption := 'Mx: ' + inttostr(quit_ind) + '%'; + up_principalquitar.Max := quit_prin; + lbl_maxprinquit.Caption := 'Mx: ' + inttostr(quit_prin) + '%'; + up_multasquitar.Max := quit_multa; + lbl_maxmultaquit.Caption := 'Mx: ' + inttostr(quit_multa) + '%'; + up_jurosquitar.Max := quit_juros; + lbl_maxjurosquit.Caption := 'Mx: ' + inttostr(quit_juros) + '%'; + ud_corquitar.Max := quit_cor; + lbl_maxquitcor.Caption := 'Mx: ' + inttostr(quit_cor) + '%'; + + up_encparcelas.Max := parc_ind; + lbl_maxindpar.Caption := 'Mx: ' + inttostr(parc_ind) + '%'; + up_principalparcelas.Max := parc_prin; + lbl_maxprinpar.Caption := 'Mx: ' + inttostr(parc_prin) + '%'; + up_multasparcelas.Max := parc_multa; + lbl_maxmultapar.Caption := 'Mx: ' + inttostr(parc_multa) + '%'; + up_jurosparcelas.Max := parc_juros; + lbl_maxjurospar.Caption := 'Mx: ' + inttostr(parc_juros) + '%'; + ud_corpar.Max := par_cor; + lbl_maxparcor.Caption := 'Mx: ' + inttostr(par_cor) + '%'; + +end; + +function TfrmEfetuarCobranca.gerar_protocolo(id_devedor: string): string; +var + tamanho, i: Integer; + cd_devedor, dia, tempo: string; +begin + tempo := FormatDateTime('hhmm', Time); + dia := FormatDateTime('yyyymmdd', Date); + cd_devedor := id_devedor; + tamanho := Length(id_devedor); + for i := 0 to 7 - tamanho do + begin + cd_devedor := '0' + cd_devedor; + end; + Result := tempo + dia + cd_devedor; +end; + +end. diff --git a/ufrmEmpresas.dfm b/ufrmEmpresas.dfm new file mode 100644 index 0000000..4584a40 --- /dev/null +++ b/ufrmEmpresas.dfm @@ -0,0 +1,628 @@ +object frmEmpresas: TfrmEmpresas + Left = 0 + Top = 0 + BorderIcons = [] + BorderStyle = bsNone + Caption = 'Empresas' + ClientHeight = 768 + ClientWidth = 1027 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Visible = True + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnResize = FormResize + PixelsPerInch = 96 + TextHeight = 13 + object grd_principal: TGridPanel + Left = 0 + Top = 0 + Width = 1027 + Height = 768 + Align = alClient + BevelOuter = bvNone + Caption = 'grd_principal' + ColumnCollection = < + item + Value = 25.000000000000000000 + end + item + Value = 25.000000000000000000 + end + item + Value = 25.000000000000000000 + end + item + Value = 25.000000000000000000 + end> + ControlCollection = < + item + Column = 0 + ColumnSpan = 4 + Control = pnl_top + Row = 0 + end + item + Column = 0 + Control = dbgrid_nomes + Row = 1 + RowSpan = 3 + end + item + Column = 1 + ColumnSpan = 3 + Control = pg_empresas + Row = 1 + RowSpan = 3 + end> + RowCollection = < + item + Value = 19.997324923776780000 + end + item + Value = 29.991356146362080000 + end + item + Value = 25.005955158638510000 + end + item + Value = 25.005363771222640000 + end> + TabOrder = 0 + object pnl_top: TPanel + Left = 0 + Top = 0 + Width = 1027 + Height = 153 + Align = alClient + BevelOuter = bvNone + TabOrder = 0 + object dblbl_nmfantasia: TDBText + Left = 0 + Top = 0 + Width = 1027 + Height = 46 + Align = alTop + Alignment = taCenter + DataField = 'TX_FANTASIA' + DataSource = dtmSystem.dtsEmpresa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + ExplicitTop = 35 + end + object dblbl_razaosocial: TDBText + Left = 0 + Top = 112 + Width = 1027 + Height = 41 + Align = alBottom + Alignment = taCenter + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsEmpresa + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + ExplicitLeft = 480 + ExplicitTop = 80 + ExplicitWidth = 65 + end + end + object dbgrid_nomes: TDBGrid + Left = 0 + Top = 153 + Width = 256 + Height = 615 + Align = alClient + Ctl3D = True + DataSource = dtmSystem.dtsEmpresa + Options = [dgTitles, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ParentCtl3D = False + ReadOnly = True + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + OnCellClick = dbgrid_nomesCellClick + OnKeyUp = dbgrid_nomesKeyUp + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Raz'#227'o Social' + Visible = True + end + item + Expanded = False + FieldName = 'TX_FANTASIA' + Title.Caption = 'Nome Fantasia' + Visible = True + end> + end + object pg_empresas: TPageControl + Left = 256 + Top = 153 + Width = 771 + Height = 615 + ActivePage = tab_dados + Align = alClient + Style = tsFlatButtons + TabOrder = 2 + object tab_dados: TTabSheet + Caption = 'Dados Cadastrais' + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object lbl_razao: TLabel + Left = 3 + Top = 3 + Width = 64 + Height = 13 + Caption = 'Raz'#227'o Social:' + end + object lbl_cnpj: TLabel + Left = 3 + Top = 45 + Width = 29 + Height = 13 + Caption = 'CNPJ:' + end + object lbl_fantasia: TLabel + Left = 320 + Top = 3 + Width = 75 + Height = 13 + Caption = 'Nome Fantasia:' + end + object lbl_cidade: TLabel + Left = 3 + Top = 87 + Width = 37 + Height = 13 + Caption = 'Cidade:' + end + object lbl_bairro: TLabel + Left = 144 + Top = 87 + Width = 32 + Height = 13 + Caption = 'Bairro:' + end + object lbl_uf: TLabel + Left = 320 + Top = 87 + Width = 17 + Height = 13 + Caption = 'UF:' + end + object lbl_tel: TLabel + Left = 3 + Top = 177 + Width = 46 + Height = 13 + Hint = 'Separe telefones com "/".' + Caption = 'Telefone:' + ParentShowHint = False + ShowHint = True + end + object lbl_email: TLabel + Left = 239 + Top = 177 + Width = 32 + Height = 13 + Caption = 'E-mail:' + end + object lbl_end: TLabel + Left = 3 + Top = 133 + Width = 49 + Height = 13 + Caption = 'Endere'#231'o:' + end + object lbl_num: TLabel + Left = 320 + Top = 133 + Width = 41 + Height = 13 + Caption = 'N'#250'mero:' + end + object lbl_compl: TLabel + Left = 384 + Top = 133 + Width = 69 + Height = 13 + Caption = 'Complemento:' + end + object lbl_cep: TLabel + Left = 392 + Top = 87 + Width = 23 + Height = 13 + Caption = 'CEP:' + end + object lbl_inscriest: TLabel + Left = 144 + Top = 45 + Width = 91 + Height = 13 + Caption = 'Inscri'#231#227'o Estadual:' + end + object lbl_inscrimuni: TLabel + Left = 280 + Top = 45 + Width = 93 + Height = 13 + Caption = 'Inscri'#231#227'o Municipal:' + end + object lbl_website: TLabel + Left = 3 + Top = 223 + Width = 43 + Height = 13 + Caption = 'Website:' + end + object lbl_obs: TLabel + Left = 3 + Top = 269 + Width = 67 + Height = 13 + Caption = 'Observa'#231#245'es:' + end + object lbl_honorarios: TLabel + Left = 592 + Top = 72 + Width = 56 + Height = 13 + Caption = 'Honor'#225'rios:' + end + object btn_clearmemo: TButton + Left = 134 + Top = 268 + Width = 75 + Height = 18 + Caption = 'Limpar' + TabOrder = 0 + OnClick = btn_clearmemoClick + end + object grpb_logo: TGroupBox + Left = 464 + Top = 288 + Width = 260 + Height = 260 + Caption = 'Logomarca: (200x200pixels)' + TabOrder = 1 + object spdbtn_loadimg: TSpeedButton + Left = 30 + Top = 227 + Width = 23 + Height = 22 + Hint = 'Selecionar uma foto do arquivo.' + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FF0274AC + 0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274 + AC0274ACFF00FFFF00FF0274AC138AC457B7E06BCBF84BBFF74ABFF74ABFF74A + BFF74ABFF64ABFF74ABFF64BC0F72398CC0274ACFF00FFFF00FF0274AC33AAE0 + 2392C489D9FA54C7F854C7F753C7F854C7F754C7F854C7F854C7F853C7F7279D + CE6ACBE50274ACFF00FF0274AC57CAF80274AC99E3FB5ED1FA5ED1FA5ED1FA5E + D1FA5ED1FA5FD1FA5ED1F85ED1F82CA1CE99EDF70274ACFF00FF0274AC5ED3FA + 0B81B782D5EF79E0FA6ADCFA69DCFB69DCFB6ADCFB69DCFB69DCFA6ADDFB2FA6 + CF9FF0F70274ACFF00FF0274AC68DAFB2BA4D14AB2D797EBFC74E5FB74E5FB74 + E5FC74E5FC74E5FB74E5FC046B0B33A9CFA3F4F752BBD70274AC0274AC70E3FB + 5CD1EF1184B6FCFFFFB8F4FEBAF4FEBAF4FEBAF4FEB8F4FE046B0B25AA42046B + 0BD4F7FACAF3F70274AC0274AC7AEBFE7AEBFC0A7FB50274AC0274AC0274AC02 + 74AC0274AC046B0B38CE6547E77F29B44A046B0B0274AC0274AC0274AC83F2FE + 82F3FE82F3FE83F2FC83F3FE82F3FE83F2FE046B0B2DC0513FDC6E3ED86E46E5 + 7B28B04A046B0BFF00FF0274ACFEFEFE89FAFF89FAFE89FAFE8AF8FE8AFAFE04 + 6B0B046B0B046B0B046B0B3CD86A2EBF53046B0B046B0B046B0BFF00FF0274AC + FEFEFE8FFEFF8FFEFF8FFEFF0273A32BA4D12BA4D12BA4D1046B0B35D35E20A7 + 3A046B0BFF00FFFF00FFFF00FFFF00FF0274AC0274AC0274AC0274ACFF00FFFF + 00FFFF00FFFF00FF046B0B28C24A046B0BFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF046B0B17A42B19A730046B + 0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FF046B0B11A122046B0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF046B0B046B0B046B0B046B0BFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF046B0B046B0B04 + 6B0B046B0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} + ParentShowHint = False + ShowHint = True + OnClick = spdbtn_loadimgClick + end + object spdbtn_clearimg: TSpeedButton + Left = 67 + Top = 227 + Width = 23 + Height = 22 + Hint = 'Limpar foto selecionada.' + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF + A46769A46769A46769A46769A46769A46769A46769A46769A46769A46769A467 + 69A46769A46769FF00FFFF00FFFF00FFB79184FEE9C7F4DAB5F3D5AAF2D0A0EF + CB96EFC68BEDC182EBC17FEBC180EBC180F2C782A46769FF00FFFF00FFFF00FF + B79187FCEACEF3DABCF2D5B1F0D0A7EECB9EEDC793EDC28BE9BD81E9BD7FE9BD + 7FEFC481A46769FF00FFFF00FFFF00FFB7938AFEEFDAF6E0C6F2DABCF2D5B2EF + D0A9EECB9EEDC796EBC28CE9BD82E9BD7FEFC481A46769FF00FFFF00FFFF00FF + BA978FFFF4E5F7E5CFF4E0C5F3DABBF2D5B1F0D0A6EECB9EEDC795EBC28AEABF + 81EFC480A46769FF00FFFF00FFFF00FFC09E95FFFBF0F8EADCF6E3CFF4E0C6F2 + D9BCF2D5B1F0D0A9EDCB9EEDC695EBC28AEFC583A46769FF00FFFF00FFFF00FF + C6A49AFFFFFCFAF0E6F8EADAF7E5CFF4E0C5F2DABAF2D5B1F0D0A7EECB9DEBC7 + 93F2C98CA46769FF00FFFF00FFFF00FFCBA99EFFFFFFFEF7F2FAEFE6F8EAD9F7 + E3CFF6E0C5F2DABBF2D4B1F0D0A7EECC9EF3CE97A46769FF00FFFF00FFFF00FF + CFAC9FFFFFFFFFFEFCFCF6F0FAEFE6F7EADAF6E3CFF4E0C5F3D9BBF3D4B0F0D0 + A6F6D3A0A46769FF00FFFF00FFFF00FFD4B0A1FFFFFFFFFFFFFFFEFCFEF7F0FA + EFE5F8EAD9F7E5CEF6DEC4F3D9B8F4D8B1EBCFA4A46769FF00FFFF00FFFF00FF + D9B5A1FFFFFFFFFFFFFFFFFFFFFEFCFCF7F0FAEFE5F8E9D9F8E7D1FBEACEDECE + B4B6AA93A46769FF00FFFF00FFFF00FFDDB7A4FFFFFFFFFFFFFFFFFFFFFFFFFF + FEFCFCF6EFFCF3E6EDD8C9B68A7BA17B6F9C7667A46769FF00FFFF00FFFF00FF + E2BCA5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFBFFFEF7DAC1BAAD735BE19E + 55E68F31B56D4DFF00FFFF00FFFF00FFE6BFA7FFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFDCC7C5B88265F8B55CBF7A5CFF00FFFF00FFFF00FFFF00FF + E4BCA4FBF4F0FBF4EFFAF3EFFAF3EFF8F2EFF7F2EFF7F2EFD8C2C0B77F62C183 + 6CFF00FFFF00FFFF00FFFF00FFFF00FFE8C4ADEBCBB7EBCBB7EACBB7EACAB6EA + CAB6EACAB6EACAB6E3C2B1A56B5FFF00FFFF00FFFF00FFFF00FF} + ParentShowHint = False + ShowHint = True + OnClick = spdbtn_clearimgClick + end + object pnl_img: TPanel + Left = 30 + Top = 20 + Width = 200 + Height = 200 + BorderWidth = 1 + BorderStyle = bsSingle + Color = clWindow + ParentBackground = False + TabOrder = 0 + object img_logo: TImage + Left = 2 + Top = 2 + Width = 192 + Height = 192 + Margins.Left = 0 + Margins.Top = 0 + Margins.Right = 0 + Margins.Bottom = 0 + Align = alClient + ExplicitLeft = 16 + ExplicitTop = 24 + ExplicitWidth = 105 + ExplicitHeight = 105 + end + end + end + object btn_criarcad: TButton + Left = 312 + Top = 240 + Width = 121 + Height = 25 + Caption = 'Criar Cadastro' + TabOrder = 2 + OnClick = btn_criarcadClick + end + object btn_removcad: TButton + Left = 464 + Top = 240 + Width = 121 + Height = 25 + Caption = 'Remover Cadastro' + TabOrder = 3 + OnClick = btn_removcadClick + end + object dbmemo_obs: TDBMemo + Left = 3 + Top = 288 + Width = 206 + Height = 293 + DataField = 'TL_OBSERVACOES' + DataSource = dtmSystem.dtsEmpresa + ScrollBars = ssVertical + TabOrder = 4 + end + object dblucmbox_uf: TDBLookupComboBox + Left = 321 + Top = 106 + Width = 57 + Height = 21 + KeyField = 'ID_ESTADO' + ListField = 'CD_ESTADO' + ListSource = dtmSystem.dtsEstados + TabOrder = 5 + end + object dblucmbox_cidade: TDBLookupComboBox + Left = 3 + Top = 106 + Width = 121 + Height = 21 + KeyField = 'ID_CIDADE' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsCidades + TabOrder = 6 + end + object btn_altcad: TButton + Left = 608 + Top = 240 + Width = 121 + Height = 25 + Caption = 'Alterar Cadastro' + TabOrder = 7 + OnClick = btn_altcadClick + end + object dbedt_razao: TDBEdit + Left = 3 + Top = 18 + Width = 121 + Height = 21 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 8 + end + object dbedt_fantasia: TDBEdit + Left = 321 + Top = 18 + Width = 121 + Height = 21 + DataField = 'TX_FANTASIA' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 9 + end + object dbedt_cnpj: TDBEdit + Left = 2 + Top = 64 + Width = 116 + Height = 21 + DataField = 'TX_CNPJ' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 10 + end + object dbedt_inscriest: TDBEdit + Left = 144 + Top = 64 + Width = 91 + Height = 21 + DataField = 'TX_IE' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 11 + end + object dbedt_inscrimuni: TDBEdit + Left = 280 + Top = 64 + Width = 93 + Height = 21 + DataField = 'TX_IM' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 12 + end + object dbedt_bairro: TDBEdit + Left = 144 + Top = 106 + Width = 121 + Height = 21 + DataField = 'TX_BAIRRO' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 13 + end + object dbedt_cep: TDBEdit + Left = 392 + Top = 106 + Width = 69 + Height = 21 + DataField = 'TX_CEP' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 14 + end + object dbedt_end: TDBEdit + Left = 3 + Top = 152 + Width = 121 + Height = 21 + DataField = 'TX_ENDERECO' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 15 + end + object dbedt_num: TDBEdit + Left = 321 + Top = 152 + Width = 40 + Height = 21 + DataField = 'NR_NUMERO' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 16 + end + object dbedt_compl: TDBEdit + Left = 384 + Top = 152 + Width = 69 + Height = 21 + DataField = 'TX_COMPLEMENTO' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 17 + end + object dbedt_tel: TDBEdit + Left = 3 + Top = 196 + Width = 102 + Height = 21 + DataField = 'TX_TELEFONE' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 18 + end + object dbedt_email: TDBEdit + Left = 240 + Top = 196 + Width = 121 + Height = 21 + DataField = 'TX_EMAIL' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 19 + end + object dbedt_website: TDBEdit + Left = 3 + Top = 242 + Width = 121 + Height = 21 + DataField = 'TX_WEBSITE' + DataSource = dtmSystem.dtsEmpresa + TabOrder = 20 + end + object grd_honorarios: TStringGrid + Left = 583 + Top = 91 + Width = 130 + Height = 126 + BevelEdges = [] + BevelInner = bvNone + BevelOuter = bvNone + ColCount = 2 + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing] + ScrollBars = ssNone + TabOrder = 21 + StyleElements = [seFont, seClient] + RowHeights = ( + 24 + 24 + 24 + 24 + 24) + end + end + object tab_tblcalculos: TTabSheet + Caption = 'Tabelas/C'#225'lculos' + ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + end + end + end + object OpenPictureDialog1: TOpenPictureDialog + Filter = + 'All (*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.w' + + 'mf)|*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.wm' + + 'f|GIF Image (*.gif)|*.gif|Portable Network Graphics (*.png)|*.pn' + + 'g|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|' + + 'Bitmaps (*.bmp)|*.bmp|TIFF Images (*.tif)|*.tif|TIFF Images (*.t' + + 'iff)|*.tiff|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' + + '|Metafiles (*.wmf)|*.wmf|Images|*.png;*.jpg;*.jpeg;*.bmp' + FilterIndex = 12 + Left = 924 + Top = 693 + end +end diff --git a/ufrmEmpresas.pas b/ufrmEmpresas.pas new file mode 100644 index 0000000..09d3dae --- /dev/null +++ b/ufrmEmpresas.pas @@ -0,0 +1,503 @@ +unit ufrmEmpresas; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Data.DB, + System.UITypes, + Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls, Vcl.DBCtrls, Math, Vcl.Buttons, + Vcl.ExtDlgs, Jpeg, Vcl.Mask, StrUtils, Types; + +type + TfrmEmpresas = class(TForm) + pnl_top: TPanel; + pg_empresas: TPageControl; + tab_dados: TTabSheet; + tab_tblcalculos: TTabSheet; + dbgrid_nomes: TDBGrid; + grd_principal: TGridPanel; + lbl_razao: TLabel; + lbl_cnpj: TLabel; + lbl_fantasia: TLabel; + lbl_cidade: TLabel; + lbl_bairro: TLabel; + lbl_uf: TLabel; + lbl_tel: TLabel; + lbl_email: TLabel; + lbl_end: TLabel; + lbl_num: TLabel; + lbl_compl: TLabel; + lbl_cep: TLabel; + lbl_inscriest: TLabel; + lbl_inscrimuni: TLabel; + lbl_website: TLabel; + lbl_obs: TLabel; + btn_clearmemo: TButton; + grpb_logo: TGroupBox; + pnl_img: TPanel; + spdbtn_loadimg: TSpeedButton; + spdbtn_clearimg: TSpeedButton; + OpenPictureDialog1: TOpenPictureDialog; + btn_criarcad: TButton; + btn_removcad: TButton; + dbmemo_obs: TDBMemo; + dblucmbox_uf: TDBLookupComboBox; + dblucmbox_cidade: TDBLookupComboBox; + btn_altcad: TButton; + dbedt_razao: TDBEdit; + dbedt_fantasia: TDBEdit; + dbedt_cnpj: TDBEdit; + dbedt_inscriest: TDBEdit; + dbedt_inscrimuni: TDBEdit; + dbedt_bairro: TDBEdit; + dbedt_cep: TDBEdit; + dbedt_end: TDBEdit; + dbedt_num: TDBEdit; + dbedt_compl: TDBEdit; + dbedt_tel: TDBEdit; + dbedt_email: TDBEdit; + dbedt_website: TDBEdit; + img_logo: TImage; + dblbl_nmfantasia: TDBText; + dblbl_razaosocial: TDBText; + grd_honorarios: TStringGrid; + lbl_honorarios: TLabel; + procedure Button1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure btn_clearmemoClick(Sender: TObject); + procedure spdbtn_loadimgClick(Sender: TObject); + procedure spdbtn_clearimgClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure dbgrid_nomesCellClick(Column: TColumn); + procedure dbgrid_nomesKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure btn_criarcadClick(Sender: TObject); + procedure btn_removcadClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure btn_altcadClick(Sender: TObject); + private + { Private declarations } + public + img_path: string; + mudou_img: boolean; + + { Public declarations } + end; + +var + frmEmpresas: TfrmEmpresas; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmEmpresas.btn_altcadClick(Sender: TObject); +var + selected, i: integer; + honorarios: string; +begin + selected := MessageDlg + ('Voc est prestes a alterar o cadastro de uma Empresa.' + + ' Tem certeza que deseja realizar tal ao?', mtConfirmation, + [mbYes, mbNo], 0); + if selected = mrYes then + begin + with udtmSystem.dtmSystem do + begin + tblEmpresa.Edit; + tblEmpresaTX_NOME.AsString := dbedt_razao.Text; + tblEmpresaTX_FANTASIA.AsString := dbedt_fantasia.Text; + tblEmpresaTX_CNPJ.AsString := dbedt_cnpj.Text; + tblEmpresaTX_IE.AsString := dbedt_inscriest.Text; + tblEmpresaTX_IM.AsString := dbedt_inscrimuni.Text; + tblEmpresaID_CIDADE.AsString := inttostr(dblucmbox_cidade.KeyValue); + tblEmpresaID_ESTADO.AsString := inttostr(dblucmbox_uf.KeyValue); + tblEmpresaTX_BAIRRO.AsString := dbedt_bairro.Text; + tblEmpresaTX_CEP.AsString := dbedt_cep.Text; + tblEmpresaTX_ENDERECO.AsString := dbedt_end.Text; + tblEmpresaNR_NUMERO.AsString := dbedt_num.Text; + tblEmpresaTX_COMPLEMENTO.AsString := dbedt_compl.Text; + tblEmpresaTX_TELEFONE.AsString := dbedt_tel.Text; + tblEmpresaTX_EMAIL.AsString := dbedt_email.Text; + tblEmpresaTX_WEBSITE.AsString := dbedt_website.Text; + tblEmpresaTL_OBSERVACOES.AsString := dbmemo_obs.Lines.Text; + if (mudou_img) then + begin + tblEmpresaTX_LOGOMARCA.AsString := img_path; + end; + honorarios := ''; + for i := 1 to grd_honorarios.RowCount - 1 do + begin + honorarios := honorarios + grd_honorarios.Cells[1, i] + '#'; + end; + tblEmpresaTX_HONORARIOS.AsString := honorarios; + tblEmpresa.Post; + end; + end; +end; + +procedure TfrmEmpresas.btn_clearmemoClick(Sender: TObject); +begin + dbmemo_obs.Lines.Clear; +end; + +procedure TfrmEmpresas.btn_criarcadClick(Sender: TObject); +var + selected: integer; +begin + selected := MessageDlg + ('Voc est prestes a adicionar uma nova Empresa ao seu banco de dados.' + + ' Tem certeza que deseja realizar tal ao?', mtConfirmation, + [mbYes, mbNo], 0); + // nome_emp := InputBox('Nova Empresa', 'Digite a razo social ou o nome fantasia da empresa. Ambos podero ser alterados mais tarde.', ''); + if selected = mrYes then + begin + with udtmSystem.dtmSystem do + begin + tblEmpresa.Append; + end; + end; + +end; + +procedure TfrmEmpresas.btn_removcadClick(Sender: TObject); +begin + + if MessageDlg + ('Deseja realmente apagar este registro? No ser possvel recuperar os dados novamente.', + mtConfirmation, [mbYes, mbNo], 0) = mrNo then + begin + abort; + end; + try + begin + udtmSystem.dtmSystem.tblEmpresa.Delete; + end; + finally + begin + abort; + end; + end; +end; + +procedure TfrmEmpresas.Button1Click(Sender: TObject); +begin + Close; +end; + +procedure TfrmEmpresas.dbgrid_nomesCellClick(Column: TColumn); +var + j: integer; + list: Tstringdynarray; +begin + + dblucmbox_uf.KeyValue := udtmSystem.dtmSystem.tblEmpresaID_ESTADO.AsInteger; + dblucmbox_cidade.KeyValue := + udtmSystem.dtmSystem.tblEmpresaID_CIDADE.AsInteger; + if udtmSystem.dtmSystem.tblEmpresaTX_LOGOMARCA.AsString <> '' then + begin + img_logo.Picture.LoadFromFile + (udtmSystem.dtmSystem.tblEmpresaTX_LOGOMARCA.AsString); + end + else + begin + img_logo.Picture := nil; + end; + if (not spdbtn_loadimg.Enabled) or (not spdbtn_clearimg.Enabled) then + begin + spdbtn_loadimg.Enabled := true; + spdbtn_clearimg.Enabled := true; + end; + mudou_img := false; + if udtmSystem.dtmSystem.tblEmpresaTX_HONORARIOS.AsString <> '' then + begin + list := SplitString(udtmSystem.dtmSystem.tblEmpresaTX_HONORARIOS. + AsString, '#'); + end + else + begin + for j := 1 to 4 do + begin + grd_honorarios.Cells[1, j] := '0'; + end; + end; + + for j := 1 to length(list) do + begin + if list[j - 1] <> '' then + begin + grd_honorarios.Cells[1, j] := list[j - 1]; + end; + end; +end; + +procedure TfrmEmpresas.dbgrid_nomesKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + dbgrid_nomes.OnCellClick(nil); +end; + +procedure TfrmEmpresas.FormClose(Sender: TObject; var Action: TCloseAction); +begin + with udtmSystem.dtmSystem do + begin + tblEmpresa.Close; + tblCidades.Close; + tblEstados.Close; + end; +end; + +procedure TfrmEmpresas.FormCreate(Sender: TObject); +var + i, j, k: integer; + list_open: Tstringdynarray; +begin + // abre as tabelas pra uso + with udtmSystem.dtmSystem do + begin + tblEmpresa.Open; + tblCidades.Open; + tblEstados.Open; + end; + img_logo.Picture.LoadFromFile + (udtmSystem.dtmSystem.tblEmpresaTX_LOGOMARCA.AsString); + dblucmbox_uf.KeyValue := udtmSystem.dtmSystem.tblEmpresaID_ESTADO.AsInteger; + dblucmbox_cidade.KeyValue := + udtmSystem.dtmSystem.tblEmpresaID_CIDADE.AsInteger; + mudou_img := false; + grd_honorarios.Rows[1].Text := 'Juros'; + grd_honorarios.Rows[2].Text := 'Multas'; + grd_honorarios.Rows[3].Text := 'Encargos'; + grd_honorarios.Rows[4].Text := 'Ttulo'; + for i := 0 to 4 do + begin + grd_honorarios.RowHeights[i] := 18; + end; + grd_honorarios.Height := 98; + grd_honorarios.Width := (grd_honorarios.ColWidths[0] * 2) + 5; + + if udtmSystem.dtmSystem.tblEmpresaTX_HONORARIOS.AsString <> '' then + begin + list_open := SplitString(udtmSystem.dtmSystem.tblEmpresaTX_HONORARIOS. + AsString, '#'); + end + else + begin + for k := 1 to 4 do + begin + grd_honorarios.Cells[1, k] := '0'; + end; + end; + + for j := 1 to length(list_open) do + begin + if list_open[j - 1] <> '' then + begin + grd_honorarios.Cells[1, j] := list_open[j - 1]; + end; + end; +end; + +procedure TfrmEmpresas.FormResize(Sender: TObject); +var + i: integer; +begin + // setando o tamanho das linhas e colunas do grid + grd_principal.RowCollection.BeginUpdate; + grd_principal.RowCollection[0].SizeStyle := ssPercent; + grd_principal.RowCollection[0].Value := 10; + grd_principal.RowCollection[1].SizeStyle := ssPercent; + grd_principal.RowCollection[1].Value := 30; + grd_principal.RowCollection[2].SizeStyle := ssPercent; + grd_principal.RowCollection[2].Value := 30; + grd_principal.RowCollection[3].SizeStyle := ssPercent; + grd_principal.RowCollection[3].Value := 30; + grd_principal.RowCollection.EndUpdate; + + grd_principal.ColumnCollection.BeginUpdate; + grd_principal.ColumnCollection[0].SizeStyle := ssPercent; + grd_principal.ColumnCollection[0].Value := 25; + grd_principal.ColumnCollection[1].SizeStyle := ssPercent; + grd_principal.ColumnCollection[1].Value := 25; + grd_principal.ColumnCollection[2].SizeStyle := ssPercent; + grd_principal.ColumnCollection[2].Value := 25; + grd_principal.ColumnCollection[3].SizeStyle := ssPercent; + grd_principal.ColumnCollection[3].Value := 25; + grd_principal.ColumnCollection.EndUpdate; + + // Seta tamanho das logos + dblbl_razaosocial.Height := floor(pnl_top.Height / 2); + dblbl_razaosocial.Font.Size := floor(dblbl_razaosocial.Height * 0.6); + dblbl_nmfantasia.Height := floor(pnl_top.Height / 2); + dblbl_nmfantasia.Font.Size := floor(dblbl_nmfantasia.Height * 0.6); + + // Seta o tamanho das colunas na tabela de seleo + for i := 0 to (dbgrid_nomes.Columns.Count - 1) do + begin + dbgrid_nomes.Columns[i].Width := round(dbgrid_nomes.ClientWidth); + end; + + // Posicionamento dinmico dos objetos na janela + lbl_razao.Left := 3; + lbl_razao.Top := 3; + dbedt_razao.Left := 3; + dbedt_razao.Top := 18; + dbedt_razao.Width := round(tab_dados.ClientWidth * 0.45); + + lbl_fantasia.Top := 3; + lbl_fantasia.Left := dbedt_razao.Left + dbedt_razao.Width + + round(tab_dados.ClientWidth * 0.02); + dbedt_fantasia.Top := 18; + dbedt_fantasia.Left := dbedt_razao.Left + dbedt_razao.Width + + round(tab_dados.ClientWidth * 0.02); + dbedt_fantasia.Width := round(tab_dados.ClientWidth * 0.45); + + lbl_cnpj.Top := 45; + lbl_cnpj.Left := 3; + dbedt_cnpj.Top := 60; + dbedt_cnpj.Left := 3; + + lbl_cidade.Top := 87; + lbl_cidade.Left := 3; + dblucmbox_cidade.Top := 102; + dblucmbox_cidade.Left := 3; + dblucmbox_cidade.Width := round(tab_dados.ClientWidth * 0.2); + + lbl_inscriest.Top := 45; + lbl_inscriest.Left := dblucmbox_cidade.Left + dblucmbox_cidade.Width + + round(tab_dados.ClientWidth * 0.06); + dbedt_inscriest.Top := 60; + dbedt_inscriest.Left := dblucmbox_cidade.Left + dblucmbox_cidade.Width + + round(tab_dados.ClientWidth * 0.06); + + lbl_inscrimuni.Top := 45; + lbl_inscrimuni.Left := dbedt_razao.Left + dbedt_razao.Width - + dbedt_inscrimuni.Width; + dbedt_inscrimuni.Top := 60; + dbedt_inscrimuni.Left := dbedt_razao.Left + dbedt_razao.Width - + dbedt_inscrimuni.Width; + + lbl_bairro.Top := 84; + lbl_bairro.Left := dblucmbox_cidade.Left + dblucmbox_cidade.Width + + round(tab_dados.ClientWidth * 0.02); + dbedt_bairro.Top := 102; + dbedt_bairro.Left := dblucmbox_cidade.Left + dblucmbox_cidade.Width + + round(tab_dados.ClientWidth * 0.02); + dbedt_bairro.Width := round(tab_dados.ClientWidth * 0.23); + + lbl_uf.Top := 87; + lbl_uf.Left := dbedt_razao.Left + dbedt_razao.Width + + round(tab_dados.ClientWidth * 0.02); + dblucmbox_uf.Top := 102; + dblucmbox_uf.Left := dbedt_razao.Left + dbedt_razao.Width + + round(tab_dados.ClientWidth * 0.02); + + lbl_cep.Top := 87; + lbl_cep.Left := lbl_uf.Left + dblucmbox_uf.Width + + round(tab_dados.ClientWidth * 0.03); + dbedt_cep.Top := 102; + dbedt_cep.Left := lbl_uf.Left + dblucmbox_uf.Width + + round(tab_dados.ClientWidth * 0.03); + + lbl_honorarios.Top := 87; + lbl_honorarios.Left := dbedt_cep.Left + dbedt_cep.Width + + round(tab_dados.ClientWidth * 0.03); + grd_honorarios.Top := 102; + grd_honorarios.Left := lbl_honorarios.Left; + + lbl_end.Top := 129; + lbl_end.Left := 3; + dbedt_end.Top := 144; + dbedt_end.Left := 3; + dbedt_end.Width := round(tab_dados.ClientWidth * 0.45); + + lbl_num.Top := 129; + lbl_num.Left := dbedt_razao.Left + dbedt_razao.Width + + round(tab_dados.ClientWidth * 0.02); + dbedt_num.Top := 144; + dbedt_num.Left := dbedt_razao.Left + dbedt_razao.Width + + round(tab_dados.ClientWidth * 0.02); + + lbl_compl.Top := 129; + lbl_compl.Left := lbl_uf.Left + dblucmbox_uf.Width + + round(tab_dados.ClientWidth * 0.03); + dbedt_compl.Top := 144; + dbedt_compl.Left := lbl_uf.Left + dblucmbox_uf.Width + + round(tab_dados.ClientWidth * 0.03); + + lbl_tel.Top := 171; + lbl_tel.Left := 3; + dbedt_tel.Top := 186; + dbedt_tel.Left := 3; + // dbedt_tel.Width := round(tab_dados.ClientWidth*0.2); + + dbedt_email.Top := 186; + dbedt_email.Width := round(tab_dados.ClientWidth * 0.23); + dbedt_email.Left := dbedt_end.Left + dbedt_end.Width - dbedt_email.Width; + lbl_email.Top := 171; + lbl_email.Left := dbedt_email.Left; + + lbl_website.Top := 213; + lbl_website.Left := 3; + dbedt_website.Top := 228; + dbedt_website.Left := 3; + dbedt_website.Width := round(tab_dados.ClientWidth * 0.45); + + dbmemo_obs.Height := round(tab_dados.ClientHeight * 0.5); + dbmemo_obs.Top := tab_dados.ClientHeight - dbmemo_obs.Height; + dbmemo_obs.Width := round(tab_dados.ClientWidth * 0.45); + + btn_clearmemo.Left := dbmemo_obs.Left + dbmemo_obs.Width - + btn_clearmemo.Width; + btn_clearmemo.Top := dbmemo_obs.Top - btn_clearmemo.Height - 3; + + lbl_obs.Top := dbmemo_obs.Top - lbl_obs.Height - 3; + + grpb_logo.Left := tab_dados.ClientWidth - grpb_logo.Width - + round(tab_dados.ClientHeight * 0.25); + grpb_logo.Top := tab_dados.ClientHeight - grpb_logo.Height - 30; + + btn_criarcad.Top := dbedt_website.Top - 2; + btn_removcad.Top := btn_criarcad.Top; + btn_criarcad.Left := dbedt_razao.Left + dbedt_razao.Width + + round(tab_dados.ClientWidth * 0.02); + btn_removcad.Left := btn_criarcad.Left + btn_criarcad.Width + + round(tab_dados.ClientWidth * 0.02); + btn_altcad.Top := btn_criarcad.Top; + btn_altcad.Left := btn_removcad.Left + btn_removcad.Width + + round(tab_dados.ClientWidth * 0.02); + +end; + +procedure TfrmEmpresas.spdbtn_clearimgClick(Sender: TObject); +begin + img_logo.Picture := nil; +end; + +procedure TfrmEmpresas.spdbtn_loadimgClick(Sender: TObject); +begin + if OpenPictureDialog1.Execute then + begin + if FileExists(OpenPictureDialog1.FileName) then + begin + CreateDir(GetCurrentDir + '\LOGOMARCAS'); + img_logo.Picture.LoadFromFile(OpenPictureDialog1.FileName); + img_path := GetCurrentDir + '\LOGOMARCAS\' + + udtmSystem.dtmSystem.tblEmpresaTX_NOME.AsString + + ExtractFileExt(OpenPictureDialog1.FileName); + img_logo.Picture.SaveToFile(img_path); + img_logo.Visible := true; + mudou_img := true; + end + else + begin + raise Exception.Create('Arquivo no existe.'); + end; + end; +end; + +end. diff --git a/ufrmEscolheAcordo.dfm b/ufrmEscolheAcordo.dfm new file mode 100644 index 0000000..0f821dc --- /dev/null +++ b/ufrmEscolheAcordo.dfm @@ -0,0 +1,57 @@ +object frmEscolheAcordo: TfrmEscolheAcordo + Left = 0 + Top = 0 + Caption = 'Acordo' + ClientHeight = 108 + ClientWidth = 208 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 75 + Height = 13 + Caption = 'Tipo de acordo:' + end + object ComboBox1: TComboBox + Left = 8 + Top = 27 + Width = 145 + Height = 21 + Style = csDropDownList + ItemIndex = 0 + TabOrder = 0 + Text = 'Parcelamento Simples' + Items.Strings = ( + 'Parcelamento Simples' + 'Financiamento') + end + object Button1: TButton + Left = 8 + Top = 64 + Width = 75 + Height = 25 + Caption = 'Abrir' + ModalResult = 1 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 112 + Top = 64 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 2 + end +end diff --git a/ufrmEscolheAcordo.pas b/ufrmEscolheAcordo.pas new file mode 100644 index 0000000..2f2ec57 --- /dev/null +++ b/ufrmEscolheAcordo.pas @@ -0,0 +1,82 @@ +unit ufrmEscolheAcordo; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; + +type + TfrmEscolheAcordo = class(TForm) + Label1: TLabel; + ComboBox1: TComboBox; + Button1: TButton; + Button2: TButton; + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure Button1Click(Sender: TObject); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmEscolheAcordo: TfrmEscolheAcordo; + +implementation + +{$R *.dfm} + +uses ufrmAtendimento; +{ TfrmEscolheAcordo } + +procedure TfrmEscolheAcordo.Button1Click(Sender: TObject); +begin + case ComboBox1.ItemIndex of + 0: + begin + frmAtendimento.tipo_parcelamento := 'P'; + end; + 1: + begin + frmAtendimento.tipo_parcelamento := 'F'; + end; + end; +end; + +procedure TfrmEscolheAcordo.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + end; +end; + +procedure TfrmEscolheAcordo.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmEscolheCampanha.dfm b/ufrmEscolheCampanha.dfm new file mode 100644 index 0000000..145ea6b --- /dev/null +++ b/ufrmEscolheCampanha.dfm @@ -0,0 +1,55 @@ +inherited frmEscolheCampanha: TfrmEscolheCampanha + Caption = 'Campanha' + ClientHeight = 153 + ClientWidth = 294 + OnShow = FormShow + ExplicitWidth = 300 + ExplicitHeight = 181 + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel [0] + Left = 8 + Top = 8 + Width = 117 + Height = 13 + Caption = 'Escolha uma campanha:' + end + inherited stbStatus: TStatusBar + Top = 134 + Width = 294 + ExplicitTop = 134 + ExplicitWidth = 294 + end + object cb_campanhas: TComboBox + Left = 8 + Top = 27 + Width = 273 + Height = 21 + TabOrder = 1 + end + object btn_ok: TButton + Left = 8 + Top = 82 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 2 + OnClick = btn_okClick + end + object btn_cancel: TButton + Left = 206 + Top = 82 + Width = 75 + Height = 25 + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 3 + end + object queryLimpaCamp: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 16 + Top = 88 + end +end diff --git a/ufrmEscolheCampanha.pas b/ufrmEscolheCampanha.pas new file mode 100644 index 0000000..360a2e5 --- /dev/null +++ b/ufrmEscolheCampanha.pas @@ -0,0 +1,122 @@ +unit ufrmEscolheCampanha; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls, + Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset; + +type + TfrmEscolheCampanha = class(TmstMaster) + cb_campanhas: TComboBox; + btn_ok: TButton; + btn_cancel: TButton; + Label1: TLabel; + queryLimpaCamp: TZQuery; + procedure FormShow(Sender: TObject); + procedure btn_okClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmEscolheCampanha: TfrmEscolheCampanha; + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmCobranca; + +procedure TfrmEscolheCampanha.btn_okClick(Sender: TObject); +begin + dtmSystem.qryConsulta.RecNo := cb_campanhas.ItemIndex + 1; + dtmSystem.tblCobCampanha.Locate('ID_CAMPANHA', + dtmSystem.qryConsulta.FieldByName('ID_CAMPANHA').AsInteger, []); + frmCobranca.campanha := dtmSystem.tblCobCampanhaID_CAMPANHA.AsInteger; +end; + +procedure TfrmEscolheCampanha.FormCreate(Sender: TObject); +begin + inherited; + queryLimpaCamp.SQL.Text := + 'select * from chg_campanhas_devedores where id_campanha in (' + + 'select id_campanha from chg_campanhas where id_campanha not in (' + + 'select id_campanha from chg_campanhas_cobradores where id_cobrador =' + + inttostr(dtmSystem.id_usuario) + ' ))' + 'and tp_cobrando = ' + + inttostr(dtmSystem.id_usuario); + queryLimpaCamp.Open; + if not queryLimpaCamp.IsEmpty then + begin + queryLimpaCamp.First; + if not dtmSystem.tblCampanhaDevedores.Active then + begin + dtmSystem.tblCampanhaDevedores.Open; + end; + while not queryLimpaCamp.Eof do + begin + dtmSystem.tblCampanhaDevedores.Locate('ID_ITEM', + queryLimpaCamp.FieldByName('ID_ITEM').AsInteger, []); + dtmSystem.tblCampanhaDevedores.Edit; + dtmSystem.tblCampanhaDevedoresTP_COBRANDO.AsInteger := -1; + dtmSystem.tblCampanhaDevedores.Post; + queryLimpaCamp.Next; + end; + end; + dtmSystem.tblCampanhaDevedores.Close; + queryLimpaCamp.Close; +end; + +procedure TfrmEscolheCampanha.FormShow(Sender: TObject); +begin + with dtmSystem do + begin + if not tblCobCampanha.Active then + begin + tblCobCampanha.Open; + end; + qryConsulta.Refresh; + qryConsulta.First; + while not qryConsulta.Eof do + begin + cb_campanhas.Items.Add(qryConsulta.FieldByName('tx_nome').AsString); + qryConsulta.Next; + end; + end; + cb_campanhas.ItemIndex := 0; +end; + +procedure TfrmEscolheCampanha.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. + + + + diff --git a/ufrmEscolheLayout.dfm b/ufrmEscolheLayout.dfm new file mode 100644 index 0000000..2979b19 --- /dev/null +++ b/ufrmEscolheLayout.dfm @@ -0,0 +1,97 @@ +object frmEscolheLayout: TfrmEscolheLayout + Left = 0 + Top = 0 + Caption = 'Layout' + ClientHeight = 201 + ClientWidth = 404 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnKeyDown = FormKeyDown + OnMouseWheelDown = FormMouseWheelDown + OnMouseWheelUp = FormMouseWheelUp + PixelsPerInch = 96 + TextHeight = 13 + object lbl_layout: TLabel + Left = 8 + Top = 8 + Width = 37 + Height = 13 + Caption = 'Layout:' + end + object lbl_beneficiario: TLabel + Left = 8 + Top = 54 + Width = 59 + Height = 13 + Caption = 'Benefici'#225'rio:' + end + object Label1: TLabel + Left = 8 + Top = 100 + Width = 55 + Height = 13 + Caption = 'Provid'#234'ncia' + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 8 + Top = 27 + Width = 388 + Height = 21 + KeyField = 'ID_LAYOUT' + ListField = 'TX_NOME' + ListSource = dtsLayout + TabOrder = 0 + end + object btn_ok: TButton + Left = 240 + Top = 168 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 1 + OnClick = btn_okClick + end + object btn_cancel: TButton + Left = 321 + Top = 168 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 2 + end + object DBLookupComboBox2: TDBLookupComboBox + Left = 8 + Top = 73 + Width = 388 + Height = 21 + DropDownRows = 10 + KeyField = 'ID_EMPRESA' + ListField = 'TX_FANTASIA' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 3 + end + object DBLookupComboBox3: TDBLookupComboBox + Left = 8 + Top = 119 + Width = 388 + Height = 21 + DropDownRows = 10 + KeyField = 'ID_PROVIDENCIA' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsProvidencias + TabOrder = 4 + end + object dtsLayout: TDataSource + DataSet = dtmSystem.tblLayouts + Left = 128 + Top = 120 + end +end diff --git a/ufrmEscolheLayout.pas b/ufrmEscolheLayout.pas new file mode 100644 index 0000000..036e2ea --- /dev/null +++ b/ufrmEscolheLayout.pas @@ -0,0 +1,156 @@ +unit ufrmEscolheLayout; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Data.DB; + +type + TfrmEscolheLayout = class(TForm) + dtsLayout: TDataSource; + DBLookupComboBox1: TDBLookupComboBox; + lbl_layout: TLabel; + btn_ok: TButton; + btn_cancel: TButton; + DBLookupComboBox2: TDBLookupComboBox; + lbl_beneficiario: TLabel; + DBLookupComboBox3: TDBLookupComboBox; + Label1: TLabel; + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure btn_okClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState; + MousePos: TPoint; var Handled: Boolean); + procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState; + MousePos: TPoint; var Handled: Boolean); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + id_emp: integer; + id_prov: integer; + escolheu: Boolean; + { Public declarations } + end; + +var + frmEscolheLayout: TfrmEscolheLayout; + +implementation + +{$R *.dfm} + +uses udtmSystem, uimpDevedores, ucadDevedores; + +procedure TfrmEscolheLayout.btn_okClick(Sender: TObject); +var + erro: string; +begin + // impDevedores.id_emp := DBLookupComboBox2.KeyValue; + erro := ''; + // if (DBLookupComboBox1.KeyValue = -1) or (DBLookupComboBox2.KeyValue = -1) or + // (DBLookupComboBox3.KeyValue = -1) then + // begin + // MessageDlg + // ('Por favor escolha corretamente a empresa/layout/providncia antes de importar.', + // mtWarning, [mbOK], 0); + // abort; + // end; + if (DBLookupComboBox1.KeyValue = Null) then + begin + erro := erro + 'Layout/'; + end; + if (DBLookupComboBox2.KeyValue = Null) then + begin + erro := erro + 'Credor/'; + end; + if (DBLookupComboBox3.KeyValue = Null) then + begin + erro := erro + 'Providncia/'; + end; + if erro <> '' then + begin + setlength(erro, length(erro) - 1); + if MessageDlg('Voc est prestes a realizar uma importao sem ' + erro + + ' definido/os. Deseja Continuar?', mtWarning, mbYesNo, 0) = mrno then + begin + abort; + end; + end; + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', DBLookupComboBox2.KeyValue, []); + dtmSystem.id_empimport := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger; + if DBLookupComboBox3.KeyValue <> Null then + begin + id_prov := DBLookupComboBox3.KeyValue; + end; + escolheu := true; +end; + +procedure TfrmEscolheLayout.FormCreate(Sender: TObject); +begin + escolheu := false; + if not(dtmSystem.tblCHGEmpresa.Active) then + begin + dtmSystem.tblCHGEmpresa.Open; + end; + if not(dtmSystem.tblProvidencias.Active) then + begin + dtmSystem.tblProvidencias.Open; + end; +end; + +procedure TfrmEscolheLayout.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + Close; + ModalResult := mrCancel; + end; +end; + +procedure TfrmEscolheLayout.FormMouseWheelDown(Sender: TObject; + Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); +begin + if (DBLookupComboBox1.Focused = true) then + begin + DBLookupComboBox1.Perform(WM_KEYDOWN, VK_DOWN, 0); + end; +end; + +procedure TfrmEscolheLayout.FormMouseWheelUp(Sender: TObject; + Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); +begin + if (DBLookupComboBox1.Focused = true) then + begin + DBLookupComboBox1.Perform(WM_KEYDOWN, VK_UP, 0); + end; +end; + +procedure TfrmEscolheLayout.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmEscolheProvidencia.dfm b/ufrmEscolheProvidencia.dfm new file mode 100644 index 0000000..7462df1 --- /dev/null +++ b/ufrmEscolheProvidencia.dfm @@ -0,0 +1,61 @@ +object frmEscolheProv: TfrmEscolheProv + Left = 0 + Top = 0 + Caption = 'Provid'#234'ncia' + ClientHeight = 120 + ClientWidth = 385 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnMouseWheelDown = FormMouseWheelDown + OnMouseWheelUp = FormMouseWheelUp + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 126 + Height = 13 + Caption = 'Provid'#234'ncia a ser lan'#231'ada:' + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 8 + Top = 40 + Width = 369 + Height = 21 + DropDownRows = 10 + KeyField = 'ID_PROVIDENCIA' + ListField = 'TX_NOME' + ListSource = DataSource1 + TabOrder = 0 + end + object Button1: TButton + Left = 208 + Top = 80 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 302 + Top = 80 + Width = 75 + Height = 25 + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 2 + end + object DataSource1: TDataSource + DataSet = dtmSystem.tblProvidencias + Left = 240 + Top = 8 + end +end diff --git a/ufrmEscolheProvidencia.pas b/ufrmEscolheProvidencia.pas new file mode 100644 index 0000000..10ddb50 --- /dev/null +++ b/ufrmEscolheProvidencia.pas @@ -0,0 +1,105 @@ +unit ufrmEscolheProvidencia; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.DBCtrls; + +type + TfrmEscolheProv = class(TForm) + DBLookupComboBox1: TDBLookupComboBox; + Label1: TLabel; + Button1: TButton; + Button2: TButton; + DataSource1: TDataSource; + procedure FormCreate(Sender: TObject); + procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState; + MousePos: TPoint; var Handled: Boolean); + procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState; + MousePos: TPoint; var Handled: Boolean); + procedure Button1Click(Sender: TObject); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmEscolheProv: TfrmEscolheProv; + +implementation + +{$R *.dfm} + +uses udtmSystem, ucadCampanha; + +procedure TfrmEscolheProv.Button1Click(Sender: TObject); +begin + if DBLookupComboBox1.KeyValue < 0 then + begin + showmessage(''); + abort; + end + else + begin + DataSource1.DataSet.Locate('ID_PROVIDENCIA', + DBLookupComboBox1.KeyValue, []); + cadCampanha.mass_prov := DataSource1.DataSet.FieldByName('TX_NOME') + .AsString; + end; +end; + +procedure TfrmEscolheProv.FormCreate(Sender: TObject); +begin + if not DataSource1.DataSet.Active then + begin + DataSource1.DataSet.Open; + end; + +end; + +procedure TfrmEscolheProv.FormMouseWheelDown(Sender: TObject; + Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); +begin + if (DBLookupComboBox1.Focused = true) then + begin + DBLookupComboBox1.Perform(WM_KEYDOWN, VK_DOWN, 0); + end; +end; + +procedure TfrmEscolheProv.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; + MousePos: TPoint; var Handled: Boolean); +begin + if (DBLookupComboBox1.Focused = true) then + begin + DBLookupComboBox1.Perform(WM_KEYDOWN, VK_UP, 0); + end; +end; + +procedure TfrmEscolheProv.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmFechamento.dfm b/ufrmFechamento.dfm new file mode 100644 index 0000000..95001c0 --- /dev/null +++ b/ufrmFechamento.dfm @@ -0,0 +1,106 @@ +inherited frmFechamento: TfrmFechamento + Caption = 'Fechamento' + ClientHeight = 219 + ClientWidth = 187 + ExplicitWidth = 193 + ExplicitHeight = 247 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 200 + Width = 187 + ExplicitTop = 200 + ExplicitWidth = 187 + end + object pnl_fundo: TPanel + Left = 0 + Top = 0 + Width = 187 + Height = 200 + Align = alClient + BevelInner = bvLowered + Color = clBtnHighlight + ParentBackground = False + TabOrder = 1 + object lbl_ligacao: TLabel + Left = 8 + Top = 8 + Width = 138 + Height = 13 + Caption = 'Foi atendida alguma liga'#231#227'o?' + end + object lbl_situacao: TLabel + Left = 8 + Top = 54 + Width = 143 + Height = 13 + Caption = 'Qual a situa'#231#227'o da cobran'#231'a?' + end + object lbl_acordo: TLabel + Left = 8 + Top = 100 + Width = 75 + Height = 13 + Caption = 'Tipo do acordo:' + end + object cb_ligacao: TComboBox + Left = 8 + Top = 27 + Width = 171 + Height = 21 + Style = csDropDownList + TabOrder = 0 + OnChange = cb_ligacaoChange + Items.Strings = ( + 'Sim' + 'N'#227'o') + end + object cb_situacao: TComboBox + Left = 8 + Top = 73 + Width = 171 + Height = 21 + Style = csDropDownList + Enabled = False + TabOrder = 1 + OnChange = cb_situacaoChange + Items.Strings = ( + 'Fechou acordo' + 'N'#227'o aceitou acordo' + 'Acordo a ser considerado' + 'Recado') + end + object cb_acordo: TComboBox + Left = 8 + Top = 119 + Width = 171 + Height = 21 + Style = csDropDownList + Enabled = False + TabOrder = 2 + Items.Strings = ( + 'Quita'#231#227'o' + 'Financiamento') + end + object btncontinuar: TButton + Left = 8 + Top = 168 + Width = 75 + Height = 25 + Caption = 'Continuar' + Enabled = False + ModalResult = 1 + TabOrder = 3 + OnClick = btncontinuarClick + end + object btncancel: TButton + Left = 104 + Top = 168 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 4 + end + end +end diff --git a/ufrmFechamento.pas b/ufrmFechamento.pas new file mode 100644 index 0000000..011554f --- /dev/null +++ b/ufrmFechamento.pas @@ -0,0 +1,540 @@ +unit ufrmFechamento; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ExtCtrls, + Vcl.ComCtrls, DateUtils; + +type + TStringDynArray = array of string; + +type + TfrmFechamento = class(TmstMaster) + pnl_fundo: TPanel; + lbl_ligacao: TLabel; + cb_ligacao: TComboBox; + lbl_situacao: TLabel; + cb_situacao: TComboBox; + lbl_acordo: TLabel; + cb_acordo: TComboBox; + btncontinuar: TButton; + btncancel: TButton; + procedure cb_ligacaoChange(Sender: TObject); + procedure cb_situacaoChange(Sender: TObject); + procedure btncontinuarClick(Sender: TObject); + private + function EscreveTitulos(): TStringDynArray; + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmFechamento: TfrmFechamento; + +implementation + +{$R *.dfm} + +uses ufrmEfetuarCobranca, udtmSystem, System.UITypes; + +procedure TfrmFechamento.cb_ligacaoChange(Sender: TObject); +begin + inherited; + if cb_ligacao.ItemIndex = 0 then + begin + cb_situacao.Enabled := true; + end + else + begin + cb_situacao.Enabled := false; + cb_acordo.Enabled := false; + end; + if cb_ligacao.ItemIndex <> -1 then + begin + btncontinuar.Enabled := true; + end; +end; + +procedure TfrmFechamento.cb_situacaoChange(Sender: TObject); +begin + inherited; + if (cb_situacao.ItemIndex = 0) or (cb_situacao.ItemIndex = 2) then + begin + cb_acordo.Enabled := true; + end + else + begin + cb_acordo.Enabled := false; + end; +end; + +procedure TfrmFechamento.btncontinuarClick(Sender: TObject); +var + titulos: array of string; + k, i: Integer; + h: Integer; +begin + inherited; + // dtmSystem.tblProvidencias.Filter := 'ID_PROVIDENCIA > 1'; + // dtmSystem.tblProvidencias.Filtered := true; + + if (cb_ligacao.ItemIndex = 0) and (cb_situacao.ItemIndex < 0) then + begin + MessageDlg('Por favor selecione o tipo de situao ocorrida.', + mtConfirmation, [mbok], 0); + ModalResult := mrCancel; + Abort; + end; + + if (cb_acordo.ItemIndex = 0) and (frmEfetuarCobranca.cb_descpar.Checked) then + begin + if MessageDlg + ('Foi acordado quitar a dvida, mas descontos sobre parcelar esto ativados. Deseja continuar?', + mtConfirmation, [mbYes, mbNo], 0) = mrno then + begin + ModalResult := mrCancel; + Abort; + end; + end; + if (cb_acordo.ItemIndex = 1) and (frmEfetuarCobranca.cb_descquit.Checked) then + begin + if MessageDlg + ('Foi acordado parcelar a dvida, mas descontos sobre quitar esto ativados. Deseja continuar?', + mtConfirmation, [mbok], 0) = mrno then + begin + ModalResult := mrCancel; + Abort; + end; + end; + + if (cb_acordo.Enabled) and (cb_acordo.ItemIndex < 0) then + begin + MessageDlg('Por favor selecione o tipo de acordo a ser fechado.', + mtConfirmation, [mbok], 0); + ModalResult := mrCancel; + Abort; + end; + + // frmEfetuarCobranca.dtp_diaagendamento.Enabled := false; + // frmEfetuarCobranca.dtp_horaagendamento.Enabled := false; + // frmEfetuarCobranca.dblucb_cobradoragendar.Enabled := false; + // frmEfetuarCobranca.dbgrd_providencias.Enabled := true; +// if frmEfetuarCobranca.btn_protocolo.Enabled then +// begin +// frmEfetuarCobranca.edt_protocolo.Text := frmEfetuarCobranca.gerar_protocolo +// (dtmSystem.tblDevedoresID_DEVEDOR.AsString); +// frmEfetuarCobranca.edt_protocolo1.Text := +// frmEfetuarCobranca.edt_protocolo.Text; +// frmEfetuarCobranca.btn_protocolo.Enabled := false; +// end; + + frmEfetuarCobranca.mb_fechamento.Clear; + + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Cobrador: ' + dtmSystem.tx_usuario); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + + frmEfetuarCobranca.mb_fechamento.Lines.Add(DateToStr(Date) + ' - ' + + TimeToStr(Time)); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + dtmSystem.tblTelefones.First; + h := 1; + while not dtmSystem.tblTelefones.Eof do + begin + if dtmSystem.tblTelefonesTP_ATIVO.AsString <> 'N' then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Telefone n' + inttostr(h) + + ': ' + '(' + dtmSystem.tblTelefonesNR_DDD.AsString + ')' + + dtmSystem.tblTelefonesNR_NUMERO.AsString + ' - Situao: '); + Inc(h); + end; + dtmSystem.tblTelefones.Next; + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + { 0 = Sim; 1 = No } + if cb_ligacao.ItemIndex = 1 then + begin + // frmEfetuarCobranca.mb_fechamento.Lines.Add + // ('O devedor ' + dtmSystem.tblDevedoresTX_NOME.AsString + + // ' no(s) telefone(s) __________ no atendeu a(s) chamada(s).'); + end + else + begin + setlength(titulos, length(EscreveTitulos())); + for k := 0 to length(titulos) - 1 do + begin + titulos[k] := EscreveTitulos()[k]; + end; + // frmEfetuarCobranca.mb_fechamento.Lines.Add + // ('A ligao para o telefone __________ foi atendia por __________.'); + // frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + { frmEfetuarCobranca.dtp_diaagendamento.Date := + frmEfetuarCobranca.dtp_atrasorecalc.Date; + frmEfetuarCobranca.dtp_horaagendamento.Time := Time; } + + { 0 = Fechou; 1 = No aceitou acordo; 2 = Acordo a ser considerado; 3 = Agendou atendente; 4 = Agendou outro cobrador } + if cb_situacao.ItemIndex = 0 then + begin + if length(titulos) > 1 then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foram cobrados os ttulos:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + end + else + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Foi cobrado o ttulo:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + end; + for i := 0 to length(titulos) - 1 do + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add(titulos[i]); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foi fechado o seguinte acordo:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + { 0 = Quitao; 1 = Parcelamento } + if cb_acordo.ItemIndex = 0 then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Forma de pagamento: Quitao.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Data para pagamento: ' + + FormatDateTime('dd/mm/yyyy', + frmEfetuarCobranca.dtp_atrasorecalc.Date) + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total corrigido: ' + + frmEfetuarCobranca.edt_vlaquitar.Text + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total nominal: ' + + frmEfetuarCobranca.edt_somatitulos.Text + '.'); + if frmEfetuarCobranca.cbx_txextra.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor de taxas extras: ' + + frmEfetuarCobranca.edt_txextra.Text + '.'); + end; + if frmEfetuarCobranca.cb_nmulta.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('No foi cobrado multa.'); + end + else + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total da multa: ' + + frmEfetuarCobranca.edt_somamulta.Text + '.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total de juros: ' + + frmEfetuarCobranca.edt_somajuros.Text + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Valor total de indicador financeiro: ' + + frmEfetuarCobranca.edt_somaindicador.Text + '.'); + if frmEfetuarCobranca.cb_descquit.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foi concedido descontos conforme a seguir:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre principal: ' + + frmEfetuarCobranca.edt_principalquitar.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + frmEfetuarCobranca.edt_multasquitar.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + frmEfetuarCobranca.edt_jurosquitar.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre indicador financeiro: ' + + frmEfetuarCobranca.edt_indquitar.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre corrigido: ' + + frmEfetuarCobranca.edt_corquitar.Text + '%.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Forma de Pagamento sugerida: ' + + frmEfetuarCobranca.cb_formapag.Text); + // frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor ajustado: '+ frmEfetuarCobranca.edt_vlcorpag.Text); + end; + if cb_acordo.ItemIndex = 1 then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Forma de pagamento: Parcelamento.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total corrigido: ' + + frmEfetuarCobranca.edt_vlaquitar.Text + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total nominal: ' + + frmEfetuarCobranca.edt_somatitulos.Text + '.'); + if frmEfetuarCobranca.cbx_txextra.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor de taxas extras: ' + + frmEfetuarCobranca.edt_txextra.Text + '.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add('Quantidade de parcelas: ' + + frmEfetuarCobranca.edt_nrparcelas.Text + '.'); + frmEfetuarCobranca.copiar_conteudoClick(Sender); + frmEfetuarCobranca.mb_fechamento.Lines.Add(frmEfetuarCobranca.clpbrd); + if frmEfetuarCobranca.cb_nmulta.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('No foi cobrado multa.'); + end + else + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total da multa: ' + + frmEfetuarCobranca.edt_somamulta.Text + '.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total de juros: ' + + frmEfetuarCobranca.edt_somajuros.Text + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Valor total de indicador financeiro: ' + + frmEfetuarCobranca.edt_somaindicador.Text + '.'); + if frmEfetuarCobranca.cb_descpar.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foi concedido descontos conforme a seguir:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre principal: ' + + frmEfetuarCobranca.edt_principalparcelas.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + frmEfetuarCobranca.edt_multasparcelas.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + frmEfetuarCobranca.edt_jurosparcelas.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre indicador financeiro: ' + + frmEfetuarCobranca.edt_indparcelas.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre corrigido: ' + + frmEfetuarCobranca.edt_corpar.Text + '%.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Forma de Pagamento sugerida: ' + + frmEfetuarCobranca.cb_formapag.Text); + end; + + end; + if cb_situacao.ItemIndex = 1 then + begin + if length(titulos) > 1 then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foram cobrados os ttulos:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + end + else + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Foi cobrado o ttulo:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + end; + for i := 0 to length(titulos) - 1 do + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add(titulos[i]); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Nenhum acordo foi fechado.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('O motivo do no fechamento foi: __________.'); + end; + if cb_situacao.ItemIndex = 2 then + begin + if length(titulos) > 1 then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foram cobrados os ttulos:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + end + else + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Foi cobrado o ttulo:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + end; + for i := 0 to length(titulos) - 1 do + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add(titulos[i]); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foi oferecido ao devedor o seguinte acordo a ser considerado: '); + + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Forma de pagamento: Quitao.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Data para pagamento: ' + + FormatDateTime('dd/mm/yyyy', + frmEfetuarCobranca.dtp_atrasorecalc.Date) + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total corrigido: ' + + frmEfetuarCobranca.edt_vlaquitar.Text + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total nominal: ' + + frmEfetuarCobranca.edt_somatitulos.Text + '.'); + if frmEfetuarCobranca.cbx_txextra.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor de taxas extras: ' + + frmEfetuarCobranca.edt_txextra.Text + '.'); + end; + if frmEfetuarCobranca.cb_nmulta.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('No foi cobrado multa.'); + end + else + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total da multa: ' + + frmEfetuarCobranca.edt_somamulta.Text + '.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total de juros: ' + + frmEfetuarCobranca.edt_somajuros.Text + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Valor total de indicador financeiro: ' + + frmEfetuarCobranca.edt_somaindicador.Text + '.'); + if frmEfetuarCobranca.cb_descquit.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foi concedido descontos conforme a seguir:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre principal: ' + + frmEfetuarCobranca.edt_principalquitar.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + frmEfetuarCobranca.edt_multasquitar.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + frmEfetuarCobranca.edt_jurosquitar.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre indicador financeiro: ' + + frmEfetuarCobranca.edt_indquitar.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre corrigido: ' + frmEfetuarCobranca.edt_corquitar. + Text + '%.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Forma de pagamento: Parcelamento.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total corrigido: ' + + frmEfetuarCobranca.edt_vlaquitar.Text + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total nominal: ' + + frmEfetuarCobranca.edt_somatitulos.Text + '.'); + if frmEfetuarCobranca.cbx_txextra.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor de taxas extras: ' + + frmEfetuarCobranca.edt_txextra.Text + '.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add('Quantidade de parcelas: ' + + frmEfetuarCobranca.edt_nrparcelas.Text + '.'); + frmEfetuarCobranca.copiar_conteudoClick(Sender); + frmEfetuarCobranca.mb_fechamento.Lines.Add(frmEfetuarCobranca.clpbrd); + if frmEfetuarCobranca.cb_nmulta.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('No foi cobrado multa.'); + end + else + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total da multa: ' + + frmEfetuarCobranca.edt_somamulta.Text + '.'); + end; + frmEfetuarCobranca.mb_fechamento.Lines.Add('Valor total de juros: ' + + frmEfetuarCobranca.edt_somajuros.Text + '.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Valor total de indicador financeiro: ' + + frmEfetuarCobranca.edt_somaindicador.Text + '.'); + if frmEfetuarCobranca.cb_descpar.Checked then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foi concedido descontos conforme a seguir:'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre principal: ' + + frmEfetuarCobranca.edt_principalparcelas.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + frmEfetuarCobranca.edt_multasparcelas.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + frmEfetuarCobranca.edt_jurosparcelas.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre indicador financeiro: ' + + frmEfetuarCobranca.edt_indparcelas.Text + '%.'); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Porcentagem sobre corrigido: ' + + frmEfetuarCobranca.edt_corpar.Text + '%.'); + end; + end; + if cb_situacao.ItemIndex = 3 then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Foi agendado para o dia __/__/____ s __:__ .'); + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + end; + if (frmEfetuarCobranca.cbx_txextra.Checked) and (StrToCurr(frmEfetuarCobranca.edt_txextra.Text) > 0) then + begin + frmEfetuarCobranca.mb_fechamento.Lines.Add(''); + frmEfetuarCobranca.mb_fechamento.Lines.Add + ('Taxa extra cobrada: ' + (frmEfetuarCobranca.edt_txextra.Text)); + end; + end; +end; + +function TfrmFechamento.EscreveTitulos(): TStringDynArray; +var + count, i, j: Integer; + tx_titulo, vl_titulo, id_titulo, dt_venc: array of string; +begin + count := 0; + with frmEfetuarCobranca do + begin + for i := 0 to lv_titulos.Items.count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + count := count + 1; + setlength(tx_titulo, count); + setlength(id_titulo, count); + setlength(vl_titulo, count); + setlength(dt_venc, count); + queryListaTitulos.RecNo := i + 1; + tx_titulo[count - 1] := queryListaTitulosTX_PRODUTO.AsString; + id_titulo[count - 1] := queryListaTitulosID_TITULO.AsString; + vl_titulo[count - 1] := + CurrToStrF(queryListaTitulosVL_TITULO.AsCurrency, ffCurrency, 2); + dt_venc[count - 1] := + DateToStr(Dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime)); + end; + end; + setlength(result, count); + for j := 0 to count - 1 do + begin + result[j] := tx_titulo[j] + ' (ID:' + id_titulo[j] + + ') no valor nominal de ' + vl_titulo[j] + ' com vencimento em ' + + dt_venc[j] + '.'; + end; + end; +end; + +procedure TfrmFechamento.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmFechamentoAtendimento.dfm b/ufrmFechamentoAtendimento.dfm new file mode 100644 index 0000000..e3ba700 --- /dev/null +++ b/ufrmFechamentoAtendimento.dfm @@ -0,0 +1,165 @@ +inherited frmFechamentoAtendimento: TfrmFechamentoAtendimento + Caption = 'Fechamento' + ClientHeight = 302 + ClientWidth = 394 + Color = clBtnHighlight + ExplicitWidth = 400 + ExplicitHeight = 330 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 283 + Width = 394 + ExplicitTop = 283 + ExplicitWidth = 235 + end + object pnl_fundo: TPanel + Left = 0 + Top = 0 + Width = 394 + Height = 283 + Align = alClient + Color = clBtnHighlight + ParentBackground = False + TabOrder = 1 + ExplicitWidth = 235 + object lbl_text: TLabel + Left = 8 + Top = 8 + Width = 151 + Height = 13 + Caption = 'Forma de pagamento escolhida:' + end + object lbl_tppagamento: TLabel + Left = 8 + Top = 63 + Width = 95 + Height = 13 + Caption = 'Tipo de pagamento:' + end + object lbl_tppagamento1: TLabel + Left = 72 + Top = 95 + Width = 35 + Height = 13 + Caption = #192' vista:' + end + object lbl_tppagamento2: TLabel + Left = 72 + Top = 127 + Width = 44 + Height = 13 + Caption = 'Parcelas:' + Enabled = False + end + object cbx_quit: TCheckBox + Left = 112 + Top = 34 + Width = 97 + Height = 17 + Caption = 'Quita'#231#227'o' + TabOrder = 0 + OnClick = cbx_quitClick + end + object cbx_par: TCheckBox + Left = 215 + Top = 34 + Width = 97 + Height = 17 + Caption = 'Parcelamento' + TabOrder = 1 + OnClick = cbx_parClick + end + object btn_ok: TButton + Left = 207 + Top = 251 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 2 + OnClick = btn_okClick + end + object btn_cancel: TButton + Left = 302 + Top = 252 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 3 + end + object cbx_tppagamento1: TComboBox + Left = 127 + Top = 92 + Width = 161 + Height = 21 + Style = csDropDownList + TabOrder = 4 + end + object cbx_tppagamento2: TComboBox + Left = 127 + Top = 124 + Width = 161 + Height = 21 + Style = csDropDownList + Enabled = False + TabOrder = 5 + Items.Strings = ( + 'Dinheiro' + 'D'#233'bito' + 'Cr'#233'dito' + 'Cheque') + end + object cbx_empacord: TCheckBox + Left = 24 + Top = 160 + Width = 161 + Height = 17 + Caption = 'Vincular acordo a cobradora' + Enabled = False + TabOrder = 6 + OnClick = cbx_empacordClick + end + object cb_multi: TCheckBox + Left = 24 + Top = 228 + Width = 177 + Height = 17 + Caption = 'V'#225'rias formas de pagamento' + TabOrder = 7 + end + object dblucb_empsacordo: TDBLookupComboBox + Left = 8 + Top = 192 + Width = 369 + Height = 21 + Enabled = False + KeyField = 'ID_EMPRESA' + ListField = 'TX_FANTASIA' + ListSource = dtsAcordosEmp + TabOrder = 8 + end + end + object dtsAcordosEmp: TDataSource + DataSet = zroqryAcordosEmp + Left = 328 + Top = 128 + end + object zroqryAcordosEmp: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'SELECT FIRST 0 ID_EMPRESA, TX_FANTASIA FROM CHG_EMPRESAS') + Params = <> + Left = 328 + Top = 72 + object zroqryAcordosEmpID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zroqryAcordosEmpTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 100 + end + end +end diff --git a/ufrmFechamentoAtendimento.pas b/ufrmFechamentoAtendimento.pas new file mode 100644 index 0000000..55db24e --- /dev/null +++ b/ufrmFechamentoAtendimento.pas @@ -0,0 +1,239 @@ +unit ufrmFechamentoAtendimento; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ExtCtrls, + Vcl.ComCtrls, Vcl.DBCtrls, Data.DB, ZAbstractRODataset, ZDataset; + +type + TfrmFechamentoAtendimento = class(TmstMaster) + cbx_quit: TCheckBox; + cbx_par: TCheckBox; + lbl_text: TLabel; + pnl_fundo: TPanel; + btn_ok: TButton; + btn_cancel: TButton; + lbl_tppagamento: TLabel; + cbx_tppagamento1: TComboBox; + lbl_tppagamento1: TLabel; + lbl_tppagamento2: TLabel; + cbx_tppagamento2: TComboBox; + cbx_empacord: TCheckBox; + cb_multi: TCheckBox; + dblucb_empsacordo: TDBLookupComboBox; + dtsAcordosEmp: TDataSource; + zroqryAcordosEmp: TZReadOnlyQuery; + zroqryAcordosEmpID_EMPRESA: TIntegerField; + zroqryAcordosEmpTX_FANTASIA: TWideStringField; + procedure cbx_quitClick(Sender: TObject); + procedure cbx_parClick(Sender: TObject); + procedure btn_okClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cbx_empacordClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmFechamentoAtendimento: TfrmFechamentoAtendimento; + +implementation + +{$R *.dfm} + +uses ufrmAtendimento, udtmSystem; + +procedure TfrmFechamentoAtendimento.btn_okClick(Sender: TObject); +begin + if (not cbx_quit.Checked) and (not cbx_par.Checked) then + begin + MessageDlg('Por favor selecione uma forma de pagamento.', mtWarning, + [mbOK], 0); + ModalResult := mrCancel; + abort; + end + else + begin + if cbx_quit.Checked then + begin + if strtoint(frmAtendimento.edt_nrparcelas.Text) > 0 then + begin + MessageDlg + ('O nmero de parcelas selecionadas deve ser 0 para que esta opo possa ser utilizada.', + mtInformation, [mbOK], 0); + ModalResult := mrCancel; + abort; + end; + if cbx_empacord.Checked then + begin + MessageDlg + ('Opo vincular acordo com outra empresa est marcada, mas o pagamento quitao.' + + ' Por favor verifique a forma de pagamento.', mtWarning, [mbOK], 0); + ModalResult := mrNone; + abort; + end; + frmAtendimento.forma_pagamento := 'Q'; + frmAtendimento.index_pagamento := cbx_tppagamento1.ItemIndex; + frmAtendimento.parcelas_pagamento := -1; + if (cbx_tppagamento1.ItemIndex = 0) or (cbx_tppagamento1.ItemIndex = 1) + then + begin + frmAtendimento.cb_formapag.ItemIndex := cbx_tppagamento1.ItemIndex; + end + else + begin + frmAtendimento.cb_formapag.ItemIndex := 3; + end; + frmAtendimento.cb_formapagChange(self); + end; + if cbx_par.Checked then + begin + if strtoint(frmAtendimento.edt_nrparcelas.Text) < 1 then + begin + MessageDlg + ('O nmero de parcelas selecionadas deve ser no mnimo "1" (um) para que esta opo possa ser utilizada.', + mtInformation, [mbOK], 0); + ModalResult := mrCancel; + abort; + end; + if cbx_empacord.Checked then + begin + if dblucb_empsacordo.KeyValue < 0 then + begin + MessageDlg + ('Opo vincular acordo com outra empresa est marcada, mas no foi escolhida uma empresa.' + + ' Por favor selecione uma empresa.', mtWarning, [mbOK], 0); + ModalResult := mrNone; + abort; + end + else + begin + frmAtendimento.acordo_fora := true; + frmAtendimento.acordo_emp := dblucb_empsacordo.KeyValue; + frmAtendimento.acordo_fantasia := zroqryAcordosEmpTX_FANTASIA.AsString; + end; + end; + frmAtendimento.forma_pagamento := 'P'; + frmAtendimento.index_pagamento := cbx_tppagamento1.ItemIndex; + frmAtendimento.parcelas_pagamento := cbx_tppagamento2.ItemIndex; + + // if (cbx_tppagamento2.ItemIndex = 3) then + // begin + // frmAtendimento.cb_formapag.ItemIndex := 3; + // end + // else if (cbx_tppagamento2.ItemIndex = 2) then + // begin + // frmAtendimento.cb_formapag.ItemIndex := 0; + // end + // else + // begin + if cbx_tppagamento2.ItemIndex = 1 then + begin + MessageDlg + ('Parcelamento est marcado para ser pago no dbito. Isso inconsistente.', + mtWarning, [mbOK], 0); + abort; + end; + frmAtendimento.cb_formapag.ItemIndex := cbx_tppagamento2.ItemIndex; + // end; + frmAtendimento.cb_formapagChange(self); + end; + frmAtendimento.edt_formarecebimento.Text := + UpperCase(cbx_tppagamento1.Text); + frmAtendimento.multi_form_pag := cb_multi.Checked; + end; +end; + +procedure TfrmFechamentoAtendimento.cbx_empacordClick(Sender: TObject); +begin + inherited; + dblucb_empsacordo.Enabled := cbx_empacord.Checked; +end; + +procedure TfrmFechamentoAtendimento.cbx_parClick(Sender: TObject); +begin + if cbx_par.Checked then + begin + cbx_quit.Checked := not cbx_par.Checked; + lbl_tppagamento1.Caption := 'Entrada:'; + cbx_tppagamento1.Clear; + cbx_tppagamento1.Items.Add('Dinheiro'); + cbx_tppagamento1.Items.Add('Dbito'); + cbx_tppagamento1.Items.Add('Cheque'); + cbx_tppagamento1.Items.Add('Crdito'); + cbx_tppagamento1.ItemIndex := 0; + lbl_tppagamento2.Enabled := cbx_par.Checked; + cbx_tppagamento2.Enabled := cbx_par.Checked; + cbx_tppagamento2.ItemIndex := 0; + cbx_empacord.Enabled := true; + end + else + begin + cbx_empacord.Enabled := false; + end; +end; + +procedure TfrmFechamentoAtendimento.cbx_quitClick(Sender: TObject); +begin + if cbx_quit.Checked then + begin + cbx_par.Checked := not cbx_quit.Checked; + lbl_tppagamento1.Caption := ' vista:'; + cbx_tppagamento1.Clear; + cbx_tppagamento1.Items.Add('Dinheiro'); + cbx_tppagamento1.Items.Add('Dbito'); + cbx_tppagamento1.Items.Add('Cheque'); + cbx_tppagamento1.ItemIndex := 0; + lbl_tppagamento2.Enabled := not cbx_quit.Checked; + cbx_tppagamento2.Enabled := not cbx_quit.Checked; + cbx_tppagamento2.ItemIndex := -1; + cbx_empacord.Enabled := false; + end; +end; + +procedure TfrmFechamentoAtendimento.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + zroqryAcordosEmp.Close; +end; + +procedure TfrmFechamentoAtendimento.FormCreate(Sender: TObject); +begin + inherited; + frmAtendimento.acordo_fora := false; + zroqryAcordosEmp.SQL.Text := 'SELECT ID_EMPRESA, TX_FANTASIA FROM CHG_EMPRESAS ORDER BY TX_FANTASIA'; + zroqryAcordosEmp.Open; +end; + +procedure TfrmFechamentoAtendimento.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmFechamentoDevedor.dfm b/ufrmFechamentoDevedor.dfm new file mode 100644 index 0000000..e02e4da --- /dev/null +++ b/ufrmFechamentoDevedor.dfm @@ -0,0 +1,106 @@ +inherited frmFechamentoDevedor: TfrmFechamentoDevedor + Caption = 'Fechamento' + ClientHeight = 219 + ClientWidth = 187 + ExplicitWidth = 193 + ExplicitHeight = 247 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 200 + Width = 187 + ExplicitTop = 200 + ExplicitWidth = 187 + end + object pnl_fundo: TPanel + Left = 0 + Top = 0 + Width = 187 + Height = 200 + Align = alClient + BevelInner = bvLowered + Color = clBtnHighlight + ParentBackground = False + TabOrder = 1 + object lbl_ligacao: TLabel + Left = 8 + Top = 8 + Width = 138 + Height = 13 + Caption = 'Foi atendida alguma liga'#231#227'o?' + end + object lbl_situacao: TLabel + Left = 8 + Top = 54 + Width = 143 + Height = 13 + Caption = 'Qual a situa'#231#227'o da cobran'#231'a?' + end + object lbl_acordo: TLabel + Left = 8 + Top = 100 + Width = 75 + Height = 13 + Caption = 'Tipo do acordo:' + end + object cb_ligacao: TComboBox + Left = 8 + Top = 27 + Width = 171 + Height = 21 + Style = csDropDownList + TabOrder = 0 + OnChange = cb_ligacaoChange + Items.Strings = ( + 'Sim' + 'N'#227'o') + end + object cb_situacao: TComboBox + Left = 8 + Top = 73 + Width = 171 + Height = 21 + Style = csDropDownList + Enabled = False + TabOrder = 1 + OnChange = cb_situacaoChange + Items.Strings = ( + 'Fechou acordo' + 'N'#227'o aceitou acordo' + 'Acordo a ser considerado' + 'Recado') + end + object cb_acordo: TComboBox + Left = 8 + Top = 119 + Width = 171 + Height = 21 + Style = csDropDownList + Enabled = False + TabOrder = 2 + Items.Strings = ( + 'Quita'#231#227'o' + 'Financiamento') + end + object btncontinuar: TButton + Left = 8 + Top = 168 + Width = 75 + Height = 25 + Caption = 'Continuar' + Enabled = False + ModalResult = 1 + TabOrder = 3 + OnClick = btncontinuarClick + end + object btncancel: TButton + Left = 104 + Top = 168 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 4 + end + end +end diff --git a/ufrmFechamentoDevedor.pas b/ufrmFechamentoDevedor.pas new file mode 100644 index 0000000..077c71a --- /dev/null +++ b/ufrmFechamentoDevedor.pas @@ -0,0 +1,541 @@ +unit ufrmFechamentoDevedor; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ExtCtrls, + Vcl.ComCtrls, DateUtils; + +type + TStringDynArray = array of string; + +type + TfrmFechamentoDevedor = class(TmstMaster) + pnl_fundo: TPanel; + lbl_ligacao: TLabel; + cb_ligacao: TComboBox; + lbl_situacao: TLabel; + cb_situacao: TComboBox; + lbl_acordo: TLabel; + cb_acordo: TComboBox; + btncontinuar: TButton; + btncancel: TButton; + procedure cb_ligacaoChange(Sender: TObject); + procedure cb_situacaoChange(Sender: TObject); + procedure btncontinuarClick(Sender: TObject); + private + function EscreveTitulos(): TStringDynArray; + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmFechamento: TfrmFechamentoDevedor; + +implementation + +{$R *.dfm} + +uses udtmSystem, System.UITypes, ucadDevedores; + +procedure TfrmFechamentoDevedor.cb_ligacaoChange(Sender: TObject); +begin + inherited; + if cb_ligacao.ItemIndex = 0 then + begin + cb_situacao.Enabled := true; + end + else + begin + cb_situacao.Enabled := false; + cb_acordo.Enabled := false; + end; + if cb_ligacao.ItemIndex <> -1 then + begin + btncontinuar.Enabled := true; + end; +end; + +procedure TfrmFechamentoDevedor.cb_situacaoChange(Sender: TObject); +begin + inherited; + if (cb_situacao.ItemIndex = 0) or (cb_situacao.ItemIndex = 2) then + begin + cb_acordo.Enabled := true; + end + else + begin + cb_acordo.Enabled := false; + end; +end; + +procedure TfrmFechamentoDevedor.btncontinuarClick(Sender: TObject); +var + titulos: array of string; + k, i, verificador: Integer; + h: Integer; +begin + inherited; + // dtmSystem.tblProvidencias.Filter := 'ID_PROVIDENCIA > 1'; + // dtmSystem.tblProvidencias.Filtered := true; + + if (cb_acordo.ItemIndex = 0) and (cadDevedores.cb_descpar.Checked) then + begin + verificador := MessageDlg + ('Foi acordado quitar a dvida, mas descontos sobre parcelar esto ativados. Deseja continuar?', + mtConfirmation, [mbYes, mbNo], 0); + if verificador = 7 then + begin + ModalResult := mrCancel; + Abort; + end; + end; + if (cb_acordo.ItemIndex = 1) and (cadDevedores.cb_descquit.Checked) then + begin + verificador := MessageDlg + ('Foi acordado parcelar a dvida, mas descontos sobre quitar esto ativados. Deseja continuar?', + mtConfirmation, [mbYes, mbNo], 0); + if verificador = 7 then + begin + ModalResult := mrCancel; + Abort; + end; + end; + + // cadDevedores.dtp_diaagendamento.Enabled := false; + // cadDevedores.dtp_horaagendamento.Enabled := false; + // cadDevedores.dblucb_cobradoragendar.Enabled := false; + // cadDevedores.dbgrd_providencias.Enabled := true; +// if cadDevedores.btn_protocolo.Enabled then +// begin +// cadDevedores.edt_protocolo.Text := cadDevedores.gerar_protocolo +// (dtmSystem.tblDevedoresID_DEVEDOR.AsString); +// cadDevedores.edt_protocolo1.Text := cadDevedores.edt_protocolo.Text; +// cadDevedores.btn_protocolo.Enabled := false; +// end; + + cadDevedores.mb_fechamento.Clear; + + cadDevedores.mb_fechamento.Lines.Add('Cobrador: ' + dtmSystem.tx_usuario); + cadDevedores.mb_fechamento.Lines.Add(''); + + cadDevedores.mb_fechamento.Lines.Add(DateToStr(Date) + ' - ' + + TimeToStr(Time)); + cadDevedores.mb_fechamento.Lines.Add(''); + dtmSystem.tblTelefones.First; + h := 1; + while not dtmSystem.tblTelefones.Eof do + begin + if dtmSystem.tblTelefonesTP_ATIVO.AsString <> 'N' then + begin + cadDevedores.mb_fechamento.Lines.Add('Telefone n' + inttostr(h) + ': ' + + '(' + dtmSystem.tblTelefonesNR_DDD.AsString + ')' + + dtmSystem.tblTelefonesNR_NUMERO.AsString + ' - Situao: '); + Inc(h); + end; + dtmSystem.tblTelefones.Next; + end; + cadDevedores.mb_fechamento.Lines.Add(''); + { 0 = Sim; 1 = No } + if cb_ligacao.ItemIndex = 1 then + begin + // cadDevedores.mb_fechamento.Lines.Add + // ('O devedor ' + dtmSystem.tblDevedoresTX_NOME.AsString + + // ' no(s) telefone(s) __________ no atendeu a(s) chamada(s).'); + end + else + begin + setlength(titulos, length(EscreveTitulos())); + for k := 0 to length(titulos) - 1 do + begin + titulos[k] := EscreveTitulos()[k]; + end; + // cadDevedores.mb_fechamento.Lines.Add + // ('A ligao para o telefone __________ foi atendia por __________.'); + // cadDevedores.mb_fechamento.Lines.Add(''); + { cadDevedores.dtp_diaagendamento.Date := + cadDevedores.dtp_atrasorecalc.Date; + cadDevedores.dtp_horaagendamento.Time := Time; } + + { 0 = Fechou; 1 = No aceitou acordo; 2 = Acordo a ser considerado; 3 = Agendou atendente; 4 = Agendou outro cobrador } + if cb_situacao.ItemIndex = 0 then + begin + if length(titulos) > 1 then + begin + cadDevedores.mb_fechamento.Lines.Add('Foram cobrados os ttulos:'); + cadDevedores.mb_fechamento.Lines.Add(''); + end + else + begin + cadDevedores.mb_fechamento.Lines.Add('Foi cobrado o ttulo:'); + cadDevedores.mb_fechamento.Lines.Add(''); + end; + for i := 0 to length(titulos) - 1 do + begin + cadDevedores.mb_fechamento.Lines.Add(titulos[i]); + end; + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Foi fechado o seguinte acordo:'); + cadDevedores.mb_fechamento.Lines.Add(''); + { 0 = Quitao; 1 = Parcelamento } + if cb_acordo.ItemIndex = 0 then + begin + cadDevedores.mb_fechamento.Lines.Add('Forma de pagamento: Quitao.'); + cadDevedores.mb_fechamento.Lines.Add('Data para pagamento: ' + + FormatDateTime('dd/mm/yyyy', + cadDevedores.dtp_atrasorecalc.Date) + '.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Valor total corrigido: ' + + cadDevedores.edt_vlaquitar.Text + '.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Valor total nominal: ' + + cadDevedores.edt_somatitulos.Text + '.'); + if cadDevedores.cbx_txextra.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add('Valor de taxas extras: ' + + cadDevedores.edt_txextra.Text + '.'); + end; + if cadDevedores.cb_nmulta.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add('No foi cobrado multa.'); + end + else + begin + cadDevedores.mb_fechamento.Lines.Add('Valor total da multa: ' + + cadDevedores.edt_somamulta.Text + '.'); + end; + cadDevedores.mb_fechamento.Lines.Add('Valor total de juros: ' + + cadDevedores.edt_somajuros.Text + '.'); + cadDevedores.mb_fechamento.Lines.Add + ('Valor total de indicador financeiro: ' + + cadDevedores.edt_somaindicador.Text + '.'); + if cadDevedores.cb_descquit.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add + ('Foi concedido descontos conforme a seguir:'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre principal: ' + + cadDevedores.edt_principalquitar.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + cadDevedores.edt_multasquitar.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + cadDevedores.edt_jurosquitar.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add + ('Porcentagem sobre indicador financeiro: ' + + cadDevedores.edt_indquitar.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre corrigido: ' + + cadDevedores.edt_corquitar.Text + '%.'); + end; + cadDevedores.mb_fechamento.Lines.Add('Forma de Pagamento sugerida: ' + + cadDevedores.cb_formapag.Text); + // cadDevedores.mb_fechamento.Lines.Add('Valor ajustado: '+ cadDevedores.edt_vlcorpag.Text); + end; + if cb_acordo.ItemIndex = 1 then + begin + cadDevedores.mb_fechamento.Lines.Add + ('Forma de pagamento: Parcelamento.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Valor total corrigido: ' + + cadDevedores.edt_vlaquitar.Text + '.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Valor total nominal: ' + + cadDevedores.edt_somatitulos.Text + '.'); + if cadDevedores.cbx_txextra.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add('Valor de taxas extras: ' + + cadDevedores.edt_txextra.Text + '.'); + end; + cadDevedores.mb_fechamento.Lines.Add('Quantidade de parcelas: ' + + cadDevedores.edt_nrparcelas.Text + '.'); + cadDevedores.copiar_conteudoClick(Sender); + cadDevedores.mb_fechamento.Lines.Add(cadDevedores.clpbrd); + if cadDevedores.cb_nmulta.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add('No foi cobrado multa.'); + end + else + begin + cadDevedores.mb_fechamento.Lines.Add('Valor total da multa: ' + + cadDevedores.edt_somamulta.Text + '.'); + end; + cadDevedores.mb_fechamento.Lines.Add('Valor total de juros: ' + + cadDevedores.edt_somajuros.Text + '.'); + cadDevedores.mb_fechamento.Lines.Add + ('Valor total de indicador financeiro: ' + + cadDevedores.edt_somaindicador.Text + '.'); + if cadDevedores.cb_descpar.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add + ('Foi concedido descontos conforme a seguir:'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre principal: ' + + cadDevedores.edt_principalparcelas.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + cadDevedores.edt_multasparcelas.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + cadDevedores.edt_jurosparcelas.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add + ('Porcentagem sobre indicador financeiro: ' + + cadDevedores.edt_indparcelas.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre corrigido: ' + + cadDevedores.edt_corpar.Text + '%.'); + end; + cadDevedores.mb_fechamento.Lines.Add('Forma de Pagamento sugerida: ' + + cadDevedores.cb_formapag.Text); + end; + end; + if cb_situacao.ItemIndex = 1 then + begin + if length(titulos) > 1 then + begin + cadDevedores.mb_fechamento.Lines.Add('Foram cobrados os ttulos:'); + cadDevedores.mb_fechamento.Lines.Add(''); + end + else + begin + cadDevedores.mb_fechamento.Lines.Add('Foi cobrado o ttulo:'); + cadDevedores.mb_fechamento.Lines.Add(''); + end; + for i := 0 to length(titulos) - 1 do + begin + cadDevedores.mb_fechamento.Lines.Add(titulos[i]); + end; + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Nenhum acordo foi fechado.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add + ('O motivo do no fechamento foi: __________.'); + end; + if cb_situacao.ItemIndex = 2 then + begin + if length(titulos) > 1 then + begin + cadDevedores.mb_fechamento.Lines.Add('Foram cobrados os ttulos:'); + cadDevedores.mb_fechamento.Lines.Add(''); + end + else + begin + cadDevedores.mb_fechamento.Lines.Add('Foi cobrado o ttulo:'); + cadDevedores.mb_fechamento.Lines.Add(''); + end; + for i := 0 to length(titulos) - 1 do + begin + cadDevedores.mb_fechamento.Lines.Add(titulos[i]); + end; + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add + ('Foi oferecido ao devedor o seguinte acordo a ser considerado: '); + + cadDevedores.mb_fechamento.Lines.Add('Forma de pagamento: Quitao.'); + cadDevedores.mb_fechamento.Lines.Add('Data para pagamento: ' + + FormatDateTime('dd/mm/yyyy', cadDevedores.dtp_atrasorecalc.Date) + '.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Valor total corrigido: ' + + cadDevedores.edt_vlaquitar.Text + '.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Valor total nominal: ' + + cadDevedores.edt_somatitulos.Text + '.'); + if cadDevedores.cbx_txextra.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add('Valor de taxas extras: ' + + cadDevedores.edt_txextra.Text + '.'); + end; + if cadDevedores.cb_nmulta.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add('No foi cobrado multa.'); + end + else + begin + cadDevedores.mb_fechamento.Lines.Add('Valor total da multa: ' + + cadDevedores.edt_somamulta.Text + '.'); + end; + cadDevedores.mb_fechamento.Lines.Add('Valor total de juros: ' + + cadDevedores.edt_somajuros.Text + '.'); + cadDevedores.mb_fechamento.Lines.Add + ('Valor total de indicador financeiro: ' + + cadDevedores.edt_somaindicador.Text + '.'); + if cadDevedores.cb_descquit.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add + ('Foi concedido descontos conforme a seguir:'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre principal: ' + + cadDevedores.edt_principalquitar.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + cadDevedores.edt_multasquitar.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + cadDevedores.edt_jurosquitar.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add + ('Porcentagem sobre indicador financeiro: ' + + cadDevedores.edt_indquitar.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre corrigido: ' + + cadDevedores.edt_corquitar.Text + '%.'); + end; + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Forma de pagamento: Parcelamento.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Valor total corrigido: ' + + cadDevedores.edt_vlaquitar.Text + '.'); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add('Valor total nominal: ' + + cadDevedores.edt_somatitulos.Text + '.'); + if cadDevedores.cbx_txextra.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add('Valor de taxas extras: ' + + cadDevedores.edt_txextra.Text + '.'); + end; + cadDevedores.mb_fechamento.Lines.Add('Quantidade de parcelas: ' + + cadDevedores.edt_nrparcelas.Text + '.'); + cadDevedores.copiar_conteudoClick(Sender); + cadDevedores.mb_fechamento.Lines.Add(cadDevedores.clpbrd); + if cadDevedores.cb_nmulta.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add('No foi cobrado multa.'); + end + else + begin + cadDevedores.mb_fechamento.Lines.Add('Valor total da multa: ' + + cadDevedores.edt_somamulta.Text + '.'); + end; + cadDevedores.mb_fechamento.Lines.Add('Valor total de juros: ' + + cadDevedores.edt_somajuros.Text + '.'); + cadDevedores.mb_fechamento.Lines.Add + ('Valor total de indicador financeiro: ' + + cadDevedores.edt_somaindicador.Text + '.'); + if cadDevedores.cb_descpar.Checked then + begin + cadDevedores.mb_fechamento.Lines.Add + ('Foi concedido descontos conforme a seguir:'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre principal: ' + + cadDevedores.edt_principalparcelas.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre multa: ' + + cadDevedores.edt_multasparcelas.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre juros: ' + + cadDevedores.edt_jurosparcelas.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add + ('Porcentagem sobre indicador financeiro: ' + + cadDevedores.edt_indparcelas.Text + '%.'); + cadDevedores.mb_fechamento.Lines.Add('Porcentagem sobre corrigido: ' + + cadDevedores.edt_corpar.Text + '%.'); + end; + end; + if cb_situacao.ItemIndex = 3 then + begin + // cadDevedores.dtp_diaagendamento.Enabled := true; + // cadDevedores.dtp_horaagendamento.Enabled := true; + cadDevedores.mb_fechamento.Lines.Add + ('Foi agendado para o dia __/__/____ s __:__ .'); + cadDevedores.mb_fechamento.Lines.Add(''); + // if length(titulos) > 1 then + // begin + // cadDevedores.mb_fechamento.Lines.Add + // ('Foram cobrados os ttulos:'); + // cadDevedores.mb_fechamento.Lines.Add(''); + // end + // else + // begin + // cadDevedores.mb_fechamento.Lines.Add('Foi cobrado o ttulo:'); + // cadDevedores.mb_fechamento.Lines.Add(''); + // end; + // for i := 0 to length(titulos) - 1 do + // begin + // cadDevedores.mb_fechamento.Lines.Add(titulos[i]); + // end; + // cadDevedores.mb_fechamento.Lines.Add(''); + // cadDevedores.mb_fechamento.Lines.Add + // ('Foi oferecido ao devedor o seguinte acordo: '); + end; + if (cadDevedores.cbx_txextra.Checked) and (StrToCurr(cadDevedores.edt_txextra.Text) > 0) then + begin + cadDevedores.mb_fechamento.Lines.Add(''); + cadDevedores.mb_fechamento.Lines.Add + ('Taxa extra cobrada: ' + (cadDevedores.edt_txextra.Text)); + end; + // if cb_situacao.ItemIndex = 4 then + // begin + /// / cadDevedores.dtp_diaagendamento.Enabled := true; + /// / cadDevedores.dtp_horaagendamento.Enabled := true; + /// / cadDevedores.dblucb_cobradoragendar.Enabled := true; + // // dtmSystem.tblProvidencias.Filtered := false; + // cadDevedores.mb_fechamento.Lines.Add + // ('Foi agendado para o dia __/__/____ para o cobrador __________ no horrio de atendimento __:__.'); + // // dtmSystem.tblProvidencias.First; + // cadDevedores.edt_prov.Text := + // dtmSystem.tblProvidenciasTX_NOME.AsString; + // cadDevedores.mb_fechamento.Lines.Add('Providncia tomada: ' + + // dtmSystem.tblProvidenciasTX_NOME.AsString + '.'); + // // dtmSystem.tblProvidencias.DisableControls; + // // cadDevedores.dbgrd_providencias.Enabled := false; + // end; + end; +end; + +function TfrmFechamentoDevedor.EscreveTitulos(): TStringDynArray; +var + count, i, j: Integer; + tx_titulo, vl_titulo, id_titulo, dt_venc: array of string; +begin + count := 0; + with cadDevedores do + begin + for i := 0 to lv_titulos.Items.count - 1 do + begin + if lv_titulos.Items.Item[i].Checked then + begin + count := count + 1; + setlength(tx_titulo, count); + setlength(id_titulo, count); + setlength(vl_titulo, count); + setlength(dt_venc, count); + queryListaTitulos.RecNo := i + 1; + tx_titulo[count - 1] := queryListaTitulosTX_PRODUTO.AsString; + id_titulo[count - 1] := queryListaTitulosID_TITULO.AsString; + vl_titulo[count - 1] := + CurrToStrF(queryListaTitulosVL_TITULO.AsCurrency, ffCurrency, 2); + dt_venc[count - 1] := + DateToStr(Dateof(queryListaTitulosDT_VENCIMENTO.AsDateTime)); + end; + end; + setlength(result, count); + for j := 0 to count - 1 do + begin + result[j] := tx_titulo[j] + ' (ID:' + id_titulo[j] + + ') no valor nominal de ' + vl_titulo[j] + ' com vencimento em ' + + dt_venc[j] + '.'; + end; + end; +end; + +procedure TfrmFechamentoDevedor.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmFichaTitulos.dfm b/ufrmFichaTitulos.dfm new file mode 100644 index 0000000..b9758ae --- /dev/null +++ b/ufrmFichaTitulos.dfm @@ -0,0 +1,214 @@ +inherited frmFichaTitulos: TfrmFichaTitulos + Caption = 'Ficha de constata'#231#227'o de t'#237'tulos' + ClientHeight = 169 + OnShow = FormShow + ExplicitWidth = 384 + ExplicitHeight = 197 + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel [0] + Left = 8 + Top = 17 + Width = 31 + Height = 13 + Caption = 'Credor' + end + inherited stbStatus: TStatusBar + Top = 150 + ExplicitTop = 125 + end + object dblulb_credores: TDBLookupComboBox + Left = 8 + Top = 36 + Width = 362 + Height = 21 + KeyField = 'ID_EMPRESA' + ListField = 'TX_NOME' + ListSource = dtsCredores + TabOrder = 1 + end + object Button1: TButton + Left = 8 + Top = 112 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 2 + OnClick = Button1Click + end + object Button2: TButton + Left = 295 + Top = 112 + Width = 75 + Height = 25 + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 3 + end + object CheckBox1: TCheckBox + Left = 8 + Top = 72 + Width = 137 + Height = 17 + Caption = 'Incluir t'#237'tulos baixados' + TabOrder = 4 + end + object dtsCredores: TDataSource + DataSet = zroqryCredores + Left = 336 + Top = 8 + end + object zroqryCredores: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from chg_empresas') + Params = <> + Left = 264 + Top = 8 + object zroqryCredoresID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zroqryCredoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + object zroqryCredoresTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 100 + end + object zroqryCredoresTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + object zroqryCredoresTX_IE: TWideStringField + FieldName = 'TX_IE' + end + object zroqryCredoresTX_ENDERECO: TWideStringField + FieldName = 'TX_ENDERECO' + Size = 100 + end + object zroqryCredoresTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + end + object zroqryCredoresID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object zroqryCredoresTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 60 + end + object zroqryCredoresID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object zroqryCredoresTX_CEP: TWideStringField + FieldName = 'TX_CEP' + Size = 9 + end + object zroqryCredoresTX_TELEFONE: TWideStringField + FieldName = 'TX_TELEFONE' + Size = 40 + end + object zroqryCredoresTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 60 + end + object zroqryCredoresTX_WEBSITE: TWideStringField + FieldName = 'TX_WEBSITE' + Size = 60 + end + object zroqryCredoresNR_NUMERO: TIntegerField + FieldName = 'NR_NUMERO' + end + object zroqryCredoresTX_IM: TWideStringField + FieldName = 'TX_IM' + end + object zroqryCredoresTL_OBSERVACOES: TWideMemoField + FieldName = 'TL_OBSERVACOES' + BlobType = ftWideMemo + end + object zroqryCredoresID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object zroqryCredoresTP_ENTRADA: TWideStringField + FieldName = 'TP_ENTRADA' + Required = True + Size = 2 + end + object zroqryCredoresPR_MULTA: TFloatField + FieldName = 'PR_MULTA' + Required = True + end + object zroqryCredoresPR_JUROS: TFloatField + FieldName = 'PR_JUROS' + Required = True + end + object zroqryCredoresNR_PARCELAS: TIntegerField + FieldName = 'NR_PARCELAS' + end + object zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField + FieldName = 'PR_DESC_QUIT_PRIN' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField + FieldName = 'PR_DESC_QUIT_JUROS' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField + FieldName = 'PR_DESC_QUIT_MULTA' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField + FieldName = 'PR_DESC_QUIT_IND_FIN' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_COR: TFloatField + FieldName = 'PR_DESC_QUIT_COR' + end + object zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField + FieldName = 'PR_DESC_FINAN_PRIN' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField + FieldName = 'PR_DESC_FINAN_JUROS' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField + FieldName = 'PR_DESC_FINAN_MULTA' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField + FieldName = 'PR_DESC_FINAN_IND_FIN' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_COR: TFloatField + FieldName = 'PR_DESC_FINAN_COR' + end + object zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField + FieldName = 'PR_INDICADOR_FINANCEIRO' + Required = True + end + object zroqryCredoresPR_JUROS_PARCELAR: TFloatField + FieldName = 'PR_JUROS_PARCELAR' + end + object zroqryCredoresPR_ENTRADA_MIN: TFloatField + FieldName = 'PR_ENTRADA_MIN' + end + object zroqryCredoresPR_ENTRADA_MAX: TFloatField + FieldName = 'PR_ENTRADA_MAX' + end + object zroqryCredoresTP_CHEQUE: TWideStringField + FieldName = 'TP_CHEQUE' + Size = 1 + end + object zroqryCredoresTP_CRED: TWideStringField + FieldName = 'TP_CRED' + Size = 1 + end + object zroqryCredoresTP_DIN: TWideStringField + FieldName = 'TP_DIN' + Size = 1 + end + end +end diff --git a/ufrmFichaTitulos.pas b/ufrmFichaTitulos.pas new file mode 100644 index 0000000..a9c3d5e --- /dev/null +++ b/ufrmFichaTitulos.pas @@ -0,0 +1,97 @@ +unit ufrmFichaTitulos; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, Vcl.StdCtrls, + Vcl.DBCtrls, Vcl.ComCtrls, ZAbstractRODataset, ZDataset; + +type + TfrmFichaTitulos = class(TmstMaster) + dblulb_credores: TDBLookupComboBox; + Button1: TButton; + Button2: TButton; + Label1: TLabel; + dtsCredores: TDataSource; + zroqryCredores: TZReadOnlyQuery; + zroqryCredoresID_EMPRESA: TIntegerField; + zroqryCredoresTX_NOME: TWideStringField; + zroqryCredoresTX_FANTASIA: TWideStringField; + zroqryCredoresTX_CNPJ: TWideStringField; + zroqryCredoresTX_IE: TWideStringField; + zroqryCredoresTX_ENDERECO: TWideStringField; + zroqryCredoresTX_COMPLEMENTO: TWideStringField; + zroqryCredoresID_CIDADE: TIntegerField; + zroqryCredoresTX_BAIRRO: TWideStringField; + zroqryCredoresID_ESTADO: TIntegerField; + zroqryCredoresTX_CEP: TWideStringField; + zroqryCredoresTX_TELEFONE: TWideStringField; + zroqryCredoresTX_EMAIL: TWideStringField; + zroqryCredoresTX_WEBSITE: TWideStringField; + zroqryCredoresNR_NUMERO: TIntegerField; + zroqryCredoresTX_IM: TWideStringField; + zroqryCredoresTL_OBSERVACOES: TWideMemoField; + zroqryCredoresID_REPASSE: TIntegerField; + zroqryCredoresTP_ENTRADA: TWideStringField; + zroqryCredoresPR_MULTA: TFloatField; + zroqryCredoresPR_JUROS: TFloatField; + zroqryCredoresNR_PARCELAS: TIntegerField; + zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField; + zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField; + zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField; + zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField; + zroqryCredoresPR_DESC_QUIT_COR: TFloatField; + zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField; + zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField; + zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField; + zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField; + zroqryCredoresPR_DESC_FINAN_COR: TFloatField; + zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField; + zroqryCredoresPR_JUROS_PARCELAR: TFloatField; + zroqryCredoresPR_ENTRADA_MIN: TFloatField; + zroqryCredoresPR_ENTRADA_MAX: TFloatField; + zroqryCredoresTP_CHEQUE: TWideStringField; + zroqryCredoresTP_CRED: TWideStringField; + zroqryCredoresTP_DIN: TWideStringField; + CheckBox1: TCheckBox; + procedure Button1Click(Sender: TObject); + procedure FormShow(Sender: TObject); + private + { Private declarations } + public + inc_baixados: boolean; + { Public declarations } + end; + +var + frmFichaTitulos: TfrmFichaTitulos; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmFichaTitulos.Button1Click(Sender: TObject); +begin + if dblulb_credores.KeyValue = Null then + begin + Messagedlg('Por favor selecione a empresa da qual o devedor possui ttulos.',mtWarning,[mbok],0); + abort; + end + else + begin + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA',dblulb_credores.KeyValue,[]); + inc_baixados := CheckBox1.Checked; + end; +end; + +procedure TfrmFichaTitulos.FormShow(Sender: TObject); +begin + inherited; + dblulb_credores.ListSource.DataSet.First; + dblulb_credores.KeyValue := dblulb_credores.ListSource.DataSet.FieldByName('ID_EMPRESA').AsInteger; +end; + +end. diff --git a/ufrmGrupoBoletoEmpresas.dfm b/ufrmGrupoBoletoEmpresas.dfm new file mode 100644 index 0000000..b7b7862 --- /dev/null +++ b/ufrmGrupoBoletoEmpresas.dfm @@ -0,0 +1,490 @@ +inherited frmGrupoBoletoEmpresas: TfrmGrupoBoletoEmpresas + Caption = 'Grupo de Empresas para Boleto' + ClientHeight = 527 + ClientWidth = 817 + ExplicitWidth = 833 + ExplicitHeight = 565 + PixelsPerInch = 96 + TextHeight = 13 + inherited GroupBox2: TGroupBox + Top = 200 + Width = 803 + Height = 302 + ExplicitTop = 200 + ExplicitWidth = 803 + ExplicitHeight = 302 + inherited pcClientes: TPageControl + Width = 788 + Height = 288 + ExplicitWidth = 788 + ExplicitHeight = 288 + inherited tabCadastro: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 780 + ExplicitHeight = 260 + object DBNavigator1: TDBNavigator + Left = 3 + Top = 16 + Width = 480 + Height = 41 + DataSource = dtsDB2 + TabOrder = 0 + end + object DBGrid1: TDBGrid + Left = 3 + Top = 119 + Width = 643 + Height = 120 + DataSource = dtmSystem.dtsGrupoBoletoEmpresas + Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_EMPRESA' + Visible = True + end> + end + object DBLookupComboBox1: TDBLookupComboBox + Left = 3 + Top = 80 + Width = 480 + Height = 21 + DataField = 'ID_EMPRESA' + DataSource = dtmSystem.dtsGrupoBoletoEmpresas + KeyField = 'ID_EMPRESA' + ListField = 'TX_FANTASIA' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 2 + end + end + end + end + inherited stbStatus: TStatusBar + Top = 508 + Width = 817 + ExplicitTop = 508 + ExplicitWidth = 817 + end + inherited grpDescricao: TGroupBox + Width = 803 + Height = 139 + ExplicitWidth = 803 + ExplicitHeight = 139 + object Label1: TLabel [1] + Left = 12 + Top = 51 + Width = 46 + Height = 13 + Caption = 'Descri'#231#227'o' + end + inherited DBEdit1: TDBEdit + Width = 245 + DataField = 'TX_NOME' + ExplicitWidth = 245 + end + object DBMemo1: TDBMemo + Left = 12 + Top = 70 + Width = 245 + Height = 55 + DataField = 'TX_DESCRICAO' + DataSource = dtsDB + ScrollBars = ssVertical + TabOrder = 1 + end + object PageControl1: TPageControl + Left = 263 + Top = 3 + Width = 537 + Height = 130 + ActivePage = TabSheet1 + Style = tsButtons + TabOrder = 2 + object TabSheet1: TTabSheet + Caption = 'Desconto 1' + object Label2: TLabel + Left = 320 + Top = 19 + Width = 28 + Height = 13 + Caption = 'Taxa:' + end + object Label3: TLabel + Left = 320 + Top = 46 + Width = 28 + Height = 13 + Caption = 'Valor:' + end + object Label4: TLabel + Left = 320 + Top = 74 + Width = 27 + Height = 13 + Caption = 'Data:' + end + object DBRadioGroup1: TDBRadioGroup + Left = -4 + Top = -15 + Width = 300 + Height = 118 + DataField = 'TP_DESC1' + DataSource = dtsDB + Items.Strings = ( + 'N'#227'o tem desconto.' + 'Valor fixo at'#233' data informada.' + 'Percentual at'#233' data informada.' + 'Valor por antecipa'#231#227'o (dia corrido).' + 'Valor por antecipa'#231#227'o (dia '#250'til).' + 'Percentual sobre o valor nominal por dia corrido.' + 'Percentual sobre o valor nominal por dia '#250'til.') + TabOrder = 0 + Values.Strings = ( + '0' + '1' + '2' + '3' + '4' + '5' + '6') + end + object DBEdit2: TDBEdit + Left = 376 + Top = 16 + Width = 121 + Height = 21 + DataField = 'PR_DESC1' + DataSource = dtsDB + TabOrder = 1 + end + object DBEdit3: TDBEdit + Left = 376 + Top = 43 + Width = 121 + Height = 21 + DataField = 'NR_DESC1' + DataSource = dtsDB + TabOrder = 2 + end + object rDBDateTimePicker1: TrDBDateTimePicker + Left = 376 + Top = 70 + Width = 121 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 4 + DataField = 'DT_DESC1' + DataSource = dtsDB + ReadOnly = True + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + end + object TabSheet2: TTabSheet + Caption = 'Desconto 2' + ImageIndex = 1 + object Label5: TLabel + Left = 320 + Top = 74 + Width = 27 + Height = 13 + Caption = 'Data:' + end + object Label6: TLabel + Left = 320 + Top = 46 + Width = 28 + Height = 13 + Caption = 'Valor:' + end + object Label7: TLabel + Left = 320 + Top = 19 + Width = 28 + Height = 13 + Caption = 'Taxa:' + end + object DBRadioGroup2: TDBRadioGroup + Left = -4 + Top = -15 + Width = 300 + Height = 118 + DataField = 'TP_DESC2' + DataSource = dtsDB + Items.Strings = ( + 'N'#227'o tem desconto.' + 'Valor fixo at'#233' data informada.' + 'Percentual at'#233' data informada.' + 'Valor por antecipa'#231#227'o (dia corrido).' + 'Valor por antecipa'#231#227'o (dia '#250'til).' + 'Percentual sobre o valor nominal por dia corrido.' + 'Percentual sobre o valor nominal por dia '#250'til.') + TabOrder = 1 + Values.Strings = ( + '0' + '1' + '2' + '3' + '4' + '5' + '6') + end + object DBEdit4: TDBEdit + Left = 376 + Top = 43 + Width = 121 + Height = 21 + DataField = 'NR_DESC2' + DataSource = dtsDB + TabOrder = 0 + end + object rDBDateTimePicker2: TrDBDateTimePicker + Left = 376 + Top = 70 + Width = 121 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 3 + DataField = 'DT_DESC2' + DataSource = dtsDB + ReadOnly = True + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object DBEdit5: TDBEdit + Left = 376 + Top = 16 + Width = 121 + Height = 21 + DataField = 'PR_DESC2' + DataSource = dtsDB + TabOrder = 4 + end + end + object TabSheet3: TTabSheet + Caption = 'Desconto 3' + ImageIndex = 2 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object Label8: TLabel + Left = 320 + Top = 74 + Width = 27 + Height = 13 + Caption = 'Data:' + end + object Label9: TLabel + Left = 320 + Top = 46 + Width = 28 + Height = 13 + Caption = 'Valor:' + end + object Label10: TLabel + Left = 320 + Top = 19 + Width = 28 + Height = 13 + Caption = 'Taxa:' + end + object DBRadioGroup3: TDBRadioGroup + Left = -4 + Top = -15 + Width = 300 + Height = 118 + DataField = 'TP_DESC3' + DataSource = dtsDB + Items.Strings = ( + 'N'#227'o tem desconto.' + 'Valor fixo at'#233' data informada.' + 'Percentual at'#233' data informada.' + 'Valor por antecipa'#231#227'o (dia corrido).' + 'Valor por antecipa'#231#227'o (dia '#250'til).' + 'Percentual sobre o valor nominal por dia corrido.' + 'Percentual sobre o valor nominal por dia '#250'til.') + TabOrder = 1 + Values.Strings = ( + '0' + '1' + '2' + '3' + '4' + '5' + '6') + end + object DBEdit6: TDBEdit + Left = 376 + Top = 16 + Width = 121 + Height = 21 + DataField = 'PR_DESC3' + DataSource = dtsDB + TabOrder = 0 + end + object rDBDateTimePicker3: TrDBDateTimePicker + Left = 376 + Top = 70 + Width = 121 + Height = 21 + Date = 43017.406126562500000000 + Time = 43017.406126562500000000 + TabOrder = 3 + DataField = 'DT_DESC3' + DataSource = dtsDB + ReadOnly = True + DBEditLabel.OwnCaption = 'Data de cadastramento:' + DBEditLabel.Visible = False + FormatEmpty = '__.__.__' + end + object DBEdit7: TDBEdit + Left = 376 + Top = 43 + Width = 121 + Height = 21 + DataField = 'NR_DESC3' + DataSource = dtsDB + TabOrder = 4 + end + end + object TabSheet4: TTabSheet + Caption = 'Multa' + ImageIndex = 3 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object Label11: TLabel + Left = 320 + Top = 19 + Width = 28 + Height = 13 + Caption = 'Taxa:' + end + object Label12: TLabel + Left = 320 + Top = 46 + Width = 28 + Height = 13 + Caption = 'Valor:' + end + object DBRadioGroup4: TDBRadioGroup + Left = -4 + Top = -15 + Width = 300 + Height = 118 + DataField = 'TP_MULTA' + DataSource = dtsDB + Items.Strings = ( + 'N'#227'o tem multa' + 'Valor Fixo' + 'Percentual') + TabOrder = 0 + Values.Strings = ( + '0' + '1' + '2') + end + object DBEdit8: TDBEdit + Left = 376 + Top = 43 + Width = 121 + Height = 21 + DataField = 'NR_MULTA' + DataSource = dtsDB + TabOrder = 1 + end + object DBEdit9: TDBEdit + Left = 376 + Top = 16 + Width = 121 + Height = 21 + DataField = 'PR_MULTA' + DataSource = dtsDB + TabOrder = 2 + end + end + object TabSheet5: TTabSheet + Caption = 'Mora' + ImageIndex = 4 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object Label13: TLabel + Left = 320 + Top = 19 + Width = 28 + Height = 13 + Caption = 'Taxa:' + end + object Label14: TLabel + Left = 320 + Top = 46 + Width = 28 + Height = 13 + Caption = 'Valor:' + end + object DBRadioGroup5: TDBRadioGroup + Left = -4 + Top = -15 + Width = 300 + Height = 118 + DataField = 'TP_MORA' + DataSource = dtsDB + Items.Strings = ( + 'Valor ao dia' + 'Taxa mensal' + 'N'#227'o h'#225' mora') + TabOrder = 0 + Values.Strings = ( + '0' + '1' + '2') + end + object DBEdit10: TDBEdit + Left = 376 + Top = 16 + Width = 121 + Height = 21 + DataField = 'PR_MORA' + DataSource = dtsDB + TabOrder = 1 + end + object DBEdit11: TDBEdit + Left = 376 + Top = 43 + Width = 121 + Height = 21 + DataField = 'NR_MORA' + DataSource = dtsDB + TabOrder = 2 + end + end + end + end + inherited navPrincipal: TDBNavigator + DataSource = dtsDB + end + inherited dtsDB: TDataSource + DataSet = dtmSystem.tblGrupoBoletos + end + object dtsDB2: TDataSource + DataSet = dtmSystem.tblGrupoBoletoEmpresas + OnStateChange = dtsDB2StateChange + Left = 592 + Top = 8 + end +end diff --git a/ufrmGrupoBoletoEmpresas.pas b/ufrmGrupoBoletoEmpresas.pas new file mode 100644 index 0000000..5f0e7d5 --- /dev/null +++ b/ufrmGrupoBoletoEmpresas.pas @@ -0,0 +1,117 @@ +unit ufrmGrupoBoletoEmpresas; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls, + Vcl.DBCtrls, + Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, rDBComponents; + +type + TfrmGrupoBoletoEmpresas = class(TmstCadastro) + DBMemo1: TDBMemo; + Label1: TLabel; + DBNavigator1: TDBNavigator; + dtsDB2: TDataSource; + DBGrid1: TDBGrid; + DBLookupComboBox1: TDBLookupComboBox; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + DBRadioGroup1: TDBRadioGroup; + DBEdit2: TDBEdit; + DBEdit3: TDBEdit; + rDBDateTimePicker1: TrDBDateTimePicker; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + TabSheet2: TTabSheet; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + DBEdit4: TDBEdit; + DBRadioGroup2: TDBRadioGroup; + rDBDateTimePicker2: TrDBDateTimePicker; + DBEdit5: TDBEdit; + TabSheet3: TTabSheet; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + DBEdit6: TDBEdit; + DBRadioGroup3: TDBRadioGroup; + rDBDateTimePicker3: TrDBDateTimePicker; + DBEdit7: TDBEdit; + TabSheet4: TTabSheet; + DBRadioGroup4: TDBRadioGroup; + Label11: TLabel; + Label12: TLabel; + DBEdit8: TDBEdit; + DBEdit9: TDBEdit; + TabSheet5: TTabSheet; + DBRadioGroup5: TDBRadioGroup; + Label13: TLabel; + Label14: TLabel; + DBEdit10: TDBEdit; + DBEdit11: TDBEdit; + procedure dtsDBStateChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure dtsDB2StateChange(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmGrupoBoletoEmpresas: TfrmGrupoBoletoEmpresas; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmGrupoBoletoEmpresas.dtsDB2StateChange(Sender: TObject); +begin + inherited; + grpDescricao.Enabled := not(dtsDB2.State in [dsInsert, dsEdit]); + navPrincipal.Enabled := not(dtsDB2.State in [dsInsert, dsEdit]); +end; + +procedure TfrmGrupoBoletoEmpresas.dtsDBStateChange(Sender: TObject); +begin + inherited; + tabCadastro.Enabled := not(dtsDB.State in [dsInsert, dsEdit]); + DBEdit1.ReadOnly := not(dtsDB.State in [dsInsert, dsEdit]); + DBMemo1.ReadOnly := not(dtsDB.State in [dsInsert, dsEdit]); + DBRadioGroup1.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBRadioGroup2.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBRadioGroup3.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBRadioGroup4.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBRadioGroup5.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit2.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit3.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit4.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit5.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit6.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit7.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit8.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit9.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit10.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + DBEdit11.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + rDBDateTimePicker1.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + rDBDateTimePicker2.Enabled := (dtsDB.State in [dsInsert, dsEdit]); + rDBDateTimePicker3.Enabled := (dtsDB.State in [dsInsert, dsEdit]); +end; + +procedure TfrmGrupoBoletoEmpresas.FormCreate(Sender: TObject); +begin + inherited; + dtsDB.DataSet.Open; + dtmSystem.tblGrupoBoletoEmpresas.Open; + dtmSystem.SetupHackedNavigator(navPrincipal, dtmSystem.ImageList1, 's'); + dtmSystem.SetupHackedNavigator(DBNavigator1, dtmSystem.ImageList1, 'n'); +end; + +end. diff --git a/ufrmImpTCC.dfm b/ufrmImpTCC.dfm new file mode 100644 index 0000000..f941619 --- /dev/null +++ b/ufrmImpTCC.dfm @@ -0,0 +1,135 @@ +inherited frmImpTCC: TfrmImpTCC + Caption = 'Importa'#231#227'o TCC' + ClientHeight = 482 + ClientWidth = 893 + Menu = mnu_main + ExplicitWidth = 899 + ExplicitHeight = 530 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_estado: TLabel [0] + Left = 8 + Top = 388 + Width = 120 + Height = 13 + Caption = 'Estado: Esperando a'#231#227'o.' + end + object Label1: TLabel [1] + Left = 222 + Top = 388 + Width = 106 + Height = 13 + Caption = 'Quantidade de linhas: ' + end + object Label2: TLabel [2] + Left = 384 + Top = 388 + Width = 61 + Height = 13 + Caption = 'Lendo linha: ' + end + object lbl_arquivo: TLabel [3] + Left = 384 + Top = 437 + Width = 42 + Height = 13 + Caption = 'Arquivo: ' + end + inherited stbStatus: TStatusBar + Top = 463 + Width = 893 + ExplicitTop = 463 + ExplicitWidth = 893 + end + object sgrd_import: TStringGrid + Left = 8 + Top = 8 + Width = 705 + Height = 369 + ColCount = 1 + FixedCols = 0 + RowCount = 1 + FixedRows = 0 + Options = [goVertLine, goHorzLine] + TabOrder = 1 + end + object pb_import: TProgressBar + Left = 8 + Top = 409 + Width = 877 + Height = 17 + TabOrder = 2 + end + object btn_baixatitulos: TButton + Left = 8 + Top = 432 + Width = 89 + Height = 25 + Caption = 'Mensalidades' + Enabled = False + TabOrder = 3 + OnClick = btn_baixatitulosClick + end + object dblucb_tcc: TDBLookupComboBox + Left = 632 + Top = 382 + Width = 253 + Height = 21 + KeyField = 'ID_EMPRESA' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 4 + end + object btn_geraracordo: TButton + Left = 103 + Top = 432 + Width = 72 + Height = 25 + Caption = 'Acordos' + Enabled = False + TabOrder = 5 + OnClick = btn_geraracordoClick + end + object clb_cobradores: TCheckListBox + Left = 719 + Top = 8 + Width = 166 + Height = 368 + TabStop = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ItemHeight = 13 + ParentFont = False + ParentShowHint = False + ScrollWidth = 10 + ShowHint = True + TabOrder = 6 + end + object btn_rel: TButton + Left = 181 + Top = 432 + Width = 75 + Height = 25 + Caption = 'Relat'#243'rio' + TabOrder = 7 + OnClick = btn_relClick + end + object mnu_main: TMainMenu + Left = 776 + Top = 8 + object Arquivo1: TMenuItem + Caption = 'Arquivo' + object mnu_abrir: TMenuItem + Caption = 'Abrir' + OnClick = mnu_abrirClick + end + end + end + object od_abrir: TOpenDialog + Left = 848 + Top = 8 + end +end diff --git a/ufrmImpTCC.pas b/ufrmImpTCC.pas new file mode 100644 index 0000000..506dc59 --- /dev/null +++ b/ufrmImpTCC.pas @@ -0,0 +1,580 @@ +unit ufrmImpTCC; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.DateUtils, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.Grids, Vcl.Menus, + Vcl.ComCtrls, System.win.ComObj, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.CheckLst; + +type + TfrmImpTCC = class(TmstMaster) + mnu_main: TMainMenu; + Arquivo1: TMenuItem; + mnu_abrir: TMenuItem; + od_abrir: TOpenDialog; + sgrd_import: TStringGrid; + pb_import: TProgressBar; + btn_baixatitulos: TButton; + lbl_estado: TLabel; + dblucb_tcc: TDBLookupComboBox; + btn_geraracordo: TButton; + clb_cobradores: TCheckListBox; + btn_rel: TButton; + Label1: TLabel; + Label2: TLabel; + lbl_arquivo: TLabel; + procedure mnu_abrirClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure btn_baixatitulosClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure btn_geraracordoClick(Sender: TObject); + procedure btn_relClick(Sender: TObject); + private + function CmtoPix(cm: double): integer; + { Private declarations } + public + itemList: TStringList; + { Public declarations } + end; + +var + frmImpTCC: TfrmImpTCC; + +implementation + +{$R *.dfm} + +uses udtmSystem, uconfrelRelatorioTCC; + +procedure TfrmImpTCC.btn_baixatitulosClick(Sender: TObject); +var + i, counter: integer; + achou: Boolean; + dt_venc: string; +begin + if dblucb_tcc.KeyValue = Null then + begin + MessageDlg + ('Por favor escolha qual Tech Cable o arquivo de importao pertence.', + mtWarning, [mbOK], 0); + abort; + end; + screen.cursor := crHourGlass; + lbl_estado.Caption := 'Estado: Baixando ttulos.'; + pb_import.Max := sgrd_import.RowCount - 2; + counter := 0; + for i := 1 to sgrd_import.RowCount - 1 do + begin + achou := false; + label2.Caption := 'Lendo linha: ' + sgrd_import.Cells[1, i]; + with dtmSystem do + begin + if sgrd_import.Cells[0, i] = 'F' then + begin + if tblDevedores.Locate('CD_CPF', sgrd_import.Cells[1, i], []) then + begin + achou := true; + end; + end; + if sgrd_import.Cells[0, i] = 'J' then + begin + if tblDevedores.Locate('CD_CNPJ', sgrd_import.Cells[1, i], []) then + begin + achou := true; + end; + end; + if achou then + begin + if (sgrd_import.Cells[5, i] = 'Mensalidades') then + begin + dt_venc := copy(sgrd_import.Cells[3, i], 7, 4) + '-' + + copy(sgrd_import.Cells[3, i], 4, 2) + '-' + + copy(sgrd_import.Cells[3, i], 1, 2); + if tblTitulos.Locate('DT_VENCIMENTO;VL_TITULO', + Vararrayof([dt_venc, sgrd_import.Cells[7, i]]), []) then + begin + if tblTitulosTP_SITUACAO.AsString = 'A' then + begin + tblTitulos.Edit; + if sgrd_import.Cells[12, i] = 'X' then + begin + tblTitulosTP_SITUACAO.AsString := 'QB'; + end; + if sgrd_import.Cells[12, i] = 'B' then + begin + tblTitulosTP_SITUACAO.AsString := 'QB'; + end; + if sgrd_import.Cells[6, i] <> '' then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + StrToDate(sgrd_import.Cells[6, i]); + end; + tblTitulosTX_OBS.AsString := + 'Ttulo baixado pela importao TCC.'; + if sgrd_import.Cells[11, i] <> '' then + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + StrToCurr(stringreplace(sgrd_import.Cells[11, i], '.', ',', + [rfReplaceAll])); + end; + tblTitulos.Post; + end; + end; + end; + end; + end; + Inc(counter, 1); + if counter < sgrd_import.RowCount - 2 then + begin + pb_import.Position := counter + 1; + pb_import.Position := counter; + end + else + begin + pb_import.Max := counter + 1; + pb_import.Position := counter + 1; + pb_import.Max := counter; + end; + Application.ProcessMessages; + end; + screen.cursor := crDefault; + lbl_estado.Caption := 'Estado: Terminou Mensalidades.'; + // btn_baixatitulos.Enabled := false; + // btn_geraracordo.Enabled := false; +end; + +procedure TfrmImpTCC.btn_geraracordoClick(Sender: TObject); +var + i, counter: integer; + achou, agendar: Boolean; + dt_venc, erro, dt_cad, old_id: string; + cobradores: array of string; + j, k, loop: integer; +begin + if dblucb_tcc.KeyValue = Null then + begin + MessageDlg + ('Por favor escolha qual Tech Cable o arquivo de importao pertence.', + mtWarning, [mbOK], 0); + abort; + end; + agendar := false; + screen.cursor := crHourGlass; + lbl_estado.Caption := 'Estado: Gerando acordos.'; + setlength(cobradores, 1); + k := 0; + loop := 0; + for j := 0 to clb_cobradores.Items.Count - 1 do + begin + if clb_cobradores.Checked[j] then + begin + cobradores[k] := clb_cobradores.Items[j]; + Inc(k, 1); + setlength(cobradores, k + 1); + end; + end; + setlength(cobradores, length(cobradores) - 1); + pb_import.Max := sgrd_import.RowCount - 2; + counter := 0; + old_id := ''; + for i := 1 to sgrd_import.RowCount - 1 do + begin + try + label2.Caption := 'Lendo linha: ' + sgrd_import.Cells[1, i]; + achou := false; + with dtmSystem do + begin + if sgrd_import.Cells[0, i] = 'F' then + begin + if tblDevedores.Locate('CD_CPF', sgrd_import.Cells[1, i], []) then + begin + achou := true; + end; + end; + if sgrd_import.Cells[0, i] = 'J' then + begin + if tblDevedores.Locate('CD_CNPJ', sgrd_import.Cells[1, i], []) then + begin + achou := true; + end; + end; + if achou then + begin + if old_id <> tblDevedoresID_DEVEDOR.AsString then + begin + old_id := tblDevedoresID_DEVEDOR.AsString; + agendar := true; + end; + if (sgrd_import.Cells[5, i] = 'Mensalidades') and + (sgrd_import.Cells[12, i] = 'X') then + begin + dt_venc := copy(sgrd_import.Cells[3, i], 7, 4) + '-' + + copy(sgrd_import.Cells[3, i], 4, 2) + '-' + + copy(sgrd_import.Cells[3, i], 1, 2); + if tblTitulos.Locate('DT_VENCIMENTO;VL_TITULO', + Vararrayof([dt_venc, sgrd_import.Cells[7, i]]), []) then + begin + dt_cad := sgrd_import.Cells[13, i]; + end; + end; + if (sgrd_import.Cells[4, i] = 'ENTRADA ACORDO') or + (copy(sgrd_import.Cells[4, i], 1, 2) = '99') then + begin + if dt_cad = sgrd_import.Cells[2, i] then + begin + dt_venc := copy(sgrd_import.Cells[3, i], 7, 4) + '-' + + copy(sgrd_import.Cells[3, i], 4, 2) + '-' + + copy(sgrd_import.Cells[3, i], 1, 2); + if not tblTitulos.Locate('DT_VENCIMENTO;VL_TITULO', + Vararrayof([dt_venc, sgrd_import.Cells[7, i]]), []) then + begin + tblTitulos.Append; + tblTitulosID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblTitulosID_EMPRESA.AsInteger := dblucb_tcc.KeyValue; + tblTitulosTX_PRODUTO.AsString := sgrd_import.Cells[4, i]; + if sgrd_import.Cells[10, i] <> '' then + begin + tblTitulosVL_TITULO.AsCurrency := + StrToCurr(stringreplace(sgrd_import.Cells[7, i], '.', ',', + [rfReplaceAll])); + end; + tblTitulosDT_ENTRADA.AsDateTime := + StrToDate(sgrd_import.Cells[2, i]); + tblTitulosDT_VENCIMENTO.AsDateTime := + StrToDate(sgrd_import.Cells[3, i]); + if sgrd_import.Cells[12, i] = 'A' then + begin + tblTitulosTP_SITUACAO.AsString := 'A'; + if agendar then + begin + agendar := false; + tblUsuariosConsulta.Locate('TX_NOME', cobradores[loop], []); + tblAgenda.Append; + tblAgendaID_COBRADOR.AsInteger := + tblUsuariosConsultaID_USUARIO.AsInteger; + tblAgendaID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblAgendaDT_AGENDADA.AsDateTime := + IncDay(StrToDate(sgrd_import.Cells[3, i]), 33); + tblAgendaHR_AGENDADA.AsDateTime := StrToTime('00:00:01'); + tblAgendaDT_QUE_AGENDOU.AsDateTime := Now; + tblAgendaQUEM_AGENDOU.AsInteger := id_usuario; + tblAgenda.Post; + Inc(loop, 1); + if loop = length(cobradores) then + begin + loop := 0; + end; + end; + end; + if sgrd_import.Cells[12, i] = 'B' then + begin + tblTitulosTP_SITUACAO.AsString := 'QB'; + end; + if sgrd_import.Cells[12, i] = 'X' then + begin + tblTitulosTP_SITUACAO.AsString := 'QB'; + end; + if (sgrd_import.Cells[11, i] <> '') and + (sgrd_import.Cells[11, i] <> '0') then + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + StrToCurr(stringreplace(sgrd_import.Cells[11, i], '.', ',', + [rfReplaceAll]));; + end; + if sgrd_import.Cells[6, i] <> '' then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + StrToDate(sgrd_import.Cells[6, i]); + end; + tblTitulos.Post; + end + else + begin + if tblTitulosTP_SITUACAO.AsString = 'A' then + begin + tblTitulos.Edit; + tblTitulosID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + erro := 'i'; + if sgrd_import.Cells[12, i] = 'A' then + begin + tblTitulosTP_SITUACAO.AsString := 'A'; + tblTitulosTX_OBS.AsString := + 'Ttulo criado pela importao TCC.'; + end; + if sgrd_import.Cells[12, i] = 'B' then + begin + tblTitulosTP_SITUACAO.AsString := 'QB'; + if sgrd_import.Cells[6, i] <> '' then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + StrToDate(sgrd_import.Cells[6, i]); + erro := 'h'; + end; + tblTitulosTX_OBS.AsString := + 'Ttulo criado e baixado pela importao TCC.'; + end; + if sgrd_import.Cells[12, i] = 'X' then + begin + tblTitulosTP_SITUACAO.AsString := 'QB'; + if sgrd_import.Cells[6, i] <> '' then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + StrToDate(sgrd_import.Cells[6, i]); + erro := 'h'; + end; + tblTitulosTX_OBS.AsString := + 'Ttulo cancelado pela importao TCC.'; + end; + if (sgrd_import.Cells[11, i] <> '') and + (sgrd_import.Cells[11, i] <> '0') then + begin + tblTitulosVL_CORRIGIDO.AsCurrency := + StrToCurr(stringreplace(sgrd_import.Cells[11, i], '.', + ',', [rfReplaceAll])); + erro := 'j'; + end; + tblTitulos.Post; + end; + end; + end; + end; + end; + end; + Inc(counter, 1); + if counter < sgrd_import.RowCount - 2 then + begin + pb_import.Position := counter + 1; + pb_import.Position := counter; + end + else + begin + pb_import.Max := counter + 1; + pb_import.Position := counter + 1; + pb_import.Max := counter; + end; + Application.ProcessMessages; + except + Showmessage(inttostr(i) + erro); + end; + + end; + lbl_estado.Caption := 'Estado: Terminou Acordos.'; + // btn_baixatitulos.Enabled := false; + // btn_geraracordo.Enabled := false; + screen.cursor := crDefault; +end; + +procedure TfrmImpTCC.btn_relClick(Sender: TObject); +begin + with TconfrelRelatorioTCC.Create(self) do + begin + Showmodal; + end; +end; + +function TfrmImpTCC.CmtoPix(cm: double): integer; +var + ppcm: double; +begin + ppcm := screen.PixelsPerInch / 2540; + Result := Trunc(ppcm * cm); +end; + +procedure TfrmImpTCC.FormClose(Sender: TObject; var Action: TCloseAction); +begin + dtmSystem.tblCHGEmpresa.Filtered := false; +end; + +procedure TfrmImpTCC.FormCreate(Sender: TObject); +begin + with dtmSystem do + begin + if not tblDevedores.Active then + begin + tblDevedores.Open; + end; + if not tblTitulos.Active then + begin + tblTitulos.Open; + end; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end; + tblCHGEmpresa.Filtered := false; + tblCHGEmpresa.Filter := 'TX_NOME LIKE ' + quotedstr('*TECH*'); + tblCHGEmpresa.Filtered := true; + if not tblUsuariosConsulta.Active then + begin + tblUsuariosConsulta.Open; + end; + tblUsuariosConsulta.First; + while not tblUsuariosConsulta.Eof do + begin + clb_cobradores.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + tblUsuariosConsulta.Next; + end; + if not tblAgenda.Active then + begin + tblAgenda.Open; + end; + end; +end; + +procedure TfrmImpTCC.mnu_abrirClick(Sender: TObject); +var + OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param, + OORCCount: Variant; + RCount, CCount, TotCell, counter, ColWidth, RowHeight, PColwidth, + PRowHeight: integer; + pathFile: string; + i, j, k, l: integer; +begin + if od_abrir.Execute then + begin + lbl_estado.Caption := 'Estado: Abrindo arquivo.'; + pathFile := stringreplace(od_abrir.FileName, '\', '/', [rfReplaceAll]); + pathFile := 'file:///' + pathFile; + screen.cursor := crHourGlass; + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + + LoadParams := VarArrayCreate([0, 0], varVariant); + Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param.Name := 'Hidden'; + Param.Value := true; + LoadParams[0] := Param; + + OOExec := OpenDesktop.LoadComponentFromURL(pathFile, '_blank', 0, + LoadParams); + OOCalc := OOExec.Sheets; + Planilha := OOCalc.getbyIndex(0); + + OORCCount := Planilha.createCursor; + OORCCount.gotoEndOfUsedArea(false); + RCount := OORCCount.RangeAddress.EndRow; + label1.Caption := 'Quantidade de linhas: ' + inttostr(Rcount); + CCount := OORCCount.RangeAddress.EndColumn; + Inc(RCount, 1); + Inc(CCount, 1); + TotCell := RCount * CCount; + pb_import.Max := TotCell; + counter := 0; + + itemList := TStringList.Create; + with itemList do + begin + for k := 0 to CCount - 1 do + begin + Add(inttostr(k + 1)); + end; + end; + + for l := 0 to sgrd_import.ColCount - 1 do + begin + sgrd_import.Cols[l].Clear; + end; + + sgrd_import.RowCount := RCount; + sgrd_import.ColCount := CCount; + + RowHeight := 0; + + for j := 0 to RCount - 1 do + begin + ColWidth := 0; + for i := 0 to CCount - 1 do + begin + PColwidth := CmtoPix(Planilha.getCellByPosition(i, j) + .getColumns.getbyIndex(0).Width); + if ColWidth < PColwidth then + begin + ColWidth := PColwidth; + end; + PRowHeight := CmtoPix(Planilha.getCellByPosition(i, j).getRows.Height); + if RowHeight < PRowHeight then + begin + RowHeight := PRowHeight; + end; + sgrd_import.ColWidths[i] := ColWidth; + sgrd_import.RowHeights[j] := RowHeight; + + if ((Planilha.getCellByPosition(i, j).NumberFormat = 36) or + (Planilha.getCellByPosition(i, j).NumberFormat = 37) or + (Planilha.getCellByPosition(i, j).NumberFormat = 8110) or + (Planilha.getCellByPosition(i, j).NumberFormat = 8109)) and + (Planilha.getCellByPosition(i, j).getFormula <> '') and + (StrToIntDef(copy(Planilha.getCellByPosition(i, j).getFormula, 1, 1), + 0) <> 0) then + begin + try + sgrd_import.Cells[i, j] := + DateToStr(Planilha.getCellByPosition(i, j).getFormula); + except + MessageDlg('Data no existente escrita na linha ' + inttostr(j) + + ', coluna ' + inttostr(i + 1) + + '. Essa data no ser carregada para importao, o que ir gerar um erro.', + mtWarning, [mbOK], 0); + end; + end + else + begin + if copy(Planilha.getCellByPosition(i, j).getFormula, 0, 1) = '''' then + begin + sgrd_import.Cells[i, j] := + stringreplace(Planilha.getCellByPosition(i, j).getFormula, '''', + '', [rfReplaceAll, rfIgnoreCase]); + end + else + begin + sgrd_import.Cells[i, j] := Planilha.getCellByPosition(i, j) + .getFormula; + end; + if Planilha.getCellByPosition(i, j).getFormula = '' then + begin + sgrd_import.Cells[i, j] := ''; + end; + end; + + Inc(counter, 1); + if counter < TotCell then + begin + pb_import.Position := counter + 1; + pb_import.Position := counter; + end + else + begin + pb_import.Max := counter + 1; + pb_import.Position := counter + 1; + pb_import.Max := counter; + end; + end; + Application.ProcessMessages; + end; + + try + OOExec.Close(false); + OpenDesktop.Terminate; + finally + + OpenOffice := Unassigned; + + screen.cursor := crDefault; + SetFocus; + end; + btn_baixatitulos.Enabled := true; + btn_geraracordo.Enabled := true; + end; + lbl_estado.Caption := 'Estado: Esperando ao.'; + lbl_arquivo.Caption := 'Arquivo: ' + od_abrir.FileName; +end; + +end. diff --git a/ufrmLiberaPermissao.dfm b/ufrmLiberaPermissao.dfm new file mode 100644 index 0000000..032537e --- /dev/null +++ b/ufrmLiberaPermissao.dfm @@ -0,0 +1,79 @@ +inherited frmLiberaPermissao: TfrmLiberaPermissao + Caption = 'Liberar Permiss'#227'o' + ClientHeight = 173 + ClientWidth = 402 + OnShow = FormShow + ExplicitWidth = 408 + ExplicitHeight = 201 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_perm: TLabel [0] + Left = 8 + Top = 8 + Width = 117 + Height = 13 + Caption = 'Permiss'#227'o a ser liberada:' + end + object lbl_user: TLabel [1] + Left = 8 + Top = 54 + Width = 39 + Height = 13 + Caption = 'Usu'#225'rio:' + end + object lbl_pass: TLabel [2] + Left = 8 + Top = 100 + Width = 34 + Height = 13 + Caption = 'Senha:' + end + inherited stbStatus: TStatusBar + Top = 154 + Width = 402 + ExplicitTop = 154 + ExplicitWidth = 402 + end + object cb_perm: TComboBox + Left = 8 + Top = 27 + Width = 386 + Height = 21 + Style = csDropDownList + TabOrder = 1 + end + object edt_user: TEdit + Left = 8 + Top = 73 + Width = 153 + Height = 21 + TabOrder = 2 + end + object edt_pass: TEdit + Left = 8 + Top = 119 + Width = 153 + Height = 21 + PasswordChar = '*' + TabOrder = 3 + end + object btn_ok: TButton + Left = 224 + Top = 117 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 4 + OnClick = btn_okClick + end + object btn_cancel: TButton + Left = 319 + Top = 117 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 5 + end +end diff --git a/ufrmLiberaPermissao.pas b/ufrmLiberaPermissao.pas new file mode 100644 index 0000000..93e2006 --- /dev/null +++ b/ufrmLiberaPermissao.pas @@ -0,0 +1,162 @@ +unit ufrmLiberaPermissao; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls; + +type + TfrmLiberaPermissao = class(TmstMaster) + cb_perm: TComboBox; + lbl_perm: TLabel; + lbl_user: TLabel; + edt_user: TEdit; + lbl_pass: TLabel; + edt_pass: TEdit; + btn_ok: TButton; + btn_cancel: TButton; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure btn_okClick(Sender: TObject); + private + { Private declarations } + public + string_permissoes: TStringList; + level: integer; + { Public declarations } + end; + +var + frmLiberaPermissao: TfrmLiberaPermissao; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmLiberaPermissao.btn_okClick(Sender: TObject); +var + tava_aberto: boolean; + recno: integer; +begin + inherited; + if dtmSystem.tblGrupos.Active then + begin + recno := dtmSystem.tblGrupos.recno; + dtmSystem.tblGrupos.Close; + tava_aberto := true; + end; + if not dtmSystem.tblUsuariosConsulta.Active then + begin + dtmSystem.tblUsuariosConsulta.Open; + end; + if ((not dtmSystem.tblUsuariosConsulta.Locate('TX_USUARIO', + AnsiUpperCase(edt_user.Text), [])) and + (not dtmSystem.tblUsuariosConsulta.Locate('TX_USUARIO', + AnsiLowerCase(edt_user.Text), [])) and + (not dtmSystem.tblUsuariosConsulta.Locate('TX_USUARIO', edt_user.Text, []))) then + begin + MessageDlg('Usurio Inexistente/Incorreto.', mtWarning, [mbok], 0); + dtmSystem.tent_perm := dtmSystem.tent_perm + 1; + if (dtmSystem.tent_perm > 2) then + begin + MessageDlg + ('Voc excedeu o limite de tentativas de Entrada (3 tentativas). O programa ir terminar agora.', + mtWarning, [mbok], 0); + Application.Terminate; + end; + edt_user.SetFocus; + exit; + end + else if AnsiUpperCase(edt_pass.Text) <> + AnsiUpperCase(dtmSystem.tblUsuariosConsultaTX_SENHA.AsString) then + begin + MessageDlg('Senha Incorreta.', mtWarning, [mbok], 0); + dtmSystem.tent_perm := dtmSystem.tent_perm + 1; + if (dtmSystem.tent_perm > 2) then + begin + MessageDlg + ('Voc excedeu o limite de tentativas de Entrada (3 tentativas). O programa ir terminar agora.', + mtWarning, [mbok], 0); + Application.Terminate; + end; + edt_pass.SetFocus; + exit; + end + else if dtmSystem.tblUsuariosConsultaTP_ATIVO.Value = 'N' then + begin + MessageDlg('Conta de usurio bloqueada.', mtWarning, [mbok], 0); + exit; + end + else + begin + dtmSystem.tblGrupos.Locate('ID_GRUPO', + dtmSystem.tblUsuariosConsultaID_GRUPO.AsInteger, []); + if dtmSystem.tblGruposTP_SU.AsString = 'N' then + begin + MessageDlg('Conta de usurio no um administrador.', mtWarning, + [mbok], 0); + exit; + end + else + begin + dtmSystem.tent_perm := 0; + dtmSystem.cod_liberapermissao := cb_perm.ItemIndex; + MessageDlg('Permisso concedida com sucesso!', mtWarning, + [mbok], 0); + end; + end; + if tava_aberto then + begin + dtmSystem.tblGrupos.Open; + dtmSystem.tblGrupos.recno := recno; + end; +end; + +procedure TfrmLiberaPermissao.FormCreate(Sender: TObject); +begin + inherited; + string_permissoes := TStringList.Create; +end; + +procedure TfrmLiberaPermissao.FormShow(Sender: TObject); +var + i, id_parent: integer; + cb_item: TStringList; + string_helper: string; + j: integer; +begin + inherited; + if not dtmSystem.tblPermissoes.Active then + begin + dtmSystem.tblPermissoes.Open; + end; + cb_item := TStringList.Create; + + for i := 0 to string_permissoes.Count - 1 do + begin + cb_item.Clear; + dtmSystem.tblPermissoes.Locate('CD_PERMISSAO', string_permissoes[i], []); + cb_item.Add(dtmSystem.tblPermissoesTX_DESCRICAO.AsString); + id_parent := dtmSystem.tblPermissoesID_PARENT.AsInteger; + while id_parent <> level do + begin + dtmSystem.tblPermissoes.Locate('ID_PERMISSAO', id_parent, []); + cb_item.Add(dtmSystem.tblPermissoesTX_DESCRICAO.AsString); + id_parent := dtmSystem.tblPermissoesID_PARENT.AsInteger; + end; + for j := 0 to cb_item.Count - 1 do + begin + string_helper := string_helper + cb_item[cb_item.Count - 1 - j] + ' - '; + end; + setlength(string_helper, length(string_helper) - 3); + cb_perm.Items.Add(string_helper); + string_helper := ''; + end; + cb_perm.ItemIndex := 0; +end; + +end. diff --git a/ufrmLogActions.dfm b/ufrmLogActions.dfm new file mode 100644 index 0000000..776c43b --- /dev/null +++ b/ufrmLogActions.dfm @@ -0,0 +1,874 @@ +inherited frmLogActions: TfrmLogActions + Caption = 'Log de a'#231#245'es' + ClientHeight = 534 + ClientWidth = 1032 + ExplicitWidth = 1048 + ExplicitHeight = 572 + PixelsPerInch = 96 + TextHeight = 13 + object GroupBox2: TGroupBox [0] + Left = 8 + Top = 58 + Width = 663 + Height = 152 + Caption = 'Filtros:' + TabOrder = 3 + object lbl_tablenames: TLabel + Left = 24 + Top = 16 + Width = 93 + Height = 13 + Caption = 'Nomes das tabelas:' + end + object lbl_id: TLabel + Left = 232 + Top = 16 + Width = 42 + Height = 13 + Caption = 'Registro:' + end + object lbl_action: TLabel + Left = 448 + Top = 16 + Width = 24 + Height = 13 + Caption = 'Tipo:' + end + object lbl_user: TLabel + Left = 24 + Top = 61 + Width = 39 + Height = 13 + Caption = 'Usu'#225'rio:' + end + object Label1: TLabel + Left = 392 + Top = 85 + Width = 6 + Height = 13 + Caption = 'a' + end + object lbl_intervalo: TLabel + Left = 234 + Top = 61 + Width = 44 + Height = 13 + Caption = 'Intervalo:' + end + object spdbtn_refresh: TSpeedButton + Left = 630 + Top = 16 + Width = 23 + Height = 22 + Hint = 'Atualizar Tabela de Log' + Glyph.Data = { + 8E030000424D8E030000000000008E0200002800000010000000100000000100 + 08000000000000010000120B0000120B0000960000009600000000000000FFFF + FF00FF00FF00F8F7F800F2EFED00E6E2DF00FAF7F300FAFBF800D2F1FF00FCFE + FF0060C4FE00B7E4FD00BAE6FF005BC0FD0079C8FA00EEF8FE0036A8F70097D2 + FB0099D4FB00FAFDFF00279AF30031A0F40035A6F60036A3F5004BADF50050B0 + F7004FAEF60054B4F8008FCDFB00D8EDFC002593EF002E9AF200339EF30042A3 + F3008ECAF90090CBFA009FD2FA00A0D1F900A4D4FA00D7ECFD00D6EBFC00E2EC + F400037BEB00218FEF002C91EE004AA2F20053A6F20060AFF30077B8F5009ACB + F8009ECEF800B3D7F800D5EAFC00E4F1FD00E9F4FE00ECF5FD00EEF6FD00EAF2 + F9000677EA000677E9000877E9000976E6000C79E9000A66C4000C58A6001684 + EC001362B300156AC0001B81E9001978DA001F88ED001F84EB002084EB001F84 + E7001F84E6002285EB002283E600288DED002B8BEC002B8AEB002C8BEC004197 + EE004F9EEF00509FEF006DB2F700609DDA006BB0F20074B3F20079B8F50079B6 + F4007EB9F50080BAF3008AC0F7008CC1F7008FC3F70076A0CB007098C1008ABB + EC007DA8D40093C5F80090C2F40079A3CD0093C4F500B2D6FA00B2D5F800B7D8 + F90098B2CB00CFE5FB00D8EAFC00DAE3EC00EDF5FD00F0F7FE00F2F8FE00FDFE + FF000070E8000071E800006DE700006EE700006FE7000054AE000272E800055D + B800065CB7000A76E6000B76E6000A66C5002183EB002888EC00509FF1004F9C + EF0055A1F000578CC400629EDC0073B2F30075B3F30077B4F300C7DDF400C5DB + F200D2E6FB00D1E5FA00E2EFFD00EDF5FE000068E700006AE700006BE700006C + E7000066E7000066E600FAFCFF00FEFEFF000202020202404040404040020202 + 02020202027D7D455562658342774002020202027D7C64032988896D05607A40 + 0202023F7B6701857E3B3A7E87066A794002027D639551934B82523E9280075F + 40024A4C94868E536E6B8C6C7F755A0443404A58384D46355690786869764739 + 84404A31342B2D704101734F66723C8B61404A25271F21362E01015091723C8A + 5E404A236F181424010101015774488D54404A1A09111617220101334E8F5B13 + 4440024A0B950E1015012F2A9081715D7D02024A0D08011219201E2C5901673D + 7D0202024A0A0C010F1D2837015C7C7D02020202024A4A1B1C263230497D7D02 + 020202020202024A4A4A4A4A4A0202020202} + ParentShowHint = False + ShowHint = True + OnClick = spdbtn_refreshClick + end + object edt_id: TEdit + Left = 232 + Top = 35 + Width = 121 + Height = 21 + NumbersOnly = True + TabOrder = 0 + end + object edt_action: TEdit + Left = 448 + Top = 35 + Width = 121 + Height = 21 + TabOrder = 1 + end + object dblucb_user: TDBLookupComboBox + Left = 24 + Top = 80 + Width = 145 + Height = 21 + KeyField = 'ID_USUARIO' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsUsuariosConsulta + TabOrder = 2 + end + object dtp_inicio: TDateTimePicker + Left = 234 + Top = 80 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 3 + end + object dtp_fim: TDateTimePicker + Left = 448 + Top = 80 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 4 + end + object btn_filter: TButton + Left = 499 + Top = 119 + Width = 75 + Height = 25 + Caption = 'Filtrar' + TabOrder = 5 + OnClick = btn_filterClick + end + object btn_nofilter: TButton + Left = 580 + Top = 119 + Width = 75 + Height = 25 + Caption = 'Limpar Filtro' + TabOrder = 6 + OnClick = btn_nofilterClick + end + object dblucb_names: TDBLookupComboBox + Left = 24 + Top = 34 + Width = 145 + Height = 21 + KeyField = 'NAMES' + ListField = 'NAMES' + ListSource = dtsTableNames + TabOrder = 7 + end + object cb_range: TCheckBox + Left = 284 + Top = 60 + Width = 97 + Height = 17 + TabOrder = 8 + end + end + inherited GroupBox1: TGroupBox + Top = 216 + Width = 664 + Height = 294 + Anchors = [akLeft, akTop, akBottom] + ExplicitTop = 216 + ExplicitWidth = 664 + ExplicitHeight = 220 + inherited grdLista: TDBGrid + Top = 8 + Width = 645 + Height = 276 + Anchors = [akLeft, akTop, akRight, akBottom] + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgTitleClick, dgTitleHotTrack] + OnTitleClick = grdListaTitleClick + Columns = < + item + Expanded = False + FieldName = 'ID_LOG' + Title.Caption = 'ID' + Visible = True + end + item + Expanded = False + FieldName = 'TX_TABELA' + Title.Caption = 'Tabela' + Visible = True + end + item + Expanded = False + FieldName = 'ID_REGISTRO' + Title.Caption = 'Registro' + Width = 89 + Visible = True + end + item + Expanded = False + FieldName = 'TX_ACAO' + Title.Caption = 'A'#231#227'o' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'USER_NAME' + Title.Caption = 'Usu'#225'rio' + Width = 100 + Visible = True + end + item + Expanded = False + FieldName = 'DT_LOG' + Title.Caption = 'Data' + Visible = True + end + item + Expanded = False + FieldName = 'TL_ACAO' + Width = 0 + Visible = True + end + item + Expanded = False + FieldName = 'ID_USUARIO' + Title.Caption = 'ID do Usu'#225'rio' + Width = 0 + Visible = True + end> + end + end + inherited stbStatus: TStatusBar + Top = 515 + Width = 1032 + end + inherited navPrincipal: TDBNavigator + Width = 664 + VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast] + ExplicitWidth = 664 + end + object db_memo: TDBMemo [4] + Left = 677 + Top = 8 + Width = 347 + Height = 501 + Anchors = [akLeft, akTop, akRight, akBottom] + DataField = 'TL_ACAO' + DataSource = dtsDB + ScrollBars = ssBoth + TabOrder = 4 + ExplicitWidth = 299 + ExplicitHeight = 358 + end + inherited dtsDB: TDataSource + DataSet = zroqryLog + end + object ImageList1: TImageList + Left = 548 + Top = 8 + Bitmap = { + 494C01010C001800240510001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000993300009933000099330000993300009933 + 0000993300009933000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000E80AA000E80 + AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A6000000000000000000000000000000000000000000000000000000 + 0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6 + FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478 + 7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2 + FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A600000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A60000000000000000000000000088452400884524008845 + 2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A + FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE + BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9 + FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D + 5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436 + FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2 + C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF + FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE + FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F + F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE + FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F + F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B + 6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47 + FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066 + 00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC + D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3 + F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E + E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3 + F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E + E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84 + 5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC + FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693 + 2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6 + F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D + ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F + E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D + ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F + E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B + 2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE + FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693 + 2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9 + FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F + EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F + EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070 + E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90 + 9000759EAE00729BA50099330000993300009933000099330000993300009933 + 00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1 + E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB + FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A + F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070 + E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A + F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070 + E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E + D800147AD0000C72CF001888AF00000000000000000000000000000000000000 + 000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5 + EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF + FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD + F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D + E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD + F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D + E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699 + FC003699FC003394F9002985F3001888AF000000000000000000000000000000 + 00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7 + F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D + BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2 + FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A + E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2 + FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A + E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA + FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000 + 000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA + F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7 + CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE + FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C + EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4 + EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC + FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA + D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751 + 77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000 + 000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF + FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE + DD00986B660000000000000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291 + CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1 + E400986B66000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C500000000000000000000000000000000002583B0006DADCB00277D + A8000A5882000A588200005684001888AF000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5 + EB00986B66000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 00000000000000000000000000000000000000000000000000003990B9002983 + AC00116B96000056840000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4 + 8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4 + 8200986B66000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000990000009900000099000000990000009900000099000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000 + 0000000000000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000019 + BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000 + 9500000095000000000000000000000000000000000000000000000000000A66 + C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054 + AE000C58A60000000000000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000019BD000C34 + D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484 + B3000927990000009500000000000000000000000000000000000A66C5000B76 + E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098 + C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3 + F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9 + F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6 + FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7 + F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE + FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674 + DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE + FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558 + D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE + FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F + F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792 + F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023 + CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792 + F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532 + D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3 + F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E + E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B + FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631 + DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F + D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B + FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432 + DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D + ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F + E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040 + FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258 + E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199 + EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040 + FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333 + E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F + EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070 + E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955 + FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159 + EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6 + F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955 + FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333 + E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A + F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070 + E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C + FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632 + EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349 + EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C + FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233 + EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD + F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D + E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC + FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025 + ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021 + EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC + FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166 + F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2 + FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A + E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF + FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073 + F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073 + F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF + FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159 + F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE + FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C + EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE + FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF + FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1 + FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF + FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000000032FE006283 + FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4 + FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4 + FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0 + F7000B76E6000A66C50000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000000032 + FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019 + BD000019BD000000000000000000000000000000000000000000000000001F84 + E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66 + C5000A66C5000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000015B0600015B0600015B0600015B0600015B0600015B06000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006533330065333300653333006533330065333300653333000000 + 000000000000000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 330065333300000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000016F + 0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B + 0600015B0600000000000000000000000000000000000000000000000000934A + 1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533 + 3300653333000000000000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F07006533330000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000016F090010AD + 1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1 + 79000A871500015B060000000000000000000000000000000000934A1C00C466 + 0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96 + 6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA + BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4 + F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2 + B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7 + FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE + FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC + 6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE + FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95 + 4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2 + 7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961 + 0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9 + 910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD + 0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9 + 910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD + 0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2 + 7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F + 2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B + 3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65 + 0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3 + 580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF + 110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3 + 580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF + 110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B + 3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98 + 5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D + 3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67 + 0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0 + 570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1 + 150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0 + 570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1 + 150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D + 3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98 + 5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C + 5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67 + 0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1 + 1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5 + 6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1 + 1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C + 5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98 + 5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2 + 7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66 + 0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7 + 900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2 + 1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7 + 900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2 + 1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2 + 7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98 + 5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9 + B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63 + 0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED + C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1 + 1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED + C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1 + 1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9 + B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991 + 4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE + 7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF + FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE + 7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF + FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99 + 5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC + EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF + FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB + D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF + FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F09000000000000000000000000000000000025AE390094E8 + A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2 + A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9 + 6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC + 8900C3650B00934A1C000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C0000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F090000000000000000000000000000000000000000000000000025AE + 390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F + 0900016F0900000000000000000000000000000000000000000000000000BC5F + 0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A + 1C00934A1C000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000 + C003C00380030000800180010003000080018001000300000000000000030000 + 000000008003000000000000C001000000000000C1FC00000000000080FE0001 + 00000000007F000780018001007F000780018001007F0007C003C00300FF0007 + E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007 + C003C003C003C003800180018001800180018001800180010000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000080018001800180018001800180018001C003C003C003C003 + E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000 + 000000000000} + end + object zroqryTableNames: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'SELECT a.RDB$RELATION_NAME as NAMES' + 'FROM RDB$RELATIONS a' + 'WHERE RDB$SYSTEM_FLAG = 0 AND RDB$RELATION_TYPE = 0') + Params = <> + Left = 784 + Top = 18 + object zroqryTableNamesNAMES: TWideStringField + FieldName = 'NAMES' + Size = 31 + end + end + object dtsTableNames: TDataSource + DataSet = zroqryTableNames + Left = 880 + Top = 18 + end + object zroqryLog: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SortedFields = 'ID_LOG' + SQL.Strings = ( + 'select * from SYS_LOG') + Params = <> + IndexFieldNames = 'ID_LOG Asc' + Left = 784 + Top = 80 + object zroqryLogID_LOG: TIntegerField + FieldName = 'ID_LOG' + Required = True + end + object zroqryLogTX_TABELA: TWideStringField + FieldName = 'TX_TABELA' + end + object zroqryLogID_REGISTRO: TIntegerField + FieldName = 'ID_REGISTRO' + end + object zroqryLogTX_ACAO: TWideStringField + FieldName = 'TX_ACAO' + Size = 255 + end + object zroqryLogID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + end + object zroqryLogDT_LOG: TDateTimeField + FieldName = 'DT_LOG' + end + object zroqryLogTL_ACAO: TWideMemoField + FieldName = 'TL_ACAO' + BlobType = ftWideMemo + end + object zroqryLogUSER_NAME: TStringField + FieldKind = fkLookup + FieldName = 'USER_NAME' + LookupDataSet = dtmSystem.tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_USUARIO' + Size = 60 + Lookup = True + end + end +end diff --git a/ufrmLogActions.pas b/ufrmLogActions.pas new file mode 100644 index 0000000..9f080e3 --- /dev/null +++ b/ufrmLogActions.pas @@ -0,0 +1,172 @@ +unit ufrmLogActions; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstLista, Data.DB, Vcl.ExtCtrls, + Vcl.DBCtrls, Vcl.ComCtrls, + Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, System.ImageList, Vcl.ImgList, + ZAbstractRODataset, ZDataset, + Vcl.Buttons; + +type + TfrmLogActions = class(TmstLista) + ImageList1: TImageList; + GroupBox2: TGroupBox; + zroqryTableNames: TZReadOnlyQuery; + zroqryTableNamesNAMES: TWideStringField; + dtsTableNames: TDataSource; + lbl_tablenames: TLabel; + db_memo: TDBMemo; + lbl_id: TLabel; + edt_id: TEdit; + edt_action: TEdit; + lbl_action: TLabel; + dblucb_user: TDBLookupComboBox; + lbl_user: TLabel; + zroqryLog: TZReadOnlyQuery; + dtp_inicio: TDateTimePicker; + Label1: TLabel; + dtp_fim: TDateTimePicker; + lbl_intervalo: TLabel; + btn_filter: TButton; + btn_nofilter: TButton; + spdbtn_refresh: TSpeedButton; + dblucb_names: TDBLookupComboBox; + zroqryLogID_LOG: TIntegerField; + zroqryLogTX_TABELA: TWideStringField; + zroqryLogID_REGISTRO: TIntegerField; + zroqryLogTX_ACAO: TWideStringField; + zroqryLogID_USUARIO: TIntegerField; + zroqryLogDT_LOG: TDateTimeField; + zroqryLogTL_ACAO: TWideMemoField; + zroqryLogUSER_NAME: TStringField; + cb_range: TCheckBox; + procedure FormCreate(Sender: TObject); + procedure btn_nofilterClick(Sender: TObject); + procedure spdbtn_refreshClick(Sender: TObject); + procedure btn_filterClick(Sender: TObject); + procedure grdListaTitleClick(Column: TColumn); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmLogActions: TfrmLogActions; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmLogActions.btn_filterClick(Sender: TObject); +var + tbl_name, id_reg, log_type, user, dti, dtf: string; +begin + inherited; + if dblucb_names.KeyValue <> Null then + begin + tbl_name := 'and TX_TABELA = ' + QuotedStr(dblucb_names.KeyValue); + end + else + begin + tbl_name := ''; + end; + + if edt_id.Text <> '' then + begin + id_reg := 'and ID_REGISTRO = ' + QuotedStr(edt_id.Text); + end + else + begin + id_reg := ''; + end; + + if edt_action.Text <> '' then + begin + log_type := 'and TX_ACAO = ' + QuotedStr(edt_action.Text); + end + else + begin + log_type := ''; + end; + + if dblucb_user.KeyValue <> Null then + begin + user := 'and ID_USUARIO = ' + QuotedStr(dblucb_user.KeyValue); + end + else + begin + user := ''; + end; + + if cb_range.Checked then + begin + dti := 'and CAST(DT_LOG AS DATE) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)); + dtf := 'and CAST(DT_LOG AS DATE) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)); + end + else + begin + dti := ''; + dtf := ''; + end; + + zroqryLog.Close; + zroqryLog.SQL.Text := 'SELECT * FROM SYS_LOG WHERE ID_LOG >= 0 ' + tbl_name + + id_reg + log_type + user + dti + dtf; + zroqryLog.Open; +end; + +procedure TfrmLogActions.btn_nofilterClick(Sender: TObject); +begin + inherited; + zroqryLog.Close; + zroqryLog.SQL.Text := 'SELECT * FROM SYS_LOG'; + zroqryLog.Open; + zroqryLog.First; + zroqryLog.SortedFields := 'ID_LOG'; + zroqryLog.SortType := stDescending; + cb_range.Checked := false; + dblucb_user.KeyValue := null; + dblucb_names.KeyValue := null; + edt_id.Text := ''; + edt_action.Text := ''; +end; + +procedure TfrmLogActions.FormCreate(Sender: TObject); +begin + inherited; + with dtmSystem do + begin + SetupHackedNavigator(navPrincipal, ImageList1, 's'); + tblUsuariosConsulta.Open; + end; + zroqryTableNames.Open; + zroqryLog.SortedFields := 'ID_LOG'; + zroqryLog.SortType := stDescending; + zroqryLog.Open; + zroqryLog.First; + dtp_inicio.Date := Date; + dtp_fim.Date := Date; +end; + +procedure TfrmLogActions.grdListaTitleClick(Column: TColumn); +begin + inherited; + dtmSystem.OrganizaPorColuna(zroqryLog, Column); +end; + +procedure TfrmLogActions.spdbtn_refreshClick(Sender: TObject); +begin + inherited; + zroqryLog.Refresh; +end; + +end. diff --git a/ufrmLogin.dfm b/ufrmLogin.dfm new file mode 100644 index 0000000..37ff0b9 Binary files /dev/null and b/ufrmLogin.dfm differ diff --git a/ufrmLogin.pas b/ufrmLogin.pas new file mode 100644 index 0000000..58297ea --- /dev/null +++ b/ufrmLogin.pas @@ -0,0 +1,327 @@ +unit ufrmLogin; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Data.DB, IniFiles, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ufrmCobranca, Vcl.Mask, + System.UITypes; + +type + TfrmLogin = class(TForm) + btn_ok: TButton; + edt_user: TEdit; + btn_cancel: TButton; + edt_password: TEdit; + lbl_user: TLabel; + lbl_password: TLabel; + procedure FormKeyPress(Sender: TObject; var Key: Char); + procedure btn_cancelClick(Sender: TObject); + procedure btn_okClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; + var Resize: Boolean); + procedure edt_passwordKeyPress(Sender: TObject; var Key: Char); + private + procedure WMSysCommand(var MSG: TWMSysCommand); message WM_SYSCOMMAND; + procedure WMMoving(var MSG: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + tentativas: Integer; + troca_senha: Boolean; + end; + +var + frmLogin: TfrmLogin; + +implementation + +{$R *.dfm} + +uses + + udtmSystem, ufrmCheckAdmin; + +procedure TfrmLogin.btn_cancelClick(Sender: TObject); +var + selected: Integer; +begin + // Pergunta se realmente deseja cancelar o Login + selected := MessageDlg + ('Deseja realmente cancelar a Entrada? Se sim o programa ser terminado. Selecione "Ok" para fechar.', + mtcustom, [mbok, mbcancel], 0); + + // Se no, retorna a tela de login + if selected = mrCancel then + begin + btn_cancel.ModalResult := mrNone; + end; + + // Se sim, fecha a tela de login + if selected = mrOk then + begin + btn_cancel.ModalResult := mrCancel; + frmCobranca.acesso := false; + Close; + end; + +end; + +procedure TfrmLogin.btn_okClick(Sender: TObject); +var + senha{, admin}: string; +begin + // Verifica se o usurio e a senha existem + if dtmSystem.tblGrupos.Active then + begin + dtmSystem.tblGrupos.Close; + end; + dtmSystem.tblUsuarios.Close; + dtmSystem.tblUsuarios.Open; + if ((not dtmSystem.tblUsuarios.Locate('TX_USUARIO', + AnsiUpperCase(edt_user.Text), [])) and + (not dtmSystem.tblUsuarios.Locate('TX_USUARIO', + AnsiLowerCase(edt_user.Text), [])) and + (not dtmSystem.tblUsuarios.Locate('TX_USUARIO', edt_user.Text, []))) then + begin + MessageDlg('Usurio Inexistente/Incorreto.', mtWarning, [mbok], 0); + tentativas := tentativas + 1; + if (tentativas > 2) then + begin + MessageDlg + ('Voc excedeu o limite de tentativas de Entrada (3 tentativas). O programa ir terminar agora.', + mtWarning, [mbok], 0); + Application.Terminate; + end; + edt_user.SetFocus; + exit; + end; + + if AnsiUpperCase(edt_password.Text) <> + AnsiUpperCase(dtmSystem.tblUsuariosTX_SENHA.AsString) then + begin + MessageDlg('Senha Incorreta.', mtWarning, [mbok], 0); + tentativas := tentativas + 1; + if (tentativas > 2) then + begin + MessageDlg + ('Voc excedeu o limite de tentativas de Entrada (3 tentativas). O programa ir terminar agora.', + mtWarning, [mbok], 0); + Application.Terminate; + end; + edt_password.SetFocus; + exit; + end; + // Verifica se o usurio est bloqueado + if udtmSystem.dtmSystem.tblUsuariosTP_ATIVO.Value = 'N' then + begin + MessageDlg('Conta de usurio bloqueada', mtWarning, [mbok], 0); + exit; + end; + + if dtmSystem.tblUsuariosTP_TROCAPASS.AsString = 'S' then + begin + troca_senha := true; + end; + + // tratamento pra se o usurio obrigado a trocar a senha + while troca_senha do + begin + if InputQuery('Nova Senha', 'Este usurio deve trocar sua senha.' + + ' Insira uma nova.', senha) then + begin + if AnsiUpperCase(senha) = AnsiUpperCase + (dtmSystem.tblUsuariosTX_SENHA.AsString) then + begin + MessageDlg('A nova senha no pode ser igual a anterior!', mtError, + [mbok], 0); + end + else + begin + dtmSystem.tblUsuarios.Edit; + dtmSystem.tblUsuariosTX_SENHA.AsString := senha; + dtmSystem.tblUsuariosTP_TROCAPASS.AsString := 'N'; + dtmSystem.tblUsuarios.Post; + troca_senha := false; + end; + end; + end; + // with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'sistema.ini') do + // begin + // admin := ReadString('DEVELOPER', 'admin', ''); + // if admin <> 'sim' then + // begin + // with dtmSystem do + // begin + // tblSessao.Open; + // if not(tblSessao.IsEmpty) then + // begin + // if tblSessao.Locate('ID_USUARIO', tblUsuariosID_USUARIO.AsInteger, []) + // then + // begin + // if tblSessaoTP_ATIVA.AsInteger = 1 then + // begin + // if (MessageDlg + // ('Este usurio encontra-se logado. Deseja terminar a sesso?', + // mtWarning, [mbYes, mbNo], 0)) = mrYes then + // begin + // frmCheckAdmin := TfrmCheckAdmin.Create(nil); + // frmCheckAdmin.ShowModal; + // if frmCheckAdmin.ModalResult = mrCancel then + // begin + // frmCobranca.acesso := false; + // Close; + // abort; + // end + // else + // begin + // tblSessao.Edit; + // tblSessaoTP_ATIVA.AsInteger := 0; + // tblSessao.Post; + // MessageDlg + // ('O programa ir finalizar agora. Por favor inicie-o novamente.', + // mtWarning, [mbok], 0); + // frmCobranca.acesso := false; + // Close; + // abort; + // end; + // end + // else + // begin + // MessageDlg + // ('Voc cancelou o trmino da sesso. O programa ir finalizar agora.', + // mtWarning, [mbok], 0); + // frmCobranca.acesso := false; + // Close; + // abort; + // end; + // end; + // end; + // end; + // end; + // end; + // + // end; + + // Salva o cdigo do usurio para uso durante o programa + dtmSystem.id_usuario := dtmSystem.tblUsuariosID_USUARIO.AsInteger; + dtmSystem.tx_usuario := dtmSystem.tblUsuariosTX_USUARIO.AsString; + dtmSystem.id_grupo := dtmSystem.tblUsuariosID_GRUPO.AsInteger; + frmCobranca.acesso := true; + if not dtmSystem.tblGrupos.Active then + begin + dtmSystem.tblGrupos.Open; + end; + dtmSystem.tblGrupos.Locate('ID_GRUPO', dtmSystem.id_grupo, []); + dtmSystem.tx_grupo := dtmSystem.tblGruposTX_NOME.AsString; + Close; +end; + +procedure TfrmLogin.edt_passwordKeyPress(Sender: TObject; var Key: Char); +begin +if (Key = #13) then + begin + btn_okClick(self); + end; +end; + +procedure TfrmLogin.FormCanResize(Sender: TObject; + var NewWidth, NewHeight: Integer; var Resize: Boolean); +begin + Resize := false; +end; + +procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmLogin.FormCreate(Sender: TObject); +begin + // inicializa algumas variveis usadas na janela + tentativas := 0; + frmCobranca.acesso := false; + dtmSystem.acesso_manager := false; + dtmSystem.tblGrupos.Close; + troca_senha := false; +end; + +procedure TfrmLogin.FormKeyPress(Sender: TObject; var Key: Char); +begin + // faz o enter funcionar como 'tab' + if (Key = #13) then + begin + SelectNext(ActiveControl as TWinControl, true, true); + Key := #0; + end; + // entrada coringa + if (Key = #27) then + begin + if (edt_user.Text = '88021338') then + begin + frmCobranca.acesso := true; + udtmSystem.dtmSystem.acesso_manager := true; + Close; + end + else + begin + btn_cancel.Click; + end; + end; +end; + +procedure TfrmLogin.WMMoving(var MSG: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with MSG.DragRect^ do + begin + if left < workArea.left then + OffsetRect(MSG.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(MSG.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(MSG.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(MSG.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +procedure TfrmLogin.WMSysCommand(var MSG: TWMSysCommand); +var + selected: Integer; +begin + if MSG.CmdType = SC_CLOSE then + begin + // Closing from border icon + // Pergunta se realmente deseja cancelar o Login + selected := MessageDlg + ('Deseja realmente cancelar a Entrada? Se sim o programa ser terminado. Selecione "Ok" para fechar.', + mtcustom, [mbok, mbcancel], 0); + + // Se no, retorna a tela de login + if selected = mrCancel then + begin + abort; + end; + + // Se sim, fecha a tela de login + if selected = mrOk then + begin + frmCobranca.acesso := false; + Close; + end; + end; + +end; + +end. diff --git a/ufrmMandaMensagem.dfm b/ufrmMandaMensagem.dfm new file mode 100644 index 0000000..9555ab8 --- /dev/null +++ b/ufrmMandaMensagem.dfm @@ -0,0 +1,818 @@ +inherited frmMandaMensagem: TfrmMandaMensagem + Caption = 'Central de Envio de Mensagens' + ClientHeight = 670 + ClientWidth = 1014 + ExplicitWidth = 1020 + ExplicitHeight = 698 + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel [0] + Left = 432 + Top = 386 + Width = 41 + Height = 13 + Caption = 'Assunto:' + end + object lbl_prov: TLabel [1] + Left = 432 + Top = 330 + Width = 59 + Height = 13 + Caption = 'Provid'#234'ncia:' + end + object Label2: TLabel [2] + Left = 861 + Top = 8 + Width = 21 + Height = 13 + Caption = 'Log:' + end + object lbl_resultado: TLabel [3] + Left = 263 + Top = 386 + Width = 51 + Height = 13 + Caption = 'Resultado:' + end + inherited stbStatus: TStatusBar + Top = 651 + Width = 1014 + ExplicitTop = 651 + ExplicitWidth = 1014 + end + object dbg_textoemail: TDBGrid + Left = 432 + Top = 8 + Width = 423 + Height = 120 + DataSource = dtsTextoEmail + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_DESCRICAO' + Title.Caption = 'Descri'#231#227'o' + Visible = True + end> + end + object btn_pesquisa: TButton + Left = 8 + Top = 381 + Width = 75 + Height = 25 + Caption = 'Pesquisar' + TabOrder = 2 + OnClick = btn_pesquisaClick + end + object pb_pesquisa: TProgressBar + Left = 8 + Top = 412 + Width = 845 + Height = 17 + Step = 1 + TabOrder = 3 + end + object dbre_textomensagem: TDBRichEdit + Left = 432 + Top = 134 + Width = 423 + Height = 190 + DataField = 'TL_TEXTO' + DataSource = dtsTextoEmail + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ReadOnly = True + TabOrder = 4 + Zoom = 100 + end + object dbg_pesquisa: TDBGrid + Left = 8 + Top = 432 + Width = 845 + Height = 215 + DataSource = dtsQPesquisa + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 5 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Visible = True + end + item + Expanded = False + FieldName = 'TX_DOCUMENTO' + Title.Caption = 'Documento' + Visible = True + end + item + Expanded = False + FieldName = 'TX_EMAIL' + Title.Caption = 'Email' + Visible = True + end> + end + object rg_email: TRadioGroup + Left = 94 + Top = 374 + Width = 163 + Height = 33 + Caption = 'Email' + Columns = 2 + Items.Strings = ( + 'Empresa' + 'Usu'#225'rio') + TabOrder = 6 + end + object btn_mandaemail: TButton + Left = 778 + Top = 381 + Width = 75 + Height = 25 + Caption = 'Enviar Email' + TabOrder = 7 + WordWrap = True + OnClick = btn_mandaemailClick + end + object edt_assunto: TEdit + Left = 479 + Top = 383 + Width = 293 + Height = 21 + TabOrder = 8 + end + object sbx_filtro: TScrollBox + Left = 8 + Top = 8 + Width = 418 + Height = 362 + HorzScrollBar.Range = 326 + VertScrollBar.Range = 1345 + AutoScroll = False + BevelInner = bvNone + BevelOuter = bvNone + ParentBackground = True + TabOrder = 9 + object pnl_providências: TPanel + Left = 0 + Top = 324 + Width = 394 + Height = 499 + TabOrder = 0 + object Label5: TLabel + Left = 9 + Top = 277 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label6: TLabel + Left = 121 + Top = 277 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_providencias: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Provid'#234'ncia:' + TabOrder = 0 + OnClick = cb_providenciasClick + end + object clb_providencias: TCheckListBox + Left = 8 + Top = 27 + Width = 377 + Height = 142 + OnClickCheck = clb_providenciasClickCheck + Enabled = False + ItemHeight = 13 + TabOrder = 1 + end + object pnl_filtroprov: TPanel + Left = 8 + Top = 175 + Width = 378 + Height = 68 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 2 + object rg_filtroprov: TRadioGroup + Left = -4 + Top = -15 + Width = 407 + Height = 82 + Color = clWhite + Columns = 2 + Enabled = False + Items.Strings = ( + 'Contenha' + 'N'#227'o contenha' + 'Seja a '#218'ltima' + 'Positivas' + 'Negativas') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + object dtp_provin: TDateTimePicker + Left = 32 + Top = 273 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 3 + end + object dtp_provfim: TDateTimePicker + Left = 144 + Top = 273 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 4 + end + object cb_periodoprov: TCheckBox + Left = 7 + Top = 250 + Width = 97 + Height = 17 + Caption = 'Per'#237'odo' + Enabled = False + TabOrder = 5 + OnClick = cb_periodoprovClick + end + object cb_bacalhau: TCheckBox + Left = 215 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Bacalhau' + Enabled = False + TabOrder = 6 + Visible = False + end + object edt_pprov: TEdit + Left = 111 + Top = 2 + Width = 274 + Height = 21 + Enabled = False + TabOrder = 7 + OnChange = edt_pprovChange + end + object cb_cobradoresprov: TCheckBox + Left = 7 + Top = 308 + Width = 97 + Height = 17 + Caption = 'Feito por:' + Enabled = False + TabOrder = 8 + OnClick = cb_cobradoresprovClick + end + object edt_puserprov: TEdit + Left = 111 + Top = 306 + Width = 274 + Height = 21 + Enabled = False + TabOrder = 9 + OnClick = edt_puserprovClick + end + object clb_usuariosprov: TCheckListBox + Left = 8 + Top = 331 + Width = 377 + Height = 160 + OnClickCheck = clb_usuariosprovClickCheck + Enabled = False + ItemHeight = 13 + TabOrder = 10 + end + end + object pnl_beneficiarios: TPanel + Left = 0 + Top = 0 + Width = 394 + Height = 318 + TabOrder = 1 + object Label11: TLabel + Left = 8 + Top = 198 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label12: TLabel + Left = 8 + Top = 226 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object Label13: TLabel + Left = 135 + Top = 198 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label14: TLabel + Left = 135 + Top = 226 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_beneficiarios: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Credor:' + TabOrder = 0 + OnClick = cb_beneficiariosClick + end + object clb_beneficiarios: TCheckListBox + Left = 8 + Top = 27 + Width = 377 + Height = 142 + OnClickCheck = clb_beneficiariosClickCheck + Enabled = False + ItemHeight = 13 + TabOrder = 1 + end + object edt_pcredor: TEdit + Left = 111 + Top = 2 + Width = 274 + Height = 21 + Enabled = False + TabOrder = 2 + OnChange = edt_pcredorChange + end + object cb_credorentrada: TCheckBox + Left = 9 + Top = 175 + Width = 118 + Height = 17 + Caption = 'Entrada do Credor:' + Enabled = False + TabOrder = 3 + OnClick = cb_credorentradaClick + end + object dtp_credorentrada1: TDateTimePicker + Left = 31 + Top = 194 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 4 + end + object dtp_credorentrada2: TDateTimePicker + Left = 31 + Top = 222 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 5 + end + object cb_credorvencimento: TCheckBox + Left = 136 + Top = 175 + Width = 131 + Height = 17 + Caption = 'Vencimento do Credor:' + Enabled = False + TabOrder = 6 + OnClick = cb_credorvencimentoClick + end + object dtp_credorvenc1: TDateTimePicker + Left = 158 + Top = 194 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 7 + end + object dtp_credorvenc2: TDateTimePicker + Left = 158 + Top = 222 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 8 + end + object cb_credortptitulo: TCheckBox + Left = 7 + Top = 255 + Width = 97 + Height = 17 + Caption = 'Tipo de t'#237'tulo:' + Enabled = False + TabOrder = 9 + OnClick = cb_credortptituloClick + end + object Panel3: TPanel + Left = 8 + Top = 276 + Width = 377 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 10 + object rg_credortptitulo: TRadioGroup + Left = -3 + Top = -15 + Width = 391 + Height = 43 + Color = clWhite + Columns = 3 + Enabled = False + Items.Strings = ( + 'Todos' + 'Abertos' + 'Baixados') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + object pnl_agendamento: TPanel + Left = -1 + Top = 829 + Width = 395 + Height = 330 + TabOrder = 2 + object lbl_agendcomeco: TLabel + Left = 8 + Top = 107 + Width = 17 + Height = 13 + Caption = 'De:' + end + object lbl_agendfim: TLabel + Left = 134 + Top = 106 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_agendamento: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Agendamento:' + TabOrder = 0 + OnClick = cb_agendamentoClick + end + object dtp_agendcomeco: TDateTimePicker + Left = 31 + Top = 103 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 1 + end + object dtp_agendfim: TDateTimePicker + Left = 159 + Top = 102 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + Enabled = False + TabOrder = 2 + end + object clb_usuariosagenda: TCheckListBox + Left = 9 + Top = 161 + Width = 377 + Height = 160 + OnClickCheck = clb_usuariosagendaClickCheck + Enabled = False + ItemHeight = 13 + TabOrder = 3 + end + object cb_cobradoresagenda: TCheckBox + Left = 8 + Top = 136 + Width = 97 + Height = 17 + Caption = 'Feito por:' + Enabled = False + TabOrder = 4 + OnClick = cb_cobradoresagendaClick + end + object edt_puseragenda: TEdit + Left = 112 + Top = 134 + Width = 274 + Height = 21 + Enabled = False + TabOrder = 5 + OnChange = edt_puseragendaChange + end + object Panel2: TPanel + Left = 8 + Top = 27 + Width = 378 + Height = 68 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 6 + object rg_agendamento: TRadioGroup + Left = -4 + Top = -15 + Width = 407 + Height = 82 + Color = clWhite + Columns = 2 + Enabled = False + Items.Strings = ( + 'Todos' + 'Somente Agendados' + 'Agendados no Per'#237'odo' + 'Agendamento Vencido' + 'N'#227'o incluir Agendados') + ParentBackground = False + ParentColor = False + TabOrder = 0 + OnClick = rg_agendamentoClick + end + end + end + object pnl_alfabeto: TPanel + Left = 0 + Top = 1165 + Width = 394 + Height = 55 + TabOrder = 3 + object Label7: TLabel + Left = 7 + Top = 29 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label8: TLabel + Left = 156 + Top = 28 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_faixanome: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Faixa de nomes:' + TabOrder = 0 + OnClick = cb_faixanomeClick + end + object edt_nomein: TEdit + Left = 28 + Top = 27 + Width = 66 + Height = 21 + CharCase = ecUpperCase + Enabled = False + MaxLength = 1 + TabOrder = 1 + Text = 'A' + end + object edt_nomefim: TEdit + Left = 181 + Top = 26 + Width = 66 + Height = 21 + CharCase = ecUpperCase + Enabled = False + MaxLength = 1 + TabOrder = 2 + Text = 'Z' + end + end + object pnl_atraso: TPanel + Left = -2 + Top = 1226 + Width = 396 + Height = 55 + TabOrder = 4 + object Label9: TLabel + Left = 7 + Top = 29 + Width = 17 + Height = 13 + Caption = 'De:' + end + object Label10: TLabel + Left = 158 + Top = 28 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object cb_atraso: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Faixa de atraso:' + TabOrder = 0 + OnClick = cb_atrasoClick + end + object edt_atrasoin: TEdit + Left = 30 + Top = 27 + Width = 66 + Height = 21 + CharCase = ecUpperCase + Enabled = False + MaxLength = 1 + NumbersOnly = True + TabOrder = 1 + Text = '0' + end + object edt_atrasofim: TEdit + Left = 183 + Top = 26 + Width = 66 + Height = 21 + CharCase = ecUpperCase + Enabled = False + MaxLength = 1 + NumbersOnly = True + TabOrder = 2 + Text = '999999' + end + end + object pnl_tipopessoa: TPanel + Left = -2 + Top = 1287 + Width = 396 + Height = 61 + TabOrder = 5 + object cb_tipopessoa: TCheckBox + Left = 8 + Top = 4 + Width = 97 + Height = 17 + Caption = 'Tipo de pessoa:' + TabOrder = 0 + OnClick = cb_tipopessoaClick + end + object Panel1: TPanel + Left = 8 + Top = 25 + Width = 380 + Height = 28 + BevelKind = bkTile + BevelOuter = bvNone + Color = clWhite + ParentBackground = False + TabOrder = 1 + object rg_tipopessoa: TRadioGroup + Left = -3 + Top = -15 + Width = 396 + Height = 43 + Color = clWhite + Columns = 2 + Enabled = False + Items.Strings = ( + 'F'#237'sica' + 'Jur'#237'dica') + ParentBackground = False + ParentColor = False + TabOrder = 0 + end + end + end + end + object dblulb_provs: TDBLookupComboBox + Left = 432 + Top = 349 + Width = 257 + Height = 21 + KeyField = 'ID_PROVIDENCIA' + ListField = 'TX_NOME' + ListSource = dtmSystem.dtsProvidencias + TabOrder = 10 + end + object cb_retornaprov: TCheckBox + Left = 695 + Top = 351 + Width = 158 + Height = 17 + Alignment = taLeftJustify + Caption = 'Retornar provid'#234'ncia anterior' + TabOrder = 11 + end + object mb_log: TMemo + Left = 861 + Top = 27 + Width = 145 + Height = 618 + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 12 + end + object dtsTextoEmail: TDataSource + DataSet = dtmSystem.tblTextoEmail + Left = 720 + Top = 40 + end + object dtsQPesquisa: TDataSource + DataSet = QPesquisa + Left = 312 + Top = 481 + end + object QPesquisa: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'd.tx_nome, d.id_devedor,' + 'case when d.tp_cliente = '#39'F'#39' then d.cd_cpf' + 'when d.tp_cliente = '#39'J'#39' then d.cd_cnpj' + 'end as tx_documento' + ',e.tx_email' + 'from chg_titulos t' + 'left join chg_devedores d on d.id_devedor = t.id_devedor' + 'left join chg_emails e on t.id_devedor = e.id_devedor') + Params = <> + Left = 408 + Top = 481 + object QPesquisaTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object QPesquisaTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + ReadOnly = True + Size = 18 + end + object QPesquisaTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 40 + end + object QPesquisaID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + end + object ACBrMail: TACBrMail + Host = '127.0.0.1' + Port = '25' + SetSSL = False + SetTLS = False + Attempts = 3 + DefaultCharset = UTF_8 + IDECharset = CP1252 + Left = 568 + Top = 232 + end +end diff --git a/ufrmMandaMensagem.pas b/ufrmMandaMensagem.pas new file mode 100644 index 0000000..6040424 --- /dev/null +++ b/ufrmMandaMensagem.pas @@ -0,0 +1,1065 @@ +unit ufrmMandaMensagem; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.StrUtils, System.DateUtils, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, ACBrBase, ACBrMail, + ZAbstractRODataset, ZAbstractDataset, ZDataset, Vcl.StdCtrls, Vcl.ComCtrls, + Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.CheckLst; + +type + TfrmMandaMensagem = class(TmstMaster) + dbg_textoemail: TDBGrid; + btn_pesquisa: TButton; + pb_pesquisa: TProgressBar; + dbre_textomensagem: TDBRichEdit; + dtsTextoEmail: TDataSource; + dtsQPesquisa: TDataSource; + QPesquisa: TZQuery; + dbg_pesquisa: TDBGrid; + ACBrMail: TACBrMail; + rg_email: TRadioGroup; + btn_mandaemail: TButton; + edt_assunto: TEdit; + Label1: TLabel; + sbx_filtro: TScrollBox; + pnl_providncias: TPanel; + Label5: TLabel; + Label6: TLabel; + cb_providencias: TCheckBox; + clb_providencias: TCheckListBox; + pnl_filtroprov: TPanel; + rg_filtroprov: TRadioGroup; + dtp_provin: TDateTimePicker; + dtp_provfim: TDateTimePicker; + cb_periodoprov: TCheckBox; + cb_bacalhau: TCheckBox; + edt_pprov: TEdit; + cb_cobradoresprov: TCheckBox; + edt_puserprov: TEdit; + clb_usuariosprov: TCheckListBox; + pnl_beneficiarios: TPanel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + cb_beneficiarios: TCheckBox; + clb_beneficiarios: TCheckListBox; + edt_pcredor: TEdit; + cb_credorentrada: TCheckBox; + dtp_credorentrada1: TDateTimePicker; + dtp_credorentrada2: TDateTimePicker; + cb_credorvencimento: TCheckBox; + dtp_credorvenc1: TDateTimePicker; + dtp_credorvenc2: TDateTimePicker; + cb_credortptitulo: TCheckBox; + Panel3: TPanel; + rg_credortptitulo: TRadioGroup; + pnl_agendamento: TPanel; + lbl_agendcomeco: TLabel; + lbl_agendfim: TLabel; + cb_agendamento: TCheckBox; + dtp_agendcomeco: TDateTimePicker; + dtp_agendfim: TDateTimePicker; + clb_usuariosagenda: TCheckListBox; + cb_cobradoresagenda: TCheckBox; + edt_puseragenda: TEdit; + Panel2: TPanel; + rg_agendamento: TRadioGroup; + pnl_alfabeto: TPanel; + Label7: TLabel; + Label8: TLabel; + cb_faixanome: TCheckBox; + edt_nomein: TEdit; + edt_nomefim: TEdit; + pnl_atraso: TPanel; + Label9: TLabel; + Label10: TLabel; + cb_atraso: TCheckBox; + edt_atrasoin: TEdit; + edt_atrasofim: TEdit; + pnl_tipopessoa: TPanel; + cb_tipopessoa: TCheckBox; + Panel1: TPanel; + rg_tipopessoa: TRadioGroup; + QPesquisaTX_NOME: TWideStringField; + QPesquisaTX_DOCUMENTO: TWideStringField; + QPesquisaTX_EMAIL: TWideStringField; + dblulb_provs: TDBLookupComboBox; + lbl_prov: TLabel; + cb_retornaprov: TCheckBox; + QPesquisaID_DEVEDOR: TIntegerField; + Label2: TLabel; + mb_log: TMemo; + lbl_resultado: TLabel; + procedure btn_pesquisaClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cb_beneficiariosClick(Sender: TObject); + procedure cb_providenciasClick(Sender: TObject); + procedure cb_periodoprovClick(Sender: TObject); + procedure cb_cobradoresClick(Sender: TObject); + procedure cb_faixavalorClick(Sender: TObject); + procedure cb_entradaClick(Sender: TObject); + procedure cb_agendamentoClick(Sender: TObject); + procedure cb_faixanomeClick(Sender: TObject); + procedure cb_atrasoClick(Sender: TObject); + procedure cb_tipopessoaClick(Sender: TObject); + procedure clb_beneficiariosClickCheck(Sender: TObject); + procedure clb_providenciasClickCheck(Sender: TObject); + procedure btn_mandaemailClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure edt_pcredorChange(Sender: TObject); + procedure edt_pprovChange(Sender: TObject); + procedure cb_credorentradaClick(Sender: TObject); + procedure cb_credorvencimentoClick(Sender: TObject); + procedure cb_credortptituloClick(Sender: TObject); + procedure cb_cobradoresprovClick(Sender: TObject); + procedure edt_puserprovClick(Sender: TObject); + procedure clb_usuariosprovClickCheck(Sender: TObject); + procedure rg_agendamentoClick(Sender: TObject); + procedure cb_cobradoresagendaClick(Sender: TObject); + procedure edt_puseragendaChange(Sender: TObject); + procedure clb_usuariosagendaClickCheck(Sender: TObject); + private + procedure AdjustCheckListBox(var CB: TCheckListBox); + procedure marca_todos(clb: TCheckListBox); + { Private declarations } + public + { Public declarations } + end; + +var + frmMandaMensagem: TfrmMandaMensagem; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +{ TfrmMandaEmail } + +procedure TfrmMandaMensagem.AdjustCheckListBox(var CB: TCheckListBox); +var + i, nMaxWidth, nItemWidth: Integer; +begin + nMaxWidth := CB.ClientWidth; + for i := 0 to CB.Items.Count - 1 do + begin + nItemWidth := CB.Canvas.TextWidth(CB.Items[i]) + 20; + if (nItemWidth > nMaxWidth) then + nMaxWidth := nItemWidth; + end; + if (nMaxWidth > CB.ClientWidth) then + begin + CB.ScrollWidth := nMaxWidth; + end; +end; + +procedure TfrmMandaMensagem.btn_mandaemailClick(Sender: TObject); +begin + if edt_assunto.Text = '' then + begin + MessageDlg('Por favor especifique um assunto antes de enviar os e-mails.', + mtWarning, [mbOK], 0); + abort; + end; + // if dblulb_provs.KeyValue < 0 then + // begin + // MessageDlg + // ('Por favor selecione a providncia a ser lanada antes de enviar os e-mails.', + // mtWarning, [mbOK], 0); + // abort; + // end; + Screen.Cursor := crHourGlass; + QPesquisa.DisableControls; + QPesquisa.First; + pb_pesquisa.Position := 0; + pb_pesquisa.Max := QPesquisa.RecordCount; + pb_pesquisa.Step := 1; + // safe := 'teste1'; + // if safe <> 'teste' then + // begin + mb_log.lines.add('Iniciando envio de emails.'); + while not QPesquisa.Eof do + begin + // enviou := true; + try + case rg_email.ItemIndex of + 0: // Empresa + begin + with ACBrMail do + begin + Clear; + IsHTML := true; + Subject := edt_assunto.Text; + From := dtmSystem.tblEmpresaTX_EMAIL.AsString; + FromName := dtmSystem.tblEmpresaTX_EMAILNOME.AsString; + Host := dtmSystem.tblEmpresaTX_SMTP.AsString; + Username := dtmSystem.tblEmpresaTX_USUARIO.AsString; + Password := dtmSystem.tblEmpresaTX_SENHA.AsString; + Port := dtmSystem.tblEmpresaTX_PORTA.AsString; + if dtmSystem.tblEmpresaTP_TLS.AsString = 'S' then + begin + SetTLS := true; + end + else + begin + SetTLS := false; + end; + if dtmSystem.tblEmpresaTP_SSL.AsString = 'S' then + begin + SetSSL := true; + end + else + begin + SetSSL := false; + end; + DefaultCharset := TMailCharset(0); + IDECharset := TMailCharset(0); + AddAddress(QPesquisaTX_EMAIL.AsString, QPesquisaTX_NOME.AsString); + Body.Text := + stringreplace(dtsTextoEmail.DataSet.FieldByName('TL_TEXTO') + .AsString, '% DEVEDOR %', QPesquisaTX_NOME.AsString, + [rfReplaceAll]); + Screen.Cursor := crHourGlass; + Send(false); + Screen.Cursor := crDefault; + end; + end; + 1: // Usurio + begin + dtmSystem.tblUsuariosConsulta.Locate('ID_USUARIO', + dtmSystem.id_usuario, []); + with ACBrMail do + begin + Clear; + IsHTML := true; + Subject := edt_assunto.Text; + From := dtmSystem.tblUsuariosConsultaTX_EMAIL.AsString; + FromName := dtmSystem.tblUsuariosConsultaTX_EMAILNOME.AsString; + Host := dtmSystem.tblUsuariosConsultaTX_SMTP.AsString; + Username := dtmSystem.tblUsuariosConsultaTX_USUARIOEMAIL.AsString; + Password := dtmSystem.tblUsuariosConsultaTX_SENHAEMAIL.AsString; + Port := dtmSystem.tblUsuariosConsultaTX_PORTA.AsString; + if dtmSystem.tblUsuariosConsultaTP_TLS.AsString = 'S' then + begin + SetTLS := true; + end + else + begin + SetTLS := false; + end; + if dtmSystem.tblUsuariosConsultaTP_SSL.AsString = 'S' then + begin + SetSSL := true; + end + else + begin + SetSSL := false; + end; + DefaultCharset := TMailCharset(0); + IDECharset := TMailCharset(0); + AddAddress(QPesquisaTX_EMAIL.AsString, QPesquisaTX_NOME.AsString); + Body.Text := + stringreplace(dtsTextoEmail.DataSet.FieldByName('TL_TEXTO') + .AsString, '% DEVEDOR %', QPesquisaTX_NOME.AsString, + [rfReplaceAll]); + + Screen.Cursor := crHourGlass; + Send(false); + Screen.Cursor := crDefault; + end; + end; + end; + Application.ProcessMessages; + mb_log.lines.add('Email enviado com sucesso.'); + except + on E: Exception do + begin + // enviou := false; + mb_log.lines.add('Falha ao enviar email. Devedor: ' + + QPesquisaTX_NOME.AsString); + mb_log.lines.add(E.ClassName + ' error raised, with message : ' + + E.Message); + end; + end; + sleep(750); + QPesquisa.Next; + pb_pesquisa.StepIt; + end; + // end; + QPesquisa.First; + QPesquisa.EnableControls; + cb_retornaprov.Checked := false; + mb_log.lines.add('Fim do processo de envio.'); + Screen.Cursor := crDefault; +end; + +procedure TfrmMandaMensagem.btn_pesquisaClick(Sender: TObject); +var + string_selecionados, dt_inicio, dt_fim: string; + i: Integer; +begin + + if (not cb_beneficiarios.Checked) and (not cb_providencias.Checked) and + (not cb_agendamento.Checked) and (not cb_faixanome.Checked) and + (not cb_atraso.Checked) and (not cb_tipopessoa.Checked) then + begin + MessageDlg('Por favor escolha um filtro para a pesquisa.', mtWarning, + [mbOK], 0); + abort; + end; + lbl_resultado.caption := 'Resultado: '; + string_selecionados := ''; + mb_log.lines.Clear; + mb_log.lines.add('Montado a Pesquisa.'); + // comea o sofrimento + QPesquisa.SQL.Clear; + with QPesquisa.SQL do // incio dasql + begin + add('select'); + add('d.tx_nome, t.id_devedor,'); + add('case when d.tp_cliente = ' + QuotedStr('F') + ' then d.cd_cpf'); + add('when d.tp_cliente = ' + QuotedStr('J') + ' then d.cd_cnpj'); + add('end as tx_documento'); + add(',e.tx_email'); + add('from chg_titulos t'); + add('left join chg_devedores d on d.id_devedor = t.id_devedor'); + add('left join chg_emails e on t.id_devedor = e.id_devedor'); + add('where'); + add('char_length(e.tx_email) > 3 and'); + end; + + if cb_beneficiarios.Checked then // se beneficiarios t selecionado + begin + for i := 1 to clb_beneficiarios.Items.Count - 1 do + begin + if clb_beneficiarios.Checked[i] then + begin + dtmSystem.tblCHGEmpresa.RecNo := i; + string_selecionados := string_selecionados + + dtmSystem.tblCHGEmpresaID_EMPRESA.AsString + ','; + end; + end; + string_selecionados := LeftStr(string_selecionados, + length(string_selecionados) - 1); + with QPesquisa.SQL do + begin + add('t.id_empresa in '); + add('(' + string_selecionados + ')'); + if cb_credorentrada.Checked then + begin + dt_inicio := DateToStr(dtp_credorentrada1.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_credorentrada2.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + add('and'); + add('cast(t.dt_entrada as date) >= ' + QuotedStr(dt_inicio) + ' and '); + add('cast(t.dt_entrada as date) <= ' + QuotedStr(dt_fim)); + end; + if cb_credorvencimento.Checked then + begin + dt_inicio := DateToStr(dtp_credorvenc1.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_credorvenc2.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + add('and'); + add('cast(t.dt_vencimento as date) >= ' + QuotedStr(dt_inicio) + + ' and '); + add('cast(t.dt_vencimento as date) <= ' + QuotedStr(dt_fim)); + end; + if cb_credortptitulo.Checked then + begin + add('and'); + case rg_credortptitulo.ItemIndex of + 0: + begin + add('t.TP_SITUACAO <> ' + QuotedStr('')); + end; + 1: + begin + add('(t.TP_SITUACAO = ' + QuotedStr('A') + 'or t.TP_SITUACAO = ' + + QuotedStr('AC') + ')'); + end; + 2: + begin + add('(t.TP_SITUACAO = ' + QuotedStr('B') + ' OR '); + add('t.TP_SITUACAO = ' + QuotedStr('QC') + ' OR '); + add('t.TP_SITUACAO = ' + QuotedStr('QB') + ')'); + end; + end; + end; + add('and '); + end; + string_selecionados := ''; + end; + + if cb_providencias.Checked then // se providncias ta selecionado + begin + for i := 1 to clb_providencias.Items.Count - 1 do + begin + if clb_providencias.Checked[i] then + begin + dtmSystem.tblProvidencias.RecNo := i; + string_selecionados := string_selecionados + + dtmSystem.tblProvidenciasID_PROVIDENCIA.AsString + ','; + end; + end; + string_selecionados := LeftStr(string_selecionados, + length(string_selecionados) - 1); + if rg_filtroprov.ItemIndex >= 0 then + // se escolheu algum filtro + begin + case rg_filtroprov.ItemIndex of + 0: // contenha providencia + begin + with QPesquisa.SQL do + begin + add('t.id_devedor in'); + add('(select h.id_devedor from chg_historico h'); + add('where h.id_providencia in'); + add('(' + string_selecionados + ')'); + end; + end; + 1: // no contenha + begin + with QPesquisa.SQL do + begin + add('t.id_devedor not in'); + add('(select h.id_devedor from chg_historico h'); + add('where h.id_providencia in'); + add('(' + string_selecionados + ')'); + end; + end; + 2: // seja a ltima providencia lanada + begin + with QPesquisa.SQL do + begin + add('t.id_devedor in'); + add('(select h.id_devedor from chg_historico h'); + add('inner join (SELECT h.id_devedor, MAX(h.ID_HISTORICO) AS MAXHIST FROM CHG_HISTORICO h'); + add('group by id_devedor)'); + add('hist on hist.id_devedor = h.id_devedor and h.id_historico = hist.maxhist'); + add('where h.id_providencia in'); + add('(' + string_selecionados + ')'); + end; + end; + 3: // positivas + begin + with QPesquisa.SQL do + begin + add('t.id_devedor in'); + add('(select h.id_devedor from chg_historico h'); + add('where'); + add('h.id_providencia in'); + add('(select p.id_providencia from chg_providencias p where'); + add('p.tp_providencia = ' + QuotedStr('Positiva') + ')'); + end; + end; + 4: // negativas + begin + with QPesquisa.SQL do + begin + add('t.id_devedor in'); + add('(select h.id_devedor from chg_historico h'); + add('where'); + add('h.id_providencia in'); + add('(select p.id_providencia from chg_providencias p where'); + add('p.tp_providencia = ' + QuotedStr('Negativa') + ')'); + end; + end; + end; + + if cb_periodoprov.Checked then + // se escolheu um perodo de lanamento da providencia + begin + dt_inicio := DateToStr(dtp_provin.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + '-' + + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_provfim.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + with QPesquisa.SQL do + begin + add('and '); + add('cast(h.dt_contato as date) >= ' + QuotedStr(dt_inicio)); + add('and '); + add('cast(h.dt_contato as date) <= ' + QuotedStr(dt_fim)); + end; + end; + if cb_cobradoresprov.Checked then + begin + for i := 1 to clb_usuariosprov.Items.Count - 1 do + begin + if clb_usuariosprov.Checked[i] then + begin + dtmSystem.tblUsuariosConsulta.RecNo := i; + string_selecionados := string_selecionados + + dtmSystem.tblUsuariosConsultaID_USUARIO.AsString + ','; + end; + end; + string_selecionados := LeftStr(string_selecionados, + length(string_selecionados) - 1); + with QPesquisa.SQL do + begin + add('and '); + add('t.id_devedor in'); + add('(select h.id_devedor from chg_historico h'); + add('where h.id_cobrador in'); + add('(' + string_selecionados + '))'); + end; + end; + with QPesquisa.SQL do + begin + + add(') '); + + add('and'); + end; + string_selecionados := ''; + end; + end; + + if cb_tipopessoa.Checked then // tipo de pessoa + begin + with QPesquisa.SQL do + begin + case rg_tipopessoa.ItemIndex of + 0: + begin + add('d.tp_cliente = ' + QuotedStr('F')); + add('and '); + end; + 1: + begin + add('d.tp_cliente = ' + QuotedStr('J')); + add('and '); + end; + end; + end; + end; + + if cb_agendamento.Checked then // Agendamento + begin + with QPesquisa.SQL do + begin + case rg_agendamento.ItemIndex of + 0: + begin + + end; + 1: + begin + add('t.id_devedor in'); + add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A') + ')'); + add('and '); + end; + 2: + begin + dt_inicio := DateToStr(dtp_agendcomeco.Date); + dt_inicio := RightStr(dt_inicio, 4) + '-' + copy(dt_inicio, 4, 2) + + '-' + LeftStr(dt_inicio, 2); + dt_fim := DateToStr(dtp_agendfim.Date); + dt_fim := RightStr(dt_fim, 4) + '-' + copy(dt_fim, 4, 2) + '-' + + LeftStr(dt_fim, 2); + add('t.id_devedor in'); + add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A')); + add('and '); + add('cast(dt_agendada as date) >= ' + QuotedStr(dt_inicio) + ' '); + add('and '); + add('cast(dt_agendada as date) <= ' + QuotedStr(dt_fim) + ')'); + add('and '); + end; + 3: + begin + add('t.id_devedor in'); + add('(select a.id_devedor from chg_agenda a where a.tp_situacao = ' + + QuotedStr('A')); + add('and '); + add('a.dt_agendada <= ' + QuotedStr(FormatDateTime('YYYY-MM-DD', + Date)) + ')'); + add('and '); + end; + 4: + begin + add('t.id_devedor not in'); + add('(select a.id_devedor from chg_agenda a where tp_situacao = ' + + QuotedStr('A') + ')'); + add('and '); + end; + end; + end; + end; + + if cb_faixanome.Checked then // faixa de nomes + begin + with QPesquisa.SQL do + begin + // Upper(d.TX_NOME) similar to '[A-M]_*' + add('Upper(d.TX_NOME) similar to ' + '''[' + edt_nomein.Text + '-' + + edt_nomefim.Text + ']_*'''); + add('and '); + end; + end; + + if cb_atraso.Checked then // dias de atraso no ttulo + begin + with QPesquisa.SQL do + begin + // datediff(day,t.dt_vencimento,cast('now' as date)) >= 1 + add('datediff(day,cast(t.dt_vencimento as date),cast(''now'' as date)) >= ' + + edt_atrasoin.Text); + add('and '); + add('datediff(day,cast(t.dt_vencimento as date),cast(''now'' as date)) <= ' + + edt_atrasofim.Text); + add('and '); + end; + end; + + QPesquisa.SQL.Delete(QPesquisa.SQL.Count - 1); + + QPesquisa.SQL.add + ('group by d.tx_nome, tx_documento, e.tx_email, t.id_devedor'); + + QPesquisa.SQL.add('order by d.tx_nome'); + + Screen.Cursor := crHourGlass; + + mb_log.lines.add('Iniciando a Pesquisa.'); + + QPesquisa.Open; + + QPesquisa.First; + + Screen.Cursor := crDefault; + if QPesquisa.RecordCount > 0 then + begin + QPesquisa.First; + lbl_resultado.caption := 'Resultado: ' + inttostr(QPesquisa.RecordCount) + + ' emails.'; + end; + mb_log.lines.add('Pesquisa realizada.'); +end; + +procedure TfrmMandaMensagem.Button1Click(Sender: TObject); +begin + with ACBrMail do + begin + Clear; + // IsHTML := false; + IsHTML := true; + Subject := edt_assunto.Text; + From := dtmSystem.tblEmpresaTX_EMAIL.AsString; + FromName := dtmSystem.tblEmpresaTX_EMAILNOME.AsString; + Host := dtmSystem.tblEmpresaTX_SMTP.AsString; + Username := dtmSystem.tblEmpresaTX_USUARIO.AsString; + Password := dtmSystem.tblEmpresaTX_SENHA.AsString; + Port := dtmSystem.tblEmpresaTX_PORTA.AsString; + SetTLS := true; + SetSSL := true; + DefaultCharset := TMailCharset(0); + IDECharset := TMailCharset(0); + AddAddress('marcus@nexverse.com.br', 'marcus'); + Body.Text := stringreplace(dbre_textomensagem.Text, '% DEVEDOR %', + QPesquisaTX_NOME.AsString, [rfReplaceAll]); + Application.ProcessMessages; + Screen.Cursor := crHourGlass; + Send(false); + Screen.Cursor := crDefault; + end; +end; + +procedure TfrmMandaMensagem.cb_agendamentoClick(Sender: TObject); +begin + case cb_agendamento.Checked of + true: + begin + rg_agendamento.Enabled := cb_agendamento.Checked; + cb_cobradoresagenda.Enabled := cb_agendamento.Checked; + end; + false: + begin + rg_agendamento.Enabled := cb_agendamento.Checked; + cb_cobradoresagenda.Enabled := cb_agendamento.Checked; + edt_puseragenda.Enabled := cb_agendamento.Checked; + clb_usuariosagenda.Enabled := cb_agendamento.Checked; + end; + end; +end; + +procedure TfrmMandaMensagem.cb_atrasoClick(Sender: TObject); +begin + edt_atrasoin.Enabled := cb_atraso.Checked; + edt_atrasofim.Enabled := cb_atraso.Checked; +end; + +procedure TfrmMandaMensagem.cb_beneficiariosClick(Sender: TObject); +begin + case cb_beneficiarios.Checked of + true: + begin + clb_beneficiarios.Enabled := cb_beneficiarios.Checked; + edt_pcredor.Enabled := cb_beneficiarios.Checked; + cb_credorentrada.Enabled := cb_beneficiarios.Checked; + cb_credorvencimento.Enabled := cb_beneficiarios.Checked; + cb_credortptitulo.Enabled := cb_beneficiarios.Checked; + end; + false: + begin + clb_beneficiarios.Enabled := cb_beneficiarios.Checked; + edt_pcredor.Enabled := cb_beneficiarios.Checked; + cb_credorentrada.Enabled := cb_beneficiarios.Checked; + cb_credorentrada.Checked := cb_beneficiarios.Checked; + dtp_credorentrada1.Enabled := cb_beneficiarios.Checked; + dtp_credorentrada2.Enabled := cb_beneficiarios.Checked; + cb_credorvencimento.Enabled := cb_beneficiarios.Checked; + cb_credorvencimento.Checked := cb_beneficiarios.Checked; + dtp_credorvenc1.Enabled := cb_beneficiarios.Checked; + dtp_credorvenc2.Enabled := cb_beneficiarios.Checked; + cb_credortptitulo.Enabled := cb_beneficiarios.Checked; + rg_credortptitulo.ItemIndex := -1; + end; + end; +end; + +procedure TfrmMandaMensagem.cb_cobradoresagendaClick(Sender: TObject); +begin + edt_puseragenda.Enabled := cb_cobradoresagenda.Checked; + clb_usuariosagenda.Enabled := cb_cobradoresagenda.Checked; +end; + +procedure TfrmMandaMensagem.cb_cobradoresClick(Sender: TObject); +begin + // clb_usuarios.Enabled := cb_cobradores.Checked; + // edt_puser.Enabled := cb_cobradores.Enabled; +end; + +procedure TfrmMandaMensagem.cb_cobradoresprovClick(Sender: TObject); +begin + edt_puserprov.Enabled := cb_cobradoresprov.Checked; + clb_usuariosprov.Enabled := cb_cobradoresprov.Checked; +end; + +procedure TfrmMandaMensagem.cb_credorentradaClick(Sender: TObject); +begin + dtp_credorentrada1.Enabled := cb_credorentrada.Checked; + dtp_credorentrada2.Enabled := cb_credorentrada.Checked; +end; + +procedure TfrmMandaMensagem.cb_credortptituloClick(Sender: TObject); +begin + rg_credortptitulo.Enabled := cb_credortptitulo.Checked; +end; + +procedure TfrmMandaMensagem.cb_credorvencimentoClick(Sender: TObject); +begin + dtp_credorvenc1.Enabled := cb_credorvencimento.Checked; + dtp_credorvenc2.Enabled := cb_credorvencimento.Checked; +end; + +procedure TfrmMandaMensagem.cb_entradaClick(Sender: TObject); +begin + // if cb_entrada.Checked = true then + // begin + // dtp_entradacomeco.Enabled := true; + // dtp_entradafim.Enabled := true; + // end + // else + // begin + // dtp_entradacomeco.Enabled := false; + // dtp_entradafim.Enabled := false; + // end; +end; + +procedure TfrmMandaMensagem.cb_faixanomeClick(Sender: TObject); +begin + edt_nomein.Enabled := cb_faixanome.Checked; + edt_nomefim.Enabled := cb_faixanome.Checked; +end; + +procedure TfrmMandaMensagem.cb_faixavalorClick(Sender: TObject); +begin + // edt_faixain.Enabled := cb_faixavalor.Checked; + // edt_faixafim.Enabled := cb_faixavalor.Checked; +end; + +procedure TfrmMandaMensagem.cb_periodoprovClick(Sender: TObject); +begin + dtp_provin.Enabled := cb_periodoprov.Checked; + dtp_provfim.Enabled := cb_periodoprov.Checked; +end; + +procedure TfrmMandaMensagem.cb_providenciasClick(Sender: TObject); +begin + case cb_providencias.Checked of + true: + begin + clb_providencias.Enabled := cb_providencias.Checked; + edt_pprov.Enabled := cb_providencias.Checked; + rg_filtroprov.Enabled := cb_providencias.Checked; + cb_periodoprov.Enabled := cb_providencias.Checked; + cb_cobradoresprov.Enabled := cb_providencias.Checked; + end; + false: + begin + clb_providencias.Enabled := cb_providencias.Checked; + edt_pprov.Enabled := cb_providencias.Checked; + rg_filtroprov.Enabled := cb_providencias.Checked; + dtp_provin.Enabled := cb_providencias.Checked; + dtp_provfim.Enabled := cb_providencias.Checked; + cb_periodoprov.Enabled := cb_providencias.Checked; + cb_cobradoresprov.Enabled := cb_providencias.Checked; + edt_puserprov.Enabled := cb_providencias.Checked; + clb_usuariosprov.Enabled := cb_providencias.Checked; + end; + end; +end; + +procedure TfrmMandaMensagem.cb_tipopessoaClick(Sender: TObject); +begin + rg_tipopessoa.Enabled := cb_tipopessoa.Checked; +end; + +procedure TfrmMandaMensagem.clb_beneficiariosClickCheck(Sender: TObject); +begin + marca_todos(clb_beneficiarios); +end; + +procedure TfrmMandaMensagem.clb_providenciasClickCheck(Sender: TObject); +begin + marca_todos(clb_providencias); +end; + +procedure TfrmMandaMensagem.clb_usuariosagendaClickCheck(Sender: TObject); +begin + marca_todos(clb_usuariosagenda); +end; + +procedure TfrmMandaMensagem.clb_usuariosprovClickCheck(Sender: TObject); +begin + marca_todos(clb_usuariosprov); +end; + +procedure TfrmMandaMensagem.edt_pcredorChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_beneficiarios.Items.Count do + begin + try + if ContainsText(clb_beneficiarios.Items[i], edt_pcredor.Text) then + begin + clb_beneficiarios.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TfrmMandaMensagem.edt_pprovChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_providencias.Items.Count do + begin + try + if ContainsText(clb_providencias.Items[i], edt_pprov.Text) then + begin + clb_providencias.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TfrmMandaMensagem.edt_puseragendaChange(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_usuariosagenda.Items.Count do + begin + try + if ContainsText(clb_usuariosagenda.Items[i], edt_puseragenda.Text) then + begin + clb_usuariosagenda.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TfrmMandaMensagem.edt_puserprovClick(Sender: TObject); +var + i: Integer; +begin + for i := 0 to clb_usuariosprov.Items.Count do + begin + try + if ContainsText(clb_usuariosprov.Items[i], edt_puserprov.Text) then + begin + clb_usuariosprov.ItemIndex := i; + break; + end; + except + break; + end; + end; +end; + +procedure TfrmMandaMensagem.FormCreate(Sender: TObject); +begin + sbx_filtro.VertScrollBar.Position := 0; + + with dtmSystem do + begin + if not tblProvidencias.Active then + begin + tblProvidencias.Open; + end + else + begin + tblProvidencias.Refresh; + end; + if not tblDevedores.Active then + begin + tblDevedores.Open; + end + else + begin + tblDevedores.Refresh; + end; + if not tblHistorico.Active then + begin + tblHistorico.Open; + end + else + begin + tblHistorico.Refresh; + end; + if not(tblCHGEmpresa.Active) then + begin + tblCHGEmpresa.Open; + end; + tblCHGEmpresa.First; + clb_beneficiarios.Items.add('Marcar Todos'); + while not tblCHGEmpresa.Eof do // preenche o list box + begin + clb_beneficiarios.Items.add(tblCHGEmpresaTX_NOME.AsString); + tblCHGEmpresa.Next; + end; + + if not(tblUsuariosConsulta.Active) then + begin + tblUsuariosConsulta.Open; + end; + tblUsuariosConsulta.First; + // clb_usuarios.Items.Add('Marcar Todos'); + // while not tblUsuariosConsulta.Eof do // preenche o list box + // begin + // clb_usuarios.Items.Add(tblUsuariosConsultaTX_NOME.AsString); + // tblUsuariosConsulta.Next; + // end; + + if not(tblProvidencias.Active) then + begin + tblProvidencias.Open; + end; + tblProvidencias.First; + clb_providencias.Items.add('Marcar Todos'); + while not tblProvidencias.Eof do // preenche o list box + begin + clb_providencias.Items.add(tblProvidenciasTX_NOME.AsString); + tblProvidencias.Next; + end; + + if not tblTextoEmail.Active then + begin + tblTextoEmail.Open; + end; + + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + end; + + dtp_provin.Date := Date; + dtp_provfim.Date := Date; + // dtp_vencicomeco.Date := Date; + // dtp_vencifim.Date := Date; + // dtp_entradacomeco.Date := Date; + // dtp_entradafim.Date := Date; + + AdjustCheckListBox(clb_beneficiarios); + AdjustCheckListBox(clb_providencias); + // AdjustCheckListBox(clb_usuarios); +end; + +procedure TfrmMandaMensagem.marca_todos(clb: TCheckListBox); +var + i, j: Integer; +begin + with clb do + begin + if Checked[ItemIndex] then + begin + Items.beginupdate; // marcou o marca todos, marca todos + for i := 0 to Items.Count - 1 do + begin + if (ItemIndex = 0) and (Checked[i] = true) then + begin + for j := 1 to Items.Count - 1 do + begin + Checked[j] := true; + end; + end; + Items.EndUpdate; + end; + end + else + begin + Items.beginupdate; + for i := 0 to Items.Count - 1 do + // desmarcou o marca todos, desmarca todos + begin + if (ItemIndex = 0) and (Checked[i] = false) then + begin + for j := 1 to Items.Count - 1 do + begin + Checked[j] := false; + end; + end; + Items.EndUpdate; + end; + end; + end; +end; + +procedure TfrmMandaMensagem.rg_agendamentoClick(Sender: TObject); +begin + if rg_agendamento.ItemIndex = 2 then + begin + dtp_agendcomeco.Enabled := true; + dtp_agendfim.Enabled := true; + end + else + begin + dtp_agendcomeco.Enabled := false; + dtp_agendfim.Enabled := false; + end; +end; + +end. diff --git a/ufrmMemoBox.dfm b/ufrmMemoBox.dfm new file mode 100644 index 0000000..c6e0469 --- /dev/null +++ b/ufrmMemoBox.dfm @@ -0,0 +1,74 @@ +inherited frmMemoBox: TfrmMemoBox + BorderIcons = [biSystemMenu, biMinimize, biMaximize] + BorderStyle = bsSizeable + Caption = 'Observa'#231#245'es' + ClientHeight = 346 + ClientWidth = 572 + ExplicitWidth = 588 + ExplicitHeight = 384 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_tfonte: TLabel [0] + Left = 8 + Top = 8 + Width = 90 + Height = 13 + Caption = 'Tamanho da fonte:' + end + inherited stbStatus: TStatusBar + Top = 327 + Width = 572 + ExplicitTop = 327 + ExplicitWidth = 572 + end + object dbmb_obs: TDBMemo + Left = 8 + Top = 32 + Width = 557 + Height = 290 + Anchors = [akLeft, akTop, akRight, akBottom] + DataField = 'TL_MEMO' + DataSource = dtsHistorico + ScrollBars = ssVertical + TabOrder = 1 + end + object up_fonte: TUpDown + Left = 137 + Top = 5 + Width = 16 + Height = 21 + Associate = edt_fonte + ArrowKeys = False + Min = 8 + Max = 72 + Increment = 2 + Position = 8 + TabOrder = 2 + OnClick = up_fonteClick + end + object edt_fonte: TEdit + Left = 104 + Top = 5 + Width = 33 + Height = 21 + NumbersOnly = True + TabOrder = 3 + Text = '8' + OnEnter = edt_fonteEnter + end + object cb_negrito: TCheckBox + Left = 166 + Top = 7 + Width = 59 + Height = 17 + Caption = 'Negrito' + TabOrder = 4 + OnClick = cb_negritoClick + end + object dtsHistorico: TDataSource + DataSet = dtmSystem.tblHistorico + OnStateChange = dtsHistoricoStateChange + Left = 456 + Top = 8 + end +end diff --git a/ufrmMemoBox.pas b/ufrmMemoBox.pas new file mode 100644 index 0000000..746a340 --- /dev/null +++ b/ufrmMemoBox.pas @@ -0,0 +1,130 @@ +unit ufrmMemoBox; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls, + Vcl.DBCtrls, rDBComponents, Data.DB; + +type + TfrmMemoBox = class(TmstMaster) + dbmb_obs: TDBMemo; + lbl_tfonte: TLabel; + up_fonte: TUpDown; + edt_fonte: TEdit; + cb_negrito: TCheckBox; + dtsHistorico: TDataSource; + procedure FormCreate(Sender: TObject); + procedure up_fonteClick(Sender: TObject; Button: TUDBtnType); + procedure cb_negritoClick(Sender: TObject); + procedure edt_fonteEnter(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure dtsHistoricoStateChange(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + + { Private declarations } + public + chamou_esc : boolean; + { Public declarations } + end; + +var + frmMemoBox: TfrmMemoBox; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmMemoBox.cb_negritoClick(Sender: TObject); +begin + if cb_negrito.Checked then + begin + dbmb_obs.Font.Style := dbmb_obs.Font.Style + [fsBold]; + // toggle do negrito + end + else + begin + dbmb_obs.Font.Style := dbmb_obs.Font.Style - [fsBold]; + end; +end; + +procedure TfrmMemoBox.dtsHistoricoStateChange(Sender: TObject); +begin + dbmb_obs.ReadOnly := not(dtsHistorico.State in [dsEdit, dsInsert]); +end; + +procedure TfrmMemoBox.edt_fonteEnter(Sender: TObject); +begin + if StrToInt(edt_fonte.text) < 8 then // min e max do tamanho da fonte + begin + text := '8'; + dbmb_obs.Font.Size := 8; + end; + if StrToInt(edt_fonte.text) > 72 then + begin + text := '72'; + dbmb_obs.Font.Size := 72; + end; +end; + +procedure TfrmMemoBox.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + if (dtsHistorico.State in [dsInsert,dsEdit]) and (chamou_esc = false) then + begin + dtsHistorico.DataSet.FieldByName('TL_MEMO').AsString := dbmb_obs.Lines.Text; + end; +end; + +procedure TfrmMemoBox.FormCreate(Sender: TObject); +begin + edt_fonte.text := inttostr(dbmb_obs.Font.Size); + chamou_esc := false; +end; + +procedure TfrmMemoBox.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key = VK_ESCAPE then + begin + Key := 0; + chamou_esc := true; + Close; + end; +end; + +procedure TfrmMemoBox.up_fonteClick(Sender: TObject; Button: TUDBtnType); +begin + dbmb_obs.Font.Size := StrToInt(edt_fonte.text); +end; + +procedure TfrmMemoBox.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmMovUsuarios.dfm b/ufrmMovUsuarios.dfm new file mode 100644 index 0000000..fd8fc12 --- /dev/null +++ b/ufrmMovUsuarios.dfm @@ -0,0 +1,56 @@ +inherited frmMovUsuarios: TfrmMovUsuarios + Caption = 'Mover Usu'#225'rios' + ClientHeight = 130 + ClientWidth = 208 + Scaled = False + ExplicitWidth = 214 + ExplicitHeight = 158 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_text: TLabel [0] + Left = 8 + Top = 8 + Width = 190 + Height = 13 + Caption = 'Escolha um grupo para mover o usu'#225'rio:' + end + inherited stbStatus: TStatusBar + Top = 111 + Width = 208 + ExplicitTop = 111 + ExplicitWidth = 208 + end + object btn_ok: TButton + Left = 8 + Top = 80 + Width = 75 + Height = 25 + Caption = 'Ok' + ModalResult = 1 + TabOrder = 1 + OnClick = btn_okClick + end + object btn_cancel: TButton + Left = 123 + Top = 80 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 2 + end + object ComboBox1: TComboBox + Left = 8 + Top = 31 + Width = 190 + Height = 21 + DropDownCount = 4 + TabOrder = 3 + Text = 'ComboBox1' + end + object dtsGrupos: TDataSource + DataSet = dtmSystem.tblGrupos + Left = 88 + Top = 56 + end +end diff --git a/ufrmMovUsuarios.pas b/ufrmMovUsuarios.pas new file mode 100644 index 0000000..40d66db --- /dev/null +++ b/ufrmMovUsuarios.pas @@ -0,0 +1,114 @@ +unit ufrmMovUsuarios; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, Vcl.StdCtrls, + Vcl.DBCtrls, Vcl.ComCtrls, System.UITypes, udtmSystem; + +type + TfrmMovUsuarios = class(TmstMaster) + dtsGrupos: TDataSource; + lbl_text: TLabel; + btn_ok: TButton; + btn_cancel: TButton; + ComboBox1: TComboBox; + procedure btn_okClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + id_grupos: array of integer; + { Public declarations } + end; + +var + frmMovUsuarios: TfrmMovUsuarios; + +implementation + +{$R *.dfm} + +uses ucadUsuarios; + +procedure TfrmMovUsuarios.btn_okClick(Sender: TObject); +begin + inherited; + // verifica se j existe um usurio com esse nome. se sim no deixa transferir + if cadUsuarios.nome_grupmov = ComboBox1.Text then + begin + MessageDlg('O usurio j pertence a este grupo.', mtInformation, [mbok], 0); + frmMovUsuarios.ModalResult := mrCancel; + abort; + end + else + begin + cadUsuarios.id_grupomov := inttostr(id_grupos[ComboBox1.ItemIndex]); + end; +end; + +procedure TfrmMovUsuarios.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; +// with dtmSystem do +// begin +// tblGrupos.close; +// tblUsuarios.close; +// qryConsulta.close; +// end; +end; + +procedure TfrmMovUsuarios.FormCreate(Sender: TObject); +var + i: integer; +begin + inherited; + + with dtmSystem do + begin +// tblGrupos.Open; +// tblUsuarios.Open; // faz a consulta dos grupos pra preencher o combobox + i := 0; + qryConsulta.SQL.Text := 'Select * from SYS_GRUPOS ORDER BY TX_NOME'; + qryConsulta.Open; + setlength(id_grupos, qryConsulta.RecordCount); + while not qryConsulta.Eof do + begin + ComboBox1.Items.Add(qryConsulta.FieldByName('tx_nome').AsString); + id_grupos[i] := qryConsulta.FieldByName('id_grupo').AsInteger; + inc(i); + qryConsulta.Next; + end; + qryConsulta.close; + ComboBox1.ItemIndex := tblUsuariosID_GRUPO.AsInteger - 1; + end; +end; + +procedure TfrmMovUsuarios.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmPesquisa.dfm b/ufrmPesquisa.dfm new file mode 100644 index 0000000..05e3f15 --- /dev/null +++ b/ufrmPesquisa.dfm @@ -0,0 +1,196 @@ +inherited frmPesquisa: TfrmPesquisa + BorderIcons = [biSystemMenu, biMinimize, biMaximize] + BorderStyle = bsSizeable + Caption = 'Pesquisa' + ClientHeight = 364 + ClientWidth = 1106 + ExplicitWidth = 1114 + ExplicitHeight = 395 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 345 + Width = 1106 + ExplicitTop = 345 + ExplicitWidth = 1106 + end + object grpb_pesquisa: TGroupBox + Left = 4 + Top = 8 + Width = 749 + Height = 62 + Caption = 'Pesquisa' + TabOrder = 1 + DesignSize = ( + 749 + 62) + object SpeedButton1: TSpeedButton + Left = 544 + Top = 25 + Width = 23 + Height = 22 + Anchors = [] + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FF314B62 + AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF + 106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + 37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF + 00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2 + 9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC + E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF + FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED + B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF + FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF + DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0 + B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0 + BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1 + D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577 + 6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF} + OnClick = SpeedButton1Click + end + object edtSelecionar: TEdit + Left = 16 + Top = 26 + Width = 513 + Height = 21 + Anchors = [] + TabOrder = 0 + OnKeyPress = edtSelecionarKeyPress + end + object ccb_campo: TComboBox + Left = 584 + Top = 26 + Width = 145 + Height = 21 + Style = csDropDownList + Anchors = [] + TabOrder = 1 + Items.Strings = ( + 'Nome/Raz'#227'o' + 'Telefone (Sem DDD)' + 'CPF/CNPJ' + 'C'#243'digo do Credor' + 'Email' + 'RGU (UCP)' + 'C'#243'digo do Devedor (MCI)') + end + end + object grpb_grid: TGroupBox + Left = 4 + Top = 71 + Width = 749 + Height = 268 + Anchors = [akLeft, akTop, akBottom] + TabOrder = 2 + DesignSize = ( + 749 + 268) + object edt_copytoclipboard: TEdit + Left = 258 + Top = 112 + Width = 121 + Height = 21 + Anchors = [] + TabOrder = 0 + Text = 'edt_copytoclipboard' + Visible = False + end + object DBGrid1: TDBGrid + Left = 5 + Top = 5 + Width = 738 + Height = 257 + Anchors = [akLeft, akTop, akRight, akBottom] + DataSource = dtsDB + Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + ParentShowHint = False + PopupMenu = ppmn_pesquisa + ShowHint = False + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDblClick = DBGrid1DblClick + OnTitleClick = DBGrid1TitleClick + end + end + object gb_hist: TGroupBox + Left = 759 + Top = 8 + Width = 339 + Height = 331 + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'Hist'#243'rico' + TabOrder = 3 + DesignSize = ( + 339 + 331) + object dbgr_hist: TDBGrid + Left = 16 + Top = 25 + Width = 313 + Height = 296 + Anchors = [akLeft, akTop, akRight, akBottom] + DataSource = dtsHist + Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDblClick = dbgr_histDblClick + Columns = < + item + Expanded = False + FieldName = 'tx_nome' + Title.Caption = 'Nome' + Visible = True + end + item + Expanded = False + FieldName = 'cd_documento' + Title.Caption = 'Documento' + Visible = True + end> + end + end + object dtsDB: TDataSource + DataSet = ZQuery1 + Left = 16 + Top = 112 + end + object ZQuery1: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 56 + Top = 112 + end + object ppmn_pesquisa: TPopupMenu + Left = 56 + Top = 159 + object Copiar1: TMenuItem + Caption = 'Copiar' + Default = True + OnClick = Copiar1Click + end + end + object dtsHist: TDataSource + DataSet = dtmSystem.cdsHist + Left = 718 + Top = 160 + end +end diff --git a/ufrmPesquisa.pas b/ufrmPesquisa.pas new file mode 100644 index 0000000..cddbe51 --- /dev/null +++ b/ufrmPesquisa.pas @@ -0,0 +1,495 @@ +unit ufrmPesquisa; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.DateUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, Vcl.Grids, + Vcl.DBGrids, Vcl.StdCtrls, Vcl.Buttons, Vcl.ComCtrls, Vcl.ExtCtrls, + ZAbstractRODataset, ZAbstractDataset, ZDataset, StrUtils, Vcl.Menus, ClipBrd, + Datasnap.DBClient; + +type + TfrmPesquisa = class(TmstMaster) + grpb_pesquisa: TGroupBox; + edtSelecionar: TEdit; + SpeedButton1: TSpeedButton; + grpb_grid: TGroupBox; + DBGrid1: TDBGrid; + dtsDB: TDataSource; + ZQuery1: TZQuery; + ccb_campo: TComboBox; + ppmn_pesquisa: TPopupMenu; + Copiar1: TMenuItem; + edt_copytoclipboard: TEdit; + gb_hist: TGroupBox; + dtsHist: TDataSource; + dbgr_hist: TDBGrid; + procedure SpeedButton1Click(Sender: TObject); + procedure DBGrid1DblClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure edtSelecionarKeyPress(Sender: TObject; var Key: Char); + procedure Copiar1Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure dbgr_histDblClick(Sender: TObject); + procedure DBGrid1TitleClick(Column: TColumn); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + // procedure WMGetMinMaxInfo(var M: TWMGetMinMaxInfo); + // message WM_GETMINMAXINFO; + { Private declarations } + public + veio_cobranca: boolean; + { Public declarations } + end; + +var + frmPesquisa: TfrmPesquisa; + +implementation + +{$R *.dfm} + +uses udtmSystem, ucadDevedores, ufrmCobranca, System.UITypes, + ufrmEfetuarCobranca; + +// aqui que as pesquisas so feitas conforme o tipo de campo que deseja ser pesquisado + +procedure TfrmPesquisa.Copiar1Click(Sender: TObject); +begin + Clipboard.AsText := DBGrid1.SelectedField.Text; // copia pra clipboard +end; + +procedure TfrmPesquisa.DBGrid1DblClick(Sender: TObject); +var + helper: integer; +begin + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end + else + begin + dtmSystem.tblDevedores.Refresh; + end; +// if ZQuery1.FieldByName('ID_DEVEDOR') +// .AsString = dtmSystem.tblDevedoresID_DEVEDOR.AsString then +// begin +// +// end; + + if dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + ZQuery1.FieldByName('ID_DEVEDOR').AsString, []) then + begin + helper := dtmSystem.tblDevedores.recno; + + dtmSystem.cdsHist.DisableControls; + // + if dtmSystem.cdsHist.RecordCount > 10 then + begin + dtmSystem.cdsHist.First; + dtmSystem.cdsHist.Delete; + end; + // + if not(dtmSystem.cdsHist.Locate('TX_NOME', ZQuery1.FieldByName('TX_NOME') + .AsString, [loCaseInsensitive, loPartialKey])) then + begin + dtmSystem.cdsHist.Append; + dtmSystem.cdsHisttx_nome.AsString := + ZQuery1.FieldByName('TX_NOME').AsString; + dtmSystem.cdsHistid_devedor.AsInteger := ZQuery1.FieldByName('ID_DEVEDOR') + .AsInteger; + dtmSystem.cdsHist.Post; + end; + // + dtmSystem.cdsHist.EnableControls; + with dtmSystem do + begin + if not tblEnderecos.Active then + begin + tblEnderecos.Open; + tblEnderecos.First; + end + else + begin + tblEnderecos.Refresh; + end; + if not tblTelefones.Active then + begin + tblTelefones.Open; + tblTelefones.First; + end + else + begin + tblTelefones.Refresh; + end; + if not tblEmail.Active then + begin + tblEmail.Open; + tblEmail.First; + end + else + begin + tblEmail.Refresh; + end; + if not tblTitulos.Active then + begin + tblTitulos.Open; + tblTitulos.First; + end + else + begin + tblTitulos.Refresh; + end; + if not tblHistorico.Active then + begin + tblHistorico.Open; + tblHistorico.First; + end + else + begin + tblHistorico.Refresh; + end; + end; + if veio_cobranca then + begin + frmEfetuarCobranca.achou := true; + Close; + end + else + begin + cadDevedores := TcadDevedores.Create(Self); + // cadDevedores.pesquisa := helper; + cadDevedores.ShowModal; + end; + end; + +end; + +procedure TfrmPesquisa.DBGrid1TitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(DBGrid1.DataSource.DataSet, Column); +end; + +procedure TfrmPesquisa.dbgr_histDblClick(Sender: TObject); +var + helper: integer; +begin + if not dtmSystem.tblDevedores.Active then + begin + dtmSystem.tblDevedores.Open; + end + else + begin + dtmSystem.tblDevedores.Refresh; + end; + if dbgr_hist.DataSource.DataSet.FieldByName('id_devedor') + .AsInteger = dtmSystem.tblDevedoresID_DEVEDOR.AsInteger then + begin + dtmSystem.tblEnderecos.Refresh; + dtmSystem.tblEnderecos.First; + dtmSystem.tblTelefones.Refresh; + dtmSystem.tblTelefones.First; + dtmSystem.tblEmail.Refresh; + dtmSystem.tblEmail.First; + dtmSystem.tblTitulos.Refresh; + dtmSystem.tblTitulos.First; + dtmSystem.tblHistorico.Refresh; + dtmSystem.tblHistorico.First; + end; + if dtmSystem.tblDevedores.Locate('ID_DEVEDOR', + dbgr_hist.DataSource.DataSet.FieldByName('id_devedor').AsInteger, []) then + begin + helper := dtmSystem.tblDevedores.recno; + if veio_cobranca then + begin + frmEfetuarCobranca.achou := true; + Close; + end + else + begin + cadDevedores := TcadDevedores.Create(Self); + cadDevedores.pesquisa := helper; + cadDevedores.ShowModal; + end; + end; +end; + +procedure TfrmPesquisa.edtSelecionarKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if (Key = #13) then + begin + SpeedButton1Click(Self); // enter pra pesquisar + end; +end; + +procedure TfrmPesquisa.FormClose(Sender: TObject; var Action: TCloseAction); +begin + // inherited; + // dtmSystem.tblDevedores.close; + frmPesquisa := nil; +end; + +procedure TfrmPesquisa.FormCreate(Sender: TObject); +begin + inherited; + // cbb_seletor.ItemIndex := 0; + ccb_campo.ItemIndex := 0; + if not(dtmSystem.tblDevedores.Active) then + begin + dtmSystem.tblDevedores.Open; + end + else + begin + dtmSystem.tblDevedores.Refresh; + end; + DBGrid1.Enabled := false; + veio_cobranca := false; + if not(dtmSystem.cdsHist.Active) then + begin + dtmSystem.cdsHist.Open; + end; + if not(dtmSystem.tblEnderecos.Active) then + begin + dtmSystem.tblEnderecos.Open; + end; + if veio_cobranca then + begin + frmEfetuarCobranca.achou := false; + end; +end; + +procedure TfrmPesquisa.SpeedButton1Click(Sender: TObject); +var + tx_pesquisa, string_query, help_cpfcnpj, tx_tel, query2: string; + i, tam1: integer; +begin + inherited; + // se vazio, sai + if edtSelecionar.Text = '' then + begin + // exit; + abort; + end; + // coloca o caracter coringa + tx_pesquisa := Ansiuppercase(stringreplace(edtSelecionar.Text, ' ', '%', + [rfReplaceAll])); + + string_query := 'select ID_DEVEDOR, TX_NOME, case when TP_CLIENTE = ''F'' ' + + 'then CD_CPF when TP_CLIENTE = ''J'' then CD_CNPJ end as TX_DOCUMENTO from ' + + 'CHG_DEVEDORES where '; + query2 := string_query; + Screen.Cursor := crHourglass; + case ccb_campo.ItemIndex of + 0: // Nome/Razo + begin + string_query := string_query + 'upper(TX_NOME COLLATE WIN_PTBR) LIKE ' + + QuotedStr('%' + tx_pesquisa + '%'); + end; + + 1: // Telefone sem DDD + begin + // if copy(tx_pesquisa, 1, 1) <> '(' then + // begin + // tx_pesquisa := '(' + tx_pesquisa; + // end; + // if copy(tx_pesquisa, 4, 1) <> ')' then + // begin + // tx_pesquisa := copy(tx_pesquisa, 1, 3) + ')' + + // copy(tx_pesquisa, 4, 15); + // end; + // if copy(tx_pesquisa, 9, 1) <> '-' then + // begin + // tx_pesquisa := copy(tx_pesquisa, 1, 8) + '-' + + // copy(tx_pesquisa, 9, 15); + // end; + // if (length(tx_pesquisa) < 13) or (length(tx_pesquisa) > 14) then + // begin + // MessageDlg('Nmero de telefone invlido.', mtWarning, [mbOK], 0); + // exit; + // end; + tx_tel := stringreplace(tx_pesquisa, '-', '', + [rfReplaceAll, rfIgnoreCase]); + if (length(tx_pesquisa) < 8) or (length(tx_pesquisa) > 9) then + begin + MessageDlg + ('Nmero de telefone invlido. Ele deve conter ao menos 8 dgitos e no mximo 9 para que a pesquisa possa ser realizada.', + mtWarning, [mbOK], 0); + abort; + end; + if length(tx_pesquisa) = 8 then + begin + tx_pesquisa := copy(tx_pesquisa, 1, 4) + '-' + + copy(tx_pesquisa, 5, 4); + end + else + begin + tx_pesquisa := copy(tx_pesquisa, 1, 5) + '-' + + copy(tx_pesquisa, 6, 4); + end; + string_query := string_query + + 'ID_DEVEDOR in (SELECT ID_DEVEDOR FROM CHG_TELEFONES WHERE NR_NUMERO = ' + + QuotedStr(tx_pesquisa) + ' or NR_NUMERO = '+ QuotedStr(tx_tel) +')'; + end; + + 2: // CPF/CNPJ + begin + tx_pesquisa := stringreplace(tx_pesquisa, '.', '', [rfReplaceAll]); + tx_pesquisa := stringreplace(tx_pesquisa, '-', '', [rfReplaceAll]); + tx_pesquisa := stringreplace(tx_pesquisa, '/', '', [rfReplaceAll]); + if length(tx_pesquisa) < 14 then + begin + tx_pesquisa := stringreplace(tx_pesquisa, 'TX_DOCUMENTO', 'CD_CPF', + [rfReplaceAll]); + help_cpfcnpj := copy(tx_pesquisa, 1, 3) + '.' + + copy(tx_pesquisa, 4, 3) + '.' + copy(tx_pesquisa, 7, 3) + '-' + + RightStr(tx_pesquisa, 2); + string_query := string_query + 'CD_CPF like ' + + QuotedStr(help_cpfcnpj); + end + else if length(tx_pesquisa) >= 14 then + begin + tx_pesquisa := stringreplace(tx_pesquisa, 'TX_DOCUMENTO', 'CD_CNPJ', + [rfReplaceAll]); + help_cpfcnpj := copy(tx_pesquisa, 1, 2) + '.' + + copy(tx_pesquisa, 3, 3) + '.' + copy(tx_pesquisa, 6, 3) + '/' + + copy(tx_pesquisa, 9, 4) + '-' + RightStr(tx_pesquisa, 2); + string_query := string_query + 'CD_CNPJ like ' + + QuotedStr(help_cpfcnpj); + string_query := stringreplace(string_query, 'CD_CPF', 'CD_CNPJ', + [rfReplaceAll]); + end; + end; + + 3: // N do documento + begin + // select id_devedor from chg_devedores where id_devedor = (select id_devedor from chg_titulos where cd_devedor = '1') + string_query := string_query + + 'ID_DEVEDOR in (select distinct id_devedor from chg_titulos where (cd_devedor like ' + + QuotedStr('%' + tx_pesquisa + '%') + ') or (tx_produto like' + + QuotedStr('%' + tx_pesquisa + '%') + '))'; + end; + 4: + begin + string_query := string_query + + 'id_devedor in ( select id_devedor from chg_emails where upper(TX_EMAIL) LIKE ' + + QuotedStr('%' + tx_pesquisa + '%') + ')'; + end; + 5: + begin +// string_query := string_query + +// 'ID_DEVEDOR in (select distinct id_devedor from chg_titulos where ((cd_devedor like ' +// + QuotedStr('%' + tx_pesquisa + '%') + ') or (tx_produto like' + +// QuotedStr('%' + tx_pesquisa + '%') + +// ')) and id_empresa in (5, 7, 9, 73, 74, 242, 258))'; + string_query := string_query + + 'ID_DEVEDOR in (select distinct id_devedor from chg_titulos where tx_produto like' + + QuotedStr('%' + tx_pesquisa + '%') + + ' and id_empresa in (5, 7, 9, 73, 74, 242, 258))'; + end; + 6: + begin + string_query := string_query + + 'CD_DEVEDOR LIKE ' + QuotedStr('%' + tx_pesquisa + '%') + end; + end; + string_query := string_query + ' order by tx_nome'; + + DBGrid1.Enabled := true; + ZQuery1.Close; + ZQuery1.SQL.Text := string_query; + + //ZQuery1.ExecSQL; + Application.ProcessMessages; + ZQuery1.Open; + //ZQuery1.Active := true; + + if (ZQuery1.IsEmpty)then + // se vazio, avisa que no achou nada + begin + //ZQuery1.Active := false; + ZQuery1.Close; + MessageDlg('Nenhuma entrada foi encontrada.', mtWarning, [mbOK], 0); + end; + + for i := 0 to ZQuery1.FieldCount - 1 do + // arruma o tamanho das colunas conforme os dados + begin + + if AnsiContainsText(DBGrid1.Columns[i].Title.Caption, 'ID_') then + begin + DBGrid1.Columns[i].Title.Caption := 'Id'; + end; + + if DBGrid1.Columns[i].Title.Caption = 'TX_NOME' then + begin + DBGrid1.Columns[i].Title.Caption := 'Nome'; + end; + + if DBGrid1.Columns[i].Title.Caption = 'TX_DOCUMENTO' then + begin + DBGrid1.Columns[i].Title.Caption := 'N do documento'; + tam1 := 543; + end; + + if DBGrid1.Columns[i].Title.Caption = 'CD_CPF' then + begin + DBGrid1.Columns[i].Title.Caption := 'CPF'; + tam1 := 584; + end; + + if DBGrid1.Columns[i].Title.Caption = 'CD_CNPJ' then + begin + DBGrid1.Columns[i].Title.Caption := 'CNPJ'; + tam1 := 567; + end; + + if DBGrid1.Columns[i].Title.Caption = 'TX_CNPJ' then + begin + DBGrid1.Columns[i].Title.Caption := 'CNPJ'; + tam1 := 543; + end; + + end; + + for i := 0 to ZQuery1.FieldCount - 1 do + begin + if AnsiContainsText(DBGrid1.Columns[i].Title.Caption, 'Id') then + begin + DBGrid1.Columns[i].Width := 40; + end; + + if DBGrid1.Columns[i].Title.Caption = 'Nome' then + begin + DBGrid1.Columns[i].Width := tam1; + end; + end; + Screen.Cursor := crDefault; +end; + +procedure TfrmPesquisa.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if Left < workArea.Left then + OffsetRect(Msg.DragRect^, workArea.Left - Left, 0); + + if Top < workArea.Top then + OffsetRect(Msg.DragRect^, 0, workArea.Top - Top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmPopUp.dfm b/ufrmPopUp.dfm new file mode 100644 index 0000000..9ac075a --- /dev/null +++ b/ufrmPopUp.dfm @@ -0,0 +1,49 @@ +inherited frmPopUp: TfrmPopUp + Caption = 'Configurar Pop Up de Inicializa'#231#227'o' + ClientHeight = 331 + ClientWidth = 543 + ExplicitWidth = 549 + ExplicitHeight = 359 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 312 + Width = 543 + ExplicitTop = 312 + ExplicitWidth = 543 + end + object mb_texto: TMemo + Left = 8 + Top = 37 + Width = 527 + Height = 272 + TabOrder = 1 + end + object dtp_datatermino: TDateTimePicker + Left = 8 + Top = 10 + Width = 105 + Height = 21 + Date = 43482.455802974540000000 + Time = 43482.455802974540000000 + TabOrder = 2 + end + object Button1: TButton + Left = 379 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Salvar' + TabOrder = 3 + OnClick = Button1Click + end + object Button2: TButton + Left = 460 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Cancelar' + TabOrder = 4 + OnClick = Button2Click + end +end diff --git a/ufrmPopUp.pas b/ufrmPopUp.pas new file mode 100644 index 0000000..bdbf2e0 --- /dev/null +++ b/ufrmPopUp.pas @@ -0,0 +1,114 @@ +unit ufrmPopUp; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, IniFiles, DateUtils, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.StdCtrls; + +type + TfrmPopUp = class(TmstMaster) + mb_texto: TMemo; + dtp_datatermino: TDateTimePicker; + Button1: TButton; + Button2: TButton; + procedure FormCreate(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmPopUp: TfrmPopUp; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmPopUp.Button1Click(Sender: TObject); +var + resp: integer; +begin + if mb_texto.ToString = '' then + begin + resp := MessageDlg('Deseja apagar a mensagem do Pop Up?', mtWarning, + mbYesNo, 0); + if resp = mrNo then + begin + Abort; + end; + end; + if DaysBetween(dtp_datatermino.Date, now) > 360 then + begin + resp := MessageDlg + ('A data para termino do envio da mensagem parece incorreta. Deseja continuar?', + mtWarning, mbYesNo, 0); + if resp = mrNo then + begin + Abort; + end; + end; +// with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'popup.ini') do + with TIniFile.Create(dtmSystem.path_executavel + '\popup.ini') do + begin + WriteString('MENSAGEM', 'Texto', mb_texto.Text); + WriteString('MENSAGEM', 'Data-Fim', DateToStr(dtp_datatermino.Date)); + end; +end; + +procedure TfrmPopUp.Button2Click(Sender: TObject); +var + msg: string; + data_termino: TDate; +begin +// with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'popup.ini') do + with TIniFile.Create(dtmSystem.path_executavel + 'popup.ini') do + begin + msg := ReadString('MENSAGEM', 'Texto', ''); + try + data_termino := StrToDate(ReadString('MENSAGEM', 'Data-Fim', '')); + except + data_termino := 0; + end; + end; + mb_texto.Text := msg; + dtp_datatermino.Date := data_termino; +end; + +procedure TfrmPopUp.FormCreate(Sender: TObject); +var + msg: string; + data_termino: TDate; +begin +// if not(FileExists(ExtractFilePath(Application.ExeName) + 'popup.ini')) then + if not(FileExists(dtmSystem.path_executavel + '\popup.ini')) then + begin +// with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'popup.ini') do + with TIniFile.Create(dtmSystem.path_executavel + '\popup.ini') do + begin + WriteString('MENSAGEM', 'Texto', ''); + WriteString('MENSAGEM', 'Data-Fim', ''); + end; + end; + +// with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'popup.ini') do + with TIniFile.Create(dtmSystem.path_executavel + '\popup.ini') do + begin + msg := ReadString('MENSAGEM', 'Texto', ''); + try + data_termino := StrToDate(ReadString('MENSAGEM', 'Data-Fim', '')); + except + data_termino := 0; + end; + end; + mb_texto.Text := msg; + dtp_datatermino.Date := data_termino; +end; + +end. diff --git a/ufrmProgressEC.dfm b/ufrmProgressEC.dfm new file mode 100644 index 0000000..a36a6ae --- /dev/null +++ b/ufrmProgressEC.dfm @@ -0,0 +1,59 @@ +inherited frmProgressEC: TfrmProgressEC + BorderIcons = [] + Caption = 'Cadastramento de Estados e Cidades' + ClientHeight = 126 + ClientWidth = 420 + Scaled = False + ExplicitWidth = 426 + ExplicitHeight = 154 + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel [0] + Left = 0 + Top = 0 + Width = 420 + Height = 33 + Align = alTop + Color = clHighlightText + ParentBackground = False + TabOrder = 0 + object Label1: TLabel + Left = 8 + Top = 3 + Width = 400 + Height = 16 + Caption = 'Seu Banco de Dados n'#227'o possui Cidades e Estados Cadastrados.' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = 0 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentColor = False + ParentFont = False + end + end + inherited stbStatus: TStatusBar + Top = 107 + Width = 420 + ExplicitTop = 107 + ExplicitWidth = 420 + end + object ProgressBar1: TProgressBar + Left = 112 + Top = 46 + Width = 201 + Height = 17 + Max = 30 + TabOrder = 2 + end + object Button1: TButton + Left = 175 + Top = 73 + Width = 76 + Height = 25 + Caption = 'Cadastrar' + TabOrder = 3 + OnClick = Button1Click + end +end diff --git a/ufrmProgressEC.pas b/ufrmProgressEC.pas new file mode 100644 index 0000000..03273fc --- /dev/null +++ b/ufrmProgressEC.pas @@ -0,0 +1,108 @@ +unit ufrmProgressEC; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.ExtCtrls, + Vcl.StdCtrls; + +type + TfrmProgressEC = class(TmstMaster) + Label1: TLabel; + Panel1: TPanel; + ProgressBar1: TProgressBar; + Button1: TButton; + procedure Button1Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmProgressEC: TfrmProgressEC; + +implementation + +{$R *.dfm} + +uses udtmSystem; +// janela para montar as tabelas de cidades e estados num banco vazio + +procedure TfrmProgressEC.Button1Click(Sender: TObject); +var + estados: TStringList; + cidades: TStringList; + i, j: Integer; +begin + inherited; + Screen.Cursor := crHourGlass; + + estados := TStringList.Create; + estados.LoadFromFile('estados.sql'); + + cidades := TStringList.Create; + cidades.LoadFromFile('cidades.sql'); + + ProgressBar1.Max := (estados.Count) + (cidades.Count); + + stbStatus.SimpleText := 'Cadastrando Estados...'; + sleep(2000); + for i := 0 to estados.Count - 1 do + begin + dtmSystem.zsqlprocessor1.Script.Text := estados[i]; + dtmSystem.zsqlprocessor1.Execute; + ProgressBar1.Position := ProgressBar1.Position + 1; + Application.ProcessMessages; + end; + dtmSystem.tblEstados.Refresh; + + stbStatus.SimpleText := 'Cadastrando Cidades...'; + for j := 0 to cidades.Count - 1 do + begin + dtmSystem.zsqlprocessor1.Script.Text := cidades[j]; + dtmSystem.zsqlprocessor1.Execute; + ProgressBar1.Position := ProgressBar1.Position + 1; + Application.ProcessMessages; + end; + dtmSystem.tblCidades.Refresh; + + sleep(2000); + Screen.Cursor := crDefault; + Close; +end; + +procedure TfrmProgressEC.FormCreate(Sender: TObject); +begin + inherited; + ProgressBar1.Position := 0; +end; + +procedure TfrmProgressEC.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/ufrmRankings.dfm b/ufrmRankings.dfm new file mode 100644 index 0000000..8a71114 --- /dev/null +++ b/ufrmRankings.dfm @@ -0,0 +1,267 @@ +inherited frmRanking: TfrmRanking + Caption = 'Rankings' + ClientHeight = 408 + ClientWidth = 1033 + ExplicitWidth = 1039 + ExplicitHeight = 436 + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel [0] + Left = 347 + Top = 108 + Width = 80 + Height = 13 + Caption = 'Procurar usu'#225'rio:' + end + object lbl_vcorte: TLabel [1] + Left = 408 + Top = 237 + Width = 69 + Height = 13 + Caption = 'Valor de corte:' + end + inherited stbStatus: TStatusBar + Top = 389 + Width = 1033 + ExplicitTop = 389 + ExplicitWidth = 1033 + end + object dbgrd_ranking: TDBGrid + Left = 558 + Top = 8 + Width = 465 + Height = 373 + DataSource = dtsHistorico + Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + OnDrawColumnCell = dbgrd_rankingDrawColumnCell + OnTitleClick = dbgrd_rankingTitleClick + Columns = < + item + Expanded = False + FieldName = 'NOME' + Title.Caption = 'Nome' + Visible = True + end + item + Expanded = False + FieldName = 'QTDE_ACIONAMENTOS' + Title.Caption = 'Quantidade' + Visible = True + end> + end + object rg_relacoes: TRadioGroup + Left = 8 + Top = 8 + Width = 537 + Height = 89 + Caption = 'Tipos de Rankings' + Columns = 3 + Items.Strings = ( + 'Devedores acionados' + 'Total de acionamentos' + 'Acionamentos positivos' + 'Acionamentos negativos' + 'Total de acionamentos positivos' + 'Total de acionamentos negatvios') + TabOrder = 2 + end + object cb_filtragrupo: TCheckBox + Left = 207 + Top = 233 + Width = 193 + Height = 17 + Caption = 'Filtrar grupo espec'#237'fico de usu'#225'rios' + TabOrder = 3 + end + object clb_grupousuarios: TCheckListBox + Left = 207 + Top = 256 + Width = 193 + Height = 127 + TabStop = False + Flat = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ItemHeight = 13 + ParentFont = False + ParentShowHint = False + ScrollWidth = 10 + ShowHint = True + TabOrder = 4 + end + object btn_gerarank: TButton + Left = 406 + Top = 356 + Width = 139 + Height = 25 + Caption = 'Visualizar/Atualizar' + TabOrder = 5 + OnClick = btn_gerarankClick + end + object edt_locate: TEdit + Left = 347 + Top = 129 + Width = 198 + Height = 21 + TabOrder = 6 + OnChange = edt_locateChange + end + object rg_filtroqtde: TRadioGroup + Left = 207 + Top = 182 + Width = 338 + Height = 45 + Columns = 4 + Enabled = False + Items.Strings = ( + 'Maior que' + 'Menor que' + 'Entre') + TabOrder = 7 + OnClick = rg_filtroqtdeClick + end + object cb_filtroqtde: TCheckBox + Left = 215 + Top = 175 + Width = 119 + Height = 17 + Alignment = taLeftJustify + Caption = 'Filtrar por quantidade' + TabOrder = 8 + OnClick = cb_filtroqtdeClick + end + object edt_v1: TEdit + Left = 431 + Top = 200 + Width = 50 + Height = 21 + Enabled = False + NumbersOnly = True + TabOrder = 9 + OnChange = edt_v1Change + end + object edt_v2: TEdit + Left = 487 + Top = 200 + Width = 50 + Height = 21 + Enabled = False + NumbersOnly = True + TabOrder = 10 + OnChange = edt_v2Change + end + object edt_vcorte: TEdit + Left = 406 + Top = 256 + Width = 139 + Height = 21 + NumbersOnly = True + TabOrder = 11 + OnChange = edt_vcorteChange + end + object gb_data: TGroupBox + Left = 8 + Top = 103 + Width = 333 + Height = 65 + Enabled = False + TabOrder = 12 + object Label2: TLabel + Left = 168 + Top = 31 + Width = 6 + Height = 13 + Caption = 'a' + end + object dtp_inicio: TDateTimePicker + Left = 10 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 0 + end + object dtp_fim: TDateTimePicker + Left = 224 + Top = 26 + Width = 97 + Height = 21 + Date = 43168.429167685190000000 + Time = 43168.429167685190000000 + TabOrder = 1 + end + end + object cb_periodo: TCheckBox + Left = 18 + Top = 96 + Width = 102 + Height = 17 + Alignment = taLeftJustify + Caption = 'Filtrar por per'#237'odo' + TabOrder = 13 + OnClick = cb_periodoClick + end + object clb_providencias: TCheckListBox + Left = 8 + Top = 192 + Width = 193 + Height = 191 + ItemHeight = 13 + TabOrder = 14 + end + object cb_prov: TCheckBox + Left = 8 + Top = 172 + Width = 132 + Height = 17 + Caption = 'Filtrar por provid'#234'ncia' + TabOrder = 15 + end + object dtsHistorico: TDataSource + DataSet = zroqryRanking + Left = 688 + Top = 32 + end + object zroqryRanking: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'h.id_cobrador,' + + 'case when u.tx_nome is not NULL then u.tx_nome when u.tx_nome is' + + ' NULL then '#39'Usu'#225'rio Inexistente'#39 + 'end as NOME,' + 'COUNT (DISTINCT h.ID_PROVIDENCIA) as qtde_acionamentos' + 'from chg_historico h' + 'left join sys_usuarios u on h.id_cobrador = u.id_usuario' + + 'where h.id_cobrador in (select id_cobrador from sys_usuarios whe' + + 're tp_ativo = '#39'S'#39')' + 'group by h.id_cobrador, u.tx_nome') + Params = <> + Left = 608 + Top = 32 + object zroqryRankingID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + object zroqryRankingQTDE_ACIONAMENTOS: TIntegerField + FieldName = 'QTDE_ACIONAMENTOS' + ReadOnly = True + end + object zroqryRankingNOME: TWideStringField + FieldName = 'NOME' + ReadOnly = True + Size = 60 + end + end +end diff --git a/ufrmRankings.pas b/ufrmRankings.pas new file mode 100644 index 0000000..1efc8d0 --- /dev/null +++ b/ufrmRankings.pas @@ -0,0 +1,412 @@ +unit ufrmRankings; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.Math, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, + Data.DB, ZAbstractRODataset, ZDataset, Vcl.StdCtrls, Vcl.ExtCtrls, + Vcl.Grids, Vcl.DBGrids, Vcl.CheckLst; + +type + TfrmRanking = class(TmstMaster) + dtsHistorico: TDataSource; + zroqryRanking: TZReadOnlyQuery; + zroqryRankingID_COBRADOR: TIntegerField; + zroqryRankingQTDE_ACIONAMENTOS: TIntegerField; + zroqryRankingNOME: TWideStringField; + dbgrd_ranking: TDBGrid; + rg_relacoes: TRadioGroup; + cb_filtragrupo: TCheckBox; + clb_grupousuarios: TCheckListBox; + btn_gerarank: TButton; + Label1: TLabel; + edt_locate: TEdit; + cb_filtroqtde: TCheckBox; + rg_filtroqtde: TRadioGroup; + edt_v1: TEdit; + edt_v2: TEdit; + lbl_vcorte: TLabel; + edt_vcorte: TEdit; + gb_data: TGroupBox; + Label2: TLabel; + dtp_inicio: TDateTimePicker; + dtp_fim: TDateTimePicker; + cb_periodo: TCheckBox; + clb_providencias: TCheckListBox; + cb_prov: TCheckBox; + procedure FormCreate(Sender: TObject); + procedure btn_gerarankClick(Sender: TObject); + procedure edt_locateChange(Sender: TObject); + procedure cb_filtroqtdeClick(Sender: TObject); + procedure rg_filtroqtdeClick(Sender: TObject); + procedure edt_v1Change(Sender: TObject); + procedure edt_v2Change(Sender: TObject); + procedure dbgrd_rankingDrawColumnCell(Sender: TObject; const Rect: TRect; + DataCol: Integer; Column: TColumn; State: TGridDrawState); + procedure dbgrd_rankingTitleClick(Column: TColumn); + procedure edt_vcorteChange(Sender: TObject); + procedure cb_periodoClick(Sender: TObject); + private + { Private declarations } + function ChecaMarcados(clb: TCheckListBox): Boolean; + procedure AdjustCheckListBox; + public + { Public declarations } + end; + +var + frmRanking: TfrmRanking; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmRanking.AdjustCheckListBox; +var + i, nMaxWidth, nItemWidth: Integer; +begin + // ajusta o checklistbox pra ter scroll horizontal + nMaxWidth := clb_providencias.ClientWidth; + for i := 0 to clb_providencias.Items.Count - 1 do + begin + nItemWidth := clb_providencias.Canvas.TextWidth + (clb_providencias.Items[i]) + 20; + if (nItemWidth > nMaxWidth) then + nMaxWidth := nItemWidth; + end; + if (nMaxWidth > clb_providencias.ClientWidth) then + begin + clb_providencias.ScrollWidth := nMaxWidth; + end; +end; + +procedure TfrmRanking.btn_gerarankClick(Sender: TObject); +var + str_help, str_prov: string; + i: Integer; +begin + if rg_relacoes.ItemIndex < 0 then + begin + Application.MessageBox + ('Por favor selecione um tipo de Ranking antes de tentar visualizar algo.', + 'Falta de parmetros', MB_OK); + abort; + end + else + begin + if cb_filtragrupo.Checked and not ChecaMarcados(clb_grupousuarios) then + begin + Application.MessageBox + ('Por favor selecione um grupo para o filtro de grupos antes de tentar visualizar algo.', + 'Falta de parmetros', MB_OK); + abort; + end; + Screen.Cursor := crHourGlass; + with zroqryRanking.SQL do + begin + Clear; + Add('select'); + Add('h.id_cobrador,'); + Add('case when u.tx_nome is not NULL then u.tx_nome when u.tx_nome is NULL then ' + + QuotedStr('Usurio Inexistente') + ' end as NOME,'); + case rg_relacoes.ItemIndex of + 0: // Devedores distintos acionados + begin + Add('COUNT (DISTINCT h.ID_DEVEDOR) as qtde_acionamentos'); + end; + 1: // Devedores totais (repetidos) acionados + begin + Add('COUNT (h.ID_DEVEDOR) as qtde_acionamentos'); + end; + 2, 3: // Providncias distintas positivas & negativas + begin + Add('COUNT (DISTINCT h.ID_PROVIDENCIA) as qtde_acionamentos'); + end; + 4, 5: // Providncias totais (repetidas) positivas & negativas + begin + Add('COUNT (h.ID_PROVIDENCIA) as qtde_acionamentos'); + end; + end; + Add('from chg_historico h'); + Add('left join sys_usuarios u on h.id_cobrador = u.id_usuario'); + Add('where h.id_cobrador in (select id_usuario from sys_usuarios where tp_ativo = ' + + QuotedStr('S') + ')'); + case rg_relacoes.ItemIndex of + 2, 4: + begin + Add('and h.id_providencia in (select p.id_providencia from chg_providencias p where p.tp_providencia = ' + + QuotedStr('Positiva') + ')'); + end; + 3, 5: + begin + Add('and h.id_providencia in (select p.id_providencia from chg_providencias p where p.tp_providencia = ' + + QuotedStr('Negativa') + ')'); + end; + end; + if cb_filtragrupo.Checked then + begin + str_help := ''; + for i := 0 to clb_grupousuarios.Items.Count - 1 do + begin + if clb_grupousuarios.Checked[i] then + begin + dtmSystem.tblGrupos.Locate('tx_nome', clb_grupousuarios.Items[i], [loCaseInsensitive]); + str_help := str_help + dtmSystem.tblGruposID_GRUPO.AsString + ','; + end; + end; + SetLength(str_help, length(str_help) - 1); + Add('and h.id_cobrador in (select id_usuario from sys_usuarios where id_grupo in (' + + str_help + '))'); + end; + if cb_periodo.Checked then + begin + Add('and CAST(h.dt_contato AS DATE) >= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and'); + Add('CAST(h.dt_contato AS DATE) <= ' + + QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date))); + end; + if cb_prov.Checked then + begin + str_prov := ''; + for i := 0 to clb_providencias.Items.Count - 1 do + begin + if clb_providencias.Checked[i] then + begin + dtmSystem.tblProvidencias.Locate('tx_nome', clb_providencias.Items[i], [loCaseInsensitive]); + str_prov := str_prov + dtmSystem.tblProvidenciasID_PROVIDENCIA. + AsString + ','; + end; + end; + SetLength(str_prov, length(str_prov) - 1); + Add('and h.id_providencia in (' + str_prov + ')'); + end; + Add('group by h.id_cobrador, u.tx_nome'); + Add('order by NOME, qtde_acionamentos desc'); + end; + zroqryRanking.Open; + Screen.Cursor := crDefault; + end; +end; + +procedure TfrmRanking.cb_filtroqtdeClick(Sender: TObject); +begin + rg_filtroqtde.Enabled := cb_filtroqtde.Checked; + if cb_filtroqtde.Checked = false then + begin + zroqryRanking.Filtered := false; + edt_v1.Enabled := false; + edt_v2.Enabled := false; + end; +end; + +procedure TfrmRanking.cb_periodoClick(Sender: TObject); +begin + gb_data.Enabled := cb_periodo.Checked; +end; + +function TfrmRanking.ChecaMarcados(clb: TCheckListBox): Boolean; +var + i: Integer; + res: Boolean; +begin + res := false; + for i := 0 to clb.Items.Count - 1 do + begin + if clb.Checked[i] then + begin + res := true; + break; + end; + end; + Result := res; +end; + +procedure TfrmRanking.dbgrd_rankingDrawColumnCell(Sender: TObject; + const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); +begin + if zroqryRankingQTDE_ACIONAMENTOS.AsInteger <= + StrToInt64Def(edt_vcorte.Text, 0) then + begin + dbgrd_ranking.Canvas.Brush.Color := clRed; + dbgrd_ranking.DefaultDrawColumnCell(Rect, DataCol, Column, State); + end; + if (gdSelected in State) then + begin + dbgrd_ranking.Canvas.Brush.Color := clGray; + dbgrd_ranking.DefaultDrawColumnCell(Rect, DataCol, Column, State); + end; + +end; + +procedure TfrmRanking.dbgrd_rankingTitleClick(Column: TColumn); +begin + dtmSystem.OrganizaPorColuna(zroqryRanking, Column); +end; + +procedure TfrmRanking.edt_locateChange(Sender: TObject); +begin + if zroqryRanking.Active then + begin + zroqryRanking.Locate('NOME', edt_locate.Text, + [loPartialKey, loCaseInsensitive]); + end; +end; + +procedure TfrmRanking.edt_v1Change(Sender: TObject); +begin + case rg_filtroqtde.ItemIndex of + 0: + begin + if edt_v1.Text <> '' then + begin + zroqryRanking.Filter := 'QTDE_ACIONAMENTOS >= ' + edt_v1.Text; + zroqryRanking.Filtered := true; + end + else + begin + zroqryRanking.Filtered := false; + end; + end; + 1: + begin + if edt_v1.Text <> '' then + begin + zroqryRanking.Filter := 'QTDE_ACIONAMENTOS <= ' + edt_v1.Text; + zroqryRanking.Filtered := true; + end + else + begin + zroqryRanking.Filtered := false; + end; + end; + 2: + begin + if (edt_v1.Text <> '') and (edt_v2.Text <> '') then + begin + zroqryRanking.Filter := 'QTDE_ACIONAMENTOS >= ' + edt_v1.Text + + ' and QTDE_ACIONAMENTOS <= ' + edt_v2.Text; + zroqryRanking.Filtered := true; + end + else + begin + zroqryRanking.Filtered := false; + end; + end; + end; +end; + +procedure TfrmRanking.edt_v2Change(Sender: TObject); +begin + if (edt_v1.Text <> '') and (edt_v2.Text <> '') then + begin + zroqryRanking.Filter := 'QTDE_ACIONAMENTOS >= ' + edt_v1.Text + + ' and QTDE_ACIONAMENTOS <= ' + edt_v2.Text; + zroqryRanking.Filtered := true; + end + else + begin + zroqryRanking.Filtered := false; + end; +end; + +procedure TfrmRanking.edt_vcorteChange(Sender: TObject); +begin + dbgrd_ranking.Repaint; +end; + +procedure TfrmRanking.FormCreate(Sender: TObject); +begin + inherited; + with dtmSystem do + begin + if not tblGrupos.Active then + begin + tblGrupos.Open; + end + else + begin + tblGrupos.Refresh; + end; + tblGrupos.First; + while not tblGrupos.Eof do + begin + clb_grupousuarios.Items.Add(tblGruposTX_NOME.AsString); + tblGrupos.Next; + end; + if not tblProvidencias.Active then + begin + tblProvidencias.Open; + end + else + begin + tblProvidencias.Refresh; + end; + tblProvidencias.First; + while not tblProvidencias.Eof do + begin + clb_providencias.Items.Add(tblProvidenciasTX_NOME.AsString); + tblProvidencias.Next; + end; + end; + dtp_inicio.Date := Date; + dtp_fim.Date := Date; + AdjustCheckListBox; +end; + +procedure TfrmRanking.rg_filtroqtdeClick(Sender: TObject); +begin + case rg_filtroqtde.ItemIndex of + 0: + begin + zroqryRanking.Filtered := false; + edt_v1.Enabled := true; + edt_v2.Enabled := false; + if edt_v1.Text <> '' then + begin + zroqryRanking.Filter := 'QTDE_ACIONAMENTOS >= ' + edt_v1.Text; + zroqryRanking.Filtered := true; + end + else + begin + zroqryRanking.Filtered := false; + end; + end; + 1: + begin + zroqryRanking.Filtered := false; + edt_v1.Enabled := true; + edt_v2.Enabled := false; + if edt_v1.Text <> '' then + begin + zroqryRanking.Filter := 'QTDE_ACIONAMENTOS <= ' + edt_v1.Text; + zroqryRanking.Filtered := true; + end + else + begin + zroqryRanking.Filtered := false; + end; + end; + 2: + begin + zroqryRanking.Filtered := false; + edt_v1.Enabled := true; + edt_v2.Enabled := true; + if (edt_v1.Text <> '') and (edt_v2.Text <> '') then + begin + zroqryRanking.Filter := 'QTDE_ACIONAMENTOS >= ' + edt_v1.Text + + ' and QTDE_ACIONAMENTOS <= ' + edt_v2.Text; + zroqryRanking.Filtered := true; + end + else + begin + zroqryRanking.Filtered := false; + end; + end; + end; +end; + +end. diff --git a/ufrmRemessa.dfm b/ufrmRemessa.dfm new file mode 100644 index 0000000..0fed293 --- /dev/null +++ b/ufrmRemessa.dfm @@ -0,0 +1,300 @@ +inherited frmRemessa: TfrmRemessa + Caption = 'Gera'#231#227'o de Arquivos de Remessa' + ClientHeight = 418 + ClientWidth = 703 + ExplicitWidth = 709 + ExplicitHeight = 447 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 399 + Width = 703 + ExplicitTop = 399 + ExplicitWidth = 703 + end + object gb_devedores: TGroupBox + Left = 8 + Top = 8 + Width = 456 + Height = 210 + Caption = 'Devedores:' + TabOrder = 1 + object cbx_todosdevedores: TCheckBox + Left = 16 + Top = 24 + Width = 57 + Height = 17 + Caption = 'Todos' + Checked = True + State = cbChecked + TabOrder = 0 + OnClick = cbx_todosdevedoresClick + end + object gb_pesquisa: TGroupBox + Left = 16 + Top = 47 + Width = 426 + Height = 154 + Enabled = False + TabOrder = 1 + object SpeedButton1: TSpeedButton + Left = 391 + Top = 16 + Width = 23 + Height = 21 + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000120B0000120B00000000000000000000FF00FF314B62 + AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF + 106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + 37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF + 00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2 + 9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC + E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF + FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED + B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF + FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF + DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0 + B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0 + BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1 + D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577 + 6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF} + OnClick = SpeedButton1Click + end + object edt_pesquisa: TEdit + Left = 16 + Top = 16 + Width = 369 + Height = 21 + TabOrder = 0 + end + object dbgrd_pesquisa: TDBGrid + Left = 16 + Top = 43 + Width = 398 + Height = 100 + DataSource = dtsDevedores + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack] + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'TX_NOME' + Title.Caption = 'Nome' + Width = 250 + Visible = True + end + item + Expanded = False + FieldName = 'TX_DOCUMENTO' + Title.Caption = 'Documento' + Visible = True + end> + end + end + end + object gb_dtvenc: TGroupBox + Left = 470 + Top = 8 + Width = 225 + Height = 66 + Caption = 'Vencimento:' + TabOrder = 2 + object Label14: TLabel + Left = 105 + Top = 29 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object dtp_vencini: TDateTimePicker + Left = 16 + Top = 25 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + TabOrder = 0 + end + object dtp_vencfim: TDateTimePicker + Left = 130 + Top = 25 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + TabOrder = 1 + end + object cb_venc: TCheckBox + Left = 70 + Top = -1 + Width = 97 + Height = 17 + TabOrder = 2 + end + end + object gb_emissao: TGroupBox + Left = 470 + Top = 80 + Width = 225 + Height = 66 + Caption = 'Emiss'#227'o:' + TabOrder = 3 + object Label1: TLabel + Left = 105 + Top = 29 + Width = 19 + Height = 13 + Caption = 'At'#233':' + end + object dtp_emissaoini: TDateTimePicker + Left = 16 + Top = 25 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + TabOrder = 0 + end + object dtp_emissaofim: TDateTimePicker + Left = 130 + Top = 25 + Width = 81 + Height = 21 + Date = 43042.451453472230000000 + Time = 43042.451453472230000000 + TabOrder = 1 + end + object cb_emissao: TCheckBox + Left = 53 + Top = -1 + Width = 97 + Height = 17 + TabOrder = 2 + end + end + object gb_progress: TGroupBox + Left = 8 + Top = 296 + Width = 687 + Height = 66 + Caption = 'Progresso:' + TabOrder = 4 + object lbl_progresso: TLabel + Left = 16 + Top = 21 + Width = 3 + Height = 13 + end + object pb_remessa: TProgressBar + Left = 16 + Top = 40 + Width = 657 + Height = 17 + MarqueeInterval = 1 + Step = 1 + TabOrder = 0 + end + end + object Button1: TButton + Left = 608 + Top = 368 + Width = 87 + Height = 25 + Caption = 'Salvar Arquivo' + TabOrder = 5 + OnClick = Button1Click + end + object gb_conta: TGroupBox + Left = 470 + Top = 152 + Width = 225 + Height = 66 + Caption = 'Conta:' + TabOrder = 6 + object dblcb_conta: TDBLookupComboBox + Left = 16 + Top = 25 + Width = 195 + Height = 21 + KeyField = 'ID_CONTA' + ListField = 'TX_DESCRICAO' + ListSource = dtmSystem.dtsContas + TabOrder = 0 + end + end + object gb_credor: TGroupBox + Left = 8 + Top = 224 + Width = 687 + Height = 66 + Caption = 'Credor:' + TabOrder = 7 + object dblcb_credor: TDBLookupComboBox + Left = 16 + Top = 24 + Width = 657 + Height = 21 + KeyField = 'ID_EMPRESA' + ListField = 'TX_FANTASIA' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 0 + end + end + object dtsDevedores: TDataSource + DataSet = roqryDevedores + Left = 384 + Top = 24 + end + object roqryDevedores: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'id_devedor,' + 'tx_nome,' + 'case when TP_CLIENTE = '#39'F'#39' then CD_CPF' + 'when TP_CLIENTE = '#39'J'#39' then CD_CNPJ end as TX_DOCUMENTO' + 'from chg_devedores') + Params = <> + Left = 296 + Top = 24 + object roqryDevedoresID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object roqryDevedoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object roqryDevedoresTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + ReadOnly = True + Size = 18 + end + end + object sv_dlg: TSaveDialog + Left = 544 + Top = 216 + end + object roqryRemessa: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 296 + Top = 87 + end +end diff --git a/ufrmRemessa.pas b/ufrmRemessa.pas new file mode 100644 index 0000000..58aba14 --- /dev/null +++ b/ufrmRemessa.pas @@ -0,0 +1,395 @@ +unit ufrmRemessa; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.DateUtils, System.RegularExpressions, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Data.DB, + ZAbstractRODataset, ZDataset, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Buttons, + Vcl.Grids, Vcl.DBGrids; + +type + TfrmRemessa = class(TmstMaster) + dtsDevedores: TDataSource; + roqryDevedores: TZReadOnlyQuery; + gb_devedores: TGroupBox; + cbx_todosdevedores: TCheckBox; + gb_dtvenc: TGroupBox; + dtp_vencini: TDateTimePicker; + Label14: TLabel; + dtp_vencfim: TDateTimePicker; + gb_emissao: TGroupBox; + Label1: TLabel; + dtp_emissaoini: TDateTimePicker; + dtp_emissaofim: TDateTimePicker; + gb_progress: TGroupBox; + pb_remessa: TProgressBar; + Button1: TButton; + sv_dlg: TSaveDialog; + gb_pesquisa: TGroupBox; + edt_pesquisa: TEdit; + SpeedButton1: TSpeedButton; + dbgrd_pesquisa: TDBGrid; + roqryDevedoresID_DEVEDOR: TIntegerField; + roqryDevedoresTX_NOME: TWideStringField; + roqryDevedoresTX_DOCUMENTO: TWideStringField; + lbl_progresso: TLabel; + gb_conta: TGroupBox; + roqryRemessa: TZReadOnlyQuery; + gb_credor: TGroupBox; + dblcb_conta: TDBLookupComboBox; + dblcb_credor: TDBLookupComboBox; + cb_emissao: TCheckBox; + cb_venc: TCheckBox; + procedure FormCreate(Sender: TObject); + procedure cbx_todosdevedoresClick(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + private + procedure DecNrRemessa; + function ExtractNumbers(const s: string): string; + { Private declarations } + public + { Public declarations } + end; + +var + frmRemessa: TfrmRemessa; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TfrmRemessa.Button1Click(Sender: TObject); +var + year, month, day, count, qtd_lotes, qtd_regs, qtd_contas, msg1, msg2: string; + arquivo: TextFile; + i: integer; + qtd_tit: string; + vtit_total: string; +begin + inherited; + lbl_progresso.caption := 'Gerando o arquivo de remessa...'; + lbl_progresso.Refresh; + + if dblcb_conta.KeyValue = Null then + begin + MessageDlg('Por favor selecione uma conta.', mtWarning, [mbOK], 0); + exit; + end; + + if dblcb_credor.KeyValue = Null then + begin + MessageDlg('Por favor selecione um credor.', mtWarning, [mbOK], 0); + exit; + end; + + with dtmSystem do + // arruma data e id da remessa para usar no arquivo e nos ttulos + begin + tblContas.Refresh; + tblEmpresa.Refresh; + if tblEmpresaCD_BENEFICIARIO.IsNull then + begin + MessageDlg + ('Cdigo de beneficirio no cadastrado na Empresa possuidora do software.' + + ' No possvel gerar aquivo de remessa.', mtWarning, [mbOK], 0); + exit; + end; + if tblContasDT_REMESSA.IsNull then + begin + tblContas.Edit; + tblContasDT_REMESSA.AsDateTime := Date; + tblContas.Post; + end; + + if tblContasDT_REMESSA.AsDateTime <> Date then + begin + tblContas.Edit; + tblContasDT_REMESSA.AsDateTime := Date; + tblContasNR_REMESSA.AsInteger := 1; + tblContas.Post; + end + else + begin + tblContas.Edit; + tblContasNR_REMESSA.AsInteger := tblContasNR_REMESSA.AsInteger + 1; + tblContas.Post; + end; + end; + + year := inttostr(YearOf(Date)); + month := inttostr(Monthof(Date)).PadLeft(2, '0'); + day := inttostr(Dayof(Date)).PadLeft(2, '0'); + count := dtmSystem.tblContasNR_REMESSA.AsString.PadLeft(5, '0'); + sv_dlg.FileName := 'CLI_ CRB_' + dtmSystem.tblEmpresaCD_BENEFICIARIO.AsString + + year + month + day + '_CNAB240REM.' + count; + + if not sv_dlg.Execute then + begin + DecNrRemessa; + exit; + end; + + Screen.Cursor := crHourGlass; + + // constri a lista de devedores a serem enviados os boletos + + if cbx_todosdevedores.Checked then + begin + + end + else + begin + if roqryDevedores.RecordCount = 0 then + begin + MessageDlg('Opo de todos os devedores no se encontra marcada e' + + ' no h devedores encontrados na pesquisa.' + + ' Por favor verifique o filtro para remessa', mtWarning, [mbOK], 0); + DecNrRemessa; + exit; + end + else + begin + if MessageDlg('Por favor, verifique que o devedor certo' + + ' est selecionado na caixa de pesquisa.' + ' Deseja continuar?', + mtWarning, [mbYes, mbCancel], 0) = mrYes then + begin + with roqryRemessa.SQL do + begin + Clear; + Add('select * from chg_titulos where'); + Add('id_empresa = ' + string(dblcb_credor.KeyValue)); + Add('and'); + Add('id_devedor = ' + roqryDevedoresID_DEVEDOR.AsString); + end; + roqryRemessa.Open; + roqryRemessa.RecordCount; + end + else + begin + DecNrRemessa; + exit; + end; + end; + end; + + assignfile(arquivo, sv_dlg.FileName); + rewrite(arquivo); + + // CNAB 240 BANPARA + + // HEADER do arquivo + // nums a direita com zeros a esquerda + // texto a esquerda com vazios a direita + + writeln(arquivo, // arquivo + '037', // Cdigo do Banco na Compensao + '0000', // Lote de Servio - 0000 para header + '0', // Tipo de Registro + ''.PadRight(9, ' '), // Uso Exclusivo FEBRABAN / CNAB + '2', // Tipo de Inscrio da Empresa + '04913711000108', // Nmero de Inscrio da Empresa + dtmSystem.tblEmpresaCD_BENEFICIARIO.AsString.PadRight(20, ' '), + // Cdigo do Convnio no Banco + dtmSystem.tblContasCD_AGENCIA.AsString.PadLeft(5, '0'), + // Agncia Mantenedora da Conta + dtmSystem.tblContasCD_AGENCIA_DV.AsString.PadLeft(1, '0'), + // Dgito Verificador da Agncia + dtmSystem.tblContasCD_CONTA.AsString.PadLeft(12, '0'), + // Nmero da Conta Corrente + dtmSystem.tblContasCD_CONTA_DV.AsString.PadLeft(1, '0'), + // Dgito Verificador da Conta + '0', // Dgito Verificador da Ag/Conta - detalhe extra, talvez seja vazio + 'Banco do Estado do Para S/A'.PadRight(30, ' '), // Nome da Empresa + 'Banco do Estado do Para S/A'.PadRight(30, ' '), // Nome do Banco + ''.PadRight(10, ' '), // Uso Exclusivo FEBRABAN / CNAB + '1', // Cdigo Remessa / Retorno + day, month, year, // Data de Gerao do Arquivo + HourOf(Now), MinuteOf(Now), SecondOf(Now), // // Hora de Gerao do Arquivo + count.PadLeft(6, '0'), // Nmero Seqencial do Arquivo + '101', // No da Verso do Layout do Arquivo + '00000', // Densidade de Gravao do Arquivo + ''.PadRight(69, ' ') + // Para Uso Reservado do Banco [20] - Para Uso Reservado da Empresa [20] - Uso Exclusivo FEBRABAN / CNAB [29] + ); + + + // HEADER de lote + + writeln(arquivo, // arquivo + '037', // Cdigo do Banco na Compensao + inttostr(i).PadLeft(4, '0'), // Lote de Servio + '1', // Tipo de Registro + 'R', // Tipo de Operao + '01', // Tipo de Servio + ''.PadRight(2, ' '), // Uso Exclusivo FEBRABAN/CNAB + '060', // N da Verso do Layout do Lote + ''.PadRight(1, ' '), // Uso Exclusivo FEBRABAN/CNAB + '2', // Tipo de Inscrio da Empresa + '04913711000108', // Nmero de Inscrio da Empresa + dtmSystem.tblEmpresaCD_BENEFICIARIO.AsString.PadRight(20, ' '), + // Cdigo do Convnio no Banco + dtmSystem.tblContasCD_AGENCIA.AsString.PadLeft(5, '0'), + // Agncia Mantenedora da Conta + dtmSystem.tblContasCD_AGENCIA_DV.AsString.PadLeft(1, '0'), + // Dgito Verificador da Agncia + dtmSystem.tblContasCD_CONTA.AsString.PadLeft(12, '0'), + // Nmero da Conta Corrente + dtmSystem.tblContasCD_CONTA_DV.AsString.PadLeft(1, '0'), + // Dgito Verificador da Conta + '0', // Dgito Verificador da Ag/Conta - detalhe extra, talvez seja vazio + msg1.PadRight(40, ' '), // Mensagem 1 + msg2.PadRight(40, ' '), // Mensagem 2 + dtmSystem.tblContasNR_REMESSA.AsString.PadLeft(8, '0'), + // Nmero Remessa/Retorno + day, month, year, // Data de Gravao Remessa/Retorno + '00000000', // Data do Crdito + ''.PadRight(33, ' ') // Uso Exclusivo FEBRABAN/CNAB + ); + + // TRAILER do lote + + qtd_lotes := '1'; + qtd_regs := '1'; // placeholders + qtd_contas := '1'; + qtd_tit := '1'; + vtit_total := '1'; + + writeln(arquivo, // arquivo + '037', // Cdigo do Banco na Compensao + qtd_lotes.PadLeft(6, '0'), // Lote de Servio + '5', // Tipo de Registro + ''.PadRight(9, ' '), // Uso Exclusivo FEBRABAN/CNAB + qtd_lotes.PadLeft(6, '0'), + // Quantidade de Registros no Lote ** Olhar campo G003 + qtd_tit.PadLeft(6, '0'), // Quantidade de Ttulos em Cobrana Simples + vtit_total.PadLeft(17, '0'), // Valor Total dos Ttulos em Carteiras Simples + qtd_tit.PadLeft(6, '0'), // Quantidade de Ttulos em Cobrana Vinculada + vtit_total.PadLeft(17, '0'), + // Valor Total dos Ttulos em Carteiras Vinculada + qtd_tit.PadLeft(6, '0'), // Quantidade de Ttulos em Cobrana Caucionada + vtit_total.PadLeft(17, '0'), + // Quantidade de Ttulos em Carteiras Caucionada + qtd_tit.PadLeft(6, '0'), // Quantidade de Ttulos em Cobrana Descontada + vtit_total.PadLeft(17, '0'), + // Valor Total dos Ttulos em Carteiras Descontada + ''.PadRight(8, ' '), // Nmero do Aviso de Lanamento + ''.PadRight(117, ' ') // Uso Exclusivo FEBRABAN/CNAB + ); + + // TRAILER do arquivo + + writeln(arquivo, // arquivo + '037', // Cdigo do Banco na Compensao + '9999', // Lote de Servio + '9', // Tipo de Registro + ''.PadRight(9, ' '), // Uso Exclusivo FEBRABAN/CNAB + qtd_lotes.PadLeft(6, '0'), // Quantidade de Lotes do Arquivo + qtd_regs.PadLeft(6, '0'), // Quantidade de Registros do Arquivo + qtd_contas.PadLeft(6, '0'), // Qtde de Contas p/ Conc. (Lotes) + ''.PadRight(205, ' ') // Uso Exclusivo FEBRABAN/CNAB + ); + + CloseFile(arquivo); + + lbl_progresso.caption := 'Fim da criao do arquivo de remessa.'; + lbl_progresso.Refresh; + + Screen.Cursor := crDefault; +end; + +procedure TfrmRemessa.cbx_todosdevedoresClick(Sender: TObject); +begin + inherited; + gb_pesquisa.Enabled := not(cbx_todosdevedores.Checked); +end; + +function TfrmRemessa.ExtractNumbers(const s: string): string; +var + Regex: TRegEx; + match: TMatch; + matches: TMatchCollection; + i: integer; + res: string; +begin + res := ''; + i := 0; + Regex := TRegEx.Create('\d+'); + matches := Regex.matches(s); + if matches.count > 0 then + begin + for match in matches do + begin + res := res + match.Value; + end; + end; + Result := res; +end; + +procedure TfrmRemessa.FormCreate(Sender: TObject); +begin + inherited; + roqryDevedores.Open; + with dtmSystem do + begin + if not tblContas.Active then + begin + tblContas.Open; + end + else + begin + tblContas.Refresh; + end; + if not tblEmpresa.Active then + begin + tblEmpresa.Open; + end + else + begin + tblEmpresa.Refresh; + end; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end + else + begin + tblCHGEmpresa.Refresh; + end; + end; +end; + +procedure TfrmRemessa.DecNrRemessa; +begin + dtmSystem.tblContas.Edit; + dtmSystem.tblContasNR_REMESSA.AsInteger := + dtmSystem.tblContasNR_REMESSA.AsInteger - 1; + dtmSystem.tblContas.Post; +end; + +procedure TfrmRemessa.SpeedButton1Click(Sender: TObject); +var + str_query: string; + SQL: string; +begin + inherited; + if edt_pesquisa.Text <> '' then + begin + SQL := 'select id_devedor, tx_nome, case when TP_CLIENTE = ' + + QuotedStr('F') + ' then CD_CPF when TP_CLIENTE = ' + QuotedStr('J') + + ' then CD_CNPJ end as TX_DOCUMENTO from chg_devedores '; + str_query := 'where upper(tx_nome COLLATE WIN_PTBR) like ' + + QuotedStr('%' + Ansiuppercase(stringreplace(edt_pesquisa.Text, ' ', '%', + [rfReplaceAll])) + '%') + ' or cd_cpf like ' + + QuotedStr('%' + edt_pesquisa.Text + '%') + ' or cd_cnpj like ' + + QuotedStr('%' + edt_pesquisa.Text + '%'); + roqryDevedores.SQL.Text := SQL + str_query; + roqryDevedores.Open; + end; +end; + +end. diff --git a/ufrmVerIE.dfm b/ufrmVerIE.dfm new file mode 100644 index 0000000..fa6934d --- /dev/null +++ b/ufrmVerIE.dfm @@ -0,0 +1,53 @@ +inherited frmVerIE: TfrmVerIE + Caption = 'Verifica'#231#227'o de Inscri'#231#227'o Estadual' + ClientHeight = 130 + ClientWidth = 272 + Scaled = False + ExplicitWidth = 278 + ExplicitHeight = 158 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_IE: TLabel [0] + Left = 8 + Top = 16 + Width = 145 + Height = 13 + Caption = 'N'#250'mero da Inscri'#231#227'o Estadual:' + end + object lbl_UF: TLabel [1] + Left = 211 + Top = 16 + Width = 17 + Height = 13 + Caption = 'UF:' + end + inherited stbStatus: TStatusBar + Top = 111 + Width = 272 + ExplicitTop = 111 + ExplicitWidth = 272 + end + object edt_IE: TEdit + Left = 8 + Top = 35 + Width = 145 + Height = 21 + TabOrder = 1 + end + object cb_UF: TComboBox + Left = 211 + Top = 35 + Width = 46 + Height = 21 + TabOrder = 2 + end + object btn_verificar: TButton + Left = 182 + Top = 73 + Width = 75 + Height = 25 + Caption = 'Verificar' + TabOrder = 3 + OnClick = btn_verificarClick + end +end diff --git a/ufrmVerIE.pas b/ufrmVerIE.pas new file mode 100644 index 0000000..24f0a70 --- /dev/null +++ b/ufrmVerIE.pas @@ -0,0 +1,122 @@ +unit ufrmVerIE; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls, + Data.DB, ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset; + +type + TConsisteInscricaoEstadual = function(const Insc, UF: AnsiString) + : Integer; stdcall; + +type + TfrmVerIE = class(TmstMaster) + edt_IE: TEdit; + lbl_IE: TLabel; + lbl_UF: TLabel; + cb_UF: TComboBox; + btn_verificar: TButton; + procedure FormCreate(Sender: TObject); + procedure btn_verificarClick(Sender: TObject); + private + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + { Public declarations } + end; + +var + frmVerIE: TfrmVerIE; + +implementation + +{$R *.dfm} + +uses udtmSystem, System.UITypes; + +procedure TfrmVerIE.btn_verificarClick(Sender: TObject); +// cdigo que pega na dll como verificar o IE +var + IRet: Integer; + + LibHandle: THandle; + ConsisteInscricaoEstadual: TConsisteInscricaoEstadual; +begin + try + begin + LibHandle := LoadLibrary('DllInscE32.Dll'); + if LibHandle <= HINSTANCE_ERROR then + raise Exception.Create('Dll no carregada'); + + @ConsisteInscricaoEstadual := GetProcAddress(LibHandle, + 'ConsisteInscricaoEstadual'); + if @ConsisteInscricaoEstadual = nil then + raise Exception.Create('Entrypoint Download no encontrado na Dll'); + + IRet := ConsisteInscricaoEstadual(edt_IE.Text, cb_UF.Text); + dtmSystem.tblEstados.Locate('TX_SIGLA', cb_UF.Text, []); + if IRet = 0 then + MessageDlg('Inscrio vlida para ' + + dtmSystem.tblEstadosTX_NOME.AsString, mtInformation, [mbOk], 0) + else if IRet = 1 then + MessageDlg('Inscrio invlida para ' + + dtmSystem.tblEstadosTX_NOME.AsString, mtError, [mbOk], 0) + else + MessageDlg('Parmetros invlidos', mtError, [mbOk], 0); + edt_IE.SetFocus; + end; + finally + FreeLibrary(LibHandle); + end; + +end; + +procedure TfrmVerIE.FormCreate(Sender: TObject); +begin + inherited; + with dtmSystem do + begin + qryConsulta.SQL.Text := 'SELECT * FROM SYS_ESTADOS'; + // faz uma pesquisa na tabela estados pra montar o combo box + qryConsulta.Open; + qryConsulta.First; + while not qryConsulta.Eof do + begin + cb_UF.Items.Add(qryConsulta.FieldByName('TX_SIGLA').AsString); + qryConsulta.Next; + end; + if not tblCHGEmpresa.IsEmpty then + begin + edt_IE.Text := tblCHGEmpresaTX_IE.AsString; + cb_UF.Text := tblEstadosTX_SIGLA.AsString; + end; + end; +end; + +procedure TfrmVerIE.WMMoving(var Msg: TWMMoving); +var + workArea: TRect; +begin + workArea := Screen.WorkareaRect; + + with Msg.DragRect^ do + begin + if left < workArea.left then + OffsetRect(Msg.DragRect^, workArea.left - left, 0); + + if top < workArea.top then + OffsetRect(Msg.DragRect^, 0, workArea.top - top); + + if Right > workArea.Right then + OffsetRect(Msg.DragRect^, workArea.Right - Right, 0); + + if Bottom > workArea.Bottom then + OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom); + end; + +end; + +end. diff --git a/uimpDevedores.dfm b/uimpDevedores.dfm new file mode 100644 index 0000000..af29cbb --- /dev/null +++ b/uimpDevedores.dfm @@ -0,0 +1,624 @@ +inherited impDevedores: TimpDevedores + Caption = 'Importa'#231#227'o de Devedores' + ClientHeight = 250 + ClientWidth = 733 + Menu = MainMenu1 + ExplicitWidth = 739 + ExplicitHeight = 299 + PixelsPerInch = 96 + TextHeight = 13 + object lbl_primeiralinha: TLabel [0] + Left = 20 + Top = 235 + Width = 116 + Height = 13 + Caption = 'Primeira Linha de dados:' + end + object cbx_primeiralinha: TComboBox [1] + Left = 142 + Top = 232 + Width = 70 + Height = 21 + TabOrder = 0 + end + inherited stbStatus: TStatusBar + Top = 231 + Width = 733 + Panels = < + item + Width = 150 + end + item + Width = 100 + end> + SimplePanel = False + ExplicitTop = 231 + ExplicitWidth = 733 + end + object sg_import: TStringGrid + Left = 8 + Top = 8 + Width = 717 + Height = 195 + TabStop = False + FixedCols = 0 + TabOrder = 2 + end + object pb_import: TProgressBar + Left = 8 + Top = 209 + Width = 717 + Height = 17 + TabOrder = 3 + end + object gb_importconfig: TGroupBox + Left = 8 + Top = 259 + Width = 717 + Height = 234 + TabOrder = 4 + object pc_import: TPageControl + Left = 3 + Top = 3 + Width = 711 + Height = 228 + ActivePage = tabDevedores + Enabled = False + TabOrder = 0 + TabStop = False + object tabDevedores: TTabSheet + Caption = '&Devedores' + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object lbl_nomerazao: TLabel + Left = 3 + Top = 20 + Width = 99 + Height = 13 + Caption = 'Nome/Raz'#227'o Social:' + end + object lbl_cpfcnpj: TLabel + Left = 298 + Top = 20 + Width = 55 + Height = 13 + Caption = 'CPF/CNPJ:' + end + object lbl_telefone: TLabel + Left = 507 + Top = 20 + Width = 60 + Height = 13 + Caption = 'Telefone (1):' + end + object lbl_relcoldados: TLabel + Left = 3 + Top = 1 + Width = 138 + Height = 13 + Caption = 'Rela'#231#227'o de Colunas x Dados' + end + object lbl_ddd1: TLabel + Left = 603 + Top = 19 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object lbl_ddd2: TLabel + Left = 603 + Top = 77 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object lbl_ddd3: TLabel + Left = 603 + Top = 138 + Width = 27 + Height = 13 + Caption = 'DDD:' + end + object cbx_razao: TComboBox + Left = 3 + Top = 41 + Width = 70 + Height = 21 + TabOrder = 0 + end + object cb_fantasia: TCheckBox + Left = 112 + Top = 18 + Width = 88 + Height = 17 + Caption = 'Nome Fantasia:' + TabOrder = 1 + OnClick = cb_fantasiaClick + end + object cbx_fantasia: TComboBox + Left = 112 + Top = 41 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 2 + end + object cb_email: TCheckBox + Left = 207 + Top = 18 + Width = 85 + Height = 17 + Caption = 'Email:' + TabOrder = 3 + OnClick = cb_emailClick + end + object cbx_email: TComboBox + Left = 207 + Top = 41 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 4 + end + object cbx_cpfcnpj: TComboBox + Left = 298 + Top = 41 + Width = 70 + Height = 21 + TabOrder = 5 + end + object cbx_endereco: TComboBox + Left = 3 + Top = 99 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 11 + end + object cb_endereco: TCheckBox + Left = 3 + Top = 76 + Width = 70 + Height = 17 + Caption = 'Endere'#231'o:' + TabOrder = 10 + OnClick = cb_enderecoClick + end + object cbx_numero: TComboBox + Left = 112 + Top = 99 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 13 + end + object cb_numero: TCheckBox + Left = 112 + Top = 76 + Width = 70 + Height = 17 + Caption = 'N'#250'mero:' + Enabled = False + TabOrder = 12 + OnClick = cb_numeroClick + end + object cbx_complemento: TComboBox + Left = 207 + Top = 99 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 16 + end + object cb_complemento: TCheckBox + Left = 207 + Top = 76 + Width = 85 + Height = 17 + Caption = 'Complemento:' + Enabled = False + TabOrder = 14 + OnClick = cb_complementoClick + end + object cbx_cep: TComboBox + Left = 3 + Top = 160 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 23 + end + object cb_cep: TCheckBox + Left = 3 + Top = 137 + Width = 70 + Height = 17 + Caption = 'CEP:' + Enabled = False + TabOrder = 22 + OnClick = cb_cepClick + end + object cbx_cidade: TComboBox + Left = 298 + Top = 99 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 18 + end + object cb_cidade: TCheckBox + Left = 298 + Top = 76 + Width = 70 + Height = 17 + Caption = 'Cidade:' + Enabled = False + TabOrder = 15 + OnClick = cb_cidadeClick + end + object cb_bairro: TCheckBox + Left = 298 + Top = 137 + Width = 70 + Height = 17 + Caption = 'Bairro:' + Enabled = False + TabOrder = 17 + OnClick = cb_bairroClick + end + object cbx_bairro: TComboBox + Left = 298 + Top = 160 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 20 + end + object cbx_uf: TComboBox + Left = 380 + Top = 160 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 21 + end + object cb_uf: TCheckBox + Left = 380 + Top = 137 + Width = 70 + Height = 17 + Caption = 'Estado:' + Enabled = False + TabOrder = 19 + OnClick = cb_ufClick + end + object cbx_telefone: TComboBox + Left = 507 + Top = 41 + Width = 70 + Height = 21 + TabOrder = 28 + end + object cb_pai: TCheckBox + Left = 112 + Top = 137 + Width = 86 + Height = 17 + Caption = 'Nome do pai:' + TabOrder = 24 + OnClick = cb_paiClick + end + object cbx_pai: TComboBox + Left = 112 + Top = 160 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 25 + end + object cb_mae: TCheckBox + Left = 207 + Top = 137 + Width = 86 + Height = 17 + Caption = 'Nome da m'#227'e:' + TabOrder = 26 + OnClick = cb_maeClick + end + object cbx_mae: TComboBox + Left = 207 + Top = 160 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 27 + end + object cbx_rg: TComboBox + Left = 380 + Top = 99 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 9 + end + object cb_rg: TCheckBox + Left = 380 + Top = 76 + Width = 70 + Height = 17 + Caption = 'RG:' + TabOrder = 8 + OnClick = cb_enderecoClick + end + object cb_dtnasc: TCheckBox + Left = 380 + Top = 18 + Width = 116 + Height = 17 + Caption = 'Data de Nascimento:' + TabOrder = 6 + OnClick = cb_dtnascClick + end + object cbx_dtnasc: TComboBox + Left = 380 + Top = 41 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 7 + end + object cb_tel2: TCheckBox + Left = 507 + Top = 76 + Width = 88 + Height = 17 + Caption = 'Telefone (2):' + TabOrder = 29 + OnClick = cb_tel2Click + end + object cbx_tel2: TComboBox + Left = 507 + Top = 99 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 30 + end + object cb_tel3: TCheckBox + Left = 507 + Top = 137 + Width = 88 + Height = 17 + Caption = 'Telefone (3):' + TabOrder = 31 + OnClick = cb_tel3Click + end + object cbx_tel3: TComboBox + Left = 507 + Top = 160 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 32 + end + object cbx_ddd1: TComboBox + Left = 603 + Top = 41 + Width = 70 + Height = 21 + TabOrder = 33 + end + object cbx_ddd2: TComboBox + Left = 603 + Top = 99 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 34 + end + object cbx_ddd3: TComboBox + Left = 603 + Top = 160 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 35 + end + end + object tabTitulos: TTabSheet + Caption = '&T'#237'tulos' + ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + object lbl_produto: TLabel + Left = 16 + Top = 40 + Width = 40 + Height = 13 + Caption = 'Produto:' + end + object lbl_valor: TLabel + Left = 110 + Top = 40 + Width = 27 + Height = 13 + Caption = 'Valor:' + end + object Label1: TLabel + Left = 332 + Top = 40 + Width = 114 + Height = 13 + Caption = 'CPF/CNPJ do Devedor:' + end + object lbl_vencimento: TLabel + Left = 465 + Top = 40 + Width = 100 + Height = 13 + Caption = 'Data de Vencimento:' + end + object Label2: TLabel + Left = 3 + Top = 1 + Width = 138 + Height = 13 + Caption = 'Rela'#231#227'o de Colunas x Dados' + end + object lbl_empresas: TLabel + Left = 16 + Top = 134 + Width = 63 + Height = 13 + Caption = 'Benefici'#225'rios:' + end + object lbl_banco: TLabel + Left = 110 + Top = 88 + Width = 34 + Height = 13 + Caption = 'Banco:' + end + object lbl_nrcheque: TLabel + Left = 202 + Top = 88 + Width = 70 + Height = 13 + Caption = 'N'#186' do Cheque:' + end + object lbl_motivo: TLabel + Left = 332 + Top = 88 + Width = 35 + Height = 13 + Caption = 'Motivo:' + end + object cbx_produto: TComboBox + Left = 16 + Top = 61 + Width = 70 + Height = 21 + TabOrder = 0 + end + object cbx_valor: TComboBox + Left = 110 + Top = 61 + Width = 70 + Height = 21 + TabOrder = 1 + end + object cbx_coddevt: TComboBox + Left = 202 + Top = 61 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 3 + end + object cb_coddevt: TCheckBox + Left = 202 + Top = 38 + Width = 110 + Height = 17 + Caption = 'C'#243'digo do Devedor' + TabOrder = 2 + OnClick = cb_coddevtClick + end + object cbx_cpfcnpjt: TComboBox + Left = 332 + Top = 61 + Width = 70 + Height = 21 + TabOrder = 4 + end + object cbx_vencimento: TComboBox + Left = 465 + Top = 61 + Width = 70 + Height = 21 + TabOrder = 5 + end + object dblucb_empresas: TDBLookupComboBox + Left = 16 + Top = 155 + Width = 256 + Height = 21 + KeyField = 'ID_EMPRESA' + ListField = 'TX_FANTASIA' + ListSource = dtmSystem.dtsCHGEmpresa + TabOrder = 10 + end + object cb_cheque: TCheckBox + Left = 16 + Top = 100 + Width = 63 + Height = 17 + Caption = 'Cheque:' + TabOrder = 6 + OnClick = cb_chequeClick + end + object cbx_banco: TComboBox + Left = 110 + Top = 107 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 7 + end + object cbx_nrcheque: TComboBox + Left = 202 + Top = 107 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 8 + end + object cbx_motivo: TComboBox + Left = 332 + Top = 107 + Width = 70 + Height = 21 + Enabled = False + TabOrder = 9 + end + end + end + end + object odExcel: TOpenDialog + Filter = 'Excel|*.xlsx;*.xls' + Left = 672 + Top = 16 + end + object MainMenu1: TMainMenu + Left = 32 + Top = 144 + object Importar1: TMenuItem + Caption = '&Importar' + object imp_Layout: TMenuItem + Caption = 'Importar de Layout' + OnClick = imp_LayoutClick + end + object N1: TMenuItem + Caption = '-' + Visible = False + end + end + object mnuConfigs: TMenuItem + Caption = '&Configura'#231#245'es' + object Layouts1: TMenuItem + Caption = 'Layouts' + OnClick = Layouts1Click + end + end + end + object zqryDuplicados: TZQuery + Connection = dtmSystem.ZConnection + Params = <> + Left = 672 + Top = 160 + end +end diff --git a/uimpDevedores.pas b/uimpDevedores.pas new file mode 100644 index 0000000..ebb5aa0 --- /dev/null +++ b/uimpDevedores.pas @@ -0,0 +1,1962 @@ +unit uimpDevedores; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.win.ComObj, System.StrUtils, + System.MaskUtils, DB, System.UITypes, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.Menus, + uImportExcel, Vcl.Grids, Vcl.StdCtrls, Vcl.DBCtrls, ZAbstractRODataset, + ZAbstractDataset, ZDataset; + +type + TimpDevedores = class(TmstMaster) + odExcel: TOpenDialog; + MainMenu1: TMainMenu; + sg_import: TStringGrid; + pb_import: TProgressBar; + gb_importconfig: TGroupBox; + pc_import: TPageControl; + tabDevedores: TTabSheet; + tabTitulos: TTabSheet; + cbx_razao: TComboBox; + cb_fantasia: TCheckBox; + cbx_fantasia: TComboBox; + cb_email: TCheckBox; + cbx_email: TComboBox; + cbx_cpfcnpj: TComboBox; + cbx_endereco: TComboBox; + cb_endereco: TCheckBox; + cbx_numero: TComboBox; + cb_numero: TCheckBox; + cbx_complemento: TComboBox; + cb_complemento: TCheckBox; + cbx_cep: TComboBox; + cb_cep: TCheckBox; + cbx_cidade: TComboBox; + cb_cidade: TCheckBox; + cb_bairro: TCheckBox; + cbx_bairro: TComboBox; + cbx_uf: TComboBox; + cb_uf: TCheckBox; + Importar1: TMenuItem; + lbl_primeiralinha: TLabel; + cbx_primeiralinha: TComboBox; + cbx_telefone: TComboBox; + lbl_nomerazao: TLabel; + lbl_cpfcnpj: TLabel; + lbl_telefone: TLabel; + cbx_produto: TComboBox; + lbl_produto: TLabel; + cbx_valor: TComboBox; + lbl_valor: TLabel; + cbx_coddevt: TComboBox; + cb_coddevt: TCheckBox; + cbx_cpfcnpjt: TComboBox; + Label1: TLabel; + cbx_vencimento: TComboBox; + lbl_vencimento: TLabel; + lbl_relcoldados: TLabel; + Label2: TLabel; + dblucb_empresas: TDBLookupComboBox; + lbl_empresas: TLabel; + cb_pai: TCheckBox; + cbx_pai: TComboBox; + cb_mae: TCheckBox; + cbx_mae: TComboBox; + cbx_rg: TComboBox; + cb_rg: TCheckBox; + mnuConfigs: TMenuItem; + Layouts1: TMenuItem; + cb_dtnasc: TCheckBox; + cbx_dtnasc: TComboBox; + cb_tel2: TCheckBox; + cbx_tel2: TComboBox; + cb_tel3: TCheckBox; + cbx_tel3: TComboBox; + imp_Layout: TMenuItem; + N1: TMenuItem; + cb_cheque: TCheckBox; + lbl_banco: TLabel; + cbx_banco: TComboBox; + lbl_nrcheque: TLabel; + cbx_nrcheque: TComboBox; + lbl_motivo: TLabel; + cbx_motivo: TComboBox; + zqryDuplicados: TZQuery; + cbx_ddd1: TComboBox; + cbx_ddd2: TComboBox; + cbx_ddd3: TComboBox; + lbl_ddd1: TLabel; + lbl_ddd2: TLabel; + lbl_ddd3: TLabel; + procedure cb_fantasiaClick(Sender: TObject); + procedure cb_emailClick(Sender: TObject); + procedure cb_enderecoClick(Sender: TObject); + procedure cb_numeroClick(Sender: TObject); + procedure cb_complementoClick(Sender: TObject); + procedure cb_cidadeClick(Sender: TObject); + procedure cb_bairroClick(Sender: TObject); + procedure cb_ufClick(Sender: TObject); + procedure cb_cepClick(Sender: TObject); + procedure cb_coddevtClick(Sender: TObject); + procedure Layouts1Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure cb_paiClick(Sender: TObject); + procedure cb_maeClick(Sender: TObject); + procedure cb_dtnascClick(Sender: TObject); + procedure cb_tel2Click(Sender: TObject); + procedure cb_tel3Click(Sender: TObject); + procedure imp_LayoutClick(Sender: TObject); + procedure cb_chequeClick(Sender: TObject); + private + function OStripAccents(const aStr: String): String; + procedure Carregar; + procedure ImportarLayout; + procedure PovoaCB(tbSheet: TTabSheet); + function CmtoPix(cm: double): integer; + procedure WMMoving(var Msg: TWMMoving); message WM_MOVING; + { Private declarations } + public + itemList: TStringList; + id_emp: integer; + // id_prov: integer; + { Public declarations } + end; + +var + impDevedores: TimpDevedores; + +implementation + +{$R *.dfm} + +uses udtmSystem, uconfLayouts, ufrmEscolheLayout, urelBordero, urelDuplicados, + ucadDevedores; + +procedure TimpDevedores.cb_bairroClick(Sender: TObject); +begin + cbx_bairro.Enabled := cb_bairro.Checked; +end; + +procedure TimpDevedores.cb_cepClick(Sender: TObject); +begin + cbx_cep.Enabled := cb_cep.Checked; +end; + +procedure TimpDevedores.cb_chequeClick(Sender: TObject); +begin + cbx_banco.Enabled := cb_cheque.Checked; + cbx_nrcheque.Enabled := cb_cheque.Checked; + cbx_motivo.Enabled := cb_cheque.Checked; +end; + +procedure TimpDevedores.cb_cidadeClick(Sender: TObject); +begin + cbx_cidade.Enabled := cb_cidade.Checked; +end; + +procedure TimpDevedores.cb_emailClick(Sender: TObject); +begin + cbx_email.Enabled := cb_email.Checked; +end; + +procedure TimpDevedores.cb_coddevtClick(Sender: TObject); +begin + cbx_coddevt.Enabled := cb_coddevt.Checked; +end; + +procedure TimpDevedores.cb_complementoClick(Sender: TObject); +begin + cbx_complemento.Enabled := cb_complemento.Checked; +end; + +procedure TimpDevedores.cb_dtnascClick(Sender: TObject); +begin + cbx_dtnasc.Enabled := cb_dtnasc.Checked; +end; + +procedure TimpDevedores.cb_enderecoClick(Sender: TObject); +begin + cbx_endereco.Enabled := cb_endereco.Checked; + cb_numero.Enabled := cb_endereco.Checked; + cb_complemento.Enabled := cb_endereco.Checked; + cb_cidade.Enabled := cb_endereco.Checked; + cb_bairro.Enabled := cb_endereco.Checked; + cb_uf.Enabled := cb_endereco.Checked; + cb_cep.Enabled := cb_endereco.Checked; + if cb_endereco.Checked then + begin + cbx_numero.Enabled := cb_numero.Checked; + cbx_complemento.Enabled := cb_complemento.Checked; + cbx_cidade.Enabled := cb_cidade.Checked; + cbx_bairro.Enabled := cb_bairro.Checked; + cbx_uf.Enabled := cb_uf.Checked; + cbx_cep.Enabled := cb_cep.Checked; + end + else + begin + cbx_numero.Enabled := false; + cbx_complemento.Enabled := false; + cbx_cidade.Enabled := false; + cbx_bairro.Enabled := false; + cbx_uf.Enabled := false; + cbx_cep.Enabled := false; + end; + +end; + +procedure TimpDevedores.cb_fantasiaClick(Sender: TObject); +begin + cbx_fantasia.Enabled := cb_fantasia.Checked; +end; + +procedure TimpDevedores.cb_maeClick(Sender: TObject); +begin + cbx_mae.Enabled := cb_mae.Checked; +end; + +procedure TimpDevedores.cb_numeroClick(Sender: TObject); +begin + cbx_numero.Enabled := cb_numero.Checked; +end; + +procedure TimpDevedores.cb_paiClick(Sender: TObject); +begin + cbx_pai.Enabled := cb_pai.Checked; +end; + +procedure TimpDevedores.cb_tel2Click(Sender: TObject); +begin + cbx_tel2.Enabled := cb_tel2.Checked; + cbx_ddd2.Enabled := cb_tel2.Checked; +end; + +procedure TimpDevedores.cb_tel3Click(Sender: TObject); +begin + cbx_tel3.Enabled := cb_tel3.Checked; + cbx_ddd3.Enabled := cb_tel3.Checked; +end; + +procedure TimpDevedores.cb_ufClick(Sender: TObject); +begin + cbx_uf.Enabled := cb_uf.Checked; +end; + +procedure TimpDevedores.Carregar; +var + OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param, + OORCCount: Variant; + RCount, CCount, TotCell, Counter, ColWidth, RowHeight, PColwidth, + PRowHeight: integer; + // linhaList: TStringList; + pathFile: string; + i, j, k, l: integer; + +begin + + if odExcel.Execute then + begin + pathFile := StringReplace(odExcel.FileName, '\', '/', [rfReplaceAll]); + pathFile := 'file:///' + pathFile; + Screen.Cursor := crHourGlass; + if VarIsEmpty(OpenOffice) then + begin + OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); + end; + OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop'); + + LoadParams := VarArrayCreate([0, 0], varVariant); + Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); + Param.Name := 'Hidden'; + Param.Value := true; + LoadParams[0] := Param; + + OOExec := OpenDesktop.LoadComponentFromURL(pathFile, '_blank', 0, + LoadParams); + OOCalc := OOExec.Sheets; + Planilha := OOCalc.getbyIndex(0); + + OORCCount := Planilha.createCursor; + OORCCount.gotoEndOfUsedArea(false); + RCount := OORCCount.RangeAddress.EndRow; + CCount := OORCCount.RangeAddress.EndColumn; + Inc(RCount, 1); + Inc(CCount, 1); + TotCell := RCount * CCount; + pb_import.Max := TotCell; + Counter := 0; + + itemList := TStringList.Create; + with itemList do + begin + for k := 0 to CCount - 1 do + begin + Add(inttostr(k + 1)); + end; + end; + + for l := 0 to sg_import.ColCount - 1 do + begin + sg_import.Cols[l].Clear; + end; + + sg_import.RowCount := RCount + 1; + sg_import.ColCount := CCount; + + RowHeight := 0; + + for j := 0 to RCount do + begin + ColWidth := 0; + for i := 0 to CCount - 1 do + begin + if j = 0 then + begin + sg_import.Cells[i, j] := inttostr(i + 1); + end + else + begin + PColwidth := CmtoPix(Planilha.getCellByPosition(i, j - 1) + .getColumns.getbyIndex(0).Width); + if ColWidth < PColwidth then + begin + ColWidth := PColwidth; + end; + PRowHeight := CmtoPix(Planilha.getCellByPosition(i, j - 1) + .getRows.Height); + if RowHeight < PRowHeight then + begin + RowHeight := PRowHeight; + end; + sg_import.ColWidths[i] := ColWidth; + sg_import.RowHeights[j] := RowHeight; + // if (j > 1) then + // begin + // showmessage(inttostr(i)); + // showmessage(inttostr(Planilha.getCellByPosition(i, j - 1) + // .NumberFormat)); + // end; + if ((Planilha.getCellByPosition(i, j - 1).NumberFormat = 36) or + (Planilha.getCellByPosition(i, j - 1).NumberFormat = 37) or + (Planilha.getCellByPosition(i, j - 1).NumberFormat = 8110) or + (Planilha.getCellByPosition(i, j - 1).NumberFormat = 8109)) and + (Planilha.getCellByPosition(i, j - 1).getFormula <> '') and + (StrToIntDef(copy(Planilha.getCellByPosition(i, j - 1).getFormula, + 1, 1), 0) <> 0) then + begin + try + sg_import.Cells[i, j] := + DateToStr(Planilha.getCellByPosition(i, j - 1).getFormula); + except + Messagedlg('Data no existente escrita na linha ' + inttostr(j) + + ', coluna ' + inttostr(i + 1) + + '. Essa data no ser carregada para importao, o que ir gerar um erro.', + mtWarning, [mbOK], 0); + end; + end + else + begin + if copy(Planilha.getCellByPosition(i, j - 1).getFormula, 0, 1) = '''' + then + begin + sg_import.Cells[i, j] := + StringReplace(Planilha.getCellByPosition(i, j - 1).getFormula, + '''', '', [rfReplaceAll, rfIgnoreCase]); + end + else + begin + sg_import.Cells[i, j] := Planilha.getCellByPosition(i, j - 1) + .getFormula; + end; + if Planilha.getCellByPosition(i, j - 1).getFormula = '' then + begin + sg_import.Cells[i, j] := ''; + end; + end; + end; + Inc(Counter, 1); + if Counter < TotCell then + begin + pb_import.Position := Counter + 1; + pb_import.Position := Counter; + end + else + begin + pb_import.Max := Counter + 1; + pb_import.Position := Counter + 1; + pb_import.Max := Counter; + end; + end; + Application.ProcessMessages; + end; + + try + OOExec.Close(false); + OpenDesktop.Terminate; + finally + + OpenOffice := Unassigned; + + Screen.Cursor := crDefault; + SetFocus; + end; + end; + + { case AnsiIndexStr(conteudo, ['devedores', 'titulos', 'misto']) of + 0: + begin + pc_import.ActivePageIndex := 0; + PovoaCB(tabDevedores); + end; + 1: + begin + pc_import.ActivePageIndex := 1; + PovoaCB(tabTitulos); + end; + 2: + begin + pc_import.ActivePageIndex := 0; + PovoaCB(tabDevedores); + PovoaCB(tabTitulos); + end; + end; } + + pc_import.ActivePageIndex := 0; + PovoaCB(tabDevedores); + PovoaCB(tabTitulos); + + // linhaList := TStringList.Create; + // with linhaList do + // begin + // for c := 0 to RCount - 1 do + // begin + // Add(inttostr(c + 1)); + // end; + // end; + // + // cbx_primeiralinha.Items.BeginUpdate; + // try + // begin + // cbx_primeiralinha.Items.AddStrings(linhaList); + // end; + // finally + // cbx_primeiralinha.Items.EndUpdate; + // linhaList.Clear; + // end; + + stbStatus.Panels[0].Text := 'Nmero de linhas: ' + inttostr(RCount - 1) + '.'; + stbStatus.Panels[1].Text := 'Arquivo: ' + odExcel.FileName; + +end; + +function TimpDevedores.CmtoPix(cm: double): integer; +var + ppcm: double; +begin + ppcm := Screen.PixelsPerInch / 2540; + Result := Trunc(ppcm * cm); +end; + +procedure TimpDevedores.FormCreate(Sender: TObject); +begin + inherited; + pc_import.ActivePageIndex := 0; + with dtmSystem do + begin + if not tblDevedores.active then + begin + tblDevedores.Open; + end + else + begin + tblDevedores.Refresh; + end; + if not tblEmail.active then + begin + tblEmail.Open; + end + else + begin + tblEmail.Refresh; + end; + if not tblEnderecos.active then + begin + tblEnderecos.Open; + end + else + begin + tblEnderecos.Refresh; + end; + if not tblTelefones.active then + begin + tblTelefones.Open; + end + else + begin + tblTelefones.Refresh; + end; + if not tblCidades.active then + begin + tblCidades.Open; + end; + if not tblEstados.active then + begin + tblEstados.Open; + end; + if not tblCHGEmpresa.active then + begin + tblCHGEmpresa.Open; + end + else + begin + tblCHGEmpresa.Refresh; + end; + if not tblTitulos.active then + begin + tblTitulos.Open; + end + else + begin + tblTitulos.Refresh; + end; + if not tblHistorico.active then + begin + tblHistorico.Open; + end + else + begin + tblHistorico.Refresh; + end; + if not tblDuplicados.active then + begin + tblDuplicados.Open; + end + else + begin + tblDuplicados.Refresh; + end; + end; +end; + +procedure TimpDevedores.ImportarLayout; +var + lista: TStringList; + cpf_helper, cnpj_helper, string_helper, cep_helper, k, tel, field, + helper: string; + i, j, repetido, resp: integer; + adiciona, achou_cidade, achou_estado: boolean; + h, Counter: integer; + hist_postou: boolean; +begin + with dtmSystem do + begin + + if tblDuplicados.RecordCount <> 0 then + begin + tblDuplicados.Close; + zqryDuplicados.Close; + zqryDuplicados.SQL.Text := 'delete from SYS_DUPLICADOS'; + zqryDuplicados.ExecSQL; + end; + tblDuplicados.Open; + + end; + + { Nome; Nome do Pai; Nome da Me; CPF/CNPJ; RG; "Email"; Data de Nascimento; + Endereo; Nmero; Complemento; Bairro; Cidade; Estado; CEP; + Telefone1; Telefone2; Telefone3; Produto; Valor; Data de Vencimento; Cdigo do Devedor; + cheque; Banco; N do Cheque; Motivo; DDD1; DDD2; DDD3; Obs deTtulo; Obs Devedor } + repetido := 0; + adiciona := true; + lista := TStringList.Create; + // try + lista.Clear; + lista.Delimiter := ';'; + lista.DelimitedText := dtmSystem.tblLayoutsSTR_CAMPOS.AsString; + // finally + + pb_import.Position := 0; + pb_import.Max := sg_import.RowCount - 2; + Counter := 0; + if strtoint(lista[3]) = 0 then + begin + Messagedlg + ('Por favor carregue um layout que possua CPF/CNPJ do Devedor em suas configuraes.', + mtWarning, [mbOK], 0); + abort; + end + else + begin + for i := 2 to sg_import.RowCount - 1 do + begin + sg_import.Row := i; + achou_cidade := false; + achou_estado := false; + + try + k := lista[3]; + if sg_import.Cells[strtoint(lista[3]) - 1, i] = '' then + begin + showmessage('O devedor n ' + inttostr(i - 1) + + ' no possuia CPF. Pulando para o prximo.'); + continue; + end; + string_helper := StringReplace(sg_import.Cells[strtoint(lista[3]) - 1, + i], '.', '', [rfReplaceAll, rfIgnoreCase]); + string_helper := StringReplace(string_helper, '-', '', + [rfReplaceAll, rfIgnoreCase]); + string_helper := StringReplace(string_helper, '/', '', + [rfReplaceAll, rfIgnoreCase]); + string_helper := StringReplace(string_helper, ' ', '', + [rfReplaceAll, rfIgnoreCase]); + cpf_helper := 'aaa'; + cnpj_helper := 'aaa'; + helper := 'aaa'; + field := ''; + if length(string_helper) = 11 then + begin + cpf_helper := copy(string_helper, 1, 3) + '.' + copy(string_helper, 4, + 3) + '.' + copy(string_helper, 7, 3) + '-' + + copy(string_helper, 10, 2); + helper := cpf_helper; + field := 'CD_CPF'; + end; + if length(string_helper) = 14 then + begin + cnpj_helper := copy(string_helper, 1, 2) + '.' + + copy(string_helper, 3, 3) + '.' + copy(string_helper, 6, 3) + '/' + + copy(string_helper, 9, 4) + '-' + copy(string_helper, 13, 2); + helper := cnpj_helper; + field := 'CD_CNPJ'; + end; + if length(string_helper) < 11 then + begin + string_helper := RightStr(StringOfChar('0', 11 - length(string_helper) + ) + string_helper, 11); + cpf_helper := copy(string_helper, 1, 3) + '.' + copy(string_helper, 4, + 3) + '.' + copy(string_helper, 7, 3) + '-' + + copy(string_helper, 10, 2); + helper := cpf_helper; + field := 'CD_CPF'; + end; + // cpf_helper := FormatMaskText('000\.000\.000\-00;0;', string_helper); + // cnpj_helper := FormatMaskText('00\.000\.000\/0000\-00;0;', + // string_helper); + with dtmSystem do + begin + if (tblDevedores.Locate(field, helper, [])) then + begin + if (lista[1] <> '0') or (lista[2] <> '0') or (lista[29] <> '0') then + begin + tblDevedores.Edit; + k := lista[1]; + if (lista[1] <> '0') and (tblDevedoresTX_PAI.AsString = '') then + begin + tblDevedoresTX_PAI.AsString := sg_import.Cells + [strtoint(lista[1]) - 1, i]; + end + else + begin + if lista[1] <> '0' then + begin + tblDevedoresTL_MEMO.AsString := tblDevedoresTL_MEMO.AsString + + sLineBreak + 'Pai: ' + sg_import.Cells + [strtoint(lista[1]) - 1, i]; + end; + end; + k := lista[2]; + if (lista[2] <> '0') and (tblDevedoresTX_MAE.AsString = '') then + begin + tblDevedoresTX_MAE.AsString := sg_import.Cells + [strtoint(lista[2]) - 1, i]; + end + else + begin + if lista[2] <> '0' then + begin + tblDevedoresTL_MEMO.AsString := tblDevedoresTL_MEMO.AsString + + sLineBreak + 'Me: ' + sg_import.Cells + [strtoint(lista[2]) - 1, i]; + end; + end; + k := lista[29]; + if (lista[29] <> '0') and (tblDevedoresTL_MEMO.AsString = '') then + begin + tblDevedoresTL_MEMO.AsString := 'Obs Extra: ' + sg_import.Cells + [strtoint(lista[29]) - 1, i]; + end + else + begin + if lista[29] <> '0' then + begin + tblDevedoresTL_MEMO.AsString := tblDevedoresTL_MEMO.AsString + + sLineBreak + 'Obs Extra: ' + sg_import.Cells + [strtoint(lista[29]) - 1, i]; + end; + end; + k := lista[30]; + if lista[30] <> '0' then + begin + tblDevedoresCD_DEVEDOR.AsString := + sg_import.Cells[strtoint(lista[30]) - 1, i]; + end; + + tblDevedores.Post; + end; + k := lista[19]; + if (lista[19] <> '0') then + begin + k := lista[18]; + if (tblTitulos.Locate + ('DT_VENCIMENTO;ID_EMPRESA;VL_TITULO;ID_DEVEDOR', + VarArrayOf([StrToDate(sg_import.Cells[strtoint(lista[19]) - 1, + i]), tblCHGEmpresaID_EMPRESA.AsInteger, + sg_import.Cells[strtoint(lista[18]) - 1, i], + tblDevedoresID_DEVEDOR.AsInteger]), [])) then + begin + tblDuplicados.Append; + tblDuplicadosTX_NOMEDEVEDOR.AsString := + tblDevedoresTX_NOME.AsString; + tblDuplicadosCD_CPF.AsString := tblDevedoresCD_CPF.AsString; + tblDuplicadosCD_CNPJ.AsString := tblDevedoresCD_CNPJ.AsString; + tblDuplicadosTX_NOMETITULO.AsString := + sg_import.Cells[strtoint(lista[18]) - 1, i]; + tblDuplicadosVL_TITULO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells[strtoint(lista[18]) - + 1, i], '.', ',', [rfReplaceAll])); + k := lista[19]; + tblDuplicadosDT_VENCIMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[19]) - 1, i]); + case repetido of + 0: + begin + resp := Messagedlg('O ttulo com vencimento "' + + sg_import.Cells[strtoint(lista[19]) - 1, i] + + '" pode ser repetido.' + #13 + + '(Mesma data de Vencimento que outro ttulo)' + #13 + '' + + ' Deseja adicion-lo mesmo assim?', mtWarning, + [mbYes, mbYesToAll, mbNo, mbNoToAll], 0); + case resp of + mrYes: + begin + repetido := 0; + adiciona := true; + tblDuplicadosTP_ACAO.AsString := 'S'; // adicionou + end; + mrNo: + begin + repetido := 0; + adiciona := false; + tblDuplicadosTP_ACAO.AsString := 'N'; + // adicionou + end; + mrYesToAll: + begin + repetido := 1; + adiciona := true; + tblDuplicadosTP_ACAO.AsString := 'S'; // adicionou + end; + mrNoToAll: + begin + repetido := 2; + adiciona := false; + tblDuplicadosTP_ACAO.AsString := 'N'; + // adicionou + end; + end; + end; + 1: + begin + adiciona := true; + tblDuplicadosTP_ACAO.AsString := 'S'; // adicionou + end; + 2: + begin + adiciona := false; + tblDuplicadosTP_ACAO.AsString := 'N'; // adicionou + end; + end; + tblDuplicados.Post; + if adiciona = true then + begin + tblTitulos.Append; + tblTitulosID_EMPRESA.AsInteger := id_empimport; + tblTitulosVL_TITULO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells[strtoint(lista[18]) + - 1, i], '.', ',', [rfReplaceAll])); + tblTitulosTP_SITUACAO.AsString := 'A'; + tblTitulosDT_ENTRADA.AsDateTime := Date; + k := lista[17]; + if sg_import.Cells[strtoint(lista[17]) - 1, i] <> '0' then + begin + tblTitulosTX_PRODUTO.AsString := + sg_import.Cells[strtoint(lista[17]) - 1, i]; + end; + k := lista[19]; + if sg_import.Cells[strtoint(lista[19]) - 1, i] <> '0' then + begin + tblTitulosDT_VENCIMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[19]) - 1, i]); + end; + k := lista[20]; + if lista[20] <> '0' then + begin + if sg_import.Cells[strtoint(lista[20]) - 1, i] <> '0' then + begin + tblTitulosCD_DEVEDOR.AsString := + sg_import.Cells[strtoint(lista[20]) - 1, i]; + end; + end; + k := lista[21]; + if lista[21] <> '0' then + begin + if sg_import.Cells[strtoint(lista[21]) - 1, i] = 'S' then + begin + tblTitulosTP_CHEQUE.AsString := 'S'; + k := lista[22]; + if sg_import.Cells[strtoint(lista[22]) - 1, i] <> '0' then + begin + tblTitulosID_BANCO.AsString := + sg_import.Cells[strtoint(lista[22]) - 1, i]; + end; + k := lista[23]; + if sg_import.Cells[strtoint(lista[23]) - 1, i] <> '' then + begin + tblTitulosTX_NRCHEQUE.AsString := + sg_import.Cells[strtoint(lista[23]) - 1, i]; + end; + k := lista[24]; + if sg_import.Cells[strtoint(lista[24]) - 1, i] <> '0' then + begin + tblTitulosTP_MOTIVO.AsString := + sg_import.Cells[strtoint(lista[24]) - 1, i]; + end; + end + else + begin + tblTitulosTP_CHEQUE.AsString := 'N'; + end; + end; + k := lista[28]; + if lista[28] <> '0' then + begin + tblTitulosTX_OBS.AsString := sg_import.Cells + [strtoint(lista[28]) - 1, i]; + end; + k := lista[31]; + if lista[31] <> '0' then + begin + if sg_import.Cells[strtoint(lista[31]) - 1, i] <> '0' then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[31]) - 1, i]); + tblTitulosTP_SITUACAO.AsString := 'QC'; + tblTitulosVL_CORRIGIDO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells + [strtoint(lista[18]) - 1, i], '.', ',', + [rfReplaceAll])); + end; + end; + tblTitulos.Post; + if not tblHistorico.active then + begin + tblHistorico.Open; + end; + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblHistoricoID_TITULO.AsInteger := + tblTitulosID_TITULO.AsInteger; + // tblHistoricoID_PROVIDENCIA.AsInteger := 52; + tblHistoricoID_PROVIDENCIA.AsInteger := + frmEscolheLayout.id_prov; + tblHistoricoDT_CONTATO.AsDateTime := Date; + tblHistorico.Post; + end + else + begin + // break; + end; + end + else + begin + tblTitulos.Append; + tblTitulosID_EMPRESA.AsInteger := id_empimport; + tblTitulosVL_TITULO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells[strtoint(lista[18]) - + 1, i], '.', ',', [rfReplaceAll])); + tblTitulosTP_SITUACAO.AsString := 'A'; + tblTitulosDT_ENTRADA.AsDateTime := Date; + k := lista[17]; + if sg_import.Cells[strtoint(lista[17]) - 1, i] <> '0' then + begin + tblTitulosTX_PRODUTO.AsString := + sg_import.Cells[strtoint(lista[17]) - 1, i]; + end; + k := lista[19]; + if sg_import.Cells[strtoint(lista[19]) - 1, i] <> '0' then + begin + tblTitulosDT_VENCIMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[19]) - 1, i]); + end; + k := lista[20]; + if lista[20] <> '0' then + begin + if sg_import.Cells[strtoint(lista[20]) - 1, i] <> '0' then + begin + tblTitulosCD_DEVEDOR.AsString := + sg_import.Cells[strtoint(lista[20]) - 1, i]; + end; + end; + k := lista[21]; + if lista[21] <> '0' then + begin + if sg_import.Cells[strtoint(lista[21]) - 1, i] = 'S' then + begin + tblTitulosTP_CHEQUE.AsString := 'S'; + k := lista[22]; + if sg_import.Cells[strtoint(lista[22]) - 1, i] <> '0' then + begin + tblTitulosID_BANCO.AsString := + sg_import.Cells[strtoint(lista[22]) - 1, i]; + end; + k := lista[23]; + if sg_import.Cells[strtoint(lista[23]) - 1, i] <> '' then + begin + tblTitulosTX_NRCHEQUE.AsString := + sg_import.Cells[strtoint(lista[23]) - 1, i]; + end; + k := lista[24]; + if sg_import.Cells[strtoint(lista[24]) - 1, i] <> '0' then + begin + tblTitulosTP_MOTIVO.AsString := + sg_import.Cells[strtoint(lista[24]) - 1, i]; + end; + end + else + begin + tblTitulosTP_CHEQUE.AsString := 'N'; + end; + end; + k := lista[28]; + if lista[28] <> '0' then + begin + tblTitulosTX_OBS.AsString := sg_import.Cells + [strtoint(lista[28]) - 1, i]; + end; + k := lista[31]; + if lista[31] <> '0' then + begin + if sg_import.Cells[strtoint(lista[31]) - 1, i] <> '0' then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[31]) - 1, i]); + tblTitulosTP_SITUACAO.AsString := 'QC'; + tblTitulosVL_CORRIGIDO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells + [strtoint(lista[18]) - 1, i], '.', ',', [rfReplaceAll])); + end; + end; + tblTitulos.Post; + if not tblHistorico.active then + begin + tblHistorico.Open; + end; + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblHistoricoID_TITULO.AsInteger := + tblTitulosID_TITULO.AsInteger; + // tblHistoricoID_PROVIDENCIA.AsInteger := 52; + tblHistoricoID_PROVIDENCIA.AsInteger := + frmEscolheLayout.id_prov; + tblHistoricoDT_CONTATO.AsDateTime := Date; + tblHistorico.Post; + end; + end; + k := lista[5]; + if lista[5] <> '0' then + begin + if not tblEmail.Locate('TX_EMAIL', + sg_import.Cells[strtoint(lista[5]) - 1, i], []) then + begin + tblEmail.Append; + tblEmailTX_EMAIL.AsString := sg_import.Cells + [strtoint(lista[5]) - 1, i]; + tblEmailID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblEmail.Post; + end; + // tblDevedorestx_email.AsString := sg_import.Cells + // [strtoint(lista[5]) - 1, i]; + end; + k := lista[7]; + if lista[7] <> '0' then + begin + if not tblEnderecos.Locate('TX_LOGRADOURO;ID_DEVEDOR', + VarArrayOf([sg_import.Cells[strtoint(lista[7]) - 1, i], + tblDevedoresID_DEVEDOR.AsInteger]), + [loCaseInsensitive, loPartialKey]) then + begin + tblEnderecos.Append; + tblEnderecosTX_LOGRADOURO.AsString := + sg_import.Cells[strtoint(lista[7]) - 1, i]; + k := lista[8]; + if lista[8] <> '0' then + begin + tblEnderecosNR_NUMERO.AsString := + sg_import.Cells[strtoint(lista[8]) - 1, i]; + end; + k := lista[9]; + if lista[9] <> '0' then + begin + tblEnderecosTX_COMPLEMENTO.AsString := + sg_import.Cells[strtoint(lista[9]) - 1, i]; + end; + k := lista[10]; + if lista[10] <> '0' then + begin + tblEnderecosTX_BAIRRO.AsString := + sg_import.Cells[strtoint(lista[10]) - 1, i]; + end; + k := lista[12]; + if lista[12] <> '0' then + begin + tblEstados.First; + while (not(tblEstados.Eof)) and (not(achou_estado)) do + begin + if (UpperCase(OStripAccents(tblEstadosTX_NOME.AsString)) + = UpperCase(OStripAccents(sg_import.Cells + [strtoint(lista[12]) - 1, i]))) or + (UpperCase(OStripAccents(tblEstadosTX_SIGLA.AsString)) + = UpperCase(OStripAccents(sg_import.Cells + [strtoint(lista[12]) - 1, i]))) then + begin + achou_estado := true; + end + else + begin + tblEstados.Next; + end; + end; + if achou_estado then + begin + tblEnderecosID_ESTADO.AsInteger := + tblEstadosID_ESTADO.AsInteger; + tblEnderecosTX_ESTADO.AsString := + tblEstadosTX_NOME.AsString; + end + else + begin + { tblEnderecos.Post; + tblDevedores.Edit; + tblDevedoresTL_MEMO.AsString := tblDevedoresTL_MEMO.AsString + + 'Houve um erro na importao do estado deste devedor.' + + ' Por favor corrija manualmente.'; + tblDevedores.Post; + tblEnderecos.Edit; } + end; + end; + k := lista[11]; + if lista[11] <> '0' then + begin + tblCidades.First; + while (not(tblCidades.Eof)) and (not(achou_cidade)) do + begin + if UpperCase(OStripAccents(tblCidadesTX_NOME.AsString)) + = UpperCase + (OStripAccents(sg_import.Cells[strtoint(lista[11]) - + 1, i])) then + begin + achou_cidade := true; + end + else + begin + tblCidades.Next; + end; + end; + if achou_cidade then + begin + tblEnderecosID_CIDADE.AsInteger := + tblCidadesID_CIDADE.AsInteger; + tblEnderecosTX_CIDADE.AsString := + tblCidadesTX_NOME.AsString; + end + else + begin + { tblEnderecos.Post; + tblDevedores.Edit; + tblDevedoresTL_MEMO.AsString := tblDevedoresTL_MEMO.AsString + + 'Houve um erro na importao da cidade deste devedor.' + + ' Por favor corrija manualmente.'; + tblDevedores.Post; + tblEnderecos.Edit; } + end; + end; + k := lista[13]; + if lista[13] <> '0' then + begin + cep_helper := sg_import.Cells[strtoint(lista[13]) - 1, i]; + cep_helper := StringReplace(cep_helper, '.', '', + [rfReplaceAll]); + cep_helper := StringReplace(cep_helper, '-', '', + [rfReplaceAll]); + tblEnderecosTX_CEP.AsString := cep_helper; + end; + tblEnderecos.Post; + end; + end; + + k := lista[14]; + if lista[14] <> '0' then + begin + if sg_import.Cells[strtoint(lista[14]) - 1, i] <> '' then + begin + tel := dtmSystem.FormatTelefone + (sg_import.Cells[strtoint(lista[14]) - 1, i]); + if not tblTelefones.Locate('NR_NUMERO;ID_DEVEDOR', + VarArrayOf([tel, dtmSystem.id_devedor]), [loCaseInsensitive]) + then + begin + tblTelefones.Append; + tblTelefonesNR_NUMERO.AsString := + dtmSystem.FormatTelefone + (sg_import.Cells[strtoint(lista[14]) - 1, i]); + if lista[25] <> '0' then + begin + if sg_import.Cells[strtoint(lista[25]) - 1, i] <> '' then + begin + tblTelefonesNR_DDD.AsString := + sg_import.Cells[strtoint(lista[25]) - 1, i]; + end; + end; + if length(tblTelefonesNR_NUMERO.AsString) = 10 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'M'; + end + else if length(tblTelefonesNR_NUMERO.AsString) = 9 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'F'; + end; + tblTelefones.Post; + end; + end; + end; + k := lista[15]; + if lista[15] <> '0' then + begin + if sg_import.Cells[strtoint(lista[15]) - 1, i] <> '' then + begin + if not tblTelefones.Locate('NR_NUMERO;ID_DEVEDOR', + VarArrayOf([dtmSystem.FormatTelefone(sg_import.Cells + [strtoint(lista[15]) - 1, i]), + tblDevedoresID_DEVEDOR.AsInteger]), []) then + begin + tblTelefones.Append; + tblTelefonesNR_NUMERO.AsString := + dtmSystem.FormatTelefone + (sg_import.Cells[strtoint(lista[15]) - 1, i]); + if lista[26] <> '0' then + begin + if sg_import.Cells[strtoint(lista[25]) - 1, i] <> '' then + begin + tblTelefonesNR_DDD.AsString := + sg_import.Cells[strtoint(lista[26]) - 1, i]; + end; + end; + if length(tblTelefonesNR_NUMERO.AsString) = 10 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'M'; + end + else if length(tblTelefonesNR_NUMERO.AsString) = 9 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'F'; + end; + tblTelefones.Post; + end; + end; + end; + k := lista[16]; + if lista[16] <> '0' then + begin + if sg_import.Cells[strtoint(lista[16]) - 1, i] <> '' then + begin + if not tblTelefones.Locate('NR_NUMERO;ID_DEVEDOR', + VarArrayOf([dtmSystem.FormatTelefone(sg_import.Cells + [strtoint(lista[16]) - 1, i]), + tblDevedoresID_DEVEDOR.AsInteger]), []) then + begin + tblTelefones.Append; + tblTelefonesNR_NUMERO.AsString := + dtmSystem.FormatTelefone + (sg_import.Cells[strtoint(lista[16]) - 1, i]); + if lista[27] <> '0' then + begin + if sg_import.Cells[strtoint(lista[27]) - 1, i] <> '' then + begin + tblTelefonesNR_DDD.AsString := + sg_import.Cells[strtoint(lista[27]) - 1, i]; + end; + end; + if length(tblTelefonesNR_NUMERO.AsString) = 10 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'M'; + end + else if length(tblTelefonesNR_NUMERO.AsString) = 9 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'F'; + end; + tblTelefones.Post; + end; + end; + end; + end + else + begin + tblDevedores.Append; + tblDevedoresDT_CADASTRO.AsDateTime := Date; + k := lista[0]; + if lista[0] <> '0' then + begin + tblDevedoresTX_NOME.AsString := + OStripAccents(sg_import.Cells[strtoint(lista[0]) - 1, i]); + end; + k := lista[1]; + if lista[1] <> '0' then + begin + tblDevedoresTX_PAI.AsString := sg_import.Cells + [strtoint(lista[1]) - 1, i]; + end; + k := lista[2]; + if lista[2] <> '0' then + begin + tblDevedoresTX_MAE.AsString := sg_import.Cells + [strtoint(lista[2]) - 1, i]; + end; + k := lista[3]; + if lista[3] <> '0' then + begin + if length(string_helper) = 11 then + begin + tblDevedoresCD_CPF.AsString := cpf_helper; + tblDevedoresTP_CLIENTE.AsString := 'F' + end + else + begin + tblDevedoresCD_CNPJ.AsString := cnpj_helper; + tblDevedoresTP_CLIENTE.AsString := 'J' + end; + end; + k := lista[4]; + if lista[4] <> '0' then + begin + tblDevedoresCD_RG.AsString := sg_import.Cells + [strtoint(lista[4]) - 1, i]; + end; + k := lista[6]; + if lista[6] <> '0' then + begin + if (ansipos('/', sg_import.Cells[strtoint(lista[6]) - 1, i]) = 0) + or (sg_import.Cells[strtoint(lista[6]) - 1, i] = '') then + begin + tblDevedoresDT_NASC.Clear; + end + else + begin + tblDevedoresDT_NASC.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[6]) - 1, i]); + end; + end; + k := lista[29]; + if (lista[29] <> '0') and (tblDevedoresTL_MEMO.AsString = '') then + begin + tblDevedoresTL_MEMO.AsString := 'Obs Extra: ' + sg_import.Cells + [strtoint(lista[29]) - 1, i] + end + else + begin + if lista[29] <> '0' then + begin + tblDevedoresTL_MEMO.AsString := tblDevedoresTL_MEMO.AsString + + sLineBreak + 'Obs Extra: ' + sg_import.Cells + [strtoint(lista[29]) - 1, i]; + end; + end; + k := lista[30]; + if lista[30] <> '0' then + begin + tblDevedoresCD_DEVEDOR.AsString := sg_import.Cells + [strtoint(lista[30]) - 1, i]; + end; + + tblDevedores.Post; + k := lista[5]; + if lista[5] <> '0' then + begin + if not tblEmail.Locate('TX_EMAIL', + sg_import.Cells[strtoint(lista[5]) - 1, i], []) then + begin + tblEmail.Append; + tblEmailTX_EMAIL.AsString := sg_import.Cells + [strtoint(lista[5]) - 1, i]; + tblEmailID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblEmail.Post; + end; + // tblDevedorestx_email.AsString := sg_import.Cells + // [strtoint(lista[5]) - 1, i]; + end; + k := lista[7]; + if lista[7] <> '0' then + begin + tblEnderecos.Append; + tblEnderecosTX_LOGRADOURO.AsString := + sg_import.Cells[strtoint(lista[7]) - 1, i]; + k := lista[8]; + if lista[8] <> '0' then + begin + tblEnderecosNR_NUMERO.AsString := + sg_import.Cells[strtoint(lista[8]) - 1, i]; + end; + k := lista[9]; + if lista[9] <> '0' then + begin + tblEnderecosTX_COMPLEMENTO.AsString := + sg_import.Cells[strtoint(lista[9]) - 1, i]; + end; + k := lista[10]; + if lista[10] <> '0' then + begin + tblEnderecosTX_BAIRRO.AsString := + sg_import.Cells[strtoint(lista[10]) - 1, i]; + end; + k := lista[12]; + if lista[12] <> '0' then + begin + tblEstados.First; + while (not(tblEstados.Eof)) and (not(achou_estado)) do + begin + if (UpperCase(OStripAccents(tblEstadosTX_NOME.AsString)) + = UpperCase(OStripAccents(sg_import.Cells[strtoint(lista[12] + ) - 1, i]))) or + (UpperCase(OStripAccents(tblEstadosTX_SIGLA.AsString)) + = UpperCase(OStripAccents(sg_import.Cells[strtoint(lista[12] + ) - 1, i]))) then + begin + achou_estado := true; + end + else + begin + tblEstados.Next; + end; + end; + if achou_estado then + begin + tblEnderecosID_ESTADO.AsInteger := + tblEstadosID_ESTADO.AsInteger; + tblEnderecosTX_ESTADO.AsString := tblEstadosTX_NOME.AsString; + end + else + begin + { tblEnderecos.Post; + tblDevedores.Edit; + tblDevedoresTL_MEMO.AsString := tblDevedoresTL_MEMO.AsString + + 'Houve um erro na importao do estado deste devedor.' + + ' Por favor corrija manualmente.'; + tblDevedores.Post; + tblEnderecos.Edit; } + end; + end; + k := lista[11]; + if lista[11] <> '0' then + begin + tblCidades.First; + while (not(tblCidades.Eof)) and (not(achou_cidade)) do + begin + if UpperCase(OStripAccents(tblCidadesTX_NOME.AsString)) + = UpperCase + (OStripAccents(sg_import.Cells[strtoint(lista[11]) - 1, i])) + then + begin + achou_cidade := true; + end + else + begin + tblCidades.Next; + end; + end; + if achou_cidade then + begin + tblEnderecosID_CIDADE.AsInteger := + tblCidadesID_CIDADE.AsInteger; + tblEnderecosTX_CIDADE.AsString := tblCidadesTX_NOME.AsString; + end + else + begin + { tblEnderecos.Post; + tblDevedores.Edit; + tblDevedoresTL_MEMO.AsString := tblDevedoresTL_MEMO.AsString + + 'Houve um erro na importao da cidade deste devedor.' + + ' Por favor corrija manualmente.'; + tblDevedores.Post; + tblEnderecos.Edit; } + end; + end; + k := lista[13]; + if lista[13] <> '0' then + begin + cep_helper := sg_import.Cells[strtoint(lista[13]) - 1, i]; + cep_helper := StringReplace(cep_helper, '.', '', + [rfReplaceAll]); + cep_helper := StringReplace(cep_helper, '-', '', + [rfReplaceAll]); + tblEnderecosTX_CEP.AsString := cep_helper; + end; + tblEnderecos.Post; + end; + k := lista[14]; + if lista[14] <> '0' then + begin + if sg_import.Cells[strtoint(lista[14]) - 1, i] <> '' then + begin + tblTelefones.Append; + tblTelefonesNR_NUMERO.AsString := + dtmSystem.FormatTelefone + (sg_import.Cells[strtoint(lista[14]) - 1, i]); + if lista[25] <> '0' then + begin + if sg_import.Cells[strtoint(lista[25]) - 1, i] <> '' then + begin + tblTelefonesNR_DDD.AsString := + sg_import.Cells[strtoint(lista[25]) - 1, i]; + end; + end; + if length(tblTelefonesNR_NUMERO.AsString) = 10 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'M'; + end + else if length(tblTelefonesNR_NUMERO.AsString) = 9 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'F'; + end; + tblTelefones.Post; + end; + end; + k := lista[15]; + if lista[15] <> '0' then + begin + if sg_import.Cells[strtoint(lista[15]) - 1, i] <> '' then + begin + tblTelefones.Append; + tblTelefonesNR_NUMERO.AsString := + dtmSystem.FormatTelefone + (sg_import.Cells[strtoint(lista[15]) - 1, i]); + if lista[26] <> '0' then + begin + if sg_import.Cells[strtoint(lista[26]) - 1, i] <> '' then + begin + tblTelefonesNR_DDD.AsString := + sg_import.Cells[strtoint(lista[26]) - 1, i]; + end; + end; + if length(tblTelefonesNR_NUMERO.AsString) = 10 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'M'; + end + else if length(tblTelefonesNR_NUMERO.AsString) = 9 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'F'; + end; + tblTelefones.Post; + end; + end; + k := lista[16]; + if lista[16] <> '0' then + begin + if sg_import.Cells[strtoint(lista[16]) - 1, i] <> '' then + begin + tblTelefones.Append; + tblTelefonesNR_NUMERO.AsString := + dtmSystem.FormatTelefone + (sg_import.Cells[strtoint(lista[16]) - 1, i]); + if lista[27] <> '0' then + begin + if sg_import.Cells[strtoint(lista[27]) - 1, i] <> '' then + begin + tblTelefonesNR_DDD.AsString := + sg_import.Cells[strtoint(lista[27]) - 1, i]; + end; + end; + if length(tblTelefonesNR_NUMERO.AsString) = 10 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'M'; + end + else if length(tblTelefonesNR_NUMERO.AsString) = 9 then + begin + tblTelefonesTP_TIPOTEL.AsString := 'F'; + end; + tblTelefones.Post; + end; + end; + k := lista[19]; + if (lista[19] <> '0') then + begin + k := lista[18]; + if (tblTitulos.Locate + ('DT_VENCIMENTO;ID_EMPRESA;VL_TITULO;ID_DEVEDOR', + VarArrayOf([StrToDate(sg_import.Cells[strtoint(lista[19]) - 1, + i]), tblCHGEmpresaID_EMPRESA.AsInteger, + sg_import.Cells[strtoint(lista[18]) - 1, i], + tblDevedoresID_DEVEDOR.AsInteger]), [])) then + begin + tblDuplicados.Append; + tblDuplicadosTX_NOMEDEVEDOR.AsString := + tblDevedoresTX_NOME.AsString; + tblDuplicadosCD_CPF.AsString := tblDevedoresCD_CPF.AsString; + tblDuplicadosCD_CNPJ.AsString := tblDevedoresCD_CNPJ.AsString; + tblDuplicadosTX_NOMETITULO.AsString := + sg_import.Cells[strtoint(lista[18]) - 1, i]; + tblDuplicadosVL_TITULO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells[strtoint(lista[18]) - + 1, i], '.', ',', [rfReplaceAll]));; + tblDuplicadosDT_VENCIMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[19]) - 1, i]); + case repetido of + 0: + begin + resp := Messagedlg('O ttulo com vencimento "' + + sg_import.Cells[strtoint(lista[19]) - 1, i] + + '" pode ser repetido.' + #13 + + '(Mesma data de Vencimento que outro ttulo)' + #13 + '' + + ' Deseja adicion-los mesmo assim?', mtWarning, + [mbYes, mbYesToAll, mbNo, mbNoToAll], 0); + case resp of + mrYes: + begin + repetido := 0; + adiciona := true; + tblDuplicadosTP_ACAO.AsString := 'S'; // adicionou + end; + mrNo: + begin + repetido := 0; + adiciona := false; + tblDuplicadosTP_ACAO.AsString := 'N'; + // adicionou + end; + mrYesToAll: + begin + repetido := 1; + adiciona := true; + tblDuplicadosTP_ACAO.AsString := 'S'; // adicionou + end; + mrNoToAll: + begin + repetido := 2; + adiciona := false; + tblDuplicadosTP_ACAO.AsString := 'N'; + // adicionou + end; + end; + end; + 1: + begin + adiciona := true; + tblDuplicadosTP_ACAO.AsString := 'S'; // adicionou + end; + 2: + begin + adiciona := false; + tblDuplicadosTP_ACAO.AsString := 'N'; // adicionou + end; + end; + tblDuplicados.Post; + if adiciona = true then + begin + tblTitulos.Append; + tblTitulosID_EMPRESA.AsInteger := id_empimport; + tblTitulosVL_TITULO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells[strtoint(lista[18]) + - 1, i], '.', ',', [rfReplaceAll])); + tblTitulosTP_SITUACAO.AsString := 'A'; + tblTitulosDT_ENTRADA.AsDateTime := Date; + k := lista[17]; + if sg_import.Cells[strtoint(lista[17]) - 1, i] <> '0' then + begin + tblTitulosTX_PRODUTO.AsString := + sg_import.Cells[strtoint(lista[17]) - 1, i]; + end; + k := lista[19]; + if sg_import.Cells[strtoint(lista[19]) - 1, i] <> '0' then + begin + tblTitulosDT_VENCIMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[19]) - 1, i]); + end; + k := lista[20]; + if lista[20] <> '0' then + begin + if sg_import.Cells[strtoint(lista[20]) - 1, i] <> '0' then + begin + tblTitulosCD_DEVEDOR.AsString := + sg_import.Cells[strtoint(lista[20]) - 1, i]; + end; + end; + k := lista[21]; + if lista[21] <> '0' then + begin + if sg_import.Cells[strtoint(lista[21]) - 1, i] = 'S' then + begin + tblTitulosTP_CHEQUE.AsString := 'S'; + k := lista[22]; + if sg_import.Cells[strtoint(lista[22]) - 1, i] <> '0' then + begin + tblTitulosID_BANCO.AsString := + sg_import.Cells[strtoint(lista[22]) - 1, i]; + end; + k := lista[23]; + if sg_import.Cells[strtoint(lista[23]) - 1, i] <> '' then + begin + tblTitulosTX_NRCHEQUE.AsString := + sg_import.Cells[strtoint(lista[23]) - 1, i]; + end; + k := lista[24]; + if sg_import.Cells[strtoint(lista[24]) - 1, i] <> '0' then + begin + tblTitulosTP_MOTIVO.AsString := + sg_import.Cells[strtoint(lista[24]) - 1, i]; + end; + end + else + begin + tblTitulosTP_CHEQUE.AsString := 'N'; + end; + end; + k := lista[28]; + if lista[28] <> '0' then + begin + tblTitulosTX_OBS.AsString := sg_import.Cells + [strtoint(lista[28]) - 1, i]; + end; + k := lista[31]; + if lista[31] <> '0' then + begin + if sg_import.Cells[strtoint(lista[31]) - 1, i] <> '0' then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[31]) - 1, i]); + tblTitulosTP_SITUACAO.AsString := 'QC'; + tblTitulosVL_CORRIGIDO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells + [strtoint(lista[18]) - 1, i], '.', ',', + [rfReplaceAll])); + end; + end; + tblTitulos.Post; + if not tblHistorico.active then + begin + tblHistorico.Open; + end; + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblHistoricoID_TITULO.AsInteger := + tblTitulosID_TITULO.AsInteger; + // tblHistoricoID_PROVIDENCIA.AsInteger := 52; + tblHistoricoID_PROVIDENCIA.AsInteger := + frmEscolheLayout.id_prov; + tblHistoricoDT_CONTATO.AsDateTime := Date; + tblHistorico.Post; + end + else + begin + // break; + end; + end + else + begin + tblTitulos.Append; + tblTitulosID_EMPRESA.AsInteger := id_empimport; + tblTitulosVL_TITULO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells[strtoint(lista[18]) - + 1, i], '.', ',', [rfReplaceAll])); + tblTitulosTP_SITUACAO.AsString := 'A'; + tblTitulosDT_ENTRADA.AsDateTime := Date; + k := lista[17]; + if sg_import.Cells[strtoint(lista[17]) - 1, i] <> '0' then + begin + tblTitulosTX_PRODUTO.AsString := + sg_import.Cells[strtoint(lista[17]) - 1, i]; + end; + k := lista[19]; + if sg_import.Cells[strtoint(lista[19]) - 1, i] <> '0' then + begin + tblTitulosDT_VENCIMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[19]) - 1, i]); + end; + k := lista[20]; + if lista[20] <> '0' then + begin + if sg_import.Cells[strtoint(lista[20]) - 1, i] <> '0' then + begin + tblTitulosCD_DEVEDOR.AsString := + sg_import.Cells[strtoint(lista[20]) - 1, i]; + end; + end; + k := lista[21]; + if lista[21] <> '0' then + begin + if sg_import.Cells[strtoint(lista[21]) - 1, i] = 'S' then + begin + tblTitulosTP_CHEQUE.AsString := 'S'; + k := lista[22]; + if sg_import.Cells[strtoint(lista[22]) - 1, i] <> '0' then + begin + tblTitulosID_BANCO.AsString := + sg_import.Cells[strtoint(lista[22]) - 1, i]; + end; + k := lista[23]; + if sg_import.Cells[strtoint(lista[23]) - 1, i] <> '' then + begin + tblTitulosTX_NRCHEQUE.AsString := + sg_import.Cells[strtoint(lista[23]) - 1, i]; + end; + k := lista[24]; + if sg_import.Cells[strtoint(lista[24]) - 1, i] <> '0' then + begin + tblTitulosTP_MOTIVO.AsString := + sg_import.Cells[strtoint(lista[24]) - 1, i]; + end; + end + else + begin + tblTitulosTP_CHEQUE.AsString := 'N'; + end; + end; + k := lista[28]; + if lista[28] <> '0' then + begin + tblTitulosTX_OBS.AsString := sg_import.Cells + [strtoint(lista[28]) - 1, i]; + end; + k := lista[31]; + if lista[31] <> '0' then + begin + if sg_import.Cells[strtoint(lista[31]) - 1, i] <> '0' then + begin + tblTitulosDT_PAGAMENTO.AsDateTime := + StrToDate(sg_import.Cells[strtoint(lista[31]) - 1, i]); + tblTitulosTP_SITUACAO.AsString := 'QC'; + tblTitulosVL_CORRIGIDO.AsCurrency := + StrtoCurr(StringReplace(sg_import.Cells + [strtoint(lista[18]) - 1, i], '.', ',', [rfReplaceAll])); + end; + end; + tblTitulos.Post; + if not tblHistorico.active then + begin + tblHistorico.Open; + end; + tblHistorico.Append; + tblHistoricoID_DEVEDOR.AsInteger := + tblDevedoresID_DEVEDOR.AsInteger; + tblHistoricoID_TITULO.AsInteger := + tblTitulosID_TITULO.AsInteger; + // tblHistoricoID_PROVIDENCIA.AsInteger := 52; + tblHistoricoID_PROVIDENCIA.AsInteger := + frmEscolheLayout.id_prov; + tblHistoricoDT_CONTATO.AsDateTime := Date; + tblHistorico.Post; + end; + end; + end; + end; + except + on E: Exception do + begin + if (Pos(E.Message, 'PRYMARY OR UNIQUE') > 0) and + (Pos(E.Message, 'CHG_HISTORICO') > 0) then + begin + hist_postou := false; + while not(hist_postou) do + begin + try + dtmSystem.tblHistorico.Post; + hist_postou := true; + except + hist_postou := false; + end; + end; + end + else + begin + if Messagedlg('Houve um erro ao tentar importar o dado na linha: ' + + inttostr(i) + ', coluna: ' + k + '. Erro: ' + E.Message + + sLineBreak + 'Deseja continuar?', mtError, [mbYes, mbNo], 0) = mrNo + then + begin + // dtmSystem.tblDevedores.Delete; + with dtmSystem do + begin + tblDevedores.EnableControls; + tblEnderecos.EnableControls; + tblTelefones.EnableControls; + tblCidades.EnableControls; + tblEstados.EnableControls; + tblCHGEmpresa.EnableControls; + tblTitulos.EnableControls; + tblHistorico.EnableControls; + tblDuplicados.EnableControls; + end; + abort; + end + else + begin + // dtmSystem.tblDevedores.Delete; + end; + end; + // showmessage('Houve um erro ao tentar importar o dado na linha: ' + + // inttostr(i) + ', coluna: ' + k + '. Erro: ' + E.Message); + end; + + end; + Inc(Counter, 1); + if Counter < (sg_import.RowCount - 2) then + begin + pb_import.Position := Counter + 1; + pb_import.Position := Counter; + end + else + begin + pb_import.Max := Counter + 1; + pb_import.Position := Counter + 1; + pb_import.Max := Counter; + end; + Application.ProcessMessages; + end; + end; + with dtmSystem do + begin + tblDevedores.EnableControls; + tblEnderecos.EnableControls; + tblTelefones.EnableControls; + tblCidades.EnableControls; + tblEstados.EnableControls; + tblCHGEmpresa.EnableControls; + tblTitulos.EnableControls; + tblHistorico.EnableControls; + tblDuplicados.EnableControls; + end; + // end; +end; + +procedure TimpDevedores.imp_LayoutClick(Sender: TObject); +begin + Messagedlg('Certifique-se de que o arquivo' + + ' a ser importado corresponde ao layout a ser escolhido. CPFs e CNPJ devem conter ''0''s a esquerda.', + mtWarning, [mbOK], 0); + dtmSystem.tblLayouts.Open; + frmEscolheLayout := TfrmEscolheLayout.Create(self); + with frmEscolheLayout do + begin + ShowModal; + if escolheu = true then + begin + try + Carregar; + ImportarLayout; + if Messagedlg + ('Deseja montar um relatrio de entrada? (Ele s ser preenchido caso novos ttulos tenham sido inseridos)', + mtInformation, mbYesNo, 0) = mrYes then + begin + relBordero := TrelBordero.Create(self); + with relBordero do + begin + with zqryRel.SQL do + begin + Clear; + Add('select'); + Add('A.id_devedor,'); + Add('A.tx_nome as NOME,'); + Add('case when a.tp_cliente = ''F'' then A.cd_cpf'); + Add('when a.tp_cliente = ''J'' then a.cd_cnpj end as TX_DOCUMENTO,'); + Add('A.cd_devedor AS CODIGO,'); + Add('B.dt_entrada AS DATA_ENTRADA,'); + Add('B.tx_produto AS PRODUTO,'); + Add('B.vl_titulo AS VALOR,'); + Add('B.dt_vencimento as DATA_VENCIMENTO'); + Add('from chg_devedores A'); + Add('inner join chg_titulos B'); + Add('on (A.id_devedor = B.id_devedor)'); + Add('where (B.id_empresa = ' + inttostr(dtmSystem.id_empimport) + + ') and'); + Add('(CAST(B.dt_entrada AS DATE) >= ' + + QuotedStr(FormatDateTime('mm/dd/YYYY', Date)) + ')'); + Add('order by A.tx_nome'); + end; + zqryRel.Open; + frBordero.PreviewModal; + end; + if not dtmSystem.tblDuplicados.active then + begin + dtmSystem.tblDuplicados.Open; + end; + if dtmSystem.tblDuplicados.RecordCount <> 0 then + begin + relDuplicados := TrelDuplicados.Create(self); + relDuplicados.frDuplicados.PreviewModal; + end; + end; + cadDevedores.importou := true; + except + end; + end; + end; +end; + +procedure TimpDevedores.Layouts1Click(Sender: TObject); +begin + confLayouts := TconfLayouts.Create(self); + confLayouts.ShowModal; +end; + +function TimpDevedores.OStripAccents(const aStr: String): String; +type + USASCIIString = type AnsiString(20127); // 20127 = us ascii +begin + Result := String(USASCIIString(aStr)); +end; + +procedure TimpDevedores.PovoaCB(tbSheet: TTabSheet); +var + i: integer; +begin + + for i := 0 to tbSheet.ControlCount - 1 do + begin + if tbSheet.Controls[i] is TComboBox then + begin + with tbSheet.Controls[i] as TComboBox do + begin + Items.BeginUpdate; + try + begin + Items.Clear; + Items.AddStrings(itemList); + end; + finally + Items.EndUpdate; + end; + end; + end; + end; +end; + +procedure TimpDevedores.WMMoving(var Msg: TWMMoving); +begin + +end; + +end. + diff --git a/umstCadastro.dfm b/umstCadastro.dfm new file mode 100644 index 0000000..fbc047e Binary files /dev/null and b/umstCadastro.dfm differ diff --git a/umstCadastro.pas b/umstCadastro.pas new file mode 100644 index 0000000..0f29315 --- /dev/null +++ b/umstCadastro.pas @@ -0,0 +1,192 @@ +unit umstCadastro; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Buttons, ComCtrls, DB, Menus, + Vcl.Mask, System.UITypes; + +type + TmstCadastro = class(TForm) + GroupBox2: TGroupBox; + pcClientes: TPageControl; + tabCadastro: TTabSheet; + dtsDB: TDataSource; + stbStatus: TStatusBar; + navPrincipal: TDBNavigator; + grpDescricao: TGroupBox; + Nome: TLabel; + DBEdit1: TDBEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + procedure dtsDBStateChange(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + AcaoRealizada: String; + end; + +var + mstCadastro: TmstCadastro; + +implementation + +uses udtmSystem; + +{$R *.DFM} + +procedure TmstCadastro.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + + if (ActiveControl is TDBGrid) or + // ((ActiveControl is TDBLookupCombo) and (ActiveControl.Tag = 1)) or + ((ActiveControl is TDBComboBox) and (ActiveControl.Tag = 1)) or + // ((ActiveControl is TDBDateTimePicker) and (ActiveControl.Tag = 1)) or + ((ActiveControl is TDBEdit) and (ActiveControl.Tag = 1)) or + (ActiveControl is TDBMemo) or (ActiveControl is TDBRichEdit) // or + // (ActiveControl is TDBWPRichText) + or (ActiveControl is TMemo) or (ActiveControl is TDBMemo) + then + exit; + + case Key of + + VK_RETURN: + begin + SelectNext(ActiveControl as tWinControl, True, True); + Key := 0; + end; + { + VK_UP: + begin + SelectNext(ActiveControl as tWinControl, False, True ); + Key := 0; + end; + + VK_DOWN: + begin + SelectNext(ActiveControl as tWinControl, True, True ); + Key := 0; + end; + } + end; + +end; + +procedure TmstCadastro.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + + if navPrincipal.DataSource <> nil then + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg + ('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', + mtConfirmation, [mbOK], 0); + CanClose := False; + end; + +end; + +procedure TmstCadastro.dtsDBStateChange(Sender: TObject); +begin + + grpDescricao.Enabled := dtsDB.State in [dsEdit, dsInsert]; + tabCadastro.Enabled := grpDescricao.Enabled; + +end; + +procedure TmstCadastro.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + if dtsDB.DataSet <> nil then + begin + + dtsDB.DataSet.Filtered := False; + + if dtsDB.DataSet.State in [dsInsert, dsEdit] then + dtsDB.DataSet.Cancel; + + end; + + // Envia as alteraes para o banco + + // if dtsDB.DataSet.State in [dsInsert, dsEdit] then + + // RegistraSaida; + + // Volta o cursor para o estado normal + + Screen.Cursor := crDefault; + + // Libera a memria + + Action := caFree; + +end; + +procedure TmstCadastro.FormCreate(Sender: TObject); +begin + + + dtmSystem.tx_formulario := TForm(Sender).Name; + + + dtsDB.DataSet.Open; + + pcClientes.ActivePage := tabCadastro; + +end; + +procedure TmstCadastro.FormShow(Sender: TObject); +begin + + pcClientes.ActivePageIndex := 0 + +end; + +procedure TmstCadastro.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + + case Button of + nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbRefresh: + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', mtConfirmation, [mbOK], 0); + Abort; + end; + + nbPost: SelectNext(ActiveControl as tWinControl, True, True); + + nbDelete: + begin + if navPrincipal.DataSource.State in [dsInsert, dsEdit] then + begin + MessageDlg('Existem alteraes pendentes, clique em CONFIRMAR ou CANCELAR.', mtConfirmation, [mbOK], 0); + Abort; + end; + + if MessageDlg('Deseja apagar este registro?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then Abort; + + try + dtsDB.DataSet.Delete; + except + ShowMessage('Este registro est sendo utilizado pelo sistema ou contm dependncias e no pode ser apagado'); + end; + + Abort; + end; + + nbCancel: if MessageDlg('Deseja cancelar as modificaes?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then Abort; + end; + +end; + +end. diff --git a/umstLista.dfm b/umstLista.dfm new file mode 100644 index 0000000..a510c17 Binary files /dev/null and b/umstLista.dfm differ diff --git a/umstLista.pas b/umstLista.pas new file mode 100644 index 0000000..ee7b56a --- /dev/null +++ b/umstLista.pas @@ -0,0 +1,144 @@ +unit umstLista; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, System.UITypes, + Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Buttons, ComCtrls, DB, ShellAPI; + +type + TmstLista = class(TForm) + GroupBox1: TGroupBox; + stbStatus: TStatusBar; + dtsDB: TDataSource; + navPrincipal: TDBNavigator; + grdLista: TDBGrid; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormActivate(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure dtsDBDataChange(Sender: TObject; Field: TField); + procedure FormCreate(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn); + private + + { Private declarations } + public + { Public declarations } + end; + +var + mstLista: TmstLista; + +implementation + +uses udtmSystem; + +{$R *.DFM} + +procedure TmstLista.FormActivate(Sender: TObject); +begin + + Screen.Cursor := crDefault; + +{ + if (dtmSistema.tp_acesso = 'D') and (dtsDB.Dataset.RecordCount >= 10) then + begin + btnNovo.Enabled := False; + grdLista.KeyOptions := [dgEnterToTab]; + end; +} +end; + +procedure TmstLista.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + + if navPrincipal.DataSource.State in [dsInsert,dsEdit] then + begin + ShowMessage('Existem alteraes pendendes, clique em CONFIRMAR ou CANCELAR'); + CanClose := False; + end; + +end; + +procedure TmstLista.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + Action := caFree; + + // Envia as alteraes para o banco + + if navPrincipal.DataSource.State in [dsInsert,dsEdit] then //LU052012 - Soluco de Inconsistncia quando fechava aplicao + dtsDB.DataSet.Post; + +end; + +procedure TmstLista.dtsDBDataChange(Sender: TObject; Field: TField); +begin + + {if dtmSistema.tblUsuarios.Active then + begin + + if dtmSistema.tblUsuarios.Locate('ID_USUARIO', dtsDB.Dataset.FieldByName('ID_USUARIO').AsInteger,[]) then + stbStatus.Panels[2].Text := dtmSistema.tblUsuariosTX_NOME.AsString + ' - ' + dtsDB.Dataset.FieldByName('DT_ATUALIZACAO').AsString + else + stbStatus.Panels[2].Text := dtsDB.Dataset.FieldByName('DT_ATUALIZACAO').AsString; + + end; + + stbStatus.Panels[0].Text := 'Registros: ' + FormatFloat('#,##0',dtsDB.Dataset.RecordCount); + + if (dtmSistema.tp_acesso = 'D') and (dtsDB.Dataset.RecordCount >= 10) then + begin + btnNovo.Enabled := False; + grdLista.KeyOptions := [dgEnterToTab]; + end; +} +end; + +procedure TmstLista.FormCreate(Sender: TObject); +begin + + dtmSystem.tx_formulario := TForm(Sender).Name; + + dtsDB.DataSet.Open; + + //if dtmSystem.tp_bloqueado = 'S' then btnNovo.Visible := False; + +end; + +procedure TmstLista.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin +{ + if Key = VK_F1 then + ShellExecute(0, nil, PChar('controller.chm'), PChar('Plano de Contas'), nil, Sw_Normal); + +// ShellExecute(0, nil, char(dtmSistema.tx_modulo+'.chm'), TForm(Sender).Caption, nil, Sw_Normal); +} + +end; + +procedure TmstLista.navPrincipalBeforeAction(Sender: TObject; + Button: TNavigateBtn); +begin + + case Button of + nbDelete: + begin + if MessageDlg('Deseja apagar este registro?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then Abort; + + try + dtsDB.Dataset.Delete; + except + ShowMessage('Este registro est sendo utilizado pelo sistema e no pode ser apagado'); + end; + Abort; + end; + end; + +end; + +end. + diff --git a/umstMaster.dfm b/umstMaster.dfm new file mode 100644 index 0000000..8afbb03 Binary files /dev/null and b/umstMaster.dfm differ diff --git a/umstMaster.pas b/umstMaster.pas new file mode 100644 index 0000000..0abb230 --- /dev/null +++ b/umstMaster.pas @@ -0,0 +1,122 @@ +unit umstMaster; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Buttons, ComCtrls, DB, ImgList, + Menus, CheckLst; + +type + TmstMaster = class(TForm) + stbStatus: TStatusBar; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormActivate(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + function Selecionados(CheckListBox: TCheckListBox; Dataset: TDataset; Field: String):String;overload;virtual; + { Public declarations } + end; + +var + mstMaster: TmstMaster; + +implementation + +uses udtmSystem; + +{$R *.DFM} + +function TmstMaster.Selecionados(CheckListBox: TCheckListBox; Dataset: TDataset; Field: String):String; +// Funcao para obter multi-selecao +begin + + with TStringList.Create do + begin + Dataset.First; + + while not Dataset.Eof do + begin + + if CheckListBox.Checked[Dataset.RecNo - 1] then + Add(Dataset.FieldByName(Field).AsString); + + Dataset.Next; + + end; + + Result := DelimitedText; + + Free; + + end; + +end; + +procedure TmstMaster.FormActivate(Sender: TObject); +begin + Screen.Cursor := crDefault; +end; + +procedure TmstMaster.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + + if (ActiveControl is TDBGrid) or + //((ActiveControl is TDBLookupCombo) and (ActiveControl.Tag = 1)) or + ((ActiveControl is TDBComboBox) and (ActiveControl.Tag = 1)) or + //((ActiveControl is TDBDateTimePicker) and (ActiveControl.Tag = 1)) or + ((ActiveControl is TDBEdit) and (ActiveControl.Tag = 1)) or + (ActiveControl is TDBMemo) or + (ActiveControl is TDBRichEdit) or (ActiveControl is TMemo) + then exit; + + case Key of + + VK_RETURN: + begin + SelectNext(ActiveControl as tWinControl, True, True ); + Key := 0; + end; + + VK_ESCAPE: + begin + Key := 0; + Close; + end; + + end; + +end; + +procedure TmstMaster.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + // Volta o cursor para o estado normal + + Screen.Cursor := crDefault; + + // Libera a memria + + Action := caFree; + +end; + +procedure TmstMaster.FormCreate(Sender: TObject); +begin + + dtmSystem.tx_formulario := TForm(Sender).Name; + +end; + +end. + + + + + + diff --git a/urelAcordos.dfm b/urelAcordos.dfm new file mode 100644 index 0000000..d236032 --- /dev/null +++ b/urelAcordos.dfm @@ -0,0 +1,498 @@ +object relAcordos: TrelAcordos + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relAcordos' + ClientHeight = 556 + ClientWidth = 808 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object frrelAcordo: TRLReport + Left = 6 + Top = 8 + Width = 794 + Height = 1123 + DataSource = dtsAcordo + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + AfterPrint = frrelAcordoAfterPrint + object RLBand1: TRLBand + Left = 38 + Top = 169 + Width = 718 + Height = 40 + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object RLDBText1: TRLDBText + Left = 3 + Top = 6 + Width = 296 + Height = 16 + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsAcordo + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + object RLDBText3: TRLDBText + Left = 1 + Top = 24 + Width = 298 + Height = 16 + AutoSize = False + DataField = 'TX_PRODUTO' + DataSource = dtsAcordo + Text = 'PARCELA: ' + end + object RLDBText4: TRLDBText + Left = 595 + Top = 24 + Width = 90 + Height = 16 + DataField = 'VL_TITULO' + DataSource = dtsAcordo + Text = 'R$ ' + end + object RLDBText6: TRLDBText + Left = 397 + Top = 24 + Width = 112 + Height = 16 + DataField = 'DT_VENCIMENTO' + DataSource = dtsAcordo + Text = '' + end + object RLLabel6: TRLLabel + Left = 305 + Top = 24 + Width = 93 + Height = 16 + Caption = 'VENCIMENTO:' + end + object RLLabel3: TRLLabel + Left = 546 + Top = 24 + Width = 52 + Height = 16 + Caption = 'VALOR:' + end + object RLDBText11: TRLDBText + Left = 305 + Top = 6 + Width = 265 + Height = 16 + DataField = 'QTDE_PARCELAS' + DataSource = dtsAcordo + Text = 'Parcelamento: Entrada + ' + end + end + object RLSubDetail1: TRLSubDetail + Left = 38 + Top = 209 + Width = 718 + Height = 55 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + DataSource = dtsOriginal + object RLBand2: TRLBand + Left = 0 + Top = 18 + Width = 718 + Height = 19 + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBText2: TRLDBText + Left = 3 + Top = 2 + Width = 182 + Height = 16 + AutoSize = False + DataField = 'TX_PRODUTO' + DataSource = dtsOriginal + Text = '' + end + object RLDBText5: TRLDBText + Left = 473 + Top = 2 + Width = 90 + Height = 16 + DataField = 'VL_TITULO' + DataSource = dtsOriginal + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = 'R$ ' + end + object RLDBText10: TRLDBText + Left = 614 + Top = 2 + Width = 119 + Height = 16 + DataField = 'VL_CORRIGIDO' + DataSource = dtsOriginal + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = 'R$ ' + end + object RLDBText7: TRLDBText + Left = 305 + Top = 2 + Width = 112 + Height = 16 + DataField = 'DT_VENCIMENTO' + DataSource = dtsOriginal + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + object RLBand5: TRLBand + Left = 0 + Top = 0 + Width = 718 + Height = 18 + AutoSize = True + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLLabel5: TRLLabel + Left = 3 + Top = 1 + Width = 132 + Height = 16 + Caption = 'T'#205'TULOS ORIGINAIS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel7: TRLLabel + Left = 473 + Top = 1 + Width = 71 + Height = 16 + Caption = 'PRINCIPAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object RLLabel11: TRLLabel + Left = 614 + Top = 1 + Width = 76 + Height = 16 + Caption = 'CORRIGIDO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object RLLabel1: TRLLabel + Left = 305 + Top = 1 + Width = 89 + Height = 16 + Caption = 'VENCIMENTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object RLBand4: TRLBand + Left = 0 + Top = 37 + Width = 718 + Height = 16 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + object RLDBResult1: TRLDBResult + Left = 614 + Top = 0 + Width = 158 + Height = 16 + DataField = 'VL_CORRIGIDO' + DataSource = dtsOriginal + Info = riSum + Text = 'R$ ' + end + object RLLabel4: TRLLabel + Left = 571 + Top = 0 + Width = 36 + Height = 16 + Caption = 'Total:' + end + end + end + object RLBand3: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 131 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLMemo1: TRLMemo + Left = 201 + Top = 56 + Width = 466 + Height = 19 + Align = faCenter + Alignment = taCenter + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + Lines.Strings = ( + 'BENEF - RELA'#199#195'O DE ACORDOS - DT1 AT'#201' DT2') + ParentFont = False + end + object frpnl_logo: TRLPanel + Left = 1 + Top = 1 + Width = 150 + Height = 129 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 0 + Width = 150 + Height = 129 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + BeforePrint = frdbimg_logoBeforePrint + end + end + end + end + object dtsAcordo: TDataSource + DataSet = zroqryAcordos + Left = 640 + Top = 24 + end + object dtsOriginal: TDataSource + DataSet = zroqryOriginais + Left = 720 + Top = 24 + end + object zroqryAcordos: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'A.tx_nome,' + 'B.tx_produto,' + 'B.dt_vencimento,' + 'B.id_titulo,' + 'B.vl_titulo,' + 'B.qtde_parcelas' + 'from chg_devedores A' + 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)') + Params = <> + Left = 640 + Top = 80 + object zroqryAcordosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object zroqryAcordosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zroqryAcordosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object zroqryAcordosVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + end + object zroqryAcordosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object zroqryAcordosQTDE_PARCELAS: TIntegerField + FieldName = 'QTDE_PARCELAS' + end + end + object zroqryOriginais: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'A.tx_nome,' + 'B.*,' + 'C.id_parcela' + 'from chg_devedores A' + 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' + 'left join sys_acordos C on (B.id_titulo = C.id_original)') + Params = <> + MasterFields = 'ID_TITULO' + MasterSource = dtsAcordo + LinkedFields = 'ID_PARCELA' + Left = 720 + Top = 80 + object zroqryOriginaisTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object zroqryOriginaisTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zroqryOriginaisID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object zroqryOriginaisVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + end + object zroqryOriginaisID_PARCELA: TIntegerField + FieldName = 'ID_PARCELA' + Required = True + end + object zroqryOriginaisID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zroqryOriginaisID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zroqryOriginaisDT_ENTRADA: TDateTimeField + FieldName = 'DT_ENTRADA' + end + object zroqryOriginaisDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object zroqryOriginaisTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 2 + end + object zroqryOriginaisCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + Size = 100 + end + object zroqryOriginaisTP_CHEQUE: TWideStringField + FieldName = 'TP_CHEQUE' + Required = True + Size = 1 + end + object zroqryOriginaisID_BANCO: TIntegerField + FieldName = 'ID_BANCO' + end + object zroqryOriginaisTX_NRCHEQUE: TWideStringField + FieldName = 'TX_NRCHEQUE' + end + object zroqryOriginaisTP_MOTIVO: TWideStringField + FieldName = 'TP_MOTIVO' + Size = 2 + end + object zroqryOriginaisVL_DESPESA: TFloatField + FieldName = 'VL_DESPESA' + end + object zroqryOriginaisTP_DESPESA: TWideStringField + FieldName = 'TP_DESPESA' + Size = 1 + end + object zroqryOriginaisVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + end + object zroqryOriginaisVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + end + object zroqryOriginaisVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + end + object zroqryOriginaisVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + end + object zroqryOriginaisDT_PAGAMENTO: TDateTimeField + FieldName = 'DT_PAGAMENTO' + end + object zroqryOriginaisTX_OBS: TWideMemoField + FieldName = 'TX_OBS' + BlobType = ftWideMemo + end + object zroqryOriginaisID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object zroqryOriginaisDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 724 + Top = 136 + end +end diff --git a/urelAcordos.pas b/urelAcordos.pas new file mode 100644 index 0000000..3753344 --- /dev/null +++ b/urelAcordos.pas @@ -0,0 +1,173 @@ +unit urelAcordos; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, ZDataset, + RLReport, RLFilters, RLPDFFilter; + +type + TrelAcordos = class(TForm) + frrelAcordo: TRLReport; + dtsAcordo: TDataSource; + dtsOriginal: TDataSource; + zroqryAcordos: TZReadOnlyQuery; + zroqryOriginais: TZReadOnlyQuery; + RLBand1: TRLBand; + zroqryAcordosTX_NOME: TWideStringField; + zroqryAcordosTX_PRODUTO: TWideStringField; + zroqryAcordosID_TITULO: TIntegerField; + zroqryAcordosVL_TITULO: TFloatField; + zroqryOriginaisTX_NOME: TWideStringField; + zroqryOriginaisTX_PRODUTO: TWideStringField; + zroqryOriginaisID_TITULO: TIntegerField; + zroqryOriginaisVL_TITULO: TFloatField; + zroqryOriginaisID_PARCELA: TIntegerField; + RLDBText1: TRLDBText; + RLSubDetail1: TRLSubDetail; + RLBand2: TRLBand; + RLDBText2: TRLDBText; + RLBand3: TRLBand; + RLMemo1: TRLMemo; + RLDBText3: TRLDBText; + RLDBText4: TRLDBText; + RLBand5: TRLBand; + RLLabel5: TRLLabel; + RLDBText5: TRLDBText; + RLDBText6: TRLDBText; + zroqryAcordosDT_VENCIMENTO: TDateTimeField; + fr_filterpdf: TRLPDFFilter; + zroqryOriginaisID_DEVEDOR: TIntegerField; + zroqryOriginaisID_EMPRESA: TIntegerField; + zroqryOriginaisDT_ENTRADA: TDateTimeField; + zroqryOriginaisDT_VENCIMENTO: TDateTimeField; + zroqryOriginaisTP_SITUACAO: TWideStringField; + zroqryOriginaisCD_DEVEDOR: TWideStringField; + zroqryOriginaisTP_CHEQUE: TWideStringField; + zroqryOriginaisID_BANCO: TIntegerField; + zroqryOriginaisTX_NRCHEQUE: TWideStringField; + zroqryOriginaisTP_MOTIVO: TWideStringField; + zroqryOriginaisVL_DESPESA: TFloatField; + zroqryOriginaisTP_DESPESA: TWideStringField; + zroqryOriginaisVL_MULTA: TFloatField; + zroqryOriginaisVL_JUROS: TFloatField; + zroqryOriginaisVL_ENCARGOS: TFloatField; + zroqryOriginaisVL_CORRIGIDO: TFloatField; + zroqryOriginaisDT_PAGAMENTO: TDateTimeField; + zroqryOriginaisTX_OBS: TWideMemoField; + zroqryOriginaisID_ULTIMO_USUARIO: TIntegerField; + zroqryOriginaisDT_HORA_ULTIMA_ATT: TDateTimeField; + RLDBText10: TRLDBText; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + RLLabel6: TRLLabel; + RLLabel3: TRLLabel; + RLLabel7: TRLLabel; + RLLabel11: TRLLabel; + zroqryAcordosQTDE_PARCELAS: TIntegerField; + RLDBText11: TRLDBText; + RLLabel1: TRLLabel; + RLDBText7: TRLDBText; + RLBand4: TRLBand; + RLDBResult1: TRLDBResult; + RLLabel4: TRLLabel; + procedure frrelAcordoAfterPrint(Sender: TObject); + procedure frdbimg_logoBeforePrint(Sender: TObject; var PrintIt: Boolean); + private + procedure SalvarReciboPDF; + { Private declarations } + public + { Public declarations } + end; + +var + relAcordos: TrelAcordos; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +{ TrelAcordos } + +procedure TrelAcordos.frdbimg_logoBeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin +if not dtmSystem.tblEmpresa.Active then + begin + dtmSystem.tblEmpresa.Open; + end; +end; + +procedure TrelAcordos.frrelAcordoAfterPrint(Sender: TObject); +begin +SalvarReciboPDF; +end; + +procedure TrelAcordos.SalvarReciboPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; +// path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + path := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\PRESTACAO_CONTAS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + dtmSystem.tblCHGEmpresaTX_NOME.AsString; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + file_name := path + '\RELATORIO_PRESTACAO_CONTAS-ACORDOS-' + FormatDateTime('HH-mm', + Time) + '.pdf'; + fr_filterpdf.FileName := file_name; + frrelAcordo.SaveToFile(file_name); +end; + +end. diff --git a/urelBordero.dfm b/urelBordero.dfm new file mode 100644 index 0000000..e51d09c --- /dev/null +++ b/urelBordero.dfm @@ -0,0 +1,457 @@ +object relBordero: TrelBordero + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relBordero' + ClientHeight = 569 + ClientWidth = 796 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object frBordero: TRLReport + Left = 0 + Top = 0 + Width = 794 + Height = 1123 + DataSource = dtsQry + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + AfterPrint = frBorderoAfterPrint + BeforePrint = frBorderoBeforePrint + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 143 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frpnl_logo: TRLPanel + Left = 1 + Top = 0 + Width = 160 + Height = 143 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 1 + Width = 159 + Height = 142 + Align = faClient + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtsEmpresa + Stretch = True + end + end + object frlbl_titulorel: TRLLabel + Left = 167 + Top = 52 + Width = 346 + Height = 24 + Caption = 'Relat'#243'rio de Entrada da Empresa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_empresanome: TRLLabel + Left = 167 + Top = 82 + Width = 212 + Height = 24 + Caption = 'NOME DA EMPRESA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frbnd_footer: TRLBand + Left = 38 + Top = 211 + Width = 718 + Height = 16 + BandType = btSummary + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frdbresult_sumvalor: TRLDBResult + Left = 586 + Top = 1 + Width = 130 + Height = 16 + Align = faTopOnly + Alignment = taRightJustify + DataField = 'VALOR' + DataSource = dtsQry + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = 'Total: ' + end + end + object frbnd_footerrel: TRLBand + Left = 38 + Top = 227 + Width = 718 + Height = 20 + BandType = btFooter + object RLSystemInfo2: TRLSystemInfo + Left = 503 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 605 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + object frdblbl_usuario: TRLDBText + Left = 290 + Top = 7 + Width = 56 + Height = 13 + Align = faBottomOnly + DataField = 'TX_NOME' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + BeforePrint = frdblbl_usuarioBeforePrint + end + end + object frbnd_columnheader: TRLBand + Left = 38 + Top = 181 + Width = 718 + Height = 16 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLLabel2: TRLLabel + Left = 1 + Top = 1 + Width = 42 + Height = 16 + Align = faLeftTop + Caption = 'NOME' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel3: TRLLabel + Left = 325 + Top = 1 + Width = 65 + Height = 16 + Align = faTopOnly + Caption = 'ENTRADA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel4: TRLLabel + Left = 420 + Top = 1 + Width = 51 + Height = 16 + Align = faTopOnly + Caption = 'T'#205'TULO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel5: TRLLabel + Left = 220 + Top = 1 + Width = 68 + Height = 16 + Align = faTopOnly + Caption = 'CPF/CNPJ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel6: TRLLabel + Left = 508 + Top = 1 + Width = 89 + Height = 16 + Align = faTopOnly + Caption = 'VENCIMENTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel7: TRLLabel + Left = 668 + Top = 1 + Width = 49 + Height = 16 + Align = faRightTop + Caption = 'VALOR' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frbnd_dados: TRLBand + Left = 38 + Top = 197 + Width = 718 + Height = 14 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + object frdblbl_data: TRLDBText + Left = 314 + Top = 0 + Width = 88 + Height = 14 + Align = faTopOnly + Alignment = taCenter + DataField = 'DATA_ENTRADA' + DataSource = dtsQry + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_titulo: TRLDBText + Left = 420 + Top = 0 + Width = 82 + Height = 14 + Align = faTopOnly + AutoSize = False + DataField = 'PRODUTO' + DataSource = dtsQry + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_valor: TRLDBText + Left = 677 + Top = 0 + Width = 40 + Height = 14 + Align = faRightTop + Alignment = taRightJustify + DataField = 'VALOR' + DataSource = dtsQry + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_codigo: TRLDBText + Left = 1 + Top = 0 + Width = 207 + Height = 14 + Align = faLeftTop + AutoSize = False + DataField = 'NOME' + DataSource = dtsQry + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText1: TRLDBText + Left = 500 + Top = 0 + Width = 104 + Height = 14 + Align = faTopOnly + Alignment = taCenter + DataField = 'DATA_VENCIMENTO' + DataSource = dtsQry + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText2: TRLDBText + Left = 220 + Top = 0 + Width = 86 + Height = 14 + Align = faTopOnly + DataField = 'TX_DOCUMENTO' + DataSource = dtsQry + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + end + object frfilterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 736 + Top = 8 + end + object dtsEmpresa: TDataSource + DataSet = dtmSystem.tblEmpresa + Left = 568 + Top = 8 + end + object zqryRel: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'A.id_devedor,' + 'A.tx_nome as NOME,' + 'case when a.tp_cliente = '#39'F'#39' then A.cd_cpf' + 'when a.tp_cliente = '#39'J'#39' then a.cd_cnpj end as TX_DOCUMENTO,' + 'A.cd_devedor as CODIGO,' + 'B.dt_entrada as DATA_ENTRADA,' + 'B.tx_produto as PRODUTO,' + 'B.vl_titulo as VALOR,' + 'B.dt_vencimento as DATA_VENCIMENTO' + 'from chg_devedores A' + 'inner join chg_titulos B' + 'on (A.id_devedor = B.id_devedor);') + Params = <> + Left = 624 + Top = 8 + object zqryRelID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zqryRelNOME: TWideStringField + FieldName = 'NOME' + ReadOnly = True + Size = 60 + end + object zqryRelCODIGO: TWideStringField + FieldName = 'CODIGO' + end + object zqryRelPRODUTO: TWideStringField + FieldName = 'PRODUTO' + Size = 100 + end + object zqryRelVALOR: TFloatField + FieldName = 'VALOR' + currency = True + end + object zqryRelDATA_VENCIMENTO: TDateTimeField + FieldName = 'DATA_VENCIMENTO' + end + object zqryRelTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + ReadOnly = True + Size = 18 + end + object zqryRelDATA_ENTRADA: TDateTimeField + FieldName = 'DATA_ENTRADA' + end + end + object dtsQry: TDataSource + DataSet = zqryRel + Left = 680 + Top = 8 + end +end diff --git a/urelBordero.pas b/urelBordero.pas new file mode 100644 index 0000000..f7daf72 --- /dev/null +++ b/urelBordero.pas @@ -0,0 +1,182 @@ +unit urelBordero; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, RLFilters, RLPDFFilter, + Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset; + +type + TrelBordero = class(TForm) + frBordero: TRLReport; + frbnd_header: TRLBand; + frbnd_footer: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frfilterpdf: TRLPDFFilter; + dtsEmpresa: TDataSource; + zqryRel: TZQuery; + dtsQry: TDataSource; + zqryRelNOME: TWideStringField; + zqryRelCODIGO: TWideStringField; + zqryRelPRODUTO: TWideStringField; + zqryRelVALOR: TFloatField; + zqryRelID_DEVEDOR: TIntegerField; + frlbl_titulorel: TRLLabel; + frbnd_dados: TRLBand; + frdblbl_data: TRLDBText; + frdblbl_titulo: TRLDBText; + frdblbl_valor: TRLDBText; + frbnd_footerrel: TRLBand; + frdbresult_sumvalor: TRLDBResult; + frdblbl_codigo: TRLDBText; + RLSystemInfo2: TRLSystemInfo; + RLSystemInfo1: TRLSystemInfo; + frlbl_empresanome: TRLLabel; + zqryRelDATA_VENCIMENTO: TDateTimeField; + RLDBText1: TRLDBText; + frbnd_columnheader: TRLBand; + RLLabel2: TRLLabel; + RLLabel3: TRLLabel; + RLLabel4: TRLLabel; + RLLabel5: TRLLabel; + RLLabel6: TRLLabel; + RLLabel7: TRLLabel; + RLDBText2: TRLDBText; + zqryRelTX_DOCUMENTO: TWideStringField; + zqryRelDATA_ENTRADA: TDateTimeField; + frdblbl_usuario: TRLDBText; + procedure frBorderoBeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure frBorderoAfterPrint(Sender: TObject); + procedure frdblbl_usuarioBeforePrint(Sender: TObject; var AText: string; + var PrintIt: Boolean); + private + procedure SalvarRelPDF; + { Private declarations } + public + { Public declarations } + end; + +var + relBordero: TrelBordero; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TrelBordero.frBorderoAfterPrint(Sender: TObject); +begin + SalvarRelPDF; +end; + +procedure TrelBordero.frBorderoBeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + if not dtsEmpresa.DataSet.Active then + begin + dtsEmpresa.DataSet.Open; + end; + if not dtmSystem.tblCHGEmpresa.Active then + begin + dtmSystem.tblCHGEmpresa.Open; + end; + if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 170; + frdbimg_logo.Width := 133; + end; + if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 170; + end; + if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 133; + end; + dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA', dtmSystem.id_empimport, []); + frlbl_empresanome.Caption := + UpperCase(dtmSystem.tblCHGEmpresaTX_NOME.AsString); +end; + +procedure TrelBordero.frdblbl_usuarioBeforePrint(Sender: TObject; + var AText: string; var PrintIt: Boolean); +begin + if not dtmSystem.tblUsuariosConsulta.Active then + begin + dtmSystem.tblUsuariosConsulta.Open; + end; + dtmSystem.tblUsuariosConsulta.Locate('ID_USUARIO', dtmSystem.id_usuario,[]); + frdblbl_usuario.Caption := dtmSystem.tblUsuariosConsultaTX_NOME.AsString; +end; + +procedure TrelBordero.SalvarRelPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; +// path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + path := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + path := path + '\ENTRADA'; + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + path := path + '\' + dtmSystem.tblCHGEmpresaTX_NOME.AsString; + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + file_name := path + '\RELATORIO_ENTRADA-' + FormatDateTime('HH-mm', + Time) + '.pdf'; + frfilterpdf.FileName := file_name; + frBordero.SaveToFile(file_name); +end; + +end. diff --git a/urelDados.dfm b/urelDados.dfm new file mode 100644 index 0000000..46a7ace --- /dev/null +++ b/urelDados.dfm @@ -0,0 +1,370 @@ +object relDados: TrelDados + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relDados' + ClientHeight = 1151 + ClientWidth = 822 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object RLReport1: TRLReport + Left = 0 + Top = 0 + Width = 794 + Height = 1123 + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + BeforePrint = RLReport1BeforePrint + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 144 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_logo: TRLPanel + Left = 1 + Top = 0 + Width = 160 + Height = 143 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 1 + Width = 159 + Height = 142 + Align = faClient + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtsEmpresa + Stretch = True + end + end + object frlbl_titulorel: TRLLabel + Left = 167 + Top = 52 + Width = 197 + Height = 24 + Caption = 'Amostra de T'#237'tulos' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLDBText11: TRLDBText + Left = 167 + Top = 82 + Width = 106 + Height = 24 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsDevedores + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + end + object frbnd_dados: TRLBand + Left = 38 + Top = 182 + Width = 718 + Height = 51 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBText1: TRLDBText + Left = 3 + Top = 6 + Width = 106 + Height = 16 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsDevedores + Text = 'Nome: ' + end + object RLDBText2: TRLDBText + Left = 568 + Top = 6 + Width = 89 + Height = 16 + DataField = 'CD_CPF' + DataSource = dtmSystem.dtsDevedores + Text = 'CPF: ' + end + object RLDBText3: TRLDBText + Left = 3 + Top = 28 + Width = 110 + Height = 16 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsCHGEmpresa + Text = 'Credor: ' + end + end + object RLGroup1: TRLGroup + Left = 38 + Top = 233 + Width = 718 + Height = 21 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + DataFields = 'ID_TITULO' + object RLBand1: TRLBand + Left = 1 + Top = 0 + Width = 716 + Height = 18 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object RLDBText4: TRLDBText + Left = 0 + Top = 2 + Width = 189 + Height = 16 + Align = faLeftBottom + AutoSize = False + DataField = 'TX_PRODUTO' + DataSource = dtsRel + Text = 'Produto: ' + end + object RLDBText5: TRLDBText + Left = 341 + Top = 2 + Width = 159 + Height = 16 + Align = faBottomOnly + DataField = 'VL_TITULO' + DataSource = dtsRel + Text = 'Valor Nominal: ' + end + object RLDBText6: TRLDBText + Left = 524 + Top = 2 + Width = 189 + Height = 16 + Align = faBottomOnly + DataField = 'DT_VENCIMENTO' + DataSource = dtsRel + Text = 'Vencimento: ' + end + object RLLabel1: TRLLabel + Left = 190 + Top = 2 + Width = 58 + Height = 16 + BeforePrint = RLLabel1BeforePrint + end + end + end + object frbnd_footerrel: TRLBand + Left = 38 + Top = 254 + Width = 718 + Height = 20 + BandType = btFooter + object RLSystemInfo2: TRLSystemInfo + Left = 503 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 605 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + object frdblbl_usuario: TRLDBText + Left = 79 + Top = 4 + Width = 64 + Height = 16 + Align = faBottomOnly + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsUsuarios + Text = '' + end + object frlbl_usuario: TRLLabel + Left = 3 + Top = 4 + Width = 77 + Height = 16 + Align = faBottomOnly + Caption = 'Atendente: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + end + object frfilterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 736 + Top = 8 + end + object dtsRel: TDataSource + DataSet = zROqry + Left = 680 + Top = 8 + end + object zROqry: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + OnCalcFields = zROqryCalcFields + SQL.Strings = ( + 'select first 0 * ' + 'from chg_titulos' + 'order by dt_vencimento, vl_titulo') + Params = <> + Left = 678 + Top = 62 + object zROqryID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object zROqryID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zROqryID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zROqryTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zROqryVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + currency = True + end + object zROqryDT_ENTRADA: TDateTimeField + FieldName = 'DT_ENTRADA' + end + object zROqryDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object zROqryTP_SITUACAO: TWideStringField + FieldName = 'TP_SITUACAO' + Size = 2 + end + object zROqryCD_DEVEDOR: TWideStringField + FieldName = 'CD_DEVEDOR' + Size = 100 + end + object zROqryTP_CHEQUE: TWideStringField + FieldName = 'TP_CHEQUE' + Required = True + Size = 1 + end + object zROqryID_BANCO: TIntegerField + FieldName = 'ID_BANCO' + end + object zROqryTX_NRCHEQUE: TWideStringField + FieldName = 'TX_NRCHEQUE' + end + object zROqryTP_MOTIVO: TWideStringField + FieldName = 'TP_MOTIVO' + Size = 2 + end + object zROqryVL_DESPESA: TFloatField + FieldName = 'VL_DESPESA' + end + object zROqryTP_DESPESA: TWideStringField + FieldName = 'TP_DESPESA' + Size = 1 + end + object zROqryVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + end + object zROqryVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + end + object zROqryVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + end + object zROqryVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + end + object zROqryDT_PAGAMENTO: TDateTimeField + FieldName = 'DT_PAGAMENTO' + end + object zROqryTX_OBS: TWideMemoField + FieldName = 'TX_OBS' + BlobType = ftWideMemo + end + object zROqryID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object zROqryDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object dtsEmpresa: TDataSource + DataSet = dtmSystem.tblEmpresa + Left = 568 + Top = 8 + end +end diff --git a/urelDados.pas b/urelDados.pas new file mode 100644 index 0000000..ca81c5d --- /dev/null +++ b/urelDados.pas @@ -0,0 +1,182 @@ +unit urelDados; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.StrUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, Data.DB, RLFilters, + RLPDFFilter, ZAbstractRODataset, ZDataset; + +type + TrelDados = class(TForm) + RLReport1: TRLReport; + frfilterpdf: TRLPDFFilter; + dtsRel: TDataSource; + frbnd_header: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frlbl_titulorel: TRLLabel; + frbnd_dados: TRLBand; + RLDBText1: TRLDBText; + RLDBText2: TRLDBText; + RLDBText3: TRLDBText; + RLGroup1: TRLGroup; + RLBand1: TRLBand; + RLDBText4: TRLDBText; + zROqry: TZReadOnlyQuery; + RLDBText5: TRLDBText; + RLDBText6: TRLDBText; + dtsEmpresa: TDataSource; + RLDBText11: TRLDBText; + frbnd_footerrel: TRLBand; + RLSystemInfo2: TRLSystemInfo; + RLSystemInfo1: TRLSystemInfo; + frdblbl_usuario: TRLDBText; + frlbl_usuario: TRLLabel; + zROqryID_TITULO: TIntegerField; + zROqryID_DEVEDOR: TIntegerField; + zROqryID_EMPRESA: TIntegerField; + zROqryTX_PRODUTO: TWideStringField; + zROqryVL_TITULO: TFloatField; + zROqryDT_ENTRADA: TDateTimeField; + zROqryDT_VENCIMENTO: TDateTimeField; + zROqryTP_SITUACAO: TWideStringField; + zROqryCD_DEVEDOR: TWideStringField; + zROqryTP_CHEQUE: TWideStringField; + zROqryID_BANCO: TIntegerField; + zROqryTX_NRCHEQUE: TWideStringField; + zROqryTP_MOTIVO: TWideStringField; + zROqryVL_DESPESA: TFloatField; + zROqryTP_DESPESA: TWideStringField; + zROqryVL_MULTA: TFloatField; + zROqryVL_JUROS: TFloatField; + zROqryVL_ENCARGOS: TFloatField; + zROqryVL_CORRIGIDO: TFloatField; + zROqryDT_PAGAMENTO: TDateTimeField; + zROqryTX_OBS: TWideMemoField; + zROqryID_ULTIMO_USUARIO: TIntegerField; + zROqryDT_HORA_ULTIMA_ATT: TDateTimeField; + RLLabel1: TRLLabel; + procedure zROqryCalcFields(DataSet: TDataSet); + procedure RLBand2BeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure RLDBText8BeforePrint(Sender: TObject; var Text: string; + var PrintIt: Boolean); + procedure RLDBText9BeforePrint(Sender: TObject; var Text: string; + var PrintIt: Boolean); + procedure RLDBText10BeforePrint(Sender: TObject; var Text: string; + var PrintIt: Boolean); + procedure RLLabel1BeforePrint(Sender: TObject; var AText: string; var PrintIt: Boolean); + private + { Private declarations } + public + { Public declarations } + end; + +var + relDados: TrelDados; + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmAtendimento; + +procedure TrelDados.RLBand2BeforePrint(Sender: TObject; var PrintIt: Boolean); +begin +// if zROqryVL_DESPESA_1.AsString = '' then +// begin +// PrintIt := false; +// end +// else +// begin +// PrintIt := true; +// end; +end; + +procedure TrelDados.RLDBText10BeforePrint(Sender: TObject; var Text: string; + var PrintIt: Boolean); +begin +// if zROqryVL_DESPESA_1.AsString = '' then +// begin +// PrintIt := false; +// end +// else +// begin +// PrintIt := true; +// end; +end; + +procedure TrelDados.RLDBText8BeforePrint(Sender: TObject; var Text: string; + var PrintIt: Boolean); +begin +// if zROqryVL_DESPESA_1.AsString = '' then +// begin +// PrintIt := false; +// end +// else +// begin +// PrintIt := true; +// end; +end; + +procedure TrelDados.RLDBText9BeforePrint(Sender: TObject; var Text: string; + var PrintIt: Boolean); +begin +// if zROqryVL_DESPESA_1.AsString = '' then +// begin +// PrintIt := false; +// end +// else +// begin +// PrintIt := true; +// end; +end; + +procedure TrelDados.RLLabel1BeforePrint(Sender: TObject; var AText: string; var PrintIt: Boolean); +begin + case AnsiIndexStr(zROqryTP_SITUACAO.AsString, ['A', 'AC', 'AB', 'AJ', 'B', 'QC', 'QB']) of + 0 : AText := 'Aberto'; + 1 : AText := 'Acordo na Cobradora'; + 2 : AText := 'Acordo no Credor'; + 3 : AText := 'Devolvido ao Lojista'; + 4 : AText := 'Baixa manual'; + 5 : AText := 'Quitado na Cobradora'; + 6 : AText := 'Quitado no Credor'; +end; +end; + +procedure TrelDados.RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean); +begin + if not dtsEmpresa.DataSet.Active then + begin + dtsEmpresa.DataSet.Open; + end; + if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 170; + frdbimg_logo.Width := 133; + end; + if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 170; + end; + if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 133; + end; + dtmSystem.tblUsuarios.Locate('ID_USUARIO', dtmSystem.id_usuario, []); +end; + +procedure TrelDados.zROqryCalcFields(DataSet: TDataSet); +begin + frmAtendimento.queryListaTitulos.Locate('ID_TITULO', + zROqryID_TITULO.AsInteger, []); + zROqryVL_CORRIGIDO.AsCurrency := frmAtendimento.queryListaTitulosVL_CORRIGIDO. + AsCurrency; +end; + +end. diff --git a/urelDuplicados.dfm b/urelDuplicados.dfm new file mode 100644 index 0000000..3cc4f0b --- /dev/null +++ b/urelDuplicados.dfm @@ -0,0 +1,360 @@ +object relDuplicados: TrelDuplicados + Left = 0 + Top = 0 + Caption = 'relDuplicados' + ClientHeight = 508 + ClientWidth = 795 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object frDuplicados: TRLReport + Left = 0 + Top = 0 + Width = 794 + Height = 1123 + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + AfterPrint = frDuplicadosAfterPrint + BeforePrint = frDuplicadosBeforePrint + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 144 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_logo: TRLPanel + Left = 1 + Top = 0 + Width = 160 + Height = 143 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 1 + Width = 159 + Height = 142 + Align = faClient + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtsEmpresa + Stretch = True + end + end + object frlbl_titulorel: TRLLabel + Left = 166 + Top = 52 + Width = 539 + Height = 24 + Caption = 'Relat'#243'rio de Entrada de T'#237'tulos Duplicados Empresa:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_empresanome: TRLLabel + Left = 167 + Top = 82 + Width = 212 + Height = 24 + Caption = 'NOME DA EMPRESA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frbndg_dados: TRLGroup + Left = 38 + Top = 182 + Width = 718 + Height = 54 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + DataFields = 'TX_NOMEDEVEDOR' + object frbnd_dados: TRLBand + Left = 0 + Top = 36 + Width = 718 + Height = 18 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + object frdblbl_valor: TRLDBText + Left = 350 + Top = 0 + Width = 70 + Height = 16 + Align = faTopOnly + DataField = 'VL_TITULO' + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_codigo: TRLDBText + Left = 1 + Top = 0 + Width = 346 + Height = 16 + Align = faLeftTop + AutoSize = False + DataField = 'TX_NOMETITULO' + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_dtvencimento: TRLDBText + Left = 417 + Top = 0 + Width = 112 + Height = 16 + Align = faTopOnly + Alignment = taRightJustify + DataField = 'DT_VENCIMENTO' + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_tpacao: TRLDBText + Left = 568 + Top = 0 + Width = 64 + Height = 16 + Align = faTopOnly + Alignment = taRightJustify + DataField = 'TP_ACAO' + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + object frbnd_headergrupo: TRLBand + Left = 0 + Top = 0 + Width = 718 + Height = 18 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + Color = clSilver + ParentColor = False + Transparent = False + object frdblbl_nome: TRLDBText + Left = 1 + Top = 1 + Width = 173 + Height = 16 + Align = faLeftTop + Color = clSilver + DataField = 'TX_NOMEDEVEDOR' + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + Text = 'Nome: ' + Transparent = False + end + object frdblbl_cpf: TRLDBText + Left = 380 + Top = 1 + Width = 89 + Height = 16 + Align = faTopOnly + DataField = 'CD_CPF' + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = 'CPF: ' + BeforePrint = frdblbl_cpfBeforePrint + end + end + object frbnd_headerdetail: TRLBand + Left = 0 + Top = 18 + Width = 718 + Height = 18 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + object frlbl_nometitulo: TRLLabel + Left = 1 + Top = 0 + Width = 68 + Height = 16 + Align = faTopOnly + Caption = 'PRODUTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_valor: TRLLabel + Left = 350 + Top = 0 + Width = 49 + Height = 16 + Align = faTopOnly + Caption = 'VALOR' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_dtvencimento: TRLLabel + Left = 417 + Top = 0 + Width = 149 + Height = 16 + Align = faTopOnly + Caption = 'DATA DE VENCIMENTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel1: TRLLabel + Left = 568 + Top = 0 + Width = 150 + Height = 16 + Align = faTopOnly + Caption = 'ENTRADA NO SISTEMA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + end + object frbnd_footerrel: TRLBand + Left = 38 + Top = 236 + Width = 718 + Height = 20 + BandType = btFooter + object RLSystemInfo2: TRLSystemInfo + Left = 503 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 605 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + end + end + object frfilterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 736 + Top = 8 + end + object dtsRel: TDataSource + DataSet = dtmSystem.tblDuplicados + Left = 680 + Top = 8 + end + object dtsEmpresa: TDataSource + DataSet = dtmSystem.tblEmpresa + Left = 568 + Top = 8 + end +end diff --git a/urelDuplicados.pas b/urelDuplicados.pas new file mode 100644 index 0000000..3c95d1b --- /dev/null +++ b/urelDuplicados.pas @@ -0,0 +1,166 @@ +unit urelDuplicados; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, Data.DB, RLFilters, + RLPDFFilter; + +type + TrelDuplicados = class(TForm) + frDuplicados: TRLReport; + frbnd_header: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frlbl_titulorel: TRLLabel; + frfilterpdf: TRLPDFFilter; + dtsRel: TDataSource; + frbndg_dados: TRLGroup; + frbnd_dados: TRLBand; + frdblbl_valor: TRLDBText; + frdblbl_codigo: TRLDBText; + frbnd_headergrupo: TRLBand; + frdblbl_nome: TRLDBText; + frdblbl_cpf: TRLDBText; + frbnd_headerdetail: TRLBand; + frlbl_nometitulo: TRLLabel; + frlbl_valor: TRLLabel; + frlbl_dtvencimento: TRLLabel; + frdblbl_dtvencimento: TRLDBText; + RLLabel1: TRLLabel; + frdblbl_tpacao: TRLDBText; + frbnd_footerrel: TRLBand; + RLSystemInfo2: TRLSystemInfo; + RLSystemInfo1: TRLSystemInfo; + dtsEmpresa: TDataSource; + frlbl_empresanome: TRLLabel; + procedure frDuplicadosBeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure frDuplicadosAfterPrint(Sender: TObject); + procedure frdblbl_cpfBeforePrint(Sender: TObject; var Text: string; + var PrintIt: Boolean); + private + procedure SalvarRelPDF; + { Private declarations } + public + { Public declarations } + end; + +var + relDuplicados: TrelDuplicados; + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TrelDuplicados.frdblbl_cpfBeforePrint(Sender: TObject; + var Text: string; var PrintIt: Boolean); +begin + if dtsRel.DataSet.FieldByName('CD_CPF').AsString = '' then + begin + frdblbl_cpf.DataField := 'CD_CNPJ'; + end + else + begin + frdblbl_cpf.DataField := 'CD_CPF'; + end; +end; + +procedure TrelDuplicados.frDuplicadosAfterPrint(Sender: TObject); +begin + SalvarRelPDF; +end; + +procedure TrelDuplicados.frDuplicadosBeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + if not dtsEmpresa.DataSet.Active then + begin + dtsEmpresa.DataSet.Open; + end; + if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 170; + frdbimg_logo.Width := 133; + end; + if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 170; + end; + if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 133; + end; + frlbl_empresanome.Caption := + UpperCase(dtmSystem.tblCHGEmpresaTX_NOME.AsString); +end; + +procedure TrelDuplicados.SalvarRelPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; +// path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + path := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\DUPLICADOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + dtmSystem.tblCHGEmpresaTX_NOME.AsString; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + file_name := path + '\RELATORIO_DULICADOS-' + FormatDateTime('HH-mm', + Time) + '.pdf'; + frfilterpdf.FileName := file_name; + frDuplicados.SaveToFile(file_name); +end; + +end. diff --git a/urelFichaDivida.dfm b/urelFichaDivida.dfm new file mode 100644 index 0000000..7419768 --- /dev/null +++ b/urelFichaDivida.dfm @@ -0,0 +1,548 @@ +object relFichaDivida: TrelFichaDivida + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relFichaDivida' + ClientHeight = 565 + ClientWidth = 814 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object RLReport1: TRLReport + Left = 12 + Top = 8 + Width = 794 + Height = 1123 + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + BeforePrint = RLReport1BeforePrint + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 144 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_logo: TRLPanel + Left = 1 + Top = 0 + Width = 160 + Height = 143 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 1 + Width = 159 + Height = 142 + Align = faClient + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + Stretch = True + end + end + object frlbl_titulorel: TRLLabel + Left = 167 + Top = 52 + Width = 187 + Height = 24 + Caption = 'Rela'#231#227'o de D'#237'vida' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLDBText11: TRLDBText + Left = 167 + Top = 82 + Width = 106 + Height = 24 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsDevedores + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + object RLLabel7: TRLLabel + Left = 352 + Top = 122 + Width = 106 + Height = 16 + Caption = 'Referente ao dia: ' + end + end + object frbnd_dados: TRLBand + Left = 38 + Top = 182 + Width = 718 + Height = 48 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBText1: TRLDBText + Left = 3 + Top = 6 + Width = 106 + Height = 16 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsDevedores + Text = 'Nome: ' + end + object RLDBText2: TRLDBText + Left = 568 + Top = 6 + Width = 89 + Height = 16 + DataField = 'CD_CPF' + DataSource = dtmSystem.dtsDevedores + Text = 'CPF: ' + end + object RLDBText3: TRLDBText + Left = 3 + Top = 28 + Width = 110 + Height = 16 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsCHGEmpresa + Text = 'Credor: ' + end + end + object RLGroup1: TRLGroup + Left = 38 + Top = 299 + Width = 718 + Height = 21 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + DataFields = 'ID_TITULO' + object RLBand1: TRLBand + Left = 1 + Top = 0 + Width = 716 + Height = 18 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frdblbl_produto: TRLDBText + Left = 0 + Top = 2 + Width = 118 + Height = 16 + Align = faLeftBottom + AutoSize = False + DataSource = dtsRel + Text = '' + end + object frdblbl_vltitulo: TRLDBText + Left = 124 + Top = 2 + Width = 97 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Text = 'R$' + end + object frdblbl_dtvenc: TRLDBText + Left = 633 + Top = 2 + Width = 82 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Text = '' + end + object frdblbl_vlmulta: TRLDBText + Left = 231 + Top = 2 + Width = 86 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Text = 'R$' + end + object frdblbl_vljuros: TRLDBText + Left = 337 + Top = 2 + Width = 86 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Text = 'R$' + end + object frdblbl_vlenc: TRLDBText + Left = 444 + Top = 2 + Width = 86 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Text = 'R$' + end + object frdblbl_vlcor: TRLDBText + Left = 547 + Top = 2 + Width = 86 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Text = 'R$' + end + end + end + object frbnd_footerrel: TRLBand + Left = 38 + Top = 376 + Width = 718 + Height = 20 + BandType = btFooter + object RLSystemInfo2: TRLSystemInfo + Left = 503 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 605 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + object frdblbl_usuario: TRLDBText + Left = 79 + Top = 4 + Width = 64 + Height = 16 + Align = faBottomOnly + DataField = 'TX_NOME' + DataSource = dtsUser + Text = '' + end + object frlbl_usuario: TRLLabel + Left = 3 + Top = 4 + Width = 77 + Height = 16 + Align = faBottomOnly + Caption = 'Atendente: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_tel: TRLLabel + Left = 251 + Top = 4 + Width = 85 + Height = 16 + Align = faBottomOnly + Caption = 'Tel. Contato:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLBand2: TRLBand + Left = 38 + Top = 267 + Width = 718 + Height = 32 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLLabel1: TRLLabel + Left = 0 + Top = 15 + Width = 53 + Height = 16 + Align = faBottomOnly + Caption = 'Produto:' + end + object RLLabel2: TRLLabel + Left = 125 + Top = 15 + Width = 55 + Height = 16 + Align = faBottomOnly + Caption = 'Nominal:' + end + object RLLabel3: TRLLabel + Left = 634 + Top = 15 + Width = 77 + Height = 16 + Align = faBottomOnly + Caption = 'Vencimento:' + end + object RLLabel4: TRLLabel + Left = 232 + Top = 15 + Width = 40 + Height = 16 + Align = faBottomOnly + Caption = 'Multa:' + end + object RLLabel5: TRLLabel + Left = 338 + Top = 15 + Width = 39 + Height = 16 + Align = faBottomOnly + Caption = 'Juros:' + end + object Encargos: TRLLabel + Left = 445 + Top = 15 + Width = 63 + Height = 16 + Align = faBottomOnly + Caption = 'Encargos:' + end + object RLLabel6: TRLLabel + Left = 548 + Top = 15 + Width = 59 + Height = 16 + Align = faBottomOnly + Caption = 'Corrigido:' + end + object RLLabel9: TRLLabel + Left = 1 + Top = 0 + Width = 74 + Height = 16 + Align = faLeftTop + Caption = 'QUITA'#199#195'O:' + end + end + object RLBand3: TRLBand + Left = 38 + Top = 320 + Width = 718 + Height = 18 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object sumtitulo: TRLDBResult + Left = 125 + Top = 1 + Width = 59 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Info = riSum + Text = 'R$' + end + object summulta: TRLDBResult + Left = 232 + Top = 1 + Width = 59 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Info = riSum + Text = 'R$' + end + object sumjuros: TRLDBResult + Left = 338 + Top = 1 + Width = 59 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Info = riSum + Text = 'R$' + end + object sumencargos: TRLDBResult + Left = 445 + Top = 1 + Width = 59 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Info = riSum + Text = 'R$' + end + object sumcorrigido: TRLDBResult + Left = 548 + Top = 1 + Width = 59 + Height = 16 + Align = faBottomOnly + DataSource = dtsRel + Info = riSum + Text = 'R$' + end + end + object RLBand4: TRLBand + Left = 38 + Top = 338 + Width = 718 + Height = 38 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLLabel8: TRLLabel + Left = 1 + Top = 0 + Width = 115 + Height = 16 + Align = faLeftTop + Caption = 'PARCELAMENTO:' + end + object frlbl_entrada: TRLLabel + Left = 1 + Top = 22 + Width = 57 + Height = 16 + Align = faLeftOnly + Caption = 'Entrada: ' + end + end + object RLBand5: TRLBand + Left = 38 + Top = 230 + Width = 718 + Height = 37 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object frlbl_descind: TRLLabel + Left = 1 + Top = 20 + Width = 76 + Height = 16 + Align = faBottomOnly + end + object frlbl_tipodesc: TRLLabel + Left = 1 + Top = 0 + Width = 80 + Height = 16 + Align = faLeftTop + end + object frlbl_descprin: TRLLabel + Left = 151 + Top = 20 + Width = 80 + Height = 16 + Align = faBottomOnly + end + object frlbl_descmulta: TRLLabel + Left = 302 + Top = 20 + Width = 91 + Height = 16 + Align = faBottomOnly + end + object frlbl_descjuros: TRLLabel + Left = 454 + Top = 20 + Width = 87 + Height = 16 + Align = faBottomOnly + end + object frlbl_desccorrigido: TRLLabel + Left = 586 + Top = 20 + Width = 108 + Height = 16 + Align = faBottomOnly + end + end + end + object dtsEmpresa: TDataSource + DataSet = dtmSystem.tblEmpresa + Left = 648 + Top = 32 + end + object dtsRel: TDataSource + Left = 704 + Top = 32 + end + object frfilterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 760 + Top = 32 + end + object dtsUser: TDataSource + DataSet = dtmSystem.tblUsuariosConsulta + Left = 588 + Top = 32 + end +end diff --git a/urelFichaDivida.pas b/urelFichaDivida.pas new file mode 100644 index 0000000..0cd5c35 --- /dev/null +++ b/urelFichaDivida.pas @@ -0,0 +1,137 @@ +unit urelFichaDivida; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, ZDataset, + RLFilters, RLPDFFilter, RLReport; + +type + TrelFichaDivida = class(TForm) + RLReport1: TRLReport; + frbnd_header: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frlbl_titulorel: TRLLabel; + RLDBText11: TRLDBText; + frbnd_dados: TRLBand; + RLDBText1: TRLDBText; + RLDBText2: TRLDBText; + RLDBText3: TRLDBText; + RLGroup1: TRLGroup; + RLBand1: TRLBand; + frdblbl_produto: TRLDBText; + frdblbl_vltitulo: TRLDBText; + frdblbl_dtvenc: TRLDBText; + frbnd_footerrel: TRLBand; + RLSystemInfo2: TRLSystemInfo; + RLSystemInfo1: TRLSystemInfo; + frdblbl_usuario: TRLDBText; + frlbl_usuario: TRLLabel; + dtsEmpresa: TDataSource; + dtsRel: TDataSource; + frfilterpdf: TRLPDFFilter; + RLBand2: TRLBand; + RLLabel1: TRLLabel; + RLLabel2: TRLLabel; + RLLabel3: TRLLabel; + frdblbl_vlmulta: TRLDBText; + frdblbl_vljuros: TRLDBText; + frdblbl_vlenc: TRLDBText; + frdblbl_vlcor: TRLDBText; + RLLabel4: TRLLabel; + RLLabel5: TRLLabel; + Encargos: TRLLabel; + RLLabel6: TRLLabel; + RLLabel7: TRLLabel; + RLBand3: TRLBand; + sumtitulo: TRLDBResult; + summulta: TRLDBResult; + sumjuros: TRLDBResult; + sumencargos: TRLDBResult; + sumcorrigido: TRLDBResult; + dtsUser: TDataSource; + RLBand4: TRLBand; + RLLabel8: TRLLabel; + frlbl_entrada: TRLLabel; + RLLabel9: TRLLabel; + RLBand5: TRLBand; + frlbl_descind: TRLLabel; + frlbl_tipodesc: TRLLabel; + frlbl_descprin: TRLLabel; + frlbl_descmulta: TRLLabel; + frlbl_descjuros: TRLLabel; + frlbl_desccorrigido: TRLLabel; + frlbl_tel: TRLLabel; + procedure RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + form: string; + lbl_parcelas: array of TRLLabel; + { Public declarations } + end; + +var + relFichaDivida: TrelFichaDivida; + +implementation + +{$R *.dfm} + +uses ufrmAtendimento, ucadDevedores, ufrmEfetuarCobranca, udtmSystem; + +procedure TrelFichaDivida.FormCreate(Sender: TObject); +begin + with dtmSystem do + begin + if not tblEmpresa.Active then + begin + tblEmpresa.Open; + end; + if not tblEmpresa.IsEmpty then + begin + frlbl_tel.Caption := 'Tel. Contato: ' + tblEmpresaTX_TELEFONE.AsString; + end; + end; +end; + +procedure TrelFichaDivida.RLReport1BeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + if form = 'devedor' then + begin + dtsRel.DataSet := cadDevedores.queryListaTitulos; + end; + if form = 'atendimento' then + begin + dtsRel.DataSet := frmAtendimento.queryListaTitulos; + end; + if form = 'cobranca' then + begin + dtsRel.DataSet := frmEfetuarCobranca.queryListaTitulos; + end; + frdblbl_produto.DataField := 'TX_PRODUTO'; + frdblbl_vltitulo.DataField := 'VL_DESC_PRIN'; + sumtitulo.DataField := 'VL_DESC_PRIN'; + frdblbl_vljuros.DataField := 'VL_DESC_JUROS'; + sumjuros.DataField := 'VL_DESC_JUROS'; + frdblbl_vlmulta.DataField := 'VL_DESC_MULTA'; + summulta.DataField := 'VL_DESC_MULTA'; + frdblbl_vlenc.DataField := 'VL_DESC_IND'; + sumencargos.DataField := 'VL_DESC_IND'; + frdblbl_vlcor.DataField := 'VL_CORRIGIDO'; + sumcorrigido.DataField := 'VL_CORRIGIDO'; + frdblbl_dtvenc.DataField := 'DT_VENCIMENTO'; + if not dtmSystem.tblUsuariosConsulta.Active then + begin + dtmSystem.tblUsuariosConsulta.Open; + end; + dtmSystem.tblUsuariosConsulta.Locate('ID_USUARIO', dtmSystem.id_usuario, []); + +end; + +end. diff --git a/urelHistorico.dfm b/urelHistorico.dfm new file mode 100644 index 0000000..85f3ec3 --- /dev/null +++ b/urelHistorico.dfm @@ -0,0 +1,311 @@ +object relHistorico: TrelHistorico + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relHistorico' + ClientHeight = 1125 + ClientWidth = 795 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object relHistorico: TRLReport + Left = 0 + Top = 0 + Width = 794 + Height = 1123 + DataSource = dtsRelatorio + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 131 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frlbl_titulorel: TRLLabel + Left = 20 + Top = 20 + Width = 225 + Height = 24 + Caption = 'Rela'#231#227'o de Hist'#243'ricos' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_nome: TRLDBText + Left = 20 + Top = 50 + Width = 106 + Height = 24 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsDevedores + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + object frlbl_referente: TRLLabel + Left = 1 + Top = 115 + Width = 716 + Height = 16 + Align = faBottom + Alignment = taCenter + Caption = 'Referente ao per'#237'odo: ' + end + object frlbl_documento: TRLDBText + Left = 20 + Top = 80 + Width = 236 + Height = 24 + DataSource = dtmSystem.dtsDevedores + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = 'CPF/CNPJ: ' + end + end + object RLBand1: TRLBand + Left = 38 + Top = 169 + Width = 718 + Height = 88 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frdblbl_datacontato: TRLDBText + Left = 5 + Top = 5 + Width = 162 + Height = 16 + DataField = 'DT_CONTATO' + DataSource = dtsRelatorio + Text = 'Contato dia: ' + end + object frdblbl_quemfez: TRLDBText + Left = 309 + Top = 1 + Width = 99 + Height = 16 + Align = faCenterTop + DataField = 'TX_COBRADOR' + DataSource = dtsRelatorio + Text = '' + end + object frdblbl_providencia: TRLDBText + Left = 5 + Top = 24 + Width = 234 + Height = 16 + DataField = 'TX_PROVIDENCIA' + DataSource = dtsRelatorio + Text = 'Provid'#234'ncia tomada: ' + end + object frdbmem_hist: TRLDBMemo + Left = 5 + Top = 62 + Width = 706 + Height = 16 + Behavior = [beSiteExpander] + DataField = 'TL_MEMO' + DataSource = dtsRelatorio + end + object frlbl_hist: TRLLabel + Left = 5 + Top = 43 + Width = 59 + Height = 16 + Caption = 'Hist'#243'rico:' + end + end + object RLBand2: TRLBand + Left = 38 + Top = 257 + Width = 718 + Height = 18 + AlignToBottom = True + BandType = btFooter + Options = [boOptimisticPageBreak] + object RLSystemInfo2: TRLSystemInfo + Left = 337 + Top = 5 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 439 + Top = 5 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + object frlbl_usuario: TRLLabel + Left = 3 + Top = 2 + Width = 77 + Height = 16 + Align = faBottomOnly + Caption = 'Atendente: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frdblbl_usuario: TRLDBText + Left = 79 + Top = 2 + Width = 64 + Height = 16 + Align = faBottomOnly + DataField = 'TX_NOME' + DataSource = dtsUser + Text = '' + end + object RLSystemInfo3: TRLSystemInfo + Left = 662 + Top = 5 + Width = 147 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itLastPageNumber + ParentFont = False + Text = 'Pag.' + end + object RLSystemInfo4: TRLSystemInfo + Left = 589 + Top = 5 + Width = 30 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itPageNumber + ParentFont = False + Text = 'Pag.' + end + object frlbl_de: TRLLabel + Left = 630 + Top = 5 + Width = 21 + Height = 13 + Align = faBottomOnly + Caption = 'de' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + end + end + end + object dtsRelatorio: TDataSource + DataSet = zroqryHistorico + Left = 616 + Top = 72 + end + object zroqryHistorico: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0 * from chg_historico') + Params = <> + Left = 616 + Top = 16 + object zroqryHistoricoID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + end + object zroqryHistoricoID_COBRADOR: TIntegerField + FieldName = 'ID_COBRADOR' + end + object zroqryHistoricoID_PROVIDENCIA: TIntegerField + FieldName = 'ID_PROVIDENCIA' + end + object zroqryHistoricoDT_CONTATO: TDateTimeField + FieldName = 'DT_CONTATO' + end + object zroqryHistoricoCD_PROTOCOLO: TWideStringField + FieldName = 'CD_PROTOCOLO' + end + object zroqryHistoricoTL_MEMO: TWideMemoField + FieldName = 'TL_MEMO' + BlobType = ftWideMemo + end + object zroqryHistoricoTX_COBRADOR: TStringField + FieldKind = fkLookup + FieldName = 'TX_COBRADOR' + LookupDataSet = dtmSystem.tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_COBRADOR' + Size = 25 + Lookup = True + end + object zroqryHistoricoTX_PROVIDENCIA: TStringField + FieldKind = fkLookup + FieldName = 'TX_PROVIDENCIA' + LookupDataSet = dtmSystem.tblProvidencias + LookupKeyFields = 'ID_PROVIDENCIA' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_PROVIDENCIA' + Size = 50 + Lookup = True + end + end + object dtsUser: TDataSource + DataSet = dtmSystem.tblUsuariosConsulta + Left = 524 + Top = 16 + end +end diff --git a/urelHistorico.pas b/urelHistorico.pas new file mode 100644 index 0000000..39561cd --- /dev/null +++ b/urelHistorico.pas @@ -0,0 +1,58 @@ +unit urelHistorico; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, Data.DB, ZAbstractRODataset, + ZDataset; + +type + TrelHistorico = class(TForm) + relHistorico: TRLReport; + dtsRelatorio: TDataSource; + zroqryHistorico: TZReadOnlyQuery; + zroqryHistoricoID_DEVEDOR: TIntegerField; + zroqryHistoricoID_COBRADOR: TIntegerField; + zroqryHistoricoID_PROVIDENCIA: TIntegerField; + zroqryHistoricoDT_CONTATO: TDateTimeField; + zroqryHistoricoCD_PROTOCOLO: TWideStringField; + zroqryHistoricoTL_MEMO: TWideMemoField; + zroqryHistoricoTX_COBRADOR: TStringField; + zroqryHistoricoTX_PROVIDENCIA: TStringField; + frbnd_header: TRLBand; + frlbl_titulorel: TRLLabel; + frlbl_nome: TRLDBText; + frlbl_referente: TRLLabel; + frlbl_documento: TRLDBText; + RLBand1: TRLBand; + frdblbl_datacontato: TRLDBText; + frdblbl_quemfez: TRLDBText; + frdblbl_providencia: TRLDBText; + frdbmem_hist: TRLDBMemo; + frlbl_hist: TRLLabel; + RLBand2: TRLBand; + RLSystemInfo2: TRLSystemInfo; + RLSystemInfo1: TRLSystemInfo; + frlbl_usuario: TRLLabel; + frdblbl_usuario: TRLDBText; + dtsUser: TDataSource; + RLSystemInfo3: TRLSystemInfo; + RLSystemInfo4: TRLSystemInfo; + frlbl_de: TRLLabel; + private + { Private declarations } + public + { Public declarations } + end; + +var + relHistorico: TrelHistorico; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +end. diff --git a/urelMulti.dfm b/urelMulti.dfm new file mode 100644 index 0000000..53a99e1 --- /dev/null +++ b/urelMulti.dfm @@ -0,0 +1,146 @@ +object relMulti: TrelMulti + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relMulti' + ClientHeight = 589 + ClientWidth = 815 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object RLReport1: TRLReport + Left = 8 + Top = 8 + Width = 794 + Height = 1123 + DataSource = dtsRel + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 99 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLMemo1: TRLMemo + Left = 126 + Top = 40 + Width = 466 + Height = 19 + Align = faCenter + Alignment = taCenter + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + Lines.Strings = ( + 'LISTA DE T'#205'TULOS COM M'#218'LTIPLOS PAGAMENTOS') + ParentFont = False + end + end + object RLBand1: TRLBand + Left = 38 + Top = 153 + Width = 718 + Height = 19 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object rldbtxt1: TRLDBText + Left = 0 + Top = 1 + Width = 47 + Height = 16 + DataSource = dtsRel + Text = '' + end + object rldbtxt2: TRLDBText + Left = 232 + Top = 1 + Width = 47 + Height = 16 + DataSource = dtsRel + Text = '' + end + object rldbtxt3: TRLDBText + Left = 424 + Top = 1 + Width = 47 + Height = 16 + DataSource = dtsRel + Text = '' + end + object rldbtxt4: TRLDBText + Left = 624 + Top = 1 + Width = 47 + Height = 16 + DataSource = dtsRel + Text = '' + end + end + object RLBand2: TRLBand + Left = 38 + Top = 137 + Width = 718 + Height = 16 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + object RLLabel1: TRLLabel + Left = 0 + Top = -1 + Width = 42 + Height = 16 + Caption = 'Nome:' + end + object RLLabel2: TRLLabel + Left = 232 + Top = 0 + Width = 53 + Height = 16 + Caption = 'Produto:' + end + object RLLabel3: TRLLabel + Left = 424 + Top = -1 + Width = 38 + Height = 16 + Caption = 'Valor:' + end + object RLLabel4: TRLLabel + Left = 624 + Top = 0 + Width = 77 + Height = 16 + Caption = 'Vencimento:' + end + end + end + object dtsRel: TDataSource + Left = 688 + Top = 40 + end +end diff --git a/urelMulti.pas b/urelMulti.pas new file mode 100644 index 0000000..0480ff6 --- /dev/null +++ b/urelMulti.pas @@ -0,0 +1,38 @@ +unit urelMulti; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, RLFilters, RLPDFFilter, Data.DB; + +type + TrelMulti = class(TForm) + RLReport1: TRLReport; + dtsRel: TDataSource; + frbnd_header: TRLBand; + RLMemo1: TRLMemo; + RLBand1: TRLBand; + rldbtxt1: TRLDBText; + rldbtxt2: TRLDBText; + rldbtxt3: TRLDBText; + rldbtxt4: TRLDBText; + RLBand2: TRLBand; + RLLabel1: TRLLabel; + RLLabel2: TRLLabel; + RLLabel3: TRLLabel; + RLLabel4: TRLLabel; + private + { Private declarations } + public + { Public declarations } + end; + +var + relMulti: TrelMulti; + +implementation + +{$R *.dfm} + +end. diff --git a/urelPrestacaoAnaSin.dfm b/urelPrestacaoAnaSin.dfm new file mode 100644 index 0000000..5d11b28 --- /dev/null +++ b/urelPrestacaoAnaSin.dfm @@ -0,0 +1,1398 @@ +object relPrestacaoAnaSin: TrelPrestacaoAnaSin + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relPrestacaoAnaSin' + ClientHeight = 554 + ClientWidth = 1143 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object relPrestacao: TRLReport + Left = 8 + Top = 8 + Width = 1123 + Height = 794 + DataSource = dtsCredores + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + MaxBands = 5 + PageSetup.Orientation = poLandscape + AfterPrint = relPrestacaoAfterPrint + BeforePrint = relPrestacaoBeforePrint + OnDataCount = relPrestacaoDataCount + OnDataRecord = relPrestacaoDataRecord + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 1047 + Height = 99 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_logo: TRLPanel + Left = 1 + Top = 1 + Width = 112 + Height = 97 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 0 + Width = 112 + Height = 97 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object frpnl_headertop: TRLPanel + Left = 113 + Top = 1 + Width = 933 + Height = 48 + Align = faTop + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_headertop: TRLLabel + Left = 0 + Top = 0 + Width = 425 + Height = 16 + Align = faLeftTop + Caption = 'ASSESSORIA DE SERVI'#199'OS LTDA - EPP CNPJ : 36.058.162/0001-28' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLMemo1: TRLMemo + Left = 346 + Top = 64 + Width = 466 + Height = 19 + Align = faCenter + Alignment = taCenter + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + Lines.Strings = ( + 'PRESTA'#199#195'O DE CONTAS - DT1 AT'#201' DT2') + ParentFont = False + end + object frlbl_dep: TRLLabel + Left = 114 + Top = 82 + Width = 6 + Height = 14 + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object RLGroup1: TRLGroup + Left = 38 + Top = 137 + Width = 1047 + Height = 88 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataFields = 'ID_EMPRESA' + object RLBand2: TRLBand + Left = 1 + Top = 0 + Width = 1045 + Height = 16 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object RLDBText2: TRLDBText + Left = 476 + Top = 0 + Width = 93 + Height = 16 + Align = faCenter + DataField = 'TX_FANTASIA' + DataSource = dtsCredores + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + end + object RLSubDetail1: TRLSubDetail + Left = 1 + Top = 16 + Width = 1045 + Height = 73 + DataSource = dtsTitulos + object frbnd_clmheader: TRLBand + Left = 0 + Top = 0 + Width = 1045 + Height = 17 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object RLLabel2: TRLLabel + Left = 0 + Top = 2 + Width = 57 + Height = 14 + Align = faLeftBottom + Caption = 'PRODUTO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel3: TRLLabel + Left = 181 + Top = 2 + Width = 55 + Height = 14 + Align = faBottomOnly + Caption = 'DEVEDOR:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel4: TRLLabel + Left = 399 + Top = 2 + Width = 76 + Height = 14 + Align = faBottomOnly + Caption = 'VENCIMENTO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel5: TRLLabel + Left = 481 + Top = 2 + Width = 85 + Height = 14 + Align = faBottomOnly + Caption = 'DATA DE PGTO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel6: TRLLabel + Left = 572 + Top = 2 + Width = 56 + Height = 14 + Align = faBottomOnly + Caption = 'NOMINAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel7: TRLLabel + Left = 638 + Top = 2 + Width = 41 + Height = 14 + Align = faBottomOnly + Caption = 'JUROS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel8: TRLLabel + Left = 690 + Top = 2 + Width = 45 + Height = 14 + Align = faBottomOnly + Caption = 'MULTA:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel9: TRLLabel + Left = 747 + Top = 2 + Width = 65 + Height = 14 + Align = faBottomOnly + Caption = 'ENCARGOS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel10: TRLLabel + Left = 870 + Top = 2 + Width = 43 + Height = 14 + Align = faBottomOnly + Caption = 'TOTAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel11: TRLLabel + Left = 922 + Top = 2 + Width = 44 + Height = 14 + Align = faBottomOnly + Caption = 'RETIDO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel12: TRLLabel + Left = 974 + Top = 2 + Width = 71 + Height = 14 + Align = faRightBottom + Caption = 'REPASSADO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel1: TRLLabel + Left = 822 + Top = 2 + Width = 34 + Height = 14 + Align = faBottomOnly + Caption = 'DESC:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frbnd_detail: TRLBand + Left = 0 + Top = 17 + Width = 1045 + Height = 16 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + AfterPrint = frbnd_detailAfterPrint + object RLDBText3: TRLDBText + Left = 399 + Top = 1 + Width = 87 + Height = 14 + Align = faBottomOnly + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText4: TRLDBText + Left = 570 + Top = 1 + Width = 58 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_TITULO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + AfterPrint = RLDBText4AfterPrint + end + object RLDBText5: TRLDBText + Left = 481 + Top = 1 + Width = 87 + Height = 14 + Align = faBottomOnly + DataField = 'DT_PAGAMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText6: TRLDBText + Left = 622 + Top = 1 + Width = 57 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText7: TRLDBText + Left = 677 + Top = 1 + Width = 58 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText8: TRLDBText + Left = 731 + Top = 1 + Width = 81 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText9: TRLDBText + Left = 834 + Top = 1 + Width = 79 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText10: TRLDBText + Left = 907 + Top = 1 + Width = 59 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_RETIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText11: TRLDBText + Left = 975 + Top = 1 + Width = 70 + Height = 14 + Align = faRightBottom + Alignment = taRightJustify + DataField = 'VL_REPASSE' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText1: TRLDBText + Left = 0 + Top = 1 + Width = 168 + Height = 14 + Align = faLeftBottom + AutoSize = False + DataField = 'TX_PRODUTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText12: TRLDBText + Left = 181 + Top = 1 + Width = 210 + Height = 14 + Align = faBottomOnly + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText18: TRLDBText + Left = 749 + Top = 1 + Width = 107 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_DESC_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + object frbnd_clmfooter: TRLBand + Left = 0 + Top = 33 + Width = 1045 + Height = 40 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object RLDBResult1: TRLDBResult + Left = 546 + Top = 28 + Width = 82 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_TITULO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + AfterPrint = RLDBResult1AfterPrint + end + object RLDBResult2: TRLDBResult + Left = 598 + Top = 28 + Width = 81 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_JUROS' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + AfterPrint = RLDBResult2AfterPrint + end + object RLDBResult3: TRLDBResult + Left = 656 + Top = 28 + Width = 79 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_MULTA' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + AfterPrint = RLDBResult3AfterPrint + end + object RLDBResult4: TRLDBResult + Left = 711 + Top = 28 + Width = 101 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + AfterPrint = RLDBResult4AfterPrint + end + object RLDBResult5: TRLDBResult + Left = 809 + Top = 28 + Width = 104 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + AfterPrint = RLDBResult5AfterPrint + end + object RLDBResult6: TRLDBResult + Left = 882 + Top = 28 + Width = 84 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_RETIDO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + AfterPrint = RLDBResult6AfterPrint + end + object RLDBResult7: TRLDBResult + Left = 954 + Top = 28 + Width = 91 + Height = 11 + Align = faRightBottom + Alignment = taRightJustify + DataField = 'VL_REPASSE' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + AfterPrint = RLDBResult7AfterPrint + end + object RLLabel13: TRLLabel + Left = 462 + Top = 25 + Width = 40 + Height = 14 + Align = faBottomOnly + Caption = 'Totais:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel15: TRLLabel + Left = 572 + Top = 11 + Width = 56 + Height = 14 + Caption = 'NOMINAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel16: TRLLabel + Left = 638 + Top = 11 + Width = 41 + Height = 14 + Caption = 'JUROS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel17: TRLLabel + Left = 690 + Top = 11 + Width = 45 + Height = 14 + Caption = 'MULTA:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel18: TRLLabel + Left = 747 + Top = 11 + Width = 65 + Height = 14 + Caption = 'ENCARGOS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel19: TRLLabel + Left = 870 + Top = 11 + Width = 43 + Height = 14 + Caption = 'TOTAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel20: TRLLabel + Left = 922 + Top = 11 + Width = 44 + Height = 14 + Caption = 'RETIDO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel21: TRLLabel + Left = 974 + Top = 11 + Width = 71 + Height = 14 + Caption = 'REPASSADO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel22: TRLLabel + Left = 822 + Top = 11 + Width = 34 + Height = 14 + Caption = 'DESC:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLDBResult8: TRLDBResult + Left = 726 + Top = 28 + Width = 130 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_DESC_PRINCIPAL' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + AfterPrint = RLDBResult8AfterPrint + end + end + end + end + object RLBand1: TRLBand + Left = 38 + Top = 225 + Width = 1047 + Height = 32 + BandType = btFooter + BeforePrint = RLBand1BeforePrint + object RLLabel14: TRLLabel + Left = 537 + Top = 21 + Width = 33 + Height = 11 + Align = faBottomOnly + Caption = 'Totais:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + BeforePrint = RLLabel14BeforePrint + end + object RLLabel23: TRLLabel + Left = 667 + Top = 8 + Width = 15 + Height = 11 + Alignment = taRightJustify + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLSystemInfo1: TRLSystemInfo + Left = 3 + Top = 19 + Width = 161 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = 'Hora da Emiss'#227'o:' + end + object fr_date: TRLSystemInfo + Left = 187 + Top = 19 + Width = 161 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Data de emiss'#227'o:' + end + object RLLabel24: TRLLabel + Left = 667 + Top = 21 + Width = 15 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel25: TRLLabel + Left = 794 + Top = 8 + Width = 15 + Height = 11 + Alignment = taRightJustify + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel26: TRLLabel + Left = 1029 + Top = 21 + Width = 15 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel27: TRLLabel + Left = 1029 + Top = 8 + Width = 15 + Height = 11 + Alignment = taRightJustify + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel28: TRLLabel + Left = 908 + Top = 21 + Width = 15 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel29: TRLLabel + Left = 908 + Top = 8 + Width = 15 + Height = 11 + Alignment = taRightJustify + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel30: TRLLabel + Left = 794 + Top = 21 + Width = 15 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + end + object dtsCredores: TDataSource + DataSet = zroqryCredores + OnDataChange = dtsCredoresDataChange + Left = 831 + Top = 47 + end + object zroqryCredores: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'e.*' + 'from chg_devedores A' + 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' + 'inner join chg_empresas e on (E.id_empresa = B.id_empresa)' + 'where (B.tp_situacao = '#39'QC'#39' or B.tp_situacao = '#39'B'#39')' + 'order by e.tx_fantasia') + Params = <> + Left = 911 + Top = 47 + object zroqryCredoresID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zroqryCredoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + object zroqryCredoresTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 100 + end + object zroqryCredoresTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + object zroqryCredoresTX_IE: TWideStringField + FieldName = 'TX_IE' + end + object zroqryCredoresTX_ENDERECO: TWideStringField + FieldName = 'TX_ENDERECO' + Size = 100 + end + object zroqryCredoresTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + end + object zroqryCredoresID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object zroqryCredoresTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 60 + end + object zroqryCredoresID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object zroqryCredoresTX_CEP: TWideStringField + FieldName = 'TX_CEP' + Size = 9 + end + object zroqryCredoresTX_TELEFONE: TWideStringField + FieldName = 'TX_TELEFONE' + Size = 40 + end + object zroqryCredoresTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 60 + end + object zroqryCredoresTX_WEBSITE: TWideStringField + FieldName = 'TX_WEBSITE' + Size = 60 + end + object zroqryCredoresNR_NUMERO: TIntegerField + FieldName = 'NR_NUMERO' + end + object zroqryCredoresTX_IM: TWideStringField + FieldName = 'TX_IM' + end + object zroqryCredoresTL_OBSERVACOES: TWideMemoField + FieldName = 'TL_OBSERVACOES' + BlobType = ftWideMemo + end + object zroqryCredoresID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object zroqryCredoresTP_ENTRADA: TWideStringField + FieldName = 'TP_ENTRADA' + Required = True + Size = 2 + end + object zroqryCredoresPR_MULTA: TFloatField + FieldName = 'PR_MULTA' + Required = True + end + object zroqryCredoresPR_JUROS: TFloatField + FieldName = 'PR_JUROS' + Required = True + end + object zroqryCredoresNR_PARCELAS: TIntegerField + FieldName = 'NR_PARCELAS' + end + object zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField + FieldName = 'PR_DESC_QUIT_PRIN' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField + FieldName = 'PR_DESC_QUIT_JUROS' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField + FieldName = 'PR_DESC_QUIT_MULTA' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField + FieldName = 'PR_DESC_QUIT_IND_FIN' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_COR: TFloatField + FieldName = 'PR_DESC_QUIT_COR' + end + object zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField + FieldName = 'PR_DESC_FINAN_PRIN' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField + FieldName = 'PR_DESC_FINAN_JUROS' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField + FieldName = 'PR_DESC_FINAN_MULTA' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField + FieldName = 'PR_DESC_FINAN_IND_FIN' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_COR: TFloatField + FieldName = 'PR_DESC_FINAN_COR' + end + object zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField + FieldName = 'PR_INDICADOR_FINANCEIRO' + Required = True + end + object zroqryCredoresPR_JUROS_PARCELAR: TFloatField + FieldName = 'PR_JUROS_PARCELAR' + end + object zroqryCredoresPR_ENTRADA_MIN: TFloatField + FieldName = 'PR_ENTRADA_MIN' + end + object zroqryCredoresPR_ENTRADA_MAX: TFloatField + FieldName = 'PR_ENTRADA_MAX' + end + object zroqryCredoresTP_CHEQUE: TWideStringField + FieldName = 'TP_CHEQUE' + Required = True + Size = 1 + end + object zroqryCredoresTP_CRED: TWideStringField + FieldName = 'TP_CRED' + Size = 1 + end + object zroqryCredoresTP_DIN: TWideStringField + FieldName = 'TP_DIN' + Size = 1 + end + object zroqryCredoresID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object zroqryCredoresDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end + object dtsTitulos: TDataSource + DataSet = zroqryTitulos + Left = 999 + Top = 47 + end + object zroqryTitulos: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + OnCalcFields = zroqryTitulosCalcFields + SQL.Strings = ( + 'select first 0' + 'A.tx_nome,' + 'A.id_devedor,' + 'B.tx_produto,' + 'B.dt_vencimento,' + 'B.dt_pagamento,' + + 'case when B.id_titulo in (select id_parcela from sys_acordos) th' + + 'en (B.vl_titulo - B.vl_juros - B.vl_multa - B.vl_encargos)' + + 'when B.id_titulo not in (select id_parcela from sys_acordos) the' + + 'n (B.vl_titulo)' + 'end as vl_titulo,' + 'B.vl_repasse_prin,' + 'B.vl_juros,' + 'B.vl_desc_juros,' + 'B.vl_repasse_juros,' + 'B.vl_multa,' + 'B.vl_desc_multa,' + 'B.vl_repasse_multa,' + 'B.vl_indicador,' + 'B.vl_desc_indicador,' + 'B.vl_repasse_encargos,' + 'B.vl_encargos,' + 'B.vl_corrigido,' + 'B.vl_repasse_corrigido,' + 'B.vl_desc_principal,' + 'B.id_titulo,' + 'B.id_empresa,' + 'B.tp_prestacao,' + + '(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as' + + ' atraso' + 'from chg_devedores A' + 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' + 'order by A.tx_nome') + Params = <> + MasterFields = 'ID_EMPRESA' + MasterSource = dtsCredores + LinkedFields = 'ID_EMPRESA' + Left = 998 + Top = 102 + object zroqryTitulosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object zroqryTitulosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zroqryTitulosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object zroqryTitulosDT_PAGAMENTO: TDateTimeField + FieldName = 'DT_PAGAMENTO' + end + object zroqryTitulosVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + currency = True + end + object zroqryTitulosVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + currency = True + end + object zroqryTitulosVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + currency = True + end + object zroqryTitulosVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + currency = True + end + object zroqryTitulosVL_DESC_PRINCIPAL: TFloatField + FieldName = 'VL_DESC_PRINCIPAL' + currency = True + end + object zroqryTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object zroqryTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zroqryTitulosATRASO: TIntegerField + FieldName = 'ATRASO' + ReadOnly = True + end + object zroqryTitulosVL_RETIDO: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_RETIDO' + Calculated = True + end + object zroqryTitulosVL_REPASSE: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_REPASSE' + Calculated = True + end + object zroqryTitulosVL_TITULO: TCurrencyField + FieldName = 'VL_TITULO' + ReadOnly = True + end + object zroqryTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zroqryTitulosVL_REPASSE_PRIN: TFloatField + FieldName = 'VL_REPASSE_PRIN' + end + object zroqryTitulosVL_DESC_JUROS: TFloatField + FieldName = 'VL_DESC_JUROS' + end + object zroqryTitulosVL_REPASSE_JUROS: TFloatField + FieldName = 'VL_REPASSE_JUROS' + end + object zroqryTitulosVL_DESC_MULTA: TFloatField + FieldName = 'VL_DESC_MULTA' + end + object zroqryTitulosVL_REPASSE_MULTA: TFloatField + FieldName = 'VL_REPASSE_MULTA' + end + object zroqryTitulosVL_INDICADOR: TFloatField + FieldName = 'VL_INDICADOR' + end + object zroqryTitulosVL_DESC_INDICADOR: TFloatField + FieldName = 'VL_DESC_INDICADOR' + end + object zroqryTitulosVL_REPASSE_CORRIGIDO: TFloatField + FieldName = 'VL_REPASSE_CORRIGIDO' + end + object zroqryTitulosTP_PRESTACAO: TWideStringField + FieldName = 'TP_PRESTACAO' + Size = 1 + end + object zroqryTitulosVL_REPASSE_ENCARGOS: TFloatField + FieldName = 'VL_REPASSE_ENCARGOS' + end + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 808 + Top = 8 + end + object rotblRepasseFase: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_repasses_fases') + Params = <> + Left = 896 + Top = 8 + object rotblRepasseFaseID_FASE: TIntegerField + FieldName = 'ID_FASE' + Required = True + end + object rotblRepasseFasePR_PRINCIPAL: TFloatField + FieldName = 'PR_PRINCIPAL' + end + object rotblRepasseFasePR_JUROS: TFloatField + FieldName = 'PR_JUROS' + end + object rotblRepasseFasePR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object rotblRepasseFasePR_ENCARGOS: TFloatField + FieldName = 'PR_ENCARGOS' + end + object rotblRepasseFasePR_CORRIGIDO: TFloatField + FieldName = 'PR_CORRIGIDO' + end + object rotblRepasseFaseMIN_ATRASO: TIntegerField + FieldName = 'MIN_ATRASO' + end + object rotblRepasseFaseMAX_ATRASO: TIntegerField + FieldName = 'MAX_ATRASO' + end + object rotblRepasseFaseID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end +end diff --git a/urelPrestacaoAnaSin.pas b/urelPrestacaoAnaSin.pas new file mode 100644 index 0000000..c254f5a --- /dev/null +++ b/urelPrestacaoAnaSin.pas @@ -0,0 +1,908 @@ +unit urelPrestacaoAnaSin; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.DateUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, ZDataset, + RLReport, RLFilters, RLPDFFilter; + +type + TrelPrestacaoAnaSin = class(TForm) + relPrestacao: TRLReport; + frbnd_header: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frpnl_headertop: TRLPanel; + frlbl_headertop: TRLLabel; + RLMemo1: TRLMemo; + dtsCredores: TDataSource; + RLGroup1: TRLGroup; + RLBand2: TRLBand; + RLDBText2: TRLDBText; + RLSubDetail1: TRLSubDetail; + frbnd_clmheader: TRLBand; + RLLabel2: TRLLabel; + RLLabel3: TRLLabel; + RLLabel4: TRLLabel; + RLLabel5: TRLLabel; + RLLabel6: TRLLabel; + RLLabel7: TRLLabel; + RLLabel8: TRLLabel; + RLLabel9: TRLLabel; + RLLabel10: TRLLabel; + RLLabel11: TRLLabel; + RLLabel12: TRLLabel; + RLLabel1: TRLLabel; + frbnd_detail: TRLBand; + RLDBText3: TRLDBText; + RLDBText4: TRLDBText; + RLDBText5: TRLDBText; + RLDBText6: TRLDBText; + RLDBText7: TRLDBText; + RLDBText8: TRLDBText; + RLDBText9: TRLDBText; + RLDBText10: TRLDBText; + RLDBText11: TRLDBText; + RLDBText1: TRLDBText; + RLDBText12: TRLDBText; + RLDBText18: TRLDBText; + frbnd_clmfooter: TRLBand; + RLDBResult1: TRLDBResult; + RLDBResult2: TRLDBResult; + RLDBResult3: TRLDBResult; + RLDBResult4: TRLDBResult; + RLDBResult5: TRLDBResult; + RLDBResult6: TRLDBResult; + RLDBResult7: TRLDBResult; + RLLabel13: TRLLabel; + RLLabel15: TRLLabel; + RLLabel16: TRLLabel; + RLLabel17: TRLLabel; + RLLabel18: TRLLabel; + RLLabel19: TRLLabel; + RLLabel20: TRLLabel; + RLLabel21: TRLLabel; + RLLabel22: TRLLabel; + RLDBResult8: TRLDBResult; + zroqryCredores: TZReadOnlyQuery; + zroqryCredoresID_EMPRESA: TIntegerField; + zroqryCredoresTX_NOME: TWideStringField; + zroqryCredoresTX_FANTASIA: TWideStringField; + zroqryCredoresTX_CNPJ: TWideStringField; + zroqryCredoresTX_IE: TWideStringField; + zroqryCredoresTX_ENDERECO: TWideStringField; + zroqryCredoresTX_COMPLEMENTO: TWideStringField; + zroqryCredoresID_CIDADE: TIntegerField; + zroqryCredoresTX_BAIRRO: TWideStringField; + zroqryCredoresID_ESTADO: TIntegerField; + zroqryCredoresTX_CEP: TWideStringField; + zroqryCredoresTX_TELEFONE: TWideStringField; + zroqryCredoresTX_EMAIL: TWideStringField; + zroqryCredoresTX_WEBSITE: TWideStringField; + zroqryCredoresNR_NUMERO: TIntegerField; + zroqryCredoresTX_IM: TWideStringField; + zroqryCredoresTL_OBSERVACOES: TWideMemoField; + zroqryCredoresID_REPASSE: TIntegerField; + zroqryCredoresTP_ENTRADA: TWideStringField; + zroqryCredoresPR_MULTA: TFloatField; + zroqryCredoresPR_JUROS: TFloatField; + zroqryCredoresNR_PARCELAS: TIntegerField; + zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField; + zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField; + zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField; + zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField; + zroqryCredoresPR_DESC_QUIT_COR: TFloatField; + zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField; + zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField; + zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField; + zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField; + zroqryCredoresPR_DESC_FINAN_COR: TFloatField; + zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField; + zroqryCredoresPR_JUROS_PARCELAR: TFloatField; + zroqryCredoresPR_ENTRADA_MIN: TFloatField; + zroqryCredoresPR_ENTRADA_MAX: TFloatField; + zroqryCredoresTP_CHEQUE: TWideStringField; + zroqryCredoresTP_CRED: TWideStringField; + zroqryCredoresTP_DIN: TWideStringField; + zroqryCredoresID_ULTIMO_USUARIO: TIntegerField; + zroqryCredoresDT_HORA_ULTIMA_ATT: TDateTimeField; + dtsTitulos: TDataSource; + zroqryTitulos: TZReadOnlyQuery; + zroqryTitulosTX_NOME: TWideStringField; + zroqryTitulosTX_PRODUTO: TWideStringField; + zroqryTitulosDT_VENCIMENTO: TDateTimeField; + zroqryTitulosDT_PAGAMENTO: TDateTimeField; + zroqryTitulosVL_JUROS: TFloatField; + zroqryTitulosVL_MULTA: TFloatField; + zroqryTitulosVL_ENCARGOS: TFloatField; + zroqryTitulosVL_CORRIGIDO: TFloatField; + zroqryTitulosVL_DESC_PRINCIPAL: TFloatField; + zroqryTitulosID_TITULO: TIntegerField; + zroqryTitulosID_EMPRESA: TIntegerField; + zroqryTitulosATRASO: TIntegerField; + zroqryTitulosVL_RETIDO: TCurrencyField; + zroqryTitulosVL_REPASSE: TCurrencyField; + fr_filterpdf: TRLPDFFilter; + zroqryTitulosVL_TITULO: TCurrencyField; + frlbl_dep: TRLLabel; + zroqryTitulosID_DEVEDOR: TIntegerField; + RLBand1: TRLBand; + RLLabel14: TRLLabel; + RLLabel23: TRLLabel; + RLSystemInfo1: TRLSystemInfo; + fr_date: TRLSystemInfo; + RLLabel24: TRLLabel; + RLLabel25: TRLLabel; + RLLabel26: TRLLabel; + RLLabel27: TRLLabel; + RLLabel28: TRLLabel; + RLLabel29: TRLLabel; + RLLabel30: TRLLabel; + rotblRepasseFase: TZReadOnlyQuery; + rotblRepasseFaseID_FASE: TIntegerField; + rotblRepasseFasePR_PRINCIPAL: TFloatField; + rotblRepasseFasePR_JUROS: TFloatField; + rotblRepasseFasePR_MULTA: TFloatField; + rotblRepasseFasePR_ENCARGOS: TFloatField; + rotblRepasseFasePR_CORRIGIDO: TFloatField; + rotblRepasseFaseMIN_ATRASO: TIntegerField; + rotblRepasseFaseMAX_ATRASO: TIntegerField; + rotblRepasseFaseID_REPASSE: TIntegerField; + rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField; + rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField; + zroqryTitulosVL_REPASSE_PRIN: TFloatField; + zroqryTitulosVL_DESC_JUROS: TFloatField; + zroqryTitulosVL_REPASSE_JUROS: TFloatField; + zroqryTitulosVL_DESC_MULTA: TFloatField; + zroqryTitulosVL_REPASSE_MULTA: TFloatField; + zroqryTitulosVL_INDICADOR: TFloatField; + zroqryTitulosVL_DESC_INDICADOR: TFloatField; + zroqryTitulosVL_REPASSE_CORRIGIDO: TFloatField; + zroqryTitulosTP_PRESTACAO: TWideStringField; + zroqryTitulosVL_REPASSE_ENCARGOS: TFloatField; + procedure zroqryTitulosCalcFields(DataSet: TDataSet); + procedure dtsCredoresDataChange(Sender: TObject; Field: TField); + procedure frbnd_detailAfterPrint(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure relPrestacaoAfterPrint(Sender: TObject); + procedure relPrestacaoBeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure RLDBResult1AfterPrint(Sender: TObject); + procedure RLLabel14BeforePrint(Sender: TObject; var AText: string; + var PrintIt: Boolean); + procedure RLBand1BeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure RLDBResult2AfterPrint(Sender: TObject); + procedure RLDBResult3AfterPrint(Sender: TObject); + procedure RLDBResult4AfterPrint(Sender: TObject); + procedure RLDBResult8AfterPrint(Sender: TObject); + procedure RLDBResult5AfterPrint(Sender: TObject); + procedure RLDBResult6AfterPrint(Sender: TObject); + procedure RLDBResult7AfterPrint(Sender: TObject); + procedure relPrestacaoDataRecord(Sender: TObject; RecNo, CopyNo: Integer; + var Eof: Boolean; var RecordAction: TRLRecordAction); + procedure relPrestacaoDataCount(Sender: TObject; var DataCount: Integer); + procedure RLDBText4AfterPrint(Sender: TObject); + private + sql: string; + sqlt: string; + procedure SalvarReciboPDF; + { Private declarations } + public + total: currency; + id_titulo: Integer; + sum_nominal, sum_juros, sum_multa, sum_enc, sum_desc, sum_total, sum_retido, + sum_repassado: currency; + { Public declarations } + end; + +var + relPrestacaoAnaSin: TrelPrestacaoAnaSin; + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TrelPrestacaoAnaSin.dtsCredoresDataChange(Sender: TObject; + Field: TField); +begin + dtmSystem.tblRepasse.Locate('ID_REPASSE', + zroqryCredoresID_REPASSE.AsString, []); +end; + +procedure TrelPrestacaoAnaSin.FormCreate(Sender: TObject); +begin + total := 0; + id_titulo := -1; +end; + +procedure TrelPrestacaoAnaSin.frbnd_detailAfterPrint(Sender: TObject); +begin + total := total + RLDBText10.Field.Value; +end; + +procedure TrelPrestacaoAnaSin.relPrestacaoAfterPrint(Sender: TObject); +begin + SalvarReciboPDF; + dtmSystem.tblAcordos.sql.Text := sql; + dtmSystem.tblDevedores.Open; + dtmSystem.tblTitulos.Open; +end; + +procedure TrelPrestacaoAnaSin.relPrestacaoBeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + dtmSystem.tblDevedores.Close; + dtmSystem.tblTitulos.Close; +end; + +procedure TrelPrestacaoAnaSin.relPrestacaoDataCount(Sender: TObject; + var DataCount: Integer); +begin + // if zroqryTitulosID_TITULO.AsInteger <> id_titulo then + // begin + // id_titulo := zroqryTitulosID_TITULO.AsInteger; + // sum_nominal := sum_nominal + zroqryTitulosVL_TITULO.AsCurrency; + // sum_juros := sum_juros + zroqryTitulosVL_JUROS.AsCurrency; + // sum_multa := sum_multa + zroqryTitulosVL_MULTA.AsCurrency; + // sum_enc := sum_enc + zroqryTitulosVL_ENCARGOS.AsCurrency; + // sum_desc := sum_desc + zroqryTitulosVL_DESC_PRINCIPAL.AsCurrency; + // sum_total := sum_total + zroqryTitulosVL_CORRIGIDO.AsCurrency; + // sum_retido := sum_retido + zroqryTitulosVL_RETIDO.AsCurrency; + // sum_repassado := sum_repassado + zroqryTitulosVL_REPASSE.AsCurrency; + // end; +end; + +procedure TrelPrestacaoAnaSin.relPrestacaoDataRecord(Sender: TObject; + RecNo, CopyNo: Integer; var Eof: Boolean; var RecordAction: TRLRecordAction); +begin + // if zroqryTitulosID_TITULO.AsInteger <> id_titulo then + // begin + // id_titulo := zroqryTitulosID_TITULO.AsInteger; + // sum_nominal := sum_nominal + zroqryTitulosVL_TITULO.AsCurrency; + // sum_juros := sum_juros + zroqryTitulosVL_JUROS.AsCurrency; + // sum_multa := sum_multa + zroqryTitulosVL_MULTA.AsCurrency; + // sum_enc := sum_enc + zroqryTitulosVL_ENCARGOS.AsCurrency; + // sum_desc := sum_desc + zroqryTitulosVL_DESC_PRINCIPAL.AsCurrency; + // sum_total := sum_total + zroqryTitulosVL_CORRIGIDO.AsCurrency; + // sum_retido := sum_retido + zroqryTitulosVL_RETIDO.AsCurrency; + // sum_repassado := sum_repassado + zroqryTitulosVL_REPASSE.AsCurrency; + // end; +end; + +procedure TrelPrestacaoAnaSin.RLBand1BeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + RLLabel23.Caption := 'Nom:' + CurrToStrF(sum_nominal, ffCurrency, 2, + dtmSystem.CusFmt); + RLLabel24.Caption := 'Jur:' + CurrToStrF(sum_juros, ffCurrency, 2, + dtmSystem.CusFmt); + RLLabel25.Caption := 'Mul:' + CurrToStrF(sum_multa, ffCurrency, 2, + dtmSystem.CusFmt); + RLLabel30.Caption := 'Enc:' + CurrToStrF(sum_enc, ffCurrency, 2, + dtmSystem.CusFmt); + RLLabel29.Caption := 'Desc:' + CurrToStrF(sum_desc, ffCurrency, 2, + dtmSystem.CusFmt); + RLLabel28.Caption := 'Cor:' + CurrToStrF(sum_total, ffCurrency, 2, + dtmSystem.CusFmt); + RLLabel27.Caption := 'Ret:' + CurrToStrF(sum_retido, ffCurrency, 2, + dtmSystem.CusFmt); + RLLabel26.Caption := 'Rep:' + CurrToStrF(sum_repassado, ffCurrency, 2, + dtmSystem.CusFmt); +end; + +procedure TrelPrestacaoAnaSin.RLDBResult1AfterPrint(Sender: TObject); +begin + // sum_nominal := sum_nominal + RLDBResult1.Value; + // RLLabel23.Caption := CurrToStr(sum_nominal); +end; + +procedure TrelPrestacaoAnaSin.RLDBResult2AfterPrint(Sender: TObject); +begin + // sum_juros := sum_juros + RLDBResult2.Value; + // RLLabel24.Caption := CurrToStr(sum_juros); +end; + +procedure TrelPrestacaoAnaSin.RLDBResult3AfterPrint(Sender: TObject); +begin + // sum_multa := sum_multa + RLDBResult3.Value; + // RLLabel25.Caption := CurrToStr(sum_multa); +end; + +procedure TrelPrestacaoAnaSin.RLDBResult4AfterPrint(Sender: TObject); +begin + // sum_enc := sum_enc + RLDBResult4.Value; + // RLLabel30.Caption := CurrToStr(sum_enc); +end; + +procedure TrelPrestacaoAnaSin.RLDBResult5AfterPrint(Sender: TObject); +begin + // sum_total := sum_total + RLDBResult5.Value; + // RLLabel28.Caption := CurrToStr(sum_total); +end; + +procedure TrelPrestacaoAnaSin.RLDBResult6AfterPrint(Sender: TObject); +begin + // sum_retido := sum_retido + RLDBResult6.Value; + // RLLabel27.Caption := CurrToStr(sum_retido); +end; + +procedure TrelPrestacaoAnaSin.RLDBResult7AfterPrint(Sender: TObject); +begin + // sum_repassado := sum_repassado + RLDBResult7.Value; + // RLLabel26.Caption := CurrToStr(sum_repassado); +end; + +procedure TrelPrestacaoAnaSin.RLDBResult8AfterPrint(Sender: TObject); +begin + // sum_desc := sum_desc + RLDBResult8.Value; + // RLLabel29.Caption := CurrToStr(sum_desc); +end; + +procedure TrelPrestacaoAnaSin.RLDBText4AfterPrint(Sender: TObject); +begin + if zroqryTitulosID_TITULO.AsInteger <> id_titulo then + begin + id_titulo := zroqryTitulosID_TITULO.AsInteger; + sum_nominal := sum_nominal + zroqryTitulosVL_TITULO.AsCurrency; + sum_juros := sum_juros + zroqryTitulosVL_JUROS.AsCurrency; + sum_multa := sum_multa + zroqryTitulosVL_MULTA.AsCurrency; + sum_enc := sum_enc + zroqryTitulosVL_ENCARGOS.AsCurrency; + sum_desc := sum_desc + zroqryTitulosVL_DESC_PRINCIPAL.AsCurrency; + sum_total := sum_total + zroqryTitulosVL_CORRIGIDO.AsCurrency; + sum_retido := sum_retido + zroqryTitulosVL_RETIDO.AsCurrency; + sum_repassado := sum_repassado + zroqryTitulosVL_REPASSE.AsCurrency; + end; +end; + +procedure TrelPrestacaoAnaSin.RLLabel14BeforePrint(Sender: TObject; + var AText: string; var PrintIt: Boolean); +begin + RLLabel14.Caption := 'Totais: ' + CurrToStr(sum_nominal); +end; + +procedure TrelPrestacaoAnaSin.SalvarReciboPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; + // path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + path := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\PRESTACAO_CONTAS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\ANALITICO'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + file_name := path + '\RELATORIO_PRESTACAO_CONTAS-ANALITICO' + + FormatDateTime('HH-mm', Time) + '.pdf'; + fr_filterpdf.FileName := file_name; + relPrestacao.SaveToFile(file_name); +end; + +procedure TrelPrestacaoAnaSin.zroqryTitulosCalcFields(DataSet: TDataSet); +var + pt_principal, pt_juros, pt_multa, pt_encargos, pt_corrigido: currency; + atraso, index: Integer; + ac_pr, ac_j, ac_m, ac_enc, ac_cor: array of currency; + vl_pr, vl_j, vl_m, vl_enc, vl_cor, pr_pr, pr_j, pr_m, pr_enc, pr_cor, help_pr, + help_j, help_m, help_enc, help_cor: currency; + mes, ano: string; +begin + with dtmSystem do + begin + if not tblDevedores.Active then + begin + tblDevedores.Open; + end; + if not tblTitulos.Active then + begin + tblTitulos.Open; + end; + if not tblAcordos.Active then + begin + tblAcordos.Open; + end; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end; + if not tblEmpresaRepasse.Active then + begin + tblEmpresaRepasse.Open; + end; + if not tblRepasse.Active then + begin + tblRepasse.Open; + end; + if not tblRepasseFase.Active then + begin + tblRepasseFase.Open; + end; + if zroqryTitulosID_TITULO.AsString <> '' then + begin + if zroqryTitulosTP_PRESTACAO.AsString = 'N' then + begin + sql := tblAcordos.sql.Text; + sqlt := tblTitulos.sql.Text; + tblAcordos.sql.Text := 'select * from sys_acordos'; + tblAcordos.Filtered := false; + tblAcordos.Filter := 'ID_PARCELA = ' + zroqryTitulosID_TITULO.AsString; + tblAcordos.Filtered := true; + tblTitulos.sql.Text := 'select * from chg_titulos'; + tblTitulos.Open; + tblAcordos.Open; +// pt_principal := 0; +// pt_juros := 0; +// pt_multa := 0; +// pt_encargos := 0; +// pt_corrigido := 0; + if not tblAcordos.IsEmpty then + begin + tblAcordos.First; + vl_pr := 0; + vl_j := 0; + vl_m := 0; + vl_enc := 0; + vl_cor := 0; + setlength(ac_pr, 0); + setlength(ac_j, 0); + setlength(ac_m, 0); + setlength(ac_enc, 0); + setlength(ac_cor, 0); + setlength(ac_pr, tblAcordos.RecordCount); + setlength(ac_j, tblAcordos.RecordCount); + setlength(ac_m, tblAcordos.RecordCount); + setlength(ac_enc, tblAcordos.RecordCount); + setlength(ac_cor, tblAcordos.RecordCount); + pr_pr := 0; + pr_j := 0; + pr_m := 0; + pr_enc := 0; + pr_cor := 0; + index := 0; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + + if not(tblTitulosTP_PRESTACAO.AsString = 'N') then + begin + vl_pr := vl_pr + tblTitulosVL_TITULO.AsCurrency; + vl_j := vl_j + tblTitulosVL_JUROS.AsCurrency; + vl_m := vl_m + tblTitulosVL_MULTA.AsCurrency; + vl_enc := vl_enc + tblTitulosVL_ENCARGOS.AsCurrency; + vl_cor := vl_cor + tblTitulosVL_CORRIGIDO.AsCurrency; + end; +// else +// begin +// pt_principal := pt_principal + +// tblTitulosVL_REPASSE_PRIN.AsCurrency; +// pt_juros := pt_juros + tblTitulosVL_REPASSE_JUROS.AsCurrency; +// pt_multa := pt_multa + tblTitulosVL_REPASSE_MULTA.AsCurrency; +// pt_encargos := pt_encargos + tblTitulosVL_REPASSE_ENCARGOS. +// AsCurrency; +// pt_corrigido := pt_corrigido + +// tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency; +// end; + + tblAcordos.Next; + end; + tblAcordos.First; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + if not(tblTitulosTP_PRESTACAO.AsString = 'N') then + begin + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + mes := inttostr + (strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + tblTitulos.Locate('ID_TITULO', + tblAcordosID_PARCELA.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + tblEmpresaRepasse.Filtered := false; + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []); + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS. + AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA. + AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulos.Locate('ID_TITULO', + tblAcordosID_ORIGINAL.AsInteger, []); + + ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * help_pr; + ac_j[index] := tblTitulosVL_JUROS.AsCurrency * help_j; + ac_m[index] := tblTitulosVL_MULTA.AsCurrency * help_m; + ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * help_enc; + ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + + if vl_pr <> 0 then + begin + pr_pr := pr_pr + ((ac_pr[index] * 100) / vl_pr); + end; + if vl_j <> 0 then + begin + pr_j := pr_j + ((ac_j[index] * 100) / vl_j); + end; + if vl_m <> 0 then + begin + pr_m := pr_m + ((ac_m[index] * 100) / vl_m); + end; + if vl_enc <> 0 then + begin + pr_enc := pr_enc + ((ac_enc[index] * 100) / vl_enc); + end; + if vl_cor <> 0 then + begin + pr_cor := pr_cor + ((ac_cor[index] * 100) / vl_cor); + end; + end; + Inc(index, 1); + tblAcordos.Next; + end; + if pr_pr = 0 then + begin + pt_principal := zroqryTitulosVL_REPASSE_PRIN.AsCurrency; + end + else + begin + pt_principal := (zroqryTitulosVL_TITULO.AsCurrency * pr_pr) / 100; + end; + if pr_j = 0 then + begin + pt_juros := zroqryTitulosVL_REPASSE_JUROS.AsCurrency; + end + else + begin + pt_juros := (zroqryTitulosVL_JUROS.AsCurrency * pr_j) / 100; + end; + if pr_m = 0 then + begin + pt_multa := zroqryTitulosVL_REPASSE_MULTA.AsCurrency; + end + else + begin + pt_multa := (zroqryTitulosVL_MULTA.AsCurrency * pr_m) / 100; + end; + if pr_enc = 0 then + begin + pt_encargos := zroqryTitulosVL_REPASSE_ENCARGOS.AsCurrency; + end + else + begin + pt_encargos := (zroqryTitulosVL_ENCARGOS.AsCurrency * pr_enc) / 100; + end; + if pr_cor = 0 then + begin + pt_corrigido := zroqryTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + end + else + begin + pt_corrigido := (zroqryTitulosVL_CORRIGIDO.AsCurrency * pr_cor) / 100; + end; + end + else + begin + pt_principal := zroqryTitulosVL_REPASSE_PRIN.AsCurrency; + pt_juros := zroqryTitulosVL_REPASSE_JUROS.AsCurrency; + pt_multa := zroqryTitulosVL_REPASSE_MULTA.AsCurrency; + pt_encargos := zroqryTitulosVL_REPASSE_ENCARGOS.AsCurrency; + pt_corrigido := zroqryTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + end; + end + else + begin + sql := tblAcordos.sql.Text; + tblAcordos.sql.Text := 'select * from sys_acordos'; + tblAcordos.Filtered := false; + tblAcordos.Filter := 'ID_PARCELA = ' + zroqryTitulosID_TITULO.AsString; + tblAcordos.Filtered := true; + tblAcordos.Open; + tblTitulos.sql.Text := 'select * from chg_titulos'; + tblTitulos.Open; + if not tblAcordos.IsEmpty then + begin + tblAcordos.First; + setlength(ac_pr, 0); + setlength(ac_j, 0); + setlength(ac_m, 0); + setlength(ac_enc, 0); + setlength(ac_cor, 0); + setlength(ac_pr, tblAcordos.RecordCount); + setlength(ac_j, tblAcordos.RecordCount); + setlength(ac_m, tblAcordos.RecordCount); + setlength(ac_enc, tblAcordos.RecordCount); + setlength(ac_cor, tblAcordos.RecordCount); + vl_pr := 0; + vl_j := 0; + vl_m := 0; + vl_enc := 0; + vl_cor := 0; + pr_pr := 0; + pr_j := 0; + pr_m := 0; + pr_enc := 0; + pr_cor := 0; + index := 0; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + vl_pr := vl_pr + tblTitulosVL_TITULO.AsCurrency; + vl_j := vl_j + tblTitulosVL_JUROS.AsCurrency; + vl_m := vl_m + tblTitulosVL_MULTA.AsCurrency; + vl_enc := vl_enc + tblTitulosVL_ENCARGOS.AsCurrency; + vl_cor := vl_cor + tblTitulosVL_CORRIGIDO.AsCurrency; + tblAcordos.Next; + end; + tblAcordos.First; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + + tblTitulos.Locate('ID_TITULO', tblAcordosID_PARCELA.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []); + + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + + ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * help_pr; + ac_j[index] := tblTitulosVL_JUROS.AsCurrency * help_j; + ac_m[index] := tblTitulosVL_MULTA.AsCurrency * help_m; + ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * help_enc; + ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + + { if not tblRepasseFase.IsEmpty then + begin + ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * + (dtmSystem.tblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + ac_j[index] := tblTitulosVL_JUROS.AsCurrency * + (dtmSystem.tblRepasseFasePR_JUROS.AsCurrency / 100); + ac_m[index] := tblTitulosVL_MULTA.AsCurrency * + (dtmSystem.tblRepasseFasePR_MULTA.AsCurrency / 100); + ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * + (dtmSystem.tblRepasseFasePR_ENCARGOS.AsCurrency / 100); + ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + // ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * + // (dtmSystem.tblRepassePR_PRINCIPAL.AsCurrency / 100); + // ac_j[index] := tblTitulosVL_JUROS.AsCurrency * + // (dtmSystem.tblRepassePR_JUROS.AsCurrency / 100); + // ac_m[index] := tblTitulosVL_MULTA.AsCurrency * + // (dtmSystem.tblRepassePR_MULTA.AsCurrency / 100); + // ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * + // (dtmSystem.tblRepassePR_ENCARGOS.AsCurrency / 100); + // ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * + // (dtmSystem.tblRepassePR_CORRIGIDO.AsCurrency / 100); + ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + ac_j[index] := tblTitulosVL_JUROS.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + ac_m[index] := tblTitulosVL_MULTA.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; } + if vl_pr <> 0 then + begin + pr_pr := pr_pr + ((ac_pr[index] * 100) / vl_pr); + end; + if vl_j <> 0 then + begin + pr_j := pr_j + ((ac_j[index] * 100) / vl_j); + end; + if vl_m <> 0 then + begin + pr_m := pr_m + ((ac_m[index] * 100) / vl_m); + end; + if vl_enc <> 0 then + begin + pr_enc := pr_enc + ((ac_enc[index] * 100) / vl_enc); + end; + if vl_cor <> 0 then + begin + pr_cor := pr_cor + ((ac_cor[index] * 100) / vl_cor); + end; + tblRepasseFase.Filtered := true; + Inc(index, 1); + tblAcordos.Next; + end; + + pt_principal := (zroqryTitulosVL_TITULO.AsCurrency * pr_pr) / 100; + pt_juros := (zroqryTitulosVL_JUROS.AsCurrency * pr_j) / 100; + pt_multa := (zroqryTitulosVL_MULTA.AsCurrency * pr_m) / 100; + pt_encargos := (zroqryTitulosVL_ENCARGOS.AsCurrency * pr_enc) / 100; + pt_corrigido := (zroqryTitulosVL_CORRIGIDO.AsCurrency * pr_cor) / 100; + end + else + begin + tblDevedores.Locate('ID_DEVEDOR', + zroqryTitulosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', zroqryTitulosID_TITULO.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + zroqryTitulosID_EMPRESA.AsInteger, []); + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', VarArrayOf([mes, ano]), []); + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + if not rotblRepasseFase.IsEmpty then + begin + pt_principal := zroqryTitulosVL_TITULO.AsCurrency * + (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + pt_juros := zroqryTitulosVL_JUROS.AsCurrency * + (rotblRepasseFasePR_JUROS.AsCurrency / 100); + pt_multa := zroqryTitulosVL_MULTA.AsCurrency * + (rotblRepasseFasePR_MULTA.AsCurrency / 100); + pt_encargos := zroqryTitulosVL_ENCARGOS.AsCurrency * + (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + pt_corrigido := zroqryTitulosVL_CORRIGIDO.AsCurrency * + (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + pt_principal := zroqryTitulosVL_TITULO.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + pt_juros := zroqryTitulosVL_JUROS.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + pt_multa := zroqryTitulosVL_MULTA.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + pt_encargos := zroqryTitulosVL_ENCARGOS.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + pt_corrigido := zroqryTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + end; + end; + zroqryTitulosVL_RETIDO.AsCurrency := pt_principal + pt_juros + pt_multa + + pt_encargos + pt_corrigido; + zroqryTitulosVL_REPASSE.AsCurrency := zroqryTitulosVL_CORRIGIDO.AsCurrency + - zroqryTitulosVL_RETIDO.AsCurrency; + end; + + end; + +end; + +end. diff --git a/urelPrestacaoAnaSin2.dfm b/urelPrestacaoAnaSin2.dfm new file mode 100644 index 0000000..935576d --- /dev/null +++ b/urelPrestacaoAnaSin2.dfm @@ -0,0 +1,1134 @@ +object relPrestacaoAnaSin2: TrelPrestacaoAnaSin2 + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relPrestacaoAnaSin2' + ClientHeight = 817 + ClientWidth = 1139 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object relPrestacao2: TRLReport + Left = 8 + Top = 8 + Width = 1123 + Height = 794 + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + PageSetup.Orientation = poLandscape + AfterPrint = relPrestacao2AfterPrint + BeforePrint = relPrestacao2BeforePrint + object RLBand1: TRLBand + Left = 38 + Top = 38 + Width = 1047 + Height = 99 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLPanel1: TRLPanel + Left = 1 + Top = 1 + Width = 112 + Height = 97 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object RLDBImage1: TRLDBImage + Left = 0 + Top = 0 + Width = 112 + Height = 97 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object RLPanel2: TRLPanel + Left = 113 + Top = 1 + Width = 933 + Height = 48 + Align = faTop + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object RLLabel14: TRLLabel + Left = 0 + Top = 0 + Width = 425 + Height = 16 + Align = faLeftTop + Caption = 'ASSESSORIA DE SERVI'#199'OS LTDA - EPP CNPJ : 36.058.162/0001-28' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLMemo2: TRLMemo + Left = 346 + Top = 64 + Width = 466 + Height = 19 + Align = faCenter + Alignment = taCenter + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + Lines.Strings = ( + 'PRESTA'#199#195'O DE CONTAS - DT1 AT'#201' DT2') + ParentFont = False + end + object frlbl_dep: TRLLabel + Left = 114 + Top = 82 + Width = 6 + Height = 14 + Caption = ' ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object RLBand4: TRLBand + Left = 38 + Top = 137 + Width = 1047 + Height = 17 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLLabel27: TRLLabel + Left = 572 + Top = 2 + Width = 56 + Height = 14 + Align = faBottomOnly + Caption = 'NOMINAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel28: TRLLabel + Left = 638 + Top = 2 + Width = 41 + Height = 14 + Align = faBottomOnly + Caption = 'JUROS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel29: TRLLabel + Left = 690 + Top = 2 + Width = 45 + Height = 14 + Align = faBottomOnly + Caption = 'MULTA:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel30: TRLLabel + Left = 747 + Top = 2 + Width = 65 + Height = 14 + Align = faBottomOnly + Caption = 'ENCARGOS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel31: TRLLabel + Left = 870 + Top = 2 + Width = 43 + Height = 14 + Align = faBottomOnly + Caption = 'TOTAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel32: TRLLabel + Left = 922 + Top = 2 + Width = 44 + Height = 14 + Align = faBottomOnly + Caption = 'RETIDO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel33: TRLLabel + Left = 975 + Top = 2 + Width = 71 + Height = 14 + Align = faRightBottom + Caption = 'REPASSADO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel34: TRLLabel + Left = 822 + Top = 2 + Width = 34 + Height = 14 + Align = faBottomOnly + Caption = 'DESC:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLBand5: TRLBand + Left = 38 + Top = 154 + Width = 1047 + Height = 16 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBText22: TRLDBText + Left = 570 + Top = 1 + Width = 58 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_TITULO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText24: TRLDBText + Left = 622 + Top = 1 + Width = 57 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText25: TRLDBText + Left = 677 + Top = 1 + Width = 58 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText26: TRLDBText + Left = 731 + Top = 1 + Width = 81 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText27: TRLDBText + Left = 834 + Top = 1 + Width = 79 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText28: TRLDBText + Left = 907 + Top = 1 + Width = 59 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_RETIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText29: TRLDBText + Left = 959 + Top = 1 + Width = 87 + Height = 14 + Align = faRightBottom + Alignment = taRightJustify + DataField = 'VL_REPASSADO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText32: TRLDBText + Left = 749 + Top = 1 + Width = 107 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_DESC_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText1: TRLDBText + Left = 4 + Top = 1 + Width = 88 + Height = 14 + DataField = 'TX_FANTASIA' + DataSource = dtsTitulos + Text = '' + end + end + object RLBand6: TRLBand + Left = 38 + Top = 170 + Width = 1047 + Height = 31 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBResult9: TRLDBResult + Left = 546 + Top = 19 + Width = 82 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_TITULO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult10: TRLDBResult + Left = 598 + Top = 19 + Width = 81 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_JUROS' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult11: TRLDBResult + Left = 656 + Top = 19 + Width = 79 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_MULTA' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult12: TRLDBResult + Left = 711 + Top = 19 + Width = 101 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult13: TRLDBResult + Left = 809 + Top = 19 + Width = 104 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult14: TRLDBResult + Left = 882 + Top = 19 + Width = 84 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_RETIDO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult15: TRLDBResult + Left = 942 + Top = 19 + Width = 104 + Height = 11 + Align = faRightBottom + Alignment = taRightJustify + DataField = 'VL_REPASSADO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLLabel35: TRLLabel + Left = 462 + Top = 16 + Width = 40 + Height = 14 + Align = faBottomOnly + Caption = 'Totais:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel36: TRLLabel + Left = 572 + Top = 0 + Width = 56 + Height = 14 + Align = faTopOnly + Caption = 'NOMINAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel37: TRLLabel + Left = 638 + Top = 0 + Width = 41 + Height = 14 + Align = faTopOnly + Caption = 'JUROS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel38: TRLLabel + Left = 690 + Top = 0 + Width = 45 + Height = 14 + Align = faTopOnly + Caption = 'MULTA:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel39: TRLLabel + Left = 747 + Top = 0 + Width = 65 + Height = 14 + Align = faTopOnly + Caption = 'ENCARGOS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel40: TRLLabel + Left = 870 + Top = 0 + Width = 43 + Height = 14 + Align = faTopOnly + Caption = 'TOTAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel41: TRLLabel + Left = 922 + Top = 0 + Width = 44 + Height = 14 + Align = faTopOnly + Caption = 'RETIDO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel42: TRLLabel + Left = 974 + Top = 0 + Width = 71 + Height = 14 + Align = faTopOnly + Caption = 'REPASSADO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel43: TRLLabel + Left = 822 + Top = 0 + Width = 34 + Height = 14 + Align = faTopOnly + Caption = 'DESC:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLDBResult16: TRLDBResult + Left = 726 + Top = 19 + Width = 130 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_DESC_PRINCIPAL' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 4 + Top = 17 + Width = 161 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = 'Hora da Emiss'#227'o:' + end + object fr_date: TRLSystemInfo + Left = 188 + Top = 17 + Width = 161 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Data de emiss'#227'o:' + end + end + end + object dtsTitulos: TDataSource + DataSet = cdsSintetico + Left = 939 + Top = 23 + end + object zroqryTitulos: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + OnCalcFields = zroqryTitulosCalcFields + SQL.Strings = ( + 'select first 0' + 'B.tx_produto,' + 'B.dt_vencimento,' + 'B.dt_pagamento,' + + 'case when B.id_titulo in (select id_parcela from sys_acordos) th' + + 'en (B.vl_titulo - B.vl_juros - B.vl_multa - B.vl_encargos)' + + 'when B.id_titulo not in (select id_parcela from sys_acordos) the' + + 'n (B.vl_titulo)' + 'end as vl_titulo,' + 'B.vl_repasse_prin,' + 'B.vl_juros,' + 'B.vl_desc_juros,' + 'B.vl_repasse_juros,' + 'B.vl_multa,' + 'B.vl_desc_multa,' + 'B.vl_repasse_multa,' + 'B.vl_encargos,' + 'B.vl_indicador,' + 'B.vl_desc_indicador,' + 'B.vl_repasse_encargos,' + 'B.vl_corrigido,' + 'B.vl_repasse_corrigido,' + 'B.vl_desc_principal,' + 'B.id_titulo,' + 'B.id_empresa,' + 'B.id_devedor,' + 'e.tx_fantasia,' + 'e.tx_cnpj,' + 'B.tp_prestacao,' + + '(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as' + + ' atraso' + 'from chg_devedores A' + 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' + 'inner join chg_empresas e on (B.id_empresa = e.id_empresa)' + 'order by A.tx_nome') + Params = <> + MasterFields = 'ID_EMPRESA' + LinkedFields = 'ID_EMPRESA' + Left = 1003 + Top = 22 + object zroqryTitulosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zroqryTitulosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object zroqryTitulosDT_PAGAMENTO: TDateTimeField + FieldName = 'DT_PAGAMENTO' + end + object zroqryTitulosVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + end + object zroqryTitulosVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + end + object zroqryTitulosVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + end + object zroqryTitulosVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + end + object zroqryTitulosVL_DESC_PRINCIPAL: TFloatField + FieldName = 'VL_DESC_PRINCIPAL' + currency = True + end + object zroqryTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object zroqryTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zroqryTitulosATRASO: TIntegerField + FieldName = 'ATRASO' + ReadOnly = True + end + object zroqryTitulosVL_RETIDO: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_RETIDO' + Calculated = True + end + object zroqryTitulosVL_REPASSE: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_REPASSE' + Calculated = True + end + object zroqryTitulosTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 100 + end + object zroqryTitulosTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + object zroqryTitulosVL_TITULO: TCurrencyField + FieldName = 'VL_TITULO' + ReadOnly = True + end + object zroqryTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zroqryTitulosVL_REPASSE_PRIN: TFloatField + FieldName = 'VL_REPASSE_PRIN' + end + object zroqryTitulosVL_DESC_JUROS: TFloatField + FieldName = 'VL_DESC_JUROS' + end + object zroqryTitulosVL_REPASSE_JUROS: TFloatField + FieldName = 'VL_REPASSE_JUROS' + end + object zroqryTitulosVL_DESC_MULTA: TFloatField + FieldName = 'VL_DESC_MULTA' + end + object zroqryTitulosVL_REPASSE_MULTA: TFloatField + FieldName = 'VL_REPASSE_MULTA' + end + object zroqryTitulosVL_INDICADOR: TFloatField + FieldName = 'VL_INDICADOR' + end + object zroqryTitulosVL_DESC_INDICADOR: TFloatField + FieldName = 'VL_DESC_INDICADOR' + end + object zroqryTitulosVL_REPASSE_CORRIGIDO: TFloatField + FieldName = 'VL_REPASSE_CORRIGIDO' + end + object zroqryTitulosTP_PRESTACAO: TWideStringField + FieldName = 'TP_PRESTACAO' + Size = 1 + end + object zroqryTitulosVL_REPASSE_ENCARGOS: TFloatField + FieldName = 'VL_REPASSE_ENCARGOS' + end + end + object cdsSintetico: TClientDataSet + Aggregates = <> + PacketRecords = 0 + Params = <> + Left = 1007 + Top = 71 + object cdsSinteticoVL_TITULO: TCurrencyField + FieldName = 'VL_TITULO' + end + object cdsSinteticoVL_JUROS: TCurrencyField + FieldName = 'VL_JUROS' + end + object cdsSinteticoVL_MULTA: TCurrencyField + FieldName = 'VL_MULTA' + end + object cdsSinteticoVL_ENCARGOS: TCurrencyField + FieldName = 'VL_ENCARGOS' + end + object cdsSinteticoVL_DESC_PRINCIPAL: TCurrencyField + FieldName = 'VL_DESC_PRINCIPAL' + end + object cdsSinteticoVL_CORRIGIDO: TCurrencyField + FieldName = 'VL_CORRIGIDO' + end + object cdsSinteticoVL_RETIDO: TCurrencyField + FieldName = 'VL_RETIDO' + end + object cdsSinteticoVL_REPASSADO: TCurrencyField + FieldName = 'VL_REPASSADO' + end + object cdsSinteticoID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + end + object cdsSinteticoTX_FANTASIA: TStringField + FieldName = 'TX_FANTASIA' + Size = 60 + end + object cdsSinteticoTX_CNPJ: TStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + end + object zroqryCredores: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'e.*' + 'from chg_devedores A' + 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' + 'inner join chg_empresas e on (E.id_empresa = B.id_empresa)' + 'where (B.tp_situacao = '#39'QC'#39' or B.tp_situacao = '#39'B'#39')' + 'order by e.tx_fantasia') + Params = <> + Left = 847 + Top = 23 + object zroqryCredoresID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zroqryCredoresTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 100 + end + object zroqryCredoresTX_FANTASIA: TWideStringField + FieldName = 'TX_FANTASIA' + Size = 100 + end + object zroqryCredoresTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + object zroqryCredoresTX_IE: TWideStringField + FieldName = 'TX_IE' + end + object zroqryCredoresTX_ENDERECO: TWideStringField + FieldName = 'TX_ENDERECO' + Size = 100 + end + object zroqryCredoresTX_COMPLEMENTO: TWideStringField + FieldName = 'TX_COMPLEMENTO' + end + object zroqryCredoresID_CIDADE: TIntegerField + FieldName = 'ID_CIDADE' + end + object zroqryCredoresTX_BAIRRO: TWideStringField + FieldName = 'TX_BAIRRO' + Size = 60 + end + object zroqryCredoresID_ESTADO: TIntegerField + FieldName = 'ID_ESTADO' + end + object zroqryCredoresTX_CEP: TWideStringField + FieldName = 'TX_CEP' + Size = 9 + end + object zroqryCredoresTX_TELEFONE: TWideStringField + FieldName = 'TX_TELEFONE' + Size = 40 + end + object zroqryCredoresTX_EMAIL: TWideStringField + FieldName = 'TX_EMAIL' + Size = 60 + end + object zroqryCredoresTX_WEBSITE: TWideStringField + FieldName = 'TX_WEBSITE' + Size = 60 + end + object zroqryCredoresNR_NUMERO: TIntegerField + FieldName = 'NR_NUMERO' + end + object zroqryCredoresTX_IM: TWideStringField + FieldName = 'TX_IM' + end + object zroqryCredoresTL_OBSERVACOES: TWideMemoField + FieldName = 'TL_OBSERVACOES' + BlobType = ftWideMemo + end + object zroqryCredoresID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object zroqryCredoresTP_ENTRADA: TWideStringField + FieldName = 'TP_ENTRADA' + Required = True + Size = 2 + end + object zroqryCredoresPR_MULTA: TFloatField + FieldName = 'PR_MULTA' + Required = True + end + object zroqryCredoresPR_JUROS: TFloatField + FieldName = 'PR_JUROS' + Required = True + end + object zroqryCredoresNR_PARCELAS: TIntegerField + FieldName = 'NR_PARCELAS' + end + object zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField + FieldName = 'PR_DESC_QUIT_PRIN' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField + FieldName = 'PR_DESC_QUIT_JUROS' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField + FieldName = 'PR_DESC_QUIT_MULTA' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField + FieldName = 'PR_DESC_QUIT_IND_FIN' + Required = True + end + object zroqryCredoresPR_DESC_QUIT_COR: TFloatField + FieldName = 'PR_DESC_QUIT_COR' + end + object zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField + FieldName = 'PR_DESC_FINAN_PRIN' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField + FieldName = 'PR_DESC_FINAN_JUROS' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField + FieldName = 'PR_DESC_FINAN_MULTA' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField + FieldName = 'PR_DESC_FINAN_IND_FIN' + Required = True + end + object zroqryCredoresPR_DESC_FINAN_COR: TFloatField + FieldName = 'PR_DESC_FINAN_COR' + end + object zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField + FieldName = 'PR_INDICADOR_FINANCEIRO' + Required = True + end + object zroqryCredoresPR_JUROS_PARCELAR: TFloatField + FieldName = 'PR_JUROS_PARCELAR' + end + object zroqryCredoresPR_ENTRADA_MIN: TFloatField + FieldName = 'PR_ENTRADA_MIN' + end + object zroqryCredoresPR_ENTRADA_MAX: TFloatField + FieldName = 'PR_ENTRADA_MAX' + end + object zroqryCredoresTP_CHEQUE: TWideStringField + FieldName = 'TP_CHEQUE' + Required = True + Size = 1 + end + object zroqryCredoresTP_CRED: TWideStringField + FieldName = 'TP_CRED' + Size = 1 + end + object zroqryCredoresTP_DIN: TWideStringField + FieldName = 'TP_DIN' + Size = 1 + end + object zroqryCredoresID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object zroqryCredoresDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + object zroqryCredoresID_DEPARTAMENTO: TIntegerField + FieldName = 'ID_DEPARTAMENTO' + end + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 752 + Top = 32 + end + object rotblRepasseFase: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_repasses_fases') + Params = <> + Left = 896 + Top = 8 + object rotblRepasseFaseID_FASE: TIntegerField + FieldName = 'ID_FASE' + Required = True + end + object rotblRepasseFasePR_PRINCIPAL: TFloatField + FieldName = 'PR_PRINCIPAL' + end + object rotblRepasseFasePR_JUROS: TFloatField + FieldName = 'PR_JUROS' + end + object rotblRepasseFasePR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object rotblRepasseFasePR_ENCARGOS: TFloatField + FieldName = 'PR_ENCARGOS' + end + object rotblRepasseFasePR_CORRIGIDO: TFloatField + FieldName = 'PR_CORRIGIDO' + end + object rotblRepasseFaseMIN_ATRASO: TIntegerField + FieldName = 'MIN_ATRASO' + end + object rotblRepasseFaseMAX_ATRASO: TIntegerField + FieldName = 'MAX_ATRASO' + end + object rotblRepasseFaseID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end +end diff --git a/urelPrestacaoAnaSin2.pas b/urelPrestacaoAnaSin2.pas new file mode 100644 index 0000000..55a399b --- /dev/null +++ b/urelPrestacaoAnaSin2.pas @@ -0,0 +1,715 @@ +unit urelPrestacaoAnaSin2; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.DateUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, ZDataset, + RLReport, Datasnap.DBClient, RLFilters, RLPDFFilter; + +type + TrelPrestacaoAnaSin2 = class(TForm) + dtsTitulos: TDataSource; + zroqryTitulos: TZReadOnlyQuery; + relPrestacao2: TRLReport; + RLBand1: TRLBand; + RLPanel1: TRLPanel; + RLDBImage1: TRLDBImage; + RLPanel2: TRLPanel; + RLLabel14: TRLLabel; + RLMemo2: TRLMemo; + cdsSintetico: TClientDataSet; + zroqryTitulosTX_PRODUTO: TWideStringField; + zroqryTitulosDT_VENCIMENTO: TDateTimeField; + zroqryTitulosDT_PAGAMENTO: TDateTimeField; + zroqryTitulosVL_JUROS: TFloatField; + zroqryTitulosVL_MULTA: TFloatField; + zroqryTitulosVL_ENCARGOS: TFloatField; + zroqryTitulosVL_CORRIGIDO: TFloatField; + zroqryTitulosVL_DESC_PRINCIPAL: TFloatField; + zroqryTitulosID_TITULO: TIntegerField; + zroqryTitulosID_EMPRESA: TIntegerField; + zroqryTitulosATRASO: TIntegerField; + zroqryTitulosVL_RETIDO: TCurrencyField; + zroqryTitulosVL_REPASSE: TCurrencyField; + cdsSinteticoVL_TITULO: TCurrencyField; + cdsSinteticoVL_JUROS: TCurrencyField; + cdsSinteticoVL_MULTA: TCurrencyField; + cdsSinteticoVL_ENCARGOS: TCurrencyField; + cdsSinteticoVL_DESC_PRINCIPAL: TCurrencyField; + cdsSinteticoVL_CORRIGIDO: TCurrencyField; + cdsSinteticoVL_RETIDO: TCurrencyField; + cdsSinteticoVL_REPASSADO: TCurrencyField; + cdsSinteticoID_EMPRESA: TIntegerField; + zroqryTitulosTX_FANTASIA: TWideStringField; + cdsSinteticoTX_FANTASIA: TStringField; + RLBand4: TRLBand; + RLLabel27: TRLLabel; + RLLabel28: TRLLabel; + RLLabel29: TRLLabel; + RLLabel30: TRLLabel; + RLLabel31: TRLLabel; + RLLabel32: TRLLabel; + RLLabel33: TRLLabel; + RLLabel34: TRLLabel; + RLBand5: TRLBand; + RLDBText22: TRLDBText; + RLDBText24: TRLDBText; + RLDBText25: TRLDBText; + RLDBText26: TRLDBText; + RLDBText27: TRLDBText; + RLDBText28: TRLDBText; + RLDBText29: TRLDBText; + RLDBText32: TRLDBText; + RLBand6: TRLBand; + RLDBResult9: TRLDBResult; + RLDBResult10: TRLDBResult; + RLDBResult11: TRLDBResult; + RLDBResult12: TRLDBResult; + RLDBResult13: TRLDBResult; + RLDBResult14: TRLDBResult; + RLDBResult15: TRLDBResult; + RLLabel35: TRLLabel; + RLLabel36: TRLLabel; + RLLabel37: TRLLabel; + RLLabel38: TRLLabel; + RLLabel39: TRLLabel; + RLLabel40: TRLLabel; + RLLabel41: TRLLabel; + RLLabel42: TRLLabel; + RLLabel43: TRLLabel; + RLDBResult16: TRLDBResult; + RLDBText1: TRLDBText; + zroqryCredores: TZReadOnlyQuery; + zroqryCredoresID_EMPRESA: TIntegerField; + zroqryCredoresTX_NOME: TWideStringField; + zroqryCredoresTX_FANTASIA: TWideStringField; + zroqryCredoresTX_CNPJ: TWideStringField; + zroqryCredoresTX_IE: TWideStringField; + zroqryCredoresTX_ENDERECO: TWideStringField; + zroqryCredoresTX_COMPLEMENTO: TWideStringField; + zroqryCredoresID_CIDADE: TIntegerField; + zroqryCredoresTX_BAIRRO: TWideStringField; + zroqryCredoresID_ESTADO: TIntegerField; + zroqryCredoresTX_CEP: TWideStringField; + zroqryCredoresTX_TELEFONE: TWideStringField; + zroqryCredoresTX_EMAIL: TWideStringField; + zroqryCredoresTX_WEBSITE: TWideStringField; + zroqryCredoresNR_NUMERO: TIntegerField; + zroqryCredoresTX_IM: TWideStringField; + zroqryCredoresTL_OBSERVACOES: TWideMemoField; + zroqryCredoresID_REPASSE: TIntegerField; + zroqryCredoresTP_ENTRADA: TWideStringField; + zroqryCredoresPR_MULTA: TFloatField; + zroqryCredoresPR_JUROS: TFloatField; + zroqryCredoresNR_PARCELAS: TIntegerField; + zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField; + zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField; + zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField; + zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField; + zroqryCredoresPR_DESC_QUIT_COR: TFloatField; + zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField; + zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField; + zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField; + zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField; + zroqryCredoresPR_DESC_FINAN_COR: TFloatField; + zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField; + zroqryCredoresPR_JUROS_PARCELAR: TFloatField; + zroqryCredoresPR_ENTRADA_MIN: TFloatField; + zroqryCredoresPR_ENTRADA_MAX: TFloatField; + zroqryCredoresTP_CHEQUE: TWideStringField; + zroqryCredoresTP_CRED: TWideStringField; + zroqryCredoresTP_DIN: TWideStringField; + zroqryCredoresID_ULTIMO_USUARIO: TIntegerField; + zroqryCredoresDT_HORA_ULTIMA_ATT: TDateTimeField; + fr_filterpdf: TRLPDFFilter; + zroqryTitulosTX_CNPJ: TWideStringField; + cdsSinteticoTX_CNPJ: TStringField; + RLSystemInfo1: TRLSystemInfo; + fr_date: TRLSystemInfo; + zroqryTitulosVL_TITULO: TCurrencyField; + frlbl_dep: TRLLabel; + zroqryCredoresID_DEPARTAMENTO: TIntegerField; + zroqryTitulosID_DEVEDOR: TIntegerField; + rotblRepasseFase: TZReadOnlyQuery; + rotblRepasseFaseID_FASE: TIntegerField; + rotblRepasseFasePR_PRINCIPAL: TFloatField; + rotblRepasseFasePR_JUROS: TFloatField; + rotblRepasseFasePR_MULTA: TFloatField; + rotblRepasseFasePR_ENCARGOS: TFloatField; + rotblRepasseFasePR_CORRIGIDO: TFloatField; + rotblRepasseFaseMIN_ATRASO: TIntegerField; + rotblRepasseFaseMAX_ATRASO: TIntegerField; + rotblRepasseFaseID_REPASSE: TIntegerField; + rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField; + rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField; + zroqryTitulosVL_REPASSE_PRIN: TFloatField; + zroqryTitulosVL_DESC_JUROS: TFloatField; + zroqryTitulosVL_REPASSE_JUROS: TFloatField; + zroqryTitulosVL_DESC_MULTA: TFloatField; + zroqryTitulosVL_REPASSE_MULTA: TFloatField; + zroqryTitulosVL_INDICADOR: TFloatField; + zroqryTitulosVL_DESC_INDICADOR: TFloatField; + zroqryTitulosVL_REPASSE_CORRIGIDO: TFloatField; + zroqryTitulosTP_PRESTACAO: TWideStringField; + zroqryTitulosVL_REPASSE_ENCARGOS: TFloatField; + procedure zroqryTitulosCalcFields(DataSet: TDataSet); + procedure relPrestacao2AfterPrint(Sender: TObject); + procedure relPrestacao2BeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure FormCreate(Sender: TObject); + private + sql: string; + sqlt: string; + procedure SalvarReciboPDF; + { Private declarations } + public + deps: Boolean; + { Public declarations } + end; + +var + relPrestacaoAnaSin2: TrelPrestacaoAnaSin2; + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TrelPrestacaoAnaSin2.FormCreate(Sender: TObject); +begin + deps := false; +end; + +procedure TrelPrestacaoAnaSin2.relPrestacao2AfterPrint(Sender: TObject); +begin + SalvarReciboPDF; + dtmSystem.tblAcordos.sql.Text := sql; + dtmSystem.tblTitulos.sql.Text := sqlt; + dtmSystem.tblDevedores.Open; + dtmSystem.tblTitulos.Open; +end; + +procedure TrelPrestacaoAnaSin2.relPrestacao2BeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + dtmSystem.tblDevedores.Close; + dtmSystem.tblTitulos.Close; +end; + +procedure TrelPrestacaoAnaSin2.SalvarReciboPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; + // path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + path := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\PRESTACAO_CONTAS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\SINTETICO'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + if deps then + begin + file_name := path + '\RELATORIO_PRESTACAO_CONTAS-SINTETICO-DEPARTAMENTOS' + + FormatDateTime('HH-mm', Time) + '.pdf'; + end + else + begin + file_name := path + '\RELATORIO_PRESTACAO_CONTAS-SINTETICO' + + FormatDateTime('HH-mm', Time) + '.pdf'; + end; + fr_filterpdf.FileName := file_name; + relPrestacao2.SaveToFile(file_name); +end; + +procedure TrelPrestacaoAnaSin2.zroqryTitulosCalcFields(DataSet: TDataSet); +var + pt_principal, pt_juros, pt_multa, pt_encargos, pt_corrigido: Currency; + atraso, index: Integer; + ac_pr, ac_j, ac_m, ac_enc, ac_cor: array of Currency; + vl_pr, vl_j, vl_m, vl_enc, vl_cor, pr_pr, pr_j, pr_m, pr_enc, pr_cor, help_pr, + help_j, help_m, help_enc, help_cor: Currency; + mes, ano: string; +begin + with dtmSystem do + begin + if not tblDevedores.Active then + begin + tblDevedores.Open; + end; + if not tblTitulos.Active then + begin + tblTitulos.Open; + end; + if not tblAcordos.Active then + begin + tblAcordos.Open; + end; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end; + if not tblRepasse.Active then + begin + tblRepasse.Open; + end; + if not tblRepasseFase.Active then + begin + tblRepasseFase.Open; + end; + if zroqryTitulosID_TITULO.AsString <> '' then + begin + if zroqryTitulosTP_PRESTACAO.AsString = 'N' then + begin + sql := tblAcordos.sql.Text; + sqlt := tblTitulos.sql.Text; + tblAcordos.sql.Text := 'select * from sys_acordos'; + tblAcordos.Filtered := false; + tblAcordos.Filter := 'ID_PARCELA = ' + zroqryTitulosID_TITULO.AsString; + tblAcordos.Filtered := true; + tblTitulos.sql.Text := 'select * from chg_titulos'; + tblTitulos.Open; + tblAcordos.Open; +// pt_principal := 0; +// pt_juros := 0; +// pt_multa := 0; +// pt_encargos := 0; +// pt_corrigido := 0; + if not tblAcordos.IsEmpty then + begin + tblAcordos.First; + vl_pr := 0; + vl_j := 0; + vl_m := 0; + vl_enc := 0; + vl_cor := 0; + setlength(ac_pr, 0); + setlength(ac_j, 0); + setlength(ac_m, 0); + setlength(ac_enc, 0); + setlength(ac_cor, 0); + setlength(ac_pr, tblAcordos.RecordCount); + setlength(ac_j, tblAcordos.RecordCount); + setlength(ac_m, tblAcordos.RecordCount); + setlength(ac_enc, tblAcordos.RecordCount); + setlength(ac_cor, tblAcordos.RecordCount); + pr_pr := 0; + pr_j := 0; + pr_m := 0; + pr_enc := 0; + pr_cor := 0; + index := 0; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + + if not(tblTitulosTP_PRESTACAO.AsString = 'N') then + begin + vl_pr := vl_pr + tblTitulosVL_TITULO.AsCurrency; + vl_j := vl_j + tblTitulosVL_JUROS.AsCurrency; + vl_m := vl_m + tblTitulosVL_MULTA.AsCurrency; + vl_enc := vl_enc + tblTitulosVL_ENCARGOS.AsCurrency; + vl_cor := vl_cor + tblTitulosVL_CORRIGIDO.AsCurrency; + end; +// else +// begin +// pt_principal := pt_principal + +// tblTitulosVL_REPASSE_PRIN.AsCurrency; +// pt_juros := pt_juros + tblTitulosVL_REPASSE_JUROS.AsCurrency; +// pt_multa := pt_multa + tblTitulosVL_REPASSE_MULTA.AsCurrency; +// pt_encargos := pt_encargos + tblTitulosVL_REPASSE_ENCARGOS. +// AsCurrency; +// pt_corrigido := pt_corrigido + +// tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency; +// end; + + tblAcordos.Next; + end; + tblAcordos.First; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + if not(tblTitulosTP_PRESTACAO.AsString = 'N') then + begin + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + mes := inttostr + (strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + tblTitulos.Locate('ID_TITULO', + tblAcordosID_PARCELA.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + tblEmpresaRepasse.Filtered := false; + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []); + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS. + AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA. + AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulos.Locate('ID_TITULO', + tblAcordosID_ORIGINAL.AsInteger, []); + + ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * help_pr; + ac_j[index] := tblTitulosVL_JUROS.AsCurrency * help_j; + ac_m[index] := tblTitulosVL_MULTA.AsCurrency * help_m; + ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * help_enc; + ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + + if vl_pr <> 0 then + begin + pr_pr := pr_pr + ((ac_pr[index] * 100) / vl_pr); + end; + if vl_j <> 0 then + begin + pr_j := pr_j + ((ac_j[index] * 100) / vl_j); + end; + if vl_m <> 0 then + begin + pr_m := pr_m + ((ac_m[index] * 100) / vl_m); + end; + if vl_enc <> 0 then + begin + pr_enc := pr_enc + ((ac_enc[index] * 100) / vl_enc); + end; + if vl_cor <> 0 then + begin + pr_cor := pr_cor + ((ac_cor[index] * 100) / vl_cor); + end; + end; + Inc(index, 1); + tblAcordos.Next; + end; + if pr_pr = 0 then + begin + pt_principal := zroqryTitulosVL_REPASSE_PRIN.AsCurrency; + end + else + begin + pt_principal := (zroqryTitulosVL_TITULO.AsCurrency * pr_pr) / 100; + end; + if pr_j = 0 then + begin + pt_juros := zroqryTitulosVL_REPASSE_JUROS.AsCurrency; + end + else + begin + pt_juros := (zroqryTitulosVL_JUROS.AsCurrency * pr_j) / 100; + end; + if pr_m = 0 then + begin + pt_multa := zroqryTitulosVL_REPASSE_MULTA.AsCurrency; + end + else + begin + pt_multa := (zroqryTitulosVL_MULTA.AsCurrency * pr_m) / 100; + end; + if pr_enc = 0 then + begin + pt_encargos := zroqryTitulosVL_REPASSE_ENCARGOS.AsCurrency; + end + else + begin + pt_encargos := (zroqryTitulosVL_ENCARGOS.AsCurrency * pr_enc) / 100; + end; + if pr_cor = 0 then + begin + pt_corrigido := zroqryTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + end + else + begin + pt_corrigido := (zroqryTitulosVL_CORRIGIDO.AsCurrency * pr_cor) / 100; + end; + end + else + begin + pt_principal := zroqryTitulosVL_REPASSE_PRIN.AsCurrency; + pt_juros := zroqryTitulosVL_REPASSE_JUROS.AsCurrency; + pt_multa := zroqryTitulosVL_REPASSE_MULTA.AsCurrency; + pt_encargos := zroqryTitulosVL_REPASSE_ENCARGOS.AsCurrency; + pt_corrigido := zroqryTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + end; + end + else + begin + sql := tblAcordos.sql.Text; + sqlt := tblTitulos.sql.Text; + tblAcordos.sql.Text := 'select * from sys_acordos'; + tblAcordos.Filtered := false; + tblAcordos.Filter := 'ID_PARCELA = ' + zroqryTitulosID_TITULO.AsString; + tblAcordos.Filtered := true; + tblTitulos.sql.Text := 'select * from chg_titulos'; + tblTitulos.Open; + tblAcordos.Open; + if not tblAcordos.IsEmpty then + begin + tblAcordos.First; + setlength(ac_pr, 0); + setlength(ac_j, 0); + setlength(ac_m, 0); + setlength(ac_enc, 0); + setlength(ac_cor, 0); + setlength(ac_pr, tblAcordos.RecordCount); + setlength(ac_j, tblAcordos.RecordCount); + setlength(ac_m, tblAcordos.RecordCount); + setlength(ac_enc, tblAcordos.RecordCount); + setlength(ac_cor, tblAcordos.RecordCount); + vl_pr := 0; + vl_j := 0; + vl_m := 0; + vl_enc := 0; + vl_cor := 0; + pr_pr := 0; + pr_j := 0; + pr_m := 0; + pr_enc := 0; + pr_cor := 0; + index := 0; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + vl_pr := vl_pr + tblTitulosVL_TITULO.AsCurrency; + vl_j := vl_j + tblTitulosVL_JUROS.AsCurrency; + vl_m := vl_m + tblTitulosVL_MULTA.AsCurrency; + vl_enc := vl_enc + tblTitulosVL_ENCARGOS.AsCurrency; + vl_cor := vl_cor + tblTitulosVL_CORRIGIDO.AsCurrency; + tblAcordos.Next; + end; + tblAcordos.First; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + + tblTitulos.Locate('ID_TITULO', tblAcordosID_PARCELA.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []); + + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + + ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * help_pr; + ac_j[index] := tblTitulosVL_JUROS.AsCurrency * help_j; + ac_m[index] := tblTitulosVL_MULTA.AsCurrency * help_m; + ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * help_enc; + ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + + if vl_pr <> 0 then + begin + pr_pr := pr_pr + ((ac_pr[index] * 100) / vl_pr); + end; + if vl_j <> 0 then + begin + pr_j := pr_j + ((ac_j[index] * 100) / vl_j); + end; + if vl_m <> 0 then + begin + pr_m := pr_m + ((ac_m[index] * 100) / vl_m); + end; + if vl_enc <> 0 then + begin + pr_enc := pr_enc + ((ac_enc[index] * 100) / vl_enc); + end; + if vl_cor <> 0 then + begin + pr_cor := pr_cor + ((ac_cor[index] * 100) / vl_cor); + end; + tblRepasseFase.Filtered := true; + Inc(index, 1); + tblAcordos.Next; + end; + pt_principal := (zroqryTitulosVL_TITULO.AsCurrency * pr_pr) / 100; + pt_juros := (zroqryTitulosVL_JUROS.AsCurrency * pr_j) / 100; + pt_multa := (zroqryTitulosVL_MULTA.AsCurrency * pr_m) / 100; + pt_encargos := (zroqryTitulosVL_ENCARGOS.AsCurrency * pr_enc) / 100; + pt_corrigido := (zroqryTitulosVL_CORRIGIDO.AsCurrency * pr_cor) / 100; + end + else + begin + tblDevedores.Locate('ID_DEVEDOR', + zroqryTitulosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', zroqryTitulosID_TITULO.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + zroqryTitulosID_EMPRESA.AsInteger, []); + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', VarArrayOf([mes, ano]), []); + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + pt_principal := zroqryTitulosVL_TITULO.AsCurrency * + (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + pt_juros := zroqryTitulosVL_JUROS.AsCurrency * + (rotblRepasseFasePR_JUROS.AsCurrency / 100); + pt_multa := zroqryTitulosVL_MULTA.AsCurrency * + (rotblRepasseFasePR_MULTA.AsCurrency / 100); + pt_encargos := zroqryTitulosVL_ENCARGOS.AsCurrency * + (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + pt_corrigido := zroqryTitulosVL_CORRIGIDO.AsCurrency * + (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + + pt_principal := zroqryTitulosVL_TITULO.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + pt_juros := zroqryTitulosVL_JUROS.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + pt_multa := zroqryTitulosVL_MULTA.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + pt_encargos := zroqryTitulosVL_ENCARGOS.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + pt_corrigido := zroqryTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + end; + end; + + zroqryTitulosVL_RETIDO.AsCurrency := pt_principal + pt_juros + pt_multa + + pt_encargos + pt_corrigido; + zroqryTitulosVL_REPASSE.AsCurrency := zroqryTitulosVL_CORRIGIDO.AsCurrency + - zroqryTitulosVL_RETIDO.AsCurrency; + end; + + end; + +end; + +end. diff --git a/urelPrestacaoContas.dfm b/urelPrestacaoContas.dfm new file mode 100644 index 0000000..7ce94f2 --- /dev/null +++ b/urelPrestacaoContas.dfm @@ -0,0 +1,1139 @@ +object relPrestacaoContas: TrelPrestacaoContas + Left = 0 + Top = 0 + Caption = 'relPrestacaoContas' + ClientHeight = 750 + ClientWidth = 1126 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object frPrestacao: TRLReport + Left = 0 + Top = 0 + Width = 1123 + Height = 794 + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + PageSetup.Orientation = poLandscape + AfterPrint = frPrestacaoAfterPrint + BeforePrint = frPrestacaoBeforePrint + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 1047 + Height = 99 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_logo: TRLPanel + Left = 1 + Top = 1 + Width = 112 + Height = 97 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 0 + Width = 112 + Height = 97 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + BeforePrint = frdbimg_logoBeforePrint + end + end + object frpnl_headertop: TRLPanel + Left = 113 + Top = 1 + Width = 933 + Height = 48 + Align = faTop + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_headertop: TRLLabel + Left = 0 + Top = 0 + Width = 425 + Height = 16 + Align = faLeftTop + Caption = 'ASSESSORIA DE SERVI'#199'OS LTDA - EPP CNPJ : 36.058.162/0001-28' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLMemo1: TRLMemo + Left = 252 + Top = 64 + Width = 654 + Height = 19 + Align = faCenter + Alignment = taCenter + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + Lines.Strings = ( + 'BENEF - PRESTA'#199#195'O DE CONTAS - DT1 AT'#201' DT2') + ParentFont = False + BeforePrint = RLMemo1BeforePrint + end + end + object frbnd_clmheader: TRLBand + Left = 38 + Top = 137 + Width = 1047 + Height = 17 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLLabel2: TRLLabel + Left = 1 + Top = 2 + Width = 57 + Height = 14 + Align = faLeftBottom + Caption = 'PRODUTO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel3: TRLLabel + Left = 158 + Top = 2 + Width = 55 + Height = 14 + Align = faBottomOnly + Caption = 'DEVEDOR:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel4: TRLLabel + Left = 325 + Top = 2 + Width = 76 + Height = 14 + Align = faBottomOnly + Caption = 'VENCIMENTO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel5: TRLLabel + Left = 412 + Top = 2 + Width = 85 + Height = 14 + Align = faBottomOnly + Caption = 'DATA DE PGTO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel6: TRLLabel + Left = 522 + Top = 2 + Width = 56 + Height = 14 + Align = faBottomOnly + Caption = 'NOMINAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel7: TRLLabel + Left = 595 + Top = 2 + Width = 41 + Height = 14 + Align = faBottomOnly + Caption = 'JUROS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel8: TRLLabel + Left = 645 + Top = 2 + Width = 45 + Height = 14 + Align = faBottomOnly + Caption = 'MULTA:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel9: TRLLabel + Left = 694 + Top = 2 + Width = 65 + Height = 14 + Align = faBottomOnly + Caption = 'ENCARGOS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel10: TRLLabel + Left = 849 + Top = 2 + Width = 43 + Height = 14 + Align = faBottomOnly + Caption = 'TOTAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel11: TRLLabel + Left = 918 + Top = 2 + Width = 44 + Height = 14 + Align = faBottomOnly + Caption = 'RETIDO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel12: TRLLabel + Left = 975 + Top = 2 + Width = 71 + Height = 14 + Align = faRightBottom + Caption = 'REPASSADO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel1: TRLLabel + Left = 794 + Top = 2 + Width = 34 + Height = 14 + Align = faBottomOnly + Caption = 'DESC:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frbnd_detail: TRLBand + Left = 38 + Top = 154 + Width = 1047 + Height = 16 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBText3: TRLDBText + Left = 325 + Top = 1 + Width = 87 + Height = 14 + Align = faBottomOnly + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText4: TRLDBText + Left = 520 + Top = 1 + Width = 58 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_TITULO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText5: TRLDBText + Left = 412 + Top = 1 + Width = 87 + Height = 14 + Align = faBottomOnly + DataField = 'DT_PAGAMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText6: TRLDBText + Left = 579 + Top = 1 + Width = 57 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText7: TRLDBText + Left = 632 + Top = 1 + Width = 58 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText8: TRLDBText + Left = 678 + Top = 1 + Width = 81 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText9: TRLDBText + Left = 813 + Top = 1 + Width = 79 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText10: TRLDBText + Left = 903 + Top = 1 + Width = 59 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_RETIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText11: TRLDBText + Left = 976 + Top = 1 + Width = 70 + Height = 14 + Align = faRightBottom + Alignment = taRightJustify + DataField = 'VL_REPASSE' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText1: TRLDBText + Left = 1 + Top = 1 + Width = 144 + Height = 14 + Align = faLeftBottom + AutoSize = False + DataField = 'TX_PRODUTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText2: TRLDBText + Left = 158 + Top = 1 + Width = 156 + Height = 14 + Align = faBottomOnly + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText18: TRLDBText + Left = 721 + Top = 1 + Width = 107 + Height = 14 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_DESC_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + object frbnd_clmfooter: TRLBand + Left = 38 + Top = 170 + Width = 1047 + Height = 30 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBResult1: TRLDBResult + Left = 496 + Top = 18 + Width = 82 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_TITULO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult2: TRLDBResult + Left = 555 + Top = 18 + Width = 81 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_JUROS' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult3: TRLDBResult + Left = 611 + Top = 18 + Width = 79 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_MULTA' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult4: TRLDBResult + Left = 658 + Top = 18 + Width = 101 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult5: TRLDBResult + Left = 788 + Top = 18 + Width = 104 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult6: TRLDBResult + Left = 878 + Top = 18 + Width = 84 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_RETIDO' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult7: TRLDBResult + Left = 955 + Top = 18 + Width = 91 + Height = 11 + Align = faRightBottom + Alignment = taRightJustify + DataField = 'VL_REPASSE' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + object RLLabel13: TRLLabel + Left = 462 + Top = 15 + Width = 40 + Height = 14 + Align = faBottomOnly + Caption = 'Totais:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel15: TRLLabel + Left = 522 + Top = 0 + Width = 56 + Height = 14 + Align = faTopOnly + Caption = 'NOMINAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel16: TRLLabel + Left = 595 + Top = 0 + Width = 41 + Height = 14 + Align = faTopOnly + Caption = 'JUROS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel17: TRLLabel + Left = 645 + Top = 0 + Width = 45 + Height = 14 + Align = faTopOnly + Caption = 'MULTA:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel18: TRLLabel + Left = 694 + Top = 0 + Width = 65 + Height = 14 + Align = faTopOnly + Caption = 'ENCARGOS:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel19: TRLLabel + Left = 849 + Top = 0 + Width = 43 + Height = 14 + Align = faTopOnly + Caption = 'TOTAL:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel20: TRLLabel + Left = 918 + Top = 0 + Width = 44 + Height = 14 + Align = faTopOnly + Caption = 'RETIDO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel21: TRLLabel + Left = 975 + Top = 0 + Width = 71 + Height = 14 + Align = faRightTop + Caption = 'REPASSADO:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel22: TRLLabel + Left = 794 + Top = 0 + Width = 34 + Height = 14 + Align = faTopOnly + Caption = 'DESC:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLDBResult8: TRLDBResult + Left = 698 + Top = 18 + Width = 130 + Height = 11 + Align = faBottomOnly + Alignment = taRightJustify + DataField = 'VL_DESC_PRINCIPAL' + DataSource = dtsTitulos + DisplayMask = '###,###,##0.00' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = '' + end + end + object frbnd_footer: TRLBand + Left = 38 + Top = 200 + Width = 1047 + Height = 69 + BandType = btFooter + object fr_date: TRLSystemInfo + Left = 843 + Top = 56 + Width = 161 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Data de emiss'#227'o:' + end + object RLLabel14: TRLLabel + Left = 636 + Top = 6 + Width = 408 + Height = 16 + Caption = 'Data: ____/____/________ ASS: ____________________________' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLDBText12: TRLDBText + Left = 3 + Top = 36 + Width = 189 + Height = 13 + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsRepasse + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Modelo de Repasse: ' + Visible = False + end + object RLDBText13: TRLDBText + Left = 3 + Top = 55 + Width = 154 + Height = 13 + DataField = 'PR_PRINCIPAL' + DataSource = dtmSystem.dtsRepasse + DisplayMask = '0.00%' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Nominal: ' + Visible = False + end + object RLDBText14: TRLDBText + Left = 132 + Top = 55 + Width = 112 + Height = 13 + DataField = 'PR_JUROS' + DataSource = dtmSystem.dtsRepasse + DisplayMask = '0.00%' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Juros: ' + Visible = False + end + object RLDBText15: TRLDBText + Left = 246 + Top = 55 + Width = 112 + Height = 13 + DataField = 'PR_MULTA' + DataSource = dtmSystem.dtsRepasse + DisplayMask = '0.00%' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Multa: ' + Visible = False + end + object RLDBText16: TRLDBText + Left = 359 + Top = 55 + Width = 154 + Height = 13 + DataField = 'PR_ENCARGOS' + DataSource = dtmSystem.dtsRepasse + DisplayMask = '0.00%' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Encargos: ' + Visible = False + end + object RLDBText17: TRLDBText + Left = 491 + Top = 55 + Width = 140 + Height = 13 + DataField = 'PR_CORRIGIDO' + DataSource = dtmSystem.dtsRepasse + DisplayMask = '0.00%' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = 'Total: ' + Visible = False + end + object RLSystemInfo1: TRLSystemInfo + Left = 659 + Top = 56 + Width = 161 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = 'Hora da Emiss'#227'o:' + end + end + end + object zqryTitulos: TZQuery + Connection = dtmSystem.ZConnection + OnCalcFields = zqryTitulosCalcFields + SQL.Strings = ( + 'select first 0' + 'A.tx_nome,' + 'A.id_devedor,' + 'B.tx_produto,' + 'B.dt_vencimento,' + 'B.dt_pagamento,' + + 'case when B.id_titulo in (select id_parcela from sys_acordos) th' + + 'en (B.vl_titulo - B.vl_juros - B.vl_multa - B.vl_encargos)' + + 'when B.id_titulo not in (select id_parcela from sys_acordos) the' + + 'n (B.vl_titulo)' + 'end as vl_titulo,' + 'B.vl_repasse_prin,' + 'B.vl_juros,' + 'B.vl_desc_juros,' + 'B.vl_repasse_juros,' + 'B.vl_multa,' + 'B.vl_desc_multa,' + 'B.vl_repasse_multa,' + 'B.vl_encargos,' + 'B.vl_indicador,' + 'B.vl_desc_indicador,' + 'B.vl_repasse_encargos,' + 'B.vl_corrigido,' + 'B.vl_repasse_corrigido,' + 'B.vl_desc_principal,' + 'B.id_titulo,' + 'B.id_empresa,' + 'B.tp_prestacao,' + + '(cast(B.dt_pagamento as date)-cast(B.dt_vencimento as date)) as ' + + 'atraso' + 'from chg_devedores A' + 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)') + Params = <> + Left = 656 + Top = 8 + object zqryTitulosTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object zqryTitulosTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zqryTitulosDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + end + object zqryTitulosDT_PAGAMENTO: TDateTimeField + FieldName = 'DT_PAGAMENTO' + end + object zqryTitulosVL_MULTA: TFloatField + FieldName = 'VL_MULTA' + currency = True + end + object zqryTitulosVL_ENCARGOS: TFloatField + FieldName = 'VL_ENCARGOS' + currency = True + end + object zqryTitulosVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + currency = True + end + object zqryTitulosVL_RETIDO: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_RETIDO' + Calculated = True + end + object zqryTitulosVL_REPASSE: TCurrencyField + FieldKind = fkCalculated + FieldName = 'VL_REPASSE' + Calculated = True + end + object zqryTitulosVL_DESC_PRINCIPAL: TFloatField + FieldName = 'VL_DESC_PRINCIPAL' + currency = True + end + object zqryTitulosATRASO: TIntegerField + FieldName = 'ATRASO' + ReadOnly = True + end + object zqryTitulosID_TITULO: TIntegerField + FieldName = 'ID_TITULO' + Required = True + end + object zqryTitulosVL_TITULO: TCurrencyField + FieldName = 'VL_TITULO' + ReadOnly = True + end + object zqryTitulosVL_JUROS: TFloatField + FieldName = 'VL_JUROS' + currency = True + end + object zqryTitulosID_DEVEDOR: TIntegerField + FieldName = 'ID_DEVEDOR' + Required = True + end + object zqryTitulosID_EMPRESA: TIntegerField + FieldName = 'ID_EMPRESA' + Required = True + end + object zqryTitulosVL_REPASSE_PRIN: TFloatField + FieldName = 'VL_REPASSE_PRIN' + end + object zqryTitulosVL_DESC_JUROS: TFloatField + FieldName = 'VL_DESC_JUROS' + end + object zqryTitulosVL_REPASSE_JUROS: TFloatField + FieldName = 'VL_REPASSE_JUROS' + end + object zqryTitulosVL_DESC_MULTA: TFloatField + FieldName = 'VL_DESC_MULTA' + end + object zqryTitulosVL_REPASSE_MULTA: TFloatField + FieldName = 'VL_REPASSE_MULTA' + end + object zqryTitulosVL_INDICADOR: TFloatField + FieldName = 'VL_INDICADOR' + end + object zqryTitulosVL_DESC_INDICADOR: TFloatField + FieldName = 'VL_DESC_INDICADOR' + end + object zqryTitulosVL_REPASSE_CORRIGIDO: TFloatField + FieldName = 'VL_REPASSE_CORRIGIDO' + end + object zqryTitulosTP_PRESTACAO: TWideStringField + FieldName = 'TP_PRESTACAO' + Size = 1 + end + object zqryTitulosVL_REPASSE_ENCARGOS: TFloatField + FieldName = 'VL_REPASSE_ENCARGOS' + end + end + object dtsTitulos: TDataSource + DataSet = zqryTitulos + Left = 744 + Top = 8 + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 808 + Top = 8 + end + object rotblRepasseFase: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select * from sys_repasses_fases') + Params = <> + Left = 896 + Top = 8 + object rotblRepasseFaseID_FASE: TIntegerField + FieldName = 'ID_FASE' + Required = True + end + object rotblRepasseFasePR_PRINCIPAL: TFloatField + FieldName = 'PR_PRINCIPAL' + end + object rotblRepasseFasePR_JUROS: TFloatField + FieldName = 'PR_JUROS' + end + object rotblRepasseFasePR_MULTA: TFloatField + FieldName = 'PR_MULTA' + end + object rotblRepasseFasePR_ENCARGOS: TFloatField + FieldName = 'PR_ENCARGOS' + end + object rotblRepasseFasePR_CORRIGIDO: TFloatField + FieldName = 'PR_CORRIGIDO' + end + object rotblRepasseFaseMIN_ATRASO: TIntegerField + FieldName = 'MIN_ATRASO' + end + object rotblRepasseFaseMAX_ATRASO: TIntegerField + FieldName = 'MAX_ATRASO' + end + object rotblRepasseFaseID_REPASSE: TIntegerField + FieldName = 'ID_REPASSE' + end + object rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField + FieldName = 'ID_ULTIMO_USUARIO' + end + object rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField + FieldName = 'DT_HORA_ULTIMA_ATT' + end + end +end diff --git a/urelPrestacaoContas.pas b/urelPrestacaoContas.pas new file mode 100644 index 0000000..ec4d2d0 --- /dev/null +++ b/urelPrestacaoContas.pas @@ -0,0 +1,693 @@ +unit urelPrestacaoContas; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.DateUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, Data.DB, ZAbstractRODataset, + ZAbstractDataset, ZDataset, RLFilters, RLPDFFilter, RLRichText; + +type + TrelPrestacaoContas = class(TForm) + frPrestacao: TRLReport; + frbnd_header: TRLBand; + frbnd_clmheader: TRLBand; + frbnd_detail: TRLBand; + frbnd_clmfooter: TRLBand; + frbnd_footer: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frpnl_headertop: TRLPanel; + frlbl_headertop: TRLLabel; + RLLabel2: TRLLabel; + RLLabel3: TRLLabel; + RLLabel4: TRLLabel; + RLLabel5: TRLLabel; + RLLabel6: TRLLabel; + RLLabel7: TRLLabel; + RLLabel8: TRLLabel; + RLLabel9: TRLLabel; + RLLabel10: TRLLabel; + RLLabel11: TRLLabel; + RLLabel12: TRLLabel; + zqryTitulos: TZQuery; + dtsTitulos: TDataSource; + zqryTitulosTX_NOME: TWideStringField; + zqryTitulosTX_PRODUTO: TWideStringField; + zqryTitulosDT_VENCIMENTO: TDateTimeField; + zqryTitulosDT_PAGAMENTO: TDateTimeField; + zqryTitulosVL_MULTA: TFloatField; + zqryTitulosVL_ENCARGOS: TFloatField; + zqryTitulosVL_CORRIGIDO: TFloatField; + zqryTitulosVL_REPASSE: TCurrencyField; + zqryTitulosVL_RETIDO: TCurrencyField; + RLDBText3: TRLDBText; + RLDBText4: TRLDBText; + RLDBText5: TRLDBText; + RLDBText6: TRLDBText; + RLDBText7: TRLDBText; + RLDBText8: TRLDBText; + RLDBText9: TRLDBText; + RLDBText10: TRLDBText; + RLDBText11: TRLDBText; + RLDBText1: TRLDBText; + RLDBText2: TRLDBText; + fr_filterpdf: TRLPDFFilter; + RLDBResult1: TRLDBResult; + RLDBResult2: TRLDBResult; + RLDBResult3: TRLDBResult; + RLDBResult4: TRLDBResult; + RLDBResult5: TRLDBResult; + RLDBResult6: TRLDBResult; + RLDBResult7: TRLDBResult; + RLLabel13: TRLLabel; + fr_date: TRLSystemInfo; + RLLabel14: TRLLabel; + RLLabel15: TRLLabel; + RLLabel16: TRLLabel; + RLLabel17: TRLLabel; + RLLabel18: TRLLabel; + RLLabel19: TRLLabel; + RLLabel20: TRLLabel; + RLLabel21: TRLLabel; + RLDBText12: TRLDBText; + RLDBText13: TRLDBText; + RLDBText14: TRLDBText; + RLDBText15: TRLDBText; + RLDBText16: TRLDBText; + RLDBText17: TRLDBText; + RLMemo1: TRLMemo; + RLLabel1: TRLLabel; + RLDBText18: TRLDBText; + zqryTitulosVL_DESC_PRINCIPAL: TFloatField; + RLLabel22: TRLLabel; + RLDBResult8: TRLDBResult; + zqryTitulosATRASO: TIntegerField; + RLSystemInfo1: TRLSystemInfo; + zqryTitulosID_TITULO: TIntegerField; + zqryTitulosVL_TITULO: TCurrencyField; + zqryTitulosVL_JUROS: TFloatField; + zqryTitulosID_DEVEDOR: TIntegerField; + zqryTitulosID_EMPRESA: TIntegerField; + rotblRepasseFase: TZReadOnlyQuery; + rotblRepasseFaseID_FASE: TIntegerField; + rotblRepasseFasePR_PRINCIPAL: TFloatField; + rotblRepasseFasePR_JUROS: TFloatField; + rotblRepasseFasePR_MULTA: TFloatField; + rotblRepasseFasePR_ENCARGOS: TFloatField; + rotblRepasseFasePR_CORRIGIDO: TFloatField; + rotblRepasseFaseMIN_ATRASO: TIntegerField; + rotblRepasseFaseMAX_ATRASO: TIntegerField; + rotblRepasseFaseID_REPASSE: TIntegerField; + rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField; + rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField; + zqryTitulosVL_REPASSE_PRIN: TFloatField; + zqryTitulosVL_DESC_JUROS: TFloatField; + zqryTitulosVL_REPASSE_JUROS: TFloatField; + zqryTitulosVL_DESC_MULTA: TFloatField; + zqryTitulosVL_REPASSE_MULTA: TFloatField; + zqryTitulosVL_INDICADOR: TFloatField; + zqryTitulosVL_DESC_INDICADOR: TFloatField; + zqryTitulosVL_REPASSE_CORRIGIDO: TFloatField; + zqryTitulosTP_PRESTACAO: TWideStringField; + zqryTitulosVL_REPASSE_ENCARGOS: TFloatField; + procedure frdbimg_logoBeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure frPrestacaoBeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure zqryTitulosCalcFields(DataSet: TDataSet); + procedure frPrestacaoAfterPrint(Sender: TObject); + procedure RLMemo1BeforePrint(Sender: TObject; var Text: string; + var PrintIt: Boolean); + private + sql, sqlt: string; + procedure SalvarReciboPDF; + { Private declarations } + public + { Public declarations } + end; + +var + relPrestacaoContas: TrelPrestacaoContas; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TrelPrestacaoContas.frdbimg_logoBeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + if not dtmSystem.tblEmpresa.Active then + begin + dtmSystem.tblEmpresa.Open; + end; + +end; + +procedure TrelPrestacaoContas.frPrestacaoAfterPrint(Sender: TObject); +begin + SalvarReciboPDF; + dtmSystem.tblAcordos.sql.Text := sql; + dtmSystem.tblTitulos.sql.Text := sqlt; + dtmSystem.tblDevedores.Open; + dtmSystem.tblTitulos.Open; +end; + +procedure TrelPrestacaoContas.frPrestacaoBeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + // zqryTitulos.Open; + dtmSystem.tblDevedores.Close; + dtmSystem.tblTitulos.Close; +end; + +procedure TrelPrestacaoContas.RLMemo1BeforePrint(Sender: TObject; + var Text: string; var PrintIt: Boolean); +begin + if RLMemo1.Width >= frpnl_headertop.Width then + begin + // RLMemo1.AutoSize := false; + RLMemo1.Width := frpnl_headertop.Width - 10; + end; +end; + +procedure TrelPrestacaoContas.SalvarReciboPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; + // path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + path := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\PRESTACAO_CONTAS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + dtmSystem.tblCHGEmpresaTX_NOME.AsString; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + file_name := path + '\RELATORIO_PRESTACAO_CONTAS-' + FormatDateTime('HH-mm', + Time) + '.pdf'; + fr_filterpdf.FileName := file_name; + frPrestacao.SaveToFile(file_name); +end; + +procedure TrelPrestacaoContas.zqryTitulosCalcFields(DataSet: TDataSet); +var + pt_principal, pt_juros, pt_multa, pt_encargos, pt_corrigido: Currency; + atraso, index: Integer; + ac_pr, ac_j, ac_m, ac_enc, ac_cor: array of Currency; + vl_pr, vl_j, vl_m, vl_enc, vl_cor, pr_pr, pr_j, pr_m, pr_enc, pr_cor, help_pr, + help_j, help_m, help_enc, help_cor: Currency; + mes, ano: string; +begin + with dtmSystem do + begin + if not tblDevedores.Active then + begin + tblDevedores.Open; + end; + if not tblTitulos.Active then + begin + tblTitulos.Open; + end; + if not tblAcordos.Active then + begin + tblAcordos.Open; + end; + if not tblCHGEmpresa.Active then + begin + tblCHGEmpresa.Open; + end; + if not tblEmpresaRepasse.Active then + begin + tblEmpresaRepasse.Open; + end; + if not tblRepasse.Active then + begin + tblRepasse.Open; + end; + if not tblRepasseFase.Active then + begin + tblRepasseFase.Open; + end; + if zqryTitulosID_TITULO.AsString <> '' then + begin + if zqryTitulosTP_PRESTACAO.AsString = 'N' then + begin + sql := tblAcordos.sql.Text; + sqlt := tblTitulos.sql.Text; + tblAcordos.sql.Text := 'select * from sys_acordos'; + tblAcordos.Filtered := false; + tblAcordos.Filter := 'ID_PARCELA = ' + zqryTitulosID_TITULO.AsString; + tblAcordos.Filtered := true; + tblTitulos.sql.Text := 'select * from chg_titulos'; + tblTitulos.Open; + tblAcordos.Open; + // pt_principal := 0; + // pt_juros := 0; + // pt_multa := 0; + // pt_encargos := 0; + // pt_corrigido := 0; + if not tblAcordos.IsEmpty then + begin + tblAcordos.First; + vl_pr := 0; + vl_j := 0; + vl_m := 0; + vl_enc := 0; + vl_cor := 0; + setlength(ac_pr, 0); + setlength(ac_j, 0); + setlength(ac_m, 0); + setlength(ac_enc, 0); + setlength(ac_cor, 0); + setlength(ac_pr, tblAcordos.RecordCount); + setlength(ac_j, tblAcordos.RecordCount); + setlength(ac_m, tblAcordos.RecordCount); + setlength(ac_enc, tblAcordos.RecordCount); + setlength(ac_cor, tblAcordos.RecordCount); + pr_pr := 0; + pr_j := 0; + pr_m := 0; + pr_enc := 0; + pr_cor := 0; + index := 0; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + + if not(tblTitulosTP_PRESTACAO.AsString = 'N') then + begin + vl_pr := vl_pr + tblTitulosVL_TITULO.AsCurrency; + vl_j := vl_j + tblTitulosVL_JUROS.AsCurrency; + vl_m := vl_m + tblTitulosVL_MULTA.AsCurrency; + vl_enc := vl_enc + tblTitulosVL_ENCARGOS.AsCurrency; + vl_cor := vl_cor + tblTitulosVL_CORRIGIDO.AsCurrency; + end; + // else + // begin + // // pt_principal := pt_principal + + // // tblTitulosVL_REPASSE_PRIN.AsCurrency; + // // pt_juros := pt_juros + tblTitulosVL_REPASSE_JUROS.AsCurrency; + // // pt_multa := pt_multa + tblTitulosVL_REPASSE_MULTA.AsCurrency; + // // pt_encargos := pt_encargos + tblTitulosVL_REPASSE_ENCARGOS. + // // AsCurrency; + // // pt_corrigido := pt_corrigido + + // // tblTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + // pt_principal := zqryTitulosVL_REPASSE_PRIN.AsCurrency; + // pt_juros := zqryTitulosVL_REPASSE_JUROS.AsCurrency; + // pt_multa := zqryTitulosVL_REPASSE_MULTA.AsCurrency; + // pt_encargos := zqryTitulosVL_REPASSE_ENCARGOS.AsCurrency; + // pt_corrigido := zqryTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + // end; + tblAcordos.Next; + end; + tblAcordos.First; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + if not(tblTitulosTP_PRESTACAO.AsString = 'N') then + begin + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + mes := inttostr + (strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + tblTitulos.Locate('ID_TITULO', + tblAcordosID_PARCELA.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + tblEmpresaRepasse.Filtered := false; + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([strtoint(mes), strtoint(ano)]), []); + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS. + AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA. + AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulos.Locate('ID_TITULO', + tblAcordosID_ORIGINAL.AsInteger, []); + + ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * help_pr; + ac_j[index] := tblTitulosVL_JUROS.AsCurrency * help_j; + ac_m[index] := tblTitulosVL_MULTA.AsCurrency * help_m; + ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * help_enc; + ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + + if vl_pr <> 0 then + begin + pr_pr := pr_pr + ((ac_pr[index] * 100) / vl_pr); + end; + if vl_j <> 0 then + begin + pr_j := pr_j + ((ac_j[index] * 100) / vl_j); + end; + if vl_m <> 0 then + begin + pr_m := pr_m + ((ac_m[index] * 100) / vl_m); + end; + if vl_enc <> 0 then + begin + pr_enc := pr_enc + ((ac_enc[index] * 100) / vl_enc); + end; + if vl_cor <> 0 then + begin + pr_cor := pr_cor + ((ac_cor[index] * 100) / vl_cor); + end; + end; + Inc(index, 1); + tblAcordos.Next; + end; + + if pr_pr = 0 then + begin + pt_principal := zqryTitulosVL_REPASSE_PRIN.AsCurrency; + end + else + begin + pt_principal := (zqryTitulosVL_TITULO.AsCurrency * pr_pr) / 100; + end; + if pr_j = 0 then + begin + pt_juros := zqryTitulosVL_REPASSE_JUROS.AsCurrency; + end + else + begin + pt_juros := (zqryTitulosVL_JUROS.AsCurrency * pr_j) / 100; + end; + if pr_m = 0 then + begin + pt_multa := zqryTitulosVL_REPASSE_MULTA.AsCurrency; + end + else + begin + pt_multa := (zqryTitulosVL_MULTA.AsCurrency * pr_m) / 100; + end; + if pr_enc = 0 then + begin + pt_encargos := zqryTitulosVL_REPASSE_ENCARGOS.AsCurrency; + end + else + begin + pt_encargos := (zqryTitulosVL_ENCARGOS.AsCurrency * pr_enc) / 100; + end; + if pr_cor = 0 then + begin + pt_corrigido := zqryTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + end + else + begin + pt_corrigido := (zqryTitulosVL_CORRIGIDO.AsCurrency * pr_cor) / 100; + end; + +// if (pr_pr = 0) and (pr_j = 0) and (pr_m = 0) and (pr_enc = 0) and +// (pr_cor = 0) then +// begin +// end +// else +// begin +// end; + end + else + begin + pt_principal := zqryTitulosVL_REPASSE_PRIN.AsCurrency; + pt_juros := zqryTitulosVL_REPASSE_JUROS.AsCurrency; + pt_multa := zqryTitulosVL_REPASSE_MULTA.AsCurrency; + pt_encargos := zqryTitulosVL_REPASSE_ENCARGOS.AsCurrency; + pt_corrigido := zqryTitulosVL_REPASSE_CORRIGIDO.AsCurrency; + end; + end + else + begin + sql := tblAcordos.sql.Text; + sqlt := tblTitulos.sql.Text; + tblAcordos.sql.Text := 'select * from sys_acordos'; + tblAcordos.Filtered := false; + tblAcordos.Filter := 'ID_PARCELA = ' + zqryTitulosID_TITULO.AsString; + tblAcordos.Filtered := true; + tblTitulos.sql.Text := 'select * from chg_titulos'; + tblTitulos.Open; + tblAcordos.Open; + if not tblAcordos.IsEmpty then + begin + tblAcordos.First; + setlength(ac_pr, 0); + setlength(ac_j, 0); + setlength(ac_m, 0); + setlength(ac_enc, 0); + setlength(ac_cor, 0); + setlength(ac_pr, tblAcordos.RecordCount); + setlength(ac_j, tblAcordos.RecordCount); + setlength(ac_m, tblAcordos.RecordCount); + setlength(ac_enc, tblAcordos.RecordCount); + setlength(ac_cor, tblAcordos.RecordCount); + vl_pr := 0; + vl_j := 0; + vl_m := 0; + vl_enc := 0; + vl_cor := 0; + pr_pr := 0; + pr_j := 0; + pr_m := 0; + pr_enc := 0; + pr_cor := 0; + index := 0; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + vl_pr := vl_pr + tblTitulosVL_TITULO.AsCurrency; + vl_j := vl_j + tblTitulosVL_JUROS.AsCurrency; + vl_m := vl_m + tblTitulosVL_MULTA.AsCurrency; + vl_enc := vl_enc + tblTitulosVL_ENCARGOS.AsCurrency; + vl_cor := vl_cor + tblTitulosVL_CORRIGIDO.AsCurrency; + tblAcordos.Next; + end; + tblAcordos.First; + while not tblAcordos.Eof do + begin + tblDevedores.Locate('ID_DEVEDOR', + tblAcordosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + tblTitulos.Locate('ID_TITULO', tblAcordosID_PARCELA.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + tblTitulosID_EMPRESA.AsInteger, []); + + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', + VarArrayOf([mes, ano]), []); + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + + if not rotblRepasseFase.IsEmpty then + begin + help_pr := (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + help_j := (rotblRepasseFasePR_JUROS.AsCurrency / 100); + help_m := (rotblRepasseFasePR_MULTA.AsCurrency / 100); + help_enc := (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + help_cor := (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + help_pr := + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + help_j := (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + help_m := (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + help_enc := + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + help_cor := + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + + tblTitulos.Locate('ID_TITULO', tblAcordosID_ORIGINAL.AsInteger, []); + + ac_pr[index] := tblTitulosVL_TITULO.AsCurrency * help_pr; + ac_j[index] := tblTitulosVL_JUROS.AsCurrency * help_j; + ac_m[index] := tblTitulosVL_MULTA.AsCurrency * help_m; + ac_enc[index] := tblTitulosVL_ENCARGOS.AsCurrency * help_enc; + ac_cor[index] := tblTitulosVL_CORRIGIDO.AsCurrency * help_cor; + + if vl_pr <> 0 then + begin + pr_pr := pr_pr + ((ac_pr[index] * 100) / vl_pr); + end; + if vl_j <> 0 then + begin + pr_j := pr_j + ((ac_j[index] * 100) / vl_j); + end; + if vl_m <> 0 then + begin + pr_m := pr_m + ((ac_m[index] * 100) / vl_m); + end; + if vl_enc <> 0 then + begin + pr_enc := pr_enc + ((ac_enc[index] * 100) / vl_enc); + end; + if vl_cor <> 0 then + begin + pr_cor := pr_cor + ((ac_cor[index] * 100) / vl_cor); + end; + // tblRepasseFase.Filtered := true; + Inc(index, 1); + tblAcordos.Next; + end; + pt_principal := (zqryTitulosVL_TITULO.AsCurrency * pr_pr) / 100; + pt_juros := (zqryTitulosVL_JUROS.AsCurrency * pr_j) / 100; + pt_multa := (zqryTitulosVL_MULTA.AsCurrency * pr_m) / 100; + pt_encargos := (zqryTitulosVL_ENCARGOS.AsCurrency * pr_enc) / 100; + pt_corrigido := (zqryTitulosVL_CORRIGIDO.AsCurrency * pr_cor) / 100; + end + else + begin + + tblDevedores.Locate('ID_DEVEDOR', + zqryTitulosID_DEVEDOR.AsInteger, []); + tblTitulos.Locate('ID_TITULO', zqryTitulosID_TITULO.AsInteger, []); + tblCHGEmpresa.Locate('ID_EMPRESA', + zqryTitulosID_EMPRESA.AsInteger, []); + atraso := DaysBetween(tblTitulosDT_PAGAMENTO.AsDateTime, + tblTitulosDT_VENCIMENTO.AsDateTime); + mes := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 6, 2))); + ano := copy(FormatDateTime('yyyy-mm-dd', + tblTitulosDT_PAGAMENTO.AsDateTime), 1, 4); + tblEmpresaRepasse.Locate('ID_MES;ID_ANO', VarArrayOf([mes, ano]), []); + rotblRepasseFase.Close; + rotblRepasseFase.sql.Text := + 'select * from sys_repasses_fases where id_repasse = ' + + QuotedStr(tblEmpresaRepasseID_ITEM.AsString) + + ' and min_atraso <= ' + inttostr(atraso) + ' and ' + + inttostr(atraso) + ' <= max_atraso'; + rotblRepasseFase.Open; + if not rotblRepasseFase.IsEmpty then + begin + pt_principal := zqryTitulosVL_TITULO.AsCurrency * + (rotblRepasseFasePR_PRINCIPAL.AsCurrency / 100); + pt_juros := zqryTitulosVL_JUROS.AsCurrency * + (rotblRepasseFasePR_JUROS.AsCurrency / 100); + pt_multa := zqryTitulosVL_MULTA.AsCurrency * + (rotblRepasseFasePR_MULTA.AsCurrency / 100); + pt_encargos := zqryTitulosVL_ENCARGOS.AsCurrency * + (rotblRepasseFasePR_ENCARGOS.AsCurrency / 100); + pt_corrigido := zqryTitulosVL_CORRIGIDO.AsCurrency * + (rotblRepasseFasePR_CORRIGIDO.AsCurrency / 100); + end + else + begin + pt_principal := zqryTitulosVL_TITULO.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_PRINCIPAL.AsCurrency / 100); + pt_juros := zqryTitulosVL_JUROS.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_JUROS.AsCurrency / 100); + pt_multa := zqryTitulosVL_MULTA.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_MULTA.AsCurrency / 100); + pt_encargos := zqryTitulosVL_ENCARGOS.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_ENCARGOS.AsCurrency / 100); + pt_corrigido := zqryTitulosVL_CORRIGIDO.AsCurrency * + (dtmSystem.tblEmpresaRepassePR_CORRIGIDO.AsCurrency / 100); + end; + end; + end; + zqryTitulosVL_RETIDO.AsCurrency := pt_principal + pt_juros + pt_multa + + pt_encargos + pt_corrigido; + zqryTitulosVL_REPASSE.AsCurrency := zqryTitulosVL_CORRIGIDO.AsCurrency - + zqryTitulosVL_RETIDO.AsCurrency; + end; + end; + +end; + +end. diff --git a/urelRecibo.dfm b/urelRecibo.dfm new file mode 100644 index 0000000..0bb078b --- /dev/null +++ b/urelRecibo.dfm @@ -0,0 +1,1941 @@ +inherited relRecibo: TrelRecibo + BorderStyle = bsNone + Caption = 'relRecibo' + ClientHeight = 1151 + ClientWidth = 798 + ExplicitWidth = 798 + ExplicitHeight = 1151 + PixelsPerInch = 96 + TextHeight = 13 + inherited stbStatus: TStatusBar + Top = 1132 + Width = 798 + ExplicitTop = 1132 + ExplicitWidth = 798 + end + object frRecibo: TRLReport + AlignWithMargins = True + Left = 0 + Top = 0 + Width = 794 + Height = 1123 + Margins.LeftMargin = 5.000000000000000000 + Margins.TopMargin = 6.000000000000000000 + Margins.RightMargin = 5.000000000000000000 + Margins.BottomMargin = 2.000000000000000000 + AllowedBands = [btHeader, btTitle, btColumnHeader, btDetail, btColumnFooter, btSummary, btFooter] + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + RealBounds.UsedUnit = buMilimeters + Title = 'Recibo' + AfterPrint = frReciboAfterPrint + BeforePrint = frReciboBeforePrint + object frsubdbnd1: TRLSubDetail + AlignWithMargins = True + Left = 19 + Top = 23 + Width = 756 + Height = 250 + AllowedBands = [btHeader, btTitle, btColumnHeader, btDetail, btColumnFooter, btSummary, btFooter] + DataSource = dtsTitulos + IntegralHeight = True + BeforePrint = frsubdbnd1BeforePrint + object frb_detail: TRLBand + Left = 0 + Top = 140 + Width = 756 + Height = 15 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + Borders.FixedLeft = True + object frdblbl_vencimento: TRLDBText + Left = 191 + Top = 1 + Width = 87 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_juros: TRLDBText + Left = 341 + Top = 1 + Width = 57 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_multa: TRLDBText + Left = 411 + Top = 1 + Width = 58 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_principal: TRLDBText + Left = 261 + Top = 1 + Width = 74 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_encargos: TRLDBText + Left = 471 + Top = 1 + Width = 81 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_descontos: TRLDBText + Left = 651 + Top = 1 + Width = 86 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_total: TRLDBText + Left = 696 + Top = 1 + Width = 79 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText2: TRLDBText + Left = 511 + Top = 1 + Width = 70 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_DESPESA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText4: TRLDBText + Left = 591 + Top = 1 + Width = 64 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_EXTRAS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText1: TRLDBText + Left = 1 + Top = 1 + Width = 189 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + object frb_footer: TRLBand + Left = 0 + Top = 155 + Width = 756 + Height = 95 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_organizasum: TRLPanel + Left = 0 + Top = 1 + Width = 761 + Height = 15 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object RLDBResult1: TRLDBResult + Left = 511 + Top = 0 + Width = 102 + Height = 14 + Align = faTopOnly + DataField = 'VL_DESPESA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult3: TRLDBResult + Left = 591 + Top = 0 + Width = 96 + Height = 14 + Align = faTopOnly + DataField = 'VL_EXTRAS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + end + object frdbresult_juros: TRLDBResult + Left = 341 + Top = 1 + Width = 89 + Height = 14 + Align = faTopOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_multa: TRLDBResult + Left = 411 + Top = 1 + Width = 90 + Height = 14 + Align = faTopOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_principal: TRLDBResult + Left = 261 + Top = 1 + Width = 106 + Height = 14 + Align = faTopOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_encargos: TRLDBResult + Left = 471 + Top = 1 + Width = 113 + Height = 14 + Align = faTopOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_descontos: TRLDBResult + Left = 651 + Top = 1 + Width = 118 + Height = 14 + Align = faTopOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_total: TRLDBResult + Left = 696 + Top = 1 + Width = 111 + Height = 14 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frlbl_formarecebimento: TRLLabel + Left = 1 + Top = 17 + Width = 161 + Height = 16 + Align = faLeftOnly + Caption = 'Forma de Recebimento: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frpnl_cheque: TRLPanel + Left = 1 + Top = 32 + Width = 520 + Height = 16 + Align = faLeftOnly + Visible = False + object frlbl_nrcheque: TRLLabel + Left = 0 + Top = 0 + Width = 94 + Height = 16 + Align = faLeft + Caption = 'Nr'#186' do cheque: ' + end + object frlbl_banco: TRLLabel + Left = 94 + Top = 0 + Width = 49 + Height = 16 + Align = faLeft + Caption = 'Banco: ' + end + object frlbl_praca: TRLLabel + Left = 143 + Top = 0 + Width = 46 + Height = 16 + Align = faLeft + Caption = 'Pra'#231'a: ' + end + end + object RLPanel5: TRLPanel + Left = 1 + Top = 76 + Width = 754 + Height = 18 + Align = faBottom + object frlbl_empresa: TRLLabel + Left = 0 + Top = 2 + Width = 236 + Height = 16 + Align = faLeftBottom + Caption = 'COBES ASS DE SERVI'#199'OS S/S LTDA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_usuario: TRLLabel + Left = 243 + Top = 2 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'Caixa: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frdblbl_usuario: TRLDBText + Left = 290 + Top = 2 + Width = 64 + Height = 16 + Align = faBottomOnly + DataField = 'TX_NOME' + DataSource = dtsCaixa + Text = '' + end + object fr_date: TRLSystemInfo + Left = 567 + Top = 5 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object fr_time: TRLSystemInfo + Left = 675 + Top = 5 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + end + object RLPanel10: TRLPanel + Left = 1 + Top = 28 + Width = 754 + Height = 48 + Align = faBottom + AutoSize = True + object fr_membobs: TRLMemo + Left = 0 + Top = 0 + Width = 754 + Height = 48 + Align = faLeftOnly + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + Lines.Strings = ( + + 'OBS.: O PRESENTE RECIBO S'#211' TER'#193' VALIDADE AP'#211'S A COMPENSA'#199#195'O DO C' + + 'HEQUE' + + 'RECIBO ACORDO CHEQUE -> CHEQUE DISPON'#205'VEL AP'#211'S A QUITA'#199#195'O NO CRE' + + 'DOR' + + 'RECIBO CREDI'#193'RIO -> DUPLICATA DISPON'#205'VEL AP'#211'S 20 DIAS DA QUITA'#199#195 + + 'O NO CREDOR') + ParentFont = False + end + end + end + object frb_header: TRLBand + Left = 0 + Top = 0 + Width = 756 + Height = 52 + AutoSize = True + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + Transparent = False + object frpnl_logo: TRLPanel + Left = 1 + Top = 1 + Width = 100 + Height = 50 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 0 + Width = 100 + Height = 50 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object frpnl_headertop: TRLPanel + Left = 101 + Top = 1 + Width = 654 + Height = 25 + Align = faTop + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_headertop: TRLLabel + Left = 0 + Top = 0 + Width = 425 + Height = 16 + Align = faLeftTop + Caption = 'ASSESSORIA DE SERVI'#199'OS LTDA - EPP CNPJ : 36.058.162/0001-28' + end + end + object frpnl_headerbot: TRLPanel + Left = 101 + Top = 26 + Width = 654 + Height = 25 + Align = faBottom + object frlbl_headerbot: TRLLabel + Left = 0 + Top = 0 + Width = 440 + Height = 16 + Align = faLeftTop + Caption = 'RUA + NUMERO + COMP + BAIRRO + CIDADE + ESTADO + TELEFONE' + end + end + end + object frb_header2: TRLBand + Left = 0 + Top = 52 + Width = 756 + Height = 88 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + Borders.FixedLeft = True + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + object frlbl_valortot: TRLLabel + Left = 1 + Top = 51 + Width = 46 + Height = 16 + Align = faBottomOnly + Caption = 'Valor: ' + end + object frlbl_vlextenso: TRLLabel + Left = 49 + Top = 51 + Width = 97 + Height = 16 + Align = faBottomOnly + end + object frpnl_nome: TRLPanel + Left = 1 + Top = 21 + Width = 754 + Height = 16 + Align = faLeftOnly + object frdblbl_cpf: TRLDBText + Left = 649 + Top = 0 + Width = 93 + Height = 16 + Align = faRight + DataField = 'CD_CPF' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = ' CPF: ' + BeforePrint = frdblbl_cpfBeforePrint + end + object frdblbl_nome: TRLDBText + Left = 99 + Top = 0 + Width = 64 + Height = 16 + Align = faLeft + DataField = 'TX_NOME' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frlbl_recebemos: TRLLabel + Left = 0 + Top = 0 + Width = 99 + Height = 16 + Align = faLeft + Caption = 'Recebemos de: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object RLLabel6: TRLLabel + Left = 742 + Top = 0 + Width = 12 + Height = 16 + Align = faRight + Caption = ' ' + end + end + object frpnl_recibo: TRLPanel + Left = -1 + Top = 0 + Width = 257 + Height = 24 + Align = faTopOnly + object frdblbl_nrrecibo: TRLDBText + Left = 120 + Top = 0 + Width = 127 + Height = 24 + DataField = 'NR_RECIBO' + DataSource = dtsReport + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + Visible = False + end + object frlbl_recibo: TRLLabel + Left = 0 + Top = 0 + Width = 121 + Height = 24 + Caption = 'RECIBO N'#186':' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_nr_reciboprimeiravia: TRLLabel + Left = 120 + Top = 0 + Width = 121 + Height = 24 + Caption = 'RECIBO N'#186':' + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frpnl_headers: TRLPanel + Left = 1 + Top = 67 + Width = 754 + Height = 21 + Align = faBottom + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_vencimento: TRLLabel + Left = 190 + Top = 5 + Width = 39 + Height = 16 + Align = faBottomOnly + Caption = 'VENC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_principal: TRLLabel + Left = 260 + Top = 5 + Width = 74 + Height = 16 + Align = faBottomOnly + Caption = 'PRINCIPAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_encargos: TRLLabel + Left = 470 + Top = 5 + Width = 30 + Height = 16 + Align = faBottomOnly + Caption = 'ENC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_descontos: TRLLabel + Left = 650 + Top = 5 + Width = 39 + Height = 16 + Align = faBottomOnly + Caption = 'DESC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_total: TRLLabel + Left = 695 + Top = 5 + Width = 47 + Height = 16 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + Caption = 'TOTAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_juros: TRLLabel + Left = 340 + Top = 5 + Width = 48 + Height = 16 + Align = faBottomOnly + Caption = 'JUROS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_multa: TRLLabel + Left = 410 + Top = 5 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'MULTA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_despesas: TRLLabel + Left = 510 + Top = 5 + Width = 74 + Height = 16 + Align = faBottomOnly + Caption = 'DESPESAS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel2: TRLLabel + Left = 590 + Top = 5 + Width = 56 + Height = 16 + Align = faBottomOnly + Caption = 'EXTRAS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_nometit: TRLLabel + Left = 0 + Top = 5 + Width = 51 + Height = 16 + Align = faBottomOnly + Caption = 'T'#205'TULO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLPanel2: TRLPanel + Left = 1 + Top = 36 + Width = 754 + Height = 16 + Align = faLeftOnly + object frlbl_empresatit: TRLLabel + Left = 0 + Top = 0 + Width = 82 + Height = 16 + Align = faLeft + Caption = 'Cr'#233'dito para: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object frlbl_dtpag: TRLLabel + Left = 617 + Top = 35 + Width = 138 + Height = 16 + Align = faRightOnly + Caption = 'Data do Pagamento: ' + end + end + end + object frsubdbndmeio: TRLSubDetail + AlignWithMargins = True + Left = 19 + Top = 273 + Width = 756 + Height = 4 + AllowedBands = [btHeader, btTitle, btColumnHeader, btDetail, btColumnFooter, btSummary, btFooter] + DataSource = dtsTitulos + IntegralHeight = True + object RLBand5: TRLBand + Left = 0 + Top = 0 + Width = 756 + Height = 4 + end + end + object frsubdbnd2: TRLSubDetail + AlignWithMargins = True + Left = 19 + Top = 277 + Width = 756 + Height = 250 + AllowedBands = [btHeader, btTitle, btColumnHeader, btDetail, btColumnFooter, btSummary, btFooter] + DataSource = dtsTitulos + IntegralHeight = True + BeforePrint = frsubdbnd2BeforePrint + object frb_detail2v: TRLBand + Left = 0 + Top = 140 + Width = 756 + Height = 15 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + Borders.FixedLeft = True + object RLDBText9: TRLDBText + Left = 191 + Top = 1 + Width = 87 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText10: TRLDBText + Left = 341 + Top = 1 + Width = 57 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText11: TRLDBText + Left = 411 + Top = 1 + Width = 58 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText12: TRLDBText + Left = 261 + Top = 1 + Width = 74 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText13: TRLDBText + Left = 471 + Top = 1 + Width = 81 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText14: TRLDBText + Left = 651 + Top = 1 + Width = 86 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText15: TRLDBText + Left = 696 + Top = 1 + Width = 79 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText3: TRLDBText + Left = 511 + Top = 1 + Width = 70 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_DESPESA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText5: TRLDBText + Left = 591 + Top = 1 + Width = 64 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + DataField = 'VL_EXTRAS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLDBText6: TRLDBText + Left = 1 + Top = 1 + Width = 189 + Height = 14 + Margins.Bottom = 1 + Align = faBottomOnly + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + object frb_footer2v: TRLBand + Left = 0 + Top = 155 + Width = 756 + Height = 95 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLPanel3: TRLPanel + Left = 0 + Top = 1 + Width = 761 + Height = 15 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object RLDBResult2: TRLDBResult + Left = 511 + Top = 0 + Width = 102 + Height = 14 + Align = faTopOnly + DataField = 'VL_DESPESA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult4: TRLDBResult + Left = 591 + Top = 0 + Width = 96 + Height = 14 + Align = faTopOnly + DataField = 'VL_EXTRAS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + end + object RLDBResult7: TRLDBResult + Left = 341 + Top = 1 + Width = 89 + Height = 14 + Align = faTopOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult8: TRLDBResult + Left = 411 + Top = 1 + Width = 90 + Height = 14 + Align = faTopOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult9: TRLDBResult + Left = 261 + Top = 1 + Width = 106 + Height = 14 + Align = faTopOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult10: TRLDBResult + Left = 471 + Top = 1 + Width = 113 + Height = 14 + Align = faTopOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult11: TRLDBResult + Left = 651 + Top = 1 + Width = 118 + Height = 14 + Align = faTopOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object RLDBResult12: TRLDBResult + Left = 696 + Top = 1 + Width = 111 + Height = 14 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frlbl_formarecebimento2v: TRLLabel + Left = 1 + Top = 17 + Width = 161 + Height = 16 + Align = faLeftOnly + Caption = 'Forma de Recebimento: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frpnl_cheque2v: TRLPanel + Left = 1 + Top = 32 + Width = 520 + Height = 16 + Align = faLeftOnly + Visible = False + object frlbl_nrcheque2v: TRLLabel + Left = 0 + Top = 0 + Width = 94 + Height = 16 + Align = faLeft + Caption = 'Nr'#186' do cheque: ' + end + object frlbl_banco2v: TRLLabel + Left = 94 + Top = 0 + Width = 49 + Height = 16 + Align = faLeft + Caption = 'Banco: ' + end + object frlbl_praca2v: TRLLabel + Left = 143 + Top = 0 + Width = 46 + Height = 16 + Align = faLeft + Caption = 'Pra'#231'a: ' + end + end + object RLPanel11: TRLPanel + Left = 1 + Top = 80 + Width = 754 + Height = 14 + Align = faBottom + AutoExpand = True + object RLLabel18: TRLLabel + Left = 0 + Top = -2 + Width = 236 + Height = 16 + Align = faLeftBottom + Caption = 'COBES ASS DE SERVI'#199'OS S/S LTDA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel19: TRLLabel + Left = 243 + Top = -2 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'Caixa: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLDBText16: TRLDBText + Left = 290 + Top = -2 + Width = 64 + Height = 16 + Align = faBottomOnly + DataField = 'TX_NOME' + DataSource = dtsCaixa + Text = '' + end + object RLSystemInfo2: TRLSystemInfo + Left = 567 + Top = 1 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 675 + Top = 1 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + end + object RLPanel12: TRLPanel + Left = 1 + Top = 32 + Width = 754 + Height = 48 + Align = faBottom + AutoExpand = True + object fr_membobs2v: TRLMemo + Left = 0 + Top = 0 + Width = 754 + Height = 48 + Align = faLeftOnly + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + Lines.Strings = ( + + 'OBS.: O PRESENTE RECIBO S'#211' TER'#193' VALIDADE AP'#211'S A COMPENSA'#199#195'O DO C' + + 'HEQUE' + + 'RECIBO ACORDO CHEQUE -> CHEQUE DISPON'#205'VEL AP'#211'S A QUITA'#199#195'O NO CRE' + + 'DOR' + + 'RECIBO CREDI'#193'RIO -> DUPLICATA DISPON'#205'VEL AP'#211'S 20 DIAS DA QUITA'#199#195 + + 'O NO CREDOR') + ParentFont = False + end + end + end + object frb_header2v: TRLBand + Left = 0 + Top = 0 + Width = 756 + Height = 52 + AutoSize = True + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + Transparent = False + object frpnl_logo2v: TRLPanel + Left = 1 + Top = 1 + Width = 100 + Height = 50 + Align = faLeftMost + object frdbimg_logo2v: TRLDBImage + Left = 0 + Top = 0 + Width = 100 + Height = 50 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object RLPanel6: TRLPanel + Left = 101 + Top = 1 + Width = 654 + Height = 25 + Align = faTop + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_headertop2v: TRLLabel + Left = 0 + Top = 0 + Width = 425 + Height = 16 + Align = faLeftTop + Caption = 'ASSESSORIA DE SERVI'#199'OS LTDA - EPP CNPJ : 36.058.162/0001-28' + end + end + object RLPanel7: TRLPanel + Left = 101 + Top = 26 + Width = 654 + Height = 25 + Align = faBottom + object frlbl_headerbot2v: TRLLabel + Left = 0 + Top = 0 + Width = 500 + Height = 16 + Align = faLeftTop + Caption = + 'RUA DO IMPERADOR 288 SL 403 - CENTRO - PETROPOLIS - RJ - TEL 22' + + '44-2525' + end + end + end + object frb_header22v: TRLBand + Left = 0 + Top = 52 + Width = 756 + Height = 88 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + Borders.FixedLeft = True + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + object frlbl_valortot2v: TRLLabel + Left = 1 + Top = 51 + Width = 46 + Height = 16 + Align = faBottomOnly + Caption = 'Valor: ' + end + object frlbl_vlextenso2v: TRLLabel + Left = 49 + Top = 51 + Width = 111 + Height = 16 + Align = faBottomOnly + end + object RLPanel8: TRLPanel + Left = 1 + Top = 21 + Width = 754 + Height = 16 + Align = faLeftOnly + object frdblbl_cpf2v: TRLDBText + Left = 649 + Top = 0 + Width = 93 + Height = 16 + Align = faRight + DataField = 'CD_CPF' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = ' CPF: ' + BeforePrint = frdblbl_cpf2vBeforePrint + end + object frdblbl_nome2v: TRLDBText + Left = 99 + Top = 0 + Width = 64 + Height = 16 + Align = faLeft + DataField = 'TX_NOME' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLLabel30: TRLLabel + Left = 0 + Top = 0 + Width = 99 + Height = 16 + Align = faLeft + Caption = 'Recebemos de: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object RLLabel7: TRLLabel + Left = 742 + Top = 0 + Width = 12 + Height = 16 + Align = faRight + Caption = ' ' + end + end + object RLPanel9: TRLPanel + Left = -1 + Top = 0 + Width = 257 + Height = 24 + Align = faTopOnly + object RLDBText19: TRLDBText + Left = 120 + Top = 0 + Width = 127 + Height = 24 + DataField = 'NR_RECIBO' + DataSource = dtsReport + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + Visible = False + BeforePrint = RLDBText19BeforePrint + end + object RLLabel31: TRLLabel + Left = 0 + Top = 0 + Width = 121 + Height = 24 + Caption = 'RECIBO N'#186':' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_nr_recibosegundavia: TRLLabel + Left = 120 + Top = 0 + Width = 121 + Height = 24 + Caption = 'RECIBO N'#186':' + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLPanel1: TRLPanel + Left = 1 + Top = 67 + Width = 754 + Height = 21 + Align = faBottom + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = False + Borders.DrawBottom = False + object RLLabel4: TRLLabel + Left = 190 + Top = 5 + Width = 39 + Height = 16 + Align = faBottomOnly + Caption = 'VENC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel11: TRLLabel + Left = 260 + Top = 5 + Width = 74 + Height = 16 + Align = faBottomOnly + Caption = 'PRINCIPAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel12: TRLLabel + Left = 470 + Top = 5 + Width = 30 + Height = 16 + Align = faBottomOnly + Caption = 'ENC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel13: TRLLabel + Left = 650 + Top = 5 + Width = 39 + Height = 16 + Align = faBottomOnly + Caption = 'DESC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel14: TRLLabel + Left = 695 + Top = 5 + Width = 47 + Height = 16 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + Caption = 'TOTAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel15: TRLLabel + Left = 340 + Top = 5 + Width = 48 + Height = 16 + Align = faBottomOnly + Caption = 'JUROS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel16: TRLLabel + Left = 410 + Top = 5 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'MULTA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel1: TRLLabel + Left = 510 + Top = 5 + Width = 74 + Height = 16 + Align = faBottomOnly + Caption = 'DESPESAS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel3: TRLLabel + Left = 590 + Top = 5 + Width = 56 + Height = 16 + Align = faBottomOnly + Caption = 'EXTRAS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel5: TRLLabel + Left = 0 + Top = 5 + Width = 51 + Height = 16 + Align = faBottomOnly + Caption = 'T'#205'TULO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLPanel4: TRLPanel + Left = 1 + Top = 36 + Width = 754 + Height = 16 + Align = faLeftOnly + object frlbl_empresatit2v: TRLLabel + Left = 0 + Top = 0 + Width = 82 + Height = 16 + Align = faLeft + Caption = 'Cr'#233'dito para: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object frlbl_dtpag2v: TRLLabel + Left = 617 + Top = 35 + Width = 138 + Height = 16 + Align = faRightOnly + Caption = 'Data do Pagamento: ' + end + end + end + end + object dtsReport: TDataSource + DataSet = dtmSystem.tblRecibo + Left = 608 + Top = 8 + end + object dtsDevedor: TDataSource + DataSet = dtmSystem.tblDevedores + Left = 681 + Top = 8 + end + object dtsTitulos: TDataSource + DataSet = dtmSystem.tblConteudoRecibo + Left = 753 + Top = 8 + end + object dtsCaixa: TDataSource + DataSet = dtmSystem.tblUsuariosConsulta + Left = 486 + Top = 8 + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + ImageFormat = ifBitmap + Left = 550 + Top = 8 + end +end diff --git a/urelRecibo.pas b/urelRecibo.pas new file mode 100644 index 0000000..e6f8e51 --- /dev/null +++ b/urelRecibo.pas @@ -0,0 +1,387 @@ +unit urelRecibo; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, System.Math, System.DateUtils, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, RLReport, Data.DB, + Vcl.ComCtrls, RLRichText, RLFilters, RLPDFFilter, RLPreviewForm, RLPrinters, + frxClass, frxDBSet, frxRich; + +type + TrelRecibo = class(TmstMaster) + dtsReport: TDataSource; + dtsDevedor: TDataSource; + dtsTitulos: TDataSource; + frRecibo: TRLReport; + frb_header: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frpnl_headertop: TRLPanel; + frlbl_headertop: TRLLabel; + frpnl_headerbot: TRLPanel; + frlbl_headerbot: TRLLabel; + frb_header2: TRLBand; + frlbl_valortot: TRLLabel; + frlbl_vlextenso: TRLLabel; + frpnl_nome: TRLPanel; + frdblbl_cpf: TRLDBText; + frdblbl_nome: TRLDBText; + frlbl_recebemos: TRLLabel; + frpnl_recibo: TRLPanel; + frdblbl_nrrecibo: TRLDBText; + frlbl_recibo: TRLLabel; + frb_footer: TRLBand; + frpnl_organizasum: TRLPanel; + frdbresult_juros: TRLDBResult; + frdbresult_multa: TRLDBResult; + frdbresult_principal: TRLDBResult; + frdbresult_encargos: TRLDBResult; + frdbresult_descontos: TRLDBResult; + frdbresult_total: TRLDBResult; + frlbl_formarecebimento: TRLLabel; + frpnl_cheque: TRLPanel; + frlbl_nrcheque: TRLLabel; + frlbl_banco: TRLLabel; + frlbl_praca: TRLLabel; + frb_detail: TRLBand; + frdblbl_vencimento: TRLDBText; + frdblbl_juros: TRLDBText; + frdblbl_multa: TRLDBText; + frdblbl_principal: TRLDBText; + frdblbl_encargos: TRLDBText; + frdblbl_descontos: TRLDBText; + frdblbl_total: TRLDBText; + frsubdbnd1: TRLSubDetail; + frsubdbndmeio: TRLSubDetail; + frb_detail2v: TRLBand; + RLDBText9: TRLDBText; + RLDBText10: TRLDBText; + RLDBText11: TRLDBText; + RLDBText12: TRLDBText; + RLDBText13: TRLDBText; + RLDBText14: TRLDBText; + RLDBText15: TRLDBText; + frb_footer2v: TRLBand; + RLPanel3: TRLPanel; + RLDBResult7: TRLDBResult; + RLDBResult8: TRLDBResult; + RLDBResult9: TRLDBResult; + RLDBResult10: TRLDBResult; + RLDBResult11: TRLDBResult; + RLDBResult12: TRLDBResult; + frlbl_formarecebimento2v: TRLLabel; + frpnl_cheque2v: TRLPanel; + frlbl_nrcheque2v: TRLLabel; + frlbl_banco2v: TRLLabel; + frlbl_praca2v: TRLLabel; + frb_header2v: TRLBand; + frpnl_logo2v: TRLPanel; + frdbimg_logo2v: TRLDBImage; + RLPanel6: TRLPanel; + frlbl_headertop2v: TRLLabel; + RLPanel7: TRLPanel; + frlbl_headerbot2v: TRLLabel; + frb_header22v: TRLBand; + frlbl_valortot2v: TRLLabel; + frlbl_vlextenso2v: TRLLabel; + RLPanel8: TRLPanel; + frdblbl_cpf2v: TRLDBText; + frdblbl_nome2v: TRLDBText; + RLLabel30: TRLLabel; + RLPanel9: TRLPanel; + RLDBText19: TRLDBText; + RLLabel31: TRLLabel; + frsubdbnd2: TRLSubDetail; + RLBand5: TRLBand; + RLDBText2: TRLDBText; + RLDBResult1: TRLDBResult; + RLDBText3: TRLDBText; + RLDBResult2: TRLDBResult; + RLDBText4: TRLDBText; + RLDBResult3: TRLDBResult; + RLDBText5: TRLDBText; + RLDBResult4: TRLDBResult; + dtsCaixa: TDataSource; + frpnl_headers: TRLPanel; + frlbl_vencimento: TRLLabel; + frlbl_principal: TRLLabel; + frlbl_encargos: TRLLabel; + frlbl_descontos: TRLLabel; + frlbl_total: TRLLabel; + frlbl_juros: TRLLabel; + frlbl_multa: TRLLabel; + frlbl_despesas: TRLLabel; + RLLabel2: TRLLabel; + RLPanel1: TRLPanel; + RLLabel4: TRLLabel; + RLLabel11: TRLLabel; + RLLabel12: TRLLabel; + RLLabel13: TRLLabel; + RLLabel14: TRLLabel; + RLLabel15: TRLLabel; + RLLabel16: TRLLabel; + RLLabel1: TRLLabel; + RLLabel3: TRLLabel; + frlbl_nometit: TRLLabel; + RLDBText1: TRLDBText; + RLLabel5: TRLLabel; + RLDBText6: TRLDBText; + RLPanel2: TRLPanel; + frlbl_empresatit: TRLLabel; + RLPanel4: TRLPanel; + frlbl_empresatit2v: TRLLabel; + frlbl_dtpag: TRLLabel; + frlbl_dtpag2v: TRLLabel; + RLPanel5: TRLPanel; + frlbl_empresa: TRLLabel; + frlbl_usuario: TRLLabel; + frdblbl_usuario: TRLDBText; + fr_date: TRLSystemInfo; + fr_time: TRLSystemInfo; + RLPanel10: TRLPanel; + fr_membobs: TRLMemo; + RLPanel11: TRLPanel; + RLLabel18: TRLLabel; + RLLabel19: TRLLabel; + RLDBText16: TRLDBText; + RLSystemInfo2: TRLSystemInfo; + RLSystemInfo1: TRLSystemInfo; + RLPanel12: TRLPanel; + fr_membobs2v: TRLMemo; + RLLabel6: TRLLabel; + RLLabel7: TRLLabel; + frlbl_nr_reciboprimeiravia: TRLLabel; + frlbl_nr_recibosegundavia: TRLLabel; + fr_filterpdf: TRLPDFFilter; + procedure frReciboBeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure frReciboAfterPrint(Sender: TObject); + procedure frsubdbnd2BeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure frsubdbnd1BeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure frdblbl_cpfBeforePrint(Sender: TObject; var AText: string; + var PrintIt: Boolean); + procedure frdblbl_cpf2vBeforePrint(Sender: TObject; var AText: string; + var PrintIt: Boolean); + procedure RLDBText19BeforePrint(Sender: TObject; var AText: string; + var PrintIt: Boolean); + private + procedure SalvarReciboPDF; + function CmtoPix(cm: double): integer; + { Private declarations } + public + duaspags: Boolean; + nr_recibo_print: string; + { Public declarations } + end; + +var + relRecibo: TrelRecibo; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem, ufrmAtendimento; + +function TrelRecibo.CmtoPix(cm: double): integer; +var + ppcm: double; +begin + ppcm := Screen.PixelsPerInch / 2.54; + Result := Trunc(ppcm * cm); +end; + +procedure TrelRecibo.frdblbl_cpf2vBeforePrint(Sender: TObject; + var AText: string; var PrintIt: Boolean); +begin + inherited; + frdblbl_cpf2v.Left := frdblbl_nome2v.Left + frdblbl_nome2v.Width + 10; +end; + +procedure TrelRecibo.frdblbl_cpfBeforePrint(Sender: TObject; var AText: string; + var PrintIt: Boolean); +begin + inherited; + frdblbl_cpf.Left := frdblbl_nome.Left + frdblbl_nome.Width + 10; +end; + +procedure TrelRecibo.frReciboAfterPrint(Sender: TObject); +begin + frmAtendimento.btn_concluir.Enabled := true; + SalvarReciboPDF; +end; + +procedure TrelRecibo.frReciboBeforePrint(Sender: TObject; var PrintIt: Boolean); +begin + dtsReport.dataset.open; + dtsDevedor.dataset.open; + dtsTitulos.dataset.open; + if not dtmSystem.tblUsuariosConsulta.Active then + begin + dtmSystem.tblUsuariosConsulta.open; + end; + dtmSystem.tblUsuariosConsulta.Locate('ID_USUARIO', dtmSystem.id_usuario, []); +end; + +procedure TrelRecibo.frsubdbnd1BeforePrint(Sender: TObject; + var PrintIt: Boolean); +var + tam: double; + papel: integer; +begin + inherited; + tam := frsubdbnd1.Height + frsubdbnd2.Height + frsubdbndmeio.Height; + papel := CmtoPix(29); + if tam < papel then + begin + if (frsubdbnd1.Height + frsubdbndmeio.Height + frsubdbndmeio.Height) <= + ceil(papel / 2) then + begin + frb_footer.Height := floor(papel / 2) - frb_detail.Height - + frb_header.Height - frb_header2.Height - 100; + frb_footer2v.Height := frb_footer.Height; + duaspags := false; + end + else + begin + duaspags := true; + end; + end + else + begin + duaspags := true; + end; +end; + +procedure TrelRecibo.frsubdbnd2BeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + if duaspags then + begin + frsubdbnd2.PageBreaking := pbBeforePrint; + end + else + begin + frsubdbnd2.PageBreaking := RLReport.pbNone; + end; + dtsReport.dataset.RecNo := dtsReport.dataset.RecordCount; + dtmSystem.tblConteudoRecibo.RecNo := 1; +end; + +procedure TrelRecibo.RLDBText19BeforePrint(Sender: TObject; var AText: string; + var PrintIt: Boolean); +begin + inherited; + // dtsReport.DataSet.First; +end; + +procedure TrelRecibo.SalvarReciboPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: integer; +begin + // Fmt := TFormatSettings.Create; + // for i := 0 to High(meses) do + // begin + // Fmt.LongMonthNames[i] := meses[i]; + // end; + // path := dtmSystem.path_executavel + '\RECIBOS'; + // if not DirectoryExists(path) then + // begin + // CreateDir(path); + // end; + // path := TrimRight(path); + // path := path + '\' + FormatDateTime('YYYY', Date); + // if not DirectoryExists(path) then + // begin + // CreateDir(path); + // end; + // // path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + // path := path + '\' + meses[MonthOf(Date)]; + // if not DirectoryExists(path) then + // begin + // CreateDir(path); + // end; + // path := path + '\' + FormatDateTime('dd', Date); + // if not DirectoryExists(path) then + // begin + // CreateDir(path); + // end; + // file_name := path + '\' + dtmSystem.tblReciboNR_RECIBO.AsString + '.pdf'; + // file_name := path + '\' + nr_recibo_print + '.pdf'; + + frmAtendimento.log_recibo.Add('N do recibo dentro do recibo: ' + + nr_recibo_print); + // file_name := 'E:\Programa_Cobranca\Win32\Debug\RECIBOS\2021\MAIO\21\teste3.pdf'; + Try + // frRecibo.SaveToFile(ExtractFilePath(Application.ExeName) + + // dtmSystem.tblReciboNR_RECIBO.AsString + '.pdf'); + frRecibo.SaveToFile(ExtractFilePath(Application.ExeName) + nr_recibo_print + + '.pdf'); + frmAtendimento.log_recibo.Add('Caminho salvo no local: ' + + ExtractFilePath(Application.ExeName) + nr_recibo_print + '.pdf'); + path := dtmSystem.path_executavel + '\RECIBOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + // path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + path := path + '\' + meses[MonthOf(Date)]; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + // file_name := path + '\' + dtmSystem.tblReciboNR_RECIBO.AsString + '.pdf'; + file_name := path + '\' + nr_recibo_print + '.pdf'; + frmAtendimento.log_recibo.Add('Caminho do recibo no servidor: ' + + file_name); + // MoveFile(PChar(ExtractFilePath(Application.ExeName) + + // dtmSystem.tblReciboNR_RECIBO.AsString + '.pdf'), PChar(file_name)); + MoveFile(PChar(ExtractFilePath(Application.ExeName) + nr_recibo_print + + '.pdf'), PChar(file_name)); + // dtmSystem.tblRecibo.Edit; + // dtmSystem.tblReciboTX_CAMINHO.AsString := file_name; + // dtmSystem.tblRecibo.Post; + Except + on E: Exception do + begin + ShowMessage + ('Erro ao tentar salvar o arquivo pdf. Por favor salve manualmente.' + + sLineBreak + 'Erro: ' + E.Message); + end; + end; + file_name := ExtractFilePath(Application.ExeName) + nr_recibo_print + + '.pdf'; + fr_filterpdf.FileName := file_name; + frRecibo.DefaultFilter := fr_filterpdf; +end; + +end. diff --git a/urelRecibosEmitidos.dfm b/urelRecibosEmitidos.dfm new file mode 100644 index 0000000..0e11b16 --- /dev/null +++ b/urelRecibosEmitidos.dfm @@ -0,0 +1,443 @@ +object relRecibosEmitidos: TrelRecibosEmitidos + Left = 0 + Top = 0 + BorderStyle = bsNone + ClientHeight = 1133 + ClientWidth = 809 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object fr_recibosemitidos: TRLReport + Left = 8 + Top = 8 + Width = 794 + Height = 1123 + DataSource = dtsqryReport + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + AfterPrint = fr_recibosemitidosAfterPrint + BeforePrint = fr_recibosemitidosBeforePrint + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 143 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frpnl_logo: TRLPanel + Left = 1 + Top = 0 + Width = 160 + Height = 143 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 1 + Width = 159 + Height = 142 + Align = faClient + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + Stretch = True + end + end + object frlbl_titulorel: TRLLabel + Left = 167 + Top = 52 + Width = 222 + Height = 24 + Caption = 'Relat'#243'rio de Recibos:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_datas: TRLLabel + Left = 167 + Top = 82 + Width = 78 + Height = 24 + Caption = 'DATAS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frbnd_columnheader: TRLBand + Left = 38 + Top = 181 + Width = 718 + Height = 16 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frlbl_nrrecibo: TRLLabel + Left = 1 + Top = 1 + Width = 18 + Height = 16 + Align = faLeftTop + Caption = 'N'#186 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_nomerecibo: TRLLabel + Left = 228 + Top = 1 + Width = 118 + Height = 16 + Align = faTopOnly + Caption = 'NOME DO RECIBO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_cpf: TRLLabel + Left = 112 + Top = 1 + Width = 30 + Height = 16 + Align = faTopOnly + Caption = 'CPF' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_vltotal: TRLLabel + Left = 495 + Top = 1 + Width = 96 + Height = 16 + Align = faTopOnly + Caption = 'VALOR TOTAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_dtimpressao: TRLLabel + Left = 596 + Top = 1 + Width = 121 + Height = 16 + Align = faRightTop + Caption = 'DATA IMPRESS'#195'O' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel1: TRLLabel + Left = 397 + Top = 1 + Width = 44 + Height = 16 + Align = faTopOnly + Caption = 'CAIXA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel2: TRLLabel + Left = 65 + Top = 1 + Width = 40 + Height = 16 + Align = faTopOnly + Caption = 'CANC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frbnd_details: TRLBand + Left = 38 + Top = 197 + Width = 718 + Height = 16 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object frdblbl_nrrecibo: TRLDBText + Left = 1 + Top = 0 + Width = 78 + Height = 16 + Align = faLeftTop + DataField = 'NR_RECIBO' + DataSource = dtsqryReport + Text = '' + end + object frdblbl_nomerecibo: TRLDBText + Left = 228 + Top = 0 + Width = 149 + Height = 16 + Align = faTopOnly + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsqryReport + Text = '' + end + object frdblbl_cpf: TRLDBText + Left = 112 + Top = 0 + Width = 108 + Height = 16 + Align = faTopOnly + DataField = 'TX_DOCUMENTO' + DataSource = dtsqryReport + Text = '' + end + object frdblbl_vltotal: TRLDBText + Left = 492 + Top = 0 + Width = 99 + Height = 16 + Align = faTopOnly + Alignment = taRightJustify + DataField = 'VL_CORRIGIDO' + DataSource = dtsqryReport + Text = '' + end + object frdblbl_dtimpressao: TRLDBText + Left = 604 + Top = 0 + Width = 106 + Height = 16 + Align = faTopOnly + Alignment = taCenter + DataField = 'DT_IMPRESSAO' + DataSource = dtsqryReport + Text = '' + end + object RLDBText1: TRLDBText + Left = 397 + Top = 0 + Width = 91 + Height = 16 + Align = faTopOnly + AutoSize = False + DataField = 'TX_CAIXA' + DataSource = dtsqryReport + Text = '' + end + object RLDBText2: TRLDBText + Left = 65 + Top = 0 + Width = 107 + Height = 16 + DataField = 'TP_CANCELADO' + DataSource = dtsqryReport + Text = '' + end + end + object RLBand1: TRLBand + Left = 38 + Top = 213 + Width = 718 + Height = 16 + BandType = btSummary + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frdbresult_sumvalor: TRLDBResult + Left = 144 + Top = 1 + Width = 183 + Height = 16 + Align = faTopOnly + Alignment = taRightJustify + DataField = 'VL_CORRIGIDO' + DataSource = dtsqryReport + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + Info = riSum + ParentFont = False + Text = 'Total: ' + Visible = False + end + object frlbl_total: TRLLabel + Left = 494 + Top = 1 + Width = 64 + Height = 16 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object frbnd_footerrel: TRLBand + Left = 38 + Top = 229 + Width = 718 + Height = 20 + BandType = btFooter + object RLSystemInfo2: TRLSystemInfo + Left = 503 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 605 + Top = 7 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + end + end + object dtsqryReport: TDataSource + DataSet = qryReport + Left = 728 + Top = 32 + end + object qryReport: TZQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'sys_recibos.*, ' + 'case when tx_cpf = '#39#39' then tx_cnpj' + 'when tx_cpf <> '#39#39' then tx_cpf' + 'end as tx_documento from sys_recibos') + Params = <> + Left = 648 + Top = 32 + object qryReportNR_RECIBO: TWideStringField + FieldName = 'NR_RECIBO' + Required = True + end + object qryReportTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 255 + end + object qryReportTX_CPF: TWideStringField + FieldName = 'TX_CPF' + Size = 14 + end + object qryReportTX_CNPJ: TWideStringField + FieldName = 'TX_CNPJ' + Size = 18 + end + object qryReportDT_IMPRESSAO: TDateTimeField + FieldName = 'DT_IMPRESSAO' + end + object qryReportID_USUARIO: TIntegerField + FieldName = 'ID_USUARIO' + end + object qryReportTX_CAIXA: TStringField + FieldKind = fkLookup + FieldName = 'TX_CAIXA' + LookupDataSet = dtmSystem.tblUsuariosConsulta + LookupKeyFields = 'ID_USUARIO' + LookupResultField = 'TX_NOME' + KeyFields = 'ID_USUARIO' + Size = 25 + Lookup = True + end + object qryReportVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + end + object qryReportTP_CANCELADO: TWideStringField + FieldName = 'TP_CANCELADO' + Size = 1 + end + object qryReportTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + ReadOnly = True + Size = 18 + end + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 584 + Top = 32 + end + object dtsEmpresa: TDataSource + DataSet = dtmSystem.tblEmpresa + Left = 520 + Top = 32 + end +end diff --git a/urelRecibosEmitidos.pas b/urelRecibosEmitidos.pas new file mode 100644 index 0000000..1fee924 --- /dev/null +++ b/urelRecibosEmitidos.pas @@ -0,0 +1,160 @@ +unit urelRecibosEmitidos; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, RLFilters, RLPDFFilter, + Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset; + +type + TrelRecibosEmitidos = class(TForm) + fr_recibosemitidos: TRLReport; + dtsqryReport: TDataSource; + qryReport: TZQuery; + fr_filterpdf: TRLPDFFilter; + frbnd_header: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frlbl_titulorel: TRLLabel; + frbnd_columnheader: TRLBand; + frbnd_details: TRLBand; + qryReportNR_RECIBO: TWideStringField; + qryReportTX_NOME: TWideStringField; + qryReportTX_CPF: TWideStringField; + qryReportDT_IMPRESSAO: TDateTimeField; + frlbl_nrrecibo: TRLLabel; + frlbl_nomerecibo: TRLLabel; + frlbl_cpf: TRLLabel; + frlbl_vltotal: TRLLabel; + frlbl_dtimpressao: TRLLabel; + frdblbl_nrrecibo: TRLDBText; + frdblbl_nomerecibo: TRLDBText; + frdblbl_cpf: TRLDBText; + frdblbl_vltotal: TRLDBText; + frdblbl_dtimpressao: TRLDBText; + RLBand1: TRLBand; + frdbresult_sumvalor: TRLDBResult; + frbnd_footerrel: TRLBand; + RLSystemInfo2: TRLSystemInfo; + RLSystemInfo1: TRLSystemInfo; + frlbl_datas: TRLLabel; + dtsEmpresa: TDataSource; + qryReportID_USUARIO: TIntegerField; + qryReportTX_CAIXA: TStringField; + RLLabel1: TRLLabel; + RLDBText1: TRLDBText; + qryReportVL_CORRIGIDO: TFloatField; + frlbl_total: TRLLabel; + qryReportTP_CANCELADO: TWideStringField; + RLLabel2: TRLLabel; + RLDBText2: TRLDBText; + qryReportTX_CNPJ: TWideStringField; + qryReportTX_DOCUMENTO: TWideStringField; + procedure fr_recibosemitidosAfterPrint(Sender: TObject); + procedure fr_recibosemitidosBeforePrint(Sender: TObject; + var PrintIt: Boolean); + private + procedure SalvarRelPDF; + { Private declarations } + public + { Public declarations } + end; + +var + relRecibosEmitidos: TrelRecibosEmitidos; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TrelRecibosEmitidos.fr_recibosemitidosAfterPrint(Sender: TObject); +begin + SalvarRelPDF; +end; + +procedure TrelRecibosEmitidos.fr_recibosemitidosBeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + if not dtsEmpresa.DataSet.Active then + begin + dtsEmpresa.DataSet.Open; + end; + if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 170; + frdbimg_logo.Width := 133; + end; + if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 170; + end; + if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then + begin + frdbimg_logo.Height := 133; + frdbimg_logo.Width := 133; + end; +end; + +procedure TrelRecibosEmitidos.SalvarRelPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; +// path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + path := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + path := path + '\RECIBOS_EMITIDOS'; + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + ForceDirectories(path); + end; + file_name := path + '\RECIBOS_EMITIDOS-' + FormatDateTime('HH-mm', + Time) + '.pdf'; + fr_filterpdf.FileName := file_name; + fr_recibosemitidos.SaveToFile(file_name); +end; + +end. diff --git a/urelRelacaoAcordo.dfm b/urelRelacaoAcordo.dfm new file mode 100644 index 0000000..f77d954 --- /dev/null +++ b/urelRelacaoAcordo.dfm @@ -0,0 +1,549 @@ +object relRelacaoAcordo: TrelRelacaoAcordo + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relRelacaoAcordo' + ClientHeight = 1171 + ClientWidth = 821 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object frrelRelacaoAcordo: TRLReport + Left = 8 + Top = 8 + Width = 794 + Height = 1123 + AllowedBands = [btHeader, btColumnHeader, btDetail, btColumnFooter, btSummary] + DataSource = dts1 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + AfterPrint = frrelRelacaoAcordoAfterPrint + object RLGroup1: TRLGroup + Left = 38 + Top = 169 + Width = 718 + Height = 160 + AllowedBands = [btHeader, btColumnHeader, btDetail, btColumnFooter] + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + DataFields = 'ID_ACORDO' + PageBreaking = pbAfterPrint + object RLBand2: TRLBand + Left = 1 + Top = 1 + Width = 716 + Height = 16 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + BeforePrint = RLBand2BeforePrint + object RLDBText2: TRLDBText + Left = 325 + Top = 0 + Width = 66 + Height = 16 + Align = faCenter + DataField = 'TX_NOME' + DataSource = dts1 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + end + object RLSubDetail1: TRLSubDetail + Left = 1 + Top = 17 + Width = 716 + Height = 67 + AllowedBands = [btColumnHeader, btDetail, btColumnFooter] + DataSource = dts2 + object RLBand1: TRLBand + Left = 0 + Top = 35 + Width = 716 + Height = 16 + object RLDBText1: TRLDBText + Left = 3 + Top = 0 + Width = 463 + Height = 16 + AutoSize = False + DataField = 'TX_PRODUTO' + DataSource = dts2 + Text = '' + end + object RLDBText4: TRLDBText + Left = 472 + Top = 0 + Width = 112 + Height = 16 + DataField = 'DT_VENCIMENTO' + DataSource = dts2 + Text = '' + end + object RLDBText5: TRLDBText + Left = 608 + Top = 0 + Width = 90 + Height = 16 + DataField = 'VL_TITULO' + DataSource = dts2 + Text = 'R$ ' + end + end + object RLBand5: TRLBand + Left = 0 + Top = 0 + Width = 716 + Height = 35 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object RLLabel1: TRLLabel + Left = 0 + Top = 0 + Width = 183 + Height = 16 + Align = faLeftTop + Caption = 'Listagem dos T'#237'tulos Originais:' + end + object RLLabel2: TRLLabel + Left = 0 + Top = 18 + Width = 68 + Height = 16 + Align = faLeftBottom + Caption = 'PRODUTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel3: TRLLabel + Left = 472 + Top = 18 + Width = 89 + Height = 16 + Align = faBottomOnly + Caption = 'VENCIMENTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel4: TRLLabel + Left = 608 + Top = 18 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'VALOR' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLBand7: TRLBand + Left = 0 + Top = 51 + Width = 716 + Height = 16 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = False + Borders.DrawBottom = True + object RLDBResult1: TRLDBResult + AlignWithMargins = True + Left = 551 + Top = -1 + Width = 165 + Height = 16 + Margins.Right = 10 + Align = faRightBottom + DataField = 'VL_TITULO' + DataSource = dts2 + Info = riSum + Text = 'Total: R$ ' + end + end + end + object RLSubDetail2: TRLSubDetail + Left = 1 + Top = 84 + Width = 716 + Height = 68 + AllowedBands = [btColumnHeader, btDetail, btColumnFooter] + DataSource = dts3 + object RLBand3: TRLBand + Left = 0 + Top = 35 + Width = 716 + Height = 16 + object RLDBText3: TRLDBText + Left = 0 + Top = 0 + Width = 466 + Height = 16 + AutoSize = False + DataField = 'TX_PRODUTO' + DataSource = dts3 + Text = '' + end + object RLDBText6: TRLDBText + Left = 472 + Top = 0 + Width = 112 + Height = 16 + DataField = 'DT_VENCIMENTO' + DataSource = dts3 + Text = '' + end + object RLDBText7: TRLDBText + Left = 608 + Top = 0 + Width = 90 + Height = 16 + DataField = 'VL_TITULO' + DataSource = dts3 + Text = 'R$ ' + end + end + object RLBand6: TRLBand + Left = 0 + Top = 0 + Width = 716 + Height = 35 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object RLLabel5: TRLLabel + Left = 0 + Top = 0 + Width = 204 + Height = 16 + Align = faLeftTop + Caption = 'Listagem das Parcelas do Acordo:' + end + object RLLabel6: TRLLabel + Left = 0 + Top = 18 + Width = 68 + Height = 16 + Align = faLeftBottom + Caption = 'PRODUTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel7: TRLLabel + Left = 472 + Top = 18 + Width = 89 + Height = 16 + Align = faBottomOnly + Caption = 'VENCIMENTO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel8: TRLLabel + Left = 608 + Top = 18 + Width = 49 + Height = 16 + Align = faBottomOnly + Caption = 'VALOR' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLBand8: TRLBand + Left = 0 + Top = 51 + Width = 716 + Height = 16 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = False + Borders.DrawBottom = True + object RLDBResult2: TRLDBResult + AlignWithMargins = True + Left = 551 + Top = -1 + Width = 165 + Height = 16 + Margins.Right = 10 + Align = faRightBottom + DataField = 'VL_TITULO' + DataSource = dts3 + Info = riSum + Text = 'Total: R$ ' + end + end + end + end + object RLBand4: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 131 + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLMemo1: TRLMemo + Left = 201 + Top = 56 + Width = 466 + Height = 19 + Align = faCenter + Alignment = taCenter + Behavior = [beSiteExpander] + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + Lines.Strings = ( + 'BENEF - RELA'#199#195'O DE ACORDOS - DT1 AT'#201' DT2') + ParentFont = False + end + object frpnl_logo: TRLPanel + Left = 1 + Top = 1 + Width = 150 + Height = 129 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 0 + Width = 150 + Height = 129 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + end + object RLBand9: TRLBand + Left = 38 + Top = 329 + Width = 718 + Height = 16 + AlignToBottom = True + BandType = btFooter + object RLSystemInfo1: TRLSystemInfo + Left = 583 + Top = 0 + Width = 135 + Height = 16 + Align = faRightBottom + Info = itPageNumber + Text = 'P'#225'gina: ' + end + end + end + object dts1: TDataSource + DataSet = zroqry1 + Left = 752 + Top = 32 + end + object zroqry1: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select distinct A.id_acordo, B.tx_nome from sys_acordos A' + 'left join chg_devedores B on (A.id_devedor = B.id_devedor)' + 'where id_acordo in (1,4,5,7,10,11) ' + 'order by B.tx_nome') + Params = <> + Left = 696 + Top = 32 + object zroqry1ID_ACORDO: TIntegerField + FieldName = 'ID_ACORDO' + Required = True + end + object zroqry1TX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + end + object dts2: TDataSource + DataSet = zroqry2 + Left = 752 + Top = 80 + end + object zroqry2: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + + 'select distinct A.id_acordo, A.id_original, B.tx_produto, B.dt_v' + + 'encimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A' + 'left join chg_titulos B on (A.id_original = B.id_titulo)' + 'where id_acordo in (1,4,5,7,10,11) ' + + 'group by A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimen' + + 'to, B.vl_titulo') + Params = <> + MasterFields = 'ID_ACORDO' + MasterSource = dts1 + LinkedFields = 'ID_ACORDO' + Left = 696 + Top = 80 + object zroqry2ID_ACORDO: TIntegerField + FieldName = 'ID_ACORDO' + Required = True + end + object zroqry2ID_ORIGINAL: TIntegerField + FieldName = 'ID_ORIGINAL' + Required = True + end + object zroqry2TX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zroqry2DT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object zroqry2VL_TITULO: TFloatField + FieldName = 'VL_TITULO' + end + object zroqry2COUNT: TIntegerField + FieldName = 'COUNT' + ReadOnly = True + end + end + object dts3: TDataSource + DataSet = zroqry3 + Left = 752 + Top = 144 + end + object zroqry3: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + + 'select distinct A.id_acordo, A.id_parcela, B.tx_produto, B.dt_ve' + + 'ncimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A' + 'left join chg_titulos B on (A.id_parcela = B.id_titulo)' + 'where id_acordo in (1,4,5,7,10,11) ' + + 'group by A.id_acordo, A.id_parcela, B.tx_produto, B.dt_venciment' + + 'o, B.vl_titulo') + Params = <> + MasterFields = 'ID_ACORDO' + MasterSource = dts1 + LinkedFields = 'ID_ACORDO' + Left = 696 + Top = 144 + object zroqry3ID_ACORDO: TIntegerField + FieldName = 'ID_ACORDO' + Required = True + end + object zroqry3ID_PARCELA: TIntegerField + FieldName = 'ID_PARCELA' + Required = True + end + object zroqry3TX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object zroqry3DT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object zroqry3VL_TITULO: TFloatField + FieldName = 'VL_TITULO' + end + object zroqry3COUNT: TIntegerField + FieldName = 'COUNT' + ReadOnly = True + end + end + object dtsAcordo: TDataSource + DataSet = zroqryAcordos + Left = 752 + Top = 200 + end + object zroqryAcordos: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'A.tx_nome,' + 'B.tx_produto,' + 'B.dt_vencimento,' + 'B.id_titulo,' + 'B.vl_titulo,' + 'B.qtde_parcelas,' + 'C.id_acordo' + 'from chg_devedores A' + 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' + 'inner join sys_acordos C on (A.id_devedor = C.id_devedor)') + Params = <> + Left = 696 + Top = 200 + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 612 + Top = 40 + end +end diff --git a/urelRelacaoAcordo.pas b/urelRelacaoAcordo.pas new file mode 100644 index 0000000..9b36c11 --- /dev/null +++ b/urelRelacaoAcordo.pas @@ -0,0 +1,185 @@ +unit urelRelacaoAcordo; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, Data.DB, ZAbstractRODataset, + ZDataset, RLFilters, RLPDFFilter; + +type + TrelRelacaoAcordo = class(TForm) + frrelRelacaoAcordo: TRLReport; + dts1: TDataSource; + zroqry1: TZReadOnlyQuery; + dts2: TDataSource; + zroqry2: TZReadOnlyQuery; + RLGroup1: TRLGroup; + RLBand2: TRLBand; + RLDBText2: TRLDBText; + dts3: TDataSource; + zroqry3: TZReadOnlyQuery; + zroqry1ID_ACORDO: TIntegerField; + zroqry1TX_NOME: TWideStringField; + RLSubDetail1: TRLSubDetail; + RLSubDetail2: TRLSubDetail; + RLBand1: TRLBand; + RLDBText1: TRLDBText; + RLBand3: TRLBand; + RLDBText3: TRLDBText; + RLBand4: TRLBand; + RLMemo1: TRLMemo; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + RLBand5: TRLBand; + RLLabel1: TRLLabel; + RLLabel2: TRLLabel; + zroqry2ID_ACORDO: TIntegerField; + zroqry2ID_ORIGINAL: TIntegerField; + zroqry2TX_PRODUTO: TWideStringField; + zroqry2DT_VENCIMENTO: TDateTimeField; + zroqry2VL_TITULO: TFloatField; + zroqry2COUNT: TIntegerField; + RLLabel3: TRLLabel; + RLLabel4: TRLLabel; + RLDBText4: TRLDBText; + RLDBText5: TRLDBText; + RLBand6: TRLBand; + RLBand7: TRLBand; + RLDBResult1: TRLDBResult; + RLLabel5: TRLLabel; + RLLabel6: TRLLabel; + RLLabel7: TRLLabel; + RLLabel8: TRLLabel; + zroqry3ID_ACORDO: TIntegerField; + zroqry3ID_PARCELA: TIntegerField; + zroqry3TX_PRODUTO: TWideStringField; + zroqry3DT_VENCIMENTO: TDateTimeField; + zroqry3VL_TITULO: TFloatField; + zroqry3COUNT: TIntegerField; + RLBand8: TRLBand; + RLDBResult2: TRLDBResult; + RLDBText6: TRLDBText; + RLDBText7: TRLDBText; + dtsAcordo: TDataSource; + zroqryAcordos: TZReadOnlyQuery; + fr_filterpdf: TRLPDFFilter; + RLBand9: TRLBand; + RLSystemInfo1: TRLSystemInfo; + procedure frrelRelacaoAcordoAfterPrint(Sender: TObject); + procedure RLBand2BeforePrint(Sender: TObject; var PrintIt: Boolean); + procedure FormCreate(Sender: TObject); + private + print_it: integer; + procedure SalvarReciboPDF; + { Private declarations } + public + rel_acordo: boolean; + { Public declarations } + end; + +var + relRelacaoAcordo: TrelRelacaoAcordo; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +{ TrelRelacaoAcordo } + +procedure TrelRelacaoAcordo.FormCreate(Sender: TObject); +begin + print_it := -1; +end; + +procedure TrelRelacaoAcordo.frrelRelacaoAcordoAfterPrint(Sender: TObject); +begin + if rel_acordo = false then + begin + SalvarReciboPDF; + end; +end; + +procedure TrelRelacaoAcordo.RLBand2BeforePrint(Sender: TObject; + var PrintIt: Boolean); +begin + if print_it <> dts1.DataSet.RecNo then + begin + PrintIt := true; + print_it := dts1.DataSet.RecNo; + end + else + begin + PrintIt := false; + end; + +end; + +procedure TrelRelacaoAcordo.SalvarReciboPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: Integer; +begin + Fmt := TFormatSettings.Create; + for i := 0 to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; + // path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + path := dtmSystem.path_executavel + '\RELATORIOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\PRESTACAO_CONTAS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + dtmSystem.tblCHGEmpresaTX_NOME.AsString; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + file_name := path + '\RELATORIO_PRESTACAO_CONTAS-RELACAO-ACORDOS-' + + FormatDateTime('HH-mm', Time) + '.pdf'; + fr_filterpdf.FileName := file_name; + frrelRelacaoAcordo.SaveToFile(file_name); +end; + +end. diff --git a/urelTCC.dfm b/urelTCC.dfm new file mode 100644 index 0000000..83cd22f --- /dev/null +++ b/urelTCC.dfm @@ -0,0 +1,381 @@ +object relTCC: TrelTCC + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relTCC' + ClientHeight = 566 + ClientWidth = 820 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object frrelTCC: TRLReport + Left = 8 + Top = 16 + Width = 794 + Height = 1123 + DataSource = dtsRelatorio + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + AfterPrint = frrelTCCAfterPrint + BeforePrint = frrelTCCBeforePrint + object RLBand1: TRLBand + Left = 38 + Top = 198 + Width = 718 + Height = 18 + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBText3: TRLDBText + Left = 252 + Top = 1 + Width = 98 + Height = 16 + AutoSize = False + DataField = 'TX_PRODUTO' + DataSource = dtsRelatorio + Text = '' + end + object RLDBText4: TRLDBText + Left = 358 + Top = 1 + Width = 112 + Height = 16 + DataField = 'DT_VENCIMENTO' + DataSource = dtsRelatorio + Text = '' + end + object RLDBText5: TRLDBText + Left = 437 + Top = 1 + Width = 90 + Height = 16 + DataField = 'VL_TITULO' + DataSource = dtsRelatorio + Text = 'R$ ' + end + object RLDBText6: TRLDBText + Left = 525 + Top = 1 + Width = 110 + Height = 16 + DataField = 'DT_PAGAMENTO' + DataSource = dtsRelatorio + Text = '' + end + object RLDBText7: TRLDBText + Left = 611 + Top = 1 + Width = 119 + Height = 16 + DataField = 'VL_CORRIGIDO' + DataSource = dtsRelatorio + Text = 'R$ ' + end + object RLDBText1: TRLDBText + Left = 126 + Top = 1 + Width = 118 + Height = 16 + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsRelatorio + Text = '' + end + object RLDBText2: TRLDBText + Left = 0 + Top = 1 + Width = 120 + Height = 16 + AutoSize = False + DataField = 'TX_DOCUMENTO' + DataSource = dtsRelatorio + Text = '' + end + end + object frbnd_header: TRLBand + Left = 38 + Top = 38 + Width = 718 + Height = 144 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_logo: TRLPanel + Left = 1 + Top = 0 + Width = 160 + Height = 143 + Align = faLeftOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frdbimg_logo: TRLDBImage + Left = 0 + Top = 1 + Width = 159 + Height = 142 + Align = faClient + AutoSize = True + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object frlbl_titulorel: TRLLabel + Left = 167 + Top = 52 + Width = 515 + Height = 24 + Caption = 'Presta'#231#227'o de Contas de Mensalidades Liquidadas.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLBand2: TRLBand + Left = 38 + Top = 182 + Width = 718 + Height = 16 + BandType = btColumnHeader + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLLabel1: TRLLabel + Left = 0 + Top = 0 + Width = 70 + Height = 16 + Caption = 'Documento' + end + object RLLabel2: TRLLabel + Left = 126 + Top = 0 + Width = 38 + Height = 16 + Caption = 'Nome' + end + object RLLabel3: TRLLabel + Left = 252 + Top = 0 + Width = 35 + Height = 16 + Caption = 'T'#237'tulo' + end + object RLLabel4: TRLLabel + Left = 358 + Top = 0 + Width = 73 + Height = 16 + Caption = 'Vencimento' + end + object RLLabel5: TRLLabel + Left = 437 + Top = 0 + Width = 82 + Height = 16 + Caption = 'Valor Original' + end + object RLLabel6: TRLLabel + Left = 525 + Top = 0 + Width = 80 + Height = 16 + Caption = 'Recebimento' + end + object RLLabel7: TRLLabel + Left = 611 + Top = 0 + Width = 92 + Height = 16 + Caption = 'Valor Recebido' + end + end + object RLBand3: TRLBand + Left = 38 + Top = 216 + Width = 718 + Height = 17 + AutoSize = True + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = True + object RLDBResult1: TRLDBResult + Left = 437 + Top = 0 + Width = 129 + Height = 16 + DataField = 'VL_TITULO' + DataSource = dtsRelatorio + Info = riSum + Text = 'R$ ' + end + object RLDBResult2: TRLDBResult + Left = 611 + Top = 0 + Width = 154 + Height = 16 + DataField = 'VL_CORRIGIDO' + DataSource = dtsRelatorio + Info = riSum + Text = 'R$' + end + end + object RLBand4: TRLBand + Left = 38 + Top = 233 + Width = 718 + Height = 16 + BandType = btFooter + object frlbl_usuario: TRLLabel + Left = 0 + Top = 0 + Width = 77 + Height = 16 + Align = faBottomOnly + Caption = 'Atendente: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frdblbl_usuario: TRLDBText + Left = 76 + Top = 0 + Width = 64 + Height = 16 + Align = faBottomOnly + DataField = 'TX_NOME' + DataSource = dtmSystem.dtsUsuarios + Text = '' + end + object RLSystemInfo2: TRLSystemInfo + Left = 503 + Top = 3 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object RLSystemInfo1: TRLSystemInfo + Left = 605 + Top = 3 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + end + end + object dtsRelatorio: TDataSource + DataSet = roqryRelatorio + Left = 640 + Top = 24 + end + object roqryRelatorio: TZReadOnlyQuery + Connection = dtmSystem.ZConnection + SQL.Strings = ( + 'select first 0' + 'd.tx_nome,' + 'case when d.tp_cliente = '#39'F'#39' then d.cd_cpf' + 'when d.tp_cliente = '#39'J'#39' then d.cd_cnpj' + 'end as tx_documento,' + 't.tx_produto,' + 't.dt_vencimento,' + 't.vl_titulo,' + 't.dt_pagamento,' + 't.vl_corrigido' + 'from chg_titulos t' + 'left join chg_devedores d on d.id_devedor = t.id_devedor') + Params = <> + Left = 720 + Top = 24 + object roqryRelatorioTX_NOME: TWideStringField + FieldName = 'TX_NOME' + Size = 60 + end + object roqryRelatorioTX_DOCUMENTO: TWideStringField + FieldName = 'TX_DOCUMENTO' + ReadOnly = True + Size = 18 + end + object roqryRelatorioTX_PRODUTO: TWideStringField + FieldName = 'TX_PRODUTO' + Size = 100 + end + object roqryRelatorioDT_VENCIMENTO: TDateTimeField + FieldName = 'DT_VENCIMENTO' + Required = True + end + object roqryRelatorioVL_TITULO: TFloatField + FieldName = 'VL_TITULO' + end + object roqryRelatorioDT_PAGAMENTO: TDateTimeField + FieldName = 'DT_PAGAMENTO' + end + object roqryRelatorioVL_CORRIGIDO: TFloatField + FieldName = 'VL_CORRIGIDO' + end + end + object frfilterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + Left = 720 + Top = 80 + end + object RLXLSXFilter1: TRLXLSXFilter + Options = [xfoOneSheetPerPage] + DisplayName = 'Planilha Excel' + Left = 638 + Top = 78 + end +end diff --git a/urelTCC.pas b/urelTCC.pas new file mode 100644 index 0000000..f30bd1e --- /dev/null +++ b/urelTCC.pas @@ -0,0 +1,157 @@ +unit urelTCC; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, RLReport, ZAbstractRODataset, + ZDataset, RLFilters, RLPDFFilter, RLXLSFilter, RLXLSXFilter; + +type + TrelTCC = class(TForm) + frrelTCC: TRLReport; + RLBand1: TRLBand; + dtsRelatorio: TDataSource; + RLDBText3: TRLDBText; + RLDBText4: TRLDBText; + RLDBText5: TRLDBText; + RLDBText6: TRLDBText; + RLDBText7: TRLDBText; + roqryRelatorio: TZReadOnlyQuery; + frbnd_header: TRLBand; + frpnl_logo: TRLPanel; + frdbimg_logo: TRLDBImage; + frlbl_titulorel: TRLLabel; + RLBand2: TRLBand; + RLLabel1: TRLLabel; + RLBand3: TRLBand; + RLLabel2: TRLLabel; + RLLabel3: TRLLabel; + RLLabel4: TRLLabel; + RLLabel5: TRLLabel; + RLLabel6: TRLLabel; + RLLabel7: TRLLabel; + roqryRelatorioTX_NOME: TWideStringField; + roqryRelatorioTX_DOCUMENTO: TWideStringField; + roqryRelatorioTX_PRODUTO: TWideStringField; + roqryRelatorioDT_VENCIMENTO: TDateTimeField; + roqryRelatorioVL_TITULO: TFloatField; + roqryRelatorioDT_PAGAMENTO: TDateTimeField; + roqryRelatorioVL_CORRIGIDO: TFloatField; + RLDBText1: TRLDBText; + RLDBText2: TRLDBText; + RLDBResult1: TRLDBResult; + RLDBResult2: TRLDBResult; + RLBand4: TRLBand; + frlbl_usuario: TRLLabel; + frdblbl_usuario: TRLDBText; + RLSystemInfo2: TRLSystemInfo; + RLSystemInfo1: TRLSystemInfo; + frfilterpdf: TRLPDFFilter; + RLXLSXFilter1: TRLXLSXFilter; + procedure frrelTCCAfterPrint(Sender: TObject); + procedure frrelTCCBeforePrint(Sender: TObject; var PrintIt: Boolean); + private + + procedure SalvarPDF; + { Private declarations } + public + tipo: string; + { Public declarations } + end; + +var + relTCC: TrelTCC; + + meses: array [1 .. 12] of string = ( + 'JANEIRO', + 'FEVEREIRO', + 'MARCO', + 'ABRIL', + 'MAIO', + 'JUNHO', + 'JULHO', + 'AGOSTO', + 'SETEMBRO', + 'OUTUBRO', + 'NOVEMBRO', + 'DEZEMBRO' + ); + +implementation + +{$R *.dfm} + +uses udtmSystem; + +procedure TrelTCC.frrelTCCAfterPrint(Sender: TObject); +begin + SalvarPDF; +end; + +procedure TrelTCC.frrelTCCBeforePrint(Sender: TObject; var PrintIt: Boolean); +begin + if tipo = 'ac' then + begin + frlbl_titulorel.Caption := 'Prestao de Contas de Acordos.'; + end; + roqryRelatorio.Open; + roqryRelatorio.First; +end; + +procedure TrelTCC.SalvarPDF; +var + path, file_name: string; + Fmt: TFormatSettings; + i: integer; +begin + Fmt := TFormatSettings.Create; + for I := Low(meses) to High(meses) do + begin + Fmt.LongMonthNames[i] := meses[i]; + end; + path := ExtractFilePath(Application.ExeName) + 'RELATORIOS'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\PRESTACAO_CONTAS_TCC'; + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := TrimRight(path); + path := path + '\' + FormatDateTime('YYYY', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('mmmm', Date, Fmt); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + path := path + '\' + FormatDateTime('dd', Date); + if not DirectoryExists(path) then + begin + CreateDir(path); + end; + if tipo = 'liq' then + begin + file_name := path + '\RELATORIO_PRESTACAO_CONTAS-LIQ-' + + FormatDateTime('HH-mm', Time) + '.pdf'; + end; + if tipo = 'ac' then + begin + file_name := path + '\RELATORIO_PRESTACAO_CONTAS-ACORDOS-' + + FormatDateTime('HH-mm', Time) + '.pdf'; + end; + frfilterpdf.FileName := file_name; + frrelTCC.SaveToFile(file_name); + StringReplace(file_name, '.pdf', '.xls', []); +// RLXLSXFilter1.FileName := file_name; +// RLXLSXFilter1.Workbook.SaveToFile(file_name); +end; + +end. diff --git a/urelTeste.dfm b/urelTeste.dfm new file mode 100644 index 0000000..64acaa4 --- /dev/null +++ b/urelTeste.dfm @@ -0,0 +1,1703 @@ +object relTeste: TrelTeste + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'relTeste' + ClientHeight = 811 + ClientWidth = 1141 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object frRecibo: TRLReport + AlignWithMargins = True + Left = 8 + Top = 8 + Width = 1123 + Height = 794 + Margins.LeftMargin = 5.000000000000000000 + Margins.TopMargin = 6.000000000000000000 + Margins.RightMargin = 5.000000000000000000 + Margins.BottomMargin = 2.000000000000000000 + AllowedBands = [btHeader, btTitle, btColumnHeader, btDetail, btColumnFooter, btSummary, btFooter] + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + PageSetup.Orientation = poLandscape + RealBounds.UsedUnit = buMilimeters + Title = 'Recibo' + object frb_detail: TRLBand + Left = 19 + Top = 197 + Width = 1085 + Height = 18 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + object frpnl_detailR: TRLPanel + Left = 545 + Top = 0 + Width = 540 + Height = 19 + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frdblbl_encargosR: TRLDBText + Left = 348 + Top = 3 + Width = 60 + Height = 10 + Margins.Bottom = 1 + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_jurosR: TRLDBText + Left = 243 + Top = 3 + Width = 42 + Height = 10 + Margins.Bottom = 1 + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_multaR: TRLDBText + Left = 295 + Top = 3 + Width = 42 + Height = 10 + Margins.Bottom = 1 + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_principalR: TRLDBText + Left = 177 + Top = 3 + Width = 56 + Height = 10 + Margins.Bottom = 1 + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_totalR: TRLDBText + Left = 493 + Top = 3 + Width = 61 + Height = 10 + Margins.Bottom = 1 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_vencimentoR: TRLDBText + Left = 123 + Top = 3 + Width = 70 + Height = 10 + Margins.Bottom = 1 + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_nometitR: TRLDBText + Left = 1 + Top = 3 + Width = 112 + Height = 10 + Margins.Bottom = 1 + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_extraR: TRLDBText + Left = 393 + Top = 3 + Width = 46 + Height = 10 + Margins.Bottom = 1 + DataField = 'VL_EXTRAS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_descontosR: TRLDBText + Left = 448 + Top = 3 + Width = 65 + Height = 10 + Margins.Bottom = 1 + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + object frpnl_detailL: TRLPanel + Left = 0 + Top = 0 + Width = 540 + Height = 19 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + object frdblbl_descontosL: TRLDBText + Left = 449 + Top = 1 + Width = 77 + Height = 12 + Margins.Bottom = 1 + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_encargosL: TRLDBText + Left = 348 + Top = 1 + Width = 72 + Height = 12 + Margins.Bottom = 1 + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_jurosL: TRLDBText + Left = 243 + Top = 1 + Width = 51 + Height = 12 + Margins.Bottom = 1 + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_multaL: TRLDBText + Left = 295 + Top = 1 + Width = 49 + Height = 12 + Margins.Bottom = 1 + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_principalL: TRLDBText + Left = 177 + Top = 1 + Width = 69 + Height = 12 + Margins.Bottom = 1 + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_totalL: TRLDBText + Left = 493 + Top = 1 + Width = 74 + Height = 12 + Margins.Bottom = 1 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_vencimentoL: TRLDBText + Left = 123 + Top = 1 + Width = 81 + Height = 12 + Margins.Bottom = 1 + DataField = 'DT_VENCIMENTO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_nometitL: TRLDBText + Left = 1 + Top = 3 + Width = 112 + Height = 10 + Margins.Bottom = 1 + AutoSize = False + DataField = 'TX_NOME' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + object frdblbl_extraL: TRLDBText + Left = 393 + Top = 1 + Width = 54 + Height = 12 + Margins.Bottom = 1 + DataField = 'VL_EXTRAS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = '' + end + end + end + object frb_footer: TRLBand + Left = 19 + Top = 215 + Width = 1085 + Height = 122 + BandType = btColumnFooter + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frpnl_footerR: TRLPanel + Left = 545 + Top = 0 + Width = 540 + Height = 122 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_organizasumR: TRLPanel + Left = 0 + Top = 1 + Width = 540 + Height = 11 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object frdbresult_extrasR: TRLDBResult + Left = 392 + Top = 0 + Width = 69 + Height = 10 + Align = faTopOnly + DataField = 'VL_EXTRAS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_descontosR: TRLDBResult + Left = 447 + Top = 0 + Width = 88 + Height = 10 + Align = faTopOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_encargosR: TRLDBResult + Left = 347 + Top = 0 + Width = 83 + Height = 10 + Align = faTopOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_jurosR: TRLDBResult + Left = 242 + Top = 0 + Width = 65 + Height = 10 + Align = faTopOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_multaR: TRLDBResult + Left = 294 + Top = 0 + Width = 65 + Height = 10 + Align = faTopOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_principalR: TRLDBResult + Left = 176 + Top = 0 + Width = 79 + Height = 10 + Align = faTopOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_totalR: TRLDBResult + Left = 492 + Top = 0 + Width = 84 + Height = 10 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -8 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + end + object frlbl_formarecebimentoR: TRLLabel + Left = 1 + Top = 16 + Width = 161 + Height = 16 + Align = faLeftOnly + Caption = 'Forma de Recebimento: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frpnl_chequeR: TRLPanel + Left = 1 + Top = 33 + Width = 520 + Height = 16 + Align = faLeftOnly + Visible = False + object frlbl_nrchequeR: TRLLabel + Left = 0 + Top = 0 + Width = 94 + Height = 16 + Align = faLeft + Caption = 'Nr'#186' do cheque: ' + end + object frlbl_bancoR: TRLLabel + Left = 94 + Top = 0 + Width = 49 + Height = 16 + Align = faLeft + Caption = 'Banco: ' + end + object frlbl_pracaR: TRLLabel + Left = 143 + Top = 0 + Width = 46 + Height = 16 + Align = faLeft + Caption = 'Pra'#231'a: ' + end + end + object frlbl_obschequeR: TRLLabel + Left = 1 + Top = 47 + Width = 477 + Height = 15 + Align = faLeftOnly + Caption = + 'Obs.: O PRESENTE RECIBO S'#211' TER'#193' VALIDADE AP'#211'S A COMPENSA'#199#195'O DO C' + + 'HEQUE' + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold, fsUnderline] + ParentFont = False + Visible = False + end + object fr_membobsR: TRLMemo + Left = 1 + Top = 63 + Width = 537 + Height = 16 + Align = faLeftOnly + Behavior = [beSiteExpander] + end + object frlbl_empresaR: TRLLabel + Left = 1 + Top = 85 + Width = 236 + Height = 16 + Caption = 'COBES ASS DE SERVI'#199'OS S/S LTDA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_usuarioR: TRLLabel + Left = 243 + Top = 85 + Width = 49 + Height = 16 + Caption = 'Caixa: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frdblbl_usuarioR: TRLDBText + Left = 290 + Top = 85 + Width = 64 + Height = 16 + DataField = 'TX_NOME' + DataSource = dtsCaixa + Text = '' + end + object fr_dateR: TRLSystemInfo + Left = 340 + Top = 108 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object fr_timeR: TRLSystemInfo + Left = 420 + Top = 108 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + end + object frpnl_footerL: TRLPanel + Left = 0 + Top = 0 + Width = 540 + Height = 122 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object frpnl_organizasumL: TRLPanel + Left = 0 + Top = 1 + Width = 540 + Height = 11 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = True + object frdbresult_extrasL: TRLDBResult + Left = 392 + Top = 0 + Width = 82 + Height = 12 + Align = faTopOnly + DataField = 'VL_EXTRAS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_descontosL: TRLDBResult + Left = 448 + Top = 0 + Width = 105 + Height = 12 + Align = faTopOnly + DataField = 'VL_DESCONTOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_encargosL: TRLDBResult + Left = 347 + Top = 0 + Width = 100 + Height = 12 + Align = faTopOnly + DataField = 'VL_ENCARGOS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_jurosL: TRLDBResult + Left = 242 + Top = 0 + Width = 79 + Height = 12 + Align = faTopOnly + DataField = 'VL_JUROS' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_multaL: TRLDBResult + Left = 294 + Top = 0 + Width = 77 + Height = 12 + Align = faTopOnly + DataField = 'VL_MULTA' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_principalL: TRLDBResult + Left = 176 + Top = 0 + Width = 97 + Height = 12 + Align = faTopOnly + DataField = 'VL_PRINCIPAL' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + object frdbresult_totalL: TRLDBResult + Left = 492 + Top = 0 + Width = 102 + Height = 12 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + DataField = 'VL_CORRIGIDO' + DataSource = dtsTitulos + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -9 + Font.Name = 'Arial' + Font.Style = [] + Info = riSum + ParentFont = False + Text = '' + end + end + object frlbl_formarecebimentoL: TRLLabel + Left = 1 + Top = 16 + Width = 161 + Height = 16 + Align = faLeftOnly + Caption = 'Forma de Recebimento: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frpnl_chequeL: TRLPanel + Left = 1 + Top = 33 + Width = 520 + Height = 16 + Align = faLeftOnly + Visible = False + object frlbl_nrchequeL: TRLLabel + Left = 0 + Top = 0 + Width = 94 + Height = 16 + Align = faLeft + Caption = 'Nr'#186' do cheque: ' + end + object frlbl_bancoL: TRLLabel + Left = 94 + Top = 0 + Width = 49 + Height = 16 + Align = faLeft + Caption = 'Banco: ' + end + object frlbl_pracaL: TRLLabel + Left = 143 + Top = 0 + Width = 46 + Height = 16 + Align = faLeft + Caption = 'Pra'#231'a: ' + end + end + object frlbl_obschequeL: TRLLabel + Left = 1 + Top = 47 + Width = 477 + Height = 15 + Align = faLeftOnly + Caption = + 'Obs.: O PRESENTE RECIBO S'#211' TER'#193' VALIDADE AP'#211'S A COMPENSA'#199#195'O DO C' + + 'HEQUE' + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = 'Arial' + Font.Style = [fsBold, fsUnderline] + ParentFont = False + Visible = False + end + object fr_membobsL: TRLMemo + Left = 1 + Top = 63 + Width = 537 + Height = 16 + Align = faLeftOnly + Behavior = [beSiteExpander] + end + object frlbl_empresaL: TRLLabel + Left = 1 + Top = 85 + Width = 236 + Height = 16 + Caption = 'COBES ASS DE SERVI'#199'OS S/S LTDA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_usuarioL: TRLLabel + Left = 243 + Top = 85 + Width = 49 + Height = 16 + Caption = 'Caixa: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frdblbl_usuarioL: TRLDBText + Left = 290 + Top = 85 + Width = 64 + Height = 16 + DataField = 'TX_NOME' + DataSource = dtsCaixa + Text = '' + end + object fr_dateL: TRLSystemInfo + Left = 340 + Top = 108 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + ParentFont = False + Text = '' + end + object fr_timeL: TRLSystemInfo + Left = 420 + Top = 108 + Width = 49 + Height = 13 + Align = faBottomOnly + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'unifont' + Font.Style = [] + Info = itHour + ParentFont = False + Text = '' + end + end + end + object frb_headertop: TRLBand + Left = 19 + Top = 23 + Width = 1085 + Height = 65 + AutoSize = True + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + Transparent = False + object frpnl_headertopR: TRLPanel + Left = 545 + Top = 0 + Width = 540 + Height = 65 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frpnl_logoL: TRLPanel + Left = 1 + Top = 1 + Width = 100 + Height = 64 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object frdbimg_logoR: TRLDBImage + Left = 0 + Top = 0 + Width = 100 + Height = 64 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object RLPanel9: TRLPanel + Left = 100 + Top = 1 + Width = 438 + Height = 25 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_headertopR: TRLMemo + Left = 0 + Top = 0 + Width = 435 + Height = 16 + Behavior = [beSiteExpander] + end + end + object RLPanel10: TRLPanel + Left = 100 + Top = 23 + Width = 438 + Height = 25 + object frlbl_headerbotR: TRLMemo + Left = 0 + Top = 0 + Width = 435 + Height = 16 + Behavior = [beSiteExpander] + end + end + end + object frpnl_headertopL: TRLPanel + Left = 0 + Top = 0 + Width = 540 + Height = 65 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = False + object frpnl_logoR: TRLPanel + Left = 1 + Top = 1 + Width = 100 + Height = 64 + Align = faLeftMost + AutoExpand = True + AutoSize = True + object frdbimg_logoL: TRLDBImage + Left = 0 + Top = 0 + Width = 100 + Height = 64 + Align = faClient + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = True + Borders.DrawBottom = False + DataField = 'IMG_LOGO' + DataSource = dtmSystem.dtsEmpresa + Stretch = True + end + end + object RLPanel2: TRLPanel + Left = 100 + Top = 23 + Width = 438 + Height = 25 + object frlbl_headerbotL: TRLMemo + Left = 0 + Top = 0 + Width = 435 + Height = 16 + Behavior = [beSiteExpander] + end + end + object RLPanel8: TRLPanel + Left = 100 + Top = 1 + Width = 438 + Height = 25 + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_headertopL: TRLMemo + Left = 0 + Top = 0 + Width = 435 + Height = 16 + Behavior = [beSiteExpander] + end + end + end + end + object frb_headerbot: TRLBand + Left = 19 + Top = 88 + Width = 1085 + Height = 109 + AutoExpand = False + BandType = btHeader + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + object frpnl_headerbotR: TRLPanel + Left = 545 + Top = 0 + Width = 540 + Height = 109 + Align = faTopOnly + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLPanel3: TRLPanel + Left = 1 + Top = 1 + Width = 283 + Height = 24 + Align = faLeftTop + object RLDBText3: TRLDBText + Left = 120 + Top = 0 + Width = 127 + Height = 24 + DataField = 'NR_RECIBO' + DataSource = dtsReport + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + object RLLabel1: TRLLabel + Left = 0 + Top = 0 + Width = 121 + Height = 24 + Caption = 'RECIBO N'#186':' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLPanel4: TRLPanel + Left = 1 + Top = 21 + Width = 543 + Height = 16 + Align = faLeftOnly + object frdblbl_cpfR: TRLDBText + Left = 338 + Top = 0 + Width = 93 + Height = 16 + DataField = 'CD_CPF' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = ' CPF: ' + end + object RLDBText6: TRLDBText + Left = 0 + Top = 0 + Width = 159 + Height = 16 + DataField = 'TX_NOME' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = 'Recebemos de: ' + end + end + object RLPanel: TRLPanel + Left = 1 + Top = 36 + Width = 543 + Height = 16 + Align = faLeftOnly + object frlbl_empresatitR: TRLLabel + Left = 0 + Top = 0 + Width = 532 + Height = 16 + Align = faLeft + AutoSize = False + Caption = 'Cr'#233'dito para: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object frlbl_valortotR: TRLLabel + Left = 1 + Top = 51 + Width = 46 + Height = 16 + Caption = 'Valor: ' + end + object frlbl_vlextensoR: TRLLabel + Left = 49 + Top = 53 + Width = 92 + Height = 14 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_dtpagR: TRLLabel + Left = 0 + Top = 70 + Width = 138 + Height = 16 + Caption = 'Data do Pagamento: ' + end + object RLPanel1: TRLPanel + Left = 1 + Top = 87 + Width = 538 + Height = 21 + Align = faBottom + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_vencimentoR: TRLLabel + Left = 122 + Top = 7 + Width = 32 + Height = 14 + Align = faBottomOnly + Caption = 'VENC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel15: TRLLabel + Left = 176 + Top = 7 + Width = 60 + Height = 14 + Align = faBottomOnly + Caption = 'PRINCIPAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel16: TRLLabel + Left = 347 + Top = 7 + Width = 24 + Height = 14 + Align = faBottomOnly + Caption = 'ENC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel17: TRLLabel + Left = 448 + Top = 7 + Width = 31 + Height = 14 + Align = faBottomOnly + Caption = 'DESC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel18: TRLLabel + Left = 492 + Top = 7 + Width = 40 + Height = 14 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + Caption = 'TOTAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel19: TRLLabel + Left = 242 + Top = 7 + Width = 38 + Height = 14 + Align = faBottomOnly + Caption = 'JUROS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel20: TRLLabel + Left = 294 + Top = 7 + Width = 42 + Height = 14 + Align = faBottomOnly + Caption = 'MULTA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object RLLabel22: TRLLabel + Left = 392 + Top = 7 + Width = 45 + Height = 14 + Align = faBottomOnly + Caption = 'EXTRAS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_nometitR: TRLLabel + Left = 0 + Top = 7 + Width = 42 + Height = 14 + Align = faBottomOnly + Caption = 'T'#205'TULO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + end + object frpnl_headerbotL: TRLPanel + Left = 0 + Top = 0 + Width = 540 + Height = 110 + Align = faLeftTop + Borders.Sides = sdCustom + Borders.DrawLeft = True + Borders.DrawTop = True + Borders.DrawRight = True + Borders.DrawBottom = True + object RLPanel5: TRLPanel + Left = 1 + Top = 1 + Width = 283 + Height = 24 + Align = faLeftTop + object RLDBText7: TRLDBText + Left = 120 + Top = 0 + Width = 127 + Height = 24 + DataField = 'NR_RECIBO' + DataSource = dtsReport + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Text = '' + end + object RLLabel7: TRLLabel + Left = 0 + Top = 0 + Width = 121 + Height = 24 + Caption = 'RECIBO N'#186':' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + object RLPanel6: TRLPanel + Left = 1 + Top = 21 + Width = 543 + Height = 16 + Align = faLeftOnly + object frdblbl_cpfL: TRLDBText + Left = 339 + Top = 0 + Width = 93 + Height = 16 + DataField = 'CD_CPF' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = ' CPF: ' + end + object RLDBText9: TRLDBText + Left = 0 + Top = 0 + Width = 159 + Height = 16 + DataField = 'TX_NOME' + DataSource = dtsDevedor + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Text = 'Recebemos de: ' + end + end + object RLPanel7: TRLPanel + Left = 1 + Top = 36 + Width = 543 + Height = 16 + Align = faLeftOnly + object frlbl_empresatitL: TRLLabel + Left = 0 + Top = 0 + Width = 532 + Height = 16 + Align = faLeft + AutoSize = False + Caption = 'Cr'#233'dito para: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + end + object frlbl_valortotL: TRLLabel + Left = 1 + Top = 52 + Width = 46 + Height = 16 + Caption = 'Valor: ' + end + object frlbl_vlextensoL: TRLLabel + Left = 49 + Top = 54 + Width = 92 + Height = 14 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_dtpagL: TRLLabel + Left = 0 + Top = 70 + Width = 138 + Height = 16 + Caption = 'Data do Pagamento: ' + end + object frpnl_headers: TRLPanel + Left = 1 + Top = 88 + Width = 538 + Height = 21 + Align = faBottom + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = True + Borders.DrawRight = False + Borders.DrawBottom = False + object frlbl_vencimentoL: TRLLabel + Left = 122 + Top = 7 + Width = 32 + Height = 14 + Align = faBottomOnly + Caption = 'VENC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_principal: TRLLabel + Left = 176 + Top = 7 + Width = 60 + Height = 14 + Align = faBottomOnly + Caption = 'PRINCIPAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_encargos: TRLLabel + Left = 347 + Top = 7 + Width = 24 + Height = 14 + Align = faBottomOnly + Caption = 'ENC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_descontos: TRLLabel + Left = 448 + Top = 7 + Width = 31 + Height = 14 + Align = faBottomOnly + Caption = 'DESC' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_total: TRLLabel + Left = 492 + Top = 7 + Width = 40 + Height = 14 + Align = faBottomOnly + Borders.Sides = sdCustom + Borders.DrawLeft = False + Borders.DrawTop = False + Borders.DrawRight = False + Borders.DrawBottom = False + Caption = 'TOTAL' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_juros: TRLLabel + Left = 242 + Top = 7 + Width = 38 + Height = 14 + Align = faBottomOnly + Caption = 'JUROS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_multa: TRLLabel + Left = 294 + Top = 7 + Width = 42 + Height = 14 + Align = faBottomOnly + Caption = 'MULTA' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_extras: TRLLabel + Left = 392 + Top = 7 + Width = 45 + Height = 14 + Align = faBottomOnly + Caption = 'EXTRAS' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + object frlbl_nometitL: TRLLabel + Left = 0 + Top = 7 + Width = 42 + Height = 14 + Align = faBottomOnly + Caption = 'T'#205'TULO' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -11 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + end + end + end + end + end + object dtsCaixa: TDataSource + DataSet = dtmSystem.tblUsuariosConsulta + Left = 798 + Top = 311 + end + object dtsDevedor: TDataSource + DataSet = dtmSystem.tblDevedores + Left = 985 + Top = 311 + end + object dtsReport: TDataSource + DataSet = dtmSystem.tblRecibo + Left = 920 + Top = 311 + end + object dtsTitulos: TDataSource + DataSet = dtmSystem.tblConteudoRecibo + Left = 1049 + Top = 311 + end + object fr_filterpdf: TRLPDFFilter + DocumentInfo.Creator = + 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + + 'ortes Inform'#225'tica' + DisplayName = 'Documento PDF' + ImageFormat = ifBitmap + Left = 862 + Top = 311 + end +end diff --git a/urelTeste.pas b/urelTeste.pas new file mode 100644 index 0000000..78fa95b --- /dev/null +++ b/urelTeste.pas @@ -0,0 +1,159 @@ +unit urelTeste; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, Data.DB, ZAbstractRODataset, + ZDataset, Vcl.ComCtrls, RLFilters, RLPDFFilter; + +type + TrelTeste = class(TForm) + dtsCaixa: TDataSource; + dtsDevedor: TDataSource; + dtsReport: TDataSource; + dtsTitulos: TDataSource; + fr_filterpdf: TRLPDFFilter; + frRecibo: TRLReport; + frb_detail: TRLBand; + frb_footer: TRLBand; + frb_headertop: TRLBand; + frpnl_logoL: TRLPanel; + frdbimg_logoR: TRLDBImage; + frb_headerbot: TRLBand; + frpnl_headers: TRLPanel; + frlbl_vencimentoL: TRLLabel; + frlbl_principal: TRLLabel; + frlbl_encargos: TRLLabel; + frlbl_descontos: TRLLabel; + frlbl_total: TRLLabel; + frlbl_juros: TRLLabel; + frlbl_multa: TRLLabel; + frlbl_extras: TRLLabel; + frlbl_nometitL: TRLLabel; + frpnl_headerbotR: TRLPanel; + RLPanel3: TRLPanel; + RLDBText3: TRLDBText; + RLLabel1: TRLLabel; + RLPanel4: TRLPanel; + frdblbl_cpfR: TRLDBText; + RLDBText6: TRLDBText; + RLPanel: TRLPanel; + frlbl_empresatitR: TRLLabel; + frlbl_valortotR: TRLLabel; + frlbl_vlextensoR: TRLLabel; + frlbl_dtpagR: TRLLabel; + frpnl_headerbotL: TRLPanel; + RLPanel5: TRLPanel; + RLDBText7: TRLDBText; + RLLabel7: TRLLabel; + RLPanel6: TRLPanel; + frdblbl_cpfL: TRLDBText; + RLDBText9: TRLDBText; + RLPanel7: TRLPanel; + frlbl_empresatitL: TRLLabel; + frlbl_valortotL: TRLLabel; + frlbl_vlextensoL: TRLLabel; + frlbl_dtpagL: TRLLabel; + frpnl_headertopR: TRLPanel; + frpnl_headertopL: TRLPanel; + frpnl_logoR: TRLPanel; + frdbimg_logoL: TRLDBImage; + RLPanel1: TRLPanel; + frlbl_vencimentoR: TRLLabel; + RLLabel15: TRLLabel; + RLLabel16: TRLLabel; + RLLabel17: TRLLabel; + RLLabel18: TRLLabel; + RLLabel19: TRLLabel; + RLLabel20: TRLLabel; + RLLabel22: TRLLabel; + frlbl_nometitR: TRLLabel; + frpnl_footerR: TRLPanel; + frpnl_organizasumR: TRLPanel; + frdbresult_extrasR: TRLDBResult; + frdbresult_descontosR: TRLDBResult; + frdbresult_encargosR: TRLDBResult; + frdbresult_jurosR: TRLDBResult; + frdbresult_multaR: TRLDBResult; + frdbresult_principalR: TRLDBResult; + frdbresult_totalR: TRLDBResult; + frlbl_formarecebimentoR: TRLLabel; + frpnl_chequeR: TRLPanel; + frlbl_nrchequeR: TRLLabel; + frlbl_bancoR: TRLLabel; + frlbl_pracaR: TRLLabel; + frlbl_obschequeR: TRLLabel; + fr_membobsR: TRLMemo; + frlbl_empresaR: TRLLabel; + frlbl_usuarioR: TRLLabel; + frdblbl_usuarioR: TRLDBText; + fr_dateR: TRLSystemInfo; + fr_timeR: TRLSystemInfo; + frpnl_footerL: TRLPanel; + frpnl_organizasumL: TRLPanel; + frdbresult_extrasL: TRLDBResult; + frdbresult_descontosL: TRLDBResult; + frdbresult_encargosL: TRLDBResult; + frdbresult_jurosL: TRLDBResult; + frdbresult_multaL: TRLDBResult; + frdbresult_principalL: TRLDBResult; + frdbresult_totalL: TRLDBResult; + frlbl_formarecebimentoL: TRLLabel; + frpnl_chequeL: TRLPanel; + frlbl_nrchequeL: TRLLabel; + frlbl_bancoL: TRLLabel; + frlbl_pracaL: TRLLabel; + frlbl_obschequeL: TRLLabel; + fr_membobsL: TRLMemo; + frlbl_empresaL: TRLLabel; + frlbl_usuarioL: TRLLabel; + frdblbl_usuarioL: TRLDBText; + fr_dateL: TRLSystemInfo; + fr_timeL: TRLSystemInfo; + frpnl_detailR: TRLPanel; + frpnl_detailL: TRLPanel; + frdblbl_descontosL: TRLDBText; + frdblbl_encargosL: TRLDBText; + frdblbl_jurosL: TRLDBText; + frdblbl_multaL: TRLDBText; + frdblbl_principalL: TRLDBText; + frdblbl_totalL: TRLDBText; + frdblbl_vencimentoL: TRLDBText; + frdblbl_nometitL: TRLDBText; + frdblbl_extraL: TRLDBText; + frdblbl_encargosR: TRLDBText; + frdblbl_jurosR: TRLDBText; + frdblbl_multaR: TRLDBText; + frdblbl_principalR: TRLDBText; + frdblbl_totalR: TRLDBText; + frdblbl_vencimentoR: TRLDBText; + frdblbl_nometitR: TRLDBText; + frdblbl_extraR: TRLDBText; + frdblbl_descontosR: TRLDBText; + RLPanel2: TRLPanel; + RLPanel8: TRLPanel; + frlbl_headertopL: TRLMemo; + frlbl_headerbotL: TRLMemo; + RLPanel9: TRLPanel; + frlbl_headertopR: TRLMemo; + RLPanel10: TRLPanel; + frlbl_headerbotR: TRLMemo; + private + old_recno, new_recno: Integer; + { Private declarations } + public + { Public declarations } + end; + +var + relTeste: TrelTeste; + +implementation + +{$R *.dfm} + +uses udtmSystem; + +end. diff --git a/uthrdCampanha.pas b/uthrdCampanha.pas new file mode 100644 index 0000000..f5ec328 --- /dev/null +++ b/uthrdCampanha.pas @@ -0,0 +1,171 @@ +unit uthrdCampanha; + +interface + +uses + System.Classes, ZDataset, System.SysUtils, Vcl.Forms, System.UITypes; + +type + TQueryCampanhaInThread = class(TThread) + private + // sql_text: Tstrings; + _Form: TForm; + { Private declarations } + protected + procedure Execute; override; + procedure AttJanela; + public + constructor Create(CreateSuspended: Boolean; AForm: TForm); + end; + +implementation + +{ + Important: Methods and properties of objects in visual components can only be + used in a method called using Synchronize, for example, + + Synchronize(UpdateCaption); + + and UpdateCaption could look like, + + procedure TQueryCampanhaInThread.UpdateCaption; + begin + Form1.Caption := 'Updated in a thread'; + end; + + or + + Synchronize( + procedure + begin + Form1.Caption := 'Updated in thread via an anonymous method' + end + ) + ); + + where an anonymous method is passed. + + Similarly, the developer can call the Queue method with similar parameters as + above, instead passing another TThread class as the first parameter, putting + the calling thread in a queue with the other thread. + +} + +uses ucadCampanha; + +{ TQueryCampanhaInThread } + +procedure TQueryCampanhaInThread.AttJanela; +var + MForm: TcadCampanha; +begin + MForm := _Form as TcadCampanha; + with MForm do + begin + dbgrd_camp.Columns[0].Title.Caption := 'ID'; + dbgrd_camp.Columns[1].Title.Caption := 'Nome'; + dbgrd_camp.Columns[2].Title.Caption := 'Documento'; + dbgrd_camp.Columns[3].Visible := false; + dbgrd_camp.Columns[4].Visible := false; + + queryCampanha.First; + queryCampanha.DisableControls; + total_titulos := 0; + valor_total := 0; + while not queryCampanha.Eof do + begin + total_titulos := total_titulos + queryCampanha.FieldByName('quant') + .AsInteger; + valor_total := valor_total + queryCampanha.FieldByName('total').AsFloat; + queryCampanha.Next; + end; + queryCampanha.First; + queryCampanha.EnableControls; + + lbl_qntdevedores.Caption := 'Devedores: ' + + IntToStr(queryCampanha.RecordCount) + '.'; + lbl_qnttitulos.Caption := 'Ttulos: ' + IntToStr(total_titulos) + '.'; + lbl_valorestitulos.Caption := 'Total: R$' + FormatFloat('0.00', + valor_total) + '.'; + // FormatFloat('0.00',valor_total) + Screen.Cursor := crDefault; + + if queryCampanha.RecordCount > 0 then + begin + btn_ok.Enabled := true; + // pb_campanha.max := queryCampanha.RecordCount; + queryCampanha.First; + end + else + begin + btn_ok.Enabled := false; + end; + pnl_txt.Caption := 'Pesquisa realizada.'; + cadCampanha.pesquisando := false; + end; +end; + +constructor TQueryCampanhaInThread.Create(CreateSuspended: Boolean; + AForm: TForm); +begin + inherited Create(CreateSuspended); + _Form := AForm; + Self.FreeOnTerminate := true; + +end; + +procedure TQueryCampanhaInThread.Execute; +begin + { Place thread code here } + while not Terminated and (cadCampanha.pesquisando) do + begin + with cadCampanha do + begin + queryCampanha.Open; + // dbgrd_camp.Columns[0].Title.Caption := 'ID'; + // dbgrd_camp.Columns[1].Title.Caption := 'Nome'; + // dbgrd_camp.Columns[2].Title.Caption := 'Documento'; + // dbgrd_camp.Columns[3].Visible := false; + // dbgrd_camp.Columns[4].Visible := false; + // + // queryCampanha.First; + // queryCampanha.DisableControls; + // total_titulos := 0; + // valor_total := 0; + // while not queryCampanha.Eof do + // begin + // total_titulos := total_titulos + queryCampanha.FieldByName('quant') + // .AsInteger; + // valor_total := valor_total + queryCampanha.FieldByName('total').AsFloat; + // queryCampanha.Next; + // end; + // queryCampanha.First; + // queryCampanha.EnableControls; + // + // lbl_qntdevedores.Caption := 'Devedores: ' + + // IntToStr(queryCampanha.RecordCount) + '.'; + // lbl_qnttitulos.Caption := 'Ttulos: ' + IntToStr(total_titulos) + '.'; + // lbl_valorestitulos.Caption := 'Total: R$' + FormatFloat('0.00', + // valor_total) + '.'; + // // FormatFloat('0.00',valor_total) + // Screen.Cursor := crDefault; + // + // if queryCampanha.RecordCount > 0 then + // begin + // btn_ok.Enabled := true; + // // pb_campanha.max := queryCampanha.RecordCount; + // queryCampanha.First; + // end + // else + // begin + // btn_ok.Enabled := false; + // end; + // pnl_txt.Caption := 'Pesquisa realizada.'; + end; + Self.Synchronize(AttJanela); + Self.Terminate; + end; + cadCampanha.pesquisando := false; +end; + +end. diff --git a/ícones/Box Closed.bmp b/ícones/Box Closed.bmp new file mode 100644 index 0000000..239cef2 Binary files /dev/null and b/ícones/Box Closed.bmp differ diff --git a/ícones/Cobranca.bmp b/ícones/Cobranca.bmp new file mode 100644 index 0000000..7d7ff78 Binary files /dev/null and b/ícones/Cobranca.bmp differ diff --git a/ícones/Cobranca1.ico b/ícones/Cobranca1.ico new file mode 100644 index 0000000..5ecab1e Binary files /dev/null and b/ícones/Cobranca1.ico differ diff --git a/ícones/Objects.bmp b/ícones/Objects.bmp new file mode 100644 index 0000000..fd1bf82 Binary files /dev/null and b/ícones/Objects.bmp differ diff --git a/ícones/check.bmp b/ícones/check.bmp new file mode 100644 index 0000000..9682b1d Binary files /dev/null and b/ícones/check.bmp differ diff --git a/ícones/copy16_h.bmp b/ícones/copy16_h.bmp new file mode 100644 index 0000000..48c6f5d Binary files /dev/null and b/ícones/copy16_h.bmp differ diff --git a/ícones/cut16_h.bmp b/ícones/cut16_h.bmp new file mode 100644 index 0000000..3a40b8a Binary files /dev/null and b/ícones/cut16_h.bmp differ diff --git a/ícones/group_user16_h.bmp b/ícones/group_user16_h.bmp new file mode 100644 index 0000000..087415a Binary files /dev/null and b/ícones/group_user16_h.bmp differ diff --git a/ícones/navigator/cancel16.bmp b/ícones/navigator/cancel16.bmp new file mode 100644 index 0000000..79151fe Binary files /dev/null and b/ícones/navigator/cancel16.bmp differ diff --git a/ícones/navigator/delete16.bmp b/ícones/navigator/delete16.bmp new file mode 100644 index 0000000..9f52004 Binary files /dev/null and b/ícones/navigator/delete16.bmp differ diff --git a/ícones/navigator/edit16.bmp b/ícones/navigator/edit16.bmp new file mode 100644 index 0000000..a603f2e Binary files /dev/null and b/ícones/navigator/edit16.bmp differ diff --git a/ícones/navigator/first16.bmp b/ícones/navigator/first16.bmp new file mode 100644 index 0000000..7c823f0 Binary files /dev/null and b/ícones/navigator/first16.bmp differ diff --git a/ícones/navigator/insert16.bmp b/ícones/navigator/insert16.bmp new file mode 100644 index 0000000..41ca584 Binary files /dev/null and b/ícones/navigator/insert16.bmp differ diff --git a/ícones/navigator/last16.bmp b/ícones/navigator/last16.bmp new file mode 100644 index 0000000..6ff292e Binary files /dev/null and b/ícones/navigator/last16.bmp differ diff --git a/ícones/navigator/next16.bmp b/ícones/navigator/next16.bmp new file mode 100644 index 0000000..842d98b Binary files /dev/null and b/ícones/navigator/next16.bmp differ diff --git a/ícones/navigator/post16.bmp b/ícones/navigator/post16.bmp new file mode 100644 index 0000000..f3afbd6 Binary files /dev/null and b/ícones/navigator/post16.bmp differ diff --git a/ícones/navigator/previous16.bmp b/ícones/navigator/previous16.bmp new file mode 100644 index 0000000..2fea01d Binary files /dev/null and b/ícones/navigator/previous16.bmp differ diff --git a/ícones/navigator/refresh16.bmp b/ícones/navigator/refresh16.bmp new file mode 100644 index 0000000..381b514 Binary files /dev/null and b/ícones/navigator/refresh16.bmp differ diff --git a/ícones/navigator/user_properties16.bmp b/ícones/navigator/user_properties16.bmp new file mode 100644 index 0000000..f3b9706 Binary files /dev/null and b/ícones/navigator/user_properties16.bmp differ diff --git a/ícones/navigator/view16.bmp b/ícones/navigator/view16.bmp new file mode 100644 index 0000000..e3da473 Binary files /dev/null and b/ícones/navigator/view16.bmp differ diff --git a/ícones/new16_h.bmp b/ícones/new16_h.bmp new file mode 100644 index 0000000..b7f332f Binary files /dev/null and b/ícones/new16_h.bmp differ diff --git a/ícones/open16_h.bmp b/ícones/open16_h.bmp new file mode 100644 index 0000000..0cbfb37 Binary files /dev/null and b/ícones/open16_h.bmp differ diff --git a/ícones/paste16_h.bmp b/ícones/paste16_h.bmp new file mode 100644 index 0000000..e1c3d49 Binary files /dev/null and b/ícones/paste16_h.bmp differ diff --git a/ícones/save16_h.bmp b/ícones/save16_h.bmp new file mode 100644 index 0000000..9aa92d2 Binary files /dev/null and b/ícones/save16_h.bmp differ diff --git a/ícones/search16_h.bmp b/ícones/search16_h.bmp new file mode 100644 index 0000000..f0786e6 Binary files /dev/null and b/ícones/search16_h.bmp differ diff --git a/ícones/uncheck.bmp b/ícones/uncheck.bmp new file mode 100644 index 0000000..01bc89f Binary files /dev/null and b/ícones/uncheck.bmp differ diff --git a/ícones/undo16_h.bmp b/ícones/undo16_h.bmp new file mode 100644 index 0000000..d3d3daf Binary files /dev/null and b/ícones/undo16_h.bmp differ diff --git a/ícones/wizard.bmp b/ícones/wizard.bmp new file mode 100644 index 0000000..ef1562b Binary files /dev/null and b/ícones/wizard.bmp differ diff --git a/ícones/zoom in.bmp b/ícones/zoom in.bmp new file mode 100644 index 0000000..4a6b8ca Binary files /dev/null and b/ícones/zoom in.bmp differ diff --git a/ícones/zoom out.bmp b/ícones/zoom out.bmp new file mode 100644 index 0000000..07dc66e Binary files /dev/null and b/ícones/zoom out.bmp differ