SDCLI;Compras do Cliente;skip_blk(x); 3;25;16;78;psdcli;;
:SKEL
VARIAVEL Z_CR_COD_CLI = Sccrcli->(Recn())
VARIAVEL w_mensagem = "Sem mais Compras do Cliente"
VARIAVEL w_chave = str( z_cr_cod_cli,5)
VARIAVEL w_block = {|| w_chave <> str(CodCli,5) }
COMANDO ANTES Sd_Cli->(DbCloseArea())
COMANDO ANTES ABRA("0RO",r_siga,"SD_CLI","SD_CLI","SDIC_C", "STR(CODCLI,5)+ANOMES")
//COMANDO ANTES Z_NIL = dbGOTOP()
COMANDO DEPOIS Z_NIL = Sd_Cli->(DbCloseArea())
:TBFI
AnoMes;AnoMes;C;xxxxx;6;N;
Compra;tv;N;@E 999,999.99; 10;N;
Pedidos;ncompras;N;9999999;7;N;
Cli;CodCli;N;999999;6;N;
