rochinha

Amiguinhos, Não tem erros de controles porque o prg é de uma aplicação que compila lindamente com Harbour Simplex 0.45. Não está reconhecendo STATIC no inicio de FUNCTION e LOCAL no inicio de variáveis. Mas vou re-re-re-ver meu código. KÔDELOKU.

E ai galera. Derepente estou tendo este erro em linhas com STATIC: Linhas no codigo:

Amiguinhos, Mais uma opção: /* * * Recupera informacoes do certificado * */ FUNCTION GetCertificado() Local oCerts1, oCerts2, oCerts3, oStore, oCertificates, aVETOR:={} oCertificates := TOLEAuto():New( "CAPICOM.Certificates" ) if oCertificates = NIL Return aVETOR endif oStore := TOLEAuto():New( "CAPICOM.Store" ) if oStore = NIL Return aVETOR endif oStore:open(2,'My',2) oCerts1 := oStore:Certificates() oCerts2 := oCerts1:Select("Selecione o certificado para uso da Nfe","Selecione o certificado",.F.) if oCerts2:Count() = 0 Return(aVETOR) else oCerts3 := oCerts2:Item(1) AADD(aVETOR,{oCerts3:SerialNumber,oCerts3:ValidToDate}) endif Return(aVETOR)

Também percebi quando li outros comentários idênticos em outros posts. Quem não jogar ou faz um tradezinho de vez em quando? sorte não é trabalho, quando acontece nos livra dele, mas não é sempre e quando vem o azar, ai temos de trabalhar para recuperar, kkkkkk.

Amiguinhos, O ODBC geralmente é instalado com o Office por causa do Access e Excel que manipulam tipos de databases diferentes, mas sendo o caso de obter erro não custa nada instalar o ODBC novamente. Pode ser necessário criar uma DSN para direcionar a pasta que contém os DBFs. Por sorte existem alguns exemplos na pasta SAMPLES que mostram este recurso. Já fizemos muitos testes com classes ADO tempos atrás e surgiram até algumas que se tornaram padrão em algumas versões do Fivewin como ADORDD ou RDDADO simplificando o intercambio.

Amiguinhos, Desnecessário este post do phinisdo falando mal de cassinos e apresentando sua solução que, pasmem, é um cassino. Sem noção. pqp, kkkkkkk

Amiguinhos, Estou tentando baixar estes dois link abaixo mas meu Windows ainda é o Seven e o TLS nativo ainda é o 1.2. Os links precisam de TLS 1.3. Quem puder baixá-los pode subir no meu site através do link 5volution Uploader Linkes: Link 1 Link 2

Amiguinhos, Valeu, vou dar uma olhada neste COM, pois gosto de usa automação, facilita demais as integrações.

Amiguinhos, Versão 2:

Amiguinhos, Basta usar uma função hb_hash() ou hb_json() para decodificar o resultado: Classe bem didática e passível de fatoração por vocês. Tõ meio preguiçoso.

Amiguinhos, Encontrei o seguiten código, mas não acrescentei nele qualquer informação de onde, no Google não vireferência a nada. Sei que é do (x)Harbour, óbeveo! Se usou ou usa esta DLL/OCX Quais suas impressões? Onde encontro mais exemplos de uso?

Amiguinhos, Também uso o Blat e inclusive ele pode ser utilizado via DLL. Apresente o LOG com erro que você está recebendo.

Amiguinhos, Luiz Fernando, a SQLLib não gerencia o database, ela apenas é a ponte CRUD para manutenção dos dados. O que causa o problema é a critica embutida no motor remoto que dependendo da sua comfiguração irá ou não permitir o aceite ou não de um dado em formato diferenciado ou nulo. A configuração dos campos no momento da criação da tabela também tem influencia nestas criticas. O motor verifica a estrutura e analisa tais configurações e decide a partir delas se a manutenção acontecerá no registro ou não.

Amiguinhos, marcioe, ao montar o comando SQL você pode apenas incluir os campos que receberão valores caso tenha valores a serem imputados. Melhor que inserir dados vazios ou nulos pois disto o motor se encarrega. No MySQL o modo STRICT pode causar estas verificações e não permití-las. Na lista das informações do seu database mostra que este modo esta ligado. Desligue e teste o envio da forma antiga e veja se passa antes de fazer alterações no código.

Amiguinhos, kkkkkk, la verdad soi jo. O ultimo post que coloquei aqui falando sobre uma ferramenta chamada CPAU tem alguma palavra no texto que não passou pelo crivo de proteção de ataques. Mas tudo bem, o segurança não me deixou entrar mas nem por isto vou deixar de ir ao bar. Volto depois, kkkkkk Isto prova que a segurança funciona já que de vez em quando aparecem arruaceiros bagunçando nossos foruns queridos.

