VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2) 
VARIAVEL zMfDb = "" 
VARIAVEL zDiaAImprimir = 0 
variavel lst_tp = 999 
variavel zvalvndbru = 0 
variavel zfval = 0 
variavel zfdesconto = 0 
variavel zfacrescimo = 0 
variavel zfbaseicms = 0 
variavel zftoticms = 0 
variavel zvcanc = 0 
variavel zvisentas = 0 
variavel zvfonte = 0 
variavel zvnaoincide = 0 
variavel zCooFimDia = 0
variavel zCooFimMes = 0 
variavel zGtoFimDia = 0
variavel zGtoFimMes = 0 
variavel zll = 0 
variavel zNumPag = 0

T10,10,18,60,Parametros 
T2,2,Ano e Mes (AaMm)  :,4,z_aamm,9999 
T4,2,Dia a Ser Filtrado:,6,zDiaAImprimir,999999 
 
COMANDO ANTES DbGoBottom() 
COMANDO DEPOIS zMfDb = "efs\mfdb"+Z_AAMM 
 
ARQUIVO (zMfDb) ("temp0013") str(ecf,3)+dtos(mdata) 
comando durante zdata=mdata 
comando durante zNumPag = zNumPag + 1
sublist zmfdb 
comando antes zTotGt = 0 
comando antes zll = 0 
comando antes zvalvndbru = 0 
comando antes zfval = 0 
comando antes zfdesconto = 0 
comando antes zfacrescimo = 0 
comando antes zfbaseicms = 0 
comando antes zftoticms = 0 
comando antes zvcanc = 0 
comando antes zvisentas = 0 
comando antes zvfonte = 0 
comando antes zvnaoincide = 0 
comando antes zCooFimDia = "" 
comando antes zGtoFimDia = 0 
repita enquanto zdata=mdata 
comando durante zll = zll + 1 
comando durante zvalvndbru = zvalvndbru + valvndbru 
comando durante zfdesconto = zfdesconto + fdesconto 
comando durante zfacrescimo = zfacrescimo + facrescimo 
comando durante zvcanc = zvcanc + vcanc 
comando durante zfval = zfval + fval 
comando durante zvfonte = zvfonte + vfonte 
comando durante zvisentas = zvisentas + visentas 
comando durante zfbaseicms = zfbaseicms + fbaseicms 
comando durante zftoticms = zftoticms + ftoticms 
comando durante zvnaoincide = zvnaoincide + vnaoincide 
comando durante zNil = EcfCOOfinal(ecf,mdata,@zCooFimDia, @zCooFimMes, @zGtoFimDia, @zGtoFimMes) 
 
comando durante zLPrint = " |     "+str(ecf,3)+"    | "+StrZero(val(CooFinal),8)+" |        | 000000|" 
comando durante zLPrint = zLPrint + transform(0+valvndbru,"@E 999,999,999.99") + "|" 
comando durante zLPrint = zLPrint + transform(0+fdesconto+facrescimo+vcanc,"@E 999,999,999.99") + "|" 
comando durante zLPrint = zLPrint + transform(0+fval,"@E 999,999,999.99") + "|" 
comando durante zLPrint = zLPrint + transform(0+vfonte,"@E 999999,999.99") + "|" 
comando durante zLPrint = zLPrint + transform(0+vnaoincide,"@E 999999,999.99") + "| " 
comando durante zLPrint = zLPrint + transform(0+if(ftoticms>0,17,0),"@E 99.99") + " |" 
comando durante zLPrint = zLPrint + transform(0+fbaseicms,"@E 999999,999.99") + "|" 
comando durante zLPrint = zLPrint + transform(0+ftoticms ,"@E 999999,999.99") + "|" 
comando durante zLPrint = zLPrint + transform(0+zCooFimDia,"99999999") + "|" 
comando durante zAcumDia = transform(zGtoFimDia,"@E 99999,999.99") 
 
