jfaguiar

Olá pessoal. Como faço para atribuir um cor diferente em uma célula? Exemplo: oBrw:aCols[4]:bStrData := { || TMPDETAL->VENCIMENTO}, se o conteúdo desse campo for menor que a data atual, pintar de vermelho. Obrigado.

joaosiscom@hotmail.com

Olá João. Ates de tudo, muito obrigado pelas dicas. Salvei esse arquivo para fazer uns testes e acrescentei isso no código sethelpfile('n:\grupobh\fntw\Docmedw.Rtf') HELPSETTOPIC("#$KSOBRE O SISTEMA") Pelo jeito ele encontrou o arquivo RTF, mas abre a seguinte pagina. https://support.microsoft.com/pt-br/topic/erro-ao-abrir-a-ajuda-em-programas-baseados-no-windows-recurso-não-incluído-ou-ajuda-sem-suporte-3c841463-d67c-6062-0ee7-1a149da3973b

maravilha

Obrigado João. Você teria um arquivo de help por aí pra eu ver como é esse índice ?

Bom dia amigos. Como faço para definir e exibir um determinado texto de help em determinadas opções do sistema em Five Win? Alguém teria um exemplo? Obrigado

Olá Pessoal. Desculpem-me, esqueci de postar a correção. Segue abaixo: Method Banco_422() Class MR_Boleto ::Banco_Dv_____ := "7" ::Banco_Nome___ := "Safra" ::Banco_Agencia := PADL( ALLTRIM( Left( ::Banco_Agencia, 4 ) ), 4, '0' ) ::Conta________ := PADL( ALLTRIM( Left( ::Conta________, 8 ) ), 8, '0' ) ::Conta_DV_____ := PADL( ALLTRIM( Left( ::Conta_DV_____, 1 ) ), 1, '0' ) ::Carteira_____ := PADL( ALLTRIM( Left( ::Carteira_____, 2 ) ), 2, '0' ) ::Prefixo______ := PADL( ALLTRIM( Left( ::Prefixo______, 6 ) ), 6, '0' ) ::Ag_Cod_Cedent := '0' + ::Banco_Agencia + '/' + ::Conta________ + '-' + ::Conta_DV_____ //::NossoNumero__ := PADL( ALLTRIM( Left( ::NossoNumero__, 11 ) ), 11, '0' ) comment em 28/04/2021 ::NossoNumero__ := PADL( ALLTRIM( Left( ::NossoNumero__, 09 ) ), 09, '0' ) ::NossoNumer_DV := ::DC_Mod11( ::Banco________, 7, .T. , ::NossoNumero__, .F. ) IF ::Carteira_____ == '06' ::NossoNumero_z := ::Carteira_____ + '/' + ::NossoNumero__ + "-" + ::NossoNumer_DV ::Campo_Livre__:= '7' + ::Prefixo______ + ::NossoNumero__ + '4' ELSE /* Comment em 28/04/2021 conforme instruções do suporte técnico do Banco Safra ::NossoNumero_z := '0' + ::Banco_Agencia + '/' + ::NossoNumero__ + "-" + ::NossoNumer_DV ::Campo_Livre__ := '70' + ::Banco_Agencia + ::Conta________ + ::Conta_DV_____ + ::NossoNumero__ + ::NossoNumer_DV + '1' */ // bab incluído em 28/04/2021 conforme instruções do suporte técnico do Banco Safra ::NossoNumero_z := ::NossoNumero__ // ::Campo_Livre__ := '70' + ::Banco_Agencia + ::Conta________ + ::Conta_DV_____ + ::NossoNumero__ + ::NossoNumer_DV + '1' ::Campo_Livre__ := '70' + ::Banco_Agencia + ::Conta________ + ::Conta_DV_____ + ::NossoNumero__ + '2' // + ::NossoNumer_DV ENDIF Return NIL

Boa tarde amigos. Como posso gerar um array com oFtp:directory() que venha somente os carquivos correspondente à mascara enviada? Tenho utiizado algo como 00359495*.pdf e vem todos os arquivos da pasta. Já tentei também utilizar uma máscara como o nome exato do arquivo, tipo aFTPFILES := oFTP:Directory(cFtpDirCli,"000359495.pdf") e mesmo assim vem todos os arquivos. Obrigado

Boa tarde. Eu uso muito FTP em meus backups. Também tenho clientes que utilizam para armazenar imagens escaneadas de documentos dos seus clientes, as quais ficam disponíveis para visualização dos mesmos, através de aplicativo que desenvolvi. Quanto a um bom servidor de FTP, eu utilizo o do meu provedor, a Godaddy e acho muito bom. Outra opção é o da LocalWeb. Espero tê-lo ajudado. Abraço

