zekasan

September 12, 2022

Estranho que não funcione para vc, nos meus programas não travam

September 2, 2022

Uso uma rotina que o Vagner fez faz um tempão

TAMANHO_VIDEO:=VRESVIDEO()
? TAMANHO_VIDEO[1],TAMANHO_VIDEO[2]

/*********************************************************
* Função : Funcao em C para pegar a Resolução da Tela
* Data : 13/03/2013 Ã s 12:05:26 por Vagner
* Revisado em : 13/03/2013 Ã s 12:05:35 por Vagner
* Parâmetros :
* iWidthNew - Largura MÃnima NecessÃ¡ria
* iHeightNew - Altura MÃnima NecessÃ¡ria
**********************************************************/
#Pragma BEGINDUMP
#include <Windows.h>
#include <ShellApi.h>
#include <Wingdi.h>
#include <hbapi.h>

HB_FUNC (VRESVIDEO)
{
int iWidth,iHeight ;
//Pega a ConfiguraÃ§Ã£o Atual
DEVMODE DeviceMode = { 0 };
EnumDisplaySettings( NULL,
ENUM_CURRENT_SETTINGS,
&DeviceMode );
iWidth = DeviceMode.dmPelsWidth;
iHeight = DeviceMode.dmPelsHeight;
hb_reta( 2 );
hb_storni( iWidth , -1, 1 );
hb_storni( iHeight, -1, 2 );
}

#pragma ENDDUMP

June 21, 2021

OBRIGADO, Agradeço muito sua ajuda

June 16, 2021

Bom dia, poderiam me ajudar como verificar se o código de barras de um boleto de arrecadação é válido após sua leitura??

Tem que ser de arrecadação e não boletos bancários.

Imensamente Grato.

December 17, 2020

Bom dia Srs e Sras.

Alguém pode me informar onde acho os fontes da rotina do get qdo o mesmo pega um dado tipo data?

Preciso alterar a rotina para que qdo seja digitado somente o dia ele complete com o mês e ano corrente e,

qdo digitado dia e mês ele pegue o ano corrente.

Fico muito agradecido pela colaboração.

Uso a versão 1207 ainda.

August 6, 2020

Boa tarde eu uso assim,eu acho prático, me deram a dica aqui no grupo:

Pego os dados "oLloyds:Fields("tSaoCte"):Value" , e neste caso os transfiro para uma planilha "oSheetPr:Cells(4,2):value:=oLloyds:Fields("tSaoCte"):Value"

.....

ABRE_SQL()

   cCmdSql:="select sum(SaoCte) as tSaoCte,sum(SaoVol) as tSaoVol,sum(SaoM3) as tSaoM3,sum(SaoFrete) as tSaoFrete, "+;
               "sum(RioCte) as tRioCte,sum(RioVol) as tRioVol,sum(RioM3) as tRioM3,sum(RioFrete) as tRioFrete, "+;
               "sum(BhzCte) as tBhzCte,sum(BhzVol) as tBhzVol,sum(BhzM3) as tBhzM3,sum(BhzFrete) as tBhzFrete "+;
               "from LLOYDS_CTE "+;
               "where DtEmissao >= '"+data_sql(c1101)+"' and DtEmissao <= '"+data_sql(c1102)+"'"

   try
       oLloyds := oCon:Execute(cCmdSql)
   catch oErr
      msginfo( "Erro ao abrir Tabela LLOYDS_CTE","ATENÇÃO" )
       return(.f.)
   end

   oSheetPr:Cells(4,2):value:=oLloyds:Fields("tSaoCte"):Value
   oSheetPr:Cells(4,3):value:=oLloyds:Fields("tSaoVol"):Value
   oSheetPr:Cells(4,4):value:=oLloyds:Fields("tSaoM3"):Value
   oSheetPr:Cells(4,5):value:=oLloyds:Fields("tSaoFrete"):Value

   oSheetPr:Cells(5,2):value:=oLloyds:Fields("tRioCte"):Value
   oSheetPr:Cells(5,3):value:=oLloyds:Fields("tRioVol"):Value
   oSheetPr:Cells(5,4):value:=oLloyds:Fields("tRioM3"):Value
   oSheetPr:Cells(5,5):value:=oLloyds:Fields("tRioFrete"):Value

   oSheetPr:Cells(6,2):value:=oLloyds:Fields("tBhzCte"):Value
   oSheetPr:Cells(6,3):value:=oLloyds:Fields("tBhzVol"):Value
   oSheetPr:Cells(6,4):value:=oLloyds:Fields("tBhzM3"):Value
   oSheetPr:Cells(6,5):value:=oLloyds:Fields("tBhzFrete"):Value

