'Nome       : CtaIvaReb.std
'Tipo       : LST
'Data       : 2007/01/07
'Versao     : 1.0
'Descricao  : Reembolso do IVA

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2007/??/?? --------------------------------------------------
'Versao base


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#
Subtotalizadores                 [SbtNiv]=2
##


'==============================================================================
#ESP - Campos especificos
'==============================================================================
'Especifico 1                      [EspOp1]=Opcao 1
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=IvaReb
Nome                       [DocNom]=IvaReb,Reembolso do IVA

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'especifico do documento
Opcao especifica           [DocEsp]=OpcEsp=???


'funcoes de listagem
Listar cabecalho            [FxCAB]=IvaRebTxt_Cab
Listar linhas               [FxLIN]=IvaRebTxt_Lin; Grp; Sbt,2; Doc; Sep
Listar fim                  [FxFIM]=IvaRebTxt_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=IvaReb
Nome                       [DocNom]=IvaRebXls,Reembolso do IVA (XLS)

'formato
Saida/Impressora           [DocPrt]=NULA
'Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'especifico do documento
Opcao especifica           [DocEsp]=OpcEsp=???


'funcoes de listagem
Base para documento         [FxDOC]=IvaRebXls
Listar cabecalho            [FxCAB]=IvaRebXls_Cab
Listar linhas               [FxLIN]=IvaRebXls_Lin, 0; Grp,0; Sbt,0; Doc,0; Sep,0
Listar fim                  [FxFIM]=IvaRebXls_Fim

Matriz auxiliar            [DocMat]=CtaIvaReb.xls
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'------------------------------------------------------------------------------
'Lista de variaveis especificas
'------------------------------------------------------------------------------
'valores texto
'MemTxt$(01)   - Titulo da listagem
'MemTxt$(11)   - ?


'------------------------------------------------------------------------------
'Formatacao de valores
'------------------------------------------------------------------------------
Pag       = Doc_CntPag
Cnt       = FrmVal$(CntAux(1),21,4)

Tit080    = TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI",ideCab$)
Tit132    = TxTit$("TT=16CPI, LD, PT=66C",ideCab$)

DataExt   = FrmDt$("EXT",Sig_DtHoje)


'resumo
'-----------------------------------------------------------
vResCtb   = ResZon$+" "+ResCtb$                             'contribuinte

vResCt    = ResCt$                                          'conta
vResIde   = left$(ResIde$,30)                               'identificacao
'vResObs   = ""                                              'observacoes
vResObs   = ResCt$                                          'observacoes

vResPer   = resPerUsa$                                      'periodo

vResVdoc  = FrmNum$(11.2, ResVdoc)                          'valor de documentos
vResVinc  = FrmNum$(11.2, ResVinc)                          'valor de incidencia
vResViva  = FrmNum$(11.2, ResViva)                          'valor do IVA
vResVreb  = FrmNum$(11.2, ResVreb)                          'valor de reembolso

tResVdoc  = FrmNum$(11.2, Total(vResVdoc,0))                'total de documentos
tResVinc  = FrmNum$(11.2, Total(vResVinc,0))                'total de incidencia
tResViva  = FrmNum$(11.2, Total(vResViva,0))                'total de IVA
tResVreb  = FrmNum$(11.2, Total(vResVreb,0))                'total de reembolso

sResVdoc  = FrmNum$(11.2, Total(vResVdoc,1))                'subtotal de documentos
sResVinc  = FrmNum$(11.2, Total(vResVinc,1))                'subtotal de incidencia
sResViva  = FrmNum$(11.2, Total(vResViva,1))                'subtotal de IVA
sResVreb  = FrmNum$(11.2, Total(vResVreb,1))                'subtotal de reembolso


'documento
'-----------------------------------------------------------
'vDocIde   = DocTdo$+" "+DocNdo$                             'documento
vDocIde   = DocTdo$+" "+FrmNdo$("46",DocTdo$,DocNdo$)       'documento

vDocPer   = docPerUsa$                                      'periodo

vDocVdoc  = FrmNum$(11.2, DocVdoc)                          'valor de documentos
vDocVinc  = FrmNum$(11.2, DocVinc)                          'valor de incidencia
vDocViva  = FrmNum$(11.2, DocViva)                          'valor do IVA
vDocVreb  = FrmNum$(11.2, DocVreb)                          'valor de reembolso

