Erro vFCPUFDest

[Valtenci Santos]

Ola, estou implantando o calculo de Fundo de combate a pobreza na meu NFCe, estou seguindo o exemplo do ACBRNFCe/NFe, e esta me retornando um erro.

segue abaixo meu codigo, e o print do erro que me retorna.

//codigo

with Imposto do
              begin
                vTotTrib := (Prod.vProd * qrProdNCFE.fieldbyname('ALIQNACIONAL')
                  .Value) / 100;
                total_trib := roundABNT(total_trib + vTotTrib, 2);

                // simples nacional
                if qrfilial.fieldbyname('CRT').asinteger < 3 then
                begin
                  with ICMS do
                  begin

                    if (grid.Cell[11, i].asstring = '000') then
                      CST := cst00
                    else if (grid.Cell[11, i].asstring = '010') then
                      CST := cst10
                    else if (grid.Cell[11, i].asstring = '020') then
                      CST := cst20
                    else if (grid.Cell[11, i].asstring = '030') then
                      CST := cst30
                    else if (grid.Cell[11, i].asstring = '040') then
                      CST := cst40
                    else if (grid.Cell[11, i].asstring = '050') then
                      CST := cst50
                    else if (grid.Cell[11, i].asstring = '060') then
                      CST := cst60
                    else if (grid.Cell[11, i].asstring = '070') then
                      CST := cst70
                    else if (grid.Cell[11, i].asstring = '080') then
                      CST := cst80
                    else if (grid.Cell[11, i].asstring = '090') then
                      CST := cst90;

                    if qrProdNCFE.fieldbyname('csosn').asstring = '101' then
                      ICMS.CSOSN := csosn101
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '102'
                    then
                      ICMS.CSOSN := csosn102
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '103'
                    then
                      ICMS.CSOSN := csosn103
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '201'
                    then
                      ICMS.CSOSN := csosn201
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '202'
                    then
                      ICMS.CSOSN := csosn202
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '203' then
                      ICMS.CSOSN := csosn203
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '300'
                    then
                      ICMS.CSOSN := csosn300
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '400'
                    then
                      ICMS.CSOSN := csosn400
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '500'
                    then
                      ICMS.CSOSN := csosn500
                    else if qrProdNCFE.fieldbyname('csosn').asstring = '900'
                    then
                      ICMS.CSOSN := csosn900
                    else
                      ICMS.CSOSN := csosnVazio;

                    ICMS.pCredSN := 0;
                    ICMS.vCredICMSSN := 0;

                    ICMS.orig := oeNacional;
                    ICMS.modBC := dbiValorOperacao;
                    ICMS.vBC := 0;
                    total_base := 0;
                    ICMS.pICMS := 0;
                    ICMS.vICMS := 0;
                    total_icms := 0;
                    ICMS.modBCST := dbisMargemValorAgregado;
                    ICMS.pMVAST := 0;
                    ICMS.pRedBCST := 0;
                    ICMS.vBCST := 0;
                    ICMS.pICMSST := 0;
                    ICMS.vICMSST := 0;
                    ICMS.pRedBC := 0;

-->Aqui       // partilha do ICMS e fundo de probreza
                    with ICMSUFDest do
                    begin
                     vBCUFDest      := 0.00;
                     pFCPUFDest     := 0.00;
                     pICMSUFDest    := 0.00;
                     pICMSInter     := 0.00;
                     pICMSInterPart := 0.00;
                     vFCPUFDest     := 0.00;
                     vICMSUFDest    := 0.00;
                     vICMSUFRemet   := 0.00;
                   end;

                 end;
 

  erro retornado no print.

 

desde já agradeço.

[André Ferreira de Moraes]

Primeiro NFCe não gera o grupo ICMSUFDest, pois ela não acoberta transações interestaduais. Segundo, vc está com seus schemas desatualizados.

[Valtenci Santos]

Obrigado pela resposta, mais meu ACBe esta Atualizado, e estou pegando o exemplo do propiro ACBr, devo desconsiderar o que tem la no exemplo entao ??

 

 

Grato.

[Valtenci Santos]

ja resolvi aqui Amigo, muito obrigado pela dica. abraços.