Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: MsAppend - Adiciona registros
Descrição:
Programa Fonte: APLIB070.PRW Sintaxe: MsAppend - Adiciona registros ( cTargecSource ) --> lBack Retorno:
Observações Caso a RDD corrente não seja TOPCONN (Top Connect), o arquivo/tabela informado no parâmetro cTarget deverá estar aberto para executar a função MsAppend. Exemplos #include "protheus.ch"User Function TestCreate()Local cFile := '\DATA\SA1990'Local cTarget := '\DATA\XXX'Local aStru := {}Local lBack := .F.DbUseArea(.T., "DBFCDX",cFile,"TMP", .T., .F.) aStru := dbStruct()DbcloseArea()If (lBack := MsCreate(cTarget,aStru)) // Cria Arquivo de Destino) DbUseArea(.T., "DBFCDX",cTarget,"TARGET", .T., .F.) lBack := MsAppEnd(cTarget,cFile) // Transfere de cSource para cTarget DbSelectArea("TARGET") dbCloseArea() If lBack ApMsgAlert("Arquivo criado.") EndIfEndIfReturn Parâmetros:
|