Amiguinhos, Dê uma adaptada neste código e busque mais informações sobre SetOption() cUrlWS := "https://api.itau.com.br/cash_management/v2/boletos" oServerWS := Win_OleCreateObject( "MSXML2.ServerXMLHTTP.6.0" ) With Object oServerWS // Certificado que vamos usar do armazem de certificados de Windows. :setOption( 2, 13056 ) :SetOption( 3, "Nome do certificado" ) :Open( "POST", cUrlWS, .F. ) :SetRequestHeader( "Content-Type", "application/json" ) :SetRequestHeader( "x-itau-apikey", $Client_ID_envia ) :SetRequestHeader( "x-itau-correlationID", "2" ) :SetRequestHeader( "Authorization", "Bearer " + $Cliente_Token ) :SetRequestHeader( "cache-control", "no-cache" ) :Send( $Cliente_Field ) Do While :readyState != 4 :WaitForResponse( 500 ) Enddo End Troque: por:

Amiguinhos, Coloquei um post aqui e tentei colocar também no forum parceiro e obtive uma mensagem de segurança. Parece que ao enviar minha postagem foi deslogado várias vezes mostrando algo como:

Amiguinhos, Quem lembra do CPAU? Quem é do tempo que rede de computadores era aquela com Novell vai lembrar. Bom, muitas vezes temos de recorrer ao velho e bom Executar como Administrador[/b] Parece que este utilitario permite executar(de forma não interativa e transparente a subida de nivel do usuario sem direitos de administrador) aplicativos inclusive em outras maquinas. Download cpau.exe

Amiguinhos, marcioe coloque dados reais, não coloque trecho de testes com dados fictícios pois ai não dá pra te ajudar. coloca o valor real da data que mandou, não zeros, porque se voce estiver mandando um comando com zeros me diga então onde no calendário tem esta data? Creio que nem no Juliano e nem SQLeano. Campo data exige uma data válida, não tem dia 0 ou 32, mês 0 ou 13. Em SQL existem exigências inclusive dos formatos ou é YYYY-MM-DD, DD/MM/YYYY, YYYYMMDD, YYMMDD, etc. Verifique no seu código se ele está formatando a data com formato diferente e zerando o valor ao escrever a linha SQL. Function myDTOS( dData ) myDTOS := DTOS( dData ) myDTOS := Substr(myDTOS,1,4)+"-"+Substr(myDTOS,5,2)+"-"+Substr(myDTOS,7,2) return myDTOS Function ZtoD( cData ) // <dhEmi>2017-08-23T16:40:17-03:00</dhEmi> dtoz1 := substr( cData,9,2 )+"/"+substr( cData,6,2 )+"/"+substr( cData,1,4 ) dtoz2 := ctod( dtoz1 ) return dtoz2 Function DtoZ( dData ) dtoz1 := dtos( dData ) dtoz2 := substr( dtoz1,1,4 )+"-"+substr( dtoz1,5,2 )+"-"+substr( dtoz1,7,2 ) return dtoz2 Function DtoUTC( dData, slach ) default slach := "-" // Formato AAAA-MM-DDThh:mm:ssTZD dtoz1 := dtos( dData ) dtoz2 := substr( dtoz1,1,4 )+slach+substr( dtoz1,5,2 )+slach+substr( dtoz1,7,2 ) + "T" + time() + "-03:00" return dtoz2

Amiguinhos, gunafe então sua lib pega os dados passados concatena e faz o crc16?

Amiguinhos, Aqui mesmo no forum já esboçamos como gerar um QRCode. http://fivewin.com.br/index.php?/topic/26867-qrcode-by-rochinha/&tab=comments#comment-278312 A DLL é de fácil implementação e seu retorno é sublime.

Amiguinhos, infosys2 use uma destas duas opções e veja se traz o resultado. O trecho acima foi só um exemplo de uso que nem chegou a ser solução para a entrada da thread. Só para exemplificar mesmo. cComando := cPathDados+"resposta=$(CURL.EXE " + cParameters + ") echo $resposta" ou cComando := cPathDados+"resposta=$(CURL.EXE --write-out " + cParameters + ") echo $resposta" ou cComando := cPathDados+"CURL.EXE " + cParameters +" > resposta"

Amiguinhos, Que tal se ao invés disto: oPrn:End() //-> Se o Nome da Impressora For uma destas impressoras virtual faça o bloqueio, liste todas as impressoras de PDFs da pasta de impressoras. IF cPrint == [PDFCreator] .OR. ; cPrint == [BroadGun pdfMachine] .OR. ; cPrint == [pdfFactory] .OR. ; cPrint == [pdfFactory Pro] .OR. ; cPrint == [Bullzip PDF Printer] .OR. ; cPrint == [CutePDF Writer] .OR. ; cPrint == [Expert PDF Pro] .OR. ; cPrint == [doPDF v7] ? "Desculpe Mano, Proibido gerar PDFs Pelo Dono da Empresa" RETURN( .F. ) ENDIF RETURN( .T. ) Usar isto: ... oPrn:End() //-> Se o Nome da Impressora For uma destas impressoras virtual faça o bloqueio, liste todas as impressoras de PDFs da pasta de impressoras. IF "PDF" $ upper( cPrint ) ? "Desculpe Mano, Proibido gerar PDFs Pelo Dono da Empresa" RETURN( .F. ) ENDIF RETURN( .T. ) ...

Amiguinhos, Tem algum manual? Baixei o instalador e ele somente registrou a tal DLL e nada mais, nem uma mensagenzinha, nem um telefonema, um jantar, nada.