toya

Amiguinhos,
Parabens Toya, isto merece comemoração com cerveja e churrasco.
Mas acho que você estava no caminho certo quando abriu o tópico, pois só faltava passar o conteúdo do arquivo no método Send().
Mas como quem programou o webservice quis pregar uma peça em você, foi necessário perder uns fios de bigode para vencê-los.

// ShowMenu.prg // Montagem e controle de menus. #Include "FiveWin.ch" #define KEYEVENTF_KEYUP 2 MEMVAR oWnd FUNCTION Main()    PRIVATE oWnd    DEFINE WINDOW oWnd TITLE "Teste de ShowMenu()" MDI FROM 0, 0 TO 15, 80    ;       MENU MenuGer()    ACTIVATE WINDOW oWnd CENTERED RETURN NIL // ** * Fim de Main() = Teste. STATIC FUNCTION SuaAcao()    MsgInfo( "Estou em " + oWnd:oMenu:LastItem():cPrompt )    ShowMenu() RETURN NIL // ** * Fim de SuaAcao = Teste. // Recupera mensagens dos itens do menu do resource/stringable. STATIC FUNCTION MenuGer()    LOCAL oMnu    MENU oMnu       MENUITEM "SubMenu 1"       MENU          MENUITEM "Item 1.1" ACTION SuaAcao()          MENUITEM "Item 1.2" ACTION SuaAcao()          SEPARATOR          MENUITEM "Item 1.3" ACTION SuaAcao()          MENUITEM "SubMenu 1.1"          MENU             MENUITEM "Item 1.1.1" ACTION SuaAcao()             MENUITEM "Item 1.1.2" ACTION SuaAcao()             MENUITEM "Item 1.1.3" ACTION SuaAcao()             MENUITEM "Item 1.1.4" ACTION SuaAcao()          ENDMENU          SEPARATOR          MENUITEM "Item 1.4" ACTION SuaAcao()       ENDMENU       SEPARATOR       MENUITEM "Item 1" ACTION SuaAcao()       MENUITEM "SubMenu 2"       MENU          MENUITEM "Item 2.1" ACTION SuaAcao()          SEPARATOR          MENUITEM "Item 2.2" ACTION SuaAcao()          MENUITEM "SubMenu 2.1"          MENU          MENUITEM "Item 2.1.1" ACTION SuaAcao()          MENUITEM "Item 2.1.2" ACTION SuaAcao()          MENUITEM "SubMenu 2.1.1"          MENU          MENUITEM "Item 2.1.1.1" ACTION SuaAcao()          MENUITEM "Item 2.1.1.2" ACTION SuaAcao()             SEPARATOR             MENUITEM "Item 2.1.1.3" ACTION SuaAcao()             MENUITEM "Item 2.1.1.4" ACTION SuaAcao()          ENDMENU          MENUITEM "Item 2.1.3" ACTION SuaAcao()             MENUITEM "Item 2.1.4" ACTION SuaAcao()          ENDMENU          MENUITEM "Item 2.3" ACTION SuaAcao()          SEPARATOR          MENUITEM "SubMenu 2.2"          MENU             MENUITEM "Item 2.2.1" ACTION SuaAcao()             MENUITEM "Item 2.2.2" ACTION SuaAcao()             MENUITEM "Item 2.2.3" ACTION SuaAcao()             MENUITEM "Item 2.2.4" ACTION SuaAcao()          ENDMENU          MENUITEM "Item 2.4" ACTION SuaAcao()       ENDMENU    ENDMENU RETURN oMnu // ** * Fim de MenuGer( oM ) = Teste. // ----------------------------------------------------------------------------- // Reabre o menu que chamou uma rotina. // 1§ Descobre o caminho para se chegar ate oM:LastItem() // 2§ Abre o menu simulando a tecla Alt e, em seguida, a // sequencia de setas para chegar ate oM:LastItem() FUNCTION ShowMenu( oM, nNiv )    LOCAL nItem, oLItM, cMov := "", cMv, nChr    DEFAULT oM := WndMain():oMenu    DEFAULT nNiv := 0    oLItM := oM:LastItem()    FOR nItem := 1 TO Len( oM:aItems )       IF ValType( oM:aItems[ nItem ]:bAction ) = 'O'          cMv := ShowMenu( oM:aItems[ nItem ]:bAction, nNiv + 1 )          IF Right( cMv, 1 ) == "x"             cMov += Chr( if( nNiv = 0, VK_DOWN, VK_RIGHT ) ) + cMv             IF nNiv == 0                cMov := Left( cMov, Len( cMov ) - 1 )                // MsgInfo( StrTran( StrTran( cMov,Chr(VK_DOWN),"V" ), Chr(VK_RIGHT), ">" ) )                keybd_event( VK_MENU, 0, 0, 0 )                keybd_event( VK_MENU, 0, KEYEVENTF_KEYUP, 0 )                FOR nChr := 1 TO Len( cMov )                   keybd_event( Asc( SubStr( cMov, nChr, 1 ) ), 0, 0, 0 )                   keybd_event( Asc( SubStr( cMov, nChr, 1 ) ), 0, KEYEVENTF_KEYUP, 0 )                NEXT                RETURN .T.             ENDIF             RETURN cMov          ENDIF       ELSE          IF oM:aItems[ nItem ]:nId == oLItM:nId             RETURN cMov + "x"          ENDIF       ENDIF       IF !Empt( oM:aItems[ nItem ]:cPrompt ) // se não for um separador          cMov += Chr( if( nNiv = 0, VK_RIGHT, VK_DOWN ) )       ENDIF    NEXT RETURN if( nNiv == 0, .F., "" ) // ** // *********************************************************** DLL32 FUNCTION keybd_event( bVk as _INT, bScan as _INT, dwFlags ;       as LONG, dwExtraInfo as LONG ) AS LONG PASCAL LIB "user32.dll" // *********************************************************** // ----------------------------------------------------------------------------- // ****   Fim de ShowMenu.prg
Regards, saludos.

