//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 0;19;79;Inclusao de Duplicatas;;;;;
:SKEL
VARIAVEL vOpcoes := {Pad('ES-Especie',13),Pad('CH-Cheque',13), Pad('CT-Cartao',13), Pad('CV-Convenio',13), Pad('CA-Carne',13), Pad('BO-Boleto',13), Pad('DP-Duplicata',13)}
comando antes m_cr_tip_dup:='CA'
comando antes znil=sccrdup->(select('sccrcli')=0.and.(Abra_Arq("SCCRCLI"),.t.))
COMANDO ANTES #TEXTO_FONTE
   Select sccrdup
   OrdSetFocus("SCRID_ND")
   DbSeek("A",.t.)
   if left(cr_num_ped,1)>="A"
      DbSkip(-1)
   endif
   m_cr_num_ped := Pad(StrZero(Val(Left(cr_num_ped,6))+1,6),len(cr_num_ped))
   Do while DbSeek(m_cr_num_ped)
      m_cr_num_ped := Pad(StrZero(Val(Left(cr_num_ped,6))+1,6),len(cr_num_ped))
   EndDo
#FIM_TEXTO_FONTE
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Titulo......:;C;10;CR_NUM_PED;@S10;;(!empty(m_cr_num_ped).and.psq_brow());sccrdup;psccrdup;S;S; 0; 0;;;
 1; 2;38;Cliente:;N; 5;CR_COD_CLI;99999;;chk_lastkey(5).or.psq_brow;sccrcli;psccrcli;N;N; 2;54;cr_nome;@s25;

 1; 4; 2;Data Emissao:;D; 8;CR_DT_EMIS;;(m_cr_dt_emis:=if(day(m_cr_dt_emis)=0,s_Datual,m_cr_dt_emis),.t.);
 1; 5; 2;Data Vencto.:;D; 8;CR_DT_VENC;;(m_CR_DT_VENC:=if(day(m_CR_DT_VENC)=0,s_Datual,m_CR_DT_VENC),.t.);;
 1; 6; 2;Observacao..:;C;15;CR_OBS;@S15;;;;

 1; 8; 2;Valor.......:;N;10;CR_VALOR;9999999.99;;m_cr_valor>0;

 1;10; 2;Numero Cheque/Doc:;N; 6;CR_NUM_DOC;999999;;;
 1;11; 2;Data Cheque/Doc..:;D; 8;CR_DT_DOC;;;;

 1; 4;38;Vendedor:;C; 2;CR_ZONA;xx;;Chk_LastKey(5).or.psq_brow;sf_vend;psfvend;N;N; 4;54;nome;@s20;
 1; 5;38;Situacao:;C; 1;CR_SITUAC;x;;Chk_LastKey(5).or.psq_brow;si_sitdp;psisitdp;N;N; 5;54;cr_situaca;@s20;
 1; 6;38;Portador:;C; 2;CR_LOCAL;xx;;Chk_LastKey(5).or.psq_brow;si_banco;psibanco;N;N; 6;54;banco;@s20;
 1; 7;38;Tipo Doc:;C;15;cr_tip_dup;@S13;MyShowListbox();LISTBOX 13,5,vOpcoes;;
 
