1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Como usar uma classe no progress

Discussão em 'Progress 4GL' iniciado por weiss_sbs, Setembro 19, 2018.

  1. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Mas nesse caso não resolve, porque eu mando pra rotina a formula pronta, então é no aplicativo, eu tenho que por as ASPAS no lugar certo, mas isso é o de menos, eu que banquei o preguiçoso, quando montei as formulas já teria que usar as aspas, mas como o excel não exige ....
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Um exemplo .....
    Código:
    PROCEDURE geraSomaSes :
    /*------------------------------------------------------------------------------
      Purpose:    
      Parameters:  <none>
      Notes:      
    ------------------------------------------------------------------------------*/
        define input  parameter cfops               as character no-undo.
        define input  parameter codEstabel          as character no-undo.
        define input  parameter aliquotaICMS        as decimal   no-undo.
        define input  parameter contribICMS         as integer   no-undo.
    
        define output parameter somaseValorVenda    as character no-undo.
        define output parameter somaseBaseIcms      as character no-undo.
        define output parameter somaseValorIcms     as character no-undo.
        define output parameter somaseBaseIcmsSub   as character no-undo.
        define output parameter somaseValorIcmsSub  as character no-undo.
        define output parameter somaseBasePISCOFINS as character no-undo.
        define output parameter somaseValorPIS      as character no-undo.
        define output parameter somaseValorCOFINS   as character no-undo.
        define output parameter somaseBaseIpi       as character no-undo.
        define output parameter somaseValorIpi      as character no-undo.
        define output parameter somaseDifalOrigem   as character no-undo.
        define output parameter somaseDifalDestino  as character no-undo.
    
        define variable contadorCFOP as integer no-undo.
    
        assign somaseValorVenda    = ''
               somaseBaseIcms      = ''
               somaseValorIcms     = ''
               somaseBaseIcmsSub   = ''
               somaseValorIcmsSub  = ''
               somaseBasePISCOFINS = ''
               somaseValorPIS      = ''
               somaseValorCOFINS   = ''
               somaseBaseIpi       = ''
               somaseValorIpi      = ''
               somaseDifalOrigem   = ''
               somaseDifalDestino  = ''.
    
            repeat contadorCFOP = 1 to num-entries(cfops):
                assign somaseValorVenda    = somaseValorVenda    + 'sumifs(' + codEstabel + '!F:F,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseBaseIcms      = somaseBaseIcms      + 'sumifs(' + codEstabel + '!H:H,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseValorIcms     = somaseValorIcms     + 'sumifs(' + codEstabel + '!I:I,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseBaseIcmsSub   = somaseBaseIcmsSub   + 'sumifs(' + codEstabel + '!J:J,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseValorIcmsSub  = somaseValorIcmsSub  + 'sumifs(' + codEstabel + '!K:K,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseBasePISCOFINS = somaseBasePISCOFINS + 'sumifs(' + codEstabel + '!M:M,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseValorPIS      = somaseValorPIS      + 'sumifs(' + codEstabel + '!N:N,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseValorCOFINS   = somaseValorCOFINS   + 'sumifs(' + codEstabel + '!O:O,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseBaseIpi       = somaseBaseIpi       + 'sumifs(' + codEstabel + '!Q:Q,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseValorIpi      = somaseValorIpi      + 'sumifs(' + codEstabel + '!R:R,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseDifalOrigem   = somaseDifalOrigem   + 'sumifs(' + codEstabel + '!T:T,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'
                       somaseDifalDestino  = somaseDifalDestino  + 'sumifs(' + codEstabel + '!U:U,' + codEstabel + '!A:A,"' + entry(contadorCFOP,cfops) + '",' + codEstabel + '!C:C,' + replace(string(aliquotaICMS),',','.')  + ',' + codEstabel + '!D:D,' + (if contribICMS = 0 then '"Sim"' else '"NÆo"') + ')+'.
            end.
            assign somaseValorVenda    = 'abs(' + replace(somaseValorVenda    + '|','+|','') + ')'
                   somaseBaseIcms      = 'abs(' + replace(somaseBaseIcms      + '|','+|','') + ')'
                   somaseValorIcms     = 'abs(' + replace(somaseValorIcms     + '|','+|','') + ')'
                   somaseBaseIcmsSub   = 'abs(' + replace(somaseBaseIcmsSub   + '|','+|','') + ')'
                   somaseValorIcmsSub  = 'abs(' + replace(somaseValorIcmsSub  + '|','+|','') + ')'
                   somaseBasePISCOFINS = 'abs(' + replace(somaseBasePISCOFINS + '|','+|','') + ')'
                   somaseValorPIS      = 'abs(' + replace(somaseValorPIS      + '|','+|','') + ')'
                   somaseValorCOFINS   = 'abs(' + replace(somaseValorCOFINS   + '|','+|','') + ')'
                   somaseBaseIpi       = 'abs(' + replace(somaseBaseIpi       + '|','+|','') + ')'
                   somaseValorIpi      = 'abs(' + replace(somaseValorIpi      + '|','+|','') + ')'
                   somaseDifalOrigem   = 'abs(' + replace(somaseDifalOrigem   + '|','+|','') + ')'
                   somaseDifalDestino  = 'abs(' + replace(somaseDifalDestino  + '|','+|','') + ')'.
    END PROCEDURE.
    
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Forçando as aspas duplas não resolve?
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Já resolveu, veja que ali eu estou forçando, a rotina está 100% em termos de planilhas e formulas, o cenario dinamico tá com um probleminha na parte de subtotais, tá fazendo total pra todo mundo, e eu nem mexi na geração de graficos, vou mexer depois.
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Hoje to colocando em produção, e ver os errinhos que podem acontecer pra resolver.
  6. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Fora o PivotTable e Gráfico, o que ainda está pendente pra vc?

Compartilhe esta Página