kapiaba

Bom dia mestre João. Veja se ajuda: https://forums.fivetechsupport.com/viewtopic.php?f=6&t=22720&p=121378&hilit=pasar+parametro&sid=f7c2b45f78a40913c59424dd41aa4d80#p121378 abs. Regards, saludos.

DESCONFIEI DESDE O PRINCÍPIO.... kkkkkkkkkkk abs. Regards, saludos.

https://flexdocs.net/guiaCTe/WS.CTe.html

Use: PEINFO.exe https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43836&p=264821&hilit=dll&sid=0561f2e0d2d686b8a2722d6fba14e55b#p264821 Regards, saludos.

Verifique se não é isso? Necessário o atualização do wsCTe4v.xml da pasta .\Cte_Util\URL à medida que as UF disponibilizarem os WS Arquivo com as URL dos WS mais atualizado disponível em: wsCTe4v.xml

https://www.fivetechsupport.com/forums/viewtopic.php?f=6&t=28688&p=160857&hilit=timediff&sid=13ee23a12d144608d38c49336622a6f4#p160857

sistema de Mercado Autônomo, com seus periféricos. WHAT IS THIS? Regards, saludos.

É com muito pesar que venho aqui noticiar que o nosso mestre e, querido Paulo Toledo veio a falecer agora pouco perto das 20:00 Que Deus conforte o coração da família. http://www.pctoledo.com.br/forum/viewtopic.php?f=5&t=27382 Abs.

Meu amigo, não perca tempo com isso não, contrate um plano de página/email aqui: https://acheperto.com.br/contato/ Pessoal nota 10. Abs Regards, saludos.

Eu gravaria em BANCO DE DADOS em modo texto e editaria em GETs usando FOLDEREX, fica bem legal também, pois o cliente EDITA somente o GET que ele quiser no FOLDER que ele quiser... Somente uma ideia. E usa a PRINTER.prg para imprimir a gosto e de várias formas via escolha nos botôes, entende? Abs. Regards, saludos.

Use a TWORD ou RICHEDIT do fivewin: https://forums.fivetechsupport.com/viewtopic.php?f=6&t=41784&hilit=contrato&sid=81703d2a4a8d1735bb1ae6dde40169dc#p250539 Regards, saludos.

https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&p=266929&sid=b354abadd3f9447e4ba3b0c9c6ebb477#p266783

https://imgur.com/orL63a7 [img]https://i.imgur.com/orL63a7.png[/img]

Very good.

Provável uma instabilidade temporária da impressora. Monitore. Regards, saludos.

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42954

Edutek, faça isso funcionar corretamente, PSL. Seu exemplo não está nada bom... [code] #include "fivewin.ch" FUNCTION Main() LOCAL mLat, mLong // Latitude e longitude e: -22.63458 , -47,30005 mLat := "-22.63458" mLong := "-47,30005" orion_jornada_AchaEndereco( mLat, mLong ) RETURN NIL FUNCTION orion_jornada_AchaEndereco( mLat, mLong ) LOCAL CDOCXML, MRODOVIA, MCIDADE, MAREA, MESTADO, MREGIAO, CTXT1, ; MREGISTRO, NI, CTEMP LOCAL cGoogleURL := "https://nominatim.openstreetmap.org/reverse?format=xml&" LOCAL cAddress := "lat=" + AllTrim( mLat ) + "&lon=" + AllTrim( mLong ) LOCAL aReturn, i, cTxt := "" IF Empty( mLat ) mLat := jornada->latitudegps mLong := Jornada->longitudegps cAddress := "lat=" + AllTrim( mLat ) + "&lon=" + AllTrim( mLong ) ENDIF // aReturn := hb_jsonDecode( WebPageContents( cGoogleURL + cAddress) ) // *** Change this *** cDocXML := WebPageContents( cGoogleURL + cAddress ) // hb_jsondecode( aReturn, @aReturn ) && se lá na URL vc colocar format "json" - eu uso "XML" IF .NOT. Empty( cDocXML ) ? cDocXML // NAO RETORNOU POHHA NENHUMA. kkkkkk mRodovia := LerTag( cDocxml, "road" ) mCidade := LerTag( cDocxml, "town" ) mArea := LerTag( cDocxml, "municipality" ) mEstado := LerTag( cDocxml, "state" ) mRegiao := LerTag( cDocxml, "region" ) mRodovia := iif( Len( RTrim( mrodovia ) ) > 0, mRodovia + ", ", "" ) mCidade := iif( Len( RTrim( mCidade ) ) > 0, mCidade + ", ", "" ) mestado := iif( Len( RTrim( mEstado ) ) > 0, mEstado + ", ", "" ) mRegiao := iif( Len( RTrim( mRegiao ) ) > 0, mRegiao + ", ", "" ) cTxt1 := mRodovia + mcidade + mEstado + mRegiao + mArea // QUE POHHA E ESSA? // cTXT := U8ToUni( cTXT1, "UTYPE_ANSI" ) IF Len( AllTrim( ctxt ) ) < 10 cTxt := "Localização não Encontrada" ENDIF ELSE cTxt := "Localização não Encontrada" ENDIF /* QUAL A ESTRUTURA DESTE BANCO DE DADOS? dbSelectArea( "jornada" ) mregistro := jornada->( RecNo() ) */ grava_dados( "A", "jornada", { "local" }, { cTxt }, Alias(), "S" ) XBROWSE( cTxt1 ) RETURN NI FUNCTION LERTAG( MsgRetWs, cNode ) // ESTA CORRETO? LOCAL cData:="" LOCAL nPos,nPos1,cTempo, CTEMP WHILE( .T. ) SYSREFRESH() nPos := At("<"+cNode+">",MsgRetWs) cTemp:=Substr(MsgRetWs,nPos+len(cNode)+2) If At("<"+cNode+">",cTemp)!=0 nPos1 := At("</"+cNode+">",cTemp) cTemp := Substr(cTemp,nPos1+len(cNode)+3) MsgRetWs := cTemp Else Exit Endif SysRefresh() ENDDO nPos1 := At("</"+cNode+">",MsgRetWs) If nPos!=-0.and.nPos1!=0 cData := Substr(MsgRetWs,nPos+Len(cNode)+2,nPos1-(nPos+Len(cNode)+2)) Endif RETURN( cData ) FUNCTION GRAVA_DADOS() // PONHA A ORIGINAL RETURN NIL // FIN / END [/code] Regards, saludos.

Good, que eu informo aqui: mLat, mLong ???

https://www.fivetechsoft.com/forums/viewtopic.php?t=36454

Mostre como está fazendo. a é PUBLIC?

Consegue proporcionar um exemplo funcional? .RC ou código? Como está o seu MENU PRINCIPAL, ASSIM? // EM: AMBIENTY.CH SetGetColorFocus( CLR_LGREEN ) // COR EM TODOS OS GETS DOS DIALOGOS. tGet():lDisColors := .F. // WHEN( .F. ) COR. tGet():nClrTextDis := CLR_HBLUE tGet():nClrPaneDis := CLR_SOFTYELLOW

Olá, você não está usando um TGET.PRG modificada de outra versão?

Fivewin é FANTÁSTICO! https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43759&p=264262&hilit=pdf&sid=2d5683357612547c42facb2af25149b1#p264262 Regards, saludos.

Mostre o código FINAL.

Já tentou com a Elgin? http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=27112&p=161508&hilit=CFE#p161508 Regards, saludos.