-
Posts
24,535 -
Joined
-
Last visited
-
Days Won
282
Everything posted by kapiaba
-
Colocou a clausula CANCEL nele?
-
E quando lContinue é .F.? Regards, saludos.
-
Você não consegue simular como um DEMO pequeno?
-
Que FONTE? você postou um pedaço de programa pohha! kkkk Faça um DEMO para os demais fazerem testes e descobrir onde está sua KGADA!! kkkkkkkk nóis é mau na alma. kkkkkk abs; Regards, saludos.
-
O título está erado: Problamas no valid da dialog o problema é na lógica. E porquê você grava no ON INIT e não na SAÍDA da FUNÇAO(), trenzinho feio da pohha que tú fez, hein? melhore isso. Grave ao entrar antes do DEFINE DIALOG e na saida do ACTIVATE DIALOG para ver o que o corre. Regards, saludos.
-
https://fivewin.com.br/index.php?/topic/37743-sqlrdd/ Veja se ajuda. Regards, saludos.
-
Tudo que é novo, é melhor: https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&sid=633bd6c9289881bf6095b9f1458d5079&start=30 Regards, saludos.
-
Aqui: https://mega.nz/file/gIskAIjL#vB-TuQAnxKE40wNroXxTfP_n-F6amVzjuoIeJSEVIVk Regards, saludos.
-
eu acho, que este modo de programação, não funciona mais com I.E. ou google e sim, somente com WEBVIEW(Microsoft Edge), já vá se acostumando com CURL(), maior pé no $aco para eu dominar isso em xHarbour, leia desde o inicio para ver se entende esse "trem". https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43685&hilit=curl&sid=cf863a9a2816ec56a1b3bea94fdbedae&start=60 Não me aprofundei, pois não uso, só queria tentar "dominar", não entendi muita coisa... kkkkk Regards, saludos.
-
Tente fazer imitando este exemplo, senão você tá laskado, vai ter que aprender a usar CURL(). // C:\FHH\SAMPLES\ADHEMAR3.PRG #include "fivewin.ch" Function Main() Local cJSon, cRespuesta := "", oSoap, cToken cToken:= "TokenApi eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJJUlJJQk9MSVZJQSIsImNvZGlnb1Npc3RlbWEiOiI3NzExNEIyMERGQTRBRkI0NDFCMjVGNyIsIm5pdCI6Ikg0c0lBQUFBQUFBQUFETTBNYlV3TURNd01nRUFJc2g0VUFrQUFBQT0iLCJpZCI6NDI5MDgsImV4cCI6MTY4ODA4MzIwMCwiaWF0IjoxNjg0Nzc4NzcxLCJuaXREZWxlZ2FkbyI6MTQ1ODA2MDI0LCJzdWJzaXN0ZW1hIjoiU0ZFIn0.EgEF0lslzpnGkuFE05LazGbsKSkH98yN9B6fch5AEHL0On-mFtmld-3GaGahjP5n76DIbP3HECuktFY3xQ6pjQ" // oSoap = CreateObject("MSXML2.ServerXMLHTTP.6.0") #ifdef __XHARBOUR__ Try Try oSoap := CreateObject( 'Microsoft.XMLHTTP' ) Catch oSoap := CreateObject( 'MSXML2.XMLHTTP' ) End Catch MsgInfo( 'Erro na Criação do Serviço' ) RETURN NIL End #else Try Try oSoap := win_OleCreateObject( 'MSXML2.XMLHTTP' ) Catch oSoap := win_OleCreateObject( 'Microsoft.XMLHTTP' ) End Catch MsgInfo( 'Erro na Criação do Serviço! Com Harbour', 'Atenção!' ) RETURN NIL End #endif cJson:='<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:siat="https://siat.impuestos.gob.bo/">'+CRLF cJson+='<soapenv:Header/>'+CRLF cJson+=' <soapenv:Body>'+CRLF cJson+=' <siat:cufd>'+CRLF cJson+=' <SolicitudCufd>'+CRLF cJson+=' <codigoAmbiente>2</codigoAmbiente>'+CRLF cJson+=' <codigoModalidad>1</codigoModalidad>'+CRLF cJson+=' <!--Optional:-->'+CRLF cJson+=' <codigoPuntoVenta>0</codigoPuntoVenta>'+CRLF cJson+=' <codigoSistema>77114B20DFA4AFB441B25F7</codigoSistema>'+CRLF cJson+=' <codigoSucursal>0</codigoSucursal>'+CRLF cJson+=' <cuis>3A5218DE</cuis>'+CRLF cJson+=' <nit>145806024</nit>'+CRLF cJson+=' </SolicitudCufd>'+CRLF cJson+=' </siat:cufd>'+CRLF cJson+=' </soapenv:Body>'+CRLF cJson+='</soapenv:Envelope>'+CRLF oSoap:Open( "POST","https://siat.impuestos.gob.bo/", .F. ) // oSoap:SetRequestHeader( "apikey", cToken ) oSoap:Send( cJson ) // cRespuesta:=oSoap:responseText IF oSoap:STATUS != 200 MsgStop( AllTrim( Str( oSoap:Status ) ) + " - " + oSoap:StatusText, "Erro" ) RETURN NIL ENDIF WHILE oSoap:ReadyState != 4 SYSREFRESH() oSoap:WaitForResponse( 1000 ) END // ? cRespuesta cRespuesta := oSoap:ResponseBody() IF FILE( "ADHEMAR.txt" ) ERASE ADHEMAR.txt ENDIF MemoWrit('ADHEMAR.txt', cRespuesta) return cRespuesta // FIN / END Regards, saludos.
-
Bom dia Sisco, rapaz, eu nunca vi essa função na minha vida. Isso é para imprimir o DANFE, ou para gerar um .PDF da NFE? e o que é isso? Run( "Start " + cFilePdf ) Se for para imprimir o DANFE, veja a classe do Gilmer, DANFE.PRG é essa que usamos para imprimir a NFE e para gerar o .PDF, é outro modo que se precisar, eu procuro aqui no HD e posto para você. abs. Regards, saludos.
-
https://flexdocs.net/guiaNFe/funcao.utilidades.geraDANFE.html Aqui, uma aula do kpeta: kkkkkk https://fivewin.com.br/index.php?/topic/23962-erro-gerarpdfdanfe-flexdocs/ Regards, saludos.
-
Bom dia. Facilitaria mais, se você postasse o código que você usa para eu ver se lembro de alguma coisa, ou ache o "ERRO". obg. abs. Regards, saludos.
-
#include "Fivewin.ch" FUNCTION Main() LOCAL pCpf := "99999999999" LOCAL pCnpj := "08124858000100" LOCAL pNome := "joao carlos" LOCAL pArquivo := ".\func0001.JPG" // LOCAL pArquivo := ".\LOGO.jpg" LOCAL cRetorno := "" cRetorno := fEnviaArquivo( pCpf, pCnpj, pNome, pArquivo ) MsgInfo( cRetorno ) MemoWrit( ".\carlos.txt", cRetorno ) RETURN NIL // .T. // ------------------------------------------------------------------------------* // Analista : maniel // // Objetivo : Enviar Arquivo // ------------------------------------------------------------------------------* FUNCTION fEnviaArquivo( pCpf, pCnpj, pNome, pArquivo ) LOCAL oHttp, cTexto := "" #IFDEF __XHARBOUR__ // xHarbour Try oHttp:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) Catch MsgInfo('Erro na Criação do Serviço!', 'xHarbour: Atenção!') Return Nil End #ELSE Try oHttp:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0") Catch MsgInfo('Erro na Criação do Serviço!', 'Harbour: Atenção!') Return Nil End #ENDIF TRY oHttp:Open( 'POST', "https://api-fpm.syspel.com.br/api/recibos/", .F. ) cTexto := '{ ' cTexto += '"id_client": ' + pCpf cTexto += '"id_company": ' + pCnpj cTexto += '"Id_employee": ' + pNome cTexto += '"File": ' + pArquivo cTexto += ' }' oHttp:Send( cTexto ) CATCH MsgInfo( "Erro no processo post:" + oHttp:lastErrorMessage() ) END RETURN( oHttp:ResponseBody ) // FIN / END Regards, saludos. teste assim e reporte erros, pls.
-
Explique melhor o intuito disso, pls. Regards, saludos.
-
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43841&start=0 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43796 Regards, saludos.
-
SWITCH na próxima versão do FIVE, se poderá usar RECURSOS. Great! https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44203&sid=b338124ced58fe79f2c2a6cade01bffb&start=15 Regards, saludos.
-
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44196&sid=b338124ced58fe79f2c2a6cade01bffb https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44205&sid=b338124ced58fe79f2c2a6cade01bffb https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44194&sid=b338124ced58fe79f2c2a6cade01bffb https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44182&sid=b338124ced58fe79f2c2a6cade01bffb Regards, saludos
-
Atribuir um valor de um campo SQL a uma variável
kapiaba replied to Ladinilson's topic in Programação
Good Job. Parabéns. abs. Regards, saludos. -
Atribuir um valor de um campo SQL a uma variável
kapiaba replied to Ladinilson's topic in Programação
Rapazinho, não sei nem o que você queria! Não entendi pohha nenhuma. kkkkkkkkk Mostre algo de concreto para os demais se um dia precisarem, já tem a resposta para a mesma dúvida que tivestes. Tú tá parecendo o Corinthians, todo "laskado". kkkkkkkkkkkkkkkkkkkkk Regards, saludos. -
Eu sei que o tópico é antigo, más PrnGetCopies() ? ó as ideia.... kkkkkkkkkkkkkkkkkk Regards, saludos.
-
Atribuir um valor de um campo SQL a uma variável
kapiaba replied to Ladinilson's topic in Programação
Eu usaria: maria_Connect() https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44199&sid=b92b98725c835fdb782ba3de76378495&start=0#p267575 Regards, saludos. -
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40803&p=244038&hilit=TSwitch&sid=a49a88aae3455745a76acc04260ce5dd#p244038 Regards, saludos
-
Esse exemplo ficou feio, más funciona. https://www.forums.fivetechsupport.com/viewtopic.php?f=3&t=22761&start=0 Regards, saludos.
-
Talvez: https://www.forums.fivetechsupport.com/viewtopic.php?f=3&t=20430&start=0 Regards, saludos.