tDocVdoc  = FrmNum$(11.2, Total(vDocVdoc,0))                'total de documentos
tDocVinc  = FrmNum$(11.2, Total(vDocVinc,0))                'total de incidencia
tDocViva  = FrmNum$(11.2, Total(vDocViva,0))                'total de IVA
tDocVreb  = FrmNum$(11.2, Total(vDocVreb,0))                'total de reembolso

sDocVdoc  = FrmNum$(11.2, Total(vDocVdoc,1))                'subtotal de documentos
sDocVinc  = FrmNum$(11.2, Total(vDocVinc,1))                'subtotal de incidencia
sDocViva  = FrmNum$(11.2, Total(vDocViva,1))                'subtotal de IVA
sDocVreb  = FrmNum$(11.2, Total(vDocVreb,1))                'subtotal de reembolso


'acumulados
'-----------------------------------------------------------
vAcmDiv   = FrmNum$(11.2, acmDiv)                           'valore diversos
vAcmDivP  = FrmNum$( 3.2, acmPdi)+"%"                       '% de valores diversos
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------------->'Comentario (58)
'---------------------------------------------------->'Comentario (55)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)


'==============================================================================
'= COM = Funcoes comuns =======================================================
'==============================================================================
Sub Lst_AJT
'nada a executar
end sub


Sub ComPrpVarRes 'preparar valores do resumo
resOpc$ = VarCom$("ResOpc")               'campos opcionais
resTpe$ = VarCom$("ResTpe")               'tipo de entidade
resZon$ = VarCom$("ResZon")               'zona
resCtb$ = VarCom$("ResCtb")               'contribuinte
resCt$  = VarCom$("ResCt")                'conta
resIde$ = VarCom$("ResIde")               'identificacao
resVdoc = VarCom("ResVdoc")               'valor de documentos
resVinc = VarCom("ResVinc")               'valor de incidencia
resViva = VarCom("ResViva")               'valor do IVA
resVreb = VarCom("ResVreb")               'valor de reembolso
resTip$ = VarCom$("ResVtip")              'valores por tipo
resObs$ = VarCom$("ResObs")               'observacoes

'periodo
resPerN    = VarCom("ResPer")             'periodo
resPerAnoN = VarCom("ResPerAno")          'ano
resPerMesN = VarCom("ResPerMes")          'mes

resPerUsa$ = VarCom$("ResPerUsa")         'periodo
resPerAno$ = VarCom$("ResPerAno")         'ano
resPerMes$ = VarCom$("ResPerMes")         'mes

'valores parciais - tipo 20
res20Cod$ = VarCom$("ResVp20Cod")         'codigo
res20Des$ = VarCom$("ResVp20Des")         'descricao
res20Inc$ = VarCom$("ResVp20Vdo")         'valor de incidencia
res20Iva$ = VarCom$("ResVp20Iva")         'valor de IVA
res20Reb$ = VarCom$("ResVp20reb")         'valor de reembolso
res20PerIva$ = VarCom$("ResVp20PerIva")   '% de IVA
res20PerInc$ = VarCom$("ResVp20PerInc")   '% de reembolso

'valores parciais - tipo 21
res21Cod$ = VarCom$("ResVp21Cod")         'codigo
res21Des$ = VarCom$("ResVp21Des")         'descricao
res21Inc$ = VarCom$("ResVp21Vdo")         'valor de incidencia
res21Iva$ = VarCom$("ResVp21Iva")         'valor de IVA
res21Reb$ = VarCom$("ResVp21reb")         'valor de reembolso
res21PerIva$ = VarCom$("ResVp21PerIva")   '% de IVA
res21PerInc$ = VarCom$("ResVp21PerInc")   '% de reembolso

'valores parciais - tipo 22
res22Cod$ = VarCom$("ResVp22Cod")         'codigo
res22Des$ = VarCom$("ResVp22Des")         'descricao
res22Inc$ = VarCom$("ResVp22Vdo")         'valor de incidencia
res22Iva$ = VarCom$("ResVp22Iva")         'valor de IVA
res22Reb$ = VarCom$("ResVp22reb")         'valor de reembolso
res22PerIva$ = VarCom$("ResVp22PerIva")   '% de IVA
res22PerInc$ = VarCom$("ResVp22PerInc")   '% de reembolso

'valores parciais - tipo 23
res23Cod$ = VarCom$("ResVp23Cod")         'codigo
res23Des$ = VarCom$("ResVp23Des")         'descricao
res23Inc$ = VarCom$("ResVp23Vdo")         'valor de incidencia
res23Iva$ = VarCom$("ResVp23Iva")         'valor de IVA
res23Reb$ = VarCom$("ResVp23reb")         'valor de reembolso
res23PerIva$ = VarCom$("ResVp23PerIva")   '% de IVA
res23PerInc$ = VarCom$("ResVp23PerInc")   '% de reembolso

'valores parciais - tipo 24
res24Cod$ = VarCom$("ResVp24Cod")         'codigo
res24Des$ = VarCom$("ResVp24Des")         'descricao
res24Inc$ = VarCom$("ResVp24Vdo")         'valor de incidencia
res24Iva$ = VarCom$("ResVp24Iva")         'valor de IVA
res24Reb$ = VarCom$("ResVp24reb")         'valor de reembolso
res24PerIva$ = VarCom$("ResVp24PerIva")   '% de IVA
res24PerInc$ = VarCom$("ResVp24PerInc")   '% de reembolso
end sub


Sub ComPrpVarDoc 'preparar valores do documento
docOpc$ = VarCom$("DocOpc")               'campos opcionais
docTdo$ = VarCom$("DocTdo")               'tipo de documento
docNdo$ = VarCom$("DocNdo")               'numero de documento
docDt   = VarCom("DocDt")                 'data do documento
docTpe$ = VarCom$("DocTpe")               'tipo de entidade
docCt$  = VarCom$("DocOpc")               'codigo da conta
docTv$  = VarCom$("DocOpc")               'tipo de valor
docZon$ = VarCom$("DocZon")               'zona
docCtb$ = VarCom$("DocCtb")               'contribuinte
docVdoc = VarCom("DocVdoc")               'valor de documentos
docVinc = VarCom("DocVinc")               'valor de incidencia
docViva = VarCom("DocViva")               'valor do IVA
docVreb = VarCom("DocVreb")               'valor de reembolso
docTip$ = VarCom$("DocVtip")              'valores por tipo
docObs$ = VarCom$("DocObs")               'observacoes

'periodo
docPerN    = VarCom("DocPer")             'periodo
docPerAnoN = VarCom("DocPerAno")          'ano
docPerMesN = VarCom("DocPerMes")          'mes

docPerUsa$ = VarCom$("DocPerUsa")         'periodo
docPerAno$ = VarCom$("DocPerAno")         'ano
docPerMes$ = VarCom$("DocPerMes")         'mes

'valores parciais - tipo 20
doc20Cod$ = VarCom$("DocVp20Cod")         'codigo
doc20Des$ = VarCom$("DocVp20Des")         'descricao
doc20Inc$ = VarCom$("DocVp20Vdo")         'valor de incidencia
doc20Iva$ = VarCom$("DocVp20Iva")         'valor de IVA
doc20Reb$ = VarCom$("DocVp20reb")         'valor de reembolso
doc20PerIva$ = VarCom$("DocVp20PerIva")   '% de IVA
doc20PerInc$ = VarCom$("DocVp20PerInc")   '% de reembolso

'valores parciais - tipo 21
doc21Cod$ = VarCom$("DocVp21Cod")         'codigo
doc21Des$ = VarCom$("DocVp21Des")         'descricao
doc21Inc$ = VarCom$("DocVp21Vdo")         'valor de incidencia
doc21Iva$ = VarCom$("DocVp21Iva")         'valor de IVA
doc21Reb$ = VarCom$("DocVp21reb")         'valor de reembolso
doc21PerIva$ = VarCom$("DocVp21PerIva")   '% de IVA
doc21PerInc$ = VarCom$("DocVp21PerInc")   '% de reembolso

'valores parciais - tipo 22
doc22Cod$ = VarCom$("DocVp22Cod")         'codigo
doc22Des$ = VarCom$("DocVp22Des")         'descricao
doc22Inc$ = VarCom$("DocVp22Vdo")         'valor de incidencia
doc22Iva$ = VarCom$("DocVp22Iva")         'valor de IVA
doc22Reb$ = VarCom$("DocVp22reb")         'valor de reembolso
doc22PerIva$ = VarCom$("DocVp22PerIva")   '% de IVA
doc22PerInc$ = VarCom$("DocVp22PerInc")   '% de reembolso

