Aula 01 - 14/09/2021
https://youtu.be/joXSyiRj_pM
https://youtu.be/cOiYaF-Rk3I
Assuntos Abordados :
====================================================================
Links Uteis :
--------------------------------------------------------
Exemplos fontes , na versao 26 e 22
==============
ASSUNTOS QUE O AMARILDO, VAI VER NO DECORRER DO CURSO
1 CLEITON - BUFFERR.
2.. VARIAVEL DENTGO DO EVENTO
3... É OBRIGATORIO E MOTIVO GLOBAL
4.. DIFERENCA INT, DECIMAL, REAL
5. array Mais aulas
6. E mascaras, tipo Telefone, CEP, CNPJ, CPF?
( jquery )
----------------------------
CODIGOS DA AULA 001
// BTN VARIAVEL
// EXPLICANDO STRING CURRENCY
// EXPLICANDO TEXTO LONGO AUTOMATICO
cyVALOR_PAGAR is currency=EDT_VALOR_PAGAR
sVALOR_FORMATADO is string=NoSpace(NumToString(cyVALOR_PAGAR,"10,4fS"),sscAll)
sNOME is string=EDT_NOME
sTEXTO_LONGO_AUTOMATICO is string=[
RECEBE DE [%sNOME%]
O VALOR DE [%sVALOR_FORMATADO%] REAIS
OK
]
EDT_RESPOSTA=sTEXTO_LONGO_AUTOMATICO
=======================
// EXPLICANDO TEXTO LONGO MANUAL
sTEXTO_LONGO is string=[
RECEBE DE #sNOME#
O VALOR DE #sVALOR_FORMATADO# REAIS
OK
]
sTEXTO_LONGO=Replace(sTEXTO_LONGO,"#sNOME#",EDT_NOME)
sTEXTO_LONGO=Replace(sTEXTO_LONGO,"#sVALOR_FORMATADO#",EDT_VALOR_PAGAR)
EDT_RESPOSTA=sTEXTO_LONGO
=======================
// BTN VARIAVEL
// EXPLICANDO STRING CURRENCY
// EXPLICANDO TEXTO LONGO AUTOMATICO,MANUAL
// EXPLICANDO TEXTO LONGO COM XML
// EXPLICANCO XML STRING
sDIVISAO_NSU is string=[
<distNSU>
<ultNSU>[%EDT_ULTIMO_NSU%]</ultNSU>
</distNSU>
]
IF EDT_ULTIMO_NSU=0 OR EDT_ULTIMO_NSU="" THEN
sDIVISAO_NSU=""
END
sTEXTO_XML is string=[
<distDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01">
<tpAmb>1</tpAmb>
<CNPJ>[%EDT_CNPJ%]</CNPJ>
[%sDIVISAO_NSU%]
</distDFeInt>
]
EDT_RESPOSTA=sTEXTO_XML
//fMakeDir()
fSaveText("c:\TEMP\XML.XML",EDT_RESPOSTA)
ShellExecute("c:\TEMP\XML.XML")
=======================
// BTN VARIAVEL
// EXPLICANDO STRING CURRENCY
// EXPLICANDO TEXTO LONGO AUTOMATICO,MANUAL
// EXPLICANDO TEXTO LONGO COM XML
// EXPLICANCO XML STRING
sDIVISAO_NSU is string=[
<distNSU>
<ultNSU>[%EDT_ULTIMO_NSU%]</ultNSU>
</distNSU>
]
IF EDT_ULTIMO_NSU=0 OR EDT_ULTIMO_NSU="" THEN
sDIVISAO_NSU=""
END
sTEXTO_XML is string=[
<distDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01">
<tpAmb>1</tpAmb>
<CNPJ>[%EDT_CNPJ%]</CNPJ>
[%sDIVISAO_NSU%]
</distDFeInt>
]
EDT_RESPOSTA=sTEXTO_XML
//fMakeDir()
fSaveText("c:\TEMP\XML.XML",EDT_RESPOSTA)
ShellExecute("c:\TEMP\XML.XML")
=======================
// VARIAVEL BOOLEAN
bPROGRAMADOR is boolean=True
CBOX_PROGRAMADOR=bPROGRAMADOR
=======================
// OPERADORES
cyVALOR1 is currency=10
cyVALOR2 is currency=20
//SOMA
cyVALOR3 is currency=cyVALOR1+cyVALOR2
//ACRESCENTAR 1
cyVALOR3+=1
cyVALOR3++
cyVALOR3=cyVALOR3+1
//------DIMINUINDO
cyVALOR3-=1
cyVALOR3--
cyVALOR3=cyVALOR3-1
//------DIVIDINDO
cyVALOR3=cyVALOR3/10
//-MULTIPLICAR
cyVALOR3=cyVALOR3*4
=======================
// JUNTAR NOMES
sNOME is string="AMARILDO"
sSOBRENOME is string="DE MATOS"
EDT_RESPOSTA=sNOME+" "+sSOBRENOME
=======================
// PEGAR POSICAO , ESQUERDA,DIREITA , QUALQUER
sNOME is string="AMARILDO"
EDT_RESPOSTA+=Left(sNOME,3)+CR
EDT_RESPOSTA+=Right(sNOME,3)+CR
EDT_RESPOSTA+=sNOME[2 TO 3]
=======================
// VER SE CONTEM E PEGAR POSICAO
sNOME is string="AMARILDO DE MATOS"
nPosicao_final is int=Length(sNOME)
nPOSICAO is int=Position(sNOME,"DE")
EDT_RESPOSTA=nPOSICAO
EDT_RESPOSTA=sNOME[nPOSICAO TO nPosicao_final]
=======================
// VER SE CONTEM
sNOME is string="AMARILDO DE MATOS"
IF Contains(sNOME,"MATOS")=True THEN
Info("EXISTE")
ELSE
Info("NAO EXISTE")
END
=======================
// ARRAY
arrStringArray is array of strings
arrInteiroarray is array of int
Add(arrStringArray,"amarildo")
Add(arrStringArray,"cleiton")
Add(arrInteiroarray,2)
Add(arrInteiroarray,3)
Add(arrInteiroarray,5)
EDT_RESPOSTA=arrStringArray[1]+" "+arrStringArray[2]
EDT_RESPOSTA+=CR
EDT_RESPOSTA+=arrInteiroarray[1]+" "+arrInteiroarray[2]+" "+arrInteiroarray[3]
TEMA ESCURO
MUDAR AMBIENTE INGLES FRANCES
TROCAR CODIGO INGLES PARA FRANCES OU AO CONTRARIO