filtroimp zll=1 
d +--------------------------------------------------------------------------------------------------------------------------------------------------------------+ 
filtroimp zll=1 
d |                                                                                                                                        | NUMERO |    DATA    | 
filtroimp zll=1 
d |                                          M A P A     R E S U M O     E C F                                                             |        |            | 
filtroimp zll=1 
d |                                                                                                                                        | [zNumPag 999999] |   [mdata] | 
filtroimp zll=1 
d |----------------------------------------------------------------------------------------------------------------------------------------+--------+------------| 
filtroimp zll=1 
d |     NOME: GENIEZER PEREIRA E CIA LTDA                                                                                     INSCR ESTADUAL: 160267327          | 
filtroimp zll=1 
d | ENDERECO: AV ESPERANCA                                     NRO. 1165   MUNICIPIO: JOAO PESSOA                     UF: PB            CNPJ: 08.401.713/0001-79 | 
filtroimp zll=1 
d |------------+----------+----------------+--------------+--------------+--------------+-------------+-------------+---------------------+-------------+--------| 
filtroimp zll=1 
d |            |          |DOCUMENTO FISCAL|              |     ISS      |              |             |             |    DEPARTAMENTOS    |             |        | 
filtroimp zll=1 
d | NUMERO DE  |CONT.ORDEM|--------+-------|   MOVIMENTO  | CANCELAMENTO |    VALOR     | SUBSTITUICAO| ISENTA OU   +-------+-------------+   IMPOSTO   |CONTADOR| 
filtroimp zll=1 
d | ORDEM DE   |OPERACAO  |SERIE E | NUMERO|   DO DIA     |   DESCONTO   |   CONTABIL   | TRIBUTARIA  |NAO TRIBUTADA|       |   BASE DE   |  DEBITADO   |REDUCAO | 
filtroimp zll=1 
d | EQUIPAMENTO|No.FINAL  |SUBSERIE|  FINAL|     (R$)     |     (R$)     |     (R$)     |    (R$)     |   (R$)      | ALIQ. |   CALCULO   |     (R$)    |   'Z'  | 
filtroimp zll=1 
d |------------+----------+--------+-------+--------------+--------------+--------------+-------------+-------------+-------+-------------+-------------+--------| 
* |     999    | 99999999 |        | 999999|999,999,999.99|999,999,999.99|999,999,999.99|999999,999.99|999999,999.99| 99.99 |999999,999.99|999999,999.99|99999999| 
d[zLprint] 
d |            |          |        |       |              |              |              |             |             |       | Acumulado ECF [zAcumDia]|        | 
d |            |          |        |       |              |              |              |             |             |       |             |             |        | 
 
comando depois zLPrint = " |            |          TOTAL DO DIA     |" 
comando depois zLPrint = zLPrint + transform(zvalvndbru,"@E 999,999,999.99") + "|" 
comando depois zLPrint = zLPrint + transform(zfdesconto+zfacrescimo+zvcanc,"@E 999,999,999.99") + "|" 
comando depois zLPrint = zLPrint + transform(zfval,"@E 999,999,999.99") + "|" 
comando depois zLPrint = zLPrint + transform(zvfonte,"@E 999999,999.99") + "|" 
comando depois zLPrint = zLPrint + transform(zvnaoincide,"@E 999999,999.99") + "| " 
comando depois zLPrint = zLPrint + transform(if(zftoticms>0,17,0),"@E 99.99") + " |" 
comando depois zLPrint = zLPrint + transform(zfbaseicms,"@E 999999,999.99") + "|" 
comando depois zLPrint = zLPrint + transform(zftoticms,"@E 999999,999.99") + "|        |"
comando depois znil = DbSkip(-1)
 
ultpag |            |          |        |       |              |              |              |             |             |       |             |             |        | 
ultpag[zLprint] 
ultpag |            |          |        |       |              |              |              |             |             |       |             |             |        | 
ultpag |--------------------------------------------------------------------------------------------------------------------------------------------------------------| 
ultpag |                                                                                                   |            RESPONSAVEL PELO ESTABELECIMENTO              | 
ultpag |--------------------------------------------------------------------------------------------------------------------------------------------------------------| 
ultpag |                                                                                                   |   NOME: GENIEZER PEREIRA VENTURA FILHO                   | 
ultpag |                                                                                                   | FUNCAO: SOCIO ADMINISTRADOR                              | 
ultpag |                                                                                                   |                                                          | 
ultpag |                                                                                                   |                                                          | 
ultpag |                                                                                                   |ASSINATURA:                                               | 
ultpag +--------------------------------------------------------------------------------------------------------------------------------------------------------------+ 
ultpag [chr(12)] 
fim sublist 
 