...
   FECHA_SQL()


function ABRE_SQL()
* Server = nome do servidor ou seu IP
* Database = nome do seu BD
* Uid = usuário
* Pwd = senha

   cConnection := "driver={SQL Server};Server=xxx.xxx.xxx.xxx;Database=NONAME;Uid=nonane;Pwd=noname"
   try
      oCon:=tOleAuto():new("ADODB.Connection")
      oCon:Open( cConnection )
   CATCH oError
      MsgInfo( "Problema com a conexão ao banco de dados!" +CRLF+ ;
       "Error: "     + Transform(oError:GenCode,   nil) + ";" +CRLF+ ;
       "SubC: "      + Transform(oError:SubCode,   nil) + ";" +CRLF+ ;
       "OSCode: "    + Transform(oError:OsCode,    nil) + ";" +CRLF+ ;
       "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ;
       "Mensaje: "   + oError:Description, "Atenção" )
      return(.f.)
   end
return(.t.)

function FECHA_SQL()
oCon:close()
return(.t.)

aferra · December 6, 2019

Precisei algo parecido, caso exista eu atualizo algumas variáveis, caso contrário eu insiro os dados:

   cCmdSql:="if exists (select usuario from SSW_USUARIO where Usuario = '"+cGet01_S1+"') "+;
               "   begin "+;
               "       update ssw_usuario set "+;
               "           nome = '"+ cGet06_S1 +"',"+;
               "           senha = '"+ cGet02_S1 +"',"+;
               "           nivel = "+ str(cGet05_S1,1)+","+;
               "           email = '"+ cGetEma +"',"+;
               "           emailsenha = '"+ cGetSen +"',"+;
               "           telddd = '"+ cGetDDD +"',"+;
               "           telnr = '"+ cGetTel +"',"+;
               "           telramal = '"+ cGetRam +"'"+;
               "       where usuario = '"+cGet01_S1+"' "+;
               "   end "+;
               "else "+;
               "   begin "+;
               "       insert into ssw_usuario(filial,usuario,nome,senha,nivel,email,emailsenha,telddd,telnr,telramal) "+;
               "           values( "+;
               "           '"+RET_FILIAL_SSW(cGet04_S1)+"',"+;
               "           '"+cGet01_S1+"',"+;
               "           '"+cGet06_S1+"',"+;
               "           '"+cGet02_S1+"',"+;
               "           "+str(cGet05_S1,1)+","+;
               "           '"+cGetEma+"',"+;
               "           '"+cGetSen+"',"+;
               "           '"+cGetDDD+"',"+;
               "           '"+cGetTel+"',"+;
               "           '"+cGetRam+"')"+;
               "   end"

September 26, 2018

Muito obrigado, irei implementar

September 26, 2018

Bom dia, alguma alma nobre pode me ajudar com estas encrenca? Estou procurando exemplo na versão 1207 e não estou achando, alguém tem esta COISA???

Agradeço muito se puderem me ajudar.

kapiaba · May 17, 2018

COLOQUEI O SEGUINTE

   do whil .t.
       try
           CONDICAO:=oOle:readystate
       catch
           exit
       end
       syswait(.5)
   enddo

May 17, 2018

Preciso que fique em um loop após ser aberta até a janela ser fechada, para dar prosseguimento a uma outra rotina,

essa outra rotina será executada assim que esta janela aberta for fechada.

May 17, 2018

Bom dia, alguém pode me ajudar???

Como fico sabendo se a janela aberta na rotina CreateObject("InternetExplorer.Application"), está aberta???

oOle:= CreateObject("InternetExplorer.Application")

   oOle:Visible := .t.
   oOle:ToolBar := .f.
   oOle:StatusBar := .f.
   oOle:MenuBar := .f.

