Jump to content
Fivewin Brasil

toya

Membros
 View Profile  See their activity

  • Posts

    293

  • Joined

  • Last visited

  • Days Won

    15

 Content Type 

Posts posted by toya

  1. Novo Endereco Manifesto Destinatario

    in Programação

    Posted

    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...

     

  9. Ajuda com Calculo

    in Programação

    Posted

    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 !!!

  12. COMPILAR XHARBOUR

    in Programação

    Posted

    Inclua no vosso Projeto

    //------------------------------------------------------------------------------  

// #toya: 15/03/2015 - 11:03:22 - bnpx-2kf Release .002.001
function HB_EOL()

return chr(13) + chr(10)

//------------------------------------------------------------------------------
×
×
  • Create New...