sunset

Boa tarde. deixa eu pegar um gancho aqui, implementei no meu sistema um pagamento por Pix da pagpix, tudo ok o funcionamento, mas agora que o negocio deu certo, o pessoal que usava o PINPAD com o PIX da integrado de cartão esta perguntando se não tem como mandar o QRCODE para o PINPAD igual o programa do TEF faz, para o cliente fazer o pagamento, atualmente mando na tela do caixa, então vem a burocracia de ter 2 telas ou o cliente ir ler da tela do caixa, no PINPAD faz mais sentido com certeza. Então não tenho a mínima ideia se e possível fazer ou se o PINPAD e fechado para envios externos que não seja pelos "GP" gerenciador padrão das operadoras, usando DLL ou algum ou processo. Grato por qualquer dica.

Voce cria sua dll com WORKSHOP ou PELLESC? se possível manda uma parte do codigo como voce carrega a imagem no objeto e exibir na linha de codigo de um botão por exemplo.

Entendi, mas isso causaria o erro intermitente numa maquina ok e em outra com problema?

Eu uso o arquivo.RES dentro do xDev então ele gera o arquivo.bat e nele, o bat usa o BCC32 e o harbour link do bat https://1drv.ms/u/s!As_iw5bOyRLkkJkrmu-BQf8_xLUcUA?e=u89rcp

Em maquinas locais tambem acontece, mas aleatoriamente, em algumas nunca da erro algum a do mysql que perde rede , acontece comigo em maquinas com windows 7 quando fica aberta no xbrowse, sempre cai. e mostra erro.

Como falei, tudo funciona perfeito, ate se passar 2h a 3h em algumas maquinas. Se fosse algo que não funcionava, como e uma tela de vendas e o unico lugar que geralmente passa-se horas usando a tela, achei que poderia ser algo tipo as maquinas antigonas que davam erro de divisão por zero. Mas vou tentar o mais basico versão fw mais recente e ver no que da.

Botões onde vou carregar bitmaps https://www.screenpresso.com/=Y6Utb https://www.screenpresso.com/=qfwdb LInha do ID 4004 REDEFINE RBBTN obf6 PROMPT "F6 - Forma de Pagamento" ACTION MsgRunESC("Aguarde somando os resultados para finalizar a venda...",'',{|oDlgMsg|PDV_FORMA_DE_PAGAMENTO(oDlgMsg)}) id 4004 OF oDlg_PDV_Principal WHEN vqntregis # 0 FONT oFontBotaoPDV01 MOSTLEFT ROUND BORDER GRADIANT aClrButtons1 LINECOLORS CLR_BLACK,CLR_WHITE obf6:bClrText := {| lEnable | if( lEnable, CLR_WHITE, GetSysColor( 17 ) ) } obf6:cToolTip:="F6 - Forma de Pagamento" obf6:aClrGradOver = { || aClrButtons2 } obf6:aClrGradBack = aClrButtons2 obf6:bClrGradSubOver = { || aClrButtons2 }

rc.rar subi tudo agora.

ecf.rc

O erro não e recorrente, e apos 2 ou 3horas de uso e em maquinas mais fracas, em maquinas mais robustas as mesmas telas e rotinas rodam sem problema, por isso não acho que seja diretamente no .RES e não uso DLL para as telas, sempre edito todas pelo PELLES. Procuro quem para adquirir um novo FW? talvez o conjunto a obra seja o problema.

Quem eu procuro para fazer upgrade de versão ?

Atualmente FW18