oOle:Navigate2("https://www.sefaz.rs.gov.br/NFE/NFE-CCC.aspx")

   hWnd:=oOle:hWnd
   ShowWindow(hWnd, 1 )
   BringWindowToTop(hWnd)

   While oOle:Busy
       syswait(.5)
   End

* cCopiar("60157377000504")

   try
       oOle1 := oOle:Document()
       oOle1:getElementById("ctl00_cphConteudo_cmbUF"):value := "35" // 35-> SP
       oOle1:getElementById("ctl00_cphConteudo_cmbUF"):Focus()
       oOle1:getElementById("ctl00_cphConteudo_cmbUF"):Click()

       oOle1:getElementById("tbxCNPJContrib"):value := QUAL_CNPJ

catch
end

   do while JANELA_ABERTA????
       syswait(??)
   enddo

GRATO

kapiaba · May 11, 2018

caracas, comeu de novo o caracter colchete, tem quer sre IO:=ARR0+caracter colchete+ I + caracter colchete

May 11, 2018

agora que vi que comeu uma parte do texto: onde se le IO:=ARR0 deve ser substituído por IO:=ARR0

kapiaba · May 11, 2018

Boa tarde, eu dei uma mudadinha, retorna um array com os dados

FUNCTION PEGA_CNPJ(PROC_CNPJ)
   Local oServerWS, cUrl, aCNPJ[12]
   if LEN(PROC_CNPJ)#14
       MSGINFO("Este busca não funciona para CPF!")
       return .t.
   endif

   cUrl:= "https://www.receitaws.com.br/v1/cnpj/"+PROC_CNPJ

   Try
       oServerWS := CreateObject( 'MSXML2.ServerXMLHTTP.5.0' )
   Catch oError
       try
           oServerWS := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' )
       catch oError
           try
               oServerWS := CreateObject("Microsoft.XMLHTTP")
           catch oError
               ? e:Description
               return nil
           end
       END
   end

   TRY
       oServerWS:open('GET', cUrl, .f.)
       oServerWS:setRequestHeader('Content-Type' , 'text/xml; charset=utf-8') // Obtém ou define o valor de cabeçalho de Content-type HTTP.
       oServerWS:send()
   CATCH
       ? "Não conseguiu enviar solicitação para requisição dos dados do CNPJ"
       return .t.
   END

   * Verifica o status do request. Exibe erro se houver
   IF oServerWS:Status != 200 // OK
       MsgStop( Alltrim(STR(oServerWS:Status)) +" - "+ oServerWS:StatusText , "Erro")
       RETURN NIL
   ENDIF

   WHILE oServerWS:readyState != 4
       oServerWS:waitForResponse(1000)
   END

   * decodifica o arquivo json e transforma em um array multidimensional
   ** x := hb_jsondecode( oServerWS:responseText, @aArray )

   txt:= oServerWS:responseText
*? txt
   Arq_1:=ALLTRIM(txt)

   ARR0:=HB_ATokens( Arq_1, CHR(10) )
