Definir Numero nDiaIni;
Definir Numero nMesIni;
Definir Numero nAnoIni;

Definir Numero nDiaFim;
Definir Numero nMesFim;
Definir Numero nAnoFim;

Definir Data dDatIni;
Definir Data dDatFim; 

Definir Cursor Cur_BuscaSaida;
Definir Cursor Cur_E140IDE;

Definir Alfa aCodSnf;
Definir numero  nCodEmp;
Definir numero  nCodFil;
Definir numero  nNumNfi;
Definir Alfa aChvDoe;

nDiaIni = 01;
nMesIni = 05;
nAnoIni = 2015;

nDiaFim = 31;
nMesFim = 05;
nAnoFim = 2015;

MontaData(nDiaIni, nMesIni, nAnoIni, dDatIni);
MontaData(nDiaFim, nMesFim, nAnoFim, dDatFim);

/*Ajusta Notas de Saída*/

Cur_BuscaSaida.SQL "SELECT E660NFV.CODEMP, E660NFV.CODFIL, E660NFV.CODCLI,           \
                    E660NFV.NUMNFI, E660NFV.NUMNFF, E660NFV.CODSNF, E660NFV.CODTNS   \
                    FROM                                                             \                                              
                    E660NFV, E660IDE                                                 \                                              
                    WHERE                                                            \                                              
                    E660NFV.CODEMP = E660IDE.CODEMP AND                              \                                              
                    E660NFV.CODFIL = E660IDE.CODFIL AND                              \                                              
                    E660NFV.CODSNF = E660IDE.CODSNF AND                              \                                              
                    E660NFV.NUMNFI = E660IDE.NUMNFI AND                              \                                              
                    E660NFV.CODEDC IN ('55','57') AND                                \                                              
                    (E660IDE.CHVDOE = ' ' OR E660IDE.CHVDOE IS NULL) AND             \                                              
                    E660NFV.DATEMI >=:dDatIni AND                                    \                                              
                    E660NFV.DATEMI <=:dDatFim";

Cur_BuscaSaida.AbrirCursor();

Enquanto (Cur_BuscaSaida.Achou)
Inicio
   nCodEmp = Cur_BuscaSaida.CODEMP; 
   nCodFil = Cur_BuscaSaida.CODFIL;
   aCodSnf = Cur_BuscaSaida.CODSNF;
   nNumNfi = Cur_BuscaSaida.NUMNFI;

   /*****************************************************************/
   Cur_E140IDE.Sql "select                \
                    chvdoe                \
                    from                  \
                    e140ide               \
                    where                 \
                    codemp =:nCodEmp and  \
                    codfil =:nCodFil and  \
                    codsnf =:aCodSnf and  \
                    numnfv =:nNumNfi";

   Cur_E140IDE.AbrirCursor();

   Se (Cur_E140IDE.Achou)
   Inicio
      aChvDoe = Cur_E140IDE.chvdoe;
   Fim;
   
   Cur_E140IDE.FecharCursor();

   @Comando que irá ajustar a base de dados@

    execsql "update E660IDE        \
             set ChvDoe =:aChvDoe  \
             where                  \
             CodEmp =:nCodEmp and   \
             CodFil =:nCodFil and   \
             NumNfi =:nNumNfi and   \
             CodSnf =:aCodSnf";


   /*****************************************************************/
   Cur_BuscaSaida.Proximo();
Fim;
Cur_BuscaSaida.FecharCursor();

Depura++;
Depura++;