Boa tarde, existe alguma maneira de evitar o erro abaixo, notei que em algumas maquinas apos 2h ou 3h de uso, da erro nas dialogs, sera que esta enchendo a memoria com as dialogs e não são finalizadas ou algo do tipo. Alguma dica ? Aplicacao ========== Nome e Caminho: S:\InteligenceERP.EXE Tamanho: 39.830.016,000 Bytes Unidade Mapeada: \\SERVIDOR\iERP\Integra1 Usuario: PC - IP da Maquina:192.168.0.111 Windows Versao: 10 64 Bits Tempo Desde a Abertura do Programa: 2 hours 27 mins 47 secs Ocorreu erro em: 10/05/2023, 09:06:10 Descricao do problema:Erro FiveWin/3 Cannot create Dialog Box: Resource: DLG_CBR_VENDA1366X768 Quando não é como o erro acima na criação da DIALOG e no meio da rotina, mas sempre com relação a montagem da tela. Aplicacao ========== Nome e Caminho: S:\InteligenceERP.EXE Tamanho: 39.830.016,000 Bytes Unidade Mapeada: \\SERVIDOR\iERP\Integra1 Usuario: Apoio - IP da Maquina:10.122.244.78 Windows Versao: 10 64 Bits Tempo Desde a Abertura do Programa: 2 hours 1 mins 2 secs Ocorreu erro em: 10/05/2023, 16:33:42 Descricao do problema:Erro BASE/1005 Class: 'NIL' has no property: BSTART Args: [ 1] = U [ 2] = B {|| ... } Chamadas ao Stack ================= ERRSYSW.prg => (b)ERRORSYS( 38 ) => _BSTART( 0 ) vendmesa.prg => CBR_VENDA_POR_CODIGO_F2( 1038 ) vendmesa.prg => (b)CBR_VENDA( 217 ) MSGRUN.PRG => (b)MSGRUN( 36 ) DIALOG.PRG => (b)TDIALOG:TDIALOG( 97 ) => TDIALOG:DISPLAY( 0 ) DIALOG.PRG => TDIALOG:HANDLEEVENT( 1123 ) => DIALOGBOXINDIRECT( 0 ) DIALOG.PRG => TDIALOG:ACTIVATE( 304 ) MSGRUN.PRG => MSGRUN( 42 ) vendmesa.prg => (b)CBR_VENDA( 217 ) TRBTN.PRG => TRBTN:CLICK( 717 )

Bom dia. Uso aquele DLL de consulta ao site da receita federal junto com a classe que consulta e captura de dentro do html gerado os dados da empresa, mas há uns dias parou de funcionar a captura, alguém tem alguma dica do que mudou ? Após a tela do não sou um robô ela não finaliza. Grato por qualquer dica.

Boa tarde. Não sei como popular com o conteúdo do jSON retornado, que esta em anexo, quando eu coloco o conteúdo para ler com o xbrowse() ,o retorno do conteúdo, ele me mostra 2 Brow, o primeiro com "Detalhe" que é a primeira estrutura dos dados e quando dou 2 clicks ele abre o próximo browse com os dados detalhados, basicamente são os dados que queria popular o vetor, mas não sei como obter os dados da segunda camada dos dados. Qualquer dica e bem vinda, tentei algumas combinações lidas aqui no fórum, mas falhei em todas. xx:=MemoRead(varquivo_retorno) hRetornos := {=>} hb_JSONDecode(xx,@hRetornos) 1º tela com xbrowse com o conteúdo retornado. 2ª tela após 2 clicks em detalhes, ele mostra os dados detalhados da estrutura. resposta_api - Copia.json

Bom dia Alguém tem alguma dica de editor de recursos tipo o PELLES C para ser usado no Mac, atualmente estou usando o PELLES C dentro do Parallels, mas o desempenho e muito comprometido. Grato por qualquer indicação. PS: Já dei uma pesquisa no google mas não achei nada, ate mesmo porque o termo editor de recursos não retorna muita coisa.

Voce esta usando ACBR ?

Bom Dia. Você também pode enviar via FTP para seu provedor de internet, mas claro isso também depende de quanto você tem disponível em disco no provedor, no meu caso faço o envio do PDF e do xml para uma pasta especifica e salvo o caminho no banco de dados, mesma situação para salvar imagens dos produtos no cadastro de produtos. Agora o FTP e muito sentimental tem dias que do nado para de funcionar e tambem volta a funcionar sem intervenção.

Eu uso assim com METROPANEL

Bom Dia. Eu consigo consumir a API em outros projetos também sem problemas, meu único problema e de fato com a STONE, mas acredito que seja por este motivo anexo na imagem usando o cURL.EXE tive que adicionar o parâmetro -k que é um modo inseguro para ele conseguir autenticar também, acredito que a ativação no objeto não se seja de forma nativa, então e bola frente ja que esta funcionando, ou problema também seria no formato devolvido esta compactado com gZIP e não temos como descompactar via FW, então usei mais uma vez algo externo, mas para o usuário esta tudo escondido, somente aquele sentimento de gambiarras para resolver coisas simples.

O comando e com PUT mas tenho outros para teste, com POST e GET, mas ambos também não funcionam, ja usando o cURL em maquinas que não estão com windows 10 toda atulizada tambem apresenta erros de autenticação, que provavelmente e o erro do CreateObject, na STONE ele faz uma autenticação com TLS 1.2 segundo a documentação e acredito que com esse instanciamento não e possível. no cURL acrescentei um parâmetro -k e deu certo, em outras maquinas. Grato a todos pelas dicas, mas vamos ficar no bat com cURL mesmo. Outra dica importante o hb_unzipfile não descompacta GZIP tiver que colocar o 7z.exe e dll na pasta para poder descompactar.

\windows\syswow64\regsvr32.exe msxml6.dll com a 6 deu certo , deixo ela?

Nunca tentei, nem sabia que deveria , mas apresenta a mensagem , executei dentro da pasta syswow64 e na system em ambas da a mesma mensagem.

Já tentei com as 2 variantes também não funcionou, então deixa a padrão. Quanto ao PUT seria um envio de TOKEN para registrar tem ele a mesma variação com GET para consultar se o token esta gerado, mas ambos retorna 401. https://conciliacao.stone.com.br/reference#concessao-de-acesso

Bom dia Já tentei de tudo (rs), bem pelo menos com meus limitados conhecimentos, gostaria de consumir a api da Stone para uma integração do conciliador de cartão, então montei todo o esquema, no POSTMAN tudo ok, usando o cURL tudo ok tambem, mas quanto tento usar os metos contidos em 'MSXML2.ServerXMLHTTP' , sempre me retornar o erro 401, que seria falta ou parâmetros errados, na verdade não sei nem se chega a conectar porque o 401 não tem como debugar melhor, mas seria basicamente assim meu envio. Aqui funciona 100% com cURL curl.exe --location --request PUT "https://conciliation.stone.com.br/v1/merchant/394972625/access-authorization?affiliationCode=f3129ad18f994abbb014e53dffb1b0c3" --header "X-Authorization-Raw-Data: 07956658000110" --header "X-Authorization-Encrypted-Data: 43d2be2913d2ce3e3042e8c6115e41bfe4a2bd90ef71ea3660eaa2201bead1c28b17243c958b47d90e5d2ec3dcd38c7066a710e9f18238cb8b7809c8817fcfe1" --header "Authorization: Bearer 5f260209-7169-4477-ac3c-f802d558a24b" -o resposta.xml -s Mas aqui não funciona. Function Comunica_api_stone_put(vstonecd,vafiliat,vcliappl,vsecretk,vauthraw,vauthenc) cUrl:= 'https://conciliation.stone.com.br/v1/merchant/'+vstonecd+'/access-authorization' oHttp:= CreateObject( 'MSXML2.ServerXMLHTTP' ) oHttp:Open( "PUT" , cUrl, .f. ) oHttp:setRequestHeader("X-Authorization-Raw-Data",vauthraw) oHttp:setRequestHeader("X-Authorization-Encrypted-Data",vsecretk) oHttp:setRequestHeader("Authorization","Bearer "+vcliappl) oHttp:setRequestHeader("Content-Type","application/json") oHttp:send() MSGINFO(ALLTRIM(oHttp:ResponseText),"OK 1") MSGALERT(oHttp:status,"OK 2") IF oHttp:status = 504 MsgAlert("Atenção Erro 504 Ocorreu um timeout e não foi possível concluir o trabalho, tente novamente","Atenção") RETURN .F. ELSEIF oHttp:status = 503 MsgAlert("Atenção Erro 503 Um dos sistemas da Stone falhou, por favor nos informe","Atenção") RETURN .F. ELSEIF oHttp:status = 500 MsgAlert("Atenção Erro 500 Ocorreu um erro interno na API, por favor nos informe","Atenção") RETURN .F. ELSEIF oHttp:status = 404 MsgAlert("Atenção Erro 404 Erro no formato da URL ou no método enviado","Atenção") RETURN .F. ELSEIF oHttp:status = 401 MsgAlert("Atenção Erro 401 Erro no envio Não autorizado para API","Atenção") RETURN .F. ELSEIF oHttp:status = 400 MsgAlert("Atenção Erro 400 Erro nos dados informados para a API","Atenção") RETURN .F. ELSEIF oHttp:status = 202 MsgAlert("Atenção 202 empresa, identificada pelo {application-key}, ainda não tem acesso aos dados de conciliação do lojista identificado pelo {stone-code} informado na URL. O e-mail de solicitação foi enviado para o lojista, para que ele conceda o acesso ou não.","Atenção") RETURN .T. ELSEIF oHttp:status = 200 MsgAlert("Atenção 200 A empresa, identificada pelo {application-key}, já está autorizada a acessar os dados de conciliação do lojista identificado pelo {stone-code} informado na URL.","Atenção") RETURN .T. ENDIF RETURN .T. Alguma Dica, ou vou ter que morrer usando o BAT mesmo com o cURL ?