'valores parciais - tipo 23
doc23Cod$ = VarCom$("DocVp23Cod")         'codigo
doc23Des$ = VarCom$("DocVp23Des")         'descricao
doc23Inc$ = VarCom$("DocVp23Vdo")         'valor de incidencia
doc23Iva$ = VarCom$("DocVp23Iva")         'valor de IVA
doc23Reb$ = VarCom$("DocVp23reb")         'valor de reembolso
doc23PerIva$ = VarCom$("DocVp23PerIva")   '% de IVA
doc23PerInc$ = VarCom$("DocVp23PerInc")   '% de reembolso

'valores parciais - tipo 24
doc24Cod$ = VarCom$("DocVp24Cod")         'codigo
doc24Des$ = VarCom$("DocVp24Des")         'descricao
doc24Inc$ = VarCom$("DocVp24Vdo")         'valor de incidencia
doc24Iva$ = VarCom$("DocVp24Iva")         'valor de IVA
doc24Reb$ = VarCom$("DocVp24reb")         'valor de reembolso
doc24PerIva$ = VarCom$("DocVp24PerIva")   '% de IVA
doc24PerInc$ = VarCom$("DocVp24PerInc")   '% de reembolso
end sub


Sub ComPrpVarAcm 'preparar dados de acumulados
acmDoc  = VarCom("AcmDoc")                'documentos
acmInc  = VarCom("AcmInc")                'incidencia
acmIva  = VarCom("AcmIva")                'IVA
acmReb  = VarCom("AcmReb")                'reembolso

acmDiv  = VarCom("AcmDiv")                'diversos
acmPdi  = VarCom("AcmPdi")                '% de diversos
end sub


'==============================================================================
'= LST - Listar ===============================================================
'==============================================================================
Sub IvaRebTxt_Cab 'cabecalho
FxDiv LstIde,16CPI,0

'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)
ide$    = Memtxt$(1)                   'identificacao
tpe$    = VarCom$("IdeTpe")            'tipo de entidade
ideCab$ = ide$ + " - " + tpe$          'identificacao de cabecalho

?@Tit132                                                                                                                            #
?Data : @DataExt                                                                                                      Folha No: @Pag#
?====================================================================================================================================
'  Contribuinte         Documentos     Incidencia        IVA          Reembolso #
'123456789.12345      123,456,789.00 123,456,789.00 123,456,789.00 123,456,789.00
'                     12345678901.12 12345678901.12 12345678901.12 12345678901.12

?  Contribuinte   Nome                            Ano/Mes     Documentos     Incidencia        IVA          Reembolso    Observações#
'123456789.12345  123456789.123456789.123456789.  1234/12   123,456,789.00 123,456,789.00 123,456,789.00 123,456,789.00
'                                                           12345678901.12 12345678901.12 12345678901.12 12345678901.12  123456789.12

?====================================================================================================================================
print string$(132,"-")
end sub


Sub IvaRebTxt_LinGrp 'identificacao de grupo
ideTpv$ = VarCom$("IdeTpv")            'tipo de valor

print tab(10) ideTpv$                  'listar identificacao
end sub


Sub IvaRebTxt_Lin 'linha
'123456789.12345      123,456,789.00 123,456,789.00 123,456,789.00 123,456,789.00

call ComPrpVarRes                               'preparar valores
'123456789.12345      123,456,789.00 123,456,789.00 123,456,789.00 123,456,789.00
'@vResCtb             @vResVdoc      @vResVinc      @vResViva      @vResVreb    #


'123456789.12345  123456789.123456789.123456789.  1234 12   123,456,789.00 123,456,789.00 123,456,789.00 123,456,789.00
?@vResCtb         @vResIde                        @vResPer  @vResVdoc      @vResVinc      @vResViva      @vResVreb       @vResObs   #
end sub


Sub IvaRebTxt_LinSbt 'subtotal de grupo
?    Subtotal:                                              @sResVdoc      @sResVinc      @sResViva      @sResVreb                  #

print                                  'separar
x=TotLpz(1)                            'limpar totais
end sub


Sub IvaRebTxt_LinDoc 'linha de documento
call ComPrpVarDoc                               'preparar valores
'123456789.12345  123456789.123456789.123456789.  1234 12   123,456,789.00 123,456,789.00 123,456,789.00 123,456,789.00
?                 @vDocIde                        @vDocPer  @vDocVdoc      @vDocVinc      @vDocViva      @vDocVreb    #
end sub


