Perguntas EXEMPLOS DE RELATORIO COM FWMsPrinter

AAdd(aCabExcel,"Data")
AAdd(aCabExcel,"Nome Cliente")
AAdd(aCabExcel,"Qtd")
AAdd(aCabExcel,"Emb")
AAdd(aCabExcel,"Lacres")
AAdd(aCabExcel,"Vlr+Frete")
AAdd(aCabExcel,"Cidade")
AAdd(aCabExcel,"Estado")
AAdd(aCabExcel,"Sexo")
AAdd(aCabExcel,"Pedido Web")
AAdd(aCabExcel,"Hora Compra")


AAdd(aIteExcel,{DtoC(dEmissao),;
'',;
'',;
'',;
'',;
'',;
'',;
'',;
'',;
'',;
''})

aIteExcel[Len(aIteExcel),2] := CADTMP->A1_COD+'/'+CADTMP->A1_LOJA
aIteExcel[Len(aIteExcel),3] := Capital(CADTMP->A1_NOME)
aIteExcel[Len(aIteExcel),4] := TransForm((CADTMP->D2_QUANT/Iif(SB1->B1_CONV>0,SB1->B1_CONV,1)),"99999")
aIteExcel[Len(aIteExcel),5] := TransForm(CADTMP->D2_QUANT,"@E 999.9")
aIteExcel[Len(aIteExcel),6] := TransForm(CADTMP->D2_TOTAL+CADTMP->D2_VALFRE,"@E 99,999,999.99")
aIteExcel[Len(aIteExcel),7] := Capital(CADTMP->A1_MUNE)
aIteExcel[Len(aIteExcel),8] := CADTMP->A1_ESTE
aIteExcel[Len(aIteExcel),9] := CADTMP->A1_SEXO
aIteExcel[Len(aIteExcel),10] := CADTMP->C5_PEDWEB
aIteExcel[Len(aIteExcel),11] := CADTMP->C5_WBHORA


DlgToExcel({{"ARRAY","Relatorio Estatistica Vendas SealBag " + OemToAnsi("Periodo de " + DtoC(MV_PAR01) + ' Até ' + DtoC(MV_PAR02)),aCabExcel,aIteExcel}})