Boa tarde amigos. Alguém teria a classe mrboleto com o método baixo atualizado? Na minha há uma inconsistência que o banco não aceita. Muito obrigado. Method Banco_422() Class MR_Boleto ::Banco_Dv_____ := "7" ::Banco_Nome___ := "Safra" ::Banco_Agencia := PADL( ALLTRIM( Left( ::Banco_Agencia, 4 ) ), 4, '0' ) ::Conta________ := PADL( ALLTRIM( Left( ::Conta________, 8 ) ), 8, '0' ) ::Conta_DV_____ := PADL( ALLTRIM( Left( ::Conta_DV_____, 1 ) ), 1, '0' ) ::Carteira_____ := PADL( ALLTRIM( Left( ::Carteira_____, 2 ) ), 2, '0' ) ::Prefixo______ := PADL( ALLTRIM( Left( ::Prefixo______, 6 ) ), 6, '0' ) ::Ag_Cod_Cedent := '0' + ::Banco_Agencia + '/' + ::Conta________ + '-' + ::Conta_DV_____ ::NossoNumero__ := PADL( ALLTRIM( Left( ::NossoNumero__, 11 ) ), 11, '0' ) ::NossoNumer_DV := ::DC_Mod11( ::Banco________, 7, .T. , ::NossoNumero__, .F. ) IF ::Carteira_____ == '06' ::NossoNumero_z := ::Carteira_____ + '/' + ::NossoNumero__ + "-" + ::NossoNumer_DV ::Campo_Livre__:= '7' + ::Prefixo______ + ::NossoNumero__ + '4' ELSE ::NossoNumero_z := '0' + ::Banco_Agencia + '/' + ::NossoNumero__ + "-" + ::NossoNumer_DV ::Campo_Livre__ := '70' + ::Banco_Agencia + ::Conta________ + ::Conta_DV_____ + ::NossoNumero__ + ::NossoNumer_DV + '1' ENDIF Return NIL

Olá pessoal. Alguém sabe de alguma coisa sobre essa linguagem para androide? Eu utilizo algumas aplicações desenvolvidas em Five Win em tablets com Windows, mas esses tablets custam muito caros e cada vez mais difíceis de encontra-los por aqui. Obrigado

Bom dia amigos. Alguém sabe se tem como capturar o nome da opção do menu (MENUITEM) selecionado ?, Preciso disso pra fazer um arquivo de log de acesso diário por usuário. MENU oMenu 2007 MENUITEM "Uti&litários" MENU MENUITEM "&Reorganização Geral da Base de Dados"; ACTION CHK_INDICES(.T.,.F.); MESSAGE "Cria os arquivos de índice de todas as tabelas do sistema" MENUITEM "&Reorganização Parcial da Base de Dados"; ACTION CHK_INDICES(.F.,.F.); MESSAGE "Cria os arquivos de índice inexistente" MENUITEM "&Reorganização Individual de Tabela"; ACTION IndexaIndividual(); MESSAGE "Cria os índices de uma tabela" ENDMENU ENDMENU Obrigado

Eu fiz essa função ha alguns anos: aMEUARRAY := {} nNUMERO := STRZERO(NUMERO08,2) nPOSI := mASCAN(aMEUARRAY, nNUMERO) IF nPOSI > 0 aMEUARRAY[nPOSI,2] += 1 ELSE AADD(aMEUARRAY,{nNUMERO,1}) ENDIF FUNCTION MAscan(aARRAY,WSEARCH,nCOLARRAY) DEFAULT nCOLARRAY := 1 FOR _i = 1 TO LEN(aARRAY) IF aARRAY[_i,nCOLARRAY] == WSEARCH RETURN(_i) ENDIF NEXT RETURN(0) ***************************************************************************

Boa tarde amigos. Como faço para criar uma planilha com mais de uma pasta na Texcel com Office 2010 ? No office 2013 deu certo, mas no 2010 não cria a segunda aba e os dados da aba2 sobrepõe as dados da primeira aba. Obrigado Segue o código: oExcel := TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Add() oSheet := oExcel:Get( "ActiveSheet" ) oSheet:Name := "Em Atividade " nROW := 1 oSheet:Columns(1):ColumnWidth := 8 oSheet:Columns(2):ColumnWidth := 50 oSheet:Columns(3):ColumnWidth := 13 oSheet:Cells( nROW,01):Value := "Código" oSheet:Cells( nROW,02):Value := "Cliente" oSheet:Cells( nROW,03):Value := "Quant.Coletas" // Aba dois oExcel:Sheets:Add() oSheet := oExcel:Get( "ActiveSheet" ) oSheet:Name := "Clientes Ativos" // Aba2 nROW := 1 oSheet:Columns(1):ColumnWidth := 8 oSheet:Columns(2):ColumnWidth := 50 oSheet:Columns(3):ColumnWidth := 15 oSheet:Cells( nROW,01):Value := "Código" oSheet:Cells( nROW,02):Value := "Cliente" oSheet:Cells( nROW,03):Value := "Contratos Ativos" oSheet:Cells( 1, 1 ):Select() oExcel:Visible := .T.

Olá Amigos. Alguém sabe como omitir Botão "X" de sair na Window ? Criei uma aplicação onde executo uma rotina que fica em loop repetindo uma busca num webservice à cada 10 minutos, porém quando o usuário clica no botão "x" o aplicativo não fecha. Obrigado

Obrigado pessoal. Criei uma solução onde guardo a linhas iniciais de cada tópico da planilha e à medida que insiro novas linhas o sistema incrementa mais 1 nessas linhas. RESOLVEU .

Boa tarde caríssimo Kapiaba. Amigão, capturar o conteúdo eu consegui, agora preciso mesmo é capturar o numero da linha

Bom dia meus amigos. Alguém sabe me explicar como capturar o numero da linha / coluna da planilha com TExcelScript() ? Obrigado

Olá Rogério. D e u C e r t o !!! Atualizei o método e alterei o carregamento das seguintes variáveis da seguinte forma: oBoleto:Prefixo______ := '' oBoleto:Prefixo_DV___ := '' Obrigado rapaz. Deus te abençoe... Feliz ano novo

Boa tarde amigos. Alguém teria a classe MrBoleto com a montagem da linha editável atualizada para o Banco Santander. Creio que o método abaixo está desatualizado, pois a linha editável gerada não bate com o do site e nem com o da cobrebem. Obriagdo Segue o método: Method Banco_033() Class MR_Boleto ::Banco_Dv_____ := "7" ::Banco_Nome___ := "Banco Santander" IF EMPTY( ::Prefixo______ ) ::Prefixo______ := ::Conta________ ::Conta________ := '' ::Prefixo_DV___ := ::Conta_DV_____ ::Conta_DV_____ := '' ENDIF ::Prefixo______ := PADL( ALLTRIM( Left( ::Prefixo______, 6 ) ), 6, '0' ) ::Prefixo_DV___ := PADL( ALLTRIM( Left( ::Prefixo_DV___, 1 ) ), 1, '0' ) ::NossoNumero__ := PADL( ALLTRIM( Left( ::NossoNumero__, 12 ) ), 12, '0' ) ::NossoNumer_DV := ::DC_Mod11( ::Banco________, 9, .F., ::NossoNumero__, .F. ) ::NossoNumero_z := ::NossoNumero__ + " " + ::NossoNumer_DV ::Ag_Cod_Cedent := TRAN( ::Banco_Agencia + '/' + ::Prefixo______ + '-' + ::Prefixo_DV___, "@!") ::Campo_Livre__ := '9' + ::Prefixo______ + ::NossoNumero__ + ::NossoNumer_DV + '0102' Return NIL //*----------------------------------------------------------------------------*

Às vezes me esqueço e coisas que eu lembrei que eu havia esquecido, mas nunca, jamais esquecerei da parceria "Dr. Gilmer e Flexdocs" no que diz respeito à NF-e e NFS-e. O Gilmer é o que podemos entender como "o pequeno notável !", kkk salvou muitos Clippeiros que estavam desnorteados. Vlw. Vlw Kapiaba, grande colaborador, Vlw muitos outros de fórum que são importantíssimos na minha carreira de programador de computador. Não sou empresário, sou programador de computador, a empresa é só um CNPJ. Sou o João Programador.

https://atendimento.tecnospeed.com.br/hc/pt-br/articles/360034114933-Rejeição-897-Informado-Código-numérico-em-formato-inválido

Bom dia meus amigos. Provavelmente a framigerada sefaz começou a validar agora a tarde de forma diferenciada alguma tag da NF-e e dar a seguinte mensagem na classe do dr. Gilmer: Rejeição: Código numérico em formato inválido TVONFEUTIL2G:BUSCANFE. Alguém sabe o que é isto?

Quero dizer não da geração do txt, mas da interação do FW com os métodos da dll Flexdocs, copiou? Tipo, validar o CT-e, enviar, etc. Vi que alguns eventos são bem parecidos com o da Nfe_Util.

Bom dia. Vou adquirir a dll pra um cliente. Você não teria um exemplozinho de como gerar o xml e enviar ? Quanto ao impresso é simples.