ProtheusXBestsales

Função: MATA030 - Cadastro de Clientes (ExecAuto)

Abrangências:	Microsiga Protheus 11 , Protheus 10
Versões:	Protheus 10
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Português (Brasil)

Descrição:

Função utilizada para inclusão, alteração e exclusão de clientes via rotina automática (ExecAuto).MATA030 - Cadastro de Clientes (ExecAuto) ( [ aVetor ] [ nOpc ] ) --> Nil

/*
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄN’ z¿
//³Inicio personalização para importar pré cadastro de clientes ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄN’ zÙ
*/
    


  ELSEIF cCampo=="160"
//inicializa Cadastro
  aVetor := {} 
//inicia leitura da linha
 nCon := 1
//percorrendo a linha
 WHILE xPos!=xTam
 xAnt := xPos
 xPos := AT(CHR(94),SUBSTR(cBuffer,xAnt+1,xTam)) + xAnt
 cCampo := SUBSTR(cBuffer,xAnt+1,xPos-xAnt-1)
           DO CASE
         CASE nCon == 3
             cRsocial   := cCampo
         CASE nCon == 4
             cNfantasia := cCampo
  CASE nCon == 6
      cCnpj      := cCampo
  CASE nCon == 7
             cInscri  := cCampo
  CASE nCon == 11
             cMpagto  := cCampo
    ENDCASE
 nCon++
 ENDDO
     

 ELSEIF cCampo=="161"
  //inicia leitura da linha
nCon := 1
 //percorrendo a linha
 WHILE xPos!=xTam
 xAnt := xPos
 xPos := AT(CHR(94),SUBSTR(cBuffer,xAnt+1,xTam)) + xAnt
 cCampo := SUBSTR(cBuffer,xAnt+1,xPos-xAnt-1)
  DO CASE
  CASE nCon == 3
              cRua       := cCampo
  CASE nCon == 4
              cNumero := cCampo
  CASE nCon == 5
              cComplem := cCampo
  CASE nCon == 6
              cBairro := cCampo
  CASE nCon == 7
              cCidade := cCampo
  CASE nCon == 8
              cUf        := cCampo
  CASE nCon == 9
              cCep       := cCampo
  CASE nCon == 12
              cTel       := cCampo
  CASE nCon == 14
              cEmail := cCampo
  ENDCASE
nCon++
       ENDDO
 
 aVetor:={     {"A1_LOJA"      ,"01"                      ,Nil},; 
        {"A1_NOME"      ,cRsocial               ,Nil},; 
                      {"A1_PESSOA"    ,"F"                    ,Nil},; 
                      {"A1_NREDUZ"    ,cNfantasia       ,Nil},; 
                      {"A1_END"       ,cRua        ,Nil},; 
                      {"A1_TIPO"      ,"F"                           ,Nil},; 
                      {"A1_EST"       ,cUf        ,Nil},; 
                      {"A1_COD_MUN"   ,"03205"        ,Nil},; 
                      {"A1_MUN"       ,cCidade        ,Nil},; 
                      {"A1_BAIRRO"    ,cBairro        ,Nil},; 
                      {"A1_CEP"       ,cCep        ,Nil},; 
                      {"A1_CGC"       ,"11111111111"                ,Nil},; 
                      {"A1_INSCR"     ,"ISENTO"               ,Nil},; 
                      {"A1_MSBLQL"    ,"1"               ,Nil},; 
                      {"A1_COMPLEM"   ,"CGC/CNPJ -> "+cCnpj      ,Nil},; 
                      {"A1_VEND"      ,vPastas[ip][1]            ,Nil},; 
                      {"A1_CODPAIS"   ,"01058"                       ,Nil},; 
                      {"A1_RISCO"     ,"B"                     ,Nil},; 
                      {"A1_YMEIO"     ,cMpagto                      ,Nil},; 
                      {"A1_YRESTRI"   ,"N"                         ,Nil},; 
                      {"A1_YRAMO"     ,"91"                         ,Nil},; 
                      {"A1_YDTVISI"   ,"02"                    ,Nil}} 


 lMsErroAuto := .F.
 MSExecAuto({|x,y| Mata030(x,y)},aVetor,3)
 If lMsErroAuto
   MostraErro()
 Endif
   
/*
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´[¿
//³Final da rotina de importação de clientes³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´[Ù
*/

I
r para o final dos metadados

Exemplos