jfaguiar

September 2, 2021

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.

August 2, 2021

2 horas atrás, joaosolution disse:

Este aqrquivo é o modelo em RTF para gerar o HLP

O HLP pronto depois de compilado é grande, qual e-mail posso te enviar?

joaosiscom@hotmail.com

August 2, 2021

8 minutos atrás, jfaguiar disse:

maravilha

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

August 2, 2021

12 minutos atrás, joaosolution disse:

Segue um exemplo.

Se não me engano você deve utilizar um programa para compilar o rtf em HLP, microsoft help editor.

Mas não tenho o arquivo aqui agora.

DocMedW.rtf 92 kB · 0 downloads

maravilha

August 2, 2021

2 minutos atrás, joaosolution disse:

Bom dia

HELPSETTOPIC("Setores")

Este iten Setores é um índice dentro do arquivo HLP.

Att

João Bosco

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

August 2, 2021

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

May 30, 2021

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

May 30, 2021

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

May 30, 2021

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

April 28, 2021

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

November 3, 2020

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

September 3, 2020

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

May 15, 2020

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)
***************************************************************************

April 14, 2020

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.

March 12, 2020

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

March 12, 2020

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 .

March 10, 2020

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

March 10, 2020

Bom dia meus amigos.

Alguém sabe me explicar como capturar o numero da linha / coluna da planilha com TExcelScript() ?

Obrigado

Rogerio Figueira · January 4, 2020

Aguiar, faz tempo que não lido com isso. O último ajuste foi em 2015, estava funcionando ao menos até 2017.
Segue o código que tenho aqui:


//*----------------------------------------------------------------------------*
//
// M., Ronaldo: Boleto Bancario em Harbour
//
// Method Banco_033() Class MR_Boleto
//
//*----------------------------------------------------------------------------*
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. )

   digNossoNumero := ::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______ + ::Prefixo_DV___ + ::NossoNumero__ +  + ::NossoNumer_DV  + '0'+ ::Carteira_____

   Return NIL

Sds.

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

January 3, 2020

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

//*----------------------------------------------------------------------------*

frkiko · September 9, 2019

À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.

kapiaba · September 2, 2019

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?

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

September 2, 2019

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?

August 3, 2019

Amigo, o xml é simplesmente um TXT com tags, voce poderá gerar ele até mesmo com o bloco de notas

Se desejar, pode me chamar no Whatsapp (32)98892-5094

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.

August 2, 2019

mas por qual motivo mudar para esses Marcio? funciona muito bem a flexdocs

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.

Sign In

jfaguiar

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by jfaguiar

Cor em TxBrowse

Uso de Helps F1

Uso de Helps F1

Uso de Helps F1

Uso de Helps F1

Uso de Helps F1

MrBoleto banco Safra

oFtp:Directory() na classe TFtp()

Servidor FTP

MrBoleto banco Safra

Fivedroid

Capturar opção do menu

Buscar dados de Array Multidimensional (Resolvido)

Criar Planilha com mais de uma aba office 2010

Omitir Botão "X" de sair na Window

Ler o número da linha / coluna na TExcelScript()

Ler o número da linha / coluna na TExcelScript()

Ler o número da linha / coluna na TExcelScript()

MrBoleto Banco Santander

MrBoleto Banco Santander

FlexDoc

Rejeição Sefaz - Socoroooo

Rejeição Sefaz - Socoroooo

CTE com Flexdocs

CTE com Flexdocs

Browse

Activity