//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 2;23;78;;;;;;
:SKEL
variavel ztCanc=0
variavel ztDesc=0
variavel ztF=0
variavel ztI=0
variavel ztN=0
variavel ztISS=0
variavel zt17=0
variavel bDlgExit = {|| zSomaTotp:=(ztCanc+ztDesc+ztF+ztI+ztN+ztISS+zt17), if(m_VENDABRUTA=zSomaTotp,.t.,(Alert('A venda Bruta do dia deve coincidir com a soma dos totalizadores parciais!'),.f.)) }
COMANDO ANTES M_DATAMOV = IF( x_operacao<>1.and.EMPTY(M_DATAMOV), DATACLOSE, s_datual)
COMANDO ANTES M_NUMPDV = IF( EMPTY(M_NUMPDV), '000', M_NUMPDV)
COMANDO ANTES znil = if(x_operacao<>1, (SintLoadSave_60a('Load',@m_DATAMOV,@m_NUMSERIE,@ztCanc,@ztDesc,@ztF,@ztI,@ztN,@ztISS,@zt17), RefreshGetList(),.t.), '')

COMANDO DEPOIS RegLock()
COMANDO DEPOIS PUT_VAR('COOINICIAL', SoNumeros(CooInicial,6) )
COMANDO DEPOIS PUT_VAR('CooFinal', SoNumeros(CooFinal,6) )
COMANDO DEPOIS PUT_VAR('CRZ', SoNumeros(CRZ,6) )
COMANDO DEPOIS PUT_VAR('CRO', SoNumeros(CRO,3) )
COMANDO DEPOIS PUT_VAR('MODELODOC', '2D')
COMANDO DEPOIS PUT_VAR('CUPOMOPEN', 'N')
COMANDO DEPOIS znil = if(empty(DATACLOSE), PUT_VAR('DATACLOSE', m_datamov), '')
COMANDO DEPOIS znil = SintLoadSave_60a('Save',@m_DATAMOV,@m_NUMSERIE,@ztCanc,@ztDesc,@ztF,@ztI,@ztN,@ztISS,@zt17)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Data do Movimento no ECF:;D; 8;DATAMOV;;x_operacao=1;;;;N;; 0; 0;;;
 1; 3; 2;Numero de Serie do ECF..:;C;20;NUMSERIE;@S20;;if(empty(m_NUMSERIE),(Alert('O Numero de Serie do ECF deve ser informado!'),.f.),.t.);;;N;; 0; 0;;;
 1; 4; 2;Numero do PDV...........:;C; 3;NUMPDV;xxx;(SintLoadSave_60a('Load',@m_DATAMOV,@m_NUMSERIE,@ztCanc,@ztDesc,@ztF,@ztI,@ztN,@ztISS,@zt17), RefreshGetList(),.t.);;;;N;; 0; 0;;;
 1; 6; 2;COO no Inicio do Dia......:;C; 6;COOINICIAL;999999;;if(val(m_COOINICIAL)=0,(Alert('O COO do inicio do dia deve ser informado!'),.f.),.t.);;;N;; 0; 0;;;
 1; 7; 2;COO no Final do Dia.......:;C; 6;COOFINAL;999999;;if(val(m_cooFinal)>=val(m_cooInicial),.t.,(Alert('O COO do Final do dia deve ser maior ou igual ao do Inicio do dia!'),.f.));;;N;; 0; 0;;;
 1; 6;40;CRZ :;C; 6;CRZ;@S6;;if(val(m_crz)=0,(Alert('O CRZ do dia deve ser informado!'),.f.),.t.);;;N;; 0; 0;;;
 1; 7;40;CRO :;C; 3;CRO;xxx;;;;;N;; 0; 0;;;
 1; 9; 2;Venda Bruta do Dia........:;N;12;VENDABRUTA;9999999999999.99;;;;;N;; 0; 0;;;
 1;10; 2;Grande Total do ECF     GT:;N;12;GRANDETOT;9999999999999.99;;if(m_GRANDETOT>=m_VENDABRUTA,.t.,(Alert('O GT do ECF deve ser maior ou igual a venda do dia!'),.f.));;;N;; 0; 0;;;
 
 1;12; 2;Total Cancelamentos   CANC:;P;12;zTCanc;9999999999.99;(ztcanc:=if(ztcanc=0.and.m_VENDABRUTA>zt17+ztDesc+ztF+ztI+ztN+ztISS, m_VENDABRUTA-(zt17+ztDesc+ztF+ztI+ztN+ztISS) ,ztcanc) ,.t.);;;;N;; 0; 0;;;
 1;13; 2;Total Descontos       DESC:;P;12;zTDesc;9999999999.99;(zTDesc:=if(zTDesc=0.and.m_VENDABRUTA>ztCanc+zt17+ztF+ztI+ztN+ztISS, m_VENDABRUTA-(ztCanc+zt17+ztF+ztI+ztN+ztISS) ,zTDesc) ,.t.);;;;N;; 0; 0;;;
 1;14; 2;Total Tributado       1700:;P;12;zT17;9999999999.99;(zt17:=if(zt17=0.and.m_VENDABRUTA>ztCanc+ztDesc+ztF+ztI+ztN+ztISS, m_VENDABRUTA-(ztCanc+ztDesc+ztF+ztI+ztN+ztISS) ,zt17) ,.t.);;;;N;; 0; 0;;;
 1;15; 2;Total Subst. Tribut.     F:;P;12;zTF;9999999999.99;(ztf:=if(ztf=0.and.m_VENDABRUTA>ztCanc+ztDesc+zt17+ztI+ztN+ztISS, m_VENDABRUTA-(ztCanc+ztDesc+zt17+ztI+ztN+ztISS) ,ztf) ,.t.);;;;N;; 0; 0;;;
 1;16; 2;Total Isentos ICMS       I:;P;12;zTI;9999999999.99;(zti:=if(zti=0.and. m_VENDABRUTA>ztCanc+ztDesc+ztF+zt17+ztN+ztISS, m_VENDABRUTA-(ztCanc+ztDesc+ztF+zt17+ztN+ztISS) ,zti) ,.t.);;;;N;; 0; 0;;;
 1;17; 2;Total Nao Incidencia     N:;P;12;zTN;9999999999.99;(ztn:=if(ztn=0.and. m_VENDABRUTA>ztCanc+ztDesc+ztF+ztI+zt17+ztISS, m_VENDABRUTA-(ztCanc+ztDesc+ztF+ztI+zt17+ztISS) ,ztn) ,.t.);;;;N;; 0; 0;;;
 1;18; 2;Total ISSQN            ISS:;P;12;zTIss;9999999999.99;(ztiss:=if(ztiss=0.and.m_VENDABRUTA>ztCanc+ztDesc+ztF+ztI+ztN+zt17, m_VENDABRUTA-(ztCanc+ztDesc+ztF+ztI+ztN+zt17) ,ztiss) ,.t.);;;;N;; 0; 0;;;
