Prompt ChatGPT: FUNÇÃO DE UPDATE ADVPL COM COMANDO SQL

Precisa de ajuda sobre este assunto em seu ERP?

Bem-vindo ao espaço dedicado à utilização do ChatGPT para desenvolvimento em ADVPL! Aqui você pode gerar, revisar e otimizar códigos ADVPL de forma rápida e eficiente. Com a ajuda do ChatGPT, você pode tirar dúvidas, aprimorar suas funções e automatizar processos dentro do TOTVS Protheus. Experimente agora mesmo acessando o ChatGPT e veja como a inteligência artificial pode potencializar seu desenvolvimento!

Explicação: Esta função é útil para quando você não possui índices na tabela e um SQL é mais indicado para fazer uma busca objetiva.

Modo de uso: Copie o conteúdo abaixo, modifique conforme precisar e cole no ChatGPT

Preciso que com os dados abaixo, você gere uma nova função com base no modelo em ADVPL.
Coloque + CRLF no final de cada linha do SQL

Nome da função: updDtEnt()

SQL: 
UPDATE SF2
SET F2_DTENTR = [VALOR_UPDATE]
FROM SF2010 SF2
INNER JOIN SC9010 SC9 ON (C9_NFISCAL = F2_DOC AND C9_SERIENF = F2_SERIE AND SC9.D_E_L_E_T_ = ' ')
WHERE SF2.D_E_L_E_T_ = ' '
AND F2_DTENTR = ''
AND C9_FILIAL + C9_PEDIDO = 'AF01277358'

[VALOR_UPDATE]: cDatEntr

Modelo abaixo:
Static Function LimpSc9()
	_cUpdate := " UPDATE "+RetSQLName("SC9")+" SET C9_YPRECAR = '' WHERE C9_FILIAL = '" + ZV5->ZV5_FILPED +"' AND C9_PEDIDO = '" + ZV5->ZV5_PEDIDO +"' AND C9_NFISCAL = '' AND C9_CARGA = ''   "
	TCSQLExec(_cUpdate) //Voltar este trecho depois
Return

Preciso que com os dados abaixo, você gere uma nova função com base no modelo em ADVPL.

Coloque + CRLF no final de cada linha do SQL

Nome da função: updDtEnt()

SQL:

UPDATE SF2

SET F2_DTENTR = [VALOR_UPDATE]

FROM SF2010 SF2

INNER JOIN SC9010 SC9 ON (C9_NFISCAL = F2_DOC AND C9_SERIENF = F2_SERIE AND SC9.D_E_L_E_T_ = ' ')

WHERE SF2.D_E_L_E_T_ = ' '

AND F2_DTENTR = ''

AND C9_FILIAL + C9_PEDIDO = 'AF01277358'

[VALOR_UPDATE]: cDatEntr

Modelo abaixo:

Static Function LimpSc9()

_cUpdate := " UPDATE "+RetSQLName("SC9")+" SET C9_YPRECAR = '' WHERE C9_FILIAL = '" + ZV5->ZV5_FILPED +"' AND C9_PEDIDO = '" + ZV5->ZV5_PEDIDO +"' AND C9_NFISCAL = '' AND C9_CARGA = '' "

TCSQLExec(_cUpdate) //Voltar este trecho depois

Return

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

Últimos posts por Fernando Bueno (exibir todos)

Sistema de Pedidos Online - 22 de maio de 2025
FAQ Configurador Tributos Protheus
A Importância do CRM na Gestão Comercial e uma Alternativa Open Source - 20 de março de 2025