Sub IvaRebTxt_LinSep 'linha de separacao
print                                  'separar
end sub


Sub IvaRebTxt_Fim
call ComPrpVarAcm                      'preparar dados de acumulados

?====================================================================================================================================
?    Totais:                                                @tResVdoc      @tResVinc      @tResViva      @tResVreb                  #
?    Diversos:                                                                                           @vAcmDiv        @vAcmDivP  #
?====================================================================================================================================
FxDiv LstPer,SP
end sub


'==============================================================================
'= Listagem para EXCEL ========================================================
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

Sub IvaRebXls_DocIni 'inicializar documento
'msgbox "","DocIni"

xlsOpcNfi$ = "RND:CtaIvaReb.xls"                   'nome do ficheiro a gerar
xlsOpcWks$ = ""                                    'nome da woorksheet

call XlsComDoc_IniMat                              'inicializar documento por matriz

'preparacao especifica
res = XlsWks("Valores")                            'activar worksheet

'preparar cabecalho
empNum$ = Emp_Inf_Cod$                             'numero da empresa
empNom$ = Emp_Inf_Nome$                            'nome da empresa
lstTit$ = MemTxt$(1)                               'titulo da listagem
lstTip$ = MemTxt$(2)                               'tipo da listagem
lstDt$  = FrmDt$("EXT", Sig_DtHoje)                'data para listagem

ide$    = Memtxt$(1)                               'identificacao
tpe$    = VarCom$("IdeTpe")                        'tipo de entidade
ideCab$ = ide$ + " - " + tpe$                       'identificacao de cabecalho

res = XlsIdeLst("Emp_Num", empNum$)                'numero da empresa
res = XlsIdeLst("Emp_Nom", empNom$)                'nome da empresa
'res = XlsIdeLst("Lst_Tit", lstTit$)                'titulo da listagem
res = XlsIdeLst("Lst_Tit", ideCab$)                'titulo da listagem
res = XlsIdeLst("Lst_Tipo", lstTip$)               'tipo da listagem
res = XlsIdeLst("Lst_Data", lstDt$)                'data

call XlsComLin_Ini                                 'iniciar linhas

'definicao das colunas
coZon = 2                                          'zona
coCtb = 3                                          'contribuinte
coIde = 4                                          'identificacao
coPer = 5                                          'periodo
coDoc = 6                                          'documentos
coInc = 7                                          'incidencia
coIva = 8                                          'IVA
coReb = 9                                          'reembolso
coObs = 10                                         'observacoes
end sub


Sub IvaRebXls_DocFim 'terminar documento
'res = XlsWksAct("A", 1)                            'activar worksheet
call XlsComDoc_Fim                                 'terminar/mostrar documento
end sub


Sub IvaRebXls_IncLin 'incrementar linha
call XlsComLin_IncRep                              'incrementar linha + repor formato normal

zon$ = XlsZon$(liUsa, coCtb)                       'zona
res = XlsAli(zon$, "4")                            'alinhamento
end sub


Sub IvaRebXls_LinGrp 'identificacao de grupo
call IvaRebXls_IncLin                              'incrementar linha
ideTpv$ = VarCom$("IdeTpv")                        'tipo de valor

res = XlsLst(liUsa, coCtb, ideTpv$)                'identificacao de grupo
call XlsComLin_ActB                                'activar linha em BOLD
end sub


Sub IvaRebXls_Lin 'linha de valores
call IvaRebXls_IncLin                              'incrementar linha

call ComPrpVarRes                                  'preparar valores

vZon$   = ResZon$                                  'zona
vCtb$   = ResCtb$                                  'contribuinte
vIde$   = ResIde$                                  'identificacao
vPer$   = resPerUsa$                               'periodo
vObs$   = ResCt$                                   'observacoes

'listar
res = XlsLst(liUsa, coZon, vZon$)                  'zona
res = XlsLst(liUsa, coCtb, vCtb$)                  'contribuinte
res = XlsLst(liUsa, coIde, vIde$)                  'identificacao

res = XlsLst(liUsa, coPer, vPer$)                  'periodo

