Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
Templatedocumentos |
---|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas