Jump to content

Gonçalo Santos

New Member
  • Posts

    6
  • Joined

  • Last visited

Gonçalo Santos's Achievements

boolean user

boolean user (2/5)

  • 1 Year

Recent Badges

0

Reputation

1

Community Answers

  1. Boa tarde a todos, Tenho uma dúvida e tão pouco nem sei se é possível. Gostaria de saber como posso adicionar um campo aos parâmetros de Faturação. Grato pela ajuda, Gonçalo Santos
  2. Resolvi assim substituindo o IF por case: *Importar dados XLS m_file=Getfile("XLS","Ficheiro","Escolher",0,"Seleccione o Ficheiro a Importar") If Type("m_file")<>"C" Or Not File(m_file) Messagebox("Ficheiro Não Encontrado") Endif ** Cursor para as referencias inválidas Create Cursor INVREF (Ref Varchar(30)) * Altera as decimais que são utilizadas por defeito na aplicação Set Point To "." *Criar Cursor Create Cursor Artgs (Ref Varchar(18),Codigo Varchar(40), pvp1 numeric(8,3),RefFornecedor Varchar(20), tipodesc varchar(60), pbruto numeric(8,3), url varchar(100), usr4 varchar(20), usr5 varchar(120), usr6 varchar(30)) Append From (m_file) Xls Select Artgs Mostrameisto("Artgs") Regua(0, Reccount("Artgs"), "A Atualizar Artigos") Scan Regua(1, Recno("Artgs"), "A Atualizar artigo de Ref: " + Alltrim(Upper(Artgs.Ref))) *Obtenção de Ref através de Código de Barras com ficheiro Excel local codigo m.codigo=GetUmValorNumerico("ST","st.ref","ST.codigo='"+Artgs.Codigo+"'") *Verifica se Existe o Código de Barras do Excel na Tabela de Códigos de Barras Alternativo e fica com referência em variável local codigoAlternativo m.codigoAlternativo=GetUmValorNumerico("BC", "BC.ref","bc.codigo='"+Artgs.Codigo+"'") *IF para validar existência de Referência através de CodBarras para atualização local m.RefRegistar DO CASE CASE EMPTY(Alltrim(m.codigoAlternativo)) and EMPTY(ALLTRIM(m.codigo)) m.RefRegistar="0" CASE NOT EMPTY(ALLTRIM(m.codigo)) m.RefRegistar=Artgs.ref CASE NOT EMPTY(ALLTRIM(m.codigoAlternativo)) m.RefRegistar=m.codigoAlternativo ENDCASE IF m.RefRegistar<>"0" TEXT to msel textmerge noshow UPDATE st SET epv1 = <<Artgs.pvp1>>, pv1 = <<Artgs.pvp1>> * 200.482, forref = '<<Artgs.RefFornecedor>>', tipodesc = '<<Artgs.tipodesc>>', pbruto = '<<Artgs.pbruto>>', url = '<<Artgs.url>>',usr4 = CASE WHEN usr4 IS NULL OR usr4 = '' THEN '<<Artgs.usr4>>' ELSE usr4 END, usr5 = CASE WHEN usr5 IS NULL OR usr5 = '' THEN '<<Artgs.usr5>>' ELSE usr5 END, usr6 = CASE WHEN usr6 IS NULL OR usr6 = '' THEN '<<Artgs.usr6>>' ELSE usr6 END, impfuelpos = 1 where ref='<<m.RefRegistar>>' ENDTEXT u_sqlexec(msel,'') *Wait Window "A atualizar..." Timeout 1 Else select INVREF append blank replace INVREF.ref with Alltrim(Artgs.Ref) Endif sst.refresh() sst.refrescar() Endscan Regua(2) Mensagem("Importação Terminada", "DIRECTA") Mostrameisto("INVREF") Fecha("Artgs") Fecha("INVREF") Set Point To se_pointer Se tiverem outra solução melhor, pfvr, digam
  3. Bom dia a todos Espero que se encontrem bem Preciso da vossa ajuda se for possível Tenho esta tecla de Atualização de Artigos para Corporate onde faz a seguinte validação: Se o código existe na ST, guarda a referência Se existir o código na BC, guarda a referência Quando chego ao if de validações, não passa porque vai sempre a zero Podem ajudar pfvr? Abaixo o código:
  4. Viva malta, Precisava de uma grande favor da vossa parte. Sabem se existem sites que disponibilizem APIs e WebServices para eu puder aprender como comunicar com estes serviços? Desde já o meu muito obrigado.
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.