toya

Já efetuei testes via bnpx_FlexDocsFuncionalidades: oFlexDocs:cRetorno := oFlexDocs:oObj:ConsChNFe(; oFlexDocs:hConsChNFe["siglaWS"],; oFlexDocs:hConsChNFe["tipoAmbiente"],; oFlexDocs:hConsChNFe["NomeCertificado"],; oFlexDocs:hConsChNFe["versao"],; @oFlexDocs:MsgDados,; @oFlexDocs:MsgRetWS,; @oFlexDocs:nStat,; @oFlexDocs:MsgResultado,; oFlexDocs:hConsChNFe["CNPJ"],; oFlexDocs:hConsChNFe["chaveNFe"],; @oFlexDocs:hRetConsChNFe["verAplic"],; @oFlexDocs:hRetConsChNFe["NSUXML"],; @oFlexDocs:hRetConsChNFe["schemaXML"],; oFlexDocs:Proxy,; oFlexDocs:Usuario,; oFlexDocs:Senha,; oFlexDocs:Licenca ) Funcionou perfeitamente...

Valeu!!! Ótimos...

Muita Paz a Todos !!! https://www.facebook.com/photo.php?fbid=1738701959779652&set=a.1414874818829036.1073741827.100009195956044&type=3

Fladimir, baixado pelo bnpx_nfe-Versão-6.0... 35161157407397000158550010003616391617727938-nfe.xml

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

Valdir, ótima a vossa colaboração... Mas necessito o XML de NFe de Remessa para Conserto e XML de NFe de Retorno de Conserto de várias UFs para analise e auxilio nos estudos que estou efetuando sobre o assunto...

Eroni, podes enviar-me o Xml para toyasis@gmail.com Desde já, mui grato...

Permitam-me anexar esta dica... Após a incorporação do .RES, proceder: ... oFr3:Resource := "DANFE_NFCE_01" oFr3:LoadFromResource( oFr3:Resource ) ... imgTopdf.pdf

CálculoPiramideInversa()... Se localizar um hd do século passado, creio que ainda tenho algo por lá... //------------------------------------------------------------------------------ function PiramideInversa() local Result := 0 local aBase := {} local aResultado := {} local i := 0 local j := 0 local nFator := 1 aBase := { 4, 6, 6, 8 } aResultado := array( len( aBase ) - 1 ) do while len( aResultado ) > 1 PiramideInversaCalcular( @aBase, @aResultado, nFator ) ? "aBase:", valtoprg( aBase ), "aResultado", valtoprg( aResultado ), if( nFator == 1, "Somar", "Subtrair" ) if len( aResultado ) > 1 aBase := aclone( aResultado ) aResultado := array( len( aBase ) - 1 ) if nFator == 1 nFator := 0 else nFator := 1 endif endif enddo ? "aResultado", valtoprg( aResultado ) return Result //------------------------------------------------------------------------------ function PiramideInversaCalcular( paBase, paResultado, pnFator ) local Result := 0 local i := 0 local j := 0 j := len( paResultado ) if j > 2 for i = len( paBase) to 2 step -1 if pnFator == 1 paResultado[j] := paBase - paBase[i - 1] else paResultado[j] := paBase + paBase[i - 1] endif j-- next else if pnFator == 1 paResultado := { paBase[2] - paBase[1] } else paResultado := { paBase[2] + paBase[1] } endif endif return Result //------------------------------------------------------------------------------ Considere-se que na questão, o Fator de cada linha da PiramideInversa deve ser: Somar, Subtrair... Mais ou menos por aí... Caso haja erros, desculpem, a memória já anda meia bugada !!!

#xtranslate BETWEEN( <x>,<y>,<z> ) => ; (if(<x>\>=<y>.and.<x>\<=<z>, .t.,.f. ))

Sugestão, poste como está o vosso Xml que pode facilitar o auxilio...

Inclua no vosso Projeto //------------------------------------------------------------------------------ // #toya: 15/03/2015 - 11:03:22 - bnpx-2kf Release .002.001 function HB_EOL() return chr(13) + chr(10) //------------------------------------------------------------------------------

http://tdolphin.blogspot.com.br/ https://bitbucket.org/danielgarciagil/tdolphin/downloads

Samir := Mestre Help 1...

Estudando, aplicando e me confesso admirado...

Se me permitirem, dou um repeteco... 01. Adicionar o msg_bar.bmp ao vosso .RES 02. Adicionar o texto da rotina contida em msg_bar.txt ao vosso .PRG 02.1 - Alterar o nome da rotina para: MsgBar2010 ou MsgBar2015 se estiveres utilizando um destes padrões ao invés de MsgBar2007

01. Adicionar o msg_bar.bmp ao vosso .RES 02. Adicionar o texto da rotina contida em msg_bar.txt ao vosso .PRG 02.1 - Alterar o nome da rotina para: MsgBar2010 ou MsgBar2015 se estiveres utilizando um destes padrões ao invés de MsgBar2007 Para gerar este bitmap utilizei: Gradient nRgb( 102, 153, 204 ) e nRgb( 000, 102, 153 ) msg_bar.bmp msg_bar.txt

Bom dia a todos !!! Gostaria de receber uma cópia... toyasis@gmail.com

Podes testar este, baixa XML "sem validade juridica"... i-bnpx - Interface BaixarNFePontoXml http://www.toyanet.com.br/pontoxml.php#pontoxml011 https://www.facebook.com/profile.php?id=100009195956044

Cálculo de horas entre datas... http://www.toyanet.com.br/bitgaragem.php#bitgaragem018

Indisponivel...

O <bnpx/> decodifica o Captcha...

Pois é, como nos velhos tempos... "O Clipper não morreu..." Minhas rotinas "lusitanas" estarão a disposição dos colegas aprendizes...

Boa noite!!! Theotokos, trata-se dos "Scripts de Compilação"... Script genérico para compilação usando-se um .BAT (para quem usa o xHarbour Comercial ou outra ferramenta não suportada diretamente pela xDevStudio)

Alguem poderia ajudar-me com alguma dica de como compilar um Projeto utilizando xDev + xHarbour Comercial ?...