Histórico da Página

#include 'protheus.ch'
  
/*/{Protheus.doc} F160GRV() 
 
 
    Ponto de entrada para edição dos registros enviados ao registro 1601 EFD ICMS/IPI.
      
    @param ParamIxb[1] - cAlias da tabela temporária para edição dos registros 1601
    @return Nil
/*/
  
User Function F160GRV()
  
    Local cAliastmp  := ParamIXB[1] //alias da tabela temporária
 
    (cAliasTmp)->(DbGoTop())
 
    While (cAliasTmp)->(!Eof())
 
        If AllTrim((cAliasTmp)->MOTBX) == 'NOR' .And. AllTrim((cAliasTmp)->CARTEIRA>FORMA_PGTO) == 'RBOL'
            RecLock(cAliasTmp, .F.)
				                (cAliasTmp)->FORMA_PGTO>REGIME := 'DC' //Debito em Conta
			COMPETÊNCIA'
            (cAliasTmp)->(MsUnlock())
        EndIf
        (cAliasTmp)->(DbSkip())
 
    EndDo
 
  
Return Nil