Abre-se um novo espaço de oportunidades onde muitos de nós, profissionais "lapidadores de bits",  poderemos nos encaixar...
Acesse o edital e conheça mais sobre as atribuições, perfil desejado e informações para participação no processo
https://www.gov.br/anpd/pt-br/assuntos/noticias/faca-parte-da-equipe-da-anpd-1/edital-final-1.pdf
O prazo é até 31/08/2021.
 
Confesso estar mui animado com este assunto LGPD...
Vamos ter muiiiitas conversas e noites ralando para adequar nossos Sistemas...
 

Excelente indicação !!!
bitsadmin.txt

Amiguinhos,
Esta ferramenta existe nativamente em todos os Windows e pode ajudar a baixar arquivos diretamente de sites na internet para o seu computador.
Esta ferramenta se chama BITS
Modo de uso:
bitsadmin.exe /transfer "NomeQualquerParaOJOB" http://seusite.com.br/arquivo.zip C:\temp\NomeDestino.zip
Bom trabalho.

Tenta essa que eu adaptei e uso a muito tempo com sucesso: (perdão, agora que vi que vc precisa atualizar parametros, então não vai servir, essa só baixa se vc passar tudo via link, vou deixar apenas pra histórico pois pode ajudar alguem)
 
Function Emt_GetHtml(cLink) Local oOle Local cHtml := ""   Try    oOle := CreateObject( "Microsoft.XMLHTTP" )    oOle:Open( "GET", cLink, .f. )    oOle:Send()    cHtml := oOle:ResponseBody    oOle := nil Catch End   Return cHtml

Retornar número da linha: oGetMemo:GetRow()
Retornar número da coluna: oGetMemo:GetCol()

Amiguinhos,
Vou deixar um link aqui para todos e para mim também, kkkkkk
Nele, um github onde vários colaboradores acrescentaram documentos muito úteis sobre linguagens vocês encontram muito material.
Muitas vezes acontece a necessidade de aprender alguma linguagem a mais para fazer uma integração ou interagir com outros recursos.
Enjoy IT!
Neste Link Aqui

Mui grato a todos os colegas....
...
Consegui resolver de uma maneira simples e lusitana:

Na montagem da tabela com os dados para impressão criei 6 campos
(CORCOL01, CORCOL02, CORCOL03, CORCOL04, CORCOL05, CORCOL06), onde
1=cor azul ($FF0000), 2=cor vermelha ($0000FF) e 3=cor preta ($000000).
Na aba "Código->Linguagem: PascalScript:
 
