Valdir Posted May 10, 2016 Report Share Posted May 10, 2016 Olá pessoal... Bom dia. Continuando meu aprendizado.., - Tenho uma xBrowse com uma query inicial com no máximo 100 registros. - Coloquei um Get para o usuário digitar o filtro - Gostaria que através do valid deste Get, essa query inicial fosse destruida e iniciada uma nova utilizando o filtro LIKE Vejam a minha Tela: Alguém sabe me dizer se isso é possível ? Pesquisei na pouca documentação que tenho e não descobri uma forma de destruir uma query. Obrigado. Quote Link to comment Share on other sites More sharing options...
kleyber Posted May 10, 2016 Report Share Posted May 10, 2016 Valdir, Você tem algumas opções de fazer isso. A minha sugestão é que você abrisse um novo browse com os registros filtrados, assim você poderia fazer a navegação nesse novo browse, sem influenciar o principal e sem precisar destruir tua query. Então quando digitares o filtro, crie um novo objeto com a query filtrando o que desejas, mostrando em um novo browse. Quote Link to comment Share on other sites More sharing options...
Valdir Posted May 10, 2016 Author Report Share Posted May 10, 2016 Amigo Kleyber... Obrigado pela resposta. Gostei da sua ideia, vou colocá-la em prática. Agora só pra efeito de didática, como elimino uma query ? Obrigado. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 10, 2016 Report Share Posted May 10, 2016 Se quiser, um amigo meu dá uma jeito de "eliminar" essa tal de Query.... kkkkkkkkkkkkkkkkkkkk Abs Valdir 1 Quote Link to comment Share on other sites More sharing options...
Jorge Andrade Posted May 10, 2016 Report Share Posted May 10, 2016 Maldade João, assim é covardia, não pode ser via decisão do presidente da câmara dos deputados Valdir Maranhão??? ahauhauhauahua kapiaba and Valdir 2 Quote Link to comment Share on other sites More sharing options...
kleyber Posted May 10, 2016 Report Share Posted May 10, 2016 kkkkk se for via presidente da Câmara não vai dar... no outro dia ele se arrepende!!!! kkkkk Valdir, se eu entendi bem, a query está em um objeto. Então pra mudar esse objeto com outra query, salvo engano tem o oQry:Destroy(). Quote Link to comment Share on other sites More sharing options...
Valdir Posted May 10, 2016 Author Report Share Posted May 10, 2016 Valdir, se eu entendi bem, a query está em um objeto. Então pra mudar esse objeto com outra query, salvo engano tem o oQry:Destroy(). Amigo Kleyber. Infelizmente a TDolphin não tem esse Method. Obrigado. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 10, 2016 Report Share Posted May 10, 2016 #include "tdolphin.ch" #define CRLF Chr( 13 ) + Chr( 10 ) PROCEDURE Main() LOCAL cText := "" LOCAL oQry, oServer SET CENTURY ON SET DATE FORMAT "dd/mm/yyyy" D_SetCaseSensitive( .T. ) IF ( oServer := ConnectTo() ) == NIL RETURN NIL ENDIF cls cText = "CALL born_in_year( 1908 )" oQry := oServer:Query( cText ) DolphinBrw( oQry, "Test" ) oServer:NextResult() oQry:End() cText = "CALL born_in_year( 1913 )" oQry := oServer:Query( cText ) DolphinBrw( oQry, "Test" ) oServer:NextResult() oQry:End() cText = "call count_born_in_year( 1913, @count )" oQry := oServer:Execute( cText ) oServer:NextResult() oQry := oServer:Query( "select @count as count" ) ? "count is:" ?? oQry:count oQry:End() RETURN Valdir 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 10, 2016 Report Share Posted May 10, 2016 ejemplo de multiples sentencias #include "tdolphin.ch" FUNCTION Main() LOCAL oServer, oQry D_SetCaseSensitive( .T. ) Set_MyLang( "esp" ) IF ( oServer := ConnectTo() ) == NIL RETURN NIL ENDIF oQry = oServer:Query( "select * from president; select * from student" ) DolphinBrw( oQry, "President" ) oQry:LoadNextQuery( ) DolphinBrw( oQry, "Student" ) oQry = NIL oServer:End() RETURN NIL Quote Link to comment Share on other sites More sharing options...
CIACPD Posted May 10, 2016 Report Share Posted May 10, 2016 Olá Valdir, dentro da função valid do get que o sr informou coloque cText = "select campos1, campo2, ... from tabela where campo_filtro='" +seuget+"'" oQry := oServer:Execute( cText ) seuxbrowse:refresh() Daniel Segura Quote Link to comment Share on other sites More sharing options...
marcioe Posted May 11, 2016 Report Share Posted May 11, 2016 Amigo, já que voce esta mexendo no seu sistema porque voce nao coloca ela assim Fica bem menor e mais fácil do usuario fazer manutenção veja como ficou no meu sistema ele Edita no proprio browse, no array, dai não preciso fazer filtros, pesquisas, etc. Caso Algum amigo queira usar sinta-se a vontade #include "MARCIO.CH" #define CRTLF CHR(13)+ CHR(10) FUNCTION CAD_ALIQUOTA_INTERESTADUAL() M->VAR_MENU := 'CADASTRO' M->VAR_NIVEIS_NOME_MENUS := 'ALIQUOTAS DE ICMS INTERESTADUAL' IF VER_CONTROLE_DE_ACESSO(M->VAR_MENU,M->VAR_NIVEIS_NOME_MENUS,'S',"ABRIR") = (.T.) *---------------------------------------------------------------------------- DEFINE FONT O_F_DLG NAME "MS SANS SERIF" SIZE 0,-10 DEFINE FONT O_F_BRW NAME "MS SANS SERIF" SIZE 0,-15 DEFINE FONT O_F_GET NAME "ARIAL" SIZE 07,18 BOLD DEFINE FONT O_F_GET2 NAME "ARIAL" SIZE 12,20 BOLD DEFINE FONT O_F_GET3 NAME "ARIAL" SIZE 25,30 BOLD DEFINE FONT oFontV1 NAME "Arial" SIZE 07,18 BOLD NESCAPEMENT 90*10 *---------------------------------------------------------------------------- *========================================================================= IF(! Table("aliquotas_operacao_interestadual") ) MsgInfo('A Tabela ( aliquotas_operacao_interestadual ) Será Criada !',SISTEMA) BEGIN TRANSACTION cCMDSQL := " CREATE TABLE `aliquotas_operacao_interestadual` ( " cCMDSQL := cCMDSQL + " `CODIGO_ALIQUOTA` INT(3) NOT NULL AUTO_INCREMENT, " cCMDSQL := cCMDSQL + " `SIGLA_ESTADO` CHAR(2) NULL DEFAULT NULL, " cCMDSQL := cCMDSQL + " `NOME_ESTADO` CHAR(20) NULL DEFAULT NULL, " cCMDSQL := cCMDSQL + " `UF_AC` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_AL` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_AM` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_AP` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_BA` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_CE` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_DF` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_ES` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_GO` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_MA` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_MT` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_MS` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_MG` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_PA` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_PB` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_PR` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_PE` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_PI` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_RN` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_RS` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_RJ` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_RO` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_RR` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_SC` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_SP` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_SE` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_TO` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " `UF_EX` DECIMAL(10,2) NULL DEFAULT '0.00', " cCMDSQL := cCMDSQL + " PRIMARY KEY (`CODIGO_ALIQUOTA`), " cCMDSQL := cCMDSQL + " UNIQUE INDEX `CODIGO_ALIQUOTA` (`CODIGO_ALIQUOTA`)) " cCMDSQL := cCMDSQL + " COLLATE='latin1_swedish_ci' " cCMDSQL := cCMDSQL + " ENGINE=InnoDB; " SqlExecute( cCMDSQL ) END TRANSACTION cQuery_Mtabela := " INSERT INTO `aliquotas_operacao_interestadual` (`CODIGO_ALIQUOTA`, `SIGLA_ESTADO`, `NOME_ESTADO`, `UF_AC`, `UF_AL`, `UF_AM`, `UF_AP`, `UF_BA`, `UF_CE`, `UF_DF`, `UF_ES`, `UF_GO`, `UF_MA`, `UF_MT`, `UF_MS`, `UF_MG`, `UF_PA`, `UF_PB`, `UF_PR`, `UF_PE`, `UF_PI`, `UF_RN`, `UF_RS`, `UF_RJ`, `UF_RO`, `UF_RR`, `UF_SC`, `UF_SP`, `UF_SE`, `UF_TO`, `UF_EX`) VALUES " cQuery_Mtabela := cQuery_Mtabela + " (1, 'AC', 'ACRE', 17.00, 12.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (2, 'AL', 'ALAGOAS', 12.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (3, 'AM', 'AMAZONAS', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (4, 'AP', 'AMAPA', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (5, 'BA', 'BAHIA', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (6, 'CE', 'CEARA', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (7, 'DF', 'DISTRITO FEDERAL', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (8, 'ES', 'ESPIRITO SANTO', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (9, 'GO', 'GOIAS', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (10, 'MA', 'MARANHAO', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (11, 'MT', 'MATO GROSSO', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (12, 'MS', 'MATO GROSSO DO SUL', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (13, 'MG', 'MINAS GERAIS', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (14, 'PA', 'PARA', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (15, 'PB', 'PARAIBA', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (16, 'PR', 'PARANA', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (17, 'PE', 'PERNAMBUCO', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (18, 'PI', 'PIAUI', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (19, 'RN', 'RIO GRANDE DO NORTE', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (20, 'RS', 'RIO GRANDE DO SUL', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (21, 'RJ', 'RIO DE JANEIRO', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (22, 'RO', 'RONDONIA', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (23, 'RR', 'RORAIMA', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (24, 'SC', 'SANTA CATARIAN', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (25, 'SP', 'SAO PAULO', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (26, 'SE', 'SERGIPE', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (27, 'TO', 'TOCANTINS', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00), " cQuery_Mtabela := cQuery_Mtabela + " (28, 'EX', 'EXTERIOR', 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00); " COMITAR_DADOS_SQL(cQuery_Mtabela) ENDIF T_UF := SPACE(02) T_AC := 0 T_AL := 0 T_AM := 0 T_AP := 0 T_BA := 0 T_CE := 0 T_DF := 0 T_ES := 0 T_GO := 0 T_MA := 0 T_MT := 0 T_MS := 0 T_MG := 0 T_PA := 0 T_PB := 0 T_PR := 0 T_PE := 0 T_PI := 0 T_RN := 0 T_RS := 0 T_RJ := 0 T_RO := 0 T_RR := 0 T_SC := 0 T_SP := 0 T_SE := 0 T_TO := 0 T_EX := 0 T_TXT:= '' T_TXT_ORIGEM := 'UF de Origem' T_TXT_DESTINO := 'UF de Destino' aArray_aliquotas_operacao_interestadual := {} *---------------------------------------------------------------------------- IF SELECT("aliquotas_operacao_interestadual") != 0 aliquotas_operacao_interestadual->(DbCloseArea()) ENDIF cQuery:= ' SELECT * FROM aliquotas_operacao_interestadual ORDER BY CODIGO_ALIQUOTA ASC' use sql cQuery alias "aliquotas_operacao_interestadual" new via 'MYSQL' aliquotas_operacao_interestadual->(DbGoTop()) *---------------------------------------------------------------------------- DEFINE DIALOG oDlg_CAD_ALIQUOTA_INTERESTADUAL RESOURCE "CAD_ALIQUOTA_INTERESTADUAL" TITLE "...:: Cadastro de Aliquotas de ICMS (Interestadual) ::..." Font O_F_DLG oDlg_CAD_ALIQUOTA_INTERESTADUAL:lHelpIcon:=.F. *---------------------------------------------------------------------------- REDEFINE SAY oT_TXT_DESTINO VAR T_TXT_DESTINO ID 4005 OF oDlg_CAD_ALIQUOTA_INTERESTADUAL FONT O_F_GET COLOR CLR_VERMELHO Update *REDEFINE SAY oT_TXT_ORIGEM VAR T_TXT_ORIGEM ID 4006 OF oDlg_CAD_ALIQUOTA_INTERESTADUAL FONT oFontV1 COLOR CLR_VERMELHO Update *---------------------------------------------------------------------------- MONTA_ARRAY_ALIQUOTA_INTERESTADUAL('N') oDB_ALIQ_INTERESTADUAL := TXBrowse():New( oDlg_CAD_ALIQUOTA_INTERESTADUAL ) oDB_ALIQ_INTERESTADUAL:lColDividerComplete := .F. oDB_ALIQ_INTERESTADUAL:lFooter := .T. oDB_ALIQ_INTERESTADUAL:lRecordSelector := .T. oDB_ALIQ_INTERESTADUAL:nHeaderLines := 2.0 oDB_ALIQ_INTERESTADUAL:nDataLines := 2.0 oDB_ALIQ_INTERESTADUAL :SetArray( aArray_aliquotas_operacao_interestadual ) oDB_ALIQ_INTERESTADUAL :CreateFromResource(4049) *oDB_ALIQ_INTERESTADUAL:bClrStd := {|| { COR_LETRAS_GRID, IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } oDB_ALIQ_INTERESTADUAL:bClrSelFocus := {|| { M->COR_1_bClrSelFocus, M->COR_2_bClrSelFocus } } oDB_ALIQ_INTERESTADUAL:bClrRowFocus := {|| { M->COR_1_bClrRowFocus, M->COR_2_bClrRowFocus } } oDB_ALIQ_INTERESTADUAL:nColDividerStyle := 4 oDB_ALIQ_INTERESTADUAL:nRowDividerStyle := 4 oDB_ALIQ_INTERESTADUAL:nMarqueeStyle := 4 oDB_ALIQ_INTERESTADUAL:nFooterLines := 1 oDB_ALIQ_INTERESTADUAL:lAllowColSwapping := .T. // Click no header (.f.)Trava oDB_ALIQ_INTERESTADUAL:lAllowRowSizing := .T. // Nao move as Linhas (nao sei) oDB_ALIQ_INTERESTADUAL:l2007 := M->ESTILO_l2007 oDB_ALIQ_INTERESTADUAL:lAllowRowSizing := .T. oDB_ALIQ_INTERESTADUAL:nFreeze:=1 // congelar a coluna oDB_ALIQ_INTERESTADUAL:nFreeze:=2 oDB_ALIQ_INTERESTADUAL:nFreeze:=3 *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[01]:nWidth := 025 oDB_ALIQ_INTERESTADUAL:aCols[01]:cHeader := "Id" oDB_ALIQ_INTERESTADUAL:aCols[01]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[01]:nHeadStrAlign := AL_LEFT oDB_ALIQ_INTERESTADUAL:aCols[01]:cToolTip := {"Código","Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[01]:nFootStrAlign := AL_RIGHT *------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[02]:nWidth := 030 oDB_ALIQ_INTERESTADUAL:aCols[02]:cHeader := "UF" oDB_ALIQ_INTERESTADUAL:aCols[02]:nDataStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[02]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[02]:cToolTip := {"Sigla do Estado","Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[02]:nFootStrAlign := AL_RIGHT *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[03]:nWidth := 150 oDB_ALIQ_INTERESTADUAL:aCols[03]:cHeader := "Nome Estado" oDB_ALIQ_INTERESTADUAL:aCols[03]:nDataStrAlign := AL_LEFT oDB_ALIQ_INTERESTADUAL:aCols[03]:nHeadStrAlign := AL_LEFT oDB_ALIQ_INTERESTADUAL:aCols[03]:cToolTip := {"Nome do Estado","Ajuda","", } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[04]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[04]:cHeader := "AC" oDB_ALIQ_INTERESTADUAL:aCols[04]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[04]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[04]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[04]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[04]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 04],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[04]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[04]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[04]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[04]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[05]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[05]:cHeader := "AL" oDB_ALIQ_INTERESTADUAL:aCols[05]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[05]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[05]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[05]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[05]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 05],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[05]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[05]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[05]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[05]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[06]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[06]:cHeader := "AM" oDB_ALIQ_INTERESTADUAL:aCols[06]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[06]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[06]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[06]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[06]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 06],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[06]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[06]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[06]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[06]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[07]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[07]:cHeader := "AP" oDB_ALIQ_INTERESTADUAL:aCols[07]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[07]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[07]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[07]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[07]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 07],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[07]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[07]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[07]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[07]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[08]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[08]:cHeader := "BA" oDB_ALIQ_INTERESTADUAL:aCols[08]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[08]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[08]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[08]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[08]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 08],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[08]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[08]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[08]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[08]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[09]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[09]:cHeader := "CE" oDB_ALIQ_INTERESTADUAL:aCols[09]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[09]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[09]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[09]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[09]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 09],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[09]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[09]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[09]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[09]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[10]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[10]:cHeader := "DF" oDB_ALIQ_INTERESTADUAL:aCols[10]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[10]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[10]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[10]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[10]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 10],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[10]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[10]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[10]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[10]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[11]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[11]:cHeader := "ES" oDB_ALIQ_INTERESTADUAL:aCols[11]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[11]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[11]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[11]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[11]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 11],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[11]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[11]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[11]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[11]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[12]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[12]:cHeader := "GO" oDB_ALIQ_INTERESTADUAL:aCols[12]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[12]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[12]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[12]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[12]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 12],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[12]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[12]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[12]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[12]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[13]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[13]:cHeader := "MA" oDB_ALIQ_INTERESTADUAL:aCols[13]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[13]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[13]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[13]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[13]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 13],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[13]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[13]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[13]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[13]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[14]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[14]:cHeader := "MT" oDB_ALIQ_INTERESTADUAL:aCols[14]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[14]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[14]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[14]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[14]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 14],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[14]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[14]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[14]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[14]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[15]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[15]:cHeader := "MS" oDB_ALIQ_INTERESTADUAL:aCols[15]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[15]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[15]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[15]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[15]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 15],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[15]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[15]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[15]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[15]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[16]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[16]:cHeader := "MG" oDB_ALIQ_INTERESTADUAL:aCols[16]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[16]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[16]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[16]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[16]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 16],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[16]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[16]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[16]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[16]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[17]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[17]:cHeader := "PA" oDB_ALIQ_INTERESTADUAL:aCols[17]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[17]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[17]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[17]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[17]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 17],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[17]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[17]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[17]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[17]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[18]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[18]:cHeader := "PB" oDB_ALIQ_INTERESTADUAL:aCols[18]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[18]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[18]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[18]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[18]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 18],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[18]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[18]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[18]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[18]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[19]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[19]:cHeader := "PR" oDB_ALIQ_INTERESTADUAL:aCols[19]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[19]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[19]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[19]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[19]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 19],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[19]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[19]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[19]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[19]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[20]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[20]:cHeader := "PE" oDB_ALIQ_INTERESTADUAL:aCols[20]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[20]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[20]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[20]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[20]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 20],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[20]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[20]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[20]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[20]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[21]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[21]:cHeader := "PI" oDB_ALIQ_INTERESTADUAL:aCols[21]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[21]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[21]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[21]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[21]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 21],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[21]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[21]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[21]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[21]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[22]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[22]:cHeader := "RN" oDB_ALIQ_INTERESTADUAL:aCols[22]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[22]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[22]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[22]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[22]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 22],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[22]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[22]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[22]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[22]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[23]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[23]:cHeader := "RS" oDB_ALIQ_INTERESTADUAL:aCols[23]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[23]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[23]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[23]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[23]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 23],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[23]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[23]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[23]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[23]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[24]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[24]:cHeader := "RJ" oDB_ALIQ_INTERESTADUAL:aCols[24]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[24]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[24]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[24]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[24]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 24],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[24]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[24]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[24]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[24]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[25]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[25]:cHeader := "RO" oDB_ALIQ_INTERESTADUAL:aCols[25]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[25]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[25]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[25]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[25]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 25],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[25]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[25]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[25]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[25]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[26]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[26]:cHeader := "RR" oDB_ALIQ_INTERESTADUAL:aCols[26]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[26]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[26]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[26]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[26]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 26],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[26]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[26]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[26]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[26]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[27]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[27]:cHeader := "SC" oDB_ALIQ_INTERESTADUAL:aCols[27]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[27]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[27]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[27]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[27]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 27],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[27]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[27]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[27]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[27]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[28]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[28]:cHeader := "SP" oDB_ALIQ_INTERESTADUAL:aCols[28]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[28]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[28]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[28]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[28]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 28],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[28]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[28]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[28]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[28]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[29]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[29]:cHeader := "SE" oDB_ALIQ_INTERESTADUAL:aCols[29]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[29]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[29]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[29]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[29]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 29],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[29]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[29]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[29]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[29]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[30]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[30]:cHeader := "TO" oDB_ALIQ_INTERESTADUAL:aCols[30]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[30]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[30]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[30]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[30]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 30],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[30]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[30]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[30]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[30]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- oDB_ALIQ_INTERESTADUAL:aCols[31]:nWidth := 040 oDB_ALIQ_INTERESTADUAL:aCols[31]:cHeader := "EX" oDB_ALIQ_INTERESTADUAL:aCols[31]:nDataStrAlign := AL_RIGHT oDB_ALIQ_INTERESTADUAL:aCols[31]:nHeadStrAlign := AL_CENTER oDB_ALIQ_INTERESTADUAL:aCols[31]:cToolTip := {"Aliquota do Estado de Destino"+CRTLF+ alltrim( (oDB_ALIQ_INTERESTADUAL:aCols[31]:cHeader) ),"Ajuda","", } oDB_ALIQ_INTERESTADUAL:aCols[31]:bStrData := {|| IIF( LEN( aArray_aliquotas_operacao_interestadual ) = 0, SPACE(10) , TRANS( aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 31],"@E 99" ) ) } oDB_ALIQ_INTERESTADUAL:aCols[31]:cEditPicture := "@E 99" oDB_ALIQ_INTERESTADUAL:aCols[31]:nEditType := EDIT_GET oDB_ALIQ_INTERESTADUAL:aCols[31]:bClrStd := {|| { iif( (oDB_ALIQ_INTERESTADUAL:aCols[31]:cHeader) == aArray_aliquotas_operacao_interestadual[oDB_ALIQ_INTERESTADUAL:nArrayAt, 02] , CLR_VERMELHO,COR_LETRAS_GRID), IIF((oDB_ALIQ_INTERESTADUAL:KeyNo())%2==0, COR_1_bClrStd , COR_2_bClrStd ) } } *---------------------------------------------------------------------------- REDEFINE BUTTONBMP oBtSalvar ID 4001 OF oDlg_CAD_ALIQUOTA_INTERESTADUAL ACTION( GRAVA_CADASTRO_ALIQUOTAS_INTERESTADUAIS() ) BITMAP (M->BTN_GRAVA_REGISTRO) PROMPT "&Gravar Mudanças" TEXTRIGHT REDEFINE BUTTONBMP oBtExcel ID 4002 OF oDlg_CAD_ALIQUOTA_INTERESTADUAL ACTION( oDB_ALIQ_INTERESTADUAL:ToExcel() ) BITMAP (M->BTN_EXPORTA_EXCEL) PROMPT "&Exportar Excel" TEXTRIGHT REDEFINE SAY oT_TXT VAR T_TXT ID 4004 OF oDlg_CAD_ALIQUOTA_INTERESTADUAL FONT O_F_GET COLOR CLR_AZUL Update REDEFINE BUTTONBMP oBtSair ID 4003 OF oDlg_CAD_ALIQUOTA_INTERESTADUAL ACTION( oDlg_CAD_ALIQUOTA_INTERESTADUAL:End() ) BITMAP (M->BTN_SAIR_REGISTRO) PROMPT "&Fechar" TEXTRIGHT *---------------------------------------------------------------------------- ACTIVATE DIALOG oDlg_CAD_ALIQUOTA_INTERESTADUAL CENTERED O_F_DLG:end() O_F_BRW:end() O_F_GET:end() ENDIF *---------------------------------------------------------------------------- RETURN .T. STATIC FUNCTION MONTA_ARRAY_ALIQUOTA_INTERESTADUAL(COM_ATUALIZACAO_BROWSE) T_QTDE_ALIQUOTA_INTERESTADUAL := 0 aArray_aliquotas_operacao_interestadual := {} IF SELECT("aliquotas_operacao_interestadual") != 0 aliquotas_operacao_interestadual->(DbCloseArea()) ENDIF cQuery:= ' SELECT * FROM aliquotas_operacao_interestadual ORDER BY CODIGO_ALIQUOTA ASC' use sql cQuery alias "aliquotas_operacao_interestadual" new via 'MYSQL' aliquotas_operacao_interestadual->(DbGoTop()) *---------------------------------------------------------------------------- DO WHILE aliquotas_operacao_interestadual->(!Eof()) IF aliquotas_operacao_interestadual->CODIGO_ALIQUOTA != 0 T_QTDE_ALIQUOTA_INTERESTADUAL := T_QTDE_ALIQUOTA_INTERESTADUAL + 1 aAdd( aArray_aliquotas_operacao_interestadual, { str(aliquotas_operacao_interestadual->CODIGO_ALIQUOTA,02,0),; aliquotas_operacao_interestadual->SIGLA_ESTADO,; aliquotas_operacao_interestadual->NOME_ESTADO,; aliquotas_operacao_interestadual->UF_AC,; aliquotas_operacao_interestadual->UF_AL,; aliquotas_operacao_interestadual->UF_AM,; aliquotas_operacao_interestadual->UF_AP,; aliquotas_operacao_interestadual->UF_BA,; aliquotas_operacao_interestadual->UF_CE,; aliquotas_operacao_interestadual->UF_DF,; aliquotas_operacao_interestadual->UF_ES,; aliquotas_operacao_interestadual->UF_GO,; aliquotas_operacao_interestadual->UF_MA,; aliquotas_operacao_interestadual->UF_MT,; aliquotas_operacao_interestadual->UF_MS,; aliquotas_operacao_interestadual->UF_MG,; aliquotas_operacao_interestadual->UF_PA,; aliquotas_operacao_interestadual->UF_PB,; aliquotas_operacao_interestadual->UF_PR,; aliquotas_operacao_interestadual->UF_PE,; aliquotas_operacao_interestadual->UF_PI,; aliquotas_operacao_interestadual->UF_RN,; aliquotas_operacao_interestadual->UF_RS,; aliquotas_operacao_interestadual->UF_RJ,; aliquotas_operacao_interestadual->UF_RO,; aliquotas_operacao_interestadual->UF_RR,; aliquotas_operacao_interestadual->UF_SC,; aliquotas_operacao_interestadual->UF_SP,; aliquotas_operacao_interestadual->UF_SE,; aliquotas_operacao_interestadual->UF_TO,; aliquotas_operacao_interestadual->UF_EX } ) *------------------------------------------------------------------- ENDIF aliquotas_operacao_interestadual->(dbSkip()) ENDDO *------------------------------------------------------------------------- IF T_QTDE_ALIQUOTA_INTERESTADUAL == 0 T_QTDE_ALIQUOTA_INTERESTADUAL := T_QTDE_ALIQUOTA_INTERESTADUAL + 1 aAdd( aArray_aliquotas_operacao_interestadual, { str(0,02,0),; '',; '',; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0,; 0 } ) ENDIF *------------------------------------------------------------------------- *Asort( aArray_aliquotas_operacao_interestadual,,, {|x,y| (x[ 01 ] ) > (y[ 01 ]) } ) *------------------------------------------------------------------------- IF COM_ATUALIZACAO_BROWSE = 'S' oDB_ALIQ_INTERESTADUAL:Keycount() oDB_ALIQ_INTERESTADUAL:Refresh(.t.) oDB_ALIQ_INTERESTADUAL:aArrayData:=aArray_aliquotas_operacao_interestadual ENDIF RETURN .T. STATIC FUNCTION GRAVA_CADASTRO_ALIQUOTAS_INTERESTADUAIS() FOR nI = 1 to Len( aArray_aliquotas_operacao_interestadual ) T_UF := (aArray_aliquotas_operacao_interestadual[nI,2]) T_AC := (aArray_aliquotas_operacao_interestadual[nI,4]) T_AL := (aArray_aliquotas_operacao_interestadual[nI,5]) T_AM := (aArray_aliquotas_operacao_interestadual[nI,6]) T_AP := (aArray_aliquotas_operacao_interestadual[nI,7]) T_BA := (aArray_aliquotas_operacao_interestadual[nI,8]) T_CE := (aArray_aliquotas_operacao_interestadual[nI,9]) T_DF := (aArray_aliquotas_operacao_interestadual[nI,10]) T_ES := (aArray_aliquotas_operacao_interestadual[nI,11]) T_GO := (aArray_aliquotas_operacao_interestadual[nI,12]) T_MA := (aArray_aliquotas_operacao_interestadual[nI,13]) T_MT := (aArray_aliquotas_operacao_interestadual[nI,14]) T_MS := (aArray_aliquotas_operacao_interestadual[nI,15]) T_MG := (aArray_aliquotas_operacao_interestadual[nI,16]) T_PA := (aArray_aliquotas_operacao_interestadual[nI,17]) T_PB := (aArray_aliquotas_operacao_interestadual[nI,18]) T_PR := (aArray_aliquotas_operacao_interestadual[nI,19]) T_PE := (aArray_aliquotas_operacao_interestadual[nI,20]) T_PI := (aArray_aliquotas_operacao_interestadual[nI,21]) T_RN := (aArray_aliquotas_operacao_interestadual[nI,22]) T_RS := (aArray_aliquotas_operacao_interestadual[nI,23]) T_RJ := (aArray_aliquotas_operacao_interestadual[nI,24]) T_RO := (aArray_aliquotas_operacao_interestadual[nI,25]) T_RR := (aArray_aliquotas_operacao_interestadual[nI,26]) T_SC := (aArray_aliquotas_operacao_interestadual[nI,27]) T_SP := (aArray_aliquotas_operacao_interestadual[nI,28]) T_SE := (aArray_aliquotas_operacao_interestadual[nI,29]) T_TO := (aArray_aliquotas_operacao_interestadual[nI,30]) T_EX := (aArray_aliquotas_operacao_interestadual[nI,31]) *------------------------------------------------------------------------- T_TXT := 'Gravando dados.: ' + T_UF oT_TXT : Refresh() *------------------------------------------------------------------------- cQuery_Mtabela := "UPDATE aliquotas_operacao_interestadual SET " cQuery_Mtabela := cQuery_Mtabela + " UF_AC = " + TRANSFORMA_SQL(T_AC,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_AL = " + TRANSFORMA_SQL(T_AL,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_AM = " + TRANSFORMA_SQL(T_AM,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_AP = " + TRANSFORMA_SQL(T_AP,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_BA = " + TRANSFORMA_SQL(T_BA,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_CE = " + TRANSFORMA_SQL(T_CE,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_DF = " + TRANSFORMA_SQL(T_DF,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_ES = " + TRANSFORMA_SQL(T_ES,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_GO = " + TRANSFORMA_SQL(T_GO,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_MA = " + TRANSFORMA_SQL(T_MA,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_MT = " + TRANSFORMA_SQL(T_MT,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_MS = " + TRANSFORMA_SQL(T_MS,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_MG = " + TRANSFORMA_SQL(T_MG,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_PA = " + TRANSFORMA_SQL(T_PA,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_PB = " + TRANSFORMA_SQL(T_PB,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_PR = " + TRANSFORMA_SQL(T_PR,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_PE = " + TRANSFORMA_SQL(T_PE,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_PI = " + TRANSFORMA_SQL(T_PI,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_RN = " + TRANSFORMA_SQL(T_RN,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_RS = " + TRANSFORMA_SQL(T_RS,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_RJ = " + TRANSFORMA_SQL(T_RJ,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_RO = " + TRANSFORMA_SQL(T_RO,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_RR = " + TRANSFORMA_SQL(T_RR,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_SC = " + TRANSFORMA_SQL(T_SC,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_SP = " + TRANSFORMA_SQL(T_SP,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_SE = " + TRANSFORMA_SQL(T_SE,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_TO = " + TRANSFORMA_SQL(T_TO,"N",06,2) + "," cQuery_Mtabela := cQuery_Mtabela + " UF_EX = " + TRANSFORMA_SQL(T_EX,"N",06,2) cQuery_Mtabela := cQuery_Mtabela + " WHERE SIGLA_ESTADO = " + TRANSFORMA_SQL(T_UF,"T",02,0) + ' LIMIT 1' COMITAR_DADOS_SQL(cQuery_Mtabela) NEXT T_TXT := 'Gravação, Termianada com Êxito !' oT_TXT : Refresh() MsgInfo(T_TXT,SISTEMA) T_TXT := '' oT_TXT : Refresh() RETURN .T. Quote Link to comment Share on other sites More sharing options...
Valdir Posted May 11, 2016 Author Report Share Posted May 11, 2016 Amigos... Obrigado pelas Respostas e Dicas. Todas me ajudaram muito. Resolvi criar ma nova query em uma nova Diaolog de Filtro, conforme a sugestão do amigo Kleyber. A solução completa para quilo que estava querendo, consegui alcançar juntando um pouco de cada sugestão. Acredito que todos que estejam aprendendo, assim como eu, estão aproveitando ao máximo essas verdadeiras aulas de companheirismo e humildade. A cada novo obstáculo conquistado com a ajuda de vocês, fico lisonjeado em poder participar de uma Comunidade Impar do nosso meio. Mais uma vez, agradeço à todos que estão empenhados em dividir e ensinar. Brigadão Quote Link to comment Share on other sites More sharing options...
Marca Posted May 11, 2016 Report Share Posted May 11, 2016 Valdir. Além desta maneira que nosso amigo Kleyber sugeriu você tbem pode fazer de outro jeito. Ao invés de criar o browse com arquivo fazer isso com array e ai vc pesquisa dentro do array não tendo a necessidade de executar uma nova query Quote Link to comment Share on other sites More sharing options...
Valdir Posted May 12, 2016 Author Report Share Posted May 12, 2016 Olá amigo Marcelo... Obrigado pela Resposta. Por enquanto estou aprendendo a dominar e a descobrir as rotinas mais comuns de um Bd Relacional. Após 30 anos de convivência com os DBFs, me sinto motivado a tentar a aprender ao máximo possível os comandos nativos da SQL. O segundo passo será o refinamento do meu aplicativo teste, onde devo usar os arrays. Abrs. Quote Link to comment Share on other sites More sharing options...
marcioe Posted May 12, 2016 Report Share Posted May 12, 2016 Amigo, vai por mim, não uso as melhores técnicas com SQL, mas não me arrependo nem 0,01 % de ter trocado.Tudo de bom só alegria. Se voce colocar ele em um Servidor LINUX, ai sim que voce esquece problemas de dor de cabeça com o banco de dados Não tem que Dar Reindex, indice corrompido, registros que nao gravou, etc. Só alegria mesmo Valdir 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.