res = XlsLst(liUsa, coDoc, ResVdoc)                'documentos
res = XlsLst(liUsa, coInc, ResVinc)                'incidencia
res = XlsLst(liUsa, coIva, ResViva)                'IVA
res = XlsLst(liUsa, coReb, ResVreb)                'reembolso

res = XlsLst(liUsa, coObs, vObs$)                  'observacoes

'acumular
res = AcmExe("vResVdoc", ResVdoc)                  'valor de documentos
res = AcmExe("vResVinc", ResVinc)                  'valor de incidencia
res = AcmExe("vResViva", ResViva)                  'valor do IVA
res = AcmExe("vResVreb", ResVreb)                  'valor de reembolso
end sub


Sub IvaRebXls_LinSbt 'subtotal de grupo
call IvaRebXls_IncLin                              'incrementar linha

vZon$   = ""                                       'zona
vCtb$   = "Subtotal"                               'contribuinte

'listar
res = XlsLst(liUsa, coZon, vZon$)                  'zona
res = XlsLst(liUsa, coCtb, vCtb$)                  'contribuinte

sbtVdoc = Total("vResVdoc",1)                      'subtotal de documentos
sbtVinc = Total("vResVinc",1)                      'subtotal de incidencia
sbtViva = Total("vResViva",1)                      'subtotal de IVA
sbtVreb = Total("vResVreb",1)                      'subtotal de reembolso

res = XlsLst(liUsa, coDoc, sbtVdoc)                'documentos
res = XlsLst(liUsa, coInc, sbtVinc)                'incidencia
res = XlsLst(liUsa, coIva, sbtViva)                'IVA
res = XlsLst(liUsa, coReb, sbtVreb)                'reembolso

call XlsComLin_ActBI                               'activar linha em BOLD+ITALICO
zon$ = XlsZon$(liUsa, coCtb)                       'zona
res = XlsAli(zon$, "5")                            'alinhamento

call IvaRebXls_IncLin                              'incrementar linha
x=TotLpz(1)                                        'limpar totais
end sub


Sub IvaRebXls_LinDoc 'linha de documento
call IvaRebXls_IncLin                              'incrementar linha

call ComPrpVarDoc                                  'preparar valores

vDoc$   = DocTdo$+" "+FrmNdo$("46",DocTdo$,DocNdo$)   'documento
vPer$   = docPerUsa$                                  'periodo

'listar
res = XlsLst(liUsa, coIde, vDoc$)                  'identificacao

res = XlsLst(liUsa, coPer, vPer$)                  'periodo

res = XlsLst(liUsa, coDoc, DocVdoc)                'documentos
res = XlsLst(liUsa, coInc, DocVinc)                'incidencia
res = XlsLst(liUsa, coIva, DocViva)                'IVA
res = XlsLst(liUsa, coReb, DocVreb)                'reembolso
end sub


Sub IvaRebXls_LinSep 'linha de separacao
call IvaRebXls_IncLin                              'incrementar linha
end sub


'- Terminar/Totais ------------------------------------------------------------
Sub IvaRebXls_Fim 'terminar
call XlsComLin_Fim                                 'fim de linhas
call ComPrpVarAcm                                  'preparar dados de acumulados

ltoUsa = LinFim                                    'linha para totais
liUsa  = ltoUsa                                    'linha a usar

totVdoc = Total("vResVdoc",0)                      'total de documentos
totVinc = Total("vResVinc",0)                      'total de incidencia
totViva = Total("vResViva",0)                      'total de IVA
totVreb = Total("vResVreb",0)                      'total de reembolso

res = XlsLst(liUsa, coDoc, totVdoc)                'documentos
res = XlsLst(liUsa, coInc, totVinc)                'incidencia
res = XlsLst(liUsa, coIva, totViva)                'IVA
res = XlsLst(liUsa, coReb, totVreb)                'reembolso

'valores diversos
liUsa  = ltoUsa + 1                                'linha a usar

vDivPer = acmPdi / 100                             '% de valores diversos

res = XlsLst(liUsa, coReb, acmDiv)                 'valor
res = XlsLst(liUsa, coObs, vDivPer)                '% de valores diversos

'terminar/mostrar
'res = XlsWksAct("A", 1)                            'activar worksheet
end sub

##


'==============================================================================
#INC - Funcoes comuns
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
Funcoes comuns XLS                =[SIG_LST_DIR.XLS],XlsCom_Pgm.inc
##