begin if (<DBFFR3."CORCOL01"> = 1) then LinhaDetalhe072.Font.Color := $FF0000; if (<DBFFR3."CORCOL01"> = 2) then LinhaDetalhe072.Font.Color := $0000FF; if (<DBFFR3."CORCOL01"> = 3) then LinhaDetalhe072.Font.Color := $000000; if (<DBFFR3."CORCOL02"> = 3) then LinhaDetalhe082.Font.Color := $000000; if (<DBFFR3."CORCOL02"> = 2) then LinhaDetalhe082.Font.Color := $0000FF; if (<DBFFR3."CORCOL02"> = 1) then LinhaDetalhe082.Font.Color := $FF0000; if (<DBFFR3."CORCOL03"> = 1) then LinhaDetalhe092.Font.Color := $FF0000; if (<DBFFR3."CORCOL03"> = 2) then LinhaDetalhe092.Font.Color := $0000FF; if (<DBFFR3."CORCOL03"> = 3) then LinhaDetalhe092.Font.Color := $000000; if (<DBFFR3."CORCOL04"> = 1) then LinhaDetalhe102.Font.Color := $FF0000; if (<DBFFR3."CORCOL04"> = 2) then LinhaDetalhe102.Font.Color := $0000FF; if (<DBFFR3."CORCOL04"> = 3) then LinhaDetalhe102.Font.Color := $000000; if (<DBFFR3."CORCOL05"> = 1) then LinhaDetalhe112.Font.Color := $FF0000; if (<DBFFR3."CORCOL05"> = 2) then LinhaDetalhe112.Font.Color := $0000FF; if (<DBFFR3."CORCOL05"> = 3) then LinhaDetalhe112.Font.Color := $000000; if (<DBFFR3."CORCOL06"> = 1) then LinhaDetalhe122.Font.Color := $FF0000; if (<DBFFR3."CORCOL06"> = 2) then LinhaDetalhe122.Font.Color := $0000FF; if (<DBFFR3."CORCOL06"> = 3) then LinhaDetalhe122.Font.Color := $000000; end.  

ajustado:
function NFe_CSRT()
local Result := .t.
local cIdCSRT := ""
local cCSRT := ""
local cChaveNFe := ""
local cHashCSRT := ""
local cBase64 := ""
cIdCSRT := "01"
cCSRT := "G8063VRTNDMO886SFNK5LDUDEI24XJ22YIPO"
cChaveNFe := "41180678393592000146558900000006041028190697"
cHashCSRT := hb_sha1( cCSRT + cChaveNFe )
msg_OK_titulo( 'cIdCSRT := "01"' + CRLF + 'cCSRT := "G8063VRTNDMO886SFNK5LDUDEI24XJ22YIPO"' + CRLF + 'cChaveNFe := "41180678393592000146558900000006041028190697"' + CRLF + 'cHashCSRT := hb_sha1( cCSRT + cChaveNFe )', "Hash do Código de Segurança do Responsável Técnico (CSRT)" )    
cBase64 := HB_Base64Encode( HexToSTr( cHashCSRT ), 20 )
msg_OK_titulo( "<idCSRT>01</idCSRT>" + CRLF + "<hashCSRT>" + cBase64 + "</hashCSRT>", "Hash do Código de Segurança do Responsável Técnico (CSRT)" )
return Result
 
 

Veja:
https://imgur.com/o500tUd
 
Obs.:
Instalar na mesma pasta onde estiver instalada a DLL FlexDocs.

Atualização do aplicativo <bnpx/>
Release 007.004
Ocorrência de Dados do Remetente
tag <autXML>
tag <cEAN>
tag <cEANTrib>
<IPI><IPITrib><CST>49</CST>
<PIS><PISOutr><CST>98</CST>
<COFINS><COFINSOutr><CST>98</CST>
http://www.toyanet.com.br/pontoxml.php#pontoxml006

toyaNET
Rotinas FlexDocs
01. Rotina para verificar se o ambiente está apto para utilização da DLL focando o leiaute da NFe-4.00.

http://www.toyanet.com.br/pontoxml.php#pontoxml015

toyaNET
Rotinas FlexDocs
01. Rotina para verificar se o ambiente está apto para utilização da DLL focando o leiaute da NFe-4.00.

http://www.toyanet.com.br/pontoxml.php#pontoxml015

Vixi... se o primeiro registro é de 1984, comecei bem antes desta data...

Vixi... se o primeiro registro é de 1984, comecei bem antes desta data...

Senhores, boa tarde !
Tenho uma oportunidade para desenvolvimento xHarbour / Fivewin / PELLES C / Resources / SQLRDD .
Se alguem tiver interesse , seria de forma autonoma !
 
Pablo Rivera
+11+994526227

http://www.flexdocs.com.br/guiaNFe/WS.distDFe.html

Postei aqui, pois não consegui postar em Downloads
https://matheusfariasdev.wordpress.com/2017/09/14/migrar-csvxls-para-dbf/

Salvo alguns atropelos pertinentes a ambiente e configuração das máquinas, já estamos testando com sucesso a FlexDocs no que se refere a NFe-4.00,
Testes com a NFCe-4.00 ainda não foram totalmente concluidos...

A que estou usando, ainda não vi publicada pela FlexDocs...
Creio que por estes dias ela deva atualizar para download geral...

Depois de muito tempo fechei mais uma versão do tAds.
Para quem tiver interessado é só baixar e acompanhar.
https://github.com/giovanyvecchi/tAdsGit.git

Valeu!!!
Ótimos...

Bom dia Rochinha !!!
Mui grato...
Como sempre, Mestre Excelência !!!
 

Eroni, podes enviar-me o Xml para toyasis@gmail.com

Desde já, mui grato...