我想在表中创建新记录,所以我尝试:
New
PEDIDOCodigo = &pedcodrevenda
PEDIDOEmpcod = &pagempcod
PEDIDOTipo = 2
PEDIDOEmissao = &OrderByIdResponse.data.date_added
TIPODECOBRANCACodigo = &TIPODECOBRANCACodigo
Clicod = &clicod
PEDIDOVendedor = &clirep
PEDIDOVendedorComissao = &PedComPai
PEDIDOVendedor2 = 0
PEDIDOVendedor2Comissao = 0
PEDIDODesconto = &DescontoPedidoPercentual
PEDIDOTransportadora = &Cliente.CliTra
PEDIDOTipoFrete = 'F'
CONDICAOPAGAMENTOId = &CONDICAOPAGAMENTOid
PEDIDOObservacao = substr(&OrderByIdResponse.data.comment, 1, 80)
PEDIDOObservacao2 = &pedobs2
TabPreCodi = >ABELA
PEDIDOEmpresaId = empresalogin()
PEDIDOUf = &cliest
PEDIDONomee = upper(substr(&OrderByIdResponse.data.shipping_firstname,1, 60))
PEDIDOEnde = upper(substr(&EnderecoEntregaCompleto, 1, 60))
PEDIDOEndeNro = &OrderByIdResponse.data.shipping_number_home
PEDIDOEndeComplemento = &OrderByIdResponse.data.shipping_address_2
PEDIDOBaie = upper(substr(&OrderByIdResponse.data.shipping_neighborhood, 1, 40))
PEDIDOCide = upper(substr(&OrderByIdResponse.data.shipping_city, 1, 30))
PEDIDOCepe = &OrderByIdResponse.data.shipping_postcode, 1, 9
PEDIDOEste = upper(GetUfPorNome(&OrderByIdResponse.data.payment_zone.Trim()))
PEDIDOStatus = &pedsit
EndNew
但是我收到了:
错误src0064:期望“ EndNew”命令关闭“ New”。 (程序 'Irroba.ImportarPedido'来源,行:493,字符:4,详细信息)