*xbrowse(ARR0)
   TAB:={}
   QT:=0
   n_f1:=""
   n_f2:=""
   FOR I=1 TO LEN(ARR0)

       if substr(ARR0,4,4) = "nome" // REG 1 - Nome
           I0:=ARR0
           I0:=StrTran( I0, "nome" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[1] := alltrim(I0)
           endif
       endif

       if substr(ARR0,4,2) = "uf" // REG 2 - UF
           I0:=ARR0
           I0:=StrTran( I0, "uf" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[2] := alltrim(I0)
           endif
       ENDIF

       if substr(ARR0,4,10) = "logradouro" // REG 3 - LOGRADOURO
           I0:=ARR0
           I0:=StrTran( I0, "logradouro" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[3] := alltrim(I0)
           endif
       ENDIF

       if substr(ARR0,4,6) = "numero" // REG 4 - NÚMERO
           I0:=ARR0
           I0:=StrTran( I0, "numero" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[4] := alltrim(I0)
           endif
       ENDIF

       if substr(ARR0,4,3) = "cep" // REG 5 - CEP
           I0:=ARR0
           I0:=StrTran( I0, "cep" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, "." )
           I0:=StrTran( I0, "-" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[5] := transform(alltrim(I0),"@R 99999-999")
           endif
       ENDIF

       if substr(ARR0,4,9) = "municipio" // REG 6 - MUNICÍPIO
           I0:=ARR0
           I0:=StrTran( I0, "municipio" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[6] := alltrim(I0)
           endif
       ENDIF

       if substr(ARR0,4,8) = "abertura" // REG 7 - DT ABERTURA
           I0:=ARR0
           I0:=StrTran( I0, "abertura" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[7] := alltrim(I0)
           endif
       ENDIF

       if substr(ARR0,4,6) = "bairro" // REG 8 - BAIRRO
           I0:=ARR0
           I0:=StrTran( I0, "bairro" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[8] := alltrim(I0)
           endif
       ENDIF

       if substr(ARR0,4,11) = "complemento" // REG 9 - COMPLEMENTO
           I0:=ARR0
           I0:=StrTran( I0, "complemento" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[9] := alltrim(I0)
           endif
       ENDIF

       if substr(ARR0,4,5) = "email" // REG 10 - EMAIL
           I0:=ARR0
           I0:=StrTran( I0, "email" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[10] := alltrim(I0)
           endif
       ENDIF


       if substr(ARR0,4,8) = "telefone" // REG 11 - TELEFONE
           I0:=ARR0
           I0:=StrTran( I0, "telefone" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[11] := alltrim(I0)
*               IF AT("/",TEL_C)>0
*                   TEL_C:=ALLTRIM(LEFT(TEL_C,AT("/",TEL_C)-1))
*               ENDIF
           endif
       ENDIF


       if substr(ARR0,4,8) = "fantasia" // REG 12 - FANTASIA
           I0:=ARR0
           I0:=StrTran( I0, "fantasia" )
           I0:=StrTran( I0, ":" )
           I0:=StrTran( I0, "," )
           I0:=StrTran( I0, ";" )
           I0:=StrTran( I0, CHR(34) )
           if len(alltrim(I0))>0
               aCNPJ[12] := alltrim(I0)
           endif
       ENDIF

   NEXT
*   xbrowse(aCNPJ)
RETURN(aCNPJ)

May 7, 2018

Boa tarde, alguém pode me ajudar??

Acesso o site, preencho campos e dou o click (via programação, ver abaixo), só que nesta página de retorno não consigo capturar

dados.

o RETIRA_MASCARA(cCNPJ) apenas retira a pontuação da variável cCNPJ

Preciso alguns dados deste retorno para gravar em uma base de dados:

[[ msg_retorno ]]

[[ documento_pesquisado ]]

[[ hora_consulta]]

Function PROTESTO()
Local hWnd, oOle, cUrl:="http://pesquisaprotesto.com.br/consulta"

TRY
oOle:= CreateObject("InternetExplorer.Application")

oOle:Visible := .t.
oOle:ToolBar := .f.
oOle:StatusBar := .f.
oOle:MenuBar := .f.

oOle:Navigate2(cUrl)

hWnd:=oOle:hWnd
ShowWindow(hWnd, 1 )
BringWindowToTop(hWnd)

While oOle:Busy
syswait(.5)
End

CATCH
END

TRY
oOle := oOle:Document()
oOle:All:Item("cpf_cnpj",0):Value := RETIRA_MASCARA(cCNPJ)
oOle:All:Item("cpf_cnpj",0):Focus()
syswait(.5)
oOle:All:Item("cpf_cnpj",0):Click()
syswait(.5)
oOle:All:Item("btEnviarConsulta",0):Focus()
oOle:All:Item("btEnviarConsulta",0):Click()

       While oOle:Busy
           syswait(.5)
       End

???? PEGAR DADOS DA PAGINA DE RETORNO DE CONSULTA

CATCH
END

oOle := Nil

return(.t.)

TRECHO DA PÁGINA DE RETORNO:
<div class="row centered retorno" id="msg_retorno" style="display:none">
<div class="column center aligned centered">
<div class="ui large center aligned">
<h2 class="ui header center aligned" v-bind:class="[protestos.length > 0 ? 'red' : 'green']">
[[ msg_retorno ]]
</h2>
<div class="ui blue button" onclick="$('#actions').modal('show')" v-if="protestos.length > 0 ">Solicitar Certidão</div>
</div>
</div>
</div>

<h4 class="ui header row medium centered fluid pesquisa" style="display:none">
<div class="content center aligned">
<div class="sub header huge center aligned">
<b>Documento Pesquisado:</b> [[ documento_pesquisado ]]
</div>
<div class="sub header huge center aligned">
<b>Data da Pesquisa:</b> [[ data_consulta ]] as [[ hora_consulta]]
</div>
</div>
</h4>

GRATO PELA AJUDA

November 21, 2017

Preciso ir no SEFAZ e fazer download dos xml em que no campo de "transportadora" conste o cnpj da transportadora que trabalho.

Baixar as notas que foram destinadas a transporte para nós.

Baixar automático usando o certificado A1 da empresa.

Existem empresas que prestam este tipo de serviço, a Arquivei por exemplo.

November 17, 2017

Boa tarde, estou precisando de uma rotina ou gerada em uma lib que me faça o download do xml no sefaz pelo campo da transportadora usando o certificado A1.

Preciso baixar as notas que são destinadas a transportadora onde trabalho.

Alguém teria algo para fazermos negócio??

June 6, 2017

SISTEM caiu como uma luva prá mim, ótimo exemplo prá começar a tratar o xml, muito obrigado tb JFAGUIAR

June 6, 2017

Agradeço muito a ajuda, Deus os abençõem

June 5, 2017

Boa tarde, tentei um monte de coisa, porém de xml sou crú, preciso de ajuda para pegar informações de um determinado bloco de um xml:

...

-<imp>
-<ICMS>
-<ICMS00>

</ICMS00>

</ICMS>

</imp>

...

Preciso pegar os valores de vBC, pICMS,vICMS do bloco <imp>, porém há mais blocos que possuem o vBC e cICMS. e tem xml que só possue um valor cd vBC e vICMS.

Alguém pode me ajudar??

GRATO

teste.xml

35170660157377000180570010005583541105583542-procCTe.xml

March 28, 2017

Realmente, é o que dá estar em uma rotina e pensar em outra, desculpe aí, rsrs

March 28, 2017

Ao cadastrar sua senha, adicione alguns dígitos a mais, coloque-os em uma determinada sequência, qdo ler vc pega somente as posiçoes corretas colocando-os na sequência correta.

July 5, 2016

Márcio, boa tarde.

Vc já checou se não é algo 'diferente' que está contido na planilha que está causando o erro?

São em todas as planilhas que acontece o erro?

June 22, 2016

Bom dia Márcio, na rotina de gravação, vc valida o campo, caso ele esteja ok, vc volta a cor original dele.

Como o Theotokos disse:

oGet:SetColor( CorTexto, CorFundo )

Sign In

zekasan

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by zekasan

Verificar a Resolução de Tela via comando do FiveWin

Verificar a Resolução de Tela via comando do FiveWin

Ajuda - Validar código de barras de boletos de arrecadação

Ajuda - Validar código de barras de boletos de arrecadação

Alterar rotina do get date()

Primeiros Passos SQL

INSERT COM WHERE

FTP com Fivewin - exemplo

FTP com Fivewin - exemplo

Janela está aberta??? CreateObject("InternetExplorer.Application")

Janela está aberta??? CreateObject("InternetExplorer.Application")

Janela está aberta??? CreateObject("InternetExplorer.Application")

Problema na Busca do Cnpj site da receita

Problema na Busca do Cnpj site da receita

Problema na Busca do Cnpj site da receita

Pegar dados de uma pagina do site http://pesquisaprotesto.com.br/consulta

Adquirir rotina para fazer xml de nfe pelo campo transportador usando certificado A1

Adquirir rotina para fazer xml de nfe pelo campo transportador usando certificado A1

pegar dados de uma parte do xml

pegar dados de uma parte do xml

pegar dados de uma parte do xml

Ajuda com Logica

Ajuda com Logica

Importar Planilha de Excel com mais de 100.000 linhas

Validação de Preenchimentos de cadastro

Browse

Activity